diff options
| author | Kartik Agaram <vc@akkartik.com> | 2021-11-09 09:23:31 -0800 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2021-11-09 09:23:31 -0800 |
| commit | 3ff2fe607c2cb5690d201d3b83ddcc957e949b7a (patch) | |
| tree | 2dd6019731bad313ecf0423d6063c9d0fa0bb77e | |
| parent | ef8fd8851a883eefd7bd55ffc31d6e00f67d50a8 (diff) | |
| download | mu-3ff2fe607c2cb5690d201d3b83ddcc957e949b7a.tar.gz | |
.
236 files changed, 43651 insertions, 46806 deletions
diff --git a/html/108write.subx.html b/html/108write.subx.html index 044886b8..044e1af4 100644 --- a/html/108write.subx.html +++ b/html/108write.subx.html @@ -364,8 +364,8 @@ if ('onhashchange' in window) { <span id="L304" class="LineNr">304 </span> c3/return <span id="L305" class="LineNr">305 </span> <span id="L306" class="LineNr">306 </span><span class="Constant">$_append-4:<a href='317abort.subx.html#L5'>abort</a></span>: -<span id="L307" class="LineNr">307 </span> (<a href='501draw-text.mu.html#L339'>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="L308" class="LineNr">308 </span> (<a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 %eax 3 0) +<span id="L307" class="LineNr">307 </span> (<a href='501draw-text.mu.html#L332'>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="L308" class="LineNr">308 </span> (<a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 %eax 3 0) <span id="L309" class="LineNr">309 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">""</span>) <span id="L310" class="LineNr">310 </span> <span class="subxComment"># never gets here</span> <span id="L311" class="LineNr">311 </span> diff --git a/html/115write-byte.subx.html b/html/115write-byte.subx.html index 79ffa2c9..623dec48 100644 --- a/html/115write-byte.subx.html +++ b/html/115write-byte.subx.html @@ -58,85 +58,110 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/115write-byte.subx'>https://github.com/akkartik/mu/blob/main/115write-byte.subx</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Write a single byte to a stream.</span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># We need to do this in machine code because streams need to be opaque types,</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># and we don't yet support opaque types in Mu.</span> -<span id="L5" class="LineNr"> 5 </span> -<span id="L6" class="LineNr"> 6 </span>== code -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L10" class="LineNr">10 </span> -<span id="L11" class="LineNr">11 </span><span class="subxComment"># Write lower byte of 'n' to 'f'.</span> -<span id="L12" class="LineNr">12 </span><span class="subxFunction">append-byte</span>: <span class="subxComment"># f: (addr stream byte), n: int</span> -<span id="L13" class="LineNr">13 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14" class="LineNr">14 </span> 55/push-ebp -<span id="L15" class="LineNr">15 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L16" class="LineNr">16 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17" class="LineNr">17 </span> 50/push-eax -<span id="L18" class="LineNr">18 </span> 51/push-ecx -<span id="L19" class="LineNr">19 </span> 57/push-edi -<span id="L20" class="LineNr">20 </span> <span class="subxComment"># edi = f</span> -<span id="L21" class="LineNr">21 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> -<span id="L22" class="LineNr">22 </span> <span class="subxComment"># ecx = f->write</span> -<span id="L23" class="LineNr">23 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> -<span id="L24" class="LineNr">24 </span> <span class="subxComment"># if (f->write >= f->size) abort</span> -<span id="L25" class="LineNr">25 </span> 3b/compare 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(edi+8)</span> -<span id="L26" class="LineNr">26 </span> 7d/jump-if->= $append-byte:<a href='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> -<span id="L30" class="LineNr">30 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L31" class="LineNr">31 </span> 8a/copy-byte 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(ebp+12) to AL</span> -<span id="L32" class="LineNr">32 </span> 88/copy-byte 1/mod/*+disp8 4/rm32/sib 7/base/edi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy AL to *(edi+ecx+12)</span> -<span id="L33" class="LineNr">33 </span> <span class="subxComment"># ++f->write</span> -<span id="L34" class="LineNr">34 </span> ff 0/subop/increment 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *edi</span> -<span id="L35" class="LineNr">35 </span><span class="Constant">$append-byte:end</span>: -<span id="L36" class="LineNr">36 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L37" class="LineNr">37 </span> 5f/pop-to-edi -<span id="L38" class="LineNr">38 </span> 59/pop-to-ecx -<span id="L39" class="LineNr">39 </span> 58/pop-to-eax -<span id="L40" class="LineNr">40 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L41" class="LineNr">41 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L42" class="LineNr">42 </span> 5d/pop-to-ebp -<span id="L43" class="LineNr">43 </span> c3/return -<span id="L44" class="LineNr">44 </span> -<span id="L45" class="LineNr">45 </span><span class="Constant">$append-byte:<a href='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> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Write a single byte to a stream.</span> +<span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># We need to do this in machine code because streams need to be opaque types,</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># and we don't yet support opaque types in Mu.</span> +<span id="L5" class="LineNr"> 5 </span> +<span id="L6" class="LineNr"> 6 </span>== code +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L10" class="LineNr"> 10 </span> +<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># Write lower byte of 'n' to 'f'.</span> +<span id="L12" class="LineNr"> 12 </span><span class="subxFunction">append-byte</span>: <span class="subxComment"># f: (addr stream byte), n: int</span> +<span id="L13" class="LineNr"> 13 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14" class="LineNr"> 14 </span> 55/push-ebp +<span id="L15" class="LineNr"> 15 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L16" class="LineNr"> 16 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17" class="LineNr"> 17 </span> 50/push-eax +<span id="L18" class="LineNr"> 18 </span> 51/push-ecx +<span id="L19" class="LineNr"> 19 </span> 57/push-edi +<span id="L20" class="LineNr"> 20 </span> <span class="subxComment"># edi = f</span> +<span id="L21" class="LineNr"> 21 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> +<span id="L22" class="LineNr"> 22 </span> <span class="subxComment"># ecx = f->write</span> +<span id="L23" class="LineNr"> 23 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> +<span id="L24" class="LineNr"> 24 </span> <span class="subxComment"># if (f->write >= f->size) abort</span> +<span id="L25" class="LineNr"> 25 </span> 3b/compare 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(edi+8)</span> +<span id="L26" class="LineNr"> 26 </span> 7d/jump-if->= $append-byte:<a href='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> +<span id="L30" class="LineNr"> 30 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L31" class="LineNr"> 31 </span> 8a/copy-byte 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(ebp+12) to AL</span> +<span id="L32" class="LineNr"> 32 </span> 88/copy-byte 1/mod/*+disp8 4/rm32/sib 7/base/edi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy AL to *(edi+ecx+12)</span> +<span id="L33" class="LineNr"> 33 </span> <span class="subxComment"># ++f->write</span> +<span id="L34" class="LineNr"> 34 </span> ff 0/subop/increment 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *edi</span> +<span id="L35" class="LineNr"> 35 </span><span class="Constant">$append-byte:end</span>: +<span id="L36" class="LineNr"> 36 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L37" class="LineNr"> 37 </span> 5f/pop-to-edi +<span id="L38" class="LineNr"> 38 </span> 59/pop-to-ecx +<span id="L39" class="LineNr"> 39 </span> 58/pop-to-eax +<span id="L40" class="LineNr"> 40 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L41" class="LineNr"> 41 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L42" class="LineNr"> 42 </span> 5d/pop-to-ebp +<span id="L43" class="LineNr"> 43 </span> c3/return +<span id="L44" class="LineNr"> 44 </span> +<span id="L45" class="LineNr"> 45 </span><span class="Constant">$append-byte:<a href='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="subxFunction">undo-append-byte</span>: <span class="subxComment"># f: (addr stream byte)</span> +<span id="L80" class="LineNr"> 80 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L81" class="LineNr"> 81 </span> 55/push-ebp +<span id="L82" class="LineNr"> 82 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L83" class="LineNr"> 83 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L84" class="LineNr"> 84 </span> 50/push-eax +<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># eax = f</span> +<span id="L86" class="LineNr"> 86 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># if (f->write <= 0) abort</span> +<span id="L88" class="LineNr"> 88 </span> 81 7/subop/compare 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> 0/imm32 <span class="subxComment"># compare *eax</span> +<span id="L89" class="LineNr"> 89 </span> 7e/jump-if-<= $undo-append-byte:<a href='317abort.subx.html#L5'>abort</a>/disp8 +<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># --f->write</span> +<span id="L91" class="LineNr"> 91 </span> ff 1/subop/decrement 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"># decrement *eax</span> +<span id="L92" class="LineNr"> 92 </span><span class="Constant">$undo-append-byte:end</span>: +<span id="L93" class="LineNr"> 93 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L94" class="LineNr"> 94 </span> 58/pop-to-eax +<span id="L95" class="LineNr"> 95 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L96" class="LineNr"> 96 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<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">$undo-append-byte:<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">"undo-append-byte: empty stream"</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="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/120allocate.subx.html b/html/120allocate.subx.html index 7629e36d..14a7de65 100644 --- a/html/120allocate.subx.html +++ b/html/120allocate.subx.html @@ -322,36 +322,36 @@ if ('onhashchange' in window) { <span id="L261" class="LineNr">261 </span> c3/return <span id="L262" class="LineNr">262 </span> <span id="L263" class="LineNr">263 </span><span class="Constant">$lookup:<a href='317abort.subx.html#L5'>abort</a></span>: -<span id="L264" class="LineNr">264 </span> (<a href='501draw-text.mu.html#L339'>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="L265" class="LineNr">265 </span> (<a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+8) 3 0) -<span id="L266" class="LineNr">266 </span> (<a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">", "</span> 3 0) -<span id="L267" class="LineNr">267 </span> (<a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0xc) 3 0) -<span id="L268" class="LineNr">268 </span> (<a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">") -> "</span> 3 0) -<span id="L269" class="LineNr">269 </span> (<a href='501draw-text.mu.html#L394'>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#L339'>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="L264" class="LineNr">264 </span> (<a href='501draw-text.mu.html#L332'>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="L265" class="LineNr">265 </span> (<a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+8) 3 0) +<span id="L266" class="LineNr">266 </span> (<a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">", "</span> 3 0) +<span id="L267" class="LineNr">267 </span> (<a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0xc) 3 0) +<span id="L268" class="LineNr">268 </span> (<a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">") -> "</span> 3 0) +<span id="L269" class="LineNr">269 </span> (<a href='501draw-text.mu.html#L387'>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#L332'>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="L271" class="LineNr">271 </span> b8/copy-to-eax 0/imm32 -<span id="L272" class="LineNr">272 </span> (<a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 2 0) -<span id="L273" class="LineNr">273 </span> (<a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) +<span id="L272" class="LineNr">272 </span> (<a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 2 0) +<span id="L273" class="LineNr">273 </span> (<a href='501draw-text.mu.html#L332'>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#L394'>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#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) +<span id="L275" class="LineNr">275 </span> (<a href='501draw-text.mu.html#L387'>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#L332'>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#L394'>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#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) +<span id="L278" class="LineNr">278 </span> (<a href='501draw-text.mu.html#L387'>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#L332'>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#L394'>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='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) +<span id="L281" class="LineNr">281 </span> (<a href='501draw-text.mu.html#L387'>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='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) <span id="L283" class="LineNr">283 </span> 40/increment-eax -<span id="L284" class="LineNr">284 </span> (<a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) -<span id="L285" class="LineNr">285 </span> (<a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) +<span id="L284" class="LineNr">284 </span> (<a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) +<span id="L285" class="LineNr">285 </span> (<a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) <span id="L286" class="LineNr">286 </span> 40/increment-eax -<span id="L287" class="LineNr">287 </span> (<a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) -<span id="L288" class="LineNr">288 </span> (<a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) +<span id="L287" class="LineNr">287 </span> (<a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) +<span id="L288" class="LineNr">288 </span> (<a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) <span id="L289" class="LineNr">289 </span> 40/increment-eax -<span id="L290" class="LineNr">290 </span> (<a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) -<span id="L291" class="LineNr">291 </span> (<a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) +<span id="L290" class="LineNr">290 </span> (<a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) +<span id="L291" class="LineNr">291 </span> (<a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 2 0) <span id="L292" class="LineNr">292 </span> 40/increment-eax -<span id="L293" class="LineNr">293 </span> (<a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) +<span id="L293" class="LineNr">293 </span> (<a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *eax 3 0) <span id="L294" class="LineNr">294 </span> (<a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"\n"</span>) <span id="L295" class="LineNr">295 </span> <span class="subxComment"># never gets here</span> <span id="L296" class="LineNr">296 </span> diff --git a/html/126write-int-decimal.subx.html b/html/126write-int-decimal.subx.html index 4f87aa51..91f6d3cb 100644 --- a/html/126write-int-decimal.subx.html +++ b/html/126write-int-decimal.subx.html @@ -360,7 +360,7 @@ if ('onhashchange' in window) { <span id="L324" class="LineNr">324 </span> <span class="subxS1Comment"># . end</span> <span id="L325" class="LineNr">325 </span> c3/return <span id="L326" class="LineNr">326 </span> -<span id="L327" class="LineNr">327 </span><span class="subxFunction">decimal-digit?</span>: <span class="subxComment"># c: grapheme -> result/eax: boolean</span> +<span id="L327" class="LineNr">327 </span><span class="subxFunction">decimal-digit?</span>: <span class="subxComment"># c: code-point-utf8 -> result/eax: boolean</span> <span id="L328" class="LineNr">328 </span> <span class="subxS1Comment"># . prologue</span> <span id="L329" class="LineNr">329 </span> 55/push-ebp <span id="L330" class="LineNr">330 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -459,7 +459,7 @@ if ('onhashchange' in window) { <span id="L423" class="LineNr">423 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L424" class="LineNr">424 </span> c3/return <span id="L425" class="LineNr">425 </span> -<span id="L426" class="LineNr">426 </span><span class="subxFunction">to-decimal-digit</span>: <span class="subxComment"># in: grapheme -> out/eax: int</span> +<span id="L426" class="LineNr">426 </span><span class="subxFunction">to-decimal-digit</span>: <span class="subxComment"># in: code-point-utf8 -> out/eax: int</span> <span id="L427" class="LineNr">427 </span> <span class="subxS1Comment"># . prologue</span> <span id="L428" class="LineNr">428 </span> 55/push-ebp <span id="L429" class="LineNr">429 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> diff --git a/html/313index-bounds-check.subx.html b/html/313index-bounds-check.subx.html index ac783092..8901f551 100644 --- a/html/313index-bounds-check.subx.html +++ b/html/313index-bounds-check.subx.html @@ -82,13 +82,13 @@ if ('onhashchange' in window) { <span id="L26" class="LineNr">26 </span> 39/compare %eax 1/r32/ecx <span id="L27" class="LineNr">27 </span> 0f 82/jump-if-unsigned< $__check-mu-array-bounds:end/disp32 <span class="subxComment"># negative index should always abort</span> <span id="L28" class="LineNr">28 </span> <span class="subxComment"># abort if necessary</span> -<span id="L29" class="LineNr">29 </span> (<a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"fn "</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L30" class="LineNr">30 </span> (<a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0x14) 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L31" class="LineNr">31 </span> (<a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">": offset "</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L32" class="LineNr">32 </span> (<a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 %eax 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L33" class="LineNr">33 </span> (<a href='501draw-text.mu.html#L339'>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#L339'>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#L339'>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="L29" class="LineNr">29 </span> (<a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"fn "</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L30" class="LineNr">30 </span> (<a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0x14) 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L31" class="LineNr">31 </span> (<a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">": offset "</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L32" class="LineNr">32 </span> (<a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 %eax 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L33" class="LineNr">33 </span> (<a href='501draw-text.mu.html#L332'>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#L332'>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#L332'>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> (<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>: @@ -102,11 +102,11 @@ if ('onhashchange' in window) { <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#L339'>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#L339'>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#L339'>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#L339'>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#L339'>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="L49" class="LineNr">49 </span> (<a href='501draw-text.mu.html#L332'>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#L332'>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#L332'>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#L332'>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#L332'>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> diff --git a/html/315stack-debug.subx.html b/html/315stack-debug.subx.html index 0a588178..87402fa2 100644 --- a/html/315stack-debug.subx.html +++ b/html/315stack-debug.subx.html @@ -95,7 +95,7 @@ if ('onhashchange' in window) { <span id="L37" class="LineNr"> 37 </span> (<a href='500fake-screen.mu.html#L253'>cursor-position</a> 0) <span class="subxComment"># => eax, ecx</span> <span id="L38" class="LineNr"> 38 </span> <span class="subxComment"># print at top-right</span> <span id="L39" class="LineNr"> 39 </span> (<a href='500fake-screen.mu.html#L269'>set-cursor-position</a> 0 0x70 0) -<span id="L40" class="LineNr"> 40 </span> (<a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 %edx 0xf 0xc) +<span id="L40" class="LineNr"> 40 </span> (<a href='501draw-text.mu.html#L387'>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#L269'>set-cursor-position</a> %eax %ecx) <span id="L43" class="LineNr"> 43 </span><span class="Constant">$show-stack-state:end</span>: @@ -122,7 +122,7 @@ if ('onhashchange' in window) { <span id="L64" class="LineNr"> 64 </span> { <span id="L65" class="LineNr"> 65 </span> 81 7/subop/compare *<span class="SpecialChar"><a href='315stack-debug.subx.html#L121'>Really-debug-print</a></span> 0/imm32/false <span id="L66" class="LineNr"> 66 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L67" class="LineNr"> 67 </span> (<a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+8) *(ebp+0xc) *(ebp+0x10)) +<span id="L67" class="LineNr"> 67 </span> (<a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># clear the screen and continue if we got too close to the bottom</span> <span id="L69" class="LineNr"> 69 </span> (<a href='500fake-screen.mu.html#L253'>cursor-position</a> 0) <span class="subxComment"># => eax, ecx</span> <span id="L70" class="LineNr"> 70 </span> 81 7/subop/compare %ecx 0x28/imm32 diff --git a/html/317abort.subx.html b/html/317abort.subx.html index cedc6e56..7300c401 100644 --- a/html/317abort.subx.html +++ b/html/317abort.subx.html @@ -66,7 +66,7 @@ if ('onhashchange' in window) { <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='103glyph.subx.html#L354'>set-cursor-position-on-real-screen</a> 0 0) -<span id="L11" class="LineNr"> 11 </span> (<a href='501draw-text.mu.html#L339'>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="L11" class="LineNr"> 11 </span> (<a href='501draw-text.mu.html#L332'>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> { @@ -101,9 +101,9 @@ if ('onhashchange' in window) { <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#L339'>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#L394'>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#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" "</span> 0 0xc) +<span id="L46" class="LineNr"> 46 </span> (<a href='501draw-text.mu.html#L332'>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#L387'>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#L332'>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#L233'>containing-function</a> %edx *(ebx+4)) <span class="subxComment"># => eax, ecx</span> <span id="L50" class="LineNr"> 50 </span> (<a href='317abort.subx.html#L294'>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> @@ -190,7 +190,7 @@ if ('onhashchange' in window) { <span id="L132" class="LineNr">132 </span> 3d/compare-eax-and 0/imm32 <span id="L133" class="LineNr">133 </span> { <span id="L134" class="LineNr">134 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L135" class="LineNr">135 </span> (<a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"done loading"</span> 7 0) +<span id="L135" class="LineNr">135 </span> (<a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"done loading"</span> 7 0) <span id="L136" class="LineNr">136 </span> { <span id="L137" class="LineNr">137 </span> eb/jump <span class="Constant">loop</span>/disp8 <span id="L138" class="LineNr">138 </span> } @@ -198,7 +198,7 @@ if ('onhashchange' in window) { <span id="L140" class="LineNr">140 </span> 3d/compare-eax-and 0xa/imm32/newline <span id="L141" class="LineNr">141 </span> { <span id="L142" class="LineNr">142 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L143" class="LineNr">143 </span> (<a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"unexpected newline"</span> 7 0) +<span id="L143" class="LineNr">143 </span> (<a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"unexpected newline"</span> 7 0) <span id="L144" class="LineNr">144 </span> { <span id="L145" class="LineNr">145 </span> eb/jump <span class="Constant">loop</span>/disp8 <span id="L146" class="LineNr">146 </span> } @@ -231,7 +231,7 @@ if ('onhashchange' in window) { <span id="L173" class="LineNr">173 </span> 3d/compare-eax-and 0/imm32 <span id="L174" class="LineNr">174 </span> { <span id="L175" class="LineNr">175 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L176" class="LineNr">176 </span> (<a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"done loading"</span> 7 0) +<span id="L176" class="LineNr">176 </span> (<a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"done loading"</span> 7 0) <span id="L177" class="LineNr">177 </span> { <span id="L178" class="LineNr">178 </span> eb/jump <span class="Constant">loop</span>/disp8 <span id="L179" class="LineNr">179 </span> } @@ -239,7 +239,7 @@ if ('onhashchange' in window) { <span id="L181" class="LineNr">181 </span> 3d/compare-eax-and 0x20/imm32/space <span id="L182" class="LineNr">182 </span> { <span id="L183" class="LineNr">183 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L184" class="LineNr">184 </span> (<a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"unexpected space"</span> 7 0) +<span id="L184" class="LineNr">184 </span> (<a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"unexpected space"</span> 7 0) <span id="L185" class="LineNr">185 </span> { <span id="L186" class="LineNr">186 </span> eb/jump <span class="Constant">loop</span>/disp8 <span id="L187" class="LineNr">187 </span> } @@ -310,8 +310,8 @@ if ('onhashchange' in window) { <span id="L252" class="LineNr">252 </span> 39/compare %ecx 2/r32/edx <span id="L253" class="LineNr">253 </span> { <span id="L254" class="LineNr">254 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L255" class="LineNr">255 </span> (<a href='501draw-text.mu.html#L339'>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="L256" class="LineNr">256 </span> (<a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0xc) 7 0) +<span id="L255" class="LineNr">255 </span> (<a href='501draw-text.mu.html#L332'>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="L256" class="LineNr">256 </span> (<a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0xc) 7 0) <span id="L257" class="LineNr">257 </span> { <span id="L258" class="LineNr">258 </span> eb/jump <span class="Constant">loop</span>/disp8 <span id="L259" class="LineNr">259 </span> } @@ -369,7 +369,7 @@ if ('onhashchange' in window) { <span id="L311" class="LineNr">311 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 <span id="L312" class="LineNr">312 </span> <span class="subxComment"># print *curr</span> <span id="L313" class="LineNr">313 </span> 8a/byte-> *ecx 0/r32/eax -<span id="L314" class="LineNr">314 </span> (<a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> *(ebp+8) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L314" class="LineNr">314 </span> (<a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> *(ebp+8) %eax *(ebp+0x14) *(ebp+0x18)) <span id="L315" class="LineNr">315 </span> <span class="subxComment">#</span> <span id="L316" class="LineNr">316 </span> 41/increment-ecx <span id="L317" class="LineNr">317 </span> <span class="subxComment">#</span> diff --git a/html/400.mu.html b/html/400.mu.html index 653aa867..fd06098d 100644 --- a/html/400.mu.html +++ b/html/400.mu.html @@ -122,63 +122,64 @@ if ('onhashchange' in window) { <span id="L65" class="LineNr"> 65 </span><span class="PreProc">sig</span> <a href='112read-byte.subx.html#L13'>read-byte</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: byte <span id="L66" class="LineNr"> 66 </span><span class="PreProc">sig</span> <a href='112read-byte.subx.html#L47'>peek-byte</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: byte <span id="L67" class="LineNr"> 67 </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="L68" class="LineNr"> 68 </span><span class="muComment">#sig to-hex-char in/eax: int -> out/eax: int</span> -<span id="L69" class="LineNr"> 69 </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="L70" class="LineNr"> 70 </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="L71" class="LineNr"> 71 </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="L72" class="LineNr"> 72 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L9'>hex-int?</a> in: (addr slice)<span class="PreProc"> -> </span>_/eax: boolean -<span id="L73" class="LineNr"> 73 </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>_/eax: int -<span id="L74" class="LineNr"> 74 </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>_/eax: int -<span id="L75" class="LineNr"> 75 </span><span class="muComment">#sig parse-hex-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> -<span id="L76" class="LineNr"> 76 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a> c: byte<span class="PreProc"> -> </span>_/eax: boolean -<span id="L77" class="LineNr"> 77 </span><span class="muComment">#sig from-hex-char in/eax: byte -> out/eax: nibble</span> -<span id="L78" class="LineNr"> 78 </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>_/eax: int -<span id="L79" class="LineNr"> 79 </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>_/eax: int -<span id="L80" class="LineNr"> 80 </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>_/eax: int -<span id="L81" class="LineNr"> 81 </span><span class="muComment">#sig parse-decimal-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> -<span id="L82" class="LineNr"> 82 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L312'>decimal-size</a> n: int<span class="PreProc"> -> </span>_/eax: int -<span id="L83" class="LineNr"> 83 </span><span class="muComment">#sig allocate ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L84" class="LineNr"> 84 </span><span class="muComment">#sig allocate-raw ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L85" class="LineNr"> 85 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L235'>lookup</a> h: (handle _T)<span class="PreProc"> -> </span>_/eax: (addr _T) -<span id="L86" class="LineNr"> 86 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L460'>handle-equal?</a> a: (handle _T), b: (handle _T)<span class="PreProc"> -> </span>_/eax: boolean -<span id="L87" class="LineNr"> 87 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L491'>copy-handle</a> src: (handle _T), dest: (addr handle _T) -<span id="L88" class="LineNr"> 88 </span><span class="muComment">#sig allocate-region ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> -<span id="L89" class="LineNr"> 89 </span><span class="muComment">#sig allocate-array ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L90" class="LineNr"> 90 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L702'>copy-array</a> ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T) -<span id="L91" class="LineNr"> 91 </span><span class="muComment">#sig zero-out start: (addr byte), size: int</span> -<span id="L92" class="LineNr"> 92 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L9'>slice-empty?</a> s: (addr slice)<span class="PreProc"> -> </span>_/eax: boolean -<span id="L93" class="LineNr"> 93 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L120'>slice-equal?</a> s: (addr slice), p: (addr array byte)<span class="PreProc"> -> </span>_/eax: boolean -<span id="L94" class="LineNr"> 94 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L487'>slice-starts-with?</a> s: (addr slice), head: (addr array byte)<span class="PreProc"> -> </span>_/eax: boolean -<span id="L95" class="LineNr"> 95 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L793'>write-slice</a> out: (addr stream byte), s: (addr slice) -<span id="L96" class="LineNr"> 96 </span><span class="muComment"># bad name alert</span> -<span id="L97" class="LineNr"> 97 </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="L98" class="LineNr"> 98 </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="L99" class="LineNr"> 99 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L327'>decimal-digit?</a> c: grapheme<span class="PreProc"> -> </span>_/eax: boolean -<span id="L100" class="LineNr">100 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L426'>to-decimal-digit</a> in: grapheme<span class="PreProc"> -> </span>_/eax: int -<span id="L101" class="LineNr">101 </span><span class="muComment"># bad name alert</span> -<span id="L102" class="LineNr">102 </span><span class="muComment"># next-word really tokenizes</span> -<span id="L103" class="LineNr">103 </span><span class="muComment"># next-raw-word really reads whitespace-separated words</span> -<span id="L104" class="LineNr">104 </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"># merges '#' comments into a single word</span> -<span id="L105" class="LineNr">105 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L321'>next-raw-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># does not merge '#' comments</span> -<span id="L106" class="LineNr">106 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L188'>skip-chars-matching</a> in: (addr stream byte), delimiter: byte -<span id="L107" class="LineNr">107 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L311'>skip-chars-matching-whitespace</a> in: (addr stream byte) -<span id="L108" class="LineNr">108 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L401'>skip-chars-not-matching</a> in: (addr stream byte), delimiter: byte -<span id="L109" class="LineNr">109 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L563'>skip-chars-not-matching-whitespace</a> in: (addr stream byte) -<span id="L110" class="LineNr">110 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/eax: boolean -<span id="L111" class="LineNr">111 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L30'>stream-full?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/eax: boolean -<span id="L112" class="LineNr">112 </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="L113" class="LineNr">113 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L124'>unquote-stream-to-array</a> in: (addr stream _), out: (addr handle array _) -<span id="L114" class="LineNr">114 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L154'>stream-first</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: byte -<span id="L115" class="LineNr">115 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L181'>stream-final</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: byte -<span id="L116" class="LineNr">116 </span> -<span id="L117" class="LineNr">117 </span><span class="muComment">#sig copy-bytes src: (addr byte), dest: (addr byte), n: int</span> -<span id="L118" class="LineNr">118 </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="L119" class="LineNr">119 </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>_/eax: boolean -<span id="L120" class="LineNr">120 </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="L121" class="LineNr">121 </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="L122" class="LineNr">122 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L382'>check-array-equal</a> a: (addr array int), expected: (addr array byte), msg: (addr array byte) -<span id="L123" class="LineNr">123 </span> -<span id="L124" class="LineNr">124 </span><span class="PreProc">sig</span> <a href='314divide.subx.html#L3'>integer-divide</a> a: int, b: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEdx">edx</span>: int +<span id="L68" class="LineNr"> 68 </span><span class="PreProc">sig</span> <a href='115write-byte.subx.html#L79'>undo-append-byte</a> f: (addr stream byte) <span class="muComment"># take most recent append back out</span> +<span id="L69" class="LineNr"> 69 </span><span class="muComment">#sig to-hex-char in/eax: int -> out/eax: int</span> +<span id="L70" class="LineNr"> 70 </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="L71" class="LineNr"> 71 </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="L72" class="LineNr"> 72 </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="L73" class="LineNr"> 73 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L9'>hex-int?</a> in: (addr slice)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L74" class="LineNr"> 74 </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>_/eax: int +<span id="L75" class="LineNr"> 75 </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>_/eax: int +<span id="L76" class="LineNr"> 76 </span><span class="muComment">#sig parse-hex-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> +<span id="L77" class="LineNr"> 77 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a> c: byte<span class="PreProc"> -> </span>_/eax: boolean +<span id="L78" class="LineNr"> 78 </span><span class="muComment">#sig from-hex-char in/eax: byte -> out/eax: nibble</span> +<span id="L79" class="LineNr"> 79 </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>_/eax: int +<span id="L80" class="LineNr"> 80 </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>_/eax: int +<span id="L81" class="LineNr"> 81 </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>_/eax: int +<span id="L82" class="LineNr"> 82 </span><span class="muComment">#sig parse-decimal-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> +<span id="L83" class="LineNr"> 83 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L312'>decimal-size</a> n: int<span class="PreProc"> -> </span>_/eax: int +<span id="L84" class="LineNr"> 84 </span><span class="muComment">#sig allocate ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L85" class="LineNr"> 85 </span><span class="muComment">#sig allocate-raw ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L86" class="LineNr"> 86 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L235'>lookup</a> h: (handle _T)<span class="PreProc"> -> </span>_/eax: (addr _T) +<span id="L87" class="LineNr"> 87 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L460'>handle-equal?</a> a: (handle _T), b: (handle _T)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L88" class="LineNr"> 88 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L491'>copy-handle</a> src: (handle _T), dest: (addr handle _T) +<span id="L89" class="LineNr"> 89 </span><span class="muComment">#sig allocate-region ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> +<span id="L90" class="LineNr"> 90 </span><span class="muComment">#sig allocate-array ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L91" class="LineNr"> 91 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L702'>copy-array</a> ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T) +<span id="L92" class="LineNr"> 92 </span><span class="muComment">#sig zero-out start: (addr byte), size: int</span> +<span id="L93" class="LineNr"> 93 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L9'>slice-empty?</a> s: (addr slice)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L94" class="LineNr"> 94 </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>_/eax: boolean +<span id="L95" class="LineNr"> 95 </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>_/eax: boolean +<span id="L96" class="LineNr"> 96 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L793'>write-slice</a> out: (addr stream byte), s: (addr slice) +<span id="L97" class="LineNr"> 97 </span><span class="muComment"># bad name alert</span> +<span id="L98" class="LineNr"> 98 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L898'>slice-to-string</a> ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte) +<span id="L99" class="LineNr"> 99 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> out: (addr stream byte), n: int +<span id="L100" class="LineNr">100 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L327'>decimal-digit?</a> c: code-point-utf8<span class="PreProc"> -> </span>_/eax: boolean +<span id="L101" class="LineNr">101 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L426'>to-decimal-digit</a> in: code-point-utf8<span class="PreProc"> -> </span>_/eax: int +<span id="L102" class="LineNr">102 </span><span class="muComment"># bad name alert</span> +<span id="L103" class="LineNr">103 </span><span class="muComment"># next-word really tokenizes</span> +<span id="L104" class="LineNr">104 </span><span class="muComment"># next-raw-word really reads whitespace-separated words</span> +<span id="L105" class="LineNr">105 </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"># merges '#' comments into a single word</span> +<span id="L106" class="LineNr">106 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L321'>next-raw-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># does not merge '#' comments</span> +<span id="L107" class="LineNr">107 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L188'>skip-chars-matching</a> in: (addr stream byte), delimiter: byte +<span id="L108" class="LineNr">108 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L311'>skip-chars-matching-whitespace</a> in: (addr stream byte) +<span id="L109" class="LineNr">109 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L401'>skip-chars-not-matching</a> in: (addr stream byte), delimiter: byte +<span id="L110" class="LineNr">110 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L563'>skip-chars-not-matching-whitespace</a> in: (addr stream byte) +<span id="L111" class="LineNr">111 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L112" class="LineNr">112 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L30'>stream-full?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L113" class="LineNr">113 </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="L114" class="LineNr">114 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L124'>unquote-stream-to-array</a> in: (addr stream _), out: (addr handle array _) +<span id="L115" class="LineNr">115 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L154'>stream-first</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: byte +<span id="L116" class="LineNr">116 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L181'>stream-final</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: byte +<span id="L117" class="LineNr">117 </span> +<span id="L118" class="LineNr">118 </span><span class="muComment">#sig copy-bytes src: (addr byte), dest: (addr byte), n: int</span> +<span id="L119" class="LineNr">119 </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="L120" class="LineNr">120 </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>_/eax: boolean +<span id="L121" class="LineNr">121 </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="L122" class="LineNr">122 </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="L123" class="LineNr">123 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L382'>check-array-equal</a> a: (addr array int), expected: (addr array byte), msg: (addr array byte) +<span id="L124" class="LineNr">124 </span> +<span id="L125" class="LineNr">125 </span><span class="PreProc">sig</span> <a href='314divide.subx.html#L3'>integer-divide</a> a: int, b: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEdx">edx</span>: int </pre> </body> </html> diff --git a/html/403unicode.mu.html b/html/403unicode.mu.html index 62acddf2..95b9e67c 100644 --- a/html/403unicode.mu.html +++ b/html/403unicode.mu.html @@ -64,360 +64,410 @@ if ('onhashchange' in window) { <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Helpers for Unicode.</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># Mu has no characters, only code points and graphemes.</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># Code points are the indivisible atoms of text streams.</span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># <a href="https://en.wikipedia.org/wiki/Code_point">https://en.wikipedia.org/wiki/Code_point</a></span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># Graphemes are the smallest self-contained unit of text.</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># Graphemes may consist of multiple code points.</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># Mu graphemes are always represented in utf-8, and they are required to fit</span> -<span id="L10" class="LineNr"> 10 </span><span class="muComment"># in 4 bytes. (This can be confusing if you focus just on ASCII, where Mu's</span> -<span id="L11" class="LineNr"> 11 </span><span class="muComment"># graphemes and code-points are identical.)</span> -<span id="L12" class="LineNr"> 12 </span><span class="muComment">#</span> -<span id="L13" class="LineNr"> 13 </span><span class="muComment"># Mu doesn't currently support combining code points, or graphemes made of</span> -<span id="L14" class="LineNr"> 14 </span><span class="muComment"># multiple code points. One day we will.</span> -<span id="L15" class="LineNr"> 15 </span><span class="muComment"># <a href="https://en.wikipedia.org/wiki/Combining_character">https://en.wikipedia.org/wiki/Combining_character</a></span> -<span id="L16" class="LineNr"> 16 </span> -<span id="L17" class="LineNr"> 17 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L17'>test-unicode-serialization-and-deserialization</a></span> <span class="Delimiter">{</span> -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> i/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> init?/<span class="muRegEsi">esi</span>: boolean <span class="Special"><-</span> copy <span class="Constant">1</span>/true -<span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">{</span> -<span id="L21" class="LineNr"> 21 </span> compare i, <span class="Constant">0x10000</span> <span class="muComment"># 32 bits of utf-8 are sufficient for <a href="https://en.wikipedia.org/wiki/Plane_(Unicode)#Basic_Multilingual_Plane">https://en.wikipedia.org/wiki/Plane_(Unicode)#Basic_Multilingual_Plane</a></span> -<span id="L22" class="LineNr"> 22 </span> <span class="muComment"># but not emoji</span> -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">break-if->=</span> -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> copy i -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> _g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L104'>to-grapheme</a> c -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> g/<span class="muRegEcx">ecx</span>: grapheme <span class="Special"><-</span> copy _g -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> c2/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> g -<span id="L28" class="LineNr"> 28 </span> compare i, c2 -<span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">{</span> -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">break-if-=</span> -<span id="L31" class="LineNr"> 31 </span> <span class="Delimiter">{</span> -<span id="L32" class="LineNr"> 32 </span> compare init?, <span class="Constant">0</span>/false -<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">break-if-=</span> -<span id="L34" class="LineNr"> 34 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"F - <a href='403unicode.mu.html#L17'>test-unicode-serialization-and-deserialization</a>: "</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># The basic unit for rendering Unicode is the code point.</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># <a href="https://en.wikipedia.org/wiki/Code_point">https://en.wikipedia.org/wiki/Code_point</a></span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># The glyph a non-cursive font displays may represent multiple code points.</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment">#</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># In addition to raw code points (just integers assigned special meaning), Mu</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># provides a common encoding as a convenience: code-point-utf8.</span> +<span id="L9" class="LineNr"> 9 </span> +<span id="L10" class="LineNr"> 10 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L10'>test-unicode-serialization-and-deserialization</a></span> <span class="Delimiter">{</span> +<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">var</span> i/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> init?/<span class="muRegEsi">esi</span>: boolean <span class="Special"><-</span> copy <span class="Constant">1</span>/true +<span id="L13" class="LineNr"> 13 </span> <span class="Delimiter">{</span> +<span id="L14" class="LineNr"> 14 </span> compare i, <span class="Constant">0x10000</span> <span class="muComment"># 32 bits of utf-8 are sufficient for <a href="https://en.wikipedia.org/wiki/Plane_(Unicode)#Basic_Multilingual_Plane">https://en.wikipedia.org/wiki/Plane_(Unicode)#Basic_Multilingual_Plane</a></span> +<span id="L15" class="LineNr"> 15 </span> <span class="muComment"># but not emoji</span> +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">break-if->=</span> +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> copy i +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> _g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L97'>to-utf8</a> c +<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> g/<span class="muRegEcx">ecx</span>: code-point-utf8 <span class="Special"><-</span> copy _g +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> c2/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L49'>to-code-point</a> g +<span id="L21" class="LineNr"> 21 </span> compare i, c2 +<span id="L22" class="LineNr"> 22 </span> <span class="Delimiter">{</span> +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">break-if-=</span> +<span id="L24" class="LineNr"> 24 </span> <span class="Delimiter">{</span> +<span id="L25" class="LineNr"> 25 </span> compare init?, <span class="Constant">0</span>/false +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">break-if-=</span> +<span id="L27" class="LineNr"> 27 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"F - <a href='403unicode.mu.html#L10'>test-unicode-serialization-and-deserialization</a>: "</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L28" class="LineNr"> 28 </span> <span class="Delimiter">}</span> +<span id="L29" class="LineNr"> 29 </span> init? <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L30" class="LineNr"> 30 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, i, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L31" class="LineNr"> 31 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"/"</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L32" class="LineNr"> 32 </span> <span class="Delimiter">{</span> +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy g +<span id="L34" class="LineNr"> 34 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L35" class="LineNr"> 35 </span> <span class="Delimiter">}</span> -<span id="L36" class="LineNr"> 36 </span> init? <span class="Special"><-</span> copy <span class="Constant">0</span>/false -<span id="L37" class="LineNr"> 37 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, i, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L38" class="LineNr"> 38 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"/"</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">{</span> -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy g -<span id="L41" class="LineNr"> 41 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L42" class="LineNr"> 42 </span> <span class="Delimiter">}</span> -<span id="L43" class="LineNr"> 43 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"/"</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L44" class="LineNr"> 44 </span> <span class="Delimiter">{</span> -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> x2/eax: int <span class="Special"><-</span> copy c2 -<span id="L46" class="LineNr"> 46 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x2, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L47" class="LineNr"> 47 </span> <span class="Delimiter">}</span> -<span id="L48" class="LineNr"> 48 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" "</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">}</span> -<span id="L50" class="LineNr"> 50 </span> i <span class="Special"><-</span> add <span class="Constant">0xf</span> <span class="muComment"># to speed things up; ensure increment is not a power of 2</span> -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">loop</span> -<span id="L52" class="LineNr"> 52 </span> <span class="Delimiter">}</span> -<span id="L53" class="LineNr"> 53 </span><span class="Delimiter">}</span> -<span id="L54" class="LineNr"> 54 </span> -<span id="L55" class="LineNr"> 55 </span><span class="muComment"># transliterated from tb_utf8_char_to_unicode in <a href="https://github.com/nsf/termbox">https://github.com/nsf/termbox</a></span> -<span id="L56" class="LineNr"> 56 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L56'>to-code-point</a></span> in: grapheme<span class="PreProc"> -> </span>_/eax: code-point <span class="Delimiter">{</span> -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy in -<span id="L58" class="LineNr"> 58 </span> <span class="muComment"># if single byte, just return it</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Delimiter">{</span> -<span id="L60" class="LineNr"> 60 </span> compare g, <span class="Constant">0xff</span> -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">break-if-></span> -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> result/eax: code-point <span class="Special"><-</span> copy g -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">return</span> result -<span id="L64" class="LineNr"> 64 </span> <span class="Delimiter">}</span> -<span id="L65" class="LineNr"> 65 </span> <span class="muComment">#</span> -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> len/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> <a href='403unicode.mu.html#L302'>grapheme-length</a> in -<span id="L67" class="LineNr"> 67 </span> <span class="muComment"># extract bits from first byte</span> -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> b/eax: byte <span class="Special"><-</span> copy-byte g -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> result/<span class="muRegEdi">edi</span>: code-point <span class="Special"><-</span> copy b -<span id="L70" class="LineNr"> 70 </span> <span class="Delimiter">{</span> -<span id="L71" class="LineNr"> 71 </span> compare len, <span class="Constant">2</span> -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">break-if-!=</span> -<span id="L73" class="LineNr"> 73 </span> result <span class="Special"><-</span> and <span class="Constant">0x1f</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Delimiter">}</span> -<span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">{</span> -<span id="L76" class="LineNr"> 76 </span> compare len, <span class="Constant">3</span> -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">break-if-!=</span> -<span id="L78" class="LineNr"> 78 </span> result <span class="Special"><-</span> and <span class="Constant">0x0f</span> -<span id="L79" class="LineNr"> 79 </span> <span class="Delimiter">}</span> -<span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">{</span> -<span id="L81" class="LineNr"> 81 </span> compare len, <span class="Constant">4</span> -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">break-if-!=</span> -<span id="L83" class="LineNr"> 83 </span> result <span class="Special"><-</span> and <span class="Constant">0x07</span> -<span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">}</span> -<span id="L85" class="LineNr"> 85 </span> <span class="muComment"># extract bits from remaining bytes</span> -<span id="L86" class="LineNr"> 86 </span> g <span class="Special"><-</span> shift-right <span class="Constant">8</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> i/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">{</span> -<span id="L89" class="LineNr"> 89 </span> compare i, len -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break-if->=</span> -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> b/eax: byte <span class="Special"><-</span> copy-byte g -<span id="L92" class="LineNr"> 92 </span> b <span class="Special"><-</span> and <span class="Constant">0x3f</span> -<span id="L93" class="LineNr"> 93 </span> result <span class="Special"><-</span> shift-left <span class="Constant">6</span> -<span id="L94" class="LineNr"> 94 </span> result <span class="Special"><-</span> or b -<span id="L95" class="LineNr"> 95 </span> g <span class="Special"><-</span> shift-right <span class="Constant">8</span> -<span id="L96" class="LineNr"> 96 </span> i <span class="Special"><-</span> increment -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">loop</span> -<span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">}</span> -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">return</span> result -<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="muComment"># transliterated from tb_utf8_unicode_to_char in <a href="https://github.com/nsf/termbox">https://github.com/nsf/termbox</a></span> -<span id="L103" class="LineNr">103 </span><span class="muComment"># <a href="https://wiki.tcl-lang.org/page/UTF%2D8+bit+by+bit">https://wiki.tcl-lang.org/page/UTF%2D8+bit+by+bit</a> explains the algorithm</span> -<span id="L104" class="LineNr">104 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L104'>to-grapheme</a></span> in: code-point<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> c/eax: int <span class="Special"><-</span> copy in -<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> num-trailers/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> first/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L108" class="LineNr">108 </span> $to-grapheme:compute-length: <span class="Delimiter">{</span> -<span id="L109" class="LineNr">109 </span> <span class="muComment"># single byte: just return it</span> -<span id="L110" class="LineNr">110 </span> compare c, <span class="Constant">0x7f</span> +<span id="L36" class="LineNr"> 36 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"/"</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L37" class="LineNr"> 37 </span> <span class="Delimiter">{</span> +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> x2/eax: int <span class="Special"><-</span> copy c2 +<span id="L39" class="LineNr"> 39 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x2, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L40" class="LineNr"> 40 </span> <span class="Delimiter">}</span> +<span id="L41" class="LineNr"> 41 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" "</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L42" class="LineNr"> 42 </span> <span class="Delimiter">}</span> +<span id="L43" class="LineNr"> 43 </span> i <span class="Special"><-</span> add <span class="Constant">0xf</span> <span class="muComment"># to speed things up; ensure increment is not a power of 2</span> +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">loop</span> +<span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">}</span> +<span id="L46" class="LineNr"> 46 </span><span class="Delimiter">}</span> +<span id="L47" class="LineNr"> 47 </span> +<span id="L48" class="LineNr"> 48 </span><span class="muComment"># transliterated from tb_utf8_char_to_unicode in <a href="https://github.com/nsf/termbox">https://github.com/nsf/termbox</a></span> +<span id="L49" class="LineNr"> 49 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L49'>to-code-point</a></span> in: code-point-utf8<span class="PreProc"> -> </span>_/eax: code-point <span class="Delimiter">{</span> +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy in +<span id="L51" class="LineNr"> 51 </span> <span class="muComment"># if single byte, just return it</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Delimiter">{</span> +<span id="L53" class="LineNr"> 53 </span> compare g, <span class="Constant">0xff</span> +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">break-if-></span> +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> result/eax: code-point <span class="Special"><-</span> copy g +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">return</span> result +<span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">}</span> +<span id="L58" class="LineNr"> 58 </span> <span class="muComment">#</span> +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> len/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> <a href='403unicode.mu.html#L322'>utf8-length</a> in +<span id="L60" class="LineNr"> 60 </span> <span class="muComment"># extract bits from first byte</span> +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> b/eax: byte <span class="Special"><-</span> copy-byte g +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> result/<span class="muRegEdi">edi</span>: code-point <span class="Special"><-</span> copy b +<span id="L63" class="LineNr"> 63 </span> <span class="Delimiter">{</span> +<span id="L64" class="LineNr"> 64 </span> compare len, <span class="Constant">2</span> +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">break-if-!=</span> +<span id="L66" class="LineNr"> 66 </span> result <span class="Special"><-</span> and <span class="Constant">0x1f</span> +<span id="L67" class="LineNr"> 67 </span> <span class="Delimiter">}</span> +<span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">{</span> +<span id="L69" class="LineNr"> 69 </span> compare len, <span class="Constant">3</span> +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">break-if-!=</span> +<span id="L71" class="LineNr"> 71 </span> result <span class="Special"><-</span> and <span class="Constant">0x0f</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> compare len, <span class="Constant">4</span> +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">break-if-!=</span> +<span id="L76" class="LineNr"> 76 </span> result <span class="Special"><-</span> and <span class="Constant">0x07</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Delimiter">}</span> +<span id="L78" class="LineNr"> 78 </span> <span class="muComment"># extract bits from remaining bytes</span> +<span id="L79" class="LineNr"> 79 </span> g <span class="Special"><-</span> shift-right <span class="Constant">8</span> +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> i/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">{</span> +<span id="L82" class="LineNr"> 82 </span> compare i, len +<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> b/eax: byte <span class="Special"><-</span> copy-byte g +<span id="L85" class="LineNr"> 85 </span> b <span class="Special"><-</span> and <span class="Constant">0x3f</span> +<span id="L86" class="LineNr"> 86 </span> result <span class="Special"><-</span> shift-left <span class="Constant">6</span> +<span id="L87" class="LineNr"> 87 </span> result <span class="Special"><-</span> or b +<span id="L88" class="LineNr"> 88 </span> g <span class="Special"><-</span> shift-right <span class="Constant">8</span> +<span id="L89" class="LineNr"> 89 </span> i <span class="Special"><-</span> increment +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">loop</span> +<span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">}</span> +<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="muComment"># transliterated from tb_utf8_unicode_to_char in <a href="https://github.com/nsf/termbox">https://github.com/nsf/termbox</a></span> +<span id="L96" class="LineNr"> 96 </span><span class="muComment"># <a href="https://wiki.tcl-lang.org/page/UTF%2D8+bit+by+bit">https://wiki.tcl-lang.org/page/UTF%2D8+bit+by+bit</a> explains the algorithm</span> +<span id="L97" class="LineNr"> 97 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L97'>to-utf8</a></span> in: code-point<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> c/eax: int <span class="Special"><-</span> copy in +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> num-trailers/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> first/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L101" class="LineNr">101 </span> $to-utf8:compute-length: <span class="Delimiter">{</span> +<span id="L102" class="LineNr">102 </span> <span class="muComment"># single byte: just return it</span> +<span id="L103" class="LineNr">103 </span> compare c, <span class="Constant">0x7f</span> +<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> g/eax: code-point-utf8 <span class="Special"><-</span> copy c +<span id="L107" class="LineNr">107 </span> <span class="PreProc">return</span> g +<span id="L108" class="LineNr">108 </span> <span class="Delimiter">}</span> +<span id="L109" class="LineNr">109 </span> <span class="muComment"># 2 bytes</span> +<span id="L110" class="LineNr">110 </span> compare c, <span class="Constant">0x7ff</span> <span id="L111" class="LineNr">111 </span> <span class="Delimiter">{</span> <span id="L112" class="LineNr">112 </span> <span class="PreProc">break-if-></span> -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy c -<span id="L114" class="LineNr">114 </span> <span class="PreProc">return</span> g -<span id="L115" class="LineNr">115 </span> <span class="Delimiter">}</span> -<span id="L116" class="LineNr">116 </span> <span class="muComment"># 2 bytes</span> -<span id="L117" class="LineNr">117 </span> compare c, <span class="Constant">0x7ff</span> -<span id="L118" class="LineNr">118 </span> <span class="Delimiter">{</span> -<span id="L119" class="LineNr">119 </span> <span class="PreProc">break-if-></span> -<span id="L120" class="LineNr">120 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L121" class="LineNr">121 </span> first <span class="Special"><-</span> copy <span class="Constant">0xc0</span> -<span id="L122" class="LineNr">122 </span> <span class="PreProc">break</span> $to-grapheme:compute-length -<span id="L123" class="LineNr">123 </span> <span class="Delimiter">}</span> -<span id="L124" class="LineNr">124 </span> <span class="muComment"># 3 bytes</span> -<span id="L125" class="LineNr">125 </span> compare c, <span class="Constant">0xffff</span> -<span id="L126" class="LineNr">126 </span> <span class="Delimiter">{</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">break-if-></span> -<span id="L128" class="LineNr">128 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">2</span> -<span id="L129" class="LineNr">129 </span> first <span class="Special"><-</span> copy <span class="Constant">0xe0</span> -<span id="L130" class="LineNr">130 </span> <span class="PreProc">break</span> $to-grapheme:compute-length -<span id="L131" class="LineNr">131 </span> <span class="Delimiter">}</span> -<span id="L132" class="LineNr">132 </span> <span class="muComment"># 4 bytes</span> -<span id="L133" class="LineNr">133 </span> compare c, <span class="Constant">0x1fffff</span> -<span id="L134" class="LineNr">134 </span> <span class="Delimiter">{</span> -<span id="L135" class="LineNr">135 </span> <span class="PreProc">break-if-></span> -<span id="L136" class="LineNr">136 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">3</span> -<span id="L137" class="LineNr">137 </span> first <span class="Special"><-</span> copy <span class="Constant">0xf0</span> -<span id="L138" class="LineNr">138 </span> <span class="PreProc">break</span> $to-grapheme:compute-length +<span id="L113" class="LineNr">113 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L114" class="LineNr">114 </span> first <span class="Special"><-</span> copy <span class="Constant">0xc0</span> +<span id="L115" class="LineNr">115 </span> <span class="PreProc">break</span> $to-utf8:compute-length +<span id="L116" class="LineNr">116 </span> <span class="Delimiter">}</span> +<span id="L117" class="LineNr">117 </span> <span class="muComment"># 3 bytes</span> +<span id="L118" class="LineNr">118 </span> compare c, <span class="Constant">0xffff</span> +<span id="L119" class="LineNr">119 </span> <span class="Delimiter">{</span> +<span id="L120" class="LineNr">120 </span> <span class="PreProc">break-if-></span> +<span id="L121" class="LineNr">121 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L122" class="LineNr">122 </span> first <span class="Special"><-</span> copy <span class="Constant">0xe0</span> +<span id="L123" class="LineNr">123 </span> <span class="PreProc">break</span> $to-utf8:compute-length +<span id="L124" class="LineNr">124 </span> <span class="Delimiter">}</span> +<span id="L125" class="LineNr">125 </span> <span class="muComment"># 4 bytes</span> +<span id="L126" class="LineNr">126 </span> compare c, <span class="Constant">0x1fffff</span> +<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> num-trailers <span class="Special"><-</span> copy <span class="Constant">3</span> +<span id="L130" class="LineNr">130 </span> first <span class="Special"><-</span> copy <span class="Constant">0xf0</span> +<span id="L131" class="LineNr">131 </span> <span class="PreProc">break</span> $to-utf8:compute-length +<span id="L132" class="LineNr">132 </span> <span class="Delimiter">}</span> +<span id="L133" class="LineNr">133 </span> <span class="muComment"># more than 4 bytes: unsupported</span> +<span id="L134" class="LineNr">134 </span> compare c, <span class="Constant">0x1fffff</span> +<span id="L135" class="LineNr">135 </span> <span class="Delimiter">{</span> +<span id="L136" class="LineNr">136 </span> <span class="PreProc">break-if-></span> +<span id="L137" class="LineNr">137 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"unsupported code point"</span> +<span id="L138" class="LineNr">138 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L139" class="LineNr">139 </span> <span class="Delimiter">}</span> -<span id="L140" class="LineNr">140 </span> <span class="muComment"># more than 4 bytes: unsupported</span> -<span id="L141" class="LineNr">141 </span> <span class="muComment"># TODO: print error message to stderr</span> -<span id="L142" class="LineNr">142 </span> compare c, <span class="Constant">0x1fffff</span> -<span id="L143" class="LineNr">143 </span> <span class="Delimiter">{</span> -<span id="L144" class="LineNr">144 </span> <span class="PreProc">break-if-></span> -<span id="L145" class="LineNr">145 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L146" class="LineNr">146 </span> <span class="Delimiter">}</span> -<span id="L147" class="LineNr">147 </span> <span class="Delimiter">}</span> -<span id="L148" class="LineNr">148 </span> <span class="muComment"># emit trailer bytes, 6 bits from 'in', first two bits '10'</span> -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> result/<span class="muRegEdi">edi</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L150" class="LineNr">150 </span> <span class="Delimiter">{</span> -<span id="L151" class="LineNr">151 </span> compare num-trailers, <span class="Constant">0</span> -<span id="L152" class="LineNr">152 </span> <span class="PreProc">break-if-<=</span> -<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> tmp/<span class="muRegEsi">esi</span>: int <span class="Special"><-</span> copy c -<span id="L154" class="LineNr">154 </span> tmp <span class="Special"><-</span> and <span class="Constant">0x3f</span> -<span id="L155" class="LineNr">155 </span> tmp <span class="Special"><-</span> or <span class="Constant">0x80</span> -<span id="L156" class="LineNr">156 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> -<span id="L157" class="LineNr">157 </span> result <span class="Special"><-</span> or tmp -<span id="L158" class="LineNr">158 </span> <span class="muComment"># update loop state</span> -<span id="L159" class="LineNr">159 </span> c <span class="Special"><-</span> shift-right <span class="Constant">6</span> -<span id="L160" class="LineNr">160 </span> num-trailers <span class="Special"><-</span> decrement -<span id="L161" class="LineNr">161 </span> <span class="PreProc">loop</span> -<span id="L162" class="LineNr">162 </span> <span class="Delimiter">}</span> -<span id="L163" class="LineNr">163 </span> <span class="muComment"># emit engine</span> -<span id="L164" class="LineNr">164 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> -<span id="L165" class="LineNr">165 </span> result <span class="Special"><-</span> or c -<span id="L166" class="LineNr">166 </span> result <span class="Special"><-</span> or first -<span id="L167" class="LineNr">167 </span> <span class="muComment">#</span> -<span id="L168" class="LineNr">168 </span> <span class="PreProc">return</span> result -<span id="L169" class="LineNr">169 </span><span class="Delimiter">}</span> -<span id="L170" class="LineNr">170 </span> -<span id="L171" class="LineNr">171 </span><span class="muComment"># single-byte code point have identical graphemes</span> -<span id="L172" class="LineNr">172 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L172'>test-to-grapheme-single-byte</a></span> <span class="Delimiter">{</span> -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> in-int/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L174" class="LineNr">174 </span> <span class="Delimiter">{</span> -<span id="L175" class="LineNr">175 </span> compare in-int, <span class="Constant">0x7f</span> -<span id="L176" class="LineNr">176 </span> <span class="PreProc">break-if-></span> -<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy in-int -<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> out/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L104'>to-grapheme</a> in -<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out -<span id="L180" class="LineNr">180 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> out-int, in-int, <span class="Constant">"F - test-to-grapheme-single-byte"</span> -<span id="L181" class="LineNr">181 </span> in-int <span class="Special"><-</span> increment -<span id="L182" class="LineNr">182 </span> <span class="PreProc">loop</span> -<span id="L183" class="LineNr">183 </span> <span class="Delimiter">}</span> -<span id="L184" class="LineNr">184 </span><span class="Delimiter">}</span> -<span id="L185" class="LineNr">185 </span> -<span id="L186" class="LineNr">186 </span> <span class="muComment"># byte | byte | byte | byte</span> -<span id="L187" class="LineNr">187 </span><span class="muComment"># smallest 2-byte utf-8</span> -<span id="L188" class="LineNr">188 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L188'>test-to-grapheme-two-bytes-min</a></span> <span class="Delimiter">{</span> -<span id="L189" class="LineNr">189 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x80</span> <span class="muComment"># 10 00-0000</span> -<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> out/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L104'>to-grapheme</a> in -<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out -<span id="L192" class="LineNr">192 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> out-int, <span class="Constant">0x80c2</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L104'>to-grapheme</a>/2a"</span> <span class="muComment"># 110 0-0010 10 00-0000</span> -<span id="L193" class="LineNr">193 </span><span class="Delimiter">}</span> -<span id="L194" class="LineNr">194 </span> -<span id="L195" class="LineNr">195 </span><span class="muComment"># largest 2-byte utf-8</span> -<span id="L196" class="LineNr">196 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L196'>test-to-grapheme-two-bytes-max</a></span> <span class="Delimiter">{</span> -<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x7ff</span> <span class="muComment"># 1-1111 11-1111</span> -<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> out/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L104'>to-grapheme</a> in -<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out -<span id="L200" class="LineNr">200 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> out-int, <span class="Constant">0xbfdf</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L104'>to-grapheme</a>/2b"</span> <span class="muComment"># 110 1-1111 10 11-1111</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="muComment"># smallest 3-byte utf-8</span> -<span id="L204" class="LineNr">204 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L204'>test-to-grapheme-three-bytes-min</a></span> <span class="Delimiter">{</span> -<span id="L205" class="LineNr">205 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x800</span> <span class="muComment"># 10-0000 00-0000</span> -<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> out/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L104'>to-grapheme</a> in -<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out -<span id="L208" class="LineNr">208 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> out-int, <span class="Constant">0x80a0e0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L104'>to-grapheme</a>/3a"</span> <span class="muComment"># 1110 0000 10 10-0000 10 00-0000</span> -<span id="L209" class="LineNr">209 </span><span class="Delimiter">}</span> -<span id="L210" class="LineNr">210 </span> -<span id="L211" class="LineNr">211 </span><span class="muComment"># largest 3-byte utf-8</span> -<span id="L212" class="LineNr">212 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L212'>test-to-grapheme-three-bytes-max</a></span> <span class="Delimiter">{</span> -<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0xffff</span> <span class="muComment"># 1111 11-1111 11-1111</span> -<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> out/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L104'>to-grapheme</a> in -<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out -<span id="L216" class="LineNr">216 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> out-int, <span class="Constant">0xbfbfef</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L104'>to-grapheme</a>/3b"</span> <span class="muComment"># 1110 1111 10 11-1111 10 11-1111</span> -<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="muComment"># smallest 4-byte utf-8</span> -<span id="L220" class="LineNr">220 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L220'>test-to-grapheme-four-bytes-min</a></span> <span class="Delimiter">{</span> -<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x10000</span> <span class="muComment"># 1-0000 00-0000 00-0000</span> -<span id="L222" class="LineNr">222 </span> <span class="PreProc">var</span> out/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L104'>to-grapheme</a> in -<span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out -<span id="L224" class="LineNr">224 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> out-int, <span class="Constant">0x808090f0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L104'>to-grapheme</a>/4a"</span> <span class="muComment"># 1111-0 000 10 01-0000 10 00-0000 10 00-0000</span> -<span id="L225" class="LineNr">225 </span><span class="Delimiter">}</span> -<span id="L226" class="LineNr">226 </span> -<span id="L227" class="LineNr">227 </span><span class="muComment"># largest 4-byte utf-8</span> -<span id="L228" class="LineNr">228 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L228'>test-to-grapheme-four-bytes-max</a></span> <span class="Delimiter">{</span> -<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x1fffff</span> <span class="muComment"># 111 11-1111 11-1111 11-1111</span> -<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> out/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L104'>to-grapheme</a> in -<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out -<span id="L232" class="LineNr">232 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> out-int, <span class="Constant">0xbfbfbff7</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L104'>to-grapheme</a>/4b"</span> <span class="muComment"># 1111-0 111 10 11-1111 10 11-1111 10 11-1111</span> -<span id="L233" class="LineNr">233 </span><span class="Delimiter">}</span> -<span id="L234" class="LineNr">234 </span> -<span id="L235" class="LineNr">235 </span><span class="muComment"># read the next grapheme from a stream of bytes</span> -<span id="L236" class="LineNr">236 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L236'>read-grapheme</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> -<span id="L237" class="LineNr">237 </span> <span class="muComment"># if at eof, return EOF</span> -<span id="L238" class="LineNr">238 </span> <span class="Delimiter">{</span> -<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> eof?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> in -<span id="L240" class="LineNr">240 </span> compare eof?, <span class="Constant">0</span>/false -<span id="L241" class="LineNr">241 </span> <span class="PreProc">break-if-=</span> -<span id="L242" class="LineNr">242 </span> <span class="PreProc">return</span> <span class="Constant">0xffffffff</span> -<span id="L243" class="LineNr">243 </span> <span class="Delimiter">}</span> -<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> c/eax: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in -<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> num-trailers/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L246" class="LineNr">246 </span> $read-grapheme:compute-length: <span class="Delimiter">{</span> -<span id="L247" class="LineNr">247 </span> <span class="muComment"># single byte: just return it</span> -<span id="L248" class="LineNr">248 </span> compare c, <span class="Constant">0xc0</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">var</span> g/eax: grapheme <span class="Special"><-</span> copy c -<span id="L252" class="LineNr">252 </span> <span class="PreProc">return</span> g -<span id="L253" class="LineNr">253 </span> <span class="Delimiter">}</span> -<span id="L254" class="LineNr">254 </span> compare c, <span class="Constant">0xfe</span> +<span id="L140" class="LineNr">140 </span> <span class="Delimiter">}</span> +<span id="L141" class="LineNr">141 </span> <span class="muComment"># emit trailer bytes, 6 bits from 'in', first two bits '10'</span> +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> result/<span class="muRegEdi">edi</span>: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L143" class="LineNr">143 </span> <span class="Delimiter">{</span> +<span id="L144" class="LineNr">144 </span> compare num-trailers, <span class="Constant">0</span> +<span id="L145" class="LineNr">145 </span> <span class="PreProc">break-if-<=</span> +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> tmp/<span class="muRegEsi">esi</span>: int <span class="Special"><-</span> copy c +<span id="L147" class="LineNr">147 </span> tmp <span class="Special"><-</span> and <span class="Constant">0x3f</span> +<span id="L148" class="LineNr">148 </span> tmp <span class="Special"><-</span> or <span class="Constant">0x80</span> +<span id="L149" class="LineNr">149 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> +<span id="L150" class="LineNr">150 </span> result <span class="Special"><-</span> or tmp +<span id="L151" class="LineNr">151 </span> <span class="muComment"># update loop state</span> +<span id="L152" class="LineNr">152 </span> c <span class="Special"><-</span> shift-right <span class="Constant">6</span> +<span id="L153" class="LineNr">153 </span> num-trailers <span class="Special"><-</span> decrement +<span id="L154" class="LineNr">154 </span> <span class="PreProc">loop</span> +<span id="L155" class="LineNr">155 </span> <span class="Delimiter">}</span> +<span id="L156" class="LineNr">156 </span> <span class="muComment"># emit engine</span> +<span id="L157" class="LineNr">157 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> +<span id="L158" class="LineNr">158 </span> result <span class="Special"><-</span> or c +<span id="L159" class="LineNr">159 </span> result <span class="Special"><-</span> or first +<span id="L160" class="LineNr">160 </span> <span class="muComment">#</span> +<span id="L161" class="LineNr">161 </span> <span class="PreProc">return</span> result +<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="muComment"># single-byte code point have identical code-point-utf8s</span> +<span id="L165" class="LineNr">165 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L165'>test-to-utf8-single-byte</a></span> <span class="Delimiter">{</span> +<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> in-int/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L167" class="LineNr">167 </span> <span class="Delimiter">{</span> +<span id="L168" class="LineNr">168 </span> compare in-int, <span class="Constant">0x7f</span> +<span id="L169" class="LineNr">169 </span> <span class="PreProc">break-if-></span> +<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy in-int +<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> out/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L97'>to-utf8</a> in +<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out +<span id="L173" class="LineNr">173 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> out-int, in-int, <span class="Constant">"F - test-to-utf8-single-byte"</span> +<span id="L174" class="LineNr">174 </span> in-int <span class="Special"><-</span> increment +<span id="L175" class="LineNr">175 </span> <span class="PreProc">loop</span> +<span id="L176" class="LineNr">176 </span> <span class="Delimiter">}</span> +<span id="L177" class="LineNr">177 </span><span class="Delimiter">}</span> +<span id="L178" class="LineNr">178 </span> +<span id="L179" class="LineNr">179 </span> <span class="muComment"># byte | byte | byte | byte</span> +<span id="L180" class="LineNr">180 </span><span class="muComment"># smallest 2-byte utf-8</span> +<span id="L181" class="LineNr">181 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L181'>test-to-utf8-two-bytes-min</a></span> <span class="Delimiter">{</span> +<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x80</span> <span class="muComment"># 10 00-0000</span> +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> out/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L97'>to-utf8</a> in +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out +<span id="L185" class="LineNr">185 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> out-int, <span class="Constant">0x80c2</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L97'>to-utf8</a>/2a"</span> <span class="muComment"># 110 0-0010 10 00-0000</span> +<span id="L186" class="LineNr">186 </span><span class="Delimiter">}</span> +<span id="L187" class="LineNr">187 </span> +<span id="L188" class="LineNr">188 </span><span class="muComment"># largest 2-byte utf-8</span> +<span id="L189" class="LineNr">189 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L189'>test-to-utf8-two-bytes-max</a></span> <span class="Delimiter">{</span> +<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x7ff</span> <span class="muComment"># 1-1111 11-1111</span> +<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> out/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L97'>to-utf8</a> in +<span id="L192" class="LineNr">192 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out +<span id="L193" class="LineNr">193 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> out-int, <span class="Constant">0xbfdf</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L97'>to-utf8</a>/2b"</span> <span class="muComment"># 110 1-1111 10 11-1111</span> +<span id="L194" class="LineNr">194 </span><span class="Delimiter">}</span> +<span id="L195" class="LineNr">195 </span> +<span id="L196" class="LineNr">196 </span><span class="muComment"># smallest 3-byte utf-8</span> +<span id="L197" class="LineNr">197 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L197'>test-to-utf8-three-bytes-min</a></span> <span class="Delimiter">{</span> +<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x800</span> <span class="muComment"># 10-0000 00-0000</span> +<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> out/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L97'>to-utf8</a> in +<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out +<span id="L201" class="LineNr">201 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> out-int, <span class="Constant">0x80a0e0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L97'>to-utf8</a>/3a"</span> <span class="muComment"># 1110 0000 10 10-0000 10 00-0000</span> +<span id="L202" class="LineNr">202 </span><span class="Delimiter">}</span> +<span id="L203" class="LineNr">203 </span> +<span id="L204" class="LineNr">204 </span><span class="muComment"># largest 3-byte utf-8</span> +<span id="L205" class="LineNr">205 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L205'>test-to-utf8-three-bytes-max</a></span> <span class="Delimiter">{</span> +<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0xffff</span> <span class="muComment"># 1111 11-1111 11-1111</span> +<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> out/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L97'>to-utf8</a> in +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out +<span id="L209" class="LineNr">209 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> out-int, <span class="Constant">0xbfbfef</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L97'>to-utf8</a>/3b"</span> <span class="muComment"># 1110 1111 10 11-1111 10 11-1111</span> +<span id="L210" class="LineNr">210 </span><span class="Delimiter">}</span> +<span id="L211" class="LineNr">211 </span> +<span id="L212" class="LineNr">212 </span><span class="muComment"># smallest 4-byte utf-8</span> +<span id="L213" class="LineNr">213 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L213'>test-to-utf8-four-bytes-min</a></span> <span class="Delimiter">{</span> +<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x10000</span> <span class="muComment"># 1-0000 00-0000 00-0000</span> +<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> out/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L97'>to-utf8</a> in +<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out +<span id="L217" class="LineNr">217 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> out-int, <span class="Constant">0x808090f0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L97'>to-utf8</a>/4a"</span> <span class="muComment"># 1111-0 000 10 01-0000 10 00-0000 10 00-0000</span> +<span id="L218" class="LineNr">218 </span><span class="Delimiter">}</span> +<span id="L219" class="LineNr">219 </span> +<span id="L220" class="LineNr">220 </span><span class="muComment"># largest 4-byte utf-8</span> +<span id="L221" class="LineNr">221 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L221'>test-to-utf8-four-bytes-max</a></span> <span class="Delimiter">{</span> +<span id="L222" class="LineNr">222 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x1fffff</span> <span class="muComment"># 111 11-1111 11-1111 11-1111</span> +<span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> out/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L97'>to-utf8</a> in +<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out +<span id="L225" class="LineNr">225 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> out-int, <span class="Constant">0xbfbfbff7</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L97'>to-utf8</a>/4b"</span> <span class="muComment"># 1111-0 111 10 11-1111 10 11-1111 10 11-1111</span> +<span id="L226" class="LineNr">226 </span><span class="Delimiter">}</span> +<span id="L227" class="LineNr">227 </span> +<span id="L228" class="LineNr">228 </span><span class="muComment"># read the next code-point-utf8 from a stream of bytes</span> +<span id="L229" class="LineNr">229 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L229'>read-code-point-utf8</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> +<span id="L230" class="LineNr">230 </span> <span class="muComment"># if at eof, return EOF</span> +<span id="L231" class="LineNr">231 </span> <span class="Delimiter">{</span> +<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> eof?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> in +<span id="L233" class="LineNr">233 </span> compare eof?, <span class="Constant">0</span>/false +<span id="L234" class="LineNr">234 </span> <span class="PreProc">break-if-=</span> +<span id="L235" class="LineNr">235 </span> <span class="PreProc">return</span> <span class="Constant">0xffffffff</span> +<span id="L236" class="LineNr">236 </span> <span class="Delimiter">}</span> +<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> c/eax: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in +<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> num-trailers/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L239" class="LineNr">239 </span> $read-code-point-utf8:compute-length: <span class="Delimiter">{</span> +<span id="L240" class="LineNr">240 </span> <span class="muComment"># single byte: just return it</span> +<span id="L241" class="LineNr">241 </span> compare c, <span class="Constant">0xc0</span> +<span id="L242" class="LineNr">242 </span> <span class="Delimiter">{</span> +<span id="L243" class="LineNr">243 </span> <span class="PreProc">break-if->=</span> +<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy c +<span id="L245" class="LineNr">245 </span> <span class="PreProc">return</span> g +<span id="L246" class="LineNr">246 </span> <span class="Delimiter">}</span> +<span id="L247" class="LineNr">247 </span> compare c, <span class="Constant">0xfe</span> +<span id="L248" class="LineNr">248 </span> <span class="Delimiter">{</span> +<span id="L249" class="LineNr">249 </span> <span class="PreProc">break-if-<</span> +<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy c +<span id="L251" class="LineNr">251 </span> <span class="PreProc">return</span> g +<span id="L252" class="LineNr">252 </span> <span class="Delimiter">}</span> +<span id="L253" class="LineNr">253 </span> <span class="muComment"># 2 bytes</span> +<span id="L254" class="LineNr">254 </span> compare c, <span class="Constant">0xe0</span> <span id="L255" class="LineNr">255 </span> <span class="Delimiter">{</span> -<span id="L256" class="LineNr">256 </span> <span class="PreProc">break-if-<</span> -<span id="L257" class="LineNr">257 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy c -<span id="L258" class="LineNr">258 </span> <span class="PreProc">return</span> g +<span id="L256" class="LineNr">256 </span> <span class="PreProc">break-if->=</span> +<span id="L257" class="LineNr">257 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L258" class="LineNr">258 </span> <span class="PreProc">break</span> $read-code-point-utf8:compute-length <span id="L259" class="LineNr">259 </span> <span class="Delimiter">}</span> -<span id="L260" class="LineNr">260 </span> <span class="muComment"># 2 bytes</span> -<span id="L261" class="LineNr">261 </span> compare c, <span class="Constant">0xe0</span> +<span id="L260" class="LineNr">260 </span> <span class="muComment"># 3 bytes</span> +<span id="L261" class="LineNr">261 </span> compare c, <span class="Constant">0xf0</span> <span id="L262" class="LineNr">262 </span> <span class="Delimiter">{</span> <span id="L263" class="LineNr">263 </span> <span class="PreProc">break-if->=</span> -<span id="L264" class="LineNr">264 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L265" class="LineNr">265 </span> <span class="PreProc">break</span> $read-grapheme:compute-length +<span id="L264" class="LineNr">264 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L265" class="LineNr">265 </span> <span class="PreProc">break</span> $read-code-point-utf8:compute-length <span id="L266" class="LineNr">266 </span> <span class="Delimiter">}</span> -<span id="L267" class="LineNr">267 </span> <span class="muComment"># 3 bytes</span> -<span id="L268" class="LineNr">268 </span> compare c, <span class="Constant">0xf0</span> +<span id="L267" class="LineNr">267 </span> <span class="muComment"># 4 bytes</span> +<span id="L268" class="LineNr">268 </span> compare c, <span class="Constant">0xf8</span> <span id="L269" class="LineNr">269 </span> <span class="Delimiter">{</span> <span id="L270" class="LineNr">270 </span> <span class="PreProc">break-if->=</span> -<span id="L271" class="LineNr">271 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">2</span> -<span id="L272" class="LineNr">272 </span> <span class="PreProc">break</span> $read-grapheme:compute-length +<span id="L271" class="LineNr">271 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">3</span> +<span id="L272" class="LineNr">272 </span> <span class="PreProc">break</span> $read-code-point-utf8:compute-length <span id="L273" class="LineNr">273 </span> <span class="Delimiter">}</span> -<span id="L274" class="LineNr">274 </span> <span class="muComment"># 4 bytes</span> -<span id="L275" class="LineNr">275 </span> compare c, <span class="Constant">0xf8</span> -<span id="L276" class="LineNr">276 </span> <span class="Delimiter">{</span> -<span id="L277" class="LineNr">277 </span> <span class="PreProc">break-if->=</span> -<span id="L278" class="LineNr">278 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">3</span> -<span id="L279" class="LineNr">279 </span> <span class="PreProc">break</span> $read-grapheme:compute-length -<span id="L280" class="LineNr">280 </span> <span class="Delimiter">}</span> -<span id="L281" class="LineNr">281 </span> <span class="muComment"># TODO: print error message</span> -<span id="L282" class="LineNr">282 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L283" class="LineNr">283 </span> <span class="Delimiter">}</span> -<span id="L284" class="LineNr">284 </span> <span class="muComment"># prepend trailer bytes</span> -<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> result/<span class="muRegEdi">edi</span>: grapheme <span class="Special"><-</span> copy c -<span id="L286" class="LineNr">286 </span> <span class="PreProc">var</span> num-byte-shifts/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L287" class="LineNr">287 </span> <span class="Delimiter">{</span> -<span id="L288" class="LineNr">288 </span> compare num-trailers, <span class="Constant">0</span> -<span id="L289" class="LineNr">289 </span> <span class="PreProc">break-if-<=</span> -<span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> tmp/eax: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in -<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> tmp2/eax: int <span class="Special"><-</span> copy tmp -<span id="L292" class="LineNr">292 </span> tmp2 <span class="Special"><-</span> <a href='403unicode.mu.html#L322'>shift-left-bytes</a> tmp2, num-byte-shifts -<span id="L293" class="LineNr">293 </span> result <span class="Special"><-</span> or tmp2 -<span id="L294" class="LineNr">294 </span> <span class="muComment"># update loop state</span> -<span id="L295" class="LineNr">295 </span> num-byte-shifts <span class="Special"><-</span> increment -<span id="L296" class="LineNr">296 </span> num-trailers <span class="Special"><-</span> decrement -<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">return</span> result -<span id="L300" class="LineNr">300 </span><span class="Delimiter">}</span> -<span id="L301" class="LineNr">301 </span> -<span id="L302" class="LineNr">302 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L302'>grapheme-length</a></span> g: grapheme<span class="PreProc"> -> </span>_/<span class="muRegEdx">edx</span>: int <span class="Delimiter">{</span> -<span id="L303" class="LineNr">303 </span> <span class="Delimiter">{</span> -<span id="L304" class="LineNr">304 </span> compare g, <span class="Constant">0xff</span> -<span id="L305" class="LineNr">305 </span> <span class="PreProc">break-if-></span> -<span id="L306" class="LineNr">306 </span> <span class="PreProc">return</span> <span class="Constant">1</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> compare g, <span class="Constant">0xffff</span> -<span id="L310" class="LineNr">310 </span> <span class="PreProc">break-if-></span> -<span id="L311" class="LineNr">311 </span> <span class="PreProc">return</span> <span class="Constant">2</span> -<span id="L312" class="LineNr">312 </span> <span class="Delimiter">}</span> -<span id="L313" class="LineNr">313 </span> <span class="Delimiter">{</span> -<span id="L314" class="LineNr">314 </span> compare g, <span class="Constant">0xffffff</span> -<span id="L315" class="LineNr">315 </span> <span class="PreProc">break-if-></span> -<span id="L316" class="LineNr">316 </span> <span class="PreProc">return</span> <span class="Constant">3</span> -<span id="L317" class="LineNr">317 </span> <span class="Delimiter">}</span> -<span id="L318" class="LineNr">318 </span> <span class="PreProc">return</span> <span class="Constant">4</span> -<span id="L319" class="LineNr">319 </span><span class="Delimiter">}</span> -<span id="L320" class="LineNr">320 </span> -<span id="L321" class="LineNr">321 </span><span class="muComment"># needed because available primitives only shift by a literal/constant number of bits</span> -<span id="L322" class="LineNr">322 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L322'>shift-left-bytes</a></span> n: int, k: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> i/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> copy n -<span id="L325" class="LineNr">325 </span> <span class="Delimiter">{</span> -<span id="L326" class="LineNr">326 </span> compare i, k -<span id="L327" class="LineNr">327 </span> <span class="PreProc">break-if->=</span> -<span id="L328" class="LineNr">328 </span> compare i, <span class="Constant">4</span> <span class="muComment"># only 4 bytes in 32 bits</span> -<span id="L329" class="LineNr">329 </span> <span class="PreProc">break-if->=</span> -<span id="L330" class="LineNr">330 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> -<span id="L331" class="LineNr">331 </span> i <span class="Special"><-</span> increment -<span id="L332" class="LineNr">332 </span> <span class="PreProc">loop</span> -<span id="L333" class="LineNr">333 </span> <span class="Delimiter">}</span> -<span id="L334" class="LineNr">334 </span> <span class="PreProc">return</span> result -<span id="L335" class="LineNr">335 </span><span class="Delimiter">}</span> -<span id="L336" class="LineNr">336 </span> -<span id="L337" class="LineNr">337 </span><span class="muComment"># write a grapheme to a stream of bytes</span> -<span id="L338" class="LineNr">338 </span><span class="muComment"># this is like write-to-stream, except we skip leading 0 bytes</span> -<span id="L339" class="LineNr">339 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L339'>write-grapheme</a></span> out: (addr stream byte), g: grapheme <span class="Delimiter">{</span> -<span id="L340" class="LineNr">340 </span>$write-grapheme:body: <span class="Delimiter">{</span> -<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> c/eax: int <span class="Special"><-</span> copy g -<span id="L342" class="LineNr">342 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c <span class="muComment"># first byte is always written</span> -<span id="L343" class="LineNr">343 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> -<span id="L344" class="LineNr">344 </span> compare c, <span class="Constant">0</span> -<span id="L345" class="LineNr">345 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body -<span id="L346" class="LineNr">346 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c -<span id="L347" class="LineNr">347 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> -<span id="L348" class="LineNr">348 </span> compare c, <span class="Constant">0</span> -<span id="L349" class="LineNr">349 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body -<span id="L350" class="LineNr">350 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c -<span id="L351" class="LineNr">351 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> -<span id="L352" class="LineNr">352 </span> compare c, <span class="Constant">0</span> -<span id="L353" class="LineNr">353 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body -<span id="L354" class="LineNr">354 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c +<span id="L274" class="LineNr">274 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"utf-8 encodings larger than 4 bytes are not yet supported"</span> +<span id="L275" class="LineNr">275 </span> <span class="PreProc">return</span> <span class="Constant">0</span> +<span id="L276" class="LineNr">276 </span> <span class="Delimiter">}</span> +<span id="L277" class="LineNr">277 </span> <span class="muComment"># prepend trailer bytes</span> +<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> result/<span class="muRegEdi">edi</span>: code-point-utf8 <span class="Special"><-</span> copy c +<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> num-byte-shifts/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L280" class="LineNr">280 </span> <span class="Delimiter">{</span> +<span id="L281" class="LineNr">281 </span> compare num-trailers, <span class="Constant">0</span> +<span id="L282" class="LineNr">282 </span> <span class="PreProc">break-if-<=</span> +<span id="L283" class="LineNr">283 </span> <span class="PreProc">var</span> tmp/eax: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in +<span id="L284" class="LineNr">284 </span> <span class="PreProc">var</span> tmp2/eax: int <span class="Special"><-</span> copy tmp +<span id="L285" class="LineNr">285 </span> tmp2 <span class="Special"><-</span> <a href='403unicode.mu.html#L342'>shift-left-bytes</a> tmp2, num-byte-shifts +<span id="L286" class="LineNr">286 </span> result <span class="Special"><-</span> or tmp2 +<span id="L287" class="LineNr">287 </span> <span class="muComment"># update loop state</span> +<span id="L288" class="LineNr">288 </span> num-byte-shifts <span class="Special"><-</span> increment +<span id="L289" class="LineNr">289 </span> num-trailers <span class="Special"><-</span> decrement +<span id="L290" class="LineNr">290 </span> <span class="PreProc">loop</span> +<span id="L291" class="LineNr">291 </span> <span class="Delimiter">}</span> +<span id="L292" class="LineNr">292 </span> <span class="PreProc">return</span> result +<span id="L293" class="LineNr">293 </span><span class="Delimiter">}</span> +<span id="L294" class="LineNr">294 </span> +<span id="L295" class="LineNr">295 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L295'>test-read-code-point-utf8</a></span> <span class="Delimiter">{</span> +<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x30</span>) +<span id="L297" class="LineNr">297 </span> <span class="PreProc">var</span> s2/<span class="muRegEcx">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s +<span id="L298" class="LineNr">298 </span> <a href='108write.subx.html#L11'>write</a> s2, <span class="Constant">"aΒc世d界e"</span> +<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> s2 +<span id="L300" class="LineNr">300 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c +<span id="L301" class="LineNr">301 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> n, <span class="Constant">0x61</span>, <span class="Constant">"F - test code-point-utf8/0"</span> +<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> s2 +<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c +<span id="L304" class="LineNr">304 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> n, <span class="Constant">0x92ce</span>/greek-capital-letter-beta, <span class="Constant">"F - test code-point-utf8/1"</span> +<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> s2 +<span id="L306" class="LineNr">306 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c +<span id="L307" class="LineNr">307 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> n, <span class="Constant">0x63</span>, <span class="Constant">"F - test code-point-utf8/2"</span> +<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> s2 +<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c +<span id="L310" class="LineNr">310 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> n, <span class="Constant">0x96b8e4</span>, <span class="Constant">"F - test code-point-utf8/3"</span> +<span id="L311" class="LineNr">311 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> s2 +<span id="L312" class="LineNr">312 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c +<span id="L313" class="LineNr">313 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> n, <span class="Constant">0x64</span>, <span class="Constant">"F - test code-point-utf8/4"</span> +<span id="L314" class="LineNr">314 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> s2 +<span id="L315" class="LineNr">315 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c +<span id="L316" class="LineNr">316 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> n, <span class="Constant">0x8c95e7</span>, <span class="Constant">"F - test code-point-utf8/5"</span> +<span id="L317" class="LineNr">317 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> s2 +<span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c +<span id="L319" class="LineNr">319 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> n, <span class="Constant">0x65</span>, <span class="Constant">"F - test code-point-utf8/6"</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="muFunction"><a href='403unicode.mu.html#L322'>utf8-length</a></span> g: code-point-utf8<span class="PreProc"> -> </span>_/<span class="muRegEdx">edx</span>: int <span class="Delimiter">{</span> +<span id="L323" class="LineNr">323 </span> <span class="Delimiter">{</span> +<span id="L324" class="LineNr">324 </span> compare g, <span class="Constant">0xff</span> +<span id="L325" class="LineNr">325 </span> <span class="PreProc">break-if-></span> +<span id="L326" class="LineNr">326 </span> <span class="PreProc">return</span> <span class="Constant">1</span> +<span id="L327" class="LineNr">327 </span> <span class="Delimiter">}</span> +<span id="L328" class="LineNr">328 </span> <span class="Delimiter">{</span> +<span id="L329" class="LineNr">329 </span> compare g, <span class="Constant">0xffff</span> +<span id="L330" class="LineNr">330 </span> <span class="PreProc">break-if-></span> +<span id="L331" class="LineNr">331 </span> <span class="PreProc">return</span> <span class="Constant">2</span> +<span id="L332" class="LineNr">332 </span> <span class="Delimiter">}</span> +<span id="L333" class="LineNr">333 </span> <span class="Delimiter">{</span> +<span id="L334" class="LineNr">334 </span> compare g, <span class="Constant">0xffffff</span> +<span id="L335" class="LineNr">335 </span> <span class="PreProc">break-if-></span> +<span id="L336" class="LineNr">336 </span> <span class="PreProc">return</span> <span class="Constant">3</span> +<span id="L337" class="LineNr">337 </span> <span class="Delimiter">}</span> +<span id="L338" class="LineNr">338 </span> <span class="PreProc">return</span> <span class="Constant">4</span> +<span id="L339" class="LineNr">339 </span><span class="Delimiter">}</span> +<span id="L340" class="LineNr">340 </span> +<span id="L341" class="LineNr">341 </span><span class="muComment"># needed because available primitives only shift by a literal/constant number of bits</span> +<span id="L342" class="LineNr">342 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L342'>shift-left-bytes</a></span> n: int, k: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> +<span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> i/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L344" class="LineNr">344 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> copy n +<span id="L345" class="LineNr">345 </span> <span class="Delimiter">{</span> +<span id="L346" class="LineNr">346 </span> compare i, k +<span id="L347" class="LineNr">347 </span> <span class="PreProc">break-if->=</span> +<span id="L348" class="LineNr">348 </span> compare i, <span class="Constant">4</span> <span class="muComment"># only 4 bytes in 32 bits</span> +<span id="L349" class="LineNr">349 </span> <span class="PreProc">break-if->=</span> +<span id="L350" class="LineNr">350 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> +<span id="L351" class="LineNr">351 </span> i <span class="Special"><-</span> increment +<span id="L352" class="LineNr">352 </span> <span class="PreProc">loop</span> +<span id="L353" class="LineNr">353 </span> <span class="Delimiter">}</span> +<span id="L354" class="LineNr">354 </span> <span class="PreProc">return</span> result <span id="L355" class="LineNr">355 </span><span class="Delimiter">}</span> -<span id="L356" class="LineNr">356 </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="muTest"><a href='403unicode.mu.html#L357'>test-shift-left-bytes-0</a></span> <span class="Delimiter">{</span> +<span id="L358" class="LineNr">358 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L342'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">0</span> +<span id="L359" class="LineNr">359 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">1</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L342'>shift-left-bytes</a> 0"</span> +<span id="L360" class="LineNr">360 </span><span class="Delimiter">}</span> +<span id="L361" class="LineNr">361 </span> +<span id="L362" class="LineNr">362 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L362'>test-shift-left-bytes-1</a></span> <span class="Delimiter">{</span> +<span id="L363" class="LineNr">363 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L342'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">1</span> +<span id="L364" class="LineNr">364 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">0x100</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L342'>shift-left-bytes</a> 1"</span> +<span id="L365" class="LineNr">365 </span><span class="Delimiter">}</span> +<span id="L366" class="LineNr">366 </span> +<span id="L367" class="LineNr">367 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L367'>test-shift-left-bytes-2</a></span> <span class="Delimiter">{</span> +<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L342'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">2</span> +<span id="L369" class="LineNr">369 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">0x10000</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L342'>shift-left-bytes</a> 2"</span> +<span id="L370" class="LineNr">370 </span><span class="Delimiter">}</span> +<span id="L371" class="LineNr">371 </span> +<span id="L372" class="LineNr">372 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L372'>test-shift-left-bytes-3</a></span> <span class="Delimiter">{</span> +<span id="L373" class="LineNr">373 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L342'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">3</span> +<span id="L374" class="LineNr">374 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">0x1000000</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L342'>shift-left-bytes</a> 3"</span> +<span id="L375" class="LineNr">375 </span><span class="Delimiter">}</span> +<span id="L376" class="LineNr">376 </span> +<span id="L377" class="LineNr">377 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L377'>test-shift-left-bytes-4</a></span> <span class="Delimiter">{</span> +<span id="L378" class="LineNr">378 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L342'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">4</span> +<span id="L379" class="LineNr">379 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L342'>shift-left-bytes</a> 4"</span> +<span id="L380" class="LineNr">380 </span><span class="Delimiter">}</span> +<span id="L381" class="LineNr">381 </span> +<span id="L382" class="LineNr">382 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L382'>test-shift-left-bytes-5</a></span> <span class="Delimiter">{</span> +<span id="L383" class="LineNr">383 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L342'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">5</span> +<span id="L384" class="LineNr">384 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L342'>shift-left-bytes</a> >4"</span> +<span id="L385" class="LineNr">385 </span><span class="Delimiter">}</span> +<span id="L386" class="LineNr">386 </span> +<span id="L387" class="LineNr">387 </span><span class="muComment"># write a code-point-utf8 to a stream of bytes</span> +<span id="L388" class="LineNr">388 </span><span class="muComment"># this is like write-to-stream, except we skip leading 0 bytes</span> +<span id="L389" class="LineNr">389 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L389'>write-code-point-utf8</a></span> out: (addr stream byte), g: code-point-utf8 <span class="Delimiter">{</span> +<span id="L390" class="LineNr">390 </span>$write-code-point-utf8:body: <span class="Delimiter">{</span> +<span id="L391" class="LineNr">391 </span> <span class="PreProc">var</span> c/eax: int <span class="Special"><-</span> copy g +<span id="L392" class="LineNr">392 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c <span class="muComment"># first byte is always written</span> +<span id="L393" class="LineNr">393 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> +<span id="L394" class="LineNr">394 </span> compare c, <span class="Constant">0</span> +<span id="L395" class="LineNr">395 </span> <span class="PreProc">break-if-=</span> $write-code-point-utf8:body +<span id="L396" class="LineNr">396 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c +<span id="L397" class="LineNr">397 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> +<span id="L398" class="LineNr">398 </span> compare c, <span class="Constant">0</span> +<span id="L399" class="LineNr">399 </span> <span class="PreProc">break-if-=</span> $write-code-point-utf8:body +<span id="L400" class="LineNr">400 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c +<span id="L401" class="LineNr">401 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> +<span id="L402" class="LineNr">402 </span> compare c, <span class="Constant">0</span> +<span id="L403" class="LineNr">403 </span> <span class="PreProc">break-if-=</span> $write-code-point-utf8:body +<span id="L404" class="LineNr">404 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c +<span id="L405" class="LineNr">405 </span><span class="Delimiter">}</span> +<span id="L406" class="LineNr">406 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/411string.mu.html b/html/411string.mu.html index 3677f1f8..f4f513f1 100644 --- a/html/411string.mu.html +++ b/html/411string.mu.html @@ -61,7 +61,7 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/411string.mu'>https://github.com/akkartik/mu/blob/main/411string.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># read up to 'len' graphemes after skipping the first 'start' ones</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># read up to 'len' code-point-utf8s after skipping the first 'start' ones</span> <span id="L2" class="LineNr"> 2 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='411string.mu.html#L2'>substring</a></span> in: (addr array byte), start: int, len: int, out-ah: (addr handle array byte) <span class="Delimiter">{</span> <span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> in-stream: (stream byte <span class="Constant">0x100</span>) <span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> in-stream-addr/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address in-stream @@ -69,29 +69,29 @@ if ('onhashchange' in window) { <span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> out-stream: (stream byte <span class="Constant">0x100</span>) <span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> out-stream-addr/<span class="muRegEdi">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-stream <span id="L8" class="LineNr"> 8 </span> $substring:core: <span class="Delimiter">{</span> -<span id="L9" class="LineNr"> 9 </span> <span class="muComment"># skip 'start' graphemes</span> +<span id="L9" class="LineNr"> 9 </span> <span class="muComment"># skip 'start' code-point-utf8s</span> <span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">{</span> <span id="L12" class="LineNr"> 12 </span> compare i, start <span id="L13" class="LineNr"> 13 </span> <span class="PreProc">break-if->=</span> <span id="L14" class="LineNr"> 14 </span> <span class="Delimiter">{</span> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> in-stream-addr +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> in-stream-addr <span id="L16" class="LineNr"> 16 </span> compare dummy, <span class="Constant">0xffffffff</span>/end-of-file <span id="L17" class="LineNr"> 17 </span> <span class="PreProc">break-if-=</span> $substring:core <span id="L18" class="LineNr"> 18 </span> <span class="Delimiter">}</span> <span id="L19" class="LineNr"> 19 </span> i <span class="Special"><-</span> increment <span id="L20" class="LineNr"> 20 </span> <span class="PreProc">loop</span> <span id="L21" class="LineNr"> 21 </span> <span class="Delimiter">}</span> -<span id="L22" class="LineNr"> 22 </span> <span class="muComment"># copy 'len' graphemes</span> +<span id="L22" class="LineNr"> 22 </span> <span class="muComment"># copy 'len' code-point-utf8s</span> <span id="L23" class="LineNr"> 23 </span> i <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L24" class="LineNr"> 24 </span> <span class="Delimiter">{</span> <span id="L25" class="LineNr"> 25 </span> compare i, len <span id="L26" class="LineNr"> 26 </span> <span class="PreProc">break-if->=</span> <span id="L27" class="LineNr"> 27 </span> <span class="Delimiter">{</span> -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> in-stream-addr +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> in-stream-addr <span id="L29" class="LineNr"> 29 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file <span id="L30" class="LineNr"> 30 </span> <span class="PreProc">break-if-=</span> $substring:core -<span id="L31" class="LineNr"> 31 </span> <a href='403unicode.mu.html#L339'>write-grapheme</a> out-stream-addr, g +<span id="L31" class="LineNr"> 31 </span> <a href='403unicode.mu.html#L389'>write-code-point-utf8</a> out-stream-addr, g <span id="L32" class="LineNr"> 32 </span> <span class="Delimiter">}</span> <span id="L33" class="LineNr"> 33 </span> i <span class="Special"><-</span> increment <span id="L34" class="LineNr"> 34 </span> <span class="PreProc">loop</span> @@ -148,7 +148,7 @@ if ('onhashchange' in window) { <span id="L85" class="LineNr"> 85 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"bcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-too-small"</span> <span id="L86" class="LineNr"> 86 </span><span class="Delimiter">}</span> <span id="L87" class="LineNr"> 87 </span> -<span id="L88" class="LineNr"> 88 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='411string.mu.html#L88'>split-string</a></span> in: (addr array byte), delim: grapheme, out: (addr handle array (handle array byte)) <span class="Delimiter">{</span> +<span id="L88" class="LineNr"> 88 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='411string.mu.html#L88'>split-string</a></span> in: (addr array byte), delim: code-point-utf8, out: (addr handle array (handle array byte)) <span class="Delimiter">{</span> <span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> in-stream: (stream byte <span class="Constant">0x100</span>) <span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> in-stream-addr/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address in-stream <span id="L91" class="LineNr"> 91 </span> <a href='108write.subx.html#L11'>write</a> in-stream-addr, in @@ -157,10 +157,10 @@ if ('onhashchange' in window) { <span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> curr-stream: (stream byte <span class="Constant">0x100</span>) <span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> curr-stream-addr/<span class="muRegEcx">ecx</span>: (addr stream byte) <span class="Special"><-</span> address curr-stream <span id="L96" class="LineNr"> 96 </span> $split-string:core: <span class="Delimiter">{</span> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> in-stream-addr +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> in-stream-addr <span id="L98" class="LineNr"> 98 </span> compare g, <span class="Constant">0xffffffff</span> <span id="L99" class="LineNr"> 99 </span> <span class="PreProc">break-if-=</span> -<span id="L100" class="LineNr">100 </span><span class="CommentedCode">#? print-grapheme-to-real-screen g</span> +<span id="L100" class="LineNr">100 </span><span class="CommentedCode">#? print-code-point-utf8-to-real-screen g</span> <span id="L101" class="LineNr">101 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> <span id="L102" class="LineNr">102 </span> compare g, delim <span id="L103" class="LineNr">103 </span> <span class="Delimiter">{</span> @@ -173,7 +173,7 @@ if ('onhashchange' in window) { <span id="L110" class="LineNr">110 </span> <a href='106stream.subx.html#L20'>clear-stream</a> curr-stream-addr <span id="L111" class="LineNr">111 </span> <span class="PreProc">loop</span> $split-string:core <span id="L112" class="LineNr">112 </span> <span class="Delimiter">}</span> -<span id="L113" class="LineNr">113 </span> <a href='403unicode.mu.html#L339'>write-grapheme</a> curr-stream-addr, g +<span id="L113" class="LineNr">113 </span> <a href='403unicode.mu.html#L389'>write-code-point-utf8</a> curr-stream-addr, g <span id="L114" class="LineNr">114 </span> <span class="PreProc">loop</span> <span id="L115" class="LineNr">115 </span> <span class="Delimiter">}</span> <span id="L116" class="LineNr">116 </span> <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> tokens-stream-addr, out diff --git a/html/412render-float-decimal.mu.html b/html/412render-float-decimal.mu.html index d006069c..9d0be32c 100644 --- a/html/412render-float-decimal.mu.html +++ b/html/412render-float-decimal.mu.html @@ -219,7 +219,7 @@ if ('onhashchange' in window) { <span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L157" class="LineNr">157 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L124'>draw-stream-rightward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, s, x, width, y, color, background-color +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L117'>draw-stream-rightward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, s, x, width, y, color, background-color <span id="L159" class="LineNr">159 </span> <span class="PreProc">return</span> result <span id="L160" class="LineNr">160 </span><span class="Delimiter">}</span> <span id="L161" class="LineNr">161 </span> diff --git a/html/500fake-screen.mu.html b/html/500fake-screen.mu.html index 56909c43..fcdc1c8d 100644 --- a/html/500fake-screen.mu.html +++ b/html/500fake-screen.mu.html @@ -134,7 +134,7 @@ if ('onhashchange' in window) { <span id="L71" class="LineNr"> 71 </span> copy-to *dest, <span class="Constant">0</span> <span id="L72" class="LineNr"> 72 </span><span class="Delimiter">}</span> <span id="L73" class="LineNr"> 73 </span> -<span id="L74" class="LineNr"> 74 </span><span class="muComment"># in graphemes</span> +<span id="L74" class="LineNr"> 74 </span><span class="muComment"># in code-point-utf8s</span> <span id="L75" class="LineNr"> 75 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500fake-screen.mu.html#L75'>screen-size</a></span> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>)<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> <span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> copy _screen <span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> @@ -522,7 +522,7 @@ if ('onhashchange' in window) { <span id="L459" class="LineNr">459 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0</span> <span id="L460" class="LineNr">460 </span><span class="Delimiter">}</span> <span id="L461" class="LineNr">461 </span> -<span id="L462" class="LineNr">462 </span><span class="muComment"># there's no grapheme that guarantees to cover every pixel, so we'll bump down</span> +<span id="L462" class="LineNr">462 </span><span class="muComment"># there's no code-point-utf8 that guarantees to cover every pixel, so we'll bump down</span> <span id="L463" class="LineNr">463 </span><span class="muComment"># to pixels for a real screen</span> <span id="L464" class="LineNr">464 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500fake-screen.mu.html#L464'>clear-real-screen</a></span> <span class="Delimiter">{</span> <span id="L465" class="LineNr">465 </span> <span class="PreProc">var</span> y/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> diff --git a/html/501draw-text.mu.html b/html/501draw-text.mu.html index 1abca213..b06d9dca 100644 --- a/html/501draw-text.mu.html +++ b/html/501draw-text.mu.html @@ -144,487 +144,480 @@ if ('onhashchange' in window) { <span id="L81" class="LineNr"> 81 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, cursor-x, cursor-y <span id="L82" class="LineNr"> 82 </span><span class="Delimiter">}</span> <span id="L83" class="LineNr"> 83 </span> -<span id="L84" class="LineNr"> 84 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), c: code-point, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L84" class="LineNr"> 84 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), c: code-point, color: int, background-color: int <span class="Delimiter">{</span> <span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L87" class="LineNr"> 87 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, cursor-x, cursor-y, color, background-color -<span id="L89" class="LineNr"> 89 </span><span class="Delimiter">}</span> -<span id="L90" class="LineNr"> 90 </span> -<span id="L91" class="LineNr"> 91 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), c: code-point, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L94" class="LineNr"> 94 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> _offset/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, cursor-x, cursor-y, color, background-color -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> offset/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy _offset -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> dummy/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L99" class="LineNr"> 99 </span> width, dummy <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L100" class="LineNr">100 </span> <a href='501draw-text.mu.html#L302'>move-cursor-rightward-and-downward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span> width -<span id="L101" class="LineNr">101 </span> offset <span class="Special"><-</span> decrement -<span id="L102" class="LineNr">102 </span> compare offset, <span class="Constant">0</span> -<span id="L103" class="LineNr">103 </span> <span class="Delimiter">{</span> -<span id="L104" class="LineNr">104 </span> <span class="PreProc">break-if-=</span> -<span id="L105" class="LineNr">105 </span> <span class="muComment"># should never move downward here</span> -<span id="L106" class="LineNr">106 </span> <a href='501draw-text.mu.html#L302'>move-cursor-rightward-and-downward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span> width -<span id="L107" class="LineNr">107 </span> <span class="Delimiter">}</span> -<span id="L108" class="LineNr">108 </span><span class="Delimiter">}</span> -<span id="L109" class="LineNr">109 </span> -<span id="L110" class="LineNr">110 </span><span class="muComment"># draw a single line of text from x, y to xmax</span> -<span id="L111" class="LineNr">111 </span><span class="muComment"># return the next 'x' coordinate</span> -<span id="L112" class="LineNr">112 </span><span class="muComment"># if there isn't enough space, truncate</span> -<span id="L113" class="LineNr">113 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L113'>draw-text-rightward</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), x: int, xmax: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x400</span>/print-buffer-size) -<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> stream/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L116" class="LineNr">116 </span> <a href='108write.subx.html#L11'>write</a> stream, text -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> xcurr/eax: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L124'>draw-stream-rightward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, stream, x, xmax, y, color, background-color -<span id="L118" class="LineNr">118 </span> <span class="PreProc">return</span> xcurr -<span id="L119" class="LineNr">119 </span><span class="Delimiter">}</span> -<span id="L120" class="LineNr">120 </span> -<span id="L121" class="LineNr">121 </span><span class="muComment"># draw a single-line stream from x, y to xmax</span> -<span id="L122" class="LineNr">122 </span><span class="muComment"># return the next 'x' coordinate</span> -<span id="L123" class="LineNr">123 </span><span class="muComment"># if there isn't enough space, truncate</span> -<span id="L124" class="LineNr">124 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L124'>draw-stream-rightward</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), x: int, xmax: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> xcurr/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy x -<span id="L126" class="LineNr">126 </span> <span class="Delimiter">{</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> stream -<span id="L128" class="LineNr">128 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L129" class="LineNr">129 </span> <span class="PreProc">break-if-=</span> -<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> g -<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> offset/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xcurr, y, color, background-color -<span id="L132" class="LineNr">132 </span> xcurr <span class="Special"><-</span> add offset -<span id="L133" class="LineNr">133 </span> <span class="PreProc">loop</span> -<span id="L134" class="LineNr">134 </span> <span class="Delimiter">}</span> -<span id="L135" class="LineNr">135 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, xcurr, y -<span id="L136" class="LineNr">136 </span> <span class="PreProc">return</span> xcurr -<span id="L137" class="LineNr">137 </span><span class="Delimiter">}</span> -<span id="L138" class="LineNr">138 </span> -<span id="L139" class="LineNr">139 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L139'>draw-text-rightward-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L142" class="LineNr">142 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, x, width, y, color, background-color -<span id="L144" class="LineNr">144 </span> <span class="PreProc">return</span> result -<span id="L145" class="LineNr">145 </span><span class="Delimiter">}</span> -<span id="L146" class="LineNr">146 </span> -<span id="L147" class="LineNr">147 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), xmax: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L150" class="LineNr">150 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L151" class="LineNr">151 </span> cursor-x <span class="Special"><-</span> <a href='501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, cursor-x, xmax, cursor-y, color, background-color -<span id="L152" class="LineNr">152 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, cursor-x, cursor-y +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> _offset/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, cursor-x, cursor-y, color, background-color +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> offset/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy _offset +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> dummy/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L92" class="LineNr"> 92 </span> width, dummy <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L93" class="LineNr"> 93 </span> <a href='501draw-text.mu.html#L295'>move-cursor-rightward-and-downward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span> width +<span id="L94" class="LineNr"> 94 </span> offset <span class="Special"><-</span> decrement +<span id="L95" class="LineNr"> 95 </span> compare offset, <span class="Constant">0</span> +<span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">{</span> +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">break-if-=</span> +<span id="L98" class="LineNr"> 98 </span> <span class="muComment"># should never move downward here</span> +<span id="L99" class="LineNr"> 99 </span> <a href='501draw-text.mu.html#L295'>move-cursor-rightward-and-downward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span> width +<span id="L100" class="LineNr">100 </span> <span class="Delimiter">}</span> +<span id="L101" class="LineNr">101 </span><span class="Delimiter">}</span> +<span id="L102" class="LineNr">102 </span> +<span id="L103" class="LineNr">103 </span><span class="muComment"># draw a single line of text from x, y to xmax</span> +<span id="L104" class="LineNr">104 </span><span class="muComment"># return the next 'x' coordinate</span> +<span id="L105" class="LineNr">105 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L106" class="LineNr">106 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L106'>draw-text-rightward</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), x: int, xmax: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x400</span>/print-buffer-size) +<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> stream/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L109" class="LineNr">109 </span> <a href='108write.subx.html#L11'>write</a> stream, text +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> xcurr/eax: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L117'>draw-stream-rightward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, stream, x, xmax, y, color, background-color +<span id="L111" class="LineNr">111 </span> <span class="PreProc">return</span> xcurr +<span id="L112" class="LineNr">112 </span><span class="Delimiter">}</span> +<span id="L113" class="LineNr">113 </span> +<span id="L114" class="LineNr">114 </span><span class="muComment"># draw a single-line stream from x, y to xmax</span> +<span id="L115" class="LineNr">115 </span><span class="muComment"># return the next 'x' coordinate</span> +<span id="L116" class="LineNr">116 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L117" class="LineNr">117 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L117'>draw-stream-rightward</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), x: int, xmax: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> xcurr/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy x +<span id="L119" class="LineNr">119 </span> <span class="Delimiter">{</span> +<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> stream +<span id="L121" class="LineNr">121 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file +<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> c/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L49'>to-code-point</a> g +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> offset/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xcurr, y, color, background-color +<span id="L125" class="LineNr">125 </span> xcurr <span class="Special"><-</span> add offset +<span id="L126" class="LineNr">126 </span> <span class="PreProc">loop</span> +<span id="L127" class="LineNr">127 </span> <span class="Delimiter">}</span> +<span id="L128" class="LineNr">128 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, xcurr, y +<span id="L129" class="LineNr">129 </span> <span class="PreProc">return</span> xcurr +<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='501draw-text.mu.html#L132'>draw-text-rightward-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L135" class="LineNr">135 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, x, width, y, color, background-color +<span id="L137" class="LineNr">137 </span> <span class="PreProc">return</span> result +<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='501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), xmax: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L143" class="LineNr">143 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L144" class="LineNr">144 </span> cursor-x <span class="Special"><-</span> <a href='501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, cursor-x, xmax, cursor-y, color, background-color +<span id="L145" class="LineNr">145 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, cursor-x, cursor-y +<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='501draw-text.mu.html#L148'>draw-text-rightward-from-cursor-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), color: int, background-color: int <span class="Delimiter">{</span> +<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L151" class="LineNr">151 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L152" class="LineNr">152 </span> <a href='501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, width, color, background-color <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='501draw-text.mu.html#L155'>draw-text-rightward-from-cursor-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), color: int, background-color: int <span class="Delimiter">{</span> -<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L158" class="LineNr">158 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L159" class="LineNr">159 </span> <a href='501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, width, color, background-color -<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='501draw-text.mu.html#L162'>render-code-point</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), c: code-point, xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> -<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy x -<span id="L164" class="LineNr">164 </span> compare c, <span class="Constant">0xa</span>/newline -<span id="L165" class="LineNr">165 </span> <span class="Delimiter">{</span> -<span id="L166" class="LineNr">166 </span> <span class="PreProc">break-if-!=</span> -<span id="L167" class="LineNr">167 </span> <span class="muComment"># minimum effort to clear cursor</span> -<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x20</span>/space, x, y, color, background-color -<span id="L169" class="LineNr">169 </span> x <span class="Special"><-</span> copy xmin -<span id="L170" class="LineNr">170 </span> increment y -<span id="L171" class="LineNr">171 </span> <span class="PreProc">return</span> x, y -<span id="L172" class="LineNr">172 </span> <span class="Delimiter">}</span> -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> offset/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, x, y, color, background-color -<span id="L174" class="LineNr">174 </span> x <span class="Special"><-</span> add offset -<span id="L175" class="LineNr">175 </span> compare x, xmax -<span id="L176" class="LineNr">176 </span> <span class="Delimiter">{</span> -<span id="L177" class="LineNr">177 </span> <span class="PreProc">break-if-<</span> -<span id="L178" class="LineNr">178 </span> x <span class="Special"><-</span> copy xmin -<span id="L179" class="LineNr">179 </span> increment y -<span id="L180" class="LineNr">180 </span> <span class="Delimiter">}</span> -<span id="L181" class="LineNr">181 </span> <span class="PreProc">return</span> x, y -<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="muComment"># draw text in the rectangle from (xmin, ymin) to (xmax, ymax), starting from (x, y), wrapping as necessary</span> -<span id="L185" class="LineNr">185 </span><span class="muComment"># return the next (x, y) coordinate in raster order where drawing stopped</span> -<span id="L186" class="LineNr">186 </span><span class="muComment"># that way the caller can draw more if given the same min and max bounding-box.</span> -<span id="L187" class="LineNr">187 </span><span class="muComment"># if there isn't enough space, truncate</span> -<span id="L188" class="LineNr">188 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L188'>draw-text-wrapping-right-then-down</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> -<span id="L189" class="LineNr">189 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x200</span>/print-buffer-size) -<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> stream/<span class="muRegEdi">edi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> text/<span class="muRegEsi">esi</span>: (addr array byte) <span class="Special"><-</span> copy _text -<span id="L192" class="LineNr">192 </span> <span class="PreProc">var</span> len/eax: int <span class="Special"><-</span> length text -<span id="L193" class="LineNr">193 </span> compare len, <span class="Constant">0x200</span>/print-buffer-size -<span id="L194" class="LineNr">194 </span> <span class="Delimiter">{</span> -<span id="L195" class="LineNr">195 </span> <span class="PreProc">break-if-<</span> -<span id="L196" class="LineNr">196 </span> <a href='108write.subx.html#L11'>write</a> stream, <span class="Constant">"ERROR: stream too small in draw-text-wrapping-right-then-down"</span> -<span id="L197" class="LineNr">197 </span> <span class="Delimiter">}</span> -<span id="L198" class="LineNr">198 </span> compare len, <span class="Constant">0x200</span>/print-buffer-size -<span id="L199" class="LineNr">199 </span> <span class="Delimiter">{</span> -<span id="L200" class="LineNr">200 </span> <span class="PreProc">break-if->=</span> -<span id="L201" class="LineNr">201 </span> <a href='108write.subx.html#L11'>write</a> stream, text -<span id="L202" class="LineNr">202 </span> <span class="Delimiter">}</span> -<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy _x -<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy _y -<span id="L205" class="LineNr">205 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L213'>draw-stream-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, stream, xmin, ymin, xmax, ymax, x, y, color, background-color -<span id="L206" class="LineNr">206 </span> <span class="PreProc">return</span> x, y -<span id="L207" class="LineNr">207 </span><span class="Delimiter">}</span> -<span id="L208" class="LineNr">208 </span> -<span id="L209" class="LineNr">209 </span><span class="muComment"># draw a stream in the rectangle from (xmin, ymin) to (xmax, ymax), starting from (x, y), wrapping as necessary</span> -<span id="L210" class="LineNr">210 </span><span class="muComment"># return the next (x, y) coordinate in raster order where drawing stopped</span> -<span id="L211" class="LineNr">211 </span><span class="muComment"># that way the caller can draw more if given the same min and max bounding-box.</span> -<span id="L212" class="LineNr">212 </span><span class="muComment"># if there isn't enough space, truncate</span> -<span id="L213" class="LineNr">213 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L213'>draw-stream-wrapping-right-then-down</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> -<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> xcurr/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy x -<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> ycurr/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy y -<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> c/<span class="muRegEbx">ebx</span>: code-point <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> next-c/<span class="muRegEsi">esi</span>: code-point <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L218" class="LineNr">218 </span> $draw-stream-wrapping-right-then-down:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L219" class="LineNr">219 </span> <span class="muComment"># read c from either next-c or stream</span> -<span id="L220" class="LineNr">220 </span> $draw-stream-wrapping-right-then-down:read-base: <span class="Delimiter">{</span> -<span id="L221" class="LineNr">221 </span> compare next-c, <span class="Constant">0</span> -<span id="L222" class="LineNr">222 </span> <span class="Delimiter">{</span> -<span id="L223" class="LineNr">223 </span> <span class="PreProc">break-if-=</span> -<span id="L224" class="LineNr">224 </span> c <span class="Special"><-</span> copy next-c -<span id="L225" class="LineNr">225 </span> next-c <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L226" class="LineNr">226 </span> <span class="PreProc">break</span> $draw-stream-wrapping-right-then-down:read-base -<span id="L227" class="LineNr">227 </span> <span class="Delimiter">}</span> -<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> stream -<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> _c/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> g -<span id="L230" class="LineNr">230 </span> c <span class="Special"><-</span> copy _c -<span id="L231" class="LineNr">231 </span> <span class="Delimiter">}</span> -<span id="L232" class="LineNr">232 </span> compare c, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L233" class="LineNr">233 </span> <span class="PreProc">break-if-=</span> -<span id="L234" class="LineNr">234 </span> compare c, <span class="Constant">0xa</span>/newline -<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> <span class="muComment"># minimum effort to clear cursor</span> -<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x20</span>/space, xcurr, ycurr, color, background-color -<span id="L239" class="LineNr">239 </span> xcurr <span class="Special"><-</span> copy xmin -<span id="L240" class="LineNr">240 </span> ycurr <span class="Special"><-</span> increment -<span id="L241" class="LineNr">241 </span> <span class="PreProc">loop</span> $draw-stream-wrapping-right-then-down:<span class="PreProc">loop</span> -<span id="L242" class="LineNr">242 </span> <span class="Delimiter">}</span> -<span id="L243" class="LineNr">243 </span> <span class="PreProc">var</span> offset/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xcurr, ycurr, color, background-color -<span id="L244" class="LineNr">244 </span> <span class="muComment"># overlay a combining character if necessary</span> -<span id="L245" class="LineNr">245 </span> $draw-stream-wrapping-right-then-down:read-combiner: <span class="Delimiter">{</span> -<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> stream -<span id="L247" class="LineNr">247 </span> compare done?, <span class="Constant">0</span>/false -<span id="L248" class="LineNr">248 </span> <span class="PreProc">break-if-!=</span> -<span id="L249" class="LineNr">249 </span> <span class="muComment"># read a character</span> -<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> stream -<span id="L251" class="LineNr">251 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> g -<span id="L252" class="LineNr">252 </span> <span class="muComment"># if not a combining character, save for next iteration and loop</span> -<span id="L253" class="LineNr">253 </span> <span class="Delimiter">{</span> -<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> <a href='103glyph.subx.html#L157'>combining-code-point?</a>/eax: boolean <span class="Special"><-</span> <a href='103glyph.subx.html#L157'>combining-code-point?</a> c -<span id="L255" class="LineNr">255 </span> compare <a href='103glyph.subx.html#L157'>combining-code-point?</a>, <span class="Constant">0</span>/false -<span id="L256" class="LineNr">256 </span> <span class="Delimiter">}</span> -<span id="L257" class="LineNr">257 </span> <span class="Delimiter">{</span> -<span id="L258" class="LineNr">258 </span> <span class="PreProc">break-if-!=</span> -<span id="L259" class="LineNr">259 </span> next-c <span class="Special"><-</span> copy c -<span id="L260" class="LineNr">260 </span> <span class="PreProc">break</span> $draw-stream-wrapping-right-then-down:read-combiner -<span id="L261" class="LineNr">261 </span> <span class="Delimiter">}</span> -<span id="L262" class="LineNr">262 </span> <span class="muComment"># otherwise overlay it without saving its width</span> -<span id="L263" class="LineNr">263 </span> <span class="muComment"># This means strange results if a base and its combiner have different</span> -<span id="L264" class="LineNr">264 </span> <span class="muComment"># widths. We'll always follow the base width.</span> -<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L114'>overlay-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xcurr, ycurr, color, background-color +<span id="L155" class="LineNr">155 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L155'>render-code-point</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), c: code-point, xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy x +<span id="L157" class="LineNr">157 </span> compare c, <span class="Constant">0xa</span>/newline +<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> <span class="muComment"># minimum effort to clear cursor</span> +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x20</span>/space, x, y, color, background-color +<span id="L162" class="LineNr">162 </span> x <span class="Special"><-</span> copy xmin +<span id="L163" class="LineNr">163 </span> increment y +<span id="L164" class="LineNr">164 </span> <span class="PreProc">return</span> x, y +<span id="L165" class="LineNr">165 </span> <span class="Delimiter">}</span> +<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> offset/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, x, y, color, background-color +<span id="L167" class="LineNr">167 </span> x <span class="Special"><-</span> add offset +<span id="L168" class="LineNr">168 </span> compare x, xmax +<span id="L169" class="LineNr">169 </span> <span class="Delimiter">{</span> +<span id="L170" class="LineNr">170 </span> <span class="PreProc">break-if-<</span> +<span id="L171" class="LineNr">171 </span> x <span class="Special"><-</span> copy xmin +<span id="L172" class="LineNr">172 </span> increment y +<span id="L173" class="LineNr">173 </span> <span class="Delimiter">}</span> +<span id="L174" class="LineNr">174 </span> <span class="PreProc">return</span> x, y +<span id="L175" class="LineNr">175 </span><span class="Delimiter">}</span> +<span id="L176" class="LineNr">176 </span> +<span id="L177" class="LineNr">177 </span><span class="muComment"># draw text in the rectangle from (xmin, ymin) to (xmax, ymax), starting from (x, y), wrapping as necessary</span> +<span id="L178" class="LineNr">178 </span><span class="muComment"># return the next (x, y) coordinate in raster order where drawing stopped</span> +<span id="L179" class="LineNr">179 </span><span class="muComment"># that way the caller can draw more if given the same min and max bounding-box.</span> +<span id="L180" class="LineNr">180 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L181" class="LineNr">181 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L181'>draw-text-wrapping-right-then-down</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> +<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x200</span>/print-buffer-size) +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> stream/<span class="muRegEdi">edi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> text/<span class="muRegEsi">esi</span>: (addr array byte) <span class="Special"><-</span> copy _text +<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> len/eax: int <span class="Special"><-</span> length text +<span id="L186" class="LineNr">186 </span> compare len, <span class="Constant">0x200</span>/print-buffer-size +<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='108write.subx.html#L11'>write</a> stream, <span class="Constant">"ERROR: stream too small in draw-text-wrapping-right-then-down"</span> +<span id="L190" class="LineNr">190 </span> <span class="Delimiter">}</span> +<span id="L191" class="LineNr">191 </span> compare len, <span class="Constant">0x200</span>/print-buffer-size +<span id="L192" class="LineNr">192 </span> <span class="Delimiter">{</span> +<span id="L193" class="LineNr">193 </span> <span class="PreProc">break-if->=</span> +<span id="L194" class="LineNr">194 </span> <a href='108write.subx.html#L11'>write</a> stream, text +<span id="L195" class="LineNr">195 </span> <span class="Delimiter">}</span> +<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy _x +<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy _y +<span id="L198" class="LineNr">198 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L206'>draw-stream-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, stream, xmin, ymin, xmax, ymax, x, y, color, background-color +<span id="L199" class="LineNr">199 </span> <span class="PreProc">return</span> x, y +<span id="L200" class="LineNr">200 </span><span class="Delimiter">}</span> +<span id="L201" class="LineNr">201 </span> +<span id="L202" class="LineNr">202 </span><span class="muComment"># draw a stream in the rectangle from (xmin, ymin) to (xmax, ymax), starting from (x, y), wrapping as necessary</span> +<span id="L203" class="LineNr">203 </span><span class="muComment"># return the next (x, y) coordinate in raster order where drawing stopped</span> +<span id="L204" class="LineNr">204 </span><span class="muComment"># that way the caller can draw more if given the same min and max bounding-box.</span> +<span id="L205" class="LineNr">205 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L206" class="LineNr">206 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L206'>draw-stream-wrapping-right-then-down</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> +<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> xcurr/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy x +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> ycurr/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy y +<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> c/<span class="muRegEbx">ebx</span>: code-point <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> next-c/<span class="muRegEsi">esi</span>: code-point <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L211" class="LineNr">211 </span> $draw-stream-wrapping-right-then-down:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L212" class="LineNr">212 </span> <span class="muComment"># read c from either next-c or stream</span> +<span id="L213" class="LineNr">213 </span> $draw-stream-wrapping-right-then-down:read-base: <span class="Delimiter">{</span> +<span id="L214" class="LineNr">214 </span> compare next-c, <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> c <span class="Special"><-</span> copy next-c +<span id="L218" class="LineNr">218 </span> next-c <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L219" class="LineNr">219 </span> <span class="PreProc">break</span> $draw-stream-wrapping-right-then-down:read-base +<span id="L220" class="LineNr">220 </span> <span class="Delimiter">}</span> +<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> stream +<span id="L222" class="LineNr">222 </span> <span class="PreProc">var</span> _c/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L49'>to-code-point</a> g +<span id="L223" class="LineNr">223 </span> c <span class="Special"><-</span> copy _c +<span id="L224" class="LineNr">224 </span> <span class="Delimiter">}</span> +<span id="L225" class="LineNr">225 </span> compare c, <span class="Constant">0xffffffff</span>/end-of-file +<span id="L226" class="LineNr">226 </span> <span class="PreProc">break-if-=</span> +<span id="L227" class="LineNr">227 </span> compare c, <span class="Constant">0xa</span>/newline +<span id="L228" class="LineNr">228 </span> <span class="Delimiter">{</span> +<span id="L229" class="LineNr">229 </span> <span class="PreProc">break-if-!=</span> +<span id="L230" class="LineNr">230 </span> <span class="muComment"># minimum effort to clear cursor</span> +<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x20</span>/space, xcurr, ycurr, color, background-color +<span id="L232" class="LineNr">232 </span> xcurr <span class="Special"><-</span> copy xmin +<span id="L233" class="LineNr">233 </span> ycurr <span class="Special"><-</span> increment +<span id="L234" class="LineNr">234 </span> <span class="PreProc">loop</span> $draw-stream-wrapping-right-then-down:<span class="PreProc">loop</span> +<span id="L235" class="LineNr">235 </span> <span class="Delimiter">}</span> +<span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> offset/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xcurr, ycurr, color, background-color +<span id="L237" class="LineNr">237 </span> <span class="muComment"># overlay a combining character if necessary</span> +<span id="L238" class="LineNr">238 </span> $draw-stream-wrapping-right-then-down:read-combiner: <span class="Delimiter">{</span> +<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> stream +<span id="L240" class="LineNr">240 </span> compare done?, <span class="Constant">0</span>/false +<span id="L241" class="LineNr">241 </span> <span class="PreProc">break-if-!=</span> +<span id="L242" class="LineNr">242 </span> <span class="muComment"># read a character</span> +<span id="L243" class="LineNr">243 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> stream +<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L49'>to-code-point</a> g +<span id="L245" class="LineNr">245 </span> <span class="muComment"># if not a combining character, save for next iteration and loop</span> +<span id="L246" class="LineNr">246 </span> <span class="Delimiter">{</span> +<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> <a href='103glyph.subx.html#L157'>combining-code-point?</a>/eax: boolean <span class="Special"><-</span> <a href='103glyph.subx.html#L157'>combining-code-point?</a> c +<span id="L248" class="LineNr">248 </span> compare <a href='103glyph.subx.html#L157'>combining-code-point?</a>, <span class="Constant">0</span>/false +<span id="L249" class="LineNr">249 </span> <span class="Delimiter">}</span> +<span id="L250" class="LineNr">250 </span> <span class="Delimiter">{</span> +<span id="L251" class="LineNr">251 </span> <span class="PreProc">break-if-!=</span> +<span id="L252" class="LineNr">252 </span> next-c <span class="Special"><-</span> copy c +<span id="L253" class="LineNr">253 </span> <span class="PreProc">break</span> $draw-stream-wrapping-right-then-down:read-combiner +<span id="L254" class="LineNr">254 </span> <span class="Delimiter">}</span> +<span id="L255" class="LineNr">255 </span> <span class="muComment"># otherwise overlay it without saving its width</span> +<span id="L256" class="LineNr">256 </span> <span class="muComment"># This means strange results if a base and its combiner have different</span> +<span id="L257" class="LineNr">257 </span> <span class="muComment"># widths. We'll always follow the base width.</span> +<span id="L258" class="LineNr">258 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L114'>overlay-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xcurr, ycurr, color, background-color +<span id="L259" class="LineNr">259 </span> <span class="Delimiter">}</span> +<span id="L260" class="LineNr">260 </span> xcurr <span class="Special"><-</span> add offset +<span id="L261" class="LineNr">261 </span> compare xcurr, xmax +<span id="L262" class="LineNr">262 </span> <span class="Delimiter">{</span> +<span id="L263" class="LineNr">263 </span> <span class="PreProc">break-if-<</span> +<span id="L264" class="LineNr">264 </span> xcurr <span class="Special"><-</span> copy xmin +<span id="L265" class="LineNr">265 </span> ycurr <span class="Special"><-</span> increment <span id="L266" class="LineNr">266 </span> <span class="Delimiter">}</span> -<span id="L267" class="LineNr">267 </span> xcurr <span class="Special"><-</span> add offset -<span id="L268" class="LineNr">268 </span> compare xcurr, xmax -<span id="L269" class="LineNr">269 </span> <span class="Delimiter">{</span> -<span id="L270" class="LineNr">270 </span> <span class="PreProc">break-if-<</span> -<span id="L271" class="LineNr">271 </span> xcurr <span class="Special"><-</span> copy xmin -<span id="L272" class="LineNr">272 </span> ycurr <span class="Special"><-</span> increment -<span id="L273" class="LineNr">273 </span> <span class="Delimiter">}</span> -<span id="L274" class="LineNr">274 </span> <span class="PreProc">loop</span> -<span id="L275" class="LineNr">275 </span> <span class="Delimiter">}</span> -<span id="L276" class="LineNr">276 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, xcurr, ycurr -<span id="L277" class="LineNr">277 </span> <span class="PreProc">return</span> xcurr, ycurr -<span id="L278" class="LineNr">278 </span><span class="Delimiter">}</span> -<span id="L279" class="LineNr">279 </span> -<span id="L280" class="LineNr">280 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L280'>draw-stream-wrapping-right-then-down-from-cursor</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L281" class="LineNr">281 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L283" class="LineNr">283 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L284" class="LineNr">284 </span> <span class="PreProc">var</span> end-x/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy cursor-x -<span id="L285" class="LineNr">285 </span> end-x <span class="Special"><-</span> increment -<span id="L286" class="LineNr">286 </span> compare end-x, xmax -<span id="L287" class="LineNr">287 </span> <span class="Delimiter">{</span> -<span id="L288" class="LineNr">288 </span> <span class="PreProc">break-if-<</span> -<span id="L289" class="LineNr">289 </span> cursor-x <span class="Special"><-</span> copy xmin -<span id="L290" class="LineNr">290 </span> cursor-y <span class="Special"><-</span> increment -<span id="L291" class="LineNr">291 </span> <span class="Delimiter">}</span> -<span id="L292" class="LineNr">292 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='501draw-text.mu.html#L213'>draw-stream-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, stream, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color +<span id="L267" class="LineNr">267 </span> <span class="PreProc">loop</span> +<span id="L268" class="LineNr">268 </span> <span class="Delimiter">}</span> +<span id="L269" class="LineNr">269 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, xcurr, ycurr +<span id="L270" class="LineNr">270 </span> <span class="PreProc">return</span> xcurr, ycurr +<span id="L271" class="LineNr">271 </span><span class="Delimiter">}</span> +<span id="L272" class="LineNr">272 </span> +<span id="L273" class="LineNr">273 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L273'>draw-stream-wrapping-right-then-down-from-cursor</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L276" class="LineNr">276 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> end-x/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy cursor-x +<span id="L278" class="LineNr">278 </span> end-x <span class="Special"><-</span> increment +<span id="L279" class="LineNr">279 </span> compare end-x, xmax +<span id="L280" class="LineNr">280 </span> <span class="Delimiter">{</span> +<span id="L281" class="LineNr">281 </span> <span class="PreProc">break-if-<</span> +<span id="L282" class="LineNr">282 </span> cursor-x <span class="Special"><-</span> copy xmin +<span id="L283" class="LineNr">283 </span> cursor-y <span class="Special"><-</span> increment +<span id="L284" class="LineNr">284 </span> <span class="Delimiter">}</span> +<span id="L285" class="LineNr">285 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='501draw-text.mu.html#L206'>draw-stream-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, stream, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color +<span id="L286" class="LineNr">286 </span><span class="Delimiter">}</span> +<span id="L287" class="LineNr">287 </span> +<span id="L288" class="LineNr">288 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L288'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), color: int, background-color: int <span class="Delimiter">{</span> +<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L291" class="LineNr">291 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L292" class="LineNr">292 </span> <a href='501draw-text.mu.html#L273'>draw-stream-wrapping-right-then-down-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>, stream, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color <span id="L293" class="LineNr">293 </span><span class="Delimiter">}</span> <span id="L294" class="LineNr">294 </span> -<span id="L295" class="LineNr">295 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L295'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), color: int, background-color: int <span class="Delimiter">{</span> -<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L297" class="LineNr">297 </span> <span class="PreProc">var</span> height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L298" class="LineNr">298 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L299" class="LineNr">299 </span> <a href='501draw-text.mu.html#L280'>draw-stream-wrapping-right-then-down-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>, stream, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color -<span id="L300" class="LineNr">300 </span><span class="Delimiter">}</span> -<span id="L301" class="LineNr">301 </span> -<span id="L302" class="LineNr">302 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L302'>move-cursor-rightward-and-downward</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), xmin: int, xmax: int <span class="Delimiter">{</span> -<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L305" class="LineNr">305 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L306" class="LineNr">306 </span> cursor-x <span class="Special"><-</span> increment -<span id="L307" class="LineNr">307 </span> compare cursor-x, xmax -<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> cursor-x <span class="Special"><-</span> copy xmin -<span id="L311" class="LineNr">311 </span> cursor-y <span class="Special"><-</span> increment -<span id="L312" class="LineNr">312 </span> <span class="Delimiter">}</span> -<span id="L313" class="LineNr">313 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, cursor-x, cursor-y -<span id="L314" class="LineNr">314 </span><span class="Delimiter">}</span> -<span id="L315" class="LineNr">315 </span> -<span id="L316" class="LineNr">316 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L316'>draw-text-wrapping-right-then-down-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> -<span id="L317" class="LineNr">317 </span> <span class="PreProc">var</span> x2/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> y2/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L319" class="LineNr">319 </span> x2, y2 <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> <span class="muComment"># width, height</span> -<span id="L320" class="LineNr">320 </span> x2, y2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L188'>draw-text-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color -<span id="L321" class="LineNr">321 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> -<span id="L322" class="LineNr">322 </span><span class="Delimiter">}</span> -<span id="L323" class="LineNr">323 </span> -<span id="L324" class="LineNr">324 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L324'>draw-text-wrapping-right-then-down-from-cursor</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L325" class="LineNr">325 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L326" class="LineNr">326 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L327" class="LineNr">327 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> end-x/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy cursor-x -<span id="L329" class="LineNr">329 </span> end-x <span class="Special"><-</span> increment -<span id="L330" class="LineNr">330 </span> compare end-x, xmax -<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> cursor-x <span class="Special"><-</span> copy xmin -<span id="L334" class="LineNr">334 </span> cursor-y <span class="Special"><-</span> increment -<span id="L335" class="LineNr">335 </span> <span class="Delimiter">}</span> -<span id="L336" class="LineNr">336 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='501draw-text.mu.html#L188'>draw-text-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color +<span id="L295" class="LineNr">295 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L295'>move-cursor-rightward-and-downward</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), xmin: int, xmax: int <span class="Delimiter">{</span> +<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L297" class="LineNr">297 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L298" class="LineNr">298 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L299" class="LineNr">299 </span> cursor-x <span class="Special"><-</span> increment +<span id="L300" class="LineNr">300 </span> compare cursor-x, xmax +<span id="L301" class="LineNr">301 </span> <span class="Delimiter">{</span> +<span id="L302" class="LineNr">302 </span> <span class="PreProc">break-if-<</span> +<span id="L303" class="LineNr">303 </span> cursor-x <span class="Special"><-</span> copy xmin +<span id="L304" class="LineNr">304 </span> cursor-y <span class="Special"><-</span> increment +<span id="L305" class="LineNr">305 </span> <span class="Delimiter">}</span> +<span id="L306" class="LineNr">306 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, cursor-x, cursor-y +<span id="L307" class="LineNr">307 </span><span class="Delimiter">}</span> +<span id="L308" class="LineNr">308 </span> +<span id="L309" class="LineNr">309 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L309'>draw-text-wrapping-right-then-down-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> +<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> x2/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L311" class="LineNr">311 </span> <span class="PreProc">var</span> y2/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L312" class="LineNr">312 </span> x2, y2 <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> <span class="muComment"># width, height</span> +<span id="L313" class="LineNr">313 </span> x2, y2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L181'>draw-text-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color +<span id="L314" class="LineNr">314 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> +<span id="L315" class="LineNr">315 </span><span class="Delimiter">}</span> +<span id="L316" class="LineNr">316 </span> +<span id="L317" class="LineNr">317 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L320" class="LineNr">320 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L321" class="LineNr">321 </span> <span class="PreProc">var</span> end-x/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy cursor-x +<span id="L322" class="LineNr">322 </span> end-x <span class="Special"><-</span> increment +<span id="L323" class="LineNr">323 </span> compare end-x, xmax +<span id="L324" class="LineNr">324 </span> <span class="Delimiter">{</span> +<span id="L325" class="LineNr">325 </span> <span class="PreProc">break-if-<</span> +<span id="L326" class="LineNr">326 </span> cursor-x <span class="Special"><-</span> copy xmin +<span id="L327" class="LineNr">327 </span> cursor-y <span class="Special"><-</span> increment +<span id="L328" class="LineNr">328 </span> <span class="Delimiter">}</span> +<span id="L329" class="LineNr">329 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='501draw-text.mu.html#L181'>draw-text-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color +<span id="L330" class="LineNr">330 </span><span class="Delimiter">}</span> +<span id="L331" class="LineNr">331 </span> +<span id="L332" class="LineNr">332 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), color: int, background-color: int <span class="Delimiter">{</span> +<span id="L333" class="LineNr">333 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L335" class="LineNr">335 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L336" class="LineNr">336 </span> <a href='501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color <span id="L337" class="LineNr">337 </span><span class="Delimiter">}</span> <span id="L338" class="LineNr">338 </span> -<span id="L339" class="LineNr">339 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), color: int, background-color: int <span class="Delimiter">{</span> -<span id="L340" class="LineNr">340 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L342" class="LineNr">342 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L343" class="LineNr">343 </span> <a href='501draw-text.mu.html#L324'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color -<span id="L344" class="LineNr">344 </span><span class="Delimiter">}</span> -<span id="L345" class="LineNr">345 </span> -<span id="L346" class="LineNr">346 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L346'>draw-int32-hex-wrapping-right-then-down</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> -<span id="L347" class="LineNr">347 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) -<span id="L348" class="LineNr">348 </span> <span class="PreProc">var</span> stream/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L349" class="LineNr">349 </span> <a href='117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, n -<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> xcurr/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy x -<span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> ycurr/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy y -<span id="L352" class="LineNr">352 </span> <span class="Delimiter">{</span> -<span id="L353" class="LineNr">353 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> stream -<span id="L354" class="LineNr">354 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L355" class="LineNr">355 </span> <span class="PreProc">break-if-=</span> -<span id="L356" class="LineNr">356 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> g -<span id="L357" class="LineNr">357 </span> <span class="PreProc">var</span> offset/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xcurr, ycurr, color, background-color -<span id="L358" class="LineNr">358 </span> xcurr <span class="Special"><-</span> add offset -<span id="L359" class="LineNr">359 </span> compare xcurr, xmax -<span id="L360" class="LineNr">360 </span> <span class="Delimiter">{</span> -<span id="L361" class="LineNr">361 </span> <span class="PreProc">break-if-<</span> -<span id="L362" class="LineNr">362 </span> xcurr <span class="Special"><-</span> copy xmin -<span id="L363" class="LineNr">363 </span> ycurr <span class="Special"><-</span> increment -<span id="L364" class="LineNr">364 </span> <span class="Delimiter">}</span> -<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> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, xcurr, ycurr -<span id="L368" class="LineNr">368 </span> <span class="PreProc">return</span> xcurr, ycurr -<span id="L369" class="LineNr">369 </span><span class="Delimiter">}</span> -<span id="L370" class="LineNr">370 </span> -<span id="L371" class="LineNr">371 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L371'>draw-int32-hex-wrapping-right-then-down-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> -<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> x2/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L373" class="LineNr">373 </span> <span class="PreProc">var</span> y2/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L374" class="LineNr">374 </span> x2, y2 <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> <span class="muComment"># width, height</span> -<span id="L375" class="LineNr">375 </span> x2, y2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L346'>draw-int32-hex-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color -<span id="L376" class="LineNr">376 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> -<span id="L377" class="LineNr">377 </span><span class="Delimiter">}</span> -<span id="L378" class="LineNr">378 </span> -<span id="L379" class="LineNr">379 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L379'>draw-int32-hex-wrapping-right-then-down-from-cursor</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L380" class="LineNr">380 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L382" class="LineNr">382 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L383" class="LineNr">383 </span> <span class="PreProc">var</span> end-x/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy cursor-x -<span id="L384" class="LineNr">384 </span> end-x <span class="Special"><-</span> increment -<span id="L385" class="LineNr">385 </span> compare end-x, xmax -<span id="L386" class="LineNr">386 </span> <span class="Delimiter">{</span> -<span id="L387" class="LineNr">387 </span> <span class="PreProc">break-if-<</span> -<span id="L388" class="LineNr">388 </span> cursor-x <span class="Special"><-</span> copy xmin -<span id="L389" class="LineNr">389 </span> cursor-y <span class="Special"><-</span> increment -<span id="L390" class="LineNr">390 </span> <span class="Delimiter">}</span> -<span id="L391" class="LineNr">391 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='501draw-text.mu.html#L346'>draw-int32-hex-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, n, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color +<span id="L339" class="LineNr">339 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L339'>draw-int32-hex-wrapping-right-then-down</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> +<span id="L340" class="LineNr">340 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> stream/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L342" class="LineNr">342 </span> <a href='117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, n +<span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> xcurr/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy x +<span id="L344" class="LineNr">344 </span> <span class="PreProc">var</span> ycurr/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy y +<span id="L345" class="LineNr">345 </span> <span class="Delimiter">{</span> +<span id="L346" class="LineNr">346 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> stream +<span id="L347" class="LineNr">347 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file +<span id="L348" class="LineNr">348 </span> <span class="PreProc">break-if-=</span> +<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L49'>to-code-point</a> g +<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> offset/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xcurr, ycurr, color, background-color +<span id="L351" class="LineNr">351 </span> xcurr <span class="Special"><-</span> add offset +<span id="L352" class="LineNr">352 </span> compare xcurr, xmax +<span id="L353" class="LineNr">353 </span> <span class="Delimiter">{</span> +<span id="L354" class="LineNr">354 </span> <span class="PreProc">break-if-<</span> +<span id="L355" class="LineNr">355 </span> xcurr <span class="Special"><-</span> copy xmin +<span id="L356" class="LineNr">356 </span> ycurr <span class="Special"><-</span> increment +<span id="L357" class="LineNr">357 </span> <span class="Delimiter">}</span> +<span id="L358" class="LineNr">358 </span> <span class="PreProc">loop</span> +<span id="L359" class="LineNr">359 </span> <span class="Delimiter">}</span> +<span id="L360" class="LineNr">360 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, xcurr, ycurr +<span id="L361" class="LineNr">361 </span> <span class="PreProc">return</span> xcurr, ycurr +<span id="L362" class="LineNr">362 </span><span class="Delimiter">}</span> +<span id="L363" class="LineNr">363 </span> +<span id="L364" class="LineNr">364 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L364'>draw-int32-hex-wrapping-right-then-down-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> +<span id="L365" class="LineNr">365 </span> <span class="PreProc">var</span> x2/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L366" class="LineNr">366 </span> <span class="PreProc">var</span> y2/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L367" class="LineNr">367 </span> x2, y2 <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> <span class="muComment"># width, height</span> +<span id="L368" class="LineNr">368 </span> x2, y2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L339'>draw-int32-hex-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color +<span id="L369" class="LineNr">369 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> +<span id="L370" class="LineNr">370 </span><span class="Delimiter">}</span> +<span id="L371" class="LineNr">371 </span> +<span id="L372" class="LineNr">372 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L372'>draw-int32-hex-wrapping-right-then-down-from-cursor</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L373" class="LineNr">373 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L374" class="LineNr">374 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L375" class="LineNr">375 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L376" class="LineNr">376 </span> <span class="PreProc">var</span> end-x/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy cursor-x +<span id="L377" class="LineNr">377 </span> end-x <span class="Special"><-</span> increment +<span id="L378" class="LineNr">378 </span> compare end-x, xmax +<span id="L379" class="LineNr">379 </span> <span class="Delimiter">{</span> +<span id="L380" class="LineNr">380 </span> <span class="PreProc">break-if-<</span> +<span id="L381" class="LineNr">381 </span> cursor-x <span class="Special"><-</span> copy xmin +<span id="L382" class="LineNr">382 </span> cursor-y <span class="Special"><-</span> increment +<span id="L383" class="LineNr">383 </span> <span class="Delimiter">}</span> +<span id="L384" class="LineNr">384 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='501draw-text.mu.html#L339'>draw-int32-hex-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, n, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color +<span id="L385" class="LineNr">385 </span><span class="Delimiter">}</span> +<span id="L386" class="LineNr">386 </span> +<span id="L387" class="LineNr">387 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L388" class="LineNr">388 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L390" class="LineNr">390 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L391" class="LineNr">391 </span> <a href='501draw-text.mu.html#L372'>draw-int32-hex-wrapping-right-then-down-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color <span id="L392" class="LineNr">392 </span><span class="Delimiter">}</span> <span id="L393" class="LineNr">393 </span> -<span id="L394" class="LineNr">394 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L395" class="LineNr">395 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L396" class="LineNr">396 </span> <span class="PreProc">var</span> height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L397" class="LineNr">397 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L398" class="LineNr">398 </span> <a href='501draw-text.mu.html#L379'>draw-int32-hex-wrapping-right-then-down-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color -<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='501draw-text.mu.html#L401'>draw-int32-decimal-wrapping-right-then-down</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> -<span id="L402" class="LineNr">402 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) -<span id="L403" class="LineNr">403 </span> <span class="PreProc">var</span> stream/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L404" class="LineNr">404 </span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> stream, n -<span id="L405" class="LineNr">405 </span> <span class="PreProc">var</span> xcurr/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy x -<span id="L406" class="LineNr">406 </span> <span class="PreProc">var</span> ycurr/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy y -<span id="L407" class="LineNr">407 </span> <span class="Delimiter">{</span> -<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> stream -<span id="L409" class="LineNr">409 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L410" class="LineNr">410 </span> <span class="PreProc">break-if-=</span> -<span id="L411" class="LineNr">411 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> g -<span id="L412" class="LineNr">412 </span> <span class="PreProc">var</span> offset/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xcurr, ycurr, color, background-color -<span id="L413" class="LineNr">413 </span> xcurr <span class="Special"><-</span> add offset -<span id="L414" class="LineNr">414 </span> compare xcurr, xmax -<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> xcurr <span class="Special"><-</span> copy xmin -<span id="L418" class="LineNr">418 </span> ycurr <span class="Special"><-</span> increment -<span id="L419" class="LineNr">419 </span> <span class="Delimiter">}</span> -<span id="L420" class="LineNr">420 </span> <span class="PreProc">loop</span> -<span id="L421" class="LineNr">421 </span> <span class="Delimiter">}</span> -<span id="L422" class="LineNr">422 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, xcurr, ycurr -<span id="L423" class="LineNr">423 </span> <span class="PreProc">return</span> xcurr, ycurr -<span id="L424" class="LineNr">424 </span><span class="Delimiter">}</span> -<span id="L425" class="LineNr">425 </span> -<span id="L426" class="LineNr">426 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L426'>draw-int32-decimal-wrapping-right-then-down-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> -<span id="L427" class="LineNr">427 </span> <span class="PreProc">var</span> x2/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L428" class="LineNr">428 </span> <span class="PreProc">var</span> y2/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L429" class="LineNr">429 </span> x2, y2 <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> <span class="muComment"># width, height</span> -<span id="L430" class="LineNr">430 </span> x2, y2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L401'>draw-int32-decimal-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color -<span id="L431" class="LineNr">431 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> -<span id="L432" class="LineNr">432 </span><span class="Delimiter">}</span> -<span id="L433" class="LineNr">433 </span> -<span id="L434" class="LineNr">434 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L434'>draw-int32-decimal-wrapping-right-then-down-from-cursor</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L435" class="LineNr">435 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L436" class="LineNr">436 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L437" class="LineNr">437 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L438" class="LineNr">438 </span> <span class="PreProc">var</span> end-x/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy cursor-x -<span id="L439" class="LineNr">439 </span> end-x <span class="Special"><-</span> increment -<span id="L440" class="LineNr">440 </span> compare end-x, xmax -<span id="L441" class="LineNr">441 </span> <span class="Delimiter">{</span> -<span id="L442" class="LineNr">442 </span> <span class="PreProc">break-if-<</span> -<span id="L443" class="LineNr">443 </span> cursor-x <span class="Special"><-</span> copy xmin -<span id="L444" class="LineNr">444 </span> cursor-y <span class="Special"><-</span> increment -<span id="L445" class="LineNr">445 </span> <span class="Delimiter">}</span> -<span id="L446" class="LineNr">446 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='501draw-text.mu.html#L401'>draw-int32-decimal-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, n, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color +<span id="L394" class="LineNr">394 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L394'>draw-int32-decimal-wrapping-right-then-down</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> +<span id="L395" class="LineNr">395 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L396" class="LineNr">396 </span> <span class="PreProc">var</span> stream/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L397" class="LineNr">397 </span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> stream, n +<span id="L398" class="LineNr">398 </span> <span class="PreProc">var</span> xcurr/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy x +<span id="L399" class="LineNr">399 </span> <span class="PreProc">var</span> ycurr/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy y +<span id="L400" class="LineNr">400 </span> <span class="Delimiter">{</span> +<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> stream +<span id="L402" class="LineNr">402 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file +<span id="L403" class="LineNr">403 </span> <span class="PreProc">break-if-=</span> +<span id="L404" class="LineNr">404 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L49'>to-code-point</a> g +<span id="L405" class="LineNr">405 </span> <span class="PreProc">var</span> offset/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xcurr, ycurr, color, background-color +<span id="L406" class="LineNr">406 </span> xcurr <span class="Special"><-</span> add offset +<span id="L407" class="LineNr">407 </span> compare xcurr, xmax +<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> xcurr <span class="Special"><-</span> copy xmin +<span id="L411" class="LineNr">411 </span> ycurr <span class="Special"><-</span> increment +<span id="L412" class="LineNr">412 </span> <span class="Delimiter">}</span> +<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> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, xcurr, ycurr +<span id="L416" class="LineNr">416 </span> <span class="PreProc">return</span> xcurr, ycurr +<span id="L417" class="LineNr">417 </span><span class="Delimiter">}</span> +<span id="L418" class="LineNr">418 </span> +<span id="L419" class="LineNr">419 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L419'>draw-int32-decimal-wrapping-right-then-down-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> +<span id="L420" class="LineNr">420 </span> <span class="PreProc">var</span> x2/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L421" class="LineNr">421 </span> <span class="PreProc">var</span> y2/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L422" class="LineNr">422 </span> x2, y2 <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> <span class="muComment"># width, height</span> +<span id="L423" class="LineNr">423 </span> x2, y2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L394'>draw-int32-decimal-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color +<span id="L424" class="LineNr">424 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> +<span id="L425" class="LineNr">425 </span><span class="Delimiter">}</span> +<span id="L426" class="LineNr">426 </span> +<span id="L427" class="LineNr">427 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L427'>draw-int32-decimal-wrapping-right-then-down-from-cursor</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L428" class="LineNr">428 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L429" class="LineNr">429 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L430" class="LineNr">430 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L431" class="LineNr">431 </span> <span class="PreProc">var</span> end-x/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy cursor-x +<span id="L432" class="LineNr">432 </span> end-x <span class="Special"><-</span> increment +<span id="L433" class="LineNr">433 </span> compare end-x, xmax +<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> cursor-x <span class="Special"><-</span> copy xmin +<span id="L437" class="LineNr">437 </span> cursor-y <span class="Special"><-</span> increment +<span id="L438" class="LineNr">438 </span> <span class="Delimiter">}</span> +<span id="L439" class="LineNr">439 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='501draw-text.mu.html#L394'>draw-int32-decimal-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, n, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color +<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='501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L443" class="LineNr">443 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L444" class="LineNr">444 </span> <span class="PreProc">var</span> height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L445" class="LineNr">445 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L446" class="LineNr">446 </span> <a href='501draw-text.mu.html#L427'>draw-int32-decimal-wrapping-right-then-down-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color <span id="L447" class="LineNr">447 </span><span class="Delimiter">}</span> <span id="L448" class="LineNr">448 </span> -<span id="L449" class="LineNr">449 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L450" class="LineNr">450 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L451" class="LineNr">451 </span> <span class="PreProc">var</span> height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L452" class="LineNr">452 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L453" class="LineNr">453 </span> <a href='501draw-text.mu.html#L434'>draw-int32-decimal-wrapping-right-then-down-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color -<span id="L454" class="LineNr">454 </span><span class="Delimiter">}</span> -<span id="L455" class="LineNr">455 </span> -<span id="L456" class="LineNr">456 </span><span class="muComment">## Text direction: down then right</span> -<span id="L457" class="LineNr">457 </span> -<span id="L458" class="LineNr">458 </span><span class="muComment"># draw a single line of text vertically from x, y to ymax</span> -<span id="L459" class="LineNr">459 </span><span class="muComment"># return the next 'y' coordinate</span> -<span id="L460" class="LineNr">460 </span><span class="muComment"># if there isn't enough space, truncate</span> -<span id="L461" class="LineNr">461 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L461'>draw-text-downward</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), x: int, y: int, ymax: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L462" class="LineNr">462 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) -<span id="L463" class="LineNr">463 </span> <span class="PreProc">var</span> stream/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L464" class="LineNr">464 </span> <a href='108write.subx.html#L11'>write</a> stream, text -<span id="L465" class="LineNr">465 </span> <span class="PreProc">var</span> ycurr/eax: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L473'>draw-stream-downward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, stream, x, y, ymax, color, background-color -<span id="L466" class="LineNr">466 </span> <span class="PreProc">return</span> ycurr -<span id="L467" class="LineNr">467 </span><span class="Delimiter">}</span> -<span id="L468" class="LineNr">468 </span> -<span id="L469" class="LineNr">469 </span><span class="muComment"># draw a single-line stream vertically from x, y to ymax</span> -<span id="L470" class="LineNr">470 </span><span class="muComment"># return the next 'y' coordinate</span> -<span id="L471" class="LineNr">471 </span><span class="muComment"># if there isn't enough space, truncate</span> -<span id="L472" class="LineNr">472 </span><span class="muComment"># TODO: should we track horizontal width?</span> -<span id="L473" class="LineNr">473 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L473'>draw-stream-downward</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), x: int, y: int, ymax: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L474" class="LineNr">474 </span> <span class="PreProc">var</span> ycurr/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy y -<span id="L475" class="LineNr">475 </span> <span class="Delimiter">{</span> -<span id="L476" class="LineNr">476 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> stream -<span id="L477" class="LineNr">477 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L478" class="LineNr">478 </span> <span class="PreProc">break-if-=</span> -<span id="L479" class="LineNr">479 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> g -<span id="L480" class="LineNr">480 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, x, ycurr, color, background-color -<span id="L481" class="LineNr">481 </span> ycurr <span class="Special"><-</span> increment -<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> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, x, ycurr -<span id="L485" class="LineNr">485 </span> <span class="PreProc">return</span> ycurr +<span id="L449" class="LineNr">449 </span><span class="muComment">## Text direction: down then right</span> +<span id="L450" class="LineNr">450 </span> +<span id="L451" class="LineNr">451 </span><span class="muComment"># draw a single line of text vertically from x, y to ymax</span> +<span id="L452" class="LineNr">452 </span><span class="muComment"># return the next 'y' coordinate</span> +<span id="L453" class="LineNr">453 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L454" class="LineNr">454 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L454'>draw-text-downward</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), x: int, y: int, ymax: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> +<span id="L455" class="LineNr">455 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L456" class="LineNr">456 </span> <span class="PreProc">var</span> stream/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L457" class="LineNr">457 </span> <a href='108write.subx.html#L11'>write</a> stream, text +<span id="L458" class="LineNr">458 </span> <span class="PreProc">var</span> ycurr/eax: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L466'>draw-stream-downward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, stream, x, y, ymax, color, background-color +<span id="L459" class="LineNr">459 </span> <span class="PreProc">return</span> ycurr +<span id="L460" class="LineNr">460 </span><span class="Delimiter">}</span> +<span id="L461" class="LineNr">461 </span> +<span id="L462" class="LineNr">462 </span><span class="muComment"># draw a single-line stream vertically from x, y to ymax</span> +<span id="L463" class="LineNr">463 </span><span class="muComment"># return the next 'y' coordinate</span> +<span id="L464" class="LineNr">464 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L465" class="LineNr">465 </span><span class="muComment"># TODO: should we track horizontal width?</span> +<span id="L466" class="LineNr">466 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L466'>draw-stream-downward</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), x: int, y: int, ymax: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> +<span id="L467" class="LineNr">467 </span> <span class="PreProc">var</span> ycurr/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy y +<span id="L468" class="LineNr">468 </span> <span class="Delimiter">{</span> +<span id="L469" class="LineNr">469 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> stream +<span id="L470" class="LineNr">470 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file +<span id="L471" class="LineNr">471 </span> <span class="PreProc">break-if-=</span> +<span id="L472" class="LineNr">472 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L49'>to-code-point</a> g +<span id="L473" class="LineNr">473 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, x, ycurr, color, background-color +<span id="L474" class="LineNr">474 </span> ycurr <span class="Special"><-</span> increment +<span id="L475" class="LineNr">475 </span> <span class="PreProc">loop</span> +<span id="L476" class="LineNr">476 </span> <span class="Delimiter">}</span> +<span id="L477" class="LineNr">477 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, x, ycurr +<span id="L478" class="LineNr">478 </span> <span class="PreProc">return</span> ycurr +<span id="L479" class="LineNr">479 </span><span class="Delimiter">}</span> +<span id="L480" class="LineNr">480 </span> +<span id="L481" class="LineNr">481 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L481'>draw-text-downward-from-cursor</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), ymax: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L482" class="LineNr">482 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L483" class="LineNr">483 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L484" class="LineNr">484 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L485" class="LineNr">485 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L454'>draw-text-downward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, cursor-x, cursor-y, ymax, color, background-color <span id="L486" class="LineNr">486 </span><span class="Delimiter">}</span> <span id="L487" class="LineNr">487 </span> -<span id="L488" class="LineNr">488 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L488'>draw-text-downward-from-cursor</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), ymax: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L489" class="LineNr">489 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L490" class="LineNr">490 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L491" class="LineNr">491 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L492" class="LineNr">492 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L461'>draw-text-downward</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, cursor-x, cursor-y, ymax, color, background-color -<span id="L493" class="LineNr">493 </span><span class="Delimiter">}</span> -<span id="L494" class="LineNr">494 </span> -<span id="L495" class="LineNr">495 </span><span class="muComment"># draw text down and right in the rectangle from (xmin, ymin) to (xmax, ymax), starting from (x, y), wrapping as necessary</span> -<span id="L496" class="LineNr">496 </span><span class="muComment"># return the next (x, y) coordinate in raster order where drawing stopped</span> -<span id="L497" class="LineNr">497 </span><span class="muComment"># that way the caller can draw more if given the same min and max bounding-box.</span> -<span id="L498" class="LineNr">498 </span><span class="muComment"># if there isn't enough space, truncate</span> -<span id="L499" class="LineNr">499 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L499'>draw-text-wrapping-down-then-right</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> -<span id="L500" class="LineNr">500 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) -<span id="L501" class="LineNr">501 </span> <span class="PreProc">var</span> stream/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage -<span id="L502" class="LineNr">502 </span> <a href='108write.subx.html#L11'>write</a> stream, text -<span id="L503" class="LineNr">503 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy _x -<span id="L504" class="LineNr">504 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy _y -<span id="L505" class="LineNr">505 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L514'>draw-stream-wrapping-down-then-right</a> <a href='500fake-screen.mu.html#L16'>screen</a>, stream, xmin, ymin, xmax, ymax, x, y, color, background-color -<span id="L506" class="LineNr">506 </span> <span class="PreProc">return</span> x, y -<span id="L507" class="LineNr">507 </span><span class="Delimiter">}</span> -<span id="L508" class="LineNr">508 </span> -<span id="L509" class="LineNr">509 </span><span class="muComment"># draw a stream down and right in the rectangle from (xmin, ymin) to (xmax, ymax), starting from (x, y), wrapping as necessary</span> -<span id="L510" class="LineNr">510 </span><span class="muComment"># return the next (x, y) coordinate in raster order where drawing stopped</span> -<span id="L511" class="LineNr">511 </span><span class="muComment"># that way the caller can draw more if given the same min and max bounding-box.</span> -<span id="L512" class="LineNr">512 </span><span class="muComment"># if there isn't enough space, truncate</span> -<span id="L513" class="LineNr">513 </span><span class="muComment"># TODO: should we track horizontal width? just always offset by 2 for now</span> -<span id="L514" class="LineNr">514 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L514'>draw-stream-wrapping-down-then-right</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> -<span id="L515" class="LineNr">515 </span> <span class="PreProc">var</span> xcurr/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy x -<span id="L516" class="LineNr">516 </span> <span class="PreProc">var</span> ycurr/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy y -<span id="L517" class="LineNr">517 </span> <span class="Delimiter">{</span> -<span id="L518" class="LineNr">518 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> stream -<span id="L519" class="LineNr">519 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L520" class="LineNr">520 </span> <span class="PreProc">break-if-=</span> -<span id="L521" class="LineNr">521 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> g -<span id="L522" class="LineNr">522 </span> <span class="PreProc">var</span> offset/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xcurr, ycurr, color, background-color -<span id="L523" class="LineNr">523 </span> ycurr <span class="Special"><-</span> increment -<span id="L524" class="LineNr">524 </span> compare ycurr, ymax -<span id="L525" class="LineNr">525 </span> <span class="Delimiter">{</span> -<span id="L526" class="LineNr">526 </span> <span class="PreProc">break-if-<</span> -<span id="L527" class="LineNr">527 </span> xcurr <span class="Special"><-</span> add <span class="Constant">2</span> -<span id="L528" class="LineNr">528 </span> ycurr <span class="Special"><-</span> copy ymin -<span id="L529" class="LineNr">529 </span> <span class="Delimiter">}</span> -<span id="L530" class="LineNr">530 </span> <span class="PreProc">loop</span> -<span id="L531" class="LineNr">531 </span> <span class="Delimiter">}</span> -<span id="L532" class="LineNr">532 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, xcurr, ycurr -<span id="L533" class="LineNr">533 </span> <span class="PreProc">return</span> xcurr, ycurr -<span id="L534" class="LineNr">534 </span><span class="Delimiter">}</span> -<span id="L535" class="LineNr">535 </span> -<span id="L536" class="LineNr">536 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L536'>draw-text-wrapping-down-then-right-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> -<span id="L537" class="LineNr">537 </span> <span class="PreProc">var</span> x2/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L538" class="LineNr">538 </span> <span class="PreProc">var</span> y2/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L539" class="LineNr">539 </span> x2, y2 <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> <span class="muComment"># width, height</span> -<span id="L540" class="LineNr">540 </span> x2, y2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L499'>draw-text-wrapping-down-then-right</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color -<span id="L541" class="LineNr">541 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> -<span id="L542" class="LineNr">542 </span><span class="Delimiter">}</span> -<span id="L543" class="LineNr">543 </span> -<span id="L544" class="LineNr">544 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L544'>draw-text-wrapping-down-then-right-from-cursor</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L545" class="LineNr">545 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L546" class="LineNr">546 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L547" class="LineNr">547 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L548" class="LineNr">548 </span> <span class="PreProc">var</span> end-y/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy cursor-y -<span id="L549" class="LineNr">549 </span> end-y <span class="Special"><-</span> increment -<span id="L550" class="LineNr">550 </span> compare end-y, ymax -<span id="L551" class="LineNr">551 </span> <span class="Delimiter">{</span> -<span id="L552" class="LineNr">552 </span> <span class="PreProc">break-if-<</span> -<span id="L553" class="LineNr">553 </span> cursor-x <span class="Special"><-</span> increment -<span id="L554" class="LineNr">554 </span> cursor-y <span class="Special"><-</span> copy ymin -<span id="L555" class="LineNr">555 </span> <span class="Delimiter">}</span> -<span id="L556" class="LineNr">556 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='501draw-text.mu.html#L499'>draw-text-wrapping-down-then-right</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color +<span id="L488" class="LineNr">488 </span><span class="muComment"># draw text down and right in the rectangle from (xmin, ymin) to (xmax, ymax), starting from (x, y), wrapping as necessary</span> +<span id="L489" class="LineNr">489 </span><span class="muComment"># return the next (x, y) coordinate in raster order where drawing stopped</span> +<span id="L490" class="LineNr">490 </span><span class="muComment"># that way the caller can draw more if given the same min and max bounding-box.</span> +<span id="L491" class="LineNr">491 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L492" class="LineNr">492 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L492'>draw-text-wrapping-down-then-right</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> +<span id="L493" class="LineNr">493 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L494" class="LineNr">494 </span> <span class="PreProc">var</span> stream/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L495" class="LineNr">495 </span> <a href='108write.subx.html#L11'>write</a> stream, text +<span id="L496" class="LineNr">496 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy _x +<span id="L497" class="LineNr">497 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy _y +<span id="L498" class="LineNr">498 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L507'>draw-stream-wrapping-down-then-right</a> <a href='500fake-screen.mu.html#L16'>screen</a>, stream, xmin, ymin, xmax, ymax, x, y, color, background-color +<span id="L499" class="LineNr">499 </span> <span class="PreProc">return</span> x, y +<span id="L500" class="LineNr">500 </span><span class="Delimiter">}</span> +<span id="L501" class="LineNr">501 </span> +<span id="L502" class="LineNr">502 </span><span class="muComment"># draw a stream down and right in the rectangle from (xmin, ymin) to (xmax, ymax), starting from (x, y), wrapping as necessary</span> +<span id="L503" class="LineNr">503 </span><span class="muComment"># return the next (x, y) coordinate in raster order where drawing stopped</span> +<span id="L504" class="LineNr">504 </span><span class="muComment"># that way the caller can draw more if given the same min and max bounding-box.</span> +<span id="L505" class="LineNr">505 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L506" class="LineNr">506 </span><span class="muComment"># TODO: should we track horizontal width? just always offset by 2 for now</span> +<span id="L507" class="LineNr">507 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L507'>draw-stream-wrapping-down-then-right</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> +<span id="L508" class="LineNr">508 </span> <span class="PreProc">var</span> xcurr/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy x +<span id="L509" class="LineNr">509 </span> <span class="PreProc">var</span> ycurr/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy y +<span id="L510" class="LineNr">510 </span> <span class="Delimiter">{</span> +<span id="L511" class="LineNr">511 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> stream +<span id="L512" class="LineNr">512 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file +<span id="L513" class="LineNr">513 </span> <span class="PreProc">break-if-=</span> +<span id="L514" class="LineNr">514 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L49'>to-code-point</a> g +<span id="L515" class="LineNr">515 </span> <span class="PreProc">var</span> offset/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xcurr, ycurr, color, background-color +<span id="L516" class="LineNr">516 </span> ycurr <span class="Special"><-</span> increment +<span id="L517" class="LineNr">517 </span> compare ycurr, ymax +<span id="L518" class="LineNr">518 </span> <span class="Delimiter">{</span> +<span id="L519" class="LineNr">519 </span> <span class="PreProc">break-if-<</span> +<span id="L520" class="LineNr">520 </span> xcurr <span class="Special"><-</span> add <span class="Constant">2</span> +<span id="L521" class="LineNr">521 </span> ycurr <span class="Special"><-</span> copy ymin +<span id="L522" class="LineNr">522 </span> <span class="Delimiter">}</span> +<span id="L523" class="LineNr">523 </span> <span class="PreProc">loop</span> +<span id="L524" class="LineNr">524 </span> <span class="Delimiter">}</span> +<span id="L525" class="LineNr">525 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a>, xcurr, ycurr +<span id="L526" class="LineNr">526 </span> <span class="PreProc">return</span> xcurr, ycurr +<span id="L527" class="LineNr">527 </span><span class="Delimiter">}</span> +<span id="L528" class="LineNr">528 </span> +<span id="L529" class="LineNr">529 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L529'>draw-text-wrapping-down-then-right-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> +<span id="L530" class="LineNr">530 </span> <span class="PreProc">var</span> x2/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L531" class="LineNr">531 </span> <span class="PreProc">var</span> y2/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L532" class="LineNr">532 </span> x2, y2 <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> <span class="muComment"># width, height</span> +<span id="L533" class="LineNr">533 </span> x2, y2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L492'>draw-text-wrapping-down-then-right</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color +<span id="L534" class="LineNr">534 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> +<span id="L535" class="LineNr">535 </span><span class="Delimiter">}</span> +<span id="L536" class="LineNr">536 </span> +<span id="L537" class="LineNr">537 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L537'>draw-text-wrapping-down-then-right-from-cursor</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L538" class="LineNr">538 </span> <span class="PreProc">var</span> cursor-x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L539" class="LineNr">539 </span> <span class="PreProc">var</span> cursor-y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L540" class="LineNr">540 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L541" class="LineNr">541 </span> <span class="PreProc">var</span> end-y/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy cursor-y +<span id="L542" class="LineNr">542 </span> end-y <span class="Special"><-</span> increment +<span id="L543" class="LineNr">543 </span> compare end-y, ymax +<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> cursor-x <span class="Special"><-</span> increment +<span id="L547" class="LineNr">547 </span> cursor-y <span class="Special"><-</span> copy ymin +<span id="L548" class="LineNr">548 </span> <span class="Delimiter">}</span> +<span id="L549" class="LineNr">549 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='501draw-text.mu.html#L492'>draw-text-wrapping-down-then-right</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color +<span id="L550" class="LineNr">550 </span><span class="Delimiter">}</span> +<span id="L551" class="LineNr">551 </span> +<span id="L552" class="LineNr">552 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L552'>draw-text-wrapping-down-then-right-from-cursor-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), color: int, background-color: int <span class="Delimiter">{</span> +<span id="L553" class="LineNr">553 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L554" class="LineNr">554 </span> <span class="PreProc">var</span> height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L555" class="LineNr">555 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L556" class="LineNr">556 </span> <a href='501draw-text.mu.html#L537'>draw-text-wrapping-down-then-right-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color <span id="L557" class="LineNr">557 </span><span class="Delimiter">}</span> -<span id="L558" class="LineNr">558 </span> -<span id="L559" class="LineNr">559 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L559'>draw-text-wrapping-down-then-right-from-cursor-over-full-screen</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), color: int, background-color: int <span class="Delimiter">{</span> -<span id="L560" class="LineNr">560 </span> <span class="PreProc">var</span> width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L561" class="LineNr">561 </span> <span class="PreProc">var</span> height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L562" class="LineNr">562 </span> width, height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> -<span id="L563" class="LineNr">563 </span> <a href='501draw-text.mu.html#L544'>draw-text-wrapping-down-then-right-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color -<span id="L564" class="LineNr">564 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/502test.mu.html b/html/502test.mu.html index 81f16953..d6b37153 100644 --- a/html/502test.mu.html +++ b/html/502test.mu.html @@ -63,10 +63,10 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span> compare a, b <span id="L5" class="LineNr"> 5 </span> <span class="Delimiter">{</span> <span id="L6" class="LineNr"> 6 </span> <span class="PreProc">break-if-!=</span> -<span id="L7" class="LineNr"> 7 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L7" class="LineNr"> 7 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L8" class="LineNr"> 8 </span> <span class="PreProc">return</span> <span id="L9" class="LineNr"> 9 </span> <span class="Delimiter">}</span> -<span id="L10" class="LineNr">10 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L10" class="LineNr">10 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L11" class="LineNr">11 </span> <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen <span id="L12" class="LineNr">12 </span> <a href='104test.subx.html#L5'>count-test-failure</a> <span id="L13" class="LineNr">13 </span><span class="Delimiter">}</span> @@ -80,10 +80,10 @@ if ('onhashchange' in window) { <span id="L21" class="LineNr">21 </span> compare a, <span class="Constant">0</span>/false <span id="L22" class="LineNr">22 </span> <span class="Delimiter">{</span> <span id="L23" class="LineNr">23 </span> <span class="PreProc">break-if-=</span> -<span id="L24" class="LineNr">24 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L24" class="LineNr">24 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L25" class="LineNr">25 </span> <span class="PreProc">return</span> <span id="L26" class="LineNr">26 </span> <span class="Delimiter">}</span> -<span id="L27" class="LineNr">27 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L27" class="LineNr">27 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L28" class="LineNr">28 </span> <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen <span id="L29" class="LineNr">29 </span> <a href='104test.subx.html#L5'>count-test-failure</a> <span id="L30" class="LineNr">30 </span><span class="Delimiter">}</span> @@ -93,10 +93,10 @@ if ('onhashchange' in window) { <span id="L34" class="LineNr">34 </span> compare a, <span class="Constant">0</span>/false <span id="L35" class="LineNr">35 </span> <span class="Delimiter">{</span> <span id="L36" class="LineNr">36 </span> <span class="PreProc">break-if-!=</span> -<span id="L37" class="LineNr">37 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L37" class="LineNr">37 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L38" class="LineNr">38 </span> <span class="PreProc">return</span> <span id="L39" class="LineNr">39 </span> <span class="Delimiter">}</span> -<span id="L40" class="LineNr">40 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L40" class="LineNr">40 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L41" class="LineNr">41 </span> <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen <span id="L42" class="LineNr">42 </span> <a href='104test.subx.html#L5'>count-test-failure</a> <span id="L43" class="LineNr">43 </span><span class="Delimiter">}</span> diff --git a/html/504test-screen.mu.html b/html/504test-screen.mu.html index 086e25eb..14e4c2b1 100644 --- a/html/504test-screen.mu.html +++ b/html/504test-screen.mu.html @@ -76,7 +76,7 @@ if ('onhashchange' in window) { <span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> copy _screen <span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> failure-count/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> index/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L244'>screen-cell-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, x, y -<span id="L15" class="LineNr"> 15 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'index', grapheme by grapheme</span> +<span id="L15" class="LineNr"> 15 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'index', code-point-utf8 by code-point-utf8</span> <span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) <span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> e-addr/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address e <span id="L18" class="LineNr"> 18 </span> <a href='108write.subx.html#L11'>write</a> e-addr, expected @@ -90,32 +90,32 @@ if ('onhashchange' in window) { <span id="L26" class="LineNr"> 26 </span> <span class="PreProc">break-if-!=</span> <span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> _c/eax: code-point <span class="Special"><-</span> <a href='500fake-screen.mu.html#L531'>screen-code-point-at-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index <span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> c/<span class="muRegEbx">ebx</span>: code-point <span class="Special"><-</span> copy _c -<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> expected-grapheme/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> e-addr -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> expected-code-point/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> expected-grapheme -<span id="L31" class="LineNr"> 31 </span> <span class="muComment"># compare graphemes</span> -<span id="L32" class="LineNr"> 32 </span> $check-screen-row-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L33" class="LineNr"> 33 </span> <span class="muComment"># if expected-code-point is space, null grapheme is also ok</span> +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> expected-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> e-addr +<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> expected-code-point/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L49'>to-code-point</a> expected-code-point-utf8 +<span id="L31" class="LineNr"> 31 </span> <span class="muComment"># compare code-point-utf8s</span> +<span id="L32" class="LineNr"> 32 </span> $check-screen-row-from:compare-code-point-utf8s: <span class="Delimiter">{</span> +<span id="L33" class="LineNr"> 33 </span> <span class="muComment"># if expected-code-point is space, null code-point-utf8 is also ok</span> <span id="L34" class="LineNr"> 34 </span> <span class="Delimiter">{</span> <span id="L35" class="LineNr"> 35 </span> compare expected-code-point, <span class="Constant">0x20</span> <span id="L36" class="LineNr"> 36 </span> <span class="PreProc">break-if-!=</span> <span id="L37" class="LineNr"> 37 </span> compare c, <span class="Constant">0</span> -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">break-if-=</span> $check-screen-row-from:compare-graphemes +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">break-if-=</span> $check-screen-row-from:compare-code-point-utf8s <span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">}</span> <span id="L40" class="LineNr"> 40 </span> <span class="muComment"># if (c == expected-code-point) print "."</span> <span id="L41" class="LineNr"> 41 </span> compare c, expected-code-point <span id="L42" class="LineNr"> 42 </span> <span class="PreProc">break-if-=</span> <span id="L43" class="LineNr"> 43 </span> <span class="muComment"># otherwise print an error</span> <span id="L44" class="LineNr"> 44 </span> failure-count <span class="Special"><-</span> increment -<span id="L45" class="LineNr"> 45 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L46" class="LineNr"> 46 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L47" class="LineNr"> 47 </span> <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, expected-code-point, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L48" class="LineNr"> 48 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L49" class="LineNr"> 49 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L50" class="LineNr"> 50 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L51" class="LineNr"> 51 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L52" class="LineNr"> 52 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") but observed '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L53" class="LineNr"> 53 </span> <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, c, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L54" class="LineNr"> 54 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"'"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L45" class="LineNr"> 45 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L46" class="LineNr"> 46 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L47" class="LineNr"> 47 </span> <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, expected-code-point, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L48" class="LineNr"> 48 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L49" class="LineNr"> 49 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L50" class="LineNr"> 50 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L51" class="LineNr"> 51 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L52" class="LineNr"> 52 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") but observed '"</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L53" class="LineNr"> 53 </span> <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, c, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L54" class="LineNr"> 54 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"'"</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L55" class="LineNr"> 55 </span> <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen <span id="L56" class="LineNr"> 56 </span> <span class="Delimiter">}</span> <span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">}</span> @@ -131,7 +131,7 @@ if ('onhashchange' in window) { <span id="L67" class="LineNr"> 67 </span> <span class="PreProc">return</span> <span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">}</span> <span id="L69" class="LineNr"> 69 </span> <span class="muComment"># otherwise print a "."</span> -<span id="L70" class="LineNr"> 70 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L70" class="LineNr"> 70 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="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="muComment"># various variants by screen-cell attribute; spaces in the 'expected' data should not match the attribute</span> @@ -143,7 +143,7 @@ if ('onhashchange' in window) { <span id="L79" class="LineNr"> 79 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L79'>check-screen-row-in-color-from</a></span> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), fg: int, y: int, x: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> <span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> copy _screen <span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> index/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L244'>screen-cell-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, x, y -<span id="L82" class="LineNr"> 82 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'index', grapheme by grapheme</span> +<span id="L82" class="LineNr"> 82 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'index', code-point-utf8 by code-point-utf8</span> <span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) <span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> e-addr/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address e <span id="L85" class="LineNr"> 85 </span> <a href='108write.subx.html#L11'>write</a> e-addr, expected @@ -157,11 +157,11 @@ if ('onhashchange' in window) { <span id="L93" class="LineNr"> 93 </span> <span class="PreProc">break-if-!=</span> <span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> _c/eax: code-point <span class="Special"><-</span> <a href='500fake-screen.mu.html#L531'>screen-code-point-at-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index <span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> c/<span class="muRegEbx">ebx</span>: code-point <span class="Special"><-</span> copy _c -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> expected-grapheme/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> e-addr -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> _expected-code-point/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> expected-grapheme +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> expected-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> e-addr +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> _expected-code-point/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L49'>to-code-point</a> expected-code-point-utf8 <span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> expected-code-point/<span class="muRegEdi">edi</span>: code-point <span class="Special"><-</span> copy _expected-code-point <span id="L99" class="LineNr"> 99 </span> $check-screen-row-in-color-from:compare-cells: <span class="Delimiter">{</span> -<span id="L100" class="LineNr">100 </span> <span class="muComment"># if expected-code-point is space, null grapheme is also ok</span> +<span id="L100" class="LineNr">100 </span> <span class="muComment"># if expected-code-point is space, null code-point-utf8 is also ok</span> <span id="L101" class="LineNr">101 </span> <span class="Delimiter">{</span> <span id="L102" class="LineNr">102 </span> compare expected-code-point, <span class="Constant">0x20</span> <span id="L103" class="LineNr">103 </span> <span class="PreProc">break-if-!=</span> @@ -176,27 +176,27 @@ if ('onhashchange' in window) { <span id="L112" class="LineNr">112 </span> compare color, fg <span id="L113" class="LineNr">113 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-color-from:compare-cells <span id="L114" class="LineNr">114 </span> <span class="Delimiter">}</span> -<span id="L115" class="LineNr">115 </span> <span class="muComment"># compare graphemes</span> -<span id="L116" class="LineNr">116 </span> $check-screen-row-in-color-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L115" class="LineNr">115 </span> <span class="muComment"># compare code-point-utf8s</span> +<span id="L116" class="LineNr">116 </span> $check-screen-row-in-color-from:compare-code-point-utf8s: <span class="Delimiter">{</span> <span id="L117" class="LineNr">117 </span> <span class="muComment"># if (c == expected-code-point) print "."</span> <span id="L118" class="LineNr">118 </span> compare c, expected-code-point <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='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L122" class="LineNr">122 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-graphemes +<span id="L121" class="LineNr">121 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L122" class="LineNr">122 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-code-point-utf8s <span id="L123" class="LineNr">123 </span> <span class="Delimiter">}</span> <span id="L124" class="LineNr">124 </span> <span class="muComment"># otherwise print an error</span> <span id="L125" class="LineNr">125 </span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L126" class="LineNr">126 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L127" class="LineNr">127 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L128" class="LineNr">128 </span> <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, expected-code-point, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L129" class="LineNr">129 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L130" class="LineNr">130 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L131" class="LineNr">131 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L132" class="LineNr">132 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L133" class="LineNr">133 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") but observed '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L134" class="LineNr">134 </span> <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, c, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L135" class="LineNr">135 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"'"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L126" class="LineNr">126 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L127" class="LineNr">127 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L128" class="LineNr">128 </span> <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, expected-code-point, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L129" class="LineNr">129 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L130" class="LineNr">130 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L131" class="LineNr">131 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L132" class="LineNr">132 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L133" class="LineNr">133 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") but observed '"</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L134" class="LineNr">134 </span> <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, c, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L135" class="LineNr">135 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"'"</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L136" class="LineNr">136 </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="L137" class="LineNr">137 </span> <span class="Delimiter">}</span> <span id="L138" class="LineNr">138 </span> $check-screen-row-in-color-from:compare-colors: <span class="Delimiter">{</span> @@ -204,22 +204,22 @@ if ('onhashchange' in window) { <span id="L140" class="LineNr">140 </span> compare fg, color <span id="L141" class="LineNr">141 </span> <span class="Delimiter">{</span> <span id="L142" class="LineNr">142 </span> <span class="PreProc">break-if-!=</span> -<span id="L143" class="LineNr">143 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L143" class="LineNr">143 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L144" class="LineNr">144 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-colors <span id="L145" class="LineNr">145 </span> <span class="Delimiter">}</span> <span id="L146" class="LineNr">146 </span> <span class="muComment"># otherwise print an error</span> <span id="L147" class="LineNr">147 </span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L148" class="LineNr">148 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L149" class="LineNr">149 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L150" class="LineNr">150 </span> <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, expected-code-point, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L151" class="LineNr">151 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L152" class="LineNr">152 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L153" class="LineNr">153 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L154" class="LineNr">154 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L155" class="LineNr">155 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") in color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L156" class="LineNr">156 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, fg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L157" class="LineNr">157 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" but observed color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L158" class="LineNr">158 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, color, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L148" class="LineNr">148 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L149" class="LineNr">149 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L150" class="LineNr">150 </span> <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, expected-code-point, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L151" class="LineNr">151 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L152" class="LineNr">152 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L153" class="LineNr">153 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L154" class="LineNr">154 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L155" class="LineNr">155 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") in color "</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L156" class="LineNr">156 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, fg, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L157" class="LineNr">157 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" but observed color "</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L158" class="LineNr">158 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, color, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L159" class="LineNr">159 </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="L160" class="LineNr">160 </span> <span class="Delimiter">}</span> <span id="L161" class="LineNr">161 </span> <span class="Delimiter">}</span> @@ -237,7 +237,7 @@ if ('onhashchange' in window) { <span id="L173" class="LineNr">173 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L173'>check-screen-row-in-background-color-from</a></span> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), bg: int, y: int, x: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> <span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> copy _screen <span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> index/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L244'>screen-cell-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, x, y -<span id="L176" class="LineNr">176 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'index', grapheme by grapheme</span> +<span id="L176" class="LineNr">176 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'index', code-point-utf8 by code-point-utf8</span> <span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) <span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> e-addr/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address e <span id="L179" class="LineNr">179 </span> <a href='108write.subx.html#L11'>write</a> e-addr, expected @@ -251,11 +251,11 @@ if ('onhashchange' in window) { <span id="L187" class="LineNr">187 </span> <span class="PreProc">break-if-!=</span> <span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> _g/eax: code-point <span class="Special"><-</span> <a href='500fake-screen.mu.html#L531'>screen-code-point-at-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index <span id="L189" class="LineNr">189 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: code-point <span class="Special"><-</span> copy _g -<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> expected-grapheme/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> e-addr -<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> _expected-code-point/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> expected-grapheme +<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> expected-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> e-addr +<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> _expected-code-point/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L49'>to-code-point</a> expected-code-point-utf8 <span id="L192" class="LineNr">192 </span> <span class="PreProc">var</span> expected-code-point/<span class="muRegEdi">edi</span>: code-point <span class="Special"><-</span> copy _expected-code-point <span id="L193" class="LineNr">193 </span> $check-screen-row-in-background-color-from:compare-cells: <span class="Delimiter">{</span> -<span id="L194" class="LineNr">194 </span> <span class="muComment"># if expected-code-point is space, null grapheme is also ok</span> +<span id="L194" class="LineNr">194 </span> <span class="muComment"># if expected-code-point is space, null code-point-utf8 is also ok</span> <span id="L195" class="LineNr">195 </span> <span class="Delimiter">{</span> <span id="L196" class="LineNr">196 </span> compare expected-code-point, <span class="Constant">0x20</span> <span id="L197" class="LineNr">197 </span> <span class="PreProc">break-if-!=</span> @@ -270,51 +270,51 @@ if ('onhashchange' in window) { <span id="L206" class="LineNr">206 </span> compare background-color, bg <span id="L207" class="LineNr">207 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-background-color-from:compare-cells <span id="L208" class="LineNr">208 </span> <span class="Delimiter">}</span> -<span id="L209" class="LineNr">209 </span> <span class="muComment"># compare graphemes</span> -<span id="L210" class="LineNr">210 </span> $check-screen-row-in-background-color-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L209" class="LineNr">209 </span> <span class="muComment"># compare code-point-utf8s</span> +<span id="L210" class="LineNr">210 </span> $check-screen-row-in-background-color-from:compare-code-point-utf8s: <span class="Delimiter">{</span> <span id="L211" class="LineNr">211 </span> <span class="muComment"># if (g == expected-code-point) print "."</span> <span id="L212" class="LineNr">212 </span> compare g, expected-code-point <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='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L216" class="LineNr">216 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-graphemes +<span id="L215" class="LineNr">215 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L216" class="LineNr">216 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-code-point-utf8s <span id="L217" class="LineNr">217 </span> <span class="Delimiter">}</span> <span id="L218" class="LineNr">218 </span> <span class="muComment"># otherwise print an error</span> <span id="L219" class="LineNr">219 </span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L220" class="LineNr">220 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L221" class="LineNr">221 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L222" class="LineNr">222 </span> <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, expected-code-point, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L223" class="LineNr">223 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L224" class="LineNr">224 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L225" class="LineNr">225 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L226" class="LineNr">226 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L227" class="LineNr">227 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") but observed '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L228" class="LineNr">228 </span> <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, g, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L229" class="LineNr">229 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"'"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L220" class="LineNr">220 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L221" class="LineNr">221 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L222" class="LineNr">222 </span> <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, expected-code-point, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L223" class="LineNr">223 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L224" class="LineNr">224 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L225" class="LineNr">225 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L226" class="LineNr">226 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L227" class="LineNr">227 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") but observed '"</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L228" class="LineNr">228 </span> <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, g, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L229" class="LineNr">229 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"'"</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L230" class="LineNr">230 </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="L231" class="LineNr">231 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-graphemes +<span id="L231" class="LineNr">231 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-code-point-utf8s <span id="L232" class="LineNr">232 </span> <span class="Delimiter">}</span> <span id="L233" class="LineNr">233 </span> $check-screen-row-in-background-color-from:compare-background-colors: <span class="Delimiter">{</span> <span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> background-color/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L568'>screen-background-color-at-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index <span id="L235" class="LineNr">235 </span> compare bg, background-color <span id="L236" class="LineNr">236 </span> <span class="Delimiter">{</span> <span id="L237" class="LineNr">237 </span> <span class="PreProc">break-if-!=</span> -<span id="L238" class="LineNr">238 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L238" class="LineNr">238 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L239" class="LineNr">239 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-background-colors <span id="L240" class="LineNr">240 </span> <span class="Delimiter">}</span> <span id="L241" class="LineNr">241 </span> <span class="muComment"># otherwise print an error</span> <span id="L242" class="LineNr">242 </span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L243" class="LineNr">243 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L244" class="LineNr">244 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L245" class="LineNr">245 </span> <a href='501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, expected-code-point, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L246" class="LineNr">246 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L247" class="LineNr">247 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L248" class="LineNr">248 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L249" class="LineNr">249 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L250" class="LineNr">250 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") in background-color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L251" class="LineNr">251 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, bg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L252" class="LineNr">252 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" but observed background-color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L253" class="LineNr">253 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, background-color, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L243" class="LineNr">243 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L244" class="LineNr">244 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L245" class="LineNr">245 </span> <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, expected-code-point, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L246" class="LineNr">246 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L247" class="LineNr">247 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L248" class="LineNr">248 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L249" class="LineNr">249 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L250" class="LineNr">250 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") in background-color "</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L251" class="LineNr">251 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, bg, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L252" class="LineNr">252 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" but observed background-color "</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L253" class="LineNr">253 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, background-color, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L254" class="LineNr">254 </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="L255" class="LineNr">255 </span> <span class="Delimiter">}</span> <span id="L256" class="LineNr">256 </span> <span class="Delimiter">}</span> @@ -348,8 +348,8 @@ if ('onhashchange' in window) { <span id="L284" class="LineNr">284 </span> <span class="PreProc">var</span> unused?/eax: boolean <span class="Special"><-</span> <a href='500fake-screen.mu.html#L513'>screen-cell-unused-at-index?</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index <span id="L285" class="LineNr">285 </span> compare unused?, <span class="Constant">0</span>/false <span id="L286" class="LineNr">286 </span> <span class="PreProc">break-if-!=</span> -<span id="L287" class="LineNr">287 </span> <span class="PreProc">var</span> _expected-bit/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> e-addr -<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> expected-bit/<span class="muRegEdi">edi</span>: grapheme <span class="Special"><-</span> copy _expected-bit +<span id="L287" class="LineNr">287 </span> <span class="PreProc">var</span> _expected-bit/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> e-addr +<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> expected-bit/<span class="muRegEdi">edi</span>: code-point-utf8 <span class="Special"><-</span> copy _expected-bit <span id="L289" class="LineNr">289 </span> $check-background-color-in-screen-row-from:compare-cells: <span class="Delimiter">{</span> <span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> background-color/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L568'>screen-background-color-at-index</a> <a href='500fake-screen.mu.html#L16'>screen</a>, index <span id="L291" class="LineNr">291 </span> <span class="muComment"># if expected-bit is space, assert that background is NOT bg</span> @@ -359,13 +359,13 @@ if ('onhashchange' in window) { <span id="L295" class="LineNr">295 </span> compare background-color, bg <span id="L296" class="LineNr">296 </span> <span class="PreProc">break-if-!=</span> $check-background-color-in-screen-row-from:compare-cells <span id="L297" class="LineNr">297 </span> increment failure-count -<span id="L298" class="LineNr">298 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L299" class="LineNr">299 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L300" class="LineNr">300 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L301" class="LineNr">301 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L302" class="LineNr">302 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L303" class="LineNr">303 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") to not be in background-color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L304" class="LineNr">304 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, bg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L298" class="LineNr">298 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L299" class="LineNr">299 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected ("</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L300" class="LineNr">300 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L301" class="LineNr">301 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L302" class="LineNr">302 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L303" class="LineNr">303 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") to not be in background-color "</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L304" class="LineNr">304 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, bg, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L305" class="LineNr">305 </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="L306" class="LineNr">306 </span> <span class="PreProc">break</span> $check-background-color-in-screen-row-from:compare-cells <span id="L307" class="LineNr">307 </span> <span class="Delimiter">}</span> @@ -373,15 +373,15 @@ if ('onhashchange' in window) { <span id="L309" class="LineNr">309 </span> compare background-color, bg <span id="L310" class="LineNr">310 </span> <span class="PreProc">break-if-=</span> $check-background-color-in-screen-row-from:compare-cells <span id="L311" class="LineNr">311 </span> increment failure-count -<span id="L312" class="LineNr">312 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L313" class="LineNr">313 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L314" class="LineNr">314 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L315" class="LineNr">315 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L316" class="LineNr">316 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L317" class="LineNr">317 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") in background-color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L318" class="LineNr">318 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, bg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L319" class="LineNr">319 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" but observed background-color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L320" class="LineNr">320 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, background-color, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L312" class="LineNr">312 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L313" class="LineNr">313 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected ("</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L314" class="LineNr">314 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L315" class="LineNr">315 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L316" class="LineNr">316 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L317" class="LineNr">317 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") in background-color "</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L318" class="LineNr">318 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, bg, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L319" class="LineNr">319 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" but observed background-color "</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L320" class="LineNr">320 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, background-color, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L321" class="LineNr">321 </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="L322" class="LineNr">322 </span> <span class="Delimiter">}</span> <span id="L323" class="LineNr">323 </span> <span class="Delimiter">}</span> @@ -397,28 +397,28 @@ if ('onhashchange' in window) { <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"># otherwise print a "."</span> -<span id="L336" class="LineNr">336 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L336" class="LineNr">336 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg <span id="L337" class="LineNr">337 </span><span class="Delimiter">}</span> <span id="L338" class="LineNr">338 </span> -<span id="L339" class="LineNr">339 </span><span class="PreProc">fn</span> <span class="muTest"><a href='504test-screen.mu.html#L339'>test-draw-single-grapheme</a></span> <span class="Delimiter">{</span> +<span id="L339" class="LineNr">339 </span><span class="PreProc">fn</span> <span class="muTest"><a href='504test-screen.mu.html#L339'>test-draw-single-code-point-utf8</a></span> <span class="Delimiter">{</span> <span id="L340" class="LineNr">340 </span> <span class="PreProc">var</span> _screen: <a href='500fake-screen.mu.html#L16'>screen</a> <span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> address _screen <span id="L342" class="LineNr">342 </span> <a href='500fake-screen.mu.html#L34'>initialize-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span>, <span class="Constant">0</span>/no-pixel-graphics <span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x61</span>/a, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">1</span>/fg, <span class="Constant">2</span>/bg -<span id="L344" class="LineNr">344 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"a"</span>, <span class="Constant">"F - test-draw-single-grapheme"</span> <span class="muComment"># top-left corner of the screen</span> -<span id="L345" class="LineNr">345 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">1</span>/fg, <span class="Constant">0</span>/y, <span class="Constant">"a"</span>, <span class="Constant">"F - test-draw-single-grapheme-fg"</span> -<span id="L346" class="LineNr">346 </span> <a href='504test-screen.mu.html#L169'>check-screen-row-in-background-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/bg, <span class="Constant">0</span>/y, <span class="Constant">"a"</span>, <span class="Constant">"F - test-draw-single-grapheme-bg"</span> -<span id="L347" class="LineNr">347 </span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/bg, <span class="Constant">0</span>/y, <span class="Constant">"x "</span>, <span class="Constant">"F - test-draw-single-grapheme-bg2"</span> +<span id="L344" class="LineNr">344 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"a"</span>, <span class="Constant">"F - test-draw-single-code-point-utf8"</span> <span class="muComment"># top-left corner of the screen</span> +<span id="L345" class="LineNr">345 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">1</span>/fg, <span class="Constant">0</span>/y, <span class="Constant">"a"</span>, <span class="Constant">"F - test-draw-single-code-point-utf8-fg"</span> +<span id="L346" class="LineNr">346 </span> <a href='504test-screen.mu.html#L169'>check-screen-row-in-background-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/bg, <span class="Constant">0</span>/y, <span class="Constant">"a"</span>, <span class="Constant">"F - test-draw-single-code-point-utf8-bg"</span> +<span id="L347" class="LineNr">347 </span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/bg, <span class="Constant">0</span>/y, <span class="Constant">"x "</span>, <span class="Constant">"F - test-draw-single-code-point-utf8-bg2"</span> <span id="L348" class="LineNr">348 </span><span class="Delimiter">}</span> <span id="L349" class="LineNr">349 </span> -<span id="L350" class="LineNr">350 </span><span class="PreProc">fn</span> <span class="muTest"><a href='504test-screen.mu.html#L350'>test-draw-multiple-graphemes</a></span> <span class="Delimiter">{</span> +<span id="L350" class="LineNr">350 </span><span class="PreProc">fn</span> <span class="muTest"><a href='504test-screen.mu.html#L350'>test-draw-multiple-code-point-utf8s</a></span> <span class="Delimiter">{</span> <span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> _screen: <a href='500fake-screen.mu.html#L16'>screen</a> <span id="L352" class="LineNr">352 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> address _screen <span id="L353" class="LineNr">353 </span> <a href='500fake-screen.mu.html#L34'>initialize-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x10</span>/rows, <span class="Constant">4</span>/cols, <span class="Constant">0</span>/no-pixel-graphics -<span id="L354" class="LineNr">354 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">1</span>/fg, <span class="Constant">2</span>/bg -<span id="L355" class="LineNr">355 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">"F - test-draw-multiple-graphemes"</span> -<span id="L356" class="LineNr">356 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">1</span>/fg, <span class="Constant">0</span>/y, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">"F - test-draw-multiple-graphemes-fg"</span> -<span id="L357" class="LineNr">357 </span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/bg, <span class="Constant">0</span>/y, <span class="Constant">"xxxxxxxxx "</span>, <span class="Constant">"F - test-draw-multiple-graphemes-bg2"</span> +<span id="L354" class="LineNr">354 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">1</span>/fg, <span class="Constant">2</span>/bg +<span id="L355" class="LineNr">355 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">"F - test-draw-multiple-code-point-utf8s"</span> +<span id="L356" class="LineNr">356 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">1</span>/fg, <span class="Constant">0</span>/y, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">"F - test-draw-multiple-code-point-utf8s-fg"</span> +<span id="L357" class="LineNr">357 </span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/bg, <span class="Constant">0</span>/y, <span class="Constant">"xxxxxxxxx "</span>, <span class="Constant">"F - test-draw-multiple-code-point-utf8s-bg2"</span> <span id="L358" class="LineNr">358 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/511image.mu.html b/html/511image.mu.html index e51afe38..44401a7f 100644 --- a/html/511image.mu.html +++ b/html/511image.mu.html @@ -236,9 +236,9 @@ if ('onhashchange' in window) { <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='500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0x20</span>/x <span class="Constant">0x20</span>/y -<span id="L174" class="LineNr"> 174 </span> <a href='501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgx, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L175" class="LineNr"> 175 </span> <a href='501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgy, <span class="Constant">4</span>/fg <span class="Constant">0</span>/bg -<span id="L176" class="LineNr"> 176 </span> <a href='501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, idx, <span class="Constant">5</span>/fg <span class="Constant">0</span>/bg +<span id="L174" class="LineNr"> 174 </span> <a href='501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgx, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L175" class="LineNr"> 175 </span> <a href='501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgy, <span class="Constant">4</span>/fg <span class="Constant">0</span>/bg +<span id="L176" class="LineNr"> 176 </span> <a href='501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, idx, <span class="Constant">5</span>/fg <span class="Constant">0</span>/bg <span id="L177" class="LineNr"> 177 </span> <span class="Delimiter">}</span> <span id="L178" class="LineNr"> 178 </span> <span class="PreProc">var</span> src-a/eax: (addr byte) <span class="Special"><-</span> index img-data, idx <span id="L179" class="LineNr"> 179 </span> <span class="PreProc">var</span> src/eax: byte <span class="Special"><-</span> copy-byte *src-a @@ -279,7 +279,7 @@ if ('onhashchange' in window) { <span id="L214" class="LineNr"> 214 </span> tmp <span class="Special"><-</span> <a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> curr-word <span id="L215" class="LineNr"> 215 </span> compare tmp, <span class="Constant">0xff</span> <span id="L216" class="LineNr"> 216 </span> <span class="PreProc">break-if-=</span> -<span id="L217" class="LineNr"> 217 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"levels of grey is not 255; continuing and hoping for the best"</span>, <span class="Constant">0x2b</span>/fg <span class="Constant">0</span>/bg +<span id="L217" class="LineNr"> 217 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"levels of grey is not 255; continuing and hoping for the best"</span>, <span class="Constant">0x2b</span>/fg <span class="Constant">0</span>/bg <span id="L218" class="LineNr"> 218 </span> <span class="Delimiter">}</span> <span id="L219" class="LineNr"> 219 </span> <span class="PreProc">var</span> dest/<span class="muRegEdi">edi</span>: (addr int) <span class="Special"><-</span> get self, max <span id="L220" class="LineNr"> 220 </span> copy-to *dest, tmp @@ -358,9 +358,9 @@ if ('onhashchange' in window) { <span id="L293" class="LineNr"> 293 </span> <span class="Delimiter">{</span> <span id="L294" class="LineNr"> 294 </span> <span class="PreProc">break-if-<</span> <span id="L295" class="LineNr"> 295 </span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0x20</span>/x <span class="Constant">0x20</span>/y -<span id="L296" class="LineNr"> 296 </span> <a href='501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgx, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L297" class="LineNr"> 297 </span> <a href='501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgy, <span class="Constant">4</span>/fg <span class="Constant">0</span>/bg -<span id="L298" class="LineNr"> 298 </span> <a href='501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, idx, <span class="Constant">5</span>/fg <span class="Constant">0</span>/bg +<span id="L296" class="LineNr"> 296 </span> <a href='501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgx, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L297" class="LineNr"> 297 </span> <a href='501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgy, <span class="Constant">4</span>/fg <span class="Constant">0</span>/bg +<span id="L298" class="LineNr"> 298 </span> <a href='501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, idx, <span class="Constant">5</span>/fg <span class="Constant">0</span>/bg <span id="L299" class="LineNr"> 299 </span> <span class="Delimiter">}</span> <span id="L300" class="LineNr"> 300 </span> <span class="PreProc">var</span> src-a/eax: (addr byte) <span class="Special"><-</span> index img-data, idx <span id="L301" class="LineNr"> 301 </span> <span class="PreProc">var</span> src/eax: byte <span class="Special"><-</span> copy-byte *src-a @@ -433,12 +433,12 @@ if ('onhashchange' in window) { <span id="L368" class="LineNr"> 368 </span> curr-int <span class="Special"><-</span> shift-left <span class="Constant">0x10</span> <span class="muComment"># we have 32 bits; we'll use 16 bits for the fraction and leave 8 for unanticipated overflow</span> <span id="L369" class="LineNr"> 369 </span> <span class="PreProc">var</span> <span class="Special">error</span>/<span class="muRegEsi">esi</span>: int <span class="Special"><-</span> <a href='511image.mu.html#L563'>_read-dithering-error</a> errors, x, y, src-width <span id="L370" class="LineNr"> 370 </span> <span class="Special">error</span> <span class="Special"><-</span> add curr-int -<span id="L371" class="LineNr"> 371 </span> $_dither-pgm-unordered-monochrome:update-error: <span class="Delimiter">{</span> +<span id="L371" class="LineNr"> 371 </span> $dither-pgm-unordered-monochrome:update-error: <span class="Delimiter">{</span> <span id="L372" class="LineNr"> 372 </span> compare <span class="Special">error</span>, <span class="Constant">0x800000</span> <span id="L373" class="LineNr"> 373 </span> <span class="Delimiter">{</span> <span id="L374" class="LineNr"> 374 </span> <span class="PreProc">break-if->=</span> <span id="L375" class="LineNr"> 375 </span> <a href='511image.mu.html#L594'>_write-raw-buffer</a> dest-data, x, y, src-width, <span class="Constant">0</span>/black -<span id="L376" class="LineNr"> 376 </span> <span class="PreProc">break</span> $_dither-pgm-unordered-monochrome:update-error +<span id="L376" class="LineNr"> 376 </span> <span class="PreProc">break</span> $dither-pgm-unordered-monochrome:update-error <span id="L377" class="LineNr"> 377 </span> <span class="Delimiter">}</span> <span id="L378" class="LineNr"> 378 </span> <a href='511image.mu.html#L594'>_write-raw-buffer</a> dest-data, x, y, src-width, <span class="Constant">1</span>/white <span id="L379" class="LineNr"> 379 </span> <span class="Special">error</span> <span class="Special"><-</span> subtract <span class="Constant">0xff0000</span> @@ -718,8 +718,8 @@ if ('onhashchange' in window) { <span id="L653" class="LineNr"> 653 </span><span class="CommentedCode">#? break-if-<=</span> <span id="L654" class="LineNr"> 654 </span><span class="CommentedCode">#? return</span> <span id="L655" class="LineNr"> 655 </span><span class="CommentedCode">#? }</span> -<span id="L656" class="LineNr"> 656 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, s, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg -<span id="L657" class="LineNr"> 657 </span> <a href='501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, d, fg <span class="Constant">0</span>/bg +<span id="L656" class="LineNr"> 656 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, s, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L657" class="LineNr"> 657 </span> <a href='501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, d, fg <span class="Constant">0</span>/bg <span id="L658" class="LineNr"> 658 </span><span class="Delimiter">}</span> <span id="L659" class="LineNr"> 659 </span> <span id="L660" class="LineNr"> 660 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='511image.mu.html#L660'>psx</a></span> s: (addr array byte), d: int, fg: int, x: int, y: int <span class="Delimiter">{</span> @@ -743,8 +743,8 @@ if ('onhashchange' in window) { <span id="L678" class="LineNr"> 678 </span><span class="CommentedCode">#? break-if-<=</span> <span id="L679" class="LineNr"> 679 </span><span class="CommentedCode">#? return</span> <span id="L680" class="LineNr"> 680 </span><span class="CommentedCode">#? }</span> -<span id="L681" class="LineNr"> 681 </span> <a href='501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, s, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg -<span id="L682" class="LineNr"> 682 </span> <a href='501draw-text.mu.html#L394'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, d, fg <span class="Constant">0</span>/bg +<span id="L681" class="LineNr"> 681 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, s, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L682" class="LineNr"> 682 </span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, d, fg <span class="Constant">0</span>/bg <span id="L683" class="LineNr"> 683 </span><span class="Delimiter">}</span> <span id="L684" class="LineNr"> 684 </span> <span id="L685" class="LineNr"> 685 </span><span class="muComment"># import a color ascii "pixmap" (each pixel consists of 3 shades of r/g/b from 0 to 255)</span> @@ -855,9 +855,9 @@ if ('onhashchange' in window) { <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> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0x20</span>/x <span class="Constant">0x20</span>/y -<span id="L793" class="LineNr"> 793 </span> <a href='501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgx, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L794" class="LineNr"> 794 </span> <a href='501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgy, <span class="Constant">4</span>/fg <span class="Constant">0</span>/bg -<span id="L795" class="LineNr"> 795 </span> <a href='501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, idx, <span class="Constant">5</span>/fg <span class="Constant">0</span>/bg +<span id="L793" class="LineNr"> 793 </span> <a href='501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgx, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L794" class="LineNr"> 794 </span> <a href='501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgy, <span class="Constant">4</span>/fg <span class="Constant">0</span>/bg +<span id="L795" class="LineNr"> 795 </span> <a href='501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, idx, <span class="Constant">5</span>/fg <span class="Constant">0</span>/bg <span id="L796" class="LineNr"> 796 </span> <span class="Delimiter">}</span> <span id="L797" class="LineNr"> 797 </span> <span class="muComment"># r channel</span> <span id="L798" class="LineNr"> 798 </span> <span class="PreProc">var</span> r: int @@ -1144,9 +1144,9 @@ if ('onhashchange' in window) { <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> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0x20</span>/x <span class="Constant">0x20</span>/y -<span id="L1082" class="LineNr">1082 </span> <a href='501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgx, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L1083" class="LineNr">1083 </span> <a href='501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgy, <span class="Constant">4</span>/fg <span class="Constant">0</span>/bg -<span id="L1084" class="LineNr">1084 </span> <a href='501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, idx, <span class="Constant">5</span>/fg <span class="Constant">0</span>/bg +<span id="L1082" class="LineNr">1082 </span> <a href='501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgx, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L1083" class="LineNr">1083 </span> <a href='501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, imgy, <span class="Constant">4</span>/fg <span class="Constant">0</span>/bg +<span id="L1084" class="LineNr">1084 </span> <a href='501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, idx, <span class="Constant">5</span>/fg <span class="Constant">0</span>/bg <span id="L1085" class="LineNr">1085 </span> <span class="Delimiter">}</span> <span id="L1086" class="LineNr">1086 </span> <span class="PreProc">var</span> color-a/eax: (addr byte) <span class="Special"><-</span> index img-data, idx <span id="L1087" class="LineNr">1087 </span> <span class="PreProc">var</span> color/eax: byte <span class="Special"><-</span> copy-byte *color-a diff --git a/html/513grapheme-stack.mu.html b/html/513grapheme-stack.mu.html index 4467a51c..bde73e65 100644 --- a/html/513grapheme-stack.mu.html +++ b/html/513grapheme-stack.mu.html @@ -62,29 +62,29 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/513grapheme-stack.mu'>https://github.com/akkartik/mu/blob/main/513grapheme-stack.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># grapheme stacks are the smallest unit of editable text</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># code-point-utf8 stacks are the smallest unit of editable text</span> <span id="L2" class="LineNr"> 2 </span> -<span id="L3" class="LineNr"> 3 </span><span class="PreProc">type</span> <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a> <span class="Delimiter">{</span> -<span id="L4" class="LineNr"> 4 </span> data: (handle array grapheme) +<span id="L3" class="LineNr"> 3 </span><span class="PreProc">type</span> <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a> <span class="Delimiter">{</span> +<span id="L4" class="LineNr"> 4 </span> data: (handle array code-point-utf8) <span id="L5" class="LineNr"> 5 </span> top: int <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">}</span> <span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L8'>initialize-grapheme-stack</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>), n: int <span class="Delimiter">{</span> -<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> d/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data +<span id="L8" class="LineNr"> 8 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L8'>initialize-code-point-utf8-stack</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), n: int <span class="Delimiter">{</span> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> d/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> get self, data <span id="L11" class="LineNr"> 11 </span> populate d, n <span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> top/eax: (addr int) <span class="Special"><-</span> get self, top <span id="L13" class="LineNr"> 13 </span> copy-to *top, <span class="Constant">0</span> <span id="L14" class="LineNr"> 14 </span><span class="Delimiter">}</span> <span id="L15" class="LineNr"> 15 </span> -<span id="L16" class="LineNr"> 16 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L16'>clear-grapheme-stack</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Delimiter">{</span> -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L16" class="LineNr"> 16 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L16'>clear-code-point-utf8-stack</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Delimiter">{</span> +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self <span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> top/eax: (addr int) <span class="Special"><-</span> get self, top <span id="L19" class="LineNr"> 19 </span> copy-to *top, <span class="Constant">0</span> <span id="L20" class="LineNr"> 20 </span><span class="Delimiter">}</span> <span id="L21" class="LineNr"> 21 </span> -<span id="L22" class="LineNr"> 22 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L22'>grapheme-stack-empty?</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L22" class="LineNr"> 22 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L22'>code-point-utf8-stack-empty?</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self <span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> top/eax: (addr int) <span class="Special"><-</span> get self, top <span id="L25" class="LineNr"> 25 </span> compare *top, <span class="Constant">0</span> <span id="L26" class="LineNr"> 26 </span> <span class="Delimiter">{</span> @@ -94,26 +94,26 @@ if ('onhashchange' in window) { <span id="L30" class="LineNr"> 30 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L31" class="LineNr"> 31 </span><span class="Delimiter">}</span> <span id="L32" class="LineNr"> 32 </span> -<span id="L33" class="LineNr"> 33 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L33'>grapheme-stack-length</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L33" class="LineNr"> 33 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L33'>code-point-utf8-stack-length</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>)<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self <span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> top/eax: (addr int) <span class="Special"><-</span> get self, top <span id="L36" class="LineNr"> 36 </span> <span class="PreProc">return</span> *top <span id="L37" class="LineNr"> 37 </span><span class="Delimiter">}</span> <span id="L38" class="LineNr"> 38 </span> -<span id="L39" class="LineNr"> 39 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>), _val: grapheme <span class="Delimiter">{</span> -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L39" class="LineNr"> 39 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), _val: code-point-utf8 <span class="Delimiter">{</span> +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self <span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">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="muRegEdx">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/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdx">edx</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> get self, data +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah <span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> top/<span class="muRegEdx">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="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, top -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> val/eax: grapheme <span class="Special"><-</span> copy _val +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> dest-addr/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, top +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> val/eax: code-point-utf8 <span class="Special"><-</span> copy _val <span id="L47" class="LineNr"> 47 </span> copy-to *dest-addr, val <span id="L48" class="LineNr"> 48 </span> add-to *top-addr, <span class="Constant">1</span> <span id="L49" class="LineNr"> 49 </span><span class="Delimiter">}</span> <span id="L50" class="LineNr"> 50 </span> -<span id="L51" class="LineNr"> 51 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L51'>pop-grapheme-stack</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L51" class="LineNr"> 51 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L51'>pop-code-point-utf8-stack</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self <span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">{</span> <span id="L55" class="LineNr"> 55 </span> compare *top-addr, <span class="Constant">0</span> @@ -121,25 +121,25 @@ if ('onhashchange' in window) { <span id="L57" class="LineNr"> 57 </span> <span class="PreProc">return</span> <span class="Constant">-1</span> <span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">}</span> <span id="L59" class="LineNr"> 59 </span> subtract-from *top-addr, <span class="Constant">1</span> -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdx">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/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdx">edx</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> get self, data +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah <span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> top/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy *top-addr -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> result-addr/eax: (addr grapheme) <span class="Special"><-</span> index data, top +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> result-addr/eax: (addr code-point-utf8) <span class="Special"><-</span> index data, top <span id="L64" class="LineNr"> 64 </span> <span class="PreProc">return</span> *result-addr <span id="L65" class="LineNr"> 65 </span><span class="Delimiter">}</span> <span id="L66" class="LineNr"> 66 </span> -<span id="L67" class="LineNr"> 67 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L67'>copy-grapheme-stack</a></span> _src: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>), dest: (addr <a href='513grapheme-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="muRegEsi">esi</span>: (addr <a href='513grapheme-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="muRegEdi">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/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L67" class="LineNr"> 67 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L67'>copy-code-point-utf8-stack</a></span> _src: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), dest: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Delimiter">{</span> +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> src/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _src +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> get src, data +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get src, top <span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L74" class="LineNr"> 74 </span> <span class="Delimiter">{</span> <span id="L75" class="LineNr"> 75 </span> compare i, *top-addr <span id="L76" class="LineNr"> 76 </span> <span class="PreProc">break-if->=</span> -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L78" class="LineNr"> 78 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> dest, *g +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L78" class="LineNr"> 78 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> dest, *g <span id="L79" class="LineNr"> 79 </span> i <span class="Special"><-</span> increment <span id="L80" class="LineNr"> 80 </span> <span class="PreProc">loop</span> <span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">}</span> @@ -148,12 +148,12 @@ if ('onhashchange' in window) { <span id="L84" class="LineNr"> 84 </span><span class="muComment"># dump stack to screen from bottom to top</span> <span id="L85" class="LineNr"> 85 </span><span class="muComment"># hardcoded colors:</span> <span id="L86" class="LineNr"> 86 </span><span class="muComment"># matching paren</span> -<span id="L87" class="LineNr"> 87 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L87'>render-stack-from-bottom-wrapping-right-then-down</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a>: boolean, open-paren-depth: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L87" class="LineNr"> 87 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L87'>render-stack-from-bottom-wrapping-right-then-down</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a>: boolean, open-paren-depth: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-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="muRegEdx">edx</span>: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L449'>get-matching-open-paren-index</a> self, <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a>, open-paren-depth -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">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/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> get self, data +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy _x <span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy _y <span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEsi">esi</span>: (addr int) <span class="Special"><-</span> get self, top @@ -164,8 +164,8 @@ if ('onhashchange' in window) { <span id="L100" class="LineNr">100 </span> <span class="Delimiter">{</span> <span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> c: code-point <span id="L102" class="LineNr">102 </span> <span class="Delimiter">{</span> -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> g/eax: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> tmp/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> *g +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> g/eax: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> tmp/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L49'>to-code-point</a> *g <span id="L105" class="LineNr">105 </span> copy-to c, tmp <span id="L106" class="LineNr">106 </span> <span class="Delimiter">}</span> <span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> fg: int @@ -178,7 +178,7 @@ if ('onhashchange' in window) { <span id="L114" class="LineNr">114 </span> <span class="PreProc">break-if-!=</span> <span id="L115" class="LineNr">115 </span> copy-to fg, <span class="Constant">0xf</span>/highlight <span id="L116" class="LineNr">116 </span> <span class="Delimiter">}</span> -<span id="L117" class="LineNr">117 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L162'>render-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xmin, ymin, xmax, ymax, x, y, fg, background-color <span class="muComment"># TODO: handle combining characters</span> +<span id="L117" class="LineNr">117 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L155'>render-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xmin, ymin, xmax, ymax, x, y, fg, background-color <span class="muComment"># TODO: handle combining characters</span> <span id="L118" class="LineNr">118 </span> <span class="Delimiter">}</span> <span id="L119" class="LineNr">119 </span> i <span class="Special"><-</span> increment <span id="L120" class="LineNr">120 </span> <span class="PreProc">loop</span> @@ -187,7 +187,7 @@ if ('onhashchange' in window) { <span id="L123" class="LineNr">123 </span><span class="Delimiter">}</span> <span id="L124" class="LineNr">124 </span> <span id="L125" class="LineNr">125 </span><span class="muComment"># helper for small words</span> -<span id="L126" class="LineNr">126 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L126'>render-stack-from-bottom</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>), x: int, y: int, <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a>: boolean, open-paren-depth: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> +<span id="L126" class="LineNr">126 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L126'>render-stack-from-bottom</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), x: int, y: int, <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a>: boolean, open-paren-depth: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> <span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> _width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> _height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L129" class="LineNr">129 </span> _width, _height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> @@ -200,16 +200,16 @@ if ('onhashchange' in window) { <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="muComment"># dump stack to screen from top to bottom</span> -<span id="L139" class="LineNr">139 </span><span class="muComment"># optionally render a 'cursor' with the top grapheme</span> +<span id="L139" class="LineNr">139 </span><span class="muComment"># optionally render a 'cursor' with the top code-point-utf8</span> <span id="L140" class="LineNr">140 </span><span class="muComment"># hard-coded colors:</span> <span id="L141" class="LineNr">141 </span><span class="muComment"># matching paren</span> <span id="L142" class="LineNr">142 </span><span class="muComment"># cursor</span> -<span id="L143" class="LineNr">143 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L143'>render-stack-from-top-wrapping-right-then-down</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, render-cursor?: boolean, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> -<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L143" class="LineNr">143 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L143'>render-stack-from-top-wrapping-right-then-down</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, render-cursor?: boolean, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self <span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> matching-close-paren-index/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L393'>get-matching-close-paren-index</a> self, render-cursor? -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get self, data +<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy _x <span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy _y <span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEbx">ebx</span>: (addr int) <span class="Special"><-</span> get self, top @@ -223,11 +223,11 @@ if ('onhashchange' in window) { <span id="L159" class="LineNr">159 </span> <span class="PreProc">break-if-<</span> <span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> c: code-point <span id="L161" class="LineNr">161 </span> <span class="Delimiter">{</span> -<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> g/eax: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> tmp/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> *g +<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> g/eax: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> tmp/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L49'>to-code-point</a> *g <span id="L164" class="LineNr">164 </span> copy-to c, tmp <span id="L165" class="LineNr">165 </span> <span class="Delimiter">}</span> -<span id="L166" class="LineNr">166 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L162'>render-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xmin, ymin, xmax, ymax, x, y, background-color, color +<span id="L166" class="LineNr">166 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L155'>render-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xmin, ymin, xmax, ymax, x, y, background-color, color <span id="L167" class="LineNr">167 </span> i <span class="Special"><-</span> decrement <span id="L168" class="LineNr">168 </span> <span class="Delimiter">}</span> <span id="L169" class="LineNr">169 </span> <span class="muComment"># remaining iterations</span> @@ -248,11 +248,11 @@ if ('onhashchange' in window) { <span id="L184" class="LineNr">184 </span> <span class="muComment">#</span> <span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> c: code-point <span id="L186" class="LineNr">186 </span> <span class="Delimiter">{</span> -<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> g/eax: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> tmp/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L56'>to-code-point</a> *g +<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> g/eax: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> tmp/eax: code-point <span class="Special"><-</span> <a href='403unicode.mu.html#L49'>to-code-point</a> *g <span id="L189" class="LineNr">189 </span> copy-to c, tmp <span id="L190" class="LineNr">190 </span> <span class="Delimiter">}</span> -<span id="L191" class="LineNr">191 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L162'>render-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xmin, ymin, xmax, ymax, x, y, fg, background-color +<span id="L191" class="LineNr">191 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L155'>render-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, xmin, ymin, xmax, ymax, x, y, fg, background-color <span id="L192" class="LineNr">192 </span> i <span class="Special"><-</span> decrement <span id="L193" class="LineNr">193 </span> <span class="PreProc">loop</span> <span id="L194" class="LineNr">194 </span> <span class="Delimiter">}</span> @@ -260,7 +260,7 @@ if ('onhashchange' in window) { <span id="L196" class="LineNr">196 </span><span class="Delimiter">}</span> <span id="L197" class="LineNr">197 </span> <span id="L198" class="LineNr">198 </span><span class="muComment"># helper for small words</span> -<span id="L199" class="LineNr">199 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L199'>render-stack-from-top</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>), x: int, y: int, render-cursor?: boolean<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> +<span id="L199" class="LineNr">199 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L199'>render-stack-from-top</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), x: int, y: int, render-cursor?: boolean<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> <span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> _width/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> _height/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L202" class="LineNr">202 </span> _width, _height <span class="Special"><-</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> <a href='500fake-screen.mu.html#L16'>screen</a> @@ -272,190 +272,190 @@ if ('onhashchange' in window) { <span id="L208" class="LineNr">208 </span> <span class="PreProc">return</span> x2 <span class="muComment"># y2? yolo</span> <span id="L209" class="LineNr">209 </span><span class="Delimiter">}</span> <span id="L210" class="LineNr">210 </span> -<span id="L211" class="LineNr">211 </span><span class="PreProc">fn</span> <span class="muTest"><a href='513grapheme-stack.mu.html#L211'>test-render-grapheme-stack</a></span> <span class="Delimiter">{</span> +<span id="L211" class="LineNr">211 </span><span class="PreProc">fn</span> <span class="muTest"><a href='513grapheme-stack.mu.html#L211'>test-render-code-point-utf8-stack</a></span> <span class="Delimiter">{</span> <span id="L212" class="LineNr">212 </span> <span class="muComment"># setup: gs = "abc"</span> -<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> gs-storage: <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a> -<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> gs/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> address gs-storage -<span id="L215" class="LineNr">215 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-grapheme-stack</a> gs, <span class="Constant">5</span> -<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L217" class="LineNr">217 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> gs-storage: <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a> +<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> gs/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> address gs-storage +<span id="L215" class="LineNr">215 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-code-point-utf8-stack</a> gs, <span class="Constant">5</span> +<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L217" class="LineNr">217 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L218" class="LineNr">218 </span> g <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b -<span id="L219" class="LineNr">219 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L219" class="LineNr">219 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L220" class="LineNr">220 </span> g <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c -<span id="L221" class="LineNr">221 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L221" class="LineNr">221 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L222" class="LineNr">222 </span> <span class="muComment"># setup: screen</span> <span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> screen-storage: <a href='500fake-screen.mu.html#L16'>screen</a> <span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> address screen-storage <span id="L225" class="LineNr">225 </span> <a href='500fake-screen.mu.html#L34'>initialize-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span>, <span class="Constant">0</span>/no-pixel-graphics <span id="L226" class="LineNr">226 </span> <span class="muComment">#</span> <span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L126'>render-stack-from-bottom</a> <a href='500fake-screen.mu.html#L16'>screen</a>, gs, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0</span>/no-highlight-matching-open-paren, <span class="Constant">0</span>/open-paren-depth -<span id="L228" class="LineNr">228 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"abc "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-grapheme-stack</a> from bottom"</span> -<span id="L229" class="LineNr">229 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-grapheme-stack</a> from bottom: result"</span> -<span id="L230" class="LineNr">230 </span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">3</span>/bg=reverse, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-grapheme-stack</a> from bottom: bg"</span> +<span id="L228" class="LineNr">228 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"abc "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-code-point-utf8-stack</a> from bottom"</span> +<span id="L229" class="LineNr">229 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-code-point-utf8-stack</a> from bottom: result"</span> +<span id="L230" class="LineNr">230 </span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">3</span>/bg=reverse, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-code-point-utf8-stack</a> from bottom: bg"</span> <span id="L231" class="LineNr">231 </span> <span class="muComment">#</span> <span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L199'>render-stack-from-top</a> <a href='500fake-screen.mu.html#L16'>screen</a>, gs, <span class="Constant">0</span>/x, <span class="Constant">1</span>/y, <span class="Constant">0</span>/cursor=false -<span id="L233" class="LineNr">233 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"cba "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-grapheme-stack</a> from top without cursor"</span> -<span id="L234" class="LineNr">234 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-grapheme-stack</a> from top without cursor: result"</span> -<span id="L235" class="LineNr">235 </span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">3</span>/bg=reverse, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-grapheme-stack</a> from top without cursor: bg"</span> +<span id="L233" class="LineNr">233 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"cba "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-code-point-utf8-stack</a> from top without cursor"</span> +<span id="L234" class="LineNr">234 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-code-point-utf8-stack</a> from top without cursor: result"</span> +<span id="L235" class="LineNr">235 </span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">3</span>/bg=reverse, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-code-point-utf8-stack</a> from top without cursor: bg"</span> <span id="L236" class="LineNr">236 </span> <span class="muComment">#</span> <span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L199'>render-stack-from-top</a> <a href='500fake-screen.mu.html#L16'>screen</a>, gs, <span class="Constant">0</span>/x, <span class="Constant">2</span>/y, <span class="Constant">1</span>/cursor=true -<span id="L238" class="LineNr">238 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"cba "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-grapheme-stack</a> from top with cursor"</span> -<span id="L239" class="LineNr">239 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-grapheme-stack</a> from top with cursor: result"</span> -<span id="L240" class="LineNr">240 </span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">3</span>/bg=reverse, <span class="Constant">2</span>/y, <span class="Constant">"| "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-grapheme-stack</a> from top with cursor: bg"</span> +<span id="L238" class="LineNr">238 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"cba "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-code-point-utf8-stack</a> from top with cursor"</span> +<span id="L239" class="LineNr">239 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-code-point-utf8-stack</a> from top with cursor: result"</span> +<span id="L240" class="LineNr">240 </span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">3</span>/bg=reverse, <span class="Constant">2</span>/y, <span class="Constant">"| "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L211'>test-render-code-point-utf8-stack</a> from top with cursor: bg"</span> <span id="L241" class="LineNr">241 </span><span class="Delimiter">}</span> <span id="L242" class="LineNr">242 </span> -<span id="L243" class="LineNr">243 </span><span class="PreProc">fn</span> <span class="muTest"><a href='513grapheme-stack.mu.html#L243'>test-render-grapheme-stack-while-highlighting-matching-close-paren</a></span> <span class="Delimiter">{</span> +<span id="L243" class="LineNr">243 </span><span class="PreProc">fn</span> <span class="muTest"><a href='513grapheme-stack.mu.html#L243'>test-render-code-point-utf8-stack-while-highlighting-matching-close-paren</a></span> <span class="Delimiter">{</span> <span id="L244" class="LineNr">244 </span> <span class="muComment"># setup: gs = "(b)"</span> -<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> gs-storage: <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a> -<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> gs/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> address gs-storage -<span id="L247" class="LineNr">247 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-grapheme-stack</a> gs, <span class="Constant">5</span> -<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x29</span>/close-paren -<span id="L249" class="LineNr">249 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> gs-storage: <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a> +<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> gs/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> address gs-storage +<span id="L247" class="LineNr">247 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-code-point-utf8-stack</a> gs, <span class="Constant">5</span> +<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x29</span>/close-paren +<span id="L249" class="LineNr">249 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L250" class="LineNr">250 </span> g <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b -<span id="L251" class="LineNr">251 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L251" class="LineNr">251 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L252" class="LineNr">252 </span> g <span class="Special"><-</span> copy <span class="Constant">0x28</span>/open-paren -<span id="L253" class="LineNr">253 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L253" class="LineNr">253 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L254" class="LineNr">254 </span> <span class="muComment"># setup: screen</span> <span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> screen-storage: <a href='500fake-screen.mu.html#L16'>screen</a> <span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> address screen-storage <span id="L257" class="LineNr">257 </span> <a href='500fake-screen.mu.html#L34'>initialize-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span>, <span class="Constant">0</span>/no-pixel-graphics <span id="L258" class="LineNr">258 </span> <span class="muComment">#</span> <span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L199'>render-stack-from-top</a> <a href='500fake-screen.mu.html#L16'>screen</a>, gs, <span class="Constant">0</span>/x, <span class="Constant">2</span>/y, <span class="Constant">1</span>/cursor=true -<span id="L260" class="LineNr">260 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"(b) "</span>, <span class="Constant">"F - test-render-grapheme-stack-while-highlighting-matching-close-paren"</span> -<span id="L261" class="LineNr">261 </span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">3</span>/bg=reverse, <span class="Constant">2</span>/y, <span class="Constant">"| "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L243'>test-render-grapheme-stack-while-highlighting-matching-close-paren</a>: cursor"</span> -<span id="L262" class="LineNr">262 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0xf</span>/fg=white, <span class="Constant">2</span>/y, <span class="Constant">" ) "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L243'>test-render-grapheme-stack-while-highlighting-matching-close-paren</a>: matching paren"</span> +<span id="L260" class="LineNr">260 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"(b) "</span>, <span class="Constant">"F - test-render-code-point-utf8-stack-while-highlighting-matching-close-paren"</span> +<span id="L261" class="LineNr">261 </span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">3</span>/bg=reverse, <span class="Constant">2</span>/y, <span class="Constant">"| "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L243'>test-render-code-point-utf8-stack-while-highlighting-matching-close-paren</a>: cursor"</span> +<span id="L262" class="LineNr">262 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0xf</span>/fg=white, <span class="Constant">2</span>/y, <span class="Constant">" ) "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L243'>test-render-code-point-utf8-stack-while-highlighting-matching-close-paren</a>: matching paren"</span> <span id="L263" class="LineNr">263 </span><span class="Delimiter">}</span> <span id="L264" class="LineNr">264 </span> -<span id="L265" class="LineNr">265 </span><span class="PreProc">fn</span> <span class="muTest"><a href='513grapheme-stack.mu.html#L265'>test-render-grapheme-stack-while-highlighting-matching-close-paren-2</a></span> <span class="Delimiter">{</span> +<span id="L265" class="LineNr">265 </span><span class="PreProc">fn</span> <span class="muTest"><a href='513grapheme-stack.mu.html#L265'>test-render-code-point-utf8-stack-while-highlighting-matching-close-paren-2</a></span> <span class="Delimiter">{</span> <span id="L266" class="LineNr">266 </span> <span class="muComment"># setup: gs = "(a (b)) c"</span> -<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> gs-storage: <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a> -<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> gs/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> address gs-storage -<span id="L269" class="LineNr">269 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-grapheme-stack</a> gs, <span class="Constant">0x10</span> -<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c -<span id="L271" class="LineNr">271 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> gs-storage: <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a> +<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> gs/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> address gs-storage +<span id="L269" class="LineNr">269 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-code-point-utf8-stack</a> gs, <span class="Constant">0x10</span> +<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c +<span id="L271" class="LineNr">271 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L272" class="LineNr">272 </span> g <span class="Special"><-</span> copy <span class="Constant">0x20</span>/space -<span id="L273" class="LineNr">273 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L273" class="LineNr">273 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L274" class="LineNr">274 </span> g <span class="Special"><-</span> copy <span class="Constant">0x29</span>/close-paren -<span id="L275" class="LineNr">275 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L275" class="LineNr">275 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L276" class="LineNr">276 </span> g <span class="Special"><-</span> copy <span class="Constant">0x29</span>/close-paren -<span id="L277" class="LineNr">277 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L277" class="LineNr">277 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L278" class="LineNr">278 </span> g <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b -<span id="L279" class="LineNr">279 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L279" class="LineNr">279 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L280" class="LineNr">280 </span> g <span class="Special"><-</span> copy <span class="Constant">0x28</span>/open-paren -<span id="L281" class="LineNr">281 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L281" class="LineNr">281 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L282" class="LineNr">282 </span> g <span class="Special"><-</span> copy <span class="Constant">0x20</span>/space -<span id="L283" class="LineNr">283 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L283" class="LineNr">283 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L284" class="LineNr">284 </span> g <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L285" class="LineNr">285 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L285" class="LineNr">285 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L286" class="LineNr">286 </span> g <span class="Special"><-</span> copy <span class="Constant">0x28</span>/open-paren -<span id="L287" class="LineNr">287 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L287" class="LineNr">287 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L288" class="LineNr">288 </span> <span class="muComment"># setup: screen</span> <span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> screen-storage: <a href='500fake-screen.mu.html#L16'>screen</a> <span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> address screen-storage <span id="L291" class="LineNr">291 </span> <a href='500fake-screen.mu.html#L34'>initialize-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span>, <span class="Constant">0</span>/no-pixel-graphics <span id="L292" class="LineNr">292 </span> <span class="muComment">#</span> <span id="L293" class="LineNr">293 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L199'>render-stack-from-top</a> <a href='500fake-screen.mu.html#L16'>screen</a>, gs, <span class="Constant">0</span>/x, <span class="Constant">2</span>/y, <span class="Constant">1</span>/cursor=true -<span id="L294" class="LineNr">294 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"(a (b)) c "</span>, <span class="Constant">"F - test-render-grapheme-stack-while-highlighting-matching-close-paren-2"</span> -<span id="L295" class="LineNr">295 </span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">3</span>/bg=reverse, <span class="Constant">2</span>/y, <span class="Constant">"| "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L265'>test-render-grapheme-stack-while-highlighting-matching-close-paren-2</a>: cursor"</span> -<span id="L296" class="LineNr">296 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0xf</span>/fg=white, <span class="Constant">2</span>/y, <span class="Constant">" ) "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L265'>test-render-grapheme-stack-while-highlighting-matching-close-paren-2</a>: matching paren"</span> +<span id="L294" class="LineNr">294 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"(a (b)) c "</span>, <span class="Constant">"F - test-render-code-point-utf8-stack-while-highlighting-matching-close-paren-2"</span> +<span id="L295" class="LineNr">295 </span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">3</span>/bg=reverse, <span class="Constant">2</span>/y, <span class="Constant">"| "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L265'>test-render-code-point-utf8-stack-while-highlighting-matching-close-paren-2</a>: cursor"</span> +<span id="L296" class="LineNr">296 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0xf</span>/fg=white, <span class="Constant">2</span>/y, <span class="Constant">" ) "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L265'>test-render-code-point-utf8-stack-while-highlighting-matching-close-paren-2</a>: matching paren"</span> <span id="L297" class="LineNr">297 </span><span class="Delimiter">}</span> <span id="L298" class="LineNr">298 </span> -<span id="L299" class="LineNr">299 </span><span class="PreProc">fn</span> <span class="muTest"><a href='513grapheme-stack.mu.html#L299'>test-render-grapheme-stack-while-highlighting-matching-open-paren-with-close-paren-at-end</a></span> <span class="Delimiter">{</span> +<span id="L299" class="LineNr">299 </span><span class="PreProc">fn</span> <span class="muTest"><a href='513grapheme-stack.mu.html#L299'>test-render-code-point-utf8-stack-while-highlighting-matching-open-paren-with-close-paren-at-end</a></span> <span class="Delimiter">{</span> <span id="L300" class="LineNr">300 </span> <span class="muComment"># setup: gs = "(b)"</span> -<span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> gs-storage: <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a> -<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> gs/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> address gs-storage -<span id="L303" class="LineNr">303 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-grapheme-stack</a> gs, <span class="Constant">5</span> -<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x28</span>/open-paren -<span id="L305" class="LineNr">305 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> gs-storage: <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a> +<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> gs/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> address gs-storage +<span id="L303" class="LineNr">303 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-code-point-utf8-stack</a> gs, <span class="Constant">5</span> +<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x28</span>/open-paren +<span id="L305" class="LineNr">305 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L306" class="LineNr">306 </span> g <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b -<span id="L307" class="LineNr">307 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L307" class="LineNr">307 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L308" class="LineNr">308 </span> g <span class="Special"><-</span> copy <span class="Constant">0x29</span>/close-paren -<span id="L309" class="LineNr">309 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L309" class="LineNr">309 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L310" class="LineNr">310 </span> <span class="muComment"># setup: screen</span> <span id="L311" class="LineNr">311 </span> <span class="PreProc">var</span> screen-storage: <a href='500fake-screen.mu.html#L16'>screen</a> <span id="L312" class="LineNr">312 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> address screen-storage <span id="L313" class="LineNr">313 </span> <a href='500fake-screen.mu.html#L34'>initialize-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span>, <span class="Constant">0</span>/no-pixel-graphics <span id="L314" class="LineNr">314 </span> <span class="muComment">#</span> <span id="L315" class="LineNr">315 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L126'>render-stack-from-bottom</a> <a href='500fake-screen.mu.html#L16'>screen</a>, gs, <span class="Constant">0</span>/x, <span class="Constant">2</span>/y, <span class="Constant">1</span>/highlight-matching-open-paren, <span class="Constant">1</span>/open-paren-depth -<span id="L316" class="LineNr">316 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"(b) "</span>, <span class="Constant">"F - test-render-grapheme-stack-while-highlighting-matching-open-paren-with-close-paren-at-end"</span> -<span id="L317" class="LineNr">317 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0xf</span>/fg=white, <span class="Constant">2</span>/y, <span class="Constant">"( "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L299'>test-render-grapheme-stack-while-highlighting-matching-open-paren-with-close-paren-at-end</a>: matching paren"</span> +<span id="L316" class="LineNr">316 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"(b) "</span>, <span class="Constant">"F - test-render-code-point-utf8-stack-while-highlighting-matching-open-paren-with-close-paren-at-end"</span> +<span id="L317" class="LineNr">317 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0xf</span>/fg=white, <span class="Constant">2</span>/y, <span class="Constant">"( "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L299'>test-render-code-point-utf8-stack-while-highlighting-matching-open-paren-with-close-paren-at-end</a>: matching paren"</span> <span id="L318" class="LineNr">318 </span><span class="Delimiter">}</span> <span id="L319" class="LineNr">319 </span> -<span id="L320" class="LineNr">320 </span><span class="PreProc">fn</span> <span class="muTest"><a href='513grapheme-stack.mu.html#L320'>test-render-grapheme-stack-while-highlighting-matching-open-paren-with-close-paren-at-end-2</a></span> <span class="Delimiter">{</span> +<span id="L320" class="LineNr">320 </span><span class="PreProc">fn</span> <span class="muTest"><a href='513grapheme-stack.mu.html#L320'>test-render-code-point-utf8-stack-while-highlighting-matching-open-paren-with-close-paren-at-end-2</a></span> <span class="Delimiter">{</span> <span id="L321" class="LineNr">321 </span> <span class="muComment"># setup: gs = "a((b))"</span> -<span id="L322" class="LineNr">322 </span> <span class="PreProc">var</span> gs-storage: <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a> -<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> gs/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> address gs-storage -<span id="L324" class="LineNr">324 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-grapheme-stack</a> gs, <span class="Constant">0x10</span> -<span id="L325" class="LineNr">325 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L326" class="LineNr">326 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L322" class="LineNr">322 </span> <span class="PreProc">var</span> gs-storage: <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a> +<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> gs/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> address gs-storage +<span id="L324" class="LineNr">324 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-code-point-utf8-stack</a> gs, <span class="Constant">0x10</span> +<span id="L325" class="LineNr">325 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L326" class="LineNr">326 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L327" class="LineNr">327 </span> g <span class="Special"><-</span> copy <span class="Constant">0x28</span>/open-paren -<span id="L328" class="LineNr">328 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L328" class="LineNr">328 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L329" class="LineNr">329 </span> g <span class="Special"><-</span> copy <span class="Constant">0x28</span>/open-paren -<span id="L330" class="LineNr">330 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L330" class="LineNr">330 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L331" class="LineNr">331 </span> g <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b -<span id="L332" class="LineNr">332 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L332" class="LineNr">332 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L333" class="LineNr">333 </span> g <span class="Special"><-</span> copy <span class="Constant">0x29</span>/close-paren -<span id="L334" class="LineNr">334 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L334" class="LineNr">334 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L335" class="LineNr">335 </span> g <span class="Special"><-</span> copy <span class="Constant">0x29</span>/close-paren -<span id="L336" class="LineNr">336 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L336" class="LineNr">336 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L337" class="LineNr">337 </span> <span class="muComment"># setup: screen</span> <span id="L338" class="LineNr">338 </span> <span class="PreProc">var</span> screen-storage: <a href='500fake-screen.mu.html#L16'>screen</a> <span id="L339" class="LineNr">339 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> address screen-storage <span id="L340" class="LineNr">340 </span> <a href='500fake-screen.mu.html#L34'>initialize-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span>, <span class="Constant">0</span>/no-pixel-graphics <span id="L341" class="LineNr">341 </span> <span class="muComment">#</span> <span id="L342" class="LineNr">342 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L126'>render-stack-from-bottom</a> <a href='500fake-screen.mu.html#L16'>screen</a>, gs, <span class="Constant">0</span>/x, <span class="Constant">2</span>/y, <span class="Constant">1</span>/highlight-matching-open-paren, <span class="Constant">1</span>/open-paren-depth -<span id="L343" class="LineNr">343 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"a((b)) "</span>, <span class="Constant">"F - test-render-grapheme-stack-while-highlighting-matching-open-paren-with-close-paren-at-end-2"</span> -<span id="L344" class="LineNr">344 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0xf</span>/fg=white, <span class="Constant">2</span>/y, <span class="Constant">" ( "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L320'>test-render-grapheme-stack-while-highlighting-matching-open-paren-with-close-paren-at-end-2</a>: matching paren"</span> +<span id="L343" class="LineNr">343 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"a((b)) "</span>, <span class="Constant">"F - test-render-code-point-utf8-stack-while-highlighting-matching-open-paren-with-close-paren-at-end-2"</span> +<span id="L344" class="LineNr">344 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0xf</span>/fg=white, <span class="Constant">2</span>/y, <span class="Constant">" ( "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L320'>test-render-code-point-utf8-stack-while-highlighting-matching-open-paren-with-close-paren-at-end-2</a>: matching paren"</span> <span id="L345" class="LineNr">345 </span><span class="Delimiter">}</span> <span id="L346" class="LineNr">346 </span> -<span id="L347" class="LineNr">347 </span><span class="PreProc">fn</span> <span class="muTest"><a href='513grapheme-stack.mu.html#L347'>test-render-grapheme-stack-while-highlighting-matching-open-paren</a></span> <span class="Delimiter">{</span> +<span id="L347" class="LineNr">347 </span><span class="PreProc">fn</span> <span class="muTest"><a href='513grapheme-stack.mu.html#L347'>test-render-code-point-utf8-stack-while-highlighting-matching-open-paren</a></span> <span class="Delimiter">{</span> <span id="L348" class="LineNr">348 </span> <span class="muComment"># setup: gs = "(b"</span> -<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> gs-storage: <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a> -<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> gs/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> address gs-storage -<span id="L351" class="LineNr">351 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-grapheme-stack</a> gs, <span class="Constant">5</span> -<span id="L352" class="LineNr">352 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x28</span>/open-paren -<span id="L353" class="LineNr">353 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> gs-storage: <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a> +<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> gs/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> address gs-storage +<span id="L351" class="LineNr">351 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-code-point-utf8-stack</a> gs, <span class="Constant">5</span> +<span id="L352" class="LineNr">352 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x28</span>/open-paren +<span id="L353" class="LineNr">353 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L354" class="LineNr">354 </span> g <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b -<span id="L355" class="LineNr">355 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L355" class="LineNr">355 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L356" class="LineNr">356 </span> <span class="muComment"># setup: screen</span> <span id="L357" class="LineNr">357 </span> <span class="PreProc">var</span> screen-storage: <a href='500fake-screen.mu.html#L16'>screen</a> <span id="L358" class="LineNr">358 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> address screen-storage <span id="L359" class="LineNr">359 </span> <a href='500fake-screen.mu.html#L34'>initialize-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span>, <span class="Constant">0</span>/no-pixel-graphics <span id="L360" class="LineNr">360 </span> <span class="muComment">#</span> <span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L126'>render-stack-from-bottom</a> <a href='500fake-screen.mu.html#L16'>screen</a>, gs, <span class="Constant">0</span>/x, <span class="Constant">2</span>/y, <span class="Constant">1</span>/highlight-matching-open-paren, <span class="Constant">0</span>/open-paren-depth -<span id="L362" class="LineNr">362 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"(b "</span>, <span class="Constant">"F - test-render-grapheme-stack-while-highlighting-matching-open-paren"</span> -<span id="L363" class="LineNr">363 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0xf</span>/fg=white, <span class="Constant">2</span>/y, <span class="Constant">"( "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L347'>test-render-grapheme-stack-while-highlighting-matching-open-paren</a>: matching paren"</span> +<span id="L362" class="LineNr">362 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"(b "</span>, <span class="Constant">"F - test-render-code-point-utf8-stack-while-highlighting-matching-open-paren"</span> +<span id="L363" class="LineNr">363 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0xf</span>/fg=white, <span class="Constant">2</span>/y, <span class="Constant">"( "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L347'>test-render-code-point-utf8-stack-while-highlighting-matching-open-paren</a>: matching paren"</span> <span id="L364" class="LineNr">364 </span><span class="Delimiter">}</span> <span id="L365" class="LineNr">365 </span> -<span id="L366" class="LineNr">366 </span><span class="PreProc">fn</span> <span class="muTest"><a href='513grapheme-stack.mu.html#L366'>test-render-grapheme-stack-while-highlighting-matching-open-paren-2</a></span> <span class="Delimiter">{</span> +<span id="L366" class="LineNr">366 </span><span class="PreProc">fn</span> <span class="muTest"><a href='513grapheme-stack.mu.html#L366'>test-render-code-point-utf8-stack-while-highlighting-matching-open-paren-2</a></span> <span class="Delimiter">{</span> <span id="L367" class="LineNr">367 </span> <span class="muComment"># setup: gs = "a((b)"</span> -<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> gs-storage: <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a> -<span id="L369" class="LineNr">369 </span> <span class="PreProc">var</span> gs/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> address gs-storage -<span id="L370" class="LineNr">370 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-grapheme-stack</a> gs, <span class="Constant">0x10</span> -<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L372" class="LineNr">372 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> gs-storage: <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a> +<span id="L369" class="LineNr">369 </span> <span class="PreProc">var</span> gs/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> address gs-storage +<span id="L370" class="LineNr">370 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-code-point-utf8-stack</a> gs, <span class="Constant">0x10</span> +<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L372" class="LineNr">372 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L373" class="LineNr">373 </span> g <span class="Special"><-</span> copy <span class="Constant">0x28</span>/open-paren -<span id="L374" class="LineNr">374 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L374" class="LineNr">374 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L375" class="LineNr">375 </span> g <span class="Special"><-</span> copy <span class="Constant">0x28</span>/open-paren -<span id="L376" class="LineNr">376 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L376" class="LineNr">376 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L377" class="LineNr">377 </span> g <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b -<span id="L378" class="LineNr">378 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L378" class="LineNr">378 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L379" class="LineNr">379 </span> g <span class="Special"><-</span> copy <span class="Constant">0x29</span>/close-paren -<span id="L380" class="LineNr">380 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L380" class="LineNr">380 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> gs, g <span id="L381" class="LineNr">381 </span> <span class="muComment"># setup: screen</span> <span id="L382" class="LineNr">382 </span> <span class="PreProc">var</span> screen-storage: <a href='500fake-screen.mu.html#L16'>screen</a> <span id="L383" class="LineNr">383 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> address screen-storage <span id="L384" class="LineNr">384 </span> <a href='500fake-screen.mu.html#L34'>initialize-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span>, <span class="Constant">0</span>/no-pixel-graphics <span id="L385" class="LineNr">385 </span> <span class="muComment">#</span> <span id="L386" class="LineNr">386 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L126'>render-stack-from-bottom</a> <a href='500fake-screen.mu.html#L16'>screen</a>, gs, <span class="Constant">0</span>/x, <span class="Constant">2</span>/y, <span class="Constant">1</span>/highlight-matching-open-paren, <span class="Constant">0</span>/open-paren-depth -<span id="L387" class="LineNr">387 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"a((b) "</span>, <span class="Constant">"F - test-render-grapheme-stack-while-highlighting-matching-open-paren-2"</span> -<span id="L388" class="LineNr">388 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0xf</span>/fg=white, <span class="Constant">2</span>/y, <span class="Constant">" ( "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L366'>test-render-grapheme-stack-while-highlighting-matching-open-paren-2</a>: matching paren"</span> +<span id="L387" class="LineNr">387 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"a((b) "</span>, <span class="Constant">"F - test-render-code-point-utf8-stack-while-highlighting-matching-open-paren-2"</span> +<span id="L388" class="LineNr">388 </span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0xf</span>/fg=white, <span class="Constant">2</span>/y, <span class="Constant">" ( "</span>, <span class="Constant">"F - <a href='513grapheme-stack.mu.html#L366'>test-render-code-point-utf8-stack-while-highlighting-matching-open-paren-2</a>: matching paren"</span> <span id="L389" class="LineNr">389 </span><span class="Delimiter">}</span> <span id="L390" class="LineNr">390 </span> -<span id="L391" class="LineNr">391 </span><span class="muComment"># return the index of the matching close-paren of the grapheme at cursor (top of stack)</span> +<span id="L391" class="LineNr">391 </span><span class="muComment"># return the index of the matching close-paren of the code-point-utf8 at cursor (top of stack)</span> <span id="L392" class="LineNr">392 </span><span class="muComment"># or top index if there's no matching close-paren</span> -<span id="L393" class="LineNr">393 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L393'>get-matching-close-paren-index</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>), render-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="muRegEdx">edx</span>: int <span class="Delimiter">{</span> -<span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L393" class="LineNr">393 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L393'>get-matching-close-paren-index</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), render-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="muRegEdx">edx</span>: int <span class="Delimiter">{</span> +<span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self <span id="L395" class="LineNr">395 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L396" class="LineNr">396 </span> <span class="muComment"># if not rendering cursor, return</span> <span id="L397" class="LineNr">397 </span> compare render-cursor?, <span class="Constant">0</span>/false @@ -463,8 +463,8 @@ if ('onhashchange' in window) { <span id="L399" class="LineNr">399 </span> <span class="PreProc">break-if-!=</span> <span id="L400" class="LineNr">400 </span> <span class="PreProc">return</span> *top-addr <span id="L401" class="LineNr">401 </span> <span class="Delimiter">}</span> -<span id="L402" class="LineNr">402 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L403" class="LineNr">403 </span> <span class="PreProc">var</span> data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L402" class="LineNr">402 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get self, data +<span id="L403" class="LineNr">403 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah <span id="L404" class="LineNr">404 </span> <span class="PreProc">var</span> i/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L405" class="LineNr">405 </span> <span class="muComment"># if stack is empty, return</span> <span id="L406" class="LineNr">406 </span> compare i, <span class="Constant">0</span> @@ -474,7 +474,7 @@ if ('onhashchange' in window) { <span id="L410" class="LineNr">410 </span> <span class="Delimiter">}</span> <span id="L411" class="LineNr">411 </span> <span class="muComment"># if cursor is not '(' return</span> <span id="L412" class="LineNr">412 </span> i <span class="Special"><-</span> decrement -<span id="L413" class="LineNr">413 </span> <span class="PreProc">var</span> g/<span class="muRegEsi">esi</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L413" class="LineNr">413 </span> <span class="PreProc">var</span> g/<span class="muRegEsi">esi</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i <span id="L414" class="LineNr">414 </span> compare *g, <span class="Constant">0x28</span>/open-paren <span id="L415" class="LineNr">415 </span> <span class="Delimiter">{</span> <span id="L416" class="LineNr">416 </span> <span class="PreProc">break-if-=</span> @@ -486,7 +486,7 @@ if ('onhashchange' in window) { <span id="L422" class="LineNr">422 </span> <span class="Delimiter">{</span> <span id="L423" class="LineNr">423 </span> compare i, <span class="Constant">0</span> <span id="L424" class="LineNr">424 </span> <span class="PreProc">break-if-<</span> -<span id="L425" class="LineNr">425 </span> <span class="PreProc">var</span> g/<span class="muRegEsi">esi</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L425" class="LineNr">425 </span> <span class="PreProc">var</span> g/<span class="muRegEsi">esi</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i <span id="L426" class="LineNr">426 </span> compare *g, <span class="Constant">0x28</span>/open-paren <span id="L427" class="LineNr">427 </span> <span class="Delimiter">{</span> <span id="L428" class="LineNr">428 </span> <span class="PreProc">break-if-!=</span> @@ -510,8 +510,8 @@ if ('onhashchange' in window) { <span id="L446" class="LineNr">446 </span> <span id="L447" class="LineNr">447 </span><span class="muComment"># return the index of the first open-paren at the given depth</span> <span id="L448" class="LineNr">448 </span><span class="muComment"># or top index if there's no matching close-paren</span> -<span id="L449" class="LineNr">449 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L449'>get-matching-open-paren-index</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>), control: boolean, depth: int<span class="PreProc"> -> </span>_/<span class="muRegEdx">edx</span>: int <span class="Delimiter">{</span> -<span id="L450" class="LineNr">450 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L449" class="LineNr">449 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L449'>get-matching-open-paren-index</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), control: boolean, depth: int<span class="PreProc"> -> </span>_/<span class="muRegEdx">edx</span>: int <span class="Delimiter">{</span> +<span id="L450" class="LineNr">450 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self <span id="L451" class="LineNr">451 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L452" class="LineNr">452 </span> <span class="muComment"># if not rendering cursor, return</span> <span id="L453" class="LineNr">453 </span> compare control, <span class="Constant">0</span>/false @@ -519,8 +519,8 @@ if ('onhashchange' in window) { <span id="L455" class="LineNr">455 </span> <span class="PreProc">break-if-!=</span> <span id="L456" class="LineNr">456 </span> <span class="PreProc">return</span> *top-addr <span id="L457" class="LineNr">457 </span> <span class="Delimiter">}</span> -<span id="L458" class="LineNr">458 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L459" class="LineNr">459 </span> <span class="PreProc">var</span> data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L458" class="LineNr">458 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get self, data +<span id="L459" class="LineNr">459 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah <span id="L460" class="LineNr">460 </span> <span class="PreProc">var</span> i/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L461" class="LineNr">461 </span> <span class="muComment"># if stack is empty, return</span> <span id="L462" class="LineNr">462 </span> compare i, <span class="Constant">0</span> @@ -534,7 +534,7 @@ if ('onhashchange' in window) { <span id="L470" class="LineNr">470 </span> <span class="Delimiter">{</span> <span id="L471" class="LineNr">471 </span> compare i, <span class="Constant">0</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> g/<span class="muRegEsi">esi</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L473" class="LineNr">473 </span> <span class="PreProc">var</span> g/<span class="muRegEsi">esi</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i <span id="L474" class="LineNr">474 </span> compare *g, <span class="Constant">0x29</span>/close-paren <span id="L475" class="LineNr">475 </span> <span class="Delimiter">{</span> <span id="L476" class="LineNr">476 </span> <span class="PreProc">break-if-!=</span> @@ -558,11 +558,11 @@ if ('onhashchange' in window) { <span id="L494" class="LineNr">494 </span> <span id="L495" class="LineNr">495 </span><span class="muComment"># compare from bottom</span> <span id="L496" class="LineNr">496 </span><span class="muComment"># beware: modifies 'stream', which must be disposed of after a false result</span> -<span id="L497" class="LineNr">497 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L497'>prefix-match?</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> -<span id="L498" class="LineNr">498 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L499" class="LineNr">499 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L500" class="LineNr">500 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L501" class="LineNr">501 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L497" class="LineNr">497 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L497'>prefix-match?</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L498" class="LineNr">498 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L499" class="LineNr">499 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> get self, data +<span id="L500" class="LineNr">500 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L501" class="LineNr">501 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L502" class="LineNr">502 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L503" class="LineNr">503 </span> <span class="PreProc">var</span> i/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L504" class="LineNr">504 </span> <span class="Delimiter">{</span> @@ -570,8 +570,8 @@ if ('onhashchange' in window) { <span id="L506" class="LineNr">506 </span> <span class="PreProc">break-if->=</span> <span id="L507" class="LineNr">507 </span> <span class="muComment"># if curr != expected, return false</span> <span id="L508" class="LineNr">508 </span> <span class="Delimiter">{</span> -<span id="L509" class="LineNr">509 </span> <span class="PreProc">var</span> curr-a/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L510" class="LineNr">510 </span> <span class="PreProc">var</span> expected/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> s +<span id="L509" class="LineNr">509 </span> <span class="PreProc">var</span> curr-a/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L510" class="LineNr">510 </span> <span class="PreProc">var</span> expected/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> s <span id="L511" class="LineNr">511 </span> <span class="Delimiter">{</span> <span id="L512" class="LineNr">512 </span> compare expected, *curr-a <span id="L513" class="LineNr">513 </span> <span class="PreProc">break-if-=</span> @@ -586,11 +586,11 @@ if ('onhashchange' in window) { <span id="L522" class="LineNr">522 </span> <span id="L523" class="LineNr">523 </span><span class="muComment"># compare from bottom</span> <span id="L524" class="LineNr">524 </span><span class="muComment"># beware: modifies 'stream', which must be disposed of after a false result</span> -<span id="L525" class="LineNr">525 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L525'>suffix-match?</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> -<span id="L526" class="LineNr">526 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L527" class="LineNr">527 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L528" class="LineNr">528 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L529" class="LineNr">529 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L525" class="LineNr">525 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L525'>suffix-match?</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L526" class="LineNr">526 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L527" class="LineNr">527 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> get self, data +<span id="L528" class="LineNr">528 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L529" class="LineNr">529 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L530" class="LineNr">530 </span> <span class="PreProc">var</span> top-addr/eax: (addr int) <span class="Special"><-</span> get self, top <span id="L531" class="LineNr">531 </span> <span class="PreProc">var</span> i/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L532" class="LineNr">532 </span> i <span class="Special"><-</span> decrement @@ -598,8 +598,8 @@ if ('onhashchange' in window) { <span id="L534" class="LineNr">534 </span> compare i, <span class="Constant">0</span> <span id="L535" class="LineNr">535 </span> <span class="PreProc">break-if-<</span> <span id="L536" class="LineNr">536 </span> <span class="Delimiter">{</span> -<span id="L537" class="LineNr">537 </span> <span class="PreProc">var</span> curr-a/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L538" class="LineNr">538 </span> <span class="PreProc">var</span> expected/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> s +<span id="L537" class="LineNr">537 </span> <span class="PreProc">var</span> curr-a/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L538" class="LineNr">538 </span> <span class="PreProc">var</span> expected/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> s <span id="L539" class="LineNr">539 </span> <span class="muComment"># if curr != expected, return false</span> <span id="L540" class="LineNr">540 </span> <span class="Delimiter">{</span> <span id="L541" class="LineNr">541 </span> compare expected, *curr-a @@ -613,18 +613,18 @@ if ('onhashchange' in window) { <span id="L549" class="LineNr">549 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> <span id="L550" class="LineNr">550 </span><span class="Delimiter">}</span> <span id="L551" class="LineNr">551 </span> -<span id="L552" class="LineNr">552 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L552'>grapheme-stack-is-decimal-integer?</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> -<span id="L553" class="LineNr">553 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L554" class="LineNr">554 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L555" class="LineNr">555 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L556" class="LineNr">556 </span> <span class="PreProc">var</span> data/<span class="muRegEdx">edx</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L552" class="LineNr">552 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='513grapheme-stack.mu.html#L552'>code-point-utf8-stack-is-decimal-integer?</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L553" class="LineNr">553 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L554" class="LineNr">554 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get self, data +<span id="L555" class="LineNr">555 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L556" class="LineNr">556 </span> <span class="PreProc">var</span> data/<span class="muRegEdx">edx</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L557" class="LineNr">557 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L558" class="LineNr">558 </span> <span class="PreProc">var</span> i/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L559" class="LineNr">559 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> copy <span class="Constant">1</span>/true -<span id="L560" class="LineNr">560 </span> $grapheme-stack-is-integer?:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L560" class="LineNr">560 </span> $code-point-utf8-stack-is-integer?:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> <span id="L561" class="LineNr">561 </span> compare i, *top-addr <span id="L562" class="LineNr">562 </span> <span class="PreProc">break-if->=</span> -<span id="L563" class="LineNr">563 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L563" class="LineNr">563 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i <span id="L564" class="LineNr">564 </span> result <span class="Special"><-</span> <a href='126write-int-decimal.subx.html#L327'>decimal-digit?</a> *g <span id="L565" class="LineNr">565 </span> compare result, <span class="Constant">0</span>/false <span id="L566" class="LineNr">566 </span> <span class="PreProc">break-if-=</span> diff --git a/html/514gap-buffer.mu.html b/html/514gap-buffer.mu.html index 662aa1d0..fecdeb83 100644 --- a/html/514gap-buffer.mu.html +++ b/html/514gap-buffer.mu.html @@ -65,8 +65,8 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="muComment"># primitive for editing text</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="PreProc">type</span> <a href='514gap-buffer.mu.html#L3'>gap-buffer</a> <span class="Delimiter">{</span> -<span id="L4" class="LineNr"> 4 </span> left: <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a> -<span id="L5" class="LineNr"> 5 </span> right: <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a> +<span id="L4" class="LineNr"> 4 </span> left: <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a> +<span id="L5" class="LineNr"> 5 </span> right: <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a> <span id="L6" class="LineNr"> 6 </span> <span class="muComment"># some fields for scanning incrementally through a gap-buffer</span> <span id="L7" class="LineNr"> 7 </span> left-read-index: int <span id="L8" class="LineNr"> 8 </span> right-read-index: int @@ -74,41 +74,41 @@ if ('onhashchange' in window) { <span id="L10" class="LineNr"> 10 </span> <span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L11'>initialize-gap-buffer</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), capacity: int <span class="Delimiter">{</span> <span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left -<span id="L14" class="LineNr"> 14 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-grapheme-stack</a> left, capacity -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right -<span id="L16" class="LineNr"> 16 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-grapheme-stack</a> right, capacity +<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left +<span id="L14" class="LineNr"> 14 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-code-point-utf8-stack</a> left, capacity +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right +<span id="L16" class="LineNr"> 16 </span> <a href='513grapheme-stack.mu.html#L8'>initialize-code-point-utf8-stack</a> right, capacity <span id="L17" class="LineNr"> 17 </span><span class="Delimiter">}</span> <span id="L18" class="LineNr"> 18 </span> <span id="L19" class="LineNr"> 19 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L19'>clear-gap-buffer</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left -<span id="L22" class="LineNr"> 22 </span> <a href='513grapheme-stack.mu.html#L16'>clear-grapheme-stack</a> left -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right -<span id="L24" class="LineNr"> 24 </span> <a href='513grapheme-stack.mu.html#L16'>clear-grapheme-stack</a> right +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left +<span id="L22" class="LineNr"> 22 </span> <a href='513grapheme-stack.mu.html#L16'>clear-code-point-utf8-stack</a> left +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right +<span id="L24" class="LineNr"> 24 </span> <a href='513grapheme-stack.mu.html#L16'>clear-code-point-utf8-stack</a> right <span id="L25" class="LineNr"> 25 </span><span class="Delimiter">}</span> <span id="L26" class="LineNr"> 26 </span> <span id="L27" class="LineNr"> 27 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L27'>gap-buffer-empty?</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self <span id="L29" class="LineNr"> 29 </span> <span class="muComment"># if !empty?(left) return false</span> <span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">{</span> -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left -<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L22'>grapheme-stack-empty?</a> left +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L22'>code-point-utf8-stack-empty?</a> left <span id="L33" class="LineNr"> 33 </span> compare result, <span class="Constant">0</span>/false <span id="L34" class="LineNr"> 34 </span> <span class="PreProc">break-if-!=</span> <span id="L35" class="LineNr"> 35 </span> <span class="PreProc">return</span> <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="muComment"># return empty?(right)</span> -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left -<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L22'>grapheme-stack-empty?</a> left +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L22'>code-point-utf8-stack-empty?</a> left <span id="L40" class="LineNr"> 40 </span> <span class="PreProc">return</span> result <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='514gap-buffer.mu.html#L43'>gap-buffer-capacity</a></span> _gap: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="muRegEdx">edx</span>: int <span class="Delimiter">{</span> <span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> gap/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _gap -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get gap, left -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> left-data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get left, data -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> left-data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *left-data-ah +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get gap, left +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> left-data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get left, data +<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> left-data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *left-data-ah <span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> length left-data <span id="L49" class="LineNr"> 49 </span> <span class="PreProc">return</span> result <span id="L50" class="LineNr"> 50 </span><span class="Delimiter">}</span> @@ -122,8 +122,8 @@ if ('onhashchange' in window) { <span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> input-stream <span id="L59" class="LineNr"> 59 </span> compare done?, <span class="Constant">0</span>/false <span id="L60" class="LineNr"> 60 </span> <span class="PreProc">break-if-!=</span> -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L236'>read-grapheme</a> input-stream -<span id="L62" class="LineNr"> 62 </span> <a href='514gap-buffer.mu.html#L440'>add-grapheme-at-gap</a> self, g +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> input-stream +<span id="L62" class="LineNr"> 62 </span> <a href='514gap-buffer.mu.html#L440'>add-code-point-utf8-at-gap</a> self, g <span id="L63" class="LineNr"> 63 </span> <span class="PreProc">loop</span> <span id="L64" class="LineNr"> 64 </span> <span class="Delimiter">}</span> <span id="L65" class="LineNr"> 65 </span><span class="Delimiter">}</span> @@ -137,7 +137,7 @@ if ('onhashchange' in window) { <span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> key/eax: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in <span id="L74" class="LineNr"> 74 </span> compare key, <span class="Constant">0</span>/null <span id="L75" class="LineNr"> 75 </span> <span class="PreProc">break-if-=</span> -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy key +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy key <span id="L77" class="LineNr"> 77 </span> <a href='514gap-buffer.mu.html#L1203'>edit-gap-buffer</a> self, g <span id="L78" class="LineNr"> 78 </span> <span class="PreProc">loop</span> <span id="L79" class="LineNr"> 79 </span> <span class="Delimiter">}</span> @@ -150,44 +150,44 @@ if ('onhashchange' in window) { <span id="L86" class="LineNr"> 86 </span> <span id="L87" class="LineNr"> 87 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L87'>append-gap-buffer</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte) <span class="Delimiter">{</span> <span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left <span id="L90" class="LineNr"> 90 </span> <a href='514gap-buffer.mu.html#L96'>emit-stack-from-bottom</a> left, out -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right <span id="L92" class="LineNr"> 92 </span> <a href='514gap-buffer.mu.html#L114'>emit-stack-from-top</a> right, out <span id="L93" class="LineNr"> 93 </span><span class="Delimiter">}</span> <span id="L94" class="LineNr"> 94 </span> <span id="L95" class="LineNr"> 95 </span><span class="muComment"># dump stack from bottom to top</span> -<span id="L96" class="LineNr"> 96 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L96'>emit-stack-from-bottom</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L100" class="LineNr"> 100 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L96" class="LineNr"> 96 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L96'>emit-stack-from-bottom</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> get self, data +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L100" class="LineNr"> 100 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L101" class="LineNr"> 101 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L102" class="LineNr"> 102 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L103" class="LineNr"> 103 </span> <span class="Delimiter">{</span> <span id="L104" class="LineNr"> 104 </span> compare i, *top-addr <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> g/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L107" class="LineNr"> 107 </span> <a href='403unicode.mu.html#L339'>write-grapheme</a> out, *g +<span id="L106" class="LineNr"> 106 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L107" class="LineNr"> 107 </span> <a href='403unicode.mu.html#L389'>write-code-point-utf8</a> out, *g <span id="L108" class="LineNr"> 108 </span> i <span class="Special"><-</span> increment <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><span class="Delimiter">}</span> <span id="L112" class="LineNr"> 112 </span> <span id="L113" class="LineNr"> 113 </span><span class="muComment"># dump stack from top to bottom</span> -<span id="L114" class="LineNr"> 114 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L114'>emit-stack-from-top</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> -<span id="L115" class="LineNr"> 115 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L116" class="LineNr"> 116 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L117" class="LineNr"> 117 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L118" class="LineNr"> 118 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L114" class="LineNr"> 114 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L114'>emit-stack-from-top</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> +<span id="L115" class="LineNr"> 115 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L116" class="LineNr"> 116 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> get self, data +<span id="L117" class="LineNr"> 117 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L118" class="LineNr"> 118 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L119" class="LineNr"> 119 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L120" class="LineNr"> 120 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy *top-addr <span id="L121" class="LineNr"> 121 </span> i <span class="Special"><-</span> decrement <span id="L122" class="LineNr"> 122 </span> <span class="Delimiter">{</span> <span id="L123" class="LineNr"> 123 </span> compare i, <span class="Constant">0</span> <span id="L124" class="LineNr"> 124 </span> <span class="PreProc">break-if-<</span> -<span id="L125" class="LineNr"> 125 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L126" class="LineNr"> 126 </span> <a href='403unicode.mu.html#L339'>write-grapheme</a> out, *g +<span id="L125" class="LineNr"> 125 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L126" class="LineNr"> 126 </span> <a href='403unicode.mu.html#L389'>write-code-point-utf8</a> out, *g <span id="L127" class="LineNr"> 127 </span> i <span class="Special"><-</span> decrement <span id="L128" class="LineNr"> 128 </span> <span class="PreProc">loop</span> <span id="L129" class="LineNr"> 129 </span> <span class="Delimiter">}</span> @@ -197,16 +197,16 @@ if ('onhashchange' in window) { <span id="L133" class="LineNr"> 133 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self <span id="L134" class="LineNr"> 134 </span> <a href='106stream.subx.html#L20'>clear-stream</a> out <span id="L135" class="LineNr"> 135 </span> <span class="Delimiter">{</span> -<span id="L136" class="LineNr"> 136 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L243'>grapheme-at-gap</a> self -<span id="L137" class="LineNr"> 137 </span> <span class="PreProc">var</span> at-word?/eax: boolean <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L334'>is-ascii-word-grapheme?</a> g +<span id="L136" class="LineNr"> 136 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L243'>code-point-utf8-at-gap</a> self +<span id="L137" class="LineNr"> 137 </span> <span class="PreProc">var</span> at-word?/eax: boolean <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L334'>is-ascii-word-code-point-utf8?</a> g <span id="L138" class="LineNr"> 138 </span> compare at-word?, <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="PreProc">return</span> <span id="L141" class="LineNr"> 141 </span> <span class="Delimiter">}</span> -<span id="L142" class="LineNr"> 142 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L142" class="LineNr"> 142 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left <span id="L143" class="LineNr"> 143 </span> <span class="PreProc">var</span> left-index/eax: int <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L275'>top-most-word</a> left <span id="L144" class="LineNr"> 144 </span> <a href='514gap-buffer.mu.html#L297'>emit-stack-from-index</a> left, left-index, out -<span id="L145" class="LineNr"> 145 </span> <span class="PreProc">var</span> right/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L145" class="LineNr"> 145 </span> <span class="PreProc">var</span> right/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right <span id="L146" class="LineNr"> 146 </span> <span class="PreProc">var</span> right-index/eax: int <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L275'>top-most-word</a> right <span id="L147" class="LineNr"> 147 </span> <a href='514gap-buffer.mu.html#L314'>emit-stack-to-index</a> right, right-index, out <span id="L148" class="LineNr"> 148 </span><span class="Delimiter">}</span> @@ -234,7 +234,7 @@ if ('onhashchange' in window) { <span id="L170" class="LineNr"> 170 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"abc"</span>, <span class="Constant">"F - test-word-at-gap-single-word-with-gap-at-start"</span> <span id="L171" class="LineNr"> 171 </span><span class="Delimiter">}</span> <span id="L172" class="LineNr"> 172 </span> -<span id="L173" class="LineNr"> 173 </span><span class="PreProc">fn</span> <span class="muTest"><a href='514gap-buffer.mu.html#L173'>test-word-at-gap-multiple-words-with-gap-at-non-word-grapheme-at-end</a></span> <span class="Delimiter">{</span> +<span id="L173" class="LineNr"> 173 </span><span class="PreProc">fn</span> <span class="muTest"><a href='514gap-buffer.mu.html#L173'>test-word-at-gap-multiple-words-with-gap-at-non-word-code-point-utf8-at-end</a></span> <span class="Delimiter">{</span> <span id="L174" class="LineNr"> 174 </span> <span class="PreProc">var</span> _g: <a href='514gap-buffer.mu.html#L3'>gap-buffer</a> <span id="L175" class="LineNr"> 175 </span> <span class="PreProc">var</span> g/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address _g <span id="L176" class="LineNr"> 176 </span> <a href='514gap-buffer.mu.html#L52'>initialize-gap-buffer-with</a> g, <span class="Constant">"abc "</span> @@ -242,10 +242,10 @@ if ('onhashchange' in window) { <span id="L178" class="LineNr"> 178 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x10</span>) <span id="L179" class="LineNr"> 179 </span> <span class="PreProc">var</span> out/eax: (addr stream byte) <span class="Special"><-</span> address out-storage <span id="L180" class="LineNr"> 180 </span> <a href='514gap-buffer.mu.html#L132'>word-at-gap</a> g, out -<span id="L181" class="LineNr"> 181 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - test-word-at-gap-multiple-words-with-gap-at-non-word-grapheme-at-end"</span> +<span id="L181" class="LineNr"> 181 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - test-word-at-gap-multiple-words-with-gap-at-non-word-code-point-utf8-at-end"</span> <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="muTest"><a href='514gap-buffer.mu.html#L184'>test-word-at-gap-multiple-words-with-gap-at-non-word-grapheme-at-start</a></span> <span class="Delimiter">{</span> +<span id="L184" class="LineNr"> 184 </span><span class="PreProc">fn</span> <span class="muTest"><a href='514gap-buffer.mu.html#L184'>test-word-at-gap-multiple-words-with-gap-at-non-word-code-point-utf8-at-start</a></span> <span class="Delimiter">{</span> <span id="L185" class="LineNr"> 185 </span> <span class="PreProc">var</span> _g: <a href='514gap-buffer.mu.html#L3'>gap-buffer</a> <span id="L186" class="LineNr"> 186 </span> <span class="PreProc">var</span> g/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address _g <span id="L187" class="LineNr"> 187 </span> <a href='514gap-buffer.mu.html#L52'>initialize-gap-buffer-with</a> g, <span class="Constant">" abc"</span> @@ -254,7 +254,7 @@ if ('onhashchange' in window) { <span id="L190" class="LineNr"> 190 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x10</span>) <span id="L191" class="LineNr"> 191 </span> <span class="PreProc">var</span> out/eax: (addr stream byte) <span class="Special"><-</span> address out-storage <span id="L192" class="LineNr"> 192 </span> <a href='514gap-buffer.mu.html#L132'>word-at-gap</a> g, out -<span id="L193" class="LineNr"> 193 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - test-word-at-gap-multiple-words-with-gap-at-non-word-grapheme-at-start"</span> +<span id="L193" class="LineNr"> 193 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - test-word-at-gap-multiple-words-with-gap-at-non-word-code-point-utf8-at-start"</span> <span id="L194" class="LineNr"> 194 </span><span class="Delimiter">}</span> <span id="L195" class="LineNr"> 195 </span> <span id="L196" class="LineNr"> 196 </span><span class="PreProc">fn</span> <span class="muTest"><a href='514gap-buffer.mu.html#L196'>test-word-at-gap-multiple-words-with-gap-at-end</a></span> <span class="Delimiter">{</span> @@ -284,7 +284,7 @@ if ('onhashchange' in window) { <span id="L220" class="LineNr"> 220 </span> <span class="PreProc">var</span> _g: <a href='514gap-buffer.mu.html#L3'>gap-buffer</a> <span id="L221" class="LineNr"> 221 </span> <span class="PreProc">var</span> g/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address _g <span id="L222" class="LineNr"> 222 </span> <a href='514gap-buffer.mu.html#L52'>initialize-gap-buffer-with</a> g, <span class="Constant">"a bc d"</span> -<span id="L223" class="LineNr"> 223 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> g +<span id="L223" class="LineNr"> 223 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> g <span id="L224" class="LineNr"> 224 </span> <span class="muComment"># gap is at final word</span> <span id="L225" class="LineNr"> 225 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x10</span>) <span id="L226" class="LineNr"> 226 </span> <span class="PreProc">var</span> out/eax: (addr stream byte) <span class="Special"><-</span> address out-storage @@ -296,7 +296,7 @@ if ('onhashchange' in window) { <span id="L232" class="LineNr"> 232 </span> <span class="PreProc">var</span> _g: <a href='514gap-buffer.mu.html#L3'>gap-buffer</a> <span id="L233" class="LineNr"> 233 </span> <span class="PreProc">var</span> g/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address _g <span id="L234" class="LineNr"> 234 </span> <a href='514gap-buffer.mu.html#L52'>initialize-gap-buffer-with</a> g, <span class="Constant">"abc "</span> -<span id="L235" class="LineNr"> 235 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> g +<span id="L235" class="LineNr"> 235 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> g <span id="L236" class="LineNr"> 236 </span> <span class="muComment"># gap is at final word</span> <span id="L237" class="LineNr"> 237 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x10</span>) <span id="L238" class="LineNr"> 238 </span> <span class="PreProc">var</span> out/eax: (addr stream byte) <span class="Special"><-</span> address out-storage @@ -304,51 +304,51 @@ if ('onhashchange' in window) { <span id="L240" class="LineNr"> 240 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - test-word-at-gap-multiple-words-with-gap-at-final-non-word"</span> <span id="L241" class="LineNr"> 241 </span><span class="Delimiter">}</span> <span id="L242" class="LineNr"> 242 </span> -<span id="L243" class="LineNr"> 243 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L243'>grapheme-at-gap</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L243" class="LineNr"> 243 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L243'>code-point-utf8-at-gap</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L244" class="LineNr"> 244 </span> <span class="muComment"># send top of right most of the time</span> <span id="L245" class="LineNr"> 245 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L246" class="LineNr"> 246 </span> <span class="PreProc">var</span> right/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right -<span id="L247" class="LineNr"> 247 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get right, data -<span id="L248" class="LineNr"> 248 </span> <span class="PreProc">var</span> data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L246" class="LineNr"> 246 </span> <span class="PreProc">var</span> right/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right +<span id="L247" class="LineNr"> 247 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get right, data +<span id="L248" class="LineNr"> 248 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah <span id="L249" class="LineNr"> 249 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get right, top <span id="L250" class="LineNr"> 250 </span> <span class="Delimiter">{</span> <span id="L251" class="LineNr"> 251 </span> compare *top-addr, <span class="Constant">0</span> <span id="L252" class="LineNr"> 252 </span> <span class="PreProc">break-if-<=</span> <span id="L253" class="LineNr"> 253 </span> <span class="PreProc">var</span> top/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L254" class="LineNr"> 254 </span> top <span class="Special"><-</span> decrement -<span id="L255" class="LineNr"> 255 </span> <span class="PreProc">var</span> result/eax: (addr grapheme) <span class="Special"><-</span> index data, top +<span id="L255" class="LineNr"> 255 </span> <span class="PreProc">var</span> result/eax: (addr code-point-utf8) <span class="Special"><-</span> index data, top <span id="L256" class="LineNr"> 256 </span> <span class="PreProc">return</span> *result <span id="L257" class="LineNr"> 257 </span> <span class="Delimiter">}</span> <span id="L258" class="LineNr"> 258 </span> <span class="muComment"># send top of left only if right is empty</span> -<span id="L259" class="LineNr"> 259 </span> <span class="PreProc">var</span> left/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left -<span id="L260" class="LineNr"> 260 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get left, data -<span id="L261" class="LineNr"> 261 </span> <span class="PreProc">var</span> data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L259" class="LineNr"> 259 </span> <span class="PreProc">var</span> left/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left +<span id="L260" class="LineNr"> 260 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get left, data +<span id="L261" class="LineNr"> 261 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah <span id="L262" class="LineNr"> 262 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get left, top <span id="L263" class="LineNr"> 263 </span> <span class="Delimiter">{</span> <span id="L264" class="LineNr"> 264 </span> compare *top-addr, <span class="Constant">0</span> <span id="L265" class="LineNr"> 265 </span> <span class="PreProc">break-if-<=</span> <span id="L266" class="LineNr"> 266 </span> <span class="PreProc">var</span> top/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L267" class="LineNr"> 267 </span> top <span class="Special"><-</span> decrement -<span id="L268" class="LineNr"> 268 </span> <span class="PreProc">var</span> result/eax: (addr grapheme) <span class="Special"><-</span> index data, top +<span id="L268" class="LineNr"> 268 </span> <span class="PreProc">var</span> result/eax: (addr code-point-utf8) <span class="Special"><-</span> index data, top <span id="L269" class="LineNr"> 269 </span> <span class="PreProc">return</span> *result <span id="L270" class="LineNr"> 270 </span> <span class="Delimiter">}</span> <span id="L271" class="LineNr"> 271 </span> <span class="muComment"># send null if everything is empty</span> <span id="L272" class="LineNr"> 272 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L273" class="LineNr"> 273 </span><span class="Delimiter">}</span> <span id="L274" class="LineNr"> 274 </span> -<span id="L275" class="LineNr"> 275 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L275'>top-most-word</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L276" class="LineNr"> 276 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L277" class="LineNr"> 277 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L278" class="LineNr"> 278 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L279" class="LineNr"> 279 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L275" class="LineNr"> 275 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L275'>top-most-word</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>)<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> +<span id="L276" class="LineNr"> 276 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L277" class="LineNr"> 277 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> get self, data +<span id="L278" class="LineNr"> 278 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L279" class="LineNr"> 279 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L280" class="LineNr"> 280 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L281" class="LineNr"> 281 </span> <span class="PreProc">var</span> i/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L282" class="LineNr"> 282 </span> i <span class="Special"><-</span> decrement <span id="L283" class="LineNr"> 283 </span> <span class="Delimiter">{</span> <span id="L284" class="LineNr"> 284 </span> compare i, <span class="Constant">0</span> <span id="L285" class="LineNr"> 285 </span> <span class="PreProc">break-if-<</span> -<span id="L286" class="LineNr"> 286 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L287" class="LineNr"> 287 </span> <span class="PreProc">var</span> is-word?/eax: boolean <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L334'>is-ascii-word-grapheme?</a> *g +<span id="L286" class="LineNr"> 286 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L287" class="LineNr"> 287 </span> <span class="PreProc">var</span> is-word?/eax: boolean <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L334'>is-ascii-word-code-point-utf8?</a> *g <span id="L288" class="LineNr"> 288 </span> compare is-word?, <span class="Constant">0</span>/false <span id="L289" class="LineNr"> 289 </span> <span class="PreProc">break-if-=</span> <span id="L290" class="LineNr"> 290 </span> i <span class="Special"><-</span> decrement @@ -358,28 +358,28 @@ if ('onhashchange' in window) { <span id="L294" class="LineNr"> 294 </span> <span class="PreProc">return</span> i <span id="L295" class="LineNr"> 295 </span><span class="Delimiter">}</span> <span id="L296" class="LineNr"> 296 </span> -<span id="L297" class="LineNr"> 297 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L297'>emit-stack-from-index</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>), start: int, out: (addr stream byte) <span class="Delimiter">{</span> -<span id="L298" class="LineNr"> 298 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L299" class="LineNr"> 299 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L300" class="LineNr"> 300 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L301" class="LineNr"> 301 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L297" class="LineNr"> 297 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L297'>emit-stack-from-index</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), start: int, out: (addr stream byte) <span class="Delimiter">{</span> +<span id="L298" class="LineNr"> 298 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L299" class="LineNr"> 299 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> get self, data +<span id="L300" class="LineNr"> 300 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L301" class="LineNr"> 301 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L302" class="LineNr"> 302 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L303" class="LineNr"> 303 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy start <span id="L304" class="LineNr"> 304 </span> <span class="Delimiter">{</span> <span id="L305" class="LineNr"> 305 </span> compare i, *top-addr <span id="L306" class="LineNr"> 306 </span> <span class="PreProc">break-if->=</span> -<span id="L307" class="LineNr"> 307 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L308" class="LineNr"> 308 </span> <a href='403unicode.mu.html#L339'>write-grapheme</a> out, *g +<span id="L307" class="LineNr"> 307 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L308" class="LineNr"> 308 </span> <a href='403unicode.mu.html#L389'>write-code-point-utf8</a> out, *g <span id="L309" class="LineNr"> 309 </span> i <span class="Special"><-</span> increment <span id="L310" class="LineNr"> 310 </span> <span class="PreProc">loop</span> <span id="L311" class="LineNr"> 311 </span> <span class="Delimiter">}</span> <span id="L312" class="LineNr"> 312 </span><span class="Delimiter">}</span> <span id="L313" class="LineNr"> 313 </span> -<span id="L314" class="LineNr"> 314 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L314'>emit-stack-to-index</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>), end: int, out: (addr stream byte) <span class="Delimiter">{</span> -<span id="L315" class="LineNr"> 315 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L316" class="LineNr"> 316 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data -<span id="L317" class="LineNr"> 317 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L318" class="LineNr"> 318 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L314" class="LineNr"> 314 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L314'>emit-stack-to-index</a></span> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), end: int, out: (addr stream byte) <span class="Delimiter">{</span> +<span id="L315" class="LineNr"> 315 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L316" class="LineNr"> 316 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> get self, data +<span id="L317" class="LineNr"> 317 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L318" class="LineNr"> 318 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L319" class="LineNr"> 319 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L320" class="LineNr"> 320 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy *top-addr <span id="L321" class="LineNr"> 321 </span> i <span class="Special"><-</span> decrement @@ -388,14 +388,14 @@ if ('onhashchange' in window) { <span id="L324" class="LineNr"> 324 </span> <span class="PreProc">break-if-<</span> <span id="L325" class="LineNr"> 325 </span> compare i, end <span id="L326" class="LineNr"> 326 </span> <span class="PreProc">break-if-<</span> -<span id="L327" class="LineNr"> 327 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L328" class="LineNr"> 328 </span> <a href='403unicode.mu.html#L339'>write-grapheme</a> out, *g +<span id="L327" class="LineNr"> 327 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L328" class="LineNr"> 328 </span> <a href='403unicode.mu.html#L389'>write-code-point-utf8</a> out, *g <span id="L329" class="LineNr"> 329 </span> i <span class="Special"><-</span> decrement <span id="L330" class="LineNr"> 330 </span> <span class="PreProc">loop</span> <span id="L331" class="LineNr"> 331 </span> <span class="Delimiter">}</span> <span id="L332" class="LineNr"> 332 </span><span class="Delimiter">}</span> <span id="L333" class="LineNr"> 333 </span> -<span id="L334" class="LineNr"> 334 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L334'>is-ascii-word-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L334" class="LineNr"> 334 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L334'>is-ascii-word-code-point-utf8?</a></span> g: code-point-utf8<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L335" class="LineNr"> 335 </span> compare g, <span class="Constant">0x21</span>/! <span id="L336" class="LineNr"> 336 </span> <span class="Delimiter">{</span> <span id="L337" class="LineNr"> 337 </span> <span class="PreProc">break-if-!=</span> @@ -448,14 +448,14 @@ if ('onhashchange' in window) { <span id="L384" class="LineNr"> 384 </span><span class="muComment"># cursor is a single other color.</span> <span id="L385" class="LineNr"> 385 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L385'>render-gap-buffer-wrapping-right-then-down</a></span> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _gap: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), xmin: int, ymin: int, xmax: int, ymax: int, render-cursor?: boolean, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> <span id="L386" class="LineNr"> 386 </span> <span class="PreProc">var</span> gap/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _gap -<span id="L387" class="LineNr"> 387 </span> <span class="PreProc">var</span> left/<span class="muRegEdx">edx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get gap, left +<span id="L387" class="LineNr"> 387 </span> <span class="PreProc">var</span> left/<span class="muRegEdx">edx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get gap, left <span id="L388" class="LineNr"> 388 </span> <span class="PreProc">var</span> <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a>/<span class="muRegEbx">ebx</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false <span id="L389" class="LineNr"> 389 </span> <span class="PreProc">var</span> matching-open-paren-depth/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L390" class="LineNr"> 390 </span> <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a>, matching-open-paren-depth <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a> gap, render-cursor? <span id="L391" class="LineNr"> 391 </span> <span class="PreProc">var</span> x2/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L392" class="LineNr"> 392 </span> <span class="PreProc">var</span> y2/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L393" class="LineNr"> 393 </span> x2, y2 <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L87'>render-stack-from-bottom-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, left, xmin, ymin, xmax, ymax, xmin, ymin, <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a>, matching-open-paren-depth, color, background-color -<span id="L394" class="LineNr"> 394 </span> <span class="PreProc">var</span> right/<span class="muRegEdx">edx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get gap, right +<span id="L394" class="LineNr"> 394 </span> <span class="PreProc">var</span> right/<span class="muRegEdx">edx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get gap, right <span id="L395" class="LineNr"> 395 </span> x2, y2 <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L143'>render-stack-from-top-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>, right, xmin, ymin, xmax, ymax, x2, y2, render-cursor?, color, background-color <span id="L396" class="LineNr"> 396 </span> <span class="muComment"># decide whether we still need to print a cursor</span> <span id="L397" class="LineNr"> 397 </span> <span class="PreProc">var</span> fg/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy color @@ -463,17 +463,17 @@ if ('onhashchange' in window) { <span id="L399" class="LineNr"> 399 </span> compare render-cursor?, <span class="Constant">0</span>/false <span id="L400" class="LineNr"> 400 </span> <span class="Delimiter">{</span> <span id="L401" class="LineNr"> 401 </span> <span class="PreProc">break-if-=</span> -<span id="L402" class="LineNr"> 402 </span> <span class="muComment"># if the right side is empty, grapheme stack didn't print the cursor</span> -<span id="L403" class="LineNr"> 403 </span> <span class="PreProc">var</span> empty?/eax: boolean <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L22'>grapheme-stack-empty?</a> right +<span id="L402" class="LineNr"> 402 </span> <span class="muComment"># if the right side is empty, code-point-utf8 stack didn't print the cursor</span> +<span id="L403" class="LineNr"> 403 </span> <span class="PreProc">var</span> empty?/eax: boolean <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L22'>code-point-utf8-stack-empty?</a> right <span id="L404" class="LineNr"> 404 </span> compare empty?, <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> <span class="muComment"># swap foreground and background</span> <span id="L407" class="LineNr"> 407 </span> fg <span class="Special"><-</span> copy background-color <span id="L408" class="LineNr"> 408 </span> bg <span class="Special"><-</span> copy color <span id="L409" class="LineNr"> 409 </span> <span class="Delimiter">}</span> -<span id="L410" class="LineNr"> 410 </span> <span class="muComment"># print a grapheme either way so that cursor position doesn't affect printed width</span> +<span id="L410" class="LineNr"> 410 </span> <span class="muComment"># print a code-point-utf8 either way so that cursor position doesn't affect printed width</span> <span id="L411" class="LineNr"> 411 </span> <span class="PreProc">var</span> space/<span class="muRegEdx">edx</span>: code-point <span class="Special"><-</span> copy <span class="Constant">0x20</span> -<span id="L412" class="LineNr"> 412 </span> x2, y2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L162'>render-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, space, xmin, ymin, xmax, ymax, x2, y2, fg, bg +<span id="L412" class="LineNr"> 412 </span> x2, y2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L155'>render-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>, space, xmin, ymin, xmax, ymax, x2, y2, fg, bg <span id="L413" class="LineNr"> 413 </span> <span class="PreProc">return</span> x2, y2 <span id="L414" class="LineNr"> 414 </span><span class="Delimiter">}</span> <span id="L415" class="LineNr"> 415 </span> @@ -491,30 +491,30 @@ if ('onhashchange' in window) { <span id="L427" class="LineNr"> 427 </span> <span id="L428" class="LineNr"> 428 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L428'>gap-buffer-length</a></span> _gap: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> <span id="L429" class="LineNr"> 429 </span> <span class="PreProc">var</span> gap/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _gap -<span id="L430" class="LineNr"> 430 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get gap, left +<span id="L430" class="LineNr"> 430 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get gap, left <span id="L431" class="LineNr"> 431 </span> <span class="PreProc">var</span> tmp/eax: (addr int) <span class="Special"><-</span> get left, top <span id="L432" class="LineNr"> 432 </span> <span class="PreProc">var</span> left-length/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy *tmp -<span id="L433" class="LineNr"> 433 </span> <span class="PreProc">var</span> right/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get gap, right +<span id="L433" class="LineNr"> 433 </span> <span class="PreProc">var</span> right/<span class="muRegEsi">esi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get gap, right <span id="L434" class="LineNr"> 434 </span> tmp <span class="Special"><-</span> get right, top <span id="L435" class="LineNr"> 435 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> copy *tmp <span id="L436" class="LineNr"> 436 </span> result <span class="Special"><-</span> add left-length <span id="L437" class="LineNr"> 437 </span> <span class="PreProc">return</span> result <span id="L438" class="LineNr"> 438 </span><span class="Delimiter">}</span> <span id="L439" class="LineNr"> 439 </span> -<span id="L440" class="LineNr"> 440 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L440'>add-grapheme-at-gap</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), g: grapheme <span class="Delimiter">{</span> +<span id="L440" class="LineNr"> 440 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L440'>add-code-point-utf8-at-gap</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), g: code-point-utf8 <span class="Delimiter">{</span> <span id="L441" class="LineNr"> 441 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L442" class="LineNr"> 442 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left -<span id="L443" class="LineNr"> 443 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> left, g +<span id="L442" class="LineNr"> 442 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left +<span id="L443" class="LineNr"> 443 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> left, g <span id="L444" class="LineNr"> 444 </span><span class="Delimiter">}</span> <span id="L445" class="LineNr"> 445 </span> <span id="L446" class="LineNr"> 446 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L446'>add-code-point-at-gap</a></span> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), c: code-point <span class="Delimiter">{</span> -<span id="L447" class="LineNr"> 447 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy c -<span id="L448" class="LineNr"> 448 </span> <a href='514gap-buffer.mu.html#L440'>add-grapheme-at-gap</a> self, g +<span id="L447" class="LineNr"> 447 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy c +<span id="L448" class="LineNr"> 448 </span> <a href='514gap-buffer.mu.html#L440'>add-code-point-utf8-at-gap</a> self, g <span id="L449" class="LineNr"> 449 </span><span class="Delimiter">}</span> <span id="L450" class="LineNr"> 450 </span> <span id="L451" class="LineNr"> 451 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L451'>gap-to-start</a></span> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L452" class="LineNr"> 452 </span> <span class="Delimiter">{</span> -<span id="L453" class="LineNr"> 453 </span> <span class="PreProc">var</span> curr/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> self +<span id="L453" class="LineNr"> 453 </span> <span class="PreProc">var</span> curr/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> self <span id="L454" class="LineNr"> 454 </span> compare curr, <span class="Constant">-1</span> <span id="L455" class="LineNr"> 455 </span> <span class="PreProc">loop-if-!=</span> <span id="L456" class="LineNr"> 456 </span> <span class="Delimiter">}</span> @@ -522,7 +522,7 @@ if ('onhashchange' in window) { <span id="L458" class="LineNr"> 458 </span> <span id="L459" class="LineNr"> 459 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L459'>gap-to-end</a></span> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L460" class="LineNr"> 460 </span> <span class="Delimiter">{</span> -<span id="L461" class="LineNr"> 461 </span> <span class="PreProc">var</span> curr/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> self +<span id="L461" class="LineNr"> 461 </span> <span class="PreProc">var</span> curr/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> self <span id="L462" class="LineNr"> 462 </span> compare curr, <span class="Constant">-1</span> <span id="L463" class="LineNr"> 463 </span> <span class="PreProc">loop-if-!=</span> <span id="L464" class="LineNr"> 464 </span> <span class="Delimiter">}</span> @@ -530,96 +530,96 @@ if ('onhashchange' in window) { <span id="L466" class="LineNr"> 466 </span> <span id="L467" class="LineNr"> 467 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L467'>gap-at-start?</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L468" class="LineNr"> 468 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L469" class="LineNr"> 469 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left -<span id="L470" class="LineNr"> 470 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L22'>grapheme-stack-empty?</a> left +<span id="L469" class="LineNr"> 469 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left +<span id="L470" class="LineNr"> 470 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L22'>code-point-utf8-stack-empty?</a> left <span id="L471" class="LineNr"> 471 </span> <span class="PreProc">return</span> result <span id="L472" class="LineNr"> 472 </span><span class="Delimiter">}</span> <span id="L473" class="LineNr"> 473 </span> <span id="L474" class="LineNr"> 474 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L474'>gap-at-end?</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L475" class="LineNr"> 475 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L476" class="LineNr"> 476 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right -<span id="L477" class="LineNr"> 477 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L22'>grapheme-stack-empty?</a> right +<span id="L476" class="LineNr"> 476 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right +<span id="L477" class="LineNr"> 477 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L22'>code-point-utf8-stack-empty?</a> right <span id="L478" class="LineNr"> 478 </span> <span class="PreProc">return</span> result <span id="L479" class="LineNr"> 479 </span><span class="Delimiter">}</span> <span id="L480" class="LineNr"> 480 </span> -<span id="L481" class="LineNr"> 481 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L481'>gap-right</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L481" class="LineNr"> 481 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L481'>gap-right</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L482" class="LineNr"> 482 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L483" class="LineNr"> 483 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L484" class="LineNr"> 484 </span> <span class="PreProc">var</span> right/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right -<span id="L485" class="LineNr"> 485 </span> g <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L51'>pop-grapheme-stack</a> right +<span id="L483" class="LineNr"> 483 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L484" class="LineNr"> 484 </span> <span class="PreProc">var</span> right/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right +<span id="L485" class="LineNr"> 485 </span> g <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L51'>pop-code-point-utf8-stack</a> right <span id="L486" class="LineNr"> 486 </span> compare g, <span class="Constant">-1</span> <span id="L487" class="LineNr"> 487 </span> <span class="Delimiter">{</span> <span id="L488" class="LineNr"> 488 </span> <span class="PreProc">break-if-=</span> -<span id="L489" class="LineNr"> 489 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left -<span id="L490" class="LineNr"> 490 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> left, g +<span id="L489" class="LineNr"> 489 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left +<span id="L490" class="LineNr"> 490 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> left, g <span id="L491" class="LineNr"> 491 </span> <span class="Delimiter">}</span> <span id="L492" class="LineNr"> 492 </span> <span class="PreProc">return</span> g <span id="L493" class="LineNr"> 493 </span><span class="Delimiter">}</span> <span id="L494" class="LineNr"> 494 </span> -<span id="L495" class="LineNr"> 495 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L495'>gap-left</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L495" class="LineNr"> 495 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L495'>gap-left</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L496" class="LineNr"> 496 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L497" class="LineNr"> 497 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L497" class="LineNr"> 497 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L498" class="LineNr"> 498 </span> <span class="Delimiter">{</span> -<span id="L499" class="LineNr"> 499 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left -<span id="L500" class="LineNr"> 500 </span> g <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L51'>pop-grapheme-stack</a> left +<span id="L499" class="LineNr"> 499 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left +<span id="L500" class="LineNr"> 500 </span> g <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L51'>pop-code-point-utf8-stack</a> left <span id="L501" class="LineNr"> 501 </span> <span class="Delimiter">}</span> <span id="L502" class="LineNr"> 502 </span> compare g, <span class="Constant">-1</span> <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">var</span> right/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right -<span id="L506" class="LineNr"> 506 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> right, g +<span id="L505" class="LineNr"> 505 </span> <span class="PreProc">var</span> right/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right +<span id="L506" class="LineNr"> 506 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> right, g <span id="L507" class="LineNr"> 507 </span> <span class="Delimiter">}</span> <span id="L508" class="LineNr"> 508 </span> <span class="PreProc">return</span> g <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='514gap-buffer.mu.html#L511'>index-of-gap</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> <span id="L512" class="LineNr"> 512 </span> <span class="PreProc">var</span> self/eax: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L513" class="LineNr"> 513 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L513" class="LineNr"> 513 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left <span id="L514" class="LineNr"> 514 </span> <span class="PreProc">var</span> top-addr/eax: (addr int) <span class="Special"><-</span> get left, top <span id="L515" class="LineNr"> 515 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> copy *top-addr <span id="L516" class="LineNr"> 516 </span> <span class="PreProc">return</span> result <span id="L517" class="LineNr"> 517 </span><span class="Delimiter">}</span> <span id="L518" class="LineNr"> 518 </span> -<span id="L519" class="LineNr"> 519 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L519'>first-grapheme-in-gap-buffer</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L519" class="LineNr"> 519 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L519'>first-code-point-utf8-in-gap-buffer</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L520" class="LineNr"> 520 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self <span id="L521" class="LineNr"> 521 </span> <span class="muComment"># try to read from left</span> -<span id="L522" class="LineNr"> 522 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L522" class="LineNr"> 522 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left <span id="L523" class="LineNr"> 523 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get left, top <span id="L524" class="LineNr"> 524 </span> compare *top-addr, <span class="Constant">0</span> <span id="L525" class="LineNr"> 525 </span> <span class="Delimiter">{</span> <span id="L526" class="LineNr"> 526 </span> <span class="PreProc">break-if-<=</span> -<span id="L527" class="LineNr"> 527 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get left, data -<span id="L528" class="LineNr"> 528 </span> <span class="PreProc">var</span> data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L529" class="LineNr"> 529 </span> <span class="PreProc">var</span> result-addr/eax: (addr grapheme) <span class="Special"><-</span> index data, <span class="Constant">0</span> +<span id="L527" class="LineNr"> 527 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get left, data +<span id="L528" class="LineNr"> 528 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L529" class="LineNr"> 529 </span> <span class="PreProc">var</span> result-addr/eax: (addr code-point-utf8) <span class="Special"><-</span> index data, <span class="Constant">0</span> <span id="L530" class="LineNr"> 530 </span> <span class="PreProc">return</span> *result-addr <span id="L531" class="LineNr"> 531 </span> <span class="Delimiter">}</span> <span id="L532" class="LineNr"> 532 </span> <span class="muComment"># try to read from right</span> -<span id="L533" class="LineNr"> 533 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L533" class="LineNr"> 533 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right <span id="L534" class="LineNr"> 534 </span> top-addr <span class="Special"><-</span> get right, top <span id="L535" class="LineNr"> 535 </span> compare *top-addr, <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="PreProc">break-if-<=</span> -<span id="L538" class="LineNr"> 538 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get right, data -<span id="L539" class="LineNr"> 539 </span> <span class="PreProc">var</span> data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L538" class="LineNr"> 538 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get right, data +<span id="L539" class="LineNr"> 539 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah <span id="L540" class="LineNr"> 540 </span> <span class="PreProc">var</span> top/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L541" class="LineNr"> 541 </span> top <span class="Special"><-</span> decrement -<span id="L542" class="LineNr"> 542 </span> <span class="PreProc">var</span> result-addr/eax: (addr grapheme) <span class="Special"><-</span> index data, top +<span id="L542" class="LineNr"> 542 </span> <span class="PreProc">var</span> result-addr/eax: (addr code-point-utf8) <span class="Special"><-</span> index data, top <span id="L543" class="LineNr"> 543 </span> <span class="PreProc">return</span> *result-addr <span id="L544" class="LineNr"> 544 </span> <span class="Delimiter">}</span> <span id="L545" class="LineNr"> 545 </span> <span class="muComment"># give up</span> <span id="L546" class="LineNr"> 546 </span> <span class="PreProc">return</span> <span class="Constant">-1</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="muFunction"><a href='514gap-buffer.mu.html#L549'>grapheme-before-cursor-in-gap-buffer</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L549" class="LineNr"> 549 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L549'>code-point-utf8-before-cursor-in-gap-buffer</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L550" class="LineNr"> 550 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self <span id="L551" class="LineNr"> 551 </span> <span class="muComment"># try to read from left</span> -<span id="L552" class="LineNr"> 552 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L552" class="LineNr"> 552 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left <span id="L553" class="LineNr"> 553 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> get left, top <span id="L554" class="LineNr"> 554 </span> compare *top-addr, <span class="Constant">0</span> <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">var</span> result/eax: grapheme <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L51'>pop-grapheme-stack</a> left -<span id="L558" class="LineNr"> 558 </span> <a href='513grapheme-stack.mu.html#L39'>push-grapheme-stack</a> left, result +<span id="L557" class="LineNr"> 557 </span> <span class="PreProc">var</span> result/eax: code-point-utf8 <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L51'>pop-code-point-utf8-stack</a> left +<span id="L558" class="LineNr"> 558 </span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> left, result <span id="L559" class="LineNr"> 559 </span> <span class="PreProc">return</span> result <span id="L560" class="LineNr"> 560 </span> <span class="Delimiter">}</span> <span id="L561" class="LineNr"> 561 </span> <span class="muComment"># give up</span> @@ -628,27 +628,27 @@ if ('onhashchange' in window) { <span id="L564" class="LineNr"> 564 </span> <span id="L565" class="LineNr"> 565 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L565'>delete-before-gap</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L566" class="LineNr"> 566 </span> <span class="PreProc">var</span> self/eax: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L567" class="LineNr"> 567 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left -<span id="L568" class="LineNr"> 568 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L51'>pop-grapheme-stack</a> left +<span id="L567" class="LineNr"> 567 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left +<span id="L568" class="LineNr"> 568 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L51'>pop-code-point-utf8-stack</a> left <span id="L569" class="LineNr"> 569 </span><span class="Delimiter">}</span> <span id="L570" class="LineNr"> 570 </span> -<span id="L571" class="LineNr"> 571 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L571'>pop-after-gap</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L571" class="LineNr"> 571 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L571'>pop-after-gap</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L572" class="LineNr"> 572 </span> <span class="PreProc">var</span> self/eax: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L573" class="LineNr"> 573 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right -<span id="L574" class="LineNr"> 574 </span> <span class="PreProc">var</span> result/eax: grapheme <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L51'>pop-grapheme-stack</a> right +<span id="L573" class="LineNr"> 573 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right +<span id="L574" class="LineNr"> 574 </span> <span class="PreProc">var</span> result/eax: code-point-utf8 <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L51'>pop-code-point-utf8-stack</a> right <span id="L575" class="LineNr"> 575 </span> <span class="PreProc">return</span> result <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='514gap-buffer.mu.html#L578'>gap-buffer-equal?</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), s: (addr array byte)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L579" class="LineNr"> 579 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L580" class="LineNr"> 580 </span> <span class="muComment"># complication: graphemes may be multiple bytes</span> +<span id="L580" class="LineNr"> 580 </span> <span class="muComment"># complication: code-point-utf8s may be multiple bytes</span> <span id="L581" class="LineNr"> 581 </span> <span class="muComment"># so don't rely on length</span> <span id="L582" class="LineNr"> 582 </span> <span class="muComment"># instead turn the expected result into a stream and arrange to read from it in order</span> <span id="L583" class="LineNr"> 583 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x10</span>/capacity) <span id="L584" class="LineNr"> 584 </span> <span class="PreProc">var</span> expected-stream/<span class="muRegEcx">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage <span id="L585" class="LineNr"> 585 </span> <a href='108write.subx.html#L11'>write</a> expected-stream, s <span id="L586" class="LineNr"> 586 </span> <span class="muComment"># compare left</span> -<span id="L587" class="LineNr"> 587 </span> <span class="PreProc">var</span> left/<span class="muRegEdx">edx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L587" class="LineNr"> 587 </span> <span class="PreProc">var</span> left/<span class="muRegEdx">edx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left <span id="L588" class="LineNr"> 588 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L497'>prefix-match?</a> left, expected-stream <span id="L589" class="LineNr"> 589 </span> compare result, <span class="Constant">0</span>/false <span id="L590" class="LineNr"> 590 </span> <span class="Delimiter">{</span> @@ -656,7 +656,7 @@ if ('onhashchange' in window) { <span id="L592" class="LineNr"> 592 </span> <span class="PreProc">return</span> result <span id="L593" class="LineNr"> 593 </span> <span class="Delimiter">}</span> <span id="L594" class="LineNr"> 594 </span> <span class="muComment"># compare right</span> -<span id="L595" class="LineNr"> 595 </span> <span class="PreProc">var</span> right/<span class="muRegEdx">edx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L595" class="LineNr"> 595 </span> <span class="PreProc">var</span> right/<span class="muRegEdx">edx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right <span id="L596" class="LineNr"> 596 </span> result <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L525'>suffix-match?</a> right, expected-stream <span id="L597" class="LineNr"> 597 </span> compare result, <span class="Constant">0</span>/false <span id="L598" class="LineNr"> 598 </span> <span class="Delimiter">{</span> @@ -689,7 +689,7 @@ if ('onhashchange' in window) { <span id="L625" class="LineNr"> 625 </span> <a href='514gap-buffer.mu.html#L446'>add-code-point-at-gap</a> g, <span class="Constant">0x61</span>/a <span id="L626" class="LineNr"> 626 </span> <a href='514gap-buffer.mu.html#L446'>add-code-point-at-gap</a> g, <span class="Constant">0x61</span>/a <span id="L627" class="LineNr"> 627 </span> <a href='514gap-buffer.mu.html#L446'>add-code-point-at-gap</a> g, <span class="Constant">0x61</span>/a -<span id="L628" class="LineNr"> 628 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> g +<span id="L628" class="LineNr"> 628 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> g <span id="L629" class="LineNr"> 629 </span> <span class="muComment"># gap is in the middle</span> <span id="L630" class="LineNr"> 630 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L578'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> <span id="L631" class="LineNr"> 631 </span> <a href='502test.mu.html#L19'>check</a> result, <span class="Constant">"F - test-gap-buffer-equal-from-middle"</span> @@ -703,7 +703,7 @@ if ('onhashchange' in window) { <span id="L639" class="LineNr"> 639 </span> <a href='514gap-buffer.mu.html#L446'>add-code-point-at-gap</a> g, <span class="Constant">0x61</span>/a <span id="L640" class="LineNr"> 640 </span> <a href='514gap-buffer.mu.html#L446'>add-code-point-at-gap</a> g, <span class="Constant">0x61</span>/a <span id="L641" class="LineNr"> 641 </span> <a href='514gap-buffer.mu.html#L446'>add-code-point-at-gap</a> g, <span class="Constant">0x61</span>/a -<span id="L642" class="LineNr"> 642 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> g +<span id="L642" class="LineNr"> 642 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> g <span id="L643" class="LineNr"> 643 </span> dummy <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> g <span id="L644" class="LineNr"> 644 </span> dummy <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> g <span id="L645" class="LineNr"> 645 </span> <span class="muComment"># gap is at the start</span> @@ -738,9 +738,9 @@ if ('onhashchange' in window) { <span id="L674" class="LineNr"> 674 </span> compare i, len <span id="L675" class="LineNr"> 675 </span> <span class="PreProc">break-if->=</span> <span id="L676" class="LineNr"> 676 </span> <span class="Delimiter">{</span> -<span id="L677" class="LineNr"> 677 </span> <span class="PreProc">var</span> tmp/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> self, i -<span id="L678" class="LineNr"> 678 </span> <span class="PreProc">var</span> curr/<span class="muRegEcx">ecx</span>: grapheme <span class="Special"><-</span> copy tmp -<span id="L679" class="LineNr"> 679 </span> <span class="PreProc">var</span> currg/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> g, i +<span id="L677" class="LineNr"> 677 </span> <span class="PreProc">var</span> tmp/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> self, i +<span id="L678" class="LineNr"> 678 </span> <span class="PreProc">var</span> curr/<span class="muRegEcx">ecx</span>: code-point-utf8 <span class="Special"><-</span> copy tmp +<span id="L679" class="LineNr"> 679 </span> <span class="PreProc">var</span> currg/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> g, i <span id="L680" class="LineNr"> 680 </span> compare curr, currg <span id="L681" class="LineNr"> 681 </span> <span class="PreProc">break-if-=</span> <span id="L682" class="LineNr"> 682 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false @@ -751,36 +751,36 @@ if ('onhashchange' in window) { <span id="L687" class="LineNr"> 687 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L688" class="LineNr"> 688 </span><span class="Delimiter">}</span> <span id="L689" class="LineNr"> 689 </span> -<span id="L690" class="LineNr"> 690 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L690'>gap-index</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), _n: int<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L690" class="LineNr"> 690 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L690'>gap-index</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), _n: int<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L691" class="LineNr"> 691 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self <span id="L692" class="LineNr"> 692 </span> <span class="PreProc">var</span> n/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy _n <span id="L693" class="LineNr"> 693 </span> <span class="muComment"># if n < left->length, index into left</span> -<span id="L694" class="LineNr"> 694 </span> <span class="PreProc">var</span> left/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L694" class="LineNr"> 694 </span> <span class="PreProc">var</span> left/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left <span id="L695" class="LineNr"> 695 </span> <span class="PreProc">var</span> left-len-a/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> get left, top <span id="L696" class="LineNr"> 696 </span> compare n, *left-len-a <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="PreProc">var</span> data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get left, data -<span id="L700" class="LineNr"> 700 </span> <span class="PreProc">var</span> data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L701" class="LineNr"> 701 </span> <span class="PreProc">var</span> result/eax: (addr grapheme) <span class="Special"><-</span> index data, n +<span id="L699" class="LineNr"> 699 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get left, data +<span id="L700" class="LineNr"> 700 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L701" class="LineNr"> 701 </span> <span class="PreProc">var</span> result/eax: (addr code-point-utf8) <span class="Special"><-</span> index data, n <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 class="muComment"># shrink n</span> <span id="L705" class="LineNr"> 705 </span> n <span class="Special"><-</span> subtract *left-len-a <span id="L706" class="LineNr"> 706 </span> <span class="muComment"># if n < right->length, index into right</span> -<span id="L707" class="LineNr"> 707 </span> <span class="PreProc">var</span> right/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L707" class="LineNr"> 707 </span> <span class="PreProc">var</span> right/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right <span id="L708" class="LineNr"> 708 </span> <span class="PreProc">var</span> right-len-a/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> get right, top <span id="L709" class="LineNr"> 709 </span> compare n, *right-len-a <span id="L710" class="LineNr"> 710 </span> <span class="Delimiter">{</span> <span id="L711" class="LineNr"> 711 </span> <span class="PreProc">break-if->=</span> -<span id="L712" class="LineNr"> 712 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get right, data -<span id="L713" class="LineNr"> 713 </span> <span class="PreProc">var</span> data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L712" class="LineNr"> 712 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get right, data +<span id="L713" class="LineNr"> 713 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah <span id="L714" class="LineNr"> 714 </span> <span class="muComment"># idx = right->len - n - 1</span> <span id="L715" class="LineNr"> 715 </span> <span class="PreProc">var</span> idx/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy n <span id="L716" class="LineNr"> 716 </span> idx <span class="Special"><-</span> subtract *right-len-a <span id="L717" class="LineNr"> 717 </span> idx <span class="Special"><-</span> negate <span id="L718" class="LineNr"> 718 </span> idx <span class="Special"><-</span> subtract <span class="Constant">1</span> -<span id="L719" class="LineNr"> 719 </span> <span class="PreProc">var</span> result/eax: (addr grapheme) <span class="Special"><-</span> index data, idx +<span id="L719" class="LineNr"> 719 </span> <span class="PreProc">var</span> result/eax: (addr code-point-utf8) <span class="Special"><-</span> index data, idx <span id="L720" class="LineNr"> 720 </span> <span class="PreProc">return</span> *result <span id="L721" class="LineNr"> 721 </span> <span class="Delimiter">}</span> <span id="L722" class="LineNr"> 722 </span> <span class="muComment"># error</span> @@ -821,25 +821,25 @@ if ('onhashchange' in window) { <span id="L757" class="LineNr"> 757 </span> <span class="PreProc">var</span> gap/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address gap-storage <span id="L758" class="LineNr"> 758 </span> <a href='514gap-buffer.mu.html#L52'>initialize-gap-buffer-with</a> gap, <span class="Constant">"abc"</span> <span id="L759" class="LineNr"> 759 </span> <span class="muComment"># gap is at end, all contents are in left</span> -<span id="L760" class="LineNr"> 760 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> gap, <span class="Constant">0</span> +<span id="L760" class="LineNr"> 760 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> gap, <span class="Constant">0</span> <span id="L761" class="LineNr"> 761 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy g <span id="L762" class="LineNr"> 762 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x61</span>/a, <span class="Constant">"F - test-gap-index/left-1"</span> -<span id="L763" class="LineNr"> 763 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> gap, <span class="Constant">1</span> +<span id="L763" class="LineNr"> 763 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> gap, <span class="Constant">1</span> <span id="L764" class="LineNr"> 764 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy g <span id="L765" class="LineNr"> 765 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x62</span>/b, <span class="Constant">"F - test-gap-index/left-2"</span> -<span id="L766" class="LineNr"> 766 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> gap, <span class="Constant">2</span> +<span id="L766" class="LineNr"> 766 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> gap, <span class="Constant">2</span> <span id="L767" class="LineNr"> 767 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy g <span id="L768" class="LineNr"> 768 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x63</span>/c, <span class="Constant">"F - test-gap-index/left-3"</span> <span id="L769" class="LineNr"> 769 </span> <span class="muComment"># now check when everything is to the right</span> <span id="L770" class="LineNr"> 770 </span> <a href='514gap-buffer.mu.html#L451'>gap-to-start</a> gap <span id="L771" class="LineNr"> 771 </span> <a href='514gap-buffer.mu.html#L1014'>rewind-gap-buffer</a> gap -<span id="L772" class="LineNr"> 772 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> gap, <span class="Constant">0</span> +<span id="L772" class="LineNr"> 772 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> gap, <span class="Constant">0</span> <span id="L773" class="LineNr"> 773 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy g <span id="L774" class="LineNr"> 774 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x61</span>/a, <span class="Constant">"F - test-gap-index/right-1"</span> -<span id="L775" class="LineNr"> 775 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> gap, <span class="Constant">1</span> +<span id="L775" class="LineNr"> 775 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> gap, <span class="Constant">1</span> <span id="L776" class="LineNr"> 776 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy g <span id="L777" class="LineNr"> 777 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x62</span>/b, <span class="Constant">"F - test-gap-index/right-2"</span> -<span id="L778" class="LineNr"> 778 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> gap, <span class="Constant">2</span> +<span id="L778" class="LineNr"> 778 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> gap, <span class="Constant">2</span> <span id="L779" class="LineNr"> 779 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy g <span id="L780" class="LineNr"> 780 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x63</span>/c, <span class="Constant">"F - test-gap-index/right-3"</span> <span id="L781" class="LineNr"> 781 </span><span class="Delimiter">}</span> @@ -852,25 +852,25 @@ if ('onhashchange' in window) { <span id="L788" class="LineNr"> 788 </span> <span class="PreProc">var</span> dest-ah/eax: (addr handle <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _dest-ah <span id="L789" class="LineNr"> 789 </span> <span class="PreProc">var</span> _dest-a/eax: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *dest-ah <span id="L790" class="LineNr"> 790 </span> <span class="PreProc">var</span> dest-a/<span class="muRegEdi">edi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _dest-a -<span id="L791" class="LineNr"> 791 </span> <span class="muComment"># copy left grapheme-stack</span> -<span id="L792" class="LineNr"> 792 </span> <span class="PreProc">var</span> src/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get src-a, left -<span id="L793" class="LineNr"> 793 </span> <span class="PreProc">var</span> dest/<span class="muRegEdx">edx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get dest-a, left -<span id="L794" class="LineNr"> 794 </span> <a href='513grapheme-stack.mu.html#L67'>copy-grapheme-stack</a> src, dest -<span id="L795" class="LineNr"> 795 </span> <span class="muComment"># copy right grapheme-stack</span> +<span id="L791" class="LineNr"> 791 </span> <span class="muComment"># copy left code-point-utf8-stack</span> +<span id="L792" class="LineNr"> 792 </span> <span class="PreProc">var</span> src/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get src-a, left +<span id="L793" class="LineNr"> 793 </span> <span class="PreProc">var</span> dest/<span class="muRegEdx">edx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get dest-a, left +<span id="L794" class="LineNr"> 794 </span> <a href='513grapheme-stack.mu.html#L67'>copy-code-point-utf8-stack</a> src, dest +<span id="L795" class="LineNr"> 795 </span> <span class="muComment"># copy right code-point-utf8-stack</span> <span id="L796" class="LineNr"> 796 </span> src <span class="Special"><-</span> get src-a, right <span id="L797" class="LineNr"> 797 </span> dest <span class="Special"><-</span> get dest-a, right -<span id="L798" class="LineNr"> 798 </span> <a href='513grapheme-stack.mu.html#L67'>copy-grapheme-stack</a> src, dest +<span id="L798" class="LineNr"> 798 </span> <a href='513grapheme-stack.mu.html#L67'>copy-code-point-utf8-stack</a> src, dest <span id="L799" class="LineNr"> 799 </span><span class="Delimiter">}</span> <span id="L800" class="LineNr"> 800 </span> <span id="L801" class="LineNr"> 801 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L801'>gap-buffer-is-decimal-integer?</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L802" class="LineNr"> 802 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L803" class="LineNr"> 803 </span> <span class="PreProc">var</span> curr/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left -<span id="L804" class="LineNr"> 804 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L552'>grapheme-stack-is-decimal-integer?</a> curr +<span id="L803" class="LineNr"> 803 </span> <span class="PreProc">var</span> curr/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left +<span id="L804" class="LineNr"> 804 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L552'>code-point-utf8-stack-is-decimal-integer?</a> curr <span id="L805" class="LineNr"> 805 </span> <span class="Delimiter">{</span> <span id="L806" class="LineNr"> 806 </span> compare result, <span class="Constant">0</span>/false <span id="L807" class="LineNr"> 807 </span> <span class="PreProc">break-if-=</span> <span id="L808" class="LineNr"> 808 </span> curr <span class="Special"><-</span> get self, right -<span id="L809" class="LineNr"> 809 </span> result <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L552'>grapheme-stack-is-decimal-integer?</a> curr +<span id="L809" class="LineNr"> 809 </span> result <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L552'>code-point-utf8-stack-is-decimal-integer?</a> curr <span id="L810" class="LineNr"> 810 </span> <span class="Delimiter">}</span> <span id="L811" class="LineNr"> 811 </span> <span class="PreProc">return</span> result <span id="L812" class="LineNr"> 812 </span><span class="Delimiter">}</span> @@ -905,7 +905,7 @@ if ('onhashchange' in window) { <span id="L841" class="LineNr"> 841 </span> <span class="muComment">#</span> <span id="L842" class="LineNr"> 842 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L416'>render-gap-buffer</a> <a href='500fake-screen.mu.html#L16'>screen</a>, gap, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">1</span>/show-cursor, <span class="Constant">3</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L843" class="LineNr"> 843 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"abc "</span>, <span class="Constant">"F - test-render-gap-buffer-with-cursor-at-end"</span> -<span id="L844" class="LineNr"> 844 </span> <span class="muComment"># we've drawn one extra grapheme for the cursor</span> +<span id="L844" class="LineNr"> 844 </span> <span class="muComment"># we've drawn one extra code-point-utf8 for the cursor</span> <span id="L845" class="LineNr"> 845 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">4</span>, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L831'>test-render-gap-buffer-with-cursor-at-end</a>: result"</span> <span id="L846" class="LineNr"> 846 </span> <span class="muComment"># abc</span> <span id="L847" class="LineNr"> 847 </span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">3</span>/bg=reverse, <span class="Constant">0</span>/y, <span class="Constant">" |"</span>, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L831'>test-render-gap-buffer-with-cursor-at-end</a>: bg"</span> @@ -917,7 +917,7 @@ if ('onhashchange' in window) { <span id="L853" class="LineNr"> 853 </span> <span class="PreProc">var</span> gap/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address gap-storage <span id="L854" class="LineNr"> 854 </span> <a href='514gap-buffer.mu.html#L52'>initialize-gap-buffer-with</a> gap, <span class="Constant">"abc"</span> <span id="L855" class="LineNr"> 855 </span> <a href='514gap-buffer.mu.html#L459'>gap-to-end</a> gap -<span id="L856" class="LineNr"> 856 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> gap +<span id="L856" class="LineNr"> 856 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> gap <span id="L857" class="LineNr"> 857 </span> <span class="muComment"># setup: screen</span> <span id="L858" class="LineNr"> 858 </span> <span class="PreProc">var</span> screen-storage: <a href='500fake-screen.mu.html#L16'>screen</a> <span id="L859" class="LineNr"> 859 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEdi">edi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> address screen-storage @@ -969,7 +969,7 @@ if ('onhashchange' in window) { <span id="L905" class="LineNr"> 905 </span> <span class="PreProc">var</span> gap/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address gap-storage <span id="L906" class="LineNr"> 906 </span> <a href='514gap-buffer.mu.html#L52'>initialize-gap-buffer-with</a> gap, <span class="Constant">"(a)"</span> <span id="L907" class="LineNr"> 907 </span> <a href='514gap-buffer.mu.html#L459'>gap-to-end</a> gap -<span id="L908" class="LineNr"> 908 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> gap +<span id="L908" class="LineNr"> 908 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> gap <span id="L909" class="LineNr"> 909 </span> <span class="muComment"># setup: screen</span> <span id="L910" class="LineNr"> 910 </span> <span class="PreProc">var</span> screen-storage: <a href='500fake-screen.mu.html#L16'>screen</a> <span id="L911" class="LineNr"> 911 </span> <span class="PreProc">var</span> <a href='500fake-screen.mu.html#L16'>screen</a>/<span class="muRegEdi">edi</span>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> address screen-storage @@ -1011,7 +1011,7 @@ if ('onhashchange' in window) { <span id="L947" class="LineNr"> 947 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false, <span class="Constant">0</span> <span id="L948" class="LineNr"> 948 </span> <span class="Delimiter">}</span> <span id="L949" class="LineNr"> 949 </span> <span class="PreProc">var</span> gap/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _gap -<span id="L950" class="LineNr"> 950 </span> <span class="PreProc">var</span> stack/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get gap, right +<span id="L950" class="LineNr"> 950 </span> <span class="PreProc">var</span> stack/<span class="muRegEdi">edi</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get gap, right <span id="L951" class="LineNr"> 951 </span> <span class="PreProc">var</span> top-addr/eax: (addr int) <span class="Special"><-</span> get stack, top <span id="L952" class="LineNr"> 952 </span> <span class="PreProc">var</span> top-index/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L953" class="LineNr"> 953 </span> compare top-index, <span class="Constant">0</span> @@ -1027,9 +1027,9 @@ if ('onhashchange' in window) { <span id="L963" class="LineNr"> 963 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false, <span class="Constant">0</span> <span id="L964" class="LineNr"> 964 </span> <span class="Delimiter">}</span> <span id="L965" class="LineNr"> 965 </span> top-index <span class="Special"><-</span> decrement -<span id="L966" class="LineNr"> 966 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get stack, data -<span id="L967" class="LineNr"> 967 </span> <span class="PreProc">var</span> data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L968" class="LineNr"> 968 </span> <span class="PreProc">var</span> g/eax: (addr grapheme) <span class="Special"><-</span> index data, top-index +<span id="L966" class="LineNr"> 966 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get stack, data +<span id="L967" class="LineNr"> 967 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L968" class="LineNr"> 968 </span> <span class="PreProc">var</span> g/eax: (addr code-point-utf8) <span class="Special"><-</span> index data, top-index <span id="L969" class="LineNr"> 969 </span> compare *g, <span class="Constant">0x29</span>/close-paren <span id="L970" class="LineNr"> 970 </span> <span class="Delimiter">{</span> <span id="L971" class="LineNr"> 971 </span> <span class="PreProc">break-if-=</span> @@ -1039,9 +1039,9 @@ if ('onhashchange' in window) { <span id="L975" class="LineNr"> 975 </span> <span class="Delimiter">}</span> <span id="L976" class="LineNr"> 976 </span> <span class="muComment"># cursor is not at end; return (char at cursor == ')')</span> <span id="L977" class="LineNr"> 977 </span> top-index <span class="Special"><-</span> decrement -<span id="L978" class="LineNr"> 978 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get stack, data -<span id="L979" class="LineNr"> 979 </span> <span class="PreProc">var</span> data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L980" class="LineNr"> 980 </span> <span class="PreProc">var</span> g/eax: (addr grapheme) <span class="Special"><-</span> index data, top-index +<span id="L978" class="LineNr"> 978 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get stack, data +<span id="L979" class="LineNr"> 979 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L980" class="LineNr"> 980 </span> <span class="PreProc">var</span> g/eax: (addr code-point-utf8) <span class="Special"><-</span> index data, top-index <span id="L981" class="LineNr"> 981 </span> compare *g, <span class="Constant">0x29</span>/close-paren <span id="L982" class="LineNr"> 982 </span> <span class="Delimiter">{</span> <span id="L983" class="LineNr"> 983 </span> <span class="PreProc">break-if-=</span> @@ -1062,7 +1062,7 @@ if ('onhashchange' in window) { <span id="L998" class="LineNr"> 998 </span> <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a>, open-paren-depth <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a> gap, <span class="Constant">1</span>/render-cursor <span id="L999" class="LineNr"> 999 </span> <a href='502test.mu.html#L19'>check</a> <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a>, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L989'>test-highlight-matching-open-paren</a>: at end immediately after ')'"</span> <span id="L1000" class="LineNr">1000 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> open-paren-depth, <span class="Constant">1</span>, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L989'>test-highlight-matching-open-paren</a>: depth at end immediately after ')'"</span> -<span id="L1001" class="LineNr">1001 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> gap +<span id="L1001" class="LineNr">1001 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> gap <span id="L1002" class="LineNr">1002 </span> <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a>, open-paren-depth <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a> gap, <span class="Constant">1</span>/render-cursor <span id="L1003" class="LineNr">1003 </span> <a href='502test.mu.html#L19'>check</a> <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a>, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L989'>test-highlight-matching-open-paren</a>: on ')'"</span> <span id="L1004" class="LineNr">1004 </span> dummy <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> gap @@ -1086,8 +1086,8 @@ if ('onhashchange' in window) { <span id="L1022" class="LineNr">1022 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L1022'>gap-buffer-scan-done?</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L1023" class="LineNr">1023 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self <span id="L1024" class="LineNr">1024 </span> <span class="muComment"># more in left?</span> -<span id="L1025" class="LineNr">1025 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left -<span id="L1026" class="LineNr">1026 </span> <span class="PreProc">var</span> left-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>grapheme-stack-length</a> left +<span id="L1025" class="LineNr">1025 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left +<span id="L1026" class="LineNr">1026 </span> <span class="PreProc">var</span> left-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>code-point-utf8-stack-length</a> left <span id="L1027" class="LineNr">1027 </span> <span class="PreProc">var</span> left-read-index/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get self, left-read-index <span id="L1028" class="LineNr">1028 </span> compare *left-read-index, left-size <span id="L1029" class="LineNr">1029 </span> <span class="Delimiter">{</span> @@ -1095,8 +1095,8 @@ if ('onhashchange' in window) { <span id="L1031" class="LineNr">1031 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L1032" class="LineNr">1032 </span> <span class="Delimiter">}</span> <span id="L1033" class="LineNr">1033 </span> <span class="muComment"># more in right?</span> -<span id="L1034" class="LineNr">1034 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right -<span id="L1035" class="LineNr">1035 </span> <span class="PreProc">var</span> right-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>grapheme-stack-length</a> right +<span id="L1034" class="LineNr">1034 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right +<span id="L1035" class="LineNr">1035 </span> <span class="PreProc">var</span> right-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>code-point-utf8-stack-length</a> right <span id="L1036" class="LineNr">1036 </span> <span class="PreProc">var</span> right-read-index/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get self, right-read-index <span id="L1037" class="LineNr">1037 </span> compare *right-read-index, right-size <span id="L1038" class="LineNr">1038 </span> <span class="Delimiter">{</span> @@ -1107,73 +1107,73 @@ if ('onhashchange' in window) { <span id="L1043" class="LineNr">1043 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L1044" class="LineNr">1044 </span><span class="Delimiter">}</span> <span id="L1045" class="LineNr">1045 </span> -<span id="L1046" class="LineNr">1046 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L1046" class="LineNr">1046 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L1047" class="LineNr">1047 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self <span id="L1048" class="LineNr">1048 </span> <span class="muComment"># more in left?</span> -<span id="L1049" class="LineNr">1049 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left -<span id="L1050" class="LineNr">1050 </span> <span class="PreProc">var</span> left-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>grapheme-stack-length</a> left +<span id="L1049" class="LineNr">1049 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left +<span id="L1050" class="LineNr">1050 </span> <span class="PreProc">var</span> left-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>code-point-utf8-stack-length</a> left <span id="L1051" class="LineNr">1051 </span> <span class="PreProc">var</span> left-read-index-a/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> get self, left-read-index <span id="L1052" class="LineNr">1052 </span> compare *left-read-index-a, left-size <span id="L1053" class="LineNr">1053 </span> <span class="Delimiter">{</span> <span id="L1054" class="LineNr">1054 </span> <span class="PreProc">break-if->=</span> -<span id="L1055" class="LineNr">1055 </span> <span class="PreProc">var</span> left-data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get left, data -<span id="L1056" class="LineNr">1056 </span> <span class="PreProc">var</span> left-data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *left-data-ah +<span id="L1055" class="LineNr">1055 </span> <span class="PreProc">var</span> left-data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get left, data +<span id="L1056" class="LineNr">1056 </span> <span class="PreProc">var</span> left-data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *left-data-ah <span id="L1057" class="LineNr">1057 </span> <span class="PreProc">var</span> left-read-index/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy *left-read-index-a -<span id="L1058" class="LineNr">1058 </span> <span class="PreProc">var</span> result/eax: (addr grapheme) <span class="Special"><-</span> index left-data, left-read-index +<span id="L1058" class="LineNr">1058 </span> <span class="PreProc">var</span> result/eax: (addr code-point-utf8) <span class="Special"><-</span> index left-data, left-read-index <span id="L1059" class="LineNr">1059 </span> <span class="PreProc">return</span> *result <span id="L1060" class="LineNr">1060 </span> <span class="Delimiter">}</span> <span id="L1061" class="LineNr">1061 </span> <span class="muComment"># more in right?</span> -<span id="L1062" class="LineNr">1062 </span> <span class="PreProc">var</span> right/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right -<span id="L1063" class="LineNr">1063 </span> <span class="PreProc">var</span> _right-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>grapheme-stack-length</a> right +<span id="L1062" class="LineNr">1062 </span> <span class="PreProc">var</span> right/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right +<span id="L1063" class="LineNr">1063 </span> <span class="PreProc">var</span> _right-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>code-point-utf8-stack-length</a> right <span id="L1064" class="LineNr">1064 </span> <span class="PreProc">var</span> right-size/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy _right-size <span id="L1065" class="LineNr">1065 </span> <span class="PreProc">var</span> right-read-index-a/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> get self, right-read-index <span id="L1066" class="LineNr">1066 </span> compare *right-read-index-a, right-size <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="muComment"># read the right from reverse</span> -<span id="L1070" class="LineNr">1070 </span> <span class="PreProc">var</span> right-data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get right, data -<span id="L1071" class="LineNr">1071 </span> <span class="PreProc">var</span> right-data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *right-data-ah +<span id="L1070" class="LineNr">1070 </span> <span class="PreProc">var</span> right-data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get right, data +<span id="L1071" class="LineNr">1071 </span> <span class="PreProc">var</span> right-data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *right-data-ah <span id="L1072" class="LineNr">1072 </span> <span class="PreProc">var</span> right-read-index/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy right-size <span id="L1073" class="LineNr">1073 </span> right-read-index <span class="Special"><-</span> subtract *right-read-index-a <span id="L1074" class="LineNr">1074 </span> right-read-index <span class="Special"><-</span> subtract <span class="Constant">1</span> -<span id="L1075" class="LineNr">1075 </span> <span class="PreProc">var</span> result/eax: (addr grapheme) <span class="Special"><-</span> index right-data, right-read-index +<span id="L1075" class="LineNr">1075 </span> <span class="PreProc">var</span> result/eax: (addr code-point-utf8) <span class="Special"><-</span> index right-data, right-read-index <span id="L1076" class="LineNr">1076 </span> <span class="PreProc">return</span> *result <span id="L1077" class="LineNr">1077 </span> <span class="Delimiter">}</span> <span id="L1078" class="LineNr">1078 </span> <span class="muComment"># if we get here there's nothing left</span> <span id="L1079" class="LineNr">1079 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/nul <span id="L1080" class="LineNr">1080 </span><span class="Delimiter">}</span> <span id="L1081" class="LineNr">1081 </span> -<span id="L1082" class="LineNr">1082 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L1082" class="LineNr">1082 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L1083" class="LineNr">1083 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self <span id="L1084" class="LineNr">1084 </span> <span class="muComment"># more in left?</span> -<span id="L1085" class="LineNr">1085 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left -<span id="L1086" class="LineNr">1086 </span> <span class="PreProc">var</span> left-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>grapheme-stack-length</a> left +<span id="L1085" class="LineNr">1085 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left +<span id="L1086" class="LineNr">1086 </span> <span class="PreProc">var</span> left-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>code-point-utf8-stack-length</a> left <span id="L1087" class="LineNr">1087 </span> <span class="PreProc">var</span> left-read-index-a/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> get self, left-read-index <span id="L1088" class="LineNr">1088 </span> compare *left-read-index-a, left-size <span id="L1089" class="LineNr">1089 </span> <span class="Delimiter">{</span> <span id="L1090" class="LineNr">1090 </span> <span class="PreProc">break-if->=</span> -<span id="L1091" class="LineNr">1091 </span> <span class="PreProc">var</span> left-data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get left, data -<span id="L1092" class="LineNr">1092 </span> <span class="PreProc">var</span> left-data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *left-data-ah +<span id="L1091" class="LineNr">1091 </span> <span class="PreProc">var</span> left-data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get left, data +<span id="L1092" class="LineNr">1092 </span> <span class="PreProc">var</span> left-data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *left-data-ah <span id="L1093" class="LineNr">1093 </span> <span class="PreProc">var</span> left-read-index/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy *left-read-index-a -<span id="L1094" class="LineNr">1094 </span> <span class="PreProc">var</span> result/eax: (addr grapheme) <span class="Special"><-</span> index left-data, left-read-index +<span id="L1094" class="LineNr">1094 </span> <span class="PreProc">var</span> result/eax: (addr code-point-utf8) <span class="Special"><-</span> index left-data, left-read-index <span id="L1095" class="LineNr">1095 </span> increment *left-read-index-a <span id="L1096" class="LineNr">1096 </span> <span class="PreProc">return</span> *result <span id="L1097" class="LineNr">1097 </span> <span class="Delimiter">}</span> <span id="L1098" class="LineNr">1098 </span> <span class="muComment"># more in right?</span> -<span id="L1099" class="LineNr">1099 </span> <span class="PreProc">var</span> right/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right -<span id="L1100" class="LineNr">1100 </span> <span class="PreProc">var</span> _right-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>grapheme-stack-length</a> right +<span id="L1099" class="LineNr">1099 </span> <span class="PreProc">var</span> right/<span class="muRegEcx">ecx</span>: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right +<span id="L1100" class="LineNr">1100 </span> <span class="PreProc">var</span> _right-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>code-point-utf8-stack-length</a> right <span id="L1101" class="LineNr">1101 </span> <span class="PreProc">var</span> right-size/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy _right-size <span id="L1102" class="LineNr">1102 </span> <span class="PreProc">var</span> right-read-index-a/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> get self, right-read-index <span id="L1103" class="LineNr">1103 </span> compare *right-read-index-a, right-size <span id="L1104" class="LineNr">1104 </span> <span class="Delimiter">{</span> <span id="L1105" class="LineNr">1105 </span> <span class="PreProc">break-if->=</span> <span id="L1106" class="LineNr">1106 </span> <span class="muComment"># read the right from reverse</span> -<span id="L1107" class="LineNr">1107 </span> <span class="PreProc">var</span> right-data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> get right, data -<span id="L1108" class="LineNr">1108 </span> <span class="PreProc">var</span> right-data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *right-data-ah +<span id="L1107" class="LineNr">1107 </span> <span class="PreProc">var</span> right-data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> get right, data +<span id="L1108" class="LineNr">1108 </span> <span class="PreProc">var</span> right-data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='120allocate.subx.html#L235'>lookup</a> *right-data-ah <span id="L1109" class="LineNr">1109 </span> <span class="PreProc">var</span> right-read-index/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy right-size <span id="L1110" class="LineNr">1110 </span> right-read-index <span class="Special"><-</span> subtract *right-read-index-a <span id="L1111" class="LineNr">1111 </span> right-read-index <span class="Special"><-</span> subtract <span class="Constant">1</span> -<span id="L1112" class="LineNr">1112 </span> <span class="PreProc">var</span> result/eax: (addr grapheme) <span class="Special"><-</span> index right-data, right-read-index +<span id="L1112" class="LineNr">1112 </span> <span class="PreProc">var</span> result/eax: (addr code-point-utf8) <span class="Special"><-</span> index right-data, right-read-index <span id="L1113" class="LineNr">1113 </span> increment *right-read-index-a <span id="L1114" class="LineNr">1114 </span> <span class="PreProc">return</span> *result <span id="L1115" class="LineNr">1115 </span> <span class="Delimiter">}</span> @@ -1184,8 +1184,8 @@ if ('onhashchange' in window) { <span id="L1120" class="LineNr">1120 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L1120'>put-back-from-gap-buffer</a></span> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L1121" class="LineNr">1121 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self <span id="L1122" class="LineNr">1122 </span> <span class="muComment"># more in right?</span> -<span id="L1123" class="LineNr">1123 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right -<span id="L1124" class="LineNr">1124 </span> <span class="PreProc">var</span> right-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>grapheme-stack-length</a> right +<span id="L1123" class="LineNr">1123 </span> <span class="PreProc">var</span> right/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, right +<span id="L1124" class="LineNr">1124 </span> <span class="PreProc">var</span> right-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>code-point-utf8-stack-length</a> right <span id="L1125" class="LineNr">1125 </span> <span class="PreProc">var</span> right-read-index-a/eax: (addr int) <span class="Special"><-</span> get self, right-read-index <span id="L1126" class="LineNr">1126 </span> compare *right-read-index-a, <span class="Constant">0</span> <span id="L1127" class="LineNr">1127 </span> <span class="Delimiter">{</span> @@ -1194,8 +1194,8 @@ if ('onhashchange' in window) { <span id="L1130" class="LineNr">1130 </span> <span class="PreProc">return</span> <span id="L1131" class="LineNr">1131 </span> <span class="Delimiter">}</span> <span id="L1132" class="LineNr">1132 </span> <span class="muComment"># more in left?</span> -<span id="L1133" class="LineNr">1133 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left -<span id="L1134" class="LineNr">1134 </span> <span class="PreProc">var</span> left-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>grapheme-stack-length</a> left +<span id="L1133" class="LineNr">1133 </span> <span class="PreProc">var</span> left/eax: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) <span class="Special"><-</span> get self, left +<span id="L1134" class="LineNr">1134 </span> <span class="PreProc">var</span> left-size/eax: int <span class="Special"><-</span> <a href='513grapheme-stack.mu.html#L33'>code-point-utf8-stack-length</a> left <span id="L1135" class="LineNr">1135 </span> <span class="PreProc">var</span> left-read-index-a/eax: (addr int) <span class="Special"><-</span> get self, left-read-index <span id="L1136" class="LineNr">1136 </span> decrement *left-read-index-a <span id="L1137" class="LineNr">1137 </span><span class="Delimiter">}</span> @@ -1207,22 +1207,22 @@ if ('onhashchange' in window) { <span id="L1143" class="LineNr">1143 </span> <span class="muComment"># gap is at end, all contents are in left</span> <span id="L1144" class="LineNr">1144 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1022'>gap-buffer-scan-done?</a> gap <span id="L1145" class="LineNr">1145 </span> <a href='502test.mu.html#L32'>check-not</a> done?, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/left-1/done"</span> -<span id="L1146" class="LineNr">1146 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap +<span id="L1146" class="LineNr">1146 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap <span id="L1147" class="LineNr">1147 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy g <span id="L1148" class="LineNr">1148 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x61</span>/a, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/left-1"</span> <span id="L1149" class="LineNr">1149 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1022'>gap-buffer-scan-done?</a> gap <span id="L1150" class="LineNr">1150 </span> <a href='502test.mu.html#L32'>check-not</a> done?, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/left-2/done"</span> -<span id="L1151" class="LineNr">1151 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap +<span id="L1151" class="LineNr">1151 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap <span id="L1152" class="LineNr">1152 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy g <span id="L1153" class="LineNr">1153 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x62</span>/b, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/left-2"</span> <span id="L1154" class="LineNr">1154 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1022'>gap-buffer-scan-done?</a> gap <span id="L1155" class="LineNr">1155 </span> <a href='502test.mu.html#L32'>check-not</a> done?, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/left-3/done"</span> -<span id="L1156" class="LineNr">1156 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap +<span id="L1156" class="LineNr">1156 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap <span id="L1157" class="LineNr">1157 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy g <span id="L1158" class="LineNr">1158 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x63</span>/c, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/left-3"</span> <span id="L1159" class="LineNr">1159 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1022'>gap-buffer-scan-done?</a> gap <span id="L1160" class="LineNr">1160 </span> <a href='502test.mu.html#L19'>check</a> done?, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/left-4/done"</span> -<span id="L1161" class="LineNr">1161 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap +<span id="L1161" class="LineNr">1161 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap <span id="L1162" class="LineNr">1162 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy g <span id="L1163" class="LineNr">1163 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0</span>/nul, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/left-4"</span> <span id="L1164" class="LineNr">1164 </span> <span class="muComment"># now check when everything is to the right</span> @@ -1230,22 +1230,22 @@ if ('onhashchange' in window) { <span id="L1166" class="LineNr">1166 </span> <a href='514gap-buffer.mu.html#L1014'>rewind-gap-buffer</a> gap <span id="L1167" class="LineNr">1167 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1022'>gap-buffer-scan-done?</a> gap <span id="L1168" class="LineNr">1168 </span> <a href='502test.mu.html#L32'>check-not</a> done?, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/right-1/done"</span> -<span id="L1169" class="LineNr">1169 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap +<span id="L1169" class="LineNr">1169 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap <span id="L1170" class="LineNr">1170 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy g <span id="L1171" class="LineNr">1171 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x61</span>/a, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/right-1"</span> <span id="L1172" class="LineNr">1172 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1022'>gap-buffer-scan-done?</a> gap <span id="L1173" class="LineNr">1173 </span> <a href='502test.mu.html#L32'>check-not</a> done?, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/right-2/done"</span> -<span id="L1174" class="LineNr">1174 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap +<span id="L1174" class="LineNr">1174 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap <span id="L1175" class="LineNr">1175 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy g <span id="L1176" class="LineNr">1176 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x62</span>/b, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/right-2"</span> <span id="L1177" class="LineNr">1177 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1022'>gap-buffer-scan-done?</a> gap <span id="L1178" class="LineNr">1178 </span> <a href='502test.mu.html#L32'>check-not</a> done?, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/right-3/done"</span> -<span id="L1179" class="LineNr">1179 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap +<span id="L1179" class="LineNr">1179 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap <span id="L1180" class="LineNr">1180 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy g <span id="L1181" class="LineNr">1181 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x63</span>/c, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/right-3"</span> <span id="L1182" class="LineNr">1182 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1022'>gap-buffer-scan-done?</a> gap <span id="L1183" class="LineNr">1183 </span> <a href='502test.mu.html#L19'>check</a> done?, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/right-4/done"</span> -<span id="L1184" class="LineNr">1184 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap +<span id="L1184" class="LineNr">1184 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> gap <span id="L1185" class="LineNr">1185 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy g <span id="L1186" class="LineNr">1186 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0</span>/nul, <span class="Constant">"F - <a href='514gap-buffer.mu.html#L1139'>test-read-from-gap-buffer</a>/right-4"</span> <span id="L1187" class="LineNr">1187 </span><span class="Delimiter">}</span> @@ -1254,7 +1254,7 @@ if ('onhashchange' in window) { <span id="L1190" class="LineNr">1190 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1022'>gap-buffer-scan-done?</a> self <span id="L1191" class="LineNr">1191 </span> compare done?, <span class="Constant">0</span>/false <span id="L1192" class="LineNr">1192 </span> <span class="PreProc">break-if-!=</span> -<span id="L1193" class="LineNr">1193 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> self +<span id="L1193" class="LineNr">1193 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> self <span id="L1194" class="LineNr">1194 </span> <span class="Delimiter">{</span> <span id="L1195" class="LineNr">1195 </span> compare g, <span class="Constant">0x20</span>/space <span id="L1196" class="LineNr">1196 </span> <span class="PreProc">break-if-=</span> @@ -1264,8 +1264,8 @@ if ('onhashchange' in window) { <span id="L1200" class="LineNr">1200 </span> <span class="PreProc">loop</span> <span id="L1201" class="LineNr">1201 </span><span class="Delimiter">}</span> <span id="L1202" class="LineNr">1202 </span> -<span id="L1203" class="LineNr">1203 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L1203'>edit-gap-buffer</a></span> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), key: grapheme <span class="Delimiter">{</span> -<span id="L1204" class="LineNr">1204 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: grapheme <span class="Special"><-</span> copy key +<span id="L1203" class="LineNr">1203 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L1203'>edit-gap-buffer</a></span> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), key: code-point-utf8 <span class="Delimiter">{</span> +<span id="L1204" class="LineNr">1204 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: code-point-utf8 <span class="Special"><-</span> copy key <span id="L1205" class="LineNr">1205 </span> <span class="Delimiter">{</span> <span id="L1206" class="LineNr">1206 </span> compare g, <span class="Constant">8</span>/backspace <span id="L1207" class="LineNr">1207 </span> <span class="PreProc">break-if-!=</span> @@ -1275,13 +1275,13 @@ if ('onhashchange' in window) { <span id="L1211" class="LineNr">1211 </span> <span class="Delimiter">{</span> <span id="L1212" class="LineNr">1212 </span> compare g, <span class="Constant">0x80</span>/left-arrow <span id="L1213" class="LineNr">1213 </span> <span class="PreProc">break-if-!=</span> -<span id="L1214" class="LineNr">1214 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> self +<span id="L1214" class="LineNr">1214 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> self <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> <span class="Delimiter">{</span> <span id="L1218" class="LineNr">1218 </span> compare g, <span class="Constant">0x83</span>/right-arrow <span id="L1219" class="LineNr">1219 </span> <span class="PreProc">break-if-!=</span> -<span id="L1220" class="LineNr">1220 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> self +<span id="L1220" class="LineNr">1220 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> self <span id="L1221" class="LineNr">1221 </span> <span class="PreProc">return</span> <span id="L1222" class="LineNr">1222 </span> <span class="Delimiter">}</span> <span id="L1223" class="LineNr">1223 </span> <span class="Delimiter">{</span> @@ -1335,11 +1335,11 @@ if ('onhashchange' in window) { <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> <span class="muComment"># default: insert character</span> -<span id="L1274" class="LineNr">1274 </span> <a href='514gap-buffer.mu.html#L440'>add-grapheme-at-gap</a> self, g +<span id="L1274" class="LineNr">1274 </span> <a href='514gap-buffer.mu.html#L440'>add-code-point-utf8-at-gap</a> self, g <span id="L1275" class="LineNr">1275 </span><span class="Delimiter">}</span> <span id="L1276" class="LineNr">1276 </span> <span id="L1277" class="LineNr">1277 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L1277'>gap-to-start-of-next-word</a></span> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> -<span id="L1278" class="LineNr">1278 </span> <span class="PreProc">var</span> curr/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1278" class="LineNr">1278 </span> <span class="PreProc">var</span> curr/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L1279" class="LineNr">1279 </span> <span class="muComment"># skip to next space</span> <span id="L1280" class="LineNr">1280 </span> <span class="Delimiter">{</span> <span id="L1281" class="LineNr">1281 </span> curr <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> self @@ -1366,7 +1366,7 @@ if ('onhashchange' in window) { <span id="L1302" class="LineNr">1302 </span><span class="Delimiter">}</span> <span id="L1303" class="LineNr">1303 </span> <span id="L1304" class="LineNr">1304 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L1304'>gap-to-end-of-previous-word</a></span> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> -<span id="L1305" class="LineNr">1305 </span> <span class="PreProc">var</span> curr/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1305" class="LineNr">1305 </span> <span class="PreProc">var</span> curr/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L1306" class="LineNr">1306 </span> <span class="muComment"># skip to previous space</span> <span id="L1307" class="LineNr">1307 </span> <span class="Delimiter">{</span> <span id="L1308" class="LineNr">1308 </span> curr <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> self @@ -1394,7 +1394,7 @@ if ('onhashchange' in window) { <span id="L1330" class="LineNr">1330 </span> <span id="L1331" class="LineNr">1331 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L1331'>gap-to-previous-start-of-line</a></span> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L1332" class="LineNr">1332 </span> <span class="muComment"># skip past immediate newline</span> -<span id="L1333" class="LineNr">1333 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> self +<span id="L1333" class="LineNr">1333 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> self <span id="L1334" class="LineNr">1334 </span> <span class="muComment"># skip to previous newline</span> <span id="L1335" class="LineNr">1335 </span> <span class="Delimiter">{</span> <span id="L1336" class="LineNr">1336 </span> dummy <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> self @@ -1415,7 +1415,7 @@ if ('onhashchange' in window) { <span id="L1351" class="LineNr">1351 </span> <span id="L1352" class="LineNr">1352 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L1352'>gap-to-next-end-of-line</a></span> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L1353" class="LineNr">1353 </span> <span class="muComment"># skip past immediate newline</span> -<span id="L1354" class="LineNr">1354 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> self +<span id="L1354" class="LineNr">1354 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> self <span id="L1355" class="LineNr">1355 </span> <span class="muComment"># skip to next newline</span> <span id="L1356" class="LineNr">1356 </span> <span class="Delimiter">{</span> <span id="L1357" class="LineNr">1357 </span> dummy <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> self @@ -1444,7 +1444,7 @@ if ('onhashchange' in window) { <span id="L1380" class="LineNr">1380 </span> <span class="Delimiter">{</span> <span id="L1381" class="LineNr">1381 </span> compare i, col <span id="L1382" class="LineNr">1382 </span> <span class="PreProc">break-if->=</span> -<span id="L1383" class="LineNr">1383 </span> <span class="PreProc">var</span> curr/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> self +<span id="L1383" class="LineNr">1383 </span> <span class="PreProc">var</span> curr/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> self <span id="L1384" class="LineNr">1384 </span> <span class="Delimiter">{</span> <span id="L1385" class="LineNr">1385 </span> compare curr, <span class="Constant">-1</span> <span id="L1386" class="LineNr">1386 </span> <span class="PreProc">break-if-!=</span> @@ -1466,13 +1466,13 @@ if ('onhashchange' in window) { <span id="L1402" class="LineNr">1402 </span> <span class="PreProc">var</span> col/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L1428'>count-columns-to-start-of-line</a> self <span id="L1403" class="LineNr">1403 </span> <span class="muComment"># skip to start of next line</span> <span id="L1404" class="LineNr">1404 </span> <a href='514gap-buffer.mu.html#L1451'>gap-to-end-of-line</a> self -<span id="L1405" class="LineNr">1405 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> self +<span id="L1405" class="LineNr">1405 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> self <span id="L1406" class="LineNr">1406 </span> <span class="muComment"># skip ahead by up to col on previous line</span> <span id="L1407" class="LineNr">1407 </span> <span class="PreProc">var</span> i/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L1408" class="LineNr">1408 </span> <span class="Delimiter">{</span> <span id="L1409" class="LineNr">1409 </span> compare i, col <span id="L1410" class="LineNr">1410 </span> <span class="PreProc">break-if->=</span> -<span id="L1411" class="LineNr">1411 </span> <span class="PreProc">var</span> curr/eax: grapheme <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> self +<span id="L1411" class="LineNr">1411 </span> <span class="PreProc">var</span> curr/eax: code-point-utf8 <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> self <span id="L1412" class="LineNr">1412 </span> <span class="Delimiter">{</span> <span id="L1413" class="LineNr">1413 </span> compare curr, <span class="Constant">-1</span> <span id="L1414" class="LineNr">1414 </span> <span class="PreProc">break-if-!=</span> @@ -1491,7 +1491,7 @@ if ('onhashchange' in window) { <span id="L1427" class="LineNr">1427 </span> <span id="L1428" class="LineNr">1428 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L1428'>count-columns-to-start-of-line</a></span> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="muRegEdx">edx</span>: int <span class="Delimiter">{</span> <span id="L1429" class="LineNr">1429 </span> <span class="PreProc">var</span> count/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L1430" class="LineNr">1430 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1430" class="LineNr">1430 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L1431" class="LineNr">1431 </span> <span class="muComment"># skip to previous newline</span> <span id="L1432" class="LineNr">1432 </span> <span class="Delimiter">{</span> <span id="L1433" class="LineNr">1433 </span> dummy <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> self @@ -1513,7 +1513,7 @@ if ('onhashchange' in window) { <span id="L1449" class="LineNr">1449 </span><span class="Delimiter">}</span> <span id="L1450" class="LineNr">1450 </span> <span id="L1451" class="LineNr">1451 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='514gap-buffer.mu.html#L1451'>gap-to-end-of-line</a></span> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> -<span id="L1452" class="LineNr">1452 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1452" class="LineNr">1452 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L1453" class="LineNr">1453 </span> <span class="muComment"># skip to next newline</span> <span id="L1454" class="LineNr">1454 </span> <span class="Delimiter">{</span> <span id="L1455" class="LineNr">1455 </span> dummy <span class="Special"><-</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> self diff --git a/html/515parse-float.mu.html b/html/515parse-float.mu.html new file mode 100644 index 00000000..f28770da --- /dev/null +++ b/html/515parse-float.mu.html @@ -0,0 +1,236 @@ +<!DOCTYPE html> +<html> +<head> +<meta charset="UTF-8"> +<title>Mu - 515parse-float.mu</title> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> +<meta name="colorscheme" content="minimal-light"> +<style> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.muRegEdx { color: #af5f00; } +.Special { color: #ff6060; } +.LineNr { } +.muRegEsi { color: #005faf; } +.Delimiter { color: #c000c0; } +.muRegEcx { color: #870000; } +.Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } +.muComment { color: #005faf; } +--> +</style> + +<script> +<!-- + +/* 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/515parse-float.mu'>https://github.com/akkartik/mu/blob/main/515parse-float.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># no support for scientific notation yet</span> +<span id="L2" class="LineNr"> 2 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='515parse-float.mu.html#L2'>parse-float-decimal</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">xmm1</span>: float <span class="Delimiter">{</span> +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> zero: float +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy zero +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> first-iter?/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span>/true +<span id="L6" class="LineNr"> 6 </span> <a href='106stream.subx.html#L59'>rewind-stream</a> in +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> negative?/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L8" class="LineNr"> 8 </span> <span class="muComment"># first loop: integer part</span> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> ten/eax: int <span class="Special"><-</span> copy <span class="Constant">0xa</span> +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> ten-f/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert ten +<span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">{</span> +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> in +<span id="L13" class="LineNr"> 13 </span> compare done?, <span class="Constant">0</span>/false +<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">break-if-!=</span> +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> key/eax: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in +<span id="L16" class="LineNr"> 16 </span> compare key, <span class="Constant">0x2e</span>/decimal-point +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">break-if-=</span> +<span id="L18" class="LineNr"> 18 </span> $parse-float-decimal:body: <span class="Delimiter">{</span> +<span id="L19" class="LineNr"> 19 </span> compare key, <span class="Constant">0x2d</span>/- +<span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">{</span> +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">break-if-!=</span> +<span id="L22" class="LineNr"> 22 </span> compare first-iter?, <span class="Constant">0</span>/false +<span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">{</span> +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">break-if-!=</span> +<span id="L25" class="LineNr"> 25 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"parse-float-decimal: '-' only allowed in first position"</span> +<span id="L26" class="LineNr"> 26 </span> <span class="Delimiter">}</span> +<span id="L27" class="LineNr"> 27 </span> negative? <span class="Special"><-</span> copy <span class="Constant">1</span>/true +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">break</span> $parse-float-decimal:body +<span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">}</span> +<span id="L30" class="LineNr"> 30 </span> compare key, <span class="Constant">0x30</span>/<span class="Constant">0</span> +<span id="L31" class="LineNr"> 31 </span> <span class="Delimiter">{</span> +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">break-if->=</span> +<span id="L33" class="LineNr"> 33 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"parse-float-decimal: invalid character < '0'"</span> +<span id="L34" class="LineNr"> 34 </span> <span class="Delimiter">}</span> +<span id="L35" class="LineNr"> 35 </span> compare key, <span class="Constant">0x39</span>/<span class="Constant">9</span> +<span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">{</span> +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">break-if-<=</span> +<span id="L38" class="LineNr"> 38 </span> <a href='317abort.subx.html#L5'>abort</a> <span class="Constant">"parse-float-decimal: invalid character > '9'"</span> +<span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">}</span> +<span id="L40" class="LineNr"> 40 </span> <span class="muComment"># key is now a digit</span> +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> digit-value/eax: int <span class="Special"><-</span> copy key +<span id="L42" class="LineNr"> 42 </span> digit-value <span class="Special"><-</span> subtract <span class="Constant">0x30</span> +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> digit-value-f/<span class="Constant">xmm3</span>: float <span class="Special"><-</span> convert digit-value +<span id="L44" class="LineNr"> 44 </span> result <span class="Special"><-</span> multiply ten-f +<span id="L45" class="LineNr"> 45 </span> result <span class="Special"><-</span> add digit-value-f +<span id="L46" class="LineNr"> 46 </span> <span class="Delimiter">}</span> +<span id="L47" class="LineNr"> 47 </span> first-iter? <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">loop</span> +<span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">}</span> +<span id="L50" class="LineNr"> 50 </span> <span class="muComment"># second loop: fraction</span> +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> current-position/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">0xa</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Delimiter">{</span> +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> in +<span id="L54" class="LineNr"> 54 </span> compare done?, <span class="Constant">0</span>/false +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">break-if-!=</span> +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> key/eax: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in +<span id="L57" class="LineNr"> 57 </span> compare key, <span class="Constant">0x30</span>/<span class="Constant">0</span> +<span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">{</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">"parse-float-decimal: invalid fraction character < '0'"</span> +<span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">}</span> +<span id="L62" class="LineNr"> 62 </span> compare key, <span class="Constant">0x39</span>/<span class="Constant">9</span> +<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='317abort.subx.html#L5'>abort</a> <span class="Constant">"parse-float-decimal: invalid fraction character > '9'"</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">}</span> +<span id="L67" class="LineNr"> 67 </span> <span class="muComment"># key is now a digit</span> +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> digit-value/eax: int <span class="Special"><-</span> copy key +<span id="L69" class="LineNr"> 69 </span> digit-value <span class="Special"><-</span> subtract <span class="Constant">0x30</span> +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> digit-value-f/<span class="Constant">xmm3</span>: float <span class="Special"><-</span> convert digit-value +<span id="L71" class="LineNr"> 71 </span> digit-value-f <span class="Special"><-</span> multiply current-position +<span id="L72" class="LineNr"> 72 </span> result <span class="Special"><-</span> add digit-value-f +<span id="L73" class="LineNr"> 73 </span> current-position <span class="Special"><-</span> divide ten-f +<span id="L74" class="LineNr"> 74 </span> <span class="muComment">#</span> +<span id="L75" class="LineNr"> 75 </span> first-iter? <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">loop</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Delimiter">}</span> +<span id="L78" class="LineNr"> 78 </span> <span class="muComment"># finally, the sign</span> +<span id="L79" class="LineNr"> 79 </span> compare negative?, <span class="Constant">0</span>/false +<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="PreProc">var</span> minus-one/eax: int <span class="Special"><-</span> copy <span class="Constant">-1</span> +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> minus-one-f/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert minus-one +<span id="L84" class="LineNr"> 84 </span> result <span class="Special"><-</span> multiply minus-one-f +<span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">}</span> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">return</span> result +<span id="L87" class="LineNr"> 87 </span><span class="Delimiter">}</span> +<span id="L88" class="LineNr"> 88 </span> +<span id="L89" class="LineNr"> 89 </span><span class="PreProc">fn</span> <span class="muTest"><a href='515parse-float.mu.html#L89'>test-parse-float-decimal-zero</a></span> <span class="Delimiter">{</span> +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> s/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L92" class="LineNr"> 92 </span> <a href='108write.subx.html#L11'>write</a> s, <span class="Constant">"00"</span> +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> x/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> <a href='515parse-float.mu.html#L2'>parse-float-decimal</a> s +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> expected/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> expected-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert expected +<span id="L96" class="LineNr"> 96 </span> compare x, expected-f +<span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">{</span> +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">break-if-=</span> +<span id="L99" class="LineNr"> 99 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"F - test-parse-float-decimal-zero"</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='104test.subx.html#L5'>count-test-failure</a> +<span id="L102" class="LineNr">102 </span> <span class="Delimiter">}</span> +<span id="L103" class="LineNr">103 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="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="muTest"><a href='515parse-float.mu.html#L106'>test-parse-float-decimal-integer</a></span> <span class="Delimiter">{</span> +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> s/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L109" class="LineNr">109 </span> <a href='108write.subx.html#L11'>write</a> s, <span class="Constant">"34"</span> +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> x/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> <a href='515parse-float.mu.html#L2'>parse-float-decimal</a> s +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> expected/eax: int <span class="Special"><-</span> copy <span class="Constant">0x22</span>/<span class="Constant">34</span> +<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> expected-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert expected +<span id="L113" class="LineNr">113 </span> compare x, expected-f +<span id="L114" class="LineNr">114 </span> <span class="Delimiter">{</span> +<span id="L115" class="LineNr">115 </span> <span class="PreProc">break-if-=</span> +<span id="L116" class="LineNr">116 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"F - test-parse-float-decimal-integer"</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L117" class="LineNr">117 </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="L118" class="LineNr">118 </span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L119" class="LineNr">119 </span> <span class="Delimiter">}</span> +<span id="L120" class="LineNr">120 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L121" class="LineNr">121 </span><span class="Delimiter">}</span> +<span id="L122" class="LineNr">122 </span> +<span id="L123" class="LineNr">123 </span><span class="PreProc">fn</span> <span class="muTest"><a href='515parse-float.mu.html#L123'>test-parse-float-decimal-negative-integer</a></span> <span class="Delimiter">{</span> +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> s/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L126" class="LineNr">126 </span> <a href='108write.subx.html#L11'>write</a> s, <span class="Constant">"-34"</span> +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> x/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> <a href='515parse-float.mu.html#L2'>parse-float-decimal</a> s +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> expected/eax: int <span class="Special"><-</span> copy <span class="Constant">-0x22</span>/<span class="Constant">-34</span> +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> expected-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert expected +<span id="L130" class="LineNr">130 </span> compare x, expected-f +<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='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"F - test-parse-float-decimal-negative-integer"</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L134" class="LineNr">134 </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="L135" class="LineNr">135 </span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L136" class="LineNr">136 </span> <span class="Delimiter">}</span> +<span id="L137" class="LineNr">137 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="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="muTest"><a href='515parse-float.mu.html#L140'>test-parse-float-decimal-fraction</a></span> <span class="Delimiter">{</span> +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> s/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L143" class="LineNr">143 </span> <a href='108write.subx.html#L11'>write</a> s, <span class="Constant">"3.4"</span> +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> x/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> <a href='515parse-float.mu.html#L2'>parse-float-decimal</a> s +<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> expected-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">0x22</span>/<span class="Constant">34</span>, <span class="Constant">0xa</span>/<span class="Constant">10</span> +<span id="L146" class="LineNr">146 </span> compare x, expected-f +<span id="L147" class="LineNr">147 </span> <span class="Delimiter">{</span> +<span id="L148" class="LineNr">148 </span> <span class="PreProc">break-if-=</span> +<span id="L149" class="LineNr">149 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"F - test-parse-float-decimal-fraction"</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L150" class="LineNr">150 </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="L151" class="LineNr">151 </span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L152" class="LineNr">152 </span> <span class="Delimiter">}</span> +<span id="L153" class="LineNr">153 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L154" class="LineNr">154 </span><span class="Delimiter">}</span> +<span id="L155" class="LineNr">155 </span> +<span id="L156" class="LineNr">156 </span><span class="PreProc">fn</span> <span class="muTest"><a href='515parse-float.mu.html#L156'>test-parse-float-decimal-negative-fraction</a></span> <span class="Delimiter">{</span> +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> s/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L159" class="LineNr">159 </span> <a href='108write.subx.html#L11'>write</a> s, <span class="Constant">"-3.4"</span> +<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> x/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> <a href='515parse-float.mu.html#L2'>parse-float-decimal</a> s +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> expected-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">-0x22</span>/<span class="Constant">-34</span>, <span class="Constant">0xa</span>/<span class="Constant">10</span> +<span id="L162" class="LineNr">162 </span> compare x, expected-f +<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='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"F - test-parse-float-decimal-negative-fraction"</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L166" class="LineNr">166 </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="L167" class="LineNr">167 </span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L168" class="LineNr">168 </span> <span class="Delimiter">}</span> +<span id="L169" class="LineNr">169 </span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L170" class="LineNr">170 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/516read-line.mu.html b/html/516read-line.mu.html new file mode 100644 index 00000000..c1308185 --- /dev/null +++ b/html/516read-line.mu.html @@ -0,0 +1,93 @@ +<!DOCTYPE html> +<html> +<head> +<meta charset="UTF-8"> +<title>Mu - 516read-line.mu</title> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> +<meta name="colorscheme" content="minimal-light"> +<style> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } +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> +<!-- + +/* 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/516read-line.mu'>https://github.com/akkartik/mu/blob/main/516read-line.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># read line from keyboard into stream while also echoing to screen</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># abort on stream overflow</span> +<span id="L3" class="LineNr"> 3 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='516read-line.mu.html#L3'>read-line-from-keyboard</a></span> keyboard: (addr keyboard), out: (addr stream byte), <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), fg: int, bg: int <span class="Delimiter">{</span> +<span id="L4" class="LineNr"> 4 </span> <a href='106stream.subx.html#L20'>clear-stream</a> out +<span id="L5" class="LineNr"> 5 </span> $read-line-from-keyboard:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L6" class="LineNr"> 6 </span> <a href='500fake-screen.mu.html#L316'>draw-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x20</span>/space +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> key/eax: byte <span class="Special"><-</span> <a href='102keyboard.subx.html#L21'>read-key</a> keyboard +<span id="L8" class="LineNr"> 8 </span> compare key, <span class="Constant">0xa</span>/newline +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">break-if-=</span> +<span id="L10" class="LineNr">10 </span> compare key, <span class="Constant">0</span> +<span id="L11" class="LineNr">11 </span> <span class="PreProc">loop-if-=</span> +<span id="L12" class="LineNr">12 </span> compare key, <span class="Constant">8</span>/backspace +<span id="L13" class="LineNr">13 </span> <span class="Delimiter">{</span> +<span id="L14" class="LineNr">14 </span> <span class="PreProc">break-if-!=</span> +<span id="L15" class="LineNr">15 </span> <a href='115write-byte.subx.html#L79'>undo-append-byte</a> out +<span id="L16" class="LineNr">16 </span> <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x20</span>/space, fg <span class="Constant">0</span>/bg <span class="muComment"># clear cursor</span> +<span id="L17" class="LineNr">17 </span> <a href='501draw-text.mu.html#L3'>move-cursor-left</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L18" class="LineNr">18 </span> <a href='501draw-text.mu.html#L3'>move-cursor-left</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L19" class="LineNr">19 </span> <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x20</span>/space, fg <span class="Constant">0</span>/bg <span class="muComment"># clear old cursor</span> +<span id="L20" class="LineNr">20 </span> <a href='501draw-text.mu.html#L3'>move-cursor-left</a> <a href='500fake-screen.mu.html#L16'>screen</a> +<span id="L21" class="LineNr">21 </span> <span class="PreProc">loop</span> $read-line-from-keyboard:<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="PreProc">var</span> key2/eax: int <span class="Special"><-</span> copy key +<span id="L24" class="LineNr">24 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, key2 +<span id="L25" class="LineNr">25 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> copy key2 +<span id="L26" class="LineNr">26 </span> <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, fg bg +<span id="L27" class="LineNr">27 </span> <span class="PreProc">loop</span> +<span id="L28" class="LineNr">28 </span> <span class="Delimiter">}</span> +<span id="L29" class="LineNr">29 </span> <span class="muComment"># clear cursor</span> +<span id="L30" class="LineNr">30 </span> <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x20</span>/space, fg bg +<span id="L31" class="LineNr">31 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/colors.mu.html b/html/apps/colors.mu.html index d7de09d0..ff14fb51 100644 --- a/html/apps/colors.mu.html +++ b/html/apps/colors.mu.html @@ -78,7 +78,7 @@ if ('onhashchange' in window) { <span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> in/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address in-storage <span id="L16" class="LineNr"> 16 </span> <span class="Delimiter">{</span> <span id="L17" class="LineNr"> 17 </span> <span class="muComment"># print prompt</span> -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"Enter 3 hex bytes for r, g, b (lowercase; no 0x prefix) separated by a single space> "</span>, <span class="Constant">0x10</span>/x, <span class="Constant">0x80</span>/xmax, <span class="Constant">0x28</span>/y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"Enter 3 hex bytes for r, g, b (lowercase; no 0x prefix) separated by a single space> "</span>, <span class="Constant">0x10</span>/x, <span class="Constant">0x80</span>/xmax, <span class="Constant">0x28</span>/y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg <span id="L19" class="LineNr"> 19 </span> <span class="muComment"># read line from keyboard</span> <span id="L20" class="LineNr"> 20 </span> <a href='../106stream.subx.html#L20'>clear-stream</a> in <span id="L21" class="LineNr"> 21 </span> <span class="Delimiter">{</span> @@ -91,7 +91,7 @@ if ('onhashchange' in window) { <span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> key2/eax: int <span class="Special"><-</span> copy key <span id="L29" class="LineNr"> 29 </span> <a href='../115write-byte.subx.html#L12'>append-byte</a> in, key2 <span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> copy key2 <span class="muComment"># TODO: unicode input</span> -<span id="L31" class="LineNr"> 31 </span> <a href='../501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, c, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L31" class="LineNr"> 31 </span> <a href='../501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, c, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg <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='../500fake-screen.mu.html#L330'>clear-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a> @@ -113,10 +113,10 @@ if ('onhashchange' in window) { <span id="L50" class="LineNr"> 50 </span> <span class="muComment"># another metric</span> <span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> color/eax: int <span class="Special"><-</span> <a href='../505colors.mu.html#L260'>nearest-color-euclidean-hsl</a> a, b, c <span id="L52" class="LineNr"> 52 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x10</span>/x, <span class="Constant">0x26</span>/y -<span id="L53" class="LineNr"> 53 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"nearest (euclidean, h/s/l): "</span>, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg -<span id="L54" class="LineNr"> 54 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, color, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg -<span id="L55" class="LineNr"> 55 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" "</span>, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg -<span id="L56" class="LineNr"> 56 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" "</span>, <span class="Constant">0</span>/fg, color +<span id="L53" class="LineNr"> 53 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"nearest (euclidean, h/s/l): "</span>, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L54" class="LineNr"> 54 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, color, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L55" class="LineNr"> 55 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" "</span>, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L56" class="LineNr"> 56 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" "</span>, <span class="Constant">0</span>/fg, color <span id="L57" class="LineNr"> 57 </span> <span class="muComment">#</span> <span id="L58" class="LineNr"> 58 </span> <span class="PreProc">loop</span> <span id="L59" class="LineNr"> 59 </span> <span class="Delimiter">}</span> @@ -286,10 +286,10 @@ if ('onhashchange' in window) { <span id="L223" class="LineNr">223 </span> compare c, l <span id="L224" class="LineNr">224 </span> <span class="PreProc">break-if-!=</span> <span id="L225" class="LineNr">225 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x10</span>/x, y -<span id="L226" class="LineNr">226 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, color, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L226" class="LineNr">226 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, color, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg <span id="L227" class="LineNr">227 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x14</span>/x, y -<span id="L228" class="LineNr">228 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" "</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg -<span id="L229" class="LineNr">229 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" "</span>, <span class="Constant">0</span>/fg, color +<span id="L228" class="LineNr">228 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" "</span>, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L229" class="LineNr">229 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" "</span>, <span class="Constant">0</span>/fg, color <span id="L230" class="LineNr">230 </span><span class="CommentedCode">#? draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, " ", 7/fg, 0/bg</span> <span id="L231" class="LineNr">231 </span><span class="CommentedCode">#? draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen screen, a, 7/fg, 0/bg</span> <span id="L232" class="LineNr">232 </span><span class="CommentedCode">#? draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, " ", 7/fg, 0/bg</span> diff --git a/html/apps/ex1.mu.html b/html/apps/ex1.mu.html index f78887e3..f7e769bf 100644 --- a/html/apps/ex1.mu.html +++ b/html/apps/ex1.mu.html @@ -64,8 +64,7 @@ if ('onhashchange' in window) { <span id="L8" class="LineNr"> 8 </span><span class="muComment"># Expected output: blank screen with no errors</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='ex1.mu.html#L10'>main</a></span> <a href='../500fake-screen.mu.html#L16'>screen</a>: (addr <a href='../500fake-screen.mu.html#L16'>screen</a>), keyboard: (addr keyboard), data-disk: (addr disk) <span class="Delimiter">{</span> -<span id="L11" class="LineNr">11 </span> <span class="PreProc">loop</span> -<span id="L12" class="LineNr">12 </span><span class="Delimiter">}</span> +<span id="L11" class="LineNr">11 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/apps/ex10.mu.html b/html/apps/ex10.mu.html index 87b2fe5d..30b5c70f 100644 --- a/html/apps/ex10.mu.html +++ b/html/apps/ex10.mu.html @@ -84,15 +84,15 @@ if ('onhashchange' in window) { <span id="L25" class="LineNr">25 </span> <span class="Delimiter">{</span> <span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> dummy1/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> dummy2/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L28" class="LineNr">28 </span> dummy1, dummy2 <span class="Special"><-</span> <a href='../501draw-text.mu.html#L316'>draw-text-wrapping-right-then-down-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" "</span>, <span class="Constant">0</span>/x, <span class="Constant">0x10</span>/y, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg +<span id="L28" class="LineNr">28 </span> dummy1, dummy2 <span class="Special"><-</span> <a href='../501draw-text.mu.html#L309'>draw-text-wrapping-right-then-down-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" "</span>, <span class="Constant">0</span>/x, <span class="Constant">0x10</span>/y, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg <span id="L29" class="LineNr">29 </span> <span class="Delimiter">}</span> <span id="L30" class="LineNr">30 </span> <span class="Delimiter">{</span> <span id="L31" class="LineNr">31 </span> <span class="PreProc">var</span> dummy/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L32" class="LineNr">32 </span> dx, dummy <span class="Special"><-</span> <a href='../501draw-text.mu.html#L426'>draw-int32-decimal-wrapping-right-then-down-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, dx, <span class="Constant">0</span>/x, <span class="Constant">0x10</span>/y, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg +<span id="L32" class="LineNr">32 </span> dx, dummy <span class="Special"><-</span> <a href='../501draw-text.mu.html#L419'>draw-int32-decimal-wrapping-right-then-down-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, dx, <span class="Constant">0</span>/x, <span class="Constant">0x10</span>/y, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg <span id="L33" class="LineNr">33 </span> <span class="Delimiter">}</span> <span id="L34" class="LineNr">34 </span> <span class="Delimiter">{</span> <span id="L35" class="LineNr">35 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L36" class="LineNr">36 </span> dummy, dy <span class="Special"><-</span> <a href='../501draw-text.mu.html#L426'>draw-int32-decimal-wrapping-right-then-down-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, dy, <span class="Constant">5</span>/x, <span class="Constant">0x10</span>/y, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg +<span id="L36" class="LineNr">36 </span> dummy, dy <span class="Special"><-</span> <a href='../501draw-text.mu.html#L419'>draw-int32-decimal-wrapping-right-then-down-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, dy, <span class="Constant">5</span>/x, <span class="Constant">0x10</span>/y, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg <span id="L37" class="LineNr">37 </span> <span class="Delimiter">}</span> <span id="L38" class="LineNr">38 </span> <span class="PreProc">loop</span> <span id="L39" class="LineNr">39 </span> <span class="Delimiter">}</span> diff --git a/html/apps/ex12.mu.html b/html/apps/ex12.mu.html index aa5d36e0..25d21d46 100644 --- a/html/apps/ex12.mu.html +++ b/html/apps/ex12.mu.html @@ -71,7 +71,7 @@ if ('onhashchange' in window) { <span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> fg/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> prev-timer-counter/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L13" class="LineNr">13 </span> <span class="Delimiter">{</span> -<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"hello from baremetal Mu!"</span>, <span class="Constant">0x10</span>/x, <span class="Constant">0x400</span>/xmax, <span class="Constant">0x10</span>/y, fg, <span class="Constant">0</span>/bg +<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"hello from baremetal Mu!"</span>, <span class="Constant">0x10</span>/x, <span class="Constant">0x400</span>/xmax, <span class="Constant">0x10</span>/y, fg, <span class="Constant">0</span>/bg <span id="L15" class="LineNr">15 </span> <span class="muComment"># wait for timer to bump</span> <span id="L16" class="LineNr">16 </span> <span class="Delimiter">{</span> <span id="L17" class="LineNr">17 </span> <span class="PreProc">var</span> curr-timer-counter/eax: int <span class="Special"><-</span> <a href='../319timer.subx.html#L3'>timer-counter</a> diff --git a/html/apps/ex14.mu.html b/html/apps/ex14.mu.html index 5dc12735..504e9be9 100644 --- a/html/apps/ex14.mu.html +++ b/html/apps/ex14.mu.html @@ -77,7 +77,7 @@ if ('onhashchange' in window) { <span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> text-storage: (stream byte <span class="Constant">0x200</span>) <span id="L19" class="LineNr">19 </span> <span class="PreProc">var</span> text/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address text-storage <span id="L20" class="LineNr">20 </span> <a href='../510disk.mu.html#L1'>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> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L124'>draw-stream-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, text, <span class="Constant">0</span>/x <span class="Constant">0x80</span>/xmax <span class="Constant">0</span>/y, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg +<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L117'>draw-stream-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, text, <span class="Constant">0</span>/x <span class="Constant">0x80</span>/xmax <span class="Constant">0</span>/y, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg <span id="L22" class="LineNr">22 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/apps/ex15.mu.html b/html/apps/ex15.mu.html index 714fbff3..d062c654 100644 --- a/html/apps/ex15.mu.html +++ b/html/apps/ex15.mu.html @@ -92,13 +92,13 @@ if ('onhashchange' in window) { <span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../103glyph.subx.html#L19'>draw-code-point-on-real-screen</a> <span class="Constant">0x61</span>/a, <span class="Constant">0</span>/x <span class="Constant">0</span>/y, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../103glyph.subx.html#L31'>overlay-code-point-on-real-screen</a> <span class="Constant">0x0300</span>/combining-grave-accent, <span class="Constant">0</span>/x <span class="Constant">0</span>/y, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L34" class="LineNr"> 34 </span> -<span id="L35" class="LineNr"> 35 </span> <span class="muComment"># below a grapheme with a descender, the accent uglily overlaps</span> +<span id="L35" class="LineNr"> 35 </span> <span class="muComment"># below a code-point-utf8 with a descender, the accent uglily overlaps</span> <span id="L36" class="LineNr"> 36 </span> <span class="muComment"># <a href="https://en.wikipedia.org/wiki/Descender">https://en.wikipedia.org/wiki/Descender</a></span> <span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../103glyph.subx.html#L19'>draw-code-point-on-real-screen</a> <span class="Constant">0x67</span>/g, <span class="Constant">4</span>/x <span class="Constant">3</span>/y, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../103glyph.subx.html#L19'>draw-code-point-on-real-screen</a> <span class="Constant">0x61</span>/a, <span class="Constant">4</span>/x <span class="Constant">4</span>/y, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../103glyph.subx.html#L31'>overlay-code-point-on-real-screen</a> <span class="Constant">0x0300</span>/combining-grave-accent, <span class="Constant">4</span>/x <span class="Constant">4</span>/y, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L40" class="LineNr"> 40 </span> -<span id="L41" class="LineNr"> 41 </span> <span class="muComment"># beside a grapheme with a descender, it becomes more obvious that monowidth fonts can't make baselines line up</span> +<span id="L41" class="LineNr"> 41 </span> <span class="muComment"># beside a code-point-utf8 with a descender, it becomes more obvious that monowidth fonts can't make baselines line up</span> <span id="L42" class="LineNr"> 42 </span> <span class="muComment"># <a href="https://en.wikipedia.org/wiki/Baseline_(typography)">https://en.wikipedia.org/wiki/Baseline_(typography)</a></span> <span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../103glyph.subx.html#L19'>draw-code-point-on-real-screen</a> <span class="Constant">0x67</span>/g, <span class="Constant">8</span>/x <span class="Constant">3</span>/y, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../103glyph.subx.html#L19'>draw-code-point-on-real-screen</a> <span class="Constant">0x61</span>/a, <span class="Constant">9</span>/x <span class="Constant">3</span>/y, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg @@ -142,70 +142,70 @@ if ('onhashchange' in window) { <span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../103glyph.subx.html#L19'>draw-code-point-on-real-screen</a> <span class="Constant">0x0915</span>/devanagari-letter-ka, <span class="Constant">0x13</span>/x <span class="Constant">9</span>/y, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../103glyph.subx.html#L31'>overlay-code-point-on-real-screen</a> <span class="Constant">0x0903</span>/devanagari-visarga, <span class="Constant">0x13</span>/x <span class="Constant">9</span>/y, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L84" class="LineNr"> 84 </span> -<span id="L85" class="LineNr"> 85 </span> <span class="muComment"># render the same devanagari letters as a single stream of utf-8 graphemes rather than individual code-points.</span> +<span id="L85" class="LineNr"> 85 </span> <span class="muComment"># render the same devanagari letters as a single stream of utf-8 code-point-utf8s rather than individual code-points.</span> <span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> text-storage: (stream byte <span class="Constant">0x200</span>) <span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> text/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address text-storage -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L104'>to-grapheme</a> <span class="Constant">0x0915</span>/devanagari-letter-ka -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> ka/<span class="muRegEcx">ecx</span>: grapheme <span class="Special"><-</span> copy g +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L97'>to-utf8</a> <span class="Constant">0x0915</span>/devanagari-letter-ka +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> ka/<span class="muRegEcx">ecx</span>: code-point-utf8 <span class="Special"><-</span> copy g <span id="L90" class="LineNr"> 90 </span> <span class="muComment"># ka</span> -<span id="L91" class="LineNr"> 91 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, ka +<span id="L91" class="LineNr"> 91 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, ka <span id="L92" class="LineNr"> 92 </span> <span class="muComment"># kaa</span> -<span id="L93" class="LineNr"> 93 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, ka -<span id="L94" class="LineNr"> 94 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L104'>to-grapheme</a> <span class="Constant">0x093e</span>/devanagari-vowel-aa -<span id="L95" class="LineNr"> 95 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, g +<span id="L93" class="LineNr"> 93 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, ka +<span id="L94" class="LineNr"> 94 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L97'>to-utf8</a> <span class="Constant">0x093e</span>/devanagari-vowel-aa +<span id="L95" class="LineNr"> 95 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, g <span id="L96" class="LineNr"> 96 </span> <span class="muComment"># ki</span> -<span id="L97" class="LineNr"> 97 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, ka -<span id="L98" class="LineNr"> 98 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L104'>to-grapheme</a> <span class="Constant">0x093f</span>/devanagari-vowel-i -<span id="L99" class="LineNr"> 99 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, g +<span id="L97" class="LineNr"> 97 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, ka +<span id="L98" class="LineNr"> 98 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L97'>to-utf8</a> <span class="Constant">0x093f</span>/devanagari-vowel-i +<span id="L99" class="LineNr"> 99 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, g <span id="L100" class="LineNr">100 </span> <span class="muComment"># kee</span> -<span id="L101" class="LineNr">101 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, ka -<span id="L102" class="LineNr">102 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L104'>to-grapheme</a> <span class="Constant">0x0940</span>/devanagari-vowel-ii -<span id="L103" class="LineNr">103 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, g +<span id="L101" class="LineNr">101 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, ka +<span id="L102" class="LineNr">102 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L97'>to-utf8</a> <span class="Constant">0x0940</span>/devanagari-vowel-ii +<span id="L103" class="LineNr">103 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, g <span id="L104" class="LineNr">104 </span> <span class="muComment"># ku</span> -<span id="L105" class="LineNr">105 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, ka -<span id="L106" class="LineNr">106 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L104'>to-grapheme</a> <span class="Constant">0x0941</span>/devanagari-vowel-u -<span id="L107" class="LineNr">107 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, g +<span id="L105" class="LineNr">105 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, ka +<span id="L106" class="LineNr">106 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L97'>to-utf8</a> <span class="Constant">0x0941</span>/devanagari-vowel-u +<span id="L107" class="LineNr">107 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, g <span id="L108" class="LineNr">108 </span> <span class="muComment"># koo</span> -<span id="L109" class="LineNr">109 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, ka -<span id="L110" class="LineNr">110 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L104'>to-grapheme</a> <span class="Constant">0x0942</span>/devanagari-vowel-oo -<span id="L111" class="LineNr">111 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, g +<span id="L109" class="LineNr">109 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, ka +<span id="L110" class="LineNr">110 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L97'>to-utf8</a> <span class="Constant">0x0942</span>/devanagari-vowel-oo +<span id="L111" class="LineNr">111 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, g <span id="L112" class="LineNr">112 </span> <span class="muComment"># kay</span> -<span id="L113" class="LineNr">113 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, ka -<span id="L114" class="LineNr">114 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L104'>to-grapheme</a> <span class="Constant">0x0947</span>/devanagari-vowel-E -<span id="L115" class="LineNr">115 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, g +<span id="L113" class="LineNr">113 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, ka +<span id="L114" class="LineNr">114 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L97'>to-utf8</a> <span class="Constant">0x0947</span>/devanagari-vowel-E +<span id="L115" class="LineNr">115 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, g <span id="L116" class="LineNr">116 </span> <span class="muComment"># kai</span> -<span id="L117" class="LineNr">117 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, ka -<span id="L118" class="LineNr">118 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L104'>to-grapheme</a> <span class="Constant">0x0948</span>/devanagari-vowel-ai -<span id="L119" class="LineNr">119 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, g +<span id="L117" class="LineNr">117 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, ka +<span id="L118" class="LineNr">118 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L97'>to-utf8</a> <span class="Constant">0x0948</span>/devanagari-vowel-ai +<span id="L119" class="LineNr">119 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, g <span id="L120" class="LineNr">120 </span> <span class="muComment"># ko</span> -<span id="L121" class="LineNr">121 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, ka -<span id="L122" class="LineNr">122 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L104'>to-grapheme</a> <span class="Constant">0x094b</span>/devanagari-vowel-o -<span id="L123" class="LineNr">123 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, g +<span id="L121" class="LineNr">121 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, ka +<span id="L122" class="LineNr">122 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L97'>to-utf8</a> <span class="Constant">0x094b</span>/devanagari-vowel-o +<span id="L123" class="LineNr">123 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, g <span id="L124" class="LineNr">124 </span> <span class="muComment"># kow</span> -<span id="L125" class="LineNr">125 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, ka -<span id="L126" class="LineNr">126 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L104'>to-grapheme</a> <span class="Constant">0x094f</span>/devanagari-vowel-aw -<span id="L127" class="LineNr">127 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, g +<span id="L125" class="LineNr">125 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, ka +<span id="L126" class="LineNr">126 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L97'>to-utf8</a> <span class="Constant">0x094f</span>/devanagari-vowel-aw +<span id="L127" class="LineNr">127 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, g <span id="L128" class="LineNr">128 </span> <span class="muComment"># kan</span> -<span id="L129" class="LineNr">129 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, ka -<span id="L130" class="LineNr">130 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L104'>to-grapheme</a> <span class="Constant">0x0902</span>/devanagari-anusvara -<span id="L131" class="LineNr">131 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, g +<span id="L129" class="LineNr">129 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, ka +<span id="L130" class="LineNr">130 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L97'>to-utf8</a> <span class="Constant">0x0902</span>/devanagari-anusvara +<span id="L131" class="LineNr">131 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, g <span id="L132" class="LineNr">132 </span> <span class="muComment"># kaha</span> -<span id="L133" class="LineNr">133 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, ka -<span id="L134" class="LineNr">134 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L104'>to-grapheme</a> <span class="Constant">0x0903</span>/devanagari-visarga -<span id="L135" class="LineNr">135 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> text, g +<span id="L133" class="LineNr">133 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, ka +<span id="L134" class="LineNr">134 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L97'>to-utf8</a> <span class="Constant">0x0903</span>/devanagari-visarga +<span id="L135" class="LineNr">135 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> text, g <span id="L136" class="LineNr">136 </span> <span class="muComment"># render everything</span> <span id="L137" class="LineNr">137 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">4</span>/x <span class="Constant">0xe</span>/y -<span id="L138" class="LineNr">138 </span> <a href='../501draw-text.mu.html#L295'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, text, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L138" class="LineNr">138 </span> <a href='../501draw-text.mu.html#L288'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, text, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L139" class="LineNr">139 </span> -<span id="L140" class="LineNr">140 </span> <span class="muComment"># a stream of tamil graphemes (with interspersed spaces for clarity) that don't look the same in Mu</span> +<span id="L140" class="LineNr">140 </span> <span class="muComment"># a stream of tamil code-point-utf8s (with interspersed spaces for clarity) that don't look the same in Mu</span> <span id="L141" class="LineNr">141 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>, <span class="Constant">4</span>/x <span class="Constant">0x12</span>/y -<span id="L142" class="LineNr">142 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>, <span class="Constant">"எ ஃ கு "</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L142" class="LineNr">142 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>, <span class="Constant">"எ ஃ கு "</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L143" class="LineNr">143 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>, <span class="Constant">4</span>/x <span class="Constant">0x13</span>/y -<span id="L144" class="LineNr">144 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>, <span class="Constant">"அ ன் று "</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L144" class="LineNr">144 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>, <span class="Constant">"அ ன் று "</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L145" class="LineNr">145 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>, <span class="Constant">4</span>/x <span class="Constant">0x14</span>/y -<span id="L146" class="LineNr">146 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>, <span class="Constant">"அ தா வ து "</span> , <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L146" class="LineNr">146 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>, <span class="Constant">"அ தா வ து "</span> , <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L147" class="LineNr">147 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>, <span class="Constant">4</span>/x <span class="Constant">0x15</span>/y -<span id="L148" class="LineNr">148 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>, <span class="Constant">"அ ஃ தா ன் று "</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L148" class="LineNr">148 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>, <span class="Constant">"அ ஃ தா ன் று "</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L149" class="LineNr">149 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/apps/ex5.mu.html b/html/apps/ex5.mu.html index 1671193c..85b3a7c1 100644 --- a/html/apps/ex5.mu.html +++ b/html/apps/ex5.mu.html @@ -67,8 +67,8 @@ if ('onhashchange' in window) { <span id="L9" class="LineNr"> 9 </span><span class="muComment"># Expected output: text in green near the top-left corner of screen</span> <span id="L10" class="LineNr">10 </span> <span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex5.mu.html#L11'>main</a></span> <a href='../500fake-screen.mu.html#L16'>screen</a>: (addr <a href='../500fake-screen.mu.html#L16'>screen</a>), keyboard: (addr keyboard), data-disk: (addr disk) <span class="Delimiter">{</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"hello from baremetal Mu!"</span>, <span class="Constant">0x10</span>/x, <span class="Constant">0x400</span>/xmax, <span class="Constant">0x10</span>/y, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg -<span id="L13" class="LineNr">13 </span> dummy <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"you shouldn't see this"</span>, <span class="Constant">0x10</span>/x, <span class="Constant">0xa0</span>/xmax, <span class="Constant">0x30</span>/y, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg <span class="muComment"># xmax is too narrow</span> +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"hello from baremetal Mu!"</span>, <span class="Constant">0x10</span>/x, <span class="Constant">0x400</span>/xmax, <span class="Constant">0x10</span>/y, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg +<span id="L13" class="LineNr">13 </span> dummy <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"you shouldn't see this"</span>, <span class="Constant">0x10</span>/x, <span class="Constant">0xa0</span>/xmax, <span class="Constant">0x30</span>/y, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg <span class="muComment"># xmax is too narrow</span> <span id="L14" class="LineNr">14 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/apps/ex6.mu.html b/html/apps/ex6.mu.html index a5112540..633225a7 100644 --- a/html/apps/ex6.mu.html +++ b/html/apps/ex6.mu.html @@ -71,21 +71,21 @@ if ('onhashchange' in window) { <span id="L12" class="LineNr">12 </span> <a href='../503manhattan-line.mu.html#L1'>draw-box-on-real-screen</a> <span class="Constant">0xf</span>, <span class="Constant">0x1f</span>, <span class="Constant">0x79</span>, <span class="Constant">0x51</span>, <span class="Constant">0x4</span> <span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy <span class="Constant">0x20</span> <span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0x20</span> -<span id="L15" class="LineNr">15 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L188'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"hello "</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg -<span id="L16" class="LineNr">16 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L188'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"from "</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg -<span id="L17" class="LineNr">17 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L188'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"baremetal "</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg -<span id="L18" class="LineNr">18 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L188'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"Mu!"</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg +<span id="L15" class="LineNr">15 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L181'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"hello "</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg +<span id="L16" class="LineNr">16 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L181'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"from "</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg +<span id="L17" class="LineNr">17 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L181'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"baremetal "</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg +<span id="L18" class="LineNr">18 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L181'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"Mu!"</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg <span id="L19" class="LineNr">19 </span> <span id="L20" class="LineNr">20 </span> <span class="muComment"># drawing at the cursor in multiple directions</span> -<span id="L21" class="LineNr">21 </span> <a href='../501draw-text.mu.html#L559'>draw-text-wrapping-down-then-right-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"abc"</span>, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg -<span id="L22" class="LineNr">22 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"def"</span>, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg +<span id="L21" class="LineNr">21 </span> <a href='../501draw-text.mu.html#L552'>draw-text-wrapping-down-then-right-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"abc"</span>, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg +<span id="L22" class="LineNr">22 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"def"</span>, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg <span id="L23" class="LineNr">23 </span> <span id="L24" class="LineNr">24 </span> <span class="muComment"># test drawing near the edge</span> -<span id="L25" class="LineNr">25 </span> x <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"R"</span>, <span class="Constant">0x7f</span>/x, <span class="Constant">0x80</span>/xmax=screen-width, <span class="Constant">0x18</span>/y, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg -<span id="L26" class="LineNr">26 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"wrapped from R"</span>, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg +<span id="L25" class="LineNr">25 </span> x <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"R"</span>, <span class="Constant">0x7f</span>/x, <span class="Constant">0x80</span>/xmax=screen-width, <span class="Constant">0x18</span>/y, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg +<span id="L26" class="LineNr">26 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"wrapped from R"</span>, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg <span id="L27" class="LineNr">27 </span> -<span id="L28" class="LineNr">28 </span> x <span class="Special"><-</span> <a href='../501draw-text.mu.html#L461'>draw-text-downward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"D"</span>, <span class="Constant">0x20</span>/x, <span class="Constant">0x2f</span>/y, <span class="Constant">0x30</span>/ymax=screen-height, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg -<span id="L29" class="LineNr">29 </span> <a href='../501draw-text.mu.html#L559'>draw-text-wrapping-down-then-right-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"wrapped from D"</span>, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg +<span id="L28" class="LineNr">28 </span> x <span class="Special"><-</span> <a href='../501draw-text.mu.html#L454'>draw-text-downward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"D"</span>, <span class="Constant">0x20</span>/x, <span class="Constant">0x2f</span>/y, <span class="Constant">0x30</span>/ymax=screen-height, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg +<span id="L29" class="LineNr">29 </span> <a href='../501draw-text.mu.html#L552'>draw-text-wrapping-down-then-right-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"wrapped from D"</span>, <span class="Constant">0xa</span>/fg, <span class="Constant">0</span>/bg <span id="L30" class="LineNr">30 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/apps/ex7.mu.html b/html/apps/ex7.mu.html index ebc5a800..805255ce 100644 --- a/html/apps/ex7.mu.html +++ b/html/apps/ex7.mu.html @@ -74,26 +74,26 @@ if ('onhashchange' in window) { <span id="L16" class="LineNr">16 </span> <span class="Delimiter">{</span> <span id="L17" class="LineNr">17 </span> compare key, <span class="Constant">0x80</span>/left-arrow <span id="L18" class="LineNr">18 </span> <span class="PreProc">break-if-!=</span> -<span id="L19" class="LineNr">19 </span> <a href='../501draw-text.mu.html#L84'>draw-code-point-at-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x2d</span>/dash, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg +<span id="L19" class="LineNr">19 </span> draw-code-point-at-cursor <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x2d</span>/dash, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg <span id="L20" class="LineNr">20 </span> <a href='../501draw-text.mu.html#L3'>move-cursor-left</a> <span class="Constant">0</span> <span id="L21" class="LineNr">21 </span> <span class="Delimiter">}</span> <span id="L22" class="LineNr">22 </span> <span class="Delimiter">{</span> <span id="L23" class="LineNr">23 </span> compare key, <span class="Constant">0x81</span>/down-arrow <span id="L24" class="LineNr">24 </span> <span class="PreProc">break-if-!=</span> -<span id="L25" class="LineNr">25 </span> <a href='../501draw-text.mu.html#L84'>draw-code-point-at-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x7c</span>/vertical-bar, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg +<span id="L25" class="LineNr">25 </span> draw-code-point-at-cursor <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x7c</span>/vertical-bar, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg <span id="L26" class="LineNr">26 </span> <a href='../501draw-text.mu.html#L47'>move-cursor-down</a> <span class="Constant">0</span> <span id="L27" class="LineNr">27 </span> <span class="Delimiter">}</span> <span id="L28" class="LineNr">28 </span> <span class="Delimiter">{</span> <span id="L29" class="LineNr">29 </span> compare key, <span class="Constant">0x82</span>/up-arrow <span id="L30" class="LineNr">30 </span> <span class="PreProc">break-if-!=</span> -<span id="L31" class="LineNr">31 </span> <a href='../501draw-text.mu.html#L84'>draw-code-point-at-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x7c</span>/vertical-bar, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg +<span id="L31" class="LineNr">31 </span> draw-code-point-at-cursor <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x7c</span>/vertical-bar, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg <span id="L32" class="LineNr">32 </span> <a href='../501draw-text.mu.html#L34'>move-cursor-up</a> <span class="Constant">0</span> <span id="L33" class="LineNr">33 </span> <span class="Delimiter">}</span> <span id="L34" class="LineNr">34 </span> <span class="Delimiter">{</span> <span id="L35" class="LineNr">35 </span> compare key, <span class="Constant">0x83</span>/right-arrow <span id="L36" class="LineNr">36 </span> <span class="PreProc">break-if-!=</span> <span id="L37" class="LineNr">37 </span> <span class="PreProc">var</span> g/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x2d</span>/dash -<span id="L38" class="LineNr">38 </span> <a href='../501draw-text.mu.html#L84'>draw-code-point-at-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x2d</span>/dash, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg +<span id="L38" class="LineNr">38 </span> draw-code-point-at-cursor <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x2d</span>/dash, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg <span id="L39" class="LineNr">39 </span> <a href='../501draw-text.mu.html#L16'>move-cursor-right</a> <span class="Constant">0</span> <span id="L40" class="LineNr">40 </span> <span class="Delimiter">}</span> <span id="L41" class="LineNr">41 </span> <span class="PreProc">loop</span> diff --git a/html/apps/ex9.mu.html b/html/apps/ex9.mu.html index d5d08e67..9aa7dfa6 100644 --- a/html/apps/ex9.mu.html +++ b/html/apps/ex9.mu.html @@ -93,7 +93,7 @@ if ('onhashchange' in window) { <span id="L33" class="LineNr">33 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> in <span id="L34" class="LineNr">34 </span> compare done?, <span class="Constant">0</span>/false <span id="L35" class="LineNr">35 </span> <span class="PreProc">break-if-!=</span> -<span id="L36" class="LineNr">36 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> in +<span id="L36" class="LineNr">36 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> in <span id="L37" class="LineNr">37 </span> <span class="Delimiter">{</span> <span id="L38" class="LineNr">38 </span> compare g, <span class="Constant">0x20</span>/space <span id="L39" class="LineNr">39 </span> <span class="PreProc">break-if-!=</span> diff --git a/html/apps/hest-life.mu.html b/html/apps/hest-life.mu.html index 451bb147..f4363851 100644 --- a/html/apps/hest-life.mu.html +++ b/html/apps/hest-life.mu.html @@ -92,7 +92,7 @@ if ('onhashchange' in window) { <span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> second-screen/<span class="muRegEdi">edi</span>: (addr <a href='../500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> address second-buffer <span id="L29" class="LineNr"> 29 </span> <a href='../500fake-screen.mu.html#L34'>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#L63'>render</a> second-screen, env -<span id="L31" class="LineNr"> 31 </span> convert-graphemes-to-pixels second-screen +<span id="L31" class="LineNr"> 31 </span> convert-code-point-utf8s-to-pixels second-screen <span id="L32" class="LineNr"> 32 </span> <a href='../500fake-screen.mu.html#L643'>copy-pixels</a> second-screen, <a href='../500fake-screen.mu.html#L16'>screen</a> <span id="L33" class="LineNr"> 33 </span> <span class="Delimiter">{</span> <span id="L34" class="LineNr"> 34 </span> <a href='hest-life.mu.html#L595'>edit</a> keyboard, env @@ -103,7 +103,7 @@ if ('onhashchange' in window) { <span id="L39" class="LineNr"> 39 </span> <a href='hest-life.mu.html#L679'>step</a> env <span id="L40" class="LineNr"> 40 </span> <a href='../500fake-screen.mu.html#L330'>clear-screen</a> second-screen <span id="L41" class="LineNr"> 41 </span> <a href='hest-life.mu.html#L63'>render</a> second-screen, env -<span id="L42" class="LineNr"> 42 </span> convert-graphemes-to-pixels second-screen +<span id="L42" class="LineNr"> 42 </span> convert-code-point-utf8s-to-pixels second-screen <span id="L43" class="LineNr"> 43 </span> <a href='../500fake-screen.mu.html#L643'>copy-pixels</a> second-screen, <a href='../500fake-screen.mu.html#L16'>screen</a> <span id="L44" class="LineNr"> 44 </span> <span class="Delimiter">}</span> <span id="L45" class="LineNr"> 45 </span> <a href='hest-life.mu.html#L1019'>linger</a> @@ -147,7 +147,7 @@ if ('onhashchange' in window) { <span id="L83" class="LineNr"> 83 </span> <span class="muComment"># clock</span> <span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> tick-a/eax: (addr int) <span class="Special"><-</span> get self, tick <span id="L85" class="LineNr"> 85 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x78</span>/x, <span class="Constant">0</span>/y -<span id="L86" class="LineNr"> 86 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, *tick-a, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L86" class="LineNr"> 86 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, *tick-a, <span class="Constant">7</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 id="L89" class="LineNr"> 89 </span><span class="muComment"># Lots of hardcoded constants for now.</span> @@ -181,7 +181,7 @@ if ('onhashchange' in window) { <span id="L117" class="LineNr"> 117 </span> <span class="muComment"># sum node</span> <span id="L118" class="LineNr"> 118 </span> <a href='../507line.mu.html#L86'>draw-rect</a> <a href='../500fake-screen.mu.html#L16'>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="L119" class="LineNr"> 119 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x2d</span>/scol, <span class="Constant">0x13</span>/srow -<span id="L120" class="LineNr"> 120 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"+"</span>, <span class="Constant">0xf</span>/color, <span class="Constant">0</span>/bg +<span id="L120" class="LineNr"> 120 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"+"</span>, <span class="Constant">0xf</span>/color, <span class="Constant">0</span>/bg <span id="L121" class="LineNr"> 121 </span> <span class="muComment"># conveyors from neighboring inputs to sum node</span> <span id="L122" class="LineNr"> 122 </span> <a href='../509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='../500fake-screen.mu.html#L16'>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="L123" class="LineNr"> 123 </span> <a href='../509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='../500fake-screen.mu.html#L16'>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 @@ -194,7 +194,7 @@ if ('onhashchange' in window) { <span id="L130" class="LineNr"> 130 </span> <span class="muComment"># filter node</span> <span id="L131" class="LineNr"> 131 </span> <a href='../507line.mu.html#L86'>draw-rect</a> <a href='../500fake-screen.mu.html#L16'>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="L132" class="LineNr"> 132 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x40</span>/fcol, <span class="Constant">0x1b</span>/frow -<span id="L133" class="LineNr"> 133 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"?"</span>, <span class="Constant">0xf</span>/color, <span class="Constant">0</span>/bg +<span id="L133" class="LineNr"> 133 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"?"</span>, <span class="Constant">0xf</span>/color, <span class="Constant">0</span>/bg <span id="L134" class="LineNr"> 134 </span> <span class="muComment"># conveyor from sum node to filter node</span> <span id="L135" class="LineNr"> 135 </span> <a href='../507line.mu.html#L1'>draw-line</a> <a href='../500fake-screen.mu.html#L16'>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="L136" class="LineNr"> 136 </span> <span class="muComment"># cell outputs at corners</span> @@ -253,7 +253,7 @@ if ('onhashchange' in window) { <span id="L189" class="LineNr"> 189 </span> <a href='hest-life.mu.html#L588'>draw-linear-point</a> <a href='../500fake-screen.mu.html#L16'>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="L190" class="LineNr"> 190 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x3a</span>/scol, <span class="Constant">0x18</span>/srow <span id="L191" class="LineNr"> 191 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> <a href='hest-life.mu.html#L953'>num-live-neighbors</a> self, <span class="Constant">0x80</span>/curx, <span class="Constant">0x60</span>/cury -<span id="L192" class="LineNr"> 192 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg +<span id="L192" class="LineNr"> 192 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg <span id="L193" class="LineNr"> 193 </span> <span class="PreProc">return</span> <span id="L194" class="LineNr"> 194 </span> <span class="Delimiter">}</span> <span id="L195" class="LineNr"> 195 </span> <span class="muComment"># final 7 time steps for updating output</span> @@ -370,16 +370,16 @@ if ('onhashchange' in window) { <span id="L306" class="LineNr"> 306 </span> <span class="muComment"># neighbor counts</span> <span id="L307" class="LineNr"> 307 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> <a href='hest-life.mu.html#L953'>num-live-neighbors</a> self, <span class="Constant">0x80</span>/curx, <span class="Constant">0x60</span>/cury <span id="L308" class="LineNr"> 308 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x2d</span>, <span class="Constant">0xe</span> -<span id="L309" class="LineNr"> 309 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg +<span id="L309" class="LineNr"> 309 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>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/eax: int <span class="Special"><-</span> <a href='hest-life.mu.html#L953'>num-live-neighbors</a> self, <span class="Constant">0x81</span>/curx, <span class="Constant">0x60</span>/cury <span id="L311" class="LineNr"> 311 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x52</span>, <span class="Constant">0xe</span> -<span id="L312" class="LineNr"> 312 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg +<span id="L312" class="LineNr"> 312 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>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/eax: int <span class="Special"><-</span> <a href='hest-life.mu.html#L953'>num-live-neighbors</a> self, <span class="Constant">0x80</span>/curx, <span class="Constant">0x61</span>/cury <span id="L314" class="LineNr"> 314 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x2d</span>, <span class="Constant">0x20</span> -<span id="L315" class="LineNr"> 315 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg +<span id="L315" class="LineNr"> 315 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg <span id="L316" class="LineNr"> 316 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> <a href='hest-life.mu.html#L953'>num-live-neighbors</a> self, <span class="Constant">0x81</span>/curx, <span class="Constant">0x61</span>/cury <span id="L317" class="LineNr"> 317 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x52</span>, <span class="Constant">0x20</span> -<span id="L318" class="LineNr"> 318 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg +<span id="L318" class="LineNr"> 318 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, n, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg <span id="L319" class="LineNr"> 319 </span> <span class="muComment"># cell 0: conveyors from neighboring inputs to sum node</span> <span id="L320" class="LineNr"> 320 </span> <a href='../509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='../500fake-screen.mu.html#L16'>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="L321" class="LineNr"> 321 </span> <a href='../509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='../500fake-screen.mu.html#L16'>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 diff --git a/html/apps/rpn.mu.html b/html/apps/rpn.mu.html index e7c85c30..3369651b 100644 --- a/html/apps/rpn.mu.html +++ b/html/apps/rpn.mu.html @@ -81,135 +81,117 @@ if ('onhashchange' in window) { <span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> in-storage: (stream byte <span class="Constant">0x80</span>) <span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> in/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address in-storage <span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> space/<span class="muRegEdx">edx</span>: code-point <span class="Special"><-</span> copy <span class="Constant">0x20</span> -<span id="L23" class="LineNr"> 23 </span> <span class="muComment"># read-eval-print loop</span> -<span id="L24" class="LineNr"> 24 </span> <span class="Delimiter">{</span> -<span id="L25" class="LineNr"> 25 </span> <span class="muComment"># print prompt</span> -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"> "</span>, <span class="Constant">0</span>/x, <span class="Constant">0x80</span>/xmax, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L27" class="LineNr"> 27 </span> <span class="muComment"># read line from keyboard</span> -<span id="L28" class="LineNr"> 28 </span> <a href='../106stream.subx.html#L20'>clear-stream</a> in -<span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">{</span> -<span id="L30" class="LineNr"> 30 </span> <a href='../500fake-screen.mu.html#L316'>draw-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, space -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> key/eax: byte <span class="Special"><-</span> <a href='../102keyboard.subx.html#L21'>read-key</a> keyboard -<span id="L32" class="LineNr"> 32 </span> compare key, <span class="Constant">0xa</span>/newline -<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">break-if-=</span> -<span id="L34" class="LineNr"> 34 </span> compare key, <span class="Constant">0</span> -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">loop-if-=</span> -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> key2/eax: int <span class="Special"><-</span> copy key -<span id="L37" class="LineNr"> 37 </span> <a href='../115write-byte.subx.html#L12'>append-byte</a> in, key2 -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> copy key2 -<span id="L39" class="LineNr"> 39 </span> <a href='../501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, c, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">loop</span> -<span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">}</span> -<span id="L42" class="LineNr"> 42 </span> <span class="muComment"># clear cursor</span> -<span id="L43" class="LineNr"> 43 </span> <a href='../501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, space, <span class="Constant">3</span>/fg/never-used, <span class="Constant">0</span>/bg -<span id="L44" class="LineNr"> 44 </span> <span class="muComment"># parse and eval</span> -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> out/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L61'>simplify</a> in -<span id="L46" class="LineNr"> 46 </span> <span class="muComment"># print</span> -<span id="L47" class="LineNr"> 47 </span> y <span class="Special"><-</span> increment -<span id="L48" class="LineNr"> 48 </span> out, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L401'>draw-int32-decimal-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, out, <span class="Constant">0</span>/xmin, y, <span class="Constant">0x80</span>/xmax, <span class="Constant">0x30</span>/ymax, <span class="Constant">0</span>/x, y, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg -<span id="L49" class="LineNr"> 49 </span> <span class="muComment"># newline</span> -<span id="L50" class="LineNr"> 50 </span> y <span class="Special"><-</span> increment -<span id="L51" class="LineNr"> 51 </span> <span class="muComment">#</span> -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">loop</span> -<span id="L53" class="LineNr"> 53 </span> <span class="Delimiter">}</span> -<span id="L54" class="LineNr"> 54 </span><span class="Delimiter">}</span> -<span id="L55" class="LineNr"> 55 </span> -<span id="L56" class="LineNr"> 56 </span><span class="PreProc">type</span> <a href='rpn.mu.html#L56'>int-stack</a> <span class="Delimiter">{</span> -<span id="L57" class="LineNr"> 57 </span> data: (handle array int) -<span id="L58" class="LineNr"> 58 </span> top: int -<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="muFunction"><a href='rpn.mu.html#L61'>simplify</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> word-storage: slice -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> word/<span class="muRegEcx">ecx</span>: (addr slice) <span class="Special"><-</span> address word-storage -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> stack-storage: <a href='rpn.mu.html#L56'>int-stack</a> -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> stack/<span class="muRegEsi">esi</span>: (addr <a href='rpn.mu.html#L56'>int-stack</a>) <span class="Special"><-</span> address stack-storage -<span id="L66" class="LineNr"> 66 </span> <a href='rpn.mu.html#L115'>initialize-int-stack</a> stack, <span class="Constant">0x10</span> -<span id="L67" class="LineNr"> 67 </span> $simplify:word-loop: <span class="Delimiter">{</span> -<span id="L68" class="LineNr"> 68 </span> <a href='../127next-word.subx.html#L11'>next-word</a> in, word -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L9'>slice-empty?</a> word -<span id="L70" class="LineNr"> 70 </span> compare done?, <span class="Constant">0</span> -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">break-if-!=</span> -<span id="L72" class="LineNr"> 72 </span> <span class="muComment"># if word is an operator, perform it</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Delimiter">{</span> -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> is-add?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"+"</span> -<span id="L75" class="LineNr"> 75 </span> compare is-add?, <span class="Constant">0</span> -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">break-if-=</span> -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> _b/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L135'>pop-int-stack</a> stack -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> b/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy _b -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> a/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L135'>pop-int-stack</a> stack -<span id="L80" class="LineNr"> 80 </span> a <span class="Special"><-</span> add b -<span id="L81" class="LineNr"> 81 </span> <a href='rpn.mu.html#L123'>push-int-stack</a> stack, a -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">loop</span> $simplify:word-loop -<span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">}</span> -<span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">{</span> -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> is-sub?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"-"</span> -<span id="L86" class="LineNr"> 86 </span> compare is-sub?, <span class="Constant">0</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">break-if-=</span> -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> _b/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L135'>pop-int-stack</a> stack -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> b/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy _b -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> a/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L135'>pop-int-stack</a> stack -<span id="L91" class="LineNr"> 91 </span> a <span class="Special"><-</span> subtract b -<span id="L92" class="LineNr"> 92 </span> <a href='rpn.mu.html#L123'>push-int-stack</a> stack, a -<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">loop</span> $simplify:word-loop -<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 class="PreProc">var</span> is-mul?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"*"</span> -<span id="L97" class="LineNr"> 97 </span> compare is-mul?, <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">var</span> _b/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L135'>pop-int-stack</a> stack -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> b/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy _b -<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> a/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L135'>pop-int-stack</a> stack -<span id="L102" class="LineNr">102 </span> a <span class="Special"><-</span> multiply b -<span id="L103" class="LineNr">103 </span> <a href='rpn.mu.html#L123'>push-int-stack</a> stack, a -<span id="L104" class="LineNr">104 </span> <span class="PreProc">loop</span> $simplify:word-loop -<span id="L105" class="LineNr">105 </span> <span class="Delimiter">}</span> -<span id="L106" class="LineNr">106 </span> <span class="muComment"># otherwise it's an int</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> word -<span id="L108" class="LineNr">108 </span> <a href='rpn.mu.html#L123'>push-int-stack</a> stack, n -<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> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L135'>pop-int-stack</a> stack -<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="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L115'>initialize-int-stack</a></span> _self: (addr <a href='rpn.mu.html#L56'>int-stack</a>), n: int <span class="Delimiter">{</span> -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='rpn.mu.html#L56'>int-stack</a>) <span class="Special"><-</span> copy _self -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> d/<span class="muRegEdi">edi</span>: (addr handle array int) <span class="Special"><-</span> get self, data -<span id="L118" class="LineNr">118 </span> populate d, n -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> top/eax: (addr int) <span class="Special"><-</span> get self, top -<span id="L120" class="LineNr">120 </span> copy-to *top, <span class="Constant">0</span> -<span id="L121" class="LineNr">121 </span><span class="Delimiter">}</span> -<span id="L122" class="LineNr">122 </span> -<span id="L123" class="LineNr">123 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L123'>push-int-stack</a></span> _self: (addr <a href='rpn.mu.html#L56'>int-stack</a>), _val: int <span class="Delimiter">{</span> -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='rpn.mu.html#L56'>int-stack</a>) <span class="Special"><-</span> copy _self -<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L22" class="LineNr"> 22 </span> <span class="muComment"># read-eval-print loop</span> +<span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">{</span> +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"> "</span>, <span class="Constant">0</span>/x, <span class="Constant">0x80</span>/xmax, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L25" class="LineNr"> 25 </span> <a href='../516read-line.mu.html#L3'>read-line-from-keyboard</a> keyboard, in, <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg +<span id="L26" class="LineNr"> 26 </span> <span class="muComment"># parse and eval</span> +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> out/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L43'>simplify</a> in +<span id="L28" class="LineNr"> 28 </span> <span class="muComment"># print</span> +<span id="L29" class="LineNr"> 29 </span> y <span class="Special"><-</span> increment +<span id="L30" class="LineNr"> 30 </span> out, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L394'>draw-int32-decimal-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, out, <span class="Constant">0</span>/xmin, y, <span class="Constant">0x80</span>/xmax, <span class="Constant">0x30</span>/ymax, <span class="Constant">0</span>/x, y, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L31" class="LineNr"> 31 </span> <span class="muComment"># newline</span> +<span id="L32" class="LineNr"> 32 </span> y <span class="Special"><-</span> increment +<span id="L33" class="LineNr"> 33 </span> <span class="muComment">#</span> +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">loop</span> +<span id="L35" class="LineNr"> 35 </span> <span class="Delimiter">}</span> +<span id="L36" class="LineNr"> 36 </span><span class="Delimiter">}</span> +<span id="L37" class="LineNr"> 37 </span> +<span id="L38" class="LineNr"> 38 </span><span class="PreProc">type</span> <a href='rpn.mu.html#L38'>int-stack</a> <span class="Delimiter">{</span> +<span id="L39" class="LineNr"> 39 </span> data: (handle array int) +<span id="L40" class="LineNr"> 40 </span> top: int +<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='rpn.mu.html#L43'>simplify</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> word-storage: slice +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> word/<span class="muRegEcx">ecx</span>: (addr slice) <span class="Special"><-</span> address word-storage +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> stack-storage: <a href='rpn.mu.html#L38'>int-stack</a> +<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> stack/<span class="muRegEsi">esi</span>: (addr <a href='rpn.mu.html#L38'>int-stack</a>) <span class="Special"><-</span> address stack-storage +<span id="L48" class="LineNr"> 48 </span> <a href='rpn.mu.html#L97'>initialize-int-stack</a> stack, <span class="Constant">0x10</span> +<span id="L49" class="LineNr"> 49 </span> $simplify:word-loop: <span class="Delimiter">{</span> +<span id="L50" class="LineNr"> 50 </span> <a href='../127next-word.subx.html#L11'>next-word</a> in, word +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L9'>slice-empty?</a> word +<span id="L52" class="LineNr"> 52 </span> compare done?, <span class="Constant">0</span> +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">break-if-!=</span> +<span id="L54" class="LineNr"> 54 </span> <span class="muComment"># if word is an operator, perform it</span> +<span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">{</span> +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> is-add?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"+"</span> +<span id="L57" class="LineNr"> 57 </span> compare is-add?, <span class="Constant">0</span> +<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">break-if-=</span> +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> _b/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L117'>pop-int-stack</a> stack +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> b/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy _b +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> a/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L117'>pop-int-stack</a> stack +<span id="L62" class="LineNr"> 62 </span> a <span class="Special"><-</span> add b +<span id="L63" class="LineNr"> 63 </span> <a href='rpn.mu.html#L105'>push-int-stack</a> stack, a +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">loop</span> $simplify:word-loop +<span id="L65" class="LineNr"> 65 </span> <span class="Delimiter">}</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">{</span> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> is-sub?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"-"</span> +<span id="L68" class="LineNr"> 68 </span> compare is-sub?, <span class="Constant">0</span> +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">break-if-=</span> +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> _b/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L117'>pop-int-stack</a> stack +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> b/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy _b +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> a/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L117'>pop-int-stack</a> stack +<span id="L73" class="LineNr"> 73 </span> a <span class="Special"><-</span> subtract b +<span id="L74" class="LineNr"> 74 </span> <a href='rpn.mu.html#L105'>push-int-stack</a> stack, a +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">loop</span> $simplify:word-loop +<span id="L76" class="LineNr"> 76 </span> <span class="Delimiter">}</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Delimiter">{</span> +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> is-mul?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"*"</span> +<span id="L79" class="LineNr"> 79 </span> compare is-mul?, <span class="Constant">0</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> _b/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L117'>pop-int-stack</a> stack +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> b/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy _b +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> a/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L117'>pop-int-stack</a> stack +<span id="L84" class="LineNr"> 84 </span> a <span class="Special"><-</span> multiply b +<span id="L85" class="LineNr"> 85 </span> <a href='rpn.mu.html#L105'>push-int-stack</a> stack, a +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">loop</span> $simplify:word-loop +<span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">}</span> +<span id="L88" class="LineNr"> 88 </span> <span class="muComment"># otherwise it's an int</span> +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> word +<span id="L90" class="LineNr"> 90 </span> <a href='rpn.mu.html#L105'>push-int-stack</a> stack, n +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">loop</span> +<span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">}</span> +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='rpn.mu.html#L117'>pop-int-stack</a> stack +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">return</span> result +<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='rpn.mu.html#L97'>initialize-int-stack</a></span> _self: (addr <a href='rpn.mu.html#L38'>int-stack</a>), n: int <span class="Delimiter">{</span> +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='rpn.mu.html#L38'>int-stack</a>) <span class="Special"><-</span> copy _self +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> d/<span class="muRegEdi">edi</span>: (addr handle array int) <span class="Special"><-</span> get self, data +<span id="L100" class="LineNr">100 </span> populate d, n +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> top/eax: (addr int) <span class="Special"><-</span> get self, top +<span id="L102" class="LineNr">102 </span> copy-to *top, <span class="Constant">0</span> +<span id="L103" class="LineNr">103 </span><span class="Delimiter">}</span> +<span id="L104" class="LineNr">104 </span> +<span id="L105" class="LineNr">105 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L105'>push-int-stack</a></span> _self: (addr <a href='rpn.mu.html#L38'>int-stack</a>), _val: int <span class="Delimiter">{</span> +<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='rpn.mu.html#L38'>int-stack</a>) <span class="Special"><-</span> copy _self +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdx">edx</span>: (addr handle array int) <span class="Special"><-</span> get self, data +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> data/eax: (addr array int) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *data-ah +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> top/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> dest-addr/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> index data, top +<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> val/eax: int <span class="Special"><-</span> copy _val +<span id="L113" class="LineNr">113 </span> copy-to *dest-addr, val +<span id="L114" class="LineNr">114 </span> add-to *top-addr, <span class="Constant">1</span> +<span id="L115" class="LineNr">115 </span><span class="Delimiter">}</span> +<span id="L116" class="LineNr">116 </span> +<span id="L117" class="LineNr">117 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L117'>pop-int-stack</a></span> _self: (addr <a href='rpn.mu.html#L38'>int-stack</a>)<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='rpn.mu.html#L38'>int-stack</a>) <span class="Special"><-</span> copy _self +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L120" class="LineNr">120 </span> <span class="Delimiter">{</span> +<span id="L121" class="LineNr">121 </span> compare *top-addr, <span class="Constant">0</span> +<span id="L122" class="LineNr">122 </span> <span class="PreProc">break-if-></span> +<span id="L123" class="LineNr">123 </span> <span class="PreProc">return</span> <span class="Constant">0</span> +<span id="L124" class="LineNr">124 </span> <span class="Delimiter">}</span> +<span id="L125" class="LineNr">125 </span> subtract-from *top-addr, <span class="Constant">1</span> <span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdx">edx</span>: (addr handle array int) <span class="Special"><-</span> get self, data <span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> data/eax: (addr array int) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *data-ah <span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> top/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy *top-addr -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> dest-addr/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> index data, top -<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> val/eax: int <span class="Special"><-</span> copy _val -<span id="L131" class="LineNr">131 </span> copy-to *dest-addr, val -<span id="L132" class="LineNr">132 </span> add-to *top-addr, <span class="Constant">1</span> -<span id="L133" class="LineNr">133 </span><span class="Delimiter">}</span> -<span id="L134" class="LineNr">134 </span> -<span id="L135" class="LineNr">135 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L135'>pop-int-stack</a></span> _self: (addr <a href='rpn.mu.html#L56'>int-stack</a>)<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='rpn.mu.html#L56'>int-stack</a>) <span class="Special"><-</span> copy _self -<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get self, top -<span id="L138" class="LineNr">138 </span> <span class="Delimiter">{</span> -<span id="L139" class="LineNr">139 </span> compare *top-addr, <span class="Constant">0</span> -<span id="L140" class="LineNr">140 </span> <span class="PreProc">break-if-></span> -<span id="L141" class="LineNr">141 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L142" class="LineNr">142 </span> <span class="Delimiter">}</span> -<span id="L143" class="LineNr">143 </span> subtract-from *top-addr, <span class="Constant">1</span> -<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdx">edx</span>: (addr handle array int) <span class="Special"><-</span> get self, data -<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> data/eax: (addr array int) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *data-ah -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> top/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy *top-addr -<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> result-addr/eax: (addr int) <span class="Special"><-</span> index data, top -<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> val/eax: int <span class="Special"><-</span> copy *result-addr -<span id="L149" class="LineNr">149 </span> <span class="PreProc">return</span> val -<span id="L150" class="LineNr">150 </span><span class="Delimiter">}</span> +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> result-addr/eax: (addr int) <span class="Special"><-</span> index data, top +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> val/eax: int <span class="Special"><-</span> copy *result-addr +<span id="L131" class="LineNr">131 </span> <span class="PreProc">return</span> val +<span id="L132" class="LineNr">132 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/browse-slack/environment.mu.html b/html/browse-slack/environment.mu.html index 7aa80b46..8cd7b1cb 100644 --- a/html/browse-slack/environment.mu.html +++ b/html/browse-slack/environment.mu.html @@ -198,15 +198,15 @@ if ('onhashchange' in window) { <span id="L134" class="LineNr"> 134 </span> <span class="Delimiter">{</span> <span id="L135" class="LineNr"> 135 </span> compare cursor-index, i <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#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"#"</span>, <span class="Constant">7</span>/grey <span class="Constant">0</span>/black -<span id="L138" class="LineNr"> 138 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, name, <span class="Constant">7</span>/grey <span class="Constant">0</span>/black +<span id="L137" class="LineNr"> 137 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"#"</span>, <span class="Constant">7</span>/grey <span class="Constant">0</span>/black +<span id="L138" class="LineNr"> 138 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, name, <span class="Constant">7</span>/grey <span class="Constant">0</span>/black <span id="L139" class="LineNr"> 139 </span> <span class="Delimiter">}</span> <span id="L140" class="LineNr"> 140 </span> <span class="Delimiter">{</span> <span id="L141" class="LineNr"> 141 </span> compare cursor-index, i <span id="L142" class="LineNr"> 142 </span> <span class="PreProc">break-if-!=</span> <span id="L143" class="LineNr"> 143 </span> <span class="muComment"># cursor; reverse video</span> -<span id="L144" class="LineNr"> 144 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"#"</span>, <span class="Constant">0</span>/black <span class="Constant">0xf</span>/white -<span id="L145" class="LineNr"> 145 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, name, <span class="Constant">0</span>/black <span class="Constant">0xf</span>/white +<span id="L144" class="LineNr"> 144 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"#"</span>, <span class="Constant">0</span>/black <span class="Constant">0xf</span>/white +<span id="L145" class="LineNr"> 145 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, name, <span class="Constant">0</span>/black <span class="Constant">0xf</span>/white <span id="L146" class="LineNr"> 146 </span> <span class="Delimiter">}</span> <span id="L147" class="LineNr"> 147 </span> y <span class="Special"><-</span> add <span class="Constant">2</span>/channel-padding <span id="L148" class="LineNr"> 148 </span> i <span class="Special"><-</span> increment @@ -325,7 +325,7 @@ if ('onhashchange' in window) { <span id="L261" class="LineNr"> 261 </span> <span class="PreProc">var</span> i/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy *current-channel-first-channel-item-addr <span id="L262" class="LineNr"> 262 </span> <span class="PreProc">var</span> current-channel-posts-first-free-addr/eax: (addr int) <span class="Special"><-</span> get current-channel, posts-first-free <span id="L263" class="LineNr"> 263 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0x68</span>/x <span class="Constant">0</span>/y -<span id="L264" class="LineNr"> 264 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"channel"</span>, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L264" class="LineNr"> 264 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"channel"</span>, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg <span id="L265" class="LineNr"> 265 </span> <a href='environment.mu.html#L368'>render-progress</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, i, *current-channel-posts-first-free-addr <span id="L266" class="LineNr"> 266 </span> <span class="PreProc">var</span> items-data-ah/eax: (addr handle array <a href='main.mu.html#L14'>item</a>) <span class="Special"><-</span> get items, data <span id="L267" class="LineNr"> 267 </span> <span class="PreProc">var</span> _items-data/eax: (addr array <a href='main.mu.html#L14'>item</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *items-data-ah @@ -359,13 +359,13 @@ if ('onhashchange' in window) { <span id="L295" class="LineNr"> 295 </span> <span class="PreProc">var</span> i/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy *current-tab-top-item-addr <span id="L296" class="LineNr"> 296 </span> <span class="PreProc">var</span> current-tab-search-items-first-free-addr/eax: (addr int) <span class="Special"><-</span> get current-tab, search-items-first-free <span id="L297" class="LineNr"> 297 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0x68</span>/x <span class="Constant">0</span>/y -<span id="L298" class="LineNr"> 298 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"search"</span>, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L298" class="LineNr"> 298 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"search"</span>, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg <span id="L299" class="LineNr"> 299 </span> <a href='environment.mu.html#L368'>render-progress</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, i, *current-tab-search-items-first-free-addr <span id="L300" class="LineNr"> 300 </span> <span class="Delimiter">{</span> <span id="L301" class="LineNr"> 301 </span> compare *current-tab-search-items-first-free-addr, <span class="Constant">0x100</span>/max-search-results <span id="L302" class="LineNr"> 302 </span> <span class="PreProc">break-if-<</span> <span id="L303" class="LineNr"> 303 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0x68</span>/x <span class="Constant">1</span>/y -<span id="L304" class="LineNr"> 304 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"too many results"</span>, <span class="Constant">4</span>/fg <span class="Constant">0</span>/bg +<span id="L304" class="LineNr"> 304 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"too many results"</span>, <span class="Constant">4</span>/fg <span class="Constant">0</span>/bg <span id="L305" class="LineNr"> 305 </span> <span class="Delimiter">}</span> <span id="L306" class="LineNr"> 306 </span> <span class="PreProc">var</span> items-data-ah/eax: (addr handle array <a href='main.mu.html#L14'>item</a>) <span class="Special"><-</span> get items, data <span id="L307" class="LineNr"> 307 </span> <span class="PreProc">var</span> _items-data/eax: (addr array <a href='main.mu.html#L14'>item</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *items-data-ah @@ -403,7 +403,7 @@ if ('onhashchange' in window) { <span id="L339" class="LineNr"> 339 </span> <span class="PreProc">var</span> i/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy *current-tab-top-item-addr <span id="L340" class="LineNr"> 340 </span> <span class="PreProc">var</span> post-comments-first-free-addr/eax: (addr int) <span class="Special"><-</span> get post, comments-first-free <span id="L341" class="LineNr"> 341 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0x68</span>/x <span class="Constant">0</span>/y -<span id="L342" class="LineNr"> 342 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"thread"</span>, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L342" class="LineNr"> 342 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"thread"</span>, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg <span id="L343" class="LineNr"> 343 </span> <a href='environment.mu.html#L368'>render-progress</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, i, *post-comments-first-free-addr <span id="L344" class="LineNr"> 344 </span> <span class="PreProc">var</span> post-comments-ah/eax: (addr handle array int) <span class="Special"><-</span> get post, comments <span id="L345" class="LineNr"> 345 </span> <span class="PreProc">var</span> post-comments/eax: (addr array int) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *post-comments-ah @@ -433,16 +433,16 @@ if ('onhashchange' in window) { <span id="L369" class="LineNr"> 369 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0x70</span>/x <span class="Constant">0</span>/y <span id="L370" class="LineNr"> 370 </span> <span class="PreProc">var</span> top-index/eax: int <span class="Special"><-</span> copy max <span id="L371" class="LineNr"> 371 </span> top-index <span class="Special"><-</span> subtract curr <span class="muComment"># happy accident: 1-based</span> -<span id="L372" class="LineNr"> 372 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, top-index, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg -<span id="L373" class="LineNr"> 373 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"/"</span>, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg -<span id="L374" class="LineNr"> 374 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, max, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L372" class="LineNr"> 372 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, top-index, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L373" class="LineNr"> 373 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"/"</span>, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L374" class="LineNr"> 374 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, max, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg <span id="L375" class="LineNr"> 375 </span><span class="Delimiter">}</span> <span id="L376" class="LineNr"> 376 </span> <span id="L377" class="LineNr"> 377 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L377'>render-search-input</a></span> <a href='../500fake-screen.mu.html#L16'>screen</a>: (addr <a href='../500fake-screen.mu.html#L16'>screen</a>), _env: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="Delimiter">{</span> <span id="L378" class="LineNr"> 378 </span> <span class="PreProc">var</span> env/<span class="muRegEsi">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="Special"><-</span> copy _env <span id="L379" class="LineNr"> 379 </span> <span class="PreProc">var</span> cursor-in-search?/<span class="muRegEcx">ecx</span>: (addr boolean) <span class="Special"><-</span> get env, cursor-in-search? <span id="L380" class="LineNr"> 380 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0x22</span>/x=search-position-x <span class="Constant">1</span>/y -<span id="L381" class="LineNr"> 381 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"search "</span>, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L381" class="LineNr"> 381 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"search "</span>, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg <span id="L382" class="LineNr"> 382 </span> <span class="PreProc">var</span> search-terms-ah/eax: (addr handle <a href='../514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get env, search-terms <span id="L383" class="LineNr"> 383 </span> <span class="PreProc">var</span> search-terms/eax: (addr <a href='../514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *search-terms-ah <span id="L384" class="LineNr"> 384 </span> <a href='../514gap-buffer.mu.html#L1014'>rewind-gap-buffer</a> search-terms @@ -451,7 +451,7 @@ if ('onhashchange' in window) { <span id="L387" class="LineNr"> 387 </span> compare x, <span class="Constant">0x4a</span>/end-search <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> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L390" class="LineNr"> 390 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L162'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x5f</span>/underscore, <span class="Constant">0</span>/xmin <span class="Constant">1</span>/ymin, <span class="Constant">0x80</span>/xmax, <span class="Constant">1</span>/ymax, x, <span class="Constant">1</span>/y, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg +<span id="L390" class="LineNr"> 390 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L155'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x5f</span>/underscore, <span class="Constant">0</span>/xmin <span class="Constant">1</span>/ymin, <span class="Constant">0x80</span>/xmax, <span class="Constant">1</span>/ymax, x, <span class="Constant">1</span>/y, <span class="Constant">0xf</span>/fg <span class="Constant">0</span>/bg <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><span class="Delimiter">}</span> @@ -487,30 +487,30 @@ if ('onhashchange' in window) { <span id="L423" class="LineNr"> 423 </span> <span class="PreProc">var</span> num-tabs/<span class="muRegEdi">edi</span>: (addr int) <span class="Special"><-</span> get env, current-tab-index <span id="L424" class="LineNr"> 424 </span> compare *num-tabs, <span class="Constant">0</span> <span id="L425" class="LineNr"> 425 </span> <span class="PreProc">break-if-<=</span> -<span id="L426" class="LineNr"> 426 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Esc "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg -<span id="L427" class="LineNr"> 427 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go back "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L426" class="LineNr"> 426 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Esc "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg +<span id="L427" class="LineNr"> 427 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go back "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg <span id="L428" class="LineNr"> 428 </span> <span class="Delimiter">}</span> -<span id="L429" class="LineNr"> 429 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" / "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg -<span id="L430" class="LineNr"> 430 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" search "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg -<span id="L431" class="LineNr"> 431 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Tab "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg -<span id="L432" class="LineNr"> 432 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go to channels "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg -<span id="L433" class="LineNr"> 433 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Enter "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg -<span id="L434" class="LineNr"> 434 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go to thread "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L429" class="LineNr"> 429 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" / "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg +<span id="L430" class="LineNr"> 430 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" search "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L431" class="LineNr"> 431 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Tab "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg +<span id="L432" class="LineNr"> 432 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go to channels "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L433" class="LineNr"> 433 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Enter "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg +<span id="L434" class="LineNr"> 434 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go to thread "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg <span id="L435" class="LineNr"> 435 </span> <span class="Delimiter">{</span> <span id="L436" class="LineNr"> 436 </span> <span class="Delimiter">{</span> <span id="L437" class="LineNr"> 437 </span> <span class="PreProc">var</span> is-all-items-or-channel?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L945'>current-tab-is-all-items-or-channel?</a> _env <span id="L438" class="LineNr"> 438 </span> compare is-all-items-or-channel?, <span class="Constant">0</span>/false <span id="L439" class="LineNr"> 439 </span> <span class="Delimiter">}</span> <span id="L440" class="LineNr"> 440 </span> <span class="PreProc">break-if-=</span> -<span id="L441" class="LineNr"> 441 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^h "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg -<span id="L442" class="LineNr"> 442 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" hide thread "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg -<span id="L443" class="LineNr"> 443 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^u "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg -<span id="L444" class="LineNr"> 444 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" unhide all "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L441" class="LineNr"> 441 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^h "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg +<span id="L442" class="LineNr"> 442 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" hide thread "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L443" class="LineNr"> 443 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^u "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg +<span id="L444" class="LineNr"> 444 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" unhide all "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg <span id="L445" class="LineNr"> 445 </span> <span class="Delimiter">}</span> -<span id="L446" class="LineNr"> 446 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^b "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg -<span id="L447" class="LineNr"> 447 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" << page "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg -<span id="L448" class="LineNr"> 448 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^f "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg -<span id="L449" class="LineNr"> 449 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" page >> "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L446" class="LineNr"> 446 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^b "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg +<span id="L447" class="LineNr"> 447 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" << page "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L448" class="LineNr"> 448 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^f "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg +<span id="L449" class="LineNr"> 449 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" page >> "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg <span id="L450" class="LineNr"> 450 </span><span class="Delimiter">}</span> <span id="L451" class="LineNr"> 451 </span> <span id="L452" class="LineNr"> 452 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L452'>render-channels-menu</a></span> <a href='../500fake-screen.mu.html#L16'>screen</a>: (addr <a href='../500fake-screen.mu.html#L16'>screen</a>), _env: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="Delimiter">{</span> @@ -524,15 +524,15 @@ if ('onhashchange' in window) { <span id="L460" class="LineNr"> 460 </span> <span class="PreProc">var</span> num-tabs/<span class="muRegEdi">edi</span>: (addr int) <span class="Special"><-</span> get env, current-tab-index <span id="L461" class="LineNr"> 461 </span> compare *num-tabs, <span class="Constant">0</span> <span id="L462" class="LineNr"> 462 </span> <span class="PreProc">break-if-<=</span> -<span id="L463" class="LineNr"> 463 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Esc "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg -<span id="L464" class="LineNr"> 464 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go back "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L463" class="LineNr"> 463 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Esc "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg +<span id="L464" class="LineNr"> 464 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go back "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg <span id="L465" class="LineNr"> 465 </span> <span class="Delimiter">}</span> -<span id="L466" class="LineNr"> 466 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" / "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg -<span id="L467" class="LineNr"> 467 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" search "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg -<span id="L468" class="LineNr"> 468 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Tab "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg -<span id="L469" class="LineNr"> 469 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go to items "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg -<span id="L470" class="LineNr"> 470 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Enter "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg -<span id="L471" class="LineNr"> 471 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" select "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L466" class="LineNr"> 466 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" / "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg +<span id="L467" class="LineNr"> 467 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" search "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L468" class="LineNr"> 468 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Tab "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg +<span id="L469" class="LineNr"> 469 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go to items "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L470" class="LineNr"> 470 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Enter "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg +<span id="L471" class="LineNr"> 471 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" select "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg <span id="L472" class="LineNr"> 472 </span><span class="Delimiter">}</span> <span id="L473" class="LineNr"> 473 </span> <span id="L474" class="LineNr"> 474 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L474'>render-search-menu</a></span> <a href='../500fake-screen.mu.html#L16'>screen</a>: (addr <a href='../500fake-screen.mu.html#L16'>screen</a>), _env: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="Delimiter">{</span> @@ -541,20 +541,20 @@ if ('onhashchange' in window) { <span id="L477" class="LineNr"> 477 </span> width, y <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L75'>screen-size</a> <a href='../500fake-screen.mu.html#L16'>screen</a> <span id="L478" class="LineNr"> 478 </span> y <span class="Special"><-</span> decrement <span id="L479" class="LineNr"> 479 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">2</span>/x, y -<span id="L480" class="LineNr"> 480 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Esc "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg -<span id="L481" class="LineNr"> 481 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" cancel "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg -<span id="L482" class="LineNr"> 482 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Enter "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg -<span id="L483" class="LineNr"> 483 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" select "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg -<span id="L484" class="LineNr"> 484 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^a "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0xf</span>/bg -<span id="L485" class="LineNr"> 485 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" << "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg -<span id="L486" class="LineNr"> 486 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^b "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0xf</span>/bg -<span id="L487" class="LineNr"> 487 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" <word "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg -<span id="L488" class="LineNr"> 488 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^f "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0xf</span>/bg -<span id="L489" class="LineNr"> 489 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" word> "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg -<span id="L490" class="LineNr"> 490 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^e "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0xf</span>/bg -<span id="L491" class="LineNr"> 491 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" >> "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg -<span id="L492" class="LineNr"> 492 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^u "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0xf</span>/bg -<span id="L493" class="LineNr"> 493 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" clear "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L480" class="LineNr"> 480 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Esc "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg +<span id="L481" class="LineNr"> 481 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" cancel "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L482" class="LineNr"> 482 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" Enter "</span>, width, <span class="Constant">0</span>/fg <span class="Constant">0xf</span>/bg +<span id="L483" class="LineNr"> 483 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" select "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L484" class="LineNr"> 484 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^a "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0xf</span>/bg +<span id="L485" class="LineNr"> 485 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" << "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L486" class="LineNr"> 486 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^b "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0xf</span>/bg +<span id="L487" class="LineNr"> 487 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" <word "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L488" class="LineNr"> 488 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^f "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0xf</span>/bg +<span id="L489" class="LineNr"> 489 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" word> "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L490" class="LineNr"> 490 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^e "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0xf</span>/bg +<span id="L491" class="LineNr"> 491 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" >> "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L492" class="LineNr"> 492 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^u "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0xf</span>/bg +<span id="L493" class="LineNr"> 493 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" clear "</span>, width, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg <span id="L494" class="LineNr"> 494 </span><span class="Delimiter">}</span> <span id="L495" class="LineNr"> 495 </span> <span id="L496" class="LineNr"> 496 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L496'>render-item</a></span> <a href='../500fake-screen.mu.html#L16'>screen</a>: (addr <a href='../500fake-screen.mu.html#L16'>screen</a>), _item: (addr <a href='main.mu.html#L14'>item</a>), _users: (addr array <a href='main.mu.html#L7'>user</a>), show-cursor?: boolean, y: int, screen-height: int<span class="PreProc"> -> </span>_/<span class="muRegEcx">ecx</span>: int <span class="Delimiter">{</span> @@ -586,8 +586,8 @@ if ('onhashchange' in window) { <span id="L522" class="LineNr"> 522 </span> x <span class="Special"><-</span> add <span class="Constant">0x40</span>/channel-offset-x <span id="L523" class="LineNr"> 523 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, x y <span id="L524" class="LineNr"> 524 </span> <span class="Delimiter">}</span> -<span id="L525" class="LineNr"> 525 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"#"</span>, <span class="Constant">7</span>/grey <span class="Constant">0</span>/black -<span id="L526" class="LineNr"> 526 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, channel-name, <span class="Constant">7</span>/grey <span class="Constant">0</span>/black +<span id="L525" class="LineNr"> 525 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"#"</span>, <span class="Constant">7</span>/grey <span class="Constant">0</span>/black +<span id="L526" class="LineNr"> 526 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, channel-name, <span class="Constant">7</span>/grey <span class="Constant">0</span>/black <span id="L527" class="LineNr"> 527 </span> <span class="muComment"># author name</span> <span id="L528" class="LineNr"> 528 </span> <span class="Delimiter">{</span> <span id="L529" class="LineNr"> 529 </span> <span class="PreProc">var</span> author-real-name-ah/eax: (addr handle array byte) <span class="Special"><-</span> get author, real-name @@ -595,7 +595,7 @@ if ('onhashchange' in window) { <span id="L531" class="LineNr"> 531 </span> <span class="PreProc">var</span> x/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0x20</span>/main-panel-hor <span id="L532" class="LineNr"> 532 </span> x <span class="Special"><-</span> add <span class="Constant">0x10</span>/avatar-space-hor <span id="L533" class="LineNr"> 533 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, x y -<span id="L534" class="LineNr"> 534 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, author-real-name, <span class="Constant">0xf</span>/white <span class="Constant">0</span>/black +<span id="L534" class="LineNr"> 534 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, author-real-name, <span class="Constant">0xf</span>/white <span class="Constant">0</span>/black <span id="L535" class="LineNr"> 535 </span> <span class="Delimiter">}</span> <span id="L536" class="LineNr"> 536 </span> increment y <span id="L537" class="LineNr"> 537 </span> <span class="muComment"># text</span> @@ -679,12 +679,12 @@ if ('onhashchange' in window) { <span id="L615" class="LineNr"> 615 </span> <span class="Delimiter">}</span> <span id="L616" class="LineNr"> 616 </span> compare c, <span class="Constant">0xffffffff</span>/end-of-file <span id="L617" class="LineNr"> 617 </span> <span class="PreProc">break-if-=</span> -<span id="L618" class="LineNr"> 618 </span> $draw-json-stream-wrapping-right-then-down:render-grapheme: <span class="Delimiter">{</span> +<span id="L618" class="LineNr"> 618 </span> $draw-json-stream-wrapping-right-then-down:render-code-point-utf8: <span class="Delimiter">{</span> <span id="L619" class="LineNr"> 619 </span> compare c, <span class="Constant">0x5c</span>/backslash <span id="L620" class="LineNr"> 620 </span> <span class="Delimiter">{</span> <span id="L621" class="LineNr"> 621 </span> <span class="PreProc">break-if-!=</span> <span id="L622" class="LineNr"> 622 </span> xcurr, ycurr <span class="Special"><-</span> <a href='environment.mu.html#L682'>render-json-escaped-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, stream, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color -<span id="L623" class="LineNr"> 623 </span> <span class="PreProc">break</span> $draw-json-stream-wrapping-right-then-down:render-grapheme +<span id="L623" class="LineNr"> 623 </span> <span class="PreProc">break</span> $draw-json-stream-wrapping-right-then-down:render-code-point-utf8 <span id="L624" class="LineNr"> 624 </span> <span class="Delimiter">}</span> <span id="L625" class="LineNr"> 625 </span> compare c, <span class="Constant">0xa</span>/newline <span id="L626" class="LineNr"> 626 </span> <span class="Delimiter">{</span> @@ -693,7 +693,7 @@ if ('onhashchange' in window) { <span id="L629" class="LineNr"> 629 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L94'>draw-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x20</span>/space, xcurr, ycurr, color, background-color <span id="L630" class="LineNr"> 630 </span> xcurr <span class="Special"><-</span> copy xmin <span id="L631" class="LineNr"> 631 </span> ycurr <span class="Special"><-</span> increment -<span id="L632" class="LineNr"> 632 </span> <span class="PreProc">break</span> $draw-json-stream-wrapping-right-then-down:render-grapheme +<span id="L632" class="LineNr"> 632 </span> <span class="PreProc">break</span> $draw-json-stream-wrapping-right-then-down:render-code-point-utf8 <span id="L633" class="LineNr"> 633 </span> <span class="Delimiter">}</span> <span id="L634" class="LineNr"> 634 </span> <span class="PreProc">var</span> offset/eax: int <span class="Special"><-</span> <a href='../500fake-screen.mu.html#L94'>draw-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, c, xcurr, ycurr, color, background-color <span id="L635" class="LineNr"> 635 </span> <span class="muComment"># overlay a combining character if necessary</span> @@ -703,8 +703,8 @@ if ('onhashchange' in window) { <span id="L639" class="LineNr"> 639 </span> <span class="PreProc">break-if-!=</span> <span id="L640" class="LineNr"> 640 </span> <span class="muComment"># read a character</span> <span id="L641" class="LineNr"> 641 </span> <span class="muComment"># no combining character allowed here</span> -<span id="L642" class="LineNr"> 642 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> stream -<span id="L643" class="LineNr"> 643 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> <a href='../403unicode.mu.html#L56'>to-code-point</a> g +<span id="L642" class="LineNr"> 642 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> stream +<span id="L643" class="LineNr"> 643 </span> <span class="PreProc">var</span> c/eax: code-point <span class="Special"><-</span> <a href='../403unicode.mu.html#L49'>to-code-point</a> g <span id="L644" class="LineNr"> 644 </span> <span class="muComment"># if not a combining character, save for next iteration and loop</span> <span id="L645" class="LineNr"> 645 </span> <span class="Delimiter">{</span> <span id="L646" class="LineNr"> 646 </span> <span class="PreProc">var</span> <a href='../103glyph.subx.html#L157'>combining-code-point?</a>/eax: boolean <span class="Special"><-</span> <a href='../103glyph.subx.html#L157'>combining-code-point?</a> c @@ -736,8 +736,8 @@ if ('onhashchange' in window) { <span id="L672" class="LineNr"> 672 </span> <span id="L673" class="LineNr"> 673 </span><span class="muComment"># just return a different register</span> <span id="L674" class="LineNr"> 674 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L674'>read-json-code-point</a></span> stream: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: code-point <span class="Delimiter">{</span> -<span id="L675" class="LineNr"> 675 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> stream -<span id="L676" class="LineNr"> 676 </span> <span class="PreProc">var</span> result/eax: code-point <span class="Special"><-</span> <a href='../403unicode.mu.html#L56'>to-code-point</a> g +<span id="L675" class="LineNr"> 675 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> stream +<span id="L676" class="LineNr"> 676 </span> <span class="PreProc">var</span> result/eax: code-point <span class="Special"><-</span> <a href='../403unicode.mu.html#L49'>to-code-point</a> g <span id="L677" class="LineNr"> 677 </span> <span class="PreProc">return</span> result <span id="L678" class="LineNr"> 678 </span><span class="Delimiter">}</span> <span id="L679" class="LineNr"> 679 </span> @@ -790,7 +790,7 @@ if ('onhashchange' in window) { <span id="L726" class="LineNr"> 726 </span> <span class="Delimiter">}</span> <span id="L727" class="LineNr"> 727 </span> <span class="muComment"># most characters escape to themselves</span> <span id="L728" class="LineNr"> 728 </span> <span class="muComment"># combining characters not supported after backslash</span> -<span id="L729" class="LineNr"> 729 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L162'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, g, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color +<span id="L729" class="LineNr"> 729 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L155'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, g, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color <span id="L730" class="LineNr"> 730 </span> <span class="PreProc">var</span> y/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy y <span id="L731" class="LineNr"> 731 </span> <span class="PreProc">return</span> x, y <span id="L732" class="LineNr"> 732 </span><span class="Delimiter">}</span> @@ -819,7 +819,7 @@ if ('onhashchange' in window) { <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> x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L757" class="LineNr"> 757 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L758" class="LineNr"> 758 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L162'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x2d</span>/dash, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color +<span id="L758" class="LineNr"> 758 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L155'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x2d</span>/dash, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color <span id="L759" class="LineNr"> 759 </span> <span class="PreProc">return</span> x, y <span id="L760" class="LineNr"> 760 </span> <span class="Delimiter">}</span> <span id="L761" class="LineNr"> 761 </span> <span class="muComment"># \u2014 = -</span> @@ -829,7 +829,7 @@ if ('onhashchange' in window) { <span id="L765" class="LineNr"> 765 </span> <span class="PreProc">break-if-=</span> <span id="L766" class="LineNr"> 766 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L767" class="LineNr"> 767 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L768" class="LineNr"> 768 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L162'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x2d</span>/dash, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color +<span id="L768" class="LineNr"> 768 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L155'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x2d</span>/dash, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color <span id="L769" class="LineNr"> 769 </span> <span class="PreProc">return</span> x, y <span id="L770" class="LineNr"> 770 </span> <span class="Delimiter">}</span> <span id="L771" class="LineNr"> 771 </span> <span class="muComment"># \u2018 = '</span> @@ -839,7 +839,7 @@ if ('onhashchange' in window) { <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> x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L777" class="LineNr"> 777 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L778" class="LineNr"> 778 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L162'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x27</span>/quote, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color +<span id="L778" class="LineNr"> 778 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L155'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x27</span>/quote, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color <span id="L779" class="LineNr"> 779 </span> <span class="PreProc">return</span> x, y <span id="L780" class="LineNr"> 780 </span> <span class="Delimiter">}</span> <span id="L781" class="LineNr"> 781 </span> <span class="muComment"># \u2019 = '</span> @@ -849,7 +849,7 @@ if ('onhashchange' in window) { <span id="L785" class="LineNr"> 785 </span> <span class="PreProc">break-if-=</span> <span id="L786" class="LineNr"> 786 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L787" class="LineNr"> 787 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L788" class="LineNr"> 788 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L162'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x27</span>/quote, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color +<span id="L788" class="LineNr"> 788 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L155'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x27</span>/quote, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color <span id="L789" class="LineNr"> 789 </span> <span class="PreProc">return</span> x, y <span id="L790" class="LineNr"> 790 </span> <span class="Delimiter">}</span> <span id="L791" class="LineNr"> 791 </span> <span class="muComment"># \u201c = "</span> @@ -859,7 +859,7 @@ if ('onhashchange' in window) { <span id="L795" class="LineNr"> 795 </span> <span class="PreProc">break-if-=</span> <span id="L796" class="LineNr"> 796 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L797" class="LineNr"> 797 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L798" class="LineNr"> 798 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L162'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x22</span>/dquote, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color +<span id="L798" class="LineNr"> 798 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L155'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x22</span>/dquote, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color <span id="L799" class="LineNr"> 799 </span> <span class="PreProc">return</span> x, y <span id="L800" class="LineNr"> 800 </span> <span class="Delimiter">}</span> <span id="L801" class="LineNr"> 801 </span> <span class="muComment"># \u201d = "</span> @@ -869,7 +869,7 @@ if ('onhashchange' in window) { <span id="L805" class="LineNr"> 805 </span> <span class="PreProc">break-if-=</span> <span id="L806" class="LineNr"> 806 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L807" class="LineNr"> 807 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L808" class="LineNr"> 808 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L162'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x22</span>/dquote, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color +<span id="L808" class="LineNr"> 808 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L155'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x22</span>/dquote, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color <span id="L809" class="LineNr"> 809 </span> <span class="PreProc">return</span> x, y <span id="L810" class="LineNr"> 810 </span> <span class="Delimiter">}</span> <span id="L811" class="LineNr"> 811 </span> <span class="muComment"># \u2022 = *</span> @@ -879,7 +879,7 @@ if ('onhashchange' in window) { <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> x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L817" class="LineNr"> 817 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L818" class="LineNr"> 818 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L162'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x2a</span>/asterisk, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color +<span id="L818" class="LineNr"> 818 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L155'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x2a</span>/asterisk, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color <span id="L819" class="LineNr"> 819 </span> <span class="PreProc">return</span> x, y <span id="L820" class="LineNr"> 820 </span> <span class="Delimiter">}</span> <span id="L821" class="LineNr"> 821 </span> <span class="muComment"># \u2026 = ...</span> @@ -889,14 +889,14 @@ if ('onhashchange' in window) { <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> x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L827" class="LineNr"> 827 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L828" class="LineNr"> 828 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L188'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"..."</span>, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color +<span id="L828" class="LineNr"> 828 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L181'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"..."</span>, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color <span id="L829" class="LineNr"> 829 </span> <span class="PreProc">return</span> x, y <span id="L830" class="LineNr"> 830 </span> <span class="Delimiter">}</span> <span id="L831" class="LineNr"> 831 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> <a href='../118parse-hex-int.subx.html#L354'>parse-hex-int</a> hex-digits <span id="L832" class="LineNr"> 832 </span> <span class="PreProc">var</span> c/<span class="muRegEdx">edx</span>: code-point <span class="Special"><-</span> copy n <span id="L833" class="LineNr"> 833 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L834" class="LineNr"> 834 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L835" class="LineNr"> 835 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L162'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, c, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color +<span id="L835" class="LineNr"> 835 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L155'>render-code-point</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, c, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color <span id="L836" class="LineNr"> 836 </span> <span class="PreProc">return</span> x, y <span id="L837" class="LineNr"> 837 </span><span class="Delimiter">}</span> <span id="L838" class="LineNr"> 838 </span> @@ -1076,7 +1076,7 @@ if ('onhashchange' in window) { <span id="L1012" class="LineNr">1012 </span> <span class="muComment"># otherwise delegate</span> <span id="L1013" class="LineNr">1013 </span> <span class="PreProc">var</span> search-terms-ah/eax: (addr handle <a href='../514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get env, search-terms <span id="L1014" class="LineNr">1014 </span> <span class="PreProc">var</span> search-terms/eax: (addr <a href='../514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *search-terms-ah -<span id="L1015" class="LineNr">1015 </span> <span class="PreProc">var</span> g/<span class="muRegEcx">ecx</span>: grapheme <span class="Special"><-</span> copy key +<span id="L1015" class="LineNr">1015 </span> <span class="PreProc">var</span> g/<span class="muRegEcx">ecx</span>: code-point-utf8 <span class="Special"><-</span> copy key <span id="L1016" class="LineNr">1016 </span> <a href='../514gap-buffer.mu.html#L1203'>edit-gap-buffer</a> search-terms, g <span id="L1017" class="LineNr">1017 </span><span class="Delimiter">}</span> <span id="L1018" class="LineNr">1018 </span> diff --git a/html/browse-slack/main.mu.html b/html/browse-slack/main.mu.html index 649d0f1f..1fc96174 100644 --- a/html/browse-slack/main.mu.html +++ b/html/browse-slack/main.mu.html @@ -122,11 +122,11 @@ if ('onhashchange' in window) { <span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> sector-count/eax: int <span class="Special"><-</span> copy <span class="Constant">0x400</span> <span class="muComment"># test_data</span> <span id="L59" class="LineNr"> 59 </span><span class="CommentedCode">#? var sector-count/eax: int <- copy 0x20000 # largest size tested; slow</span> <span id="L60" class="LineNr"> 60 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0x20</span>/x <span class="Constant">0</span>/y <span class="muComment"># aborts clobber the screen starting x=0</span> -<span id="L61" class="LineNr"> 61 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"loading "</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L62" class="LineNr"> 62 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, sector-count, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L63" class="LineNr"> 63 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" sectors from data disk.."</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L61" class="LineNr"> 61 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"loading "</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L62" class="LineNr"> 62 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, sector-count, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L63" class="LineNr"> 63 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" sectors from data disk.."</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L64" class="LineNr"> 64 </span> <a href='../510disk.mu.html#L1'>load-sectors</a> data-disk, <span class="Constant">0</span>/lba, sector-count, s -<span id="L65" class="LineNr"> 65 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"done"</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L65" class="LineNr"> 65 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"done"</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L66" class="LineNr"> 66 </span> <span class="muComment"># parse global data structures out of the stream</span> <span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> users-h: (handle array <a href='main.mu.html#L7'>user</a>) <span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> users-ah/eax: (addr handle array <a href='main.mu.html#L7'>user</a>) <span class="Special"><-</span> address users-h @@ -177,11 +177,11 @@ if ('onhashchange' in window) { <span id="L113" class="LineNr">113 </span> compare c, <span class="Constant">0</span> <span id="L114" class="LineNr">114 </span> <span class="PreProc">break-if-=</span> <span id="L115" class="LineNr">115 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0x20</span>/x <span class="Constant">1</span>/y -<span id="L116" class="LineNr">116 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"parsed "</span> <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L117" class="LineNr">117 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, user-idx, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L118" class="LineNr">118 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" users, "</span> <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L119" class="LineNr">119 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, item-idx, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L120" class="LineNr">120 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" posts/comments"</span> <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L116" class="LineNr">116 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"parsed "</span> <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L117" class="LineNr">117 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, user-idx, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L118" class="LineNr">118 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" users, "</span> <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L119" class="LineNr">119 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, item-idx, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L120" class="LineNr">120 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" posts/comments"</span> <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg <span id="L121" class="LineNr">121 </span> <a href='../106stream.subx.html#L20'>clear-stream</a> record <span id="L122" class="LineNr">122 </span> <a href='main.mu.html#L142'>parse-record</a> in, record <span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> user?/eax: boolean <span class="Special"><-</span> <a href='main.mu.html#L178'>user-record?</a> record @@ -210,7 +210,7 @@ if ('onhashchange' in window) { <span id="L146" class="LineNr">146 </span> <span class="PreProc">break-if-=</span> <span id="L147" class="LineNr">147 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0x20</span> <span class="Constant">0x10</span> <span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> c/eax: int <span class="Special"><-</span> copy paren -<span id="L149" class="LineNr">149 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen c, <span class="Constant">5</span>/fg <span class="Constant">0</span>/bg +<span id="L149" class="LineNr">149 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen c, <span class="Constant">5</span>/fg <span class="Constant">0</span>/bg <span id="L150" class="LineNr">150 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"parse-record: ("</span> <span id="L151" class="LineNr">151 </span> <span class="Delimiter">}</span> <span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> paren-int/eax: int <span class="Special"><-</span> copy paren diff --git a/html/linux/101_write.subx.html b/html/linux/101_write.subx.html index c9e0afe4..c1b5cfd5 100644 --- a/html/linux/101_write.subx.html +++ b/html/linux/101_write.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxMinorFunction { color: #875f5f; } +.CommentedCode { color: #8a8a8a; } --> </style> @@ -64,9 +64,9 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> <span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> <span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># just exit; can't test _write just yet</span> -<span id="L9" class="LineNr"> 9 </span> bb/copy-to-ebx 0/imm32 -<span id="L10" class="LineNr">10 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L8" class="LineNr"> 8 </span><span class="CommentedCode">#? Entry: # just exit; can't test _write just yet</span> +<span id="L9" class="LineNr"> 9 </span><span class="CommentedCode">#? bb/copy-to-ebx 0/imm32</span> +<span id="L10" class="LineNr">10 </span><span class="CommentedCode">#? e8/call syscall_exit/disp32</span> <span id="L11" class="LineNr">11 </span> <span id="L12" class="LineNr">12 </span><span class="subxMinorFunction">_write</span>: <span class="subxComment"># fd: int, s: (addr array byte)</span> <span id="L13" class="LineNr">13 </span> <span class="subxS1Comment"># . prologue</span> @@ -77,7 +77,7 @@ if ('onhashchange' in window) { <span id="L18" class="LineNr">18 </span> 51/push-ecx <span id="L19" class="LineNr">19 </span> 52/push-edx <span id="L20" class="LineNr">20 </span> 53/push-ebx -<span id="L21" class="LineNr">21 </span> <span class="subxComment"># syscall(write, fd, (data) s+4, (size) *s)</span> +<span id="L21" class="LineNr">21 </span> <span class="subxComment"># syscall_write(fd, (data) s+4, (size) *s)</span> <span id="L22" class="LineNr">22 </span> <span class="subxS1Comment"># . ebx = fd</span> <span id="L23" class="LineNr">23 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ebx</span> <span id="L24" class="LineNr">24 </span> <span class="subxS1Comment"># . var data/ecx: (addr byte) = s+4</span> @@ -104,7 +104,7 @@ if ('onhashchange' in window) { <span id="L45" class="LineNr">45 </span> <span id="L46" class="LineNr">46 </span><span class="Constant">$_write:abort</span>: <span id="L47" class="LineNr">47 </span> <span class="subxComment"># can't write a message here for risk of an infinite loop, so we'll use a special exit code instead</span> -<span id="L48" class="LineNr">48 </span> <span class="subxS1Comment"># . syscall(exit, 255)</span> +<span id="L48" class="LineNr">48 </span> <span class="subxS1Comment"># . syscall_exit(255)</span> <span id="L49" class="LineNr">49 </span> bb/copy-to-ebx 0xff/imm32 <span id="L50" class="LineNr">50 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L51" class="LineNr">51 </span> <span class="subxComment"># never gets here</span> diff --git a/html/linux/102test.subx.html b/html/linux/102test.subx.html index 274a90c2..8a143b89 100644 --- a/html/linux/102test.subx.html +++ b/html/linux/102test.subx.html @@ -14,14 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.SpecialChar { color: #d70000; } -.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } --> </style> @@ -64,19 +65,19 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> <span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> <span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># manual test</span> -<span id="L9" class="LineNr"> 9 </span> <span class="subxComment"># check-ints-equal(34, 34)</span> -<span id="L10" class="LineNr"> 10 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L11" class="LineNr"> 11 </span> 68/push <span class="Constant">"error in check-ints-equal"</span>/imm32 -<span id="L12" class="LineNr"> 12 </span> 68/push 34/imm32 -<span id="L13" class="LineNr"> 13 </span> 68/push 34/imm32 -<span id="L14" class="LineNr"> 14 </span> <span class="subxS2Comment"># . . call</span> -<span id="L15" class="LineNr"> 15 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L16" class="LineNr"> 16 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L17" class="LineNr"> 17 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L18" class="LineNr"> 18 </span> <span class="subxComment"># syscall(exit, 0)</span> -<span id="L19" class="LineNr"> 19 </span> bb/copy-to-ebx 0/imm32 -<span id="L20" class="LineNr"> 20 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L8" class="LineNr"> 8 </span><span class="CommentedCode">#? Entry: # manual test</span> +<span id="L9" class="LineNr"> 9 </span><span class="CommentedCode">#? # check-ints-equal(34, 34)</span> +<span id="L10" class="LineNr"> 10 </span><span class="CommentedCode">#? # . . push args</span> +<span id="L11" class="LineNr"> 11 </span><span class="CommentedCode">#? 68/push "error in check-ints-equal"/imm32</span> +<span id="L12" class="LineNr"> 12 </span><span class="CommentedCode">#? 68/push 34/imm32</span> +<span id="L13" class="LineNr"> 13 </span><span class="CommentedCode">#? 68/push 34/imm32</span> +<span id="L14" class="LineNr"> 14 </span><span class="CommentedCode">#? # . . call</span> +<span id="L15" class="LineNr"> 15 </span><span class="CommentedCode">#? e8/call check-ints-equal/disp32</span> +<span id="L16" class="LineNr"> 16 </span><span class="CommentedCode">#? # . . discard args</span> +<span id="L17" class="LineNr"> 17 </span><span class="CommentedCode">#? 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 0xc/imm32 # add to esp</span> +<span id="L18" class="LineNr"> 18 </span><span class="CommentedCode">#? # syscall_exit(0)</span> +<span id="L19" class="LineNr"> 19 </span><span class="CommentedCode">#? bb/copy-to-ebx 0/imm32</span> +<span id="L20" class="LineNr"> 20 </span><span class="CommentedCode">#? e8/call syscall_exit/disp32</span> <span id="L21" class="LineNr"> 21 </span> <span id="L22" class="LineNr"> 22 </span><span class="subxComment"># print msg to stderr if a != b, otherwise print "."</span> <span id="L23" class="LineNr"> 23 </span><span class="subxFunction">check-ints-equal</span>: <span class="subxComment"># a: int, b: int, msg: (addr array byte)</span> diff --git a/html/linux/103kernel-string-equal.subx.html b/html/linux/103kernel-string-equal.subx.html index 1ad95420..54d4d20a 100644 --- a/html/linux/103kernel-string-equal.subx.html +++ b/html/linux/103kernel-string-equal.subx.html @@ -14,17 +14,18 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } -.Constant { color: #008787; } .SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.CommentedCode { color: #8a8a8a; } .subxMinorFunction { color: #875f5f; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -84,11 +85,11 @@ if ('onhashchange' in window) { <span id="L22" class="LineNr"> 22 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> <span id="L23" class="LineNr"> 23 </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="L24" class="LineNr"> 24 </span> -<span id="L25" class="LineNr"> 25 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run all tests</span> -<span id="L26" class="LineNr"> 26 </span> e8/call run-tests/disp32 <span class="subxComment"># 'run-tests' is a function created automatically by SubX. It calls all functions that start with 'test-'.</span> -<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># syscall(exit, Num-test-failures)</span> -<span id="L28" class="LineNr"> 28 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> -<span id="L29" class="LineNr"> 29 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L25" class="LineNr"> 25 </span><span class="CommentedCode">#? Entry: # run all tests</span> +<span id="L26" class="LineNr"> 26 </span><span class="CommentedCode">#? e8/call run-tests/disp32 # 'run-tests' is a function created automatically by SubX. It calls all functions that start with 'test-'.</span> +<span id="L27" class="LineNr"> 27 </span><span class="CommentedCode">#? # syscall_exit(Num-test-failures)</span> +<span id="L28" class="LineNr"> 28 </span><span class="CommentedCode">#? 8b/copy 0/mod/indirect 5/rm32/.disp32 . . 3/r32/ebx Num-test-failures/disp32 # copy *Num-test-failures to ebx</span> +<span id="L29" class="LineNr"> 29 </span><span class="CommentedCode">#? e8/call syscall_exit/disp32</span> <span id="L30" class="LineNr"> 30 </span> <span id="L31" class="LineNr"> 31 </span><span class="subxFunction">kernel-string-equal?</span>: <span class="subxComment"># s: (addr kernel-string), benchmark: (addr array byte) -> result/eax: boolean</span> <span id="L32" class="LineNr"> 32 </span> <span class="subxComment"># pseudocode:</span> diff --git a/html/linux/104new-segment.subx.html b/html/linux/104new-segment.subx.html index d0080976..5948db37 100644 --- a/html/linux/104new-segment.subx.html +++ b/html/linux/104new-segment.subx.html @@ -15,14 +15,14 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.subxS2Comment { color: #8a8a8a; } -.LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } .subxS1Comment { color: #0000af; } +.subxMinorFunction { color: #875f5f; } +.LineNr { } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } +.subxS2Comment { color: #8a8a8a; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.subxMinorFunction { color: #875f5f; } +.CommentedCode { color: #8a8a8a; } --> </style> @@ -76,26 +76,26 @@ if ('onhashchange' in window) { <span id="L16" class="LineNr">16 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> <span id="L17" class="LineNr">17 </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="L18" class="LineNr">18 </span> -<span id="L19" class="LineNr">19 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># manual test</span> -<span id="L20" class="LineNr">20 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor</span> -<span id="L21" class="LineNr">21 </span> 68/push 0/imm32/limit -<span id="L22" class="LineNr">22 </span> 68/push 0/imm32/curr -<span id="L23" class="LineNr">23 </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="L24" class="LineNr">24 </span> <span class="subxComment"># new-segment(0x1000, ad)</span> -<span id="L25" class="LineNr">25 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L26" class="LineNr">26 </span> 51/push-ecx -<span id="L27" class="LineNr">27 </span> 68/push 0x1000/imm32 -<span id="L28" class="LineNr">28 </span> <span class="subxS2Comment"># . . call</span> -<span id="L29" class="LineNr">29 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L30" class="LineNr">30 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L31" class="LineNr">31 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L32" class="LineNr">32 </span> <span class="subxComment"># var eax: (addr _) = ad->curr</span> -<span id="L33" class="LineNr">33 </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="L34" class="LineNr">34 </span> <span class="subxComment"># write to *eax to check that we have access to the newly-allocated segment</span> -<span id="L35" class="LineNr">35 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x34/imm32 <span class="subxComment"># copy to *eax</span> -<span id="L36" class="LineNr">36 </span> <span class="subxComment"># syscall(exit, eax)</span> -<span id="L37" class="LineNr">37 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> -<span id="L38" class="LineNr">38 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L19" class="LineNr">19 </span><span class="CommentedCode">#? Entry: # manual test</span> +<span id="L20" class="LineNr">20 </span><span class="CommentedCode">#? # var ad/ecx: allocation-descriptor</span> +<span id="L21" class="LineNr">21 </span><span class="CommentedCode">#? 68/push 0/imm32/limit</span> +<span id="L22" class="LineNr">22 </span><span class="CommentedCode">#? 68/push 0/imm32/curr</span> +<span id="L23" class="LineNr">23 </span><span class="CommentedCode">#? 89/copy 3/mod/direct 1/rm32/ecx . . . 4/r32/esp . . # copy esp to ecx</span> +<span id="L24" class="LineNr">24 </span><span class="CommentedCode">#? # new-segment(0x1000, ad)</span> +<span id="L25" class="LineNr">25 </span><span class="CommentedCode">#? # . . push args</span> +<span id="L26" class="LineNr">26 </span><span class="CommentedCode">#? 51/push-ecx</span> +<span id="L27" class="LineNr">27 </span><span class="CommentedCode">#? 68/push 0x1000/imm32</span> +<span id="L28" class="LineNr">28 </span><span class="CommentedCode">#? # . . call</span> +<span id="L29" class="LineNr">29 </span><span class="CommentedCode">#? e8/call new-segment/disp32</span> +<span id="L30" class="LineNr">30 </span><span class="CommentedCode">#? # . . discard args</span> +<span id="L31" class="LineNr">31 </span><span class="CommentedCode">#? 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp</span> +<span id="L32" class="LineNr">32 </span><span class="CommentedCode">#? # var eax: (addr _) = ad->curr</span> +<span id="L33" class="LineNr">33 </span><span class="CommentedCode">#? 8b/copy 0/mod/indirect 1/rm32/ecx . . . 0/r32/eax . . # copy *ecx to eax</span> +<span id="L34" class="LineNr">34 </span><span class="CommentedCode">#? # write to *eax to check that we have access to the newly-allocated segment</span> +<span id="L35" class="LineNr">35 </span><span class="CommentedCode">#? c7 0/subop/copy 0/mod/direct 0/rm32/eax . . . . . 0x34/imm32 # copy to *eax</span> +<span id="L36" class="LineNr">36 </span><span class="CommentedCode">#? # syscall_exit(eax)</span> +<span id="L37" class="LineNr">37 </span><span class="CommentedCode">#? 89/copy 3/mod/direct 3/rm32/ebx . . . 0/r32/eax . . # copy eax to ebx</span> +<span id="L38" class="LineNr">38 </span><span class="CommentedCode">#? e8/call syscall_exit/disp32</span> <span id="L39" class="LineNr">39 </span> <span id="L40" class="LineNr">40 </span><span class="subxFunction">new-segment</span>: <span class="subxComment"># len: int, ad: (addr allocation-descriptor)</span> <span id="L41" class="LineNr">41 </span> <span class="subxS1Comment"># . prologue</span> diff --git a/html/linux/105string-equal.subx.html b/html/linux/105string-equal.subx.html index 1213f8b4..a842941c 100644 --- a/html/linux/105string-equal.subx.html +++ b/html/linux/105string-equal.subx.html @@ -14,16 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.subxH1Comment { color: #005faf; text-decoration: underline; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .CommentedCode { color: #8a8a8a; } --> </style> @@ -67,12 +66,12 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> <span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> <span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run all tests</span> -<span id="L9" class="LineNr"> 9 </span><span class="CommentedCode">#? e8/call test-compare-equal-strings/disp32</span> -<span id="L10" class="LineNr"> 10 </span> e8/call run-tests/disp32 <span class="subxComment"># 'run-tests' is a function created automatically by SubX. It calls all functions that start with 'test-'.</span> -<span id="L11" class="LineNr"> 11 </span> <span class="subxComment"># syscall(exit, Num-test-failures)</span> -<span id="L12" class="LineNr"> 12 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> -<span id="L13" class="LineNr"> 13 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L8" class="LineNr"> 8 </span><span class="CommentedCode">#? Entry: # run all tests</span> +<span id="L9" class="LineNr"> 9 </span><span class="CommentedCode">#? #? e8/call test-compare-equal-strings/disp32</span> +<span id="L10" class="LineNr"> 10 </span><span class="CommentedCode">#? e8/call run-tests/disp32 # 'run-tests' is a function created automatically by SubX. It calls all functions that start with 'test-'.</span> +<span id="L11" class="LineNr"> 11 </span><span class="CommentedCode">#? # syscall_exit(Num-test-failures)</span> +<span id="L12" class="LineNr"> 12 </span><span class="CommentedCode">#? 8b/copy 0/mod/indirect 5/rm32/.disp32 . . 3/r32/ebx Num-test-failures/disp32 # copy *Num-test-failures to ebx</span> +<span id="L13" class="LineNr"> 13 </span><span class="CommentedCode">#? e8/call syscall_exit/disp32</span> <span id="L14" class="LineNr"> 14 </span> <span id="L15" class="LineNr"> 15 </span><span class="subxFunction">string-equal?</span>: <span class="subxComment"># s: (addr array byte), benchmark: (addr array byte) -> result/eax: boolean</span> <span id="L16" class="LineNr"> 16 </span> <span class="subxComment"># pseudocode:</span> diff --git a/html/linux/106stream.subx.html b/html/linux/106stream.subx.html index 7b45bc20..64db1c7b 100644 --- a/html/linux/106stream.subx.html +++ b/html/linux/106stream.subx.html @@ -14,14 +14,14 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> diff --git a/html/linux/107trace.subx.html b/html/linux/107trace.subx.html index 6d689eb0..bdceffb1 100644 --- a/html/linux/107trace.subx.html +++ b/html/linux/107trace.subx.html @@ -14,17 +14,17 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxH1Comment { color: #005faf; text-decoration: underline; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.subxMinorFunction { color: #875f5f; } .subxTest { color: #5f8700; } +.SpecialChar { color: #d70000; } +.subxMinorFunction { color: #875f5f; } +.subxFunction { color: #af5f00; text-decoration: underline; } .CommentedCode { color: #8a8a8a; } --> </style> @@ -1010,7 +1010,7 @@ if ('onhashchange' in window) { <span id="L947" class="LineNr">947 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L948" class="LineNr">948 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L949" class="LineNr">949 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L950" class="LineNr">950 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L950" class="LineNr">950 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L951" class="LineNr">951 </span> bb/copy-to-ebx 1/imm32 <span id="L952" class="LineNr">952 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L953" class="LineNr">953 </span> <span class="subxComment"># never gets here</span> diff --git a/html/linux/108write.subx.html b/html/linux/108write.subx.html index 8c16dd28..56c22251 100644 --- a/html/linux/108write.subx.html +++ b/html/linux/108write.subx.html @@ -14,15 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxMinorFunction { color: #875f5f; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.subxMinorFunction { color: #875f5f; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> diff --git a/html/linux/109stream-equal.subx.html b/html/linux/109stream-equal.subx.html index eaa851f0..61283a59 100644 --- a/html/linux/109stream-equal.subx.html +++ b/html/linux/109stream-equal.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> diff --git a/html/linux/110stop.subx.html b/html/linux/110stop.subx.html index 1819310f..c3469deb 100644 --- a/html/linux/110stop.subx.html +++ b/html/linux/110stop.subx.html @@ -14,15 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxMinorFunction { color: #875f5f; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.subxMinorFunction { color: #875f5f; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .CommentedCode { color: #8a8a8a; } --> </style> @@ -171,7 +171,7 @@ if ('onhashchange' in window) { <span id="L110" class="LineNr">110 </span> <span class="subxComment"># never gets here</span> <span id="L111" class="LineNr">111 </span> c3/return <span class="subxComment"># doesn't return to caller</span> <span id="L112" class="LineNr">112 </span><span class="Constant">$stop:real</span>: -<span id="L113" class="LineNr">113 </span> <span class="subxS1Comment"># . syscall(exit, value)</span> +<span id="L113" class="LineNr">113 </span> <span class="subxS1Comment"># . syscall_exit(value)</span> <span id="L114" class="LineNr">114 </span> 8b/copy 1/mod/*+disp8 4/rm32/sib 4/base/esp 4/index/none <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esp+8) to ebx</span> <span id="L115" class="LineNr">115 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L116" class="LineNr">116 </span><span class="Constant">$stop:end2</span>: diff --git a/html/linux/111read.subx.html b/html/linux/111read.subx.html index 994dd8db..d8925408 100644 --- a/html/linux/111read.subx.html +++ b/html/linux/111read.subx.html @@ -14,16 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxMinorFunction { color: #875f5f; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -271,7 +271,7 @@ if ('onhashchange' in window) { <span id="L210" class="LineNr">210 </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="L211" class="LineNr">211 </span> <span class="subxComment"># edx = s->size</span> <span id="L212" class="LineNr">212 </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="L213" class="LineNr">213 </span> <span class="subxComment"># syscall(read, fd, &s->data[s->write], s->size - s->write)</span> +<span id="L213" class="LineNr">213 </span> <span class="subxComment"># syscall_read(fd, &s->data[s->write], s->size - s->write)</span> <span id="L214" class="LineNr">214 </span> <span class="subxS2Comment"># . . fd: ebx</span> <span id="L215" class="LineNr">215 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ebx</span> <span id="L216" class="LineNr">216 </span> <span class="subxS2Comment"># . . data: ecx = &s->data[s->write]</span> diff --git a/html/linux/112read-byte.subx.html b/html/linux/112read-byte.subx.html index d6d8b054..1964acdf 100644 --- a/html/linux/112read-byte.subx.html +++ b/html/linux/112read-byte.subx.html @@ -14,17 +14,17 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } +.subxMinorFunction { color: #875f5f; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } -.subxMinorFunction { color: #875f5f; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -369,7 +369,7 @@ if ('onhashchange' in window) { <span id="L307" class="LineNr">307 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L308" class="LineNr">308 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L309" class="LineNr">309 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L310" class="LineNr">310 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L310" class="LineNr">310 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L311" class="LineNr">311 </span> bb/copy-to-ebx 1/imm32 <span id="L312" class="LineNr">312 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L313" class="LineNr">313 </span> <span class="subxComment"># never gets here</span> diff --git a/html/linux/113write-stream.subx.html b/html/linux/113write-stream.subx.html index 4fc8a14b..819ef388 100644 --- a/html/linux/113write-stream.subx.html +++ b/html/linux/113write-stream.subx.html @@ -15,15 +15,15 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxMinorFunction { color: #875f5f; } -.subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .CommentedCode { color: #8a8a8a; } +.subxTest { color: #5f8700; } --> </style> @@ -71,7 +71,7 @@ if ('onhashchange' in window) { <span id="L10" class="LineNr"> 10 </span><span class="CommentedCode">#? 68/push _test-stream2/imm32</span> <span id="L11" class="LineNr"> 11 </span><span class="CommentedCode">#? 68/push 1/imm32/stdout</span> <span id="L12" class="LineNr"> 12 </span><span class="CommentedCode">#? e8/call write-stream/disp32</span> -<span id="L13" class="LineNr"> 13 </span><span class="CommentedCode">#? # syscall(exit, Num-test-failures)</span> +<span id="L13" class="LineNr"> 13 </span><span class="CommentedCode">#? # syscall_exit(Num-test-failures)</span> <span id="L14" class="LineNr"> 14 </span><span class="CommentedCode">#? 8b/copy 0/mod/indirect 5/rm32/.disp32 . . 3/r32/ebx Num-test-failures/disp32 # copy *Num-test-failures to ebx</span> <span id="L15" class="LineNr"> 15 </span><span class="CommentedCode">#? e8/call syscall_exit/disp32</span> <span id="L16" class="LineNr"> 16 </span> @@ -152,7 +152,7 @@ if ('onhashchange' in window) { <span id="L91" class="LineNr"> 91 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to edi</span> <span id="L92" class="LineNr"> 92 </span> <span class="subxComment"># edx = s->write</span> <span id="L93" class="LineNr"> 93 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> -<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># syscall(write, fd, &s->data[s->read], s->write - s->read)</span> +<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># syscall_write(fd, &s->data[s->read], s->write - s->read)</span> <span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . fd: ebx</span> <span id="L96" class="LineNr"> 96 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ebx</span> <span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . data: ecx = &s->data[s->read]</span> @@ -187,7 +187,7 @@ if ('onhashchange' in window) { <span id="L126" class="LineNr">126 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L127" class="LineNr">127 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L128" class="LineNr">128 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L129" class="LineNr">129 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L129" class="LineNr">129 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L130" class="LineNr">130 </span> bb/copy-to-ebx 1/imm32 <span id="L131" class="LineNr">131 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L132" class="LineNr">132 </span> <span class="subxComment"># never gets here</span> diff --git a/html/linux/114error.subx.html b/html/linux/114error.subx.html index bc6b11af..d69ac5d8 100644 --- a/html/linux/114error.subx.html +++ b/html/linux/114error.subx.html @@ -14,13 +14,13 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> diff --git a/html/linux/115write-byte.subx.html b/html/linux/115write-byte.subx.html index 75309be4..cd2100da 100644 --- a/html/linux/115write-byte.subx.html +++ b/html/linux/115write-byte.subx.html @@ -14,17 +14,17 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } +.subxMinorFunction { color: #875f5f; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } -.subxMinorFunction { color: #875f5f; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -309,7 +309,7 @@ if ('onhashchange' in window) { <span id="L247" class="LineNr">247 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L248" class="LineNr">248 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L249" class="LineNr">249 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L250" class="LineNr">250 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L250" class="LineNr">250 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L251" class="LineNr">251 </span> bb/copy-to-ebx 1/imm32 <span id="L252" class="LineNr">252 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L253" class="LineNr">253 </span> <span class="subxComment"># never gets here</span> diff --git a/html/linux/116write-buffered.subx.html b/html/linux/116write-buffered.subx.html index bed5decb..8f941ecd 100644 --- a/html/linux/116write-buffered.subx.html +++ b/html/linux/116write-buffered.subx.html @@ -14,16 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } -.Constant { color: #008787; } .SpecialChar { color: #d70000; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> diff --git a/html/linux/117write-int-hex.subx.html b/html/linux/117write-int-hex.subx.html index c41cfcb3..020fe0ac 100644 --- a/html/linux/117write-int-hex.subx.html +++ b/html/linux/117write-int-hex.subx.html @@ -14,16 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } .Folded { color: #080808; background-color: #949494; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -458,7 +458,7 @@ if ('onhashchange' in window) { <span id="L397" class="LineNr">397 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L398" class="LineNr">398 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L399" class="LineNr">399 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L400" class="Folded">400 </span><span class="Folded">+-- 18 lines: #? # dump line -------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L400" class="Folded">400 </span><span class="Folded">+-- 18 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L418" class="LineNr">418 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0x008899aa", msg)</span> <span id="L419" class="LineNr">419 </span> <span class="subxS2Comment"># . . push args</span> <span id="L420" class="LineNr">420 </span> 68/push <span class="Constant">"F - test-write-int32-hex-buffered"</span>/imm32 diff --git a/html/linux/118parse-hex-int.subx.html b/html/linux/118parse-hex-int.subx.html index cf13cc06..6da12c25 100644 --- a/html/linux/118parse-hex-int.subx.html +++ b/html/linux/118parse-hex-int.subx.html @@ -14,15 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> @@ -990,7 +990,7 @@ if ('onhashchange' in window) { <span id="L930" class="LineNr">930 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L931" class="LineNr">931 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L932" class="LineNr">932 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L933" class="LineNr">933 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L933" class="LineNr">933 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L934" class="LineNr">934 </span> bb/copy-to-ebx 1/imm32 <span id="L935" class="LineNr">935 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L936" class="LineNr">936 </span> <span class="subxComment"># never gets here</span> diff --git a/html/linux/119error-byte.subx.html b/html/linux/119error-byte.subx.html index 2ada3377..98f9639d 100644 --- a/html/linux/119error-byte.subx.html +++ b/html/linux/119error-byte.subx.html @@ -14,13 +14,13 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .CommentedCode { color: #8a8a8a; } --> @@ -78,7 +78,7 @@ if ('onhashchange' in window) { <span id="L18" class="LineNr">18 </span><span class="CommentedCode">#? 68/push Stderr/imm32</span> <span id="L19" class="LineNr">19 </span><span class="CommentedCode">#? 50/push-eax</span> <span id="L20" class="LineNr">20 </span><span class="CommentedCode">#? e8/call error-byte/disp32</span> -<span id="L21" class="LineNr">21 </span><span class="CommentedCode">#? # . syscall(exit, Num-test-failures)</span> +<span id="L21" class="LineNr">21 </span><span class="CommentedCode">#? # . syscall_exit(Num-test-failures)</span> <span id="L22" class="LineNr">22 </span><span class="CommentedCode">#? 8b/copy 0/mod/indirect 5/rm32/.disp32 . . 3/r32/ebx Num-test-failures/disp32 # copy *Num-test-failures to ebx</span> <span id="L23" class="LineNr">23 </span><span class="CommentedCode">#? e8/call syscall_exit/disp32</span> <span id="L24" class="LineNr">24 </span> diff --git a/html/linux/120allocate.subx.html b/html/linux/120allocate.subx.html index df51d7ce..5c4c9039 100644 --- a/html/linux/120allocate.subx.html +++ b/html/linux/120allocate.subx.html @@ -14,16 +14,17 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxMinorFunction { color: #875f5f; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } -.Constant { color: #008787; } -.SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.subxMinorFunction { color: #875f5f; } .subxTest { color: #5f8700; } +.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -103,22 +104,22 @@ if ('onhashchange' in window) { <span id="L42" class="LineNr"> 42 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> <span id="L43" class="LineNr"> 43 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> <span id="L44" class="LineNr"> 44 </span> -<span id="L45" class="LineNr"> 45 </span><span class="subxComment"># Let's start initializing the default allocation descriptor.</span> -<span id="L46" class="LineNr"> 46 </span> -<span id="L47" class="LineNr"> 47 </span><span class="SpecialChar">Entry</span>: -<span id="L48" class="LineNr"> 48 </span> <span class="subxComment"># initialize heap</span> -<span id="L49" class="LineNr"> 49 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> -<span id="L50" class="LineNr"> 50 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L51" class="LineNr"> 51 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L52" class="LineNr"> 52 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> -<span id="L53" class="LineNr"> 53 </span> <span class="subxS2Comment"># . . call</span> -<span id="L54" class="LineNr"> 54 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L55" class="LineNr"> 55 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L56" class="LineNr"> 56 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L45" class="LineNr"> 45 </span><span class="CommentedCode">#? # Let's start initializing the default allocation descriptor.</span> +<span id="L46" class="LineNr"> 46 </span><span class="CommentedCode">#? </span> +<span id="L47" class="LineNr"> 47 </span><span class="CommentedCode">#? Entry:</span> +<span id="L48" class="LineNr"> 48 </span><span class="CommentedCode">#? # initialize heap</span> +<span id="L49" class="LineNr"> 49 </span><span class="CommentedCode">#? # . Heap = new-segment(Heap-size)</span> +<span id="L50" class="LineNr"> 50 </span><span class="CommentedCode">#? # . . push args</span> +<span id="L51" class="LineNr"> 51 </span><span class="CommentedCode">#? 68/push Heap/imm32</span> +<span id="L52" class="LineNr"> 52 </span><span class="CommentedCode">#? ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 . . . Heap-size/disp32 # push *Heap-size</span> +<span id="L53" class="LineNr"> 53 </span><span class="CommentedCode">#? # . . call</span> +<span id="L54" class="LineNr"> 54 </span><span class="CommentedCode">#? e8/call new-segment/disp32</span> +<span id="L55" class="LineNr"> 55 </span><span class="CommentedCode">#? # . . discard args</span> +<span id="L56" class="LineNr"> 56 </span><span class="CommentedCode">#? 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp</span> <span id="L57" class="LineNr"> 57 </span> <span id="L58" class="LineNr"> 58 </span> e8/call run-tests/disp32 <span class="subxComment"># 'run-tests' is a function created automatically by SubX. It calls all functions that start with 'test-'.</span> <span id="L59" class="LineNr"> 59 </span><span class="Constant">$array-equal-main:end</span>: -<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># syscall(exit, Num-test-failures)</span> +<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># syscall_exit(Num-test-failures)</span> <span id="L61" class="LineNr"> 61 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L62" class="LineNr"> 62 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L63" class="LineNr"> 63 </span> @@ -222,7 +223,7 @@ if ('onhashchange' in window) { <span id="L161" class="LineNr">161 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L163" class="LineNr">163 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L164" class="LineNr">164 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L164" class="LineNr">164 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L165" class="LineNr">165 </span> bb/copy-to-ebx 1/imm32 <span id="L166" class="LineNr">166 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L167" class="LineNr">167 </span> <span class="subxComment"># never gets here</span> @@ -353,7 +354,7 @@ if ('onhashchange' in window) { <span id="L292" class="LineNr">292 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L293" class="LineNr">293 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L294" class="LineNr">294 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L295" class="LineNr">295 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L295" class="LineNr">295 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L296" class="LineNr">296 </span> bb/copy-to-ebx 1/imm32/exit-status <span id="L297" class="LineNr">297 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L298" class="LineNr">298 </span> @@ -635,7 +636,7 @@ if ('onhashchange' in window) { <span id="L574" class="LineNr">574 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L575" class="LineNr">575 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L576" class="LineNr">576 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L577" class="LineNr">577 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L577" class="LineNr">577 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L578" class="LineNr">578 </span> bb/copy-to-ebx 1/imm32 <span id="L579" class="LineNr">579 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L580" class="LineNr">580 </span> <span class="subxComment"># never gets here</span> diff --git a/html/linux/121new-stream.subx.html b/html/linux/121new-stream.subx.html index e8cbddee..f985c1df 100644 --- a/html/linux/121new-stream.subx.html +++ b/html/linux/121new-stream.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> @@ -125,7 +125,7 @@ if ('onhashchange' in window) { <span id="L66" class="LineNr"> 66 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L67" class="LineNr"> 67 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L68" class="LineNr"> 68 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L69" class="LineNr"> 69 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L69" class="LineNr"> 69 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L70" class="LineNr"> 70 </span> bb/copy-to-ebx 1/imm32 <span id="L71" class="LineNr"> 71 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># never gets here</span> diff --git a/html/linux/122read-line.subx.html b/html/linux/122read-line.subx.html index 03034fad..dd9e219d 100644 --- a/html/linux/122read-line.subx.html +++ b/html/linux/122read-line.subx.html @@ -14,15 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> @@ -162,7 +162,7 @@ if ('onhashchange' in window) { <span id="L102" class="LineNr">102 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L103" class="LineNr">103 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L104" class="LineNr">104 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L105" class="LineNr">105 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L105" class="LineNr">105 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L106" class="LineNr">106 </span> bb/copy-to-ebx 1/imm32 <span id="L107" class="LineNr">107 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L108" class="LineNr">108 </span> <span class="subxComment"># never gets here</span> @@ -346,7 +346,7 @@ if ('onhashchange' in window) { <span id="L286" class="LineNr">286 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L287" class="LineNr">287 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L288" class="LineNr">288 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L289" class="LineNr">289 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L289" class="LineNr">289 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L290" class="LineNr">290 </span> bb/copy-to-ebx 1/imm32 <span id="L291" class="LineNr">291 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L292" class="LineNr">292 </span> <span class="subxComment"># never gets here</span> diff --git a/html/linux/123slice.subx.html b/html/linux/123slice.subx.html index 9c970b2b..dc4d6dd0 100644 --- a/html/linux/123slice.subx.html +++ b/html/linux/123slice.subx.html @@ -14,16 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } +.subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Folded { color: #080808; background-color: #949494; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -917,7 +917,7 @@ if ('onhashchange' in window) { <span id="L856" class="LineNr"> 856 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L857" class="LineNr"> 857 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L858" class="LineNr"> 858 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L859" class="LineNr"> 859 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L859" class="LineNr"> 859 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L860" class="LineNr"> 860 </span> bb/copy-to-ebx 1/imm32 <span id="L861" class="LineNr"> 861 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L862" class="LineNr"> 862 </span> <span class="subxComment"># never gets here</span> @@ -1181,7 +1181,7 @@ if ('onhashchange' in window) { <span id="L1120" class="LineNr">1120 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L1121" class="LineNr">1121 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1122" class="LineNr">1122 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1123" class="LineNr">1123 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1123" class="LineNr">1123 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L1124" class="LineNr">1124 </span> bb/copy-to-ebx 1/imm32 <span id="L1125" class="LineNr">1125 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1126" class="LineNr">1126 </span> <span class="subxComment"># never gets here</span> @@ -1228,7 +1228,7 @@ if ('onhashchange' in window) { <span id="L1167" class="LineNr">1167 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebx+4) to eax</span> <span id="L1168" class="LineNr">1168 </span> <span class="subxComment"># skip payload->allocid</span> <span id="L1169" class="LineNr">1169 </span> 05/add-to-eax 4/imm32 -<span id="L1170" class="Folded">1170 </span><span class="Folded">+-- 26 lines: #? # dump eax --------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1170" class="Folded">1170 </span><span class="Folded">+-- 26 lines: #? # dump eax ---------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1196" class="LineNr">1196 </span> <span class="subxComment"># eax = string-equal?(eax, "Abc")</span> <span id="L1197" class="LineNr">1197 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1198" class="LineNr">1198 </span> 68/push <span class="Constant">"Abc"</span>/imm32 diff --git a/html/linux/124next-token.subx.html b/html/linux/124next-token.subx.html index 5d7f1d73..57a36ee7 100644 --- a/html/linux/124next-token.subx.html +++ b/html/linux/124next-token.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> diff --git a/html/linux/125write-stream-data.subx.html b/html/linux/125write-stream-data.subx.html index c3a948d0..00408e80 100644 --- a/html/linux/125write-stream-data.subx.html +++ b/html/linux/125write-stream-data.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> diff --git a/html/linux/126write-int-decimal.subx.html b/html/linux/126write-int-decimal.subx.html index a10cea6b..9428abba 100644 --- a/html/linux/126write-int-decimal.subx.html +++ b/html/linux/126write-int-decimal.subx.html @@ -14,18 +14,18 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } -.Constant { color: #008787; } -.CommentedCode { color: #8a8a8a; } .SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Folded { color: #080808; background-color: #949494; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } --> </style> @@ -94,7 +94,7 @@ if ('onhashchange' in window) { <span id="L31" class="LineNr"> 31 </span> <span class="subxComment"># ++curr</span> <span id="L32" class="LineNr"> 32 </span> <span class="subxComment"># ++w</span> <span id="L33" class="LineNr"> 33 </span> <span class="subxComment"># out->write = w</span> -<span id="L34" class="LineNr"> 34 </span> <span class="subxComment"># (based on K&R itoa: <a href="https://en.wikibooks.org/wiki/C_Programming/stdlib.h/itoa)">https://en.wikibooks.org/wiki/C_Programming/stdlib.h/itoa)</a></span> +<span id="L34" class="LineNr"> 34 </span> <span class="subxComment"># (based on K&R itoa: <a href="https://en.wikibooks.org/wiki/C_Programming/stdlib.h/itoa">https://en.wikibooks.org/wiki/C_Programming/stdlib.h/itoa</a>)</span> <span id="L35" class="LineNr"> 35 </span> <span class="subxComment"># (this pseudocode contains registers because operations like division</span> <span id="L36" class="LineNr"> 36 </span> <span class="subxComment"># require specific registers in x86)</span> <span id="L37" class="LineNr"> 37 </span> <span class="subxComment">#</span> @@ -185,7 +185,7 @@ if ('onhashchange' in window) { <span id="L122" class="LineNr">122 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L123" class="LineNr">123 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L124" class="LineNr">124 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L125" class="LineNr">125 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L125" class="LineNr">125 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L126" class="LineNr">126 </span> bb/copy-to-ebx 1/imm32 <span id="L127" class="LineNr">127 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L128" class="LineNr">128 </span> <span class="subxComment"># never gets here</span> @@ -298,7 +298,7 @@ if ('onhashchange' in window) { <span id="L235" class="LineNr">235 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 <span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L237" class="LineNr">237 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L238" class="Folded">238 </span><span class="Folded">+-- 26 lines: #? # dump _test-stream -----------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L238" class="Folded">238 </span><span class="Folded">+-- 26 lines: #? # dump _test-stream ------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L264" class="LineNr">264 </span> <span class="subxComment"># check-stream-equal(_test-stream, "-9", msg)</span> <span id="L265" class="LineNr">265 </span> <span class="subxS2Comment"># . . push args</span> <span id="L266" class="LineNr">266 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-negative"</span>/imm32 @@ -341,7 +341,7 @@ if ('onhashchange' in window) { <span id="L303" class="LineNr">303 </span> <span class="subxS1Comment"># . end</span> <span id="L304" class="LineNr">304 </span> c3/return <span id="L305" class="LineNr">305 </span> -<span id="L306" class="LineNr">306 </span><span class="subxFunction">decimal-digit?</span>: <span class="subxComment"># c: grapheme -> result/eax: boolean</span> +<span id="L306" class="LineNr">306 </span><span class="subxFunction">decimal-digit?</span>: <span class="subxComment"># c: code-point-utf8 -> result/eax: boolean</span> <span id="L307" class="LineNr">307 </span> <span class="subxS1Comment"># . prologue</span> <span id="L308" class="LineNr">308 </span> 55/push-ebp <span id="L309" class="LineNr">309 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -440,7 +440,7 @@ if ('onhashchange' in window) { <span id="L402" class="LineNr">402 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L403" class="LineNr">403 </span> c3/return <span id="L404" class="LineNr">404 </span> -<span id="L405" class="LineNr">405 </span><span class="subxFunction">to-decimal-digit</span>: <span class="subxComment"># in: grapheme -> out/eax: int</span> +<span id="L405" class="LineNr">405 </span><span class="subxFunction">to-decimal-digit</span>: <span class="subxComment"># in: code-point-utf8 -> out/eax: int</span> <span id="L406" class="LineNr">406 </span> <span class="subxS1Comment"># . prologue</span> <span id="L407" class="LineNr">407 </span> 55/push-ebp <span id="L408" class="LineNr">408 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -496,7 +496,7 @@ if ('onhashchange' in window) { <span id="L458" class="LineNr">458 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L459" class="LineNr">459 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L460" class="LineNr">460 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L461" class="LineNr">461 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L461" class="LineNr">461 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L462" class="LineNr">462 </span> bb/copy-to-ebx 1/imm32 <span id="L463" class="LineNr">463 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L464" class="LineNr">464 </span> <span class="subxComment"># never gets here</span> diff --git a/html/linux/127next-word.subx.html b/html/linux/127next-word.subx.html index 11f02010..323005ed 100644 --- a/html/linux/127next-word.subx.html +++ b/html/linux/127next-word.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> @@ -97,328 +97,343 @@ if ('onhashchange' in window) { <span id="L38" class="LineNr"> 38 </span> <span class="subxS1Comment"># . return out</span> <span id="L39" class="LineNr"> 39 </span> c7 0/subop/copy 0/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># copy to *edi</span> <span id="L40" class="LineNr"> 40 </span> c7 0/subop/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 0/imm32 <span class="subxComment"># copy to *(edi+4)</span> -<span id="L41" class="LineNr"> 41 </span> eb/jump $next-word:end/disp8 +<span id="L41" class="LineNr"> 41 </span> e9/jump $next-word:end/disp32 <span id="L42" class="LineNr"> 42 </span><span class="Constant">$next-word:check-for-comment</span>: <span id="L43" class="LineNr"> 43 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> <span id="L44" class="LineNr"> 44 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> <span id="L45" class="LineNr"> 45 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> <span id="L46" class="LineNr"> 46 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edi</span> -<span id="L47" class="LineNr"> 47 </span> <span class="subxComment"># if (line->data[line->read] == '#') out->end = &line->data[line->write]), skip rest of stream and return</span> +<span id="L47" class="LineNr"> 47 </span> <span class="subxComment"># if (line->data[line->read] == '#') return rest of line</span> <span id="L48" class="LineNr"> 48 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> <span id="L49" class="LineNr"> 49 </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="L50" class="LineNr"> 50 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> <span id="L51" class="LineNr"> 51 </span> <span class="subxS1Comment"># . compare</span> <span id="L52" class="LineNr"> 52 </span> 3d/compare-eax-and 0x23/imm32/pound -<span id="L53" class="LineNr"> 53 </span> 75/jump-if-!= $next-word:regular-word/disp8 +<span id="L53" class="LineNr"> 53 </span> 0f 85/jump-if-!= $next-word:regular-word/disp32 <span id="L54" class="LineNr"> 54 </span><span class="Constant">$next-word:comment</span>: -<span id="L55" class="LineNr"> 55 </span> <span class="subxS1Comment"># . out->end = &line->data[line->write]</span> -<span id="L56" class="LineNr"> 56 </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="L57" class="LineNr"> 57 </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="L58" class="LineNr"> 58 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> -<span id="L59" class="LineNr"> 59 </span> <span class="subxS1Comment"># . line->read = line->write</span> -<span id="L60" class="LineNr"> 60 </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="L61" class="LineNr"> 61 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(esi+4)</span> -<span id="L62" class="LineNr"> 62 </span> <span class="subxS1Comment"># . return</span> -<span id="L63" class="LineNr"> 63 </span> eb/jump $next-word:end/disp8 -<span id="L64" class="LineNr"> 64 </span><span class="Constant">$next-word:regular-word</span>: -<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># otherwise skip-chars-not-matching-whitespace(line) # including trailing newline</span> -<span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L67" class="LineNr"> 67 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L68" class="LineNr"> 68 </span> <span class="subxS2Comment"># . . call</span> -<span id="L69" class="LineNr"> 69 </span> e8/call <a href='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a>/disp32 -<span id="L70" class="LineNr"> 70 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L71" class="LineNr"> 71 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> -<span id="L73" class="LineNr"> 73 </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="L74" class="LineNr"> 74 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> -<span id="L75" class="LineNr"> 75 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> -<span id="L76" class="LineNr"> 76 </span><span class="Constant">$next-word:end</span>: -<span id="L77" class="LineNr"> 77 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L78" class="LineNr"> 78 </span> 5f/pop-to-edi -<span id="L79" class="LineNr"> 79 </span> 5e/pop-to-esi -<span id="L80" class="LineNr"> 80 </span> 59/pop-to-ecx -<span id="L81" class="LineNr"> 81 </span> 58/pop-to-eax -<span id="L82" class="LineNr"> 82 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L83" class="LineNr"> 83 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L84" class="LineNr"> 84 </span> 5d/pop-to-ebp -<span id="L85" class="LineNr"> 85 </span> c3/return -<span id="L86" class="LineNr"> 86 </span> -<span id="L87" class="LineNr"> 87 </span><span class="subxTest">test-next-word</span>: -<span id="L88" class="LineNr"> 88 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L89" class="LineNr"> 89 </span> 55/push-ebp -<span id="L90" class="LineNr"> 90 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L91" class="LineNr"> 91 </span> <span class="subxComment"># setup</span> -<span id="L92" class="LineNr"> 92 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L93" class="LineNr"> 93 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L94" class="LineNr"> 94 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . call</span> -<span id="L96" class="LineNr"> 96 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L98" class="LineNr"> 98 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L100" class="LineNr">100 </span> 68/push 0/imm32/end -<span id="L101" class="LineNr">101 </span> 68/push 0/imm32/start -<span id="L102" class="LineNr">102 </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="L103" class="LineNr">103 </span> <span class="subxComment"># write(_test-stream, " ab")</span> -<span id="L104" class="LineNr">104 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L105" class="LineNr">105 </span> 68/push <span class="Constant">" ab"</span>/imm32 -<span id="L106" class="LineNr">106 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L107" class="LineNr">107 </span> <span class="subxS2Comment"># . . call</span> -<span id="L108" class="LineNr">108 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L109" class="LineNr">109 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L110" class="LineNr">110 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L111" class="LineNr">111 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> -<span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L113" class="LineNr">113 </span> 51/push-ecx -<span id="L114" class="LineNr">114 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L115" class="LineNr">115 </span> <span class="subxS2Comment"># . . call</span> -<span id="L116" class="LineNr">116 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L117" class="LineNr">117 </span> <span class="subxS2Comment"># . . discard args</span> -<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> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L119" class="LineNr">119 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-stream->data, 2, msg)</span> -<span id="L120" class="LineNr">120 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-stream, 14, msg)</span> -<span id="L121" class="LineNr">121 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L122" class="LineNr">122 </span> 68/push <span class="Constant">"F - <a href='127next-word.subx.html#L87'>test-next-word</a>: start"</span>/imm32 -<span id="L123" class="LineNr">123 </span> 68/push 0xe/imm32 -<span id="L124" class="LineNr">124 </span> <span class="subxS2Comment"># . . push slice->start - _test-stream</span> -<span id="L125" class="LineNr">125 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L126" class="LineNr">126 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L127" class="LineNr">127 </span> 50/push-eax -<span id="L128" class="LineNr">128 </span> <span class="subxS2Comment"># . . call</span> -<span id="L129" class="LineNr">129 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L130" class="LineNr">130 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L131" class="LineNr">131 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L132" class="LineNr">132 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-stream->data, 4, msg)</span> -<span id="L133" class="LineNr">133 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-stream, 16, msg)</span> -<span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L135" class="LineNr">135 </span> 68/push <span class="Constant">"F - <a href='127next-word.subx.html#L87'>test-next-word</a>: end"</span>/imm32 -<span id="L136" class="LineNr">136 </span> 68/push 0x10/imm32 -<span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . push slice->end - _test-stream</span> -<span id="L138" class="LineNr">138 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L139" class="LineNr">139 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L140" class="LineNr">140 </span> 50/push-eax -<span id="L141" class="LineNr">141 </span> <span class="subxS2Comment"># . . call</span> -<span id="L142" class="LineNr">142 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L143" class="LineNr">143 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L144" class="LineNr">144 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L145" class="LineNr">145 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L146" class="LineNr">146 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<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="subxTest">test-next-word-returns-whole-comment</span>: -<span id="L151" class="LineNr">151 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L152" class="LineNr">152 </span> 55/push-ebp -<span id="L153" class="LineNr">153 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L154" class="LineNr">154 </span> <span class="subxComment"># setup</span> -<span id="L155" class="LineNr">155 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L157" class="LineNr">157 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L158" class="LineNr">158 </span> <span class="subxS2Comment"># . . call</span> -<span id="L159" class="LineNr">159 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L160" class="LineNr">160 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L161" class="LineNr">161 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L162" class="LineNr">162 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L163" class="LineNr">163 </span> 68/push 0/imm32/end -<span id="L164" class="LineNr">164 </span> 68/push 0/imm32/start -<span id="L165" class="LineNr">165 </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="L166" class="LineNr">166 </span> <span class="subxComment"># write(_test-stream, " # a")</span> -<span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L168" class="LineNr">168 </span> 68/push <span class="Constant">" # a"</span>/imm32 -<span id="L169" class="LineNr">169 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L170" class="LineNr">170 </span> <span class="subxS2Comment"># . . call</span> -<span id="L171" class="LineNr">171 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L172" class="LineNr">172 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L173" class="LineNr">173 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L174" class="LineNr">174 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> -<span id="L175" class="LineNr">175 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L176" class="LineNr">176 </span> 51/push-ecx -<span id="L177" class="LineNr">177 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L178" class="LineNr">178 </span> <span class="subxS2Comment"># . . call</span> -<span id="L179" class="LineNr">179 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L180" class="LineNr">180 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L181" class="LineNr">181 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L182" class="LineNr">182 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-stream->data, 2, msg)</span> -<span id="L183" class="LineNr">183 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-stream, 14, msg)</span> -<span id="L184" class="LineNr">184 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L185" class="LineNr">185 </span> 68/push <span class="Constant">"F - <a href='127next-word.subx.html#L150'>test-next-word-returns-whole-comment</a>: start"</span>/imm32 -<span id="L186" class="LineNr">186 </span> 68/push 0xe/imm32 -<span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . push slice->start - _test-stream</span> -<span id="L188" class="LineNr">188 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L189" class="LineNr">189 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L190" class="LineNr">190 </span> 50/push-eax -<span id="L191" class="LineNr">191 </span> <span class="subxS2Comment"># . . call</span> -<span id="L192" class="LineNr">192 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L194" class="LineNr">194 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L195" class="LineNr">195 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-stream->data, 5, msg)</span> -<span id="L196" class="LineNr">196 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-stream, 17, msg)</span> -<span id="L197" class="LineNr">197 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L198" class="LineNr">198 </span> 68/push <span class="Constant">"F - <a href='127next-word.subx.html#L150'>test-next-word-returns-whole-comment</a>: end"</span>/imm32 -<span id="L199" class="LineNr">199 </span> 68/push 0x11/imm32 -<span id="L200" class="LineNr">200 </span> <span class="subxS2Comment"># . . push slice->end - _test-stream</span> -<span id="L201" class="LineNr">201 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L202" class="LineNr">202 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L203" class="LineNr">203 </span> 50/push-eax -<span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . call</span> -<span id="L205" class="LineNr">205 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L207" class="LineNr">207 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L208" class="LineNr">208 </span> <span class="subxS1Comment"># . epilogue</span> -<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="subxTest">test-next-word-returns-empty-string-on-eof</span>: -<span id="L214" class="LineNr">214 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L215" class="LineNr">215 </span> 55/push-ebp -<span id="L216" class="LineNr">216 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L217" class="LineNr">217 </span> <span class="subxComment"># setup</span> -<span id="L218" class="LineNr">218 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L219" class="LineNr">219 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L220" class="LineNr">220 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="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"># var slice/ecx: slice</span> -<span id="L226" class="LineNr">226 </span> 68/push 0/imm32/end -<span id="L227" class="LineNr">227 </span> 68/push 0/imm32/start -<span id="L228" class="LineNr">228 </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="L229" class="LineNr">229 </span> <span class="subxComment"># write nothing to _test-stream</span> -<span id="L230" class="LineNr">230 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> -<span id="L231" class="LineNr">231 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L232" class="LineNr">232 </span> 51/push-ecx -<span id="L233" class="LineNr">233 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . call</span> -<span id="L235" class="LineNr">235 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L237" class="LineNr">237 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L238" class="LineNr">238 </span> <span class="subxComment"># check-ints-equal(slice->end - slice->start, 0, msg)</span> -<span id="L239" class="LineNr">239 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L240" class="LineNr">240 </span> 68/push <span class="Constant">"F - test-next-word-returns-empty-string-on-eof"</span>/imm32 -<span id="L241" class="LineNr">241 </span> 68/push 0/imm32 -<span id="L242" class="LineNr">242 </span> <span class="subxS2Comment"># . . push slice->end - slice->start</span> -<span id="L243" class="LineNr">243 </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="L244" class="LineNr">244 </span> 2b/subtract 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *ecx from eax</span> -<span id="L245" class="LineNr">245 </span> 50/push-eax -<span id="L246" class="LineNr">246 </span> <span class="subxS2Comment"># . . call</span> -<span id="L247" class="LineNr">247 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L248" class="LineNr">248 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L249" class="LineNr">249 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L250" class="LineNr">250 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L251" class="LineNr">251 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L252" class="LineNr">252 </span> 5d/pop-to-ebp -<span id="L253" class="LineNr">253 </span> c3/return -<span id="L254" class="LineNr">254 </span> -<span id="L255" class="LineNr">255 </span><span class="subxTest">test-next-word-returns-empty-string-on-newline</span>: -<span id="L256" class="LineNr">256 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L257" class="LineNr">257 </span> 55/push-ebp -<span id="L258" class="LineNr">258 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L259" class="LineNr">259 </span> <span class="subxComment"># setup</span> -<span id="L260" class="LineNr">260 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L261" class="LineNr">261 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L262" class="LineNr">262 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L263" class="LineNr">263 </span> <span class="subxS2Comment"># . . call</span> -<span id="L264" class="LineNr">264 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L265" class="LineNr">265 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L266" class="LineNr">266 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L267" class="LineNr">267 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L268" class="LineNr">268 </span> 68/push 0/imm32/end -<span id="L269" class="LineNr">269 </span> 68/push 0/imm32/start -<span id="L270" class="LineNr">270 </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="L271" class="LineNr">271 </span> <span class="subxComment"># write some whitespace and a newline</span> -<span id="L272" class="LineNr">272 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L273" class="LineNr">273 </span> 68/push <span class="Constant">" \n"</span>/imm32 -<span id="L274" class="LineNr">274 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L275" class="LineNr">275 </span> <span class="subxS2Comment"># . . call</span> -<span id="L276" class="LineNr">276 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L277" class="LineNr">277 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L278" class="LineNr">278 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L279" class="LineNr">279 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> -<span id="L280" class="LineNr">280 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L281" class="LineNr">281 </span> 51/push-ecx -<span id="L282" class="LineNr">282 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L283" class="LineNr">283 </span> <span class="subxS2Comment"># . . call</span> -<span id="L284" class="LineNr">284 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L285" class="LineNr">285 </span> <span class="subxS2Comment"># . . discard args</span> -<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-ints-equal(slice->end - slice->start, 0, 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-next-word-returns-empty-string-on-newline"</span>/imm32 -<span id="L290" class="LineNr">290 </span> 68/push 0/imm32 -<span id="L291" class="LineNr">291 </span> <span class="subxS2Comment"># . . push slice->end - slice->start</span> -<span id="L292" class="LineNr">292 </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="L293" class="LineNr">293 </span> 2b/subtract 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *ecx from eax</span> -<span id="L294" class="LineNr">294 </span> 50/push-eax -<span id="L295" class="LineNr">295 </span> <span class="subxS2Comment"># . . call</span> -<span id="L296" class="LineNr">296 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L297" class="LineNr">297 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L298" class="LineNr">298 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L299" class="LineNr">299 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L300" class="LineNr">300 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L301" class="LineNr">301 </span> 5d/pop-to-ebp -<span id="L302" class="LineNr">302 </span> c3/return -<span id="L303" class="LineNr">303 </span> -<span id="L304" class="LineNr">304 </span><span class="subxComment"># (re)compute the bounds of the next word in the line (separated by whitespace)</span> -<span id="L305" class="LineNr">305 </span><span class="subxComment"># return empty string on reaching end of file</span> -<span id="L306" class="LineNr">306 </span><span class="subxFunction">next-raw-word</span>: <span class="subxComment"># line: (addr stream byte), out: (addr slice)</span> -<span id="L307" class="LineNr">307 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L308" class="LineNr">308 </span> 55/push-ebp -<span id="L309" class="LineNr">309 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L310" class="LineNr">310 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L311" class="LineNr">311 </span> 50/push-eax -<span id="L312" class="LineNr">312 </span> 51/push-ecx -<span id="L313" class="LineNr">313 </span> 56/push-esi -<span id="L314" class="LineNr">314 </span> 57/push-edi -<span id="L315" class="LineNr">315 </span> <span class="subxComment"># esi = line</span> -<span id="L316" class="LineNr">316 </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="L317" class="LineNr">317 </span> <span class="subxComment"># edi = out</span> -<span id="L318" class="LineNr">318 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> -<span id="L319" class="LineNr">319 </span> <span class="subxComment"># skip-chars-matching-whitespace(line)</span> -<span id="L320" class="LineNr">320 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L321" class="LineNr">321 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L322" class="LineNr">322 </span> <span class="subxS2Comment"># . . call</span> -<span id="L323" class="LineNr">323 </span> e8/call <a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a>/disp32 -<span id="L324" class="LineNr">324 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L325" class="LineNr">325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L326" class="LineNr">326 </span><span class="Constant">$next-raw-word:check0</span>: -<span id="L327" class="LineNr">327 </span> <span class="subxComment"># if (line->read >= line->write) clear out and return</span> -<span id="L328" class="LineNr">328 </span> <span class="subxS1Comment"># . eax = line->read</span> -<span id="L329" class="LineNr">329 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to eax</span> -<span id="L330" class="LineNr">330 </span> <span class="subxS1Comment"># . if (eax < line->write) goto next check</span> -<span id="L331" class="LineNr">331 </span> 3b/compare 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"># compare eax with *esi</span> -<span id="L332" class="LineNr">332 </span> 7c/jump-if-< $next-raw-word:word-exists/disp8 -<span id="L333" class="LineNr">333 </span> <span class="subxS1Comment"># . return out</span> -<span id="L334" class="LineNr">334 </span> c7 0/subop/copy 0/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># copy to *edi</span> -<span id="L335" class="LineNr">335 </span> c7 0/subop/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 0/imm32 <span class="subxComment"># copy to *(edi+4)</span> -<span id="L336" class="LineNr">336 </span> eb/jump $next-raw-word:end/disp8 -<span id="L337" class="LineNr">337 </span><span class="Constant">$next-raw-word:word-exists</span>: -<span id="L338" class="LineNr">338 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> -<span id="L339" class="LineNr">339 </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="L340" class="LineNr">340 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> -<span id="L341" class="LineNr">341 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edi</span> -<span id="L342" class="LineNr">342 </span> <span class="subxComment"># skip-chars-not-matching-whitespace(line) # including trailing newline</span> -<span id="L343" class="LineNr">343 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L344" class="LineNr">344 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L345" class="LineNr">345 </span> <span class="subxS2Comment"># . . call</span> -<span id="L346" class="LineNr">346 </span> e8/call <a href='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a>/disp32 -<span id="L347" class="LineNr">347 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L348" class="LineNr">348 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L349" class="LineNr">349 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> -<span id="L350" class="LineNr">350 </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="L351" class="LineNr">351 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> -<span id="L352" class="LineNr">352 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> -<span id="L353" class="LineNr">353 </span><span class="Constant">$next-raw-word:end</span>: -<span id="L354" class="LineNr">354 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L355" class="LineNr">355 </span> 5f/pop-to-edi -<span id="L356" class="LineNr">356 </span> 5e/pop-to-esi -<span id="L357" class="LineNr">357 </span> 59/pop-to-ecx -<span id="L358" class="LineNr">358 </span> 58/pop-to-eax -<span id="L359" class="LineNr">359 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L360" class="LineNr">360 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L361" class="LineNr">361 </span> 5d/pop-to-ebp -<span id="L362" class="LineNr">362 </span> c3/return +<span id="L55" class="LineNr"> 55 </span> <span class="subxComment"># out->end = out->start</span> +<span id="L56" class="LineNr"> 56 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> +<span id="L57" class="LineNr"> 57 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> +<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># var write/ecx: int = line->write</span> +<span id="L59" class="LineNr"> 59 </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="L60" class="LineNr"> 60 </span><span class="Constant">$next-word:comment-loop</span>: +<span id="L61" class="LineNr"> 61 </span> <span class="subxComment"># if (line->read >= line->write) break</span> +<span id="L62" class="LineNr"> 62 </span> 39/compare 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare *(esi+4) with ecx</span> +<span id="L63" class="LineNr"> 63 </span> 0f 8d/jump-if->= $next-word:comment-break/disp32 +<span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># ++line->read</span> +<span id="L65" class="LineNr"> 65 </span> ff 0/subop/increment 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># increment *(esi+4)</span> +<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># ++out->end</span> +<span id="L67" class="LineNr"> 67 </span> ff 0/subop/increment 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># increment *(edi+4)</span> +<span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># if (*out->end == newline) break</span> +<span id="L69" class="LineNr"> 69 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to eax</span> +<span id="L70" class="LineNr"> 70 </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="L71" class="LineNr"> 71 </span> 25/and-eax-with 0xff/imm32 +<span id="L72" class="LineNr"> 72 </span> 3d/compare-eax-and 0xa/imm32/newline +<span id="L73" class="LineNr"> 73 </span> 0f 84/jump-if-= $next-word:comment-break/disp32 +<span id="L74" class="LineNr"> 74 </span> <span class="subxComment"># loop</span> +<span id="L75" class="LineNr"> 75 </span> e9/jump $next-word:comment-loop/disp32 +<span id="L76" class="LineNr"> 76 </span><span class="Constant">$next-word:comment-break</span>: +<span id="L77" class="LineNr"> 77 </span> <span class="subxComment"># return</span> +<span id="L78" class="LineNr"> 78 </span> e9/jump $next-word:end/disp32 +<span id="L79" class="LineNr"> 79 </span><span class="Constant">$next-word:regular-word</span>: +<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># otherwise skip-chars-not-matching-whitespace(line) # including trailing newline</span> +<span id="L81" class="LineNr"> 81 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L82" class="LineNr"> 82 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L83" class="LineNr"> 83 </span> <span class="subxS2Comment"># . . call</span> +<span id="L84" class="LineNr"> 84 </span> e8/call <a href='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a>/disp32 +<span id="L85" class="LineNr"> 85 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L86" class="LineNr"> 86 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> +<span id="L88" class="LineNr"> 88 </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="L89" class="LineNr"> 89 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> +<span id="L90" class="LineNr"> 90 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> +<span id="L91" class="LineNr"> 91 </span><span class="Constant">$next-word:end</span>: +<span id="L92" class="LineNr"> 92 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L93" class="LineNr"> 93 </span> 5f/pop-to-edi +<span id="L94" class="LineNr"> 94 </span> 5e/pop-to-esi +<span id="L95" class="LineNr"> 95 </span> 59/pop-to-ecx +<span id="L96" class="LineNr"> 96 </span> 58/pop-to-eax +<span id="L97" class="LineNr"> 97 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L98" class="LineNr"> 98 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L99" class="LineNr"> 99 </span> 5d/pop-to-ebp +<span id="L100" class="LineNr">100 </span> c3/return +<span id="L101" class="LineNr">101 </span> +<span id="L102" class="LineNr">102 </span><span class="subxTest">test-next-word</span>: +<span id="L103" class="LineNr">103 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L104" class="LineNr">104 </span> 55/push-ebp +<span id="L105" class="LineNr">105 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L106" class="LineNr">106 </span> <span class="subxComment"># setup</span> +<span id="L107" class="LineNr">107 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L108" class="LineNr">108 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L109" class="LineNr">109 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L110" class="LineNr">110 </span> <span class="subxS2Comment"># . . call</span> +<span id="L111" class="LineNr">111 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L113" class="LineNr">113 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L114" class="LineNr">114 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L115" class="LineNr">115 </span> 68/push 0/imm32/end +<span id="L116" class="LineNr">116 </span> 68/push 0/imm32/start +<span id="L117" class="LineNr">117 </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="L118" class="LineNr">118 </span> <span class="subxComment"># write(_test-stream, " ab")</span> +<span id="L119" class="LineNr">119 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L120" class="LineNr">120 </span> 68/push <span class="Constant">" ab"</span>/imm32 +<span id="L121" class="LineNr">121 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L122" class="LineNr">122 </span> <span class="subxS2Comment"># . . call</span> +<span id="L123" class="LineNr">123 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L124" class="LineNr">124 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L125" class="LineNr">125 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L126" class="LineNr">126 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> +<span id="L127" class="LineNr">127 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L128" class="LineNr">128 </span> 51/push-ecx +<span id="L129" class="LineNr">129 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L130" class="LineNr">130 </span> <span class="subxS2Comment"># . . call</span> +<span id="L131" class="LineNr">131 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L132" class="LineNr">132 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L133" class="LineNr">133 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L134" class="LineNr">134 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-stream->data, 2, msg)</span> +<span id="L135" class="LineNr">135 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-stream, 14, msg)</span> +<span id="L136" class="LineNr">136 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L137" class="LineNr">137 </span> 68/push <span class="Constant">"F - <a href='127next-word.subx.html#L102'>test-next-word</a>: start"</span>/imm32 +<span id="L138" class="LineNr">138 </span> 68/push 0xe/imm32 +<span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . push slice->start - _test-stream</span> +<span id="L140" class="LineNr">140 </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="L141" class="LineNr">141 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L142" class="LineNr">142 </span> 50/push-eax +<span id="L143" class="LineNr">143 </span> <span class="subxS2Comment"># . . call</span> +<span id="L144" class="LineNr">144 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L145" class="LineNr">145 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L146" class="LineNr">146 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L147" class="LineNr">147 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-stream->data, 4, msg)</span> +<span id="L148" class="LineNr">148 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-stream, 16, msg)</span> +<span id="L149" class="LineNr">149 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L150" class="LineNr">150 </span> 68/push <span class="Constant">"F - <a href='127next-word.subx.html#L102'>test-next-word</a>: end"</span>/imm32 +<span id="L151" class="LineNr">151 </span> 68/push 0x10/imm32 +<span id="L152" class="LineNr">152 </span> <span class="subxS2Comment"># . . push slice->end - _test-stream</span> +<span id="L153" class="LineNr">153 </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="L154" class="LineNr">154 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L155" class="LineNr">155 </span> 50/push-eax +<span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . call</span> +<span id="L157" class="LineNr">157 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</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> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L160" class="LineNr">160 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L161" class="LineNr">161 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L162" class="LineNr">162 </span> 5d/pop-to-ebp +<span id="L163" class="LineNr">163 </span> c3/return +<span id="L164" class="LineNr">164 </span> +<span id="L165" class="LineNr">165 </span><span class="subxTest">test-next-word-returns-whole-comment</span>: +<span id="L166" class="LineNr">166 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L167" class="LineNr">167 </span> 55/push-ebp +<span id="L168" class="LineNr">168 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L169" class="LineNr">169 </span> <span class="subxComment"># setup</span> +<span id="L170" class="LineNr">170 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L172" class="LineNr">172 </span> 68/push <a href='108write.subx.html#L151'>_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='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L175" class="LineNr">175 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L176" class="LineNr">176 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L177" class="LineNr">177 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L178" class="LineNr">178 </span> 68/push 0/imm32/end +<span id="L179" class="LineNr">179 </span> 68/push 0/imm32/start +<span id="L180" class="LineNr">180 </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="L181" class="LineNr">181 </span> <span class="subxComment"># write(_test-stream, " # a")</span> +<span id="L182" class="LineNr">182 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L183" class="LineNr">183 </span> 68/push <span class="Constant">" # a"</span>/imm32 +<span id="L184" class="LineNr">184 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L185" class="LineNr">185 </span> <span class="subxS2Comment"># . . call</span> +<span id="L186" class="LineNr">186 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L188" class="LineNr">188 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L189" class="LineNr">189 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> +<span id="L190" class="LineNr">190 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L191" class="LineNr">191 </span> 51/push-ecx +<span id="L192" class="LineNr">192 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . call</span> +<span id="L194" class="LineNr">194 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</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> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L197" class="LineNr">197 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-stream->data, 2, msg)</span> +<span id="L198" class="LineNr">198 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-stream, 14, 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 - <a href='127next-word.subx.html#L165'>test-next-word-returns-whole-comment</a>: start"</span>/imm32 +<span id="L201" class="LineNr">201 </span> 68/push 0xe/imm32 +<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . push slice->start - _test-stream</span> +<span id="L203" class="LineNr">203 </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="L204" class="LineNr">204 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L205" class="LineNr">205 </span> 50/push-eax +<span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . call</span> +<span id="L207" class="LineNr">207 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L208" class="LineNr">208 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L209" class="LineNr">209 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L210" class="LineNr">210 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-stream->data, 5, msg)</span> +<span id="L211" class="LineNr">211 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-stream, 17, msg)</span> +<span id="L212" class="LineNr">212 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L213" class="LineNr">213 </span> 68/push <span class="Constant">"F - <a href='127next-word.subx.html#L165'>test-next-word-returns-whole-comment</a>: end"</span>/imm32 +<span id="L214" class="LineNr">214 </span> 68/push 0x11/imm32 +<span id="L215" class="LineNr">215 </span> <span class="subxS2Comment"># . . push slice->end - _test-stream</span> +<span id="L216" class="LineNr">216 </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="L217" class="LineNr">217 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L218" class="LineNr">218 </span> 50/push-eax +<span id="L219" class="LineNr">219 </span> <span class="subxS2Comment"># . . call</span> +<span id="L220" class="LineNr">220 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</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> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L223" class="LineNr">223 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L224" class="LineNr">224 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L225" class="LineNr">225 </span> 5d/pop-to-ebp +<span id="L226" class="LineNr">226 </span> c3/return +<span id="L227" class="LineNr">227 </span> +<span id="L228" class="LineNr">228 </span><span class="subxTest">test-next-word-returns-empty-string-on-eof</span>: +<span id="L229" class="LineNr">229 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L230" class="LineNr">230 </span> 55/push-ebp +<span id="L231" class="LineNr">231 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L232" class="LineNr">232 </span> <span class="subxComment"># setup</span> +<span id="L233" class="LineNr">233 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L235" class="LineNr">235 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . call</span> +<span id="L237" class="LineNr">237 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L238" class="LineNr">238 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L239" class="LineNr">239 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L240" class="LineNr">240 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L241" class="LineNr">241 </span> 68/push 0/imm32/end +<span id="L242" class="LineNr">242 </span> 68/push 0/imm32/start +<span id="L243" class="LineNr">243 </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="L244" class="LineNr">244 </span> <span class="subxComment"># write nothing to _test-stream</span> +<span id="L245" class="LineNr">245 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> +<span id="L246" class="LineNr">246 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L247" class="LineNr">247 </span> 51/push-ecx +<span id="L248" class="LineNr">248 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L249" class="LineNr">249 </span> <span class="subxS2Comment"># . . call</span> +<span id="L250" class="LineNr">250 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</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> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L253" class="LineNr">253 </span> <span class="subxComment"># check-ints-equal(slice->end - slice->start, 0, msg)</span> +<span id="L254" class="LineNr">254 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L255" class="LineNr">255 </span> 68/push <span class="Constant">"F - test-next-word-returns-empty-string-on-eof"</span>/imm32 +<span id="L256" class="LineNr">256 </span> 68/push 0/imm32 +<span id="L257" class="LineNr">257 </span> <span class="subxS2Comment"># . . push slice->end - slice->start</span> +<span id="L258" class="LineNr">258 </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="L259" class="LineNr">259 </span> 2b/subtract 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *ecx from eax</span> +<span id="L260" class="LineNr">260 </span> 50/push-eax +<span id="L261" class="LineNr">261 </span> <span class="subxS2Comment"># . . call</span> +<span id="L262" class="LineNr">262 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L263" class="LineNr">263 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L264" class="LineNr">264 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L265" class="LineNr">265 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L266" class="LineNr">266 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L267" class="LineNr">267 </span> 5d/pop-to-ebp +<span id="L268" class="LineNr">268 </span> c3/return +<span id="L269" class="LineNr">269 </span> +<span id="L270" class="LineNr">270 </span><span class="subxTest">test-next-word-returns-empty-string-on-newline</span>: +<span id="L271" class="LineNr">271 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L272" class="LineNr">272 </span> 55/push-ebp +<span id="L273" class="LineNr">273 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L274" class="LineNr">274 </span> <span class="subxComment"># setup</span> +<span id="L275" class="LineNr">275 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L276" class="LineNr">276 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L277" class="LineNr">277 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L278" class="LineNr">278 </span> <span class="subxS2Comment"># . . call</span> +<span id="L279" class="LineNr">279 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</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> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L282" class="LineNr">282 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L283" class="LineNr">283 </span> 68/push 0/imm32/end +<span id="L284" class="LineNr">284 </span> 68/push 0/imm32/start +<span id="L285" class="LineNr">285 </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="L286" class="LineNr">286 </span> <span class="subxComment"># write some whitespace and a newline</span> +<span id="L287" class="LineNr">287 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L288" class="LineNr">288 </span> 68/push <span class="Constant">" \n"</span>/imm32 +<span id="L289" class="LineNr">289 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L290" class="LineNr">290 </span> <span class="subxS2Comment"># . . call</span> +<span id="L291" class="LineNr">291 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L292" class="LineNr">292 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L293" class="LineNr">293 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L294" class="LineNr">294 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> +<span id="L295" class="LineNr">295 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L296" class="LineNr">296 </span> 51/push-ecx +<span id="L297" class="LineNr">297 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L298" class="LineNr">298 </span> <span class="subxS2Comment"># . . call</span> +<span id="L299" class="LineNr">299 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L300" class="LineNr">300 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L301" class="LineNr">301 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L302" class="LineNr">302 </span> <span class="subxComment"># check-ints-equal(slice->end - slice->start, 0, msg)</span> +<span id="L303" class="LineNr">303 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L304" class="LineNr">304 </span> 68/push <span class="Constant">"F - test-next-word-returns-empty-string-on-newline"</span>/imm32 +<span id="L305" class="LineNr">305 </span> 68/push 0/imm32 +<span id="L306" class="LineNr">306 </span> <span class="subxS2Comment"># . . push slice->end - slice->start</span> +<span id="L307" class="LineNr">307 </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="L308" class="LineNr">308 </span> 2b/subtract 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *ecx from eax</span> +<span id="L309" class="LineNr">309 </span> 50/push-eax +<span id="L310" class="LineNr">310 </span> <span class="subxS2Comment"># . . call</span> +<span id="L311" class="LineNr">311 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</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="subxS1Comment"># . epilogue</span> +<span id="L315" class="LineNr">315 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L316" class="LineNr">316 </span> 5d/pop-to-ebp +<span id="L317" class="LineNr">317 </span> c3/return +<span id="L318" class="LineNr">318 </span> +<span id="L319" class="LineNr">319 </span><span class="subxComment"># (re)compute the bounds of the next word in the line (separated by whitespace)</span> +<span id="L320" class="LineNr">320 </span><span class="subxComment"># return empty string on reaching end of file</span> +<span id="L321" class="LineNr">321 </span><span class="subxFunction">next-raw-word</span>: <span class="subxComment"># line: (addr stream byte), out: (addr slice)</span> +<span id="L322" class="LineNr">322 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L323" class="LineNr">323 </span> 55/push-ebp +<span id="L324" class="LineNr">324 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L325" class="LineNr">325 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L326" class="LineNr">326 </span> 50/push-eax +<span id="L327" class="LineNr">327 </span> 51/push-ecx +<span id="L328" class="LineNr">328 </span> 56/push-esi +<span id="L329" class="LineNr">329 </span> 57/push-edi +<span id="L330" class="LineNr">330 </span> <span class="subxComment"># esi = line</span> +<span id="L331" class="LineNr">331 </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="L332" class="LineNr">332 </span> <span class="subxComment"># edi = out</span> +<span id="L333" class="LineNr">333 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> +<span id="L334" class="LineNr">334 </span> <span class="subxComment"># skip-chars-matching-whitespace(line)</span> +<span id="L335" class="LineNr">335 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L336" class="LineNr">336 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L337" class="LineNr">337 </span> <span class="subxS2Comment"># . . call</span> +<span id="L338" class="LineNr">338 </span> e8/call <a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a>/disp32 +<span id="L339" class="LineNr">339 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L340" class="LineNr">340 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L341" class="LineNr">341 </span><span class="Constant">$next-raw-word:check0</span>: +<span id="L342" class="LineNr">342 </span> <span class="subxComment"># if (line->read >= line->write) clear out and return</span> +<span id="L343" class="LineNr">343 </span> <span class="subxS1Comment"># . eax = line->read</span> +<span id="L344" class="LineNr">344 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to eax</span> +<span id="L345" class="LineNr">345 </span> <span class="subxS1Comment"># . if (eax < line->write) goto next check</span> +<span id="L346" class="LineNr">346 </span> 3b/compare 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"># compare eax with *esi</span> +<span id="L347" class="LineNr">347 </span> 7c/jump-if-< $next-raw-word:word-exists/disp8 +<span id="L348" class="LineNr">348 </span> <span class="subxS1Comment"># . return out</span> +<span id="L349" class="LineNr">349 </span> c7 0/subop/copy 0/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># copy to *edi</span> +<span id="L350" class="LineNr">350 </span> c7 0/subop/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 0/imm32 <span class="subxComment"># copy to *(edi+4)</span> +<span id="L351" class="LineNr">351 </span> eb/jump $next-raw-word:end/disp8 +<span id="L352" class="LineNr">352 </span><span class="Constant">$next-raw-word:word-exists</span>: +<span id="L353" class="LineNr">353 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> +<span id="L354" class="LineNr">354 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> +<span id="L355" class="LineNr">355 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> +<span id="L356" class="LineNr">356 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edi</span> +<span id="L357" class="LineNr">357 </span> <span class="subxComment"># skip-chars-not-matching-whitespace(line) # including trailing newline</span> +<span id="L358" class="LineNr">358 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L359" class="LineNr">359 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L360" class="LineNr">360 </span> <span class="subxS2Comment"># . . call</span> +<span id="L361" class="LineNr">361 </span> e8/call <a href='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a>/disp32 +<span id="L362" class="LineNr">362 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L363" class="LineNr">363 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L364" class="LineNr">364 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> +<span id="L365" class="LineNr">365 </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="L366" class="LineNr">366 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> +<span id="L367" class="LineNr">367 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> +<span id="L368" class="LineNr">368 </span><span class="Constant">$next-raw-word:end</span>: +<span id="L369" class="LineNr">369 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L370" class="LineNr">370 </span> 5f/pop-to-edi +<span id="L371" class="LineNr">371 </span> 5e/pop-to-esi +<span id="L372" class="LineNr">372 </span> 59/pop-to-ecx +<span id="L373" class="LineNr">373 </span> 58/pop-to-eax +<span id="L374" class="LineNr">374 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L375" class="LineNr">375 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L376" class="LineNr">376 </span> 5d/pop-to-ebp +<span id="L377" class="LineNr">377 </span> c3/return </pre> </body> </html> diff --git a/html/linux/128subx-words.subx.html b/html/linux/128subx-words.subx.html index 3c4d3714..f2d21579 100644 --- a/html/linux/128subx-words.subx.html +++ b/html/linux/128subx-words.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> diff --git a/html/linux/129emit-hex.subx.html b/html/linux/129emit-hex.subx.html index 994ca176..09df6eee 100644 --- a/html/linux/129emit-hex.subx.html +++ b/html/linux/129emit-hex.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> diff --git a/html/linux/130emit.subx.html b/html/linux/130emit.subx.html index 74fab591..5d158853 100644 --- a/html/linux/130emit.subx.html +++ b/html/linux/130emit.subx.html @@ -14,16 +14,16 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } +.subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Folded { color: #080808; background-color: #949494; } -.subxTest { color: #5f8700; } --> </style> @@ -493,7 +493,7 @@ if ('onhashchange' in window) { <span id="L432" class="LineNr">432 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L433" class="LineNr">433 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L434" class="LineNr">434 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L435" class="Folded">435 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L435" class="Folded">435 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L461" class="LineNr">461 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "abcd/xyz")</span> <span id="L462" class="LineNr">462 </span> <span class="subxS2Comment"># . . push args</span> <span id="L463" class="LineNr">463 </span> 68/push <span class="Constant">"F - test-emit-non-number-with-all-hex-digits"</span>/imm32 diff --git a/html/linux/131table.subx.html b/html/linux/131table.subx.html index dcbdc563..aa7954f5 100644 --- a/html/linux/131table.subx.html +++ b/html/linux/131table.subx.html @@ -14,16 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> @@ -183,7 +183,7 @@ if ('onhashchange' in window) { <span id="L122" class="LineNr"> 122 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L123" class="LineNr"> 123 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L124" class="LineNr"> 124 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L125" class="LineNr"> 125 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L125" class="LineNr"> 125 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L126" class="LineNr"> 126 </span> bb/copy-to-ebx 1/imm32 <span id="L127" class="LineNr"> 127 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L128" class="LineNr"> 128 </span> <span class="subxComment"># never gets here</span> @@ -374,7 +374,7 @@ if ('onhashchange' in window) { <span id="L313" class="LineNr"> 313 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L314" class="LineNr"> 314 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L315" class="LineNr"> 315 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L316" class="LineNr"> 316 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L316" class="LineNr"> 316 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L317" class="LineNr"> 317 </span> bb/copy-to-ebx 1/imm32 <span id="L318" class="LineNr"> 318 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L319" class="LineNr"> 319 </span> <span class="subxComment"># never gets here</span> @@ -591,7 +591,7 @@ if ('onhashchange' in window) { <span id="L530" class="LineNr"> 530 </span> e8/call <a href='101_write.subx.html#L12'>_write</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="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L533" class="LineNr"> 533 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L534" class="LineNr"> 534 </span> bb/copy-to-ebx 1/imm32 <span id="L535" class="LineNr"> 535 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L536" class="LineNr"> 536 </span> <span class="subxComment"># never gets here</span> @@ -761,1451 +761,1762 @@ if ('onhashchange' in window) { <span id="L700" class="LineNr"> 700 </span> 5d/pop-to-ebp <span id="L701" class="LineNr"> 701 </span> c3/return <span id="L702" class="LineNr"> 702 </span> -<span id="L703" class="LineNr"> 703 </span><span class="subxComment"># if no row is found, save 'key' to the next available row</span> -<span id="L704" class="LineNr"> 704 </span><span class="subxComment"># if there are no rows free, abort</span> -<span id="L705" class="LineNr"> 705 </span><span class="subxComment"># return the address of the value</span> -<span id="L706" class="LineNr"> 706 </span><span class="subxFunction">get-or-insert-handle</span>: <span class="subxComment"># table: (addr stream {(handle array byte), T}), key: (handle array byte), row-size: int -> result/eax: (addr T)</span> -<span id="L707" class="LineNr"> 707 </span> <span class="subxComment"># pseudocode:</span> -<span id="L708" class="LineNr"> 708 </span> <span class="subxComment"># var curr: (addr handle stream) = table->data</span> -<span id="L709" class="LineNr"> 709 </span> <span class="subxComment"># var max: (addr byte) = &table->data[table->write]</span> -<span id="L710" class="LineNr"> 710 </span> <span class="subxComment"># var k: (addr array byte) = lookup(key)</span> +<span id="L703" class="LineNr"> 703 </span><span class="subxComment"># save 'key' to the next available row</span> +<span id="L704" class="LineNr"> 704 </span><span class="subxComment"># if key already exists, abort</span> +<span id="L705" class="LineNr"> 705 </span><span class="subxComment"># if there are no rows free, abort</span> +<span id="L706" class="LineNr"> 706 </span><span class="subxComment"># return the address of the value</span> +<span id="L707" class="LineNr"> 707 </span><span class="subxFunction">insert-or-abort</span>: <span class="subxComment"># table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int, ad: (addr allocation-descriptor) -> result/eax: (addr T)</span> +<span id="L708" class="LineNr"> 708 </span> <span class="subxComment"># pseudocode:</span> +<span id="L709" class="LineNr"> 709 </span> <span class="subxComment"># curr = table->data</span> +<span id="L710" class="LineNr"> 710 </span> <span class="subxComment"># max = &table->data[table->write]</span> <span id="L711" class="LineNr"> 711 </span> <span class="subxComment"># while curr < max</span> <span id="L712" class="LineNr"> 712 </span> <span class="subxComment"># var c: (addr array byte) = lookup(*curr)</span> -<span id="L713" class="LineNr"> 713 </span> <span class="subxComment"># if string-equal?(k, c)</span> -<span id="L714" class="LineNr"> 714 </span> <span class="subxComment"># return curr+8</span> +<span id="L713" class="LineNr"> 713 </span> <span class="subxComment"># if string-equal?(key, c)</span> +<span id="L714" class="LineNr"> 714 </span> <span class="subxComment"># abort</span> <span id="L715" class="LineNr"> 715 </span> <span class="subxComment"># curr += row-size</span> <span id="L716" class="LineNr"> 716 </span> <span class="subxComment"># if table->write >= table->size</span> <span id="L717" class="LineNr"> 717 </span> <span class="subxComment"># abort</span> -<span id="L718" class="LineNr"> 718 </span> <span class="subxComment"># *max = key</span> -<span id="L719" class="LineNr"> 719 </span> <span class="subxComment"># table->write += row-size</span> -<span id="L720" class="LineNr"> 720 </span> <span class="subxComment"># return max+8</span> -<span id="L721" class="LineNr"> 721 </span> <span class="subxComment">#</span> -<span id="L722" class="LineNr"> 722 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L723" class="LineNr"> 723 </span> 55/push-ebp -<span id="L724" class="LineNr"> 724 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L725" class="LineNr"> 725 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L726" class="LineNr"> 726 </span> 51/push-ecx -<span id="L727" class="LineNr"> 727 </span> 52/push-edx -<span id="L728" class="LineNr"> 728 </span> 53/push-ebx +<span id="L718" class="LineNr"> 718 </span> <span class="subxComment"># zero-out(max, row-size)</span> +<span id="L719" class="LineNr"> 719 </span> <span class="subxComment"># copy-array(ad, key, max)</span> +<span id="L720" class="LineNr"> 720 </span> <span class="subxComment"># table->write += row-size</span> +<span id="L721" class="LineNr"> 721 </span> <span class="subxComment"># return max+8</span> +<span id="L722" class="LineNr"> 722 </span> <span class="subxComment">#</span> +<span id="L723" class="LineNr"> 723 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L724" class="LineNr"> 724 </span> 55/push-ebp +<span id="L725" class="LineNr"> 725 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L726" class="LineNr"> 726 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L727" class="LineNr"> 727 </span> 51/push-ecx +<span id="L728" class="LineNr"> 728 </span> 52/push-edx <span id="L729" class="LineNr"> 729 </span> 56/push-esi <span id="L730" class="LineNr"> 730 </span> <span class="subxComment"># esi = table</span> <span id="L731" class="LineNr"> 731 </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="L732" class="LineNr"> 732 </span> <span class="subxComment"># var k/ebx: (addr array byte) = lookup(key)</span> -<span id="L733" class="LineNr"> 733 </span> <span class="subxS1Comment"># . eax = lookup(key)</span> -<span id="L734" class="LineNr"> 734 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L735" class="LineNr"> 735 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L736" class="LineNr"> 736 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L737" class="LineNr"> 737 </span> <span class="subxS2Comment"># . . call</span> -<span id="L738" class="LineNr"> 738 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 -<span id="L739" class="LineNr"> 739 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L740" class="LineNr"> 740 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L741" class="LineNr"> 741 </span> <span class="subxS1Comment"># . ebx = eax</span> -<span id="L742" class="LineNr"> 742 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> -<span id="L743" class="LineNr"> 743 </span> <span class="subxComment"># var curr/ecx: (addr handle array byte) = table->data</span> -<span id="L744" class="LineNr"> 744 </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="L745" class="LineNr"> 745 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> -<span id="L746" class="LineNr"> 746 </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="L747" class="LineNr"> 747 </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="L748" class="LineNr"> 748 </span><span class="Constant">$get-or-insert-handle:search-loop</span>: -<span id="L749" class="LineNr"> 749 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L750" class="LineNr"> 750 </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="L751" class="LineNr"> 751 </span> 73/jump-if-addr>= $get-or-insert-handle:not-found/disp8 -<span id="L752" class="LineNr"> 752 </span> <span class="subxComment"># var c/eax: (addr array byte) = lookup(*curr)</span> -<span id="L753" class="LineNr"> 753 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L754" class="LineNr"> 754 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L755" class="LineNr"> 755 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L756" class="LineNr"> 756 </span> <span class="subxS2Comment"># . . call</span> -<span id="L757" class="LineNr"> 757 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 -<span id="L758" class="LineNr"> 758 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L759" class="LineNr"> 759 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L760" class="LineNr"> 760 </span> <span class="subxComment"># if (string-equal?(k, c)) return curr+8</span> -<span id="L761" class="LineNr"> 761 </span> <span class="subxS1Comment"># . eax = string-equal?(k, c)</span> -<span id="L762" class="LineNr"> 762 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L763" class="LineNr"> 763 </span> 50/push-eax -<span id="L764" class="LineNr"> 764 </span> 53/push-ebx -<span id="L765" class="LineNr"> 765 </span> <span class="subxS2Comment"># . . call</span> -<span id="L766" class="LineNr"> 766 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 -<span id="L767" class="LineNr"> 767 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L768" class="LineNr"> 768 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L769" class="LineNr"> 769 </span> <span class="subxS1Comment"># . if (eax != false) return eax = curr+8</span> -<span id="L770" class="LineNr"> 770 </span> 3d/compare-eax-and 0/imm32/false -<span id="L771" class="LineNr"> 771 </span> 74/jump-if-= $get-or-insert-handle:mismatch/disp8 -<span id="L772" class="LineNr"> 772 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <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 ecx+8 to eax</span> -<span id="L773" class="LineNr"> 773 </span> eb/jump $get-or-insert-handle:end/disp8 -<span id="L774" class="LineNr"> 774 </span><span class="Constant">$get-or-insert-handle:mismatch</span>: -<span id="L775" class="LineNr"> 775 </span> <span class="subxComment"># curr += row-size</span> -<span id="L776" class="LineNr"> 776 </span> 03/add 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"># add *(ebp+20) to ecx</span> -<span id="L777" class="LineNr"> 777 </span> <span class="subxComment"># loop</span> -<span id="L778" class="LineNr"> 778 </span> eb/jump $get-or-insert-handle:search-loop/disp8 -<span id="L779" class="LineNr"> 779 </span><span class="Constant">$get-or-insert-handle:not-found</span>: -<span id="L780" class="LineNr"> 780 </span> <span class="subxComment"># if (table->write >= table->size) abort</span> -<span id="L781" class="LineNr"> 781 </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="L782" class="LineNr"> 782 </span> 3b/compare 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(esi+8)</span> -<span id="L783" class="LineNr"> 783 </span> 73/jump-if-addr>= $get-or-insert-handle:abort/disp8 -<span id="L784" class="LineNr"> 784 </span> <span class="subxComment"># table->write += row-size</span> -<span id="L785" class="LineNr"> 785 </span> <span class="subxS1Comment"># . eax = row-size</span> -<span id="L786" class="LineNr"> 786 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to eax</span> -<span id="L787" class="LineNr"> 787 </span> <span class="subxS1Comment"># . table->write += eax</span> -<span id="L788" class="LineNr"> 788 </span> 01/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *esi</span> -<span id="L789" class="LineNr"> 789 </span> <span class="subxComment"># *max = key</span> -<span id="L790" class="LineNr"> 790 </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="L791" class="LineNr"> 791 </span> 89/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edx</span> -<span id="L792" class="LineNr"> 792 </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="L793" class="LineNr"> 793 </span> 89/copy 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edx+4)</span> -<span id="L794" class="LineNr"> 794 </span> <span class="subxComment"># return max+8</span> -<span id="L795" class="LineNr"> 795 </span> <span class="subxS1Comment"># . eax = max</span> -<span id="L796" class="LineNr"> 796 </span> 89/copy 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"># copy edx to eax</span> -<span id="L797" class="LineNr"> 797 </span> <span class="subxS1Comment"># . eax += 8</span> -<span id="L798" class="LineNr"> 798 </span> 05/add-to-eax 8/imm32 -<span id="L799" class="LineNr"> 799 </span><span class="Constant">$get-or-insert-handle:end</span>: -<span id="L800" class="LineNr"> 800 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L801" class="LineNr"> 801 </span> 5e/pop-to-esi -<span id="L802" class="LineNr"> 802 </span> 5b/pop-to-ebx -<span id="L803" class="LineNr"> 803 </span> 5a/pop-to-edx -<span id="L804" class="LineNr"> 804 </span> 59/pop-to-ecx -<span id="L805" class="LineNr"> 805 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L806" class="LineNr"> 806 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L807" class="LineNr"> 807 </span> 5d/pop-to-ebp -<span id="L808" class="LineNr"> 808 </span> c3/return -<span id="L809" class="LineNr"> 809 </span> -<span id="L810" class="LineNr"> 810 </span><span class="Constant">$get-or-insert-handle:abort</span>: -<span id="L811" class="LineNr"> 811 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L812" class="LineNr"> 812 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L813" class="LineNr"> 813 </span> 68/push <span class="Constant">"get-or-insert-handle: table is full\n"</span>/imm32 -<span id="L814" class="LineNr"> 814 </span> 68/push 2/imm32/stderr -<span id="L815" class="LineNr"> 815 </span> <span class="subxS2Comment"># . . call</span> -<span id="L816" class="LineNr"> 816 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L817" class="LineNr"> 817 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L818" class="LineNr"> 818 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L819" class="LineNr"> 819 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L820" class="LineNr"> 820 </span> bb/copy-to-ebx 1/imm32 -<span id="L821" class="LineNr"> 821 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L822" class="LineNr"> 822 </span> <span class="subxComment"># never gets here</span> -<span id="L823" class="LineNr"> 823 </span> -<span id="L824" class="LineNr"> 824 </span><span class="subxTest">test-get-or-insert-handle</span>: -<span id="L825" class="LineNr"> 825 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L826" class="LineNr"> 826 </span> 55/push-ebp -<span id="L827" class="LineNr"> 827 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L828" class="LineNr"> 828 </span> <span class="subxComment"># var table/ecx: (stream {(handle array byte), number} 24) # 2 rows * 12 bytes/row</span> -<span id="L829" class="LineNr"> 829 </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="L830" class="LineNr"> 830 </span> 68/push 0x18/imm32/size -<span id="L831" class="LineNr"> 831 </span> 68/push 0/imm32/read -<span id="L832" class="LineNr"> 832 </span> 68/push 0/imm32/write -<span id="L833" class="LineNr"> 833 </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="L834" class="LineNr"> 834 </span> <span class="subxComment"># var h/edx: (handle array byte)</span> -<span id="L835" class="LineNr"> 835 </span> 68/push 0/imm32 -<span id="L836" class="LineNr"> 836 </span> 68/push 0/imm32 -<span id="L837" class="LineNr"> 837 </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="L838" class="LineNr"> 838 </span><span class="Constant">$test-get-or-insert-handle:first-call</span>: -<span id="L839" class="LineNr"> 839 </span> <span class="subxH1Comment"># - start with an empty table, insert one key, verify that it was inserted</span> -<span id="L840" class="LineNr"> 840 </span> <span class="subxComment"># copy-array(Heap, "code", h)</span> -<span id="L841" class="LineNr"> 841 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L842" class="LineNr"> 842 </span> 52/push-edx -<span id="L843" class="LineNr"> 843 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L844" class="LineNr"> 844 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L845" class="LineNr"> 845 </span> <span class="subxS2Comment"># . . call</span> -<span id="L846" class="LineNr"> 846 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 -<span id="L847" class="LineNr"> 847 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L848" class="LineNr"> 848 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L849" class="LineNr"> 849 </span> <span class="subxComment"># eax = get-or-insert-handle(table, h, 12 bytes/row)</span> -<span id="L850" class="LineNr"> 850 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L851" class="LineNr"> 851 </span> 68/push 0xc/imm32/row-size -<span id="L852" class="LineNr"> 852 </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="L853" class="LineNr"> 853 </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="L854" class="LineNr"> 854 </span> 51/push-ecx -<span id="L855" class="LineNr"> 855 </span> <span class="subxS2Comment"># . . call</span> -<span id="L856" class="LineNr"> 856 </span> e8/call <a href='131table.subx.html#L706'>get-or-insert-handle</a>/disp32 -<span id="L857" class="LineNr"> 857 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L858" class="LineNr"> 858 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L859" class="LineNr"> 859 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg) # first row's value slot returned</span> -<span id="L860" class="LineNr"> 860 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> -<span id="L861" class="LineNr"> 861 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L862" class="LineNr"> 862 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L824'>test-get-or-insert-handle</a>/0"</span>/imm32 -<span id="L863" class="LineNr"> 863 </span> 68/push 0x14/imm32 -<span id="L864" class="LineNr"> 864 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> -<span id="L865" class="LineNr"> 865 </span> 50/push-eax -<span id="L866" class="LineNr"> 866 </span> <span class="subxS2Comment"># . . call</span> -<span id="L867" class="LineNr"> 867 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L868" class="LineNr"> 868 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L869" class="LineNr"> 869 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L870" class="LineNr"> 870 </span> <span class="subxComment"># check-ints-equal(table->write, row-size = 12, msg)</span> -<span id="L871" class="LineNr"> 871 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L872" class="LineNr"> 872 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L824'>test-get-or-insert-handle</a>/1"</span>/imm32 -<span id="L873" class="LineNr"> 873 </span> 68/push 0xc/imm32/row-size -<span id="L874" class="LineNr"> 874 </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="L875" class="LineNr"> 875 </span> <span class="subxS2Comment"># . . call</span> -<span id="L876" class="LineNr"> 876 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L877" class="LineNr"> 877 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L878" class="LineNr"> 878 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L879" class="LineNr"> 879 </span> <span class="subxComment"># var curr-addr/eax: (addr array byte) = lookup(table->data)</span> -<span id="L880" class="LineNr"> 880 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L881" class="LineNr"> 881 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> -<span id="L882" class="LineNr"> 882 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> -<span id="L883" class="LineNr"> 883 </span> <span class="subxS2Comment"># . . call</span> -<span id="L884" class="LineNr"> 884 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 -<span id="L885" class="LineNr"> 885 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L886" class="LineNr"> 886 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L887" class="LineNr"> 887 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> -<span id="L888" class="LineNr"> 888 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L889" class="LineNr"> 889 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L824'>test-get-or-insert-handle</a>/2"</span>/imm32 -<span id="L890" class="LineNr"> 890 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L891" class="LineNr"> 891 </span> 50/push-eax -<span id="L892" class="LineNr"> 892 </span> <span class="subxS2Comment"># . . call</span> -<span id="L893" class="LineNr"> 893 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 -<span id="L894" class="LineNr"> 894 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L895" class="LineNr"> 895 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L896" class="LineNr"> 896 </span><span class="Constant">$test-get-or-insert-handle:second-call</span>: -<span id="L897" class="LineNr"> 897 </span> <span class="subxH1Comment"># - insert the same key again, verify that it was reused</span> -<span id="L898" class="LineNr"> 898 </span> <span class="subxComment"># copy-array(Heap, "code", h)</span> -<span id="L899" class="LineNr"> 899 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L900" class="LineNr"> 900 </span> 52/push-edx -<span id="L901" class="LineNr"> 901 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L902" class="LineNr"> 902 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L903" class="LineNr"> 903 </span> <span class="subxS2Comment"># . . call</span> -<span id="L904" class="LineNr"> 904 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 -<span id="L905" class="LineNr"> 905 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L906" class="LineNr"> 906 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L907" class="LineNr"> 907 </span> <span class="subxComment"># eax = get-or-insert-handle(table, h, 12 bytes/row)</span> -<span id="L908" class="LineNr"> 908 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L909" class="LineNr"> 909 </span> 68/push 0xc/imm32/row-size -<span id="L910" class="LineNr"> 910 </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="L911" class="LineNr"> 911 </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="L912" class="LineNr"> 912 </span> 51/push-ecx +<span id="L732" class="LineNr"> 732 </span> <span class="subxComment"># var curr/ecx: (addr handle array byte) = table->data</span> +<span id="L733" class="LineNr"> 733 </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="L734" class="LineNr"> 734 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> +<span id="L735" class="LineNr"> 735 </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="L736" class="LineNr"> 736 </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="L737" class="LineNr"> 737 </span><span class="Constant">$insert-or-abort:search-loop</span>: +<span id="L738" class="LineNr"> 738 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L739" class="LineNr"> 739 </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="L740" class="LineNr"> 740 </span> 73/jump-if-addr>= $insert-or-abort:not-found/disp8 +<span id="L741" class="LineNr"> 741 </span> <span class="subxComment"># var c/eax: (addr array byte) = lookup(*curr)</span> +<span id="L742" class="LineNr"> 742 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L743" class="LineNr"> 743 </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="L744" class="LineNr"> 744 </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="L745" class="LineNr"> 745 </span> <span class="subxS2Comment"># . . call</span> +<span id="L746" class="LineNr"> 746 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L747" class="LineNr"> 747 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L748" class="LineNr"> 748 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L749" class="LineNr"> 749 </span> <span class="subxComment"># if (string-equal?(key, c)) abort</span> +<span id="L750" class="LineNr"> 750 </span> <span class="subxS1Comment"># . eax = string-equal?(key, c)</span> +<span id="L751" class="LineNr"> 751 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L752" class="LineNr"> 752 </span> 50/push-eax +<span id="L753" class="LineNr"> 753 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L754" class="LineNr"> 754 </span> <span class="subxS2Comment"># . . call</span> +<span id="L755" class="LineNr"> 755 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 +<span id="L756" class="LineNr"> 756 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L757" class="LineNr"> 757 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L758" class="LineNr"> 758 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> +<span id="L759" class="LineNr"> 759 </span> 3d/compare-eax-and 0/imm32/false +<span id="L760" class="LineNr"> 760 </span> 0f 85/jump-if-!= $insert-or-abort:error-duplicate/disp32 +<span id="L761" class="LineNr"> 761 </span> <span class="subxComment"># curr += row-size</span> +<span id="L762" class="LineNr"> 762 </span> 03/add 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"># add *(ebp+16) to ecx</span> +<span id="L763" class="LineNr"> 763 </span> <span class="subxComment"># loop</span> +<span id="L764" class="LineNr"> 764 </span> eb/jump $insert-or-abort:search-loop/disp8 +<span id="L765" class="LineNr"> 765 </span><span class="Constant">$insert-or-abort:not-found</span>: +<span id="L766" class="LineNr"> 766 </span> <span class="subxComment"># if (table->write >= table->size) abort</span> +<span id="L767" class="LineNr"> 767 </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="L768" class="LineNr"> 768 </span> 3b/compare 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(esi+8)</span> +<span id="L769" class="LineNr"> 769 </span> 0f 83/jump-if-addr>= $insert-or-abort:error-full/disp32 +<span id="L770" class="LineNr"> 770 </span> <span class="subxComment"># zero-out(max, row-size)</span> +<span id="L771" class="LineNr"> 771 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L772" class="LineNr"> 772 </span> ff 6/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="L773" class="LineNr"> 773 </span> 52/push-edx +<span id="L774" class="LineNr"> 774 </span> <span class="subxS2Comment"># . . call</span> +<span id="L775" class="LineNr"> 775 </span> e8/call <a href='120allocate.subx.html#L889'>zero-out</a>/disp32 +<span id="L776" class="LineNr"> 776 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L777" class="LineNr"> 777 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L778" class="LineNr"> 778 </span> <span class="subxComment"># copy-array(ad, key, max)</span> +<span id="L779" class="LineNr"> 779 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L780" class="LineNr"> 780 </span> 52/push-edx +<span id="L781" class="LineNr"> 781 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L782" class="LineNr"> 782 </span> ff 6/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="L783" class="LineNr"> 783 </span> <span class="subxS2Comment"># . . call</span> +<span id="L784" class="LineNr"> 784 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L785" class="LineNr"> 785 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L786" class="LineNr"> 786 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L787" class="LineNr"> 787 </span> <span class="subxComment"># table->write += row-size</span> +<span id="L788" class="LineNr"> 788 </span> <span class="subxS1Comment"># . eax = row-size</span> +<span id="L789" class="LineNr"> 789 </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="L790" class="LineNr"> 790 </span> <span class="subxS1Comment"># . table->write += eax</span> +<span id="L791" class="LineNr"> 791 </span> 01/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *esi</span> +<span id="L792" class="LineNr"> 792 </span> <span class="subxComment"># return max+8</span> +<span id="L793" class="LineNr"> 793 </span> <span class="subxS1Comment"># . eax = max</span> +<span id="L794" class="LineNr"> 794 </span> 89/copy 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"># copy edx to eax</span> +<span id="L795" class="LineNr"> 795 </span> <span class="subxS1Comment"># . eax += 8</span> +<span id="L796" class="LineNr"> 796 </span> 05/add-to-eax 8/imm32 +<span id="L797" class="LineNr"> 797 </span><span class="Constant">$insert-or-abort:end</span>: +<span id="L798" class="LineNr"> 798 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L799" class="LineNr"> 799 </span> 5e/pop-to-esi +<span id="L800" class="LineNr"> 800 </span> 5a/pop-to-edx +<span id="L801" class="LineNr"> 801 </span> 59/pop-to-ecx +<span id="L802" class="LineNr"> 802 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L803" class="LineNr"> 803 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L804" class="LineNr"> 804 </span> 5d/pop-to-ebp +<span id="L805" class="LineNr"> 805 </span> c3/return +<span id="L806" class="LineNr"> 806 </span> +<span id="L807" class="LineNr"> 807 </span><span class="Constant">$insert-or-abort:error-duplicate</span>: +<span id="L808" class="LineNr"> 808 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L809" class="LineNr"> 809 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L810" class="LineNr"> 810 </span> 68/push <span class="Constant">"insert-or-abort: key already exists: "</span>/imm32 +<span id="L811" class="LineNr"> 811 </span> 68/push 2/imm32/stderr +<span id="L812" class="LineNr"> 812 </span> <span class="subxS2Comment"># . . call</span> +<span id="L813" class="LineNr"> 813 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L814" class="LineNr"> 814 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L815" class="LineNr"> 815 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L816" class="LineNr"> 816 </span> <span class="subxS1Comment"># . _write(2/stderr, key)</span> +<span id="L817" class="LineNr"> 817 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L818" class="LineNr"> 818 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L819" class="LineNr"> 819 </span> 68/push 2/imm32/stderr +<span id="L820" class="LineNr"> 820 </span> <span class="subxS2Comment"># . . call</span> +<span id="L821" class="LineNr"> 821 </span> e8/call <a href='101_write.subx.html#L12'>_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(2/stderr, "\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">"\n"</span>/imm32 +<span id="L827" class="LineNr"> 827 </span> 68/push 2/imm32/stderr +<span id="L828" class="LineNr"> 828 </span> <span class="subxS2Comment"># . . call</span> +<span id="L829" class="LineNr"> 829 </span> e8/call <a href='101_write.subx.html#L12'>_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"># . syscall_exit(1)</span> +<span id="L833" class="LineNr"> 833 </span> bb/copy-to-ebx 1/imm32 +<span id="L834" class="LineNr"> 834 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L835" class="LineNr"> 835 </span> <span class="subxComment"># never gets here</span> +<span id="L836" class="LineNr"> 836 </span> +<span id="L837" class="LineNr"> 837 </span><span class="Constant">$insert-or-abort:error-full</span>: +<span id="L838" class="LineNr"> 838 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L839" class="LineNr"> 839 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L840" class="LineNr"> 840 </span> 68/push <span class="Constant">"insert-or-abort: table is full\n"</span>/imm32 +<span id="L841" class="LineNr"> 841 </span> 68/push 2/imm32/stderr +<span id="L842" class="LineNr"> 842 </span> <span class="subxS2Comment"># . . call</span> +<span id="L843" class="LineNr"> 843 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L844" class="LineNr"> 844 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L845" class="LineNr"> 845 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L846" class="LineNr"> 846 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> +<span id="L847" class="LineNr"> 847 </span> bb/copy-to-ebx 1/imm32 +<span id="L848" class="LineNr"> 848 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L849" class="LineNr"> 849 </span> <span class="subxComment"># never gets here</span> +<span id="L850" class="LineNr"> 850 </span> +<span id="L851" class="LineNr"> 851 </span><span class="subxComment"># if no row is found, save 'key' to the next available row</span> +<span id="L852" class="LineNr"> 852 </span><span class="subxComment"># if there are no rows free, abort</span> +<span id="L853" class="LineNr"> 853 </span><span class="subxComment"># return the address of the value</span> +<span id="L854" class="LineNr"> 854 </span><span class="subxFunction">get-or-insert-handle</span>: <span class="subxComment"># table: (addr stream {(handle array byte), T}), key: (handle array byte), row-size: int -> result/eax: (addr T)</span> +<span id="L855" class="LineNr"> 855 </span> <span class="subxComment"># pseudocode:</span> +<span id="L856" class="LineNr"> 856 </span> <span class="subxComment"># var curr: (addr handle stream) = table->data</span> +<span id="L857" class="LineNr"> 857 </span> <span class="subxComment"># var max: (addr byte) = &table->data[table->write]</span> +<span id="L858" class="LineNr"> 858 </span> <span class="subxComment"># var k: (addr array byte) = lookup(key)</span> +<span id="L859" class="LineNr"> 859 </span> <span class="subxComment"># while curr < max</span> +<span id="L860" class="LineNr"> 860 </span> <span class="subxComment"># var c: (addr array byte) = lookup(*curr)</span> +<span id="L861" class="LineNr"> 861 </span> <span class="subxComment"># if string-equal?(k, c)</span> +<span id="L862" class="LineNr"> 862 </span> <span class="subxComment"># return curr+8</span> +<span id="L863" class="LineNr"> 863 </span> <span class="subxComment"># curr += row-size</span> +<span id="L864" class="LineNr"> 864 </span> <span class="subxComment"># if table->write >= table->size</span> +<span id="L865" class="LineNr"> 865 </span> <span class="subxComment"># abort</span> +<span id="L866" class="LineNr"> 866 </span> <span class="subxComment"># *max = key</span> +<span id="L867" class="LineNr"> 867 </span> <span class="subxComment"># table->write += row-size</span> +<span id="L868" class="LineNr"> 868 </span> <span class="subxComment"># return max+8</span> +<span id="L869" class="LineNr"> 869 </span> <span class="subxComment">#</span> +<span id="L870" class="LineNr"> 870 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L871" class="LineNr"> 871 </span> 55/push-ebp +<span id="L872" class="LineNr"> 872 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L873" class="LineNr"> 873 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L874" class="LineNr"> 874 </span> 51/push-ecx +<span id="L875" class="LineNr"> 875 </span> 52/push-edx +<span id="L876" class="LineNr"> 876 </span> 53/push-ebx +<span id="L877" class="LineNr"> 877 </span> 56/push-esi +<span id="L878" class="LineNr"> 878 </span> <span class="subxComment"># esi = table</span> +<span id="L879" class="LineNr"> 879 </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="L880" class="LineNr"> 880 </span> <span class="subxComment"># var k/ebx: (addr array byte) = lookup(key)</span> +<span id="L881" class="LineNr"> 881 </span> <span class="subxS1Comment"># . eax = lookup(key)</span> +<span id="L882" class="LineNr"> 882 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L883" class="LineNr"> 883 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L884" class="LineNr"> 884 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L885" class="LineNr"> 885 </span> <span class="subxS2Comment"># . . call</span> +<span id="L886" class="LineNr"> 886 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L887" class="LineNr"> 887 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L888" class="LineNr"> 888 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L889" class="LineNr"> 889 </span> <span class="subxS1Comment"># . ebx = eax</span> +<span id="L890" class="LineNr"> 890 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> +<span id="L891" class="LineNr"> 891 </span> <span class="subxComment"># var curr/ecx: (addr handle array byte) = table->data</span> +<span id="L892" class="LineNr"> 892 </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="L893" class="LineNr"> 893 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> +<span id="L894" class="LineNr"> 894 </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="L895" class="LineNr"> 895 </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="L896" class="LineNr"> 896 </span><span class="Constant">$get-or-insert-handle:search-loop</span>: +<span id="L897" class="LineNr"> 897 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L898" class="LineNr"> 898 </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="L899" class="LineNr"> 899 </span> 73/jump-if-addr>= $get-or-insert-handle:not-found/disp8 +<span id="L900" class="LineNr"> 900 </span> <span class="subxComment"># var c/eax: (addr array byte) = lookup(*curr)</span> +<span id="L901" class="LineNr"> 901 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L902" class="LineNr"> 902 </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="L903" class="LineNr"> 903 </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="L904" class="LineNr"> 904 </span> <span class="subxS2Comment"># . . call</span> +<span id="L905" class="LineNr"> 905 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L906" class="LineNr"> 906 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L907" class="LineNr"> 907 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L908" class="LineNr"> 908 </span> <span class="subxComment"># if (string-equal?(k, c)) return curr+8</span> +<span id="L909" class="LineNr"> 909 </span> <span class="subxS1Comment"># . eax = string-equal?(k, c)</span> +<span id="L910" class="LineNr"> 910 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L911" class="LineNr"> 911 </span> 50/push-eax +<span id="L912" class="LineNr"> 912 </span> 53/push-ebx <span id="L913" class="LineNr"> 913 </span> <span class="subxS2Comment"># . . call</span> -<span id="L914" class="LineNr"> 914 </span> e8/call <a href='131table.subx.html#L706'>get-or-insert-handle</a>/disp32 +<span id="L914" class="LineNr"> 914 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 <span id="L915" class="LineNr"> 915 </span> <span class="subxS2Comment"># . . discard args</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> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L917" class="LineNr"> 917 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg)</span> -<span id="L918" class="LineNr"> 918 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> -<span id="L919" class="LineNr"> 919 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L920" class="LineNr"> 920 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L824'>test-get-or-insert-handle</a>/3"</span>/imm32 -<span id="L921" class="LineNr"> 921 </span> 68/push 0x14/imm32 -<span id="L922" class="LineNr"> 922 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> -<span id="L923" class="LineNr"> 923 </span> 50/push-eax -<span id="L924" class="LineNr"> 924 </span> <span class="subxS2Comment"># . . call</span> -<span id="L925" class="LineNr"> 925 </span> e8/call <a href='102test.subx.html#L23'>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="subxComment"># no new row inserted</span> -<span id="L929" class="LineNr"> 929 </span> <span class="subxS1Comment"># . check-ints-equal(table->write, row-size = 12, msg)</span> -<span id="L930" class="LineNr"> 930 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L931" class="LineNr"> 931 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L824'>test-get-or-insert-handle</a>/4"</span>/imm32 -<span id="L932" class="LineNr"> 932 </span> 68/push 0xc/imm32/row-size -<span id="L933" class="LineNr"> 933 </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="L934" class="LineNr"> 934 </span> <span class="subxS2Comment"># . . call</span> -<span id="L935" class="LineNr"> 935 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L936" class="LineNr"> 936 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L937" class="LineNr"> 937 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L938" class="LineNr"> 938 </span> <span class="subxComment"># curr-addr = lookup(table->data)</span> -<span id="L939" class="LineNr"> 939 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L940" class="LineNr"> 940 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> -<span id="L941" class="LineNr"> 941 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> -<span id="L942" class="LineNr"> 942 </span> <span class="subxS2Comment"># . . call</span> -<span id="L943" class="LineNr"> 943 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 -<span id="L944" class="LineNr"> 944 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L945" class="LineNr"> 945 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L946" class="LineNr"> 946 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> -<span id="L947" class="LineNr"> 947 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L948" class="LineNr"> 948 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L824'>test-get-or-insert-handle</a>/5"</span>/imm32 -<span id="L949" class="LineNr"> 949 </span> 68/push <span class="Constant">"code"</span>/imm32 -<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='105string-equal.subx.html#L220'>check-strings-equal</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> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L955" class="LineNr"> 955 </span><span class="Constant">$test-get-or-insert-handle:third-call</span>: -<span id="L956" class="LineNr"> 956 </span> <span class="subxH1Comment"># - insert a new key, verify that it was inserted</span> -<span id="L957" class="LineNr"> 957 </span> <span class="subxComment"># copy-array(Heap, "data", h)</span> -<span id="L958" class="LineNr"> 958 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L959" class="LineNr"> 959 </span> 52/push-edx -<span id="L960" class="LineNr"> 960 </span> 68/push <span class="Constant">"data"</span>/imm32 -<span id="L961" class="LineNr"> 961 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L962" class="LineNr"> 962 </span> <span class="subxS2Comment"># . . call</span> -<span id="L963" class="LineNr"> 963 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 -<span id="L964" class="LineNr"> 964 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L965" class="LineNr"> 965 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L966" class="LineNr"> 966 </span> <span class="subxComment"># eax = get-or-insert-handle(table, h, 12 bytes/row)</span> -<span id="L967" class="LineNr"> 967 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L968" class="LineNr"> 968 </span> 68/push 0xc/imm32/row-size -<span id="L969" class="LineNr"> 969 </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="L970" class="LineNr"> 970 </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="L971" class="LineNr"> 971 </span> 51/push-ecx -<span id="L972" class="LineNr"> 972 </span> <span class="subxS2Comment"># . . call</span> -<span id="L973" class="LineNr"> 973 </span> e8/call <a href='131table.subx.html#L706'>get-or-insert-handle</a>/disp32 -<span id="L974" class="LineNr"> 974 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L975" class="LineNr"> 975 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L976" class="LineNr"> 976 </span> <span class="subxComment"># table gets a new row</span> -<span id="L977" class="LineNr"> 977 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 20, msg) # second row's value slot returned</span> -<span id="L978" class="LineNr"> 978 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 32, msg)</span> -<span id="L979" class="LineNr"> 979 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L980" class="LineNr"> 980 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L824'>test-get-or-insert-handle</a>/6"</span>/imm32 -<span id="L981" class="LineNr"> 981 </span> 68/push 0x20/imm32 -<span id="L982" class="LineNr"> 982 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> -<span id="L983" class="LineNr"> 983 </span> 50/push-eax -<span id="L984" class="LineNr"> 984 </span> <span class="subxS2Comment"># . . call</span> -<span id="L985" class="LineNr"> 985 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</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> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L988" class="LineNr"> 988 </span> <span class="subxComment"># check-ints-equal(table->write, 2 rows = 24, msg)</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> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L917" class="LineNr"> 917 </span> <span class="subxS1Comment"># . if (eax != false) return eax = curr+8</span> +<span id="L918" class="LineNr"> 918 </span> 3d/compare-eax-and 0/imm32/false +<span id="L919" class="LineNr"> 919 </span> 74/jump-if-= $get-or-insert-handle:mismatch/disp8 +<span id="L920" class="LineNr"> 920 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <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 ecx+8 to eax</span> +<span id="L921" class="LineNr"> 921 </span> eb/jump $get-or-insert-handle:end/disp8 +<span id="L922" class="LineNr"> 922 </span><span class="Constant">$get-or-insert-handle:mismatch</span>: +<span id="L923" class="LineNr"> 923 </span> <span class="subxComment"># curr += row-size</span> +<span id="L924" class="LineNr"> 924 </span> 03/add 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"># add *(ebp+20) to ecx</span> +<span id="L925" class="LineNr"> 925 </span> <span class="subxComment"># loop</span> +<span id="L926" class="LineNr"> 926 </span> eb/jump $get-or-insert-handle:search-loop/disp8 +<span id="L927" class="LineNr"> 927 </span><span class="Constant">$get-or-insert-handle:not-found</span>: +<span id="L928" class="LineNr"> 928 </span> <span class="subxComment"># if (table->write >= table->size) abort</span> +<span id="L929" class="LineNr"> 929 </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="L930" class="LineNr"> 930 </span> 3b/compare 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(esi+8)</span> +<span id="L931" class="LineNr"> 931 </span> 73/jump-if-addr>= $get-or-insert-handle:abort/disp8 +<span id="L932" class="LineNr"> 932 </span> <span class="subxComment"># table->write += row-size</span> +<span id="L933" class="LineNr"> 933 </span> <span class="subxS1Comment"># . eax = row-size</span> +<span id="L934" class="LineNr"> 934 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to eax</span> +<span id="L935" class="LineNr"> 935 </span> <span class="subxS1Comment"># . table->write += eax</span> +<span id="L936" class="LineNr"> 936 </span> 01/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *esi</span> +<span id="L937" class="LineNr"> 937 </span> <span class="subxComment"># *max = key</span> +<span id="L938" class="LineNr"> 938 </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="L939" class="LineNr"> 939 </span> 89/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edx</span> +<span id="L940" class="LineNr"> 940 </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="L941" class="LineNr"> 941 </span> 89/copy 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edx+4)</span> +<span id="L942" class="LineNr"> 942 </span> <span class="subxComment"># return max+8</span> +<span id="L943" class="LineNr"> 943 </span> <span class="subxS1Comment"># . eax = max</span> +<span id="L944" class="LineNr"> 944 </span> 89/copy 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"># copy edx to eax</span> +<span id="L945" class="LineNr"> 945 </span> <span class="subxS1Comment"># . eax += 8</span> +<span id="L946" class="LineNr"> 946 </span> 05/add-to-eax 8/imm32 +<span id="L947" class="LineNr"> 947 </span><span class="Constant">$get-or-insert-handle:end</span>: +<span id="L948" class="LineNr"> 948 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L949" class="LineNr"> 949 </span> 5e/pop-to-esi +<span id="L950" class="LineNr"> 950 </span> 5b/pop-to-ebx +<span id="L951" class="LineNr"> 951 </span> 5a/pop-to-edx +<span id="L952" class="LineNr"> 952 </span> 59/pop-to-ecx +<span id="L953" class="LineNr"> 953 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L954" class="LineNr"> 954 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L955" class="LineNr"> 955 </span> 5d/pop-to-ebp +<span id="L956" class="LineNr"> 956 </span> c3/return +<span id="L957" class="LineNr"> 957 </span> +<span id="L958" class="LineNr"> 958 </span><span class="Constant">$get-or-insert-handle:abort</span>: +<span id="L959" class="LineNr"> 959 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L960" class="LineNr"> 960 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L961" class="LineNr"> 961 </span> 68/push <span class="Constant">"get-or-insert-handle: table is full\n"</span>/imm32 +<span id="L962" class="LineNr"> 962 </span> 68/push 2/imm32/stderr +<span id="L963" class="LineNr"> 963 </span> <span class="subxS2Comment"># . . call</span> +<span id="L964" class="LineNr"> 964 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L965" class="LineNr"> 965 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L966" class="LineNr"> 966 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L967" class="LineNr"> 967 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> +<span id="L968" class="LineNr"> 968 </span> bb/copy-to-ebx 1/imm32 +<span id="L969" class="LineNr"> 969 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L970" class="LineNr"> 970 </span> <span class="subxComment"># never gets here</span> +<span id="L971" class="LineNr"> 971 </span> +<span id="L972" class="LineNr"> 972 </span><span class="subxTest">test-get-or-insert-handle</span>: +<span id="L973" class="LineNr"> 973 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L974" class="LineNr"> 974 </span> 55/push-ebp +<span id="L975" class="LineNr"> 975 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L976" class="LineNr"> 976 </span> <span class="subxComment"># var table/ecx: (stream {(handle array byte), number} 24) # 2 rows * 12 bytes/row</span> +<span id="L977" class="LineNr"> 977 </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="L978" class="LineNr"> 978 </span> 68/push 0x18/imm32/size +<span id="L979" class="LineNr"> 979 </span> 68/push 0/imm32/read +<span id="L980" class="LineNr"> 980 </span> 68/push 0/imm32/write +<span id="L981" class="LineNr"> 981 </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="L982" class="LineNr"> 982 </span> <span class="subxComment"># var h/edx: (handle array byte)</span> +<span id="L983" class="LineNr"> 983 </span> 68/push 0/imm32 +<span id="L984" class="LineNr"> 984 </span> 68/push 0/imm32 +<span id="L985" class="LineNr"> 985 </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="L986" class="LineNr"> 986 </span><span class="Constant">$test-get-or-insert-handle:first-call</span>: +<span id="L987" class="LineNr"> 987 </span> <span class="subxH1Comment"># - start with an empty table, insert one key, verify that it was inserted</span> +<span id="L988" class="LineNr"> 988 </span> <span class="subxComment"># copy-array(Heap, "code", h)</span> <span id="L989" class="LineNr"> 989 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L990" class="LineNr"> 990 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L824'>test-get-or-insert-handle</a>/7"</span>/imm32 -<span id="L991" class="LineNr"> 991 </span> 68/push 0x18/imm32/two-rows -<span id="L992" class="LineNr"> 992 </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="L990" class="LineNr"> 990 </span> 52/push-edx +<span id="L991" class="LineNr"> 991 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L992" class="LineNr"> 992 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 <span id="L993" class="LineNr"> 993 </span> <span class="subxS2Comment"># . . call</span> -<span id="L994" class="LineNr"> 994 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L994" class="LineNr"> 994 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 <span id="L995" class="LineNr"> 995 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L996" class="LineNr"> 996 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L997" class="LineNr"> 997 </span> <span class="subxComment"># curr-addr = lookup(table->data+12)</span> +<span id="L997" class="LineNr"> 997 </span> <span class="subxComment"># eax = get-or-insert-handle(table, h, 12 bytes/row)</span> <span id="L998" class="LineNr"> 998 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L999" class="LineNr"> 999 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+28)</span> -<span id="L1000" class="LineNr">1000 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+24)</span> -<span id="L1001" class="LineNr">1001 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1002" class="LineNr">1002 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 -<span id="L1003" class="LineNr">1003 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1004" class="LineNr">1004 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1005" class="LineNr">1005 </span> <span class="subxComment"># check-strings-equal(curr-addr, "data", msg)</span> -<span id="L1006" class="LineNr">1006 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1007" class="LineNr">1007 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L824'>test-get-or-insert-handle</a>/8"</span>/imm32 -<span id="L1008" class="LineNr">1008 </span> 68/push <span class="Constant">"data"</span>/imm32 -<span id="L1009" class="LineNr">1009 </span> 50/push-eax -<span id="L1010" class="LineNr">1010 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1011" class="LineNr">1011 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 -<span id="L1012" class="LineNr">1012 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1013" class="LineNr">1013 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1014" class="LineNr">1014 </span><span class="Constant">$test-get-or-insert-handle:end</span>: -<span id="L1015" class="LineNr">1015 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1016" class="LineNr">1016 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1017" class="LineNr">1017 </span> 5d/pop-to-ebp -<span id="L1018" class="LineNr">1018 </span> c3/return -<span id="L1019" class="LineNr">1019 </span> -<span id="L1020" class="LineNr">1020 </span><span class="subxComment"># if no row is found, save 'key' in the next available row</span> -<span id="L1021" class="LineNr">1021 </span><span class="subxComment"># if there are no rows free, abort</span> -<span id="L1022" class="LineNr">1022 </span><span class="subxFunction">get-or-insert-slice</span>: <span class="subxComment"># table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int, ad: (addr allocation-descriptor) -> result/eax: (addr T)</span> -<span id="L1023" class="LineNr">1023 </span> <span class="subxComment"># pseudocode:</span> -<span id="L1024" class="LineNr">1024 </span> <span class="subxComment"># curr = table->data</span> -<span id="L1025" class="LineNr">1025 </span> <span class="subxComment"># max = &table->data[table->write]</span> -<span id="L1026" class="LineNr">1026 </span> <span class="subxComment"># while curr < max</span> -<span id="L1027" class="LineNr">1027 </span> <span class="subxComment"># var c: (addr array byte) = lookup(*curr)</span> -<span id="L1028" class="LineNr">1028 </span> <span class="subxComment"># if slice-equal?(key, *curr)</span> -<span id="L1029" class="LineNr">1029 </span> <span class="subxComment"># return curr+8</span> -<span id="L1030" class="LineNr">1030 </span> <span class="subxComment"># curr += row-size</span> -<span id="L1031" class="LineNr">1031 </span> <span class="subxComment"># if table->write >= table->size</span> -<span id="L1032" class="LineNr">1032 </span> <span class="subxComment"># abort</span> -<span id="L1033" class="LineNr">1033 </span> <span class="subxComment"># zero-out(max, row-size)</span> -<span id="L1034" class="LineNr">1034 </span> <span class="subxComment"># slice-to-string(ad, key, max)</span> -<span id="L1035" class="LineNr">1035 </span> <span class="subxComment"># table->write += row-size</span> -<span id="L1036" class="LineNr">1036 </span> <span class="subxComment"># return max+8</span> -<span id="L1037" class="LineNr">1037 </span> <span class="subxComment">#</span> -<span id="L1038" class="LineNr">1038 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1039" class="LineNr">1039 </span> 55/push-ebp -<span id="L1040" class="LineNr">1040 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1041" class="LineNr">1041 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1042" class="LineNr">1042 </span> 51/push-ecx -<span id="L1043" class="LineNr">1043 </span> 52/push-edx -<span id="L1044" class="LineNr">1044 </span> 56/push-esi -<span id="L1045" class="LineNr">1045 </span> <span class="subxComment"># esi = table</span> -<span id="L1046" class="LineNr">1046 </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="L1047" class="LineNr">1047 </span> <span class="subxComment"># var curr/ecx: (addr handle array byte) = table->data</span> -<span id="L1048" class="LineNr">1048 </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="L1049" class="LineNr">1049 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> -<span id="L1050" class="LineNr">1050 </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="L1051" class="LineNr">1051 </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="L1052" class="LineNr">1052 </span><span class="Constant">$get-or-insert-slice:search-loop</span>: -<span id="L1053" class="LineNr">1053 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L1054" class="LineNr">1054 </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="L1055" class="LineNr">1055 </span> 73/jump-if-addr>= $get-or-insert-slice:not-found/disp8 -<span id="L1056" class="LineNr">1056 </span> <span class="subxComment"># var c/eax: (addr array byte) = lookup(*curr)</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 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L1059" class="LineNr">1059 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L1060" class="LineNr">1060 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1061" class="LineNr">1061 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 -<span id="L1062" class="LineNr">1062 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1063" class="LineNr">1063 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1064" class="LineNr">1064 </span> <span class="subxComment"># if (slice-equal?(key, c)) return curr+4</span> -<span id="L1065" class="LineNr">1065 </span> <span class="subxS1Comment"># . eax = slice-equal?(key, c)</span> -<span id="L1066" class="LineNr">1066 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1067" class="LineNr">1067 </span> 50/push-eax -<span id="L1068" class="LineNr">1068 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1069" class="LineNr">1069 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1070" class="LineNr">1070 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 -<span id="L1071" class="LineNr">1071 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1072" class="LineNr">1072 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1073" class="LineNr">1073 </span> <span class="subxS1Comment"># . if (eax != false) return eax = curr+8</span> -<span id="L1074" class="LineNr">1074 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1075" class="LineNr">1075 </span> 74/jump-if-= $get-or-insert-slice:mismatch/disp8 -<span id="L1076" class="LineNr">1076 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <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 ecx+8 to eax</span> -<span id="L1077" class="LineNr">1077 </span> eb/jump $get-or-insert-slice:end/disp8 -<span id="L1078" class="LineNr">1078 </span><span class="Constant">$get-or-insert-slice:mismatch</span>: -<span id="L1079" class="LineNr">1079 </span> <span class="subxComment"># curr += row-size</span> -<span id="L1080" class="LineNr">1080 </span> 03/add 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"># add *(ebp+16) to ecx</span> -<span id="L1081" class="LineNr">1081 </span> <span class="subxComment"># loop</span> -<span id="L1082" class="LineNr">1082 </span> eb/jump $get-or-insert-slice:search-loop/disp8 -<span id="L1083" class="LineNr">1083 </span><span class="Constant">$get-or-insert-slice:not-found</span>: -<span id="L1084" class="LineNr">1084 </span> <span class="subxComment"># result/eax = 0</span> -<span id="L1085" class="LineNr">1085 </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="L1086" class="LineNr">1086 </span> <span class="subxComment"># if (table->write >= table->size) abort</span> -<span id="L1087" class="LineNr">1087 </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="L1088" class="LineNr">1088 </span> 3b/compare 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(esi+8)</span> -<span id="L1089" class="LineNr">1089 </span> 7d/jump-if->= $get-or-insert-slice:abort/disp8 -<span id="L1090" class="LineNr">1090 </span> <span class="subxComment"># zero-out(max, row-size)</span> -<span id="L1091" class="LineNr">1091 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1092" class="LineNr">1092 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L1093" class="LineNr">1093 </span> 52/push-edx -<span id="L1094" class="LineNr">1094 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1095" class="LineNr">1095 </span> e8/call <a href='120allocate.subx.html#L889'>zero-out</a>/disp32 -<span id="L1096" class="LineNr">1096 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1097" class="LineNr">1097 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1098" class="LineNr">1098 </span> <span class="subxComment"># slice-to-string(ad, key, max)</span> -<span id="L1099" class="LineNr">1099 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1100" class="LineNr">1100 </span> 52/push-edx -<span id="L1101" class="LineNr">1101 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1102" class="LineNr">1102 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> -<span id="L1103" class="LineNr">1103 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1104" class="LineNr">1104 </span> e8/call <a href='123slice.subx.html#L1043'>slice-to-string</a>/disp32 -<span id="L1105" class="LineNr">1105 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1106" class="LineNr">1106 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1107" class="LineNr">1107 </span> <span class="subxComment"># table->write += row-size</span> -<span id="L1108" class="LineNr">1108 </span> <span class="subxS1Comment"># . eax = row-size</span> -<span id="L1109" class="LineNr">1109 </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="L1110" class="LineNr">1110 </span> <span class="subxS1Comment"># . table->write += eax</span> -<span id="L1111" class="LineNr">1111 </span> 01/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *esi</span> -<span id="L1112" class="LineNr">1112 </span> <span class="subxComment"># return max+8</span> -<span id="L1113" class="LineNr">1113 </span> <span class="subxS1Comment"># . eax = max</span> -<span id="L1114" class="LineNr">1114 </span> 89/copy 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"># copy edx to eax</span> -<span id="L1115" class="LineNr">1115 </span> <span class="subxS1Comment"># . eax += 8</span> -<span id="L1116" class="LineNr">1116 </span> 05/add-to-eax 8/imm32 -<span id="L1117" class="LineNr">1117 </span><span class="Constant">$get-or-insert-slice:end</span>: -<span id="L1118" class="LineNr">1118 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1119" class="LineNr">1119 </span> 5e/pop-to-esi -<span id="L1120" class="LineNr">1120 </span> 5a/pop-to-edx -<span id="L1121" class="LineNr">1121 </span> 59/pop-to-ecx -<span id="L1122" class="LineNr">1122 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1123" class="LineNr">1123 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1124" class="LineNr">1124 </span> 5d/pop-to-ebp -<span id="L1125" class="LineNr">1125 </span> c3/return -<span id="L1126" class="LineNr">1126 </span> -<span id="L1127" class="LineNr">1127 </span><span class="Constant">$get-or-insert-slice:abort</span>: -<span id="L1128" class="LineNr">1128 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L1129" class="LineNr">1129 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1130" class="LineNr">1130 </span> 68/push <span class="Constant">"get-or-insert-slice: table is full\n"</span>/imm32 -<span id="L1131" class="LineNr">1131 </span> 68/push 2/imm32/stderr +<span id="L999" class="LineNr"> 999 </span> 68/push 0xc/imm32/row-size +<span id="L1000" class="LineNr">1000 </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="L1001" class="LineNr">1001 </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="L1002" class="LineNr">1002 </span> 51/push-ecx +<span id="L1003" class="LineNr">1003 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1004" class="LineNr">1004 </span> e8/call <a href='131table.subx.html#L854'>get-or-insert-handle</a>/disp32 +<span id="L1005" class="LineNr">1005 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1006" class="LineNr">1006 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1007" class="LineNr">1007 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg) # first row's value slot returned</span> +<span id="L1008" class="LineNr">1008 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> +<span id="L1009" class="LineNr">1009 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1010" class="LineNr">1010 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L972'>test-get-or-insert-handle</a>/0"</span>/imm32 +<span id="L1011" class="LineNr">1011 </span> 68/push 0x14/imm32 +<span id="L1012" class="LineNr">1012 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> +<span id="L1013" class="LineNr">1013 </span> 50/push-eax +<span id="L1014" class="LineNr">1014 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1015" class="LineNr">1015 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1016" class="LineNr">1016 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1017" class="LineNr">1017 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1018" class="LineNr">1018 </span> <span class="subxComment"># check-ints-equal(table->write, row-size = 12, msg)</span> +<span id="L1019" class="LineNr">1019 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1020" class="LineNr">1020 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L972'>test-get-or-insert-handle</a>/1"</span>/imm32 +<span id="L1021" class="LineNr">1021 </span> 68/push 0xc/imm32/row-size +<span id="L1022" class="LineNr">1022 </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="L1023" class="LineNr">1023 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1024" class="LineNr">1024 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1025" class="LineNr">1025 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1026" class="LineNr">1026 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1027" class="LineNr">1027 </span> <span class="subxComment"># var curr-addr/eax: (addr array byte) = lookup(table->data)</span> +<span id="L1028" class="LineNr">1028 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1029" class="LineNr">1029 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> +<span id="L1030" class="LineNr">1030 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> +<span id="L1031" class="LineNr">1031 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1032" class="LineNr">1032 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L1033" class="LineNr">1033 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1034" class="LineNr">1034 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1035" class="LineNr">1035 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> +<span id="L1036" class="LineNr">1036 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1037" class="LineNr">1037 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L972'>test-get-or-insert-handle</a>/2"</span>/imm32 +<span id="L1038" class="LineNr">1038 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L1039" class="LineNr">1039 </span> 50/push-eax +<span id="L1040" class="LineNr">1040 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1041" class="LineNr">1041 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 +<span id="L1042" class="LineNr">1042 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1043" class="LineNr">1043 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1044" class="LineNr">1044 </span><span class="Constant">$test-get-or-insert-handle:second-call</span>: +<span id="L1045" class="LineNr">1045 </span> <span class="subxH1Comment"># - insert the same key again, verify that it was reused</span> +<span id="L1046" class="LineNr">1046 </span> <span class="subxComment"># copy-array(Heap, "code", h)</span> +<span id="L1047" class="LineNr">1047 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1048" class="LineNr">1048 </span> 52/push-edx +<span id="L1049" class="LineNr">1049 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L1050" class="LineNr">1050 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1051" class="LineNr">1051 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1052" class="LineNr">1052 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1053" class="LineNr">1053 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1054" class="LineNr">1054 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1055" class="LineNr">1055 </span> <span class="subxComment"># eax = get-or-insert-handle(table, h, 12 bytes/row)</span> +<span id="L1056" class="LineNr">1056 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1057" class="LineNr">1057 </span> 68/push 0xc/imm32/row-size +<span id="L1058" class="LineNr">1058 </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="L1059" class="LineNr">1059 </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="L1060" class="LineNr">1060 </span> 51/push-ecx +<span id="L1061" class="LineNr">1061 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1062" class="LineNr">1062 </span> e8/call <a href='131table.subx.html#L854'>get-or-insert-handle</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> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1065" class="LineNr">1065 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg)</span> +<span id="L1066" class="LineNr">1066 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> +<span id="L1067" class="LineNr">1067 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1068" class="LineNr">1068 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L972'>test-get-or-insert-handle</a>/3"</span>/imm32 +<span id="L1069" class="LineNr">1069 </span> 68/push 0x14/imm32 +<span id="L1070" class="LineNr">1070 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> +<span id="L1071" class="LineNr">1071 </span> 50/push-eax +<span id="L1072" class="LineNr">1072 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1073" class="LineNr">1073 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1074" class="LineNr">1074 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1075" class="LineNr">1075 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1076" class="LineNr">1076 </span> <span class="subxComment"># no new row inserted</span> +<span id="L1077" class="LineNr">1077 </span> <span class="subxS1Comment"># . check-ints-equal(table->write, row-size = 12, msg)</span> +<span id="L1078" class="LineNr">1078 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1079" class="LineNr">1079 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L972'>test-get-or-insert-handle</a>/4"</span>/imm32 +<span id="L1080" class="LineNr">1080 </span> 68/push 0xc/imm32/row-size +<span id="L1081" class="LineNr">1081 </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="L1082" class="LineNr">1082 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1083" class="LineNr">1083 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1084" class="LineNr">1084 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1085" class="LineNr">1085 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1086" class="LineNr">1086 </span> <span class="subxComment"># curr-addr = lookup(table->data)</span> +<span id="L1087" class="LineNr">1087 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1088" class="LineNr">1088 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> +<span id="L1089" class="LineNr">1089 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> +<span id="L1090" class="LineNr">1090 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1091" class="LineNr">1091 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</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> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1094" class="LineNr">1094 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</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">"F - <a href='131table.subx.html#L972'>test-get-or-insert-handle</a>/5"</span>/imm32 +<span id="L1097" class="LineNr">1097 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L1098" class="LineNr">1098 </span> 50/push-eax +<span id="L1099" class="LineNr">1099 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1100" class="LineNr">1100 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 +<span id="L1101" class="LineNr">1101 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1102" class="LineNr">1102 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1103" class="LineNr">1103 </span><span class="Constant">$test-get-or-insert-handle:third-call</span>: +<span id="L1104" class="LineNr">1104 </span> <span class="subxH1Comment"># - insert a new key, verify that it was inserted</span> +<span id="L1105" class="LineNr">1105 </span> <span class="subxComment"># copy-array(Heap, "data", h)</span> +<span id="L1106" class="LineNr">1106 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1107" class="LineNr">1107 </span> 52/push-edx +<span id="L1108" class="LineNr">1108 </span> 68/push <span class="Constant">"data"</span>/imm32 +<span id="L1109" class="LineNr">1109 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1110" class="LineNr">1110 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1111" class="LineNr">1111 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1112" class="LineNr">1112 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1113" class="LineNr">1113 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1114" class="LineNr">1114 </span> <span class="subxComment"># eax = get-or-insert-handle(table, h, 12 bytes/row)</span> +<span id="L1115" class="LineNr">1115 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1116" class="LineNr">1116 </span> 68/push 0xc/imm32/row-size +<span id="L1117" class="LineNr">1117 </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="L1118" class="LineNr">1118 </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="L1119" class="LineNr">1119 </span> 51/push-ecx +<span id="L1120" class="LineNr">1120 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1121" class="LineNr">1121 </span> e8/call <a href='131table.subx.html#L854'>get-or-insert-handle</a>/disp32 +<span id="L1122" class="LineNr">1122 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1123" class="LineNr">1123 </span> 81 0/subop/add 3/mod/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="L1124" class="LineNr">1124 </span> <span class="subxComment"># table gets a new row</span> +<span id="L1125" class="LineNr">1125 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 20, msg) # second row's value slot returned</span> +<span id="L1126" class="LineNr">1126 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 32, msg)</span> +<span id="L1127" class="LineNr">1127 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1128" class="LineNr">1128 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L972'>test-get-or-insert-handle</a>/6"</span>/imm32 +<span id="L1129" class="LineNr">1129 </span> 68/push 0x20/imm32 +<span id="L1130" class="LineNr">1130 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> +<span id="L1131" class="LineNr">1131 </span> 50/push-eax <span id="L1132" class="LineNr">1132 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1133" class="LineNr">1133 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L1133" class="LineNr">1133 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1134" class="LineNr">1134 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1135" class="LineNr">1135 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1136" class="LineNr">1136 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L1137" class="LineNr">1137 </span> bb/copy-to-ebx 1/imm32 -<span id="L1138" class="LineNr">1138 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L1139" class="LineNr">1139 </span> <span class="subxComment"># never gets here</span> -<span id="L1140" class="LineNr">1140 </span> -<span id="L1141" class="LineNr">1141 </span><span class="subxTest">test-get-or-insert-slice</span>: -<span id="L1142" class="LineNr">1142 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1143" class="LineNr">1143 </span> 55/push-ebp -<span id="L1144" class="LineNr">1144 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1145" class="LineNr">1145 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 24) # 2 rows * 12 bytes/row</span> -<span id="L1146" class="LineNr">1146 </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="L1147" class="LineNr">1147 </span> 68/push 0x18/imm32/size -<span id="L1148" class="LineNr">1148 </span> 68/push 0/imm32/read -<span id="L1149" class="LineNr">1149 </span> 68/push 0/imm32/write -<span id="L1150" class="LineNr">1150 </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="L1151" class="LineNr">1151 </span> <span class="subxComment"># (eax..edx) = "code"</span> -<span id="L1152" class="LineNr">1152 </span> b8/copy-to-eax <span class="Constant">"code"</span>/imm32 -<span id="L1153" class="LineNr">1153 </span> 8b/copy 0/mod/indirect 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"># copy *eax to edx</span> -<span id="L1154" class="LineNr">1154 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+edx+4 to edx</span> -<span id="L1155" class="LineNr">1155 </span> 05/add-to-eax 4/imm32 -<span id="L1156" class="LineNr">1156 </span> <span class="subxComment"># var slice/edx: slice = {eax, edx}</span> -<span id="L1157" class="LineNr">1157 </span> 52/push-edx -<span id="L1158" class="LineNr">1158 </span> 50/push-eax -<span id="L1159" class="LineNr">1159 </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="L1160" class="LineNr">1160 </span><span class="Constant">$test-get-or-insert-slice:first-call</span>: -<span id="L1161" class="LineNr">1161 </span> <span class="subxH1Comment"># - start with an empty table, insert one key, verify that it was inserted</span> -<span id="L1162" class="LineNr">1162 </span> <span class="subxComment"># eax = get-or-insert-slice(table, "code" slice, 12 bytes/row, Heap)</span> -<span id="L1163" class="LineNr">1163 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1164" class="LineNr">1164 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1165" class="LineNr">1165 </span> 68/push 0xc/imm32/row-size -<span id="L1166" class="LineNr">1166 </span> 52/push-edx -<span id="L1167" class="LineNr">1167 </span> 51/push-ecx -<span id="L1168" class="LineNr">1168 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1169" class="LineNr">1169 </span> e8/call <a href='131table.subx.html#L1022'>get-or-insert-slice</a>/disp32 -<span id="L1170" class="LineNr">1170 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1171" class="LineNr">1171 </span> 81 0/subop/add 3/mod/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="L1172" class="LineNr">1172 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg) # first row's value slot returned</span> -<span id="L1173" class="LineNr">1173 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> -<span id="L1174" class="LineNr">1174 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1175" class="LineNr">1175 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1141'>test-get-or-insert-slice</a>/0"</span>/imm32 -<span id="L1176" class="LineNr">1176 </span> 68/push 0x14/imm32 -<span id="L1177" class="LineNr">1177 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> -<span id="L1178" class="LineNr">1178 </span> 50/push-eax -<span id="L1179" class="LineNr">1179 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1180" class="LineNr">1180 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</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> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1183" class="LineNr">1183 </span> <span class="subxComment"># check-ints-equal(table->write, row-size = 12, msg)</span> -<span id="L1184" class="LineNr">1184 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1185" class="LineNr">1185 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1141'>test-get-or-insert-slice</a>/1"</span>/imm32 -<span id="L1186" class="LineNr">1186 </span> 68/push 0xc/imm32/row-size -<span id="L1187" class="LineNr">1187 </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="L1188" class="LineNr">1188 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1189" class="LineNr">1189 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1190" class="LineNr">1190 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1191" class="LineNr">1191 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1192" class="LineNr">1192 </span> <span class="subxComment"># var curr-addr/eax: (addr array byte) = lookup(table->data)</span> -<span id="L1193" class="LineNr">1193 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1194" class="LineNr">1194 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> -<span id="L1195" class="LineNr">1195 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> -<span id="L1196" class="LineNr">1196 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1197" class="LineNr">1197 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 -<span id="L1198" class="LineNr">1198 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1199" class="LineNr">1199 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1200" class="LineNr">1200 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> -<span id="L1201" class="LineNr">1201 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1202" class="LineNr">1202 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1141'>test-get-or-insert-slice</a>/2"</span>/imm32 -<span id="L1203" class="LineNr">1203 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L1204" class="LineNr">1204 </span> 50/push-eax -<span id="L1205" class="LineNr">1205 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1206" class="LineNr">1206 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 -<span id="L1207" class="LineNr">1207 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1208" class="LineNr">1208 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1209" class="LineNr">1209 </span><span class="Constant">$test-get-or-insert-slice:second-call</span>: -<span id="L1210" class="LineNr">1210 </span> <span class="subxH1Comment"># - insert the same key again, verify that it was reused</span> -<span id="L1211" class="LineNr">1211 </span> <span class="subxComment"># eax = get-or-insert-slice(table, "code" slice, 12 bytes/row)</span> -<span id="L1212" class="LineNr">1212 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1213" class="LineNr">1213 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1214" class="LineNr">1214 </span> 68/push 0xc/imm32/row-size -<span id="L1215" class="LineNr">1215 </span> 52/push-edx -<span id="L1216" class="LineNr">1216 </span> 51/push-ecx +<span id="L1135" class="LineNr">1135 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1136" class="LineNr">1136 </span> <span class="subxComment"># check-ints-equal(table->write, 2 rows = 24, msg)</span> +<span id="L1137" class="LineNr">1137 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1138" class="LineNr">1138 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L972'>test-get-or-insert-handle</a>/7"</span>/imm32 +<span id="L1139" class="LineNr">1139 </span> 68/push 0x18/imm32/two-rows +<span id="L1140" class="LineNr">1140 </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="L1141" class="LineNr">1141 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1142" class="LineNr">1142 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1143" class="LineNr">1143 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1144" class="LineNr">1144 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1145" class="LineNr">1145 </span> <span class="subxComment"># curr-addr = lookup(table->data+12)</span> +<span id="L1146" class="LineNr">1146 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1147" class="LineNr">1147 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+28)</span> +<span id="L1148" class="LineNr">1148 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+24)</span> +<span id="L1149" class="LineNr">1149 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1150" class="LineNr">1150 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L1151" class="LineNr">1151 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1152" class="LineNr">1152 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1153" class="LineNr">1153 </span> <span class="subxComment"># check-strings-equal(curr-addr, "data", msg)</span> +<span id="L1154" class="LineNr">1154 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1155" class="LineNr">1155 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L972'>test-get-or-insert-handle</a>/8"</span>/imm32 +<span id="L1156" class="LineNr">1156 </span> 68/push <span class="Constant">"data"</span>/imm32 +<span id="L1157" class="LineNr">1157 </span> 50/push-eax +<span id="L1158" class="LineNr">1158 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1159" class="LineNr">1159 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 +<span id="L1160" class="LineNr">1160 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1161" class="LineNr">1161 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1162" class="LineNr">1162 </span><span class="Constant">$test-get-or-insert-handle:end</span>: +<span id="L1163" class="LineNr">1163 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1164" class="LineNr">1164 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1165" class="LineNr">1165 </span> 5d/pop-to-ebp +<span id="L1166" class="LineNr">1166 </span> c3/return +<span id="L1167" class="LineNr">1167 </span> +<span id="L1168" class="LineNr">1168 </span><span class="subxComment"># if no row is found, save 'key' in the next available row</span> +<span id="L1169" class="LineNr">1169 </span><span class="subxComment"># if there are no rows free, abort</span> +<span id="L1170" class="LineNr">1170 </span><span class="subxFunction">get-or-insert-slice</span>: <span class="subxComment"># table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int, ad: (addr allocation-descriptor) -> result/eax: (addr T)</span> +<span id="L1171" class="LineNr">1171 </span> <span class="subxComment"># pseudocode:</span> +<span id="L1172" class="LineNr">1172 </span> <span class="subxComment"># curr = table->data</span> +<span id="L1173" class="LineNr">1173 </span> <span class="subxComment"># max = &table->data[table->write]</span> +<span id="L1174" class="LineNr">1174 </span> <span class="subxComment"># while curr < max</span> +<span id="L1175" class="LineNr">1175 </span> <span class="subxComment"># var c: (addr array byte) = lookup(*curr)</span> +<span id="L1176" class="LineNr">1176 </span> <span class="subxComment"># if slice-equal?(key, *curr)</span> +<span id="L1177" class="LineNr">1177 </span> <span class="subxComment"># return curr+8</span> +<span id="L1178" class="LineNr">1178 </span> <span class="subxComment"># curr += row-size</span> +<span id="L1179" class="LineNr">1179 </span> <span class="subxComment"># if table->write >= table->size</span> +<span id="L1180" class="LineNr">1180 </span> <span class="subxComment"># abort</span> +<span id="L1181" class="LineNr">1181 </span> <span class="subxComment"># zero-out(max, row-size)</span> +<span id="L1182" class="LineNr">1182 </span> <span class="subxComment"># slice-to-string(ad, key, max)</span> +<span id="L1183" class="LineNr">1183 </span> <span class="subxComment"># table->write += row-size</span> +<span id="L1184" class="LineNr">1184 </span> <span class="subxComment"># return max+8</span> +<span id="L1185" class="LineNr">1185 </span> <span class="subxComment">#</span> +<span id="L1186" class="LineNr">1186 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1187" class="LineNr">1187 </span> 55/push-ebp +<span id="L1188" class="LineNr">1188 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1189" class="LineNr">1189 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1190" class="LineNr">1190 </span> 51/push-ecx +<span id="L1191" class="LineNr">1191 </span> 52/push-edx +<span id="L1192" class="LineNr">1192 </span> 56/push-esi +<span id="L1193" class="LineNr">1193 </span> <span class="subxComment"># esi = table</span> +<span id="L1194" class="LineNr">1194 </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="L1195" class="LineNr">1195 </span> <span class="subxComment"># var curr/ecx: (addr handle array byte) = table->data</span> +<span id="L1196" class="LineNr">1196 </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="L1197" class="LineNr">1197 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> +<span id="L1198" class="LineNr">1198 </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="L1199" class="LineNr">1199 </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="L1200" class="LineNr">1200 </span><span class="Constant">$get-or-insert-slice:search-loop</span>: +<span id="L1201" class="LineNr">1201 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L1202" class="LineNr">1202 </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="L1203" class="LineNr">1203 </span> 73/jump-if-addr>= $get-or-insert-slice:not-found/disp8 +<span id="L1204" class="LineNr">1204 </span> <span class="subxComment"># var c/eax: (addr array byte) = lookup(*curr)</span> +<span id="L1205" class="LineNr">1205 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1206" class="LineNr">1206 </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="L1207" class="LineNr">1207 </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="L1208" class="LineNr">1208 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1209" class="LineNr">1209 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L1210" class="LineNr">1210 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1211" class="LineNr">1211 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1212" class="LineNr">1212 </span> <span class="subxComment"># if (slice-equal?(key, c)) return curr+4</span> +<span id="L1213" class="LineNr">1213 </span> <span class="subxS1Comment"># . eax = slice-equal?(key, c)</span> +<span id="L1214" class="LineNr">1214 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1215" class="LineNr">1215 </span> 50/push-eax +<span id="L1216" class="LineNr">1216 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L1217" class="LineNr">1217 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1218" class="LineNr">1218 </span> e8/call <a href='131table.subx.html#L1022'>get-or-insert-slice</a>/disp32 +<span id="L1218" class="LineNr">1218 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 <span id="L1219" class="LineNr">1219 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1220" class="LineNr">1220 </span> 81 0/subop/add 3/mod/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="L1221" class="LineNr">1221 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg)</span> -<span id="L1222" class="LineNr">1222 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> -<span id="L1223" class="LineNr">1223 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1224" class="LineNr">1224 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1141'>test-get-or-insert-slice</a>/3"</span>/imm32 -<span id="L1225" class="LineNr">1225 </span> 68/push 0x14/imm32 -<span id="L1226" class="LineNr">1226 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> -<span id="L1227" class="LineNr">1227 </span> 50/push-eax -<span id="L1228" class="LineNr">1228 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1229" class="LineNr">1229 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1230" class="LineNr">1230 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1231" class="LineNr">1231 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1232" class="LineNr">1232 </span> <span class="subxComment"># no new row inserted</span> -<span id="L1233" class="LineNr">1233 </span> <span class="subxS1Comment"># . check-ints-equal(table->write, row-size = 12, msg)</span> -<span id="L1234" class="LineNr">1234 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1235" class="LineNr">1235 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1141'>test-get-or-insert-slice</a>/4"</span>/imm32 -<span id="L1236" class="LineNr">1236 </span> 68/push 0xc/imm32/row-size -<span id="L1237" class="LineNr">1237 </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="L1238" class="LineNr">1238 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1239" class="LineNr">1239 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1240" class="LineNr">1240 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1241" class="LineNr">1241 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1242" class="LineNr">1242 </span> <span class="subxComment"># curr-addr = lookup(table->data)</span> -<span id="L1243" class="LineNr">1243 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1244" class="LineNr">1244 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> -<span id="L1245" class="LineNr">1245 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> -<span id="L1246" class="LineNr">1246 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1247" class="LineNr">1247 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 -<span id="L1248" class="LineNr">1248 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1249" class="LineNr">1249 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1250" class="LineNr">1250 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> -<span id="L1251" class="LineNr">1251 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1252" class="LineNr">1252 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1141'>test-get-or-insert-slice</a>/5"</span>/imm32 -<span id="L1253" class="LineNr">1253 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L1254" class="LineNr">1254 </span> 50/push-eax -<span id="L1255" class="LineNr">1255 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1256" class="LineNr">1256 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 -<span id="L1257" class="LineNr">1257 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1258" class="LineNr">1258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1259" class="LineNr">1259 </span><span class="Constant">$test-get-or-insert-slice:third-call</span>: -<span id="L1260" class="LineNr">1260 </span> <span class="subxH1Comment"># - insert a new key, verify that it was inserted</span> -<span id="L1261" class="LineNr">1261 </span> <span class="subxComment"># (eax..edx) = "data"</span> -<span id="L1262" class="LineNr">1262 </span> b8/copy-to-eax <span class="Constant">"data"</span>/imm32 -<span id="L1263" class="LineNr">1263 </span> 8b/copy 0/mod/indirect 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"># copy *eax to edx</span> -<span id="L1264" class="LineNr">1264 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+edx+4 to edx</span> -<span id="L1265" class="LineNr">1265 </span> 05/add-to-eax 4/imm32 -<span id="L1266" class="LineNr">1266 </span> <span class="subxComment"># var slice/edx: slice = {eax, edx}</span> -<span id="L1267" class="LineNr">1267 </span> 52/push-edx -<span id="L1268" class="LineNr">1268 </span> 50/push-eax -<span id="L1269" class="LineNr">1269 </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="L1270" class="LineNr">1270 </span> <span class="subxComment"># eax = get-or-insert-slice(table, "data" slice, 12 bytes/row)</span> -<span id="L1271" class="LineNr">1271 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1272" class="LineNr">1272 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1273" class="LineNr">1273 </span> 68/push 0xc/imm32/row-size -<span id="L1274" class="LineNr">1274 </span> 52/push-edx -<span id="L1275" class="LineNr">1275 </span> 51/push-ecx -<span id="L1276" class="LineNr">1276 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1277" class="LineNr">1277 </span> e8/call <a href='131table.subx.html#L1022'>get-or-insert-slice</a>/disp32 -<span id="L1278" class="LineNr">1278 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1279" class="LineNr">1279 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L1280" class="LineNr">1280 </span> <span class="subxComment"># table gets a new row</span> -<span id="L1281" class="LineNr">1281 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 20, msg) # second row's value slot returned</span> -<span id="L1282" class="LineNr">1282 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 32, msg)</span> -<span id="L1283" class="LineNr">1283 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1284" class="LineNr">1284 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1141'>test-get-or-insert-slice</a>/6"</span>/imm32 -<span id="L1285" class="LineNr">1285 </span> 68/push 0x20/imm32 -<span id="L1286" class="LineNr">1286 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> -<span id="L1287" class="LineNr">1287 </span> 50/push-eax -<span id="L1288" class="LineNr">1288 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1289" class="LineNr">1289 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1290" class="LineNr">1290 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1291" class="LineNr">1291 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1292" class="LineNr">1292 </span> <span class="subxComment"># check-ints-equal(table->write, 2 rows = 24, msg)</span> -<span id="L1293" class="LineNr">1293 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1294" class="LineNr">1294 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1141'>test-get-or-insert-slice</a>/7"</span>/imm32 -<span id="L1295" class="LineNr">1295 </span> 68/push 0x18/imm32/two-rows -<span id="L1296" class="LineNr">1296 </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="L1297" class="LineNr">1297 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1298" class="LineNr">1298 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1299" class="LineNr">1299 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1300" class="LineNr">1300 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1301" class="LineNr">1301 </span> <span class="subxComment"># curr-addr = lookup(table->data+12)</span> -<span id="L1302" class="LineNr">1302 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1303" class="LineNr">1303 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+28)</span> -<span id="L1304" class="LineNr">1304 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+24)</span> -<span id="L1305" class="LineNr">1305 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1306" class="LineNr">1306 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 -<span id="L1307" class="LineNr">1307 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1308" class="LineNr">1308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1309" class="LineNr">1309 </span> <span class="subxComment"># check-strings-equal(curr-addr, "data", msg)</span> -<span id="L1310" class="LineNr">1310 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1311" class="LineNr">1311 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1141'>test-get-or-insert-slice</a>/8"</span>/imm32 -<span id="L1312" class="LineNr">1312 </span> 68/push <span class="Constant">"data"</span>/imm32 -<span id="L1313" class="LineNr">1313 </span> 50/push-eax -<span id="L1314" class="LineNr">1314 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1315" class="LineNr">1315 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 -<span id="L1316" class="LineNr">1316 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1317" class="LineNr">1317 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1318" class="LineNr">1318 </span><span class="Constant">$test-get-or-insert-slice:end</span>: -<span id="L1319" class="LineNr">1319 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1320" class="LineNr">1320 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1321" class="LineNr">1321 </span> 5d/pop-to-ebp -<span id="L1322" class="LineNr">1322 </span> c3/return -<span id="L1323" class="LineNr">1323 </span> -<span id="L1324" class="LineNr">1324 </span><span class="subxComment"># if no row is found, stop(ed)</span> -<span id="L1325" class="LineNr">1325 </span><span class="subxFunction">get-or-stop</span>: <span class="subxComment"># table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int,</span> -<span id="L1326" class="LineNr">1326 </span> <span class="subxComment"># abort-message-prefix: (addr array byte), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L1327" class="LineNr">1327 </span> <span class="subxComment"># -> result/eax: (addr T)</span> -<span id="L1328" class="LineNr">1328 </span> <span class="subxComment"># pseudocode:</span> -<span id="L1329" class="LineNr">1329 </span> <span class="subxComment"># curr = table->data</span> -<span id="L1330" class="LineNr">1330 </span> <span class="subxComment"># max = &table->data[table->write]</span> -<span id="L1331" class="LineNr">1331 </span> <span class="subxComment"># while curr < max</span> -<span id="L1332" class="LineNr">1332 </span> <span class="subxComment"># var c: (addr array byte) = lookup(*curr)</span> -<span id="L1333" class="LineNr">1333 </span> <span class="subxComment"># if string-equal?(key, c)</span> -<span id="L1334" class="LineNr">1334 </span> <span class="subxComment"># return curr+8</span> -<span id="L1335" class="LineNr">1335 </span> <span class="subxComment"># curr += row-size</span> -<span id="L1336" class="LineNr">1336 </span> <span class="subxComment"># write-buffered(err, msg)</span> -<span id="L1337" class="LineNr">1337 </span> <span class="subxComment"># stop(ed)</span> -<span id="L1338" class="LineNr">1338 </span> <span class="subxComment">#</span> -<span id="L1339" class="LineNr">1339 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1340" class="LineNr">1340 </span> 55/push-ebp -<span id="L1341" class="LineNr">1341 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1342" class="LineNr">1342 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1343" class="LineNr">1343 </span> 51/push-ecx -<span id="L1344" class="LineNr">1344 </span> 52/push-edx -<span id="L1345" class="LineNr">1345 </span> 56/push-esi -<span id="L1346" class="LineNr">1346 </span> <span class="subxComment"># esi = table</span> -<span id="L1347" class="LineNr">1347 </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="L1348" class="LineNr">1348 </span> <span class="subxComment"># var curr/ecx: (addr handle array byte) = table->data</span> -<span id="L1349" class="LineNr">1349 </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="L1350" class="LineNr">1350 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> -<span id="L1351" class="LineNr">1351 </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="L1352" class="LineNr">1352 </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="L1353" class="LineNr">1353 </span><span class="Constant">$get-or-stop:search-loop</span>: -<span id="L1354" class="LineNr">1354 </span> <span class="subxComment"># if (curr >= max) stop(ed)</span> -<span id="L1355" class="LineNr">1355 </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="L1356" class="LineNr">1356 </span> 73/jump-if-addr>= $get-or-stop:<a href='110stop.subx.html#L92'>stop</a>/disp8 -<span id="L1357" class="LineNr">1357 </span> <span class="subxComment"># var c/eax: (addr array byte) = lookup(*curr)</span> -<span id="L1358" class="LineNr">1358 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1359" class="LineNr">1359 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L1360" class="LineNr">1360 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L1361" class="LineNr">1361 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1362" class="LineNr">1362 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 -<span id="L1363" class="LineNr">1363 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1364" class="LineNr">1364 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1365" class="LineNr">1365 </span> <span class="subxComment"># if (string-equal?(key, c)) return curr+8</span> -<span id="L1366" class="LineNr">1366 </span> <span class="subxS1Comment"># . eax = string-equal?(key, c)</span> -<span id="L1367" class="LineNr">1367 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1368" class="LineNr">1368 </span> 50/push-eax -<span id="L1369" class="LineNr">1369 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1370" class="LineNr">1370 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1371" class="LineNr">1371 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 -<span id="L1372" class="LineNr">1372 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1373" class="LineNr">1373 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1374" class="LineNr">1374 </span> <span class="subxS1Comment"># . if (eax != false) return eax = curr+8</span> -<span id="L1375" class="LineNr">1375 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1376" class="LineNr">1376 </span> 74/jump-if-= $get-or-stop:mismatch/disp8 -<span id="L1377" class="LineNr">1377 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <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 ecx+8 to eax</span> -<span id="L1378" class="LineNr">1378 </span> eb/jump $get-or-stop:end/disp8 -<span id="L1379" class="LineNr">1379 </span><span class="Constant">$get-or-stop:mismatch</span>: -<span id="L1380" class="LineNr">1380 </span> <span class="subxComment"># curr += row-size</span> -<span id="L1381" class="LineNr">1381 </span> 03/add 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"># add *(ebp+16) to ecx</span> -<span id="L1382" class="LineNr">1382 </span> <span class="subxComment"># loop</span> -<span id="L1383" class="LineNr">1383 </span> eb/jump $get-or-stop:search-loop/disp8 -<span id="L1384" class="LineNr">1384 </span><span class="Constant">$get-or-stop:end</span>: -<span id="L1385" class="LineNr">1385 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1386" class="LineNr">1386 </span> 5e/pop-to-esi -<span id="L1387" class="LineNr">1387 </span> 5a/pop-to-edx -<span id="L1388" class="LineNr">1388 </span> 59/pop-to-ecx -<span id="L1389" class="LineNr">1389 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1390" class="LineNr">1390 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1391" class="LineNr">1391 </span> 5d/pop-to-ebp -<span id="L1392" class="LineNr">1392 </span> c3/return -<span id="L1393" class="LineNr">1393 </span> -<span id="L1394" class="LineNr">1394 </span><span class="Constant">$get-or-stop:<a href='110stop.subx.html#L92'>stop</a></span>: -<span id="L1395" class="LineNr">1395 </span> <span class="subxS1Comment"># . write-buffered(err, abort-message-prefix)</span> -<span id="L1396" class="LineNr">1396 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1397" class="LineNr">1397 </span> ff 6/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="L1398" class="LineNr">1398 </span> ff 6/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="L1399" class="LineNr">1399 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1400" class="LineNr">1400 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1401" class="LineNr">1401 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1402" class="LineNr">1402 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1403" class="LineNr">1403 </span> <span class="subxS1Comment"># . write-buffered(err, error)</span> -<span id="L1404" class="LineNr">1404 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1405" class="LineNr">1405 </span> 68/push <span class="Constant">": <a href='131table.subx.html#L1325'>get-or-stop</a>: key not found: "</span>/imm32 -<span id="L1406" class="LineNr">1406 </span> ff 6/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="L1407" class="LineNr">1407 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1408" class="LineNr">1408 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1409" class="LineNr">1409 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1410" class="LineNr">1410 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1411" class="LineNr">1411 </span> <span class="subxS1Comment"># . write-buffered(err, key)</span> -<span id="L1412" class="LineNr">1412 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1413" class="LineNr">1413 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1414" class="LineNr">1414 </span> ff 6/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="L1415" class="LineNr">1415 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1416" class="LineNr">1416 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1417" class="LineNr">1417 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1418" class="LineNr">1418 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1419" class="LineNr">1419 </span> <span class="subxS1Comment"># . write-buffered(err, "\n")</span> -<span id="L1420" class="LineNr">1420 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1421" class="LineNr">1421 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L1422" class="LineNr">1422 </span> ff 6/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="L1423" class="LineNr">1423 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1424" class="LineNr">1424 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1425" class="LineNr">1425 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1426" class="LineNr">1426 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1427" class="LineNr">1427 </span> <span class="subxS1Comment"># . stop(ed, 1)</span> -<span id="L1428" class="LineNr">1428 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1429" class="LineNr">1429 </span> 68/push 1/imm32 -<span id="L1430" class="LineNr">1430 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+28)</span> -<span id="L1431" class="LineNr">1431 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1432" class="LineNr">1432 </span> e8/call <a href='110stop.subx.html#L92'>stop</a>/disp32 -<span id="L1433" class="LineNr">1433 </span> <span class="subxComment"># never gets here</span> -<span id="L1434" class="LineNr">1434 </span><span class="Constant">$get-or-stop:terminus</span>: -<span id="L1435" class="LineNr">1435 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1436" class="LineNr">1436 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1437" class="LineNr">1437 </span> <span class="subxComment"># syscall(exit, 1)</span> -<span id="L1438" class="LineNr">1438 </span> bb/copy-to-ebx 1/imm32 -<span id="L1439" class="LineNr">1439 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L1440" class="LineNr">1440 </span> -<span id="L1441" class="LineNr">1441 </span><span class="subxTest">test-get-or-stop</span>: -<span id="L1442" class="LineNr">1442 </span> <span class="subxComment"># This test uses exit-descriptors. Use ebp for setting up local variables.</span> -<span id="L1443" class="LineNr">1443 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1444" class="LineNr">1444 </span> 55/push-ebp -<span id="L1445" class="LineNr">1445 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1446" class="LineNr">1446 </span> <span class="subxComment"># setup</span> -<span id="L1447" class="LineNr">1447 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> -<span id="L1448" class="LineNr">1448 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1449" class="LineNr">1449 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 -<span id="L1450" class="LineNr">1450 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1451" class="LineNr">1451 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1452" class="LineNr">1452 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1453" class="LineNr">1453 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1454" class="LineNr">1454 </span> <span class="subxS1Comment"># . clear-stream($_test-error-buffered-file->buffer)</span> -<span id="L1455" class="LineNr">1455 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1456" class="LineNr">1456 </span> 68/push $_test-error-buffered-file->buffer/imm32 -<span id="L1457" class="LineNr">1457 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1458" class="LineNr">1458 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1459" class="LineNr">1459 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1460" class="LineNr">1460 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1461" class="LineNr">1461 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 24) # 2 rows * 12 bytes/row</span> -<span id="L1462" class="LineNr">1462 </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="L1463" class="LineNr">1463 </span> 68/push 0x18/imm32/size -<span id="L1464" class="LineNr">1464 </span> 68/push 0/imm32/read -<span id="L1465" class="LineNr">1465 </span> 68/push 0/imm32/write -<span id="L1466" class="LineNr">1466 </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="L1467" class="LineNr">1467 </span> <span class="subxComment"># var ed/edx: exit-descriptor</span> -<span id="L1468" class="LineNr">1468 </span> 68/push 0/imm32 -<span id="L1469" class="LineNr">1469 </span> 68/push 0/imm32 -<span id="L1470" class="LineNr">1470 </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="L1471" class="LineNr">1471 </span> <span class="subxComment"># size 'ed' for the calls to 'get-or-stop'</span> -<span id="L1472" class="LineNr">1472 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 24)</span> -<span id="L1473" class="LineNr">1473 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1474" class="LineNr">1474 </span> 68/push 0x18/imm32/nbytes-of-args-for-get-or-stop -<span id="L1475" class="LineNr">1475 </span> 52/push-edx -<span id="L1476" class="LineNr">1476 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1477" class="LineNr">1477 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 -<span id="L1478" class="LineNr">1478 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1479" class="LineNr">1479 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1480" class="LineNr">1480 </span> <span class="subxComment"># insert(table, "code", 12 bytes/row, Heap)</span> -<span id="L1481" class="LineNr">1481 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1482" class="LineNr">1482 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1483" class="LineNr">1483 </span> 68/push 0xc/imm32/row-size -<span id="L1484" class="LineNr">1484 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L1485" class="LineNr">1485 </span> 51/push-ecx -<span id="L1486" class="LineNr">1486 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1487" class="LineNr">1487 </span> e8/call <a href='131table.subx.html#L421'>get-or-insert</a>/disp32 -<span id="L1488" class="LineNr">1488 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1489" class="LineNr">1489 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L1490" class="LineNr">1490 </span><span class="Constant">$test-get-or-stop:success</span>: -<span id="L1491" class="LineNr">1491 </span> <span class="subxComment"># eax = get-or-stop(table, "code", row-size=12, msg, _test-error-buffered-file, ed)</span> -<span id="L1492" class="LineNr">1492 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1493" class="LineNr">1493 </span> 52/push-edx/ed -<span id="L1494" class="LineNr">1494 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 -<span id="L1495" class="LineNr">1495 </span> 68/push <span class="Constant">"foo"</span>/imm32/abort-prefix -<span id="L1496" class="LineNr">1496 </span> 68/push 0xc/imm32/row-size -<span id="L1497" class="LineNr">1497 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L1498" class="LineNr">1498 </span> 51/push-ecx -<span id="L1499" class="LineNr">1499 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1500" class="LineNr">1500 </span> e8/call <a href='131table.subx.html#L1325'>get-or-stop</a>/disp32 -<span id="L1501" class="LineNr">1501 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1502" class="LineNr">1502 </span> 81 0/subop/add 3/mod/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="L1503" class="LineNr">1503 </span><span class="Constant">$test-get-or-stop:success-assertion</span>: -<span id="L1504" class="LineNr">1504 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg)</span> -<span id="L1505" class="LineNr">1505 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> -<span id="L1506" class="LineNr">1506 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1507" class="LineNr">1507 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1441'>test-get-or-stop</a>/0"</span>/imm32 -<span id="L1508" class="LineNr">1508 </span> 68/push 0x14/imm32 -<span id="L1509" class="LineNr">1509 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> -<span id="L1510" class="LineNr">1510 </span> 50/push-eax -<span id="L1511" class="LineNr">1511 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1512" class="LineNr">1512 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1513" class="LineNr">1513 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1514" class="LineNr">1514 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1515" class="LineNr">1515 </span><span class="Constant">$test-get-or-stop:failure</span>: -<span id="L1516" class="LineNr">1516 </span> <span class="subxComment"># eax = get-or-stop(table, "data", row-size=12, msg, _test-error-buffered-file, ed)</span> -<span id="L1517" class="LineNr">1517 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1518" class="LineNr">1518 </span> 52/push-edx/ed -<span id="L1519" class="LineNr">1519 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 -<span id="L1520" class="LineNr">1520 </span> 68/push <span class="Constant">"foo"</span>/imm32/abort-prefix -<span id="L1521" class="LineNr">1521 </span> 68/push 0xc/imm32/row-size -<span id="L1522" class="LineNr">1522 </span> 68/push <span class="Constant">"data"</span>/imm32 -<span id="L1523" class="LineNr">1523 </span> 51/push-ecx -<span id="L1524" class="LineNr">1524 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1525" class="LineNr">1525 </span> e8/call <a href='131table.subx.html#L1325'>get-or-stop</a>/disp32 -<span id="L1526" class="LineNr">1526 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> -<span id="L1527" class="LineNr">1527 </span> <span class="subxComment"># restore register args, discard others</span> -<span id="L1528" class="LineNr">1528 </span> 59/pop-to-ecx -<span id="L1529" class="LineNr">1529 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L1530" class="LineNr">1530 </span> 5a/pop-to-edx -<span id="L1531" class="LineNr">1531 </span><span class="Constant">$test-get-or-stop:failure-assertion</span>: -<span id="L1532" class="LineNr">1532 </span> <span class="subxComment"># check that get-or-stop tried to call stop(1)</span> -<span id="L1533" class="LineNr">1533 </span> <span class="subxS1Comment"># . check-ints-equal(ed->value, 2, msg)</span> -<span id="L1534" class="LineNr">1534 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1535" class="LineNr">1535 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1441'>test-get-or-stop</a>/1"</span>/imm32 -<span id="L1536" class="LineNr">1536 </span> 68/push 2/imm32 -<span id="L1537" class="LineNr">1537 </span> <span class="subxS2Comment"># . . push ed->value</span> -<span id="L1538" class="LineNr">1538 </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="L1539" class="LineNr">1539 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1540" class="LineNr">1540 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1541" class="LineNr">1541 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1542" class="LineNr">1542 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1543" class="LineNr">1543 </span><span class="Constant">$test-get-or-stop:end</span>: -<span id="L1544" class="LineNr">1544 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1545" class="LineNr">1545 </span> <span class="subxComment"># don't restore esp from ebp; manually reclaim locals</span> -<span id="L1546" class="LineNr">1546 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x2c/imm32 <span class="subxComment"># add to esp</span> -<span id="L1547" class="LineNr">1547 </span> 5d/pop-to-ebp -<span id="L1548" class="LineNr">1548 </span> c3/return -<span id="L1549" class="LineNr">1549 </span> -<span id="L1550" class="LineNr">1550 </span><span class="subxComment"># if no row is found, stop(ed)</span> -<span id="L1551" class="LineNr">1551 </span><span class="subxFunction">get-slice-or-stop</span>: <span class="subxComment"># table: (addr stream {(handle array byte), _}), key: (addr slice), row-size: int,</span> -<span id="L1552" class="LineNr">1552 </span> <span class="subxComment"># abort-message-prefix: (addr string), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L1553" class="LineNr">1553 </span> <span class="subxComment"># -> result/eax: (addr _)</span> -<span id="L1554" class="LineNr">1554 </span> <span class="subxComment"># pseudocode:</span> -<span id="L1555" class="LineNr">1555 </span> <span class="subxComment"># curr = table->data</span> -<span id="L1556" class="LineNr">1556 </span> <span class="subxComment"># max = &table->data[table->write]</span> -<span id="L1557" class="LineNr">1557 </span> <span class="subxComment"># while curr < max</span> -<span id="L1558" class="LineNr">1558 </span> <span class="subxComment"># var c: (addr array byte) = lookup(*curr)</span> -<span id="L1559" class="LineNr">1559 </span> <span class="subxComment"># if slice-equal?(key, c)</span> -<span id="L1560" class="LineNr">1560 </span> <span class="subxComment"># return curr+8</span> -<span id="L1561" class="LineNr">1561 </span> <span class="subxComment"># curr += row-size</span> -<span id="L1562" class="LineNr">1562 </span> <span class="subxComment"># write-buffered(err, msg)</span> -<span id="L1563" class="LineNr">1563 </span> <span class="subxComment"># stop(ed)</span> -<span id="L1564" class="LineNr">1564 </span> <span class="subxComment">#</span> -<span id="L1565" class="LineNr">1565 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1566" class="LineNr">1566 </span> 55/push-ebp -<span id="L1567" class="LineNr">1567 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1568" class="LineNr">1568 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1569" class="LineNr">1569 </span> 51/push-ecx -<span id="L1570" class="LineNr">1570 </span> 52/push-edx -<span id="L1571" class="LineNr">1571 </span> 56/push-esi -<span id="L1572" class="LineNr">1572 </span> <span class="subxComment"># esi = table</span> -<span id="L1573" class="LineNr">1573 </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="L1574" class="LineNr">1574 </span> <span class="subxComment"># var curr/ecx: (addr handle array byte) = table->data</span> -<span id="L1575" class="LineNr">1575 </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="L1576" class="LineNr">1576 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> -<span id="L1577" class="LineNr">1577 </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="L1578" class="LineNr">1578 </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="L1579" class="LineNr">1579 </span><span class="Constant">$get-slice-or-stop:search-loop</span>: -<span id="L1580" class="LineNr">1580 </span> <span class="subxComment"># if (curr >= max) stop(ed)</span> -<span id="L1581" class="LineNr">1581 </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="L1582" class="LineNr">1582 </span> 73/jump-if-addr>= $get-slice-or-stop:<a href='110stop.subx.html#L92'>stop</a>/disp8 -<span id="L1583" class="LineNr">1583 </span> <span class="subxComment"># var c/eax: (addr array byte) = lookup(*curr)</span> -<span id="L1584" class="LineNr">1584 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1585" class="LineNr">1585 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L1586" class="LineNr">1586 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L1587" class="LineNr">1587 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1588" class="LineNr">1588 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 -<span id="L1589" class="LineNr">1589 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1590" class="LineNr">1590 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1591" class="LineNr">1591 </span> <span class="subxComment"># if (slice-equal?(key, c)) return curr+4</span> -<span id="L1592" class="LineNr">1592 </span> <span class="subxS1Comment"># . eax = slice-equal?(key, c)</span> +<span id="L1220" class="LineNr">1220 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1221" class="LineNr">1221 </span> <span class="subxS1Comment"># . if (eax != false) return eax = curr+8</span> +<span id="L1222" class="LineNr">1222 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1223" class="LineNr">1223 </span> 74/jump-if-= $get-or-insert-slice:mismatch/disp8 +<span id="L1224" class="LineNr">1224 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <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 ecx+8 to eax</span> +<span id="L1225" class="LineNr">1225 </span> eb/jump $get-or-insert-slice:end/disp8 +<span id="L1226" class="LineNr">1226 </span><span class="Constant">$get-or-insert-slice:mismatch</span>: +<span id="L1227" class="LineNr">1227 </span> <span class="subxComment"># curr += row-size</span> +<span id="L1228" class="LineNr">1228 </span> 03/add 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"># add *(ebp+16) to ecx</span> +<span id="L1229" class="LineNr">1229 </span> <span class="subxComment"># loop</span> +<span id="L1230" class="LineNr">1230 </span> eb/jump $get-or-insert-slice:search-loop/disp8 +<span id="L1231" class="LineNr">1231 </span><span class="Constant">$get-or-insert-slice:not-found</span>: +<span id="L1232" class="LineNr">1232 </span> <span class="subxComment"># result/eax = 0</span> +<span id="L1233" class="LineNr">1233 </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="L1234" class="LineNr">1234 </span> <span class="subxComment"># if (table->write >= table->size) abort</span> +<span id="L1235" class="LineNr">1235 </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="L1236" class="LineNr">1236 </span> 3b/compare 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(esi+8)</span> +<span id="L1237" class="LineNr">1237 </span> 7d/jump-if->= $get-or-insert-slice:abort/disp8 +<span id="L1238" class="LineNr">1238 </span> <span class="subxComment"># zero-out(max, row-size)</span> +<span id="L1239" class="LineNr">1239 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1240" class="LineNr">1240 </span> ff 6/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="L1241" class="LineNr">1241 </span> 52/push-edx +<span id="L1242" class="LineNr">1242 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1243" class="LineNr">1243 </span> e8/call <a href='120allocate.subx.html#L889'>zero-out</a>/disp32 +<span id="L1244" class="LineNr">1244 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1245" class="LineNr">1245 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1246" class="LineNr">1246 </span> <span class="subxComment"># slice-to-string(ad, key, max)</span> +<span id="L1247" class="LineNr">1247 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1248" class="LineNr">1248 </span> 52/push-edx +<span id="L1249" class="LineNr">1249 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1250" class="LineNr">1250 </span> ff 6/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="L1251" class="LineNr">1251 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1252" class="LineNr">1252 </span> e8/call <a href='123slice.subx.html#L1043'>slice-to-string</a>/disp32 +<span id="L1253" class="LineNr">1253 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1254" class="LineNr">1254 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1255" class="LineNr">1255 </span> <span class="subxComment"># table->write += row-size</span> +<span id="L1256" class="LineNr">1256 </span> <span class="subxS1Comment"># . eax = row-size</span> +<span id="L1257" class="LineNr">1257 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L1258" class="LineNr">1258 </span> <span class="subxS1Comment"># . table->write += eax</span> +<span id="L1259" class="LineNr">1259 </span> 01/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *esi</span> +<span id="L1260" class="LineNr">1260 </span> <span class="subxComment"># return max+8</span> +<span id="L1261" class="LineNr">1261 </span> <span class="subxS1Comment"># . eax = max</span> +<span id="L1262" class="LineNr">1262 </span> 89/copy 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"># copy edx to eax</span> +<span id="L1263" class="LineNr">1263 </span> <span class="subxS1Comment"># . eax += 8</span> +<span id="L1264" class="LineNr">1264 </span> 05/add-to-eax 8/imm32 +<span id="L1265" class="LineNr">1265 </span><span class="Constant">$get-or-insert-slice:end</span>: +<span id="L1266" class="LineNr">1266 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1267" class="LineNr">1267 </span> 5e/pop-to-esi +<span id="L1268" class="LineNr">1268 </span> 5a/pop-to-edx +<span id="L1269" class="LineNr">1269 </span> 59/pop-to-ecx +<span id="L1270" class="LineNr">1270 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1271" class="LineNr">1271 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1272" class="LineNr">1272 </span> 5d/pop-to-ebp +<span id="L1273" class="LineNr">1273 </span> c3/return +<span id="L1274" class="LineNr">1274 </span> +<span id="L1275" class="LineNr">1275 </span><span class="Constant">$get-or-insert-slice:abort</span>: +<span id="L1276" class="LineNr">1276 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L1277" class="LineNr">1277 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1278" class="LineNr">1278 </span> 68/push <span class="Constant">"get-or-insert-slice: table is full\n"</span>/imm32 +<span id="L1279" class="LineNr">1279 </span> 68/push 2/imm32/stderr +<span id="L1280" class="LineNr">1280 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1281" class="LineNr">1281 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L1282" class="LineNr">1282 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1283" class="LineNr">1283 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1284" class="LineNr">1284 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> +<span id="L1285" class="LineNr">1285 </span> bb/copy-to-ebx 1/imm32 +<span id="L1286" class="LineNr">1286 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L1287" class="LineNr">1287 </span> <span class="subxComment"># never gets here</span> +<span id="L1288" class="LineNr">1288 </span> +<span id="L1289" class="LineNr">1289 </span><span class="subxTest">test-get-or-insert-slice</span>: +<span id="L1290" class="LineNr">1290 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1291" class="LineNr">1291 </span> 55/push-ebp +<span id="L1292" class="LineNr">1292 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1293" class="LineNr">1293 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 24) # 2 rows * 12 bytes/row</span> +<span id="L1294" class="LineNr">1294 </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="L1295" class="LineNr">1295 </span> 68/push 0x18/imm32/size +<span id="L1296" class="LineNr">1296 </span> 68/push 0/imm32/read +<span id="L1297" class="LineNr">1297 </span> 68/push 0/imm32/write +<span id="L1298" class="LineNr">1298 </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="L1299" class="LineNr">1299 </span> <span class="subxComment"># (eax..edx) = "code"</span> +<span id="L1300" class="LineNr">1300 </span> b8/copy-to-eax <span class="Constant">"code"</span>/imm32 +<span id="L1301" class="LineNr">1301 </span> 8b/copy 0/mod/indirect 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"># copy *eax to edx</span> +<span id="L1302" class="LineNr">1302 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+edx+4 to edx</span> +<span id="L1303" class="LineNr">1303 </span> 05/add-to-eax 4/imm32 +<span id="L1304" class="LineNr">1304 </span> <span class="subxComment"># var slice/edx: slice = {eax, edx}</span> +<span id="L1305" class="LineNr">1305 </span> 52/push-edx +<span id="L1306" class="LineNr">1306 </span> 50/push-eax +<span id="L1307" class="LineNr">1307 </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="L1308" class="LineNr">1308 </span><span class="Constant">$test-get-or-insert-slice:first-call</span>: +<span id="L1309" class="LineNr">1309 </span> <span class="subxH1Comment"># - start with an empty table, insert one key, verify that it was inserted</span> +<span id="L1310" class="LineNr">1310 </span> <span class="subxComment"># eax = get-or-insert-slice(table, "code" slice, 12 bytes/row, Heap)</span> +<span id="L1311" class="LineNr">1311 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1312" class="LineNr">1312 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1313" class="LineNr">1313 </span> 68/push 0xc/imm32/row-size +<span id="L1314" class="LineNr">1314 </span> 52/push-edx +<span id="L1315" class="LineNr">1315 </span> 51/push-ecx +<span id="L1316" class="LineNr">1316 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1317" class="LineNr">1317 </span> e8/call <a href='131table.subx.html#L1170'>get-or-insert-slice</a>/disp32 +<span id="L1318" class="LineNr">1318 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1319" class="LineNr">1319 </span> 81 0/subop/add 3/mod/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="L1320" class="LineNr">1320 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg) # first row's value slot returned</span> +<span id="L1321" class="LineNr">1321 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> +<span id="L1322" class="LineNr">1322 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1323" class="LineNr">1323 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1289'>test-get-or-insert-slice</a>/0"</span>/imm32 +<span id="L1324" class="LineNr">1324 </span> 68/push 0x14/imm32 +<span id="L1325" class="LineNr">1325 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> +<span id="L1326" class="LineNr">1326 </span> 50/push-eax +<span id="L1327" class="LineNr">1327 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1328" class="LineNr">1328 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1329" class="LineNr">1329 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1330" class="LineNr">1330 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1331" class="LineNr">1331 </span> <span class="subxComment"># check-ints-equal(table->write, row-size = 12, msg)</span> +<span id="L1332" class="LineNr">1332 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1333" class="LineNr">1333 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1289'>test-get-or-insert-slice</a>/1"</span>/imm32 +<span id="L1334" class="LineNr">1334 </span> 68/push 0xc/imm32/row-size +<span id="L1335" class="LineNr">1335 </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="L1336" class="LineNr">1336 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1337" class="LineNr">1337 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1338" class="LineNr">1338 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1339" class="LineNr">1339 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1340" class="LineNr">1340 </span> <span class="subxComment"># var curr-addr/eax: (addr array byte) = lookup(table->data)</span> +<span id="L1341" class="LineNr">1341 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1342" class="LineNr">1342 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> +<span id="L1343" class="LineNr">1343 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> +<span id="L1344" class="LineNr">1344 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1345" class="LineNr">1345 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L1346" class="LineNr">1346 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1347" class="LineNr">1347 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1348" class="LineNr">1348 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> +<span id="L1349" class="LineNr">1349 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1350" class="LineNr">1350 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1289'>test-get-or-insert-slice</a>/2"</span>/imm32 +<span id="L1351" class="LineNr">1351 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L1352" class="LineNr">1352 </span> 50/push-eax +<span id="L1353" class="LineNr">1353 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1354" class="LineNr">1354 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 +<span id="L1355" class="LineNr">1355 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1356" class="LineNr">1356 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1357" class="LineNr">1357 </span><span class="Constant">$test-get-or-insert-slice:second-call</span>: +<span id="L1358" class="LineNr">1358 </span> <span class="subxH1Comment"># - insert the same key again, verify that it was reused</span> +<span id="L1359" class="LineNr">1359 </span> <span class="subxComment"># eax = get-or-insert-slice(table, "code" slice, 12 bytes/row)</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="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1362" class="LineNr">1362 </span> 68/push 0xc/imm32/row-size +<span id="L1363" class="LineNr">1363 </span> 52/push-edx +<span id="L1364" class="LineNr">1364 </span> 51/push-ecx +<span id="L1365" class="LineNr">1365 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1366" class="LineNr">1366 </span> e8/call <a href='131table.subx.html#L1170'>get-or-insert-slice</a>/disp32 +<span id="L1367" class="LineNr">1367 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1368" class="LineNr">1368 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1369" class="LineNr">1369 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg)</span> +<span id="L1370" class="LineNr">1370 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> +<span id="L1371" class="LineNr">1371 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1372" class="LineNr">1372 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1289'>test-get-or-insert-slice</a>/3"</span>/imm32 +<span id="L1373" class="LineNr">1373 </span> 68/push 0x14/imm32 +<span id="L1374" class="LineNr">1374 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> +<span id="L1375" class="LineNr">1375 </span> 50/push-eax +<span id="L1376" class="LineNr">1376 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1377" class="LineNr">1377 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1378" class="LineNr">1378 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1379" class="LineNr">1379 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1380" class="LineNr">1380 </span> <span class="subxComment"># no new row inserted</span> +<span id="L1381" class="LineNr">1381 </span> <span class="subxS1Comment"># . check-ints-equal(table->write, row-size = 12, msg)</span> +<span id="L1382" class="LineNr">1382 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1383" class="LineNr">1383 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1289'>test-get-or-insert-slice</a>/4"</span>/imm32 +<span id="L1384" class="LineNr">1384 </span> 68/push 0xc/imm32/row-size +<span id="L1385" class="LineNr">1385 </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="L1386" class="LineNr">1386 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1387" class="LineNr">1387 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1388" class="LineNr">1388 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1389" class="LineNr">1389 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1390" class="LineNr">1390 </span> <span class="subxComment"># curr-addr = lookup(table->data)</span> +<span id="L1391" class="LineNr">1391 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1392" class="LineNr">1392 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> +<span id="L1393" class="LineNr">1393 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> +<span id="L1394" class="LineNr">1394 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1395" class="LineNr">1395 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L1396" class="LineNr">1396 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1397" class="LineNr">1397 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1398" class="LineNr">1398 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> +<span id="L1399" class="LineNr">1399 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1400" class="LineNr">1400 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1289'>test-get-or-insert-slice</a>/5"</span>/imm32 +<span id="L1401" class="LineNr">1401 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L1402" class="LineNr">1402 </span> 50/push-eax +<span id="L1403" class="LineNr">1403 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1404" class="LineNr">1404 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 +<span id="L1405" class="LineNr">1405 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1406" class="LineNr">1406 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1407" class="LineNr">1407 </span><span class="Constant">$test-get-or-insert-slice:third-call</span>: +<span id="L1408" class="LineNr">1408 </span> <span class="subxH1Comment"># - insert a new key, verify that it was inserted</span> +<span id="L1409" class="LineNr">1409 </span> <span class="subxComment"># (eax..edx) = "data"</span> +<span id="L1410" class="LineNr">1410 </span> b8/copy-to-eax <span class="Constant">"data"</span>/imm32 +<span id="L1411" class="LineNr">1411 </span> 8b/copy 0/mod/indirect 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"># copy *eax to edx</span> +<span id="L1412" class="LineNr">1412 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+edx+4 to edx</span> +<span id="L1413" class="LineNr">1413 </span> 05/add-to-eax 4/imm32 +<span id="L1414" class="LineNr">1414 </span> <span class="subxComment"># var slice/edx: slice = {eax, edx}</span> +<span id="L1415" class="LineNr">1415 </span> 52/push-edx +<span id="L1416" class="LineNr">1416 </span> 50/push-eax +<span id="L1417" class="LineNr">1417 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L1418" class="LineNr">1418 </span> <span class="subxComment"># eax = get-or-insert-slice(table, "data" slice, 12 bytes/row)</span> +<span id="L1419" class="LineNr">1419 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1420" class="LineNr">1420 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1421" class="LineNr">1421 </span> 68/push 0xc/imm32/row-size +<span id="L1422" class="LineNr">1422 </span> 52/push-edx +<span id="L1423" class="LineNr">1423 </span> 51/push-ecx +<span id="L1424" class="LineNr">1424 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1425" class="LineNr">1425 </span> e8/call <a href='131table.subx.html#L1170'>get-or-insert-slice</a>/disp32 +<span id="L1426" class="LineNr">1426 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1427" class="LineNr">1427 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1428" class="LineNr">1428 </span> <span class="subxComment"># table gets a new row</span> +<span id="L1429" class="LineNr">1429 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 20, msg) # second row's value slot returned</span> +<span id="L1430" class="LineNr">1430 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 32, msg)</span> +<span id="L1431" class="LineNr">1431 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1432" class="LineNr">1432 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1289'>test-get-or-insert-slice</a>/6"</span>/imm32 +<span id="L1433" class="LineNr">1433 </span> 68/push 0x20/imm32 +<span id="L1434" class="LineNr">1434 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> +<span id="L1435" class="LineNr">1435 </span> 50/push-eax +<span id="L1436" class="LineNr">1436 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1437" class="LineNr">1437 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1438" class="LineNr">1438 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1439" class="LineNr">1439 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1440" class="LineNr">1440 </span> <span class="subxComment"># check-ints-equal(table->write, 2 rows = 24, msg)</span> +<span id="L1441" class="LineNr">1441 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1442" class="LineNr">1442 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1289'>test-get-or-insert-slice</a>/7"</span>/imm32 +<span id="L1443" class="LineNr">1443 </span> 68/push 0x18/imm32/two-rows +<span id="L1444" class="LineNr">1444 </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="L1445" class="LineNr">1445 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1446" class="LineNr">1446 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1447" class="LineNr">1447 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1448" class="LineNr">1448 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1449" class="LineNr">1449 </span> <span class="subxComment"># curr-addr = lookup(table->data+12)</span> +<span id="L1450" class="LineNr">1450 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1451" class="LineNr">1451 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+28)</span> +<span id="L1452" class="LineNr">1452 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+24)</span> +<span id="L1453" class="LineNr">1453 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1454" class="LineNr">1454 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L1455" class="LineNr">1455 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1456" class="LineNr">1456 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1457" class="LineNr">1457 </span> <span class="subxComment"># check-strings-equal(curr-addr, "data", msg)</span> +<span id="L1458" class="LineNr">1458 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1459" class="LineNr">1459 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1289'>test-get-or-insert-slice</a>/8"</span>/imm32 +<span id="L1460" class="LineNr">1460 </span> 68/push <span class="Constant">"data"</span>/imm32 +<span id="L1461" class="LineNr">1461 </span> 50/push-eax +<span id="L1462" class="LineNr">1462 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1463" class="LineNr">1463 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 +<span id="L1464" class="LineNr">1464 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1465" class="LineNr">1465 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1466" class="LineNr">1466 </span><span class="Constant">$test-get-or-insert-slice:end</span>: +<span id="L1467" class="LineNr">1467 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1468" class="LineNr">1468 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1469" class="LineNr">1469 </span> 5d/pop-to-ebp +<span id="L1470" class="LineNr">1470 </span> c3/return +<span id="L1471" class="LineNr">1471 </span> +<span id="L1472" class="LineNr">1472 </span><span class="subxComment"># if no row is found, save 'key' in the next available row</span> +<span id="L1473" class="LineNr">1473 </span><span class="subxComment"># if there are no rows free, abort</span> +<span id="L1474" class="LineNr">1474 </span><span class="subxFunction">insert-slice-or-abort</span>: <span class="subxComment"># table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int, ad: (addr allocation-descriptor) -> result/eax: (addr T)</span> +<span id="L1475" class="LineNr">1475 </span> <span class="subxComment"># pseudocode:</span> +<span id="L1476" class="LineNr">1476 </span> <span class="subxComment"># curr = table->data</span> +<span id="L1477" class="LineNr">1477 </span> <span class="subxComment"># max = &table->data[table->write]</span> +<span id="L1478" class="LineNr">1478 </span> <span class="subxComment"># while curr < max</span> +<span id="L1479" class="LineNr">1479 </span> <span class="subxComment"># var c: (addr array byte) = lookup(*curr)</span> +<span id="L1480" class="LineNr">1480 </span> <span class="subxComment"># if slice-equal?(key, *curr)</span> +<span id="L1481" class="LineNr">1481 </span> <span class="subxComment"># return curr+8</span> +<span id="L1482" class="LineNr">1482 </span> <span class="subxComment"># curr += row-size</span> +<span id="L1483" class="LineNr">1483 </span> <span class="subxComment"># if table->write >= table->size</span> +<span id="L1484" class="LineNr">1484 </span> <span class="subxComment"># abort</span> +<span id="L1485" class="LineNr">1485 </span> <span class="subxComment"># zero-out(max, row-size)</span> +<span id="L1486" class="LineNr">1486 </span> <span class="subxComment"># slice-to-string(ad, key, max)</span> +<span id="L1487" class="LineNr">1487 </span> <span class="subxComment"># table->write += row-size</span> +<span id="L1488" class="LineNr">1488 </span> <span class="subxComment"># return max+8</span> +<span id="L1489" class="LineNr">1489 </span> <span class="subxComment">#</span> +<span id="L1490" class="LineNr">1490 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1491" class="LineNr">1491 </span> 55/push-ebp +<span id="L1492" class="LineNr">1492 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1493" class="LineNr">1493 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1494" class="LineNr">1494 </span> 51/push-ecx +<span id="L1495" class="LineNr">1495 </span> 52/push-edx +<span id="L1496" class="LineNr">1496 </span> 56/push-esi +<span id="L1497" class="LineNr">1497 </span> <span class="subxComment"># esi = table</span> +<span id="L1498" class="LineNr">1498 </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="L1499" class="LineNr">1499 </span> <span class="subxComment"># var curr/ecx: (addr handle array byte) = table->data</span> +<span id="L1500" class="LineNr">1500 </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="L1501" class="LineNr">1501 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> +<span id="L1502" class="LineNr">1502 </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="L1503" class="LineNr">1503 </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="L1504" class="LineNr">1504 </span><span class="Constant">$insert-slice-or-abort:search-loop</span>: +<span id="L1505" class="LineNr">1505 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L1506" class="LineNr">1506 </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="L1507" class="LineNr">1507 </span> 73/jump-if-addr>= $insert-slice-or-abort:not-found/disp8 +<span id="L1508" class="LineNr">1508 </span> <span class="subxComment"># var c/eax: (addr array byte) = lookup(*curr)</span> +<span id="L1509" class="LineNr">1509 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1510" class="LineNr">1510 </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="L1511" class="LineNr">1511 </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="L1512" class="LineNr">1512 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1513" class="LineNr">1513 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L1514" class="LineNr">1514 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1515" class="LineNr">1515 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1516" class="LineNr">1516 </span> <span class="subxComment"># if (slice-equal?(key, c)) abort</span> +<span id="L1517" class="LineNr">1517 </span> <span class="subxS1Comment"># . eax = slice-equal?(key, c)</span> +<span id="L1518" class="LineNr">1518 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1519" class="LineNr">1519 </span> 50/push-eax +<span id="L1520" class="LineNr">1520 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1521" class="LineNr">1521 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1522" class="LineNr">1522 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L1523" class="LineNr">1523 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1524" class="LineNr">1524 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1525" class="LineNr">1525 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> +<span id="L1526" class="LineNr">1526 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1527" class="LineNr">1527 </span> 0f 85/jump-if-!= $insert-slice-or-abort:error-duplicate/disp32 +<span id="L1528" class="LineNr">1528 </span> <span class="subxComment"># curr += row-size</span> +<span id="L1529" class="LineNr">1529 </span> 03/add 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"># add *(ebp+16) to ecx</span> +<span id="L1530" class="LineNr">1530 </span> <span class="subxComment"># loop</span> +<span id="L1531" class="LineNr">1531 </span> eb/jump $insert-slice-or-abort:search-loop/disp8 +<span id="L1532" class="LineNr">1532 </span><span class="Constant">$insert-slice-or-abort:not-found</span>: +<span id="L1533" class="LineNr">1533 </span> <span class="subxComment"># result/eax = 0</span> +<span id="L1534" class="LineNr">1534 </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="L1535" class="LineNr">1535 </span> <span class="subxComment"># if (table->write >= table->size) abort</span> +<span id="L1536" class="LineNr">1536 </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="L1537" class="LineNr">1537 </span> 3b/compare 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(esi+8)</span> +<span id="L1538" class="LineNr">1538 </span> 0f 8d/jump-if->= $insert-slice-or-abort:error-full/disp32 +<span id="L1539" class="LineNr">1539 </span> <span class="subxComment"># zero-out(max, row-size)</span> +<span id="L1540" class="LineNr">1540 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1541" class="LineNr">1541 </span> ff 6/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="L1542" class="LineNr">1542 </span> 52/push-edx +<span id="L1543" class="LineNr">1543 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1544" class="LineNr">1544 </span> e8/call <a href='120allocate.subx.html#L889'>zero-out</a>/disp32 +<span id="L1545" class="LineNr">1545 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1546" class="LineNr">1546 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1547" class="LineNr">1547 </span> <span class="subxComment"># slice-to-string(ad, key, max)</span> +<span id="L1548" class="LineNr">1548 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1549" class="LineNr">1549 </span> 52/push-edx +<span id="L1550" class="LineNr">1550 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1551" class="LineNr">1551 </span> ff 6/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="L1552" class="LineNr">1552 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1553" class="LineNr">1553 </span> e8/call <a href='123slice.subx.html#L1043'>slice-to-string</a>/disp32 +<span id="L1554" class="LineNr">1554 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1555" class="LineNr">1555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1556" class="LineNr">1556 </span> <span class="subxComment"># table->write += row-size</span> +<span id="L1557" class="LineNr">1557 </span> <span class="subxS1Comment"># . eax = row-size</span> +<span id="L1558" class="LineNr">1558 </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="L1559" class="LineNr">1559 </span> <span class="subxS1Comment"># . table->write += eax</span> +<span id="L1560" class="LineNr">1560 </span> 01/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *esi</span> +<span id="L1561" class="LineNr">1561 </span> <span class="subxComment"># return max+8</span> +<span id="L1562" class="LineNr">1562 </span> <span class="subxS1Comment"># . eax = max</span> +<span id="L1563" class="LineNr">1563 </span> 89/copy 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"># copy edx to eax</span> +<span id="L1564" class="LineNr">1564 </span> <span class="subxS1Comment"># . eax += 8</span> +<span id="L1565" class="LineNr">1565 </span> 05/add-to-eax 8/imm32 +<span id="L1566" class="LineNr">1566 </span><span class="Constant">$insert-slice-or-abort:end</span>: +<span id="L1567" class="LineNr">1567 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1568" class="LineNr">1568 </span> 5e/pop-to-esi +<span id="L1569" class="LineNr">1569 </span> 5a/pop-to-edx +<span id="L1570" class="LineNr">1570 </span> 59/pop-to-ecx +<span id="L1571" class="LineNr">1571 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1572" class="LineNr">1572 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1573" class="LineNr">1573 </span> 5d/pop-to-ebp +<span id="L1574" class="LineNr">1574 </span> c3/return +<span id="L1575" class="LineNr">1575 </span> +<span id="L1576" class="LineNr">1576 </span><span class="Constant">$insert-slice-or-abort:error-duplicate</span>: +<span id="L1577" class="LineNr">1577 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1578" class="LineNr">1578 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1579" class="LineNr">1579 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1580" class="LineNr">1580 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1581" class="LineNr">1581 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1582" class="LineNr">1582 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1583" class="LineNr">1583 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1584" class="LineNr">1584 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L1585" class="LineNr">1585 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1586" class="LineNr">1586 </span> 68/push <span class="Constant">"insert-slice-or-abort: key already exists: "</span>/imm32 +<span id="L1587" class="LineNr">1587 </span> 68/push 2/imm32/stderr +<span id="L1588" class="LineNr">1588 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1589" class="LineNr">1589 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L1590" class="LineNr">1590 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1591" class="LineNr">1591 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1592" class="LineNr">1592 </span> <span class="subxS1Comment"># . write-slice-buffered(Stderr, key)</span> <span id="L1593" class="LineNr">1593 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1594" class="LineNr">1594 </span> 50/push-eax -<span id="L1595" class="LineNr">1595 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1594" class="LineNr">1594 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1595" class="LineNr">1595 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1596" class="LineNr">1596 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1597" class="LineNr">1597 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L1597" class="LineNr">1597 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 <span id="L1598" class="LineNr">1598 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1599" class="LineNr">1599 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1600" class="LineNr">1600 </span> <span class="subxS1Comment"># . if (eax != false) return eax = curr+8</span> -<span id="L1601" class="LineNr">1601 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1602" class="LineNr">1602 </span> 74/jump-if-= $get-slice-or-stop:mismatch/disp8 -<span id="L1603" class="LineNr">1603 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <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 ecx+8 to eax</span> -<span id="L1604" class="LineNr">1604 </span> eb/jump $get-slice-or-stop:end/disp8 -<span id="L1605" class="LineNr">1605 </span><span class="Constant">$get-slice-or-stop:mismatch</span>: -<span id="L1606" class="LineNr">1606 </span> <span class="subxComment"># curr += row-size</span> -<span id="L1607" class="LineNr">1607 </span> 03/add 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"># add *(ebp+16) to ecx</span> -<span id="L1608" class="LineNr">1608 </span> <span class="subxComment"># loop</span> -<span id="L1609" class="LineNr">1609 </span> eb/jump $get-slice-or-stop:search-loop/disp8 -<span id="L1610" class="LineNr">1610 </span><span class="Constant">$get-slice-or-stop:end</span>: -<span id="L1611" class="LineNr">1611 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1612" class="LineNr">1612 </span> 5e/pop-to-esi -<span id="L1613" class="LineNr">1613 </span> 5a/pop-to-edx -<span id="L1614" class="LineNr">1614 </span> 59/pop-to-ecx -<span id="L1615" class="LineNr">1615 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1616" class="LineNr">1616 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1617" class="LineNr">1617 </span> 5d/pop-to-ebp -<span id="L1618" class="LineNr">1618 </span> c3/return +<span id="L1600" class="LineNr">1600 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1601" class="LineNr">1601 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1602" class="LineNr">1602 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1603" class="LineNr">1603 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1604" class="LineNr">1604 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1605" class="LineNr">1605 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1606" class="LineNr">1606 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1607" class="LineNr">1607 </span> <span class="subxS1Comment"># . _write(2/stderr, "\n")</span> +<span id="L1608" class="LineNr">1608 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1609" class="LineNr">1609 </span> 68/push <span class="Constant">"\n"</span>/imm32 +<span id="L1610" class="LineNr">1610 </span> 68/push 2/imm32/stderr +<span id="L1611" class="LineNr">1611 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1612" class="LineNr">1612 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L1613" class="LineNr">1613 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1614" class="LineNr">1614 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1615" class="LineNr">1615 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> +<span id="L1616" class="LineNr">1616 </span> bb/copy-to-ebx 1/imm32 +<span id="L1617" class="LineNr">1617 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L1618" class="LineNr">1618 </span> <span class="subxComment"># never gets here</span> <span id="L1619" class="LineNr">1619 </span> -<span id="L1620" class="LineNr">1620 </span><span class="Constant">$get-slice-or-stop:<a href='110stop.subx.html#L92'>stop</a></span>: -<span id="L1621" class="LineNr">1621 </span> <span class="subxS1Comment"># . write-buffered(err, abort-message-prefix)</span> +<span id="L1620" class="LineNr">1620 </span><span class="Constant">$insert-slice-or-abort:error-full</span>: +<span id="L1621" class="LineNr">1621 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> <span id="L1622" class="LineNr">1622 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1623" class="LineNr">1623 </span> ff 6/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="L1624" class="LineNr">1624 </span> ff 6/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="L1623" class="LineNr">1623 </span> 68/push <span class="Constant">"insert-slice-or-abort: table is full\n"</span>/imm32 +<span id="L1624" class="LineNr">1624 </span> 68/push 2/imm32/stderr <span id="L1625" class="LineNr">1625 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1626" class="LineNr">1626 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1626" class="LineNr">1626 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L1627" class="LineNr">1627 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1628" class="LineNr">1628 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1629" class="LineNr">1629 </span> <span class="subxS1Comment"># . write-buffered(err, error)</span> -<span id="L1630" class="LineNr">1630 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1631" class="LineNr">1631 </span> 68/push <span class="Constant">": <a href='131table.subx.html#L1551'>get-slice-or-stop</a>: key not found: "</span>/imm32 -<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> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> -<span id="L1633" class="LineNr">1633 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1634" class="LineNr">1634 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1635" class="LineNr">1635 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1636" class="LineNr">1636 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1637" class="LineNr">1637 </span> <span class="subxS1Comment"># . write-slice-buffered(err, key)</span> -<span id="L1638" class="LineNr">1638 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1639" class="LineNr">1639 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1640" class="LineNr">1640 </span> ff 6/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="L1641" class="LineNr">1641 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1642" class="LineNr">1642 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L1643" class="LineNr">1643 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1644" class="LineNr">1644 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1645" class="LineNr">1645 </span> <span class="subxS1Comment"># . write-buffered(err, "\n")</span> -<span id="L1646" class="LineNr">1646 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1647" class="LineNr">1647 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L1648" class="LineNr">1648 </span> ff 6/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="L1649" class="LineNr">1649 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1650" class="LineNr">1650 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1651" class="LineNr">1651 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1652" class="LineNr">1652 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1653" class="LineNr">1653 </span> <span class="subxS1Comment"># . stop(ed, 1)</span> -<span id="L1654" class="LineNr">1654 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1655" class="LineNr">1655 </span> 68/push 1/imm32 -<span id="L1656" class="LineNr">1656 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+28)</span> -<span id="L1657" class="LineNr">1657 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1658" class="LineNr">1658 </span> e8/call <a href='110stop.subx.html#L92'>stop</a>/disp32 -<span id="L1659" class="LineNr">1659 </span> <span class="subxComment"># never gets here</span> -<span id="L1660" class="LineNr">1660 </span><span class="Constant">$get-slice-or-stop:terminus</span>: -<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="subxComment"># syscall(exit, 1)</span> -<span id="L1664" class="LineNr">1664 </span> bb/copy-to-ebx 1/imm32 -<span id="L1665" class="LineNr">1665 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L1666" class="LineNr">1666 </span> -<span id="L1667" class="LineNr">1667 </span><span class="subxTest">test-get-slice-or-stop</span>: -<span id="L1668" class="LineNr">1668 </span> <span class="subxComment"># This test uses exit-descriptors. Use ebp for setting up local variables.</span> -<span id="L1669" class="LineNr">1669 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1670" class="LineNr">1670 </span> 55/push-ebp -<span id="L1671" class="LineNr">1671 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1672" class="LineNr">1672 </span> <span class="subxComment"># setup</span> -<span id="L1673" class="LineNr">1673 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> -<span id="L1674" class="LineNr">1674 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1675" class="LineNr">1675 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 -<span id="L1676" class="LineNr">1676 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1677" class="LineNr">1677 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1678" class="LineNr">1678 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1679" class="LineNr">1679 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1680" class="LineNr">1680 </span> <span class="subxS1Comment"># . clear-stream($_test-error-buffered-file->buffer)</span> -<span id="L1681" class="LineNr">1681 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1682" class="LineNr">1682 </span> 68/push $_test-error-buffered-file->buffer/imm32 -<span id="L1683" class="LineNr">1683 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1684" class="LineNr">1684 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1685" class="LineNr">1685 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1686" class="LineNr">1686 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1687" class="LineNr">1687 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 24) # 2 rows * 12 bytes/row</span> -<span id="L1688" class="LineNr">1688 </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="L1689" class="LineNr">1689 </span> 68/push 0x18/imm32/size -<span id="L1690" class="LineNr">1690 </span> 68/push 0/imm32/read -<span id="L1691" class="LineNr">1691 </span> 68/push 0/imm32/write -<span id="L1692" class="LineNr">1692 </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="L1693" class="LineNr">1693 </span> <span class="subxComment"># var ed/edx: exit-descriptor</span> -<span id="L1694" class="LineNr">1694 </span> 68/push 0/imm32 -<span id="L1695" class="LineNr">1695 </span> 68/push 0/imm32 -<span id="L1696" class="LineNr">1696 </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="L1697" class="LineNr">1697 </span> <span class="subxComment"># var slice/ebx: slice = "code"</span> -<span id="L1698" class="LineNr">1698 </span> <span class="subxS1Comment"># . (eax..ebx) = "code"</span> -<span id="L1699" class="LineNr">1699 </span> b8/copy-to-eax <span class="Constant">"code"</span>/imm32 -<span id="L1700" class="LineNr">1700 </span> 8b/copy 0/mod/indirect 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"># copy *eax to ebx</span> -<span id="L1701" class="LineNr">1701 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 3/index/ebx <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ebx+4 to ebx</span> -<span id="L1702" class="LineNr">1702 </span> 05/add-to-eax 4/imm32 -<span id="L1703" class="LineNr">1703 </span> <span class="subxS1Comment"># . ebx = {eax, ebx}</span> -<span id="L1704" class="LineNr">1704 </span> 53/push-ebx -<span id="L1705" class="LineNr">1705 </span> 50/push-eax -<span id="L1706" class="LineNr">1706 </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="L1707" class="LineNr">1707 </span> <span class="subxComment"># size 'ed' for the calls to 'get-or-stop' (define no locals past this point)</span> -<span id="L1708" class="LineNr">1708 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 24)</span> -<span id="L1709" class="LineNr">1709 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1710" class="LineNr">1710 </span> 68/push 0x18/imm32/nbytes-of-args-for-get-or-stop -<span id="L1711" class="LineNr">1711 </span> 52/push-edx -<span id="L1712" class="LineNr">1712 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1713" class="LineNr">1713 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 -<span id="L1714" class="LineNr">1714 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1715" class="LineNr">1715 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1716" class="LineNr">1716 </span> <span class="subxComment"># insert(table, "code", 12 bytes/row, Heap)</span> -<span id="L1717" class="LineNr">1717 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1718" class="LineNr">1718 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1719" class="LineNr">1719 </span> 68/push 0xc/imm32/row-size -<span id="L1720" class="LineNr">1720 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L1721" class="LineNr">1721 </span> 51/push-ecx -<span id="L1722" class="LineNr">1722 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1723" class="LineNr">1723 </span> e8/call <a href='131table.subx.html#L421'>get-or-insert</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> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L1726" class="LineNr">1726 </span><span class="Constant">$test-get-slice-or-stop:success</span>: -<span id="L1727" class="LineNr">1727 </span> <span class="subxComment"># eax = get-slice-or-stop(table, slice, row-size=12, msg, _test-error-buffered-file, ed)</span> -<span id="L1728" class="LineNr">1728 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1729" class="LineNr">1729 </span> 52/push-edx/ed -<span id="L1730" class="LineNr">1730 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 -<span id="L1731" class="LineNr">1731 </span> 68/push <span class="Constant">"foo"</span>/imm32/abort-prefix -<span id="L1732" class="LineNr">1732 </span> 68/push 0xc/imm32/row-size -<span id="L1733" class="LineNr">1733 </span> 53/push-ebx/slice -<span id="L1734" class="LineNr">1734 </span> 51/push-ecx -<span id="L1735" class="LineNr">1735 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1736" class="LineNr">1736 </span> e8/call <a href='131table.subx.html#L1551'>get-slice-or-stop</a>/disp32 -<span id="L1737" class="LineNr">1737 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> -<span id="L1738" class="LineNr">1738 </span> <span class="subxComment"># restore register args, discard others</span> -<span id="L1739" class="LineNr">1739 </span> 59/pop-to-ecx -<span id="L1740" class="LineNr">1740 </span> 5b/pop-to-ebx -<span id="L1741" class="LineNr">1741 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1742" class="LineNr">1742 </span> 5a/pop-to-edx -<span id="L1743" class="LineNr">1743 </span><span class="Constant">$test-get-slice-or-stop:success-assertion</span>: -<span id="L1744" class="LineNr">1744 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg) # first row's value slot returned</span> -<span id="L1745" class="LineNr">1745 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> -<span id="L1746" class="LineNr">1746 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1747" class="LineNr">1747 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1667'>test-get-slice-or-stop</a>/0"</span>/imm32 -<span id="L1748" class="LineNr">1748 </span> 68/push 0x14/imm32 -<span id="L1749" class="LineNr">1749 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> -<span id="L1750" class="LineNr">1750 </span> 50/push-eax -<span id="L1751" class="LineNr">1751 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1752" class="LineNr">1752 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1753" class="LineNr">1753 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1754" class="LineNr">1754 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1755" class="LineNr">1755 </span><span class="Constant">$test-get-slice-or-stop:failure</span>: -<span id="L1756" class="LineNr">1756 </span> <span class="subxComment"># slice = "segment2"</span> -<span id="L1757" class="LineNr">1757 </span> <span class="subxS1Comment"># . *ebx = "segment2"->data</span> -<span id="L1758" class="LineNr">1758 </span> b8/copy-to-eax <span class="Constant">"segment2"</span>/imm32 -<span id="L1759" class="LineNr">1759 </span> 05/add-to-eax 4/imm32 -<span id="L1760" class="LineNr">1760 </span> 89/copy 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ebx</span> -<span id="L1761" class="LineNr">1761 </span> <span class="subxS1Comment"># . *(ebx+4) = "segment2"->data + len("segment2")</span> -<span id="L1762" class="LineNr">1762 </span> 05/add-to-eax 8/imm32/strlen -<span id="L1763" class="LineNr">1763 </span> 89/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 eax to *(ebx+4)</span> -<span id="L1764" class="LineNr">1764 </span> <span class="subxComment"># eax = get-slice-or-stop(table, slice, row-size=12, msg, _test-error-buffered-file, ed)</span> -<span id="L1765" class="LineNr">1765 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1766" class="LineNr">1766 </span> 52/push-edx/ed -<span id="L1767" class="LineNr">1767 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 -<span id="L1768" class="LineNr">1768 </span> 68/push <span class="Constant">"foo"</span>/imm32/abort-prefix -<span id="L1769" class="LineNr">1769 </span> 68/push 0xc/imm32/row-size -<span id="L1770" class="LineNr">1770 </span> 53/push-ebx/slice -<span id="L1771" class="LineNr">1771 </span> 51/push-ecx -<span id="L1772" class="LineNr">1772 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1773" class="LineNr">1773 </span> e8/call <a href='131table.subx.html#L1551'>get-slice-or-stop</a>/disp32 -<span id="L1774" class="LineNr">1774 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> -<span id="L1775" class="LineNr">1775 </span> <span class="subxComment"># restore register args, discard others</span> -<span id="L1776" class="LineNr">1776 </span> 59/pop-to-ecx -<span id="L1777" class="LineNr">1777 </span> 5b/pop-to-ebx -<span id="L1778" class="LineNr">1778 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1779" class="LineNr">1779 </span> 5a/pop-to-edx -<span id="L1780" class="LineNr">1780 </span><span class="Constant">$test-get-slice-or-stop:failure-assertion</span>: -<span id="L1781" class="LineNr">1781 </span> <span class="subxComment"># check that get-or-stop tried to call stop(1)</span> -<span id="L1782" class="LineNr">1782 </span> <span class="subxS1Comment"># . check-ints-equal(ed->value, 2, msg)</span> -<span id="L1783" class="LineNr">1783 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1784" class="LineNr">1784 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1441'>test-get-or-stop</a>/1"</span>/imm32 -<span id="L1785" class="LineNr">1785 </span> 68/push 2/imm32 -<span id="L1786" class="LineNr">1786 </span> <span class="subxS2Comment"># . . push ed->value</span> -<span id="L1787" class="LineNr">1787 </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="L1788" class="LineNr">1788 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1789" class="LineNr">1789 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1790" class="LineNr">1790 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1791" class="LineNr">1791 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1792" class="LineNr">1792 </span><span class="Constant">$test-get-slice-or-stop:end</span>: -<span id="L1793" class="LineNr">1793 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1794" class="LineNr">1794 </span> <span class="subxComment"># don't restore esp from ebp; manually reclaim locals</span> -<span id="L1795" class="LineNr">1795 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x34/imm32 <span class="subxComment"># add to esp</span> -<span id="L1796" class="LineNr">1796 </span> 5d/pop-to-ebp -<span id="L1797" class="LineNr">1797 </span> c3/return -<span id="L1798" class="LineNr">1798 </span> -<span id="L1799" class="LineNr">1799 </span><span class="subxComment"># if no row is found, return null (0)</span> -<span id="L1800" class="LineNr">1800 </span><span class="subxFunction">maybe-get</span>: <span class="subxComment"># table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int -> result/eax: (addr T)</span> -<span id="L1801" class="LineNr">1801 </span> <span class="subxComment"># pseudocode:</span> -<span id="L1802" class="LineNr">1802 </span> <span class="subxComment"># curr = table->data</span> -<span id="L1803" class="LineNr">1803 </span> <span class="subxComment"># max = &table->data[table->write]</span> -<span id="L1804" class="LineNr">1804 </span> <span class="subxComment"># while curr < max</span> -<span id="L1805" class="LineNr">1805 </span> <span class="subxComment"># var c: (addr array byte) = lookup(*curr)</span> -<span id="L1806" class="LineNr">1806 </span> <span class="subxComment"># if string-equal?(key, c)</span> -<span id="L1807" class="LineNr">1807 </span> <span class="subxComment"># return curr+8</span> -<span id="L1808" class="LineNr">1808 </span> <span class="subxComment"># curr += row-size</span> -<span id="L1809" class="LineNr">1809 </span> <span class="subxComment"># return 0</span> -<span id="L1810" class="LineNr">1810 </span> <span class="subxComment">#</span> -<span id="L1811" class="LineNr">1811 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1812" class="LineNr">1812 </span> 55/push-ebp -<span id="L1813" class="LineNr">1813 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1814" class="LineNr">1814 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1815" class="LineNr">1815 </span> 51/push-ecx -<span id="L1816" class="LineNr">1816 </span> 52/push-edx -<span id="L1817" class="LineNr">1817 </span> 56/push-esi -<span id="L1818" class="LineNr">1818 </span> <span class="subxComment"># esi = table</span> -<span id="L1819" class="LineNr">1819 </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="L1820" class="LineNr">1820 </span> <span class="subxComment"># var curr/ecx: (addr handle array byte) = table->data</span> -<span id="L1821" class="LineNr">1821 </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="L1822" class="LineNr">1822 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> -<span id="L1823" class="LineNr">1823 </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="L1824" class="LineNr">1824 </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="L1825" class="LineNr">1825 </span><span class="Constant">$maybe-get:search-loop</span>: -<span id="L1826" class="LineNr">1826 </span> <span class="subxComment"># if (curr >= max) return null</span> -<span id="L1827" class="LineNr">1827 </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="L1828" class="LineNr">1828 </span> 73/jump-if-addr>= $maybe-get:null/disp8 -<span id="L1829" class="LineNr">1829 </span> <span class="subxComment"># var c/eax: (addr array byte) = lookup(*curr)</span> -<span id="L1830" class="LineNr">1830 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1831" class="LineNr">1831 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L1832" class="LineNr">1832 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L1833" class="LineNr">1833 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1834" class="LineNr">1834 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 -<span id="L1835" class="LineNr">1835 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1836" class="LineNr">1836 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1837" class="LineNr">1837 </span> <span class="subxComment"># if (string-equal?(key, c)) return curr+4</span> -<span id="L1838" class="LineNr">1838 </span> <span class="subxS1Comment"># . eax = string-equal?(key, c)</span> -<span id="L1839" class="LineNr">1839 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1840" class="LineNr">1840 </span> 50/push-eax -<span id="L1841" class="LineNr">1841 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1842" class="LineNr">1842 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1843" class="LineNr">1843 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 -<span id="L1844" class="LineNr">1844 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1845" class="LineNr">1845 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1846" class="LineNr">1846 </span> <span class="subxS1Comment"># . if (eax != false) return eax = curr+8</span> -<span id="L1847" class="LineNr">1847 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1848" class="LineNr">1848 </span> 74/jump-if-= $maybe-get:mismatch/disp8 -<span id="L1849" class="LineNr">1849 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <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 ecx+8 to eax</span> -<span id="L1850" class="LineNr">1850 </span> eb/jump $maybe-get:end/disp8 -<span id="L1851" class="LineNr">1851 </span><span class="Constant">$maybe-get:mismatch</span>: -<span id="L1852" class="LineNr">1852 </span> <span class="subxComment"># curr += row-size</span> -<span id="L1853" class="LineNr">1853 </span> 03/add 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"># add *(ebp+16) to ecx</span> -<span id="L1854" class="LineNr">1854 </span> <span class="subxComment"># loop</span> -<span id="L1855" class="LineNr">1855 </span> eb/jump $maybe-get:search-loop/disp8 -<span id="L1856" class="LineNr">1856 </span><span class="Constant">$maybe-get:null</span>: -<span id="L1857" class="LineNr">1857 </span> b8/copy-to-eax 0/imm32 -<span id="L1858" class="LineNr">1858 </span><span class="Constant">$maybe-get:end</span>: -<span id="L1859" class="LineNr">1859 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1860" class="LineNr">1860 </span> 5e/pop-to-esi -<span id="L1861" class="LineNr">1861 </span> 5a/pop-to-edx -<span id="L1862" class="LineNr">1862 </span> 59/pop-to-ecx -<span id="L1863" class="LineNr">1863 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1864" class="LineNr">1864 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1865" class="LineNr">1865 </span> 5d/pop-to-ebp -<span id="L1866" class="LineNr">1866 </span> c3/return -<span id="L1867" class="LineNr">1867 </span> -<span id="L1868" class="LineNr">1868 </span><span class="subxTest">test-maybe-get</span>: -<span id="L1869" class="LineNr">1869 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1870" class="LineNr">1870 </span> 55/push-ebp -<span id="L1871" class="LineNr">1871 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1872" class="LineNr">1872 </span> <span class="subxH1Comment"># - setup: create a table with one row</span> -<span id="L1873" class="LineNr">1873 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 24) # 2 rows * 12 bytes/row</span> -<span id="L1874" class="LineNr">1874 </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="L1875" class="LineNr">1875 </span> 68/push 0x18/imm32/size -<span id="L1876" class="LineNr">1876 </span> 68/push 0/imm32/read -<span id="L1877" class="LineNr">1877 </span> 68/push 0/imm32/write -<span id="L1878" class="LineNr">1878 </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="L1879" class="LineNr">1879 </span> <span class="subxComment"># eax = get-or-insert(table, "code", 12 bytes/row, Heap)</span> -<span id="L1880" class="LineNr">1880 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1881" class="LineNr">1881 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1882" class="LineNr">1882 </span> 68/push 0xc/imm32/row-size -<span id="L1883" class="LineNr">1883 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L1884" class="LineNr">1884 </span> 51/push-ecx -<span id="L1885" class="LineNr">1885 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1886" class="LineNr">1886 </span> e8/call <a href='131table.subx.html#L421'>get-or-insert</a>/disp32 -<span id="L1887" class="LineNr">1887 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1888" class="LineNr">1888 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L1889" class="LineNr">1889 </span><span class="Constant">$test-maybe-get:success</span>: -<span id="L1890" class="LineNr">1890 </span> <span class="subxH1Comment"># - check for the same key, verify that it was reused</span> -<span id="L1891" class="LineNr">1891 </span> <span class="subxComment"># eax = maybe-get(table, "code", 12 bytes/row)</span> -<span id="L1892" class="LineNr">1892 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1893" class="LineNr">1893 </span> 68/push 0xc/imm32/row-size -<span id="L1894" class="LineNr">1894 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L1895" class="LineNr">1895 </span> 51/push-ecx -<span id="L1896" class="LineNr">1896 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1897" class="LineNr">1897 </span> e8/call <a href='131table.subx.html#L1800'>maybe-get</a>/disp32 -<span id="L1898" class="LineNr">1898 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1899" class="LineNr">1899 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1900" class="LineNr">1900 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg)</span> -<span id="L1901" class="LineNr">1901 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> -<span id="L1902" class="LineNr">1902 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1903" class="LineNr">1903 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1868'>test-maybe-get</a>/0"</span>/imm32 -<span id="L1904" class="LineNr">1904 </span> 68/push 0x14/imm32 -<span id="L1905" class="LineNr">1905 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> -<span id="L1906" class="LineNr">1906 </span> 50/push-eax +<span id="L1629" class="LineNr">1629 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> +<span id="L1630" class="LineNr">1630 </span> bb/copy-to-ebx 1/imm32 +<span id="L1631" class="LineNr">1631 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L1632" class="LineNr">1632 </span> <span class="subxComment"># never gets here</span> +<span id="L1633" class="LineNr">1633 </span> +<span id="L1634" class="LineNr">1634 </span> +<span id="L1635" class="LineNr">1635 </span><span class="subxComment"># if no row is found, stop(ed)</span> +<span id="L1636" class="LineNr">1636 </span><span class="subxFunction">get-or-stop</span>: <span class="subxComment"># table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int,</span> +<span id="L1637" class="LineNr">1637 </span> <span class="subxComment"># abort-message-prefix: (addr array byte), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L1638" class="LineNr">1638 </span> <span class="subxComment"># -> result/eax: (addr T)</span> +<span id="L1639" class="LineNr">1639 </span> <span class="subxComment"># pseudocode:</span> +<span id="L1640" class="LineNr">1640 </span> <span class="subxComment"># curr = table->data</span> +<span id="L1641" class="LineNr">1641 </span> <span class="subxComment"># max = &table->data[table->write]</span> +<span id="L1642" class="LineNr">1642 </span> <span class="subxComment"># while curr < max</span> +<span id="L1643" class="LineNr">1643 </span> <span class="subxComment"># var c: (addr array byte) = lookup(*curr)</span> +<span id="L1644" class="LineNr">1644 </span> <span class="subxComment"># if string-equal?(key, c)</span> +<span id="L1645" class="LineNr">1645 </span> <span class="subxComment"># return curr+8</span> +<span id="L1646" class="LineNr">1646 </span> <span class="subxComment"># curr += row-size</span> +<span id="L1647" class="LineNr">1647 </span> <span class="subxComment"># write-buffered(err, msg)</span> +<span id="L1648" class="LineNr">1648 </span> <span class="subxComment"># stop(ed)</span> +<span id="L1649" class="LineNr">1649 </span> <span class="subxComment">#</span> +<span id="L1650" class="LineNr">1650 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1651" class="LineNr">1651 </span> 55/push-ebp +<span id="L1652" class="LineNr">1652 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1653" class="LineNr">1653 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1654" class="LineNr">1654 </span> 51/push-ecx +<span id="L1655" class="LineNr">1655 </span> 52/push-edx +<span id="L1656" class="LineNr">1656 </span> 56/push-esi +<span id="L1657" class="LineNr">1657 </span> <span class="subxComment"># esi = table</span> +<span id="L1658" class="LineNr">1658 </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="L1659" class="LineNr">1659 </span> <span class="subxComment"># var curr/ecx: (addr handle array byte) = table->data</span> +<span id="L1660" class="LineNr">1660 </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="L1661" class="LineNr">1661 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> +<span id="L1662" class="LineNr">1662 </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="L1663" class="LineNr">1663 </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="L1664" class="LineNr">1664 </span><span class="Constant">$get-or-stop:search-loop</span>: +<span id="L1665" class="LineNr">1665 </span> <span class="subxComment"># if (curr >= max) stop(ed)</span> +<span id="L1666" class="LineNr">1666 </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="L1667" class="LineNr">1667 </span> 73/jump-if-addr>= $get-or-stop:<a href='110stop.subx.html#L92'>stop</a>/disp8 +<span id="L1668" class="LineNr">1668 </span> <span class="subxComment"># var c/eax: (addr array byte) = lookup(*curr)</span> +<span id="L1669" class="LineNr">1669 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1670" class="LineNr">1670 </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="L1671" class="LineNr">1671 </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="L1672" class="LineNr">1672 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1673" class="LineNr">1673 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L1674" class="LineNr">1674 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1675" class="LineNr">1675 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1676" class="LineNr">1676 </span> <span class="subxComment"># if (string-equal?(key, c)) return curr+8</span> +<span id="L1677" class="LineNr">1677 </span> <span class="subxS1Comment"># . eax = string-equal?(key, c)</span> +<span id="L1678" class="LineNr">1678 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1679" class="LineNr">1679 </span> 50/push-eax +<span id="L1680" class="LineNr">1680 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1681" class="LineNr">1681 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1682" class="LineNr">1682 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 +<span id="L1683" class="LineNr">1683 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1684" class="LineNr">1684 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1685" class="LineNr">1685 </span> <span class="subxS1Comment"># . if (eax != false) return eax = curr+8</span> +<span id="L1686" class="LineNr">1686 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1687" class="LineNr">1687 </span> 74/jump-if-= $get-or-stop:mismatch/disp8 +<span id="L1688" class="LineNr">1688 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <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 ecx+8 to eax</span> +<span id="L1689" class="LineNr">1689 </span> eb/jump $get-or-stop:end/disp8 +<span id="L1690" class="LineNr">1690 </span><span class="Constant">$get-or-stop:mismatch</span>: +<span id="L1691" class="LineNr">1691 </span> <span class="subxComment"># curr += row-size</span> +<span id="L1692" class="LineNr">1692 </span> 03/add 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"># add *(ebp+16) to ecx</span> +<span id="L1693" class="LineNr">1693 </span> <span class="subxComment"># loop</span> +<span id="L1694" class="LineNr">1694 </span> eb/jump $get-or-stop:search-loop/disp8 +<span id="L1695" class="LineNr">1695 </span><span class="Constant">$get-or-stop:end</span>: +<span id="L1696" class="LineNr">1696 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1697" class="LineNr">1697 </span> 5e/pop-to-esi +<span id="L1698" class="LineNr">1698 </span> 5a/pop-to-edx +<span id="L1699" class="LineNr">1699 </span> 59/pop-to-ecx +<span id="L1700" class="LineNr">1700 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1701" class="LineNr">1701 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1702" class="LineNr">1702 </span> 5d/pop-to-ebp +<span id="L1703" class="LineNr">1703 </span> c3/return +<span id="L1704" class="LineNr">1704 </span> +<span id="L1705" class="LineNr">1705 </span><span class="Constant">$get-or-stop:<a href='110stop.subx.html#L92'>stop</a></span>: +<span id="L1706" class="LineNr">1706 </span> <span class="subxS1Comment"># . write-buffered(err, abort-message-prefix)</span> +<span id="L1707" class="LineNr">1707 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1708" class="LineNr">1708 </span> ff 6/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="L1709" class="LineNr">1709 </span> ff 6/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="L1710" class="LineNr">1710 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1711" class="LineNr">1711 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1712" class="LineNr">1712 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1713" class="LineNr">1713 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1714" class="LineNr">1714 </span> <span class="subxS1Comment"># . write-buffered(err, error)</span> +<span id="L1715" class="LineNr">1715 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1716" class="LineNr">1716 </span> 68/push <span class="Constant">": <a href='131table.subx.html#L1636'>get-or-stop</a>: key not found: "</span>/imm32 +<span id="L1717" class="LineNr">1717 </span> ff 6/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="L1718" class="LineNr">1718 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1719" class="LineNr">1719 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1720" class="LineNr">1720 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1721" class="LineNr">1721 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1722" class="LineNr">1722 </span> <span class="subxS1Comment"># . write-buffered(err, key)</span> +<span id="L1723" class="LineNr">1723 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1724" class="LineNr">1724 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1725" class="LineNr">1725 </span> ff 6/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="L1726" class="LineNr">1726 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1727" class="LineNr">1727 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1728" class="LineNr">1728 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1729" class="LineNr">1729 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1730" class="LineNr">1730 </span> <span class="subxS1Comment"># . write-buffered(err, "\n")</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="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L1733" class="LineNr">1733 </span> ff 6/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="L1734" class="LineNr">1734 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1735" class="LineNr">1735 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1736" class="LineNr">1736 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1737" class="LineNr">1737 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1738" class="LineNr">1738 </span> <span class="subxS1Comment"># . stop(ed, 1)</span> +<span id="L1739" class="LineNr">1739 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1740" class="LineNr">1740 </span> 68/push 1/imm32 +<span id="L1741" class="LineNr">1741 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+28)</span> +<span id="L1742" class="LineNr">1742 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1743" class="LineNr">1743 </span> e8/call <a href='110stop.subx.html#L92'>stop</a>/disp32 +<span id="L1744" class="LineNr">1744 </span> <span class="subxComment"># never gets here</span> +<span id="L1745" class="LineNr">1745 </span><span class="Constant">$get-or-stop:terminus</span>: +<span id="L1746" class="LineNr">1746 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1747" class="LineNr">1747 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1748" class="LineNr">1748 </span> <span class="subxComment"># syscall_exit(1)</span> +<span id="L1749" class="LineNr">1749 </span> bb/copy-to-ebx 1/imm32 +<span id="L1750" class="LineNr">1750 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L1751" class="LineNr">1751 </span> +<span id="L1752" class="LineNr">1752 </span><span class="subxTest">test-get-or-stop</span>: +<span id="L1753" class="LineNr">1753 </span> <span class="subxComment"># This test uses exit-descriptors. Use ebp for setting up local variables.</span> +<span id="L1754" class="LineNr">1754 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1755" class="LineNr">1755 </span> 55/push-ebp +<span id="L1756" class="LineNr">1756 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1757" class="LineNr">1757 </span> <span class="subxComment"># setup</span> +<span id="L1758" class="LineNr">1758 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> +<span id="L1759" class="LineNr">1759 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1760" class="LineNr">1760 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 +<span id="L1761" class="LineNr">1761 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1762" class="LineNr">1762 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1763" class="LineNr">1763 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1764" class="LineNr">1764 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1765" class="LineNr">1765 </span> <span class="subxS1Comment"># . clear-stream($_test-error-buffered-file->buffer)</span> +<span id="L1766" class="LineNr">1766 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1767" class="LineNr">1767 </span> 68/push $_test-error-buffered-file->buffer/imm32 +<span id="L1768" class="LineNr">1768 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1769" class="LineNr">1769 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1770" class="LineNr">1770 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1771" class="LineNr">1771 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1772" class="LineNr">1772 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 24) # 2 rows * 12 bytes/row</span> +<span id="L1773" class="LineNr">1773 </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="L1774" class="LineNr">1774 </span> 68/push 0x18/imm32/size +<span id="L1775" class="LineNr">1775 </span> 68/push 0/imm32/read +<span id="L1776" class="LineNr">1776 </span> 68/push 0/imm32/write +<span id="L1777" class="LineNr">1777 </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="L1778" class="LineNr">1778 </span> <span class="subxComment"># var ed/edx: exit-descriptor</span> +<span id="L1779" class="LineNr">1779 </span> 68/push 0/imm32 +<span id="L1780" class="LineNr">1780 </span> 68/push 0/imm32 +<span id="L1781" class="LineNr">1781 </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="L1782" class="LineNr">1782 </span> <span class="subxComment"># size 'ed' for the calls to 'get-or-stop'</span> +<span id="L1783" class="LineNr">1783 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 24)</span> +<span id="L1784" class="LineNr">1784 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1785" class="LineNr">1785 </span> 68/push 0x18/imm32/nbytes-of-args-for-get-or-stop +<span id="L1786" class="LineNr">1786 </span> 52/push-edx +<span id="L1787" class="LineNr">1787 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1788" class="LineNr">1788 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</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="subxComment"># insert(table, "code", 12 bytes/row, Heap)</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="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1794" class="LineNr">1794 </span> 68/push 0xc/imm32/row-size +<span id="L1795" class="LineNr">1795 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L1796" class="LineNr">1796 </span> 51/push-ecx +<span id="L1797" class="LineNr">1797 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1798" class="LineNr">1798 </span> e8/call <a href='131table.subx.html#L421'>get-or-insert</a>/disp32 +<span id="L1799" class="LineNr">1799 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1800" class="LineNr">1800 </span> 81 0/subop/add 3/mod/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="L1801" class="LineNr">1801 </span><span class="Constant">$test-get-or-stop:success</span>: +<span id="L1802" class="LineNr">1802 </span> <span class="subxComment"># eax = get-or-stop(table, "code", row-size=12, msg, _test-error-buffered-file, ed)</span> +<span id="L1803" class="LineNr">1803 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1804" class="LineNr">1804 </span> 52/push-edx/ed +<span id="L1805" class="LineNr">1805 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 +<span id="L1806" class="LineNr">1806 </span> 68/push <span class="Constant">"foo"</span>/imm32/abort-prefix +<span id="L1807" class="LineNr">1807 </span> 68/push 0xc/imm32/row-size +<span id="L1808" class="LineNr">1808 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L1809" class="LineNr">1809 </span> 51/push-ecx +<span id="L1810" class="LineNr">1810 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1811" class="LineNr">1811 </span> e8/call <a href='131table.subx.html#L1636'>get-or-stop</a>/disp32 +<span id="L1812" class="LineNr">1812 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1813" class="LineNr">1813 </span> 81 0/subop/add 3/mod/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="L1814" class="LineNr">1814 </span><span class="Constant">$test-get-or-stop:success-assertion</span>: +<span id="L1815" class="LineNr">1815 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg)</span> +<span id="L1816" class="LineNr">1816 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> +<span id="L1817" class="LineNr">1817 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1818" class="LineNr">1818 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1752'>test-get-or-stop</a>/0"</span>/imm32 +<span id="L1819" class="LineNr">1819 </span> 68/push 0x14/imm32 +<span id="L1820" class="LineNr">1820 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> +<span id="L1821" class="LineNr">1821 </span> 50/push-eax +<span id="L1822" class="LineNr">1822 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1823" class="LineNr">1823 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1824" class="LineNr">1824 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1825" class="LineNr">1825 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1826" class="LineNr">1826 </span><span class="Constant">$test-get-or-stop:failure</span>: +<span id="L1827" class="LineNr">1827 </span> <span class="subxComment"># eax = get-or-stop(table, "data", row-size=12, msg, _test-error-buffered-file, ed)</span> +<span id="L1828" class="LineNr">1828 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1829" class="LineNr">1829 </span> 52/push-edx/ed +<span id="L1830" class="LineNr">1830 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 +<span id="L1831" class="LineNr">1831 </span> 68/push <span class="Constant">"foo"</span>/imm32/abort-prefix +<span id="L1832" class="LineNr">1832 </span> 68/push 0xc/imm32/row-size +<span id="L1833" class="LineNr">1833 </span> 68/push <span class="Constant">"data"</span>/imm32 +<span id="L1834" class="LineNr">1834 </span> 51/push-ecx +<span id="L1835" class="LineNr">1835 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1836" class="LineNr">1836 </span> e8/call <a href='131table.subx.html#L1636'>get-or-stop</a>/disp32 +<span id="L1837" class="LineNr">1837 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> +<span id="L1838" class="LineNr">1838 </span> <span class="subxComment"># restore register args, discard others</span> +<span id="L1839" class="LineNr">1839 </span> 59/pop-to-ecx +<span id="L1840" class="LineNr">1840 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1841" class="LineNr">1841 </span> 5a/pop-to-edx +<span id="L1842" class="LineNr">1842 </span><span class="Constant">$test-get-or-stop:failure-assertion</span>: +<span id="L1843" class="LineNr">1843 </span> <span class="subxComment"># check that get-or-stop tried to call stop(1)</span> +<span id="L1844" class="LineNr">1844 </span> <span class="subxS1Comment"># . check-ints-equal(ed->value, 2, msg)</span> +<span id="L1845" class="LineNr">1845 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1846" class="LineNr">1846 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1752'>test-get-or-stop</a>/1"</span>/imm32 +<span id="L1847" class="LineNr">1847 </span> 68/push 2/imm32 +<span id="L1848" class="LineNr">1848 </span> <span class="subxS2Comment"># . . push ed->value</span> +<span id="L1849" class="LineNr">1849 </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="L1850" class="LineNr">1850 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1851" class="LineNr">1851 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1852" class="LineNr">1852 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1853" class="LineNr">1853 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1854" class="LineNr">1854 </span><span class="Constant">$test-get-or-stop:end</span>: +<span id="L1855" class="LineNr">1855 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1856" class="LineNr">1856 </span> <span class="subxComment"># don't restore esp from ebp; manually reclaim locals</span> +<span id="L1857" class="LineNr">1857 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x2c/imm32 <span class="subxComment"># add to esp</span> +<span id="L1858" class="LineNr">1858 </span> 5d/pop-to-ebp +<span id="L1859" class="LineNr">1859 </span> c3/return +<span id="L1860" class="LineNr">1860 </span> +<span id="L1861" class="LineNr">1861 </span><span class="subxComment"># if no row is found, stop(ed)</span> +<span id="L1862" class="LineNr">1862 </span><span class="subxFunction">get-slice-or-stop</span>: <span class="subxComment"># table: (addr stream {(handle array byte), _}), key: (addr slice), row-size: int,</span> +<span id="L1863" class="LineNr">1863 </span> <span class="subxComment"># abort-message-prefix: (addr string), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L1864" class="LineNr">1864 </span> <span class="subxComment"># -> result/eax: (addr _)</span> +<span id="L1865" class="LineNr">1865 </span> <span class="subxComment"># pseudocode:</span> +<span id="L1866" class="LineNr">1866 </span> <span class="subxComment"># curr = table->data</span> +<span id="L1867" class="LineNr">1867 </span> <span class="subxComment"># max = &table->data[table->write]</span> +<span id="L1868" class="LineNr">1868 </span> <span class="subxComment"># while curr < max</span> +<span id="L1869" class="LineNr">1869 </span> <span class="subxComment"># var c: (addr array byte) = lookup(*curr)</span> +<span id="L1870" class="LineNr">1870 </span> <span class="subxComment"># if slice-equal?(key, c)</span> +<span id="L1871" class="LineNr">1871 </span> <span class="subxComment"># return curr+8</span> +<span id="L1872" class="LineNr">1872 </span> <span class="subxComment"># curr += row-size</span> +<span id="L1873" class="LineNr">1873 </span> <span class="subxComment"># write-buffered(err, msg)</span> +<span id="L1874" class="LineNr">1874 </span> <span class="subxComment"># stop(ed)</span> +<span id="L1875" class="LineNr">1875 </span> <span class="subxComment">#</span> +<span id="L1876" class="LineNr">1876 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1877" class="LineNr">1877 </span> 55/push-ebp +<span id="L1878" class="LineNr">1878 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1879" class="LineNr">1879 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1880" class="LineNr">1880 </span> 51/push-ecx +<span id="L1881" class="LineNr">1881 </span> 52/push-edx +<span id="L1882" class="LineNr">1882 </span> 56/push-esi +<span id="L1883" class="LineNr">1883 </span> <span class="subxComment"># esi = table</span> +<span id="L1884" class="LineNr">1884 </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="L1885" class="LineNr">1885 </span> <span class="subxComment"># var curr/ecx: (addr handle array byte) = table->data</span> +<span id="L1886" class="LineNr">1886 </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="L1887" class="LineNr">1887 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> +<span id="L1888" class="LineNr">1888 </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="L1889" class="LineNr">1889 </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="L1890" class="LineNr">1890 </span><span class="Constant">$get-slice-or-stop:search-loop</span>: +<span id="L1891" class="LineNr">1891 </span> <span class="subxComment"># if (curr >= max) stop(ed)</span> +<span id="L1892" class="LineNr">1892 </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="L1893" class="LineNr">1893 </span> 73/jump-if-addr>= $get-slice-or-stop:<a href='110stop.subx.html#L92'>stop</a>/disp8 +<span id="L1894" class="LineNr">1894 </span> <span class="subxComment"># var c/eax: (addr array byte) = lookup(*curr)</span> +<span id="L1895" class="LineNr">1895 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1896" class="LineNr">1896 </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="L1897" class="LineNr">1897 </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="L1898" class="LineNr">1898 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1899" class="LineNr">1899 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</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> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1902" class="LineNr">1902 </span> <span class="subxComment"># if (slice-equal?(key, c)) return curr+4</span> +<span id="L1903" class="LineNr">1903 </span> <span class="subxS1Comment"># . eax = slice-equal?(key, c)</span> +<span id="L1904" class="LineNr">1904 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1905" class="LineNr">1905 </span> 50/push-eax +<span id="L1906" class="LineNr">1906 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L1907" class="LineNr">1907 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1908" class="LineNr">1908 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1908" class="LineNr">1908 </span> e8/call <a href='123slice.subx.html#L120'>slice-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="subxComment"># no new row inserted</span> -<span id="L1912" class="LineNr">1912 </span> <span class="subxS1Comment"># . check-ints-equal(table->write, row-size = 12, msg)</span> -<span id="L1913" class="LineNr">1913 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1914" class="LineNr">1914 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1868'>test-maybe-get</a>/1"</span>/imm32 -<span id="L1915" class="LineNr">1915 </span> 68/push 0xc/imm32/row-size -<span id="L1916" class="LineNr">1916 </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="L1917" class="LineNr">1917 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1918" class="LineNr">1918 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1919" class="LineNr">1919 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1920" class="LineNr">1920 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1921" class="LineNr">1921 </span> <span class="subxComment"># var curr-addr/eax: (addr array byte) = lookup(table->data)</span> -<span id="L1922" class="LineNr">1922 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1923" class="LineNr">1923 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> -<span id="L1924" class="LineNr">1924 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> -<span id="L1925" class="LineNr">1925 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1926" class="LineNr">1926 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 -<span id="L1927" class="LineNr">1927 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1928" class="LineNr">1928 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1929" class="LineNr">1929 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> -<span id="L1930" class="LineNr">1930 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1931" class="LineNr">1931 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1868'>test-maybe-get</a>/2"</span>/imm32 -<span id="L1932" class="LineNr">1932 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L1933" class="LineNr">1933 </span> 50/push-eax -<span id="L1934" class="LineNr">1934 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1935" class="LineNr">1935 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 -<span id="L1936" class="LineNr">1936 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1937" class="LineNr">1937 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1938" class="LineNr">1938 </span><span class="Constant">$test-maybe-get:failure</span>: -<span id="L1939" class="LineNr">1939 </span> <span class="subxH1Comment"># - search for a new key</span> -<span id="L1940" class="LineNr">1940 </span> <span class="subxComment"># eax = maybe-get(table, "data", 12 bytes/row)</span> +<span id="L1910" class="LineNr">1910 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1911" class="LineNr">1911 </span> <span class="subxS1Comment"># . if (eax != false) return eax = curr+8</span> +<span id="L1912" class="LineNr">1912 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1913" class="LineNr">1913 </span> 74/jump-if-= $get-slice-or-stop:mismatch/disp8 +<span id="L1914" class="LineNr">1914 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <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 ecx+8 to eax</span> +<span id="L1915" class="LineNr">1915 </span> eb/jump $get-slice-or-stop:end/disp8 +<span id="L1916" class="LineNr">1916 </span><span class="Constant">$get-slice-or-stop:mismatch</span>: +<span id="L1917" class="LineNr">1917 </span> <span class="subxComment"># curr += row-size</span> +<span id="L1918" class="LineNr">1918 </span> 03/add 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"># add *(ebp+16) to ecx</span> +<span id="L1919" class="LineNr">1919 </span> <span class="subxComment"># loop</span> +<span id="L1920" class="LineNr">1920 </span> eb/jump $get-slice-or-stop:search-loop/disp8 +<span id="L1921" class="LineNr">1921 </span><span class="Constant">$get-slice-or-stop:end</span>: +<span id="L1922" class="LineNr">1922 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1923" class="LineNr">1923 </span> 5e/pop-to-esi +<span id="L1924" class="LineNr">1924 </span> 5a/pop-to-edx +<span id="L1925" class="LineNr">1925 </span> 59/pop-to-ecx +<span id="L1926" class="LineNr">1926 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1927" class="LineNr">1927 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1928" class="LineNr">1928 </span> 5d/pop-to-ebp +<span id="L1929" class="LineNr">1929 </span> c3/return +<span id="L1930" class="LineNr">1930 </span> +<span id="L1931" class="LineNr">1931 </span><span class="Constant">$get-slice-or-stop:<a href='110stop.subx.html#L92'>stop</a></span>: +<span id="L1932" class="LineNr">1932 </span> <span class="subxS1Comment"># . write-buffered(err, abort-message-prefix)</span> +<span id="L1933" class="LineNr">1933 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1934" class="LineNr">1934 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> +<span id="L1935" class="LineNr">1935 </span> ff 6/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="L1936" class="LineNr">1936 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1937" class="LineNr">1937 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1938" class="LineNr">1938 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1939" class="LineNr">1939 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1940" class="LineNr">1940 </span> <span class="subxS1Comment"># . write-buffered(err, error)</span> <span id="L1941" class="LineNr">1941 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1942" class="LineNr">1942 </span> 68/push 0xc/imm32/row-size -<span id="L1943" class="LineNr">1943 </span> 68/push <span class="Constant">"data"</span>/imm32 -<span id="L1944" class="LineNr">1944 </span> 51/push-ecx -<span id="L1945" class="LineNr">1945 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1946" class="LineNr">1946 </span> e8/call <a href='131table.subx.html#L1800'>maybe-get</a>/disp32 -<span id="L1947" class="LineNr">1947 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1948" class="LineNr">1948 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1949" class="LineNr">1949 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L1950" class="LineNr">1950 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1951" class="LineNr">1951 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1868'>test-maybe-get</a>/3"</span>/imm32 -<span id="L1952" class="LineNr">1952 </span> 68/push 0/imm32 -<span id="L1953" class="LineNr">1953 </span> 50/push-eax -<span id="L1954" class="LineNr">1954 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1955" class="LineNr">1955 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1956" class="LineNr">1956 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1957" class="LineNr">1957 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1958" class="LineNr">1958 </span><span class="Constant">$test-maybe-get:end</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"># if no row is found, return null (0)</span> -<span id="L1965" class="LineNr">1965 </span><span class="subxFunction">maybe-get-slice</span>: <span class="subxComment"># table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int -> result/eax: (addr T)</span> -<span id="L1966" class="LineNr">1966 </span> <span class="subxComment"># pseudocode:</span> -<span id="L1967" class="LineNr">1967 </span> <span class="subxComment"># curr = table->data</span> -<span id="L1968" class="LineNr">1968 </span> <span class="subxComment"># max = &table->data[table->write]</span> -<span id="L1969" class="LineNr">1969 </span> <span class="subxComment"># while curr < max</span> -<span id="L1970" class="LineNr">1970 </span> <span class="subxComment"># var c: (addr array byte) = lookup(*curr)</span> -<span id="L1971" class="LineNr">1971 </span> <span class="subxComment"># if slice-equal?(key, c)</span> -<span id="L1972" class="LineNr">1972 </span> <span class="subxComment"># return curr+8</span> -<span id="L1973" class="LineNr">1973 </span> <span class="subxComment"># curr += row-size</span> -<span id="L1974" class="LineNr">1974 </span> <span class="subxComment"># return 0</span> -<span id="L1975" class="LineNr">1975 </span> <span class="subxComment">#</span> -<span id="L1976" class="LineNr">1976 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1977" class="LineNr">1977 </span> 55/push-ebp -<span id="L1978" class="LineNr">1978 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1979" class="LineNr">1979 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1980" class="LineNr">1980 </span> 51/push-ecx -<span id="L1981" class="LineNr">1981 </span> 52/push-edx -<span id="L1982" class="LineNr">1982 </span> 56/push-esi -<span id="L1983" class="LineNr">1983 </span> <span class="subxComment"># esi = table</span> -<span id="L1984" class="LineNr">1984 </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="L1985" class="LineNr">1985 </span> <span class="subxComment"># var curr/ecx: (addr handle array byte) = table->data</span> -<span id="L1986" class="LineNr">1986 </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="L1987" class="LineNr">1987 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> -<span id="L1988" class="LineNr">1988 </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="L1989" class="LineNr">1989 </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="L1990" class="LineNr">1990 </span><span class="Constant">$maybe-get-slice:search-loop</span>: -<span id="L1991" class="LineNr">1991 </span> <span class="subxComment"># if (curr >= max) return null</span> -<span id="L1992" class="LineNr">1992 </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="L1993" class="LineNr">1993 </span> 73/jump-if-addr>= $maybe-get-slice:null/disp8 -<span id="L1994" class="LineNr">1994 </span> <span class="subxComment"># var c/eax: (addr array byte) = lookup(*curr)</span> -<span id="L1995" class="LineNr">1995 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1996" class="LineNr">1996 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L1997" class="LineNr">1997 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L1998" class="LineNr">1998 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1999" class="LineNr">1999 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 -<span id="L2000" class="LineNr">2000 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2001" class="LineNr">2001 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2002" class="LineNr">2002 </span> <span class="subxComment"># if (slice-equal?(key, c)) return curr+4</span> -<span id="L2003" class="LineNr">2003 </span> <span class="subxS1Comment"># . eax = slice-equal?(key, c)</span> -<span id="L2004" class="LineNr">2004 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2005" class="LineNr">2005 </span> 50/push-eax -<span id="L2006" class="LineNr">2006 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2007" class="LineNr">2007 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2008" class="LineNr">2008 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</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="subxS1Comment"># . if (eax != false) return eax = curr+8</span> -<span id="L2012" class="LineNr">2012 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2013" class="LineNr">2013 </span> 74/jump-if-= $maybe-get-slice:mismatch/disp8 -<span id="L2014" class="LineNr">2014 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <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 ecx+8 to eax</span> -<span id="L2015" class="LineNr">2015 </span> eb/jump $maybe-get-slice:end/disp8 -<span id="L2016" class="LineNr">2016 </span><span class="Constant">$maybe-get-slice:mismatch</span>: -<span id="L2017" class="LineNr">2017 </span> <span class="subxComment"># curr += row-size</span> -<span id="L2018" class="LineNr">2018 </span> 03/add 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"># add *(ebp+16) to ecx</span> -<span id="L2019" class="LineNr">2019 </span> <span class="subxComment"># loop</span> -<span id="L2020" class="LineNr">2020 </span> eb/jump $maybe-get-slice:search-loop/disp8 -<span id="L2021" class="LineNr">2021 </span><span class="Constant">$maybe-get-slice:null</span>: -<span id="L2022" class="LineNr">2022 </span> b8/copy-to-eax 0/imm32 -<span id="L2023" class="LineNr">2023 </span><span class="Constant">$maybe-get-slice:end</span>: -<span id="L2024" class="LineNr">2024 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L2025" class="LineNr">2025 </span> 5e/pop-to-esi -<span id="L2026" class="LineNr">2026 </span> 5a/pop-to-edx -<span id="L2027" class="LineNr">2027 </span> 59/pop-to-ecx -<span id="L2028" class="LineNr">2028 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2029" class="LineNr">2029 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2030" class="LineNr">2030 </span> 5d/pop-to-ebp -<span id="L2031" class="LineNr">2031 </span> c3/return -<span id="L2032" class="LineNr">2032 </span> -<span id="L2033" class="LineNr">2033 </span><span class="subxTest">test-maybe-get-slice</span>: -<span id="L2034" class="LineNr">2034 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2035" class="LineNr">2035 </span> 55/push-ebp -<span id="L2036" class="LineNr">2036 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2037" class="LineNr">2037 </span> <span class="subxH1Comment"># - setup: create a table with one row</span> -<span id="L2038" class="LineNr">2038 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 24) # 2 rows * 12 bytes/row</span> -<span id="L2039" class="LineNr">2039 </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="L2040" class="LineNr">2040 </span> 68/push 0x18/imm32/size -<span id="L2041" class="LineNr">2041 </span> 68/push 0/imm32/read -<span id="L2042" class="LineNr">2042 </span> 68/push 0/imm32/write -<span id="L2043" class="LineNr">2043 </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="L2044" class="LineNr">2044 </span> <span class="subxComment"># insert(table, "code", 12 bytes/row, Heap)</span> -<span id="L2045" class="LineNr">2045 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2046" class="LineNr">2046 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L2047" class="LineNr">2047 </span> 68/push 0xc/imm32/row-size -<span id="L2048" class="LineNr">2048 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L2049" class="LineNr">2049 </span> 51/push-ecx -<span id="L2050" class="LineNr">2050 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2051" class="LineNr">2051 </span> e8/call <a href='131table.subx.html#L421'>get-or-insert</a>/disp32 -<span id="L2052" class="LineNr">2052 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2053" class="LineNr">2053 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2054" class="LineNr">2054 </span><span class="Constant">$test-maybe-get-slice:success</span>: -<span id="L2055" class="LineNr">2055 </span> <span class="subxH1Comment"># - check for the same key, verify that it was reused</span> -<span id="L2056" class="LineNr">2056 </span> <span class="subxComment"># (eax..edx) = "code"</span> -<span id="L2057" class="LineNr">2057 </span> b8/copy-to-eax <span class="Constant">"code"</span>/imm32 -<span id="L2058" class="LineNr">2058 </span> 8b/copy 0/mod/indirect 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"># copy *eax to edx</span> -<span id="L2059" class="LineNr">2059 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+edx+4 to edx</span> -<span id="L2060" class="LineNr">2060 </span> 05/add-to-eax 4/imm32 -<span id="L2061" class="LineNr">2061 </span> <span class="subxComment"># var slice/edx: slice = {eax, edx}</span> -<span id="L2062" class="LineNr">2062 </span> 52/push-edx -<span id="L2063" class="LineNr">2063 </span> 50/push-eax -<span id="L2064" class="LineNr">2064 </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="L2065" class="LineNr">2065 </span> <span class="subxComment"># eax = maybe-get-slice(table, "code" slice, 12 bytes/row)</span> -<span id="L2066" class="LineNr">2066 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2067" class="LineNr">2067 </span> 68/push 0xc/imm32/row-size -<span id="L2068" class="LineNr">2068 </span> 52/push-edx -<span id="L2069" class="LineNr">2069 </span> 51/push-ecx -<span id="L2070" class="LineNr">2070 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2071" class="LineNr">2071 </span> e8/call <a href='131table.subx.html#L1965'>maybe-get-slice</a>/disp32 -<span id="L2072" class="LineNr">2072 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2073" class="LineNr">2073 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2074" class="LineNr">2074 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg)</span> -<span id="L2075" class="LineNr">2075 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> +<span id="L1942" class="LineNr">1942 </span> 68/push <span class="Constant">": <a href='131table.subx.html#L1862'>get-slice-or-stop</a>: key not found: "</span>/imm32 +<span id="L1943" class="LineNr">1943 </span> ff 6/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="L1944" class="LineNr">1944 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1945" class="LineNr">1945 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1946" class="LineNr">1946 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1947" class="LineNr">1947 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1948" class="LineNr">1948 </span> <span class="subxS1Comment"># . write-slice-buffered(err, key)</span> +<span id="L1949" class="LineNr">1949 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1950" class="LineNr">1950 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1951" class="LineNr">1951 </span> ff 6/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="L1952" class="LineNr">1952 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1953" class="LineNr">1953 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L1954" class="LineNr">1954 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1955" class="LineNr">1955 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1956" class="LineNr">1956 </span> <span class="subxS1Comment"># . write-buffered(err, "\n")</span> +<span id="L1957" class="LineNr">1957 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1958" class="LineNr">1958 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L1959" class="LineNr">1959 </span> ff 6/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="L1960" class="LineNr">1960 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1961" class="LineNr">1961 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1962" class="LineNr">1962 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1963" class="LineNr">1963 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1964" class="LineNr">1964 </span> <span class="subxS1Comment"># . stop(ed, 1)</span> +<span id="L1965" class="LineNr">1965 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1966" class="LineNr">1966 </span> 68/push 1/imm32 +<span id="L1967" class="LineNr">1967 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+28)</span> +<span id="L1968" class="LineNr">1968 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1969" class="LineNr">1969 </span> e8/call <a href='110stop.subx.html#L92'>stop</a>/disp32 +<span id="L1970" class="LineNr">1970 </span> <span class="subxComment"># never gets here</span> +<span id="L1971" class="LineNr">1971 </span><span class="Constant">$get-slice-or-stop:terminus</span>: +<span id="L1972" class="LineNr">1972 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1973" class="LineNr">1973 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1974" class="LineNr">1974 </span> <span class="subxComment"># syscall_exit(1)</span> +<span id="L1975" class="LineNr">1975 </span> bb/copy-to-ebx 1/imm32 +<span id="L1976" class="LineNr">1976 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L1977" class="LineNr">1977 </span> +<span id="L1978" class="LineNr">1978 </span><span class="subxTest">test-get-slice-or-stop</span>: +<span id="L1979" class="LineNr">1979 </span> <span class="subxComment"># This test uses exit-descriptors. Use ebp for setting up local variables.</span> +<span id="L1980" class="LineNr">1980 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1981" class="LineNr">1981 </span> 55/push-ebp +<span id="L1982" class="LineNr">1982 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1983" class="LineNr">1983 </span> <span class="subxComment"># setup</span> +<span id="L1984" class="LineNr">1984 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> +<span id="L1985" class="LineNr">1985 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1986" class="LineNr">1986 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 +<span id="L1987" class="LineNr">1987 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1988" class="LineNr">1988 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1989" class="LineNr">1989 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1990" class="LineNr">1990 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1991" class="LineNr">1991 </span> <span class="subxS1Comment"># . clear-stream($_test-error-buffered-file->buffer)</span> +<span id="L1992" class="LineNr">1992 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1993" class="LineNr">1993 </span> 68/push $_test-error-buffered-file->buffer/imm32 +<span id="L1994" class="LineNr">1994 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1995" class="LineNr">1995 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1996" class="LineNr">1996 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1997" class="LineNr">1997 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1998" class="LineNr">1998 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 24) # 2 rows * 12 bytes/row</span> +<span id="L1999" class="LineNr">1999 </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="L2000" class="LineNr">2000 </span> 68/push 0x18/imm32/size +<span id="L2001" class="LineNr">2001 </span> 68/push 0/imm32/read +<span id="L2002" class="LineNr">2002 </span> 68/push 0/imm32/write +<span id="L2003" class="LineNr">2003 </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="L2004" class="LineNr">2004 </span> <span class="subxComment"># var ed/edx: exit-descriptor</span> +<span id="L2005" class="LineNr">2005 </span> 68/push 0/imm32 +<span id="L2006" class="LineNr">2006 </span> 68/push 0/imm32 +<span id="L2007" class="LineNr">2007 </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="L2008" class="LineNr">2008 </span> <span class="subxComment"># var slice/ebx: slice = "code"</span> +<span id="L2009" class="LineNr">2009 </span> <span class="subxS1Comment"># . (eax..ebx) = "code"</span> +<span id="L2010" class="LineNr">2010 </span> b8/copy-to-eax <span class="Constant">"code"</span>/imm32 +<span id="L2011" class="LineNr">2011 </span> 8b/copy 0/mod/indirect 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"># copy *eax to ebx</span> +<span id="L2012" class="LineNr">2012 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 3/index/ebx <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ebx+4 to ebx</span> +<span id="L2013" class="LineNr">2013 </span> 05/add-to-eax 4/imm32 +<span id="L2014" class="LineNr">2014 </span> <span class="subxS1Comment"># . ebx = {eax, ebx}</span> +<span id="L2015" class="LineNr">2015 </span> 53/push-ebx +<span id="L2016" class="LineNr">2016 </span> 50/push-eax +<span id="L2017" class="LineNr">2017 </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="L2018" class="LineNr">2018 </span> <span class="subxComment"># size 'ed' for the calls to 'get-or-stop' (define no locals past this point)</span> +<span id="L2019" class="LineNr">2019 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 24)</span> +<span id="L2020" class="LineNr">2020 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2021" class="LineNr">2021 </span> 68/push 0x18/imm32/nbytes-of-args-for-get-or-stop +<span id="L2022" class="LineNr">2022 </span> 52/push-edx +<span id="L2023" class="LineNr">2023 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2024" class="LineNr">2024 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L2025" class="LineNr">2025 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2026" class="LineNr">2026 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2027" class="LineNr">2027 </span> <span class="subxComment"># insert(table, "code", 12 bytes/row, Heap)</span> +<span id="L2028" class="LineNr">2028 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2029" class="LineNr">2029 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L2030" class="LineNr">2030 </span> 68/push 0xc/imm32/row-size +<span id="L2031" class="LineNr">2031 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L2032" class="LineNr">2032 </span> 51/push-ecx +<span id="L2033" class="LineNr">2033 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2034" class="LineNr">2034 </span> e8/call <a href='131table.subx.html#L421'>get-or-insert</a>/disp32 +<span id="L2035" class="LineNr">2035 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2036" class="LineNr">2036 </span> 81 0/subop/add 3/mod/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="L2037" class="LineNr">2037 </span><span class="Constant">$test-get-slice-or-stop:success</span>: +<span id="L2038" class="LineNr">2038 </span> <span class="subxComment"># eax = get-slice-or-stop(table, slice, row-size=12, msg, _test-error-buffered-file, ed)</span> +<span id="L2039" class="LineNr">2039 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2040" class="LineNr">2040 </span> 52/push-edx/ed +<span id="L2041" class="LineNr">2041 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 +<span id="L2042" class="LineNr">2042 </span> 68/push <span class="Constant">"foo"</span>/imm32/abort-prefix +<span id="L2043" class="LineNr">2043 </span> 68/push 0xc/imm32/row-size +<span id="L2044" class="LineNr">2044 </span> 53/push-ebx/slice +<span id="L2045" class="LineNr">2045 </span> 51/push-ecx +<span id="L2046" class="LineNr">2046 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2047" class="LineNr">2047 </span> e8/call <a href='131table.subx.html#L1862'>get-slice-or-stop</a>/disp32 +<span id="L2048" class="LineNr">2048 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> +<span id="L2049" class="LineNr">2049 </span> <span class="subxComment"># restore register args, discard others</span> +<span id="L2050" class="LineNr">2050 </span> 59/pop-to-ecx +<span id="L2051" class="LineNr">2051 </span> 5b/pop-to-ebx +<span id="L2052" class="LineNr">2052 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2053" class="LineNr">2053 </span> 5a/pop-to-edx +<span id="L2054" class="LineNr">2054 </span><span class="Constant">$test-get-slice-or-stop:success-assertion</span>: +<span id="L2055" class="LineNr">2055 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg) # first row's value slot returned</span> +<span id="L2056" class="LineNr">2056 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> +<span id="L2057" class="LineNr">2057 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2058" class="LineNr">2058 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1978'>test-get-slice-or-stop</a>/0"</span>/imm32 +<span id="L2059" class="LineNr">2059 </span> 68/push 0x14/imm32 +<span id="L2060" class="LineNr">2060 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> +<span id="L2061" class="LineNr">2061 </span> 50/push-eax +<span id="L2062" class="LineNr">2062 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2063" class="LineNr">2063 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2064" class="LineNr">2064 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2065" class="LineNr">2065 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2066" class="LineNr">2066 </span><span class="Constant">$test-get-slice-or-stop:failure</span>: +<span id="L2067" class="LineNr">2067 </span> <span class="subxComment"># slice = "segment2"</span> +<span id="L2068" class="LineNr">2068 </span> <span class="subxS1Comment"># . *ebx = "segment2"->data</span> +<span id="L2069" class="LineNr">2069 </span> b8/copy-to-eax <span class="Constant">"segment2"</span>/imm32 +<span id="L2070" class="LineNr">2070 </span> 05/add-to-eax 4/imm32 +<span id="L2071" class="LineNr">2071 </span> 89/copy 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ebx</span> +<span id="L2072" class="LineNr">2072 </span> <span class="subxS1Comment"># . *(ebx+4) = "segment2"->data + len("segment2")</span> +<span id="L2073" class="LineNr">2073 </span> 05/add-to-eax 8/imm32/strlen +<span id="L2074" class="LineNr">2074 </span> 89/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 eax to *(ebx+4)</span> +<span id="L2075" class="LineNr">2075 </span> <span class="subxComment"># eax = get-slice-or-stop(table, slice, row-size=12, msg, _test-error-buffered-file, ed)</span> <span id="L2076" class="LineNr">2076 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2077" class="LineNr">2077 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L2033'>test-maybe-get-slice</a>/0"</span>/imm32 -<span id="L2078" class="LineNr">2078 </span> 68/push 0x14/imm32 -<span id="L2079" class="LineNr">2079 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> -<span id="L2080" class="LineNr">2080 </span> 50/push-eax -<span id="L2081" class="LineNr">2081 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2082" class="LineNr">2082 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2083" class="LineNr">2083 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2084" class="LineNr">2084 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2085" class="LineNr">2085 </span> <span class="subxComment"># no new row inserted</span> -<span id="L2086" class="LineNr">2086 </span> <span class="subxS1Comment"># . check-ints-equal(table->write, row-size = 12, msg)</span> -<span id="L2087" class="LineNr">2087 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2088" class="LineNr">2088 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L2033'>test-maybe-get-slice</a>/1"</span>/imm32 -<span id="L2089" class="LineNr">2089 </span> 68/push 0xc/imm32/row-size -<span id="L2090" class="LineNr">2090 </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="L2091" class="LineNr">2091 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2092" class="LineNr">2092 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2093" class="LineNr">2093 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2094" class="LineNr">2094 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2095" class="LineNr">2095 </span> <span class="subxComment"># var curr-addr/eax: (addr array byte) = lookup(table->data)</span> -<span id="L2096" class="LineNr">2096 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2097" class="LineNr">2097 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> -<span id="L2098" class="LineNr">2098 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> +<span id="L2077" class="LineNr">2077 </span> 52/push-edx/ed +<span id="L2078" class="LineNr">2078 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 +<span id="L2079" class="LineNr">2079 </span> 68/push <span class="Constant">"foo"</span>/imm32/abort-prefix +<span id="L2080" class="LineNr">2080 </span> 68/push 0xc/imm32/row-size +<span id="L2081" class="LineNr">2081 </span> 53/push-ebx/slice +<span id="L2082" class="LineNr">2082 </span> 51/push-ecx +<span id="L2083" class="LineNr">2083 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2084" class="LineNr">2084 </span> e8/call <a href='131table.subx.html#L1862'>get-slice-or-stop</a>/disp32 +<span id="L2085" class="LineNr">2085 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> +<span id="L2086" class="LineNr">2086 </span> <span class="subxComment"># restore register args, discard others</span> +<span id="L2087" class="LineNr">2087 </span> 59/pop-to-ecx +<span id="L2088" class="LineNr">2088 </span> 5b/pop-to-ebx +<span id="L2089" class="LineNr">2089 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2090" class="LineNr">2090 </span> 5a/pop-to-edx +<span id="L2091" class="LineNr">2091 </span><span class="Constant">$test-get-slice-or-stop:failure-assertion</span>: +<span id="L2092" class="LineNr">2092 </span> <span class="subxComment"># check that get-or-stop tried to call stop(1)</span> +<span id="L2093" class="LineNr">2093 </span> <span class="subxS1Comment"># . check-ints-equal(ed->value, 2, msg)</span> +<span id="L2094" class="LineNr">2094 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2095" class="LineNr">2095 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L1752'>test-get-or-stop</a>/1"</span>/imm32 +<span id="L2096" class="LineNr">2096 </span> 68/push 2/imm32 +<span id="L2097" class="LineNr">2097 </span> <span class="subxS2Comment"># . . push ed->value</span> +<span id="L2098" class="LineNr">2098 </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="L2099" class="LineNr">2099 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2100" class="LineNr">2100 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L2100" class="LineNr">2100 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L2101" class="LineNr">2101 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2102" class="LineNr">2102 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2103" class="LineNr">2103 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> -<span id="L2104" class="LineNr">2104 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2105" class="LineNr">2105 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L2033'>test-maybe-get-slice</a>/2"</span>/imm32 -<span id="L2106" class="LineNr">2106 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L2107" class="LineNr">2107 </span> 50/push-eax -<span id="L2108" class="LineNr">2108 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2109" class="LineNr">2109 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 -<span id="L2110" class="LineNr">2110 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2111" class="LineNr">2111 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2112" class="LineNr">2112 </span><span class="Constant">$test-maybe-get-slice:failure</span>: -<span id="L2113" class="LineNr">2113 </span> <span class="subxH1Comment"># - search for a new key</span> -<span id="L2114" class="LineNr">2114 </span> <span class="subxComment"># (eax..edx) = "data"</span> -<span id="L2115" class="LineNr">2115 </span> b8/copy-to-eax <span class="Constant">"data"</span>/imm32 -<span id="L2116" class="LineNr">2116 </span> 8b/copy 0/mod/indirect 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"># copy *eax to edx</span> -<span id="L2117" class="LineNr">2117 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+edx+4 to edx</span> -<span id="L2118" class="LineNr">2118 </span> 05/add-to-eax 4/imm32 -<span id="L2119" class="LineNr">2119 </span> <span class="subxComment"># var slice/edx: slice = {eax, edx}</span> -<span id="L2120" class="LineNr">2120 </span> 52/push-edx -<span id="L2121" class="LineNr">2121 </span> 50/push-eax -<span id="L2122" class="LineNr">2122 </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="L2123" class="LineNr">2123 </span> <span class="subxComment"># eax = maybe-get-slice(table, "data" slice, 12 bytes/row)</span> -<span id="L2124" class="LineNr">2124 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2125" class="LineNr">2125 </span> 68/push 0xc/imm32/row-size -<span id="L2126" class="LineNr">2126 </span> 52/push-edx -<span id="L2127" class="LineNr">2127 </span> 51/push-ecx -<span id="L2128" class="LineNr">2128 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2129" class="LineNr">2129 </span> e8/call <a href='131table.subx.html#L1965'>maybe-get-slice</a>/disp32 -<span id="L2130" class="LineNr">2130 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2131" class="LineNr">2131 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2132" class="LineNr">2132 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L2133" class="LineNr">2133 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2134" class="LineNr">2134 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L2033'>test-maybe-get-slice</a>/3"</span>/imm32 -<span id="L2135" class="LineNr">2135 </span> 68/push 0/imm32 -<span id="L2136" class="LineNr">2136 </span> 50/push-eax -<span id="L2137" class="LineNr">2137 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2138" class="LineNr">2138 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2139" class="LineNr">2139 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2140" class="LineNr">2140 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2141" class="LineNr">2141 </span><span class="Constant">$test-maybe-get-slice:end</span>: -<span id="L2142" class="LineNr">2142 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2143" class="LineNr">2143 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2144" class="LineNr">2144 </span> 5d/pop-to-ebp -<span id="L2145" class="LineNr">2145 </span> c3/return -<span id="L2146" class="LineNr">2146 </span> -<span id="L2147" class="LineNr">2147 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L2102" class="LineNr">2102 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2103" class="LineNr">2103 </span><span class="Constant">$test-get-slice-or-stop:end</span>: +<span id="L2104" class="LineNr">2104 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2105" class="LineNr">2105 </span> <span class="subxComment"># don't restore esp from ebp; manually reclaim locals</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> 0x34/imm32 <span class="subxComment"># add to esp</span> +<span id="L2107" class="LineNr">2107 </span> 5d/pop-to-ebp +<span id="L2108" class="LineNr">2108 </span> c3/return +<span id="L2109" class="LineNr">2109 </span> +<span id="L2110" class="LineNr">2110 </span><span class="subxComment"># if no row is found, return null (0)</span> +<span id="L2111" class="LineNr">2111 </span><span class="subxFunction">maybe-get</span>: <span class="subxComment"># table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int -> result/eax: (addr T)</span> +<span id="L2112" class="LineNr">2112 </span> <span class="subxComment"># pseudocode:</span> +<span id="L2113" class="LineNr">2113 </span> <span class="subxComment"># curr = table->data</span> +<span id="L2114" class="LineNr">2114 </span> <span class="subxComment"># max = &table->data[table->write]</span> +<span id="L2115" class="LineNr">2115 </span> <span class="subxComment"># while curr < max</span> +<span id="L2116" class="LineNr">2116 </span> <span class="subxComment"># var c: (addr array byte) = lookup(*curr)</span> +<span id="L2117" class="LineNr">2117 </span> <span class="subxComment"># if string-equal?(key, c)</span> +<span id="L2118" class="LineNr">2118 </span> <span class="subxComment"># return curr+8</span> +<span id="L2119" class="LineNr">2119 </span> <span class="subxComment"># curr += row-size</span> +<span id="L2120" class="LineNr">2120 </span> <span class="subxComment"># return 0</span> +<span id="L2121" class="LineNr">2121 </span> <span class="subxComment">#</span> +<span id="L2122" class="LineNr">2122 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2123" class="LineNr">2123 </span> 55/push-ebp +<span id="L2124" class="LineNr">2124 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2125" class="LineNr">2125 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2126" class="LineNr">2126 </span> 51/push-ecx +<span id="L2127" class="LineNr">2127 </span> 52/push-edx +<span id="L2128" class="LineNr">2128 </span> 56/push-esi +<span id="L2129" class="LineNr">2129 </span> <span class="subxComment"># esi = table</span> +<span id="L2130" class="LineNr">2130 </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="L2131" class="LineNr">2131 </span> <span class="subxComment"># var curr/ecx: (addr handle array byte) = table->data</span> +<span id="L2132" class="LineNr">2132 </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="L2133" class="LineNr">2133 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> +<span id="L2134" class="LineNr">2134 </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="L2135" class="LineNr">2135 </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="L2136" class="LineNr">2136 </span><span class="Constant">$maybe-get:search-loop</span>: +<span id="L2137" class="LineNr">2137 </span> <span class="subxComment"># if (curr >= max) return null</span> +<span id="L2138" class="LineNr">2138 </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="L2139" class="LineNr">2139 </span> 73/jump-if-addr>= $maybe-get:null/disp8 +<span id="L2140" class="LineNr">2140 </span> <span class="subxComment"># var c/eax: (addr array byte) = lookup(*curr)</span> +<span id="L2141" class="LineNr">2141 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2142" class="LineNr">2142 </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="L2143" class="LineNr">2143 </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="L2144" class="LineNr">2144 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2145" class="LineNr">2145 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L2146" class="LineNr">2146 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2147" class="LineNr">2147 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2148" class="LineNr">2148 </span> <span class="subxComment"># if (string-equal?(key, c)) return curr+4</span> +<span id="L2149" class="LineNr">2149 </span> <span class="subxS1Comment"># . eax = string-equal?(key, c)</span> +<span id="L2150" class="LineNr">2150 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2151" class="LineNr">2151 </span> 50/push-eax +<span id="L2152" class="LineNr">2152 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2153" class="LineNr">2153 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2154" class="LineNr">2154 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 +<span id="L2155" class="LineNr">2155 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2156" class="LineNr">2156 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2157" class="LineNr">2157 </span> <span class="subxS1Comment"># . if (eax != false) return eax = curr+8</span> +<span id="L2158" class="LineNr">2158 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2159" class="LineNr">2159 </span> 74/jump-if-= $maybe-get:mismatch/disp8 +<span id="L2160" class="LineNr">2160 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <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 ecx+8 to eax</span> +<span id="L2161" class="LineNr">2161 </span> eb/jump $maybe-get:end/disp8 +<span id="L2162" class="LineNr">2162 </span><span class="Constant">$maybe-get:mismatch</span>: +<span id="L2163" class="LineNr">2163 </span> <span class="subxComment"># curr += row-size</span> +<span id="L2164" class="LineNr">2164 </span> 03/add 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"># add *(ebp+16) to ecx</span> +<span id="L2165" class="LineNr">2165 </span> <span class="subxComment"># loop</span> +<span id="L2166" class="LineNr">2166 </span> eb/jump $maybe-get:search-loop/disp8 +<span id="L2167" class="LineNr">2167 </span><span class="Constant">$maybe-get:null</span>: +<span id="L2168" class="LineNr">2168 </span> b8/copy-to-eax 0/imm32 +<span id="L2169" class="LineNr">2169 </span><span class="Constant">$maybe-get:end</span>: +<span id="L2170" class="LineNr">2170 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2171" class="LineNr">2171 </span> 5e/pop-to-esi +<span id="L2172" class="LineNr">2172 </span> 5a/pop-to-edx +<span id="L2173" class="LineNr">2173 </span> 59/pop-to-ecx +<span id="L2174" class="LineNr">2174 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2175" class="LineNr">2175 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2176" class="LineNr">2176 </span> 5d/pop-to-ebp +<span id="L2177" class="LineNr">2177 </span> c3/return +<span id="L2178" class="LineNr">2178 </span> +<span id="L2179" class="LineNr">2179 </span><span class="subxTest">test-maybe-get</span>: +<span id="L2180" class="LineNr">2180 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2181" class="LineNr">2181 </span> 55/push-ebp +<span id="L2182" class="LineNr">2182 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2183" class="LineNr">2183 </span> <span class="subxH1Comment"># - setup: create a table with one row</span> +<span id="L2184" class="LineNr">2184 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 24) # 2 rows * 12 bytes/row</span> +<span id="L2185" class="LineNr">2185 </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="L2186" class="LineNr">2186 </span> 68/push 0x18/imm32/size +<span id="L2187" class="LineNr">2187 </span> 68/push 0/imm32/read +<span id="L2188" class="LineNr">2188 </span> 68/push 0/imm32/write +<span id="L2189" class="LineNr">2189 </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="L2190" class="LineNr">2190 </span> <span class="subxComment"># eax = get-or-insert(table, "code", 12 bytes/row, Heap)</span> +<span id="L2191" class="LineNr">2191 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2192" class="LineNr">2192 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L2193" class="LineNr">2193 </span> 68/push 0xc/imm32/row-size +<span id="L2194" class="LineNr">2194 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L2195" class="LineNr">2195 </span> 51/push-ecx +<span id="L2196" class="LineNr">2196 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2197" class="LineNr">2197 </span> e8/call <a href='131table.subx.html#L421'>get-or-insert</a>/disp32 +<span id="L2198" class="LineNr">2198 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2199" class="LineNr">2199 </span> 81 0/subop/add 3/mod/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="L2200" class="LineNr">2200 </span><span class="Constant">$test-maybe-get:success</span>: +<span id="L2201" class="LineNr">2201 </span> <span class="subxH1Comment"># - check for the same key, verify that it was reused</span> +<span id="L2202" class="LineNr">2202 </span> <span class="subxComment"># eax = maybe-get(table, "code", 12 bytes/row)</span> +<span id="L2203" class="LineNr">2203 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2204" class="LineNr">2204 </span> 68/push 0xc/imm32/row-size +<span id="L2205" class="LineNr">2205 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L2206" class="LineNr">2206 </span> 51/push-ecx +<span id="L2207" class="LineNr">2207 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2208" class="LineNr">2208 </span> e8/call <a href='131table.subx.html#L2111'>maybe-get</a>/disp32 +<span id="L2209" class="LineNr">2209 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2210" class="LineNr">2210 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2211" class="LineNr">2211 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg)</span> +<span id="L2212" class="LineNr">2212 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> +<span id="L2213" class="LineNr">2213 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2214" class="LineNr">2214 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L2179'>test-maybe-get</a>/0"</span>/imm32 +<span id="L2215" class="LineNr">2215 </span> 68/push 0x14/imm32 +<span id="L2216" class="LineNr">2216 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> +<span id="L2217" class="LineNr">2217 </span> 50/push-eax +<span id="L2218" class="LineNr">2218 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2219" class="LineNr">2219 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2220" class="LineNr">2220 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2221" class="LineNr">2221 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2222" class="LineNr">2222 </span> <span class="subxComment"># no new row inserted</span> +<span id="L2223" class="LineNr">2223 </span> <span class="subxS1Comment"># . check-ints-equal(table->write, row-size = 12, msg)</span> +<span id="L2224" class="LineNr">2224 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2225" class="LineNr">2225 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L2179'>test-maybe-get</a>/1"</span>/imm32 +<span id="L2226" class="LineNr">2226 </span> 68/push 0xc/imm32/row-size +<span id="L2227" class="LineNr">2227 </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="L2228" class="LineNr">2228 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2229" class="LineNr">2229 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2230" class="LineNr">2230 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2231" class="LineNr">2231 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2232" class="LineNr">2232 </span> <span class="subxComment"># var curr-addr/eax: (addr array byte) = lookup(table->data)</span> +<span id="L2233" class="LineNr">2233 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2234" class="LineNr">2234 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> +<span id="L2235" class="LineNr">2235 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> +<span id="L2236" class="LineNr">2236 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2237" class="LineNr">2237 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L2238" class="LineNr">2238 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2239" class="LineNr">2239 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2240" class="LineNr">2240 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> +<span id="L2241" class="LineNr">2241 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2242" class="LineNr">2242 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L2179'>test-maybe-get</a>/2"</span>/imm32 +<span id="L2243" class="LineNr">2243 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L2244" class="LineNr">2244 </span> 50/push-eax +<span id="L2245" class="LineNr">2245 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2246" class="LineNr">2246 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</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> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2249" class="LineNr">2249 </span><span class="Constant">$test-maybe-get:failure</span>: +<span id="L2250" class="LineNr">2250 </span> <span class="subxH1Comment"># - search for a new key</span> +<span id="L2251" class="LineNr">2251 </span> <span class="subxComment"># eax = maybe-get(table, "data", 12 bytes/row)</span> +<span id="L2252" class="LineNr">2252 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2253" class="LineNr">2253 </span> 68/push 0xc/imm32/row-size +<span id="L2254" class="LineNr">2254 </span> 68/push <span class="Constant">"data"</span>/imm32 +<span id="L2255" class="LineNr">2255 </span> 51/push-ecx +<span id="L2256" class="LineNr">2256 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2257" class="LineNr">2257 </span> e8/call <a href='131table.subx.html#L2111'>maybe-get</a>/disp32 +<span id="L2258" class="LineNr">2258 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2259" class="LineNr">2259 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2260" class="LineNr">2260 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L2261" class="LineNr">2261 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2262" class="LineNr">2262 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L2179'>test-maybe-get</a>/3"</span>/imm32 +<span id="L2263" class="LineNr">2263 </span> 68/push 0/imm32 +<span id="L2264" class="LineNr">2264 </span> 50/push-eax +<span id="L2265" class="LineNr">2265 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2266" class="LineNr">2266 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2267" class="LineNr">2267 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2268" class="LineNr">2268 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2269" class="LineNr">2269 </span><span class="Constant">$test-maybe-get:end</span>: +<span id="L2270" class="LineNr">2270 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2271" class="LineNr">2271 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2272" class="LineNr">2272 </span> 5d/pop-to-ebp +<span id="L2273" class="LineNr">2273 </span> c3/return +<span id="L2274" class="LineNr">2274 </span> +<span id="L2275" class="LineNr">2275 </span><span class="subxComment"># if no row is found, return null (0)</span> +<span id="L2276" class="LineNr">2276 </span><span class="subxFunction">maybe-get-slice</span>: <span class="subxComment"># table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int -> result/eax: (addr T)</span> +<span id="L2277" class="LineNr">2277 </span> <span class="subxComment"># pseudocode:</span> +<span id="L2278" class="LineNr">2278 </span> <span class="subxComment"># curr = table->data</span> +<span id="L2279" class="LineNr">2279 </span> <span class="subxComment"># max = &table->data[table->write]</span> +<span id="L2280" class="LineNr">2280 </span> <span class="subxComment"># while curr < max</span> +<span id="L2281" class="LineNr">2281 </span> <span class="subxComment"># var c: (addr array byte) = lookup(*curr)</span> +<span id="L2282" class="LineNr">2282 </span> <span class="subxComment"># if slice-equal?(key, c)</span> +<span id="L2283" class="LineNr">2283 </span> <span class="subxComment"># return curr+8</span> +<span id="L2284" class="LineNr">2284 </span> <span class="subxComment"># curr += row-size</span> +<span id="L2285" class="LineNr">2285 </span> <span class="subxComment"># return 0</span> +<span id="L2286" class="LineNr">2286 </span> <span class="subxComment">#</span> +<span id="L2287" class="LineNr">2287 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2288" class="LineNr">2288 </span> 55/push-ebp +<span id="L2289" class="LineNr">2289 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2290" class="LineNr">2290 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2291" class="LineNr">2291 </span> 51/push-ecx +<span id="L2292" class="LineNr">2292 </span> 52/push-edx +<span id="L2293" class="LineNr">2293 </span> 56/push-esi +<span id="L2294" class="LineNr">2294 </span> <span class="subxComment"># esi = table</span> +<span id="L2295" class="LineNr">2295 </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="L2296" class="LineNr">2296 </span> <span class="subxComment"># var curr/ecx: (addr handle array byte) = table->data</span> +<span id="L2297" class="LineNr">2297 </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="L2298" class="LineNr">2298 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> +<span id="L2299" class="LineNr">2299 </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="L2300" class="LineNr">2300 </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="L2301" class="LineNr">2301 </span><span class="Constant">$maybe-get-slice:search-loop</span>: +<span id="L2302" class="LineNr">2302 </span> <span class="subxComment"># if (curr >= max) return null</span> +<span id="L2303" class="LineNr">2303 </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="L2304" class="LineNr">2304 </span> 73/jump-if-addr>= $maybe-get-slice:null/disp8 +<span id="L2305" class="LineNr">2305 </span> <span class="subxComment"># var c/eax: (addr array byte) = lookup(*curr)</span> +<span id="L2306" class="LineNr">2306 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2307" class="LineNr">2307 </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="L2308" class="LineNr">2308 </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="L2309" class="LineNr">2309 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2310" class="LineNr">2310 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L2311" class="LineNr">2311 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2312" class="LineNr">2312 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2313" class="LineNr">2313 </span> <span class="subxComment"># if (slice-equal?(key, c)) return curr+4</span> +<span id="L2314" class="LineNr">2314 </span> <span class="subxS1Comment"># . eax = slice-equal?(key, c)</span> +<span id="L2315" class="LineNr">2315 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2316" class="LineNr">2316 </span> 50/push-eax +<span id="L2317" class="LineNr">2317 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2318" class="LineNr">2318 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2319" class="LineNr">2319 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2320" class="LineNr">2320 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2321" class="LineNr">2321 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2322" class="LineNr">2322 </span> <span class="subxS1Comment"># . if (eax != false) return eax = curr+8</span> +<span id="L2323" class="LineNr">2323 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2324" class="LineNr">2324 </span> 74/jump-if-= $maybe-get-slice:mismatch/disp8 +<span id="L2325" class="LineNr">2325 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <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 ecx+8 to eax</span> +<span id="L2326" class="LineNr">2326 </span> eb/jump $maybe-get-slice:end/disp8 +<span id="L2327" class="LineNr">2327 </span><span class="Constant">$maybe-get-slice:mismatch</span>: +<span id="L2328" class="LineNr">2328 </span> <span class="subxComment"># curr += row-size</span> +<span id="L2329" class="LineNr">2329 </span> 03/add 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"># add *(ebp+16) to ecx</span> +<span id="L2330" class="LineNr">2330 </span> <span class="subxComment"># loop</span> +<span id="L2331" class="LineNr">2331 </span> eb/jump $maybe-get-slice:search-loop/disp8 +<span id="L2332" class="LineNr">2332 </span><span class="Constant">$maybe-get-slice:null</span>: +<span id="L2333" class="LineNr">2333 </span> b8/copy-to-eax 0/imm32 +<span id="L2334" class="LineNr">2334 </span><span class="Constant">$maybe-get-slice:end</span>: +<span id="L2335" class="LineNr">2335 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2336" class="LineNr">2336 </span> 5e/pop-to-esi +<span id="L2337" class="LineNr">2337 </span> 5a/pop-to-edx +<span id="L2338" class="LineNr">2338 </span> 59/pop-to-ecx +<span id="L2339" class="LineNr">2339 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2340" class="LineNr">2340 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2341" class="LineNr">2341 </span> 5d/pop-to-ebp +<span id="L2342" class="LineNr">2342 </span> c3/return +<span id="L2343" class="LineNr">2343 </span> +<span id="L2344" class="LineNr">2344 </span><span class="subxTest">test-maybe-get-slice</span>: +<span id="L2345" class="LineNr">2345 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2346" class="LineNr">2346 </span> 55/push-ebp +<span id="L2347" class="LineNr">2347 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2348" class="LineNr">2348 </span> <span class="subxH1Comment"># - setup: create a table with one row</span> +<span id="L2349" class="LineNr">2349 </span> <span class="subxComment"># var table/ecx: (stream {string, number} 24) # 2 rows * 12 bytes/row</span> +<span id="L2350" class="LineNr">2350 </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="L2351" class="LineNr">2351 </span> 68/push 0x18/imm32/size +<span id="L2352" class="LineNr">2352 </span> 68/push 0/imm32/read +<span id="L2353" class="LineNr">2353 </span> 68/push 0/imm32/write +<span id="L2354" class="LineNr">2354 </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="L2355" class="LineNr">2355 </span> <span class="subxComment"># insert(table, "code", 12 bytes/row, Heap)</span> +<span id="L2356" class="LineNr">2356 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2357" class="LineNr">2357 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L2358" class="LineNr">2358 </span> 68/push 0xc/imm32/row-size +<span id="L2359" class="LineNr">2359 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L2360" class="LineNr">2360 </span> 51/push-ecx +<span id="L2361" class="LineNr">2361 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2362" class="LineNr">2362 </span> e8/call <a href='131table.subx.html#L421'>get-or-insert</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> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2365" class="LineNr">2365 </span><span class="Constant">$test-maybe-get-slice:success</span>: +<span id="L2366" class="LineNr">2366 </span> <span class="subxH1Comment"># - check for the same key, verify that it was reused</span> +<span id="L2367" class="LineNr">2367 </span> <span class="subxComment"># (eax..edx) = "code"</span> +<span id="L2368" class="LineNr">2368 </span> b8/copy-to-eax <span class="Constant">"code"</span>/imm32 +<span id="L2369" class="LineNr">2369 </span> 8b/copy 0/mod/indirect 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"># copy *eax to edx</span> +<span id="L2370" class="LineNr">2370 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+edx+4 to edx</span> +<span id="L2371" class="LineNr">2371 </span> 05/add-to-eax 4/imm32 +<span id="L2372" class="LineNr">2372 </span> <span class="subxComment"># var slice/edx: slice = {eax, edx}</span> +<span id="L2373" class="LineNr">2373 </span> 52/push-edx +<span id="L2374" class="LineNr">2374 </span> 50/push-eax +<span id="L2375" class="LineNr">2375 </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="L2376" class="LineNr">2376 </span> <span class="subxComment"># eax = maybe-get-slice(table, "code" slice, 12 bytes/row)</span> +<span id="L2377" class="LineNr">2377 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2378" class="LineNr">2378 </span> 68/push 0xc/imm32/row-size +<span id="L2379" class="LineNr">2379 </span> 52/push-edx +<span id="L2380" class="LineNr">2380 </span> 51/push-ecx +<span id="L2381" class="LineNr">2381 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2382" class="LineNr">2382 </span> e8/call <a href='131table.subx.html#L2276'>maybe-get-slice</a>/disp32 +<span id="L2383" class="LineNr">2383 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2384" class="LineNr">2384 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2385" class="LineNr">2385 </span> <span class="subxComment"># check-ints-equal(eax - table->data, 8, msg)</span> +<span id="L2386" class="LineNr">2386 </span> <span class="subxS1Comment"># . check-ints-equal(eax - table, 20, msg)</span> +<span id="L2387" class="LineNr">2387 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2388" class="LineNr">2388 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L2344'>test-maybe-get-slice</a>/0"</span>/imm32 +<span id="L2389" class="LineNr">2389 </span> 68/push 0x14/imm32 +<span id="L2390" class="LineNr">2390 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> +<span id="L2391" class="LineNr">2391 </span> 50/push-eax +<span id="L2392" class="LineNr">2392 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2393" class="LineNr">2393 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2394" class="LineNr">2394 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2395" class="LineNr">2395 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2396" class="LineNr">2396 </span> <span class="subxComment"># no new row inserted</span> +<span id="L2397" class="LineNr">2397 </span> <span class="subxS1Comment"># . check-ints-equal(table->write, row-size = 12, msg)</span> +<span id="L2398" class="LineNr">2398 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2399" class="LineNr">2399 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L2344'>test-maybe-get-slice</a>/1"</span>/imm32 +<span id="L2400" class="LineNr">2400 </span> 68/push 0xc/imm32/row-size +<span id="L2401" class="LineNr">2401 </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="L2402" class="LineNr">2402 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2403" class="LineNr">2403 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2404" class="LineNr">2404 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2405" class="LineNr">2405 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2406" class="LineNr">2406 </span> <span class="subxComment"># var curr-addr/eax: (addr array byte) = lookup(table->data)</span> +<span id="L2407" class="LineNr">2407 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2408" class="LineNr">2408 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> +<span id="L2409" class="LineNr">2409 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> +<span id="L2410" class="LineNr">2410 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2411" class="LineNr">2411 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L2412" class="LineNr">2412 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2413" class="LineNr">2413 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2414" class="LineNr">2414 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> +<span id="L2415" class="LineNr">2415 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2416" class="LineNr">2416 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L2344'>test-maybe-get-slice</a>/2"</span>/imm32 +<span id="L2417" class="LineNr">2417 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L2418" class="LineNr">2418 </span> 50/push-eax +<span id="L2419" class="LineNr">2419 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2420" class="LineNr">2420 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 +<span id="L2421" class="LineNr">2421 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2422" class="LineNr">2422 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2423" class="LineNr">2423 </span><span class="Constant">$test-maybe-get-slice:failure</span>: +<span id="L2424" class="LineNr">2424 </span> <span class="subxH1Comment"># - search for a new key</span> +<span id="L2425" class="LineNr">2425 </span> <span class="subxComment"># (eax..edx) = "data"</span> +<span id="L2426" class="LineNr">2426 </span> b8/copy-to-eax <span class="Constant">"data"</span>/imm32 +<span id="L2427" class="LineNr">2427 </span> 8b/copy 0/mod/indirect 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"># copy *eax to edx</span> +<span id="L2428" class="LineNr">2428 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+edx+4 to edx</span> +<span id="L2429" class="LineNr">2429 </span> 05/add-to-eax 4/imm32 +<span id="L2430" class="LineNr">2430 </span> <span class="subxComment"># var slice/edx: slice = {eax, edx}</span> +<span id="L2431" class="LineNr">2431 </span> 52/push-edx +<span id="L2432" class="LineNr">2432 </span> 50/push-eax +<span id="L2433" class="LineNr">2433 </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="L2434" class="LineNr">2434 </span> <span class="subxComment"># eax = maybe-get-slice(table, "data" slice, 12 bytes/row)</span> +<span id="L2435" class="LineNr">2435 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2436" class="LineNr">2436 </span> 68/push 0xc/imm32/row-size +<span id="L2437" class="LineNr">2437 </span> 52/push-edx +<span id="L2438" class="LineNr">2438 </span> 51/push-ecx +<span id="L2439" class="LineNr">2439 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2440" class="LineNr">2440 </span> e8/call <a href='131table.subx.html#L2276'>maybe-get-slice</a>/disp32 +<span id="L2441" class="LineNr">2441 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2442" class="LineNr">2442 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2443" class="LineNr">2443 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L2444" class="LineNr">2444 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2445" class="LineNr">2445 </span> 68/push <span class="Constant">"F - <a href='131table.subx.html#L2344'>test-maybe-get-slice</a>/3"</span>/imm32 +<span id="L2446" class="LineNr">2446 </span> 68/push 0/imm32 +<span id="L2447" class="LineNr">2447 </span> 50/push-eax +<span id="L2448" class="LineNr">2448 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2449" class="LineNr">2449 </span> e8/call <a href='102test.subx.html#L23'>check-ints-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> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2452" class="LineNr">2452 </span><span class="Constant">$test-maybe-get-slice:end</span>: +<span id="L2453" class="LineNr">2453 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2454" class="LineNr">2454 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2455" class="LineNr">2455 </span> 5d/pop-to-ebp +<span id="L2456" class="LineNr">2456 </span> c3/return +<span id="L2457" class="LineNr">2457 </span> +<span id="L2458" class="LineNr">2458 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/linux/132slurp.subx.html b/html/linux/132slurp.subx.html index d70a0126..3a5e0724 100644 --- a/html/linux/132slurp.subx.html +++ b/html/linux/132slurp.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> @@ -157,7 +157,7 @@ if ('onhashchange' in window) { <span id="L98" class="LineNr"> 98 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L99" class="LineNr"> 99 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L100" class="LineNr">100 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L101" class="LineNr">101 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L101" class="LineNr">101 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L102" class="LineNr">102 </span> bb/copy-to-ebx 1/imm32 <span id="L103" class="LineNr">103 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L104" class="LineNr">104 </span> <span class="subxComment"># never gets here</span> diff --git a/html/linux/133subx-widths.subx.html b/html/linux/133subx-widths.subx.html index 2d687001..e89d3a2c 100644 --- a/html/linux/133subx-widths.subx.html +++ b/html/linux/133subx-widths.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> diff --git a/html/linux/134emit-hex-array.subx.html b/html/linux/134emit-hex-array.subx.html index 80b15734..1cea4d62 100644 --- a/html/linux/134emit-hex-array.subx.html +++ b/html/linux/134emit-hex-array.subx.html @@ -15,14 +15,14 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } +.subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Folded { color: #080808; background-color: #949494; } -.subxTest { color: #5f8700; } --> </style> @@ -150,7 +150,7 @@ if ('onhashchange' in window) { <span id="L90" class="LineNr"> 90 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L91" class="LineNr"> 91 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L92" class="LineNr"> 92 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L93" class="Folded"> 93 </span><span class="Folded">+-- 33 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L93" class="Folded"> 93 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L126" class="LineNr">126 </span> <span class="subxComment"># check-next-stream-line-equal(_test-output-stream, "01 02 03 ", msg)</span> <span id="L127" class="LineNr">127 </span> <span class="subxS2Comment"># . . push args</span> <span id="L128" class="LineNr">128 </span> 68/push <span class="Constant">"F - test-emit-hex-array"</span>/imm32 diff --git a/html/linux/135next-word-or-string.subx.html b/html/linux/135next-word-or-string.subx.html index e48edd68..7670c376 100644 --- a/html/linux/135next-word-or-string.subx.html +++ b/html/linux/135next-word-or-string.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> diff --git a/html/linux/202write-int.subx.html b/html/linux/202write-int.subx.html index 90ab6487..79f1d3cd 100644 --- a/html/linux/202write-int.subx.html +++ b/html/linux/202write-int.subx.html @@ -14,15 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> @@ -105,7 +105,7 @@ if ('onhashchange' in window) { <span id="L45" class="LineNr"> 45 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L46" class="LineNr"> 46 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L47" class="LineNr"> 47 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L48" class="LineNr"> 48 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L48" class="LineNr"> 48 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L49" class="LineNr"> 49 </span> bb/copy-to-ebx 1/imm32 <span id="L50" class="LineNr"> 50 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># never gets here</span> diff --git a/html/linux/203stack.subx.html b/html/linux/203stack.subx.html index 233fa99b..4323aa9d 100644 --- a/html/linux/203stack.subx.html +++ b/html/linux/203stack.subx.html @@ -14,15 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> @@ -218,7 +218,7 @@ if ('onhashchange' in window) { <span id="L158" class="LineNr">158 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</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> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L161" class="LineNr">161 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L161" class="LineNr">161 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L162" class="LineNr">162 </span> bb/copy-to-ebx 1/imm32 <span id="L163" class="LineNr">163 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L164" class="LineNr">164 </span> <span class="subxComment"># never gets here</span> @@ -336,7 +336,7 @@ if ('onhashchange' in window) { <span id="L276" class="LineNr">276 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</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="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L279" class="LineNr">279 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L280" class="LineNr">280 </span> bb/copy-to-ebx 1/imm32 <span id="L281" class="LineNr">281 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L282" class="LineNr">282 </span> <span class="subxComment"># never gets here</span> @@ -437,7 +437,7 @@ if ('onhashchange' in window) { <span id="L377" class="LineNr">377 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</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> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L380" class="LineNr">380 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L380" class="LineNr">380 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L381" class="LineNr">381 </span> bb/copy-to-ebx 1/imm32 <span id="L382" class="LineNr">382 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L383" class="LineNr">383 </span> <span class="subxComment"># never gets here</span> diff --git a/html/linux/301array-equal.subx.html b/html/linux/301array-equal.subx.html index e8efde5b..db4a4652 100644 --- a/html/linux/301array-equal.subx.html +++ b/html/linux/301array-equal.subx.html @@ -14,15 +14,15 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } -.LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } .subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } -.Constant { color: #008787; } +.LineNr { } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxMinorFunction { color: #875f5f; } .subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } --> </style> diff --git a/html/linux/302stack_allocate.subx.html b/html/linux/302stack_allocate.subx.html index f3eac06d..63636695 100644 --- a/html/linux/302stack_allocate.subx.html +++ b/html/linux/302stack_allocate.subx.html @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.SpecialChar { color: #d70000; } .LineNr { } .subxFunction { color: #af5f00; text-decoration: underline; } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } .CommentedCode { color: #8a8a8a; } --> diff --git a/html/linux/303kernel-string.subx.html b/html/linux/303kernel-string.subx.html index 3992f3f2..5abccb46 100644 --- a/html/linux/303kernel-string.subx.html +++ b/html/linux/303kernel-string.subx.html @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .LineNr { } .subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } --> </style> diff --git a/html/linux/304screen.subx.html b/html/linux/304screen.subx.html index 0197f9a3..a97057cd 100644 --- a/html/linux/304screen.subx.html +++ b/html/linux/304screen.subx.html @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .LineNr { } +.subxMinorFunction { color: #875f5f; } .subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } -.subxMinorFunction { color: #875f5f; } .CommentedCode { color: #8a8a8a; } --> </style> @@ -216,8 +216,8 @@ if ('onhashchange' in window) { <span id="L157" class="LineNr">157 </span> 5d/pop-to-ebp <span id="L158" class="LineNr">158 </span> c3/return <span id="L159" class="LineNr">159 </span> -<span id="L160" class="LineNr">160 </span><span class="subxComment"># print a grapheme in utf-8 (only up to 4 bytes so far)</span> -<span id="L161" class="LineNr">161 </span><span class="subxFunction">print-grapheme-to-real-screen</span>: <span class="subxComment"># c: grapheme</span> +<span id="L160" class="LineNr">160 </span><span class="subxComment"># print a code-point-utf8 in utf-8 (only up to 4 bytes so far)</span> +<span id="L161" class="LineNr">161 </span><span class="subxFunction">print-code-point-utf8-to-real-screen</span>: <span class="subxComment"># c: code-point-utf8</span> <span id="L162" class="LineNr">162 </span> <span class="subxS1Comment"># . prologue</span> <span id="L163" class="LineNr">163 </span> 55/push-ebp <span id="L164" class="LineNr">164 </span> 89/<- %ebp 4/r32/esp @@ -229,31 +229,31 @@ if ('onhashchange' in window) { <span id="L170" class="LineNr">170 </span> 8a/byte-> *(ebp+8) 0/r32/al <span id="L171" class="LineNr">171 </span> <span class="subxComment"># if (curr == 0) return</span> <span id="L172" class="LineNr">172 </span> 3d/compare-eax-and 0/imm32 -<span id="L173" class="LineNr">173 </span> 74/jump-if-= $print-grapheme-to-real-screen:end/disp8 +<span id="L173" class="LineNr">173 </span> 74/jump-if-= $print-code-point-utf8-to-real-screen:end/disp8 <span id="L174" class="LineNr">174 </span> <span class="subxComment">#</span> <span id="L175" class="LineNr">175 </span> (<a href='304screen.subx.html#L205'>print-byte-to-real-screen</a> %eax) <span id="L176" class="LineNr">176 </span> <span class="subxComment"># curr = *(ebp+9)</span> <span id="L177" class="LineNr">177 </span> 8a/byte-> *(ebp+9) 0/r32/al <span id="L178" class="LineNr">178 </span> <span class="subxComment"># if (curr == 0) return</span> <span id="L179" class="LineNr">179 </span> 3d/compare-eax-and 0/imm32 -<span id="L180" class="LineNr">180 </span> 74/jump-if-= $print-grapheme-to-real-screen:end/disp8 +<span id="L180" class="LineNr">180 </span> 74/jump-if-= $print-code-point-utf8-to-real-screen:end/disp8 <span id="L181" class="LineNr">181 </span> <span class="subxComment">#</span> <span id="L182" class="LineNr">182 </span> (<a href='304screen.subx.html#L205'>print-byte-to-real-screen</a> %eax) <span id="L183" class="LineNr">183 </span> <span class="subxComment"># curr = *(ebp+10)</span> <span id="L184" class="LineNr">184 </span> 8a/byte-> *(ebp+0xa) 0/r32/al <span id="L185" class="LineNr">185 </span> <span class="subxComment"># if (curr == 0) return</span> <span id="L186" class="LineNr">186 </span> 3d/compare-eax-and 0/imm32 -<span id="L187" class="LineNr">187 </span> 74/jump-if-= $print-grapheme-to-real-screen:end/disp8 +<span id="L187" class="LineNr">187 </span> 74/jump-if-= $print-code-point-utf8-to-real-screen:end/disp8 <span id="L188" class="LineNr">188 </span> <span class="subxComment">#</span> <span id="L189" class="LineNr">189 </span> (<a href='304screen.subx.html#L205'>print-byte-to-real-screen</a> %eax) <span id="L190" class="LineNr">190 </span> <span class="subxComment"># curr = *(ebp+11)</span> <span id="L191" class="LineNr">191 </span> 8a/byte-> *(ebp+0xb) 0/r32/al <span id="L192" class="LineNr">192 </span> <span class="subxComment"># if (curr == 0) return</span> <span id="L193" class="LineNr">193 </span> 3d/compare-eax-and 0/imm32 -<span id="L194" class="LineNr">194 </span> 74/jump-if-= $print-grapheme-to-real-screen:end/disp8 +<span id="L194" class="LineNr">194 </span> 74/jump-if-= $print-code-point-utf8-to-real-screen:end/disp8 <span id="L195" class="LineNr">195 </span> <span class="subxComment">#</span> <span id="L196" class="LineNr">196 </span> (<a href='304screen.subx.html#L205'>print-byte-to-real-screen</a> %eax) -<span id="L197" class="LineNr">197 </span><span class="Constant">$print-grapheme-to-real-screen:end</span>: +<span id="L197" class="LineNr">197 </span><span class="Constant">$print-code-point-utf8-to-real-screen:end</span>: <span id="L198" class="LineNr">198 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L199" class="LineNr">199 </span> 58/pop-to-eax <span id="L200" class="LineNr">200 </span> <span class="subxS1Comment"># . epilogue</span> diff --git a/html/linux/305keyboard.subx.html b/html/linux/305keyboard.subx.html index 14a2263f..59e2c611 100644 --- a/html/linux/305keyboard.subx.html +++ b/html/linux/305keyboard.subx.html @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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; } -.subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } .CommentedCode { color: #8a8a8a; } --> </style> @@ -180,15 +180,15 @@ if ('onhashchange' in window) { <span id="L121" class="LineNr">121 </span> <span id="L122" class="LineNr">122 </span><span class="subxComment"># read keys or escapes up to 4 bytes</span> <span id="L123" class="LineNr">123 </span><span class="subxComment">#</span> -<span id="L124" class="LineNr">124 </span><span class="subxComment"># fun fact: terminal escapes and graphemes in utf-8 don't conflict!</span> -<span id="L125" class="LineNr">125 </span><span class="subxH1Comment"># - in graphemes all but the first/lowest byte will have a 1 in the MSB (be</span> +<span id="L124" class="LineNr">124 </span><span class="subxComment"># fun fact: terminal escapes and code-point-utf8s in utf-8 don't conflict!</span> +<span id="L125" class="LineNr">125 </span><span class="subxH1Comment"># - in code-point-utf8s all but the first/lowest byte will have a 1 in the MSB (be</span> <span id="L126" class="LineNr">126 </span><span class="subxComment"># greater than 0x7f)</span> <span id="L127" class="LineNr">127 </span><span class="subxH1Comment"># - in escapes every byte will have a 0 in the MSB</span> <span id="L128" class="LineNr">128 </span><span class="subxComment"># the two categories overlap only when the first/lowest byte is 0x1b or 'esc'</span> <span id="L129" class="LineNr">129 </span><span class="subxComment">#</span> <span id="L130" class="LineNr">130 </span><span class="subxComment"># Only use this in immediate mode; in type (typewriter) mode 4 bytes may get</span> <span id="L131" class="LineNr">131 </span><span class="subxComment"># parts of multiple keys.</span> -<span id="L132" class="LineNr">132 </span><span class="subxFunction">read-key-from-real-keyboard</span>: <span class="subxComment"># -> result/eax: grapheme</span> +<span id="L132" class="LineNr">132 </span><span class="subxFunction">read-key-from-real-keyboard</span>: <span class="subxComment"># -> result/eax: code-point-utf8</span> <span id="L133" class="LineNr">133 </span> <span class="subxS1Comment"># . prologue</span> <span id="L134" class="LineNr">134 </span> 55/push-ebp <span id="L135" class="LineNr">135 </span> 89/<- %ebp 4/r32/esp diff --git a/html/linux/306files.subx.html b/html/linux/306files.subx.html index 1e2caf0f..ecc2f409 100644 --- a/html/linux/306files.subx.html +++ b/html/linux/306files.subx.html @@ -14,11 +14,11 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .LineNr { } .subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } --> </style> diff --git a/html/linux/307size.subx.html b/html/linux/307size.subx.html index a99ae5d3..29088888 100644 --- a/html/linux/307size.subx.html +++ b/html/linux/307size.subx.html @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .LineNr { } .subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } --> </style> diff --git a/html/linux/308allocate-array.subx.html b/html/linux/308allocate-array.subx.html index c668473d..ba7a8ed9 100644 --- a/html/linux/308allocate-array.subx.html +++ b/html/linux/308allocate-array.subx.html @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .LineNr { } .subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } --> </style> diff --git a/html/linux/309stream.subx.html b/html/linux/309stream.subx.html index 908b531f..a600afb6 100644 --- a/html/linux/309stream.subx.html +++ b/html/linux/309stream.subx.html @@ -14,11 +14,11 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .LineNr { } .subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } --> </style> diff --git a/html/linux/310copy-bytes.subx.html b/html/linux/310copy-bytes.subx.html index 0957f1ee..85530b20 100644 --- a/html/linux/310copy-bytes.subx.html +++ b/html/linux/310copy-bytes.subx.html @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .LineNr { } +.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } -.subxTest { color: #5f8700; } --> </style> diff --git a/html/linux/311decimal-int.subx.html b/html/linux/311decimal-int.subx.html index 8909e772..d13ff10b 100644 --- a/html/linux/311decimal-int.subx.html +++ b/html/linux/311decimal-int.subx.html @@ -14,15 +14,15 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.LineNr { } .subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } -.Constant { color: #008787; } +.LineNr { } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxMinorFunction { color: #875f5f; } .subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } --> </style> diff --git a/html/linux/312copy.subx.html b/html/linux/312copy.subx.html index f5f755c4..b593cc56 100644 --- a/html/linux/312copy.subx.html +++ b/html/linux/312copy.subx.html @@ -14,11 +14,11 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.subxFunction { color: #af5f00; text-decoration: underline; } .SpecialChar { color: #d70000; } -.LineNr { } -.subxS1Comment { color: #0000af; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } +.LineNr { } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> </style> diff --git a/html/linux/313index-bounds-check.subx.html b/html/linux/313index-bounds-check.subx.html index a08a70cd..ac863668 100644 --- a/html/linux/313index-bounds-check.subx.html +++ b/html/linux/313index-bounds-check.subx.html @@ -15,10 +15,10 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.LineNr { } .subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } +.LineNr { } .Constant { color: #008787; } +.SpecialChar { color: #d70000; } .subxMinorFunction { color: #875f5f; } .CommentedCode { color: #8a8a8a; } --> diff --git a/html/linux/314divide.subx.html b/html/linux/314divide.subx.html index 82a54a46..db4f5f6c 100644 --- a/html/linux/314divide.subx.html +++ b/html/linux/314divide.subx.html @@ -14,10 +14,10 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.LineNr { } -.subxS1Comment { color: #0000af; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } +.LineNr { } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> </style> diff --git a/html/linux/315slice.subx.html b/html/linux/315slice.subx.html index 9fd1021a..5b972993 100644 --- a/html/linux/315slice.subx.html +++ b/html/linux/315slice.subx.html @@ -15,8 +15,8 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.LineNr { } .subxS1Comment { color: #0000af; } +.LineNr { } .SpecialChar { color: #d70000; } .subxMinorFunction { color: #875f5f; } --> diff --git a/html/linux/400.mu.html b/html/linux/400.mu.html index dd179b98..568e928b 100644 --- a/html/linux/400.mu.html +++ b/html/linux/400.mu.html @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.LineNr { } .muRegEcx { color: #870000; } .muRegEdx { color: #af5f00; } -.LineNr { } .muComment { color: #005faf; } --> </style> @@ -169,13 +169,13 @@ if ('onhashchange' in window) { <span id="L113" class="LineNr">113 </span><span class="muComment">#sig skip-until-close-paren-in-slice curr: (addr byte), end: (addr byte) -> _/eax: (addr byte)</span> <span id="L114" class="LineNr">114 </span><span class="PreProc">sig</span> <a href='125write-stream-data.subx.html#L11'>write-stream-data</a> f: (addr buffered-file), s: (addr stream byte) <span id="L115" class="LineNr">115 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> out: (addr stream byte), n: int -<span id="L116" class="LineNr">116 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a> c: grapheme<span class="PreProc"> -> </span>_/eax: boolean -<span id="L117" class="LineNr">117 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L405'>to-decimal-digit</a> in: grapheme<span class="PreProc"> -> </span>_/eax: int +<span id="L116" class="LineNr">116 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a> c: code-point-utf8<span class="PreProc"> -> </span>_/eax: boolean +<span id="L117" class="LineNr">117 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L405'>to-decimal-digit</a> in: code-point-utf8<span class="PreProc"> -> </span>_/eax: int <span id="L118" class="LineNr">118 </span><span class="muComment"># bad name alert</span> <span id="L119" class="LineNr">119 </span><span class="muComment"># next-word really tokenizes</span> <span id="L120" class="LineNr">120 </span><span class="muComment"># next-raw-word really reads whitespace-separated words</span> <span id="L121" class="LineNr">121 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L11'>next-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># skips '#' comments</span> -<span id="L122" class="LineNr">122 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L306'>next-raw-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># does not skip '#' comments</span> +<span id="L122" class="LineNr">122 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L321'>next-raw-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># does not skip '#' comments</span> <span id="L123" class="LineNr">123 </span><span class="PreProc">sig</span> <a href='128subx-words.subx.html#L8'>has-metadata?</a> word: (addr slice), s: (addr string)<span class="PreProc"> -> </span>_/eax: boolean <span id="L124" class="LineNr">124 </span><span class="PreProc">sig</span> <a href='128subx-words.subx.html#L278'>valid-name?</a> in: (addr slice)<span class="PreProc"> -> </span>_/eax: boolean <span id="L125" class="LineNr">125 </span><span class="PreProc">sig</span> <a href='128subx-words.subx.html#L535'>label?</a> word: (addr slice)<span class="PreProc"> -> </span>_/eax: boolean @@ -215,7 +215,7 @@ if ('onhashchange' in window) { <span id="L159" class="LineNr">159 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> s: (addr array byte) <span id="L160" class="LineNr">160 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L134'>print-slice-to-real-screen</a> s: (addr slice) <span id="L161" class="LineNr">161 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L147'>print-stream-to-real-screen</a> s: (addr stream byte) -<span id="L162" class="LineNr">162 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> c: grapheme +<span id="L162" class="LineNr">162 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> c: code-point-utf8 <span id="L163" class="LineNr">163 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n: int <span id="L164" class="LineNr">164 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L239'>print-int32-hex-bits-to-real-screen</a> n: int, bits: int <span id="L165" class="LineNr">165 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L252'>print-int32-decimal-to-real-screen</a> n: int @@ -230,7 +230,7 @@ if ('onhashchange' in window) { <span id="L174" class="LineNr">174 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L405'>show-cursor-on-real-screen</a> <span id="L175" class="LineNr">175 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> <span id="L176" class="LineNr">176 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> -<span id="L177" class="LineNr">177 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L132'>read-key-from-real-keyboard</a><span class="PreProc"> -> </span>_/eax: grapheme +<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>_/eax: code-point-utf8 <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#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) diff --git a/html/linux/401test.mu.html b/html/linux/401test.mu.html index 52506b22..6e6f444d 100644 --- a/html/linux/401test.mu.html +++ b/html/linux/401test.mu.html @@ -15,12 +15,12 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.Special { color: #ff6060; } --> </style> diff --git a/html/linux/402time.mu.html b/html/linux/402time.mu.html index e632e953..f2988e62 100644 --- a/html/linux/402time.mu.html +++ b/html/linux/402time.mu.html @@ -15,14 +15,14 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } .Special { color: #ff6060; } .LineNr { } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/403unicode.mu.html b/html/linux/403unicode.mu.html index 07ba68b5..a17c0a9d 100644 --- a/html/linux/403unicode.mu.html +++ b/html/linux/403unicode.mu.html @@ -15,18 +15,18 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEbx { color: #5f00ff; } -.muRegEcx { color: #870000; } .muRegEdx { color: #af5f00; } +.Special { color: #ff6060; } .LineNr { } .muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } +.muRegEdi { color: #00af00; } +.muRegEcx { color: #870000; } +.Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muTest { color: #5f8700; } -.Delimiter { color: #c000c0; } .muComment { color: #005faf; } -.Special { color: #ff6060; } --> </style> @@ -64,393 +64,390 @@ if ('onhashchange' in window) { <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Helpers for Unicode.</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># Mu has no characters, only code points and graphemes.</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># Mu has no characters, only code points and code-point-utf8s.</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># Code points are the indivisible atoms of text streams.</span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># <a href="https://en.wikipedia.org/wiki/Code_point">https://en.wikipedia.org/wiki/Code_point</a></span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># Graphemes are the smallest self-contained unit of text.</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># Graphemes may consist of multiple code points.</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># Mu graphemes are always represented in utf-8, and they are required to fit</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># Mu code-point-utf8s are always represented in utf-8, and they are required to fit</span> <span id="L10" class="LineNr"> 10 </span><span class="muComment"># in 4 bytes.</span> <span id="L11" class="LineNr"> 11 </span><span class="muComment">#</span> -<span id="L12" class="LineNr"> 12 </span><span class="muComment"># Mu doesn't currently support combining code points, or graphemes made of</span> +<span id="L12" class="LineNr"> 12 </span><span class="muComment"># Mu doesn't currently support combining code points, or code-point-utf8s made of</span> <span id="L13" class="LineNr"> 13 </span><span class="muComment"># multiple code points. One day we will.</span> -<span id="L14" class="LineNr"> 14 </span><span class="muComment"># We also don't currently support code points that translate into multiple</span> -<span id="L15" class="LineNr"> 15 </span><span class="muComment"># or wide graphemes. (In particular, Tab will never be supported.)</span> +<span id="L14" class="LineNr"> 14 </span><span class="muComment"># On Linux, we also don't currently support code points that translate into</span> +<span id="L15" class="LineNr"> 15 </span><span class="muComment"># multiple or wide code-point-utf8s. (In particular, Tab will never be supported.)</span> <span id="L16" class="LineNr"> 16 </span> <span id="L17" class="LineNr"> 17 </span><span class="muComment"># transliterated from tb_utf8_unicode_to_char in <a href="https://github.com/nsf/termbox">https://github.com/nsf/termbox</a></span> <span id="L18" class="LineNr"> 18 </span><span class="muComment"># <a href="https://wiki.tcl-lang.org/page/UTF%2D8+bit+by+bit">https://wiki.tcl-lang.org/page/UTF%2D8+bit+by+bit</a> explains the algorithm</span> -<span id="L19" class="LineNr"> 19 </span><span class="muComment">#</span> -<span id="L20" class="LineNr"> 20 </span><span class="muComment"># The day we want to support combining characters, this function will need to</span> -<span id="L21" class="LineNr"> 21 </span><span class="muComment"># take multiple code points. Or something.</span> -<span id="L22" class="LineNr"> 22 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L22'>to-grapheme</a></span> in: code-point<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> c/eax: int <span class="Special"><-</span> copy in -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> num-trailers/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> first/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L26" class="LineNr"> 26 </span> $to-grapheme:compute-length: <span class="Delimiter">{</span> -<span id="L27" class="LineNr"> 27 </span> <span class="muComment"># single byte: just return it</span> -<span id="L28" class="LineNr"> 28 </span> compare c, <span class="Constant">0x7f</span> -<span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">{</span> -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">break-if-></span> -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy c -<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">return</span> g -<span id="L33" class="LineNr"> 33 </span> <span class="Delimiter">}</span> -<span id="L34" class="LineNr"> 34 </span> <span class="muComment"># 2 bytes</span> -<span id="L35" class="LineNr"> 35 </span> compare c, <span class="Constant">0x7ff</span> -<span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">{</span> -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">break-if-></span> -<span id="L38" class="LineNr"> 38 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L39" class="LineNr"> 39 </span> first <span class="Special"><-</span> copy <span class="Constant">0xc0</span> -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">break</span> $to-grapheme:compute-length -<span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">}</span> -<span id="L42" class="LineNr"> 42 </span> <span class="muComment"># 3 bytes</span> -<span id="L43" class="LineNr"> 43 </span> compare c, <span class="Constant">0xffff</span> -<span id="L44" class="LineNr"> 44 </span> <span class="Delimiter">{</span> -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">break-if-></span> -<span id="L46" class="LineNr"> 46 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">2</span> -<span id="L47" class="LineNr"> 47 </span> first <span class="Special"><-</span> copy <span class="Constant">0xe0</span> -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">break</span> $to-grapheme:compute-length -<span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">}</span> -<span id="L50" class="LineNr"> 50 </span> <span class="muComment"># 4 bytes</span> -<span id="L51" class="LineNr"> 51 </span> compare c, <span class="Constant">0x1fffff</span> -<span id="L52" class="LineNr"> 52 </span> <span class="Delimiter">{</span> -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">break-if-></span> -<span id="L54" class="LineNr"> 54 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">3</span> -<span id="L55" class="LineNr"> 55 </span> first <span class="Special"><-</span> copy <span class="Constant">0xf0</span> -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">break</span> $to-grapheme:compute-length -<span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">}</span> -<span id="L58" class="LineNr"> 58 </span> <span class="muComment"># more than 4 bytes: unsupported</span> -<span id="L59" class="LineNr"> 59 </span> <span class="muComment"># TODO: print to stderr</span> -<span id="L60" class="LineNr"> 60 </span> compare c, <span class="Constant">0x1fffff</span> -<span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">{</span> -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">break-if-></span> -<span id="L63" class="LineNr"> 63 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"unsupported code point "</span> -<span id="L64" class="LineNr"> 64 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> c -<span id="L65" class="LineNr"> 65 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> exit-status/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L67" class="LineNr"> 67 </span> <a href='000init.subx.html#L18'>syscall_exit</a> -<span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">}</span> -<span id="L69" class="LineNr"> 69 </span> <span class="Delimiter">}</span> -<span id="L70" class="LineNr"> 70 </span> <span class="muComment"># emit trailer bytes, 6 bits from 'in', first two bits '10'</span> -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> result/<span class="muRegEdi">edi</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L72" class="LineNr"> 72 </span> <span class="Delimiter">{</span> -<span id="L73" class="LineNr"> 73 </span> compare num-trailers, <span class="Constant">0</span> -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">break-if-<=</span> -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> tmp/<span class="muRegEsi">esi</span>: int <span class="Special"><-</span> copy c -<span id="L76" class="LineNr"> 76 </span> tmp <span class="Special"><-</span> and <span class="Constant">0x3f</span> -<span id="L77" class="LineNr"> 77 </span> tmp <span class="Special"><-</span> or <span class="Constant">0x80</span> -<span id="L78" class="LineNr"> 78 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> -<span id="L79" class="LineNr"> 79 </span> result <span class="Special"><-</span> or tmp -<span id="L80" class="LineNr"> 80 </span> <span class="muComment"># update loop state</span> -<span id="L81" class="LineNr"> 81 </span> c <span class="Special"><-</span> shift-right <span class="Constant">6</span> -<span id="L82" class="LineNr"> 82 </span> num-trailers <span class="Special"><-</span> decrement -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">loop</span> -<span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">}</span> -<span id="L85" class="LineNr"> 85 </span> <span class="muComment"># emit engine</span> -<span id="L86" class="LineNr"> 86 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> -<span id="L87" class="LineNr"> 87 </span> result <span class="Special"><-</span> or c -<span id="L88" class="LineNr"> 88 </span> result <span class="Special"><-</span> or first -<span id="L89" class="LineNr"> 89 </span> <span class="muComment">#</span> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">return</span> result -<span id="L91" class="LineNr"> 91 </span><span class="Delimiter">}</span> -<span id="L92" class="LineNr"> 92 </span> -<span id="L93" class="LineNr"> 93 </span><span class="muComment"># single-byte code point have identical graphemes</span> -<span id="L94" class="LineNr"> 94 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L94'>test-to-grapheme-single-byte</a></span> <span class="Delimiter">{</span> -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> in-int/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">{</span> -<span id="L97" class="LineNr"> 97 </span> compare in-int, <span class="Constant">0x7f</span> -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">break-if-></span> -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy in-int -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> out/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in -<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out -<span id="L102" class="LineNr">102 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, in-int, <span class="Constant">"F - test-to-grapheme-single-byte"</span> -<span id="L103" class="LineNr">103 </span> in-int <span class="Special"><-</span> increment -<span id="L104" class="LineNr">104 </span> <span class="PreProc">loop</span> -<span id="L105" class="LineNr">105 </span> <span class="Delimiter">}</span> -<span id="L106" class="LineNr">106 </span><span class="Delimiter">}</span> -<span id="L107" class="LineNr">107 </span> -<span id="L108" class="LineNr">108 </span> <span class="muComment"># byte | byte | byte | byte</span> -<span id="L109" class="LineNr">109 </span><span class="muComment"># smallest 2-byte utf-8</span> -<span id="L110" class="LineNr">110 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L110'>test-to-grapheme-two-bytes-min</a></span> <span class="Delimiter">{</span> -<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x80</span> <span class="muComment"># 10 00-0000</span> -<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> out/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out -<span id="L114" class="LineNr">114 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0x80c2</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/2a"</span> <span class="muComment"># 110 0-0010 10 00-0000</span> -<span id="L115" class="LineNr">115 </span><span class="Delimiter">}</span> -<span id="L116" class="LineNr">116 </span> -<span id="L117" class="LineNr">117 </span><span class="muComment"># largest 2-byte utf-8</span> -<span id="L118" class="LineNr">118 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L118'>test-to-grapheme-two-bytes-max</a></span> <span class="Delimiter">{</span> -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x7ff</span> <span class="muComment"># 1-1111 11-1111</span> -<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> out/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out -<span id="L122" class="LineNr">122 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0xbfdf</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/2b"</span> <span class="muComment"># 110 1-1111 10 11-1111</span> -<span id="L123" class="LineNr">123 </span><span class="Delimiter">}</span> -<span id="L124" class="LineNr">124 </span> -<span id="L125" class="LineNr">125 </span><span class="muComment"># smallest 3-byte utf-8</span> -<span id="L126" class="LineNr">126 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L126'>test-to-grapheme-three-bytes-min</a></span> <span class="Delimiter">{</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x800</span> <span class="muComment"># 10-0000 00-0000</span> -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> out/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out -<span id="L130" class="LineNr">130 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0x80a0e0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/3a"</span> <span class="muComment"># 1110 0000 10 10-0000 10 00-0000</span> -<span id="L131" class="LineNr">131 </span><span class="Delimiter">}</span> -<span id="L132" class="LineNr">132 </span> -<span id="L133" class="LineNr">133 </span><span class="muComment"># largest 3-byte utf-8</span> -<span id="L134" class="LineNr">134 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L134'>test-to-grapheme-three-bytes-max</a></span> <span class="Delimiter">{</span> -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0xffff</span> <span class="muComment"># 1111 11-1111 11-1111</span> -<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> out/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in -<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out -<span id="L138" class="LineNr">138 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0xbfbfef</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/3b"</span> <span class="muComment"># 1110 1111 10 11-1111 10 11-1111</span> -<span id="L139" class="LineNr">139 </span><span class="Delimiter">}</span> -<span id="L140" class="LineNr">140 </span> -<span id="L141" class="LineNr">141 </span><span class="muComment"># smallest 4-byte utf-8</span> -<span id="L142" class="LineNr">142 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L142'>test-to-grapheme-four-bytes-min</a></span> <span class="Delimiter">{</span> -<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x10000</span> <span class="muComment"># 1-0000 00-0000 00-0000</span> -<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> out/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in -<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out -<span id="L146" class="LineNr">146 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0x808090f0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/4a"</span> <span class="muComment"># 1111-0 000 10 01-0000 10 00-0000 10 00-0000</span> -<span id="L147" class="LineNr">147 </span><span class="Delimiter">}</span> -<span id="L148" class="LineNr">148 </span> -<span id="L149" class="LineNr">149 </span><span class="muComment"># largest 4-byte utf-8</span> -<span id="L150" class="LineNr">150 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L150'>test-to-grapheme-four-bytes-max</a></span> <span class="Delimiter">{</span> -<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x1fffff</span> <span class="muComment"># 111 11-1111 11-1111 11-1111</span> -<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> out/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in -<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out -<span id="L154" class="LineNr">154 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0xbfbfbff7</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/4b"</span> <span class="muComment"># 1111-0 111 10 11-1111 10 11-1111 10 11-1111</span> -<span id="L155" class="LineNr">155 </span><span class="Delimiter">}</span> -<span id="L156" class="LineNr">156 </span> -<span id="L157" class="LineNr">157 </span><span class="muComment"># read the next grapheme from a stream of bytes</span> -<span id="L158" class="LineNr">158 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L158'>read-grapheme</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> -<span id="L159" class="LineNr">159 </span> <span class="muComment"># if at eof, return EOF</span> -<span id="L160" class="LineNr">160 </span> <span class="Delimiter">{</span> -<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> eof?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> in -<span id="L162" class="LineNr">162 </span> compare eof?, <span class="Constant">0</span>/false -<span id="L163" class="LineNr">163 </span> <span class="PreProc">break-if-=</span> -<span id="L164" class="LineNr">164 </span> <span class="PreProc">return</span> <span class="Constant">0xffffffff</span> -<span id="L165" class="LineNr">165 </span> <span class="Delimiter">}</span> -<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> c/eax: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L273'>read-byte</a> in -<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> num-trailers/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L168" class="LineNr">168 </span> $read-grapheme:compute-length: <span class="Delimiter">{</span> -<span id="L169" class="LineNr">169 </span> <span class="muComment"># single byte: just return it</span> -<span id="L170" class="LineNr">170 </span> compare c, <span class="Constant">0xc0</span> -<span id="L171" class="LineNr">171 </span> <span class="Delimiter">{</span> -<span id="L172" class="LineNr">172 </span> <span class="PreProc">break-if->=</span> -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy c -<span id="L174" class="LineNr">174 </span> <span class="PreProc">return</span> g -<span id="L175" class="LineNr">175 </span> <span class="Delimiter">}</span> -<span id="L176" class="LineNr">176 </span> compare c, <span class="Constant">0xfe</span> -<span id="L177" class="LineNr">177 </span> <span class="Delimiter">{</span> -<span id="L178" class="LineNr">178 </span> <span class="PreProc">break-if-<</span> -<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy c -<span id="L180" class="LineNr">180 </span> <span class="PreProc">return</span> g -<span id="L181" class="LineNr">181 </span> <span class="Delimiter">}</span> -<span id="L182" class="LineNr">182 </span> <span class="muComment"># 2 bytes</span> -<span id="L183" class="LineNr">183 </span> compare c, <span class="Constant">0xe0</span> -<span id="L184" class="LineNr">184 </span> <span class="Delimiter">{</span> -<span id="L185" class="LineNr">185 </span> <span class="PreProc">break-if->=</span> -<span id="L186" class="LineNr">186 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L187" class="LineNr">187 </span> <span class="PreProc">break</span> $read-grapheme:compute-length -<span id="L188" class="LineNr">188 </span> <span class="Delimiter">}</span> -<span id="L189" class="LineNr">189 </span> <span class="muComment"># 3 bytes</span> -<span id="L190" class="LineNr">190 </span> compare c, <span class="Constant">0xf0</span> -<span id="L191" class="LineNr">191 </span> <span class="Delimiter">{</span> -<span id="L192" class="LineNr">192 </span> <span class="PreProc">break-if->=</span> -<span id="L193" class="LineNr">193 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">2</span> -<span id="L194" class="LineNr">194 </span> <span class="PreProc">break</span> $read-grapheme:compute-length -<span id="L195" class="LineNr">195 </span> <span class="Delimiter">}</span> -<span id="L196" class="LineNr">196 </span> <span class="muComment"># 4 bytes</span> -<span id="L197" class="LineNr">197 </span> compare c, <span class="Constant">0xf8</span> -<span id="L198" class="LineNr">198 </span> <span class="Delimiter">{</span> -<span id="L199" class="LineNr">199 </span> <span class="PreProc">break-if->=</span> -<span id="L200" class="LineNr">200 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">3</span> -<span id="L201" class="LineNr">201 </span> <span class="PreProc">break</span> $read-grapheme:compute-length -<span id="L202" class="LineNr">202 </span> <span class="Delimiter">}</span> -<span id="L203" class="LineNr">203 </span>$read-grapheme:abort: <span class="Delimiter">{</span> -<span id="L204" class="LineNr">204 </span> <span class="muComment"># TODO: print to stderr</span> -<span id="L205" class="LineNr">205 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"utf-8 encodings larger than 4 bytes are not supported. First byte seen: "</span> -<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c -<span id="L207" class="LineNr">207 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n -<span id="L208" class="LineNr">208 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> -<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> exit-status/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L210" class="LineNr">210 </span> <a href='000init.subx.html#L18'>syscall_exit</a> -<span id="L211" class="LineNr">211 </span> <span class="Delimiter">}</span> -<span id="L212" class="LineNr">212 </span> <span class="Delimiter">}</span> -<span id="L213" class="LineNr">213 </span> <span class="muComment"># prepend trailer bytes</span> -<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> result/<span class="muRegEdi">edi</span>: grapheme <span class="Special"><-</span> copy c -<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> num-byte-shifts/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L216" class="LineNr">216 </span> <span class="Delimiter">{</span> -<span id="L217" class="LineNr">217 </span> compare num-trailers, <span class="Constant">0</span> -<span id="L218" class="LineNr">218 </span> <span class="PreProc">break-if-<=</span> -<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> tmp/eax: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L273'>read-byte</a> in -<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> tmp2/eax: int <span class="Special"><-</span> copy tmp -<span id="L221" class="LineNr">221 </span> tmp2 <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> tmp2, num-byte-shifts -<span id="L222" class="LineNr">222 </span> result <span class="Special"><-</span> or tmp2 -<span id="L223" class="LineNr">223 </span> <span class="muComment"># update loop state</span> -<span id="L224" class="LineNr">224 </span> num-byte-shifts <span class="Special"><-</span> increment -<span id="L225" class="LineNr">225 </span> num-trailers <span class="Special"><-</span> decrement -<span id="L226" class="LineNr">226 </span> <span class="PreProc">loop</span> -<span id="L227" class="LineNr">227 </span> <span class="Delimiter">}</span> -<span id="L228" class="LineNr">228 </span> <span class="PreProc">return</span> result -<span id="L229" class="LineNr">229 </span><span class="Delimiter">}</span> -<span id="L230" class="LineNr">230 </span> -<span id="L231" class="LineNr">231 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L231'>test-read-grapheme</a></span> <span class="Delimiter">{</span> -<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x30</span>) -<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> s2/<span class="muRegEcx">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s -<span id="L234" class="LineNr">234 </span> <a href='108write.subx.html#L24'>write</a> s2, <span class="Constant">"aΒc世d界e"</span> -<span id="L235" class="LineNr">235 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 +<span id="L19" class="LineNr"> 19 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L19'>to-utf8</a></span> in: code-point<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> c/eax: int <span class="Special"><-</span> copy in +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> num-trailers/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> first/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L23" class="LineNr"> 23 </span> $to-utf8:compute-length: <span class="Delimiter">{</span> +<span id="L24" class="LineNr"> 24 </span> <span class="muComment"># single byte: just return it</span> +<span id="L25" class="LineNr"> 25 </span> compare c, <span class="Constant">0x7f</span> +<span id="L26" class="LineNr"> 26 </span> <span class="Delimiter">{</span> +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">break-if-></span> +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy c +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">return</span> g +<span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">}</span> +<span id="L31" class="LineNr"> 31 </span> <span class="muComment"># 2 bytes</span> +<span id="L32" class="LineNr"> 32 </span> compare c, <span class="Constant">0x7ff</span> +<span id="L33" class="LineNr"> 33 </span> <span class="Delimiter">{</span> +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">break-if-></span> +<span id="L35" class="LineNr"> 35 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L36" class="LineNr"> 36 </span> first <span class="Special"><-</span> copy <span class="Constant">0xc0</span> +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">break</span> $to-utf8:compute-length +<span id="L38" class="LineNr"> 38 </span> <span class="Delimiter">}</span> +<span id="L39" class="LineNr"> 39 </span> <span class="muComment"># 3 bytes</span> +<span id="L40" class="LineNr"> 40 </span> compare c, <span class="Constant">0xffff</span> +<span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">{</span> +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">break-if-></span> +<span id="L43" class="LineNr"> 43 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L44" class="LineNr"> 44 </span> first <span class="Special"><-</span> copy <span class="Constant">0xe0</span> +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">break</span> $to-utf8:compute-length +<span id="L46" class="LineNr"> 46 </span> <span class="Delimiter">}</span> +<span id="L47" class="LineNr"> 47 </span> <span class="muComment"># 4 bytes</span> +<span id="L48" class="LineNr"> 48 </span> compare c, <span class="Constant">0x1fffff</span> +<span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">{</span> +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">break-if-></span> +<span id="L51" class="LineNr"> 51 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">3</span> +<span id="L52" class="LineNr"> 52 </span> first <span class="Special"><-</span> copy <span class="Constant">0xf0</span> +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">break</span> $to-utf8:compute-length +<span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">}</span> +<span id="L55" class="LineNr"> 55 </span> <span class="muComment"># more than 4 bytes: unsupported</span> +<span id="L56" class="LineNr"> 56 </span> <span class="muComment"># TODO: print to stderr</span> +<span id="L57" class="LineNr"> 57 </span> compare c, <span class="Constant">0x1fffff</span> +<span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">{</span> +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">break-if-></span> +<span id="L60" class="LineNr"> 60 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"unsupported code point "</span> +<span id="L61" class="LineNr"> 61 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> c +<span id="L62" class="LineNr"> 62 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> exit-status/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L64" class="LineNr"> 64 </span> <a href='000init.subx.html#L18'>syscall_exit</a> +<span id="L65" class="LineNr"> 65 </span> <span class="Delimiter">}</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">}</span> +<span id="L67" class="LineNr"> 67 </span> <span class="muComment"># emit trailer bytes, 6 bits from 'in', first two bits '10'</span> +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> result/<span class="muRegEdi">edi</span>: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L69" class="LineNr"> 69 </span> <span class="Delimiter">{</span> +<span id="L70" class="LineNr"> 70 </span> compare num-trailers, <span class="Constant">0</span> +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">break-if-<=</span> +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> tmp/<span class="muRegEsi">esi</span>: int <span class="Special"><-</span> copy c +<span id="L73" class="LineNr"> 73 </span> tmp <span class="Special"><-</span> and <span class="Constant">0x3f</span> +<span id="L74" class="LineNr"> 74 </span> tmp <span class="Special"><-</span> or <span class="Constant">0x80</span> +<span id="L75" class="LineNr"> 75 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> +<span id="L76" class="LineNr"> 76 </span> result <span class="Special"><-</span> or tmp +<span id="L77" class="LineNr"> 77 </span> <span class="muComment"># update loop state</span> +<span id="L78" class="LineNr"> 78 </span> c <span class="Special"><-</span> shift-right <span class="Constant">6</span> +<span id="L79" class="LineNr"> 79 </span> num-trailers <span class="Special"><-</span> decrement +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">loop</span> +<span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">}</span> +<span id="L82" class="LineNr"> 82 </span> <span class="muComment"># emit engine</span> +<span id="L83" class="LineNr"> 83 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> +<span id="L84" class="LineNr"> 84 </span> result <span class="Special"><-</span> or c +<span id="L85" class="LineNr"> 85 </span> result <span class="Special"><-</span> or first +<span id="L86" class="LineNr"> 86 </span> <span class="muComment">#</span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">return</span> result +<span id="L88" class="LineNr"> 88 </span><span class="Delimiter">}</span> +<span id="L89" class="LineNr"> 89 </span> +<span id="L90" class="LineNr"> 90 </span><span class="muComment"># single-byte code point have identical code-point-utf8s</span> +<span id="L91" class="LineNr"> 91 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L91'>test-to-utf8-single-byte</a></span> <span class="Delimiter">{</span> +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> in-int/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L93" class="LineNr"> 93 </span> <span class="Delimiter">{</span> +<span id="L94" class="LineNr"> 94 </span> compare in-int, <span class="Constant">0x7f</span> +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">break-if-></span> +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy in-int +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> out/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L19'>to-utf8</a> in +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out +<span id="L99" class="LineNr"> 99 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, in-int, <span class="Constant">"F - test-to-utf8-single-byte"</span> +<span id="L100" class="LineNr">100 </span> in-int <span class="Special"><-</span> increment +<span id="L101" class="LineNr">101 </span> <span class="PreProc">loop</span> +<span id="L102" class="LineNr">102 </span> <span class="Delimiter">}</span> +<span id="L103" class="LineNr">103 </span><span class="Delimiter">}</span> +<span id="L104" class="LineNr">104 </span> +<span id="L105" class="LineNr">105 </span> <span class="muComment"># byte | byte | byte | byte</span> +<span id="L106" class="LineNr">106 </span><span class="muComment"># smallest 2-byte utf-8</span> +<span id="L107" class="LineNr">107 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L107'>test-to-utf8-two-bytes-min</a></span> <span class="Delimiter">{</span> +<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x80</span> <span class="muComment"># 10 00-0000</span> +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> out/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L19'>to-utf8</a> in +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out +<span id="L111" class="LineNr">111 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0x80c2</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L19'>to-utf8</a>/2a"</span> <span class="muComment"># 110 0-0010 10 00-0000</span> +<span id="L112" class="LineNr">112 </span><span class="Delimiter">}</span> +<span id="L113" class="LineNr">113 </span> +<span id="L114" class="LineNr">114 </span><span class="muComment"># largest 2-byte utf-8</span> +<span id="L115" class="LineNr">115 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L115'>test-to-utf8-two-bytes-max</a></span> <span class="Delimiter">{</span> +<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x7ff</span> <span class="muComment"># 1-1111 11-1111</span> +<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> out/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L19'>to-utf8</a> in +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out +<span id="L119" class="LineNr">119 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0xbfdf</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L19'>to-utf8</a>/2b"</span> <span class="muComment"># 110 1-1111 10 11-1111</span> +<span id="L120" class="LineNr">120 </span><span class="Delimiter">}</span> +<span id="L121" class="LineNr">121 </span> +<span id="L122" class="LineNr">122 </span><span class="muComment"># smallest 3-byte utf-8</span> +<span id="L123" class="LineNr">123 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L123'>test-to-utf8-three-bytes-min</a></span> <span class="Delimiter">{</span> +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x800</span> <span class="muComment"># 10-0000 00-0000</span> +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> out/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L19'>to-utf8</a> in +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out +<span id="L127" class="LineNr">127 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0x80a0e0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L19'>to-utf8</a>/3a"</span> <span class="muComment"># 1110 0000 10 10-0000 10 00-0000</span> +<span id="L128" class="LineNr">128 </span><span class="Delimiter">}</span> +<span id="L129" class="LineNr">129 </span> +<span id="L130" class="LineNr">130 </span><span class="muComment"># largest 3-byte utf-8</span> +<span id="L131" class="LineNr">131 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L131'>test-to-utf8-three-bytes-max</a></span> <span class="Delimiter">{</span> +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0xffff</span> <span class="muComment"># 1111 11-1111 11-1111</span> +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> out/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L19'>to-utf8</a> in +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out +<span id="L135" class="LineNr">135 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0xbfbfef</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L19'>to-utf8</a>/3b"</span> <span class="muComment"># 1110 1111 10 11-1111 10 11-1111</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="muComment"># smallest 4-byte utf-8</span> +<span id="L139" class="LineNr">139 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L139'>test-to-utf8-four-bytes-min</a></span> <span class="Delimiter">{</span> +<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x10000</span> <span class="muComment"># 1-0000 00-0000 00-0000</span> +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> out/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L19'>to-utf8</a> in +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out +<span id="L143" class="LineNr">143 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0x808090f0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L19'>to-utf8</a>/4a"</span> <span class="muComment"># 1111-0 000 10 01-0000 10 00-0000 10 00-0000</span> +<span id="L144" class="LineNr">144 </span><span class="Delimiter">}</span> +<span id="L145" class="LineNr">145 </span> +<span id="L146" class="LineNr">146 </span><span class="muComment"># largest 4-byte utf-8</span> +<span id="L147" class="LineNr">147 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L147'>test-to-utf8-four-bytes-max</a></span> <span class="Delimiter">{</span> +<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> in/eax: code-point <span class="Special"><-</span> copy <span class="Constant">0x1fffff</span> <span class="muComment"># 111 11-1111 11-1111 11-1111</span> +<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> out/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L19'>to-utf8</a> in +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> out-int/eax: int <span class="Special"><-</span> copy out +<span id="L151" class="LineNr">151 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0xbfbfbff7</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L19'>to-utf8</a>/4b"</span> <span class="muComment"># 1111-0 111 10 11-1111 10 11-1111 10 11-1111</span> +<span id="L152" class="LineNr">152 </span><span class="Delimiter">}</span> +<span id="L153" class="LineNr">153 </span> +<span id="L154" class="LineNr">154 </span><span class="muComment"># read the next code-point-utf8 from a stream of bytes</span> +<span id="L155" class="LineNr">155 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L155'>read-code-point-utf8</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> +<span id="L156" class="LineNr">156 </span> <span class="muComment"># if at eof, return EOF</span> +<span id="L157" class="LineNr">157 </span> <span class="Delimiter">{</span> +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> eof?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> in +<span id="L159" class="LineNr">159 </span> compare eof?, <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="PreProc">return</span> <span class="Constant">0xffffffff</span> +<span id="L162" class="LineNr">162 </span> <span class="Delimiter">}</span> +<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> c/eax: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L273'>read-byte</a> in +<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> num-trailers/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L165" class="LineNr">165 </span> $read-code-point-utf8:compute-length: <span class="Delimiter">{</span> +<span id="L166" class="LineNr">166 </span> <span class="muComment"># single byte: just return it</span> +<span id="L167" class="LineNr">167 </span> compare c, <span class="Constant">0xc0</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">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy c +<span id="L171" class="LineNr">171 </span> <span class="PreProc">return</span> g +<span id="L172" class="LineNr">172 </span> <span class="Delimiter">}</span> +<span id="L173" class="LineNr">173 </span> compare c, <span class="Constant">0xfe</span> +<span id="L174" class="LineNr">174 </span> <span class="Delimiter">{</span> +<span id="L175" class="LineNr">175 </span> <span class="PreProc">break-if-<</span> +<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy c +<span id="L177" class="LineNr">177 </span> <span class="PreProc">return</span> g +<span id="L178" class="LineNr">178 </span> <span class="Delimiter">}</span> +<span id="L179" class="LineNr">179 </span> <span class="muComment"># 2 bytes</span> +<span id="L180" class="LineNr">180 </span> compare c, <span class="Constant">0xe0</span> +<span id="L181" class="LineNr">181 </span> <span class="Delimiter">{</span> +<span id="L182" class="LineNr">182 </span> <span class="PreProc">break-if->=</span> +<span id="L183" class="LineNr">183 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L184" class="LineNr">184 </span> <span class="PreProc">break</span> $read-code-point-utf8:compute-length +<span id="L185" class="LineNr">185 </span> <span class="Delimiter">}</span> +<span id="L186" class="LineNr">186 </span> <span class="muComment"># 3 bytes</span> +<span id="L187" class="LineNr">187 </span> compare c, <span class="Constant">0xf0</span> +<span id="L188" class="LineNr">188 </span> <span class="Delimiter">{</span> +<span id="L189" class="LineNr">189 </span> <span class="PreProc">break-if->=</span> +<span id="L190" class="LineNr">190 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L191" class="LineNr">191 </span> <span class="PreProc">break</span> $read-code-point-utf8:compute-length +<span id="L192" class="LineNr">192 </span> <span class="Delimiter">}</span> +<span id="L193" class="LineNr">193 </span> <span class="muComment"># 4 bytes</span> +<span id="L194" class="LineNr">194 </span> compare c, <span class="Constant">0xf8</span> +<span id="L195" class="LineNr">195 </span> <span class="Delimiter">{</span> +<span id="L196" class="LineNr">196 </span> <span class="PreProc">break-if->=</span> +<span id="L197" class="LineNr">197 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">3</span> +<span id="L198" class="LineNr">198 </span> <span class="PreProc">break</span> $read-code-point-utf8:compute-length +<span id="L199" class="LineNr">199 </span> <span class="Delimiter">}</span> +<span id="L200" class="LineNr">200 </span>$read-code-point-utf8:abort: <span class="Delimiter">{</span> +<span id="L201" class="LineNr">201 </span> <span class="muComment"># TODO: print to stderr</span> +<span id="L202" class="LineNr">202 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"utf-8 encodings larger than 4 bytes are not yet supported. First byte seen: "</span> +<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c +<span id="L204" class="LineNr">204 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n +<span id="L205" class="LineNr">205 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> +<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> exit-status/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L207" class="LineNr">207 </span> <a href='000init.subx.html#L18'>syscall_exit</a> +<span id="L208" class="LineNr">208 </span> <span class="Delimiter">}</span> +<span id="L209" class="LineNr">209 </span> <span class="Delimiter">}</span> +<span id="L210" class="LineNr">210 </span> <span class="muComment"># prepend trailer bytes</span> +<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> result/<span class="muRegEdi">edi</span>: code-point-utf8 <span class="Special"><-</span> copy c +<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> num-byte-shifts/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L213" class="LineNr">213 </span> <span class="Delimiter">{</span> +<span id="L214" class="LineNr">214 </span> compare num-trailers, <span class="Constant">0</span> +<span id="L215" class="LineNr">215 </span> <span class="PreProc">break-if-<=</span> +<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> tmp/eax: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L273'>read-byte</a> in +<span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> tmp2/eax: int <span class="Special"><-</span> copy tmp +<span id="L218" class="LineNr">218 </span> tmp2 <span class="Special"><-</span> <a href='403unicode.mu.html#L322'>shift-left-bytes</a> tmp2, num-byte-shifts +<span id="L219" class="LineNr">219 </span> result <span class="Special"><-</span> or tmp2 +<span id="L220" class="LineNr">220 </span> <span class="muComment"># update loop state</span> +<span id="L221" class="LineNr">221 </span> num-byte-shifts <span class="Special"><-</span> increment +<span id="L222" class="LineNr">222 </span> num-trailers <span class="Special"><-</span> decrement +<span id="L223" class="LineNr">223 </span> <span class="PreProc">loop</span> +<span id="L224" class="LineNr">224 </span> <span class="Delimiter">}</span> +<span id="L225" class="LineNr">225 </span> <span class="PreProc">return</span> result +<span id="L226" class="LineNr">226 </span><span class="Delimiter">}</span> +<span id="L227" class="LineNr">227 </span> +<span id="L228" class="LineNr">228 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L228'>test-read-code-point-utf8</a></span> <span class="Delimiter">{</span> +<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x30</span>) +<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> s2/<span class="muRegEcx">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s +<span id="L231" class="LineNr">231 </span> <a href='108write.subx.html#L24'>write</a> s2, <span class="Constant">"aΒc世d界e"</span> +<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> s2 +<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c +<span id="L234" class="LineNr">234 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x61</span>, <span class="Constant">"F - test code-point-utf8/0"</span> +<span id="L235" class="LineNr">235 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> s2 <span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c -<span id="L237" class="LineNr">237 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x61</span>, <span class="Constant">"F - test grapheme/0"</span> -<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 +<span id="L237" class="LineNr">237 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x92ce</span>/greek-capital-letter-beta, <span class="Constant">"F - test code-point-utf8/1"</span> +<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> s2 <span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c -<span id="L240" class="LineNr">240 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x92ce</span>/greek-capital-letter-beta, <span class="Constant">"F - test grapheme/1"</span> -<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 +<span id="L240" class="LineNr">240 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x63</span>, <span class="Constant">"F - test code-point-utf8/2"</span> +<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> s2 <span id="L242" class="LineNr">242 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c -<span id="L243" class="LineNr">243 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x63</span>, <span class="Constant">"F - test grapheme/2"</span> -<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 +<span id="L243" class="LineNr">243 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x96b8e4</span>, <span class="Constant">"F - test code-point-utf8/3"</span> +<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> s2 <span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c -<span id="L246" class="LineNr">246 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x96b8e4</span>, <span class="Constant">"F - test grapheme/3"</span> -<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 +<span id="L246" class="LineNr">246 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x64</span>, <span class="Constant">"F - test code-point-utf8/4"</span> +<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> s2 <span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c -<span id="L249" class="LineNr">249 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x64</span>, <span class="Constant">"F - test grapheme/4"</span> -<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 +<span id="L249" class="LineNr">249 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x8c95e7</span>, <span class="Constant">"F - test code-point-utf8/5"</span> +<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> s2 <span id="L251" class="LineNr">251 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c -<span id="L252" class="LineNr">252 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x8c95e7</span>, <span class="Constant">"F - test grapheme/5"</span> -<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 -<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c -<span id="L255" class="LineNr">255 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x65</span>, <span class="Constant">"F - test grapheme/6"</span> -<span id="L256" class="LineNr">256 </span><span class="Delimiter">}</span> -<span id="L257" class="LineNr">257 </span> -<span id="L258" class="LineNr">258 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L258'>read-grapheme-buffered</a></span> in: (addr buffered-file)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> -<span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> c/eax: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L38'>read-byte-buffered</a> in -<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> num-trailers/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L261" class="LineNr">261 </span> $read-grapheme-buffered:compute-length: <span class="Delimiter">{</span> -<span id="L262" class="LineNr">262 </span> <span class="muComment"># single byte: just return it</span> -<span id="L263" class="LineNr">263 </span> compare c, <span class="Constant">0xc0</span> -<span id="L264" class="LineNr">264 </span> <span class="Delimiter">{</span> -<span id="L265" class="LineNr">265 </span> <span class="PreProc">break-if->=</span> -<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy c -<span id="L267" class="LineNr">267 </span> <span class="PreProc">return</span> g -<span id="L268" class="LineNr">268 </span> <span class="Delimiter">}</span> -<span id="L269" class="LineNr">269 </span> compare c, <span class="Constant">0xfe</span> -<span id="L270" class="LineNr">270 </span> <span class="Delimiter">{</span> -<span id="L271" class="LineNr">271 </span> <span class="PreProc">break-if-<</span> -<span id="L272" class="LineNr">272 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy c -<span id="L273" class="LineNr">273 </span> <span class="PreProc">return</span> g -<span id="L274" class="LineNr">274 </span> <span class="Delimiter">}</span> -<span id="L275" class="LineNr">275 </span> <span class="muComment"># 2 bytes</span> -<span id="L276" class="LineNr">276 </span> compare c, <span class="Constant">0xe0</span> -<span id="L277" class="LineNr">277 </span> <span class="Delimiter">{</span> -<span id="L278" class="LineNr">278 </span> <span class="PreProc">break-if->=</span> -<span id="L279" class="LineNr">279 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L280" class="LineNr">280 </span> <span class="PreProc">break</span> $read-grapheme-buffered:compute-length -<span id="L281" class="LineNr">281 </span> <span class="Delimiter">}</span> -<span id="L282" class="LineNr">282 </span> <span class="muComment"># 3 bytes</span> -<span id="L283" class="LineNr">283 </span> compare c, <span class="Constant">0xf0</span> -<span id="L284" class="LineNr">284 </span> <span class="Delimiter">{</span> -<span id="L285" class="LineNr">285 </span> <span class="PreProc">break-if->=</span> -<span id="L286" class="LineNr">286 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">2</span> -<span id="L287" class="LineNr">287 </span> <span class="PreProc">break</span> $read-grapheme-buffered:compute-length -<span id="L288" class="LineNr">288 </span> <span class="Delimiter">}</span> -<span id="L289" class="LineNr">289 </span> <span class="muComment"># 4 bytes</span> -<span id="L290" class="LineNr">290 </span> compare c, <span class="Constant">0xf8</span> -<span id="L291" class="LineNr">291 </span> <span class="Delimiter">{</span> -<span id="L292" class="LineNr">292 </span> <span class="PreProc">break-if->=</span> -<span id="L293" class="LineNr">293 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">3</span> -<span id="L294" class="LineNr">294 </span> <span class="PreProc">break</span> $read-grapheme-buffered:compute-length -<span id="L295" class="LineNr">295 </span> <span class="Delimiter">}</span> -<span id="L296" class="LineNr">296 </span>$read-grapheme-buffered:abort: <span class="Delimiter">{</span> -<span id="L297" class="LineNr">297 </span> <span class="muComment"># TODO: print to stderr</span> -<span id="L298" class="LineNr">298 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"utf-8 encodings larger than 4 bytes are not supported. First byte seen: "</span> -<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c -<span id="L300" class="LineNr">300 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n -<span id="L301" class="LineNr">301 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> -<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> exit-status/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L303" class="LineNr">303 </span> <a href='000init.subx.html#L18'>syscall_exit</a> -<span id="L304" class="LineNr">304 </span> <span class="Delimiter">}</span> -<span id="L305" class="LineNr">305 </span> <span class="Delimiter">}</span> -<span id="L306" class="LineNr">306 </span> <span class="muComment"># prepend trailer bytes</span> -<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> result/<span class="muRegEdi">edi</span>: grapheme <span class="Special"><-</span> copy c -<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> num-byte-shifts/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L309" class="LineNr">309 </span> <span class="Delimiter">{</span> -<span id="L310" class="LineNr">310 </span> compare num-trailers, <span class="Constant">0</span> -<span id="L311" class="LineNr">311 </span> <span class="PreProc">break-if-<=</span> -<span id="L312" class="LineNr">312 </span> <span class="PreProc">var</span> tmp/eax: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L38'>read-byte-buffered</a> in -<span id="L313" class="LineNr">313 </span> <span class="PreProc">var</span> tmp2/eax: int <span class="Special"><-</span> copy tmp -<span id="L314" class="LineNr">314 </span> tmp2 <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> tmp2, num-byte-shifts -<span id="L315" class="LineNr">315 </span> result <span class="Special"><-</span> or tmp2 -<span id="L316" class="LineNr">316 </span> <span class="muComment"># update loop state</span> -<span id="L317" class="LineNr">317 </span> num-byte-shifts <span class="Special"><-</span> increment -<span id="L318" class="LineNr">318 </span> num-trailers <span class="Special"><-</span> decrement -<span id="L319" class="LineNr">319 </span> <span class="PreProc">loop</span> -<span id="L320" class="LineNr">320 </span> <span class="Delimiter">}</span> -<span id="L321" class="LineNr">321 </span> <span class="PreProc">return</span> result -<span id="L322" class="LineNr">322 </span><span class="Delimiter">}</span> -<span id="L323" class="LineNr">323 </span> -<span id="L324" class="LineNr">324 </span><span class="muComment"># needed because available primitives only shift by a literal/constant number of bits</span> -<span id="L325" class="LineNr">325 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L325'>shift-left-bytes</a></span> n: int, k: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L326" class="LineNr">326 </span> <span class="PreProc">var</span> i/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> copy n -<span id="L328" class="LineNr">328 </span> <span class="Delimiter">{</span> -<span id="L329" class="LineNr">329 </span> compare i, k -<span id="L330" class="LineNr">330 </span> <span class="PreProc">break-if->=</span> -<span id="L331" class="LineNr">331 </span> compare i, <span class="Constant">4</span> <span class="muComment"># only 4 bytes in 32 bits</span> -<span id="L332" class="LineNr">332 </span> <span class="PreProc">break-if->=</span> -<span id="L333" class="LineNr">333 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> -<span id="L334" class="LineNr">334 </span> i <span class="Special"><-</span> increment -<span id="L335" class="LineNr">335 </span> <span class="PreProc">loop</span> -<span id="L336" class="LineNr">336 </span> <span class="Delimiter">}</span> -<span id="L337" class="LineNr">337 </span> <span class="PreProc">return</span> result -<span id="L338" class="LineNr">338 </span><span class="Delimiter">}</span> -<span id="L339" class="LineNr">339 </span> -<span id="L340" class="LineNr">340 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L340'>test-shift-left-bytes-0</a></span> <span class="Delimiter">{</span> -<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">0</span> -<span id="L342" class="LineNr">342 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">1</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> 0"</span> -<span id="L343" class="LineNr">343 </span><span class="Delimiter">}</span> -<span id="L344" class="LineNr">344 </span> -<span id="L345" class="LineNr">345 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L345'>test-shift-left-bytes-1</a></span> <span class="Delimiter">{</span> -<span id="L346" class="LineNr">346 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">1</span> -<span id="L347" class="LineNr">347 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0x100</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> 1"</span> -<span id="L348" class="LineNr">348 </span><span class="Delimiter">}</span> -<span id="L349" class="LineNr">349 </span> -<span id="L350" class="LineNr">350 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L350'>test-shift-left-bytes-2</a></span> <span class="Delimiter">{</span> -<span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">2</span> -<span id="L352" class="LineNr">352 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0x10000</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> 2"</span> -<span id="L353" class="LineNr">353 </span><span class="Delimiter">}</span> -<span id="L354" class="LineNr">354 </span> -<span id="L355" class="LineNr">355 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L355'>test-shift-left-bytes-3</a></span> <span class="Delimiter">{</span> -<span id="L356" class="LineNr">356 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">3</span> -<span id="L357" class="LineNr">357 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0x1000000</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> 3"</span> -<span id="L358" class="LineNr">358 </span><span class="Delimiter">}</span> -<span id="L359" class="LineNr">359 </span> -<span id="L360" class="LineNr">360 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L360'>test-shift-left-bytes-4</a></span> <span class="Delimiter">{</span> -<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">4</span> -<span id="L362" class="LineNr">362 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> 4"</span> -<span id="L363" class="LineNr">363 </span><span class="Delimiter">}</span> -<span id="L364" class="LineNr">364 </span> -<span id="L365" class="LineNr">365 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L365'>test-shift-left-bytes-5</a></span> <span class="Delimiter">{</span> -<span id="L366" class="LineNr">366 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">5</span> -<span id="L367" class="LineNr">367 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> >4"</span> -<span id="L368" class="LineNr">368 </span><span class="Delimiter">}</span> -<span id="L369" class="LineNr">369 </span> -<span id="L370" class="LineNr">370 </span><span class="muComment"># write a grapheme to a stream of bytes</span> -<span id="L371" class="LineNr">371 </span><span class="muComment"># this is like write-to-stream, except we skip leading 0 bytes</span> -<span id="L372" class="LineNr">372 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L372'>write-grapheme</a></span> out: (addr stream byte), g: grapheme <span class="Delimiter">{</span> -<span id="L373" class="LineNr">373 </span>$write-grapheme:body: <span class="Delimiter">{</span> -<span id="L374" class="LineNr">374 </span> <span class="PreProc">var</span> c/eax: int <span class="Special"><-</span> copy g -<span id="L375" class="LineNr">375 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c <span class="muComment"># first byte is always written</span> -<span id="L376" class="LineNr">376 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> -<span id="L377" class="LineNr">377 </span> compare c, <span class="Constant">0</span> -<span id="L378" class="LineNr">378 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body -<span id="L379" class="LineNr">379 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c -<span id="L380" class="LineNr">380 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> -<span id="L381" class="LineNr">381 </span> compare c, <span class="Constant">0</span> -<span id="L382" class="LineNr">382 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body -<span id="L383" class="LineNr">383 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c -<span id="L384" class="LineNr">384 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> -<span id="L385" class="LineNr">385 </span> compare c, <span class="Constant">0</span> -<span id="L386" class="LineNr">386 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body -<span id="L387" class="LineNr">387 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c -<span id="L388" class="LineNr">388 </span><span class="Delimiter">}</span> -<span id="L389" class="LineNr">389 </span><span class="Delimiter">}</span> +<span id="L252" class="LineNr">252 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x65</span>, <span class="Constant">"F - test code-point-utf8/6"</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="muFunction"><a href='403unicode.mu.html#L255'>read-code-point-utf8-buffered</a></span> in: (addr buffered-file)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> +<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> c/eax: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L38'>read-byte-buffered</a> in +<span id="L257" class="LineNr">257 </span> <span class="PreProc">var</span> num-trailers/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L258" class="LineNr">258 </span> $read-code-point-utf8-buffered:compute-length: <span class="Delimiter">{</span> +<span id="L259" class="LineNr">259 </span> <span class="muComment"># single byte: just return it</span> +<span id="L260" class="LineNr">260 </span> compare c, <span class="Constant">0xc0</span> +<span id="L261" class="LineNr">261 </span> <span class="Delimiter">{</span> +<span id="L262" class="LineNr">262 </span> <span class="PreProc">break-if->=</span> +<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy c +<span id="L264" class="LineNr">264 </span> <span class="PreProc">return</span> g +<span id="L265" class="LineNr">265 </span> <span class="Delimiter">}</span> +<span id="L266" class="LineNr">266 </span> compare c, <span class="Constant">0xfe</span> +<span id="L267" class="LineNr">267 </span> <span class="Delimiter">{</span> +<span id="L268" class="LineNr">268 </span> <span class="PreProc">break-if-<</span> +<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy c +<span id="L270" class="LineNr">270 </span> <span class="PreProc">return</span> g +<span id="L271" class="LineNr">271 </span> <span class="Delimiter">}</span> +<span id="L272" class="LineNr">272 </span> <span class="muComment"># 2 bytes</span> +<span id="L273" class="LineNr">273 </span> compare c, <span class="Constant">0xe0</span> +<span id="L274" class="LineNr">274 </span> <span class="Delimiter">{</span> +<span id="L275" class="LineNr">275 </span> <span class="PreProc">break-if->=</span> +<span id="L276" class="LineNr">276 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L277" class="LineNr">277 </span> <span class="PreProc">break</span> $read-code-point-utf8-buffered:compute-length +<span id="L278" class="LineNr">278 </span> <span class="Delimiter">}</span> +<span id="L279" class="LineNr">279 </span> <span class="muComment"># 3 bytes</span> +<span id="L280" class="LineNr">280 </span> compare c, <span class="Constant">0xf0</span> +<span id="L281" class="LineNr">281 </span> <span class="Delimiter">{</span> +<span id="L282" class="LineNr">282 </span> <span class="PreProc">break-if->=</span> +<span id="L283" class="LineNr">283 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L284" class="LineNr">284 </span> <span class="PreProc">break</span> $read-code-point-utf8-buffered:compute-length +<span id="L285" class="LineNr">285 </span> <span class="Delimiter">}</span> +<span id="L286" class="LineNr">286 </span> <span class="muComment"># 4 bytes</span> +<span id="L287" class="LineNr">287 </span> compare c, <span class="Constant">0xf8</span> +<span id="L288" class="LineNr">288 </span> <span class="Delimiter">{</span> +<span id="L289" class="LineNr">289 </span> <span class="PreProc">break-if->=</span> +<span id="L290" class="LineNr">290 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">3</span> +<span id="L291" class="LineNr">291 </span> <span class="PreProc">break</span> $read-code-point-utf8-buffered:compute-length +<span id="L292" class="LineNr">292 </span> <span class="Delimiter">}</span> +<span id="L293" class="LineNr">293 </span>$read-code-point-utf8-buffered:abort: <span class="Delimiter">{</span> +<span id="L294" class="LineNr">294 </span> <span class="muComment"># TODO: print to stderr</span> +<span id="L295" class="LineNr">295 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"utf-8 encodings larger than 4 bytes are not supported. First byte seen: "</span> +<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy c +<span id="L297" class="LineNr">297 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n +<span id="L298" class="LineNr">298 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> +<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> exit-status/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L300" class="LineNr">300 </span> <a href='000init.subx.html#L18'>syscall_exit</a> +<span id="L301" class="LineNr">301 </span> <span class="Delimiter">}</span> +<span id="L302" class="LineNr">302 </span> <span class="Delimiter">}</span> +<span id="L303" class="LineNr">303 </span> <span class="muComment"># prepend trailer bytes</span> +<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> result/<span class="muRegEdi">edi</span>: code-point-utf8 <span class="Special"><-</span> copy c +<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> num-byte-shifts/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L306" class="LineNr">306 </span> <span class="Delimiter">{</span> +<span id="L307" class="LineNr">307 </span> compare num-trailers, <span class="Constant">0</span> +<span id="L308" class="LineNr">308 </span> <span class="PreProc">break-if-<=</span> +<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> tmp/eax: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L38'>read-byte-buffered</a> in +<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> tmp2/eax: int <span class="Special"><-</span> copy tmp +<span id="L311" class="LineNr">311 </span> tmp2 <span class="Special"><-</span> <a href='403unicode.mu.html#L322'>shift-left-bytes</a> tmp2, num-byte-shifts +<span id="L312" class="LineNr">312 </span> result <span class="Special"><-</span> or tmp2 +<span id="L313" class="LineNr">313 </span> <span class="muComment"># update loop state</span> +<span id="L314" class="LineNr">314 </span> num-byte-shifts <span class="Special"><-</span> increment +<span id="L315" class="LineNr">315 </span> num-trailers <span class="Special"><-</span> decrement +<span id="L316" class="LineNr">316 </span> <span class="PreProc">loop</span> +<span id="L317" class="LineNr">317 </span> <span class="Delimiter">}</span> +<span id="L318" class="LineNr">318 </span> <span class="PreProc">return</span> result +<span id="L319" class="LineNr">319 </span><span class="Delimiter">}</span> +<span id="L320" class="LineNr">320 </span> +<span id="L321" class="LineNr">321 </span><span class="muComment"># needed because available primitives only shift by a literal/constant number of bits</span> +<span id="L322" class="LineNr">322 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L322'>shift-left-bytes</a></span> n: int, k: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> +<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> i/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> copy n +<span id="L325" class="LineNr">325 </span> <span class="Delimiter">{</span> +<span id="L326" class="LineNr">326 </span> compare i, k +<span id="L327" class="LineNr">327 </span> <span class="PreProc">break-if->=</span> +<span id="L328" class="LineNr">328 </span> compare i, <span class="Constant">4</span> <span class="muComment"># only 4 bytes in 32 bits</span> +<span id="L329" class="LineNr">329 </span> <span class="PreProc">break-if->=</span> +<span id="L330" class="LineNr">330 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> +<span id="L331" class="LineNr">331 </span> i <span class="Special"><-</span> increment +<span id="L332" class="LineNr">332 </span> <span class="PreProc">loop</span> +<span id="L333" class="LineNr">333 </span> <span class="Delimiter">}</span> +<span id="L334" class="LineNr">334 </span> <span class="PreProc">return</span> result +<span id="L335" class="LineNr">335 </span><span class="Delimiter">}</span> +<span id="L336" class="LineNr">336 </span> +<span id="L337" class="LineNr">337 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L337'>test-shift-left-bytes-0</a></span> <span class="Delimiter">{</span> +<span id="L338" class="LineNr">338 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L322'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">0</span> +<span id="L339" class="LineNr">339 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">1</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L322'>shift-left-bytes</a> 0"</span> +<span id="L340" class="LineNr">340 </span><span class="Delimiter">}</span> +<span id="L341" class="LineNr">341 </span> +<span id="L342" class="LineNr">342 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L342'>test-shift-left-bytes-1</a></span> <span class="Delimiter">{</span> +<span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L322'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">1</span> +<span id="L344" class="LineNr">344 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0x100</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L322'>shift-left-bytes</a> 1"</span> +<span id="L345" class="LineNr">345 </span><span class="Delimiter">}</span> +<span id="L346" class="LineNr">346 </span> +<span id="L347" class="LineNr">347 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L347'>test-shift-left-bytes-2</a></span> <span class="Delimiter">{</span> +<span id="L348" class="LineNr">348 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L322'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">2</span> +<span id="L349" class="LineNr">349 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0x10000</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L322'>shift-left-bytes</a> 2"</span> +<span id="L350" class="LineNr">350 </span><span class="Delimiter">}</span> +<span id="L351" class="LineNr">351 </span> +<span id="L352" class="LineNr">352 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L352'>test-shift-left-bytes-3</a></span> <span class="Delimiter">{</span> +<span id="L353" class="LineNr">353 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L322'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">3</span> +<span id="L354" class="LineNr">354 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0x1000000</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L322'>shift-left-bytes</a> 3"</span> +<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="muTest"><a href='403unicode.mu.html#L357'>test-shift-left-bytes-4</a></span> <span class="Delimiter">{</span> +<span id="L358" class="LineNr">358 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L322'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">4</span> +<span id="L359" class="LineNr">359 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L322'>shift-left-bytes</a> 4"</span> +<span id="L360" class="LineNr">360 </span><span class="Delimiter">}</span> +<span id="L361" class="LineNr">361 </span> +<span id="L362" class="LineNr">362 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L362'>test-shift-left-bytes-5</a></span> <span class="Delimiter">{</span> +<span id="L363" class="LineNr">363 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='403unicode.mu.html#L322'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">5</span> +<span id="L364" class="LineNr">364 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L322'>shift-left-bytes</a> >4"</span> +<span id="L365" class="LineNr">365 </span><span class="Delimiter">}</span> +<span id="L366" class="LineNr">366 </span> +<span id="L367" class="LineNr">367 </span><span class="muComment"># write a code-point-utf8 to a stream of bytes</span> +<span id="L368" class="LineNr">368 </span><span class="muComment"># this is like write-to-stream, except we skip leading 0 bytes</span> +<span id="L369" class="LineNr">369 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L369'>write-code-point-utf8</a></span> out: (addr stream byte), g: code-point-utf8 <span class="Delimiter">{</span> +<span id="L370" class="LineNr">370 </span>$write-code-point-utf8:body: <span class="Delimiter">{</span> +<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> c/eax: int <span class="Special"><-</span> copy g +<span id="L372" class="LineNr">372 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c <span class="muComment"># first byte is always written</span> +<span id="L373" class="LineNr">373 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> +<span id="L374" class="LineNr">374 </span> compare c, <span class="Constant">0</span> +<span id="L375" class="LineNr">375 </span> <span class="PreProc">break-if-=</span> $write-code-point-utf8:body +<span id="L376" class="LineNr">376 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c +<span id="L377" class="LineNr">377 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> +<span id="L378" class="LineNr">378 </span> compare c, <span class="Constant">0</span> +<span id="L379" class="LineNr">379 </span> <span class="PreProc">break-if-=</span> $write-code-point-utf8:body +<span id="L380" class="LineNr">380 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c +<span id="L381" class="LineNr">381 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> +<span id="L382" class="LineNr">382 </span> compare c, <span class="Constant">0</span> +<span id="L383" class="LineNr">383 </span> <span class="PreProc">break-if-=</span> $write-code-point-utf8:body +<span id="L384" class="LineNr">384 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c +<span id="L385" class="LineNr">385 </span><span class="Delimiter">}</span> +<span id="L386" class="LineNr">386 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/linux/404stream.mu.html b/html/linux/404stream.mu.html index 7948dacf..fc5b2851 100644 --- a/html/linux/404stream.mu.html +++ b/html/linux/404stream.mu.html @@ -15,15 +15,15 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } .muRegEdx { color: #af5f00; } .LineNr { } -.Constant { color: #008787; } .muRegEbx { color: #5f00ff; } -.muTest { color: #5f8700; } +.Constant { color: #008787; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } -.muComment { color: #005faf; } .Special { color: #ff6060; } +.muTest { color: #5f8700; } +.muComment { color: #005faf; } --> </style> diff --git a/html/linux/405screen.mu.html b/html/linux/405screen.mu.html index 4c88b295..805a6d3d 100644 --- a/html/linux/405screen.mu.html +++ b/html/linux/405screen.mu.html @@ -16,8 +16,7 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .LineNr { } .Delimiter { color: #c000c0; } -.muRegEcx { color: #870000; } -.muRegEdx { color: #af5f00; } +.CommentedCode { color: #8a8a8a; } .muRegEbx { color: #5f00ff; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } @@ -27,7 +26,8 @@ a { color:inherit; } .muFunction { color: #af5f00; text-decoration: underline; } .muTest { color: #5f8700; } .muComment { color: #005faf; } -.CommentedCode { color: #8a8a8a; } +.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } --> </style> @@ -83,7 +83,7 @@ if ('onhashchange' in window) { <span id="L18" class="LineNr"> 18 </span><span class="Delimiter">}</span> <span id="L19" class="LineNr"> 19 </span> <span id="L20" class="LineNr"> 20 </span><span class="PreProc">type</span> <a href='405screen.mu.html#L20'>screen-cell</a> <span class="Delimiter">{</span> -<span id="L21" class="LineNr"> 21 </span> data: grapheme +<span id="L21" class="LineNr"> 21 </span> data: code-point-utf8 <span id="L22" class="LineNr"> 22 </span> color: int <span id="L23" class="LineNr"> 23 </span> background-color: int <span id="L24" class="LineNr"> 24 </span> bold?: boolean @@ -148,7 +148,7 @@ if ('onhashchange' in window) { <span id="L83" class="LineNr"> 83 </span> <span class="PreProc">return</span> <span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">}</span> <span id="L85" class="LineNr"> 85 </span> <span class="muComment"># fake screen</span> -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> space/<span class="muRegEdi">edi</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x20</span> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> space/<span class="muRegEdi">edi</span>: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x20</span> <span id="L87" class="LineNr"> 87 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">1</span> <span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> screen-addr/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> <span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy <span class="Constant">1</span> @@ -161,7 +161,7 @@ if ('onhashchange' in window) { <span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">{</span> <span id="L97" class="LineNr"> 97 </span> compare j, *ncols <span id="L98" class="LineNr"> 98 </span> <span class="PreProc">break-if-></span> -<span id="L99" class="LineNr"> 99 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, space +<span id="L99" class="LineNr"> 99 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, space <span id="L100" class="LineNr"> 100 </span> j <span class="Special"><-</span> increment <span id="L101" class="LineNr"> 101 </span> <span class="PreProc">loop</span> <span id="L102" class="LineNr"> 102 </span> <span class="Delimiter">}</span> @@ -251,8 +251,8 @@ if ('onhashchange' in window) { <span id="L186" class="LineNr"> 186 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s <span id="L187" class="LineNr"> 187 </span> compare done?, <span class="Constant">0</span> <span id="L188" class="LineNr"> 188 </span> <span class="PreProc">break-if-!=</span> -<span id="L189" class="LineNr"> 189 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s -<span id="L190" class="LineNr"> 190 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g +<span id="L189" class="LineNr"> 189 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> s +<span id="L190" class="LineNr"> 190 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, g <span id="L191" class="LineNr"> 191 </span> <span class="PreProc">loop</span> <span id="L192" class="LineNr"> 192 </span> <span class="Delimiter">}</span> <span id="L193" class="LineNr"> 193 </span><span class="Delimiter">}</span> @@ -276,11 +276,11 @@ if ('onhashchange' in window) { <span id="L211" class="LineNr"> 211 </span> <span class="Delimiter">}</span> <span id="L212" class="LineNr"> 212 </span><span class="Delimiter">}</span> <span id="L213" class="LineNr"> 213 </span> -<span id="L214" class="LineNr"> 214 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L214'>print-grapheme</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), c: grapheme <span class="Delimiter">{</span> +<span id="L214" class="LineNr"> 214 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L214'>print-code-point-utf8</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), c: code-point-utf8 <span class="Delimiter">{</span> <span id="L215" class="LineNr"> 215 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> <span id="L216" class="LineNr"> 216 </span> <span class="Delimiter">{</span> <span id="L217" class="LineNr"> 217 </span> <span class="PreProc">break-if-!=</span> -<span id="L218" class="LineNr"> 218 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> c +<span id="L218" class="LineNr"> 218 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> c <span id="L219" class="LineNr"> 219 </span> <span class="PreProc">return</span> <span id="L220" class="LineNr"> 220 </span> <span class="Delimiter">}</span> <span id="L221" class="LineNr"> 221 </span> <span class="muComment"># fake screen</span> @@ -304,7 +304,7 @@ if ('onhashchange' in window) { <span id="L239" class="LineNr"> 239 </span> <span class="PreProc">break-if-<=</span> <span id="L240" class="LineNr"> 240 </span> copy-to *cursor-row-addr, num-rows <span id="L241" class="LineNr"> 241 </span> <span class="muComment"># if (top-index > data size) top-index = 0, otherwise top-index += num-cols</span> -<span id="L242" class="LineNr"> 242 </span> $print-grapheme:perform-scroll: <span class="Delimiter">{</span> +<span id="L242" class="LineNr"> 242 </span> $print-code-point-utf8:perform-scroll: <span class="Delimiter">{</span> <span id="L243" class="LineNr"> 243 </span> <span class="PreProc">var</span> top-index-addr/<span class="muRegEbx">ebx</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, top-index <span id="L244" class="LineNr"> 244 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data <span id="L245" class="LineNr"> 245 </span> <span class="PreProc">var</span> data/eax: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *data-ah @@ -313,7 +313,7 @@ if ('onhashchange' in window) { <span id="L248" class="LineNr"> 248 </span> <span class="Delimiter">{</span> <span id="L249" class="LineNr"> 249 </span> <span class="PreProc">break-if->=</span> <span id="L250" class="LineNr"> 250 </span> add-to *top-index-addr, num-cols -<span id="L251" class="LineNr"> 251 </span> <span class="PreProc">break</span> $print-grapheme:perform-scroll +<span id="L251" class="LineNr"> 251 </span> <span class="PreProc">break</span> $print-code-point-utf8:perform-scroll <span id="L252" class="LineNr"> 252 </span> <span class="Delimiter">}</span> <span id="L253" class="LineNr"> 253 </span> <span class="Delimiter">{</span> <span id="L254" class="LineNr"> 254 </span> <span class="PreProc">break-if-<</span> @@ -322,7 +322,7 @@ if ('onhashchange' in window) { <span id="L257" class="LineNr"> 257 </span> <span class="Delimiter">}</span> <span id="L258" class="LineNr"> 258 </span> <span class="Delimiter">}</span> <span id="L259" class="LineNr"> 259 </span> <span class="PreProc">var</span> idx/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L277'>current-screen-cell-index</a> screen-addr -<span id="L260" class="LineNr"> 260 </span><span class="CommentedCode">#? print-string-to-real-screen "printing grapheme at screen index "</span> +<span id="L260" class="LineNr"> 260 </span><span class="CommentedCode">#? print-string-to-real-screen "printing code-point-utf8 at screen index "</span> <span id="L261" class="LineNr"> 261 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen idx</span> <span id="L262" class="LineNr"> 262 </span><span class="CommentedCode">#? print-string-to-real-screen ": "</span> <span id="L263" class="LineNr"> 263 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data @@ -331,9 +331,9 @@ if ('onhashchange' in window) { <span id="L266" class="LineNr"> 266 </span> <span class="PreProc">var</span> dest-cell/<span class="muRegEcx">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> index data, offset <span id="L267" class="LineNr"> 267 </span> <span class="PreProc">var</span> src-cell/eax: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes <span id="L268" class="LineNr"> 268 </span> copy-object src-cell, dest-cell -<span id="L269" class="LineNr"> 269 </span> <span class="PreProc">var</span> dest/eax: (addr grapheme) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> dest-cell, data -<span id="L270" class="LineNr"> 270 </span> <span class="PreProc">var</span> c2/<span class="muRegEcx">ecx</span>: grapheme <span class="Special"><-</span> copy c -<span id="L271" class="LineNr"> 271 </span><span class="CommentedCode">#? print-grapheme-to-real-screen c2</span> +<span id="L269" class="LineNr"> 269 </span> <span class="PreProc">var</span> dest/eax: (addr code-point-utf8) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> dest-cell, data +<span id="L270" class="LineNr"> 270 </span> <span class="PreProc">var</span> c2/<span class="muRegEcx">ecx</span>: code-point-utf8 <span class="Special"><-</span> copy c +<span id="L271" class="LineNr"> 271 </span><span class="CommentedCode">#? print-code-point-utf8-to-real-screen c2</span> <span id="L272" class="LineNr"> 272 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> <span id="L273" class="LineNr"> 273 </span> copy-to *dest, c2 <span id="L274" class="LineNr"> 274 </span> increment *cursor-col-addr @@ -370,21 +370,21 @@ if ('onhashchange' in window) { <span id="L305" class="LineNr"> 305 </span> <span class="PreProc">return</span> result <span id="L306" class="LineNr"> 306 </span><span class="Delimiter">}</span> <span id="L307" class="LineNr"> 307 </span> -<span id="L308" class="LineNr"> 308 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L308'>screen-grapheme-at</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L308" class="LineNr"> 308 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L308'>screen-code-point-utf8-at</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L309" class="LineNr"> 309 </span> <span class="PreProc">var</span> screen-addr/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack <span id="L310" class="LineNr"> 310 </span> <span class="PreProc">var</span> idx/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> screen-addr, row, col -<span id="L311" class="LineNr"> 311 </span> <span class="PreProc">var</span> result/eax: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> screen-addr, idx +<span id="L311" class="LineNr"> 311 </span> <span class="PreProc">var</span> result/eax: code-point-utf8 <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-code-point-utf8-at-idx</a> screen-addr, idx <span id="L312" class="LineNr"> 312 </span> <span class="PreProc">return</span> result <span id="L313" class="LineNr"> 313 </span><span class="Delimiter">}</span> <span id="L314" class="LineNr"> 314 </span> -<span id="L315" class="LineNr"> 315 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L315" class="LineNr"> 315 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L315'>screen-code-point-utf8-at-idx</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L316" class="LineNr"> 316 </span> <span class="PreProc">var</span> screen-addr/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack <span id="L317" class="LineNr"> 317 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data <span id="L318" class="LineNr"> 318 </span> <span class="PreProc">var</span> data/eax: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *data-ah <span id="L319" class="LineNr"> 319 </span> <span class="PreProc">var</span> idx/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy idx-on-stack <span id="L320" class="LineNr"> 320 </span> <span class="PreProc">var</span> offset/<span class="muRegEcx">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx <span id="L321" class="LineNr"> 321 </span> <span class="PreProc">var</span> cell/eax: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> index data, offset -<span id="L322" class="LineNr"> 322 </span> <span class="PreProc">var</span> src/eax: (addr grapheme) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> cell, data +<span id="L322" class="LineNr"> 322 </span> <span class="PreProc">var</span> src/eax: (addr code-point-utf8) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> cell, data <span id="L323" class="LineNr"> 323 </span> <span class="PreProc">return</span> *src <span id="L324" class="LineNr"> 324 </span><span class="Delimiter">}</span> <span id="L325" class="LineNr"> 325 </span> @@ -498,8 +498,8 @@ if ('onhashchange' in window) { <span id="L433" class="LineNr"> 433 </span><span class="Delimiter">}</span> <span id="L434" class="LineNr"> 434 </span> <span id="L435" class="LineNr"> 435 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L435'>print-code-point</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), c: code-point <span class="Delimiter">{</span> -<span id="L436" class="LineNr"> 436 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> c -<span id="L437" class="LineNr"> 437 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g +<span id="L436" class="LineNr"> 436 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L19'>to-utf8</a> c +<span id="L437" class="LineNr"> 437 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, g <span id="L438" class="LineNr"> 438 </span><span class="Delimiter">}</span> <span id="L439" class="LineNr"> 439 </span> <span id="L440" class="LineNr"> 440 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L440'>print-int32-hex</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), n: int <span class="Delimiter">{</span> @@ -518,8 +518,8 @@ if ('onhashchange' in window) { <span id="L453" class="LineNr"> 453 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2-addr <span id="L454" class="LineNr"> 454 </span> compare done?, <span class="Constant">0</span> <span id="L455" class="LineNr"> 455 </span> <span class="PreProc">break-if-!=</span> -<span id="L456" class="LineNr"> 456 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2-addr -<span id="L457" class="LineNr"> 457 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g +<span id="L456" class="LineNr"> 456 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> s2-addr +<span id="L457" class="LineNr"> 457 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, g <span id="L458" class="LineNr"> 458 </span> <span class="PreProc">loop</span> <span id="L459" class="LineNr"> 459 </span> <span class="Delimiter">}</span> <span id="L460" class="LineNr"> 460 </span><span class="Delimiter">}</span> @@ -540,8 +540,8 @@ if ('onhashchange' in window) { <span id="L475" class="LineNr"> 475 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2-addr <span id="L476" class="LineNr"> 476 </span> compare done?, <span class="Constant">0</span> <span id="L477" class="LineNr"> 477 </span> <span class="PreProc">break-if-!=</span> -<span id="L478" class="LineNr"> 478 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2-addr -<span id="L479" class="LineNr"> 479 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g +<span id="L478" class="LineNr"> 478 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> s2-addr +<span id="L479" class="LineNr"> 479 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, g <span id="L480" class="LineNr"> 480 </span> <span class="PreProc">loop</span> <span id="L481" class="LineNr"> 481 </span> <span class="Delimiter">}</span> <span id="L482" class="LineNr"> 482 </span><span class="Delimiter">}</span> @@ -562,8 +562,8 @@ if ('onhashchange' in window) { <span id="L497" class="LineNr"> 497 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2-addr <span id="L498" class="LineNr"> 498 </span> compare done?, <span class="Constant">0</span> <span id="L499" class="LineNr"> 499 </span> <span class="PreProc">break-if-!=</span> -<span id="L500" class="LineNr"> 500 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2-addr -<span id="L501" class="LineNr"> 501 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g +<span id="L500" class="LineNr"> 500 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> s2-addr +<span id="L501" class="LineNr"> 501 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, g <span id="L502" class="LineNr"> 502 </span> <span class="PreProc">loop</span> <span id="L503" class="LineNr"> 503 </span> <span class="Delimiter">}</span> <span id="L504" class="LineNr"> 504 </span><span class="Delimiter">}</span> @@ -696,7 +696,7 @@ if ('onhashchange' in window) { <span id="L631" class="LineNr"> 631 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L631'>check-screen-row-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> <span id="L632" class="LineNr"> 632 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack <span id="L633" class="LineNr"> 633 </span> <span class="PreProc">var</span> idx/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L634" class="LineNr"> 634 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L634" class="LineNr"> 634 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', code-point-utf8 by code-point-utf8</span> <span id="L635" class="LineNr"> 635 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) <span id="L636" class="LineNr"> 636 </span> <span class="PreProc">var</span> e-addr/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address e <span id="L637" class="LineNr"> 637 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected @@ -704,35 +704,35 @@ if ('onhashchange' in window) { <span id="L639" class="LineNr"> 639 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr <span id="L640" class="LineNr"> 640 </span> compare done?, <span class="Constant">0</span> <span id="L641" class="LineNr"> 641 </span> <span class="PreProc">break-if-!=</span> -<span id="L642" class="LineNr"> 642 </span> <span class="PreProc">var</span> _g/eax: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L643" class="LineNr"> 643 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: grapheme <span class="Special"><-</span> copy _g -<span id="L644" class="LineNr"> 644 </span> <span class="PreProc">var</span> expected-grapheme/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr -<span id="L645" class="LineNr"> 645 </span> <span class="muComment"># compare graphemes</span> -<span id="L646" class="LineNr"> 646 </span> $check-screen-row-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L647" class="LineNr"> 647 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L642" class="LineNr"> 642 </span> <span class="PreProc">var</span> _g/eax: code-point-utf8 <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-code-point-utf8-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L643" class="LineNr"> 643 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: code-point-utf8 <span class="Special"><-</span> copy _g +<span id="L644" class="LineNr"> 644 </span> <span class="PreProc">var</span> expected-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> e-addr +<span id="L645" class="LineNr"> 645 </span> <span class="muComment"># compare code-point-utf8s</span> +<span id="L646" class="LineNr"> 646 </span> $check-screen-row-from:compare-code-point-utf8s: <span class="Delimiter">{</span> +<span id="L647" class="LineNr"> 647 </span> <span class="muComment"># if expected-code-point-utf8 is space, null code-point-utf8 is also ok</span> <span id="L648" class="LineNr"> 648 </span> <span class="Delimiter">{</span> -<span id="L649" class="LineNr"> 649 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L649" class="LineNr"> 649 </span> compare expected-code-point-utf8, <span class="Constant">0x20</span> <span id="L650" class="LineNr"> 650 </span> <span class="PreProc">break-if-!=</span> <span id="L651" class="LineNr"> 651 </span> compare g, <span class="Constant">0</span> -<span id="L652" class="LineNr"> 652 </span> <span class="PreProc">break-if-=</span> $check-screen-row-from:compare-graphemes +<span id="L652" class="LineNr"> 652 </span> <span class="PreProc">break-if-=</span> $check-screen-row-from:compare-code-point-utf8s <span id="L653" class="LineNr"> 653 </span> <span class="Delimiter">}</span> -<span id="L654" class="LineNr"> 654 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L655" class="LineNr"> 655 </span> compare g, expected-grapheme +<span id="L654" class="LineNr"> 654 </span> <span class="muComment"># if (g == expected-code-point-utf8) print "."</span> +<span id="L655" class="LineNr"> 655 </span> compare g, expected-code-point-utf8 <span id="L656" class="LineNr"> 656 </span> <span class="Delimiter">{</span> <span id="L657" class="LineNr"> 657 </span> <span class="PreProc">break-if-!=</span> <span id="L658" class="LineNr"> 658 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L659" class="LineNr"> 659 </span> <span class="PreProc">break</span> $check-screen-row-from:compare-graphemes +<span id="L659" class="LineNr"> 659 </span> <span class="PreProc">break</span> $check-screen-row-from:compare-code-point-utf8s <span id="L660" class="LineNr"> 660 </span> <span class="Delimiter">}</span> <span id="L661" class="LineNr"> 661 </span> <span class="muComment"># otherwise print an error</span> <span id="L662" class="LineNr"> 662 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg <span id="L663" class="LineNr"> 663 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L664" class="LineNr"> 664 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L664" class="LineNr"> 664 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> expected-code-point-utf8 <span id="L665" class="LineNr"> 665 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> <span id="L666" class="LineNr"> 666 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx <span id="L667" class="LineNr"> 667 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> <span id="L668" class="LineNr"> 668 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx <span id="L669" class="LineNr"> 669 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L670" class="LineNr"> 670 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L670" class="LineNr"> 670 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> g <span id="L671" class="LineNr"> 671 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> <span id="L672" class="LineNr"> 672 </span> <span class="Delimiter">}</span> <span id="L673" class="LineNr"> 673 </span> idx <span class="Special"><-</span> increment @@ -750,7 +750,7 @@ if ('onhashchange' in window) { <span id="L685" class="LineNr"> 685 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L685'>check-screen-row-in-color-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), fg: int, row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> <span id="L686" class="LineNr"> 686 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack <span id="L687" class="LineNr"> 687 </span> <span class="PreProc">var</span> idx/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L688" class="LineNr"> 688 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L688" class="LineNr"> 688 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', code-point-utf8 by code-point-utf8</span> <span id="L689" class="LineNr"> 689 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) <span id="L690" class="LineNr"> 690 </span> <span class="PreProc">var</span> e-addr/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address e <span id="L691" class="LineNr"> 691 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected @@ -758,45 +758,45 @@ if ('onhashchange' in window) { <span id="L693" class="LineNr"> 693 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr <span id="L694" class="LineNr"> 694 </span> compare done?, <span class="Constant">0</span> <span id="L695" class="LineNr"> 695 </span> <span class="PreProc">break-if-!=</span> -<span id="L696" class="LineNr"> 696 </span> <span class="PreProc">var</span> _g/eax: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L697" class="LineNr"> 697 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: grapheme <span class="Special"><-</span> copy _g -<span id="L698" class="LineNr"> 698 </span> <span class="PreProc">var</span> _expected-grapheme/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr -<span id="L699" class="LineNr"> 699 </span> <span class="PreProc">var</span> expected-grapheme/<span class="muRegEdi">edi</span>: grapheme <span class="Special"><-</span> copy _expected-grapheme +<span id="L696" class="LineNr"> 696 </span> <span class="PreProc">var</span> _g/eax: code-point-utf8 <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-code-point-utf8-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L697" class="LineNr"> 697 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: code-point-utf8 <span class="Special"><-</span> copy _g +<span id="L698" class="LineNr"> 698 </span> <span class="PreProc">var</span> _expected-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> e-addr +<span id="L699" class="LineNr"> 699 </span> <span class="PreProc">var</span> expected-code-point-utf8/<span class="muRegEdi">edi</span>: code-point-utf8 <span class="Special"><-</span> copy _expected-code-point-utf8 <span id="L700" class="LineNr"> 700 </span> $check-screen-row-in-color-from:compare-cells: <span class="Delimiter">{</span> -<span id="L701" class="LineNr"> 701 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L701" class="LineNr"> 701 </span> <span class="muComment"># if expected-code-point-utf8 is space, null code-point-utf8 is also ok</span> <span id="L702" class="LineNr"> 702 </span> <span class="Delimiter">{</span> -<span id="L703" class="LineNr"> 703 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L703" class="LineNr"> 703 </span> compare expected-code-point-utf8, <span class="Constant">0x20</span> <span id="L704" class="LineNr"> 704 </span> <span class="PreProc">break-if-!=</span> <span id="L705" class="LineNr"> 705 </span> compare g, <span class="Constant">0</span> <span id="L706" class="LineNr"> 706 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-color-from:compare-cells <span id="L707" class="LineNr"> 707 </span> <span class="Delimiter">}</span> -<span id="L708" class="LineNr"> 708 </span> <span class="muComment"># if expected-grapheme is space, a different color is ok</span> +<span id="L708" class="LineNr"> 708 </span> <span class="muComment"># if expected-code-point-utf8 is space, a different color is ok</span> <span id="L709" class="LineNr"> 709 </span> <span class="Delimiter">{</span> -<span id="L710" class="LineNr"> 710 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L710" class="LineNr"> 710 </span> compare expected-code-point-utf8, <span class="Constant">0x20</span> <span id="L711" class="LineNr"> 711 </span> <span class="PreProc">break-if-!=</span> <span id="L712" class="LineNr"> 712 </span> <span class="PreProc">var</span> color/eax: int <span class="Special"><-</span> <a href='405screen.mu.html#L333'>screen-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx <span id="L713" class="LineNr"> 713 </span> compare color, fg <span id="L714" class="LineNr"> 714 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-color-from:compare-cells <span id="L715" class="LineNr"> 715 </span> <span class="Delimiter">}</span> -<span id="L716" class="LineNr"> 716 </span> <span class="muComment"># compare graphemes</span> -<span id="L717" class="LineNr"> 717 </span> $check-screen-row-in-color-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L718" class="LineNr"> 718 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L719" class="LineNr"> 719 </span> compare g, expected-grapheme +<span id="L716" class="LineNr"> 716 </span> <span class="muComment"># compare code-point-utf8s</span> +<span id="L717" class="LineNr"> 717 </span> $check-screen-row-in-color-from:compare-code-point-utf8s: <span class="Delimiter">{</span> +<span id="L718" class="LineNr"> 718 </span> <span class="muComment"># if (g == expected-code-point-utf8) print "."</span> +<span id="L719" class="LineNr"> 719 </span> compare g, expected-code-point-utf8 <span id="L720" class="LineNr"> 720 </span> <span class="Delimiter">{</span> <span id="L721" class="LineNr"> 721 </span> <span class="PreProc">break-if-!=</span> <span id="L722" class="LineNr"> 722 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L723" class="LineNr"> 723 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-graphemes +<span id="L723" class="LineNr"> 723 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-code-point-utf8s <span id="L724" class="LineNr"> 724 </span> <span class="Delimiter">}</span> <span id="L725" class="LineNr"> 725 </span> <span class="muComment"># otherwise print an error</span> <span id="L726" class="LineNr"> 726 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg <span id="L727" class="LineNr"> 727 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L728" class="LineNr"> 728 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L728" class="LineNr"> 728 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> expected-code-point-utf8 <span id="L729" class="LineNr"> 729 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> <span id="L730" class="LineNr"> 730 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx <span id="L731" class="LineNr"> 731 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> <span id="L732" class="LineNr"> 732 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx <span id="L733" class="LineNr"> 733 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L734" class="LineNr"> 734 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L734" class="LineNr"> 734 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> g <span id="L735" class="LineNr"> 735 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> <span id="L736" class="LineNr"> 736 </span> <span class="Delimiter">}</span> <span id="L737" class="LineNr"> 737 </span> $check-screen-row-in-color-from:compare-colors: <span class="Delimiter">{</span> @@ -810,7 +810,7 @@ if ('onhashchange' in window) { <span id="L745" class="LineNr"> 745 </span> <span class="muComment"># otherwise print an error</span> <span id="L746" class="LineNr"> 746 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg <span id="L747" class="LineNr"> 747 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L748" class="LineNr"> 748 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L748" class="LineNr"> 748 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> expected-code-point-utf8 <span id="L749" class="LineNr"> 749 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> <span id="L750" class="LineNr"> 750 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx <span id="L751" class="LineNr"> 751 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> @@ -837,7 +837,7 @@ if ('onhashchange' in window) { <span id="L772" class="LineNr"> 772 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L772'>check-screen-row-in-background-color-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), bg: int, row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> <span id="L773" class="LineNr"> 773 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack <span id="L774" class="LineNr"> 774 </span> <span class="PreProc">var</span> idx/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L775" class="LineNr"> 775 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L775" class="LineNr"> 775 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', code-point-utf8 by code-point-utf8</span> <span id="L776" class="LineNr"> 776 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) <span id="L777" class="LineNr"> 777 </span> <span class="PreProc">var</span> e-addr/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address e <span id="L778" class="LineNr"> 778 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected @@ -845,45 +845,45 @@ if ('onhashchange' in window) { <span id="L780" class="LineNr"> 780 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr <span id="L781" class="LineNr"> 781 </span> compare done?, <span class="Constant">0</span> <span id="L782" class="LineNr"> 782 </span> <span class="PreProc">break-if-!=</span> -<span id="L783" class="LineNr"> 783 </span> <span class="PreProc">var</span> _g/eax: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L784" class="LineNr"> 784 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: grapheme <span class="Special"><-</span> copy _g -<span id="L785" class="LineNr"> 785 </span> <span class="PreProc">var</span> _expected-grapheme/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr -<span id="L786" class="LineNr"> 786 </span> <span class="PreProc">var</span> expected-grapheme/<span class="muRegEdx">edx</span>: grapheme <span class="Special"><-</span> copy _expected-grapheme +<span id="L783" class="LineNr"> 783 </span> <span class="PreProc">var</span> _g/eax: code-point-utf8 <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-code-point-utf8-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L784" class="LineNr"> 784 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: code-point-utf8 <span class="Special"><-</span> copy _g +<span id="L785" class="LineNr"> 785 </span> <span class="PreProc">var</span> _expected-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> e-addr +<span id="L786" class="LineNr"> 786 </span> <span class="PreProc">var</span> expected-code-point-utf8/<span class="muRegEdx">edx</span>: code-point-utf8 <span class="Special"><-</span> copy _expected-code-point-utf8 <span id="L787" class="LineNr"> 787 </span> $check-screen-row-in-background-color-from:compare-cells: <span class="Delimiter">{</span> -<span id="L788" class="LineNr"> 788 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L788" class="LineNr"> 788 </span> <span class="muComment"># if expected-code-point-utf8 is space, null code-point-utf8 is also ok</span> <span id="L789" class="LineNr"> 789 </span> <span class="Delimiter">{</span> -<span id="L790" class="LineNr"> 790 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L790" class="LineNr"> 790 </span> compare expected-code-point-utf8, <span class="Constant">0x20</span> <span id="L791" class="LineNr"> 791 </span> <span class="PreProc">break-if-!=</span> <span id="L792" class="LineNr"> 792 </span> compare g, <span class="Constant">0</span> <span id="L793" class="LineNr"> 793 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-background-color-from:compare-cells <span id="L794" class="LineNr"> 794 </span> <span class="Delimiter">}</span> -<span id="L795" class="LineNr"> 795 </span> <span class="muComment"># if expected-grapheme is space, a different color is ok</span> +<span id="L795" class="LineNr"> 795 </span> <span class="muComment"># if expected-code-point-utf8 is space, a different color is ok</span> <span id="L796" class="LineNr"> 796 </span> <span class="Delimiter">{</span> -<span id="L797" class="LineNr"> 797 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L797" class="LineNr"> 797 </span> compare expected-code-point-utf8, <span class="Constant">0x20</span> <span id="L798" class="LineNr"> 798 </span> <span class="PreProc">break-if-!=</span> <span id="L799" class="LineNr"> 799 </span> <span class="PreProc">var</span> color/eax: int <span class="Special"><-</span> <a href='405screen.mu.html#L352'>screen-background-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx <span id="L800" class="LineNr"> 800 </span> compare color, bg <span id="L801" class="LineNr"> 801 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-background-color-from:compare-cells <span id="L802" class="LineNr"> 802 </span> <span class="Delimiter">}</span> -<span id="L803" class="LineNr"> 803 </span> <span class="muComment"># compare graphemes</span> -<span id="L804" class="LineNr"> 804 </span> $check-screen-row-in-background-color-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L805" class="LineNr"> 805 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L806" class="LineNr"> 806 </span> compare g, expected-grapheme +<span id="L803" class="LineNr"> 803 </span> <span class="muComment"># compare code-point-utf8s</span> +<span id="L804" class="LineNr"> 804 </span> $check-screen-row-in-background-color-from:compare-code-point-utf8s: <span class="Delimiter">{</span> +<span id="L805" class="LineNr"> 805 </span> <span class="muComment"># if (g == expected-code-point-utf8) print "."</span> +<span id="L806" class="LineNr"> 806 </span> compare g, expected-code-point-utf8 <span id="L807" class="LineNr"> 807 </span> <span class="Delimiter">{</span> <span id="L808" class="LineNr"> 808 </span> <span class="PreProc">break-if-!=</span> <span id="L809" class="LineNr"> 809 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L810" class="LineNr"> 810 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-graphemes +<span id="L810" class="LineNr"> 810 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-code-point-utf8s <span id="L811" class="LineNr"> 811 </span> <span class="Delimiter">}</span> <span id="L812" class="LineNr"> 812 </span> <span class="muComment"># otherwise print an error</span> <span id="L813" class="LineNr"> 813 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg <span id="L814" class="LineNr"> 814 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L815" class="LineNr"> 815 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L815" class="LineNr"> 815 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> expected-code-point-utf8 <span id="L816" class="LineNr"> 816 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> <span id="L817" class="LineNr"> 817 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx <span id="L818" class="LineNr"> 818 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> <span id="L819" class="LineNr"> 819 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx <span id="L820" class="LineNr"> 820 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L821" class="LineNr"> 821 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L821" class="LineNr"> 821 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> g <span id="L822" class="LineNr"> 822 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> <span id="L823" class="LineNr"> 823 </span> <span class="Delimiter">}</span> <span id="L824" class="LineNr"> 824 </span> $check-screen-row-in-background-color-from:compare-colors: <span class="Delimiter">{</span> @@ -897,7 +897,7 @@ if ('onhashchange' in window) { <span id="L832" class="LineNr"> 832 </span> <span class="muComment"># otherwise print an error</span> <span id="L833" class="LineNr"> 833 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg <span id="L834" class="LineNr"> 834 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L835" class="LineNr"> 835 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L835" class="LineNr"> 835 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> expected-code-point-utf8 <span id="L836" class="LineNr"> 836 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> <span id="L837" class="LineNr"> 837 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx <span id="L838" class="LineNr"> 838 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> @@ -922,7 +922,7 @@ if ('onhashchange' in window) { <span id="L857" class="LineNr"> 857 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L857'>check-screen-row-in-bold-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> <span id="L858" class="LineNr"> 858 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack <span id="L859" class="LineNr"> 859 </span> <span class="PreProc">var</span> idx/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L860" class="LineNr"> 860 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L860" class="LineNr"> 860 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', code-point-utf8 by code-point-utf8</span> <span id="L861" class="LineNr"> 861 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) <span id="L862" class="LineNr"> 862 </span> <span class="PreProc">var</span> e-addr/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address e <span id="L863" class="LineNr"> 863 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected @@ -930,45 +930,45 @@ if ('onhashchange' in window) { <span id="L865" class="LineNr"> 865 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr <span id="L866" class="LineNr"> 866 </span> compare done?, <span class="Constant">0</span> <span id="L867" class="LineNr"> 867 </span> <span class="PreProc">break-if-!=</span> -<span id="L868" class="LineNr"> 868 </span> <span class="PreProc">var</span> _g/eax: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L869" class="LineNr"> 869 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: grapheme <span class="Special"><-</span> copy _g -<span id="L870" class="LineNr"> 870 </span> <span class="PreProc">var</span> _expected-grapheme/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr -<span id="L871" class="LineNr"> 871 </span> <span class="PreProc">var</span> expected-grapheme/<span class="muRegEdx">edx</span>: grapheme <span class="Special"><-</span> copy _expected-grapheme +<span id="L868" class="LineNr"> 868 </span> <span class="PreProc">var</span> _g/eax: code-point-utf8 <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-code-point-utf8-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L869" class="LineNr"> 869 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: code-point-utf8 <span class="Special"><-</span> copy _g +<span id="L870" class="LineNr"> 870 </span> <span class="PreProc">var</span> _expected-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> e-addr +<span id="L871" class="LineNr"> 871 </span> <span class="PreProc">var</span> expected-code-point-utf8/<span class="muRegEdx">edx</span>: code-point-utf8 <span class="Special"><-</span> copy _expected-code-point-utf8 <span id="L872" class="LineNr"> 872 </span> $check-screen-row-in-bold-from:compare-cells: <span class="Delimiter">{</span> -<span id="L873" class="LineNr"> 873 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L873" class="LineNr"> 873 </span> <span class="muComment"># if expected-code-point-utf8 is space, null code-point-utf8 is also ok</span> <span id="L874" class="LineNr"> 874 </span> <span class="Delimiter">{</span> -<span id="L875" class="LineNr"> 875 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L875" class="LineNr"> 875 </span> compare expected-code-point-utf8, <span class="Constant">0x20</span> <span id="L876" class="LineNr"> 876 </span> <span class="PreProc">break-if-!=</span> <span id="L877" class="LineNr"> 877 </span> compare g, <span class="Constant">0</span> <span id="L878" class="LineNr"> 878 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-bold-from:compare-cells <span id="L879" class="LineNr"> 879 </span> <span class="Delimiter">}</span> -<span id="L880" class="LineNr"> 880 </span> <span class="muComment"># if expected-grapheme is space, non-bold is ok</span> +<span id="L880" class="LineNr"> 880 </span> <span class="muComment"># if expected-code-point-utf8 is space, non-bold is ok</span> <span id="L881" class="LineNr"> 881 </span> <span class="Delimiter">{</span> -<span id="L882" class="LineNr"> 882 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L882" class="LineNr"> 882 </span> compare expected-code-point-utf8, <span class="Constant">0x20</span> <span id="L883" class="LineNr"> 883 </span> <span class="PreProc">break-if-!=</span> <span id="L884" class="LineNr"> 884 </span> <span class="PreProc">var</span> bold?/eax: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L370'>screen-bold-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx <span id="L885" class="LineNr"> 885 </span> compare bold?, <span class="Constant">1</span> <span id="L886" class="LineNr"> 886 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-bold-from:compare-cells <span id="L887" class="LineNr"> 887 </span> <span class="Delimiter">}</span> -<span id="L888" class="LineNr"> 888 </span> <span class="muComment"># compare graphemes</span> -<span id="L889" class="LineNr"> 889 </span> $check-screen-row-in-bold-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L890" class="LineNr"> 890 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L891" class="LineNr"> 891 </span> compare g, expected-grapheme +<span id="L888" class="LineNr"> 888 </span> <span class="muComment"># compare code-point-utf8s</span> +<span id="L889" class="LineNr"> 889 </span> $check-screen-row-in-bold-from:compare-code-point-utf8s: <span class="Delimiter">{</span> +<span id="L890" class="LineNr"> 890 </span> <span class="muComment"># if (g == expected-code-point-utf8) print "."</span> +<span id="L891" class="LineNr"> 891 </span> compare g, expected-code-point-utf8 <span id="L892" class="LineNr"> 892 </span> <span class="Delimiter">{</span> <span id="L893" class="LineNr"> 893 </span> <span class="PreProc">break-if-!=</span> <span id="L894" class="LineNr"> 894 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L895" class="LineNr"> 895 </span> <span class="PreProc">break</span> $check-screen-row-in-bold-from:compare-graphemes +<span id="L895" class="LineNr"> 895 </span> <span class="PreProc">break</span> $check-screen-row-in-bold-from:compare-code-point-utf8s <span id="L896" class="LineNr"> 896 </span> <span class="Delimiter">}</span> <span id="L897" class="LineNr"> 897 </span> <span class="muComment"># otherwise print an error</span> <span id="L898" class="LineNr"> 898 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg <span id="L899" class="LineNr"> 899 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L900" class="LineNr"> 900 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L900" class="LineNr"> 900 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> expected-code-point-utf8 <span id="L901" class="LineNr"> 901 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> <span id="L902" class="LineNr"> 902 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx <span id="L903" class="LineNr"> 903 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> <span id="L904" class="LineNr"> 904 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx <span id="L905" class="LineNr"> 905 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L906" class="LineNr"> 906 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L906" class="LineNr"> 906 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> g <span id="L907" class="LineNr"> 907 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> <span id="L908" class="LineNr"> 908 </span> <span class="Delimiter">}</span> <span id="L909" class="LineNr"> 909 </span> $check-screen-row-in-bold-from:compare-bold: <span class="Delimiter">{</span> @@ -982,7 +982,7 @@ if ('onhashchange' in window) { <span id="L917" class="LineNr"> 917 </span> <span class="muComment"># otherwise print an error</span> <span id="L918" class="LineNr"> 918 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg <span id="L919" class="LineNr"> 919 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L920" class="LineNr"> 920 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L920" class="LineNr"> 920 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> expected-code-point-utf8 <span id="L921" class="LineNr"> 921 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> <span id="L922" class="LineNr"> 922 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx <span id="L923" class="LineNr"> 923 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> @@ -1003,7 +1003,7 @@ if ('onhashchange' in window) { <span id="L938" class="LineNr"> 938 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L938'>check-screen-row-in-underline-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> <span id="L939" class="LineNr"> 939 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack <span id="L940" class="LineNr"> 940 </span> <span class="PreProc">var</span> idx/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L941" class="LineNr"> 941 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L941" class="LineNr"> 941 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', code-point-utf8 by code-point-utf8</span> <span id="L942" class="LineNr"> 942 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) <span id="L943" class="LineNr"> 943 </span> <span class="PreProc">var</span> e-addr/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address e <span id="L944" class="LineNr"> 944 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected @@ -1011,45 +1011,45 @@ if ('onhashchange' in window) { <span id="L946" class="LineNr"> 946 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr <span id="L947" class="LineNr"> 947 </span> compare done?, <span class="Constant">0</span> <span id="L948" class="LineNr"> 948 </span> <span class="PreProc">break-if-!=</span> -<span id="L949" class="LineNr"> 949 </span> <span class="PreProc">var</span> _g/eax: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L950" class="LineNr"> 950 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: grapheme <span class="Special"><-</span> copy _g -<span id="L951" class="LineNr"> 951 </span> <span class="PreProc">var</span> _expected-grapheme/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr -<span id="L952" class="LineNr"> 952 </span> <span class="PreProc">var</span> expected-grapheme/<span class="muRegEdx">edx</span>: grapheme <span class="Special"><-</span> copy _expected-grapheme +<span id="L949" class="LineNr"> 949 </span> <span class="PreProc">var</span> _g/eax: code-point-utf8 <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-code-point-utf8-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L950" class="LineNr"> 950 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: code-point-utf8 <span class="Special"><-</span> copy _g +<span id="L951" class="LineNr"> 951 </span> <span class="PreProc">var</span> _expected-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> e-addr +<span id="L952" class="LineNr"> 952 </span> <span class="PreProc">var</span> expected-code-point-utf8/<span class="muRegEdx">edx</span>: code-point-utf8 <span class="Special"><-</span> copy _expected-code-point-utf8 <span id="L953" class="LineNr"> 953 </span> $check-screen-row-in-underline-from:compare-cells: <span class="Delimiter">{</span> -<span id="L954" class="LineNr"> 954 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L954" class="LineNr"> 954 </span> <span class="muComment"># if expected-code-point-utf8 is space, null code-point-utf8 is also ok</span> <span id="L955" class="LineNr"> 955 </span> <span class="Delimiter">{</span> -<span id="L956" class="LineNr"> 956 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L956" class="LineNr"> 956 </span> compare expected-code-point-utf8, <span class="Constant">0x20</span> <span id="L957" class="LineNr"> 957 </span> <span class="PreProc">break-if-!=</span> <span id="L958" class="LineNr"> 958 </span> compare g, <span class="Constant">0</span> <span id="L959" class="LineNr"> 959 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-underline-from:compare-cells <span id="L960" class="LineNr"> 960 </span> <span class="Delimiter">}</span> -<span id="L961" class="LineNr"> 961 </span> <span class="muComment"># if expected-grapheme is space, non-underline is ok</span> +<span id="L961" class="LineNr"> 961 </span> <span class="muComment"># if expected-code-point-utf8 is space, non-underline is ok</span> <span id="L962" class="LineNr"> 962 </span> <span class="Delimiter">{</span> -<span id="L963" class="LineNr"> 963 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L963" class="LineNr"> 963 </span> compare expected-code-point-utf8, <span class="Constant">0x20</span> <span id="L964" class="LineNr"> 964 </span> <span class="PreProc">break-if-!=</span> <span id="L965" class="LineNr"> 965 </span> <span class="PreProc">var</span> underline?/eax: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L388'>screen-underline-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx <span id="L966" class="LineNr"> 966 </span> compare underline?, <span class="Constant">1</span> <span id="L967" class="LineNr"> 967 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-underline-from:compare-cells <span id="L968" class="LineNr"> 968 </span> <span class="Delimiter">}</span> -<span id="L969" class="LineNr"> 969 </span> <span class="muComment"># compare graphemes</span> -<span id="L970" class="LineNr"> 970 </span> $check-screen-row-in-underline-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L971" class="LineNr"> 971 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L972" class="LineNr"> 972 </span> compare g, expected-grapheme +<span id="L969" class="LineNr"> 969 </span> <span class="muComment"># compare code-point-utf8s</span> +<span id="L970" class="LineNr"> 970 </span> $check-screen-row-in-underline-from:compare-code-point-utf8s: <span class="Delimiter">{</span> +<span id="L971" class="LineNr"> 971 </span> <span class="muComment"># if (g == expected-code-point-utf8) print "."</span> +<span id="L972" class="LineNr"> 972 </span> compare g, expected-code-point-utf8 <span id="L973" class="LineNr"> 973 </span> <span class="Delimiter">{</span> <span id="L974" class="LineNr"> 974 </span> <span class="PreProc">break-if-!=</span> <span id="L975" class="LineNr"> 975 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L976" class="LineNr"> 976 </span> <span class="PreProc">break</span> $check-screen-row-in-underline-from:compare-graphemes +<span id="L976" class="LineNr"> 976 </span> <span class="PreProc">break</span> $check-screen-row-in-underline-from:compare-code-point-utf8s <span id="L977" class="LineNr"> 977 </span> <span class="Delimiter">}</span> <span id="L978" class="LineNr"> 978 </span> <span class="muComment"># otherwise print an error</span> <span id="L979" class="LineNr"> 979 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg <span id="L980" class="LineNr"> 980 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L981" class="LineNr"> 981 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L981" class="LineNr"> 981 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> expected-code-point-utf8 <span id="L982" class="LineNr"> 982 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> <span id="L983" class="LineNr"> 983 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx <span id="L984" class="LineNr"> 984 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> <span id="L985" class="LineNr"> 985 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx <span id="L986" class="LineNr"> 986 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L987" class="LineNr"> 987 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L987" class="LineNr"> 987 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> g <span id="L988" class="LineNr"> 988 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> <span id="L989" class="LineNr"> 989 </span> <span class="Delimiter">}</span> <span id="L990" class="LineNr"> 990 </span> $check-screen-row-in-underline-from:compare-underline: <span class="Delimiter">{</span> @@ -1063,7 +1063,7 @@ if ('onhashchange' in window) { <span id="L998" class="LineNr"> 998 </span> <span class="muComment"># otherwise print an error</span> <span id="L999" class="LineNr"> 999 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg <span id="L1000" class="LineNr">1000 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L1001" class="LineNr">1001 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1001" class="LineNr">1001 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> expected-code-point-utf8 <span id="L1002" class="LineNr">1002 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> <span id="L1003" class="LineNr">1003 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx <span id="L1004" class="LineNr">1004 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> @@ -1084,7 +1084,7 @@ if ('onhashchange' in window) { <span id="L1019" class="LineNr">1019 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1019'>check-screen-row-in-reverse-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> <span id="L1020" class="LineNr">1020 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack <span id="L1021" class="LineNr">1021 </span> <span class="PreProc">var</span> idx/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L1022" class="LineNr">1022 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L1022" class="LineNr">1022 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', code-point-utf8 by code-point-utf8</span> <span id="L1023" class="LineNr">1023 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) <span id="L1024" class="LineNr">1024 </span> <span class="PreProc">var</span> e-addr/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address e <span id="L1025" class="LineNr">1025 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected @@ -1092,45 +1092,45 @@ if ('onhashchange' in window) { <span id="L1027" class="LineNr">1027 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr <span id="L1028" class="LineNr">1028 </span> compare done?, <span class="Constant">0</span> <span id="L1029" class="LineNr">1029 </span> <span class="PreProc">break-if-!=</span> -<span id="L1030" class="LineNr">1030 </span> <span class="PreProc">var</span> _g/eax: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L1031" class="LineNr">1031 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: grapheme <span class="Special"><-</span> copy _g -<span id="L1032" class="LineNr">1032 </span> <span class="PreProc">var</span> _expected-grapheme/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr -<span id="L1033" class="LineNr">1033 </span> <span class="PreProc">var</span> expected-grapheme/<span class="muRegEdx">edx</span>: grapheme <span class="Special"><-</span> copy _expected-grapheme +<span id="L1030" class="LineNr">1030 </span> <span class="PreProc">var</span> _g/eax: code-point-utf8 <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-code-point-utf8-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L1031" class="LineNr">1031 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: code-point-utf8 <span class="Special"><-</span> copy _g +<span id="L1032" class="LineNr">1032 </span> <span class="PreProc">var</span> _expected-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> e-addr +<span id="L1033" class="LineNr">1033 </span> <span class="PreProc">var</span> expected-code-point-utf8/<span class="muRegEdx">edx</span>: code-point-utf8 <span class="Special"><-</span> copy _expected-code-point-utf8 <span id="L1034" class="LineNr">1034 </span> $check-screen-row-in-reverse-from:compare-cells: <span class="Delimiter">{</span> -<span id="L1035" class="LineNr">1035 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L1035" class="LineNr">1035 </span> <span class="muComment"># if expected-code-point-utf8 is space, null code-point-utf8 is also ok</span> <span id="L1036" class="LineNr">1036 </span> <span class="Delimiter">{</span> -<span id="L1037" class="LineNr">1037 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L1037" class="LineNr">1037 </span> compare expected-code-point-utf8, <span class="Constant">0x20</span> <span id="L1038" class="LineNr">1038 </span> <span class="PreProc">break-if-!=</span> <span id="L1039" class="LineNr">1039 </span> compare g, <span class="Constant">0</span> <span id="L1040" class="LineNr">1040 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-reverse-from:compare-cells <span id="L1041" class="LineNr">1041 </span> <span class="Delimiter">}</span> -<span id="L1042" class="LineNr">1042 </span> <span class="muComment"># if expected-grapheme is space, non-reverse is ok</span> +<span id="L1042" class="LineNr">1042 </span> <span class="muComment"># if expected-code-point-utf8 is space, non-reverse is ok</span> <span id="L1043" class="LineNr">1043 </span> <span class="Delimiter">{</span> -<span id="L1044" class="LineNr">1044 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L1044" class="LineNr">1044 </span> compare expected-code-point-utf8, <span class="Constant">0x20</span> <span id="L1045" class="LineNr">1045 </span> <span class="PreProc">break-if-!=</span> <span id="L1046" class="LineNr">1046 </span> <span class="PreProc">var</span> reverse?/eax: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L406'>screen-reverse-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx <span id="L1047" class="LineNr">1047 </span> compare reverse?, <span class="Constant">1</span> <span id="L1048" class="LineNr">1048 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-reverse-from:compare-cells <span id="L1049" class="LineNr">1049 </span> <span class="Delimiter">}</span> -<span id="L1050" class="LineNr">1050 </span> <span class="muComment"># compare graphemes</span> -<span id="L1051" class="LineNr">1051 </span> $check-screen-row-in-reverse-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L1052" class="LineNr">1052 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L1053" class="LineNr">1053 </span> compare g, expected-grapheme +<span id="L1050" class="LineNr">1050 </span> <span class="muComment"># compare code-point-utf8s</span> +<span id="L1051" class="LineNr">1051 </span> $check-screen-row-in-reverse-from:compare-code-point-utf8s: <span class="Delimiter">{</span> +<span id="L1052" class="LineNr">1052 </span> <span class="muComment"># if (g == expected-code-point-utf8) print "."</span> +<span id="L1053" class="LineNr">1053 </span> compare g, expected-code-point-utf8 <span id="L1054" class="LineNr">1054 </span> <span class="Delimiter">{</span> <span id="L1055" class="LineNr">1055 </span> <span class="PreProc">break-if-!=</span> <span id="L1056" class="LineNr">1056 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L1057" class="LineNr">1057 </span> <span class="PreProc">break</span> $check-screen-row-in-reverse-from:compare-graphemes +<span id="L1057" class="LineNr">1057 </span> <span class="PreProc">break</span> $check-screen-row-in-reverse-from:compare-code-point-utf8s <span id="L1058" class="LineNr">1058 </span> <span class="Delimiter">}</span> <span id="L1059" class="LineNr">1059 </span> <span class="muComment"># otherwise print an error</span> <span id="L1060" class="LineNr">1060 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg <span id="L1061" class="LineNr">1061 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L1062" class="LineNr">1062 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1062" class="LineNr">1062 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> expected-code-point-utf8 <span id="L1063" class="LineNr">1063 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> <span id="L1064" class="LineNr">1064 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx <span id="L1065" class="LineNr">1065 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> <span id="L1066" class="LineNr">1066 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx <span id="L1067" class="LineNr">1067 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L1068" class="LineNr">1068 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L1068" class="LineNr">1068 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> g <span id="L1069" class="LineNr">1069 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> <span id="L1070" class="LineNr">1070 </span> <span class="Delimiter">}</span> <span id="L1071" class="LineNr">1071 </span> $check-screen-row-in-reverse-from:compare-reverse: <span class="Delimiter">{</span> @@ -1144,7 +1144,7 @@ if ('onhashchange' in window) { <span id="L1079" class="LineNr">1079 </span> <span class="muComment"># otherwise print an error</span> <span id="L1080" class="LineNr">1080 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg <span id="L1081" class="LineNr">1081 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L1082" class="LineNr">1082 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1082" class="LineNr">1082 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> expected-code-point-utf8 <span id="L1083" class="LineNr">1083 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> <span id="L1084" class="LineNr">1084 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx <span id="L1085" class="LineNr">1085 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> @@ -1165,7 +1165,7 @@ if ('onhashchange' in window) { <span id="L1100" class="LineNr">1100 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1100'>check-screen-row-in-blinking-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> <span id="L1101" class="LineNr">1101 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack <span id="L1102" class="LineNr">1102 </span> <span class="PreProc">var</span> idx/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L1103" class="LineNr">1103 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L1103" class="LineNr">1103 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', code-point-utf8 by code-point-utf8</span> <span id="L1104" class="LineNr">1104 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) <span id="L1105" class="LineNr">1105 </span> <span class="PreProc">var</span> e-addr/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address e <span id="L1106" class="LineNr">1106 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected @@ -1173,45 +1173,45 @@ if ('onhashchange' in window) { <span id="L1108" class="LineNr">1108 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr <span id="L1109" class="LineNr">1109 </span> compare done?, <span class="Constant">0</span> <span id="L1110" class="LineNr">1110 </span> <span class="PreProc">break-if-!=</span> -<span id="L1111" class="LineNr">1111 </span> <span class="PreProc">var</span> _g/eax: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L1112" class="LineNr">1112 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: grapheme <span class="Special"><-</span> copy _g -<span id="L1113" class="LineNr">1113 </span> <span class="PreProc">var</span> _expected-grapheme/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr -<span id="L1114" class="LineNr">1114 </span> <span class="PreProc">var</span> expected-grapheme/<span class="muRegEdx">edx</span>: grapheme <span class="Special"><-</span> copy _expected-grapheme +<span id="L1111" class="LineNr">1111 </span> <span class="PreProc">var</span> _g/eax: code-point-utf8 <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-code-point-utf8-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L1112" class="LineNr">1112 </span> <span class="PreProc">var</span> g/<span class="muRegEbx">ebx</span>: code-point-utf8 <span class="Special"><-</span> copy _g +<span id="L1113" class="LineNr">1113 </span> <span class="PreProc">var</span> _expected-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> e-addr +<span id="L1114" class="LineNr">1114 </span> <span class="PreProc">var</span> expected-code-point-utf8/<span class="muRegEdx">edx</span>: code-point-utf8 <span class="Special"><-</span> copy _expected-code-point-utf8 <span id="L1115" class="LineNr">1115 </span> $check-screen-row-in-blinking-from:compare-cells: <span class="Delimiter">{</span> -<span id="L1116" class="LineNr">1116 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L1116" class="LineNr">1116 </span> <span class="muComment"># if expected-code-point-utf8 is space, null code-point-utf8 is also ok</span> <span id="L1117" class="LineNr">1117 </span> <span class="Delimiter">{</span> -<span id="L1118" class="LineNr">1118 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L1118" class="LineNr">1118 </span> compare expected-code-point-utf8, <span class="Constant">0x20</span> <span id="L1119" class="LineNr">1119 </span> <span class="PreProc">break-if-!=</span> <span id="L1120" class="LineNr">1120 </span> compare g, <span class="Constant">0</span> <span id="L1121" class="LineNr">1121 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-blinking-from:compare-cells <span id="L1122" class="LineNr">1122 </span> <span class="Delimiter">}</span> -<span id="L1123" class="LineNr">1123 </span> <span class="muComment"># if expected-grapheme is space, non-blinking is ok</span> +<span id="L1123" class="LineNr">1123 </span> <span class="muComment"># if expected-code-point-utf8 is space, non-blinking is ok</span> <span id="L1124" class="LineNr">1124 </span> <span class="Delimiter">{</span> -<span id="L1125" class="LineNr">1125 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L1125" class="LineNr">1125 </span> compare expected-code-point-utf8, <span class="Constant">0x20</span> <span id="L1126" class="LineNr">1126 </span> <span class="PreProc">break-if-!=</span> <span id="L1127" class="LineNr">1127 </span> <span class="PreProc">var</span> blinking?/eax: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L424'>screen-blink-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx <span id="L1128" class="LineNr">1128 </span> compare blinking?, <span class="Constant">1</span> <span id="L1129" class="LineNr">1129 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-blinking-from:compare-cells <span id="L1130" class="LineNr">1130 </span> <span class="Delimiter">}</span> -<span id="L1131" class="LineNr">1131 </span> <span class="muComment"># compare graphemes</span> -<span id="L1132" class="LineNr">1132 </span> $check-screen-row-in-blinking-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L1133" class="LineNr">1133 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L1134" class="LineNr">1134 </span> compare g, expected-grapheme +<span id="L1131" class="LineNr">1131 </span> <span class="muComment"># compare code-point-utf8s</span> +<span id="L1132" class="LineNr">1132 </span> $check-screen-row-in-blinking-from:compare-code-point-utf8s: <span class="Delimiter">{</span> +<span id="L1133" class="LineNr">1133 </span> <span class="muComment"># if (g == expected-code-point-utf8) print "."</span> +<span id="L1134" class="LineNr">1134 </span> compare g, expected-code-point-utf8 <span id="L1135" class="LineNr">1135 </span> <span class="Delimiter">{</span> <span id="L1136" class="LineNr">1136 </span> <span class="PreProc">break-if-!=</span> <span id="L1137" class="LineNr">1137 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L1138" class="LineNr">1138 </span> <span class="PreProc">break</span> $check-screen-row-in-blinking-from:compare-graphemes +<span id="L1138" class="LineNr">1138 </span> <span class="PreProc">break</span> $check-screen-row-in-blinking-from:compare-code-point-utf8s <span id="L1139" class="LineNr">1139 </span> <span class="Delimiter">}</span> <span id="L1140" class="LineNr">1140 </span> <span class="muComment"># otherwise print an error</span> <span id="L1141" class="LineNr">1141 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg <span id="L1142" class="LineNr">1142 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L1143" class="LineNr">1143 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1143" class="LineNr">1143 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> expected-code-point-utf8 <span id="L1144" class="LineNr">1144 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> <span id="L1145" class="LineNr">1145 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx <span id="L1146" class="LineNr">1146 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> <span id="L1147" class="LineNr">1147 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx <span id="L1148" class="LineNr">1148 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L1149" class="LineNr">1149 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L1149" class="LineNr">1149 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> g <span id="L1150" class="LineNr">1150 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> <span id="L1151" class="LineNr">1151 </span> <span class="Delimiter">}</span> <span id="L1152" class="LineNr">1152 </span> $check-screen-row-in-blinking-from:compare-blinking: <span class="Delimiter">{</span> @@ -1225,7 +1225,7 @@ if ('onhashchange' in window) { <span id="L1160" class="LineNr">1160 </span> <span class="muComment"># otherwise print an error</span> <span id="L1161" class="LineNr">1161 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg <span id="L1162" class="LineNr">1162 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L1163" class="LineNr">1163 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1163" class="LineNr">1163 </span> <a href='304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> expected-code-point-utf8 <span id="L1164" class="LineNr">1164 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> <span id="L1165" class="LineNr">1165 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx <span id="L1166" class="LineNr">1166 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> @@ -1240,21 +1240,21 @@ if ('onhashchange' in window) { <span id="L1175" class="LineNr">1175 </span> <span class="Delimiter">}</span> <span id="L1176" class="LineNr">1176 </span><span class="Delimiter">}</span> <span id="L1177" class="LineNr">1177 </span> -<span id="L1178" class="LineNr">1178 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1178'>test-print-single-grapheme</a></span> <span class="Delimiter">{</span> +<span id="L1178" class="LineNr">1178 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1178'>test-print-single-code-point-utf8</a></span> <span class="Delimiter">{</span> <span id="L1179" class="LineNr">1179 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> <span id="L1180" class="LineNr">1180 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1181" class="LineNr">1181 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols -<span id="L1182" class="LineNr">1182 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1183" class="LineNr">1183 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1184" class="LineNr">1184 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a"</span>, <span class="Constant">"F - test-print-single-grapheme"</span> <span class="muComment"># top-left corner of the screen</span> +<span id="L1182" class="LineNr">1182 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1183" class="LineNr">1183 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1184" class="LineNr">1184 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a"</span>, <span class="Constant">"F - test-print-single-code-point-utf8"</span> <span class="muComment"># top-left corner of the screen</span> <span id="L1185" class="LineNr">1185 </span><span class="Delimiter">}</span> <span id="L1186" class="LineNr">1186 </span> -<span id="L1187" class="LineNr">1187 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1187'>test-print-multiple-graphemes</a></span> <span class="Delimiter">{</span> +<span id="L1187" class="LineNr">1187 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1187'>test-print-multiple-code-point-utf8s</a></span> <span class="Delimiter">{</span> <span id="L1188" class="LineNr">1188 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> <span id="L1189" class="LineNr">1189 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1190" class="LineNr">1190 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols <span id="L1191" class="LineNr">1191 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"Hello, 世界"</span> -<span id="L1192" class="LineNr">1192 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">"F - test-print-multiple-graphemes"</span> +<span id="L1192" class="LineNr">1192 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">"F - test-print-multiple-code-point-utf8s"</span> <span id="L1193" class="LineNr">1193 </span><span class="Delimiter">}</span> <span id="L1194" class="LineNr">1194 </span> <span id="L1195" class="LineNr">1195 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1195'>test-move-cursor</a></span> <span class="Delimiter">{</span> @@ -1262,8 +1262,8 @@ if ('onhashchange' in window) { <span id="L1197" class="LineNr">1197 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1198" class="LineNr">1198 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols <span id="L1199" class="LineNr">1199 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span> -<span id="L1200" class="LineNr">1200 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1201" class="LineNr">1201 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1200" class="LineNr">1200 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1201" class="LineNr">1201 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1202" class="LineNr">1202 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor"</span> <span class="muComment"># top row</span> <span id="L1203" class="LineNr">1203 </span><span class="Delimiter">}</span> <span id="L1204" class="LineNr">1204 </span> @@ -1272,8 +1272,8 @@ if ('onhashchange' in window) { <span id="L1207" class="LineNr">1207 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1208" class="LineNr">1208 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols <span id="L1209" class="LineNr">1209 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0</span> -<span id="L1210" class="LineNr">1210 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1211" class="LineNr">1211 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1210" class="LineNr">1210 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1211" class="LineNr">1211 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1212" class="LineNr">1212 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-zeroes"</span> <span class="muComment"># top-left corner of the screen</span> <span id="L1213" class="LineNr">1213 </span><span class="Delimiter">}</span> <span id="L1214" class="LineNr">1214 </span> @@ -1282,8 +1282,8 @@ if ('onhashchange' in window) { <span id="L1217" class="LineNr">1217 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1218" class="LineNr">1218 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols <span id="L1219" class="LineNr">1219 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">2</span> -<span id="L1220" class="LineNr">1220 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1221" class="LineNr">1221 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1220" class="LineNr">1220 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1221" class="LineNr">1221 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1222" class="LineNr">1222 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor-zero-row"</span> <span class="muComment"># top row</span> <span id="L1223" class="LineNr">1223 </span><span class="Delimiter">}</span> <span id="L1224" class="LineNr">1224 </span> @@ -1292,8 +1292,8 @@ if ('onhashchange' in window) { <span id="L1227" class="LineNr">1227 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1228" class="LineNr">1228 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols <span id="L1229" class="LineNr">1229 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>, <span class="Constant">0</span> -<span id="L1230" class="LineNr">1230 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1231" class="LineNr">1231 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1230" class="LineNr">1230 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1231" class="LineNr">1231 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1232" class="LineNr">1232 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>/row, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-zero-column"</span> <span id="L1233" class="LineNr">1233 </span><span class="Delimiter">}</span> <span id="L1234" class="LineNr">1234 </span> @@ -1302,8 +1302,8 @@ if ('onhashchange' in window) { <span id="L1237" class="LineNr">1237 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1238" class="LineNr">1238 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> <span id="L1239" class="LineNr">1239 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">-1</span>/row, <span class="Constant">2</span>/col -<span id="L1240" class="LineNr">1240 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1241" class="LineNr">1241 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1240" class="LineNr">1240 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1241" class="LineNr">1241 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1242" class="LineNr">1242 </span> <span class="muComment"># no move</span> <span id="L1243" class="LineNr">1243 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-negative-row"</span> <span id="L1244" class="LineNr">1244 </span><span class="Delimiter">}</span> @@ -1313,8 +1313,8 @@ if ('onhashchange' in window) { <span id="L1248" class="LineNr">1248 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1249" class="LineNr">1249 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> <span id="L1250" class="LineNr">1250 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/row, <span class="Constant">-1</span>/col -<span id="L1251" class="LineNr">1251 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1252" class="LineNr">1252 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1251" class="LineNr">1251 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1252" class="LineNr">1252 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1253" class="LineNr">1253 </span> <span class="muComment"># no move</span> <span id="L1254" class="LineNr">1254 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-negative-column"</span> <span id="L1255" class="LineNr">1255 </span><span class="Delimiter">}</span> @@ -1324,8 +1324,8 @@ if ('onhashchange' in window) { <span id="L1259" class="LineNr">1259 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1260" class="LineNr">1260 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">3</span>/cols <span id="L1261" class="LineNr">1261 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">4</span>/col -<span id="L1262" class="LineNr">1262 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1263" class="LineNr">1263 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1262" class="LineNr">1262 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1263" class="LineNr">1263 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1264" class="LineNr">1264 </span> <span class="muComment"># top row is empty</span> <span id="L1265" class="LineNr">1265 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">" "</span>, <span class="Constant">"F - test-move-cursor-column-too-large"</span> <span id="L1266" class="LineNr">1266 </span> <span class="muComment"># character shows up on next row</span> @@ -1337,8 +1337,8 @@ if ('onhashchange' in window) { <span id="L1272" class="LineNr">1272 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1273" class="LineNr">1273 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">3</span>/cols <span id="L1274" class="LineNr">1274 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">6</span>/col -<span id="L1275" class="LineNr">1275 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1276" class="LineNr">1276 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1275" class="LineNr">1275 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1276" class="LineNr">1276 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1277" class="LineNr">1277 </span> <span class="muComment"># top row is empty</span> <span id="L1278" class="LineNr">1278 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">" "</span>, <span class="Constant">"F - test-move-cursor-column-too-large-saturates"</span> <span class="muComment"># top-left corner of the screen</span> <span id="L1279" class="LineNr">1279 </span> <span class="muComment"># character shows up at the start of next row</span> @@ -1350,8 +1350,8 @@ if ('onhashchange' in window) { <span id="L1285" class="LineNr">1285 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1286" class="LineNr">1286 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">3</span>/cols <span id="L1287" class="LineNr">1287 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">6</span>/row, <span class="Constant">2</span>/col -<span id="L1288" class="LineNr">1288 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1289" class="LineNr">1289 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1288" class="LineNr">1288 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1289" class="LineNr">1289 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1290" class="LineNr">1290 </span> <span class="muComment"># bottom row shows the character</span> <span id="L1291" class="LineNr">1291 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/row, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor-row-too-large"</span> <span id="L1292" class="LineNr">1292 </span><span class="Delimiter">}</span> @@ -1361,8 +1361,8 @@ if ('onhashchange' in window) { <span id="L1296" class="LineNr">1296 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1297" class="LineNr">1297 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">3</span>/cols <span id="L1298" class="LineNr">1298 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">9</span>/row, <span class="Constant">2</span>/col -<span id="L1299" class="LineNr">1299 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1300" class="LineNr">1300 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1299" class="LineNr">1299 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1300" class="LineNr">1300 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1301" class="LineNr">1301 </span> <span class="muComment"># bottom row shows the character</span> <span id="L1302" class="LineNr">1302 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/row, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor-row-too-large-saturates"</span> <span id="L1303" class="LineNr">1303 </span><span class="Delimiter">}</span> @@ -1372,8 +1372,8 @@ if ('onhashchange' in window) { <span id="L1307" class="LineNr">1307 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1308" class="LineNr">1308 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols <span id="L1309" class="LineNr">1309 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span> -<span id="L1310" class="LineNr">1310 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1311" class="LineNr">1311 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1310" class="LineNr">1310 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1311" class="LineNr">1311 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1312" class="LineNr">1312 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">" a"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1305'>test-check-screen-row-from</a>/baseline"</span> <span id="L1313" class="LineNr">1313 </span> <a href='405screen.mu.html#L631'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">4</span>/col, <span class="Constant">"a"</span>, <span class="Constant">"F - test-check-screen-row-from"</span> <span id="L1314" class="LineNr">1314 </span><span class="Delimiter">}</span> @@ -1393,8 +1393,8 @@ if ('onhashchange' in window) { <span id="L1328" class="LineNr">1328 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols <span id="L1329" class="LineNr">1329 </span> <span class="muComment"># single character starting at bottom right</span> <span id="L1330" class="LineNr">1330 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols -<span id="L1331" class="LineNr">1331 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1332" class="LineNr">1332 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1331" class="LineNr">1331 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1332" class="LineNr">1332 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1333" class="LineNr">1333 </span> <a href='405screen.mu.html#L631'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/row, <span class="Constant">4</span>/col, <span class="Constant">"a"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1325'>test-check-screen-scrolls-on-overflow</a>/baseline"</span> <span class="muComment"># bottom-right corner of the screen</span> <span id="L1334" class="LineNr">1334 </span> <span class="muComment"># multiple characters starting at bottom right</span> <span id="L1335" class="LineNr">1335 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> @@ -1413,14 +1413,14 @@ if ('onhashchange' in window) { <span id="L1348" class="LineNr">1348 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> <span id="L1349" class="LineNr">1349 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1350" class="LineNr">1350 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols -<span id="L1351" class="LineNr">1351 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1352" class="LineNr">1352 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1351" class="LineNr">1351 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1352" class="LineNr">1352 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1353" class="LineNr">1353 </span> <a href='405screen.mu.html#L523'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/fg, <span class="Constant">0</span>/bg <span id="L1354" class="LineNr">1354 </span> c <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b -<span id="L1355" class="LineNr">1355 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1355" class="LineNr">1355 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1356" class="LineNr">1356 </span> <a href='405screen.mu.html#L523'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/fg, <span class="Constant">7</span>/bg <span id="L1357" class="LineNr">1357 </span> c <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c -<span id="L1358" class="LineNr">1358 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1358" class="LineNr">1358 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1359" class="LineNr">1359 </span> <a href='405screen.mu.html#L681'>check-screen-row-in-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/fg, <span class="Constant">1</span>/row, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-color"</span> <span id="L1360" class="LineNr">1360 </span><span class="Delimiter">}</span> <span id="L1361" class="LineNr">1361 </span> @@ -1428,14 +1428,14 @@ if ('onhashchange' in window) { <span id="L1363" class="LineNr">1363 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> <span id="L1364" class="LineNr">1364 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1365" class="LineNr">1365 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols -<span id="L1366" class="LineNr">1366 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1367" class="LineNr">1367 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1366" class="LineNr">1366 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1367" class="LineNr">1367 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1368" class="LineNr">1368 </span> <a href='405screen.mu.html#L523'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/fg, <span class="Constant">1</span>/bg <span id="L1369" class="LineNr">1369 </span> c <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b -<span id="L1370" class="LineNr">1370 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1370" class="LineNr">1370 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1371" class="LineNr">1371 </span> <a href='405screen.mu.html#L523'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/fg, <span class="Constant">7</span>/bg <span id="L1372" class="LineNr">1372 </span> c <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c -<span id="L1373" class="LineNr">1373 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1373" class="LineNr">1373 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1374" class="LineNr">1374 </span> <a href='405screen.mu.html#L768'>check-screen-row-in-background-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg, <span class="Constant">1</span>/row, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-background-color"</span> <span id="L1375" class="LineNr">1375 </span><span class="Delimiter">}</span> <span id="L1376" class="LineNr">1376 </span> @@ -1444,14 +1444,14 @@ if ('onhashchange' in window) { <span id="L1379" class="LineNr">1379 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1380" class="LineNr">1380 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols <span id="L1381" class="LineNr">1381 </span> <a href='405screen.mu.html#L541'>start-bold</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1382" class="LineNr">1382 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1383" class="LineNr">1383 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1382" class="LineNr">1382 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1383" class="LineNr">1383 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1384" class="LineNr">1384 </span> <a href='405screen.mu.html#L506'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> <span id="L1385" class="LineNr">1385 </span> c <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b -<span id="L1386" class="LineNr">1386 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1386" class="LineNr">1386 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1387" class="LineNr">1387 </span> <a href='405screen.mu.html#L541'>start-bold</a> <a href='405screen.mu.html#L9'>screen</a> <span id="L1388" class="LineNr">1388 </span> c <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c -<span id="L1389" class="LineNr">1389 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1389" class="LineNr">1389 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1390" class="LineNr">1390 </span> <a href='405screen.mu.html#L853'>check-screen-row-in-bold</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-bold"</span> <span id="L1391" class="LineNr">1391 </span><span class="Delimiter">}</span> <span id="L1392" class="LineNr">1392 </span> @@ -1460,14 +1460,14 @@ if ('onhashchange' in window) { <span id="L1395" class="LineNr">1395 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1396" class="LineNr">1396 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols <span id="L1397" class="LineNr">1397 </span> <a href='405screen.mu.html#L555'>start-underline</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1398" class="LineNr">1398 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1399" class="LineNr">1399 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1398" class="LineNr">1398 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1399" class="LineNr">1399 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1400" class="LineNr">1400 </span> <a href='405screen.mu.html#L506'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> <span id="L1401" class="LineNr">1401 </span> c <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b -<span id="L1402" class="LineNr">1402 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1402" class="LineNr">1402 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1403" class="LineNr">1403 </span> <a href='405screen.mu.html#L555'>start-underline</a> <a href='405screen.mu.html#L9'>screen</a> <span id="L1404" class="LineNr">1404 </span> c <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c -<span id="L1405" class="LineNr">1405 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1405" class="LineNr">1405 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1406" class="LineNr">1406 </span> <a href='405screen.mu.html#L934'>check-screen-row-in-underline</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-underline"</span> <span id="L1407" class="LineNr">1407 </span><span class="Delimiter">}</span> <span id="L1408" class="LineNr">1408 </span> @@ -1476,14 +1476,14 @@ if ('onhashchange' in window) { <span id="L1411" class="LineNr">1411 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1412" class="LineNr">1412 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols <span id="L1413" class="LineNr">1413 </span> <a href='405screen.mu.html#L569'>start-reverse-video</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1414" class="LineNr">1414 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1415" class="LineNr">1415 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1414" class="LineNr">1414 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1415" class="LineNr">1415 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1416" class="LineNr">1416 </span> <a href='405screen.mu.html#L506'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> <span id="L1417" class="LineNr">1417 </span> c <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b -<span id="L1418" class="LineNr">1418 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1418" class="LineNr">1418 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1419" class="LineNr">1419 </span> <a href='405screen.mu.html#L569'>start-reverse-video</a> <a href='405screen.mu.html#L9'>screen</a> <span id="L1420" class="LineNr">1420 </span> c <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c -<span id="L1421" class="LineNr">1421 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1421" class="LineNr">1421 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1422" class="LineNr">1422 </span> <a href='405screen.mu.html#L1015'>check-screen-row-in-reverse</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-reverse"</span> <span id="L1423" class="LineNr">1423 </span><span class="Delimiter">}</span> <span id="L1424" class="LineNr">1424 </span> @@ -1492,14 +1492,14 @@ if ('onhashchange' in window) { <span id="L1427" class="LineNr">1427 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="muRegEsi">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L1428" class="LineNr">1428 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols <span id="L1429" class="LineNr">1429 </span> <a href='405screen.mu.html#L583'>start-blinking</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1430" class="LineNr">1430 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L1431" class="LineNr">1431 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1430" class="LineNr">1430 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1431" class="LineNr">1431 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1432" class="LineNr">1432 </span> <a href='405screen.mu.html#L506'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> <span id="L1433" class="LineNr">1433 </span> c <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b -<span id="L1434" class="LineNr">1434 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1434" class="LineNr">1434 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1435" class="LineNr">1435 </span> <a href='405screen.mu.html#L583'>start-blinking</a> <a href='405screen.mu.html#L9'>screen</a> <span id="L1436" class="LineNr">1436 </span> c <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c -<span id="L1437" class="LineNr">1437 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1437" class="LineNr">1437 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, c <span id="L1438" class="LineNr">1438 </span> <a href='405screen.mu.html#L1096'>check-screen-row-in-blinking</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-blinking"</span> <span id="L1439" class="LineNr">1439 </span><span class="Delimiter">}</span> <span id="L1440" class="LineNr">1440 </span> diff --git a/html/linux/406int32.mu.html b/html/linux/406int32.mu.html index 7796bd65..1869c4b5 100644 --- a/html/linux/406int32.mu.html +++ b/html/linux/406int32.mu.html @@ -15,12 +15,12 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.Special { color: #ff6060; } --> </style> diff --git a/html/linux/407right-justify.mu.html b/html/linux/407right-justify.mu.html index 4c54f084..f49dbc19 100644 --- a/html/linux/407right-justify.mu.html +++ b/html/linux/407right-justify.mu.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } +.Special { color: #ff6060; } .LineNr { } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.Special { color: #ff6060; } --> </style> @@ -65,7 +65,7 @@ if ('onhashchange' in window) { <span id="L6" class="LineNr"> 6 </span> <span class="Delimiter">{</span> <span id="L7" class="LineNr"> 7 </span> compare n-width, width <span id="L8" class="LineNr"> 8 </span> <span class="PreProc">break-if->=</span> -<span id="L9" class="LineNr"> 9 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>/space +<span id="L9" class="LineNr"> 9 </span> <a href='405screen.mu.html#L214'>print-code-point-utf8</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>/space <span id="L10" class="LineNr">10 </span> width <span class="Special"><-</span> decrement <span id="L11" class="LineNr">11 </span> <span class="PreProc">loop</span> <span id="L12" class="LineNr">12 </span> <span class="Delimiter">}</span> diff --git a/html/linux/408float.mu.html b/html/linux/408float.mu.html index 52216101..081dccdc 100644 --- a/html/linux/408float.mu.html +++ b/html/linux/408float.mu.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.muRegEdi { color: #00af00; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEdi { color: #00af00; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.Special { color: #ff6060; } --> </style> diff --git a/html/linux/409print-float-hex.mu.html b/html/linux/409print-float-hex.mu.html index 2eb7a43d..ca3ed8d8 100644 --- a/html/linux/409print-float-hex.mu.html +++ b/html/linux/409print-float-hex.mu.html @@ -15,18 +15,18 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEbx { color: #5f00ff; } -.muRegEcx { color: #870000; } .muRegEdx { color: #af5f00; } .LineNr { } -.muRegEsi { color: #005faf; } -.CommentedCode { color: #8a8a8a; } .Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } +.muRegEbx { color: #5f00ff; } +.muRegEsi { color: #005faf; } .muFunction { color: #af5f00; text-decoration: underline; } -.muTest { color: #5f8700; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } -.muComment { color: #005faf; } .Special { color: #ff6060; } +.muTest { color: #5f8700; } +.muComment { color: #005faf; } --> </style> diff --git a/html/linux/410file.mu.html b/html/linux/410file.mu.html index 7a3c9e83..8143c717 100644 --- a/html/linux/410file.mu.html +++ b/html/linux/410file.mu.html @@ -17,12 +17,12 @@ a { color:inherit; } .PreProc { color: #c000c0; } .LineNr { } .muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEdi { color: #00af00; } +.CommentedCode { color: #8a8a8a; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .Special { color: #ff6060; } -.CommentedCode { color: #8a8a8a; } --> </style> diff --git a/html/linux/411string.mu.html b/html/linux/411string.mu.html index 8062479e..5019a653 100644 --- a/html/linux/411string.mu.html +++ b/html/linux/411string.mu.html @@ -15,17 +15,17 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.CommentedCode { color: #8a8a8a; } .muRegEcx { color: #870000; } +.Special { color: #ff6060; } .LineNr { } .muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } .Constant { color: #008787; } +.muRegEdi { color: #00af00; } +.CommentedCode { color: #8a8a8a; } +.Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muTest { color: #5f8700; } -.Delimiter { color: #c000c0; } .muComment { color: #005faf; } -.Special { color: #ff6060; } --> </style> @@ -61,7 +61,7 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/linux/411string.mu'>https://github.com/akkartik/mu/blob/main/linux/411string.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># read up to 'len' graphemes after skipping the first 'start' ones</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># read up to 'len' code-point-utf8s after skipping the first 'start' ones</span> <span id="L2" class="LineNr"> 2 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='411string.mu.html#L2'>substring</a></span> in: (addr array byte), start: int, len: int, out-ah: (addr handle array byte) <span class="Delimiter">{</span> <span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> in-stream: (stream byte <span class="Constant">0x100</span>) <span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> in-stream-addr/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address in-stream @@ -69,29 +69,29 @@ if ('onhashchange' in window) { <span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> out-stream: (stream byte <span class="Constant">0x100</span>) <span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> out-stream-addr/<span class="muRegEdi">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-stream <span id="L8" class="LineNr"> 8 </span> $substring:core: <span class="Delimiter">{</span> -<span id="L9" class="LineNr"> 9 </span> <span class="muComment"># skip 'start' graphemes</span> +<span id="L9" class="LineNr"> 9 </span> <span class="muComment"># skip 'start' code-point-utf8s</span> <span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">{</span> <span id="L12" class="LineNr"> 12 </span> compare i, start <span id="L13" class="LineNr"> 13 </span> <span class="PreProc">break-if->=</span> <span id="L14" class="LineNr"> 14 </span> <span class="Delimiter">{</span> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> in-stream-addr +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> in-stream-addr <span id="L16" class="LineNr"> 16 </span> compare dummy, <span class="Constant">0xffffffff</span>/end-of-file <span id="L17" class="LineNr"> 17 </span> <span class="PreProc">break-if-=</span> $substring:core <span id="L18" class="LineNr"> 18 </span> <span class="Delimiter">}</span> <span id="L19" class="LineNr"> 19 </span> i <span class="Special"><-</span> increment <span id="L20" class="LineNr"> 20 </span> <span class="PreProc">loop</span> <span id="L21" class="LineNr"> 21 </span> <span class="Delimiter">}</span> -<span id="L22" class="LineNr"> 22 </span> <span class="muComment"># copy 'len' graphemes</span> +<span id="L22" class="LineNr"> 22 </span> <span class="muComment"># copy 'len' code-point-utf8s</span> <span id="L23" class="LineNr"> 23 </span> i <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L24" class="LineNr"> 24 </span> <span class="Delimiter">{</span> <span id="L25" class="LineNr"> 25 </span> compare i, len <span id="L26" class="LineNr"> 26 </span> <span class="PreProc">break-if->=</span> <span id="L27" class="LineNr"> 27 </span> <span class="Delimiter">{</span> -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> in-stream-addr +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> in-stream-addr <span id="L29" class="LineNr"> 29 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file <span id="L30" class="LineNr"> 30 </span> <span class="PreProc">break-if-=</span> $substring:core -<span id="L31" class="LineNr"> 31 </span> <a href='403unicode.mu.html#L372'>write-grapheme</a> out-stream-addr, g +<span id="L31" class="LineNr"> 31 </span> <a href='403unicode.mu.html#L369'>write-code-point-utf8</a> out-stream-addr, g <span id="L32" class="LineNr"> 32 </span> <span class="Delimiter">}</span> <span id="L33" class="LineNr"> 33 </span> i <span class="Special"><-</span> increment <span id="L34" class="LineNr"> 34 </span> <span class="PreProc">loop</span> @@ -148,7 +148,7 @@ if ('onhashchange' in window) { <span id="L85" class="LineNr"> 85 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">"bcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-too-small"</span> <span id="L86" class="LineNr"> 86 </span><span class="Delimiter">}</span> <span id="L87" class="LineNr"> 87 </span> -<span id="L88" class="LineNr"> 88 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='411string.mu.html#L88'>split-string</a></span> in: (addr array byte), delim: grapheme, out: (addr handle array (handle array byte)) <span class="Delimiter">{</span> +<span id="L88" class="LineNr"> 88 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='411string.mu.html#L88'>split-string</a></span> in: (addr array byte), delim: code-point-utf8, out: (addr handle array (handle array byte)) <span class="Delimiter">{</span> <span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> in-stream: (stream byte <span class="Constant">0x100</span>) <span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> in-stream-addr/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address in-stream <span id="L91" class="LineNr"> 91 </span> <a href='108write.subx.html#L24'>write</a> in-stream-addr, in @@ -157,10 +157,10 @@ if ('onhashchange' in window) { <span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> curr-stream: (stream byte <span class="Constant">0x100</span>) <span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> curr-stream-addr/<span class="muRegEcx">ecx</span>: (addr stream byte) <span class="Special"><-</span> address curr-stream <span id="L96" class="LineNr"> 96 </span> $split-string:core: <span class="Delimiter">{</span> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> in-stream-addr +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='403unicode.mu.html#L155'>read-code-point-utf8</a> in-stream-addr <span id="L98" class="LineNr"> 98 </span> compare g, <span class="Constant">0xffffffff</span> <span id="L99" class="LineNr"> 99 </span> <span class="PreProc">break-if-=</span> -<span id="L100" class="LineNr">100 </span><span class="CommentedCode">#? print-grapheme-to-real-screen g</span> +<span id="L100" class="LineNr">100 </span><span class="CommentedCode">#? print-code-point-utf8-to-real-screen g</span> <span id="L101" class="LineNr">101 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> <span id="L102" class="LineNr">102 </span> compare g, delim <span id="L103" class="LineNr">103 </span> <span class="Delimiter">{</span> @@ -173,7 +173,7 @@ if ('onhashchange' in window) { <span id="L110" class="LineNr">110 </span> <a href='106stream.subx.html#L17'>clear-stream</a> curr-stream-addr <span id="L111" class="LineNr">111 </span> <span class="PreProc">loop</span> $split-string:core <span id="L112" class="LineNr">112 </span> <span class="Delimiter">}</span> -<span id="L113" class="LineNr">113 </span> <a href='403unicode.mu.html#L372'>write-grapheme</a> curr-stream-addr, g +<span id="L113" class="LineNr">113 </span> <a href='403unicode.mu.html#L369'>write-code-point-utf8</a> curr-stream-addr, g <span id="L114" class="LineNr">114 </span> <span class="PreProc">loop</span> <span id="L115" class="LineNr">115 </span> <span class="Delimiter">}</span> <span id="L116" class="LineNr">116 </span> <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> tokens-stream-addr, out diff --git a/html/linux/412print-float-decimal.mu.html b/html/linux/412print-float-decimal.mu.html index e094ff22..b048aaeb 100644 --- a/html/linux/412print-float-decimal.mu.html +++ b/html/linux/412print-float-decimal.mu.html @@ -15,18 +15,18 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEbx { color: #5f00ff; } -.muRegEcx { color: #870000; } .muRegEdx { color: #af5f00; } .LineNr { } -.muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } +.muRegEsi { color: #005faf; } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.muTest { color: #5f8700; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } -.muComment { color: #005faf; } .Special { color: #ff6060; } +.muTest { color: #5f8700; } +.muComment { color: #005faf; } --> </style> diff --git a/html/linux/advent2017/1a.mu.html b/html/linux/advent2017/1a.mu.html deleted file mode 100644 index dd31070e..00000000 --- a/html/linux/advent2017/1a.mu.html +++ /dev/null @@ -1,131 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/advent2017/1a.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.muRegEdx { color: #af5f00; } -.Special { color: #ff6060; } -.LineNr { } -.muRegEsi { color: #005faf; } -.muRegEbx { color: #5f00ff; } -.Constant { color: #008787; } -.muRegEdi { color: #00af00; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/advent2017/1a.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2017/1a.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Advent of code 2017, problem 1a</span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment"># <a href="https://adventofcode.com/2017/day/1">https://adventofcode.com/2017/day/1</a></span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment">#</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># Mu solution by Sumeet Agarwal and Kartik Agaram</span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># <a href="https://archive.org/details/2021-06-02-akkartik-sumeet">https://archive.org/details/2021-06-02-akkartik-sumeet</a></span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment">#</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># To build on Linux:</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># $ cd mu/linux</span> -<span id="L10" class="LineNr">10 </span><span class="muComment"># $ ./translate advent2017/1a.mu # emits a.elf</span> -<span id="L11" class="LineNr">11 </span><span class="muComment"># To run on Linux:</span> -<span id="L12" class="LineNr">12 </span><span class="muComment"># Download <a href="https://adventofcode.com/2017/day/1/input">https://adventofcode.com/2017/day/1/input</a></span> -<span id="L13" class="LineNr">13 </span><span class="muComment"># $ ./a.elf < input</span> -<span id="L14" class="LineNr">14 </span><span class="muComment"># Type in the number returned at <a href="https://adventofcode.com/2017/day/1">https://adventofcode.com/2017/day/1</a></span> -<span id="L15" class="LineNr">15 </span> -<span id="L16" class="LineNr">16 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='1a.mu.html#L16'>main</a></span><span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span> -<span id="L17" class="LineNr">17 </span> <span class="PreProc">var</span> input_stream: (stream byte <span class="Constant">0x8000</span>) -<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> input_stream_addr/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> address input_stream -<span id="L19" class="LineNr">19 </span> -<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> sum/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L21" class="LineNr">21 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> input_stream_addr -<span id="L22" class="LineNr">22 </span> -<span id="L23" class="LineNr">23 </span> <span class="PreProc">var</span> temp/eax: int <span class="Special"><-</span> <a href='1a.mu.html#L60'>read_digit</a> input_stream_addr -<span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> first_digit/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy temp -<span id="L25" class="LineNr">25 </span> <span class="PreProc">var</span> this_digit/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy temp -<span id="L26" class="LineNr">26 </span> -<span id="L27" class="LineNr">27 </span> <span class="Delimiter">{</span> -<span id="L28" class="LineNr">28 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> input_stream_addr -<span id="L29" class="LineNr">29 </span> compare done?, <span class="Constant">1</span> -<span id="L30" class="LineNr">30 </span> <span class="PreProc">break-if-=</span> -<span id="L31" class="LineNr">31 </span> -<span id="L32" class="LineNr">32 </span> <span class="PreProc">var</span> next_digit/eax: int <span class="Special"><-</span> <a href='1a.mu.html#L60'>read_digit</a> input_stream_addr -<span id="L33" class="LineNr">33 </span> <span class="muComment"># hacky newline check</span> -<span id="L34" class="LineNr">34 </span> compare next_digit, <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 id="L37" class="LineNr">37 </span> <span class="Delimiter">{</span> -<span id="L38" class="LineNr">38 </span> compare this_digit, next_digit -<span id="L39" class="LineNr">39 </span> <span class="PreProc">break-if-!=</span> -<span id="L40" class="LineNr">40 </span> sum <span class="Special"><-</span> add this_digit -<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> this_digit <span class="Special"><-</span> copy next_digit -<span id="L44" class="LineNr">44 </span> -<span id="L45" class="LineNr">45 </span> <span class="PreProc">loop</span> -<span id="L46" class="LineNr">46 </span> <span class="Delimiter">}</span> -<span id="L47" class="LineNr">47 </span> -<span id="L48" class="LineNr">48 </span> <span class="muComment"># the last iteration will need to compare the last number to the first</span> -<span id="L49" class="LineNr">49 </span> <span class="Delimiter">{</span> -<span id="L50" class="LineNr">50 </span> compare this_digit, first_digit -<span id="L51" class="LineNr">51 </span> <span class="PreProc">break-if-!=</span> -<span id="L52" class="LineNr">52 </span> sum <span class="Special"><-</span> add this_digit -<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> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, sum -<span id="L56" class="LineNr">56 </span> -<span id="L57" class="LineNr">57 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/ok -<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='1a.mu.html#L60'>read_digit</a></span> input_stream_addr: (addr stream byte)<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L61" class="LineNr">61 </span> <span class="PreProc">var</span> next_digit/eax: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> input_stream_addr -<span id="L62" class="LineNr">62 </span> next_digit <span class="Special"><-</span> subtract <span class="Constant">0x30</span> -<span id="L63" class="LineNr">63 </span> <span class="PreProc">var</span> next_digit/eax: int <span class="Special"><-</span> copy next_digit -<span id="L64" class="LineNr">64 </span> <span class="PreProc">return</span> next_digit -<span id="L65" class="LineNr">65 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/advent2020/1a.mu.html b/html/linux/advent2020/1a.mu.html deleted file mode 100644 index 4355df49..00000000 --- a/html/linux/advent2020/1a.mu.html +++ /dev/null @@ -1,165 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/advent2020/1a.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.muRegEdx { color: #af5f00; } -.Special { color: #ff6060; } -.LineNr { } -.muRegEsi { color: #005faf; } -.muRegEbx { color: #5f00ff; } -.Constant { color: #008787; } -.muRegEdi { color: #00af00; } -.muRegEcx { color: #870000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/1a.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/1a.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/1">https://adventofcode.com/2020/day/1</a></span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/1a.mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># found</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># 1353 667</span> -<span id="L10" class="LineNr">10 </span><span class="muComment"># 902451</span> -<span id="L11" class="LineNr">11 </span><span class="muComment">#</span> -<span id="L12" class="LineNr">12 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> -<span id="L13" class="LineNr">13 </span> -<span id="L14" class="LineNr">14 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='1a.mu.html#L14'>main</a></span><span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span> -<span id="L15" class="LineNr">15 </span> <span class="muComment"># data structure</span> -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> numbers-storage: (array int <span class="Constant">0x100</span>) <span class="muComment"># 256 ints</span> -<span id="L17" class="LineNr">17 </span> <span class="PreProc">var</span> numbers/<span class="muRegEsi">esi</span>: (addr array int) <span class="Special"><-</span> address numbers-storage -<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> numbers-index/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L19" class="LineNr">19 </span> <span class="muComment"># phase 1: parse each line from stdin and add it to numbers</span> -<span id="L20" class="LineNr">20 </span> <span class="Delimiter">{</span> -<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x100</span>) <span class="muComment"># 256 bytes</span> -<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> line/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage -<span id="L23" class="LineNr">23 </span> <span class="Delimiter">{</span> -<span id="L24" class="LineNr">24 </span><span class="CommentedCode">#? print-string 0, "== iter\n"</span> -<span id="L25" class="LineNr">25 </span> <span class="muComment"># read line from stdin</span> -<span id="L26" class="LineNr">26 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line -<span id="L27" class="LineNr">27 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line -<span id="L28" class="LineNr">28 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L30" class="LineNr">30 </span> compare done?, <span class="Constant">0</span>/false -<span id="L31" class="LineNr">31 </span> <span class="PreProc">break-if-!=</span> -<span id="L32" class="LineNr">32 </span><span class="CommentedCode">#? print-stream-to-real-screen line</span> -<span id="L33" class="LineNr">33 </span> <span class="muComment"># convert line to int and append it to numbers</span> -<span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> line -<span id="L35" class="LineNr">35 </span><span class="CommentedCode">#? print-int32-decimal 0, n</span> -<span id="L36" class="LineNr">36 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L37" class="LineNr">37 </span> <span class="PreProc">var</span> dest/<span class="muRegEbx">ebx</span>: (addr int) <span class="Special"><-</span> index numbers, numbers-index -<span id="L38" class="LineNr">38 </span> copy-to *dest, n -<span id="L39" class="LineNr">39 </span> numbers-index <span class="Special"><-</span> increment -<span id="L40" class="LineNr">40 </span><span class="CommentedCode">#? print-string 0, "== "</span> -<span id="L41" class="LineNr">41 </span><span class="CommentedCode">#? print-int32-decimal 0, numbers-index</span> -<span id="L42" class="LineNr">42 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<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 class="muComment"># phase 2: for each number in the array, check if 2020-it is in the rest of</span> -<span id="L47" class="LineNr">47 </span> <span class="muComment"># the array</span> -<span id="L48" class="LineNr">48 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L49" class="LineNr">49 </span> <span class="Delimiter">{</span> -<span id="L50" class="LineNr">50 </span> compare i, numbers-index -<span id="L51" class="LineNr">51 </span> <span class="PreProc">break-if->=</span> -<span id="L52" class="LineNr">52 </span> <span class="PreProc">var</span> src/<span class="muRegEbx">ebx</span>: (addr int) <span class="Special"><-</span> index numbers, i -<span id="L53" class="LineNr">53 </span><span class="CommentedCode">#? print-int32-decimal 0, *src</span> -<span id="L54" class="LineNr">54 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L55" class="LineNr">55 </span> <span class="PreProc">var</span> target/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0x7e4</span> <span class="muComment"># 2020</span> -<span id="L56" class="LineNr">56 </span> target <span class="Special"><-</span> subtract *src -<span id="L57" class="LineNr">57 </span> <span class="Delimiter">{</span> -<span id="L58" class="LineNr">58 </span> <span class="PreProc">var</span> found?/eax: boolean <span class="Special"><-</span> <a href='1a.mu.html#L77'>find-after</a> numbers, i, target -<span id="L59" class="LineNr">59 </span> compare found?, <span class="Constant">0</span>/false -<span id="L60" class="LineNr">60 </span> <span class="PreProc">break-if-=</span> -<span id="L61" class="LineNr">61 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"found\n"</span> -<span id="L62" class="LineNr">62 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, *src -<span id="L63" class="LineNr">63 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L64" class="LineNr">64 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, target -<span id="L65" class="LineNr">65 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L66" class="LineNr">66 </span> target <span class="Special"><-</span> multiply *src -<span id="L67" class="LineNr">67 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, target -<span id="L68" class="LineNr">68 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L69" class="LineNr">69 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/success -<span id="L70" class="LineNr">70 </span> <span class="Delimiter">}</span> -<span id="L71" class="LineNr">71 </span> i <span class="Special"><-</span> increment -<span id="L72" class="LineNr">72 </span> <span class="PreProc">loop</span> -<span id="L73" class="LineNr">73 </span> <span class="Delimiter">}</span> -<span id="L74" class="LineNr">74 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/not-found -<span id="L75" class="LineNr">75 </span><span class="Delimiter">}</span> -<span id="L76" class="LineNr">76 </span> -<span id="L77" class="LineNr">77 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='1a.mu.html#L77'>find-after</a></span> _numbers: (addr array int), start: int, _target: int<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> -<span id="L78" class="LineNr">78 </span> <span class="PreProc">var</span> numbers/<span class="muRegEsi">esi</span>: (addr array int) <span class="Special"><-</span> copy _numbers -<span id="L79" class="LineNr">79 </span> <span class="PreProc">var</span> target/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy _target -<span id="L80" class="LineNr">80 </span> <span class="PreProc">var</span> len/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> length numbers -<span id="L81" class="LineNr">81 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy start -<span id="L82" class="LineNr">82 </span> i <span class="Special"><-</span> increment -<span id="L83" class="LineNr">83 </span> <span class="Delimiter">{</span> -<span id="L84" class="LineNr">84 </span> compare i, len -<span id="L85" class="LineNr">85 </span> <span class="PreProc">break-if->=</span> -<span id="L86" class="LineNr">86 </span> <span class="PreProc">var</span> src/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> index numbers, i -<span id="L87" class="LineNr">87 </span> <span class="muComment"># if *src == target, return true</span> -<span id="L88" class="LineNr">88 </span> compare *src, target -<span id="L89" class="LineNr">89 </span> <span class="Delimiter">{</span> -<span id="L90" class="LineNr">90 </span> <span class="PreProc">break-if-!=</span> -<span id="L91" class="LineNr">91 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L92" class="LineNr">92 </span> <span class="Delimiter">}</span> -<span id="L93" class="LineNr">93 </span> i <span class="Special"><-</span> increment -<span id="L94" class="LineNr">94 </span> <span class="PreProc">loop</span> -<span id="L95" class="LineNr">95 </span> <span class="Delimiter">}</span> -<span id="L96" class="LineNr">96 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L97" class="LineNr">97 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/advent2020/1b.mu.html b/html/linux/advent2020/1b.mu.html deleted file mode 100644 index fad9e60d..00000000 --- a/html/linux/advent2020/1b.mu.html +++ /dev/null @@ -1,181 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/advent2020/1b.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.muRegEdx { color: #af5f00; } -.Special { color: #ff6060; } -.LineNr { } -.muRegEsi { color: #005faf; } -.muRegEbx { color: #5f00ff; } -.Constant { color: #008787; } -.muRegEdi { color: #00af00; } -.muRegEcx { color: #870000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/1b.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/1b.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/1">https://adventofcode.com/2020/day/1</a></span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/1b.mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># found</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># 143 407 1470</span> -<span id="L10" class="LineNr"> 10 </span><span class="muComment"># 85555470</span> -<span id="L11" class="LineNr"> 11 </span><span class="muComment">#</span> -<span id="L12" class="LineNr"> 12 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> -<span id="L13" class="LineNr"> 13 </span> -<span id="L14" class="LineNr"> 14 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='1b.mu.html#L14'>main</a></span><span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span> -<span id="L15" class="LineNr"> 15 </span> <span class="muComment"># data structure</span> -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> numbers-storage: (array int <span class="Constant">0x100</span>) <span class="muComment"># 256 ints</span> -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> numbers/<span class="muRegEsi">esi</span>: (addr array int) <span class="Special"><-</span> address numbers-storage -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> numbers-index/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L19" class="LineNr"> 19 </span> <span class="muComment"># phase 1: parse each line from stdin and add it to numbers</span> -<span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">{</span> -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x100</span>) <span class="muComment"># 256 bytes</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> line/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage -<span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">{</span> -<span id="L24" class="LineNr"> 24 </span><span class="CommentedCode">#? print-string 0, "== iter\n"</span> -<span id="L25" class="LineNr"> 25 </span> <span class="muComment"># read line from stdin</span> -<span id="L26" class="LineNr"> 26 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line -<span id="L27" class="LineNr"> 27 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line -<span id="L28" class="LineNr"> 28 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L30" class="LineNr"> 30 </span> compare done?, <span class="Constant">0</span>/false -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">break-if-!=</span> -<span id="L32" class="LineNr"> 32 </span><span class="CommentedCode">#? print-stream-to-real-screen line</span> -<span id="L33" class="LineNr"> 33 </span> <span class="muComment"># convert line to int and append it to numbers</span> -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> line -<span id="L35" class="LineNr"> 35 </span><span class="CommentedCode">#? print-int32-decimal 0, n</span> -<span id="L36" class="LineNr"> 36 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> dest/<span class="muRegEbx">ebx</span>: (addr int) <span class="Special"><-</span> index numbers, numbers-index -<span id="L38" class="LineNr"> 38 </span> copy-to *dest, n -<span id="L39" class="LineNr"> 39 </span> numbers-index <span class="Special"><-</span> increment -<span id="L40" class="LineNr"> 40 </span><span class="CommentedCode">#? print-string 0, "== "</span> -<span id="L41" class="LineNr"> 41 </span><span class="CommentedCode">#? print-int32-decimal 0, numbers-index</span> -<span id="L42" class="LineNr"> 42 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<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 class="muComment"># phase 2: for every pair of distinct numbers, check if the rest of the</span> -<span id="L47" class="LineNr"> 47 </span> <span class="muComment"># array has 2020-it</span> -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> i/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">{</span> -<span id="L50" class="LineNr"> 50 </span> compare i, numbers-index -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">break-if->=</span> -<span id="L52" class="LineNr"> 52 </span> <span class="muComment"># for j from i+1 to end</span> -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> j/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy i -<span id="L54" class="LineNr"> 54 </span> j <span class="Special"><-</span> increment -<span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">{</span> -<span id="L56" class="LineNr"> 56 </span> compare j, numbers-index -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">break-if->=</span> -<span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">{</span> -<span id="L59" class="LineNr"> 59 </span> compare i, j -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">break-if-=</span> -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> target/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0x7e4</span> <span class="muComment"># 2020</span> -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> src/<span class="muRegEdi">edi</span>: (addr int) <span class="Special"><-</span> index numbers, i -<span id="L63" class="LineNr"> 63 </span> target <span class="Special"><-</span> subtract *src -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> src2/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> index numbers, j -<span id="L65" class="LineNr"> 65 </span> target <span class="Special"><-</span> subtract *src2 -<span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">{</span> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> found?/eax: boolean <span class="Special"><-</span> <a href='1b.mu.html#L93'>find-after</a> numbers, j, target -<span id="L68" class="LineNr"> 68 </span> compare found?, <span class="Constant">0</span>/false -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">break-if-=</span> -<span id="L70" class="LineNr"> 70 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"found\n"</span> -<span id="L71" class="LineNr"> 71 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, *src -<span id="L72" class="LineNr"> 72 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L73" class="LineNr"> 73 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, *src2 -<span id="L74" class="LineNr"> 74 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L75" class="LineNr"> 75 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, target -<span id="L76" class="LineNr"> 76 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L77" class="LineNr"> 77 </span> target <span class="Special"><-</span> multiply *src -<span id="L78" class="LineNr"> 78 </span> target <span class="Special"><-</span> multiply *src2 -<span id="L79" class="LineNr"> 79 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, target -<span id="L80" class="LineNr"> 80 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/success -<span id="L82" class="LineNr"> 82 </span> <span class="Delimiter">}</span> -<span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">}</span> -<span id="L84" class="LineNr"> 84 </span> j <span class="Special"><-</span> increment -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">loop</span> -<span id="L86" class="LineNr"> 86 </span> <span class="Delimiter">}</span> -<span id="L87" class="LineNr"> 87 </span> i <span class="Special"><-</span> increment -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">loop</span> -<span id="L89" class="LineNr"> 89 </span> <span class="Delimiter">}</span> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/not-found -<span id="L91" class="LineNr"> 91 </span><span class="Delimiter">}</span> -<span id="L92" class="LineNr"> 92 </span> -<span id="L93" class="LineNr"> 93 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='1b.mu.html#L93'>find-after</a></span> _numbers: (addr array int), start: int, _target: int<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> numbers/<span class="muRegEsi">esi</span>: (addr array int) <span class="Special"><-</span> copy _numbers -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> target/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy _target -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> len/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> length numbers -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy start -<span id="L98" class="LineNr"> 98 </span> i <span class="Special"><-</span> increment -<span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">{</span> -<span id="L100" class="LineNr">100 </span> compare i, len -<span id="L101" class="LineNr">101 </span> <span class="PreProc">break-if->=</span> -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> src/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> index numbers, i -<span id="L103" class="LineNr">103 </span> <span class="muComment"># if *src == target, return true</span> -<span id="L104" class="LineNr">104 </span> compare *src, target -<span id="L105" class="LineNr">105 </span> <span class="Delimiter">{</span> -<span id="L106" class="LineNr">106 </span> <span class="PreProc">break-if-!=</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L108" class="LineNr">108 </span> <span class="Delimiter">}</span> -<span id="L109" class="LineNr">109 </span> i <span class="Special"><-</span> increment -<span id="L110" class="LineNr">110 </span> <span class="PreProc">loop</span> -<span id="L111" class="LineNr">111 </span> <span class="Delimiter">}</span> -<span id="L112" class="LineNr">112 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L113" class="LineNr">113 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/advent2020/2a.mu.html b/html/linux/advent2020/2a.mu.html deleted file mode 100644 index e24a06ef..00000000 --- a/html/linux/advent2020/2a.mu.html +++ /dev/null @@ -1,159 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/advent2020/2a.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.muRegEdx { color: #af5f00; } -.Special { color: #ff6060; } -.LineNr { } -.muRegEsi { color: #005faf; } -.muRegEbx { color: #5f00ff; } -.Constant { color: #008787; } -.muRegEdi { color: #00af00; } -.muRegEcx { color: #870000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/2a.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/2a.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/2">https://adventofcode.com/2020/day/2</a></span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/2a.mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> -<span id="L10" class="LineNr">10 </span> -<span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='2a.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> valid-password-count/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x100</span>) <span class="muComment"># 256 bytes</span> -<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> line/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage -<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> slice-storage: slice -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> slice/<span class="muRegEcx">ecx</span>: (addr slice) <span class="Special"><-</span> address slice-storage -<span id="L17" class="LineNr">17 </span> <span class="Delimiter">{</span> -<span id="L18" class="LineNr">18 </span> <span class="muComment"># read line from stdin</span> -<span id="L19" class="LineNr">19 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line -<span id="L20" class="LineNr">20 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line -<span id="L21" class="LineNr">21 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L23" class="LineNr">23 </span> compare done?, <span class="Constant">0</span>/false -<span id="L24" class="LineNr">24 </span> <span class="PreProc">break-if-!=</span> -<span id="L25" class="LineNr">25 </span> <a href='../304screen.subx.html#L147'>print-stream-to-real-screen</a> line -<span id="L26" class="LineNr">26 </span> <span class="muComment"># slice = next-token(line, '-')</span> -<span id="L27" class="LineNr">27 </span> <a href='../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x2d</span>, slice -<span id="L28" class="LineNr">28 </span> <span class="muComment"># start = parse-int(slice)</span> -<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> _start/eax: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> slice -<span id="L30" class="LineNr">30 </span> <span class="PreProc">var</span> start/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy _start -<span id="L31" class="LineNr">31 </span> <span class="PreProc">var</span> dash/eax: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip '-'</span> -<span id="L32" class="LineNr">32 </span> <span class="muComment"># slice = next-token(line, ' ')</span> -<span id="L33" class="LineNr">33 </span> <a href='../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x20</span>, slice -<span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> _end/eax: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> slice -<span id="L35" class="LineNr">35 </span> <span class="PreProc">var</span> end/<span class="muRegEsi">esi</span>: int <span class="Special"><-</span> copy _end -<span id="L36" class="LineNr">36 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, start -<span id="L37" class="LineNr">37 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L38" class="LineNr">38 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, end -<span id="L39" class="LineNr">39 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L40" class="LineNr">40 </span> <span class="muComment"># letter = next non-space</span> -<span id="L41" class="LineNr">41 </span> <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line -<span id="L42" class="LineNr">42 </span> <span class="PreProc">var</span> letter/eax: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line -<span id="L43" class="LineNr">43 </span> <span class="muComment"># skip some stuff</span> -<span id="L44" class="LineNr">44 </span> <span class="Delimiter">{</span> -<span id="L45" class="LineNr">45 </span> <span class="PreProc">var</span> colon/eax: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip ':'</span> -<span id="L46" class="LineNr">46 </span> <span class="Delimiter">}</span> -<span id="L47" class="LineNr">47 </span> <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line -<span id="L48" class="LineNr">48 </span> <span class="muComment"># now check the rest of the line</span> -<span id="L49" class="LineNr">49 </span> <span class="PreProc">var</span> <a href='2a.mu.html#L63'>valid?</a>/eax: boolean <span class="Special"><-</span> <a href='2a.mu.html#L63'>valid?</a> start, end, letter, line -<span id="L50" class="LineNr">50 </span> compare <a href='2a.mu.html#L63'>valid?</a>, <span class="Constant">0</span>/false -<span id="L51" class="LineNr">51 </span> <span class="Delimiter">{</span> -<span id="L52" class="LineNr">52 </span> <span class="PreProc">break-if-=</span> -<span id="L53" class="LineNr">53 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"valid!\n"</span> -<span id="L54" class="LineNr">54 </span> valid-password-count <span class="Special"><-</span> increment -<span id="L55" class="LineNr">55 </span> <span class="Delimiter">}</span> -<span id="L56" class="LineNr">56 </span> <span class="PreProc">loop</span> -<span id="L57" class="LineNr">57 </span> <span class="Delimiter">}</span> -<span id="L58" class="LineNr">58 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, valid-password-count -<span id="L59" class="LineNr">59 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L60" class="LineNr">60 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L61" class="LineNr">61 </span><span class="Delimiter">}</span> -<span id="L62" class="LineNr">62 </span> -<span id="L63" class="LineNr">63 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='2a.mu.html#L63'>valid?</a></span> start: int, end: int, letter: byte, password: (addr stream byte)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> -<span id="L64" class="LineNr">64 </span> <span class="PreProc">var</span> letter-count/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L65" class="LineNr">65 </span> <span class="muComment"># for every c in password</span> -<span id="L66" class="LineNr">66 </span> <span class="muComment"># if (c == letter)</span> -<span id="L67" class="LineNr">67 </span> <span class="muComment"># ++letter-count</span> -<span id="L68" class="LineNr">68 </span> <span class="Delimiter">{</span> -<span id="L69" class="LineNr">69 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> password -<span id="L70" class="LineNr">70 </span> compare done?, <span class="Constant">0</span>/false -<span id="L71" class="LineNr">71 </span> <span class="PreProc">break-if-!=</span> -<span id="L72" class="LineNr">72 </span> <span class="PreProc">var</span> c/eax: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> password -<span id="L73" class="LineNr">73 </span> compare c, letter -<span id="L74" class="LineNr">74 </span> <span class="Delimiter">{</span> -<span id="L75" class="LineNr">75 </span> <span class="PreProc">break-if-!=</span> -<span id="L76" class="LineNr">76 </span> letter-count <span class="Special"><-</span> increment -<span id="L77" class="LineNr">77 </span> <span class="Delimiter">}</span> -<span id="L78" class="LineNr">78 </span> <span class="PreProc">loop</span> -<span id="L79" class="LineNr">79 </span> <span class="Delimiter">}</span> -<span id="L80" class="LineNr">80 </span> <span class="muComment"># return (start <= letter-count <= end)</span> -<span id="L81" class="LineNr">81 </span> compare letter-count, start -<span id="L82" class="LineNr">82 </span> <span class="Delimiter">{</span> -<span id="L83" class="LineNr">83 </span> <span class="PreProc">break-if->=</span> -<span id="L84" class="LineNr">84 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L85" class="LineNr">85 </span> <span class="Delimiter">}</span> -<span id="L86" class="LineNr">86 </span> compare letter-count, end -<span id="L87" class="LineNr">87 </span> <span class="Delimiter">{</span> -<span id="L88" class="LineNr">88 </span> <span class="PreProc">break-if-<=</span> -<span id="L89" class="LineNr">89 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L90" class="LineNr">90 </span> <span class="Delimiter">}</span> -<span id="L91" class="LineNr">91 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L92" class="LineNr">92 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/advent2020/2b.mu.html b/html/linux/advent2020/2b.mu.html deleted file mode 100644 index ff0a806f..00000000 --- a/html/linux/advent2020/2b.mu.html +++ /dev/null @@ -1,190 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/advent2020/2b.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.muRegEdx { color: #af5f00; } -.Special { color: #ff6060; } -.LineNr { } -.muRegEsi { color: #005faf; } -.muRegEbx { color: #5f00ff; } -.Constant { color: #008787; } -.muRegEdi { color: #00af00; } -.muRegEcx { color: #870000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/2b.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/2b.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/2">https://adventofcode.com/2020/day/2</a></span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/2b.mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> -<span id="L10" class="LineNr"> 10 </span> -<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='2b.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span> -<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> valid-password-count/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x100</span>) <span class="muComment"># 256 bytes</span> -<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> line/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> slice-storage: slice -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> slice/<span class="muRegEcx">ecx</span>: (addr slice) <span class="Special"><-</span> address slice-storage -<span id="L17" class="LineNr"> 17 </span> <span class="Delimiter">{</span> -<span id="L18" class="LineNr"> 18 </span> <span class="muComment"># read line from stdin</span> -<span id="L19" class="LineNr"> 19 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line -<span id="L20" class="LineNr"> 20 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line -<span id="L21" class="LineNr"> 21 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L23" class="LineNr"> 23 </span> compare done?, <span class="Constant">0</span>/false -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">break-if-!=</span> -<span id="L25" class="LineNr"> 25 </span> <a href='../304screen.subx.html#L147'>print-stream-to-real-screen</a> line -<span id="L26" class="LineNr"> 26 </span> <span class="muComment"># slice = next-token(line, '-')</span> -<span id="L27" class="LineNr"> 27 </span> <a href='../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x2d</span>, slice -<span id="L28" class="LineNr"> 28 </span> <span class="muComment"># pos1 = parse-int(slice)</span> -<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> _pos1/eax: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> slice -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> pos1/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy _pos1 -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> dash/eax: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip '-'</span> -<span id="L32" class="LineNr"> 32 </span> <span class="muComment"># slice = next-token(line, ' ')</span> -<span id="L33" class="LineNr"> 33 </span> <a href='../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x20</span>, slice -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> _pos2/eax: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> slice -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> pos2/<span class="muRegEsi">esi</span>: int <span class="Special"><-</span> copy _pos2 -<span id="L36" class="LineNr"> 36 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, pos1 -<span id="L37" class="LineNr"> 37 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L38" class="LineNr"> 38 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, pos2 -<span id="L39" class="LineNr"> 39 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L40" class="LineNr"> 40 </span> compare pos1, pos2 -<span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">{</span> -<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">break-if-<=</span> -<span id="L43" class="LineNr"> 43 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"out of order!\n"</span> -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">return</span> <span class="Constant">1</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">}</span> -<span id="L46" class="LineNr"> 46 </span> <span class="muComment"># letter = next non-space</span> -<span id="L47" class="LineNr"> 47 </span> <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> letter/eax: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line -<span id="L49" class="LineNr"> 49 </span> <span class="muComment"># skip some stuff</span> -<span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">{</span> -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> colon/eax: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip ':'</span> -<span id="L52" class="LineNr"> 52 </span> <span class="Delimiter">}</span> -<span id="L53" class="LineNr"> 53 </span> <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line -<span id="L54" class="LineNr"> 54 </span> <span class="muComment"># now check the rest of the line</span> -<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> <a href='2b.mu.html#L72'>valid?</a>/eax: boolean <span class="Special"><-</span> <a href='2b.mu.html#L72'>valid?</a> pos1, pos2, letter, line -<span id="L56" class="LineNr"> 56 </span> compare <a href='2b.mu.html#L72'>valid?</a>, <span class="Constant">0</span>/false -<span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">{</span> -<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">break-if-=</span> -<span id="L59" class="LineNr"> 59 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"valid!\n"</span> -<span id="L60" class="LineNr"> 60 </span> valid-password-count <span class="Special"><-</span> increment -<span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">}</span> -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">loop</span> -<span id="L63" class="LineNr"> 63 </span> <span class="Delimiter">}</span> -<span id="L64" class="LineNr"> 64 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, valid-password-count -<span id="L65" class="LineNr"> 65 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L67" class="LineNr"> 67 </span><span class="Delimiter">}</span> -<span id="L68" class="LineNr"> 68 </span> -<span id="L69" class="LineNr"> 69 </span><span class="muComment"># ideally password would be a random-access array</span> -<span id="L70" class="LineNr"> 70 </span><span class="muComment"># we'll just track an index</span> -<span id="L71" class="LineNr"> 71 </span><span class="muComment"># one benefit: we can easily start at 1</span> -<span id="L72" class="LineNr"> 72 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='2b.mu.html#L72'>valid?</a></span> pos1: int, pos2: int, letter: byte, password: (addr stream byte)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> -<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> i/<span class="muRegEsi">esi</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> letter-count/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L75" class="LineNr"> 75 </span> <span class="muComment"># while password stream isn't empty</span> -<span id="L76" class="LineNr"> 76 </span> <span class="muComment"># c = read byte from password</span> -<span id="L77" class="LineNr"> 77 </span> <span class="muComment"># if (c == letter)</span> -<span id="L78" class="LineNr"> 78 </span> <span class="muComment"># if (i == pos1)</span> -<span id="L79" class="LineNr"> 79 </span> <span class="muComment"># ++letter-count</span> -<span id="L80" class="LineNr"> 80 </span> <span class="muComment"># if (i == pos2)</span> -<span id="L81" class="LineNr"> 81 </span> <span class="muComment"># ++letter-count</span> -<span id="L82" class="LineNr"> 82 </span> <span class="muComment"># ++i</span> -<span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">{</span> -<span id="L84" class="LineNr"> 84 </span><span class="CommentedCode">#? print-string 0, " "</span> -<span id="L85" class="LineNr"> 85 </span><span class="CommentedCode">#? print-int32-decimal 0, i</span> -<span id="L86" class="LineNr"> 86 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> password -<span id="L88" class="LineNr"> 88 </span> compare done?, <span class="Constant">0</span>/false -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">break-if-!=</span> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> c/eax: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> password -<span id="L91" class="LineNr"> 91 </span><span class="CommentedCode">#? {</span> -<span id="L92" class="LineNr"> 92 </span><span class="CommentedCode">#? var c2/eax: int <- copy c</span> -<span id="L93" class="LineNr"> 93 </span><span class="CommentedCode">#? print-int32-decimal 0, c2</span> -<span id="L94" class="LineNr"> 94 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L95" class="LineNr"> 95 </span><span class="CommentedCode">#? }</span> -<span id="L96" class="LineNr"> 96 </span> compare c, letter -<span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">{</span> -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">break-if-!=</span> -<span id="L99" class="LineNr"> 99 </span> compare i, pos1 -<span id="L100" class="LineNr">100 </span> <span class="Delimiter">{</span> -<span id="L101" class="LineNr">101 </span> <span class="PreProc">break-if-!=</span> -<span id="L102" class="LineNr">102 </span> letter-count <span class="Special"><-</span> increment -<span id="L103" class="LineNr">103 </span><span class="CommentedCode">#? print-string 0, " hit\n"</span> -<span id="L104" class="LineNr">104 </span> <span class="Delimiter">}</span> -<span id="L105" class="LineNr">105 </span> compare i, pos2 -<span id="L106" class="LineNr">106 </span> <span class="Delimiter">{</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">break-if-!=</span> -<span id="L108" class="LineNr">108 </span> letter-count <span class="Special"><-</span> increment -<span id="L109" class="LineNr">109 </span><span class="CommentedCode">#? print-string 0, " hit\n"</span> -<span id="L110" class="LineNr">110 </span> <span class="Delimiter">}</span> -<span id="L111" class="LineNr">111 </span> <span class="Delimiter">}</span> -<span id="L112" class="LineNr">112 </span> i <span class="Special"><-</span> increment -<span id="L113" class="LineNr">113 </span> <span class="PreProc">loop</span> -<span id="L114" class="LineNr">114 </span> <span class="Delimiter">}</span> -<span id="L115" class="LineNr">115 </span> <span class="muComment"># return (letter-count == 1)</span> -<span id="L116" class="LineNr">116 </span> compare letter-count, <span class="Constant">1</span> -<span id="L117" class="LineNr">117 </span> <span class="Delimiter">{</span> -<span id="L118" class="LineNr">118 </span> <span class="PreProc">break-if-!=</span> -<span id="L119" class="LineNr">119 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L120" class="LineNr">120 </span> <span class="Delimiter">}</span> -<span id="L121" class="LineNr">121 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L122" class="LineNr">122 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/advent2020/3a.mu.html b/html/linux/advent2020/3a.mu.html deleted file mode 100644 index cf125d84..00000000 --- a/html/linux/advent2020/3a.mu.html +++ /dev/null @@ -1,175 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/advent2020/3a.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.muRegEdx { color: #af5f00; } -.Special { color: #ff6060; } -.LineNr { } -.muRegEsi { color: #005faf; } -.muRegEbx { color: #5f00ff; } -.Constant { color: #008787; } -.muRegEdi { color: #00af00; } -.muRegEcx { color: #870000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/3a.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/3a.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/3">https://adventofcode.com/2020/day/3</a></span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/3a.mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> -<span id="L10" class="LineNr"> 10 </span> -<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3a.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span> -<span id="L12" class="LineNr"> 12 </span> <span class="muComment"># represent trees in a 2D array of ints</span> -<span id="L13" class="LineNr"> 13 </span> <span class="muComment"># wasteful since each tree is just one bit</span> -<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> trees-storage: (array int <span class="Constant">0x2800</span>) <span class="muComment"># 10k ints</span> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> trees/<span class="muRegEsi">esi</span>: (addr array int) <span class="Special"><-</span> address trees-storage -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> trees-length/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> num-rows: int -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> width: int -<span id="L19" class="LineNr"> 19 </span> <span class="muComment"># phase 1: parse each row of trees from stdin</span> -<span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">{</span> -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x40</span>) <span class="muComment"># 64 bytes</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> line/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage -<span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">{</span> -<span id="L24" class="LineNr"> 24 </span> <span class="muComment"># read line from stdin</span> -<span id="L25" class="LineNr"> 25 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line -<span id="L26" class="LineNr"> 26 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line -<span id="L27" class="LineNr"> 27 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L29" class="LineNr"> 29 </span> compare done?, <span class="Constant">0</span>/false -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">break-if-!=</span> -<span id="L31" class="LineNr"> 31 </span> <span class="muComment"># wastefully recompute width on every line</span> -<span id="L32" class="LineNr"> 32 </span> <span class="muComment"># zero error-checking; we assume input lines are all equally long</span> -<span id="L33" class="LineNr"> 33 </span> copy-to width, <span class="Constant">0</span> -<span id="L34" class="LineNr"> 34 </span> <span class="muComment"># turn each byte into a tree and append it</span> -<span id="L35" class="LineNr"> 35 </span> $main:line-loop: <span class="Delimiter">{</span> -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L37" class="LineNr"> 37 </span> compare done?, <span class="Constant">0</span>/false -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">break-if-!=</span> -<span id="L39" class="LineNr"> 39 </span><span class="CommentedCode">#? print-int32-decimal 0, num-rows</span> -<span id="L40" class="LineNr"> 40 </span><span class="CommentedCode">#? print-string 0, " "</span> -<span id="L41" class="LineNr"> 41 </span><span class="CommentedCode">#? print-int32-decimal 0, width</span> -<span id="L42" class="LineNr"> 42 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> dest/<span class="muRegEbx">ebx</span>: (addr int) <span class="Special"><-</span> index trees, trees-length -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> c/eax: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line -<span id="L45" class="LineNr"> 45 </span> <span class="muComment"># newline comes only at end of line</span> -<span id="L46" class="LineNr"> 46 </span> compare c, <span class="Constant">0xa</span>/newline -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">break-if-=</span> -<span id="L48" class="LineNr"> 48 </span> <span class="muComment"># '#' = tree</span> -<span id="L49" class="LineNr"> 49 </span> compare c, <span class="Constant">0x23</span>/hash -<span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">{</span> -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">break-if-!=</span> -<span id="L52" class="LineNr"> 52 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L53" class="LineNr"> 53 </span> <span class="Delimiter">}</span> -<span id="L54" class="LineNr"> 54 </span> <span class="muComment"># anything else = no tree</span> -<span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">{</span> -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">break-if-=</span> -<span id="L57" class="LineNr"> 57 </span> copy-to *dest, <span class="Constant">0</span> -<span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">}</span> -<span id="L59" class="LineNr"> 59 </span> increment width -<span id="L60" class="LineNr"> 60 </span> trees-length <span class="Special"><-</span> increment -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">loop</span> -<span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">}</span> -<span id="L63" class="LineNr"> 63 </span> increment num-rows -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">loop</span> -<span id="L65" class="LineNr"> 65 </span> <span class="Delimiter">}</span> -<span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">}</span> -<span id="L67" class="LineNr"> 67 </span> <span class="muComment"># phase 2: compute</span> -<span id="L68" class="LineNr"> 68 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, num-rows -<span id="L69" class="LineNr"> 69 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"x"</span> -<span id="L70" class="LineNr"> 70 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, width -<span id="L71" class="LineNr"> 71 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> row/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> col/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> num-trees-hit/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">{</span> -<span id="L76" class="LineNr"> 76 </span> compare row, num-rows -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">break-if->=</span> -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> curr/eax: int <span class="Special"><-</span> <a href='3a.mu.html#L94'>index2d</a> trees, row, col, width -<span id="L79" class="LineNr"> 79 </span> compare curr, <span class="Constant">0</span> -<span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">{</span> -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">break-if-=</span> -<span id="L82" class="LineNr"> 82 </span> num-trees-hit <span class="Special"><-</span> increment -<span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">}</span> -<span id="L84" class="LineNr"> 84 </span> <span class="muComment"># right 3, down 1</span> -<span id="L85" class="LineNr"> 85 </span> col <span class="Special"><-</span> add <span class="Constant">3</span> -<span id="L86" class="LineNr"> 86 </span> row <span class="Special"><-</span> add <span class="Constant">1</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">loop</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">}</span> -<span id="L89" class="LineNr"> 89 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, num-trees-hit -<span id="L90" class="LineNr"> 90 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L92" class="LineNr"> 92 </span><span class="Delimiter">}</span> -<span id="L93" class="LineNr"> 93 </span> -<span id="L94" class="LineNr"> 94 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3a.mu.html#L94'>index2d</a></span> _arr: (addr array int), _row: int, _col: int, width: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L95" class="LineNr"> 95 </span> <span class="muComment"># handle repeating columns of trees</span> -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> col/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L98" class="LineNr"> 98 </span> dummy, col <span class="Special"><-</span> <a href='../314divide.subx.html#L3'>integer-divide</a> _col, width -<span id="L99" class="LineNr"> 99 </span> <span class="muComment"># compute index</span> -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> index/eax: int <span class="Special"><-</span> copy _row -<span id="L101" class="LineNr">101 </span> index <span class="Special"><-</span> multiply width -<span id="L102" class="LineNr">102 </span> index <span class="Special"><-</span> add col -<span id="L103" class="LineNr">103 </span> <span class="muComment"># look up array</span> -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> arr/<span class="muRegEsi">esi</span>: (addr array int) <span class="Special"><-</span> copy _arr -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> src/eax: (addr int) <span class="Special"><-</span> index arr, index -<span id="L106" class="LineNr">106 </span> <span class="PreProc">return</span> *src -<span id="L107" class="LineNr">107 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/advent2020/3b.mu.html b/html/linux/advent2020/3b.mu.html deleted file mode 100644 index 6380194d..00000000 --- a/html/linux/advent2020/3b.mu.html +++ /dev/null @@ -1,205 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/advent2020/3b.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.muRegEdx { color: #af5f00; } -.Special { color: #ff6060; } -.LineNr { } -.muRegEsi { color: #005faf; } -.muRegEbx { color: #5f00ff; } -.Constant { color: #008787; } -.muRegEdi { color: #00af00; } -.muRegEcx { color: #870000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/3b.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/3b.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/3">https://adventofcode.com/2020/day/3</a></span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/3a.mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> -<span id="L10" class="LineNr"> 10 </span> -<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3b.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span> -<span id="L12" class="LineNr"> 12 </span> <span class="muComment"># represent trees in a 2D array of ints</span> -<span id="L13" class="LineNr"> 13 </span> <span class="muComment"># wasteful since each tree is just one bit</span> -<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> trees-storage: (array int <span class="Constant">0x2800</span>) <span class="muComment"># 10k ints</span> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> trees/<span class="muRegEsi">esi</span>: (addr array int) <span class="Special"><-</span> address trees-storage -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> trees-length/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> num-rows: int -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> width: int -<span id="L19" class="LineNr"> 19 </span> <span class="muComment"># phase 1: parse each row of trees from stdin</span> -<span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">{</span> -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x40</span>) <span class="muComment"># 64 bytes</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> line/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage -<span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">{</span> -<span id="L24" class="LineNr"> 24 </span> <span class="muComment"># read line from stdin</span> -<span id="L25" class="LineNr"> 25 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line -<span id="L26" class="LineNr"> 26 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line -<span id="L27" class="LineNr"> 27 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L29" class="LineNr"> 29 </span> compare done?, <span class="Constant">0</span>/false -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">break-if-!=</span> -<span id="L31" class="LineNr"> 31 </span> <span class="muComment"># wastefully recompute width on every line</span> -<span id="L32" class="LineNr"> 32 </span> <span class="muComment"># zero error-checking; we assume input lines are all equally long</span> -<span id="L33" class="LineNr"> 33 </span> copy-to width, <span class="Constant">0</span> -<span id="L34" class="LineNr"> 34 </span> <span class="muComment"># turn each byte into a tree and append it</span> -<span id="L35" class="LineNr"> 35 </span> $main:line-loop: <span class="Delimiter">{</span> -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L37" class="LineNr"> 37 </span> compare done?, <span class="Constant">0</span>/false -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">break-if-!=</span> -<span id="L39" class="LineNr"> 39 </span><span class="CommentedCode">#? print-int32-decimal 0, num-rows</span> -<span id="L40" class="LineNr"> 40 </span><span class="CommentedCode">#? print-string 0, " "</span> -<span id="L41" class="LineNr"> 41 </span><span class="CommentedCode">#? print-int32-decimal 0, width</span> -<span id="L42" class="LineNr"> 42 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> dest/<span class="muRegEbx">ebx</span>: (addr int) <span class="Special"><-</span> index trees, trees-length -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> c/eax: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line -<span id="L45" class="LineNr"> 45 </span> <span class="muComment"># newline comes only at end of line</span> -<span id="L46" class="LineNr"> 46 </span> compare c, <span class="Constant">0xa</span>/newline -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">break-if-=</span> -<span id="L48" class="LineNr"> 48 </span> <span class="muComment"># '#' = tree</span> -<span id="L49" class="LineNr"> 49 </span> compare c, <span class="Constant">0x23</span>/hash -<span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">{</span> -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">break-if-!=</span> -<span id="L52" class="LineNr"> 52 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L53" class="LineNr"> 53 </span> <span class="Delimiter">}</span> -<span id="L54" class="LineNr"> 54 </span> <span class="muComment"># anything else = no tree</span> -<span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">{</span> -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">break-if-=</span> -<span id="L57" class="LineNr"> 57 </span> copy-to *dest, <span class="Constant">0</span> -<span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">}</span> -<span id="L59" class="LineNr"> 59 </span> increment width -<span id="L60" class="LineNr"> 60 </span> trees-length <span class="Special"><-</span> increment -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">loop</span> -<span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">}</span> -<span id="L63" class="LineNr"> 63 </span> increment num-rows -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">loop</span> -<span id="L65" class="LineNr"> 65 </span> <span class="Delimiter">}</span> -<span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">}</span> -<span id="L67" class="LineNr"> 67 </span> <span class="muComment"># phase 2: compute</span> -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> product/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='3b.mu.html#L94'>num-trees-hit</a> trees, width, num-rows, <span class="Constant">1</span>, <span class="Constant">1</span> -<span id="L70" class="LineNr"> 70 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, result -<span id="L71" class="LineNr"> 71 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" x "</span> -<span id="L72" class="LineNr"> 72 </span> product <span class="Special"><-</span> multiply result -<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='3b.mu.html#L94'>num-trees-hit</a> trees, width, num-rows, <span class="Constant">3</span>, <span class="Constant">1</span> -<span id="L74" class="LineNr"> 74 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, result -<span id="L75" class="LineNr"> 75 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" x "</span> -<span id="L76" class="LineNr"> 76 </span> product <span class="Special"><-</span> multiply result -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='3b.mu.html#L94'>num-trees-hit</a> trees, width, num-rows, <span class="Constant">5</span>, <span class="Constant">1</span> -<span id="L78" class="LineNr"> 78 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, result -<span id="L79" class="LineNr"> 79 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" x "</span> -<span id="L80" class="LineNr"> 80 </span> product <span class="Special"><-</span> multiply result -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='3b.mu.html#L94'>num-trees-hit</a> trees, width, num-rows, <span class="Constant">7</span>, <span class="Constant">1</span> -<span id="L82" class="LineNr"> 82 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, result -<span id="L83" class="LineNr"> 83 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" x "</span> -<span id="L84" class="LineNr"> 84 </span> product <span class="Special"><-</span> multiply result -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> <a href='3b.mu.html#L94'>num-trees-hit</a> trees, width, num-rows, <span class="Constant">1</span>, <span class="Constant">2</span> -<span id="L86" class="LineNr"> 86 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, result -<span id="L87" class="LineNr"> 87 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" = "</span> -<span id="L88" class="LineNr"> 88 </span> product <span class="Special"><-</span> multiply result -<span id="L89" class="LineNr"> 89 </span> <a href='../405screen.mu.html#L440'>print-int32-hex</a> <span class="Constant">0</span>, product -<span id="L90" class="LineNr"> 90 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L92" class="LineNr"> 92 </span><span class="Delimiter">}</span> -<span id="L93" class="LineNr"> 93 </span> -<span id="L94" class="LineNr"> 94 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3b.mu.html#L94'>num-trees-hit</a></span> trees: (addr array int), width: int, num-rows: int, right: int, down: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L95" class="LineNr"> 95 </span><span class="CommentedCode">#? print-string 0, "== "</span> -<span id="L96" class="LineNr"> 96 </span><span class="CommentedCode">#? print-int32-decimal 0, right</span> -<span id="L97" class="LineNr"> 97 </span><span class="CommentedCode">#? print-string 0, " "</span> -<span id="L98" class="LineNr"> 98 </span><span class="CommentedCode">#? print-int32-decimal 0, down</span> -<span id="L99" class="LineNr"> 99 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> row/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> col/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> <a href='3b.mu.html#L94'>num-trees-hit</a>/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L103" class="LineNr">103 </span> <span class="Delimiter">{</span> -<span id="L104" class="LineNr">104 </span> compare row, num-rows -<span id="L105" class="LineNr">105 </span> <span class="PreProc">break-if->=</span> -<span id="L106" class="LineNr">106 </span><span class="CommentedCode">#? print-int32-decimal 0, col</span> -<span id="L107" class="LineNr">107 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> curr/eax: int <span class="Special"><-</span> <a href='3b.mu.html#L121'>index2d</a> trees, row, col, width -<span id="L109" class="LineNr">109 </span> compare curr, <span class="Constant">0</span> -<span id="L110" class="LineNr">110 </span> <span class="Delimiter">{</span> -<span id="L111" class="LineNr">111 </span> <span class="PreProc">break-if-=</span> -<span id="L112" class="LineNr">112 </span> <a href='3b.mu.html#L94'>num-trees-hit</a> <span class="Special"><-</span> increment -<span id="L113" class="LineNr">113 </span> <span class="Delimiter">}</span> -<span id="L114" class="LineNr">114 </span> col <span class="Special"><-</span> add right -<span id="L115" class="LineNr">115 </span> row <span class="Special"><-</span> add down -<span id="L116" class="LineNr">116 </span> <span class="PreProc">loop</span> -<span id="L117" class="LineNr">117 </span> <span class="Delimiter">}</span> -<span id="L118" class="LineNr">118 </span> <span class="PreProc">return</span> <a href='3b.mu.html#L94'>num-trees-hit</a> -<span id="L119" class="LineNr">119 </span><span class="Delimiter">}</span> -<span id="L120" class="LineNr">120 </span> -<span id="L121" class="LineNr">121 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3b.mu.html#L121'>index2d</a></span> _arr: (addr array int), _row: int, _col: int, width: int<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L122" class="LineNr">122 </span> <span class="muComment"># handle repeating columns of trees</span> -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> col/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L125" class="LineNr">125 </span> dummy, col <span class="Special"><-</span> <a href='../314divide.subx.html#L3'>integer-divide</a> _col, width -<span id="L126" class="LineNr">126 </span><span class="CommentedCode">#? print-string 0, " "</span> -<span id="L127" class="LineNr">127 </span><span class="CommentedCode">#? print-int32-decimal 0, col</span> -<span id="L128" class="LineNr">128 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L129" class="LineNr">129 </span> <span class="muComment"># compute index</span> -<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> index/eax: int <span class="Special"><-</span> copy _row -<span id="L131" class="LineNr">131 </span> index <span class="Special"><-</span> multiply width -<span id="L132" class="LineNr">132 </span> index <span class="Special"><-</span> add col -<span id="L133" class="LineNr">133 </span> <span class="muComment"># look up array</span> -<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> arr/<span class="muRegEsi">esi</span>: (addr array int) <span class="Special"><-</span> copy _arr -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> src/eax: (addr int) <span class="Special"><-</span> index arr, index -<span id="L136" class="LineNr">136 </span> <span class="PreProc">return</span> *src -<span id="L137" class="LineNr">137 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/advent2020/4a.mu.html b/html/linux/advent2020/4a.mu.html deleted file mode 100644 index 50008b4d..00000000 --- a/html/linux/advent2020/4a.mu.html +++ /dev/null @@ -1,142 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/advent2020/4a.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.muRegEdx { color: #af5f00; } -.Special { color: #ff6060; } -.LineNr { } -.Constant { color: #008787; } -.muRegEbx { color: #5f00ff; } -.muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } -.muRegEcx { color: #870000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/4a.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/4a.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/4">https://adventofcode.com/2020/day/4</a></span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/4a.mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> -<span id="L10" class="LineNr">10 </span> -<span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='4a.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> curr-passport-field-count/<span class="muRegEsi">esi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> valid-passport-count/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x100</span>) <span class="muComment"># 256 bytes</span> -<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> line/<span class="muRegEcx">ecx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> slice-storage: slice -<span id="L17" class="LineNr">17 </span> <span class="PreProc">var</span> slice/<span class="muRegEdx">edx</span>: (addr slice) <span class="Special"><-</span> address slice-storage -<span id="L18" class="LineNr">18 </span> $main:line-loop: <span class="Delimiter">{</span> -<span id="L19" class="LineNr">19 </span> <span class="muComment"># read line from stdin</span> -<span id="L20" class="LineNr">20 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line -<span id="L21" class="LineNr">21 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line -<span id="L22" class="LineNr">22 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L23" class="LineNr">23 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L24" class="LineNr">24 </span> compare done?, <span class="Constant">0</span>/false -<span id="L25" class="LineNr">25 </span> <span class="PreProc">break-if-!=</span> -<span id="L26" class="LineNr">26 </span> <a href='../304screen.subx.html#L147'>print-stream-to-real-screen</a> line -<span id="L27" class="LineNr">27 </span> <span class="muComment"># if line has just a newline, process passport</span> -<span id="L28" class="LineNr">28 </span> <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line -<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> new-passport?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L30" class="LineNr">30 </span> <span class="Delimiter">{</span> -<span id="L31" class="LineNr">31 </span> compare new-passport?, <span class="Constant">0</span>/false -<span id="L32" class="LineNr">32 </span> <span class="PreProc">break-if-=</span> -<span id="L33" class="LineNr">33 </span> compare curr-passport-field-count, <span class="Constant">7</span> -<span id="L34" class="LineNr">34 </span> <span class="Delimiter">{</span> -<span id="L35" class="LineNr">35 </span> <span class="PreProc">break-if-!=</span> -<span id="L36" class="LineNr">36 </span> valid-passport-count <span class="Special"><-</span> increment -<span id="L37" class="LineNr">37 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"=> "</span> -<span id="L38" class="LineNr">38 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, valid-passport-count -<span id="L39" class="LineNr">39 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L40" class="LineNr">40 </span> <span class="Delimiter">}</span> -<span id="L41" class="LineNr">41 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L42" class="LineNr">42 </span> <span class="PreProc">loop</span> $main:line-loop -<span id="L43" class="LineNr">43 </span> <span class="Delimiter">}</span> -<span id="L44" class="LineNr">44 </span> $main:word-loop: <span class="Delimiter">{</span> -<span id="L45" class="LineNr">45 </span> <a href='../127next-word.subx.html#L11'>next-word</a> line, slice -<span id="L46" class="LineNr">46 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L9'>slice-empty?</a> slice -<span id="L47" class="LineNr">47 </span> compare done?, <span class="Constant">0</span>/false -<span id="L48" class="LineNr">48 </span> <span class="PreProc">break-if-!=</span> -<span id="L49" class="LineNr">49 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L50" class="LineNr">50 </span> <a href='../304screen.subx.html#L134'>print-slice-to-real-screen</a> slice -<span id="L51" class="LineNr">51 </span> <span class="muComment"># treat cid as optional</span> -<span id="L52" class="LineNr">52 </span> <span class="PreProc">var</span> optional?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L487'>slice-starts-with?</a> slice, <span class="Constant">"cid:"</span> -<span id="L53" class="LineNr">53 </span> compare optional?, <span class="Constant">0</span>/false -<span id="L54" class="LineNr">54 </span> <span class="Delimiter">{</span> -<span id="L55" class="LineNr">55 </span> <span class="PreProc">break-if-!=</span> -<span id="L56" class="LineNr">56 </span> <span class="muComment"># otherwise assume there are no invalid fields and no duplicate fields</span> -<span id="L57" class="LineNr">57 </span> curr-passport-field-count <span class="Special"><-</span> increment -<span id="L58" class="LineNr">58 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" => "</span> -<span id="L59" class="LineNr">59 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, curr-passport-field-count -<span id="L60" class="LineNr">60 </span> <span class="Delimiter">}</span> -<span id="L61" class="LineNr">61 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L62" class="LineNr">62 </span> <span class="PreProc">loop</span> -<span id="L63" class="LineNr">63 </span> <span class="Delimiter">}</span> -<span id="L64" class="LineNr">64 </span> <span class="PreProc">loop</span> -<span id="L65" class="LineNr">65 </span> <span class="Delimiter">}</span> -<span id="L66" class="LineNr">66 </span> <span class="muComment"># process final passport</span> -<span id="L67" class="LineNr">67 </span> compare curr-passport-field-count, <span class="Constant">7</span> -<span id="L68" class="LineNr">68 </span> <span class="Delimiter">{</span> -<span id="L69" class="LineNr">69 </span> <span class="PreProc">break-if-!=</span> -<span id="L70" class="LineNr">70 </span> valid-passport-count <span class="Special"><-</span> increment -<span id="L71" class="LineNr">71 </span> <span class="Delimiter">}</span> -<span id="L72" class="LineNr">72 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, valid-passport-count -<span id="L73" class="LineNr">73 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L74" class="LineNr">74 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L75" class="LineNr">75 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/advent2020/4b.mu.html b/html/linux/advent2020/4b.mu.html deleted file mode 100644 index b6fdafe5..00000000 --- a/html/linux/advent2020/4b.mu.html +++ /dev/null @@ -1,381 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/advent2020/4b.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.muRegEdx { color: #af5f00; } -.Special { color: #ff6060; } -.LineNr { } -.Constant { color: #008787; } -.muRegEbx { color: #5f00ff; } -.muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } -.muRegEcx { color: #870000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/4b.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/4b.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/4">https://adventofcode.com/2020/day/4</a></span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/4b.mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> -<span id="L10" class="LineNr"> 10 </span> -<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='4b.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span> -<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> curr-passport-field-count/<span class="muRegEsi">esi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> valid-passport-count/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x100</span>) <span class="muComment"># 256 bytes</span> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> line/<span class="muRegEcx">ecx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> key-slice-storage: slice -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> key-slice/<span class="muRegEdx">edx</span>: (addr slice) <span class="Special"><-</span> address key-slice-storage -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> val-slice-storage: slice -<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> val-slice/<span class="muRegEbx">ebx</span>: (addr slice) <span class="Special"><-</span> address val-slice-storage -<span id="L20" class="LineNr"> 20 </span> $main:line-loop: <span class="Delimiter">{</span> -<span id="L21" class="LineNr"> 21 </span> <span class="muComment"># read line from stdin</span> -<span id="L22" class="LineNr"> 22 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line -<span id="L23" class="LineNr"> 23 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line -<span id="L24" class="LineNr"> 24 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L26" class="LineNr"> 26 </span> compare done?, <span class="Constant">0</span>/false -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">break-if-!=</span> -<span id="L28" class="LineNr"> 28 </span> <a href='../304screen.subx.html#L147'>print-stream-to-real-screen</a> line -<span id="L29" class="LineNr"> 29 </span> <span class="muComment"># if line has just a newline, process passport</span> -<span id="L30" class="LineNr"> 30 </span> <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> new-passport?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L32" class="LineNr"> 32 </span> <span class="Delimiter">{</span> -<span id="L33" class="LineNr"> 33 </span> compare new-passport?, <span class="Constant">0</span>/false -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">break-if-=</span> -<span id="L35" class="LineNr"> 35 </span> compare curr-passport-field-count, <span class="Constant">7</span> -<span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">{</span> -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">break-if-!=</span> -<span id="L38" class="LineNr"> 38 </span> valid-passport-count <span class="Special"><-</span> increment -<span id="L39" class="LineNr"> 39 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"=> "</span> -<span id="L40" class="LineNr"> 40 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, valid-passport-count -<span id="L41" class="LineNr"> 41 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L42" class="LineNr"> 42 </span> <span class="Delimiter">}</span> -<span id="L43" class="LineNr"> 43 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">loop</span> $main:line-loop -<span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">}</span> -<span id="L46" class="LineNr"> 46 </span> $main:word-loop: <span class="Delimiter">{</span> -<span id="L47" class="LineNr"> 47 </span> <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L49" class="LineNr"> 49 </span> compare done?, <span class="Constant">0</span>/false -<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">break-if-!=</span> -<span id="L51" class="LineNr"> 51 </span> <a href='../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x3a</span>, key-slice <span class="muComment"># ':'</span> -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> dummy/eax: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip ':'</span> -<span id="L53" class="LineNr"> 53 </span> <a href='../127next-word.subx.html#L306'>next-raw-word</a> line, val-slice -<span id="L54" class="LineNr"> 54 </span> <a href='../304screen.subx.html#L134'>print-slice-to-real-screen</a> key-slice -<span id="L55" class="LineNr"> 55 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" : "</span> -<span id="L56" class="LineNr"> 56 </span> <a href='../304screen.subx.html#L134'>print-slice-to-real-screen</a> val-slice -<span id="L57" class="LineNr"> 57 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L58" class="LineNr"> 58 </span> <span class="muComment"># treat cid as optional</span> -<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> cid?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"cid"</span> -<span id="L60" class="LineNr"> 60 </span> compare cid?, <span class="Constant">0</span>/false -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">loop-if-!=</span> -<span id="L62" class="LineNr"> 62 </span> <span class="muComment"># increment field count</span> -<span id="L63" class="LineNr"> 63 </span> curr-passport-field-count <span class="Special"><-</span> increment -<span id="L64" class="LineNr"> 64 </span> <span class="muComment"># - validate fields one by one, setting curr-passport-field-count to impossibly high value to signal invalid</span> -<span id="L65" class="LineNr"> 65 </span> <span class="muComment"># byr</span> -<span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">{</span> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> byr?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"byr"</span> -<span id="L68" class="LineNr"> 68 </span> compare byr?, <span class="Constant">0</span>/false -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">break-if-=</span> -<span id="L70" class="LineNr"> 70 </span> <span class="muComment"># 1920 <= byr <= 2002</span> -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> byr/eax: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> val-slice -<span id="L72" class="LineNr"> 72 </span> compare byr, <span class="Constant">0x780</span> <span class="muComment"># 1920</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Delimiter">{</span> -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">break-if->=</span> -<span id="L75" class="LineNr"> 75 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L76" class="LineNr"> 76 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L77" class="LineNr"> 77 </span> <span class="Delimiter">}</span> -<span id="L78" class="LineNr"> 78 </span> compare byr, <span class="Constant">0x7d2</span> <span class="muComment"># 2002</span> -<span id="L79" class="LineNr"> 79 </span> <span class="Delimiter">{</span> -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">break-if-<=</span> -<span id="L81" class="LineNr"> 81 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L82" class="LineNr"> 82 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">}</span> -<span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">}</span> -<span id="L85" class="LineNr"> 85 </span> <span class="muComment"># iyr</span> -<span id="L86" class="LineNr"> 86 </span> <span class="Delimiter">{</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> iyr?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"iyr"</span> -<span id="L88" class="LineNr"> 88 </span> compare iyr?, <span class="Constant">0</span>/false -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">break-if-=</span> -<span id="L90" class="LineNr"> 90 </span> <span class="muComment"># 2010 <= iyr <= 2020</span> -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> iyr/eax: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> val-slice -<span id="L92" class="LineNr"> 92 </span> compare iyr, <span class="Constant">0x7da</span> <span class="muComment"># 2010</span> -<span id="L93" class="LineNr"> 93 </span> <span class="Delimiter">{</span> -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">break-if->=</span> -<span id="L95" class="LineNr"> 95 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L96" class="LineNr"> 96 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">}</span> -<span id="L98" class="LineNr"> 98 </span> compare iyr, <span class="Constant">0x7e4</span> <span class="muComment"># 2020</span> -<span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">{</span> -<span id="L100" class="LineNr">100 </span> <span class="PreProc">break-if-<=</span> -<span id="L101" class="LineNr">101 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L102" class="LineNr">102 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L103" class="LineNr">103 </span> <span class="Delimiter">}</span> -<span id="L104" class="LineNr">104 </span> <span class="Delimiter">}</span> -<span id="L105" class="LineNr">105 </span> <span class="muComment"># eyr</span> -<span id="L106" class="LineNr">106 </span> <span class="Delimiter">{</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> eyr?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"eyr"</span> -<span id="L108" class="LineNr">108 </span> compare eyr?, <span class="Constant">0</span>/false -<span id="L109" class="LineNr">109 </span> <span class="PreProc">break-if-=</span> -<span id="L110" class="LineNr">110 </span> <span class="muComment"># 2020 <= eyr <= 2030</span> -<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> eyr/eax: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> val-slice -<span id="L112" class="LineNr">112 </span> compare eyr, <span class="Constant">0x7e4</span> <span class="muComment"># 2020</span> -<span id="L113" class="LineNr">113 </span> <span class="Delimiter">{</span> -<span id="L114" class="LineNr">114 </span> <span class="PreProc">break-if->=</span> -<span id="L115" class="LineNr">115 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L116" class="LineNr">116 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L117" class="LineNr">117 </span> <span class="Delimiter">}</span> -<span id="L118" class="LineNr">118 </span> compare eyr, <span class="Constant">0x7ee</span> <span class="muComment"># 2030</span> -<span id="L119" class="LineNr">119 </span> <span class="Delimiter">{</span> -<span id="L120" class="LineNr">120 </span> <span class="PreProc">break-if-<=</span> -<span id="L121" class="LineNr">121 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L122" class="LineNr">122 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L123" class="LineNr">123 </span> <span class="Delimiter">}</span> -<span id="L124" class="LineNr">124 </span> <span class="Delimiter">}</span> -<span id="L125" class="LineNr">125 </span> <span class="muComment"># hgt</span> -<span id="L126" class="LineNr">126 </span> <span class="Delimiter">{</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> hgt?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"hgt"</span> -<span id="L128" class="LineNr">128 </span> compare hgt?, <span class="Constant">0</span>/false -<span id="L129" class="LineNr">129 </span> <span class="PreProc">break-if-=</span> -<span id="L130" class="LineNr">130 </span> <span class="muComment"># convert val</span> -<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> s: (handle array byte) -<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> s2/eax: (addr handle array byte) <span class="Special"><-</span> address s -<span id="L133" class="LineNr">133 </span> <a href='../315slice.subx.html#L5'>_slice-to-string</a> val-slice, s2 -<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> s3/eax: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *s2 -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> s4/<span class="muRegEbx">ebx</span>: (addr array byte) <span class="Special"><-</span> copy s3 -<span id="L136" class="LineNr">136 </span> <span class="muComment"># check suffix</span> -<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> start/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> length s4 -<span id="L138" class="LineNr">138 </span> start <span class="Special"><-</span> subtract <span class="Constant">2</span> <span class="muComment"># luckily both 'in' and 'cm' have the same length</span> -<span id="L139" class="LineNr">139 </span> <span class="Delimiter">{</span> -<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> suffix-h: (handle array byte) -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> suffix-ah/<span class="muRegEcx">ecx</span>: (addr handle array byte) <span class="Special"><-</span> address suffix-h -<span id="L142" class="LineNr">142 </span> <a href='../411string.mu.html#L2'>substring</a> s4, start, <span class="Constant">2</span>, suffix-ah -<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> suffix/eax: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *suffix-ah -<span id="L144" class="LineNr">144 </span> <span class="Delimiter">{</span> -<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> match?/eax: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L15'>string-equal?</a> suffix, <span class="Constant">"in"</span> -<span id="L146" class="LineNr">146 </span> compare match?, <span class="Constant">0</span>/false -<span id="L147" class="LineNr">147 </span> <span class="PreProc">break-if-=</span> -<span id="L148" class="LineNr">148 </span> <span class="muComment"># if suffix is "in", 59 <= val <= 96</span> -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> num-h: (handle array byte) -<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> num-ah/<span class="muRegEcx">ecx</span>: (addr handle array byte) <span class="Special"><-</span> address num-h -<span id="L151" class="LineNr">151 </span> <a href='../411string.mu.html#L2'>substring</a> s4, <span class="Constant">0</span>, start, num-ah -<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> num/eax: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *num-ah -<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> val/eax: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L23'>parse-decimal-int</a> num -<span id="L154" class="LineNr">154 </span> compare val, <span class="Constant">0x3b</span> <span class="muComment"># 59</span> -<span id="L155" class="LineNr">155 </span> <span class="Delimiter">{</span> -<span id="L156" class="LineNr">156 </span> <span class="PreProc">break-if->=</span> -<span id="L157" class="LineNr">157 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L158" class="LineNr">158 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L159" class="LineNr">159 </span> <span class="Delimiter">}</span> -<span id="L160" class="LineNr">160 </span> compare val, <span class="Constant">0x60</span> <span class="muComment"># 96</span> -<span id="L161" class="LineNr">161 </span> <span class="Delimiter">{</span> -<span id="L162" class="LineNr">162 </span> <span class="PreProc">break-if-<=</span> -<span id="L163" class="LineNr">163 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L164" class="LineNr">164 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L165" class="LineNr">165 </span> <span class="Delimiter">}</span> -<span id="L166" class="LineNr">166 </span> <span class="PreProc">loop</span> $main:word-loop -<span id="L167" class="LineNr">167 </span> <span class="Delimiter">}</span> -<span id="L168" class="LineNr">168 </span> <span class="Delimiter">{</span> -<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> match?/eax: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L15'>string-equal?</a> suffix, <span class="Constant">"cm"</span> -<span id="L170" class="LineNr">170 </span> compare match?, <span class="Constant">0</span>/false -<span id="L171" class="LineNr">171 </span> <span class="PreProc">break-if-=</span> -<span id="L172" class="LineNr">172 </span> <span class="muComment"># if suffix is "cm", 150 <= val <= 193</span> -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> num-h: (handle array byte) -<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> num-ah/<span class="muRegEcx">ecx</span>: (addr handle array byte) <span class="Special"><-</span> address num-h -<span id="L175" class="LineNr">175 </span> <a href='../411string.mu.html#L2'>substring</a> s4, <span class="Constant">0</span>, start, num-ah -<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> num/eax: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *num-ah -<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> val/eax: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L23'>parse-decimal-int</a> num -<span id="L178" class="LineNr">178 </span> compare val, <span class="Constant">0x96</span> <span class="muComment"># 150</span> -<span id="L179" class="LineNr">179 </span> <span class="Delimiter">{</span> -<span id="L180" class="LineNr">180 </span> <span class="PreProc">break-if->=</span> -<span id="L181" class="LineNr">181 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L182" class="LineNr">182 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L183" class="LineNr">183 </span> <span class="Delimiter">}</span> -<span id="L184" class="LineNr">184 </span> compare val, <span class="Constant">0xc1</span> <span class="muComment"># 193</span> -<span id="L185" class="LineNr">185 </span> <span class="Delimiter">{</span> -<span id="L186" class="LineNr">186 </span> <span class="PreProc">break-if-<=</span> -<span id="L187" class="LineNr">187 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L188" class="LineNr">188 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L189" class="LineNr">189 </span> <span class="Delimiter">}</span> -<span id="L190" class="LineNr">190 </span> <span class="PreProc">loop</span> $main:word-loop -<span id="L191" class="LineNr">191 </span> <span class="Delimiter">}</span> -<span id="L192" class="LineNr">192 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L193" class="LineNr">193 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L194" class="LineNr">194 </span> <span class="PreProc">loop</span> $main:word-loop -<span id="L195" class="LineNr">195 </span> <span class="Delimiter">}</span> -<span id="L196" class="LineNr">196 </span> <span class="Delimiter">}</span> -<span id="L197" class="LineNr">197 </span> <span class="muComment"># hcl</span> -<span id="L198" class="LineNr">198 </span> <span class="Delimiter">{</span> -<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> hcl?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"hcl"</span> -<span id="L200" class="LineNr">200 </span> compare hcl?, <span class="Constant">0</span>/false -<span id="L201" class="LineNr">201 </span> <span class="PreProc">break-if-=</span> -<span id="L202" class="LineNr">202 </span> <span class="muComment"># convert val</span> -<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> s: (handle array byte) -<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> s2/eax: (addr handle array byte) <span class="Special"><-</span> address s -<span id="L205" class="LineNr">205 </span> <a href='../315slice.subx.html#L5'>_slice-to-string</a> val-slice, s2 -<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> s3/eax: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *s2 -<span id="L207" class="LineNr">207 </span> <span class="muComment"># check length</span> -<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> len/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> length s3 -<span id="L209" class="LineNr">209 </span> compare len, <span class="Constant">7</span> -<span id="L210" class="LineNr">210 </span> <span class="Delimiter">{</span> -<span id="L211" class="LineNr">211 </span> <span class="PreProc">break-if-=</span> -<span id="L212" class="LineNr">212 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L213" class="LineNr">213 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L214" class="LineNr">214 </span> <span class="PreProc">loop</span> $main:word-loop -<span id="L215" class="LineNr">215 </span> <span class="Delimiter">}</span> -<span id="L216" class="LineNr">216 </span> <span class="muComment"># check first byte</span> -<span id="L217" class="LineNr">217 </span> <span class="Delimiter">{</span> -<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> c/eax: (addr byte) <span class="Special"><-</span> index s3, <span class="Constant">0</span> -<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> c2/eax: byte <span class="Special"><-</span> copy-byte *c -<span id="L220" class="LineNr">220 </span> compare c2, <span class="Constant">0x23</span>/hash -<span id="L221" class="LineNr">221 </span> <span class="PreProc">break-if-=</span> -<span id="L222" class="LineNr">222 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid2\n"</span> -<span id="L223" class="LineNr">223 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L224" class="LineNr">224 </span> <span class="PreProc">loop</span> $main:word-loop -<span id="L225" class="LineNr">225 </span> <span class="Delimiter">}</span> -<span id="L226" class="LineNr">226 </span> <span class="muComment"># check remaining bytes</span> -<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> i/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> <span class="muComment"># skip 0</span> -<span id="L228" class="LineNr">228 </span> <span class="Delimiter">{</span> -<span id="L229" class="LineNr">229 </span> compare i, <span class="Constant">7</span> -<span id="L230" class="LineNr">230 </span> <span class="PreProc">break-if->=</span> -<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> c/eax: (addr byte) <span class="Special"><-</span> index s3, i -<span id="L232" class="LineNr">232 </span> <span class="Delimiter">{</span> -<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> c2/eax: byte <span class="Special"><-</span> copy-byte *c -<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> valid?/eax: boolean <span class="Special"><-</span> <a href='../118parse-hex-int.subx.html#L701'>hex-digit?</a> c2 -<span id="L235" class="LineNr">235 </span> compare valid?, <span class="Constant">0</span> -<span id="L236" class="LineNr">236 </span> <span class="PreProc">loop-if-=</span> $main:word-loop -<span id="L237" class="LineNr">237 </span> <span class="Delimiter">}</span> -<span id="L238" class="LineNr">238 </span> i <span class="Special"><-</span> increment -<span id="L239" class="LineNr">239 </span> <span class="PreProc">loop</span> -<span id="L240" class="LineNr">240 </span> <span class="Delimiter">}</span> -<span id="L241" class="LineNr">241 </span> <span class="Delimiter">}</span> -<span id="L242" class="LineNr">242 </span> <span class="muComment"># ecl</span> -<span id="L243" class="LineNr">243 </span> <span class="Delimiter">{</span> -<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> ecl?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"ecl"</span> -<span id="L245" class="LineNr">245 </span> compare ecl?, <span class="Constant">0</span>/false -<span id="L246" class="LineNr">246 </span> <span class="PreProc">break-if-=</span> -<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> amb?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"amb"</span> -<span id="L248" class="LineNr">248 </span> compare amb?, <span class="Constant">0</span>/false -<span id="L249" class="LineNr">249 </span> <span class="PreProc">loop-if-!=</span> $main:word-loop -<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> blu?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"blu"</span> -<span id="L251" class="LineNr">251 </span> compare blu?, <span class="Constant">0</span>/false -<span id="L252" class="LineNr">252 </span> <span class="PreProc">loop-if-!=</span> $main:word-loop -<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> brn?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"brn"</span> -<span id="L254" class="LineNr">254 </span> compare brn?, <span class="Constant">0</span>/false -<span id="L255" class="LineNr">255 </span> <span class="PreProc">loop-if-!=</span> $main:word-loop -<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> gry?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"gry"</span> -<span id="L257" class="LineNr">257 </span> compare gry?, <span class="Constant">0</span>/false -<span id="L258" class="LineNr">258 </span> <span class="PreProc">loop-if-!=</span> $main:word-loop -<span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> grn?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"grn"</span> -<span id="L260" class="LineNr">260 </span> compare grn?, <span class="Constant">0</span>/false -<span id="L261" class="LineNr">261 </span> <span class="PreProc">loop-if-!=</span> $main:word-loop -<span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> hzl?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"hzl"</span> -<span id="L263" class="LineNr">263 </span> compare hzl?, <span class="Constant">0</span>/false -<span id="L264" class="LineNr">264 </span> <span class="PreProc">loop-if-!=</span> $main:word-loop -<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> oth?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"oth"</span> -<span id="L266" class="LineNr">266 </span> compare oth?, <span class="Constant">0</span>/false -<span id="L267" class="LineNr">267 </span> <span class="PreProc">loop-if-!=</span> $main:word-loop -<span id="L268" class="LineNr">268 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L269" class="LineNr">269 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L270" class="LineNr">270 </span> <span class="Delimiter">}</span> -<span id="L271" class="LineNr">271 </span> <span class="muComment"># pid</span> -<span id="L272" class="LineNr">272 </span> <span class="Delimiter">{</span> -<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> pid?/eax: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"pid"</span> -<span id="L274" class="LineNr">274 </span> compare pid?, <span class="Constant">0</span>/false -<span id="L275" class="LineNr">275 </span> <span class="PreProc">break-if-=</span> -<span id="L276" class="LineNr">276 </span> <span class="muComment"># convert val</span> -<span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> s: (handle array byte) -<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> s2/eax: (addr handle array byte) <span class="Special"><-</span> address s -<span id="L279" class="LineNr">279 </span> <a href='../315slice.subx.html#L5'>_slice-to-string</a> val-slice, s2 -<span id="L280" class="LineNr">280 </span> <span class="PreProc">var</span> s3/eax: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *s2 -<span id="L281" class="LineNr">281 </span> <span class="muComment"># check length</span> -<span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> len/eax: int <span class="Special"><-</span> length s3 -<span id="L283" class="LineNr">283 </span> compare len, <span class="Constant">9</span> -<span id="L284" class="LineNr">284 </span> <span class="Delimiter">{</span> -<span id="L285" class="LineNr">285 </span> <span class="PreProc">break-if-=</span> -<span id="L286" class="LineNr">286 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L287" class="LineNr">287 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L288" class="LineNr">288 </span> <span class="PreProc">loop</span> $main:word-loop -<span id="L289" class="LineNr">289 </span> <span class="Delimiter">}</span> -<span id="L290" class="LineNr">290 </span> <span class="muComment"># check valid decimal int</span> -<span id="L291" class="LineNr">291 </span> <span class="muComment"># parse-decimal-int-from-slice currently returns 0 on invalid parse,</span> -<span id="L292" class="LineNr">292 </span> <span class="muComment"># which isn't ideal but suffices for our purposes</span> -<span id="L293" class="LineNr">293 </span> <span class="PreProc">var</span> val/eax: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> val-slice -<span id="L294" class="LineNr">294 </span> compare val, <span class="Constant">0</span> -<span id="L295" class="LineNr">295 </span> <span class="Delimiter">{</span> -<span id="L296" class="LineNr">296 </span> <span class="PreProc">break-if-></span> -<span id="L297" class="LineNr">297 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L298" class="LineNr">298 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> -<span id="L299" class="LineNr">299 </span> <span class="Delimiter">}</span> -<span id="L300" class="LineNr">300 </span> <span class="Delimiter">}</span> -<span id="L301" class="LineNr">301 </span> <span class="PreProc">loop</span> -<span id="L302" class="LineNr">302 </span> <span class="Delimiter">}</span> -<span id="L303" class="LineNr">303 </span> <span class="PreProc">loop</span> -<span id="L304" class="LineNr">304 </span> <span class="Delimiter">}</span> -<span id="L305" class="LineNr">305 </span> <span class="muComment"># process final passport</span> -<span id="L306" class="LineNr">306 </span> compare curr-passport-field-count, <span class="Constant">7</span> -<span id="L307" class="LineNr">307 </span> <span class="Delimiter">{</span> -<span id="L308" class="LineNr">308 </span> <span class="PreProc">break-if-!=</span> -<span id="L309" class="LineNr">309 </span> valid-passport-count <span class="Special"><-</span> increment -<span id="L310" class="LineNr">310 </span> <span class="Delimiter">}</span> -<span id="L311" class="LineNr">311 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, valid-passport-count -<span id="L312" class="LineNr">312 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L313" class="LineNr">313 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L314" class="LineNr">314 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/advent2020/5a.mu.html b/html/linux/advent2020/5a.mu.html deleted file mode 100644 index 65e52369..00000000 --- a/html/linux/advent2020/5a.mu.html +++ /dev/null @@ -1,146 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/advent2020/5a.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.muRegEdx { color: #af5f00; } -.Special { color: #ff6060; } -.LineNr { } -.muRegEbx { color: #5f00ff; } -.Constant { color: #008787; } -.muRegEdi { color: #00af00; } -.muRegEcx { color: #870000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/5a.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/5a.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/5">https://adventofcode.com/2020/day/5</a></span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/5a.mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> -<span id="L10" class="LineNr">10 </span> -<span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='5a.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x10</span>) <span class="muComment"># 16 bytes is enough</span> -<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> line/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage -<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> max-seat-id/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L15" class="LineNr">15 </span> <span class="Delimiter">{</span> -<span id="L16" class="LineNr">16 </span> <span class="muComment"># read line from stdin</span> -<span id="L17" class="LineNr">17 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line -<span id="L18" class="LineNr">18 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line -<span id="L19" class="LineNr">19 </span> <a href='../304screen.subx.html#L147'>print-stream-to-real-screen</a> line -<span id="L20" class="LineNr">20 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L22" class="LineNr">22 </span> compare done?, <span class="Constant">0</span>/false -<span id="L23" class="LineNr">23 </span> <span class="PreProc">break-if-!=</span> -<span id="L24" class="LineNr">24 </span> <span class="muComment"># process line</span> -<span id="L25" class="LineNr">25 </span> <span class="PreProc">var</span> seat-id/eax: int <span class="Special"><-</span> <a href='5a.mu.html#L38'>convert-from-binary</a> line -<span id="L26" class="LineNr">26 </span> compare seat-id, max-seat-id -<span id="L27" class="LineNr">27 </span> <span class="Delimiter">{</span> -<span id="L28" class="LineNr">28 </span> <span class="PreProc">break-if-<=</span> -<span id="L29" class="LineNr">29 </span> max-seat-id <span class="Special"><-</span> copy seat-id -<span id="L30" class="LineNr">30 </span> <span class="Delimiter">}</span> -<span id="L31" class="LineNr">31 </span> <span class="PreProc">loop</span> -<span id="L32" class="LineNr">32 </span> <span class="Delimiter">}</span> -<span id="L33" class="LineNr">33 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, max-seat-id -<span id="L34" class="LineNr">34 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L35" class="LineNr">35 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L36" class="LineNr">36 </span><span class="Delimiter">}</span> -<span id="L37" class="LineNr">37 </span> -<span id="L38" class="LineNr">38 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='5a.mu.html#L38'>convert-from-binary</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L39" class="LineNr">39 </span> <span class="PreProc">var</span> result/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> i/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">9</span> <span class="muComment"># loop counter and also exponent</span> -<span id="L41" class="LineNr">41 </span> <span class="Delimiter">{</span> -<span id="L42" class="LineNr">42 </span> compare i, <span class="Constant">0</span> -<span id="L43" class="LineNr">43 </span> <span class="PreProc">break-if-<</span> -<span id="L44" class="LineNr">44 </span> <span class="PreProc">var</span> c/eax: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> in -<span id="L45" class="LineNr">45 </span><span class="CommentedCode">#? print-string 0, "char: "</span> -<span id="L46" class="LineNr">46 </span><span class="CommentedCode">#? {</span> -<span id="L47" class="LineNr">47 </span><span class="CommentedCode">#? var c2/eax: int <- copy c</span> -<span id="L48" class="LineNr">48 </span><span class="CommentedCode">#? print-int32-hex 0, c2</span> -<span id="L49" class="LineNr">49 </span><span class="CommentedCode">#? }</span> -<span id="L50" class="LineNr">50 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L51" class="LineNr">51 </span> <span class="PreProc">var</span> bit/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L52" class="LineNr">52 </span> <span class="Delimiter">{</span> -<span id="L53" class="LineNr">53 </span> compare c, <span class="Constant">0x42</span>/B -<span id="L54" class="LineNr">54 </span> <span class="PreProc">break-if-!=</span> -<span id="L55" class="LineNr">55 </span> bit <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L56" class="LineNr">56 </span> <span class="Delimiter">}</span> -<span id="L57" class="LineNr">57 </span> <span class="Delimiter">{</span> -<span id="L58" class="LineNr">58 </span> compare c, <span class="Constant">0x52</span>/R -<span id="L59" class="LineNr">59 </span> <span class="PreProc">break-if-!=</span> -<span id="L60" class="LineNr">60 </span> bit <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L61" class="LineNr">61 </span> <span class="Delimiter">}</span> -<span id="L62" class="LineNr">62 </span><span class="CommentedCode">#? print-string 0, "bit: "</span> -<span id="L63" class="LineNr">63 </span><span class="CommentedCode">#? print-int32-decimal 0, bit</span> -<span id="L64" class="LineNr">64 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L65" class="LineNr">65 </span> <span class="PreProc">var</span> bit-value/eax: int <span class="Special"><-</span> <a href='../406int32.mu.html#L5'>repeated-shift-left</a> bit, i -<span id="L66" class="LineNr">66 </span><span class="CommentedCode">#? print-string 0, "bit value: "</span> -<span id="L67" class="LineNr">67 </span><span class="CommentedCode">#? print-int32-decimal 0, bit-value</span> -<span id="L68" class="LineNr">68 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L69" class="LineNr">69 </span> result <span class="Special"><-</span> add bit-value -<span id="L70" class="LineNr">70 </span><span class="CommentedCode">#? print-string 0, "result: "</span> -<span id="L71" class="LineNr">71 </span><span class="CommentedCode">#? print-int32-decimal 0, result</span> -<span id="L72" class="LineNr">72 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L73" class="LineNr">73 </span> i <span class="Special"><-</span> decrement -<span id="L74" class="LineNr">74 </span> <span class="PreProc">loop</span> -<span id="L75" class="LineNr">75 </span> <span class="Delimiter">}</span> -<span id="L76" class="LineNr">76 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, result -<span id="L77" class="LineNr">77 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L78" class="LineNr">78 </span> <span class="PreProc">return</span> result -<span id="L79" class="LineNr">79 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/advent2020/5b.mu.html b/html/linux/advent2020/5b.mu.html deleted file mode 100644 index c03039b9..00000000 --- a/html/linux/advent2020/5b.mu.html +++ /dev/null @@ -1,148 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/advent2020/5b.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.muRegEdx { color: #af5f00; } -.Special { color: #ff6060; } -.LineNr { } -.muRegEsi { color: #005faf; } -.muRegEbx { color: #5f00ff; } -.Constant { color: #008787; } -.muRegEdi { color: #00af00; } -.muRegEcx { color: #870000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/5b.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/5b.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/5">https://adventofcode.com/2020/day/5</a></span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/5b.mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> -<span id="L10" class="LineNr">10 </span> -<span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='5b.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> pass-storage: (array int <span class="Constant">0x400</span>) <span class="muComment"># 1k ints</span> -<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> pass/<span class="muRegEsi">esi</span>: (addr array int) <span class="Special"><-</span> address pass-storage -<span id="L14" class="LineNr">14 </span> <span class="muComment"># phase 1: populate pass array</span> -<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x10</span>) <span class="muComment"># 16 bytes is enough</span> -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> line/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage -<span id="L17" class="LineNr">17 </span> <span class="Delimiter">{</span> -<span id="L18" class="LineNr">18 </span> <span class="muComment"># read line from stdin</span> -<span id="L19" class="LineNr">19 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line -<span id="L20" class="LineNr">20 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line -<span id="L21" class="LineNr">21 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L23" class="LineNr">23 </span> compare done?, <span class="Constant">0</span>/false -<span id="L24" class="LineNr">24 </span> <span class="PreProc">break-if-!=</span> -<span id="L25" class="LineNr">25 </span> <span class="muComment"># process line</span> -<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> seat-id/eax: int <span class="Special"><-</span> <a href='5b.mu.html#L57'>convert-from-binary</a> line -<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> dest/eax: (addr int) <span class="Special"><-</span> index pass, seat-id -<span id="L28" class="LineNr">28 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L29" class="LineNr">29 </span> <span class="PreProc">loop</span> -<span id="L30" class="LineNr">30 </span> <span class="Delimiter">}</span> -<span id="L31" class="LineNr">31 </span> <span class="muComment"># phase 2: skip empty seats</span> -<span id="L32" class="LineNr">32 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L33" class="LineNr">33 </span> <span class="Delimiter">{</span> -<span id="L34" class="LineNr">34 </span> compare i, <span class="Constant">0x400</span> -<span id="L35" class="LineNr">35 </span> <span class="PreProc">break-if->=</span> -<span id="L36" class="LineNr">36 </span> <span class="PreProc">var</span> src/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> index pass, i -<span id="L37" class="LineNr">37 </span> compare *src, <span class="Constant">0</span> -<span id="L38" class="LineNr">38 </span> <span class="PreProc">break-if-!=</span> -<span id="L39" class="LineNr">39 </span> i <span class="Special"><-</span> increment -<span id="L40" class="LineNr">40 </span> <span class="PreProc">loop</span> -<span id="L41" class="LineNr">41 </span> <span class="Delimiter">}</span> -<span id="L42" class="LineNr">42 </span> <span class="muComment"># phase 3: skip non-empty seats</span> -<span id="L43" class="LineNr">43 </span> <span class="Delimiter">{</span> -<span id="L44" class="LineNr">44 </span> compare i, <span class="Constant">0x400</span> -<span id="L45" class="LineNr">45 </span> <span class="PreProc">break-if->=</span> -<span id="L46" class="LineNr">46 </span> <span class="PreProc">var</span> src/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> index pass, i -<span id="L47" class="LineNr">47 </span> compare *src, <span class="Constant">0</span> -<span id="L48" class="LineNr">48 </span> <span class="PreProc">break-if-=</span> -<span id="L49" class="LineNr">49 </span> i <span class="Special"><-</span> increment -<span id="L50" class="LineNr">50 </span> <span class="PreProc">loop</span> -<span id="L51" class="LineNr">51 </span> <span class="Delimiter">}</span> -<span id="L52" class="LineNr">52 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, i -<span id="L53" class="LineNr">53 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L54" class="LineNr">54 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L55" class="LineNr">55 </span><span class="Delimiter">}</span> -<span id="L56" class="LineNr">56 </span> -<span id="L57" class="LineNr">57 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='5b.mu.html#L57'>convert-from-binary</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> -<span id="L58" class="LineNr">58 </span> <span class="PreProc">var</span> result/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L59" class="LineNr">59 </span> <span class="PreProc">var</span> i/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">9</span> <span class="muComment"># loop counter and also exponent</span> -<span id="L60" class="LineNr">60 </span> <span class="Delimiter">{</span> -<span id="L61" class="LineNr">61 </span> compare i, <span class="Constant">0</span> -<span id="L62" class="LineNr">62 </span> <span class="PreProc">break-if-<</span> -<span id="L63" class="LineNr">63 </span> <span class="PreProc">var</span> c/eax: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> in -<span id="L64" class="LineNr">64 </span> <span class="PreProc">var</span> bit/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L65" class="LineNr">65 </span> <span class="Delimiter">{</span> -<span id="L66" class="LineNr">66 </span> compare c, <span class="Constant">0x42</span>/B -<span id="L67" class="LineNr">67 </span> <span class="PreProc">break-if-!=</span> -<span id="L68" class="LineNr">68 </span> bit <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L69" class="LineNr">69 </span> <span class="Delimiter">}</span> -<span id="L70" class="LineNr">70 </span> <span class="Delimiter">{</span> -<span id="L71" class="LineNr">71 </span> compare c, <span class="Constant">0x52</span>/R -<span id="L72" class="LineNr">72 </span> <span class="PreProc">break-if-!=</span> -<span id="L73" class="LineNr">73 </span> bit <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L74" class="LineNr">74 </span> <span class="Delimiter">}</span> -<span id="L75" class="LineNr">75 </span> <span class="PreProc">var</span> bit-value/eax: int <span class="Special"><-</span> <a href='../406int32.mu.html#L5'>repeated-shift-left</a> bit, i -<span id="L76" class="LineNr">76 </span> result <span class="Special"><-</span> add bit-value -<span id="L77" class="LineNr">77 </span> i <span class="Special"><-</span> decrement -<span id="L78" class="LineNr">78 </span> <span class="PreProc">loop</span> -<span id="L79" class="LineNr">79 </span> <span class="Delimiter">}</span> -<span id="L80" class="LineNr">80 </span> <span class="PreProc">return</span> result -<span id="L81" class="LineNr">81 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/apps/advent2017/1a.mu.html b/html/linux/apps/advent2017/1a.mu.html index 88f60dbc..2a8e6e43 100644 --- a/html/linux/apps/advent2017/1a.mu.html +++ b/html/linux/apps/advent2017/1a.mu.html @@ -15,16 +15,16 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.muRegEdx { color: #af5f00; } .Special { color: #ff6060; } .LineNr { } .muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEdi { color: #00af00; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/advent2020/1a.mu.html b/html/linux/apps/advent2020/1a.mu.html index e75fe8fc..9a633612 100644 --- a/html/linux/apps/advent2020/1a.mu.html +++ b/html/linux/apps/advent2020/1a.mu.html @@ -15,18 +15,18 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.CommentedCode { color: #8a8a8a; } -.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } .Special { color: #ff6060; } .LineNr { } .muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEdi { color: #00af00; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/advent2020/1b.mu.html b/html/linux/apps/advent2020/1b.mu.html index 4346642b..7d4a5de7 100644 --- a/html/linux/apps/advent2020/1b.mu.html +++ b/html/linux/apps/advent2020/1b.mu.html @@ -15,18 +15,18 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.CommentedCode { color: #8a8a8a; } -.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } .Special { color: #ff6060; } .LineNr { } .muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEdi { color: #00af00; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/advent2020/2a.mu.html b/html/linux/apps/advent2020/2a.mu.html index 2e6e3488..883235b3 100644 --- a/html/linux/apps/advent2020/2a.mu.html +++ b/html/linux/apps/advent2020/2a.mu.html @@ -15,17 +15,17 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } .Special { color: #ff6060; } .LineNr { } .muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEdi { color: #00af00; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/advent2020/2b.mu.html b/html/linux/apps/advent2020/2b.mu.html index 604e06bb..ba37c11b 100644 --- a/html/linux/apps/advent2020/2b.mu.html +++ b/html/linux/apps/advent2020/2b.mu.html @@ -15,18 +15,18 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.CommentedCode { color: #8a8a8a; } -.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } .Special { color: #ff6060; } .LineNr { } .muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEdi { color: #00af00; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/advent2020/3a.mu.html b/html/linux/apps/advent2020/3a.mu.html index 09d7f160..1a7266dd 100644 --- a/html/linux/apps/advent2020/3a.mu.html +++ b/html/linux/apps/advent2020/3a.mu.html @@ -15,18 +15,18 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.CommentedCode { color: #8a8a8a; } -.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } .Special { color: #ff6060; } .LineNr { } .muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEdi { color: #00af00; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/advent2020/3b.mu.html b/html/linux/apps/advent2020/3b.mu.html index ff64117f..eed8ad9c 100644 --- a/html/linux/apps/advent2020/3b.mu.html +++ b/html/linux/apps/advent2020/3b.mu.html @@ -15,18 +15,18 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.CommentedCode { color: #8a8a8a; } -.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } .Special { color: #ff6060; } .LineNr { } .muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEdi { color: #00af00; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/advent2020/4a.mu.html b/html/linux/apps/advent2020/4a.mu.html index 6f477717..395efdb8 100644 --- a/html/linux/apps/advent2020/4a.mu.html +++ b/html/linux/apps/advent2020/4a.mu.html @@ -15,17 +15,17 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } .Special { color: #ff6060; } .LineNr { } +.Constant { color: #008787; } +.muRegEbx { color: #5f00ff; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } -.Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/advent2020/4b.mu.html b/html/linux/apps/advent2020/4b.mu.html index 47538296..36b8cc8b 100644 --- a/html/linux/apps/advent2020/4b.mu.html +++ b/html/linux/apps/advent2020/4b.mu.html @@ -15,17 +15,17 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } .Special { color: #ff6060; } .LineNr { } +.Constant { color: #008787; } +.muRegEbx { color: #5f00ff; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } -.Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> @@ -113,7 +113,7 @@ if ('onhashchange' in window) { <span id="L50" class="LineNr"> 50 </span> <span class="PreProc">break-if-!=</span> <span id="L51" class="LineNr"> 51 </span> <a href='../../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x3a</span>, key-slice <span class="muComment"># ':'</span> <span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> dummy/eax: byte <span class="Special"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip ':'</span> -<span id="L53" class="LineNr"> 53 </span> <a href='../../127next-word.subx.html#L306'>next-raw-word</a> line, val-slice +<span id="L53" class="LineNr"> 53 </span> <a href='../../127next-word.subx.html#L321'>next-raw-word</a> line, val-slice <span id="L54" class="LineNr"> 54 </span> <a href='../../304screen.subx.html#L134'>print-slice-to-real-screen</a> key-slice <span id="L55" class="LineNr"> 55 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" : "</span> <span id="L56" class="LineNr"> 56 </span> <a href='../../304screen.subx.html#L134'>print-slice-to-real-screen</a> val-slice diff --git a/html/linux/apps/advent2020/5a.mu.html b/html/linux/apps/advent2020/5a.mu.html index 3c3b535d..92d47643 100644 --- a/html/linux/apps/advent2020/5a.mu.html +++ b/html/linux/apps/advent2020/5a.mu.html @@ -15,17 +15,17 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.Special { color: #ff6060; } .muRegEdx { color: #af5f00; } +.Special { color: #ff6060; } .LineNr { } -.CommentedCode { color: #8a8a8a; } -.muRegEdi { color: #00af00; } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEdi { color: #00af00; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } .muComment { color: #005faf; } -.muRegEcx { color: #870000; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/advent2020/5b.mu.html b/html/linux/apps/advent2020/5b.mu.html index b5e1892f..86d054aa 100644 --- a/html/linux/apps/advent2020/5b.mu.html +++ b/html/linux/apps/advent2020/5b.mu.html @@ -15,17 +15,17 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } .Special { color: #ff6060; } .LineNr { } .muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEdi { color: #00af00; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/arith.mu.html b/html/linux/apps/arith.mu.html index fb6a9194..45ea9576 100644 --- a/html/linux/apps/arith.mu.html +++ b/html/linux/apps/arith.mu.html @@ -15,18 +15,18 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.CommentedCode { color: #8a8a8a; } -.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } .Special { color: #ff6060; } .LineNr { } +.Constant { color: #008787; } +.muRegEbx { color: #5f00ff; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } -.Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> @@ -97,7 +97,7 @@ if ('onhashchange' in window) { <span id="L33" class="LineNr"> 33 </span> <span id="L34" class="LineNr"> 34 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L34'>main</a></span><span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span> <span id="L35" class="LineNr"> 35 </span> <a href='../305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> <span class="muComment"># lookahead</span> +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0</span> <span class="muComment"># lookahead</span> <span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> n/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span class="muComment"># result of each expression</span> <span id="L38" class="LineNr"> 38 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"press ctrl-c or ctrl-d to exit\n"</span> <span id="L39" class="LineNr"> 39 </span> <span class="muComment"># read-eval-print loop</span> @@ -119,17 +119,17 @@ if ('onhashchange' in window) { <span id="L55" class="LineNr"> 55 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L56" class="LineNr"> 56 </span><span class="Delimiter">}</span> <span id="L57" class="LineNr"> 57 </span> -<span id="L58" class="LineNr"> 58 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L58'>simplify</a></span><span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEsi">esi</span>: grapheme <span class="Delimiter">{</span> +<span id="L58" class="LineNr"> 58 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L58'>simplify</a></span><span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Delimiter">{</span> <span id="L59" class="LineNr"> 59 </span> <span class="muComment"># prime the pump</span> -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: grapheme <span class="Special"><-</span> <a href='arith.mu.html#L248'>get-char</a> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Special"><-</span> <a href='arith.mu.html#L248'>get-char</a> <span id="L61" class="LineNr"> 61 </span> <span class="muComment"># do it</span> <span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L63" class="LineNr"> 63 </span> result, look <span class="Special"><-</span> <a href='arith.mu.html#L67'>expression</a> look <span id="L64" class="LineNr"> 64 </span> <span class="PreProc">return</span> result, look <span id="L65" class="LineNr"> 65 </span><span class="Delimiter">}</span> <span id="L66" class="LineNr"> 66 </span> -<span id="L67" class="LineNr"> 67 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L67'>expression</a></span> _look: grapheme<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEsi">esi</span>: grapheme <span class="Delimiter">{</span> -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: grapheme <span class="Special"><-</span> copy _look +<span id="L67" class="LineNr"> 67 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L67'>expression</a></span> _look: code-point-utf8<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Delimiter">{</span> +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Special"><-</span> copy _look <span id="L69" class="LineNr"> 69 </span> <span class="muComment"># read arg</span> <span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L71" class="LineNr"> 71 </span> result, look <span class="Special"><-</span> <a href='arith.mu.html#L112'>term</a> look @@ -142,7 +142,7 @@ if ('onhashchange' in window) { <span id="L78" class="LineNr"> 78 </span> <span class="PreProc">break-if-=</span> $expression:<span class="PreProc">loop</span> <span id="L79" class="LineNr"> 79 </span> <span class="Delimiter">}</span> <span id="L80" class="LineNr"> 80 </span> <span class="muComment"># read operator</span> -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> op/<span class="muRegEcx">ecx</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> op/<span class="muRegEcx">ecx</span>: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L82" class="LineNr"> 82 </span> op, look <span class="Special"><-</span> operator look <span id="L83" class="LineNr"> 83 </span> <span class="muComment"># read next arg</span> <span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> second/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> @@ -173,8 +173,8 @@ if ('onhashchange' in window) { <span id="L109" class="LineNr">109 </span> <span class="PreProc">return</span> result, look <span id="L110" class="LineNr">110 </span><span class="Delimiter">}</span> <span id="L111" class="LineNr">111 </span> -<span id="L112" class="LineNr">112 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L112'>term</a></span> _look: grapheme<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEsi">esi</span>: grapheme <span class="Delimiter">{</span> -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: grapheme <span class="Special"><-</span> copy _look +<span id="L112" class="LineNr">112 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L112'>term</a></span> _look: code-point-utf8<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Delimiter">{</span> +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Special"><-</span> copy _look <span id="L114" class="LineNr">114 </span> <span class="muComment"># read arg</span> <span id="L115" class="LineNr">115 </span> look <span class="Special"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look <span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> @@ -188,7 +188,7 @@ if ('onhashchange' in window) { <span id="L124" class="LineNr">124 </span> <span class="PreProc">break-if-=</span> $term:<span class="PreProc">loop</span> <span id="L125" class="LineNr">125 </span> <span class="Delimiter">}</span> <span id="L126" class="LineNr">126 </span> <span class="muComment"># read operator</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> op/<span class="muRegEcx">ecx</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> op/<span class="muRegEcx">ecx</span>: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L128" class="LineNr">128 </span> op, look <span class="Special"><-</span> operator look <span id="L129" class="LineNr">129 </span> <span class="muComment"># read next arg</span> <span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> second/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> @@ -218,8 +218,8 @@ if ('onhashchange' in window) { <span id="L154" class="LineNr">154 </span> <span class="PreProc">return</span> result, look <span id="L155" class="LineNr">155 </span><span class="Delimiter">}</span> <span id="L156" class="LineNr">156 </span> -<span id="L157" class="LineNr">157 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L157'>factor</a></span> _look: grapheme<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEsi">esi</span>: grapheme <span class="Delimiter">{</span> -<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: grapheme <span class="Special"><-</span> copy _look <span class="muComment"># should be a no-op</span> +<span id="L157" class="LineNr">157 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L157'>factor</a></span> _look: code-point-utf8<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Delimiter">{</span> +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Special"><-</span> copy _look <span class="muComment"># should be a no-op</span> <span id="L159" class="LineNr">159 </span> look <span class="Special"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look <span id="L160" class="LineNr">160 </span> <span class="muComment"># if next char is not '(', parse a number</span> <span id="L161" class="LineNr">161 </span> compare look, <span class="Constant">0x28</span>/open-paren @@ -238,7 +238,7 @@ if ('onhashchange' in window) { <span id="L174" class="LineNr">174 </span> <span class="PreProc">return</span> result, look <span id="L175" class="LineNr">175 </span><span class="Delimiter">}</span> <span id="L176" class="LineNr">176 </span> -<span id="L177" class="LineNr">177 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L177'>mul-or-div?</a></span> c: grapheme<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L177" class="LineNr">177 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L177'>mul-or-div?</a></span> c: code-point-utf8<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L178" class="LineNr">178 </span> compare c, <span class="Constant">0x2a</span>/* <span id="L179" class="LineNr">179 </span> <span class="Delimiter">{</span> <span id="L180" class="LineNr">180 </span> <span class="PreProc">break-if-!=</span> @@ -252,7 +252,7 @@ if ('onhashchange' in window) { <span id="L188" class="LineNr">188 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L189" class="LineNr">189 </span><span class="Delimiter">}</span> <span id="L190" class="LineNr">190 </span> -<span id="L191" class="LineNr">191 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L191'>add-or-sub?</a></span> c: grapheme<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L191" class="LineNr">191 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L191'>add-or-sub?</a></span> c: code-point-utf8<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L192" class="LineNr">192 </span> compare c, <span class="Constant">0x2b</span>/+ <span id="L193" class="LineNr">193 </span> <span class="Delimiter">{</span> <span id="L194" class="LineNr">194 </span> <span class="PreProc">break-if-!=</span> @@ -266,14 +266,14 @@ if ('onhashchange' in window) { <span id="L202" class="LineNr">202 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L203" class="LineNr">203 </span><span class="Delimiter">}</span> <span id="L204" class="LineNr">204 </span> -<span id="L205" class="LineNr">205 </span><span class="PreProc">fn</span> <span class="muFunction">operator</span> _look: grapheme<span class="PreProc"> -> </span>_/<span class="muRegEcx">ecx</span>: grapheme, _/<span class="muRegEsi">esi</span>: grapheme <span class="Delimiter">{</span> -<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> op/<span class="muRegEcx">ecx</span>: grapheme <span class="Special"><-</span> copy _look -<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: grapheme <span class="Special"><-</span> <a href='arith.mu.html#L248'>get-char</a> +<span id="L205" class="LineNr">205 </span><span class="PreProc">fn</span> <span class="muFunction">operator</span> _look: code-point-utf8<span class="PreProc"> -> </span>_/<span class="muRegEcx">ecx</span>: code-point-utf8, _/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Delimiter">{</span> +<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> op/<span class="muRegEcx">ecx</span>: code-point-utf8 <span class="Special"><-</span> copy _look +<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Special"><-</span> <a href='arith.mu.html#L248'>get-char</a> <span id="L208" class="LineNr">208 </span> <span class="PreProc">return</span> op, look <span id="L209" class="LineNr">209 </span><span class="Delimiter">}</span> <span id="L210" class="LineNr">210 </span> -<span id="L211" class="LineNr">211 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L211'>num</a></span> _look: grapheme<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEsi">esi</span>: grapheme <span class="Delimiter">{</span> -<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: grapheme <span class="Special"><-</span> copy _look +<span id="L211" class="LineNr">211 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L211'>num</a></span> _look: code-point-utf8<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Delimiter">{</span> +<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Special"><-</span> copy _look <span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> result/<span class="muRegEdi">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L214" class="LineNr">214 </span> <span class="Delimiter">{</span> <span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> first-digit/eax: int <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L405'>to-decimal-digit</a> look @@ -298,8 +298,8 @@ if ('onhashchange' in window) { <span id="L234" class="LineNr">234 </span> <span class="PreProc">return</span> result, look <span id="L235" class="LineNr">235 </span><span class="Delimiter">}</span> <span id="L236" class="LineNr">236 </span> -<span id="L237" class="LineNr">237 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L237'>skip-spaces</a></span> _look: grapheme<span class="PreProc"> -> </span>_/<span class="muRegEsi">esi</span>: grapheme <span class="Delimiter">{</span> -<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: grapheme <span class="Special"><-</span> copy _look <span class="muComment"># should be a no-op</span> +<span id="L237" class="LineNr">237 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L237'>skip-spaces</a></span> _look: code-point-utf8<span class="PreProc"> -> </span>_/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Delimiter">{</span> +<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> look/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Special"><-</span> copy _look <span class="muComment"># should be a no-op</span> <span id="L239" class="LineNr">239 </span> <span class="Delimiter">{</span> <span id="L240" class="LineNr">240 </span> compare look, <span class="Constant">0x20</span> <span id="L241" class="LineNr">241 </span> <span class="PreProc">break-if-!=</span> @@ -309,9 +309,9 @@ if ('onhashchange' in window) { <span id="L245" class="LineNr">245 </span> <span class="PreProc">return</span> look <span id="L246" class="LineNr">246 </span><span class="Delimiter">}</span> <span id="L247" class="LineNr">247 </span> -<span id="L248" class="LineNr">248 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L248'>get-char</a></span><span class="PreProc"> -> </span>_/<span class="muRegEsi">esi</span>: grapheme <span class="Delimiter">{</span> -<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> look/eax: grapheme <span class="Special"><-</span> <a href='../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> -<span id="L250" class="LineNr">250 </span> <a href='../304screen.subx.html#L161'>print-grapheme-to-real-screen</a> look +<span id="L248" class="LineNr">248 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L248'>get-char</a></span><span class="PreProc"> -> </span>_/<span class="muRegEsi">esi</span>: code-point-utf8 <span class="Delimiter">{</span> +<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> look/eax: code-point-utf8 <span class="Special"><-</span> <a href='../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> +<span id="L250" class="LineNr">250 </span> <a href='../304screen.subx.html#L161'>print-code-point-utf8-to-real-screen</a> look <span id="L251" class="LineNr">251 </span> compare look, <span class="Constant">4</span> <span id="L252" class="LineNr">252 </span> <span class="Delimiter">{</span> <span id="L253" class="LineNr">253 </span> <span class="PreProc">break-if-!=</span> diff --git a/html/linux/apps/ex1.mu.html b/html/linux/apps/ex1.mu.html index bf1644a4..b0dc408b 100644 --- a/html/linux/apps/ex1.mu.html +++ b/html/linux/apps/ex1.mu.html @@ -16,11 +16,11 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } .LineNr { } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/ex1.subx.html b/html/linux/apps/ex1.subx.html index 678f74c9..4be53f0a 100644 --- a/html/linux/apps/ex1.subx.html +++ b/html/linux/apps/ex1.subx.html @@ -59,8 +59,8 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span><span class="subxComment"># Same as <a href="https://www.muppetlabs.com/~breadbox/software/tiny/teensy.html">https://www.muppetlabs.com/~breadbox/software/tiny/teensy.html</a></span> <span id="L5" class="LineNr"> 5 </span><span class="subxComment">#</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># To run:</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex1.subx -o ex1</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ bootstrap/bootstrap run ex1</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ ./translate_subx 000init.subx apps/ex1.subx</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ ./a.elf</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># Expected result:</span> <span id="L10" class="LineNr">10 </span><span class="subxComment"># $ echo $?</span> <span id="L11" class="LineNr">11 </span><span class="subxComment"># 42</span> diff --git a/html/linux/apps/ex10.subx.html b/html/linux/apps/ex10.subx.html index c359244c..fd636970 100644 --- a/html/linux/apps/ex10.subx.html +++ b/html/linux/apps/ex10.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -60,8 +60,8 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># String comparison: return 1 iff the two args passed in at the commandline are equal.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex10.subx -o ex10</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex10 abc abd</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./translate_subx 000init.subx apps/ex10.subx</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./a.elf abc abd</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo $?</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># 0 # false</span> diff --git a/html/linux/apps/ex11.subx.html b/html/linux/apps/ex11.subx.html index f101f852..165ebbe3 100644 --- a/html/linux/apps/ex11.subx.html +++ b/html/linux/apps/ex11.subx.html @@ -14,17 +14,17 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } +.subxMinorFunction { color: #875f5f; } .Constant { color: #008787; } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.subxMinorFunction { color: #875f5f; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -68,8 +68,8 @@ if ('onhashchange' in window) { <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># a null-terminated 'kernel string' with a size-prefixed 'SubX string'.</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment">#</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># To run:</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex11.subx -o ex11</span> -<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># $ bootstrap/bootstrap run ex11 # runs a series of tests</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ ./translate_subx 000init.subx apps/ex11.subx</span> +<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># $ ./a.elf # runs a series of tests</span> <span id="L11" class="LineNr"> 11 </span><span class="subxComment"># ...... # all tests pass</span> <span id="L12" class="LineNr"> 12 </span><span class="subxComment">#</span> <span id="L13" class="LineNr"> 13 </span><span class="subxComment"># (We can't yet run the tests when given a "test" commandline argument,</span> @@ -378,7 +378,7 @@ if ('onhashchange' in window) { <span id="L316" class="LineNr">316 </span> 51/push-ecx <span id="L317" class="LineNr">317 </span> 52/push-edx <span id="L318" class="LineNr">318 </span> 53/push-ebx -<span id="L319" class="LineNr">319 </span> <span class="subxComment"># syscall(write, 2/stderr, (data) s+4, (size) *s)</span> +<span id="L319" class="LineNr">319 </span> <span class="subxComment"># syscall_write(2/stderr, (data) s+4, (size) *s)</span> <span id="L320" class="LineNr">320 </span> <span class="subxS2Comment"># . . fd = 2 (stderr)</span> <span id="L321" class="LineNr">321 </span> bb/copy-to-ebx 2/imm32 <span id="L322" class="LineNr">322 </span> <span class="subxS2Comment"># . . x = s+4</span> diff --git a/html/linux/apps/ex12.subx.html b/html/linux/apps/ex12.subx.html index 12b09331..1ce398d8 100644 --- a/html/linux/apps/ex12.subx.html +++ b/html/linux/apps/ex12.subx.html @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> @@ -59,8 +59,8 @@ if ('onhashchange' in window) { <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># Create a new segment using mmap, save the address, write to it.</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment">#</span> <span id="L4" class="LineNr"> 4 </span><span class="subxComment"># To run:</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex12.subx -o ex12</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ bootstrap/bootstrap run ex12</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./translate_subx 000init.subx apps/ex12.subx</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ ./a.elf</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># You shouldn't get a segmentation fault.</span> <span id="L8" class="LineNr"> 8 </span> <span id="L9" class="LineNr"> 9 </span>== code diff --git a/html/linux/apps/ex13.subx.html b/html/linux/apps/ex13.subx.html index c0181b6c..83c378b5 100644 --- a/html/linux/apps/ex13.subx.html +++ b/html/linux/apps/ex13.subx.html @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } @@ -59,8 +59,8 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Compare 3 and 3.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex13.subx -o ex13</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex13</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./translate_subx 000init.subx apps/ex13.subx</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo $?</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># 1</span> diff --git a/html/linux/apps/ex14.subx.html b/html/linux/apps/ex14.subx.html index fd76cdc3..fde8dd61 100644 --- a/html/linux/apps/ex14.subx.html +++ b/html/linux/apps/ex14.subx.html @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } @@ -59,8 +59,8 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Multiply 2 numbers.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex14.subx -o ex14</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex14</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./translate_subx 000init.subx apps/ex14.subx</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo $?</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># 6</span> diff --git a/html/linux/apps/ex2.mu.html b/html/linux/apps/ex2.mu.html index 48ee0e00..faf14219 100644 --- a/html/linux/apps/ex2.mu.html +++ b/html/linux/apps/ex2.mu.html @@ -15,14 +15,14 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } .Special { color: #ff6060; } .LineNr { } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/ex2.subx.html b/html/linux/apps/ex2.subx.html index 519b4b73..1b888d5f 100644 --- a/html/linux/apps/ex2.subx.html +++ b/html/linux/apps/ex2.subx.html @@ -56,11 +56,11 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Add 3 and 4, and return the result in the exit code.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex2.subx -o ex2</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex2</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./translate_subx 000init.subx apps/ex2.subx</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo $?</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># 2</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># 7</span> <span id="L9" class="LineNr"> 9 </span> <span id="L10" class="LineNr">10 </span>== code <span id="L11" class="LineNr">11 </span> diff --git a/html/linux/apps/ex3.2.mu.html b/html/linux/apps/ex3.2.mu.html index 98c6a027..cc741ab7 100644 --- a/html/linux/apps/ex3.2.mu.html +++ b/html/linux/apps/ex3.2.mu.html @@ -15,15 +15,15 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } .Special { color: #ff6060; } .LineNr { } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/ex3.mu.html b/html/linux/apps/ex3.mu.html index 9da58562..e6527d19 100644 --- a/html/linux/apps/ex3.mu.html +++ b/html/linux/apps/ex3.mu.html @@ -17,11 +17,11 @@ a { color:inherit; } .PreProc { color: #c000c0; } .Special { color: #ff6060; } .LineNr { } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/ex3.subx.html b/html/linux/apps/ex3.subx.html index 0810bdc8..c710665f 100644 --- a/html/linux/apps/ex3.subx.html +++ b/html/linux/apps/ex3.subx.html @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } @@ -59,8 +59,8 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Add the first 10 numbers, and return the result in the exit code.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex3.subx -o ex3</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex3</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./translate_subx 000init.subx apps/ex3.subx</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo $?</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># 55</span> diff --git a/html/linux/apps/ex4.subx.html b/html/linux/apps/ex4.subx.html index 1b3bd941..ddb82a8d 100644 --- a/html/linux/apps/ex4.subx.html +++ b/html/linux/apps/ex4.subx.html @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } --> </style> @@ -57,8 +57,8 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Read a character from stdin, save it to a global, write it to stdout.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex4.subx -o ex4</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex4</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./translate_subx 000init.subx apps/ex4.subx</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span> <span id="L7" class="LineNr"> 7 </span>== data <span id="L8" class="LineNr"> 8 </span> diff --git a/html/linux/apps/ex5.subx.html b/html/linux/apps/ex5.subx.html index 949e207c..d3e8282e 100644 --- a/html/linux/apps/ex5.subx.html +++ b/html/linux/apps/ex5.subx.html @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> @@ -58,8 +58,8 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Read a character from stdin, save it to a local on the stack, write it to stdout.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex5.subx -o ex5</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex5</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./translate_subx 000init.subx apps/ex5.subx</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span> <span id="L7" class="LineNr"> 7 </span>== code <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># instruction effective address register displacement immediate</span> @@ -81,7 +81,7 @@ if ('onhashchange' in window) { <span id="L24" class="LineNr">24 </span> <span class="subxS1Comment"># . syscall</span> <span id="L25" class="LineNr">25 </span> e8/call <a href='../000init.subx.html#L23'>syscall_read</a>/disp32 <span id="L26" class="LineNr">26 </span> -<span id="L27" class="LineNr">27 </span> <span class="subxComment"># syscall(write, stdout, x, 1)</span> +<span id="L27" class="LineNr">27 </span> <span class="subxComment"># syscall_write(stdout, x, 1)</span> <span id="L28" class="LineNr">28 </span> <span class="subxS1Comment"># . fd = 1 (stdout)</span> <span id="L29" class="LineNr">29 </span> bb/copy-to-ebx 1/imm32 <span id="L30" class="LineNr">30 </span> <span class="subxS1Comment"># . data = x (location to read from)</span> diff --git a/html/linux/apps/ex6.subx.html b/html/linux/apps/ex6.subx.html index 5aa4fd53..ea372ee1 100644 --- a/html/linux/apps/ex6.subx.html +++ b/html/linux/apps/ex6.subx.html @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> @@ -58,8 +58,8 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Print out a (global variable) string to stdout.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex6.subx -o ex6</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex6</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./translate_subx 000init.subx apps/ex6.subx</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Hello, world!</span> <span id="L7" class="LineNr"> 7 </span> <span id="L8" class="LineNr"> 8 </span>== code diff --git a/html/linux/apps/ex7.subx.html b/html/linux/apps/ex7.subx.html index b2a87263..622b4559 100644 --- a/html/linux/apps/ex7.subx.html +++ b/html/linux/apps/ex7.subx.html @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> @@ -62,8 +62,8 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span><span class="subxComment"># the character read.</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment">#</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># To run:</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex7.subx -o ex7</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ bootstrap/bootstrap run ex7</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ ./translate_subx 000init.subx apps/ex7.subx</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ ./a.elf</span> <span id="L10" class="LineNr">10 </span><span class="subxComment"># Expected result:</span> <span id="L11" class="LineNr">11 </span><span class="subxComment"># $ echo $?</span> <span id="L12" class="LineNr">12 </span><span class="subxComment"># 97</span> diff --git a/html/linux/apps/ex8.subx.html b/html/linux/apps/ex8.subx.html index 86d16571..a49afabc 100644 --- a/html/linux/apps/ex8.subx.html +++ b/html/linux/apps/ex8.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -60,8 +60,8 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Example reading commandline arguments: compute length of first arg.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex8.subx -o ex8</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex8 abc de fghi</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./translate_subx 000init.subx apps/ex8.subx</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./a.elf abc de fghi</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo $?</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># 3 # length of 'abc'</span> diff --git a/html/linux/apps/ex9.subx.html b/html/linux/apps/ex9.subx.html index 3a79d9d9..cf8527f5 100644 --- a/html/linux/apps/ex9.subx.html +++ b/html/linux/apps/ex9.subx.html @@ -15,12 +15,12 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -62,8 +62,8 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span><span class="subxComment"># letter of second arg.</span> <span id="L5" class="LineNr"> 5 </span><span class="subxComment">#</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># To run:</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex9.subx -o ex9</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ bootstrap/bootstrap run ex9 z x</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ ./translate_subx 000init.subx apps/ex9.subx</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ ./a.elf z x</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># Expected result:</span> <span id="L10" class="LineNr">10 </span><span class="subxComment"># $ echo $?</span> <span id="L11" class="LineNr">11 </span><span class="subxComment"># 2</span> diff --git a/html/linux/apps/factorial.mu.html b/html/linux/apps/factorial.mu.html index 3e626b6d..1b88bd34 100644 --- a/html/linux/apps/factorial.mu.html +++ b/html/linux/apps/factorial.mu.html @@ -15,15 +15,15 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEbx { color: #5f00ff; } -.muRegEcx { color: #870000; } +.Special { color: #ff6060; } .LineNr { } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } +.muRegEcx { color: #870000; } +.Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muTest { color: #5f8700; } -.Delimiter { color: #c000c0; } .muComment { color: #005faf; } -.Special { color: #ff6060; } --> </style> diff --git a/html/linux/apps/factorial.subx.html b/html/linux/apps/factorial.subx.html index c8f08ab6..92cb24e4 100644 --- a/html/linux/apps/factorial.subx.html +++ b/html/linux/apps/factorial.subx.html @@ -14,15 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> @@ -61,14 +61,14 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="subxComment">## compute the factorial of 5, and print the result</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx apps/factorial.subx -o factorial</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./translate_subx [01]*.subx apps/factorial.subx</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo $?</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># 120</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment">#</span> <span id="L10" class="LineNr"> 10 </span><span class="subxComment"># You can also run the automated test suite:</span> -<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial test</span> +<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># $ ./a.elf test</span> <span id="L12" class="LineNr"> 12 </span><span class="subxComment"># Expected output:</span> <span id="L13" class="LineNr"> 13 </span><span class="subxComment"># ........</span> <span id="L14" class="LineNr"> 14 </span><span class="subxComment"># Every '.' indicates a passing test. Failing tests get a 'F'.</span> diff --git a/html/linux/apps/factorial2.subx.html b/html/linux/apps/factorial2.subx.html index 72331748..7e0ed4af 100644 --- a/html/linux/apps/factorial2.subx.html +++ b/html/linux/apps/factorial2.subx.html @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } -.subxTest { color: #5f8700; } --> </style> @@ -63,14 +63,14 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span><span class="subxComment"># rm32 operands</span> <span id="L5" class="LineNr"> 5 </span><span class="subxComment">#</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># To run:</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ ./translate_subx init.linux [01]*.subx apps/factorial2.subx -o factorial</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ ./translate_subx init.linux [01]*.subx apps/factorial2.subx</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ ./a.elf</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># Expected result:</span> <span id="L10" class="LineNr"> 10 </span><span class="subxComment"># $ echo $?</span> <span id="L11" class="LineNr"> 11 </span><span class="subxComment"># 120</span> <span id="L12" class="LineNr"> 12 </span><span class="subxComment">#</span> <span id="L13" class="LineNr"> 13 </span><span class="subxComment"># You can also run the automated test suite:</span> -<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial test</span> +<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># $ ./a.elf test</span> <span id="L15" class="LineNr"> 15 </span><span class="subxComment"># Expected output:</span> <span id="L16" class="LineNr"> 16 </span><span class="subxComment"># ........</span> <span id="L17" class="LineNr"> 17 </span><span class="subxComment"># Every '.' indicates a passing test. Failing tests get a 'F'.</span> diff --git a/html/linux/apps/factorial3.subx.html b/html/linux/apps/factorial3.subx.html index 93cf4e55..f0a76a21 100644 --- a/html/linux/apps/factorial3.subx.html +++ b/html/linux/apps/factorial3.subx.html @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .LineNr { } +.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } -.subxTest { color: #5f8700; } --> </style> @@ -63,14 +63,14 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span><span class="subxComment"># function calls</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment">#</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># To run:</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ ./translate_subx init.linux [01]*.subx apps/factorial3.subx -o factorial</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ ./translate_subx init.linux [01]*.subx apps/factorial3.subx</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ ./a.elf</span> <span id="L10" class="LineNr">10 </span><span class="subxComment"># Expected result:</span> <span id="L11" class="LineNr">11 </span><span class="subxComment"># $ echo $?</span> <span id="L12" class="LineNr">12 </span><span class="subxComment"># 120</span> <span id="L13" class="LineNr">13 </span><span class="subxComment">#</span> <span id="L14" class="LineNr">14 </span><span class="subxComment"># You can also run the automated test suite:</span> -<span id="L15" class="LineNr">15 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial test</span> +<span id="L15" class="LineNr">15 </span><span class="subxComment"># $ ./a.elf test</span> <span id="L16" class="LineNr">16 </span><span class="subxComment"># Expected output:</span> <span id="L17" class="LineNr">17 </span><span class="subxComment"># ........</span> <span id="L18" class="LineNr">18 </span><span class="subxComment"># Every '.' indicates a passing test. Failing tests get a 'F'.</span> diff --git a/html/linux/apps/factorial4.subx.html b/html/linux/apps/factorial4.subx.html index 879a7a44..223e3ee0 100644 --- a/html/linux/apps/factorial4.subx.html +++ b/html/linux/apps/factorial4.subx.html @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .LineNr { } +.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } -.subxTest { color: #5f8700; } --> </style> @@ -64,14 +64,14 @@ if ('onhashchange' in window) { <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># control flow</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment">#</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># To run:</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ ./translate_subx init.linux [01]*.subx apps/factorial4.subx -o factorial</span> -<span id="L10" class="LineNr">10 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ ./translate_subx init.linux [01]*.subx apps/factorial4.subx</span> +<span id="L10" class="LineNr">10 </span><span class="subxComment"># $ ./a.elf</span> <span id="L11" class="LineNr">11 </span><span class="subxComment"># Expected result:</span> <span id="L12" class="LineNr">12 </span><span class="subxComment"># $ echo $?</span> <span id="L13" class="LineNr">13 </span><span class="subxComment"># 120</span> <span id="L14" class="LineNr">14 </span><span class="subxComment">#</span> <span id="L15" class="LineNr">15 </span><span class="subxComment"># You can also run the automated test suite:</span> -<span id="L16" class="LineNr">16 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial test</span> +<span id="L16" class="LineNr">16 </span><span class="subxComment"># $ ./a.elf test</span> <span id="L17" class="LineNr">17 </span><span class="subxComment"># Expected output:</span> <span id="L18" class="LineNr">18 </span><span class="subxComment"># ........</span> <span id="L19" class="LineNr">19 </span><span class="subxComment"># Every '.' indicates a passing test. Failing tests get a 'F'.</span> diff --git a/html/linux/apps/hello.mu.html b/html/linux/apps/hello.mu.html index b7033551..541fd7f6 100644 --- a/html/linux/apps/hello.mu.html +++ b/html/linux/apps/hello.mu.html @@ -16,11 +16,11 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } .LineNr { } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/parse-int.mu.html b/html/linux/apps/parse-int.mu.html index 0ba861a7..ef3297c2 100644 --- a/html/linux/apps/parse-int.mu.html +++ b/html/linux/apps/parse-int.mu.html @@ -15,17 +15,17 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } .Special { color: #ff6060; } .LineNr { } +.Constant { color: #008787; } +.muRegEbx { color: #5f00ff; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } -.Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> @@ -100,7 +100,7 @@ if ('onhashchange' in window) { <span id="L37" class="LineNr">37 </span> <span class="PreProc">var</span> tmp/<span class="muRegEbx">ebx</span>: (addr byte) <span class="Special"><-</span> index in, i <span id="L38" class="LineNr">38 </span> <span class="PreProc">var</span> c/eax: byte <span class="Special"><-</span> copy-byte *tmp <span id="L39" class="LineNr">39 </span> <span class="muComment">#</span> -<span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy c +<span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy c <span id="L41" class="LineNr">41 </span> <span class="PreProc">var</span> digit/eax: int <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L405'>to-decimal-digit</a> g <span id="L42" class="LineNr">42 </span> result <span class="Special"><-</span> add digit <span id="L43" class="LineNr">43 </span> i <span class="Special"><-</span> increment diff --git a/html/linux/apps/print-file.mu.html b/html/linux/apps/print-file.mu.html index 21dfc9d2..eaa41057 100644 --- a/html/linux/apps/print-file.mu.html +++ b/html/linux/apps/print-file.mu.html @@ -15,15 +15,15 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } .Special { color: #ff6060; } .LineNr { } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> @@ -91,8 +91,8 @@ if ('onhashchange' in window) { <span id="L30" class="LineNr">30 </span> <span class="PreProc">var</span> c/eax: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L38'>read-byte-buffered</a> in-addr <span id="L31" class="LineNr">31 </span> compare c, <span class="Constant">0xffffffff</span>/end-of-file <span id="L32" class="LineNr">32 </span> <span class="PreProc">break-if-=</span> -<span id="L33" class="LineNr">33 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy c -<span id="L34" class="LineNr">34 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <span class="Constant">0</span>/screen, g +<span id="L33" class="LineNr">33 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy c +<span id="L34" class="LineNr">34 </span> <a href='../405screen.mu.html#L214'>print-code-point-utf8</a> <span class="Constant">0</span>/screen, g <span id="L35" class="LineNr">35 </span> <span class="PreProc">loop</span> <span id="L36" class="LineNr">36 </span> <span class="Delimiter">}</span> <span id="L37" class="LineNr">37 </span> <span class="Delimiter">}</span> diff --git a/html/linux/random.subx.html b/html/linux/apps/random.subx.html index db841c4e..0e90e3db 100644 --- a/html/linux/random.subx.html +++ b/html/linux/apps/random.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta charset="UTF-8"> -<title>Mu - linux/random.subx</title> +<title>Mu - linux/apps/random.subx</title> <meta name="Generator" content="Vim/8.2"> <meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } @@ -54,13 +54,13 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/random.subx'>https://github.com/akkartik/mu/blob/main/linux/random.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/apps/random.subx'>https://github.com/akkartik/mu/blob/main/linux/apps/random.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Repeatedly read 32-bit numbers from /dev/random, print them to stdout.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx random.subx -o random</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run random</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./translate_subx [01]*.subx apps/random.subx</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span> <span id="L7" class="LineNr"> 7 </span>== code 0x09000000 <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># instruction effective address register displacement immediate</span> @@ -68,43 +68,43 @@ if ('onhashchange' in window) { <span id="L10" class="LineNr">10 </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="L11" class="LineNr">11 </span> <span id="L12" class="LineNr">12 </span><span class="SpecialChar">Entry</span>: -<span id="L13" class="LineNr">13 </span> <span class="subxComment"># stream/esi = syscall(open, "/dev/null", O_RDONLY, 0) # we can't use 'fd' because it looks like a hex byte</span> +<span id="L13" class="LineNr">13 </span> <span class="subxComment"># stream/esi = syscall_open("/dev/null", O_RDONLY, 0) # we can't use 'fd' because it looks like a hex byte</span> <span id="L14" class="LineNr">14 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='random.subx.html#L55'>Filename</a></span>/imm32 <span id="L15" class="LineNr">15 </span> b9/copy-to-ecx 0/imm32/rdonly <span id="L16" class="LineNr">16 </span> ba/copy-to-edx 0x180/imm32/fixed-perms -<span id="L17" class="LineNr">17 </span> e8/call <a href='000init.subx.html#L35'>syscall_open</a>/disp32 +<span id="L17" class="LineNr">17 </span> e8/call <a href='../000init.subx.html#L35'>syscall_open</a>/disp32 <span id="L18" class="LineNr">18 </span> <span class="subxS1Comment"># . stream = eax</span> <span id="L19" class="LineNr">19 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> <span id="L20" class="LineNr">20 </span> <span id="L21" class="LineNr">21 </span><span class="Constant">$loop</span>: <span id="L22" class="LineNr">22 </span> -<span id="L23" class="LineNr">23 </span> <span class="subxComment"># syscall(read, Stream, N, 4)</span> +<span id="L23" class="LineNr">23 </span> <span class="subxComment"># syscall_read(Stream, N, 4)</span> <span id="L24" class="LineNr">24 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esi to ebx</span> <span id="L25" class="LineNr">25 </span> b9/copy-to-ecx <span class="SpecialChar"><a href='random.subx.html#L53'>N</a></span>/imm32 <span id="L26" class="LineNr">26 </span> ba/copy-to-edx 4/imm32/size -<span id="L27" class="LineNr">27 </span> e8/call <a href='000init.subx.html#L23'>syscall_read</a>/disp32 +<span id="L27" class="LineNr">27 </span> e8/call <a href='../000init.subx.html#L23'>syscall_read</a>/disp32 <span id="L28" class="LineNr">28 </span> <span id="L29" class="LineNr">29 </span> <span class="subxComment"># write-int32-hex-buffered(Stdout, *N)</span> <span id="L30" class="LineNr">30 </span> <span class="subxS2Comment"># . . push args</span> <span id="L31" class="LineNr">31 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='random.subx.html#L53'>N</a></span>/disp32 <span class="subxComment"># push *N</span> -<span id="L32" class="LineNr">32 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L32" class="LineNr">32 </span> 68/push <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>/imm32 <span id="L33" class="LineNr">33 </span> <span class="subxS2Comment"># . . call</span> -<span id="L34" class="LineNr">34 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L34" class="LineNr">34 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 <span id="L35" class="LineNr">35 </span> <span id="L36" class="LineNr">36 </span> <span class="subxComment"># write-buffered(Stdout, Newline)</span> <span id="L37" class="LineNr">37 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L38" class="LineNr">38 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L39" class="LineNr">39 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L38" class="LineNr">38 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L39" class="LineNr">39 </span> 68/push <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>/imm32 <span id="L40" class="LineNr">40 </span> <span class="subxS2Comment"># . . call</span> -<span id="L41" class="LineNr">41 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L41" class="LineNr">41 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L42" class="LineNr">42 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L43" class="LineNr">43 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L44" class="LineNr">44 </span> <span id="L45" class="LineNr">45 </span> eb/jump $loop/disp8 <span id="L46" class="LineNr">46 </span> -<span id="L47" class="LineNr">47 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L47" class="LineNr">47 </span> <span class="subxComment"># syscall_exit(0)</span> <span id="L48" class="LineNr">48 </span> bb/copy-to-ebx 0/imm32 -<span id="L49" class="LineNr">49 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L49" class="LineNr">49 </span> e8/call <a href='../000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L50" class="LineNr">50 </span> <span id="L51" class="LineNr">51 </span>== data 0x0a000000 <span id="L52" class="LineNr">52 </span> diff --git a/html/linux/apps/raytracing/1.mu.html b/html/linux/apps/raytracing/1.mu.html index f7464218..1de3b923 100644 --- a/html/linux/apps/raytracing/1.mu.html +++ b/html/linux/apps/raytracing/1.mu.html @@ -15,14 +15,14 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } .Special { color: #ff6060; } .LineNr { } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/raytracing/2.mu.html b/html/linux/apps/raytracing/2.mu.html index 6ae05c81..4be1909c 100644 --- a/html/linux/apps/raytracing/2.mu.html +++ b/html/linux/apps/raytracing/2.mu.html @@ -15,17 +15,17 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEsi { color: #005faf; } -.Special { color: #ff6060; } .muRegEdx { color: #af5f00; } +.Special { color: #ff6060; } .LineNr { } -.CommentedCode { color: #8a8a8a; } +.muRegEsi { color: #005faf; } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } .muComment { color: #005faf; } -.muRegEcx { color: #870000; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/raytracing/3.mu.html b/html/linux/apps/raytracing/3.mu.html index c43df3a4..f2aa7591 100644 --- a/html/linux/apps/raytracing/3.mu.html +++ b/html/linux/apps/raytracing/3.mu.html @@ -16,19 +16,19 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .LineNr { } .Delimiter { color: #c000c0; } -.muRegEcx { color: #870000; } -.muRegEdx { color: #af5f00; } +.muFunction { color: #af5f00; text-decoration: underline; } .muRegEbx { color: #5f00ff; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } .Constant { color: #008787; } .Special { color: #ff6060; } .PreProc { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muComment { color: #005faf; } -.muS1Comment { color: #0000af; } .muS2Comment { color: #8a8a8a; } .CommentedCode { color: #8a8a8a; } +.muComment { color: #005faf; } +.muS1Comment { color: #0000af; } +.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } --> </style> diff --git a/html/linux/apps/raytracing/color.mu.html b/html/linux/apps/raytracing/color.mu.html index dc60a456..0322ff11 100644 --- a/html/linux/apps/raytracing/color.mu.html +++ b/html/linux/apps/raytracing/color.mu.html @@ -15,15 +15,15 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } .muRegEdx { color: #af5f00; } +.Special { color: #ff6060; } .LineNr { } -.muRegEsi { color: #005faf; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEsi { color: #005faf; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.Special { color: #ff6060; } --> </style> diff --git a/html/linux/apps/raytracing/ray.mu.html b/html/linux/apps/raytracing/ray.mu.html index 5400c1f2..7074c088 100644 --- a/html/linux/apps/raytracing/ray.mu.html +++ b/html/linux/apps/raytracing/ray.mu.html @@ -15,12 +15,12 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } .muRegEsi { color: #005faf; } -.muFunction { color: #af5f00; text-decoration: underline; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.Special { color: #ff6060; } --> </style> diff --git a/html/linux/apps/raytracing/vec.mu.html b/html/linux/apps/raytracing/vec.mu.html index 9fe5b990..cd9cb99b 100644 --- a/html/linux/apps/raytracing/vec.mu.html +++ b/html/linux/apps/raytracing/vec.mu.html @@ -15,16 +15,16 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.CommentedCode { color: #8a8a8a; } .muRegEcx { color: #870000; } .LineNr { } +.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } -.Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muComment { color: #005faf; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .Special { color: #ff6060; } -.muComment { color: #005faf; } --> </style> diff --git a/html/linux/apps/rpn.mu.html b/html/linux/apps/rpn.mu.html index b5aba508..7b0b9ad8 100644 --- a/html/linux/apps/rpn.mu.html +++ b/html/linux/apps/rpn.mu.html @@ -15,17 +15,17 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } .Special { color: #ff6060; } .LineNr { } .muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEdi { color: #00af00; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/texture.mu.html b/html/linux/apps/texture.mu.html index c3f44607..11826b98 100644 --- a/html/linux/apps/texture.mu.html +++ b/html/linux/apps/texture.mu.html @@ -15,18 +15,18 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEsi { color: #005faf; } +.muRegEdx { color: #af5f00; } .muRegEcx { color: #870000; } .Special { color: #ff6060; } .LineNr { } -.CommentedCode { color: #8a8a8a; } -.muRegEdi { color: #00af00; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEbx { color: #5f00ff; } +.muRegEsi { color: #005faf; } +.muRegEdi { color: #00af00; } +.CommentedCode { color: #8a8a8a; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEdx { color: #af5f00; } -.muRegEbx { color: #5f00ff; } --> </style> diff --git a/html/linux/apps/tui.mu.html b/html/linux/apps/tui.mu.html index 82681e6a..81caaa41 100644 --- a/html/linux/apps/tui.mu.html +++ b/html/linux/apps/tui.mu.html @@ -15,14 +15,14 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } .Special { color: #ff6060; } .LineNr { } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.muRegEbx { color: #5f00ff; } --> </style> @@ -83,7 +83,7 @@ if ('onhashchange' in window) { <span id="L23" class="LineNr">23 </span> <span id="L24" class="LineNr">24 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"press a key to see its code: "</span> <span id="L25" class="LineNr">25 </span> <a href='../305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> -<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> x/eax: grapheme <span class="Special"><-</span> <a href='../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> +<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> x/eax: code-point-utf8 <span class="Special"><-</span> <a href='../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> <span id="L27" class="LineNr">27 </span> <a href='../305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> <span id="L28" class="LineNr">28 </span> <a href='../304screen.subx.html#L24'>enable-screen-type-mode</a> <span id="L29" class="LineNr">29 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"You pressed "</span> diff --git a/html/linux/assort.subx.html b/html/linux/assort.subx.html index b75d2baa..b939b6ae 100644 --- a/html/linux/assort.subx.html +++ b/html/linux/assort.subx.html @@ -14,17 +14,17 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -117,7 +117,7 @@ if ('onhashchange' in window) { <span id="L55" class="LineNr"> 55 </span> 74/jump-if-= $subx-assort-main:interactive/disp8 <span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># run-tests()</span> <span id="L57" class="LineNr"> 57 </span> e8/call run-tests/disp32 -<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># syscall_exit(*Num-test-failures)</span> <span id="L59" class="LineNr"> 59 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L60" class="LineNr"> 60 </span> eb/jump $subx-assort-main:end/disp8 <span id="L61" class="LineNr"> 61 </span><span class="Constant">$subx-assort-main:interactive</span>: @@ -138,7 +138,7 @@ if ('onhashchange' in window) { <span id="L76" class="LineNr"> 76 </span> e8/call <a href='assort.subx.html#L88'>subx-assort</a>/disp32 <span id="L77" class="LineNr"> 77 </span> <span class="subxS2Comment"># . . discard args</span> <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> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L79" class="LineNr"> 79 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L79" class="LineNr"> 79 </span> <span class="subxComment"># syscall_exit(0)</span> <span id="L80" class="LineNr"> 80 </span> bb/copy-to-ebx 0/imm32 <span id="L81" class="LineNr"> 81 </span><span class="Constant">$subx-assort-main:end</span>: <span id="L82" class="LineNr"> 82 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 @@ -172,7 +172,7 @@ if ('onhashchange' in window) { <span id="L110" class="LineNr"> 110 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L111" class="LineNr"> 111 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L112" class="LineNr"> 112 </span><span class="Constant">$subx-assort:<a href='111read.subx.html#L48'>read</a></span>: -<span id="L113" class="Folded"> 113 </span><span class="Folded">+-- 9 lines: #? # print("read\n") -------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L113" class="Folded"> 113 </span><span class="Folded">+-- 9 lines: #? # print("read\n") --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L122" class="LineNr"> 122 </span> <span class="subxComment"># read-segments(in, table)</span> <span id="L123" class="LineNr"> 123 </span> <span class="subxS2Comment"># . . push args</span> <span id="L124" class="LineNr"> 124 </span> 51/push-ecx @@ -182,7 +182,7 @@ if ('onhashchange' in window) { <span id="L128" class="LineNr"> 128 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L129" class="LineNr"> 129 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L130" class="LineNr"> 130 </span><span class="Constant">$subx-assort:<a href='108write.subx.html#L24'>write</a></span>: -<span id="L131" class="Folded"> 131 </span><span class="Folded">+-- 9 lines: #? # print("write\n") ------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L131" class="Folded"> 131 </span><span class="Folded">+-- 9 lines: #? # print("write\n") -------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L140" class="LineNr"> 140 </span> <span class="subxComment"># write-segments(out, table)</span> <span id="L141" class="LineNr"> 141 </span> <span class="subxS2Comment"># . . push args</span> <span id="L142" class="LineNr"> 142 </span> 51/push-ecx @@ -385,7 +385,7 @@ if ('onhashchange' in window) { <span id="L339" class="LineNr"> 339 </span> <span class="subxComment"># 10 11</span> <span id="L340" class="LineNr"> 340 </span> <span class="subxComment"># == data 0x0a000000</span> <span id="L341" class="LineNr"> 341 </span> <span class="subxComment"># 4 5/imm32</span> -<span id="L342" class="Folded"> 342 </span><span class="Folded">+-- 33 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L342" class="Folded"> 342 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L375" class="LineNr"> 375 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "== code 0x09000000", msg)</span> <span id="L376" class="LineNr"> 376 </span> <span class="subxS2Comment"># . . push args</span> <span id="L377" class="LineNr"> 377 </span> 68/push <span class="Constant">"F - <a href='assort.subx.html#L158'>test-subx-assort</a>/0"</span>/imm32 @@ -537,7 +537,7 @@ if ('onhashchange' in window) { <span id="L523" class="LineNr"> 523 </span> <span class="subxComment"># if (line->write == 0) break</span> <span id="L524" class="LineNr"> 524 </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="L525" class="LineNr"> 525 </span> 0f 84/jump-if-= $read-segments:<span class="Constant">break</span>/disp32 -<span id="L526" class="Folded"> 526 </span><span class="Folded">+-- 33 lines: #? # dump line -------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L526" class="Folded"> 526 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L559" class="LineNr"> 559 </span> <span class="subxComment"># next-word-or-string(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 @@ -547,7 +547,7 @@ if ('onhashchange' in window) { <span id="L565" class="LineNr"> 565 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L566" class="LineNr"> 566 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L567" class="LineNr"> 567 </span><span class="Constant">$read-segments:check1</span>: -<span id="L568" class="Folded"> 568 </span><span class="Folded">+-- 9 lines: #? # print("check1\n") -----------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L568" class="Folded"> 568 </span><span class="Folded">+-- 9 lines: #? # print("check1\n") ------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L577" class="LineNr"> 577 </span> <span class="subxComment"># if (slice-empty?(word-slice)) continue</span> <span id="L578" class="LineNr"> 578 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> <span id="L579" class="LineNr"> 579 </span> <span class="subxS2Comment"># . . push args</span> @@ -560,7 +560,7 @@ if ('onhashchange' in window) { <span id="L586" class="LineNr"> 586 </span> 3d/compare-eax-and 0/imm32/false <span id="L587" class="LineNr"> 587 </span> 0f 85/jump-if-!= $read-segments:<span class="Constant">loop</span>/disp32 <span id="L588" class="LineNr"> 588 </span><span class="Constant">$read-segments:check-for-comment</span>: -<span id="L589" class="Folded"> 589 </span><span class="Folded">+-- 9 lines: #? # print("check for comment\n") ------------------------------------------------------------------------------------------------------------------------</span> +<span id="L589" class="Folded"> 589 </span><span class="Folded">+-- 9 lines: #? # print("check for comment\n") -------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L598" class="LineNr"> 598 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) continue</span> <span id="L599" class="LineNr"> 599 </span> <span class="subxS1Comment"># . var start/esi: (addr byte) = word-slice->start</span> <span id="L600" class="LineNr"> 600 </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 *ecx to esi</span> @@ -571,8 +571,8 @@ if ('onhashchange' in window) { <span id="L605" class="LineNr"> 605 </span> 3d/compare-eax-and 0x23/imm32/hash <span id="L606" class="LineNr"> 606 </span> 0f 84/jump-if-= $read-segments:<span class="Constant">loop</span>/disp32 <span id="L607" class="LineNr"> 607 </span><span class="Constant">$read-segments:check-for-segment-header</span>: -<span id="L608" class="Folded"> 608 </span><span class="Folded">+-- 9 lines: #? # print("check for segment header\n") -----------------------------------------------------------------------------------------------------------------</span> -<span id="L617" class="Folded"> 617 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L608" class="Folded"> 608 </span><span class="Folded">+-- 9 lines: #? # print("check for segment header\n") ------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L617" class="Folded"> 617 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L657" class="LineNr"> 657 </span> <span class="subxComment"># if !slice-equal?(word-slice, "==") goto next check</span> <span id="L658" class="LineNr"> 658 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> <span id="L659" class="LineNr"> 659 </span> <span class="subxS2Comment"># . . push args</span> @@ -593,7 +593,7 @@ if ('onhashchange' in window) { <span id="L674" class="LineNr"> 674 </span> e8/call <a href='135next-word-or-string.subx.html#L8'>next-word-or-string</a>/disp32 <span id="L675" class="LineNr"> 675 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L676" class="LineNr"> 676 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L677" class="Folded"> 677 </span><span class="Folded">+-- 40 lines: #? # dump segment name -----------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L677" class="Folded"> 677 </span><span class="Folded">+-- 40 lines: #? # dump segment name ------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L717" class="LineNr"> 717 </span> <span class="subxComment"># var segment-slot/edi: (addr handle stream byte) = get-or-insert-slice(table, segment-name, row-size=16, Heap)</span> <span id="L718" class="LineNr"> 718 </span> <span class="subxS1Comment"># . eax = get-or-insert-slice(table, segment-name, row-size=16, Heap)</span> <span id="L719" class="LineNr"> 719 </span> <span class="subxS2Comment"># . . push args</span> @@ -602,12 +602,12 @@ if ('onhashchange' in window) { <span id="L722" class="LineNr"> 722 </span> 52/push-edx <span id="L723" class="LineNr"> 723 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L724" class="LineNr"> 724 </span> <span class="subxS2Comment"># . . call</span> -<span id="L725" class="LineNr"> 725 </span> e8/call <a href='131table.subx.html#L1022'>get-or-insert-slice</a>/disp32 +<span id="L725" class="LineNr"> 725 </span> e8/call <a href='131table.subx.html#L1170'>get-or-insert-slice</a>/disp32 <span id="L726" class="LineNr"> 726 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L727" class="LineNr"> 727 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> <span id="L728" class="LineNr"> 728 </span> <span class="subxS1Comment"># . edi = eax</span> <span id="L729" class="LineNr"> 729 </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="L730" class="Folded"> 730 </span><span class="Folded">+-- 33 lines: #? # print("slot: " segment-slot "\n") -------------------------------------------------------------------------------------------------------------------</span> +<span id="L730" class="Folded"> 730 </span><span class="Folded">+-- 33 lines: #? # print("slot: " segment-slot "\n") --------------------------------------------------------------------------------------------------------------------------------</span> <span id="L763" class="LineNr"> 763 </span> <span class="subxComment"># if (*segment-slot != 0) update curr-segment and continue</span> <span id="L764" class="LineNr"> 764 </span> 81 7/subop/compare 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare edi</span> <span id="L765" class="LineNr"> 765 </span> 0f 84/jump-if-= $read-segments:create-segment/disp32 @@ -648,11 +648,11 @@ if ('onhashchange' in window) { <span id="L800" class="LineNr"> 800 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> <span id="L801" class="LineNr"> 801 </span> <span class="subxComment"># fall through</span> <span id="L802" class="LineNr"> 802 </span><span class="Constant">$read-segments:regular-line</span>: -<span id="L803" class="Folded"> 803 </span><span class="Folded">+-- 9 lines: #? # print("regular line\n") -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L812" class="Folded"> 812 </span><span class="Folded">+-- 33 lines: #? # dump line -------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L845" class="Folded"> 845 </span><span class="Folded">+-- 33 lines: #? # print("addr: " curr-segment->write "\n") ------------------------------------------------------------------------------------------------------------</span> -<span id="L878" class="Folded"> 878 </span><span class="Folded">+-- 33 lines: #? # print("write: " curr-segment->write "\n") -----------------------------------------------------------------------------------------------------------</span> -<span id="L911" class="Folded"> 911 </span><span class="Folded">+-- 33 lines: #? # print("size: " curr-segment->size "\n") -------------------------------------------------------------------------------------------------------------</span> +<span id="L803" class="Folded"> 803 </span><span class="Folded">+-- 9 lines: #? # print("regular line\n") ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L812" class="Folded"> 812 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L845" class="Folded"> 845 </span><span class="Folded">+-- 33 lines: #? # print("addr: " curr-segment->write "\n") -------------------------------------------------------------------------------------------------------------------------</span> +<span id="L878" class="Folded"> 878 </span><span class="Folded">+-- 33 lines: #? # print("write: " curr-segment->write "\n") ------------------------------------------------------------------------------------------------------------------------</span> +<span id="L911" class="Folded"> 911 </span><span class="Folded">+-- 33 lines: #? # print("size: " curr-segment->size "\n") --------------------------------------------------------------------------------------------------------------------------</span> <span id="L944" class="LineNr"> 944 </span> <span class="subxComment"># rewind-stream(line)</span> <span id="L945" class="LineNr"> 945 </span> <span class="subxS2Comment"># . . push args</span> <span id="L946" class="LineNr"> 946 </span> 51/push-ecx @@ -660,7 +660,7 @@ if ('onhashchange' in window) { <span id="L948" class="LineNr"> 948 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 <span id="L949" class="LineNr"> 949 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L950" class="LineNr"> 950 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L951" class="Folded"> 951 </span><span class="Folded">+-- 9 lines: #? # print("write stream\n") -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L951" class="Folded"> 951 </span><span class="Folded">+-- 9 lines: #? # print("write stream\n") ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L960" class="LineNr"> 960 </span> <span class="subxComment"># write-stream(curr-segment, line)</span> <span id="L961" class="LineNr"> 961 </span> <span class="subxS2Comment"># . . push args</span> <span id="L962" class="LineNr"> 962 </span> 51/push-ecx @@ -670,7 +670,7 @@ if ('onhashchange' in window) { <span id="L966" class="LineNr"> 966 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L967" class="LineNr"> 967 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L968" class="LineNr"> 968 </span> <span class="subxComment"># loop</span> -<span id="L969" class="Folded"> 969 </span><span class="Folded">+-- 9 lines: #? # print("loop\n") -------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L969" class="Folded"> 969 </span><span class="Folded">+-- 9 lines: #? # print("loop\n") --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L978" class="LineNr"> 978 </span> e9/jump $read-segments:<span class="Constant">loop</span>/disp32 <span id="L979" class="LineNr"> 979 </span><span class="Constant">$read-segments:break</span>: <span id="L980" class="LineNr"> 980 </span><span class="Constant">$read-segments:end</span>: diff --git a/html/linux/bootstrap/000organization.cc.html b/html/linux/bootstrap/000organization.cc.html index fbf53912..8d3eb170 100644 --- a/html/linux/bootstrap/000organization.cc.html +++ b/html/linux/bootstrap/000organization.cc.html @@ -1,31 +1,31 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/000organization.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.Delimiter { color: #c000c0; } +.PreProc { color: #c000c0; } .LineNr { } +.Delimiter { color: #c000c0; } +.cSpecial { color: #008000; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Comment { color: #005faf; } .Constant { color: #008787; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.PreProc { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/001help.cc.html b/html/linux/bootstrap/001help.cc.html index 8aefe2a1..56c36f1f 100644 --- a/html/linux/bootstrap/001help.cc.html +++ b/html/linux/bootstrap/001help.cc.html @@ -1,32 +1,32 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/001help.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } +.cSpecial { color: #008000; } .LineNr { } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .PreProc { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/002test.cc.html b/html/linux/bootstrap/002test.cc.html index b4b53409..8ef1c9d7 100644 --- a/html/linux/bootstrap/002test.cc.html +++ b/html/linux/bootstrap/002test.cc.html @@ -1,32 +1,32 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/002test.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } +.PreProc { color: #c000c0; } .LineNr { } .Constant { color: #008787; } +.cSpecial { color: #008000; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.PreProc { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/003trace.cc.html b/html/linux/bootstrap/003trace.cc.html index a444f463..993695ee 100644 --- a/html/linux/bootstrap/003trace.cc.html +++ b/html/linux/bootstrap/003trace.cc.html @@ -1,31 +1,31 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/003trace.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.LineNr { } +.PreProc { color: #c000c0; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.LineNr { } +.cSpecial { color: #008000; } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/003trace.test.cc.html b/html/linux/bootstrap/003trace.test.cc.html index cad23ec4..8ea6679a 100644 --- a/html/linux/bootstrap/003trace.test.cc.html +++ b/html/linux/bootstrap/003trace.test.cc.html @@ -1,29 +1,29 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/003trace.test.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } .Constant { color: #008787; } +.Delimiter { color: #c000c0; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.Delimiter { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/010vm.cc.html b/html/linux/bootstrap/010vm.cc.html index 187fff12..2ffdd7eb 100644 --- a/html/linux/bootstrap/010vm.cc.html +++ b/html/linux/bootstrap/010vm.cc.html @@ -1,31 +1,31 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/010vm.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .PreProc { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ @@ -134,7 +134,7 @@ if ('onhashchange' in window) { <span id="L75" class="LineNr"> 75 </span> <span class="Constant">"The flag bits are read by conditional jumps.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L76" class="LineNr"> 76 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L77" class="LineNr"> 77 </span> <span class="Constant">"For complete details on how different instructions update the flags, consult the IA-32</span><span class="cSpecial">\n</span><span class="Constant">"</span> -<span id="L78" class="LineNr"> 78 </span> <span class="Constant">"manual (volume 2). There's various versions of it online, such as <a href="https://c9x.me/x86,">https://c9x.me/x86,</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Constant">"manual (volume 2). There's various versions of it online, such as <a href="https://c9x.me/x86">https://c9x.me/x86</a>,</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L79" class="LineNr"> 79 </span> <span class="Constant">"though of course you'll need to be careful to ignore instructions and flag registers</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L80" class="LineNr"> 80 </span> <span class="Constant">"that SubX doesn't support.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L81" class="LineNr"> 81 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> @@ -436,7 +436,7 @@ if ('onhashchange' in window) { <span id="L377" class="LineNr">377 </span> cerr << <span class="Constant">" f3 0f "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << p<span class="Delimiter">-></span>second << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> <span id="L378" class="LineNr">378 </span> cerr << <span class="Constant">"Run `bootstrap help instructions` for details on <a href='011run.cc.html#L122'>words</a> like 'r32' and 'disp8'.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L379" class="LineNr">379 </span> <span class="Constant">"For complete details on these instructions, consult the IA-32 manual (volume 2).</span><span class="cSpecial">\n</span><span class="Constant">"</span> -<span id="L380" class="LineNr">380 </span> <span class="Constant">"There's various versions of it online, such as <a href="https://c9x.me/x86.">https://c9x.me/x86.</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L380" class="LineNr">380 </span> <span class="Constant">"There's various versions of it online, such as <a href="https://c9x.me/x86">https://c9x.me/x86</a>.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L381" class="LineNr">381 </span> <span class="Constant">"The mnemonics in brackets will help you locate each instruction.</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L382" class="LineNr">382 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L383" class="LineNr">383 </span><span class="Delimiter">}</span> diff --git a/html/linux/bootstrap/011run.cc.html b/html/linux/bootstrap/011run.cc.html index f8bccca2..6b491fd3 100644 --- a/html/linux/bootstrap/011run.cc.html +++ b/html/linux/bootstrap/011run.cc.html @@ -1,30 +1,30 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/011run.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.LineNr { } +.cSpecial { color: #008000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.LineNr { } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/012elf.cc.html b/html/linux/bootstrap/012elf.cc.html index ec236fa1..ecc06966 100644 --- a/html/linux/bootstrap/012elf.cc.html +++ b/html/linux/bootstrap/012elf.cc.html @@ -1,32 +1,32 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/012elf.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.LineNr { } +.cSpecial { color: #008000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.LineNr { } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } .PreProc { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/013direct_addressing.cc.html b/html/linux/bootstrap/013direct_addressing.cc.html index 30a2767f..0eac2ca4 100644 --- a/html/linux/bootstrap/013direct_addressing.cc.html +++ b/html/linux/bootstrap/013direct_addressing.cc.html @@ -1,32 +1,32 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/013direct_addressing.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.LineNr { } +.cSpecial { color: #008000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.LineNr { } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } .PreProc { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/014indirect_addressing.cc.html b/html/linux/bootstrap/014indirect_addressing.cc.html index a242b7cc..92669155 100644 --- a/html/linux/bootstrap/014indirect_addressing.cc.html +++ b/html/linux/bootstrap/014indirect_addressing.cc.html @@ -1,30 +1,30 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/014indirect_addressing.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } .Constant { color: #008787; } +.Delimiter { color: #c000c0; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Identifier { color: #af5f00; } -.Delimiter { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/015immediate_addressing.cc.html b/html/linux/bootstrap/015immediate_addressing.cc.html index 6462b7be..5f6c85bf 100644 --- a/html/linux/bootstrap/015immediate_addressing.cc.html +++ b/html/linux/bootstrap/015immediate_addressing.cc.html @@ -1,31 +1,31 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/015immediate_addressing.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.LineNr { } +.cSpecial { color: #008000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.LineNr { } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/016index_addressing.cc.html b/html/linux/bootstrap/016index_addressing.cc.html index e46490f2..d2f01027 100644 --- a/html/linux/bootstrap/016index_addressing.cc.html +++ b/html/linux/bootstrap/016index_addressing.cc.html @@ -1,30 +1,30 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/016index_addressing.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/017jump_disp8.cc.html b/html/linux/bootstrap/017jump_disp8.cc.html index 02cb7835..3e1e2c1a 100644 --- a/html/linux/bootstrap/017jump_disp8.cc.html +++ b/html/linux/bootstrap/017jump_disp8.cc.html @@ -1,30 +1,30 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/017jump_disp8.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.LineNr { } +.cSpecial { color: #008000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.LineNr { } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/018jump_disp32.cc.html b/html/linux/bootstrap/018jump_disp32.cc.html index 6b5fabcf..f9f43634 100644 --- a/html/linux/bootstrap/018jump_disp32.cc.html +++ b/html/linux/bootstrap/018jump_disp32.cc.html @@ -1,30 +1,30 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/018jump_disp32.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.LineNr { } +.cSpecial { color: #008000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.LineNr { } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/019functions.cc.html b/html/linux/bootstrap/019functions.cc.html index 169e701a..ec5355e1 100644 --- a/html/linux/bootstrap/019functions.cc.html +++ b/html/linux/bootstrap/019functions.cc.html @@ -1,31 +1,31 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/019functions.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.LineNr { } +.cSpecial { color: #008000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.LineNr { } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/020byte_addressing.cc.html b/html/linux/bootstrap/020byte_addressing.cc.html index 84a34b8d..8655868a 100644 --- a/html/linux/bootstrap/020byte_addressing.cc.html +++ b/html/linux/bootstrap/020byte_addressing.cc.html @@ -1,30 +1,30 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/020byte_addressing.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/021div.cc.html b/html/linux/bootstrap/021div.cc.html index a9ad5e09..b15ea7a3 100644 --- a/html/linux/bootstrap/021div.cc.html +++ b/html/linux/bootstrap/021div.cc.html @@ -1,30 +1,30 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/021div.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.LineNr { } +.cSpecial { color: #008000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.LineNr { } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/022float.cc.html b/html/linux/bootstrap/022float.cc.html index ac01e56d..1f07c883 100644 --- a/html/linux/bootstrap/022float.cc.html +++ b/html/linux/bootstrap/022float.cc.html @@ -1,31 +1,31 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/022float.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.LineNr { } +.cSpecial { color: #008000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.LineNr { } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } .PreProc { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/029syscalls.cc.html b/html/linux/bootstrap/029syscalls.cc.html index 83680749..cbf70b92 100644 --- a/html/linux/bootstrap/029syscalls.cc.html +++ b/html/linux/bootstrap/029syscalls.cc.html @@ -1,31 +1,31 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/029syscalls.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.LineNr { } +.cSpecial { color: #008000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.LineNr { } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } .PreProc { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ @@ -155,7 +155,7 @@ if ('onhashchange' in window) { <span id="L96" class="LineNr"> 96 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">}</span> <span id="L98" class="LineNr"> 98 </span> <span class="Normal">if</span> <span class="Delimiter">((</span>flags & O_RDONLY<span class="Delimiter">)</span> && <span class="Delimiter">(</span>flags & O_WRONLY<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L99" class="LineNr"> 99 </span> cerr << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": can't open a file for both reading and writing at once. See <a href="http://man7.org/linux/man-pages/man2/open.2.html.">http://man7.org/linux/man-pages/man2/open.2.html.</a></span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> +<span id="L99" class="LineNr"> 99 </span> cerr << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": can't open a file for both reading and writing at once. See <a href="http://man7.org/linux/man-pages/man2/open.2.html">http://man7.org/linux/man-pages/man2/open.2.html</a>.</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L100" class="LineNr">100 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L101" class="LineNr">101 </span> <span class="Delimiter">}</span> <span id="L102" class="LineNr">102 </span><span class="Delimiter">}</span> diff --git a/html/linux/bootstrap/030translate.cc.html b/html/linux/bootstrap/030translate.cc.html index a10dae73..bfa3c559 100644 --- a/html/linux/bootstrap/030translate.cc.html +++ b/html/linux/bootstrap/030translate.cc.html @@ -1,32 +1,32 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/030translate.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } .Constant { color: #008787; } +.SalientComment { color: #0000af; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.SalientComment { color: #0000af; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .PreProc { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/031transforms.cc.html b/html/linux/bootstrap/031transforms.cc.html index 280b4741..988b4330 100644 --- a/html/linux/bootstrap/031transforms.cc.html +++ b/html/linux/bootstrap/031transforms.cc.html @@ -1,14 +1,14 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/031transforms.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } @@ -16,13 +16,13 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .LineNr { } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/032operands.cc.html b/html/linux/bootstrap/032operands.cc.html index 8b7f302c..88f15a6c 100644 --- a/html/linux/bootstrap/032operands.cc.html +++ b/html/linux/bootstrap/032operands.cc.html @@ -1,30 +1,30 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/032operands.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.LineNr { } +.cSpecial { color: #008000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.LineNr { } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/033check_operands.cc.html b/html/linux/bootstrap/033check_operands.cc.html index 24848b6c..d44ca676 100644 --- a/html/linux/bootstrap/033check_operands.cc.html +++ b/html/linux/bootstrap/033check_operands.cc.html @@ -1,33 +1,33 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/033check_operands.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } +.cSpecial { color: #008000; } .LineNr { } .Constant { color: #008787; } +.SalientComment { color: #0000af; } +.Delimiter { color: #c000c0; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.SalientComment { color: #0000af; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/034check_operand_bounds.cc.html b/html/linux/bootstrap/034check_operand_bounds.cc.html index e2f146ee..b9c76ae6 100644 --- a/html/linux/bootstrap/034check_operand_bounds.cc.html +++ b/html/linux/bootstrap/034check_operand_bounds.cc.html @@ -1,30 +1,30 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/034check_operand_bounds.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } .Constant { color: #008787; } +.Delimiter { color: #c000c0; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Identifier { color: #af5f00; } -.Delimiter { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/035compute_segment_address.cc.html b/html/linux/bootstrap/035compute_segment_address.cc.html index 8f7045ea..e087b5ec 100644 --- a/html/linux/bootstrap/035compute_segment_address.cc.html +++ b/html/linux/bootstrap/035compute_segment_address.cc.html @@ -1,30 +1,30 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/035compute_segment_address.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } .Constant { color: #008787; } +.Delimiter { color: #c000c0; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Identifier { color: #af5f00; } -.Delimiter { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/036labels.cc.html b/html/linux/bootstrap/036labels.cc.html index b20452b0..680df6c9 100644 --- a/html/linux/bootstrap/036labels.cc.html +++ b/html/linux/bootstrap/036labels.cc.html @@ -1,30 +1,30 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/036labels.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } .Constant { color: #008787; } +.Delimiter { color: #c000c0; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Identifier { color: #af5f00; } -.Delimiter { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/037global_variables.cc.html b/html/linux/bootstrap/037global_variables.cc.html index 04c77f10..893c5273 100644 --- a/html/linux/bootstrap/037global_variables.cc.html +++ b/html/linux/bootstrap/037global_variables.cc.html @@ -1,31 +1,31 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/037global_variables.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } +.cSpecial { color: #008000; } .LineNr { } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/038literal_strings.cc.html b/html/linux/bootstrap/038literal_strings.cc.html index 5c9b74ab..b00105cc 100644 --- a/html/linux/bootstrap/038literal_strings.cc.html +++ b/html/linux/bootstrap/038literal_strings.cc.html @@ -1,31 +1,31 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/038literal_strings.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } +.cSpecial { color: #008000; } .LineNr { } .Constant { color: #008787; } +.Delimiter { color: #c000c0; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Delimiter { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/039debug.cc.html b/html/linux/bootstrap/039debug.cc.html index b177aa58..8f50fe5b 100644 --- a/html/linux/bootstrap/039debug.cc.html +++ b/html/linux/bootstrap/039debug.cc.html @@ -1,30 +1,30 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/039debug.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.Todo { color: #000000; background-color: #ffff00; padding-bottom: 1px; } .LineNr { } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.Todo { color: #000000; background-color: #ffff00; padding-bottom: 1px; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/bootstrap/040tests.cc.html b/html/linux/bootstrap/040tests.cc.html index 362a2d55..d7777e99 100644 --- a/html/linux/bootstrap/040tests.cc.html +++ b/html/linux/bootstrap/040tests.cc.html @@ -1,30 +1,30 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<!DOCTYPE html> <html> <head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<meta charset="UTF-8"> <title>Mu - linux/bootstrap/040tests.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> -<style type="text/css"> +<style> <!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.cSpecial { color: #008000; } --> </style> -<script type='text/javascript'> +<script> <!-- /* function to open any folds containing a jumped-to line before jumping to it */ diff --git a/html/linux/braces.subx.html b/html/linux/braces.subx.html index 034bc356..1e7ac867 100644 --- a/html/linux/braces.subx.html +++ b/html/linux/braces.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } .subxS1Comment { color: #0000af; } +.LineNr { } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } -.subxTest { color: #5f8700; } --> </style> @@ -123,12 +123,12 @@ if ('onhashchange' in window) { <span id="L64" class="LineNr"> 64 </span> 74/jump-if-= $subx-braces-main:interactive/disp8 <span id="L65" class="LineNr"> 65 </span> <span class="subxComment">#</span> <span id="L66" class="LineNr"> 66 </span> (run-tests) -<span id="L67" class="LineNr"> 67 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L67" class="LineNr"> 67 </span> <span class="subxComment"># syscall_exit(*Num-test-failures)</span> <span id="L68" class="LineNr"> 68 </span> 8b/-> *<span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx <span id="L69" class="LineNr"> 69 </span> eb/jump $subx-braces-main:end/disp8 <span id="L70" class="LineNr"> 70 </span><span class="Constant">$subx-braces-main:interactive</span>: <span id="L71" class="LineNr"> 71 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span> <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>) -<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># syscall_exit(0)</span> <span id="L73" class="LineNr"> 73 </span> bb/copy-to-ebx 0/imm32 <span id="L74" class="LineNr"> 74 </span><span class="Constant">$subx-braces-main:end</span>: <span id="L75" class="LineNr"> 75 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 @@ -328,7 +328,7 @@ if ('onhashchange' in window) { <span id="L269" class="LineNr">269 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L270" class="LineNr">270 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L271" class="LineNr">271 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L272" class="Folded">272 </span><span class="Folded">+-- 5 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L272" class="Folded">272 </span><span class="Folded">+-- 5 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L277" class="LineNr">277 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"== abcd 0x1 \n"</span> <span class="Constant">"F - test-subx-braces-passes-most-words-through"</span>) <span id="L278" class="LineNr">278 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L279" class="LineNr">279 </span> 89/<- %esp 5/r32/ebp @@ -361,7 +361,7 @@ if ('onhashchange' in window) { <span id="L306" class="LineNr">306 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L307" class="LineNr">307 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L308" class="LineNr">308 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#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="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="L315" class="LineNr">315 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L316" class="LineNr">316 </span> 89/<- %esp 5/r32/ebp @@ -398,7 +398,7 @@ if ('onhashchange' in window) { <span id="L347" class="LineNr">347 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L348" class="LineNr">348 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L349" class="LineNr">349 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#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="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="L356" class="LineNr">356 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L357" class="LineNr">357 </span> 89/<- %esp 5/r32/ebp diff --git a/html/linux/branches.mu.html b/html/linux/branches.mu.html new file mode 100644 index 00000000..1e1560db --- /dev/null +++ b/html/linux/branches.mu.html @@ -0,0 +1,99 @@ +<!DOCTYPE html> +<html> +<head> +<meta charset="UTF-8"> +<title>Mu - linux/branches.mu</title> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> +<meta name="colorscheme" content="minimal-light"> +<style> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +--> +</style> + +<script> +<!-- + +/* 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 5624bf96..63fc8009 100644 --- a/html/linux/calls.subx.html +++ b/html/linux/calls.subx.html @@ -14,16 +14,16 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -117,7 +117,7 @@ if ('onhashchange' in window) { <span id="L56" class="LineNr"> 56 </span> 74/jump-if-= $subx-calls-main:interactive/disp8 <span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># run-tests()</span> <span id="L58" class="LineNr"> 58 </span> e8/call run-tests/disp32 -<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># syscall_exit(*Num-test-failures)</span> <span id="L60" class="LineNr"> 60 </span> 8b/-> *<span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx <span id="L61" class="LineNr"> 61 </span> eb/jump $subx-calls-main:end/disp8 <span id="L62" class="LineNr"> 62 </span><span class="Constant">$subx-calls-main:interactive</span>: @@ -130,7 +130,7 @@ if ('onhashchange' in window) { <span id="L69" class="LineNr"> 69 </span> e8/call <a href='calls.subx.html#L77'>subx-calls</a>/disp32 <span id="L70" class="LineNr"> 70 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L71" class="LineNr"> 71 </span> 81 0/subop/add %esp 8/imm32 -<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># syscall_exit(0)</span> <span id="L73" class="LineNr"> 73 </span> bb/copy-to-ebx 0/imm32 <span id="L74" class="LineNr"> 74 </span><span class="Constant">$subx-calls-main:end</span>: <span id="L75" class="LineNr"> 75 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 @@ -332,7 +332,7 @@ if ('onhashchange' in window) { <span id="L271" class="LineNr"> 271 </span> <span class="subxS1Comment"># . if (eax != false) break</span> <span id="L272" class="LineNr"> 272 </span> 3d/compare-eax-and 0/imm32/false <span id="L273" class="LineNr"> 273 </span> 0f 85/jump-if-!= $parse-line:end/disp32 -<span id="L274" class="Folded"> 274 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L274" class="Folded"> 274 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L314" class="LineNr"> 314 </span><span class="Constant">$parse-line:write-word</span>: <span id="L315" class="LineNr"> 315 </span> <span class="subxComment"># write-int(words, word-slice->start)</span> <span id="L316" class="LineNr"> 316 </span> <span class="subxS2Comment"># . . push args</span> @@ -612,7 +612,7 @@ if ('onhashchange' in window) { <span id="L590" class="LineNr"> 590 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L591" class="LineNr"> 591 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L592" class="LineNr"> 592 </span> 81 0/subop/add %esp 4/imm32 -<span id="L593" class="LineNr"> 593 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L593" class="LineNr"> 593 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L594" class="LineNr"> 594 </span> bb/copy-to-ebx 1/imm32 <span id="L595" class="LineNr"> 595 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L596" class="LineNr"> 596 </span> <span class="subxComment"># never gets here</span> @@ -745,7 +745,7 @@ if ('onhashchange' in window) { <span id="L723" class="LineNr"> 723 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L724" class="LineNr"> 724 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L725" class="LineNr"> 725 </span> 81 0/subop/add %esp 4/imm32 -<span id="L726" class="Folded"> 726 </span><span class="Folded">+-- 33 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L726" class="Folded"> 726 </span><span class="Folded">+-- 33 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L759" class="LineNr"> 759 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# . (foo %eax)", msg)</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">"F - <a href='calls.subx.html#L669'>test-subx-calls-processes-calls</a>: comment"</span>/imm32 @@ -1069,7 +1069,7 @@ if ('onhashchange' in window) { <span id="L1079" class="LineNr">1079 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1080" class="LineNr">1080 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1081" class="LineNr">1081 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1082" class="LineNr">1082 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1082" class="LineNr">1082 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L1083" class="LineNr">1083 </span> bb/copy-to-ebx 1/imm32 <span id="L1084" class="LineNr">1084 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1085" class="LineNr">1085 </span> <span class="subxComment"># never gets here</span> @@ -1107,7 +1107,7 @@ if ('onhashchange' in window) { <span id="L1117" class="LineNr">1117 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1118" class="LineNr">1118 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1119" class="LineNr">1119 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1120" class="LineNr">1120 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1120" class="LineNr">1120 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L1121" class="LineNr">1121 </span> bb/copy-to-ebx 1/imm32 <span id="L1122" class="LineNr">1122 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1123" class="LineNr">1123 </span> <span class="subxComment"># never gets here</span> @@ -1145,7 +1145,7 @@ if ('onhashchange' in window) { <span id="L1155" class="LineNr">1155 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1156" class="LineNr">1156 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1157" class="LineNr">1157 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1158" class="LineNr">1158 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1158" class="LineNr">1158 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L1159" class="LineNr">1159 </span> bb/copy-to-ebx 1/imm32 <span id="L1160" class="LineNr">1160 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1161" class="LineNr">1161 </span> <span class="subxComment"># never gets here</span> @@ -1183,7 +1183,7 @@ if ('onhashchange' in window) { <span id="L1193" class="LineNr">1193 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1194" class="LineNr">1194 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1195" class="LineNr">1195 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1196" class="LineNr">1196 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1196" class="LineNr">1196 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L1197" class="LineNr">1197 </span> bb/copy-to-ebx 1/imm32 <span id="L1198" class="LineNr">1198 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1199" class="LineNr">1199 </span> <span class="subxComment"># never gets here</span> @@ -1221,7 +1221,7 @@ if ('onhashchange' in window) { <span id="L1231" class="LineNr">1231 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1232" class="LineNr">1232 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1233" class="LineNr">1233 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1234" class="LineNr">1234 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1234" class="LineNr">1234 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L1235" class="LineNr">1235 </span> bb/copy-to-ebx 1/imm32 <span id="L1236" class="LineNr">1236 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1237" class="LineNr">1237 </span> <span class="subxComment"># never gets here</span> @@ -1259,7 +1259,7 @@ if ('onhashchange' in window) { <span id="L1269" class="LineNr">1269 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1270" class="LineNr">1270 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1271" class="LineNr">1271 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1272" class="LineNr">1272 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1272" class="LineNr">1272 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L1273" class="LineNr">1273 </span> bb/copy-to-ebx 1/imm32 <span id="L1274" class="LineNr">1274 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1275" class="LineNr">1275 </span> <span class="subxComment"># never gets here</span> @@ -1297,7 +1297,7 @@ if ('onhashchange' in window) { <span id="L1307" class="LineNr">1307 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1308" class="LineNr">1308 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1309" class="LineNr">1309 </span> 81 0/subop/add %esp 4/imm32 -<span id="L1310" class="LineNr">1310 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1310" class="LineNr">1310 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L1311" class="LineNr">1311 </span> bb/copy-to-ebx 1/imm32 <span id="L1312" class="LineNr">1312 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1313" class="LineNr">1313 </span> <span class="subxComment"># never gets here</span> diff --git a/html/linux/crenshaw2-1.subx.html b/html/linux/crenshaw2-1.subx.html deleted file mode 100644 index 4685b3de..00000000 --- a/html/linux/crenshaw2-1.subx.html +++ /dev/null @@ -1,621 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/crenshaw2-1.subx</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.LineNr { } -.subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/crenshaw2-1.subx'>https://github.com/akkartik/mu/blob/main/linux/crenshaw2-1.subx</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Port of <a href="https://github.com/akkartik/crenshaw/blob/master/tutor2.1.pas">https://github.com/akkartik/crenshaw/blob/master/tutor2.1.pas</a></span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># which corresponds to the section "single digits" in <a href="https://compilers.iecc.com/crenshaw/tutor2.txt">https://compilers.iecc.com/crenshaw/tutor2.txt</a></span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># except that we support hex digits.</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment">#</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># To run:</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx crenshaw2-1.subx -o crenshaw2-1</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo '3' |bootstrap/bootstrap run crenshaw2-1</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># Expected output:</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># # syscall(exit, 3)</span> -<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># bb/copy-to-ebx 3/imm32</span> -<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># b8/copy-to-eax 1/imm32/exit</span> -<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># cd/syscall 0x80/imm8</span> -<span id="L13" class="LineNr"> 13 </span><span class="subxComment">#</span> -<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># To run the generated output:</span> -<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># $ echo '3' |bootstrap/bootstrap run crenshaw2-1 > z1.subx</span> -<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># $ bootstrap/bootstrap translate z1.subx -o z1</span> -<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># $ bootstrap/bootstrap run z1</span> -<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># $ echo $?</span> -<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># 3</span> -<span id="L20" class="LineNr"> 20 </span><span class="subxComment">#</span> -<span id="L21" class="LineNr"> 21 </span><span class="subxComment"># Stdin must contain just a single hex digit. Other input will print an error:</span> -<span id="L22" class="LineNr"> 22 </span><span class="subxComment"># $ echo 'xyz' |bootstrap/bootstrap run crenshaw2-1</span> -<span id="L23" class="LineNr"> 23 </span><span class="subxComment"># Error: integer expected</span> -<span id="L24" class="LineNr"> 24 </span><span class="subxComment">#</span> -<span id="L25" class="LineNr"> 25 </span><span class="subxComment"># Names in this file sometimes follow Crenshaw's original rather than my usual</span> -<span id="L26" class="LineNr"> 26 </span><span class="subxComment"># naming conventions.</span> -<span id="L27" class="LineNr"> 27 </span> -<span id="L28" class="LineNr"> 28 </span>== code -<span id="L29" class="LineNr"> 29 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L30" class="LineNr"> 30 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L31" class="LineNr"> 31 </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="L32" class="LineNr"> 32 </span> -<span id="L33" class="LineNr"> 33 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, call 'compile' if not</span> -<span id="L34" class="LineNr"> 34 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35" class="LineNr"> 35 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L36" class="LineNr"> 36 </span> -<span id="L37" class="LineNr"> 37 </span> <span class="subxComment"># initialize heap</span> -<span id="L38" class="LineNr"> 38 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> -<span id="L39" class="LineNr"> 39 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L40" class="LineNr"> 40 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L41" class="LineNr"> 41 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> -<span id="L42" class="LineNr"> 42 </span> <span class="subxS2Comment"># . . call</span> -<span id="L43" class="LineNr"> 43 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L44" class="LineNr"> 44 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L45" class="LineNr"> 45 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L46" class="LineNr"> 46 </span> -<span id="L47" class="LineNr"> 47 </span> <span class="subxH1Comment"># - if argc > 1 and argv[1] == "test", then return run_tests()</span> -<span id="L48" class="LineNr"> 48 </span> <span class="subxComment"># if (argc <= 1) goto run-main</span> -<span id="L49" class="LineNr"> 49 </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="L50" class="LineNr"> 50 </span> 7e/jump-if-<= $run-main/disp8 -<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># if (!kernel-string-equal?(argv[1], "test")) goto run-main</span> -<span id="L52" class="LineNr"> 52 </span> <span class="subxS1Comment"># . eax = kernel-string-equal?(argv[1], "test")</span> -<span id="L53" class="LineNr"> 53 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L54" class="LineNr"> 54 </span> 68/push <span class="Constant">"test"</span>/imm32 -<span id="L55" class="LineNr"> 55 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L56" class="LineNr"> 56 </span> <span class="subxS2Comment"># . . call</span> -<span id="L57" class="LineNr"> 57 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 -<span id="L58" class="LineNr"> 58 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L59" class="LineNr"> 59 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L60" class="LineNr"> 60 </span> <span class="subxS1Comment"># . if (eax == false) goto run-main</span> -<span id="L61" class="LineNr"> 61 </span> 3d/compare-eax-and 0/imm32/false -<span id="L62" class="LineNr"> 62 </span> 74/jump-if-= $run-main/disp8 -<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># run-tests()</span> -<span id="L64" class="LineNr"> 64 </span> e8/call run-tests/disp32 -<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L66" class="LineNr"> 66 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> -<span id="L67" class="LineNr"> 67 </span> eb/jump $main:end/disp8 -<span id="L68" class="LineNr"> 68 </span><span class="Constant">$run-main</span>: -<span id="L69" class="LineNr"> 69 </span> <span class="subxH1Comment"># - otherwise read a program from stdin and emit its translation to stdout</span> -<span id="L70" class="LineNr"> 70 </span> <span class="subxS1Comment"># . compile(Stdin, 1/stdout, 2/stderr, ed)</span> -<span id="L71" class="LineNr"> 71 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L72" class="LineNr"> 72 </span> 68/push 0/imm32/exit-descriptor -<span id="L73" class="LineNr"> 73 </span> 68/push 2/imm32/stderr -<span id="L74" class="LineNr"> 74 </span> 68/push 1/imm32/stdout -<span id="L75" class="LineNr"> 75 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 -<span id="L76" class="LineNr"> 76 </span> <span class="subxS2Comment"># . . call</span> -<span id="L77" class="LineNr"> 77 </span> e8/call <a href='crenshaw2-1.subx.html#L86'>compile</a>/disp32 -<span id="L78" class="LineNr"> 78 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L79" class="LineNr"> 79 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># syscall(exit, 0)</span> -<span id="L81" class="LineNr"> 81 </span> bb/copy-to-ebx 0/imm32 -<span id="L82" class="LineNr"> 82 </span><span class="Constant">$main:end</span>: -<span id="L83" class="LineNr"> 83 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L84" class="LineNr"> 84 </span> -<span id="L85" class="LineNr"> 85 </span><span class="subxComment"># the main entry point</span> -<span id="L86" class="LineNr"> 86 </span><span class="subxFunction">compile</span>: <span class="subxComment"># in: (addr buffered-file), out: fd or (addr stream byte), err: fd or (addr stream byte), ed: (addr exit-descriptor)</span> -<span id="L87" class="LineNr"> 87 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L88" class="LineNr"> 88 </span> 55/push-ebp -<span id="L89" class="LineNr"> 89 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L90" class="LineNr"> 90 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L91" class="LineNr"> 91 </span> 50/push-eax -<span id="L92" class="LineNr"> 92 </span> 51/push-ecx -<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># prime the pump</span> -<span id="L94" class="LineNr"> 94 </span> <span class="subxS1Comment"># . Look = get-char(in)</span> -<span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L96" class="LineNr"> 96 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . call</span> -<span id="L98" class="LineNr"> 98 </span> e8/call <a href='crenshaw2-1.subx.html#L508'>get-char</a>/disp32 -<span id="L99" class="LineNr"> 99 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L100" class="LineNr">100 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L101" class="LineNr">101 </span> <span class="subxComment"># var num/ecx: (stream byte 7)</span> -<span id="L102" class="LineNr">102 </span> <span class="subxComment"># Numbers can be 32 bits or 8 hex bytes long. One of them will be in 'Look', so we need space for 7 bytes.</span> -<span id="L103" class="LineNr">103 </span> <span class="subxComment"># Sizing the stream just right buys us overflow-handling for free inside 'get-num'.</span> -<span id="L104" class="LineNr">104 </span> <span class="subxComment"># Add 12 bytes for 'read', 'write' and 'size' fields, for a total of 19 bytes, or 0x13 in hex.</span> -<span id="L105" class="LineNr">105 </span> <span class="subxComment"># The stack pointer is no longer aligned, so dump_stack() can be misleading past this point.</span> -<span id="L106" class="LineNr">106 </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> 0x13/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L107" class="LineNr">107 </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="L108" class="LineNr">108 </span> <span class="subxComment"># initialize the stream</span> -<span id="L109" class="LineNr">109 </span> <span class="subxS1Comment"># . num->size = 7</span> -<span id="L110" class="LineNr">110 </span> c7 0/subop/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 7/imm32 <span class="subxComment"># copy to *(ecx+8)</span> -<span id="L111" class="LineNr">111 </span> <span class="subxS1Comment"># . clear-stream(num)</span> -<span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L113" class="LineNr">113 </span> 51/push-ecx -<span id="L114" class="LineNr">114 </span> <span class="subxS2Comment"># . . call</span> -<span id="L115" class="LineNr">115 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L116" class="LineNr">116 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L117" class="LineNr">117 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L118" class="LineNr">118 </span> <span class="subxComment"># read a digit from 'in' into 'num'</span> -<span id="L119" class="LineNr">119 </span> <span class="subxS1Comment"># . get-num(in, num, err, ed)</span> -<span id="L120" class="LineNr">120 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L121" class="LineNr">121 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> -<span id="L122" class="LineNr">122 </span> ff 6/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="L123" class="LineNr">123 </span> 51/push-ecx/num -<span id="L124" class="LineNr">124 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L125" class="LineNr">125 </span> <span class="subxS2Comment"># . . call</span> -<span id="L126" class="LineNr">126 </span> e8/call <a href='crenshaw2-1.subx.html#L187'>get-num</a>/disp32 -<span id="L127" class="LineNr">127 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L128" class="LineNr">128 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L129" class="LineNr">129 </span> <span class="subxComment"># render 'num' into the following template on 'out':</span> -<span id="L130" class="LineNr">130 </span> <span class="subxComment"># bb/copy-to-ebx _num_</span> -<span id="L131" class="LineNr">131 </span> <span class="subxComment"># b8/copy-to-eax 1/imm32/exit</span> -<span id="L132" class="LineNr">132 </span> <span class="subxComment"># cd/syscall 0x80/imm8</span> -<span id="L133" class="LineNr">133 </span> <span class="subxComment">#</span> -<span id="L134" class="LineNr">134 </span> <span class="subxS1Comment"># . write(out, "bb/copy-to-ebx ")</span> -<span id="L135" class="LineNr">135 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L136" class="LineNr">136 </span> 68/push <span class="Constant">"bb/copy-to-ebx "</span>/imm32 -<span id="L137" class="LineNr">137 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L138" class="LineNr">138 </span> <span class="subxS2Comment"># . . call</span> -<span id="L139" class="LineNr">139 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L140" class="LineNr">140 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L141" class="LineNr">141 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L142" class="LineNr">142 </span> <span class="subxS1Comment"># . write-stream(out, num)</span> -<span id="L143" class="LineNr">143 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L144" class="LineNr">144 </span> 51/push-ecx/num -<span id="L145" class="LineNr">145 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . call</span> -<span id="L147" class="LineNr">147 </span> e8/call <a href='113write-stream.subx.html#L17'>write-stream</a>/disp32 -<span id="L148" class="LineNr">148 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L149" class="LineNr">149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . write(out, Newline)</span> -<span id="L151" class="LineNr">151 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L152" class="LineNr">152 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L153" class="LineNr">153 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L154" class="LineNr">154 </span> <span class="subxS2Comment"># . . call</span> -<span id="L155" class="LineNr">155 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L157" class="LineNr">157 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L158" class="LineNr">158 </span> <span class="subxS1Comment"># . write(out, "b8/copy-to-eax 1/imm32/exit\n")</span> -<span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L160" class="LineNr">160 </span> 68/push <span class="Constant">"b8/copy-to-eax 1/imm32/exit\n"</span>/imm32 -<span id="L161" class="LineNr">161 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . call</span> -<span id="L163" class="LineNr">163 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L165" class="LineNr">165 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L166" class="LineNr">166 </span> <span class="subxS1Comment"># . write(out, "cd/syscall 0x80/imm8\n")</span> -<span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L168" class="LineNr">168 </span> 68/push <span class="Constant">"cd/syscall 0x80/imm8\n"</span>/imm32 -<span id="L169" class="LineNr">169 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L170" class="LineNr">170 </span> <span class="subxS2Comment"># . . call</span> -<span id="L171" class="LineNr">171 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L172" class="LineNr">172 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L173" class="LineNr">173 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L174" class="LineNr">174 </span><span class="Constant">$compile:end</span>: -<span id="L175" class="LineNr">175 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L176" class="LineNr">176 </span> 59/pop-to-ecx -<span id="L177" class="LineNr">177 </span> 58/pop-to-eax -<span id="L178" class="LineNr">178 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L179" class="LineNr">179 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L180" class="LineNr">180 </span> 5d/pop-to-ebp -<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="subxComment"># Read a single digit into 'out'. Abort if there are none, or if there is no</span> -<span id="L184" class="LineNr">184 </span><span class="subxComment"># space in 'out'.</span> -<span id="L185" class="LineNr">185 </span><span class="subxComment"># Input comes from the global variable 'Look' (first byte) and the argument</span> -<span id="L186" class="LineNr">186 </span><span class="subxComment"># 'in' (rest). We leave the next byte from 'in' into 'Look' on exit.</span> -<span id="L187" class="LineNr">187 </span><span class="subxFunction">get-num</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr stream byte), err: fd or (addr stream byte), ed: (addr exit-descriptor)</span> -<span id="L188" class="LineNr">188 </span> <span class="subxComment"># pseudocode:</span> -<span id="L189" class="LineNr">189 </span> <span class="subxComment"># if (!digit?(Look)) expected(ed, err, "integer")</span> -<span id="L190" class="LineNr">190 </span> <span class="subxComment"># if out->write >= out->size</span> -<span id="L191" class="LineNr">191 </span> <span class="subxComment"># write(err, "Error: too many digits in number\n")</span> -<span id="L192" class="LineNr">192 </span> <span class="subxComment"># stop(ed, 1)</span> -<span id="L193" class="LineNr">193 </span> <span class="subxComment"># out->data[out->write] = LSB(Look)</span> -<span id="L194" class="LineNr">194 </span> <span class="subxComment"># ++out->write</span> -<span id="L195" class="LineNr">195 </span> <span class="subxComment"># Look = get-char(in)</span> -<span id="L196" class="LineNr">196 </span> <span class="subxComment">#</span> -<span id="L197" class="LineNr">197 </span> <span class="subxComment"># registers:</span> -<span id="L198" class="LineNr">198 </span> <span class="subxComment"># in: esi</span> -<span id="L199" class="LineNr">199 </span> <span class="subxComment"># out: edi</span> -<span id="L200" class="LineNr">200 </span> <span class="subxComment"># out->write: ecx (cached copy; need to keep in sync)</span> -<span id="L201" class="LineNr">201 </span> <span class="subxComment"># out->size: edx</span> -<span id="L202" class="LineNr">202 </span> <span class="subxComment"># temporaries: eax, ebx</span> -<span id="L203" class="LineNr">203 </span> <span class="subxComment"># We can't allocate Look to a register because it gets written implicitly in</span> -<span id="L204" class="LineNr">204 </span> <span class="subxComment"># get-char in each iteration of the loop. (Thereby demonstrating that it's</span> -<span id="L205" class="LineNr">205 </span> <span class="subxComment"># not the right interface for us. But we'll keep it just to follow Crenshaw.)</span> -<span id="L206" class="LineNr">206 </span> <span class="subxComment">#</span> -<span id="L207" class="LineNr">207 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L208" class="LineNr">208 </span> 55/push-ebp -<span id="L209" class="LineNr">209 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L210" class="LineNr">210 </span> <span class="subxH1Comment"># - if (digit?(Look)) expected(ed, err, "integer")</span> -<span id="L211" class="LineNr">211 </span> <span class="subxS1Comment"># . eax = digit?(Look)</span> -<span id="L212" class="LineNr">212 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L213" class="LineNr">213 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='crenshaw2-1.subx.html#L553'>Look</a></span>/disp32 <span class="Normal"> . </span> <span class="subxComment"># push *Look</span> -<span id="L214" class="LineNr">214 </span> <span class="subxS2Comment"># . . call</span> -<span id="L215" class="LineNr">215 </span> e8/call <a href='crenshaw2-1.subx.html#L531'>digit?</a>/disp32 -<span id="L216" class="LineNr">216 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L217" class="LineNr">217 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L218" class="LineNr">218 </span> <span class="subxS1Comment"># . if (eax == false)</span> -<span id="L219" class="LineNr">219 </span> 3d/compare-eax-and 0/imm32/false -<span id="L220" class="LineNr">220 </span> 75/jump-if-!= $get-num:main/disp8 -<span id="L221" class="LineNr">221 </span> <span class="subxS1Comment"># . expected(ed, err, "integer")</span> -<span id="L222" class="LineNr">222 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L223" class="LineNr">223 </span> 68/push <span class="Constant">"integer"</span>/imm32 -<span id="L224" class="LineNr">224 </span> ff 6/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="L225" class="LineNr">225 </span> ff 6/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="L226" class="LineNr">226 </span> <span class="subxS2Comment"># . . call</span> -<span id="L227" class="LineNr">227 </span> e8/call <a href='crenshaw2-1.subx.html#L466'>expected</a>/disp32 <span class="subxComment"># never returns</span> -<span id="L228" class="LineNr">228 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L229" class="LineNr">229 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L230" class="LineNr">230 </span><span class="Constant">$get-num:main</span>: -<span id="L231" class="LineNr">231 </span> <span class="subxH1Comment"># - otherwise read a digit</span> -<span id="L232" class="LineNr">232 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L233" class="LineNr">233 </span> 50/push-eax -<span id="L234" class="LineNr">234 </span> 51/push-ecx -<span id="L235" class="LineNr">235 </span> 52/push-edx -<span id="L236" class="LineNr">236 </span> 53/push-ebx -<span id="L237" class="LineNr">237 </span> 56/push-esi -<span id="L238" class="LineNr">238 </span> 57/push-edi -<span id="L239" class="LineNr">239 </span> <span class="subxComment"># read necessary variables to registers</span> -<span id="L240" class="LineNr">240 </span> <span class="subxComment"># esi = in</span> -<span id="L241" class="LineNr">241 </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="L242" class="LineNr">242 </span> <span class="subxComment"># edi = out</span> -<span id="L243" class="LineNr">243 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> -<span id="L244" class="LineNr">244 </span> <span class="subxComment"># ecx = out->write</span> -<span id="L245" class="LineNr">245 </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="L246" class="LineNr">246 </span> <span class="subxComment"># edx = out->size</span> -<span id="L247" class="LineNr">247 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+8) to edx</span> -<span id="L248" class="LineNr">248 </span><span class="Constant">$get-num:loop</span>: -<span id="L249" class="LineNr">249 </span> <span class="subxComment"># if (out->write >= out->size) error</span> -<span id="L250" class="LineNr">250 </span> 39/compare 3/mod/direct 2/rm32/edx <span class="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 edx with ecx</span> -<span id="L251" class="LineNr">251 </span> 7d/jump-if-< $get-num:stage2/disp8 -<span id="L252" class="LineNr">252 </span> <span class="subxS1Comment"># . error(ed, err, msg) # TODO: show full number</span> -<span id="L253" class="LineNr">253 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L254" class="LineNr">254 </span> 68/push <span class="Constant">"get-num: too many digits in number"</span>/imm32 -<span id="L255" class="LineNr">255 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L256" class="LineNr">256 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> -<span id="L257" class="LineNr">257 </span> <span class="subxS2Comment"># . . call</span> -<span id="L258" class="LineNr">258 </span> e8/call <a href='114error.subx.html#L9'>error</a>/disp32 <span class="subxComment"># never returns</span> -<span id="L259" class="LineNr">259 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L260" class="LineNr">260 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L261" class="LineNr">261 </span><span class="Constant">$get-num:stage2</span>: -<span id="L262" class="LineNr">262 </span> <span class="subxComment"># out->data[out->write] = LSB(Look)</span> -<span id="L263" class="LineNr">263 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 1/index/ecx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+ecx+12 to ebx</span> -<span id="L264" class="LineNr">264 </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='crenshaw2-1.subx.html#L553'>Look</a></span>/disp32 <span class="Normal"> . </span> <span class="subxComment"># copy *Look to eax</span> -<span id="L265" class="LineNr">265 </span> 88/copy-byte 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at AL to *ebx</span> -<span id="L266" class="LineNr">266 </span> <span class="subxComment"># ++out->write</span> -<span id="L267" class="LineNr">267 </span> 41/increment-ecx -<span id="L268" class="LineNr">268 </span> <span class="subxComment"># Look = get-char(in)</span> -<span id="L269" class="LineNr">269 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L270" class="LineNr">270 </span> 56/push-esi -<span id="L271" class="LineNr">271 </span> <span class="subxS2Comment"># . . call</span> -<span id="L272" class="LineNr">272 </span> e8/call <a href='crenshaw2-1.subx.html#L508'>get-char</a>/disp32 -<span id="L273" class="LineNr">273 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L274" class="LineNr">274 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L275" class="LineNr">275 </span><span class="Constant">$get-num:loop-end</span>: -<span id="L276" class="LineNr">276 </span> <span class="subxComment"># persist necessary variables from registers</span> -<span id="L277" class="LineNr">277 </span> 89/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 ecx to *edi</span> -<span id="L278" class="LineNr">278 </span><span class="Constant">$get-num:end</span>: -<span id="L279" class="LineNr">279 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L280" class="LineNr">280 </span> 5f/pop-to-edi -<span id="L281" class="LineNr">281 </span> 5e/pop-to-esi -<span id="L282" class="LineNr">282 </span> 5b/pop-to-ebx -<span id="L283" class="LineNr">283 </span> 5a/pop-to-edx -<span id="L284" class="LineNr">284 </span> 59/pop-to-ecx -<span id="L285" class="LineNr">285 </span> 58/pop-to-eax -<span id="L286" class="LineNr">286 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L287" class="LineNr">287 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L288" class="LineNr">288 </span> 5d/pop-to-ebp -<span id="L289" class="LineNr">289 </span> c3/return -<span id="L290" class="LineNr">290 </span> -<span id="L291" class="LineNr">291 </span><span class="subxTest">test-get-num-reads-single-digit</span>: -<span id="L292" class="LineNr">292 </span> <span class="subxH1Comment"># - check that get-num returns first character if it's a digit</span> -<span id="L293" class="LineNr">293 </span> <span class="subxComment"># This test uses exit-descriptors. Use ebp for setting up local variables.</span> -<span id="L294" class="LineNr">294 </span> 55/push-ebp -<span id="L295" class="LineNr">295 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L296" class="LineNr">296 </span> <span class="subxComment"># clear all streams</span> -<span id="L297" class="LineNr">297 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L298" class="LineNr">298 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L299" class="LineNr">299 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L300" class="LineNr">300 </span> <span class="subxS2Comment"># . . call</span> -<span id="L301" class="LineNr">301 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L302" class="LineNr">302 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L303" class="LineNr">303 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L304" class="LineNr">304 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> -<span id="L305" class="LineNr">305 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L306" class="LineNr">306 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L307" class="LineNr">307 </span> <span class="subxS2Comment"># . . call</span> -<span id="L308" class="LineNr">308 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L309" class="LineNr">309 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L310" class="LineNr">310 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L311" class="LineNr">311 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L312" class="LineNr">312 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L313" class="LineNr">313 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L314" class="LineNr">314 </span> <span class="subxS2Comment"># . . call</span> -<span id="L315" class="LineNr">315 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L316" class="LineNr">316 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L317" class="LineNr">317 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L318" class="LineNr">318 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> -<span id="L319" class="LineNr">319 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L320" class="LineNr">320 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 -<span id="L321" class="LineNr">321 </span> <span class="subxS2Comment"># . . call</span> -<span id="L322" class="LineNr">322 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L323" class="LineNr">323 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L324" class="LineNr">324 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L325" class="LineNr">325 </span> <span class="subxComment"># initialize 'in'</span> -<span id="L326" class="LineNr">326 </span> <span class="subxS1Comment"># . write(_test-stream, "3")</span> -<span id="L327" class="LineNr">327 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L328" class="LineNr">328 </span> 68/push <span class="Constant">"3"</span>/imm32 -<span id="L329" class="LineNr">329 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L330" class="LineNr">330 </span> <span class="subxS2Comment"># . . call</span> -<span id="L331" class="LineNr">331 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L332" class="LineNr">332 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L333" class="LineNr">333 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L334" class="LineNr">334 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span> -<span id="L335" class="LineNr">335 </span> <span class="subxS1Comment"># . var ed/eax: exit-descriptor</span> -<span id="L336" class="LineNr">336 </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> 8/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L337" class="LineNr">337 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span> -<span id="L338" class="LineNr">338 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 16)</span> -<span id="L339" class="LineNr">339 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L340" class="LineNr">340 </span> 68/push 0x10/imm32/nbytes-of-args-for-get-num -<span id="L341" class="LineNr">341 </span> 50/push-eax/ed -<span id="L342" class="LineNr">342 </span> <span class="subxS2Comment"># . . call</span> -<span id="L343" class="LineNr">343 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 -<span id="L344" class="LineNr">344 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L345" class="LineNr">345 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L346" class="LineNr">346 </span> <span class="subxComment"># prime the pump</span> -<span id="L347" class="LineNr">347 </span> <span class="subxS1Comment"># . get-char(_test-buffered-file)</span> -<span id="L348" class="LineNr">348 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L349" class="LineNr">349 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L350" class="LineNr">350 </span> <span class="subxS2Comment"># . . call</span> -<span id="L351" class="LineNr">351 </span> e8/call <a href='crenshaw2-1.subx.html#L508'>get-char</a>/disp32 -<span id="L352" class="LineNr">352 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L353" class="LineNr">353 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L354" class="LineNr">354 </span> <span class="subxComment"># get-num(in, out, err, ed)</span> -<span id="L355" class="LineNr">355 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L356" class="LineNr">356 </span> 50/push-eax/ed -<span id="L357" class="LineNr">357 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 -<span id="L358" class="LineNr">358 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L359" class="LineNr">359 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L360" class="LineNr">360 </span> <span class="subxS2Comment"># . . call</span> -<span id="L361" class="LineNr">361 </span> e8/call <a href='crenshaw2-1.subx.html#L187'>get-num</a>/disp32 -<span id="L362" class="LineNr">362 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> -<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> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L365" class="LineNr">365 </span> <span class="subxComment"># check-ints-equal(*_test-output-stream->data, '3', 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-get-num-reads-single-digit"</span>/imm32 -<span id="L368" class="LineNr">368 </span> 68/push 0x33/imm32 -<span id="L369" class="LineNr">369 </span> b8/copy-to-eax <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L370" class="LineNr">370 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> -<span id="L371" class="LineNr">371 </span> <span class="subxS2Comment"># . . call</span> -<span id="L372" class="LineNr">372 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L373" class="LineNr">373 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L374" class="LineNr">374 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L375" class="LineNr">375 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L376" class="LineNr">376 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L377" class="LineNr">377 </span> 5d/pop-to-ebp -<span id="L378" class="LineNr">378 </span> c3/return -<span id="L379" class="LineNr">379 </span> -<span id="L380" class="LineNr">380 </span><span class="subxTest">test-get-num-aborts-on-non-digit-in-Look</span>: -<span id="L381" class="LineNr">381 </span> <span class="subxH1Comment"># - check that get-num returns first character if it's a digit</span> -<span id="L382" class="LineNr">382 </span> <span class="subxComment"># This test uses exit-descriptors. Use ebp for setting up local variables.</span> -<span id="L383" class="LineNr">383 </span> 55/push-ebp -<span id="L384" class="LineNr">384 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L385" class="LineNr">385 </span> <span class="subxComment"># clear all streams</span> -<span id="L386" class="LineNr">386 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L387" class="LineNr">387 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L388" class="LineNr">388 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L389" class="LineNr">389 </span> <span class="subxS2Comment"># . . call</span> -<span id="L390" class="LineNr">390 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L391" class="LineNr">391 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L392" class="LineNr">392 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L393" class="LineNr">393 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> -<span id="L394" class="LineNr">394 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L395" class="LineNr">395 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L396" class="LineNr">396 </span> <span class="subxS2Comment"># . . call</span> -<span id="L397" class="LineNr">397 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L398" class="LineNr">398 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L399" class="LineNr">399 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L400" class="LineNr">400 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L401" class="LineNr">401 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L402" class="LineNr">402 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L403" class="LineNr">403 </span> <span class="subxS2Comment"># . . call</span> -<span id="L404" class="LineNr">404 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L405" class="LineNr">405 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L406" class="LineNr">406 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L407" class="LineNr">407 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> -<span id="L408" class="LineNr">408 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L409" class="LineNr">409 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 -<span id="L410" class="LineNr">410 </span> <span class="subxS2Comment"># . . call</span> -<span id="L411" class="LineNr">411 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L412" class="LineNr">412 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L413" class="LineNr">413 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L414" class="LineNr">414 </span> <span class="subxComment"># initialize 'in'</span> -<span id="L415" class="LineNr">415 </span> <span class="subxS1Comment"># . write(_test-stream, "3")</span> -<span id="L416" class="LineNr">416 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L417" class="LineNr">417 </span> 68/push <span class="Constant">"3"</span>/imm32 -<span id="L418" class="LineNr">418 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L419" class="LineNr">419 </span> <span class="subxS2Comment"># . . call</span> -<span id="L420" class="LineNr">420 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L421" class="LineNr">421 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L422" class="LineNr">422 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L423" class="LineNr">423 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span> -<span id="L424" class="LineNr">424 </span> <span class="subxS1Comment"># . var ed/eax: exit-descriptor</span> -<span id="L425" class="LineNr">425 </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> 8/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L426" class="LineNr">426 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span> -<span id="L427" class="LineNr">427 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 16)</span> -<span id="L428" class="LineNr">428 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L429" class="LineNr">429 </span> 68/push 0x10/imm32/nbytes-of-args-for-get-num -<span id="L430" class="LineNr">430 </span> 50/push-eax/ed -<span id="L431" class="LineNr">431 </span> <span class="subxS2Comment"># . . call</span> -<span id="L432" class="LineNr">432 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 -<span id="L433" class="LineNr">433 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L434" class="LineNr">434 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L435" class="LineNr">435 </span> <span class="subxComment"># *don't* prime the pump</span> -<span id="L436" class="LineNr">436 </span> <span class="subxComment"># get-num(in, out, err, ed)</span> -<span id="L437" class="LineNr">437 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L438" class="LineNr">438 </span> 50/push-eax/ed -<span id="L439" class="LineNr">439 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 -<span id="L440" class="LineNr">440 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L441" class="LineNr">441 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L442" class="LineNr">442 </span> <span class="subxS2Comment"># . . call</span> -<span id="L443" class="LineNr">443 </span> e8/call <a href='crenshaw2-1.subx.html#L187'>get-num</a>/disp32 -<span id="L444" class="LineNr">444 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> -<span id="L445" class="LineNr">445 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L446" class="LineNr">446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L447" class="LineNr">447 </span> <span class="subxComment"># check that get-num tried to call exit(1)</span> -<span id="L448" class="LineNr">448 </span> <span class="subxS1Comment"># . check-ints-equal(ed->value, 2, msg) # i.e. stop was called with value 1</span> -<span id="L449" class="LineNr">449 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L450" class="LineNr">450 </span> 68/push <span class="Constant">"F - test-get-num-aborts-on-non-digit-in-Look"</span>/imm32 -<span id="L451" class="LineNr">451 </span> 68/push 2/imm32 -<span id="L452" class="LineNr">452 </span> <span class="subxS2Comment"># . . push ed->value</span> -<span id="L453" class="LineNr">453 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L454" class="LineNr">454 </span> <span class="subxS2Comment"># . . call</span> -<span id="L455" class="LineNr">455 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L456" class="LineNr">456 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L457" class="LineNr">457 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L458" class="LineNr">458 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L459" class="LineNr">459 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L460" class="LineNr">460 </span> 5d/pop-to-ebp -<span id="L461" class="LineNr">461 </span> c3/return -<span id="L462" class="LineNr">462 </span> -<span id="L463" class="LineNr">463 </span><span class="subxComment">## helpers</span> -<span id="L464" class="LineNr">464 </span> -<span id="L465" class="LineNr">465 </span><span class="subxComment"># write(f, "Error: "+s+" expected\n") then stop(ed, 1)</span> -<span id="L466" class="LineNr">466 </span><span class="subxFunction">expected</span>: <span class="subxComment"># ed: (addr exit-descriptor), f: fd or (addr stream byte), s: (addr array byte)</span> -<span id="L467" class="LineNr">467 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L468" class="LineNr">468 </span> 55/push-ebp -<span id="L469" class="LineNr">469 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L470" class="LineNr">470 </span> <span class="subxComment"># write(f, "Error: ")</span> -<span id="L471" class="LineNr">471 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L472" class="LineNr">472 </span> 68/push <span class="Constant">"Error: "</span>/imm32 -<span id="L473" class="LineNr">473 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L474" class="LineNr">474 </span> <span class="subxS2Comment"># . . call</span> -<span id="L475" class="LineNr">475 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L476" class="LineNr">476 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L477" class="LineNr">477 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L478" class="LineNr">478 </span> <span class="subxComment"># write(f, s)</span> -<span id="L479" class="LineNr">479 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L480" class="LineNr">480 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L481" class="LineNr">481 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L482" class="LineNr">482 </span> <span class="subxS2Comment"># . . call</span> -<span id="L483" class="LineNr">483 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L484" class="LineNr">484 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L485" class="LineNr">485 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L486" class="LineNr">486 </span> <span class="subxComment"># write(f, " expected\n")</span> -<span id="L487" class="LineNr">487 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L488" class="LineNr">488 </span> 68/push <span class="Constant">" expected\n"</span>/imm32 -<span id="L489" class="LineNr">489 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L490" class="LineNr">490 </span> <span class="subxS2Comment"># . . call</span> -<span id="L491" class="LineNr">491 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L492" class="LineNr">492 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L493" class="LineNr">493 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L494" class="LineNr">494 </span> <span class="subxComment"># stop(ed, 1)</span> -<span id="L495" class="LineNr">495 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L496" class="LineNr">496 </span> 68/push 1/imm32 -<span id="L497" class="LineNr">497 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L498" class="LineNr">498 </span> <span class="subxS2Comment"># . . call</span> -<span id="L499" class="LineNr">499 </span> e8/call <a href='110stop.subx.html#L92'>stop</a>/disp32 -<span id="L500" class="LineNr">500 </span> <span class="subxComment"># should never get past this point</span> -<span id="L501" class="LineNr">501 </span><span class="Constant">$expected:dead-end</span>: -<span id="L502" class="LineNr">502 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L503" class="LineNr">503 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L504" class="LineNr">504 </span> 5d/pop-to-ebp -<span id="L505" class="LineNr">505 </span> c3/return -<span id="L506" class="LineNr">506 </span> -<span id="L507" class="LineNr">507 </span><span class="subxComment"># read a byte from 'f', and save it in 'Look'</span> -<span id="L508" class="LineNr">508 </span><span class="subxFunction">get-char</span>: <span class="subxComment"># f: (addr buffered-file)</span> -<span id="L509" class="LineNr">509 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L510" class="LineNr">510 </span> 55/push-ebp -<span id="L511" class="LineNr">511 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L512" class="LineNr">512 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L513" class="LineNr">513 </span> 50/push-eax -<span id="L514" class="LineNr">514 </span> <span class="subxComment"># eax = read-byte-buffered(f)</span> -<span id="L515" class="LineNr">515 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L516" class="LineNr">516 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L517" class="LineNr">517 </span> <span class="subxS2Comment"># . . call</span> -<span id="L518" class="LineNr">518 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 -<span id="L519" class="LineNr">519 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L520" class="LineNr">520 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L521" class="LineNr">521 </span> <span class="subxComment"># save eax to Look</span> -<span id="L522" class="LineNr">522 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='crenshaw2-1.subx.html#L553'>Look</a></span>/disp32 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *Look</span> -<span id="L523" class="LineNr">523 </span><span class="Constant">$get-char:end</span>: -<span id="L524" class="LineNr">524 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L525" class="LineNr">525 </span> 58/pop-to-eax -<span id="L526" class="LineNr">526 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L527" class="LineNr">527 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L528" class="LineNr">528 </span> 5d/pop-to-ebp -<span id="L529" class="LineNr">529 </span> c3/return -<span id="L530" class="LineNr">530 </span> -<span id="L531" class="LineNr">531 </span><span class="subxFunction">digit?</span>: <span class="subxComment"># c: int -> eax: boolean</span> -<span id="L532" class="LineNr">532 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L533" class="LineNr">533 </span> 55/push-ebp -<span id="L534" class="LineNr">534 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L535" class="LineNr">535 </span> <span class="subxComment"># eax = false</span> -<span id="L536" class="LineNr">536 </span> b8/copy-to-eax 0/imm32 -<span id="L537" class="LineNr">537 </span> <span class="subxComment"># if (c < '0') return false</span> -<span id="L538" class="LineNr">538 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 0x30/imm32 <span class="subxComment"># compare *(ebp+8)</span> -<span id="L539" class="LineNr">539 </span> 7c/jump-if-< $digit?:end/disp8 -<span id="L540" class="LineNr">540 </span> <span class="subxComment"># if (c > '9') return false</span> -<span id="L541" class="LineNr">541 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 0x39/imm32 <span class="subxComment"># compare *(ebp+8)</span> -<span id="L542" class="LineNr">542 </span> 7f/jump-if-> $digit?:end/disp8 -<span id="L543" class="LineNr">543 </span> <span class="subxComment"># otherwise return true</span> -<span id="L544" class="LineNr">544 </span> b8/copy-to-eax 1/imm32 -<span id="L545" class="LineNr">545 </span><span class="Constant">$digit?:end</span>: -<span id="L546" class="LineNr">546 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L547" class="LineNr">547 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L548" class="LineNr">548 </span> 5d/pop-to-ebp -<span id="L549" class="LineNr">549 </span> c3/return -<span id="L550" class="LineNr">550 </span> -<span id="L551" class="LineNr">551 </span>== data -<span id="L552" class="LineNr">552 </span> -<span id="L553" class="LineNr">553 </span><span class="SpecialChar">Look</span>: <span class="subxComment"># (char with some extra padding)</span> -<span id="L554" class="LineNr">554 </span> 0/imm32 -<span id="L555" class="LineNr">555 </span> -<span id="L556" class="LineNr">556 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/crenshaw2-1b.subx.html b/html/linux/crenshaw2-1b.subx.html deleted file mode 100644 index 23f3f950..00000000 --- a/html/linux/crenshaw2-1b.subx.html +++ /dev/null @@ -1,815 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/crenshaw2-1b.subx</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.LineNr { } -.subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } -.Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/crenshaw2-1b.subx'>https://github.com/akkartik/mu/blob/main/linux/crenshaw2-1b.subx</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Port of <a href="https://github.com/akkartik/crenshaw/blob/master/tutor2.1.pas">https://github.com/akkartik/crenshaw/blob/master/tutor2.1.pas</a></span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># which corresponds to the section "single digits" in <a href="https://compilers.iecc.com/crenshaw/tutor2.txt">https://compilers.iecc.com/crenshaw/tutor2.txt</a></span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># except that we support hex numbers of multiple digits.</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment">#</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># To run:</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx crenshaw2-1b.subx -o crenshaw2-1b</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo '1a' |bootstrap/bootstrap run crenshaw2-1b</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># Expected output:</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># # syscall(exit, 1a)</span> -<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># bb/copy-to-ebx 3/imm32</span> -<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># b8/copy-to-eax 1/imm32/exit</span> -<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># cd/syscall 0x80/imm8</span> -<span id="L13" class="LineNr"> 13 </span><span class="subxComment">#</span> -<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># To run the generated output:</span> -<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># $ echo '1a' |bootstrap/bootstrap run crenshaw2-1b > z1.subx</span> -<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># $ bootstrap/bootstrap translate z1.subx -o z1</span> -<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># $ bootstrap/bootstrap run z1</span> -<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># $ echo $?</span> -<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># 26 # 0x1a in decimal</span> -<span id="L20" class="LineNr"> 20 </span><span class="subxComment">#</span> -<span id="L21" class="LineNr"> 21 </span><span class="subxComment"># Stdin must contain just a single hex digit. Other input will print an error:</span> -<span id="L22" class="LineNr"> 22 </span><span class="subxComment"># $ echo 'xyz' |bootstrap/bootstrap run crenshaw2-1b</span> -<span id="L23" class="LineNr"> 23 </span><span class="subxComment"># Error: integer expected</span> -<span id="L24" class="LineNr"> 24 </span><span class="subxComment">#</span> -<span id="L25" class="LineNr"> 25 </span><span class="subxComment"># Names in this file sometimes follow Crenshaw's original rather than my usual</span> -<span id="L26" class="LineNr"> 26 </span><span class="subxComment"># naming conventions.</span> -<span id="L27" class="LineNr"> 27 </span> -<span id="L28" class="LineNr"> 28 </span>== code -<span id="L29" class="LineNr"> 29 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L30" class="LineNr"> 30 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L31" class="LineNr"> 31 </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="L32" class="LineNr"> 32 </span> -<span id="L33" class="LineNr"> 33 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, call 'compile' if not</span> -<span id="L34" class="LineNr"> 34 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35" class="LineNr"> 35 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L36" class="LineNr"> 36 </span> -<span id="L37" class="LineNr"> 37 </span> <span class="subxComment"># initialize heap</span> -<span id="L38" class="LineNr"> 38 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> -<span id="L39" class="LineNr"> 39 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L40" class="LineNr"> 40 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L41" class="LineNr"> 41 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> -<span id="L42" class="LineNr"> 42 </span> <span class="subxS2Comment"># . . call</span> -<span id="L43" class="LineNr"> 43 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L44" class="LineNr"> 44 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L45" class="LineNr"> 45 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L46" class="LineNr"> 46 </span> -<span id="L47" class="LineNr"> 47 </span> <span class="subxH1Comment"># - if argc > 1 and argv[1] == "test", then return run_tests()</span> -<span id="L48" class="LineNr"> 48 </span> <span class="subxComment"># if (argc <= 1) goto run-main</span> -<span id="L49" class="LineNr"> 49 </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="L50" class="LineNr"> 50 </span> 7e/jump-if-<= $run-main/disp8 -<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># if (!kernel-string-equal?(argv[1], "test")) goto run-main</span> -<span id="L52" class="LineNr"> 52 </span> <span class="subxS1Comment"># . eax = kernel-string-equal?(argv[1], "test")</span> -<span id="L53" class="LineNr"> 53 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L54" class="LineNr"> 54 </span> 68/push <span class="Constant">"test"</span>/imm32 -<span id="L55" class="LineNr"> 55 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L56" class="LineNr"> 56 </span> <span class="subxS2Comment"># . . call</span> -<span id="L57" class="LineNr"> 57 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 -<span id="L58" class="LineNr"> 58 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L59" class="LineNr"> 59 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L60" class="LineNr"> 60 </span> <span class="subxS1Comment"># . if (eax == false) goto run-main</span> -<span id="L61" class="LineNr"> 61 </span> 3d/compare-eax-and 0/imm32/false -<span id="L62" class="LineNr"> 62 </span> 74/jump-if-= $run-main/disp8 -<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># run-tests()</span> -<span id="L64" class="LineNr"> 64 </span> e8/call run-tests/disp32 -<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L66" class="LineNr"> 66 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> -<span id="L67" class="LineNr"> 67 </span> eb/jump $main:end/disp8 -<span id="L68" class="LineNr"> 68 </span><span class="Constant">$run-main</span>: -<span id="L69" class="LineNr"> 69 </span> <span class="subxH1Comment"># - otherwise read a program from stdin and emit its translation to stdout</span> -<span id="L70" class="LineNr"> 70 </span> <span class="subxS1Comment"># . compile(Stdin, 1/stdout, 2/stderr, 0)</span> -<span id="L71" class="LineNr"> 71 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L72" class="LineNr"> 72 </span> 68/push 0/imm32/exit-descriptor -<span id="L73" class="LineNr"> 73 </span> 68/push 2/imm32/stderr -<span id="L74" class="LineNr"> 74 </span> 68/push 1/imm32/stdout -<span id="L75" class="LineNr"> 75 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 -<span id="L76" class="LineNr"> 76 </span> <span class="subxS2Comment"># . . call</span> -<span id="L77" class="LineNr"> 77 </span> e8/call <a href='crenshaw2-1b.subx.html#L86'>compile</a>/disp32 -<span id="L78" class="LineNr"> 78 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L79" class="LineNr"> 79 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># syscall(exit, 0)</span> -<span id="L81" class="LineNr"> 81 </span> bb/copy-to-ebx 0/imm32 -<span id="L82" class="LineNr"> 82 </span><span class="Constant">$main:end</span>: -<span id="L83" class="LineNr"> 83 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L84" class="LineNr"> 84 </span> -<span id="L85" class="LineNr"> 85 </span><span class="subxComment"># the main entry point</span> -<span id="L86" class="LineNr"> 86 </span><span class="subxFunction">compile</span>: <span class="subxComment"># in: (addr buffered-file), out: fd or (addr stream byte), err: fd or (addr stream byte), ed: (addr exit-descriptor)</span> -<span id="L87" class="LineNr"> 87 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L88" class="LineNr"> 88 </span> 55/push-ebp -<span id="L89" class="LineNr"> 89 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L90" class="LineNr"> 90 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L91" class="LineNr"> 91 </span> 50/push-eax -<span id="L92" class="LineNr"> 92 </span> 51/push-ecx -<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># prime the pump</span> -<span id="L94" class="LineNr"> 94 </span> <span class="subxS1Comment"># . Look = get-char(in)</span> -<span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L96" class="LineNr"> 96 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . call</span> -<span id="L98" class="LineNr"> 98 </span> e8/call <a href='crenshaw2-1b.subx.html#L702'>get-char</a>/disp32 -<span id="L99" class="LineNr"> 99 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L100" class="LineNr">100 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L101" class="LineNr">101 </span> <span class="subxComment"># var num/ecx: (stream byte 7)</span> -<span id="L102" class="LineNr">102 </span> <span class="subxComment"># Numbers can be 32 bits or 8 hex bytes long. One of them will be in 'Look', so we need space for 7 bytes.</span> -<span id="L103" class="LineNr">103 </span> <span class="subxComment"># Sizing the stream just right buys us overflow-handling for free inside 'get-num'.</span> -<span id="L104" class="LineNr">104 </span> <span class="subxComment"># Add 12 bytes for 'read', 'write' and 'size' fields, for a total of 19 bytes, or 0x13 in hex.</span> -<span id="L105" class="LineNr">105 </span> <span class="subxComment"># The stack pointer is no longer aligned, so dump_stack() can be misleading past this point.</span> -<span id="L106" class="LineNr">106 </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> 0x13/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L107" class="LineNr">107 </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="L108" class="LineNr">108 </span> <span class="subxComment"># initialize the stream</span> -<span id="L109" class="LineNr">109 </span> <span class="subxS1Comment"># . num->size = 7</span> -<span id="L110" class="LineNr">110 </span> c7 0/subop/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 7/imm32 <span class="subxComment"># copy to *(ecx+8)</span> -<span id="L111" class="LineNr">111 </span> <span class="subxS1Comment"># . clear-stream(num)</span> -<span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L113" class="LineNr">113 </span> 51/push-ecx -<span id="L114" class="LineNr">114 </span> <span class="subxS2Comment"># . . call</span> -<span id="L115" class="LineNr">115 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L116" class="LineNr">116 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L117" class="LineNr">117 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L118" class="LineNr">118 </span> <span class="subxComment"># read a digit from 'in' into 'num'</span> -<span id="L119" class="LineNr">119 </span> <span class="subxS1Comment"># . get-num(in, num, err, ed)</span> -<span id="L120" class="LineNr">120 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L121" class="LineNr">121 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> -<span id="L122" class="LineNr">122 </span> ff 6/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="L123" class="LineNr">123 </span> 51/push-ecx/num -<span id="L124" class="LineNr">124 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L125" class="LineNr">125 </span> <span class="subxS2Comment"># . . call</span> -<span id="L126" class="LineNr">126 </span> e8/call <a href='crenshaw2-1b.subx.html#L187'>get-num</a>/disp32 -<span id="L127" class="LineNr">127 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L128" class="LineNr">128 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L129" class="LineNr">129 </span> <span class="subxComment"># render 'num' into the following template on 'out':</span> -<span id="L130" class="LineNr">130 </span> <span class="subxComment"># bb/copy-to-ebx _num_</span> -<span id="L131" class="LineNr">131 </span> <span class="subxComment"># b8/copy-to-eax 1/imm32/exit</span> -<span id="L132" class="LineNr">132 </span> <span class="subxComment"># cd/syscall 0x80/imm8</span> -<span id="L133" class="LineNr">133 </span> <span class="subxComment">#</span> -<span id="L134" class="LineNr">134 </span> <span class="subxS1Comment"># . write(out, "bb/copy-to-ebx ")</span> -<span id="L135" class="LineNr">135 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L136" class="LineNr">136 </span> 68/push <span class="Constant">"bb/copy-to-ebx "</span>/imm32 -<span id="L137" class="LineNr">137 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L138" class="LineNr">138 </span> <span class="subxS2Comment"># . . call</span> -<span id="L139" class="LineNr">139 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L140" class="LineNr">140 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L141" class="LineNr">141 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L142" class="LineNr">142 </span> <span class="subxS1Comment"># . write-stream(out, num)</span> -<span id="L143" class="LineNr">143 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L144" class="LineNr">144 </span> 51/push-ecx/num -<span id="L145" class="LineNr">145 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . call</span> -<span id="L147" class="LineNr">147 </span> e8/call <a href='113write-stream.subx.html#L17'>write-stream</a>/disp32 -<span id="L148" class="LineNr">148 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L149" class="LineNr">149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . write(out, Newline)</span> -<span id="L151" class="LineNr">151 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L152" class="LineNr">152 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L153" class="LineNr">153 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L154" class="LineNr">154 </span> <span class="subxS2Comment"># . . call</span> -<span id="L155" class="LineNr">155 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L157" class="LineNr">157 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L158" class="LineNr">158 </span> <span class="subxS1Comment"># . write(out, "b8/copy-to-eax 1/imm32/exit\n")</span> -<span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L160" class="LineNr">160 </span> 68/push <span class="Constant">"b8/copy-to-eax 1/imm32/exit\n"</span>/imm32 -<span id="L161" class="LineNr">161 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . call</span> -<span id="L163" class="LineNr">163 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L165" class="LineNr">165 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L166" class="LineNr">166 </span> <span class="subxS1Comment"># . write(out, "cd/syscall 0x80/imm8\n")</span> -<span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L168" class="LineNr">168 </span> 68/push <span class="Constant">"cd/syscall 0x80/imm8\n"</span>/imm32 -<span id="L169" class="LineNr">169 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L170" class="LineNr">170 </span> <span class="subxS2Comment"># . . call</span> -<span id="L171" class="LineNr">171 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L172" class="LineNr">172 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L173" class="LineNr">173 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L174" class="LineNr">174 </span><span class="Constant">$compile:end</span>: -<span id="L175" class="LineNr">175 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L176" class="LineNr">176 </span> 59/pop-to-ecx -<span id="L177" class="LineNr">177 </span> 58/pop-to-eax -<span id="L178" class="LineNr">178 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L179" class="LineNr">179 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L180" class="LineNr">180 </span> 5d/pop-to-ebp -<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="subxComment"># Read a sequence of digits into 'out'. Abort if there are none, or if there is</span> -<span id="L184" class="LineNr">184 </span><span class="subxComment"># no space in 'out'.</span> -<span id="L185" class="LineNr">185 </span><span class="subxComment"># Input comes from the global variable 'Look' (first byte) and the argument</span> -<span id="L186" class="LineNr">186 </span><span class="subxComment"># 'in' (rest). We leave the next byte from 'in' into 'Look' on exit.</span> -<span id="L187" class="LineNr">187 </span><span class="subxFunction">get-num</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr stream byte), err: fd or (addr stream byte), ed: (addr exit-descriptor)</span> -<span id="L188" class="LineNr">188 </span> <span class="subxComment"># pseudocode:</span> -<span id="L189" class="LineNr">189 </span> <span class="subxComment"># if (!digit?(Look)) expected(ed, err, "integer")</span> -<span id="L190" class="LineNr">190 </span> <span class="subxComment"># do</span> -<span id="L191" class="LineNr">191 </span> <span class="subxComment"># if out->write >= out->size</span> -<span id="L192" class="LineNr">192 </span> <span class="subxComment"># write(err, "Error: too many digits in number\n")</span> -<span id="L193" class="LineNr">193 </span> <span class="subxComment"># stop(ed, 1)</span> -<span id="L194" class="LineNr">194 </span> <span class="subxComment"># out->data[out->write] = LSB(Look)</span> -<span id="L195" class="LineNr">195 </span> <span class="subxComment"># ++out->write</span> -<span id="L196" class="LineNr">196 </span> <span class="subxComment"># Look = get-char(in)</span> -<span id="L197" class="LineNr">197 </span> <span class="subxComment"># while digit?(Look)</span> -<span id="L198" class="LineNr">198 </span> <span class="subxComment"># This is complicated because I don't want to hard-code the error strategy in</span> -<span id="L199" class="LineNr">199 </span> <span class="subxComment"># a general helper like write-byte-buffered. Maybe I should just create a</span> -<span id="L200" class="LineNr">200 </span> <span class="subxComment"># local helper.</span> -<span id="L201" class="LineNr">201 </span> <span class="subxComment">#</span> -<span id="L202" class="LineNr">202 </span> <span class="subxComment"># within the loop we'll try to keep things in registers:</span> -<span id="L203" class="LineNr">203 </span> <span class="subxComment"># in: esi</span> -<span id="L204" class="LineNr">204 </span> <span class="subxComment"># out: edi</span> -<span id="L205" class="LineNr">205 </span> <span class="subxComment"># out->write: ecx (cached copy; need to keep in sync)</span> -<span id="L206" class="LineNr">206 </span> <span class="subxComment"># out->size: edx</span> -<span id="L207" class="LineNr">207 </span> <span class="subxComment"># temporaries: eax, ebx</span> -<span id="L208" class="LineNr">208 </span> <span class="subxComment"># We can't allocate Look to a register because it gets written implicitly in</span> -<span id="L209" class="LineNr">209 </span> <span class="subxComment"># get-char in each iteration of the loop. (Thereby demonstrating that it's</span> -<span id="L210" class="LineNr">210 </span> <span class="subxComment"># not the right interface for us. But we'll keep it just to follow Crenshaw.)</span> -<span id="L211" class="LineNr">211 </span> <span class="subxComment">#</span> -<span id="L212" class="LineNr">212 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L213" class="LineNr">213 </span> 55/push-ebp -<span id="L214" class="LineNr">214 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L215" class="LineNr">215 </span> <span class="subxH1Comment"># - if (digit?(Look)) expected(ed, err, "integer")</span> -<span id="L216" class="LineNr">216 </span> <span class="subxS1Comment"># . eax = digit?(Look)</span> -<span id="L217" class="LineNr">217 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L218" class="LineNr">218 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='crenshaw2-1b.subx.html#L747'>Look</a></span>/disp32 <span class="Normal"> . </span> <span class="subxComment"># push *Look</span> -<span id="L219" class="LineNr">219 </span> <span class="subxS2Comment"># . . call</span> -<span id="L220" class="LineNr">220 </span> e8/call <a href='crenshaw2-1b.subx.html#L725'>digit?</a>/disp32 -<span id="L221" class="LineNr">221 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L222" class="LineNr">222 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L223" class="LineNr">223 </span> <span class="subxS1Comment"># . if (eax == false)</span> -<span id="L224" class="LineNr">224 </span> 3d/compare-eax-and 0/imm32/false -<span id="L225" class="LineNr">225 </span> 75/jump-if-!= $get-num:main/disp8 -<span id="L226" class="LineNr">226 </span> <span class="subxS1Comment"># . expected(ed, err, "integer")</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">"integer"</span>/imm32 -<span id="L229" class="LineNr">229 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L230" class="LineNr">230 </span> ff 6/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="L231" class="LineNr">231 </span> <span class="subxS2Comment"># . . call</span> -<span id="L232" class="LineNr">232 </span> e8/call <a href='crenshaw2-1b.subx.html#L660'>expected</a>/disp32 <span class="subxComment"># never returns</span> -<span id="L233" class="LineNr">233 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L234" class="LineNr">234 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L235" class="LineNr">235 </span><span class="Constant">$get-num:main</span>: -<span id="L236" class="LineNr">236 </span> <span class="subxH1Comment"># - otherwise read a digit</span> -<span id="L237" class="LineNr">237 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L238" class="LineNr">238 </span> 50/push-eax -<span id="L239" class="LineNr">239 </span> 51/push-ecx -<span id="L240" class="LineNr">240 </span> 52/push-edx -<span id="L241" class="LineNr">241 </span> 53/push-ebx -<span id="L242" class="LineNr">242 </span> 56/push-esi -<span id="L243" class="LineNr">243 </span> 57/push-edi -<span id="L244" class="LineNr">244 </span> <span class="subxComment"># read necessary variables to registers</span> -<span id="L245" class="LineNr">245 </span> <span class="subxComment"># esi = in</span> -<span id="L246" class="LineNr">246 </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="L247" class="LineNr">247 </span> <span class="subxComment"># edi = out</span> -<span id="L248" class="LineNr">248 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> -<span id="L249" class="LineNr">249 </span> <span class="subxComment"># ecx = out->write</span> -<span id="L250" class="LineNr">250 </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="L251" class="LineNr">251 </span> <span class="subxComment"># edx = out->size</span> -<span id="L252" class="LineNr">252 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+8) to edx</span> -<span id="L253" class="LineNr">253 </span><span class="Constant">$get-num:loop</span>: -<span id="L254" class="LineNr">254 </span> <span class="subxComment"># if (out->write >= out->size) error</span> -<span id="L255" class="LineNr">255 </span> 39/compare 3/mod/direct 2/rm32/edx <span class="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 edx with ecx</span> -<span id="L256" class="LineNr">256 </span> 7d/jump-if-< $get-num:loop-stage2/disp8 -<span id="L257" class="LineNr">257 </span> <span class="subxS1Comment"># . error(ed, err, msg) # TODO: show full number</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">"get-num: too many digits in number"</span>/imm32 -<span id="L260" class="LineNr">260 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L261" class="LineNr">261 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> -<span id="L262" class="LineNr">262 </span> <span class="subxS2Comment"># . . call</span> -<span id="L263" class="LineNr">263 </span> e8/call <a href='114error.subx.html#L9'>error</a>/disp32 <span class="subxComment"># never returns</span> -<span id="L264" class="LineNr">264 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L265" class="LineNr">265 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L266" class="LineNr">266 </span><span class="Constant">$get-num:loop-stage2</span>: -<span id="L267" class="LineNr">267 </span> <span class="subxComment"># out->data[out->write] = LSB(Look)</span> -<span id="L268" class="LineNr">268 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 1/index/ecx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+ecx+12 to ebx</span> -<span id="L269" class="LineNr">269 </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='crenshaw2-1b.subx.html#L747'>Look</a></span>/disp32 <span class="Normal"> . </span> <span class="subxComment"># copy *Look to eax</span> -<span id="L270" class="LineNr">270 </span> 88/copy-byte 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at AL to *ebx</span> -<span id="L271" class="LineNr">271 </span> <span class="subxComment"># ++out->write</span> -<span id="L272" class="LineNr">272 </span> 41/increment-ecx -<span id="L273" class="LineNr">273 </span> <span class="subxComment"># Look = get-char(in)</span> -<span id="L274" class="LineNr">274 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L275" class="LineNr">275 </span> 56/push-esi -<span id="L276" class="LineNr">276 </span> <span class="subxS2Comment"># . . call</span> -<span id="L277" class="LineNr">277 </span> e8/call <a href='crenshaw2-1b.subx.html#L702'>get-char</a>/disp32 -<span id="L278" class="LineNr">278 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L279" class="LineNr">279 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L280" class="LineNr">280 </span> <span class="subxComment"># if (digit?(Look)) loop</span> -<span id="L281" class="LineNr">281 </span> <span class="subxS1Comment"># . eax = digit?(Look)</span> -<span id="L282" class="LineNr">282 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L283" class="LineNr">283 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='crenshaw2-1b.subx.html#L747'>Look</a></span>/disp32 <span class="Normal"> . </span> <span class="subxComment"># push *Look</span> -<span id="L284" class="LineNr">284 </span> <span class="subxS2Comment"># . . call</span> -<span id="L285" class="LineNr">285 </span> e8/call <a href='crenshaw2-1b.subx.html#L725'>digit?</a>/disp32 -<span id="L286" class="LineNr">286 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L287" class="LineNr">287 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L288" class="LineNr">288 </span> <span class="subxS1Comment"># . if (eax != false) loop</span> -<span id="L289" class="LineNr">289 </span> 3d/compare-eax-and 0/imm32/false -<span id="L290" class="LineNr">290 </span> 0f 85/jump-if-!= $get-num:<span class="Constant">loop</span>/disp32 -<span id="L291" class="LineNr">291 </span><span class="Constant">$get-num:loop-end</span>: -<span id="L292" class="LineNr">292 </span> <span class="subxComment"># persist necessary variables from registers</span> -<span id="L293" class="LineNr">293 </span> 89/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 ecx to *edi</span> -<span id="L294" class="LineNr">294 </span><span class="Constant">$get-num:end</span>: -<span id="L295" class="LineNr">295 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L296" class="LineNr">296 </span> 5f/pop-to-edi -<span id="L297" class="LineNr">297 </span> 5e/pop-to-esi -<span id="L298" class="LineNr">298 </span> 5b/pop-to-ebx -<span id="L299" class="LineNr">299 </span> 5a/pop-to-edx -<span id="L300" class="LineNr">300 </span> 59/pop-to-ecx -<span id="L301" class="LineNr">301 </span> 58/pop-to-eax -<span id="L302" class="LineNr">302 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L303" class="LineNr">303 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L304" class="LineNr">304 </span> 5d/pop-to-ebp -<span id="L305" class="LineNr">305 </span> c3/return -<span id="L306" class="LineNr">306 </span> -<span id="L307" class="LineNr">307 </span><span class="subxTest">test-get-num-reads-single-digit</span>: -<span id="L308" class="LineNr">308 </span> <span class="subxH1Comment"># - check that get-num returns first character if it's a digit</span> -<span id="L309" class="LineNr">309 </span> <span class="subxComment"># This test uses exit-descriptors. Use ebp for setting up local variables.</span> -<span id="L310" class="LineNr">310 </span> 55/push-ebp -<span id="L311" class="LineNr">311 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L312" class="LineNr">312 </span> <span class="subxComment"># clear all streams</span> -<span id="L313" class="LineNr">313 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L314" class="LineNr">314 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L315" class="LineNr">315 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L316" class="LineNr">316 </span> <span class="subxS2Comment"># . . call</span> -<span id="L317" class="LineNr">317 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L318" class="LineNr">318 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L319" class="LineNr">319 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L320" class="LineNr">320 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> -<span id="L321" class="LineNr">321 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L322" class="LineNr">322 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L323" class="LineNr">323 </span> <span class="subxS2Comment"># . . call</span> -<span id="L324" class="LineNr">324 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L325" class="LineNr">325 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L326" class="LineNr">326 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L327" class="LineNr">327 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L328" class="LineNr">328 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L329" class="LineNr">329 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L330" class="LineNr">330 </span> <span class="subxS2Comment"># . . call</span> -<span id="L331" class="LineNr">331 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L332" class="LineNr">332 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L333" class="LineNr">333 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L334" class="LineNr">334 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> -<span id="L335" class="LineNr">335 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L336" class="LineNr">336 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 -<span id="L337" class="LineNr">337 </span> <span class="subxS2Comment"># . . call</span> -<span id="L338" class="LineNr">338 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L339" class="LineNr">339 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L340" class="LineNr">340 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L341" class="LineNr">341 </span> <span class="subxComment"># initialize 'in'</span> -<span id="L342" class="LineNr">342 </span> <span class="subxS1Comment"># . write(_test-stream, "3")</span> -<span id="L343" class="LineNr">343 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L344" class="LineNr">344 </span> 68/push <span class="Constant">"3"</span>/imm32 -<span id="L345" class="LineNr">345 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L346" class="LineNr">346 </span> <span class="subxS2Comment"># . . call</span> -<span id="L347" class="LineNr">347 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L348" class="LineNr">348 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L349" class="LineNr">349 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L350" class="LineNr">350 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span> -<span id="L351" class="LineNr">351 </span> <span class="subxS1Comment"># . var ed/eax: exit-descriptor</span> -<span id="L352" class="LineNr">352 </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> 8/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L353" class="LineNr">353 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span> -<span id="L354" class="LineNr">354 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 16)</span> -<span id="L355" class="LineNr">355 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L356" class="LineNr">356 </span> 68/push 0x10/imm32/nbytes-of-args-for-get-num -<span id="L357" class="LineNr">357 </span> 50/push-eax/ed -<span id="L358" class="LineNr">358 </span> <span class="subxS2Comment"># . . call</span> -<span id="L359" class="LineNr">359 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 -<span id="L360" class="LineNr">360 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L361" class="LineNr">361 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L362" class="LineNr">362 </span> <span class="subxComment"># prime the pump</span> -<span id="L363" class="LineNr">363 </span> <span class="subxS1Comment"># . get-char(_test-buffered-file)</span> -<span id="L364" class="LineNr">364 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L365" class="LineNr">365 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L366" class="LineNr">366 </span> <span class="subxS2Comment"># . . call</span> -<span id="L367" class="LineNr">367 </span> e8/call <a href='crenshaw2-1b.subx.html#L702'>get-char</a>/disp32 -<span id="L368" class="LineNr">368 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L369" class="LineNr">369 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L370" class="LineNr">370 </span> <span class="subxComment"># get-num(in, out, err, ed)</span> -<span id="L371" class="LineNr">371 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L372" class="LineNr">372 </span> 50/push-eax/ed -<span id="L373" class="LineNr">373 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 -<span id="L374" class="LineNr">374 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L375" class="LineNr">375 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L376" class="LineNr">376 </span> <span class="subxS2Comment"># . . call</span> -<span id="L377" class="LineNr">377 </span> e8/call <a href='crenshaw2-1b.subx.html#L187'>get-num</a>/disp32 -<span id="L378" class="LineNr">378 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> -<span id="L379" class="LineNr">379 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L380" class="LineNr">380 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L381" class="LineNr">381 </span> <span class="subxComment"># check-ints-equal(*_test-output-stream->data, '3', msg)</span> -<span id="L382" class="LineNr">382 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L383" class="LineNr">383 </span> 68/push <span class="Constant">"F - test-get-num-reads-single-digit"</span>/imm32 -<span id="L384" class="LineNr">384 </span> 68/push 0x33/imm32 -<span id="L385" class="LineNr">385 </span> b8/copy-to-eax <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L386" class="LineNr">386 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> -<span id="L387" class="LineNr">387 </span> <span class="subxS2Comment"># . . call</span> -<span id="L388" class="LineNr">388 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L389" class="LineNr">389 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L390" class="LineNr">390 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L391" class="LineNr">391 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L392" class="LineNr">392 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L393" class="LineNr">393 </span> 5d/pop-to-ebp -<span id="L394" class="LineNr">394 </span> c3/return -<span id="L395" class="LineNr">395 </span> -<span id="L396" class="LineNr">396 </span><span class="subxTest">test-get-num-aborts-on-non-digit-in-Look</span>: -<span id="L397" class="LineNr">397 </span> <span class="subxH1Comment"># - check that get-num returns first character if it's a digit</span> -<span id="L398" class="LineNr">398 </span> <span class="subxComment"># This test uses exit-descriptors. Use ebp for setting up local variables.</span> -<span id="L399" class="LineNr">399 </span> 55/push-ebp -<span id="L400" class="LineNr">400 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L401" class="LineNr">401 </span> <span class="subxComment"># clear all streams</span> -<span id="L402" class="LineNr">402 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L403" class="LineNr">403 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L404" class="LineNr">404 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L405" class="LineNr">405 </span> <span class="subxS2Comment"># . . call</span> -<span id="L406" class="LineNr">406 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L407" class="LineNr">407 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L408" class="LineNr">408 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L409" class="LineNr">409 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> -<span id="L410" class="LineNr">410 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L411" class="LineNr">411 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L412" class="LineNr">412 </span> <span class="subxS2Comment"># . . call</span> -<span id="L413" class="LineNr">413 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L414" class="LineNr">414 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L415" class="LineNr">415 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L416" class="LineNr">416 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L417" class="LineNr">417 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L418" class="LineNr">418 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L419" class="LineNr">419 </span> <span class="subxS2Comment"># . . call</span> -<span id="L420" class="LineNr">420 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L421" class="LineNr">421 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L422" class="LineNr">422 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L423" class="LineNr">423 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> -<span id="L424" class="LineNr">424 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L425" class="LineNr">425 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 -<span id="L426" class="LineNr">426 </span> <span class="subxS2Comment"># . . call</span> -<span id="L427" class="LineNr">427 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L428" class="LineNr">428 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L429" class="LineNr">429 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L430" class="LineNr">430 </span> <span class="subxComment"># initialize 'in'</span> -<span id="L431" class="LineNr">431 </span> <span class="subxS1Comment"># . write(_test-stream, "3")</span> -<span id="L432" class="LineNr">432 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L433" class="LineNr">433 </span> 68/push <span class="Constant">"3"</span>/imm32 -<span id="L434" class="LineNr">434 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L435" class="LineNr">435 </span> <span class="subxS2Comment"># . . call</span> -<span id="L436" class="LineNr">436 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L437" class="LineNr">437 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L438" class="LineNr">438 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L439" class="LineNr">439 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span> -<span id="L440" class="LineNr">440 </span> <span class="subxS1Comment"># . var ed/eax: exit-descriptor</span> -<span id="L441" class="LineNr">441 </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> 8/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L442" class="LineNr">442 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span> -<span id="L443" class="LineNr">443 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 16)</span> -<span id="L444" class="LineNr">444 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L445" class="LineNr">445 </span> 68/push 0x10/imm32/nbytes-of-args-for-get-num -<span id="L446" class="LineNr">446 </span> 50/push-eax/ed -<span id="L447" class="LineNr">447 </span> <span class="subxS2Comment"># . . call</span> -<span id="L448" class="LineNr">448 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 -<span id="L449" class="LineNr">449 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L450" class="LineNr">450 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L451" class="LineNr">451 </span> <span class="subxComment"># *don't* prime the pump</span> -<span id="L452" class="LineNr">452 </span> <span class="subxComment"># get-num(in, out, err, ed)</span> -<span id="L453" class="LineNr">453 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L454" class="LineNr">454 </span> 50/push-eax/ed -<span id="L455" class="LineNr">455 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 -<span id="L456" class="LineNr">456 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L457" class="LineNr">457 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L458" class="LineNr">458 </span> <span class="subxS2Comment"># . . call</span> -<span id="L459" class="LineNr">459 </span> e8/call <a href='crenshaw2-1b.subx.html#L187'>get-num</a>/disp32 -<span id="L460" class="LineNr">460 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> -<span id="L461" class="LineNr">461 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L462" class="LineNr">462 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L463" class="LineNr">463 </span> <span class="subxComment"># check that get-num tried to call exit(1)</span> -<span id="L464" class="LineNr">464 </span> <span class="subxS1Comment"># . check-ints-equal(ed->value, 2, msg) # i.e. stop was called with value 1</span> -<span id="L465" class="LineNr">465 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L466" class="LineNr">466 </span> 68/push <span class="Constant">"F - test-get-num-aborts-on-non-digit-in-Look"</span>/imm32 -<span id="L467" class="LineNr">467 </span> 68/push 2/imm32 -<span id="L468" class="LineNr">468 </span> <span class="subxS2Comment"># . . push ed->value</span> -<span id="L469" class="LineNr">469 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L470" class="LineNr">470 </span> <span class="subxS2Comment"># . . call</span> -<span id="L471" class="LineNr">471 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L472" class="LineNr">472 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L473" class="LineNr">473 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L474" class="LineNr">474 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L475" class="LineNr">475 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L476" class="LineNr">476 </span> 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="subxTest">test-get-num-reads-multiple-digits</span>: -<span id="L480" class="LineNr">480 </span> <span class="subxH1Comment"># - check that get-num returns all initial digits until it encounters a non-digit</span> -<span id="L481" class="LineNr">481 </span> <span class="subxComment"># This test uses exit-descriptors. Use ebp for setting up local variables.</span> -<span id="L482" class="LineNr">482 </span> 55/push-ebp -<span id="L483" class="LineNr">483 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L484" class="LineNr">484 </span> <span class="subxComment"># clear all streams</span> -<span id="L485" class="LineNr">485 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L486" class="LineNr">486 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L487" class="LineNr">487 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L488" class="LineNr">488 </span> <span class="subxS2Comment"># . . call</span> -<span id="L489" class="LineNr">489 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L490" class="LineNr">490 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L491" class="LineNr">491 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L492" class="LineNr">492 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> -<span id="L493" class="LineNr">493 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L494" class="LineNr">494 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L495" class="LineNr">495 </span> <span class="subxS2Comment"># . . call</span> -<span id="L496" class="LineNr">496 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L497" class="LineNr">497 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L498" class="LineNr">498 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L499" class="LineNr">499 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L500" class="LineNr">500 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L501" class="LineNr">501 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L502" class="LineNr">502 </span> <span class="subxS2Comment"># . . call</span> -<span id="L503" class="LineNr">503 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L504" class="LineNr">504 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L505" class="LineNr">505 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L506" class="LineNr">506 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> -<span id="L507" class="LineNr">507 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L508" class="LineNr">508 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 -<span id="L509" class="LineNr">509 </span> <span class="subxS2Comment"># . . call</span> -<span id="L510" class="LineNr">510 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L511" class="LineNr">511 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L512" class="LineNr">512 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L513" class="LineNr">513 </span> <span class="subxComment"># initialize 'in'</span> -<span id="L514" class="LineNr">514 </span> <span class="subxS1Comment"># . write(_test-stream, "3456 x")</span> -<span id="L515" class="LineNr">515 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L516" class="LineNr">516 </span> 68/push <span class="Constant">"3456"</span>/imm32 -<span id="L517" class="LineNr">517 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L518" class="LineNr">518 </span> <span class="subxS2Comment"># . . call</span> -<span id="L519" class="LineNr">519 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L520" class="LineNr">520 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L521" class="LineNr">521 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L522" class="LineNr">522 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span> -<span id="L523" class="LineNr">523 </span> <span class="subxS1Comment"># . var ed/eax: exit-descriptor</span> -<span id="L524" class="LineNr">524 </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> 8/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L525" class="LineNr">525 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span> -<span id="L526" class="LineNr">526 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 16)</span> -<span id="L527" class="LineNr">527 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L528" class="LineNr">528 </span> 68/push 0x10/imm32/nbytes-of-args-for-get-num -<span id="L529" class="LineNr">529 </span> 50/push-eax/ed -<span id="L530" class="LineNr">530 </span> <span class="subxS2Comment"># . . call</span> -<span id="L531" class="LineNr">531 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 -<span id="L532" class="LineNr">532 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L533" class="LineNr">533 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L534" class="LineNr">534 </span> <span class="subxComment"># prime the pump</span> -<span id="L535" class="LineNr">535 </span> <span class="subxS1Comment"># . get-char(_test-buffered-file)</span> -<span id="L536" class="LineNr">536 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L537" class="LineNr">537 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L538" class="LineNr">538 </span> <span class="subxS2Comment"># . . call</span> -<span id="L539" class="LineNr">539 </span> e8/call <a href='crenshaw2-1b.subx.html#L702'>get-char</a>/disp32 -<span id="L540" class="LineNr">540 </span> <span class="subxS2Comment"># . . discard args</span> -<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="subxComment"># get-num(in, out, err, ed)</span> -<span id="L543" class="LineNr">543 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L544" class="LineNr">544 </span> 50/push-eax/ed -<span id="L545" class="LineNr">545 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 -<span id="L546" class="LineNr">546 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L547" class="LineNr">547 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L548" class="LineNr">548 </span> <span class="subxS2Comment"># . . call</span> -<span id="L549" class="LineNr">549 </span> e8/call <a href='crenshaw2-1b.subx.html#L187'>get-num</a>/disp32 -<span id="L550" class="LineNr">550 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> -<span id="L551" class="LineNr">551 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L552" class="LineNr">552 </span> 81 0/subop/add 3/mod/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="L553" class="LineNr">553 </span> <span class="subxComment"># check-ints-equal(*_test-output-stream->data, '3456', msg)</span> -<span id="L554" class="LineNr">554 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L555" class="LineNr">555 </span> 68/push <span class="Constant">"F - test-get-num-reads-multiple-digits"</span>/imm32 -<span id="L556" class="LineNr">556 </span> 68/push 0x36353433/imm32 -<span id="L557" class="LineNr">557 </span> b8/copy-to-eax <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L558" class="LineNr">558 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> -<span id="L559" class="LineNr">559 </span> <span class="subxS2Comment"># . . call</span> -<span id="L560" class="LineNr">560 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L561" class="LineNr">561 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L562" class="LineNr">562 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L563" class="LineNr">563 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L564" class="LineNr">564 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L565" class="LineNr">565 </span> 5d/pop-to-ebp -<span id="L566" class="LineNr">566 </span> c3/return -<span id="L567" class="LineNr">567 </span> -<span id="L568" class="LineNr">568 </span><span class="subxTest">test-get-num-reads-multiple-digits-followed-by-nondigit</span>: -<span id="L569" class="LineNr">569 </span> <span class="subxH1Comment"># - check that get-num returns all initial digits until it encounters a non-digit</span> -<span id="L570" class="LineNr">570 </span> <span class="subxComment"># This test uses exit-descriptors. Use ebp for setting up local variables.</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="subxComment"># clear all streams</span> -<span id="L574" class="LineNr">574 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L575" class="LineNr">575 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L576" class="LineNr">576 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L577" class="LineNr">577 </span> <span class="subxS2Comment"># . . call</span> -<span id="L578" class="LineNr">578 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L579" class="LineNr">579 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L580" class="LineNr">580 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L581" class="LineNr">581 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> -<span id="L582" class="LineNr">582 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L583" class="LineNr">583 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L584" class="LineNr">584 </span> <span class="subxS2Comment"># . . call</span> -<span id="L585" class="LineNr">585 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L586" class="LineNr">586 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L587" class="LineNr">587 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L588" class="LineNr">588 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L589" class="LineNr">589 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L590" class="LineNr">590 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L591" class="LineNr">591 </span> <span class="subxS2Comment"># . . call</span> -<span id="L592" class="LineNr">592 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L593" class="LineNr">593 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L594" class="LineNr">594 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L595" class="LineNr">595 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> -<span id="L596" class="LineNr">596 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L597" class="LineNr">597 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 -<span id="L598" class="LineNr">598 </span> <span class="subxS2Comment"># . . call</span> -<span id="L599" class="LineNr">599 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L600" class="LineNr">600 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L601" class="LineNr">601 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L602" class="LineNr">602 </span> <span class="subxComment"># initialize 'in'</span> -<span id="L603" class="LineNr">603 </span> <span class="subxS1Comment"># . write(_test-stream, "3456 x")</span> -<span id="L604" class="LineNr">604 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L605" class="LineNr">605 </span> 68/push <span class="Constant">"3456 x"</span>/imm32 -<span id="L606" class="LineNr">606 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L607" class="LineNr">607 </span> <span class="subxS2Comment"># . . call</span> -<span id="L608" class="LineNr">608 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L609" class="LineNr">609 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L610" class="LineNr">610 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L611" class="LineNr">611 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span> -<span id="L612" class="LineNr">612 </span> <span class="subxS1Comment"># . var ed/eax: exit-descriptor</span> -<span id="L613" class="LineNr">613 </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> 8/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L614" class="LineNr">614 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span> -<span id="L615" class="LineNr">615 </span> <span class="subxS1Comment"># . tailor-exit-descriptor(ed, 16)</span> -<span id="L616" class="LineNr">616 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L617" class="LineNr">617 </span> 68/push 0x10/imm32/nbytes-of-args-for-get-num -<span id="L618" class="LineNr">618 </span> 50/push-eax/ed -<span id="L619" class="LineNr">619 </span> <span class="subxS2Comment"># . . call</span> -<span id="L620" class="LineNr">620 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 -<span id="L621" class="LineNr">621 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L622" class="LineNr">622 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L623" class="LineNr">623 </span> <span class="subxComment"># prime the pump</span> -<span id="L624" class="LineNr">624 </span> <span class="subxS1Comment"># . get-char(_test-buffered-file)</span> -<span id="L625" class="LineNr">625 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L626" class="LineNr">626 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L627" class="LineNr">627 </span> <span class="subxS2Comment"># . . call</span> -<span id="L628" class="LineNr">628 </span> e8/call <a href='crenshaw2-1b.subx.html#L702'>get-char</a>/disp32 -<span id="L629" class="LineNr">629 </span> <span class="subxS2Comment"># . . discard args</span> -<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="subxComment"># get-num(in, out, err, ed)</span> -<span id="L632" class="LineNr">632 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L633" class="LineNr">633 </span> 50/push-eax/ed -<span id="L634" class="LineNr">634 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 -<span id="L635" class="LineNr">635 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L636" class="LineNr">636 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L637" class="LineNr">637 </span> <span class="subxS2Comment"># . . call</span> -<span id="L638" class="LineNr">638 </span> e8/call <a href='crenshaw2-1b.subx.html#L187'>get-num</a>/disp32 -<span id="L639" class="LineNr">639 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> -<span id="L640" class="LineNr">640 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L641" class="LineNr">641 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L642" class="LineNr">642 </span> <span class="subxComment"># check-ints-equal(*_test-output-stream->data, '3456', msg)</span> -<span id="L643" class="LineNr">643 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L644" class="LineNr">644 </span> 68/push <span class="Constant">"F - test-get-num-reads-multiple-digits-followed-by-nondigit"</span>/imm32 -<span id="L645" class="LineNr">645 </span> 68/push 0x36353433/imm32 -<span id="L646" class="LineNr">646 </span> b8/copy-to-eax <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 -<span id="L647" class="LineNr">647 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> -<span id="L648" class="LineNr">648 </span> <span class="subxS2Comment"># . . call</span> -<span id="L649" class="LineNr">649 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L650" class="LineNr">650 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L651" class="LineNr">651 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L652" class="LineNr">652 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L653" class="LineNr">653 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L654" class="LineNr">654 </span> 5d/pop-to-ebp -<span id="L655" class="LineNr">655 </span> c3/return -<span id="L656" class="LineNr">656 </span> -<span id="L657" class="LineNr">657 </span><span class="subxComment">## helpers</span> -<span id="L658" class="LineNr">658 </span> -<span id="L659" class="LineNr">659 </span><span class="subxComment"># write(f, "Error: "+s+" expected\n") then stop(ed, 1)</span> -<span id="L660" class="LineNr">660 </span><span class="subxFunction">expected</span>: <span class="subxComment"># ed: (addr exit-descriptor), f: fd or (addr stream byte), s: (addr array byte)</span> -<span id="L661" class="LineNr">661 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L662" class="LineNr">662 </span> 55/push-ebp -<span id="L663" class="LineNr">663 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L664" class="LineNr">664 </span> <span class="subxComment"># write(f, "Error: ")</span> -<span id="L665" class="LineNr">665 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L666" class="LineNr">666 </span> 68/push <span class="Constant">"Error: "</span>/imm32 -<span id="L667" class="LineNr">667 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L668" class="LineNr">668 </span> <span class="subxS2Comment"># . . call</span> -<span id="L669" class="LineNr">669 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L670" class="LineNr">670 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L671" class="LineNr">671 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L672" class="LineNr">672 </span> <span class="subxComment"># write(f, s)</span> -<span id="L673" class="LineNr">673 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L674" class="LineNr">674 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L675" class="LineNr">675 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L676" class="LineNr">676 </span> <span class="subxS2Comment"># . . call</span> -<span id="L677" class="LineNr">677 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L678" class="LineNr">678 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L679" class="LineNr">679 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L680" class="LineNr">680 </span> <span class="subxComment"># write(f, " expected\n")</span> -<span id="L681" class="LineNr">681 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L682" class="LineNr">682 </span> 68/push <span class="Constant">" expected\n"</span>/imm32 -<span id="L683" class="LineNr">683 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L684" class="LineNr">684 </span> <span class="subxS2Comment"># . . call</span> -<span id="L685" class="LineNr">685 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L686" class="LineNr">686 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L687" class="LineNr">687 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L688" class="LineNr">688 </span> <span class="subxComment"># stop(ed, 1)</span> -<span id="L689" class="LineNr">689 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L690" class="LineNr">690 </span> 68/push 1/imm32 -<span id="L691" class="LineNr">691 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L692" class="LineNr">692 </span> <span class="subxS2Comment"># . . call</span> -<span id="L693" class="LineNr">693 </span> e8/call <a href='110stop.subx.html#L92'>stop</a>/disp32 -<span id="L694" class="LineNr">694 </span> <span class="subxComment"># should never get past this point</span> -<span id="L695" class="LineNr">695 </span><span class="Constant">$expected:dead-end</span>: -<span id="L696" class="LineNr">696 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L697" class="LineNr">697 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L698" class="LineNr">698 </span> 5d/pop-to-ebp -<span id="L699" class="LineNr">699 </span> c3/return -<span id="L700" class="LineNr">700 </span> -<span id="L701" class="LineNr">701 </span><span class="subxComment"># read a byte from 'f', and save it in 'Look'</span> -<span id="L702" class="LineNr">702 </span><span class="subxFunction">get-char</span>: <span class="subxComment"># f: (addr buffered-file)</span> -<span id="L703" class="LineNr">703 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L704" class="LineNr">704 </span> 55/push-ebp -<span id="L705" class="LineNr">705 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L706" class="LineNr">706 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L707" class="LineNr">707 </span> 50/push-eax -<span id="L708" class="LineNr">708 </span> <span class="subxComment"># eax = read-byte-buffered(f)</span> -<span id="L709" class="LineNr">709 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L710" class="LineNr">710 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L711" class="LineNr">711 </span> <span class="subxS2Comment"># . . call</span> -<span id="L712" class="LineNr">712 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 -<span id="L713" class="LineNr">713 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L714" class="LineNr">714 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L715" class="LineNr">715 </span> <span class="subxComment"># save eax to Look</span> -<span id="L716" class="LineNr">716 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='crenshaw2-1b.subx.html#L747'>Look</a></span>/disp32 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *Look</span> -<span id="L717" class="LineNr">717 </span><span class="Constant">$get-char:end</span>: -<span id="L718" class="LineNr">718 </span> <span class="subxS1Comment"># . restore registers</span> -<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="subxFunction">digit?</span>: <span class="subxComment"># c: int -> eax: boolean</span> -<span id="L726" class="LineNr">726 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L727" class="LineNr">727 </span> 55/push-ebp -<span id="L728" class="LineNr">728 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L729" class="LineNr">729 </span> <span class="subxComment"># eax = false</span> -<span id="L730" class="LineNr">730 </span> b8/copy-to-eax 0/imm32 -<span id="L731" class="LineNr">731 </span> <span class="subxComment"># if (c < '0') return false</span> -<span id="L732" class="LineNr">732 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 0x30/imm32 <span class="subxComment"># compare *(ebp+8)</span> -<span id="L733" class="LineNr">733 </span> 7c/jump-if-< $digit?:end/disp8 -<span id="L734" class="LineNr">734 </span> <span class="subxComment"># if (c > '9') return false</span> -<span id="L735" class="LineNr">735 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 0x39/imm32 <span class="subxComment"># compare *(ebp+8)</span> -<span id="L736" class="LineNr">736 </span> 7f/jump-if-> $digit?:end/disp8 -<span id="L737" class="LineNr">737 </span> <span class="subxComment"># otherwise return true</span> -<span id="L738" class="LineNr">738 </span> b8/copy-to-eax 1/imm32 -<span id="L739" class="LineNr">739 </span><span class="Constant">$digit?:end</span>: -<span id="L740" class="LineNr">740 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L741" class="LineNr">741 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L742" class="LineNr">742 </span> 5d/pop-to-ebp -<span id="L743" class="LineNr">743 </span> c3/return -<span id="L744" class="LineNr">744 </span> -<span id="L745" class="LineNr">745 </span>== data -<span id="L746" class="LineNr">746 </span> -<span id="L747" class="LineNr">747 </span><span class="SpecialChar">Look</span>: <span class="subxComment"># (char with some extra padding)</span> -<span id="L748" class="LineNr">748 </span> 0/imm32 -<span id="L749" class="LineNr">749 </span> -<span id="L750" class="LineNr">750 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/dquotes.subx.html b/html/linux/dquotes.subx.html index a8dc5386..7593dfb3 100644 --- a/html/linux/dquotes.subx.html +++ b/html/linux/dquotes.subx.html @@ -14,18 +14,18 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .subxMinorFunction { color: #875f5f; } .Constant { color: #008787; } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -114,7 +114,7 @@ if ('onhashchange' in window) { <span id="L51" class="LineNr"> 51 </span> 74/jump-if-= $subx-dquotes-main:interactive/disp8 <span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># run-tests()</span> <span id="L53" class="LineNr"> 53 </span> e8/call run-tests/disp32 -<span id="L54" class="LineNr"> 54 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L54" class="LineNr"> 54 </span> <span class="subxComment"># syscall_exit(*Num-test-failures)</span> <span id="L55" class="LineNr"> 55 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L56" class="LineNr"> 56 </span> eb/jump $subx-dquotes-main:end/disp8 <span id="L57" class="LineNr"> 57 </span><span class="Constant">$subx-dquotes-main:interactive</span>: @@ -135,7 +135,7 @@ if ('onhashchange' in window) { <span id="L72" class="LineNr"> 72 </span> e8/call <a href='dquotes.subx.html#L84'>subx-dquotes</a>/disp32 <span id="L73" class="LineNr"> 73 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L74" class="LineNr"> 74 </span> 81 0/subop/add 3/mod/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="L75" class="LineNr"> 75 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># syscall_exit(0)</span> <span id="L76" class="LineNr"> 76 </span> bb/copy-to-ebx 0/imm32 <span id="L77" class="LineNr"> 77 </span><span class="Constant">$subx-dquotes-main:end</span>: <span id="L78" class="LineNr"> 78 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 @@ -610,7 +610,7 @@ if ('onhashchange' in window) { <span id="L547" class="LineNr"> 547 </span> <span class="subxComment"># == data 0x2</span> <span id="L548" class="LineNr"> 548 </span> <span class="subxComment"># 4 5/imm32</span> <span id="L549" class="LineNr"> 549 </span> <span class="subxComment"># We don't care right now what exactly happens to comments. Trailing spaces are also minor details.</span> -<span id="L550" class="Folded"> 550 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L550" class="Folded"> 550 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L576" class="LineNr"> 576 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "", msg)</span> <span id="L577" class="LineNr"> 577 </span> <span class="subxS2Comment"># . . push args</span> <span id="L578" class="LineNr"> 578 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L409'>test-subx-dquotes-is-idempotent-by-default</a>/0"</span>/imm32 @@ -787,7 +787,7 @@ if ('onhashchange' in window) { <span id="L749" class="LineNr"> 749 </span> <span class="subxComment"># called. We just want to make sure instructions using string literals</span> <span id="L750" class="LineNr"> 750 </span> <span class="subxComment"># switch to a string variable with the right value.</span> <span id="L751" class="LineNr"> 751 </span> <span class="subxComment"># (Modifying string literals completely off the radar for now.)</span> -<span id="L752" class="Folded"> 752 </span><span class="Folded">+-- 33 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L752" class="Folded"> 752 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L785" class="LineNr"> 785 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "== code 0x1 ", msg)</span> <span id="L786" class="LineNr"> 786 </span> <span class="subxS2Comment"># . . push args</span> <span id="L787" class="LineNr"> 787 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L662'>test-subx-dquotes-processes-string-literals</a>/0"</span>/imm32 @@ -1101,7 +1101,7 @@ if ('onhashchange' in window) { <span id="L1095" class="LineNr">1095 </span> e8/call <a href='dquotes.subx.html#L863'>emit-string-literal-data</a>/disp32 <span id="L1096" class="LineNr">1096 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1097" class="LineNr">1097 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1098" class="Folded">1098 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1098" class="Folded">1098 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1124" class="LineNr">1124 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "3/imm32 61/a 62/b 63/c ", msg)</span> <span id="L1125" class="LineNr">1125 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1126" class="LineNr">1126 </span> 68/push <span class="Constant">"F - test-emit-string-literal-data"</span>/imm32 @@ -1140,7 +1140,7 @@ if ('onhashchange' in window) { <span id="L1159" class="LineNr">1159 </span> e8/call <a href='dquotes.subx.html#L863'>emit-string-literal-data</a>/disp32 <span id="L1160" class="LineNr">1160 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1161" class="LineNr">1161 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1162" class="Folded">1162 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1162" class="Folded">1162 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1188" class="LineNr">1188 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "0/imm32 ", msg)</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">"F - test-emit-string-literal-data-empty"</span>/imm32 @@ -1180,7 +1180,7 @@ if ('onhashchange' in window) { <span id="L1224" class="LineNr">1224 </span> e8/call <a href='dquotes.subx.html#L863'>emit-string-literal-data</a>/disp32 <span id="L1225" class="LineNr">1225 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1226" class="LineNr">1226 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1227" class="Folded">1227 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1227" class="Folded">1227 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1253" class="LineNr">1253 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "3/imm32 61/a 20 62/b ", msg) # ideally we'd like to say '20/space' but that requires managing names for codepoints</span> <span id="L1254" class="LineNr">1254 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1255" class="LineNr">1255 </span> 68/push <span class="Constant">"F - test-emit-string-literal-data-no-metadata-for-non-alphanumerics"</span>/imm32 @@ -1219,7 +1219,7 @@ if ('onhashchange' in window) { <span id="L1288" class="LineNr">1288 </span> e8/call <a href='dquotes.subx.html#L863'>emit-string-literal-data</a>/disp32 <span id="L1289" class="LineNr">1289 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1290" class="LineNr">1290 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1291" class="Folded">1291 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1291" class="Folded">1291 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1317" class="LineNr">1317 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "3/imm32 61/a 22 62/b ", msg)</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="Constant">"F - test-emit-string-literal-data-handles-escape-sequences"</span>/imm32 @@ -1258,7 +1258,7 @@ if ('onhashchange' in window) { <span id="L1352" class="LineNr">1352 </span> e8/call <a href='dquotes.subx.html#L863'>emit-string-literal-data</a>/disp32 <span id="L1353" class="LineNr">1353 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1354" class="LineNr">1354 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1355" class="Folded">1355 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1355" class="Folded">1355 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1381" class="LineNr">1381 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "3/imm32 61/a 0a 62/b ", msg)</span> <span id="L1382" class="LineNr">1382 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1383" class="LineNr">1383 </span> 68/push <span class="Constant">"F - test-emit-string-literal-data-handles-newline-escape"</span>/imm32 @@ -1633,7 +1633,7 @@ if ('onhashchange' in window) { <span id="L1752" class="LineNr">1752 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1753" class="LineNr">1753 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1754" class="LineNr">1754 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1755" class="Folded">1755 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1755" class="Folded">1755 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1781" class="LineNr">1781 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "/ghi", msg) # important that there's no leading space</span> <span id="L1782" class="LineNr">1782 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1783" class="LineNr">1783 </span> 68/push <span class="Constant">"F - test-emit-metadata-in-string-literal"</span>/imm32 diff --git a/html/linux/hex.subx.html b/html/linux/hex.subx.html index dc0487af..c6872068 100644 --- a/html/linux/hex.subx.html +++ b/html/linux/hex.subx.html @@ -14,16 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -110,7 +110,7 @@ if ('onhashchange' in window) { <span id="L49" class="LineNr"> 49 </span> 74/jump-if-= $subx-hex-main:interactive/disp8 <span id="L50" class="LineNr"> 50 </span> <span class="subxComment"># run-tests()</span> <span id="L51" class="LineNr"> 51 </span> e8/call run-tests/disp32 -<span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># syscall_exit(*Num-test-failures)</span> <span id="L53" class="LineNr"> 53 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L54" class="LineNr"> 54 </span> eb/jump $subx-hex-main:end/disp8 <span id="L55" class="LineNr"> 55 </span><span class="Constant">$subx-hex-main:interactive</span>: @@ -125,7 +125,7 @@ if ('onhashchange' in window) { <span id="L64" class="LineNr"> 64 </span> e8/call <a href='hex.subx.html#L73'>subx-hex</a>/disp32 <span id="L65" class="LineNr"> 65 </span> <span class="subxS2Comment"># . . discard args</span> <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> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L67" class="LineNr"> 67 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L67" class="LineNr"> 67 </span> <span class="subxComment"># syscall_exit(0)</span> <span id="L68" class="LineNr"> 68 </span> bb/copy-to-ebx 0/imm32 <span id="L69" class="LineNr"> 69 </span><span class="Constant">$subx-hex-main:end</span>: <span id="L70" class="LineNr"> 70 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 diff --git a/html/linux/labels_baremetal.subx.html b/html/linux/labels_baremetal.subx.html index 28dde60d..e1e71e1f 100644 --- a/html/linux/labels_baremetal.subx.html +++ b/html/linux/labels_baremetal.subx.html @@ -14,18 +14,18 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.CommentedCode { color: #8a8a8a; } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.CommentedCode { color: #8a8a8a; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -61,2397 +61,2466 @@ if ('onhashchange' in window) { <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="L1" class="LineNr"> 1 </span><span class="subxComment"># Read a list of labels and their addresses from a file called 'labels', then</span> +<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># replace labels in stdin with their addresses.</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 labels_baremetal.subx -o labels_baremetal</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment">#</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># Stdin should be a stream of bytes and some interspersed labels. Comments and</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># '==' segment headers are allowed, but segment names are ignored. The emitted</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># code will all lie in a single contiguous address range starting at address</span> +<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># 0x7c00. Addresses in segment headers are optional. If provided, this program</span> +<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># will insert padding in the output until the desired address is reached.</span> +<span id="L12" class="LineNr"> 12 </span><span class="subxComment">#</span> +<span id="L13" class="LineNr"> 13 </span><span class="subxComment"># $ cat x</span> +<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># == code</span> +<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># l1:</span> +<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># aa bb l1/imm8</span> +<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># cc dd l2/disp32</span> +<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># l2:</span> +<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># ee foo/imm32</span> +<span id="L20" class="LineNr"> 20 </span><span class="subxComment"># == data 0x7c10</span> +<span id="L21" class="LineNr"> 21 </span><span class="subxComment"># foo:</span> +<span id="L22" class="LineNr"> 22 </span><span class="subxComment"># 34</span> +<span id="L23" class="LineNr"> 23 </span><span class="subxComment">#</span> +<span id="L24" class="LineNr"> 24 </span><span class="subxComment"># The output is the stream of bytes without segment headers or label definitions,</span> +<span id="L25" class="LineNr"> 25 </span><span class="subxComment"># and with label references replaced with numeric values/displacements.</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 labels_baremetal labels</span> +<span id="L28" class="LineNr"> 28 </span><span class="subxComment"># # 0x7c00</span> +<span id="L29" class="LineNr"> 29 </span><span class="subxComment"># aa bb nn # some computed address</span> +<span id="L30" class="LineNr"> 30 </span><span class="subxComment"># cc dd nn nn nn nn # some computed displacement</span> +<span id="L31" class="LineNr"> 31 </span><span class="subxComment"># ee nn nn nn nn # address right after this instruction</span> +<span id="L32" class="LineNr"> 32 </span><span class="subxComment"># # 0x7c0e</span> +<span id="L33" class="LineNr"> 33 </span><span class="subxComment"># 00 00 # padding</span> +<span id="L34" class="LineNr"> 34 </span><span class="subxComment"># # 0x7c10</span> +<span id="L35" class="LineNr"> 35 </span><span class="subxComment"># 34 # data segment interleaved with code</span> +<span id="L36" class="LineNr"> 36 </span> +<span id="L37" class="LineNr"> 37 </span>== code +<span id="L38" class="LineNr"> 38 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L39" class="LineNr"> 39 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L40" class="LineNr"> 40 </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="L41" class="LineNr"> 41 </span> +<span id="L42" class="LineNr"> 42 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, convert stdin if not</span> +<span id="L43" class="LineNr"> 43 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L44" class="LineNr"> 44 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L45" class="LineNr"> 45 </span> +<span id="L46" class="LineNr"> 46 </span> <span class="subxComment"># Heap = new-segment(Heap-size)</span> +<span id="L47" class="LineNr"> 47 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L48" class="LineNr"> 48 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L49" class="LineNr"> 49 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L50" class="LineNr"> 50 </span> <span class="subxS2Comment"># . . call</span> +<span id="L51" class="LineNr"> 51 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L52" class="LineNr"> 52 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L53" class="LineNr"> 53 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L54" class="LineNr"> 54 </span> <span class="subxComment"># initialize-trace-stream(Trace-size)</span> +<span id="L55" class="LineNr"> 55 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L56" class="LineNr"> 56 </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="L57" class="LineNr"> 57 </span> <span class="subxS2Comment"># . . call</span> +<span id="L58" class="LineNr"> 58 </span> e8/call <a href='107trace.subx.html#L43'>initialize-trace-stream</a>/disp32 +<span id="L59" class="LineNr"> 59 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L60" class="LineNr"> 60 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L61" class="LineNr"> 61 </span> +<span id="L62" class="LineNr"> 62 </span> <span class="subxH1Comment"># - if argc > 1 and argv[1] == "test", then return run_tests()</span> +<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># if (argc <= 1) goto interactive</span> +<span id="L64" class="LineNr"> 64 </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="L65" class="LineNr"> 65 </span> 7e/jump-if-<= $subx-labels-main:interactive/disp8 +<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># if (!kernel-string-equal?(argv[1], "test")) goto interactive</span> +<span id="L67" class="LineNr"> 67 </span> <span class="subxS1Comment"># . eax = kernel-string-equal?(argv[1], "test")</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">"test"</span>/imm32 +<span id="L70" class="LineNr"> 70 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L71" class="LineNr"> 71 </span> <span class="subxS2Comment"># . . call</span> +<span id="L72" class="LineNr"> 72 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L73" class="LineNr"> 73 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L74" class="LineNr"> 74 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L75" class="LineNr"> 75 </span> <span class="subxS1Comment"># . if (eax == false) goto interactive</span> +<span id="L76" class="LineNr"> 76 </span> 3d/compare-eax-and 0/imm32/false +<span id="L77" class="LineNr"> 77 </span> 74/jump-if-= $subx-labels-main:interactive/disp8 +<span id="L78" class="LineNr"> 78 </span> <span class="subxComment"># run-tests()</span> +<span id="L79" class="LineNr"> 79 </span><span class="CommentedCode">#? e8/call test-emit-output-with-padding/disp32</span> +<span id="L80" class="LineNr"> 80 </span> e8/call run-tests/disp32 +<span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># syscall_exit(*Num-test-failures)</span> +<span id="L82" class="LineNr"> 82 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L83" class="LineNr"> 83 </span> eb/jump $subx-labels-main:end/disp8 +<span id="L84" class="LineNr"> 84 </span><span class="Constant">$subx-labels-main:interactive</span>: +<span id="L85" class="LineNr"> 85 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> +<span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># var labels-file/esi: (addr buffered-file) from syscall_open("labels", READ)</span> +<span id="L87" class="LineNr"> 87 </span> <span class="subxS1Comment"># . data</span> +<span id="L88" class="LineNr"> 88 </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="L89" class="LineNr"> 89 </span> <span class="subxS1Comment"># . size</span> +<span id="L90" class="LineNr"> 90 </span> 68/push 0x1000/imm32 +<span id="L91" class="LineNr"> 91 </span> <span class="subxS1Comment"># . read</span> +<span id="L92" class="LineNr"> 92 </span> 68/push 0/imm32/read +<span id="L93" class="LineNr"> 93 </span> <span class="subxS1Comment"># . write</span> +<span id="L94" class="LineNr"> 94 </span> 68/push 0/imm32/write +<span id="L95" class="LineNr"> 95 </span> <span class="subxS1Comment"># . fd = syscall_open("labels", READ)</span> +<span id="L96" class="LineNr"> 96 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='labels_baremetal.subx.html#L126'>Label-file</a></span>/imm32 +<span id="L97" class="LineNr"> 97 </span> b9/copy-to-ecx 0/imm32/read-mode +<span id="L98" class="LineNr"> 98 </span> ba/copy-to-edx 0x180/imm32/permissions +<span id="L99" class="LineNr"> 99 </span> e8/call <a href='000init.subx.html#L35'>syscall_open</a>/disp32 +<span id="L100" class="LineNr"> 100 </span> 50/push-eax +<span id="L101" class="LineNr"> 101 </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="L102" class="LineNr"> 102 </span> <span class="subxComment"># subx-labels(Stdin, label-fd, Stdout)</span> +<span id="L103" class="LineNr"> 103 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L104" class="LineNr"> 104 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L105" class="LineNr"> 105 </span> 56/push-esi +<span id="L106" class="LineNr"> 106 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L107" class="LineNr"> 107 </span> <span class="subxS2Comment"># . . call</span> +<span id="L108" class="LineNr"> 108 </span> e8/call <a href='labels_baremetal.subx.html#L131'>subx-labels</a>/disp32 +<span id="L109" class="LineNr"> 109 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L110" class="LineNr"> 110 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L111" class="LineNr"> 111 </span><span class="CommentedCode">#? # . write-stream(2/stderr, Trace-stream)</span> +<span id="L112" class="LineNr"> 112 </span><span class="CommentedCode">#? # . . push args</span> +<span id="L113" class="LineNr"> 113 </span><span class="CommentedCode">#? ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 . . . Trace-stream/disp32 # push *Trace-stream</span> +<span id="L114" class="LineNr"> 114 </span><span class="CommentedCode">#? 68/push 2/imm32/stderr</span> +<span id="L115" class="LineNr"> 115 </span><span class="CommentedCode">#? # . . call</span> +<span id="L116" class="LineNr"> 116 </span><span class="CommentedCode">#? e8/call write-stream/disp32</span> +<span id="L117" class="LineNr"> 117 </span><span class="CommentedCode">#? # . . discard args</span> +<span id="L118" class="LineNr"> 118 </span><span class="CommentedCode">#? 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp</span> +<span id="L119" class="LineNr"> 119 </span> <span class="subxComment"># syscall_exit(0)</span> +<span id="L120" class="LineNr"> 120 </span> bb/copy-to-ebx 0/imm32 +<span id="L121" class="LineNr"> 121 </span><span class="Constant">$subx-labels-main:end</span>: +<span id="L122" class="LineNr"> 122 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L123" class="LineNr"> 123 </span> +<span id="L124" class="LineNr"> 124 </span>== data <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="L126" class="LineNr"> 126 </span><span class="SpecialChar">Label-file</span>: +<span id="L127" class="LineNr"> 127 </span> 6c/l 61/a 62/b 65/e 6c/l 73/s 00/nul +<span id="L128" class="LineNr"> 128 </span> +<span id="L129" class="LineNr"> 129 </span>== code <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="L131" class="LineNr"> 131 </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="L132" class="LineNr"> 132 </span> <span class="subxComment"># pseudocode</span> +<span id="L133" class="LineNr"> 133 </span> <span class="subxComment"># var labels: (stream {label-name, address} Max-labels)</span> +<span id="L134" class="LineNr"> 134 </span> <span class="subxComment"># load-labels(labels-file, labels)</span> +<span id="L135" class="LineNr"> 135 </span> <span class="subxComment"># var in: (stream byte Input-size)</span> +<span id="L136" class="LineNr"> 136 </span> <span class="subxComment"># slurp(infile, in)</span> +<span id="L137" class="LineNr"> 137 </span> <span class="subxComment"># emit-output(in, out, labels)</span> +<span id="L138" class="LineNr"> 138 </span> <span class="subxComment">#</span> +<span id="L139" class="LineNr"> 139 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L140" class="LineNr"> 140 </span> 55/push-ebp +<span id="L141" class="LineNr"> 141 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L142" class="LineNr"> 142 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L143" class="LineNr"> 143 </span> 52/push-edx +<span id="L144" class="LineNr"> 144 </span> 56/push-esi +<span id="L145" class="LineNr"> 145 </span> <span class="subxComment"># var labels/edx: (stream {label-name, address} Max-labels)</span> +<span id="L146" class="LineNr"> 146 </span> <span class="subxComment"># (we get more rows than Max-labels advertises because row size is smaller than in survey_elf)</span> +<span id="L147" class="LineNr"> 147 </span> <span class="subxS1Comment"># . data</span> +<span id="L148" class="LineNr"> 148 </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="L149" class="LineNr"> 149 </span> <span class="subxS1Comment"># . size</span> +<span id="L150" class="LineNr"> 150 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Max-labels</span>/disp32 <span class="subxComment"># push *Max-labels</span> +<span id="L151" class="LineNr"> 151 </span> <span class="subxS1Comment"># . read</span> +<span id="L152" class="LineNr"> 152 </span> 68/push 0/imm32/read +<span id="L153" class="LineNr"> 153 </span> <span class="subxS1Comment"># . write</span> +<span id="L154" class="LineNr"> 154 </span> 68/push 0/imm32/write +<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"># load-labels(labels-file, labels)</span> +<span id="L157" class="LineNr"> 157 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L158" class="LineNr"> 158 </span> 52/push-edx +<span id="L159" class="LineNr"> 159 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L160" class="LineNr"> 160 </span> <span class="subxS2Comment"># . . call</span> +<span id="L161" class="LineNr"> 161 </span> e8/call <a href='labels_baremetal.subx.html#L211'>load-labels</a>/disp32 +<span id="L162" class="LineNr"> 162 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L163" class="LineNr"> 163 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L164" class="LineNr"> 164 </span> <span class="subxComment"># var in/esi: (stream byte Input-size)</span> +<span id="L165" class="LineNr"> 165 </span> <span class="subxS1Comment"># . data</span> +<span id="L166" class="LineNr"> 166 </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="L167" class="LineNr"> 167 </span> <span class="subxS1Comment"># . size</span> +<span id="L168" class="LineNr"> 168 </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="L169" class="LineNr"> 169 </span> <span class="subxS1Comment"># . read</span> +<span id="L170" class="LineNr"> 170 </span> 68/push 0/imm32/read +<span id="L171" class="LineNr"> 171 </span> <span class="subxS1Comment"># . write</span> +<span id="L172" class="LineNr"> 172 </span> 68/push 0/imm32/write +<span id="L173" class="LineNr"> 173 </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="L174" class="LineNr"> 174 </span> <span class="subxComment"># slurp(infile, in)</span> +<span id="L175" class="LineNr"> 175 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L176" class="LineNr"> 176 </span> 56/push-esi +<span id="L177" class="LineNr"> 177 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L178" class="LineNr"> 178 </span> <span class="subxS2Comment"># . . call</span> +<span id="L179" class="LineNr"> 179 </span> e8/call <a href='132slurp.subx.html#L8'>slurp</a>/disp32 +<span id="L180" class="LineNr"> 180 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L181" class="LineNr"> 181 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L182" class="LineNr"> 182 </span> <span class="subxComment"># emit-output(in, out, labels)</span> +<span id="L183" class="LineNr"> 183 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L184" class="LineNr"> 184 </span> 52/push-edx +<span id="L185" class="LineNr"> 185 </span> ff 6/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="L186" class="LineNr"> 186 </span> 56/push-esi +<span id="L187" class="LineNr"> 187 </span> <span class="subxS2Comment"># . . call</span> +<span id="L188" class="LineNr"> 188 </span> e8/call <a href='labels_baremetal.subx.html#L393'>emit-output</a>/disp32 +<span id="L189" class="LineNr"> 189 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L190" class="LineNr"> 190 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L191" class="LineNr"> 191 </span> <span class="subxComment"># flush(out)</span> +<span id="L192" class="LineNr"> 192 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L193" class="LineNr"> 193 </span> ff 6/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="L194" class="LineNr"> 194 </span> <span class="subxS2Comment"># . . call</span> +<span id="L195" class="LineNr"> 195 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</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> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L198" class="LineNr"> 198 </span><span class="Constant">$subx-labels:end</span>: +<span id="L199" class="LineNr"> 199 </span> <span class="subxS1Comment"># . reclaim locals</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> 0x18/imm32 <span class="subxComment"># add to esp</span> +<span id="L201" class="LineNr"> 201 </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="L202" class="LineNr"> 202 </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="L203" class="LineNr"> 203 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L204" class="LineNr"> 204 </span> 5e/pop-to-esi +<span id="L205" class="LineNr"> 205 </span> 5a/pop-to-edx +<span id="L206" class="LineNr"> 206 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L207" class="LineNr"> 207 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L208" class="LineNr"> 208 </span> 5d/pop-to-ebp +<span id="L209" class="LineNr"> 209 </span> c3/return +<span id="L210" class="LineNr"> 210 </span> +<span id="L211" class="LineNr"> 211 </span><span class="subxFunction">load-labels</span>: <span class="subxComment"># in: (addr buffered-file), labels: (stream {label-name, address} Max-labels)</span> +<span id="L212" class="LineNr"> 212 </span> <span class="subxComment"># pseudocode</span> +<span id="L213" class="LineNr"> 213 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L214" class="LineNr"> 214 </span> <span class="subxComment"># while true</span> +<span id="L215" class="LineNr"> 215 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L216" class="LineNr"> 216 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L217" class="LineNr"> 217 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L218" class="LineNr"> 218 </span> <span class="subxComment"># var word-slice/ecx: (addr slice) = next-word(line)</span> +<span id="L219" class="LineNr"> 219 </span> <span class="subxComment"># var dest/edi: (addr int) = insert-slice-or-abort(labels, word-slice, 12 bytes/row)</span> +<span id="L220" class="LineNr"> 220 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L221" class="LineNr"> 221 </span> <span class="subxComment"># var address/eax: int = parse-hex-int-from-slice(word-slice)</span> +<span id="L222" class="LineNr"> 222 </span> <span class="subxComment"># *dest = address</span> +<span id="L223" class="LineNr"> 223 </span> <span class="subxComment">#</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> 50/push-eax +<span id="L229" class="LineNr"> 229 </span> 51/push-ecx +<span id="L230" class="LineNr"> 230 </span> 52/push-edx +<span id="L231" class="LineNr"> 231 </span> 56/push-esi +<span id="L232" class="LineNr"> 232 </span> 57/push-edi +<span id="L233" class="LineNr"> 233 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L234" class="LineNr"> 234 </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="L235" class="LineNr"> 235 </span> 68/push 0x200/imm32/size +<span id="L236" class="LineNr"> 236 </span> 68/push 0/imm32/read +<span id="L237" class="LineNr"> 237 </span> 68/push 0/imm32/write +<span id="L238" class="LineNr"> 238 </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="L239" class="LineNr"> 239 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L240" class="LineNr"> 240 </span> 68/push 0/imm32/end +<span id="L241" class="LineNr"> 241 </span> 68/push 0/imm32/start +<span id="L242" class="LineNr"> 242 </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="L243" class="LineNr"> 243 </span><span class="Constant">$load-labels:loop</span>: +<span id="L244" class="LineNr"> 244 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L245" class="LineNr"> 245 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L246" class="LineNr"> 246 </span> 51/push-ecx +<span id="L247" class="LineNr"> 247 </span> <span class="subxS2Comment"># . . call</span> +<span id="L248" class="LineNr"> 248 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L249" class="LineNr"> 249 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L250" class="LineNr"> 250 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L251" class="LineNr"> 251 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L252" class="LineNr"> 252 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L253" class="LineNr"> 253 </span> 51/push-ecx +<span id="L254" class="LineNr"> 254 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L255" class="LineNr"> 255 </span> <span class="subxS2Comment"># . . call</span> +<span id="L256" class="LineNr"> 256 </span> e8/call <a href='122read-line.subx.html#L9'>read-line-buffered</a>/disp32 +<span id="L257" class="LineNr"> 257 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L258" class="LineNr"> 258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L259" class="Folded"> 259 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L292" class="LineNr"> 292 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L293" class="LineNr"> 293 </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="L294" class="LineNr"> 294 </span> 0f 84/jump-if-= $load-labels:end/disp32 +<span id="L295" class="LineNr"> 295 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L296" class="LineNr"> 296 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L297" class="LineNr"> 297 </span> 52/push-edx +<span id="L298" class="LineNr"> 298 </span> 51/push-ecx +<span id="L299" class="LineNr"> 299 </span> <span class="subxS2Comment"># . . call</span> +<span id="L300" class="LineNr"> 300 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L301" class="LineNr"> 301 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L302" class="LineNr"> 302 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L303" class="Folded"> 303 </span><span class="Folded">+-- 33 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L336" class="LineNr"> 336 </span> <span class="subxComment"># var dest/edi: (addr int) = insert-slice-or-abort(labels, word-slice, 12 bytes/row, Heap)</span> +<span id="L337" class="LineNr"> 337 </span> <span class="subxS1Comment"># . eax = insert-slice-or-abort(labels, word-slice, 12 bytes/row, Heap)</span> +<span id="L338" class="LineNr"> 338 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L339" class="LineNr"> 339 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L340" class="LineNr"> 340 </span> 68/push 0xc/imm32/row-size +<span id="L341" class="LineNr"> 341 </span> 52/push-edx +<span id="L342" class="LineNr"> 342 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L343" class="LineNr"> 343 </span> <span class="subxS2Comment"># . . call</span> +<span id="L344" class="LineNr"> 344 </span> e8/call <a href='131table.subx.html#L1474'>insert-slice-or-abort</a>/disp32 +<span id="L345" class="LineNr"> 345 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L346" class="LineNr"> 346 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L347" class="LineNr"> 347 </span> <span class="subxS1Comment"># . edi = eax</span> +<span id="L348" class="LineNr"> 348 </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="L349" class="LineNr"> 349 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L350" class="LineNr"> 350 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L351" class="LineNr"> 351 </span> 52/push-edx +<span id="L352" class="LineNr"> 352 </span> 51/push-ecx +<span id="L353" class="LineNr"> 353 </span> <span class="subxS2Comment"># . . call</span> +<span id="L354" class="LineNr"> 354 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</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> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L357" class="LineNr"> 357 </span> <span class="subxComment"># var address/esi: int = parse-hex-int-from-slice(word-slice)</span> +<span id="L358" class="LineNr"> 358 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L359" class="LineNr"> 359 </span> 52/push-edx +<span id="L360" class="LineNr"> 360 </span> <span class="subxS2Comment"># . . call</span> +<span id="L361" class="LineNr"> 361 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L362" class="LineNr"> 362 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L363" class="LineNr"> 363 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L364" class="LineNr"> 364 </span> <span class="subxS1Comment"># . esi = eax</span> +<span id="L365" class="LineNr"> 365 </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="L366" class="LineNr"> 366 </span> <span class="subxComment"># *dest = address</span> +<span id="L367" class="LineNr"> 367 </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="L368" class="LineNr"> 368 </span> <span class="subxComment">#</span> +<span id="L369" class="LineNr"> 369 </span> e9/jump $load-labels:<span class="Constant">loop</span>/disp32 +<span id="L370" class="LineNr"> 370 </span><span class="Constant">$load-labels:end</span>: +<span id="L371" class="LineNr"> 371 </span> <span class="subxS1Comment"># . reclaim locals</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> 0x214/imm32 <span class="subxComment"># add to esp</span> +<span id="L373" class="LineNr"> 373 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L374" class="LineNr"> 374 </span> 5f/pop-to-edi +<span id="L375" class="LineNr"> 375 </span> 5e/pop-to-esi +<span id="L376" class="LineNr"> 376 </span> 5a/pop-to-edx +<span id="L377" class="LineNr"> 377 </span> 59/pop-to-ecx +<span id="L378" class="LineNr"> 378 </span> 58/pop-to-eax +<span id="L379" class="LineNr"> 379 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L380" class="LineNr"> 380 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L381" class="LineNr"> 381 </span> 5d/pop-to-ebp +<span id="L382" class="LineNr"> 382 </span> c3/return +<span id="L383" class="LineNr"> 383 </span> +<span id="L384" class="LineNr"> 384 </span><span class="subxComment"># global scratch space for emit-output</span> +<span id="L385" class="LineNr"> 385 </span>== data +<span id="L386" class="LineNr"> 386 </span> +<span id="L387" class="LineNr"> 387 </span><span class="subxFunction">emit-output:datum</span>: <span class="subxComment"># slice</span> +<span id="L388" class="LineNr"> 388 </span> 0/imm32/start +<span id="L389" class="LineNr"> 389 </span> 0/imm32/end +<span id="L390" class="LineNr"> 390 </span> +<span id="L391" class="LineNr"> 391 </span>== code <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="L393" class="LineNr"> 393 </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="L394" class="LineNr"> 394 </span> <span class="subxComment"># pseudocode:</span> +<span id="L395" class="LineNr"> 395 </span> <span class="subxComment"># var address-of-next-instruction = 0x7c00</span> +<span id="L396" class="LineNr"> 396 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L397" class="LineNr"> 397 </span> <span class="subxComment"># line-loop:</span> +<span id="L398" class="LineNr"> 398 </span> <span class="subxComment"># while true</span> +<span id="L399" class="LineNr"> 399 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L400" class="LineNr"> 400 </span> <span class="subxComment"># read-line(in, line)</span> +<span id="L401" class="LineNr"> 401 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L402" class="LineNr"> 402 </span> <span class="subxComment"># address-of-next-instruction += num-bytes(line)</span> +<span id="L403" class="LineNr"> 403 </span> <span class="subxComment"># var far-jump-or-call? = far-jump-or-call?(line)</span> +<span id="L404" class="LineNr"> 404 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L405" class="LineNr"> 405 </span> <span class="subxComment"># while true</span> +<span id="L406" class="LineNr"> 406 </span> <span class="subxComment"># var word-slice = next-word(line)</span> +<span id="L407" class="LineNr"> 407 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L408" class="LineNr"> 408 </span> <span class="subxComment"># break</span> +<span id="L409" class="LineNr"> 409 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</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="L411" class="LineNr"> 411 </span> <span class="subxComment"># if label?(word-slice) # no need for label declarations anymore</span> +<span id="L412" class="LineNr"> 412 </span> <span class="subxComment"># goto line-loop # don't insert empty lines</span> +<span id="L413" class="LineNr"> 413 </span> <span class="subxComment"># if slice-equal?(word-slice, "==") # no need for segment header lines</span> +<span id="L414" class="LineNr"> 414 </span> <span class="subxComment"># word-slice = next-word(line) # skip segment name</span> +<span id="L415" class="LineNr"> 415 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L416" class="LineNr"> 416 </span> <span class="subxComment"># if !slice-empty?(word-slice)</span> +<span id="L417" class="LineNr"> 417 </span> <span class="subxComment"># new-address = parse-hex-int-from-slice(word-slice)</span> +<span id="L418" class="LineNr"> 418 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> +<span id="L419" class="LineNr"> 419 </span> <span class="subxComment"># while address-of-next-instruction < new-address</span> +<span id="L420" class="LineNr"> 420 </span> <span class="subxComment"># write-buffered("00")</span> +<span id="L421" class="LineNr"> 421 </span> <span class="subxComment"># ++address-of-next-instruction</span> +<span id="L422" class="LineNr"> 422 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> +<span id="L423" class="LineNr"> 423 </span> <span class="subxComment"># goto line-loop # don't insert empty lines</span> +<span id="L424" class="LineNr"> 424 </span> <span class="subxComment"># if length(word-slice) == 2</span> +<span id="L425" class="LineNr"> 425 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> +<span id="L426" class="LineNr"> 426 </span> <span class="subxComment"># write-buffered(out, " ")</span> +<span id="L427" class="LineNr"> 427 </span> <span class="subxComment"># continue</span> +<span id="L428" class="LineNr"> 428 </span> <span class="subxComment"># var datum: (addr slice) = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> +<span id="L429" class="LineNr"> 429 </span> <span class="subxComment"># var address: (addr int) = get-slice(labels, datum)</span> +<span id="L430" class="LineNr"> 430 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm8")</span> +<span id="L431" class="LineNr"> 431 </span> <span class="subxComment"># emit(out, *address, 1)</span> +<span id="L432" class="LineNr"> 432 </span> <span class="subxComment"># else if has-metadata?(word-slice, "imm16")</span> +<span id="L433" class="LineNr"> 433 </span> <span class="subxComment"># emit(out, *address, 2)</span> +<span id="L434" class="LineNr"> 434 </span> <span class="subxComment"># else if has-metadata?(word-slice, "imm32")</span> +<span id="L435" class="LineNr"> 435 </span> <span class="subxComment"># emit(out, *address, 4)</span> +<span id="L436" class="LineNr"> 436 </span> <span class="subxComment"># else if has-metadata?(word-slice, "disp8")</span> +<span id="L437" class="LineNr"> 437 </span> <span class="subxComment"># value = *address - address-of-next-instruction</span> +<span id="L438" class="LineNr"> 438 </span> <span class="subxComment"># if value > 127</span> +<span id="L439" class="LineNr"> 439 </span> <span class="subxComment"># abort</span> +<span id="L440" class="LineNr"> 440 </span> <span class="subxComment"># if value < -128</span> +<span id="L441" class="LineNr"> 441 </span> <span class="subxComment"># abort</span> +<span id="L442" class="LineNr"> 442 </span> <span class="subxComment"># emit(out, value, 1)</span> +<span id="L443" class="LineNr"> 443 </span> <span class="subxComment"># else if has-metadata?(word-slice, "disp32")</span> +<span id="L444" class="LineNr"> 444 </span> <span class="subxComment"># if far-jump-or-call?</span> +<span id="L445" class="LineNr"> 445 </span> <span class="subxComment"># value = *address - address-of-next-instruction</span> +<span id="L446" class="LineNr"> 446 </span> <span class="subxComment"># else</span> +<span id="L447" class="LineNr"> 447 </span> <span class="subxComment"># value = *address</span> +<span id="L448" class="LineNr"> 448 </span> <span class="subxComment"># emit(out, value, 4)</span> +<span id="L449" class="LineNr"> 449 </span> <span class="subxComment"># else</span> +<span id="L450" class="LineNr"> 450 </span> <span class="subxComment"># abort</span> +<span id="L451" class="LineNr"> 451 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L452" class="LineNr"> 452 </span> <span class="subxComment">#</span> +<span id="L453" class="LineNr"> 453 </span> <span class="subxComment"># registers:</span> +<span id="L454" class="LineNr"> 454 </span> <span class="subxComment"># line: ecx</span> +<span id="L455" class="LineNr"> 455 </span> <span class="subxComment"># word-slice: edx</span> +<span id="L456" class="LineNr"> 456 </span> <span class="subxComment"># address-of-next-instruction: ebx</span> +<span id="L457" class="LineNr"> 457 </span> <span class="subxComment"># far-jump-or-call?: edi</span> +<span id="L458" class="LineNr"> 458 </span> <span class="subxComment"># address: esi (inner loop only)</span> +<span id="L459" class="LineNr"> 459 </span> <span class="subxComment"># temporaries: eax, esi (outer loop)</span> +<span id="L460" class="LineNr"> 460 </span> <span class="subxComment">#</span> +<span id="L461" class="LineNr"> 461 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L462" class="LineNr"> 462 </span> 55/push-ebp +<span id="L463" class="LineNr"> 463 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L464" class="LineNr"> 464 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L465" class="LineNr"> 465 </span> 50/push-eax +<span id="L466" class="LineNr"> 466 </span> 51/push-ecx +<span id="L467" class="LineNr"> 467 </span> 52/push-edx +<span id="L468" class="LineNr"> 468 </span> 53/push-ebx +<span id="L469" class="LineNr"> 469 </span> 56/push-esi +<span id="L470" class="LineNr"> 470 </span> 57/push-edi +<span id="L471" class="LineNr"> 471 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L472" class="LineNr"> 472 </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="L473" class="LineNr"> 473 </span> 68/push 0x200/imm32/size +<span id="L474" class="LineNr"> 474 </span> 68/push 0/imm32/read +<span id="L475" class="LineNr"> 475 </span> 68/push 0/imm32/write +<span id="L476" class="LineNr"> 476 </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="L477" class="LineNr"> 477 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L478" class="LineNr"> 478 </span> 68/push 0/imm32/end +<span id="L479" class="LineNr"> 479 </span> 68/push 0/imm32/start +<span id="L480" class="LineNr"> 480 </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="L481" class="LineNr"> 481 </span> <span class="subxComment"># var address-of-next-instruction/ebx = 0x7c00</span> +<span id="L482" class="LineNr"> 482 </span> bb/copy-to-ebx 0x7c00/imm32 +<span id="L483" class="LineNr"> 483 </span><span class="Constant">$emit-output:line-loop</span>: +<span id="L484" class="LineNr"> 484 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L485" class="LineNr"> 485 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L486" class="LineNr"> 486 </span> 51/push-ecx +<span id="L487" class="LineNr"> 487 </span> <span class="subxS2Comment"># . . call</span> +<span id="L488" class="LineNr"> 488 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L489" class="LineNr"> 489 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L490" class="LineNr"> 490 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L491" class="LineNr"> 491 </span> <span class="subxComment"># read-line(in, line)</span> +<span id="L492" class="LineNr"> 492 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L493" class="LineNr"> 493 </span> 51/push-ecx +<span id="L494" class="LineNr"> 494 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L495" class="LineNr"> 495 </span> <span class="subxS2Comment"># . . call</span> +<span id="L496" class="LineNr"> 496 </span> e8/call <a href='122read-line.subx.html#L218'>read-line</a>/disp32 +<span id="L497" class="LineNr"> 497 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L498" class="LineNr"> 498 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L499" class="Folded"> 499 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L532" class="LineNr"> 532 </span><span class="Constant">$emit-output:check-for-end-of-input</span>: +<span id="L533" class="LineNr"> 533 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L534" class="LineNr"> 534 </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="L535" class="LineNr"> 535 </span> 0f 84/jump-if-= $emit-output:end/disp32 +<span id="L536" class="LineNr"> 536 </span> <span class="subxComment"># address-of-next-instruction += num-bytes(line)</span> +<span id="L537" class="LineNr"> 537 </span> <span class="subxS1Comment"># . eax = num-bytes(line)</span> +<span id="L538" class="LineNr"> 538 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L539" class="LineNr"> 539 </span> 51/push-ecx +<span id="L540" class="LineNr"> 540 </span> <span class="subxS2Comment"># . . call</span> +<span id="L541" class="LineNr"> 541 </span> e8/call <a href='labels_baremetal.subx.html#L2362'>num-bytes</a>/disp32 +<span id="L542" class="LineNr"> 542 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L543" class="LineNr"> 543 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L544" class="LineNr"> 544 </span> <span class="subxS1Comment"># . ebx += eax</span> +<span id="L545" class="LineNr"> 545 </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="L546" class="LineNr"> 546 </span> <span class="subxComment"># var far-jump-or-call?/edi: boolean = far-jump-or-call?(line)</span> +<span id="L547" class="LineNr"> 547 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L548" class="LineNr"> 548 </span> 51/push-ecx +<span id="L549" class="LineNr"> 549 </span> <span class="subxS2Comment"># . . call</span> +<span id="L550" class="LineNr"> 550 </span> e8/call <a href='labels_baremetal.subx.html#L2035'>far-jump-or-call?</a>/disp32 +<span id="L551" class="LineNr"> 551 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L552" class="LineNr"> 552 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L553" class="LineNr"> 553 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L554" class="LineNr"> 554 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L555" class="LineNr"> 555 </span> 51/push-ecx +<span id="L556" class="LineNr"> 556 </span> <span class="subxS2Comment"># . . call</span> +<span id="L557" class="LineNr"> 557 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L558" class="LineNr"> 558 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L559" class="LineNr"> 559 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L560" class="LineNr"> 560 </span><span class="Constant">$emit-output:word-loop</span>: +<span id="L561" class="LineNr"> 561 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L562" class="LineNr"> 562 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L563" class="LineNr"> 563 </span> 52/push-edx +<span id="L564" class="LineNr"> 564 </span> 51/push-ecx +<span id="L565" class="LineNr"> 565 </span> <span class="subxS2Comment"># . . call</span> +<span id="L566" class="LineNr"> 566 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L567" class="LineNr"> 567 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L568" class="LineNr"> 568 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L569" class="Folded"> 569 </span><span class="Folded">+-- 33 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L602" class="LineNr"> 602 </span><span class="Constant">$emit-output:check-for-end-of-line</span>: +<span id="L603" class="LineNr"> 603 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L604" class="LineNr"> 604 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L605" class="LineNr"> 605 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L606" class="LineNr"> 606 </span> 52/push-edx +<span id="L607" class="LineNr"> 607 </span> <span class="subxS2Comment"># . . call</span> +<span id="L608" class="LineNr"> 608 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L609" class="LineNr"> 609 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L610" class="LineNr"> 610 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L611" class="LineNr"> 611 </span> <span class="subxS1Comment"># . if (eax != 0) break</span> +<span id="L612" class="LineNr"> 612 </span> 3d/compare-eax-and 0/imm32/false +<span id="L613" class="LineNr"> 613 </span> 0f 85/jump-if-!= $emit-output:next-line/disp32 +<span id="L614" class="LineNr"> 614 </span><span class="Constant">$emit-output:check-for-comment</span>: +<span id="L615" class="LineNr"> 615 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L616" class="LineNr"> 616 </span> <span class="subxS1Comment"># . start/esi = word-slice->start</span> +<span id="L617" class="LineNr"> 617 </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="L618" class="LineNr"> 618 </span> <span class="subxS1Comment"># . c/eax = *start</span> +<span id="L619" class="LineNr"> 619 </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="L620" class="LineNr"> 620 </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="L621" class="LineNr"> 621 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> +<span id="L622" class="LineNr"> 622 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L623" class="LineNr"> 623 </span> 0f 84/jump-if-= $emit-output:next-line/disp32 +<span id="L624" class="LineNr"> 624 </span><span class="Constant">$emit-output:check-for-label</span>: +<span id="L625" class="LineNr"> 625 </span> <span class="subxComment"># if label?(word-slice) break</span> +<span id="L626" class="LineNr"> 626 </span> <span class="subxS1Comment"># . eax = label?(word-slice)</span> +<span id="L627" class="LineNr"> 627 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L628" class="LineNr"> 628 </span> 52/push-edx +<span id="L629" class="LineNr"> 629 </span> <span class="subxS2Comment"># . . call</span> +<span id="L630" class="LineNr"> 630 </span> e8/call <a href='128subx-words.subx.html#L535'>label?</a>/disp32 +<span id="L631" class="LineNr"> 631 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L632" class="LineNr"> 632 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L633" class="LineNr"> 633 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L634" class="LineNr"> 634 </span> 3d/compare-eax-and 0/imm32/false +<span id="L635" class="LineNr"> 635 </span> 0f 85/jump-if-!= $emit-output:line-loop/disp32 +<span id="L636" class="LineNr"> 636 </span><span class="Constant">$emit-output:check-for-segment-header</span>: +<span id="L637" class="LineNr"> 637 </span> <span class="subxComment"># if !slice-equal?(word-slice, "==") goto next check</span> +<span id="L638" class="LineNr"> 638 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> +<span id="L639" class="LineNr"> 639 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L640" class="LineNr"> 640 </span> 68/push <span class="Constant">"=="</span>/imm32 +<span id="L641" class="LineNr"> 641 </span> 52/push-edx +<span id="L642" class="LineNr"> 642 </span> <span class="subxS2Comment"># . . call</span> +<span id="L643" class="LineNr"> 643 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L644" class="LineNr"> 644 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L645" class="LineNr"> 645 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L646" class="LineNr"> 646 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L647" class="LineNr"> 647 </span> 3d/compare-eax-and 0/imm32/false +<span id="L648" class="LineNr"> 648 </span> 0f 84/jump-if-= $emit-output:2-character/disp32 +<span id="L649" class="LineNr"> 649 </span> <span class="subxComment"># skip segment name</span> +<span id="L650" class="LineNr"> 650 </span> <span class="subxS1Comment"># . next-word(line, word-slice)</span> +<span id="L651" class="LineNr"> 651 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L652" class="LineNr"> 652 </span> 52/push-edx +<span id="L653" class="LineNr"> 653 </span> 51/push-ecx +<span id="L654" class="LineNr"> 654 </span> <span class="subxS2Comment"># . . call</span> +<span id="L655" class="LineNr"> 655 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L656" class="LineNr"> 656 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L657" class="LineNr"> 657 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L658" class="LineNr"> 658 </span> <span class="subxComment"># compute segment address if it exists</span> +<span id="L659" class="LineNr"> 659 </span> <span class="subxS1Comment"># . next-word(line, word-slice)</span> +<span id="L660" class="LineNr"> 660 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L661" class="LineNr"> 661 </span> 52/push-edx +<span id="L662" class="LineNr"> 662 </span> 51/push-ecx +<span id="L663" class="LineNr"> 663 </span> <span class="subxS2Comment"># . . call</span> +<span id="L664" class="LineNr"> 664 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L665" class="LineNr"> 665 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L666" class="LineNr"> 666 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L667" class="LineNr"> 667 </span> <span class="subxS1Comment"># . if slice-empty?(word-slice) goto padding-done</span> +<span id="L668" class="LineNr"> 668 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L669" class="LineNr"> 669 </span> 52/push-edx +<span id="L670" class="LineNr"> 670 </span> <span class="subxS2Comment"># . . call</span> +<span id="L671" class="LineNr"> 671 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L672" class="LineNr"> 672 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L673" class="LineNr"> 673 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L674" class="LineNr"> 674 </span> <span class="subxS2Comment"># . .</span> +<span id="L675" class="LineNr"> 675 </span> 3d/compare-eax-and 0/imm32/false +<span id="L676" class="LineNr"> 676 </span> 0f 85/jump-if-!= $emit-output:padding-done/disp32 +<span id="L677" class="LineNr"> 677 </span> <span class="subxS1Comment"># . var new-address/eax: int = parse-hex-int-from-slice(word-slice)</span> +<span id="L678" class="LineNr"> 678 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L679" class="LineNr"> 679 </span> 52/push-edx +<span id="L680" class="LineNr"> 680 </span> <span class="subxS2Comment"># . . call</span> +<span id="L681" class="LineNr"> 681 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L682" class="LineNr"> 682 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L683" class="LineNr"> 683 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L684" class="LineNr"> 684 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> +<span id="L685" class="LineNr"> 685 </span> <span class="subxS1Comment"># . write-buffered(out, "# ")</span> +<span id="L686" class="LineNr"> 686 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L687" class="LineNr"> 687 </span> 68/push <span class="Constant">"# "</span>/imm32 +<span id="L688" class="LineNr"> 688 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L689" class="LineNr"> 689 </span> <span class="subxS2Comment"># . . call</span> +<span id="L690" class="LineNr"> 690 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L691" class="LineNr"> 691 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L692" class="LineNr"> 692 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L693" class="LineNr"> 693 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, address-of-next-instruction)</span> +<span id="L694" class="LineNr"> 694 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L695" class="LineNr"> 695 </span> 53/push-ebx +<span id="L696" class="LineNr"> 696 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L697" class="LineNr"> 697 </span> <span class="subxS2Comment"># . . call</span> +<span id="L698" class="LineNr"> 698 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L699" class="LineNr"> 699 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L700" class="LineNr"> 700 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L701" class="LineNr"> 701 </span> <span class="subxS1Comment"># . write-buffered(out, "\n")</span> +<span id="L702" class="LineNr"> 702 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L703" class="LineNr"> 703 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L704" class="LineNr"> 704 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L705" class="LineNr"> 705 </span> <span class="subxS2Comment"># . . call</span> +<span id="L706" class="LineNr"> 706 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L707" class="LineNr"> 707 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L708" class="LineNr"> 708 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L709" class="LineNr"> 709 </span><span class="Constant">$emit-output:padding-loop</span>: +<span id="L710" class="LineNr"> 710 </span> <span class="subxComment"># if (address-of-next-instruction >= new-address) goto padding-loop-done</span> +<span id="L711" class="LineNr"> 711 </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="L712" class="LineNr"> 712 </span> 73/jump-if-addr>= $emit-output:padding-loop-done/disp8 +<span id="L713" class="LineNr"> 713 </span> <span class="subxComment"># if (address-of-next-instruction % 8 == 0) write-buffered("\n")</span> +<span id="L714" class="LineNr"> 714 </span> 53/push-ebx +<span id="L715" class="LineNr"> 715 </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="L716" class="LineNr"> 716 </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="L717" class="LineNr"> 717 </span> 5b/pop-to-ebx +<span id="L718" class="LineNr"> 718 </span> 75/jump-if-!= $emit-output:padding-core/disp8 +<span id="L719" class="LineNr"> 719 </span> <span class="subxS1Comment"># . write-buffered(out, "\n")</span> +<span id="L720" class="LineNr"> 720 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L721" class="LineNr"> 721 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L722" class="LineNr"> 722 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L723" class="LineNr"> 723 </span> <span class="subxS2Comment"># . . call</span> +<span id="L724" class="LineNr"> 724 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L725" class="LineNr"> 725 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L726" class="LineNr"> 726 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L727" class="LineNr"> 727 </span><span class="Constant">$emit-output:padding-core</span>: +<span id="L728" class="LineNr"> 728 </span> <span class="subxComment"># write-buffered("00")</span> +<span id="L729" class="LineNr"> 729 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L730" class="LineNr"> 730 </span> 68/push <span class="Constant">"00 "</span>/imm32 +<span id="L731" class="LineNr"> 731 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L732" class="LineNr"> 732 </span> <span class="subxS2Comment"># . . call</span> +<span id="L733" class="LineNr"> 733 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L734" class="LineNr"> 734 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L735" class="LineNr"> 735 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L736" class="LineNr"> 736 </span> <span class="subxComment"># ++address-of-next-instruction</span> +<span id="L737" class="LineNr"> 737 </span> 43/increment-ebx +<span id="L738" class="LineNr"> 738 </span> <span class="subxComment"># loop</span> +<span id="L739" class="LineNr"> 739 </span> eb/jump $emit-output:padding-loop/disp8 +<span id="L740" class="LineNr"> 740 </span><span class="Constant">$emit-output:padding-loop-done</span>: +<span id="L741" class="LineNr"> 741 </span> <span class="subxS1Comment"># . write-buffered(out, "\n")</span> +<span id="L742" class="LineNr"> 742 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L743" class="LineNr"> 743 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L744" class="LineNr"> 744 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L745" class="LineNr"> 745 </span> <span class="subxS2Comment"># . . call</span> +<span id="L746" class="LineNr"> 746 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L747" class="LineNr"> 747 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L748" class="LineNr"> 748 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L749" class="LineNr"> 749 </span><span class="Constant">$emit-output:padding-done</span>: +<span id="L750" class="LineNr"> 750 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> +<span id="L751" class="LineNr"> 751 </span> <span class="subxS1Comment"># . write-buffered(out, "# ")</span> +<span id="L752" class="LineNr"> 752 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L753" class="LineNr"> 753 </span> 68/push <span class="Constant">"# "</span>/imm32 +<span id="L754" class="LineNr"> 754 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L755" class="LineNr"> 755 </span> <span class="subxS2Comment"># . . call</span> +<span id="L756" class="LineNr"> 756 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L757" class="LineNr"> 757 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L758" class="LineNr"> 758 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L759" class="LineNr"> 759 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, address-of-next-instruction)</span> +<span id="L760" class="LineNr"> 760 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L761" class="LineNr"> 761 </span> 53/push-ebx +<span id="L762" class="LineNr"> 762 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L763" class="LineNr"> 763 </span> <span class="subxS2Comment"># . . call</span> +<span id="L764" class="LineNr"> 764 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</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"># . write-buffered(out, "\n")</span> +<span id="L768" class="LineNr"> 768 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L769" class="LineNr"> 769 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L770" class="LineNr"> 770 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L771" class="LineNr"> 771 </span> <span class="subxS2Comment"># . . call</span> +<span id="L772" class="LineNr"> 772 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L773" class="LineNr"> 773 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L774" class="LineNr"> 774 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L775" class="LineNr"> 775 </span> <span class="subxComment">#</span> +<span id="L776" class="LineNr"> 776 </span> e9/jump $emit-output:line-loop/disp32 +<span id="L777" class="LineNr"> 777 </span><span class="Constant">$emit-output:2-character</span>: +<span id="L778" class="LineNr"> 778 </span> <span class="subxComment"># if (size(word-slice) != 2) goto next check</span> +<span id="L779" class="LineNr"> 779 </span> <span class="subxS1Comment"># . eax = size(word-slice)</span> +<span id="L780" class="LineNr"> 780 </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="L781" class="LineNr"> 781 </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="L782" class="LineNr"> 782 </span> <span class="subxS1Comment"># . if (eax != 2) goto next check</span> +<span id="L783" class="LineNr"> 783 </span> 3d/compare-eax-and 2/imm32 +<span id="L784" class="LineNr"> 784 </span> 75/jump-if-!= $emit-output:check-metadata/disp8 +<span id="L785" class="LineNr"> 785 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> +<span id="L786" class="LineNr"> 786 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L787" class="LineNr"> 787 </span> 52/push-edx +<span id="L788" class="LineNr"> 788 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L789" class="LineNr"> 789 </span> <span class="subxS2Comment"># . . call</span> +<span id="L790" class="LineNr"> 790 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L791" class="LineNr"> 791 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L792" class="LineNr"> 792 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L793" class="LineNr"> 793 </span> <span class="subxComment"># write-buffered(out, " ")</span> +<span id="L794" class="LineNr"> 794 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L795" class="LineNr"> 795 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>/imm32 +<span id="L796" class="LineNr"> 796 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L797" class="LineNr"> 797 </span> <span class="subxS2Comment"># . . call</span> +<span id="L798" class="LineNr"> 798 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</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> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L801" class="LineNr"> 801 </span> <span class="subxComment"># continue</span> +<span id="L802" class="LineNr"> 802 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L803" class="LineNr"> 803 </span><span class="Constant">$emit-output:check-metadata</span>: +<span id="L804" class="LineNr"> 804 </span> <span class="subxH1Comment"># - if we get here, 'word-slice' must be a label to be looked up</span> +<span id="L805" class="LineNr"> 805 </span> <span class="subxComment"># datum = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> +<span id="L806" class="LineNr"> 806 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L807" class="LineNr"> 807 </span> 68/push <a href='labels_baremetal.subx.html#L393'>emit-output</a>:datum/imm32 +<span id="L808" class="LineNr"> 808 </span> 68/push 0x2f/imm32/slash +<span id="L809" class="LineNr"> 809 </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="L810" class="LineNr"> 810 </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="L811" class="LineNr"> 811 </span> <span class="subxS2Comment"># . . call</span> +<span id="L812" class="LineNr"> 812 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</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> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L815" class="Folded"> 815 </span><span class="Folded">+-- 33 lines: #? # dump datum -------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L848" class="LineNr"> 848 </span> <span class="subxComment"># address/esi: (addr int) = get-slice(labels, datum, row-size=12, "label table")</span> +<span id="L849" class="LineNr"> 849 </span> <span class="subxS1Comment"># . eax = get-slice(labels, datum, row-size=24, "label table")</span> +<span id="L850" class="LineNr"> 850 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L851" class="LineNr"> 851 </span> 68/push <span class="Constant">"label table"</span>/imm32 +<span id="L852" class="LineNr"> 852 </span> 68/push 0xc/imm32/row-size +<span id="L853" class="LineNr"> 853 </span> 68/push <a href='labels_baremetal.subx.html#L393'>emit-output</a>:datum/imm32 +<span id="L854" class="LineNr"> 854 </span> ff 6/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="L855" class="LineNr"> 855 </span> <span class="subxS2Comment"># . . call</span> +<span id="L856" class="LineNr"> 856 </span> e8/call <a href='131table.subx.html#L210'>get-slice</a>/disp32 +<span id="L857" class="LineNr"> 857 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L858" class="LineNr"> 858 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L859" class="LineNr"> 859 </span> <span class="subxS1Comment"># . esi = eax</span> +<span id="L860" class="LineNr"> 860 </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="L861" class="LineNr"> 861 </span><span class="Constant">$emit-output:check-imm8</span>: +<span id="L862" class="LineNr"> 862 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "imm8")) goto next check</span> +<span id="L863" class="LineNr"> 863 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm8")</span> +<span id="L864" class="LineNr"> 864 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L865" class="LineNr"> 865 </span> 68/push <span class="Constant">"imm8"</span>/imm32 +<span id="L866" class="LineNr"> 866 </span> 52/push-edx +<span id="L867" class="LineNr"> 867 </span> <span class="subxS2Comment"># . . call</span> +<span id="L868" class="LineNr"> 868 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L869" class="LineNr"> 869 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L870" class="LineNr"> 870 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L871" class="LineNr"> 871 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> +<span id="L872" class="LineNr"> 872 </span> 3d/compare-eax-and 0/imm32/false +<span id="L873" class="LineNr"> 873 </span> 74/jump-if-= $emit-output:check-imm16/disp8 +<span id="L874" class="LineNr"> 874 </span><span class="Constant">$emit-output:emit-imm8</span>: +<span id="L875" class="LineNr"> 875 </span> <span class="subxComment"># emit-hex(out, *address, 1)</span> +<span id="L876" class="LineNr"> 876 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L877" class="LineNr"> 877 </span> 68/push 1/imm32 +<span id="L878" class="LineNr"> 878 </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="L879" class="LineNr"> 879 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L880" class="LineNr"> 880 </span> <span class="subxS2Comment"># . . call</span> +<span id="L881" class="LineNr"> 881 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L882" class="LineNr"> 882 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L883" class="LineNr"> 883 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L884" class="LineNr"> 884 </span> <span class="subxComment"># continue</span> +<span id="L885" class="LineNr"> 885 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L886" class="LineNr"> 886 </span><span class="Constant">$emit-output:check-imm16</span>: +<span id="L887" class="LineNr"> 887 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "imm16")) goto next check</span> +<span id="L888" class="LineNr"> 888 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm16")</span> +<span id="L889" class="LineNr"> 889 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L890" class="LineNr"> 890 </span> 68/push <span class="Constant">"imm16"</span>/imm32 +<span id="L891" class="LineNr"> 891 </span> 52/push-edx +<span id="L892" class="LineNr"> 892 </span> <span class="subxS2Comment"># . . call</span> +<span id="L893" class="LineNr"> 893 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L894" class="LineNr"> 894 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L895" class="LineNr"> 895 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L896" class="LineNr"> 896 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L897" class="LineNr"> 897 </span> 3d/compare-eax-and 0/imm32/false +<span id="L898" class="LineNr"> 898 </span> 74/jump-if-= $emit-output:check-imm32/disp8 +<span id="L899" class="Folded"> 899 </span><span class="Folded">+-- 33 lines: #? # dump *address ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L932" class="LineNr"> 932 </span><span class="Constant">$emit-output:emit-imm16</span>: +<span id="L933" class="LineNr"> 933 </span> <span class="subxComment"># emit-hex(out, *address, 2)</span> +<span id="L934" class="LineNr"> 934 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L935" class="LineNr"> 935 </span> 68/push 2/imm32 +<span id="L936" class="LineNr"> 936 </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="L937" class="LineNr"> 937 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L938" class="LineNr"> 938 </span> <span class="subxS2Comment"># . . call</span> +<span id="L939" class="LineNr"> 939 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L940" class="LineNr"> 940 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L941" class="LineNr"> 941 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L942" class="LineNr"> 942 </span> <span class="subxComment"># TODO: ensure that the higher 2 bytes are zero</span> +<span id="L943" class="LineNr"> 943 </span> <span class="subxComment"># continue</span> +<span id="L944" class="LineNr"> 944 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L945" class="LineNr"> 945 </span><span class="Constant">$emit-output:check-imm32</span>: +<span id="L946" class="LineNr"> 946 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "imm32")) goto next check</span> +<span id="L947" class="LineNr"> 947 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm32")</span> +<span id="L948" class="LineNr"> 948 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L949" class="LineNr"> 949 </span> 68/push <span class="Constant">"imm32"</span>/imm32 +<span id="L950" class="LineNr"> 950 </span> 52/push-edx +<span id="L951" class="LineNr"> 951 </span> <span class="subxS2Comment"># . . call</span> +<span id="L952" class="LineNr"> 952 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L953" class="LineNr"> 953 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L954" class="LineNr"> 954 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L955" class="LineNr"> 955 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L956" class="LineNr"> 956 </span> 3d/compare-eax-and 0/imm32/false +<span id="L957" class="LineNr"> 957 </span> 74/jump-if-= $emit-output:check-disp8/disp8 +<span id="L958" class="Folded"> 958 </span><span class="Folded">+-- 33 lines: #? # dump *address ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L991" class="LineNr"> 991 </span><span class="Constant">$emit-output:emit-imm32</span>: +<span id="L992" class="LineNr"> 992 </span> <span class="subxComment"># emit-hex(out, *address, 4)</span> +<span id="L993" class="LineNr"> 993 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L994" class="LineNr"> 994 </span> 68/push 4/imm32 +<span id="L995" class="LineNr"> 995 </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="L996" class="LineNr"> 996 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L997" class="LineNr"> 997 </span> <span class="subxS2Comment"># . . call</span> +<span id="L998" class="LineNr"> 998 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L999" class="LineNr"> 999 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1000" class="LineNr">1000 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1001" class="LineNr">1001 </span> <span class="subxComment"># continue</span> +<span id="L1002" class="LineNr">1002 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L1003" class="LineNr">1003 </span><span class="Constant">$emit-output:check-disp8</span>: +<span id="L1004" class="LineNr">1004 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp8")) goto next check</span> +<span id="L1005" class="LineNr">1005 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp8")</span> +<span id="L1006" class="LineNr">1006 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1007" class="LineNr">1007 </span> 68/push <span class="Constant">"disp8"</span>/imm32 +<span id="L1008" class="LineNr">1008 </span> 52/push-edx +<span id="L1009" class="LineNr">1009 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1010" class="LineNr">1010 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L1011" class="LineNr">1011 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1012" class="LineNr">1012 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1013" class="LineNr">1013 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L1014" class="LineNr">1014 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1015" class="LineNr">1015 </span> 74/jump-if-= $emit-output:check-disp16/disp8 +<span id="L1016" class="LineNr">1016 </span><span class="Constant">$emit-output:emit-disp8</span>: +<span id="L1017" class="LineNr">1017 </span> <span class="subxComment"># var value/eax: int = *address - address-of-next-instruction</span> <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="L1020" class="LineNr">1020 </span> <span class="subxComment"># if (value > 127) abort</span> +<span id="L1021" class="LineNr">1021 </span> 3d/compare-eax-and 0x7f/imm32 +<span id="L1022" class="LineNr">1022 </span> 0f 8f/jump-if-> $emit-output:error-disp8-too-large/disp32 +<span id="L1023" class="LineNr">1023 </span> <span class="subxComment"># if (value < -128) abort</span> +<span id="L1024" class="LineNr">1024 </span> 3d/compare-eax-and -0x80/imm32 +<span id="L1025" class="LineNr">1025 </span> 0f 8c/jump-if-< $emit-output:error-disp8-too-large/disp32 +<span id="L1026" class="LineNr">1026 </span> <span class="subxComment"># emit-hex(out, value, 1)</span> +<span id="L1027" class="LineNr">1027 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1028" class="LineNr">1028 </span> 68/push 1/imm32 +<span id="L1029" class="LineNr">1029 </span> 50/push-eax +<span id="L1030" class="LineNr">1030 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1031" class="LineNr">1031 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1032" class="LineNr">1032 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L1033" class="LineNr">1033 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1034" class="LineNr">1034 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1035" class="LineNr">1035 </span> <span class="subxComment"># continue</span> +<span id="L1036" class="LineNr">1036 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L1037" class="LineNr">1037 </span><span class="Constant">$emit-output:check-disp16</span>: +<span id="L1038" class="LineNr">1038 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp16")) goto next check</span> +<span id="L1039" class="LineNr">1039 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp16")</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">"disp16"</span>/imm32 +<span id="L1042" class="LineNr">1042 </span> 52/push-edx +<span id="L1043" class="LineNr">1043 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1044" class="LineNr">1044 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</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="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L1048" class="LineNr">1048 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1049" class="LineNr">1049 </span> 74/jump-if-= $emit-output:check-disp32/disp8 +<span id="L1050" class="LineNr">1050 </span><span class="Constant">$emit-output:emit-disp16</span>: +<span id="L1051" class="LineNr">1051 </span> <span class="subxComment"># emit-hex(out, *address - address-of-next-instruction, 2)</span> +<span id="L1052" class="LineNr">1052 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1053" class="LineNr">1053 </span> 68/push 2/imm32 +<span id="L1054" class="LineNr">1054 </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="L1055" class="LineNr">1055 </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="L1056" class="LineNr">1056 </span> 50/push-eax +<span id="L1057" class="LineNr">1057 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1058" class="LineNr">1058 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1059" class="LineNr">1059 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</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="subxComment"># continue</span> +<span id="L1063" class="LineNr">1063 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L1064" class="LineNr">1064 </span><span class="Constant">$emit-output:check-disp32</span>: +<span id="L1065" class="LineNr">1065 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp32")) abort</span> +<span id="L1066" class="LineNr">1066 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp32")</span> +<span id="L1067" class="LineNr">1067 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1068" class="LineNr">1068 </span> 68/push <span class="Constant">"disp32"</span>/imm32 +<span id="L1069" class="LineNr">1069 </span> 52/push-edx +<span id="L1070" class="LineNr">1070 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1071" class="LineNr">1071 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L1072" class="LineNr">1072 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1073" class="LineNr">1073 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1074" class="LineNr">1074 </span> <span class="subxS1Comment"># . if (eax == false) abort</span> +<span id="L1075" class="LineNr">1075 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1076" class="LineNr">1076 </span> 0f 84/jump-if-= $emit-output:abort/disp32 +<span id="L1077" class="LineNr">1077 </span><span class="Constant">$emit-output:emit-disp32</span>: +<span id="L1078" class="LineNr">1078 </span> <span class="subxComment"># var value/eax = *address</span> +<span id="L1079" class="LineNr">1079 </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="L1080" class="LineNr">1080 </span> <span class="subxComment"># if (far-jump-or-call?) value -= address-of-next-instruction</span> +<span id="L1081" class="LineNr">1081 </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="L1082" class="LineNr">1082 </span> 74/jump-if-= $emit-output:really-emit-disp32/disp8 +<span id="L1083" class="LineNr">1083 </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="L1084" class="LineNr">1084 </span><span class="Constant">$emit-output:really-emit-disp32</span>: +<span id="L1085" class="LineNr">1085 </span> <span class="subxComment"># emit-hex(out, value, 4)</span> +<span id="L1086" class="LineNr">1086 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1087" class="LineNr">1087 </span> 68/push 4/imm32 +<span id="L1088" class="LineNr">1088 </span> 50/push-eax +<span id="L1089" class="LineNr">1089 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1090" class="LineNr">1090 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1091" class="LineNr">1091 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</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> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1094" class="LineNr">1094 </span> <span class="subxComment"># continue</span> +<span id="L1095" class="LineNr">1095 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L1096" class="LineNr">1096 </span><span class="Constant">$emit-output:next-line</span>: +<span id="L1097" class="LineNr">1097 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L1098" class="LineNr">1098 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1099" class="LineNr">1099 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L1100" class="LineNr">1100 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1101" class="LineNr">1101 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1102" class="LineNr">1102 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</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> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1105" class="LineNr">1105 </span> <span class="subxComment"># loop</span> +<span id="L1106" class="LineNr">1106 </span> e9/jump $emit-output:line-loop/disp32 +<span id="L1107" class="LineNr">1107 </span><span class="Constant">$emit-output:end</span>: +<span id="L1108" class="LineNr">1108 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L1109" class="LineNr">1109 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x214/imm32 <span class="subxComment"># add to esp</span> +<span id="L1110" class="LineNr">1110 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1111" class="LineNr">1111 </span> 5f/pop-to-edi +<span id="L1112" class="LineNr">1112 </span> 5e/pop-to-esi +<span id="L1113" class="LineNr">1113 </span> 5b/pop-to-ebx +<span id="L1114" class="LineNr">1114 </span> 5a/pop-to-edx +<span id="L1115" class="LineNr">1115 </span> 59/pop-to-ecx +<span id="L1116" class="LineNr">1116 </span> 58/pop-to-eax +<span id="L1117" class="LineNr">1117 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1118" class="LineNr">1118 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1119" class="LineNr">1119 </span> 5d/pop-to-ebp +<span id="L1120" class="LineNr">1120 </span> c3/return +<span id="L1121" class="LineNr">1121 </span> +<span id="L1122" class="LineNr">1122 </span><span class="Constant">$emit-output:abort</span>: +<span id="L1123" class="LineNr">1123 </span> <span class="subxComment"># print(stderr, "missing metadata in " word-slice)</span> +<span id="L1124" class="LineNr">1124 </span> <span class="subxS1Comment"># . _write(2/stderr, "missing metadata in word ")</span> +<span id="L1125" class="LineNr">1125 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1126" class="LineNr">1126 </span> 68/push <span class="Constant">"emit-output: missing metadata in "</span>/imm32 +<span id="L1127" class="LineNr">1127 </span> 68/push 2/imm32/stderr +<span id="L1128" class="LineNr">1128 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1129" class="LineNr">1129 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L1130" class="LineNr">1130 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1131" class="LineNr">1131 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1132" class="LineNr">1132 </span> <span class="subxS1Comment"># . write-slice-buffered(Stderr, word-slice)</span> +<span id="L1133" class="LineNr">1133 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1134" class="LineNr">1134 </span> 52/push-edx +<span id="L1135" class="LineNr">1135 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1136" class="LineNr">1136 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1137" class="LineNr">1137 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L1138" class="LineNr">1138 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1139" class="LineNr">1139 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1140" class="LineNr">1140 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1141" class="LineNr">1141 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1142" class="LineNr">1142 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1143" class="LineNr">1143 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1144" class="LineNr">1144 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1145" class="LineNr">1145 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1146" class="LineNr">1146 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1147" class="LineNr">1147 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> +<span id="L1148" class="LineNr">1148 </span> bb/copy-to-ebx 1/imm32 +<span id="L1149" class="LineNr">1149 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L1150" class="LineNr">1150 </span> <span class="subxComment"># never gets here</span> +<span id="L1151" class="LineNr">1151 </span> +<span id="L1152" class="LineNr">1152 </span><span class="Constant">$emit-output:error-disp8-too-large</span>: +<span id="L1153" class="LineNr">1153 </span> <span class="subxComment"># print(stderr, word-slice ": label too far below for /disp8; use /disp32")</span> +<span id="L1154" class="LineNr">1154 </span> <span class="subxS1Comment"># . write-slice-buffered(Stderr, 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> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1158" class="LineNr">1158 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1159" class="LineNr">1159 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L1160" class="LineNr">1160 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1161" class="LineNr">1161 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1162" class="LineNr">1162 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1163" class="LineNr">1163 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1164" class="LineNr">1164 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1165" class="LineNr">1165 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1166" class="LineNr">1166 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1167" class="LineNr">1167 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1168" class="LineNr">1168 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1169" class="LineNr">1169 </span> <span class="subxS1Comment"># . _write(2/stderr, msg)</span> +<span id="L1170" class="LineNr">1170 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1171" class="LineNr">1171 </span> 68/push <span class="Constant">": label too far below for /disp8; use /disp32"</span>/imm32 +<span id="L1172" class="LineNr">1172 </span> 68/push 2/imm32/stderr +<span id="L1173" class="LineNr">1173 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1174" class="LineNr">1174 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L1175" class="LineNr">1175 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1176" class="LineNr">1176 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1177" class="LineNr">1177 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> +<span id="L1178" class="LineNr">1178 </span> bb/copy-to-ebx 1/imm32 +<span id="L1179" class="LineNr">1179 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L1180" class="LineNr">1180 </span> <span class="subxComment"># never gets here</span> +<span id="L1181" class="LineNr">1181 </span> +<span id="L1182" class="LineNr">1182 </span><span class="Constant">$emit-output:error-disp8-too-small</span>: +<span id="L1183" class="LineNr">1183 </span> <span class="subxComment"># print(stderr, word-slice ": label too far above for /disp8; use /disp32")</span> +<span id="L1184" class="LineNr">1184 </span> <span class="subxS1Comment"># . write-slice-buffered(Stderr, word-slice)</span> +<span id="L1185" class="LineNr">1185 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1186" class="LineNr">1186 </span> 52/push-edx +<span id="L1187" class="LineNr">1187 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1188" class="LineNr">1188 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1189" class="LineNr">1189 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L1190" class="LineNr">1190 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1191" class="LineNr">1191 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1192" class="LineNr">1192 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1193" class="LineNr">1193 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1194" class="LineNr">1194 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1195" class="LineNr">1195 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1196" class="LineNr">1196 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1197" class="LineNr">1197 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1198" class="LineNr">1198 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1199" class="LineNr">1199 </span> <span class="subxS1Comment"># . _write(2/stderr, msg)</span> <span id="L1200" class="LineNr">1200 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1201" class="LineNr">1201 </span> 68/push <span class="Constant">"== 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="L1201" class="LineNr">1201 </span> 68/push <span class="Constant">": label too far above for /disp8; use /disp32"</span>/imm32 +<span id="L1202" class="LineNr">1202 </span> 68/push 2/imm32/stderr <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="L1204" class="LineNr">1204 </span> e8/call <a href='101_write.subx.html#L12'>_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="L1207" class="LineNr">1207 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> +<span id="L1208" class="LineNr">1208 </span> bb/copy-to-ebx 1/imm32 +<span id="L1209" class="LineNr">1209 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L1210" class="LineNr">1210 </span> <span class="subxComment"># never gets here</span> +<span id="L1211" class="LineNr">1211 </span> +<span id="L1212" class="LineNr">1212 </span><span class="subxTest">test-emit-output-non-far-control-flow</span>: +<span id="L1213" class="LineNr">1213 </span> <span class="subxComment"># labels turn into absolute addresses if opcodes are not far jumps or calls</span> +<span id="L1214" class="LineNr">1214 </span> <span class="subxComment">#</span> +<span id="L1215" class="LineNr">1215 </span> <span class="subxComment"># input:</span> +<span id="L1216" class="LineNr">1216 </span> <span class="subxComment"># in:</span> +<span id="L1217" class="LineNr">1217 </span> <span class="subxComment"># == code</span> +<span id="L1218" class="LineNr">1218 </span> <span class="subxComment"># ab cd ef gh</span> +<span id="L1219" class="LineNr">1219 </span> <span class="subxComment"># ij x/disp32</span> +<span id="L1220" class="LineNr">1220 </span> <span class="subxComment"># == data</span> +<span id="L1221" class="LineNr">1221 </span> <span class="subxComment"># 00</span> +<span id="L1222" class="LineNr">1222 </span> <span class="subxComment"># 34</span> +<span id="L1223" class="LineNr">1223 </span> <span class="subxComment"># labels:</span> +<span id="L1224" class="LineNr">1224 </span> <span class="subxComment"># - 'x': 0x11223344</span> +<span id="L1225" class="LineNr">1225 </span> <span class="subxComment">#</span> +<span id="L1226" class="LineNr">1226 </span> <span class="subxComment"># output:</span> +<span id="L1227" class="LineNr">1227 </span> <span class="subxComment"># ab cd ef gh</span> +<span id="L1228" class="LineNr">1228 </span> <span class="subxComment"># ij 44 33 22 11</span> +<span id="L1229" class="LineNr">1229 </span> <span class="subxComment"># 00</span> +<span id="L1230" class="LineNr">1230 </span> <span class="subxComment"># 34</span> +<span id="L1231" class="LineNr">1231 </span> <span class="subxComment">#</span> +<span id="L1232" class="LineNr">1232 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1233" class="LineNr">1233 </span> 55/push-ebp +<span id="L1234" class="LineNr">1234 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1235" class="LineNr">1235 </span> <span class="subxComment"># setup</span> +<span id="L1236" class="LineNr">1236 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1237" class="LineNr">1237 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1238" class="LineNr">1238 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1239" class="LineNr">1239 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1240" class="LineNr">1240 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</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> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1243" class="LineNr">1243 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1244" class="LineNr">1244 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1245" class="LineNr">1245 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1246" class="LineNr">1246 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1247" class="LineNr">1247 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1248" class="LineNr">1248 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1249" class="LineNr">1249 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1250" class="LineNr">1250 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1251" class="LineNr">1251 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1252" class="LineNr">1252 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1253" class="LineNr">1253 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1254" class="LineNr">1254 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1255" class="LineNr">1255 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1256" class="LineNr">1256 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1257" class="LineNr">1257 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L1258" class="LineNr">1258 </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="L1259" class="LineNr">1259 </span> 68/push 0xc0/imm32/size +<span id="L1260" class="LineNr">1260 </span> 68/push 0/imm32/read +<span id="L1261" class="LineNr">1261 </span> 68/push 0/imm32/write +<span id="L1262" class="LineNr">1262 </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="L1263" class="LineNr">1263 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L1264" class="LineNr">1264 </span> 68/push 0/imm32 +<span id="L1265" class="LineNr">1265 </span> 68/push 0/imm32 +<span id="L1266" class="LineNr">1266 </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="L1267" class="LineNr">1267 </span> <span class="subxComment"># initialize input</span> +<span id="L1268" class="LineNr">1268 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L1269" class="LineNr">1269 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1270" class="LineNr">1270 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L1271" class="LineNr">1271 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1272" class="LineNr">1272 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1273" class="LineNr">1273 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1274" class="LineNr">1274 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1275" class="LineNr">1275 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1276" class="LineNr">1276 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef gh\n")</span> +<span id="L1277" class="LineNr">1277 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1278" class="LineNr">1278 </span> 68/push <span class="Constant">"ab cd ef gh\n"</span>/imm32 +<span id="L1279" class="LineNr">1279 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1280" class="LineNr">1280 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1281" class="LineNr">1281 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1282" class="LineNr">1282 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1283" class="LineNr">1283 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1284" class="LineNr">1284 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ij x/disp32\n")</span> +<span id="L1285" class="LineNr">1285 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1286" class="LineNr">1286 </span> 68/push <span class="Constant">"ij x/disp32\n"</span>/imm32 +<span id="L1287" class="LineNr">1287 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1288" class="LineNr">1288 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1289" class="LineNr">1289 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1290" class="LineNr">1290 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1291" class="LineNr">1291 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1292" class="LineNr">1292 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data\n")</span> +<span id="L1293" class="LineNr">1293 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1294" class="LineNr">1294 </span> 68/push <span class="Constant">"== data\n"</span>/imm32 +<span id="L1295" class="LineNr">1295 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1296" class="LineNr">1296 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1297" class="LineNr">1297 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1298" class="LineNr">1298 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1299" class="LineNr">1299 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1300" class="LineNr">1300 </span> <span class="subxS1Comment"># . write(_test-input-stream, "00\n")</span> +<span id="L1301" class="LineNr">1301 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1302" class="LineNr">1302 </span> 68/push <span class="Constant">"00\n"</span>/imm32 +<span id="L1303" class="LineNr">1303 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1304" class="LineNr">1304 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1305" class="LineNr">1305 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1306" class="LineNr">1306 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1307" class="LineNr">1307 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1308" class="LineNr">1308 </span> <span class="subxS1Comment"># . write(_test-input-stream, "34\n")</span> +<span id="L1309" class="LineNr">1309 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1310" class="LineNr">1310 </span> 68/push <span class="Constant">"34\n"</span>/imm32 +<span id="L1311" class="LineNr">1311 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1312" class="LineNr">1312 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1313" class="LineNr">1313 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1314" class="LineNr">1314 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1315" class="LineNr">1315 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1316" class="LineNr">1316 </span> <span class="subxS1Comment"># . stream-add2(labels, "x", 0x11223344)</span> +<span id="L1317" class="LineNr">1317 </span> 68/push 0x11223344/imm32/label-address +<span id="L1318" class="LineNr">1318 </span> <span class="subxS2Comment"># . . push handle for "x"</span> +<span id="L1319" class="LineNr">1319 </span> 53/push-ebx +<span id="L1320" class="LineNr">1320 </span> 68/push <span class="Constant">"x"</span>/imm32 +<span id="L1321" class="LineNr">1321 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1322" class="LineNr">1322 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1323" class="LineNr">1323 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1324" class="LineNr">1324 </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="L1325" class="LineNr">1325 </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="L1326" class="LineNr">1326 </span> <span class="subxS2Comment"># . . push labels</span> +<span id="L1327" class="LineNr">1327 </span> 52/push-edx <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="L1329" class="LineNr">1329 </span> e8/call <a href='labels_baremetal.subx.html#L2169'>stream-add2</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="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> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1332" class="LineNr">1332 </span> <span class="subxComment"># component under test</span> +<span id="L1333" class="LineNr">1333 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> +<span id="L1334" class="LineNr">1334 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1335" class="LineNr">1335 </span> 52/push-edx +<span id="L1336" class="LineNr">1336 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1337" class="LineNr">1337 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1338" class="LineNr">1338 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1339" class="LineNr">1339 </span> e8/call <a href='labels_baremetal.subx.html#L393'>emit-output</a>/disp32 +<span id="L1340" class="LineNr">1340 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1341" class="LineNr">1341 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1342" class="LineNr">1342 </span> <span class="subxComment"># checks</span> +<span id="L1343" class="LineNr">1343 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1344" class="LineNr">1344 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1345" class="LineNr">1345 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</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="L1347" class="LineNr">1347 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</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="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> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1350" class="Folded">1350 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1383" class="LineNr">1383 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</span> +<span id="L1384" class="LineNr">1384 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1385" class="LineNr">1385 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1212'>test-emit-output-non-far-control-flow</a>/0"</span>/imm32 +<span id="L1386" class="LineNr">1386 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 +<span id="L1387" class="LineNr">1387 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1388" class="LineNr">1388 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1389" class="LineNr">1389 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1390" class="LineNr">1390 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1391" class="LineNr">1391 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1392" class="LineNr">1392 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ef gh ", msg)</span> +<span id="L1393" class="LineNr">1393 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1394" class="LineNr">1394 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1212'>test-emit-output-non-far-control-flow</a>/1"</span>/imm32 +<span id="L1395" class="LineNr">1395 </span> 68/push <span class="Constant">"ab cd ef gh "</span>/imm32 +<span id="L1396" class="LineNr">1396 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1397" class="LineNr">1397 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1398" class="LineNr">1398 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1399" class="LineNr">1399 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1400" class="LineNr">1400 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1401" class="LineNr">1401 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ij 44 33 22 11 ", msg)</span> +<span id="L1402" class="LineNr">1402 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1403" class="LineNr">1403 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1212'>test-emit-output-non-far-control-flow</a>/2"</span>/imm32 +<span id="L1404" class="LineNr">1404 </span> 68/push <span class="Constant">"ij 44 33 22 11 "</span>/imm32 +<span id="L1405" class="LineNr">1405 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1406" class="LineNr">1406 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1407" class="LineNr">1407 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1408" class="LineNr">1408 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1409" class="LineNr">1409 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1410" class="LineNr">1410 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c09", msg)</span> +<span id="L1411" class="LineNr">1411 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1412" class="LineNr">1412 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1212'>test-emit-output-non-far-control-flow</a>/3"</span>/imm32 +<span id="L1413" class="LineNr">1413 </span> 68/push <span class="Constant">"# 0x00007c09"</span>/imm32 +<span id="L1414" class="LineNr">1414 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1415" class="LineNr">1415 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1416" class="LineNr">1416 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1417" class="LineNr">1417 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1418" class="LineNr">1418 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1419" class="LineNr">1419 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "00 ", msg)</span> +<span id="L1420" class="LineNr">1420 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1421" class="LineNr">1421 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1212'>test-emit-output-non-far-control-flow</a>/3"</span>/imm32 +<span id="L1422" class="LineNr">1422 </span> 68/push <span class="Constant">"00 "</span>/imm32 +<span id="L1423" class="LineNr">1423 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1424" class="LineNr">1424 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1425" class="LineNr">1425 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1426" class="LineNr">1426 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1427" class="LineNr">1427 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1428" class="LineNr">1428 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "34 ", msg)</span> +<span id="L1429" class="LineNr">1429 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1430" class="LineNr">1430 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1212'>test-emit-output-non-far-control-flow</a>/4"</span>/imm32 +<span id="L1431" class="LineNr">1431 </span> 68/push <span class="Constant">"34 "</span>/imm32 +<span id="L1432" class="LineNr">1432 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1433" class="LineNr">1433 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1434" class="LineNr">1434 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1435" class="LineNr">1435 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1436" class="LineNr">1436 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1437" class="LineNr">1437 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1438" class="LineNr">1438 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1439" class="LineNr">1439 </span> 5d/pop-to-ebp +<span id="L1440" class="LineNr">1440 </span> c3/return +<span id="L1441" class="LineNr">1441 </span> +<span id="L1442" class="LineNr">1442 </span><span class="subxTest">test-emit-output-with-padding</span>: +<span id="L1443" class="LineNr">1443 </span> <span class="subxComment"># labels turn into absolute addresses if opcodes are not far jumps or calls</span> +<span id="L1444" class="LineNr">1444 </span> <span class="subxComment">#</span> +<span id="L1445" class="LineNr">1445 </span> <span class="subxComment"># input:</span> +<span id="L1446" class="LineNr">1446 </span> <span class="subxComment"># in:</span> +<span id="L1447" class="LineNr">1447 </span> <span class="subxComment"># == code</span> +<span id="L1448" class="LineNr">1448 </span> <span class="subxComment"># ab cd ef gh</span> +<span id="L1449" class="LineNr">1449 </span> <span class="subxComment"># == data 0x7c10</span> +<span id="L1450" class="LineNr">1450 </span> <span class="subxComment"># 34</span> +<span id="L1451" class="LineNr">1451 </span> <span class="subxComment">#</span> +<span id="L1452" class="LineNr">1452 </span> <span class="subxComment"># output:</span> +<span id="L1453" class="LineNr">1453 </span> <span class="subxComment"># ab cd ef gh</span> +<span id="L1454" class="LineNr">1454 </span> <span class="subxComment"># # 0x7c04</span> +<span id="L1455" class="LineNr">1455 </span> <span class="subxComment"># 00 00 00 00</span> +<span id="L1456" class="LineNr">1456 </span> <span class="subxComment"># 00 00 00 00 00 00 00 00</span> +<span id="L1457" class="LineNr">1457 </span> <span class="subxComment"># # 0x7c10</span> +<span id="L1458" class="LineNr">1458 </span> <span class="subxComment"># 34</span> +<span id="L1459" class="LineNr">1459 </span> <span class="subxComment">#</span> +<span id="L1460" class="LineNr">1460 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1461" class="LineNr">1461 </span> 55/push-ebp +<span id="L1462" class="LineNr">1462 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1463" class="LineNr">1463 </span> <span class="subxComment"># setup</span> +<span id="L1464" class="LineNr">1464 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1465" class="LineNr">1465 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1466" class="LineNr">1466 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1467" class="LineNr">1467 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1468" class="LineNr">1468 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1469" class="LineNr">1469 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1470" class="LineNr">1470 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1471" class="LineNr">1471 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1472" class="LineNr">1472 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1473" class="LineNr">1473 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1474" class="LineNr">1474 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1475" class="LineNr">1475 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1476" class="LineNr">1476 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1477" class="LineNr">1477 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1478" class="LineNr">1478 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1479" class="LineNr">1479 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1480" class="LineNr">1480 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1481" class="LineNr">1481 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1482" class="LineNr">1482 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1483" class="LineNr">1483 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1484" class="LineNr">1484 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1485" class="LineNr">1485 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L1486" class="LineNr">1486 </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="L1487" class="LineNr">1487 </span> 68/push 0xc0/imm32/size +<span id="L1488" class="LineNr">1488 </span> 68/push 0/imm32/read +<span id="L1489" class="LineNr">1489 </span> 68/push 0/imm32/write +<span id="L1490" class="LineNr">1490 </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="L1491" class="LineNr">1491 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L1492" class="LineNr">1492 </span> 68/push 0/imm32 +<span id="L1493" class="LineNr">1493 </span> 68/push 0/imm32 +<span id="L1494" class="LineNr">1494 </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="L1495" class="LineNr">1495 </span> <span class="subxComment"># initialize input</span> +<span id="L1496" class="LineNr">1496 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L1497" class="LineNr">1497 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1498" class="LineNr">1498 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L1499" class="LineNr">1499 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1500" class="LineNr">1500 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1501" class="LineNr">1501 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1502" class="LineNr">1502 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1503" class="LineNr">1503 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1504" class="LineNr">1504 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef gh\n")</span> +<span id="L1505" class="LineNr">1505 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1506" class="LineNr">1506 </span> 68/push <span class="Constant">"ab cd ef gh\n"</span>/imm32 +<span id="L1507" class="LineNr">1507 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1508" class="LineNr">1508 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1509" class="LineNr">1509 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1510" class="LineNr">1510 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1511" class="LineNr">1511 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1512" class="LineNr">1512 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data 0x7c10\n")</span> +<span id="L1513" class="LineNr">1513 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1514" class="LineNr">1514 </span> 68/push <span class="Constant">"== data 0x7c10\n"</span>/imm32 +<span id="L1515" class="LineNr">1515 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1516" class="LineNr">1516 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1517" class="LineNr">1517 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1518" class="LineNr">1518 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1519" class="LineNr">1519 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1520" class="LineNr">1520 </span> <span class="subxS1Comment"># . write(_test-input-stream, "34\n")</span> +<span id="L1521" class="LineNr">1521 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1522" class="LineNr">1522 </span> 68/push <span class="Constant">"34\n"</span>/imm32 +<span id="L1523" class="LineNr">1523 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-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="L1525" class="LineNr">1525 </span> e8/call <a href='108write.subx.html#L24'>write</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="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> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1528" class="LineNr">1528 </span> <span class="subxComment"># component under test</span> +<span id="L1529" class="LineNr">1529 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> +<span id="L1530" class="LineNr">1530 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1531" class="LineNr">1531 </span> 52/push-edx +<span id="L1532" class="LineNr">1532 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1533" class="LineNr">1533 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1534" class="LineNr">1534 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1535" class="LineNr">1535 </span> e8/call <a href='labels_baremetal.subx.html#L393'>emit-output</a>/disp32 +<span id="L1536" class="LineNr">1536 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1537" class="LineNr">1537 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1538" class="LineNr">1538 </span> <span class="subxComment"># checks</span> +<span id="L1539" class="LineNr">1539 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1540" class="LineNr">1540 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1541" class="LineNr">1541 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</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="L1543" class="LineNr">1543 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</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="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> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1546" class="Folded">1546 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1579" class="LineNr">1579 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</span> +<span id="L1580" class="LineNr">1580 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1581" class="LineNr">1581 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1442'>test-emit-output-with-padding</a>/0"</span>/imm32 +<span id="L1582" class="LineNr">1582 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 +<span id="L1583" class="LineNr">1583 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1584" class="LineNr">1584 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1585" class="LineNr">1585 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1586" class="LineNr">1586 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1587" class="LineNr">1587 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1588" class="LineNr">1588 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ef gh ", msg)</span> +<span id="L1589" class="LineNr">1589 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1590" class="LineNr">1590 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1442'>test-emit-output-with-padding</a>/1"</span>/imm32 +<span id="L1591" class="LineNr">1591 </span> 68/push <span class="Constant">"ab cd ef gh "</span>/imm32 +<span id="L1592" class="LineNr">1592 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1593" class="LineNr">1593 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1594" class="LineNr">1594 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1595" class="LineNr">1595 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1596" class="LineNr">1596 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1597" class="LineNr">1597 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c04", msg)</span> +<span id="L1598" class="LineNr">1598 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1599" class="LineNr">1599 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1442'>test-emit-output-with-padding</a>/0"</span>/imm32 +<span id="L1600" class="LineNr">1600 </span> 68/push <span class="Constant">"# 0x00007c04"</span>/imm32 +<span id="L1601" class="LineNr">1601 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-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="L1603" class="LineNr">1603 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</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="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> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1606" class="LineNr">1606 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "00 00 00 00 ", msg)</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="L1608" class="LineNr">1608 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1442'>test-emit-output-with-padding</a>/2"</span>/imm32 +<span id="L1609" class="LineNr">1609 </span> 68/push <span class="Constant">"00 00 00 00 "</span>/imm32 +<span id="L1610" class="LineNr">1610 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1611" class="LineNr">1611 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1612" class="LineNr">1612 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1613" class="LineNr">1613 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1614" class="LineNr">1614 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1615" class="LineNr">1615 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "00 00 00 00 ", msg)</span> +<span id="L1616" class="LineNr">1616 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1617" class="LineNr">1617 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1442'>test-emit-output-with-padding</a>/3"</span>/imm32 +<span id="L1618" class="LineNr">1618 </span> 68/push <span class="Constant">"00 00 00 00 00 00 00 00 "</span>/imm32 +<span id="L1619" class="LineNr">1619 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1620" class="LineNr">1620 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1621" class="LineNr">1621 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1622" class="LineNr">1622 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1623" class="LineNr">1623 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1624" class="LineNr">1624 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c10", msg)</span> +<span id="L1625" class="LineNr">1625 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1626" class="LineNr">1626 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1442'>test-emit-output-with-padding</a>/0"</span>/imm32 +<span id="L1627" class="LineNr">1627 </span> 68/push <span class="Constant">"# 0x00007c10"</span>/imm32 +<span id="L1628" class="LineNr">1628 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1629" class="LineNr">1629 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1630" class="LineNr">1630 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1631" class="LineNr">1631 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1632" class="LineNr">1632 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1633" class="LineNr">1633 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "34 ", msg)</span> +<span id="L1634" class="LineNr">1634 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1635" class="LineNr">1635 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1442'>test-emit-output-with-padding</a>/4"</span>/imm32 +<span id="L1636" class="LineNr">1636 </span> 68/push <span class="Constant">"34 "</span>/imm32 +<span id="L1637" class="LineNr">1637 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1638" class="LineNr">1638 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1639" class="LineNr">1639 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1640" class="LineNr">1640 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1641" class="LineNr">1641 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1642" class="LineNr">1642 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1643" class="LineNr">1643 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1644" class="LineNr">1644 </span> 5d/pop-to-ebp +<span id="L1645" class="LineNr">1645 </span> c3/return +<span id="L1646" class="LineNr">1646 </span> +<span id="L1647" class="LineNr">1647 </span><span class="subxTest">test-emit-output-code-label</span>: +<span id="L1648" class="LineNr">1648 </span> <span class="subxComment"># labels turn into PC-relative addresses if opcodes are far jumps or calls</span> +<span id="L1649" class="LineNr">1649 </span> <span class="subxComment">#</span> +<span id="L1650" class="LineNr">1650 </span> <span class="subxComment"># input:</span> +<span id="L1651" class="LineNr">1651 </span> <span class="subxComment"># in:</span> +<span id="L1652" class="LineNr">1652 </span> <span class="subxComment"># == code</span> +<span id="L1653" class="LineNr">1653 </span> <span class="subxComment"># ab cd</span> +<span id="L1654" class="LineNr">1654 </span> <span class="subxComment"># ef gh</span> +<span id="L1655" class="LineNr">1655 </span> <span class="subxComment"># e8 l1/disp32</span> +<span id="L1656" class="LineNr">1656 </span> <span class="subxComment"># labels:</span> +<span id="L1657" class="LineNr">1657 </span> <span class="subxComment"># - 'l1': 0x7c10</span> +<span id="L1658" class="LineNr">1658 </span> <span class="subxComment">#</span> +<span id="L1659" class="LineNr">1659 </span> <span class="subxComment"># output:</span> +<span id="L1660" class="LineNr">1660 </span> <span class="subxComment"># ab cd</span> +<span id="L1661" class="LineNr">1661 </span> <span class="subxComment"># ef gh</span> +<span id="L1662" class="LineNr">1662 </span> <span class="subxComment"># e8 07 00 00 00 # 0x7c10 - 0x7c09 = 7</span> +<span id="L1663" class="LineNr">1663 </span> <span class="subxComment">#</span> +<span id="L1664" class="LineNr">1664 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1665" class="LineNr">1665 </span> 55/push-ebp +<span id="L1666" class="LineNr">1666 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1667" class="LineNr">1667 </span> <span class="subxComment"># setup</span> +<span id="L1668" class="LineNr">1668 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1669" class="LineNr">1669 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1670" class="LineNr">1670 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1671" class="LineNr">1671 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1672" class="LineNr">1672 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</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> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1675" class="LineNr">1675 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1676" class="LineNr">1676 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1677" class="LineNr">1677 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1678" class="LineNr">1678 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1679" class="LineNr">1679 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1680" class="LineNr">1680 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1681" class="LineNr">1681 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1682" class="LineNr">1682 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1683" class="LineNr">1683 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1684" class="LineNr">1684 </span> 68/push $_test-output-buffered-file->buffer/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="L1686" class="LineNr">1686 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</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="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> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1689" class="LineNr">1689 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L1690" class="LineNr">1690 </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="L1691" class="LineNr">1691 </span> 68/push 0xc0/imm32/size +<span id="L1692" class="LineNr">1692 </span> 68/push 0/imm32/read +<span id="L1693" class="LineNr">1693 </span> 68/push 0/imm32/write +<span id="L1694" class="LineNr">1694 </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="L1695" class="LineNr">1695 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L1696" class="LineNr">1696 </span> 68/push 0/imm32 +<span id="L1697" class="LineNr">1697 </span> 68/push 0/imm32 +<span id="L1698" class="LineNr">1698 </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="L1699" class="LineNr">1699 </span> <span class="subxComment"># initialize input</span> +<span id="L1700" class="LineNr">1700 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L1701" class="LineNr">1701 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1702" class="LineNr">1702 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L1703" class="LineNr">1703 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1704" class="LineNr">1704 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1705" class="LineNr">1705 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1706" class="LineNr">1706 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1707" class="LineNr">1707 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1708" class="LineNr">1708 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd\n")</span> +<span id="L1709" class="LineNr">1709 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1710" class="LineNr">1710 </span> 68/push <span class="Constant">"ab cd\n"</span>/imm32 +<span id="L1711" class="LineNr">1711 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1712" class="LineNr">1712 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1713" class="LineNr">1713 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1714" class="LineNr">1714 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1715" class="LineNr">1715 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1716" class="LineNr">1716 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ef gh\n")</span> +<span id="L1717" class="LineNr">1717 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1718" class="LineNr">1718 </span> 68/push <span class="Constant">"ef gh\n"</span>/imm32 +<span id="L1719" class="LineNr">1719 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1720" class="LineNr">1720 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1721" class="LineNr">1721 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1722" class="LineNr">1722 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1723" class="LineNr">1723 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1724" class="LineNr">1724 </span> <span class="subxS1Comment"># . write(_test-input-stream, "e8 l1/disp32\n")</span> +<span id="L1725" class="LineNr">1725 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1726" class="LineNr">1726 </span> 68/push <span class="Constant">"e8 l1/disp32\n"</span>/imm32 +<span id="L1727" class="LineNr">1727 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1728" class="LineNr">1728 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1729" class="LineNr">1729 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1730" class="LineNr">1730 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1731" class="LineNr">1731 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1732" class="LineNr">1732 </span> <span class="subxS1Comment"># . stream-add2(labels, "l1", 0x7c10)</span> +<span id="L1733" class="LineNr">1733 </span> 68/push 0x7c10/imm32/label-address +<span id="L1734" class="LineNr">1734 </span> <span class="subxS2Comment"># . . push handle for "l1"</span> +<span id="L1735" class="LineNr">1735 </span> 53/push-ebx +<span id="L1736" class="LineNr">1736 </span> 68/push <span class="Constant">"l1"</span>/imm32 +<span id="L1737" class="LineNr">1737 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1738" class="LineNr">1738 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<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> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1740" class="LineNr">1740 </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="L1741" class="LineNr">1741 </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="L1742" class="LineNr">1742 </span> <span class="subxS2Comment"># . . push labels</span> +<span id="L1743" class="LineNr">1743 </span> 52/push-edx <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="L1745" class="LineNr">1745 </span> e8/call <a href='labels_baremetal.subx.html#L2169'>stream-add2</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="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> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1748" class="LineNr">1748 </span> <span class="subxComment"># component under test</span> +<span id="L1749" class="LineNr">1749 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> +<span id="L1750" class="LineNr">1750 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1751" class="LineNr">1751 </span> 52/push-edx +<span id="L1752" class="LineNr">1752 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1753" class="LineNr">1753 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1754" class="LineNr">1754 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1755" class="LineNr">1755 </span> e8/call <a href='labels_baremetal.subx.html#L393'>emit-output</a>/disp32 +<span id="L1756" class="LineNr">1756 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1757" class="LineNr">1757 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1758" class="LineNr">1758 </span> <span class="subxComment"># checks</span> +<span id="L1759" class="LineNr">1759 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1760" class="LineNr">1760 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1761" class="LineNr">1761 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</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="L1763" class="LineNr">1763 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</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="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> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1766" class="Folded">1766 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1799" class="LineNr">1799 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</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="L1801" class="LineNr">1801 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1647'>test-emit-output-code-label</a>/0"</span>/imm32 +<span id="L1802" class="LineNr">1802 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 +<span id="L1803" class="LineNr">1803 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1804" class="LineNr">1804 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1805" class="LineNr">1805 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1806" class="LineNr">1806 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1807" class="LineNr">1807 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1808" class="LineNr">1808 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> +<span id="L1809" class="LineNr">1809 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1810" class="LineNr">1810 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1647'>test-emit-output-code-label</a>/1"</span>/imm32 +<span id="L1811" class="LineNr">1811 </span> 68/push <span class="Constant">"ab cd "</span>/imm32 +<span id="L1812" class="LineNr">1812 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1813" class="LineNr">1813 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1814" class="LineNr">1814 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1815" class="LineNr">1815 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1816" class="LineNr">1816 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1817" class="LineNr">1817 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ef gh ", msg)</span> +<span id="L1818" class="LineNr">1818 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1819" class="LineNr">1819 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1647'>test-emit-output-code-label</a>/2"</span>/imm32 +<span id="L1820" class="LineNr">1820 </span> 68/push <span class="Constant">"ef gh "</span>/imm32 +<span id="L1821" class="LineNr">1821 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1822" class="LineNr">1822 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1823" class="LineNr">1823 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1824" class="LineNr">1824 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1825" class="LineNr">1825 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1826" class="LineNr">1826 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "e8 07 00 00 00 ", msg)</span> +<span id="L1827" class="LineNr">1827 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1828" class="LineNr">1828 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1647'>test-emit-output-code-label</a>/3"</span>/imm32 +<span id="L1829" class="LineNr">1829 </span> 68/push <span class="Constant">"e8 07 00 00 00 "</span>/imm32 +<span id="L1830" class="LineNr">1830 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1831" class="LineNr">1831 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1832" class="LineNr">1832 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1833" class="LineNr">1833 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1834" class="LineNr">1834 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1835" class="LineNr">1835 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1836" class="LineNr">1836 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1837" class="LineNr">1837 </span> 5d/pop-to-ebp +<span id="L1838" class="LineNr">1838 </span> c3/return +<span id="L1839" class="LineNr">1839 </span> +<span id="L1840" class="LineNr">1840 </span><span class="subxTest">test-emit-output-code-label-absolute</span>: +<span id="L1841" class="LineNr">1841 </span> <span class="subxComment"># labels can also convert to absolute addresses</span> +<span id="L1842" class="LineNr">1842 </span> <span class="subxComment">#</span> +<span id="L1843" class="LineNr">1843 </span> <span class="subxComment"># input:</span> +<span id="L1844" class="LineNr">1844 </span> <span class="subxComment"># in:</span> +<span id="L1845" class="LineNr">1845 </span> <span class="subxComment"># == code</span> +<span id="L1846" class="LineNr">1846 </span> <span class="subxComment"># ab cd</span> +<span id="L1847" class="LineNr">1847 </span> <span class="subxComment"># ef gh</span> +<span id="L1848" class="LineNr">1848 </span> <span class="subxComment"># ij l1/imm32</span> +<span id="L1849" class="LineNr">1849 </span> <span class="subxComment"># labels:</span> +<span id="L1850" class="LineNr">1850 </span> <span class="subxComment"># - 'l1': 0x1056</span> +<span id="L1851" class="LineNr">1851 </span> <span class="subxComment">#</span> +<span id="L1852" class="LineNr">1852 </span> <span class="subxComment"># output:</span> +<span id="L1853" class="LineNr">1853 </span> <span class="subxComment"># ab cd</span> +<span id="L1854" class="LineNr">1854 </span> <span class="subxComment"># ef gh</span> +<span id="L1855" class="LineNr">1855 </span> <span class="subxComment"># ij 56 10 00 00</span> +<span id="L1856" class="LineNr">1856 </span> <span class="subxComment">#</span> +<span id="L1857" class="LineNr">1857 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1858" class="LineNr">1858 </span> 55/push-ebp +<span id="L1859" class="LineNr">1859 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1860" class="LineNr">1860 </span> <span class="subxComment"># setup</span> +<span id="L1861" class="LineNr">1861 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1862" class="LineNr">1862 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1863" class="LineNr">1863 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1864" class="LineNr">1864 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1865" class="LineNr">1865 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1866" class="LineNr">1866 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1867" class="LineNr">1867 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1868" class="LineNr">1868 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1869" class="LineNr">1869 </span> <span class="subxS2Comment"># . . push args</span> +<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='106stream.subx.html#L17'>clear-stream</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> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1875" class="LineNr">1875 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1876" class="LineNr">1876 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1877" class="LineNr">1877 </span> 68/push $_test-output-buffered-file->buffer/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="L1879" class="LineNr">1879 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</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="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> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1882" class="LineNr">1882 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L1883" class="LineNr">1883 </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="L1884" class="LineNr">1884 </span> 68/push 0xc0/imm32/size +<span id="L1885" class="LineNr">1885 </span> 68/push 0/imm32/read +<span id="L1886" class="LineNr">1886 </span> 68/push 0/imm32/write +<span id="L1887" class="LineNr">1887 </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="L1888" class="LineNr">1888 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L1889" class="LineNr">1889 </span> 68/push 0/imm32 +<span id="L1890" class="LineNr">1890 </span> 68/push 0/imm32 +<span id="L1891" class="LineNr">1891 </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="L1892" class="LineNr">1892 </span> <span class="subxComment"># initialize input</span> +<span id="L1893" class="LineNr">1893 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1000\n")</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">"== code\n"</span>/imm32 +<span id="L1896" class="LineNr">1896 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1897" class="LineNr">1897 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1898" class="LineNr">1898 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1899" class="LineNr">1899 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1900" class="LineNr">1900 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1901" class="LineNr">1901 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd\n")</span> +<span id="L1902" class="LineNr">1902 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1903" class="LineNr">1903 </span> 68/push <span class="Constant">"ab cd\n"</span>/imm32 +<span id="L1904" class="LineNr">1904 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1905" class="LineNr">1905 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1906" class="LineNr">1906 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1907" class="LineNr">1907 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1908" class="LineNr">1908 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1909" class="LineNr">1909 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ef gh\n")</span> +<span id="L1910" class="LineNr">1910 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1911" class="LineNr">1911 </span> 68/push <span class="Constant">"ef gh\n"</span>/imm32 +<span id="L1912" class="LineNr">1912 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1913" class="LineNr">1913 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1914" class="LineNr">1914 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1915" class="LineNr">1915 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1916" class="LineNr">1916 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1917" class="LineNr">1917 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ij l1/imm32\n")</span> +<span id="L1918" class="LineNr">1918 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1919" class="LineNr">1919 </span> 68/push <span class="Constant">"ij l1/imm32\n"</span>/imm32 +<span id="L1920" class="LineNr">1920 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1921" class="LineNr">1921 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1922" class="LineNr">1922 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1923" class="LineNr">1923 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1924" class="LineNr">1924 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1925" class="LineNr">1925 </span> <span class="subxS1Comment"># . stream-add2(labels, "l1", 0x1056)</span> +<span id="L1926" class="LineNr">1926 </span> 68/push 0x1056/imm32/label-address +<span id="L1927" class="LineNr">1927 </span> <span class="subxS2Comment"># . . push handle for "l1"</span> +<span id="L1928" class="LineNr">1928 </span> 53/push-ebx +<span id="L1929" class="LineNr">1929 </span> 68/push <span class="Constant">"l1"</span>/imm32 +<span id="L1930" class="LineNr">1930 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1931" class="LineNr">1931 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1932" class="LineNr">1932 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1933" class="LineNr">1933 </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="L1934" class="LineNr">1934 </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="L1935" class="LineNr">1935 </span> <span class="subxS2Comment"># . . push labels</span> +<span id="L1936" class="LineNr">1936 </span> 52/push-edx <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="L1938" class="LineNr">1938 </span> e8/call <a href='labels_baremetal.subx.html#L2169'>stream-add2</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="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> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1941" class="LineNr">1941 </span> <span class="subxComment"># component under test</span> +<span id="L1942" class="LineNr">1942 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> +<span id="L1943" class="LineNr">1943 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1944" class="LineNr">1944 </span> 52/push-edx +<span id="L1945" class="LineNr">1945 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1946" class="LineNr">1946 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1947" class="LineNr">1947 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1948" class="LineNr">1948 </span> e8/call <a href='labels_baremetal.subx.html#L393'>emit-output</a>/disp32 +<span id="L1949" class="LineNr">1949 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1950" class="LineNr">1950 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1951" class="LineNr">1951 </span> <span class="subxComment"># checks</span> +<span id="L1952" class="LineNr">1952 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1953" class="LineNr">1953 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1954" class="LineNr">1954 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</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="L1956" class="LineNr">1956 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</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> +<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> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1959" class="Folded">1959 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1992" class="LineNr">1992 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</span> +<span id="L1993" class="LineNr">1993 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1994" class="LineNr">1994 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1840'>test-emit-output-code-label-absolute</a>/0"</span>/imm32 +<span id="L1995" class="LineNr">1995 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 +<span id="L1996" class="LineNr">1996 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1997" class="LineNr">1997 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1998" class="LineNr">1998 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1999" class="LineNr">1999 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2000" class="LineNr">2000 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2001" class="LineNr">2001 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> +<span id="L2002" class="LineNr">2002 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2003" class="LineNr">2003 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1840'>test-emit-output-code-label-absolute</a>/1"</span>/imm32 +<span id="L2004" class="LineNr">2004 </span> 68/push <span class="Constant">"ab cd "</span>/imm32 +<span id="L2005" class="LineNr">2005 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2006" class="LineNr">2006 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2007" class="LineNr">2007 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2008" class="LineNr">2008 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2009" class="LineNr">2009 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2010" class="LineNr">2010 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ef gh ", msg)</span> +<span id="L2011" class="LineNr">2011 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2012" class="LineNr">2012 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1840'>test-emit-output-code-label-absolute</a>/2"</span>/imm32 +<span id="L2013" class="LineNr">2013 </span> 68/push <span class="Constant">"ef gh "</span>/imm32 +<span id="L2014" class="LineNr">2014 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2015" class="LineNr">2015 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2016" class="LineNr">2016 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2017" class="LineNr">2017 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2018" class="LineNr">2018 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2019" class="LineNr">2019 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ij f9 ff ff ff ", msg)</span> +<span id="L2020" class="LineNr">2020 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2021" class="LineNr">2021 </span> 68/push <span class="Constant">"F - <a href='labels_baremetal.subx.html#L1840'>test-emit-output-code-label-absolute</a>/3"</span>/imm32 +<span id="L2022" class="LineNr">2022 </span> 68/push <span class="Constant">"ij 56 10 00 00 "</span>/imm32 +<span id="L2023" class="LineNr">2023 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2024" class="LineNr">2024 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2025" class="LineNr">2025 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2026" class="LineNr">2026 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2027" class="LineNr">2027 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2028" class="LineNr">2028 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2029" class="LineNr">2029 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2030" class="LineNr">2030 </span> 5d/pop-to-ebp +<span id="L2031" class="LineNr">2031 </span> c3/return +<span id="L2032" class="LineNr">2032 </span> +<span id="L2033" class="LineNr">2033 </span><span class="subxComment"># reads line to make some checks</span> +<span id="L2034" class="LineNr">2034 </span><span class="subxComment"># don't assume the read state of line after calling this function</span> +<span id="L2035" class="LineNr">2035 </span><span class="subxFunction">far-jump-or-call?</span>: <span class="subxComment"># line: (addr stream byte) -> result/edi: boolean</span> +<span id="L2036" class="LineNr">2036 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2037" class="LineNr">2037 </span> 55/push-ebp +<span id="L2038" class="LineNr">2038 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2039" class="LineNr">2039 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2040" class="LineNr">2040 </span> 50/push-eax +<span id="L2041" class="LineNr">2041 </span> 51/push-ecx +<span id="L2042" class="LineNr">2042 </span> 52/push-edx +<span id="L2043" class="LineNr">2043 </span> 53/push-ebx +<span id="L2044" class="LineNr">2044 </span> <span class="subxComment"># ecx = line</span> +<span id="L2045" class="LineNr">2045 </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="L2046" class="LineNr">2046 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L2047" class="LineNr">2047 </span> 68/push 0/imm32/end +<span id="L2048" class="LineNr">2048 </span> 68/push 0/imm32/start +<span id="L2049" class="LineNr">2049 </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="L2050" class="LineNr">2050 </span> <span class="subxComment"># var datum-slice/ebx: slice</span> +<span id="L2051" class="LineNr">2051 </span> 68/push 0/imm32/end +<span id="L2052" class="LineNr">2052 </span> 68/push 0/imm32/start +<span id="L2053" class="LineNr">2053 </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="L2054" class="LineNr">2054 </span> <span class="subxComment"># result = false</span> +<span id="L2055" class="LineNr">2055 </span> bf/copy-to-edi 0/imm32/false +<span id="L2056" class="LineNr">2056 </span><span class="Constant">$far-jump-or-call?:check-first-word</span>: +<span id="L2057" class="LineNr">2057 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L2058" class="LineNr">2058 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2059" class="LineNr">2059 </span> 52/push-edx +<span id="L2060" class="LineNr">2060 </span> 51/push-ecx +<span id="L2061" class="LineNr">2061 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2062" class="LineNr">2062 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L2063" class="LineNr">2063 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2064" class="LineNr">2064 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2065" class="LineNr">2065 </span> <span class="subxComment"># if (slice-empty?(word-slice)) return false</span> +<span id="L2066" class="LineNr">2066 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L2067" class="LineNr">2067 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2068" class="LineNr">2068 </span> 52/push-edx +<span id="L2069" class="LineNr">2069 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2070" class="LineNr">2070 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2071" class="LineNr">2071 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2072" class="LineNr">2072 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2073" class="LineNr">2073 </span> <span class="subxS1Comment"># . if (eax != 0) return</span> +<span id="L2074" class="LineNr">2074 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2075" class="LineNr">2075 </span> 0f 85/jump-if-!= $far-jump-or-call?:end/disp32 +<span id="L2076" class="LineNr">2076 </span> <span class="subxComment"># datum = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> +<span id="L2077" class="LineNr">2077 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2078" class="LineNr">2078 </span> 53/push-ebx +<span id="L2079" class="LineNr">2079 </span> 68/push 0x2f/imm32/slash +<span id="L2080" class="LineNr">2080 </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="L2081" class="LineNr">2081 </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="L2082" class="LineNr">2082 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2083" class="LineNr">2083 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L2084" class="LineNr">2084 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2085" class="LineNr">2085 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2086" class="LineNr">2086 </span> <span class="subxComment"># if (datum-slice == "e8") return true</span> +<span id="L2087" class="LineNr">2087 </span> <span class="subxS1Comment"># . eax = slice-equal?(datum-slice, "e8")</span> +<span id="L2088" class="LineNr">2088 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2089" class="LineNr">2089 </span> 68/push <span class="Constant">"e8"</span>/imm32 +<span id="L2090" class="LineNr">2090 </span> 53/push-ebx +<span id="L2091" class="LineNr">2091 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2092" class="LineNr">2092 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2093" class="LineNr">2093 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2094" class="LineNr">2094 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2095" class="LineNr">2095 </span> <span class="subxS1Comment"># . if (eax != false) return true</span> +<span id="L2096" class="LineNr">2096 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2097" class="LineNr">2097 </span> 75/jump-if-!= $far-jump-or-call?:return-true/disp8 +<span id="L2098" class="LineNr">2098 </span> <span class="subxComment"># if (datum-slice == "e9") return true</span> +<span id="L2099" class="LineNr">2099 </span> <span class="subxS1Comment"># . eax = slice-equal?(datum-slice, "e9")</span> +<span id="L2100" class="LineNr">2100 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2101" class="LineNr">2101 </span> 68/push <span class="Constant">"e9"</span>/imm32 +<span id="L2102" class="LineNr">2102 </span> 53/push-ebx +<span id="L2103" class="LineNr">2103 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2104" class="LineNr">2104 </span> e8/call <a href='123slice.subx.html#L120'>slice-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> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2107" class="LineNr">2107 </span> <span class="subxS1Comment"># . if (eax != false) return true</span> +<span id="L2108" class="LineNr">2108 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2109" class="LineNr">2109 </span> 75/jump-if-!= $far-jump-or-call?:return-true/disp8 +<span id="L2110" class="LineNr">2110 </span> <span class="subxComment"># if (datum-slice != "0f") return false</span> +<span id="L2111" class="LineNr">2111 </span> <span class="subxS1Comment"># . eax = slice-equal?(datum-slice, "0f")</span> +<span id="L2112" class="LineNr">2112 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2113" class="LineNr">2113 </span> 68/push <span class="Constant">"0f"</span>/imm32 +<span id="L2114" class="LineNr">2114 </span> 53/push-ebx +<span id="L2115" class="LineNr">2115 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2116" class="LineNr">2116 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2117" class="LineNr">2117 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2118" class="LineNr">2118 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2119" class="LineNr">2119 </span> <span class="subxS1Comment"># . if (eax == false) return</span> +<span id="L2120" class="LineNr">2120 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2121" class="LineNr">2121 </span> 74/jump-if-= $far-jump-or-call?:end/disp8 +<span id="L2122" class="LineNr">2122 </span><span class="Constant">$far-jump-or-call?:check-second-word</span>: +<span id="L2123" class="LineNr">2123 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L2124" class="LineNr">2124 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2125" class="LineNr">2125 </span> 52/push-edx +<span id="L2126" class="LineNr">2126 </span> 51/push-ecx +<span id="L2127" class="LineNr">2127 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2128" class="LineNr">2128 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L2129" class="LineNr">2129 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2130" class="LineNr">2130 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2131" class="LineNr">2131 </span> <span class="subxComment"># if (slice-empty?(word-slice)) return false</span> +<span id="L2132" class="LineNr">2132 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L2133" class="LineNr">2133 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2134" class="LineNr">2134 </span> 52/push-edx +<span id="L2135" class="LineNr">2135 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2136" class="LineNr">2136 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2137" class="LineNr">2137 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2138" class="LineNr">2138 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2139" class="LineNr">2139 </span> <span class="subxS1Comment"># . if (eax != 0) return</span> +<span id="L2140" class="LineNr">2140 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2141" class="LineNr">2141 </span> 75/jump-if-!= $far-jump-or-call?:end/disp8 +<span id="L2142" class="LineNr">2142 </span> <span class="subxComment"># if datum of word-slice does not start with "8", return false</span> +<span id="L2143" class="LineNr">2143 </span> <span class="subxS1Comment"># . start/eax = word-slice->start</span> +<span id="L2144" class="LineNr">2144 </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="L2145" class="LineNr">2145 </span> <span class="subxS1Comment"># . c/eax = *start</span> +<span id="L2146" class="LineNr">2146 </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="L2147" class="LineNr">2147 </span> 25/and-eax-with 0xff/imm32 +<span id="L2148" class="LineNr">2148 </span> <span class="subxS1Comment"># . if (eax != '8') return</span> +<span id="L2149" class="LineNr">2149 </span> 3d/compare-eax-and 0x38/imm32/8 +<span id="L2150" class="LineNr">2150 </span> 75/jump-if-!= $far-jump-or-call?:end/disp8 +<span id="L2151" class="LineNr">2151 </span> <span class="subxComment"># otherwise return true</span> +<span id="L2152" class="LineNr">2152 </span><span class="Constant">$far-jump-or-call?:return-true</span>: +<span id="L2153" class="LineNr">2153 </span> bf/copy-to-edi 1/imm32/true +<span id="L2154" class="LineNr">2154 </span><span class="Constant">$far-jump-or-call?:end</span>: +<span id="L2155" class="LineNr">2155 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L2156" class="LineNr">2156 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2157" class="LineNr">2157 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2158" class="LineNr">2158 </span> 5b/pop-to-ebx +<span id="L2159" class="LineNr">2159 </span> 5a/pop-to-edx +<span id="L2160" class="LineNr">2160 </span> 59/pop-to-ecx +<span id="L2161" class="LineNr">2161 </span> 58/pop-to-eax +<span id="L2162" class="LineNr">2162 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2163" class="LineNr">2163 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2164" class="LineNr">2164 </span> 5d/pop-to-ebp +<span id="L2165" class="LineNr">2165 </span> c3/return +<span id="L2166" class="LineNr">2166 </span> +<span id="L2167" class="LineNr">2167 </span><span class="subxH1Comment"># - some helpers for tests</span> +<span id="L2168" class="LineNr">2168 </span> +<span id="L2169" class="LineNr">2169 </span><span class="subxFunction">stream-add2</span>: <span class="subxComment"># in: (addr stream byte), key: handle, val: int</span> +<span id="L2170" class="LineNr">2170 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2171" class="LineNr">2171 </span> 55/push-ebp +<span id="L2172" class="LineNr">2172 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2173" class="LineNr">2173 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2174" class="LineNr">2174 </span> 50/push-eax +<span id="L2175" class="LineNr">2175 </span> 51/push-ecx +<span id="L2176" class="LineNr">2176 </span> 52/push-edx +<span id="L2177" class="LineNr">2177 </span> 56/push-esi +<span id="L2178" class="LineNr">2178 </span> <span class="subxComment"># esi = in</span> +<span id="L2179" class="LineNr">2179 </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="L2180" class="LineNr">2180 </span> <span class="subxComment"># curr/eax = &in->data[in->write]</span> +<span id="L2181" class="LineNr">2181 </span> <span class="subxS1Comment"># . eax = in->write</span> +<span id="L2182" class="LineNr">2182 </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="L2183" class="LineNr">2183 </span> <span class="subxS1Comment"># . eax = esi+eax+12</span> +<span id="L2184" class="LineNr">2184 </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="L2185" class="LineNr">2185 </span> <span class="subxComment"># max/edx = &in->data[in->size]</span> +<span id="L2186" class="LineNr">2186 </span> <span class="subxS1Comment"># . edx = in->size</span> +<span id="L2187" class="LineNr">2187 </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="L2188" class="LineNr">2188 </span> <span class="subxS1Comment"># . edx = esi+edx+12</span> +<span id="L2189" class="LineNr">2189 </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="L2190" class="LineNr">2190 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L2191" class="LineNr">2191 </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="L2192" class="LineNr">2192 </span> 73/jump-if-addr>= $stream-add2:abort/disp8 +<span id="L2193" class="LineNr">2193 </span> <span class="subxComment"># *curr = key->alloc-id</span> +<span id="L2194" class="LineNr">2194 </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="L2195" class="LineNr">2195 </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="L2196" class="LineNr">2196 </span> <span class="subxComment"># curr += 4</span> +<span id="L2197" class="LineNr">2197 </span> 05/add-to-eax 4/imm32 +<span id="L2198" class="LineNr">2198 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L2199" class="LineNr">2199 </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="L2200" class="LineNr">2200 </span> 73/jump-if-addr>= $stream-add2:abort/disp8 +<span id="L2201" class="LineNr">2201 </span> <span class="subxComment"># *curr = key->payload</span> +<span id="L2202" class="LineNr">2202 </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="L2203" class="LineNr">2203 </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="L2204" class="LineNr">2204 </span> <span class="subxComment"># curr += 4</span> +<span id="L2205" class="LineNr">2205 </span> 05/add-to-eax 4/imm32 +<span id="L2206" class="LineNr">2206 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L2207" class="LineNr">2207 </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="L2208" class="LineNr">2208 </span> 73/jump-if-addr>= $stream-add2:abort/disp8 +<span id="L2209" class="LineNr">2209 </span> <span class="subxComment"># *curr = val</span> +<span id="L2210" class="LineNr">2210 </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="L2211" class="LineNr">2211 </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="L2212" class="LineNr">2212 </span> <span class="subxComment"># in->write += 0xc</span> +<span id="L2213" class="LineNr">2213 </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="L2214" class="LineNr">2214 </span><span class="Constant">$stream-add2:end</span>: +<span id="L2215" class="LineNr">2215 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2216" class="LineNr">2216 </span> 5e/pop-to-esi +<span id="L2217" class="LineNr">2217 </span> 5a/pop-to-edx +<span id="L2218" class="LineNr">2218 </span> 59/pop-to-ecx +<span id="L2219" class="LineNr">2219 </span> 58/pop-to-eax +<span id="L2220" class="LineNr">2220 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2221" class="LineNr">2221 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2222" class="LineNr">2222 </span> 5d/pop-to-ebp +<span id="L2223" class="LineNr">2223 </span> c3/return +<span id="L2224" class="LineNr">2224 </span> +<span id="L2225" class="LineNr">2225 </span><span class="Constant">$stream-add2:abort</span>: +<span id="L2226" class="LineNr">2226 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L2227" class="LineNr">2227 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2228" class="LineNr">2228 </span> 68/push <span class="Constant">"overflow in stream-add2\n"</span>/imm32 +<span id="L2229" class="LineNr">2229 </span> 68/push 2/imm32/stderr +<span id="L2230" class="LineNr">2230 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2231" class="LineNr">2231 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L2232" class="LineNr">2232 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2233" class="LineNr">2233 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2234" class="LineNr">2234 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> +<span id="L2235" class="LineNr">2235 </span> bb/copy-to-ebx 1/imm32 +<span id="L2236" class="LineNr">2236 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L2237" class="LineNr">2237 </span> <span class="subxComment"># never gets here</span> +<span id="L2238" class="LineNr">2238 </span> +<span id="L2239" class="LineNr">2239 </span><span class="subxComment"># some variants of 'trace' that take multiple arguments in different combinations of types:</span> +<span id="L2240" class="LineNr">2240 </span><span class="subxComment"># n: int</span> +<span id="L2241" class="LineNr">2241 </span><span class="subxComment"># c: character [4-bytes, will eventually be UTF-8]</span> +<span id="L2242" class="LineNr">2242 </span><span class="subxComment"># s: (addr array byte)</span> +<span id="L2243" class="LineNr">2243 </span><span class="subxComment"># l: (addr slice)</span> +<span id="L2244" class="LineNr">2244 </span><span class="subxComment"># one gotcha: 's5' must not be empty</span> +<span id="L2245" class="LineNr">2245 </span> +<span id="L2246" class="LineNr">2246 </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="L2247" class="LineNr">2247 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2248" class="LineNr">2248 </span> 55/push-ebp +<span id="L2249" class="LineNr">2249 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2250" class="LineNr">2250 </span> <span class="subxComment"># write(*Trace-stream, s1)</span> +<span id="L2251" class="LineNr">2251 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2252" class="LineNr">2252 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2253" class="LineNr">2253 </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="L2254" class="LineNr">2254 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2255" class="LineNr">2255 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2256" class="LineNr">2256 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2257" class="LineNr">2257 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2258" class="LineNr">2258 </span> <span class="subxComment"># write-slice(*Trace-stream, l2)</span> +<span id="L2259" class="LineNr">2259 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2260" class="LineNr">2260 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2261" class="LineNr">2261 </span> 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="L2262" class="LineNr">2262 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2263" class="LineNr">2263 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 +<span id="L2264" class="LineNr">2264 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2265" class="LineNr">2265 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2266" class="LineNr">2266 </span> <span class="subxComment"># write(*Trace-stream, s3)</span> +<span id="L2267" class="LineNr">2267 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2268" class="LineNr">2268 </span> ff 6/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="L2269" class="LineNr">2269 </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="L2270" class="LineNr">2270 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2271" class="LineNr">2271 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2272" class="LineNr">2272 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2273" class="LineNr">2273 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2274" class="LineNr">2274 </span> <span class="subxComment"># write-int32-hex(*Trace-stream, n4)</span> +<span id="L2275" class="LineNr">2275 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2276" class="LineNr">2276 </span> ff 6/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="L2277" class="LineNr">2277 </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="L2278" class="LineNr">2278 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2279" class="LineNr">2279 </span> e8/call <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 +<span id="L2280" class="LineNr">2280 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2281" class="LineNr">2281 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2282" class="LineNr">2282 </span> <span class="subxComment"># trace(s5) # implicitly adds a newline and finalizes the trace line</span> +<span id="L2283" class="LineNr">2283 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2284" class="LineNr">2284 </span> ff 6/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="L2285" class="LineNr">2285 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2286" class="LineNr">2286 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L2287" class="LineNr">2287 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2288" class="LineNr">2288 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2289" class="LineNr">2289 </span><span class="Constant">$trace-slsns:end</span>: +<span id="L2290" class="LineNr">2290 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2291" class="LineNr">2291 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2292" class="LineNr">2292 </span> 5d/pop-to-ebp +<span id="L2293" class="LineNr">2293 </span> c3/return +<span id="L2294" class="LineNr">2294 </span> +<span id="L2295" class="LineNr">2295 </span><span class="subxTest">test-trace-slsns</span>: +<span id="L2296" class="LineNr">2296 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2297" class="LineNr">2297 </span> 55/push-ebp +<span id="L2298" class="LineNr">2298 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2299" class="LineNr">2299 </span> <span class="subxComment"># setup</span> +<span id="L2300" class="LineNr">2300 </span> <span class="subxS1Comment"># . *Trace-stream->write = 0</span> +<span id="L2301" class="LineNr">2301 </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="L2302" class="LineNr">2302 </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="L2303" class="LineNr">2303 </span> <span class="subxComment"># (eax..ecx) = "b"</span> +<span id="L2304" class="LineNr">2304 </span> b8/copy-to-eax <span class="Constant">"b"</span>/imm32 +<span id="L2305" class="LineNr">2305 </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="L2306" class="LineNr">2306 </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="L2307" class="LineNr">2307 </span> 05/add-to-eax 4/imm32 +<span id="L2308" class="LineNr">2308 </span> <span class="subxComment"># var b/ebx: slice = {eax, ecx}</span> +<span id="L2309" class="LineNr">2309 </span> 51/push-ecx +<span id="L2310" class="LineNr">2310 </span> 50/push-eax +<span id="L2311" class="LineNr">2311 </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="L2312" class="LineNr">2312 </span> <span class="subxComment"># trace-slsls("A" b "c " 3 " e")</span> +<span id="L2313" class="LineNr">2313 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2314" class="LineNr">2314 </span> 68/push <span class="Constant">" e"</span>/imm32 +<span id="L2315" class="LineNr">2315 </span> 68/push 3/imm32 +<span id="L2316" class="LineNr">2316 </span> 68/push <span class="Constant">"c "</span>/imm32 +<span id="L2317" class="LineNr">2317 </span> 53/push-ebx +<span id="L2318" class="LineNr">2318 </span> 68/push <span class="Constant">"A"</span>/imm32 +<span id="L2319" class="LineNr">2319 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2320" class="LineNr">2320 </span> e8/call <a href='labels_baremetal.subx.html#L2246'>trace-slsns</a>/disp32 +<span id="L2321" class="LineNr">2321 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2322" class="LineNr">2322 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L2323" class="Folded">2323 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2349" class="LineNr">2349 </span> <span class="subxComment"># check-trace-contains("Abc 0x00000003 e")</span> +<span id="L2350" class="LineNr">2350 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2351" class="LineNr">2351 </span> 68/push <span class="Constant">"F - test-trace-slsls"</span>/imm32 +<span id="L2352" class="LineNr">2352 </span> 68/push <span class="Constant">"Abc 0x00000003 e"</span>/imm32 +<span id="L2353" class="LineNr">2353 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2354" class="LineNr">2354 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L2355" class="LineNr">2355 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2356" class="LineNr">2356 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2357" class="LineNr">2357 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2358" class="LineNr">2358 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2359" class="LineNr">2359 </span> 5d/pop-to-ebp +<span id="L2360" class="LineNr">2360 </span> c3/return +<span id="L2361" class="LineNr">2361 </span> +<span id="L2362" class="LineNr">2362 </span><span class="subxFunction">num-bytes</span>: <span class="subxComment"># line: (addr stream byte) -> eax: int</span> +<span id="L2363" class="LineNr">2363 </span> <span class="subxComment"># pseudocode:</span> +<span id="L2364" class="LineNr">2364 </span> <span class="subxComment"># result = 0</span> +<span id="L2365" class="LineNr">2365 </span> <span class="subxComment"># while true</span> +<span id="L2366" class="LineNr">2366 </span> <span class="subxComment"># var word-slice = next-word(line)</span> +<span id="L2367" class="LineNr">2367 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L2368" class="LineNr">2368 </span> <span class="subxComment"># break</span> +<span id="L2369" class="LineNr">2369 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L2370" class="LineNr">2370 </span> <span class="subxComment"># break</span> +<span id="L2371" class="LineNr">2371 </span> <span class="subxComment"># if label?(word-slice) # no need for label declarations anymore</span> +<span id="L2372" class="LineNr">2372 </span> <span class="subxComment"># break</span> +<span id="L2373" class="LineNr">2373 </span> <span class="subxComment"># if slice-equal?(word-slice, "==")</span> +<span id="L2374" class="LineNr">2374 </span> <span class="subxComment"># break # no need for segment header lines</span> +<span id="L2375" class="LineNr">2375 </span> <span class="subxComment"># result += compute-width(word-slice)</span> +<span id="L2376" class="LineNr">2376 </span> <span class="subxComment"># return result</span> +<span id="L2377" class="LineNr">2377 </span> <span class="subxComment">#</span> +<span id="L2378" class="LineNr">2378 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2379" class="LineNr">2379 </span> 55/push-ebp +<span id="L2380" class="LineNr">2380 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2381" class="LineNr">2381 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2382" class="LineNr">2382 </span> 51/push-ecx +<span id="L2383" class="LineNr">2383 </span> 52/push-edx +<span id="L2384" class="LineNr">2384 </span> 53/push-ebx +<span id="L2385" class="LineNr">2385 </span> <span class="subxComment"># var result/eax = 0</span> +<span id="L2386" class="LineNr">2386 </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="L2387" class="LineNr">2387 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L2388" class="LineNr">2388 </span> 68/push 0/imm32/end +<span id="L2389" class="LineNr">2389 </span> 68/push 0/imm32/start +<span id="L2390" class="LineNr">2390 </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="L2391" class="Folded">2391 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2417" class="LineNr">2417 </span> <span class="subxS1Comment"># . rewind-stream(line)</span> +<span id="L2418" class="LineNr">2418 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2419" class="LineNr">2419 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2420" class="LineNr">2420 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2421" class="LineNr">2421 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</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> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2424" class="LineNr">2424 </span><span class="Constant">$num-bytes:loop</span>: +<span id="L2425" class="LineNr">2425 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L2426" class="LineNr">2426 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2427" class="LineNr">2427 </span> 51/push-ecx +<span id="L2428" class="LineNr">2428 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2429" class="LineNr">2429 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2430" class="LineNr">2430 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L2431" class="LineNr">2431 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2432" class="LineNr">2432 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2433" class="Folded">2433 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2473" class="LineNr">2473 </span><span class="Constant">$num-bytes:check0</span>: +<span id="L2474" class="LineNr">2474 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L2475" class="LineNr">2475 </span> <span class="subxS1Comment"># . save result</span> +<span id="L2476" class="LineNr">2476 </span> 50/push-eax +<span id="L2477" class="LineNr">2477 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L2478" class="LineNr">2478 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2479" class="LineNr">2479 </span> 51/push-ecx +<span id="L2480" class="LineNr">2480 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2481" class="LineNr">2481 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2482" class="LineNr">2482 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2483" class="LineNr">2483 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2484" class="LineNr">2484 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L2485" class="LineNr">2485 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2486" class="LineNr">2486 </span> <span class="subxS1Comment"># . restore result now that ZF is set</span> +<span id="L2487" class="LineNr">2487 </span> 58/pop-to-eax +<span id="L2488" class="LineNr">2488 </span> 75/jump-if-!= $num-bytes:end/disp8 +<span id="L2489" class="LineNr">2489 </span><span class="Constant">$num-bytes:check-for-comment</span>: +<span id="L2490" class="LineNr">2490 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L2491" class="LineNr">2491 </span> <span class="subxS1Comment"># . start/edx = word-slice->start</span> +<span id="L2492" class="LineNr">2492 </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="L2493" class="LineNr">2493 </span> <span class="subxS1Comment"># . c/ebx = *start</span> +<span id="L2494" class="LineNr">2494 </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="L2495" class="LineNr">2495 </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="L2496" class="LineNr">2496 </span> <span class="subxS1Comment"># . if (ebx == '#') break</span> +<span id="L2497" class="LineNr">2497 </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="L2498" class="LineNr">2498 </span> 74/jump-if-= $num-bytes:end/disp8 +<span id="L2499" class="LineNr">2499 </span><span class="Constant">$num-bytes:check-for-label</span>: +<span id="L2500" class="LineNr">2500 </span> <span class="subxComment"># if (slice-ends-with?(word-slice, ":")) break</span> +<span id="L2501" class="LineNr">2501 </span> <span class="subxS1Comment"># . end/edx = word-slice->end</span> +<span id="L2502" class="LineNr">2502 </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="L2503" class="LineNr">2503 </span> <span class="subxS1Comment"># . c/ebx = *(end-1)</span> +<span id="L2504" class="LineNr">2504 </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="L2505" class="LineNr">2505 </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="L2506" class="LineNr">2506 </span> <span class="subxS1Comment"># . if (ebx == ':') break</span> +<span id="L2507" class="LineNr">2507 </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="L2508" class="LineNr">2508 </span> 74/jump-if-= $num-bytes:end/disp8 +<span id="L2509" class="LineNr">2509 </span><span class="Constant">$num-bytes:check-for-segment-header</span>: +<span id="L2510" class="LineNr">2510 </span> <span class="subxComment"># if (slice-equal?(word-slice, "==")) break</span> +<span id="L2511" class="LineNr">2511 </span> <span class="subxS1Comment"># . push result</span> +<span id="L2512" class="LineNr">2512 </span> 50/push-eax +<span id="L2513" class="LineNr">2513 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> +<span id="L2514" class="LineNr">2514 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2515" class="LineNr">2515 </span> 68/push <span class="Constant">"=="</span>/imm32 +<span id="L2516" class="LineNr">2516 </span> 51/push-ecx +<span id="L2517" class="LineNr">2517 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2518" class="LineNr">2518 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2519" class="LineNr">2519 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2520" class="LineNr">2520 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2521" class="LineNr">2521 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L2522" class="LineNr">2522 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2523" class="LineNr">2523 </span> <span class="subxS1Comment"># . restore result now that ZF is set</span> +<span id="L2524" class="LineNr">2524 </span> 58/pop-to-eax +<span id="L2525" class="LineNr">2525 </span> 75/jump-if-!= $num-bytes:end/disp8 +<span id="L2526" class="LineNr">2526 </span><span class="Constant">$num-bytes:loop-body</span>: +<span id="L2527" class="LineNr">2527 </span> <span class="subxComment"># result += compute-width-of-slice(word-slice)</span> +<span id="L2528" class="LineNr">2528 </span> <span class="subxS1Comment"># . copy result to edx</span> +<span id="L2529" class="LineNr">2529 </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="L2530" class="LineNr">2530 </span> <span class="subxS1Comment"># . eax = compute-width-of-slice(word-slice)</span> +<span id="L2531" class="LineNr">2531 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2532" class="LineNr">2532 </span> 51/push-ecx +<span id="L2533" class="LineNr">2533 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2534" class="LineNr">2534 </span> e8/call <a href='133subx-widths.subx.html#L45'>compute-width-of-slice</a>/disp32 +<span id="L2535" class="LineNr">2535 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2536" class="LineNr">2536 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2537" class="LineNr">2537 </span> <span class="subxS1Comment"># . eax += result</span> +<span id="L2538" class="LineNr">2538 </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="L2539" class="LineNr">2539 </span> e9/jump $num-bytes:<span class="Constant">loop</span>/disp32 +<span id="L2540" class="LineNr">2540 </span><span class="Constant">$num-bytes:end</span>: +<span id="L2541" class="LineNr">2541 </span> <span class="subxS1Comment"># . rewind-stream(line)</span> +<span id="L2542" class="LineNr">2542 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2543" class="LineNr">2543 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2544" class="LineNr">2544 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2545" class="LineNr">2545 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</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> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2548" class="LineNr">2548 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L2549" class="LineNr">2549 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2550" class="LineNr">2550 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2551" class="LineNr">2551 </span> 5b/pop-to-ebx +<span id="L2552" class="LineNr">2552 </span> 5a/pop-to-edx +<span id="L2553" class="LineNr">2553 </span> 59/pop-to-ecx +<span id="L2554" class="LineNr">2554 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2555" class="LineNr">2555 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2556" class="LineNr">2556 </span> 5d/pop-to-ebp +<span id="L2557" class="LineNr">2557 </span> c3/return +<span id="L2558" class="LineNr">2558 </span> +<span id="L2559" class="LineNr">2559 </span><span class="subxTest">test-num-bytes-handles-empty-string</span>: +<span id="L2560" class="LineNr">2560 </span> <span class="subxComment"># if a line starts with '#', return 0</span> +<span id="L2561" class="LineNr">2561 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2562" class="LineNr">2562 </span> 55/push-ebp +<span id="L2563" class="LineNr">2563 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2564" class="LineNr">2564 </span> <span class="subxComment"># setup</span> +<span id="L2565" class="LineNr">2565 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2566" class="LineNr">2566 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2567" class="LineNr">2567 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2568" class="LineNr">2568 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2569" class="LineNr">2569 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2570" class="LineNr">2570 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2571" class="LineNr">2571 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2572" class="LineNr">2572 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2573" class="LineNr">2573 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2574" class="LineNr">2574 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2575" class="LineNr">2575 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2576" class="LineNr">2576 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2577" class="LineNr">2577 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2578" class="LineNr">2578 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2579" class="LineNr">2579 </span> <span class="subxComment"># no contents in input</span> +<span id="L2580" class="LineNr">2580 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L2581" class="LineNr">2581 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2582" class="LineNr">2582 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2583" class="LineNr">2583 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2584" class="LineNr">2584 </span> e8/call <a href='labels_baremetal.subx.html#L2362'>num-bytes</a>/disp32 +<span id="L2585" class="LineNr">2585 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2586" class="LineNr">2586 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2587" class="LineNr">2587 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L2588" class="LineNr">2588 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2589" class="LineNr">2589 </span> 68/push <span class="Constant">"F - test-num-bytes-handles-empty-string"</span>/imm32 +<span id="L2590" class="LineNr">2590 </span> 68/push 0/imm32/true +<span id="L2591" class="LineNr">2591 </span> 50/push-eax +<span id="L2592" class="LineNr">2592 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2593" class="LineNr">2593 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2594" class="LineNr">2594 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2595" class="LineNr">2595 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2596" class="LineNr">2596 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2597" class="LineNr">2597 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2598" class="LineNr">2598 </span> 5d/pop-to-ebp +<span id="L2599" class="LineNr">2599 </span> c3/return +<span id="L2600" class="LineNr">2600 </span> +<span id="L2601" class="LineNr">2601 </span><span class="subxTest">test-num-bytes-ignores-comments</span>: +<span id="L2602" class="LineNr">2602 </span> <span class="subxComment"># if a line starts with '#', return 0</span> +<span id="L2603" class="LineNr">2603 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2604" class="LineNr">2604 </span> 55/push-ebp +<span id="L2605" class="LineNr">2605 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2606" class="LineNr">2606 </span> <span class="subxComment"># setup</span> +<span id="L2607" class="LineNr">2607 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2608" class="LineNr">2608 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2609" class="LineNr">2609 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2610" class="LineNr">2610 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2611" class="LineNr">2611 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</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> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2614" class="LineNr">2614 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2615" class="LineNr">2615 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2616" class="LineNr">2616 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2617" class="LineNr">2617 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2618" class="LineNr">2618 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2619" class="LineNr">2619 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2620" class="LineNr">2620 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2621" class="LineNr">2621 </span> <span class="subxComment"># initialize input</span> +<span id="L2622" class="LineNr">2622 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# abcd")</span> +<span id="L2623" class="LineNr">2623 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2624" class="LineNr">2624 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 +<span id="L2625" class="LineNr">2625 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2626" class="LineNr">2626 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2627" class="LineNr">2627 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2628" class="LineNr">2628 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2629" class="LineNr">2629 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2630" class="LineNr">2630 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L2631" class="LineNr">2631 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2632" class="LineNr">2632 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2633" class="LineNr">2633 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2634" class="LineNr">2634 </span> e8/call <a href='labels_baremetal.subx.html#L2362'>num-bytes</a>/disp32 +<span id="L2635" class="LineNr">2635 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2636" class="LineNr">2636 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2637" class="LineNr">2637 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L2638" class="LineNr">2638 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2639" class="LineNr">2639 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-comments"</span>/imm32 +<span id="L2640" class="LineNr">2640 </span> 68/push 0/imm32/true +<span id="L2641" class="LineNr">2641 </span> 50/push-eax +<span id="L2642" class="LineNr">2642 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2643" class="LineNr">2643 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2644" class="LineNr">2644 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2645" class="LineNr">2645 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2646" class="LineNr">2646 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2647" class="LineNr">2647 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2648" class="LineNr">2648 </span> 5d/pop-to-ebp +<span id="L2649" class="LineNr">2649 </span> c3/return +<span id="L2650" class="LineNr">2650 </span> +<span id="L2651" class="LineNr">2651 </span><span class="subxTest">test-num-bytes-ignores-labels</span>: +<span id="L2652" class="LineNr">2652 </span> <span class="subxComment"># if the first word ends with ':', return 0</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="subxComment"># setup</span> +<span id="L2657" class="LineNr">2657 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2658" class="LineNr">2658 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2659" class="LineNr">2659 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2660" class="LineNr">2660 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2661" class="LineNr">2661 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2662" class="LineNr">2662 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2663" class="LineNr">2663 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2664" class="LineNr">2664 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2665" class="LineNr">2665 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2666" class="LineNr">2666 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2667" class="LineNr">2667 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2668" class="LineNr">2668 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2669" class="LineNr">2669 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2670" class="LineNr">2670 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2671" class="LineNr">2671 </span> <span class="subxComment"># initialize input</span> +<span id="L2672" class="LineNr">2672 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab: # cd")</span> +<span id="L2673" class="LineNr">2673 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2674" class="LineNr">2674 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 +<span id="L2675" class="LineNr">2675 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2676" class="LineNr">2676 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2677" class="LineNr">2677 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2678" class="LineNr">2678 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2679" class="LineNr">2679 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2680" class="LineNr">2680 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L2681" class="LineNr">2681 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2682" class="LineNr">2682 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2683" class="LineNr">2683 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2684" class="LineNr">2684 </span> e8/call <a href='labels_baremetal.subx.html#L2362'>num-bytes</a>/disp32 +<span id="L2685" class="LineNr">2685 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2686" class="LineNr">2686 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2687" class="LineNr">2687 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L2688" class="LineNr">2688 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2689" class="LineNr">2689 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-labels"</span>/imm32 +<span id="L2690" class="LineNr">2690 </span> 68/push 0/imm32/true +<span id="L2691" class="LineNr">2691 </span> 50/push-eax +<span id="L2692" class="LineNr">2692 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2693" class="LineNr">2693 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2694" class="LineNr">2694 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2695" class="LineNr">2695 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2696" class="LineNr">2696 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2697" class="LineNr">2697 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2698" class="LineNr">2698 </span> 5d/pop-to-ebp +<span id="L2699" class="LineNr">2699 </span> c3/return +<span id="L2700" class="LineNr">2700 </span> +<span id="L2701" class="LineNr">2701 </span><span class="subxTest">test-num-bytes-ignores-segment-headers</span>: +<span id="L2702" class="LineNr">2702 </span> <span class="subxComment"># if the first word is '==', return 0</span> +<span id="L2703" class="LineNr">2703 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2704" class="LineNr">2704 </span> 55/push-ebp +<span id="L2705" class="LineNr">2705 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2706" class="LineNr">2706 </span> <span class="subxComment"># setup</span> +<span id="L2707" class="LineNr">2707 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2708" class="LineNr">2708 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2709" class="LineNr">2709 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2710" class="LineNr">2710 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2711" class="LineNr">2711 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2712" class="LineNr">2712 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2713" class="LineNr">2713 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2714" class="LineNr">2714 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2715" class="LineNr">2715 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2716" class="LineNr">2716 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2717" class="LineNr">2717 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2718" class="LineNr">2718 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2719" class="LineNr">2719 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2720" class="LineNr">2720 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2721" class="LineNr">2721 </span> <span class="subxComment"># initialize input</span> +<span id="L2722" class="LineNr">2722 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== ab cd")</span> +<span id="L2723" class="LineNr">2723 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2724" class="LineNr">2724 </span> 68/push <span class="Constant">"== ab cd"</span>/imm32 +<span id="L2725" class="LineNr">2725 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2726" class="LineNr">2726 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2727" class="LineNr">2727 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2728" class="LineNr">2728 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2729" class="LineNr">2729 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2730" class="LineNr">2730 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L2731" class="LineNr">2731 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2732" class="LineNr">2732 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2733" class="LineNr">2733 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2734" class="LineNr">2734 </span> e8/call <a href='labels_baremetal.subx.html#L2362'>num-bytes</a>/disp32 +<span id="L2735" class="LineNr">2735 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2736" class="LineNr">2736 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2737" class="LineNr">2737 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L2738" class="LineNr">2738 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2739" class="LineNr">2739 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-segment-headers"</span>/imm32 +<span id="L2740" class="LineNr">2740 </span> 68/push 0/imm32/true +<span id="L2741" class="LineNr">2741 </span> 50/push-eax +<span id="L2742" class="LineNr">2742 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2743" class="LineNr">2743 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2744" class="LineNr">2744 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2745" class="LineNr">2745 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2746" class="LineNr">2746 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2747" class="LineNr">2747 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2748" class="LineNr">2748 </span> 5d/pop-to-ebp +<span id="L2749" class="LineNr">2749 </span> c3/return +<span id="L2750" class="LineNr">2750 </span> +<span id="L2751" class="LineNr">2751 </span><span class="subxTest">test-num-bytes-counts-words-by-default</span>: +<span id="L2752" class="LineNr">2752 </span> <span class="subxComment"># without metadata, count words</span> +<span id="L2753" class="LineNr">2753 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2754" class="LineNr">2754 </span> 55/push-ebp +<span id="L2755" class="LineNr">2755 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2756" class="LineNr">2756 </span> <span class="subxComment"># setup</span> +<span id="L2757" class="LineNr">2757 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2758" class="LineNr">2758 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2759" class="LineNr">2759 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2760" class="LineNr">2760 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2761" class="LineNr">2761 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2762" class="LineNr">2762 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2763" class="LineNr">2763 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2764" class="LineNr">2764 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2765" class="LineNr">2765 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2766" class="LineNr">2766 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2767" class="LineNr">2767 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2768" class="LineNr">2768 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2769" class="LineNr">2769 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2770" class="LineNr">2770 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2771" class="LineNr">2771 </span> <span class="subxComment"># initialize input</span> +<span id="L2772" class="LineNr">2772 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef")</span> +<span id="L2773" class="LineNr">2773 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2774" class="LineNr">2774 </span> 68/push <span class="Constant">"ab cd ef"</span>/imm32 +<span id="L2775" class="LineNr">2775 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2776" class="LineNr">2776 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2777" class="LineNr">2777 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2778" class="LineNr">2778 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2779" class="LineNr">2779 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2780" class="LineNr">2780 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L2781" class="LineNr">2781 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2782" class="LineNr">2782 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2783" class="LineNr">2783 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2784" class="LineNr">2784 </span> e8/call <a href='labels_baremetal.subx.html#L2362'>num-bytes</a>/disp32 +<span id="L2785" class="LineNr">2785 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2786" class="LineNr">2786 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2787" class="LineNr">2787 </span> <span class="subxComment"># check-ints-equal(eax, 3, msg)</span> +<span id="L2788" class="LineNr">2788 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2789" class="LineNr">2789 </span> 68/push <span class="Constant">"F - test-num-bytes-counts-words-by-default"</span>/imm32 +<span id="L2790" class="LineNr">2790 </span> 68/push 3/imm32/true +<span id="L2791" class="LineNr">2791 </span> 50/push-eax +<span id="L2792" class="LineNr">2792 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2793" class="LineNr">2793 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2794" class="LineNr">2794 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2795" class="LineNr">2795 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2796" class="LineNr">2796 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2797" class="LineNr">2797 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2798" class="LineNr">2798 </span> 5d/pop-to-ebp +<span id="L2799" class="LineNr">2799 </span> c3/return +<span id="L2800" class="LineNr">2800 </span> +<span id="L2801" class="LineNr">2801 </span><span class="subxTest">test-num-bytes-ignores-trailing-comment</span>: +<span id="L2802" class="LineNr">2802 </span> <span class="subxComment"># trailing comments appropriately ignored</span> +<span id="L2803" class="LineNr">2803 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2804" class="LineNr">2804 </span> 55/push-ebp +<span id="L2805" class="LineNr">2805 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2806" class="LineNr">2806 </span> <span class="subxComment"># setup</span> +<span id="L2807" class="LineNr">2807 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2808" class="LineNr">2808 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2809" class="LineNr">2809 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2810" class="LineNr">2810 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2811" class="LineNr">2811 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2812" class="LineNr">2812 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2813" class="LineNr">2813 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2814" class="LineNr">2814 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2815" class="LineNr">2815 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2816" class="LineNr">2816 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2817" class="LineNr">2817 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2818" class="LineNr">2818 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2819" class="LineNr">2819 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2820" class="LineNr">2820 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2821" class="LineNr">2821 </span> <span class="subxComment"># initialize input</span> +<span id="L2822" class="LineNr">2822 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd # ef")</span> +<span id="L2823" class="LineNr">2823 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2824" class="LineNr">2824 </span> 68/push <span class="Constant">"ab cd # ef"</span>/imm32 +<span id="L2825" class="LineNr">2825 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2826" class="LineNr">2826 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2827" class="LineNr">2827 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2828" class="LineNr">2828 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2829" class="LineNr">2829 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2830" class="LineNr">2830 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L2831" class="LineNr">2831 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2832" class="LineNr">2832 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2833" class="LineNr">2833 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2834" class="LineNr">2834 </span> e8/call <a href='labels_baremetal.subx.html#L2362'>num-bytes</a>/disp32 +<span id="L2835" class="LineNr">2835 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2836" class="LineNr">2836 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2837" class="LineNr">2837 </span> <span class="subxComment"># check-ints-equal(eax, 2, msg)</span> +<span id="L2838" class="LineNr">2838 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2839" class="LineNr">2839 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-trailing-comment"</span>/imm32 +<span id="L2840" class="LineNr">2840 </span> 68/push 2/imm32/true +<span id="L2841" class="LineNr">2841 </span> 50/push-eax +<span id="L2842" class="LineNr">2842 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2843" class="LineNr">2843 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2844" class="LineNr">2844 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2845" class="LineNr">2845 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2846" class="LineNr">2846 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2847" class="LineNr">2847 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2848" class="LineNr">2848 </span> 5d/pop-to-ebp +<span id="L2849" class="LineNr">2849 </span> c3/return +<span id="L2850" class="LineNr">2850 </span> +<span id="L2851" class="LineNr">2851 </span><span class="subxTest">test-num-bytes-handles-imm32</span>: +<span id="L2852" class="LineNr">2852 </span> <span class="subxComment"># if a word has the /imm32 metadata, count it as 4 bytes</span> +<span id="L2853" class="LineNr">2853 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2854" class="LineNr">2854 </span> 55/push-ebp +<span id="L2855" class="LineNr">2855 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2856" class="LineNr">2856 </span> <span class="subxComment"># setup</span> +<span id="L2857" class="LineNr">2857 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2858" class="LineNr">2858 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2859" class="LineNr">2859 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2860" class="LineNr">2860 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2861" class="LineNr">2861 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2862" class="LineNr">2862 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2863" class="LineNr">2863 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2864" class="LineNr">2864 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2865" class="LineNr">2865 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2866" class="LineNr">2866 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2867" class="LineNr">2867 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2868" class="LineNr">2868 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2869" class="LineNr">2869 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2870" class="LineNr">2870 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2871" class="LineNr">2871 </span> <span class="subxComment"># initialize input</span> +<span id="L2872" class="LineNr">2872 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd/imm32 ef")</span> +<span id="L2873" class="LineNr">2873 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2874" class="LineNr">2874 </span> 68/push <span class="Constant">"ab cd/imm32 ef"</span>/imm32 +<span id="L2875" class="LineNr">2875 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2876" class="LineNr">2876 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2877" class="LineNr">2877 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2878" class="LineNr">2878 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2879" class="LineNr">2879 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2880" class="LineNr">2880 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L2881" class="LineNr">2881 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2882" class="LineNr">2882 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2883" class="LineNr">2883 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2884" class="LineNr">2884 </span> e8/call <a href='labels_baremetal.subx.html#L2362'>num-bytes</a>/disp32 +<span id="L2885" class="LineNr">2885 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2886" class="LineNr">2886 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2887" class="LineNr">2887 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L2888" class="LineNr">2888 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2889" class="LineNr">2889 </span> 68/push <span class="Constant">"F - test-num-bytes-handles-imm32"</span>/imm32 +<span id="L2890" class="LineNr">2890 </span> 68/push 6/imm32/true +<span id="L2891" class="LineNr">2891 </span> 50/push-eax +<span id="L2892" class="LineNr">2892 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2893" class="LineNr">2893 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2894" class="LineNr">2894 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2895" class="LineNr">2895 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2896" class="LineNr">2896 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2897" class="LineNr">2897 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2898" class="LineNr">2898 </span> 5d/pop-to-ebp +<span id="L2899" class="LineNr">2899 </span> c3/return +<span id="L2900" class="LineNr">2900 </span> +<span id="L2901" class="LineNr">2901 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/linux/mu-init-test.subx.html b/html/linux/mu-init-test.subx.html index cd8f9bb0..924e9513 100644 --- a/html/linux/mu-init-test.subx.html +++ b/html/linux/mu-init-test.subx.html @@ -14,11 +14,11 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.LineNr { } .subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } +.LineNr { } +.subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> </style> diff --git a/html/linux/mu-init.subx.html b/html/linux/mu-init.subx.html index 3c1ea974..da06a6c2 100644 --- a/html/linux/mu-init.subx.html +++ b/html/linux/mu-init.subx.html @@ -14,11 +14,11 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } .LineNr { } .SpecialChar { color: #d70000; } .Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> diff --git a/html/linux/mu.subx.html b/html/linux/mu.subx.html index be2bf838..8361b6de 100644 --- a/html/linux/mu.subx.html +++ b/html/linux/mu.subx.html @@ -14,17 +14,17 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.Folded { color: #080808; background-color: #949494; } .subxH1Comment { color: #005faf; text-decoration: underline; } -.LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } +.subxComment { color: #005faf; } .subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } +.LineNr { } .Constant { color: #008787; } -.subxMinorFunction { color: #875f5f; } .subxTest { color: #5f8700; } +.SpecialChar { color: #d70000; } +.subxMinorFunction { color: #875f5f; } .CommentedCode { color: #8a8a8a; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Folded { color: #080808; background-color: #949494; } --> </style> @@ -478,8 +478,8 @@ if ('onhashchange' in window) { <span id="L416" class="LineNr"> 416 </span> <span class="Constant">"stream"</span>/imm32 <span class="subxComment"># 11</span> <span id="L417" class="LineNr"> 417 </span> <span class="Constant">"slice"</span>/imm32 <span class="subxComment"># 12</span> <span id="L418" class="LineNr"> 418 </span> <span class="Constant">"code-point"</span>/imm32 <span class="subxComment"># 13; smallest scannable unit from a text stream</span> -<span id="L419" class="LineNr"> 419 </span> <span class="Constant">"grapheme"</span>/imm32 <span class="subxComment"># 14; smallest printable unit; will eventually be composed of multiple code-points, but currently corresponds 1:1</span> -<span id="L420" class="LineNr"> 420 </span> <span class="subxComment"># only 4-byte graphemes in utf-8 are currently supported;</span> +<span id="L419" class="LineNr"> 419 </span> <span class="Constant">"code-point-utf8"</span>/imm32 <span class="subxComment"># 14; smallest printable unit; will eventually be composed of multiple code-points, but currently corresponds 1:1</span> +<span id="L420" class="LineNr"> 420 </span> <span class="subxComment"># only 4-byte code-point-utf8s in utf-8 are currently supported;</span> <span id="L421" class="LineNr"> 421 </span> <span class="subxComment"># unclear how we should deal with larger clusters.</span> <span id="L422" class="LineNr"> 422 </span> <span class="Constant">"float"</span>/imm32 <span class="subxComment"># 15</span> <span id="L423" class="LineNr"> 423 </span> <span class="subxComment"># 0x40</span> @@ -555,7 +555,7 @@ if ('onhashchange' in window) { <span id="L493" class="LineNr"> 493 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 <span id="L494" class="LineNr"> 494 </span> <span class="subxComment">#</span> <span id="L495" class="LineNr"> 495 </span> (run-tests) -<span id="L496" class="LineNr"> 496 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L496" class="LineNr"> 496 </span> <span class="subxComment"># syscall_exit(*Num-test-failures)</span> <span id="L497" class="LineNr"> 497 </span> 8b/-> *<span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx <span id="L498" class="LineNr"> 498 </span> eb/jump $mu-main:end/disp8 <span id="L499" class="LineNr"> 499 </span> } @@ -563,7 +563,7 @@ if ('onhashchange' in window) { <span id="L501" class="LineNr"> 501 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span> <span class="Constant">"== code\n"</span>) <span id="L502" class="LineNr"> 502 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span> <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L503" class="LineNr"> 503 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>) -<span id="L504" class="LineNr"> 504 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L504" class="LineNr"> 504 </span> <span class="subxComment"># syscall_exit(0)</span> <span id="L505" class="LineNr"> 505 </span> bb/copy-to-ebx 0/imm32 <span id="L506" class="LineNr"> 506 </span><span class="Constant">$mu-main:end</span>: <span id="L507" class="LineNr"> 507 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 @@ -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#L15736'>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#L15871'>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#L15744'>parse-mu</a> *(ebp+8) *(ebp+0x10) *(ebp+0x14)) -<span id="L527" class="LineNr"> 527 </span> (<a href='mu.subx.html#L20792'>populate-mu-type-sizes</a> *(ebp+0x10) *(ebp+0x14)) +<span id="L526" class="LineNr"> 526 </span> (<a href='mu.subx.html#L15879'>parse-mu</a> *(ebp+8) *(ebp+0x10) *(ebp+0x14)) +<span id="L527" class="LineNr"> 527 </span> (<a href='mu.subx.html#L20967'>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#L21321'>check-mu-types</a> *(ebp+0x10) *(ebp+0x14)) -<span id="L530" class="LineNr"> 530 </span> (<a href='mu.subx.html#L27008'>emit-subx</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L529" class="LineNr"> 529 </span> (<a href='mu.subx.html#L21496'>check-mu-types</a> *(ebp+0x10) *(ebp+0x14)) +<span id="L530" class="LineNr"> 530 </span> (<a href='mu.subx.html#L27183'>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 @@ -632,7 +632,7 @@ if ('onhashchange' in window) { <span id="L570" class="LineNr"> 570 </span> <span class="subxComment"># convert</span> <span id="L571" class="LineNr"> 571 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L572" class="LineNr"> 572 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L573" class="Folded"> 573 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L573" class="Folded"> 573 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L579" class="LineNr"> 579 </span> <span class="subxComment"># check output</span> <span id="L580" class="LineNr"> 580 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L558'>test-convert-function-skeleton</a>/0"</span>) <span id="L581" class="LineNr"> 581 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-skeleton/1"</span>) @@ -664,7 +664,7 @@ if ('onhashchange' in window) { <span id="L607" class="LineNr"> 607 </span> <span class="subxComment"># convert</span> <span id="L608" class="LineNr"> 608 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L609" class="LineNr"> 609 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L610" class="Folded"> 610 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L610" class="Folded"> 610 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L616" class="LineNr"> 616 </span> <span class="subxComment"># check first function</span> <span id="L617" class="LineNr"> 617 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L593'>test-convert-multiple-function-skeletons</a>/0"</span>) <span id="L618" class="LineNr"> 618 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-multiple-function-skeletons/1"</span>) @@ -703,7 +703,7 @@ if ('onhashchange' in window) { <span id="L651" class="LineNr"> 651 </span> <span class="subxComment"># convert</span> <span id="L652" class="LineNr"> 652 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L653" class="LineNr"> 653 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L654" class="Folded"> 654 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L654" class="Folded"> 654 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L660" class="LineNr"> 660 </span> <span class="subxComment"># check output</span> <span id="L661" class="LineNr"> 661 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L639'>test-convert-function-with-arg</a>/0"</span>) <span id="L662" class="LineNr"> 662 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-arg/1"</span>) @@ -746,7 +746,7 @@ if ('onhashchange' in window) { <span id="L699" class="LineNr"> 699 </span> 89/<- %edx 4/r32/esp <span id="L700" class="LineNr"> 700 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L701" class="LineNr"> 701 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L702" class="Folded"> 702 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L702" class="Folded"> 702 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L708" class="LineNr"> 708 </span> <span class="subxComment"># check output</span> <span id="L709" class="LineNr"> 709 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L674'>test-function-with-redefined-name</a>: output should be empty"</span>) <span id="L710" class="LineNr"> 710 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo defined more than once"</span> <span class="Constant">"F - <a href='mu.subx.html#L674'>test-function-with-redefined-name</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -785,7 +785,7 @@ if ('onhashchange' in window) { <span id="L743" class="LineNr"> 743 </span> 89/<- %edx 4/r32/esp <span id="L744" class="LineNr"> 744 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L745" class="LineNr"> 745 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L746" class="Folded"> 746 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L746" class="Folded"> 746 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L752" class="LineNr"> 752 </span> <span class="subxComment"># check output</span> <span id="L753" class="LineNr"> 753 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L719'>test-function-with-redefined-name-2</a>: output should be empty"</span>) <span id="L754" class="LineNr"> 754 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo defined more than once"</span> <span class="Constant">"F - <a href='mu.subx.html#L719'>test-function-with-redefined-name-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -824,7 +824,7 @@ if ('onhashchange' in window) { <span id="L787" class="LineNr"> 787 </span> 89/<- %edx 4/r32/esp <span id="L788" class="LineNr"> 788 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L789" class="LineNr"> 789 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L790" class="Folded"> 790 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L790" class="Folded"> 790 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L796" class="LineNr"> 796 </span> <span class="subxComment"># check output</span> <span id="L797" class="LineNr"> 797 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L763'>test-function-with-redefined-name-3</a>: output should be empty"</span>) <span id="L798" class="LineNr"> 798 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo defined more than once"</span> <span class="Constant">"F - <a href='mu.subx.html#L763'>test-function-with-redefined-name-3</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -862,7 +862,7 @@ if ('onhashchange' in window) { <span id="L830" class="LineNr"> 830 </span> 89/<- %edx 4/r32/esp <span id="L831" class="LineNr"> 831 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L832" class="LineNr"> 832 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L833" class="Folded"> 833 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L833" class="Folded"> 833 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L839" class="LineNr"> 839 </span> <span class="subxComment"># check output</span> <span id="L840" class="LineNr"> 840 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L807'>test-function-with-inout-in-register</a>: output should be empty"</span>) <span id="L841" class="LineNr"> 841 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: function inout 'x' cannot be in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L807'>test-function-with-inout-in-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -900,7 +900,7 @@ if ('onhashchange' in window) { <span id="L873" class="LineNr"> 873 </span> 89/<- %edx 4/r32/esp <span id="L874" class="LineNr"> 874 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L875" class="LineNr"> 875 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L876" class="Folded"> 876 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L876" class="Folded"> 876 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L882" class="LineNr"> 882 </span> <span class="subxComment"># check output</span> <span id="L883" class="LineNr"> 883 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L850'>test-function-with-addr-output</a>: output should be empty"</span>) <span id="L884" class="LineNr"> 884 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: output cannot have an addr type; that could allow unsafe addresses to escape the function"</span> <span class="Constant">"F - <a href='mu.subx.html#L850'>test-function-with-addr-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -938,7 +938,7 @@ if ('onhashchange' in window) { <span id="L916" class="LineNr"> 916 </span> 89/<- %edx 4/r32/esp <span id="L917" class="LineNr"> 917 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L918" class="LineNr"> 918 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L919" class="Folded"> 919 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L919" class="Folded"> 919 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L925" class="LineNr"> 925 </span> <span class="subxComment"># check output</span> <span id="L926" class="LineNr"> 926 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L893'>test-function-with-addr-inout</a>: output should be empty"</span>) <span id="L927" class="LineNr"> 927 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: inout 'a' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function"</span> <span class="Constant">"F - <a href='mu.subx.html#L893'>test-function-with-addr-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -976,7 +976,7 @@ if ('onhashchange' in window) { <span id="L959" class="LineNr"> 959 </span> 89/<- %edx 4/r32/esp <span id="L960" class="LineNr"> 960 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L961" class="LineNr"> 961 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L962" class="Folded"> 962 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L962" class="Folded"> 962 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L968" class="LineNr"> 968 </span> <span class="subxComment"># check output</span> <span id="L969" class="LineNr"> 969 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L936'>test-function-with-addr-inout-2</a>: output should be empty"</span>) <span id="L970" class="LineNr"> 970 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: inout 'a' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function"</span> <span class="Constant">"F - <a href='mu.subx.html#L936'>test-function-with-addr-inout-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -1014,7 +1014,7 @@ if ('onhashchange' in window) { <span id="L1002" class="LineNr"> 1002 </span> 89/<- %edx 4/r32/esp <span id="L1003" class="LineNr"> 1003 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L1004" class="LineNr"> 1004 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L1005" class="Folded"> 1005 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1005" class="Folded"> 1005 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1011" class="LineNr"> 1011 </span> <span class="subxComment"># check output</span> <span id="L1012" class="LineNr"> 1012 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L979'>test-function-with-addr-inout-3</a>: output should be empty"</span>) <span id="L1013" class="LineNr"> 1013 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: inout 'a' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function"</span> <span class="Constant">"F - <a href='mu.subx.html#L979'>test-function-with-addr-inout-3</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -1052,7 +1052,7 @@ if ('onhashchange' in window) { <span id="L1045" class="LineNr"> 1045 </span> 89/<- %edx 4/r32/esp <span id="L1046" class="LineNr"> 1046 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L1047" class="LineNr"> 1047 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L1048" class="Folded"> 1048 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1048" class="Folded"> 1048 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1054" class="LineNr"> 1054 </span> <span class="subxComment"># check output</span> <span id="L1055" class="LineNr"> 1055 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1022'>test-function-with-addr-inout-4</a>: output should be empty"</span>) <span id="L1056" class="LineNr"> 1056 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: inout 'a' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function"</span> <span class="Constant">"F - <a href='mu.subx.html#L1022'>test-function-with-addr-inout-4</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -1123,7 +1123,7 @@ if ('onhashchange' in window) { <span id="L1121" class="LineNr"> 1121 </span> <span class="subxComment"># convert</span> <span id="L1122" class="LineNr"> 1122 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L1123" class="LineNr"> 1123 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L1124" class="Folded"> 1124 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1124" class="Folded"> 1124 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1130" class="LineNr"> 1130 </span> <span class="subxComment"># check output</span> <span id="L1131" class="LineNr"> 1131 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1108'>test-convert-function-with-arg-and-body</a>/0"</span>) <span id="L1132" class="LineNr"> 1132 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-arg-and-body/1"</span>) @@ -1159,7 +1159,7 @@ if ('onhashchange' in window) { <span id="L1162" class="LineNr"> 1162 </span> <span class="subxComment"># convert</span> <span id="L1163" class="LineNr"> 1163 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L1164" class="LineNr"> 1164 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L1165" class="Folded"> 1165 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1165" class="Folded"> 1165 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1171" class="LineNr"> 1171 </span> <span class="subxComment"># check output</span> <span id="L1172" class="LineNr"> 1172 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1149'>test-convert-function-distinguishes-args</a>/0"</span>) <span id="L1173" class="LineNr"> 1173 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-distinguishes-args/1"</span>) @@ -1195,7 +1195,7 @@ if ('onhashchange' in window) { <span id="L1203" class="LineNr"> 1203 </span> <span class="subxComment"># convert</span> <span id="L1204" class="LineNr"> 1204 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L1205" class="LineNr"> 1205 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L1206" class="Folded"> 1206 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1206" class="Folded"> 1206 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1212" class="LineNr"> 1212 </span> <span class="subxComment"># check output</span> <span id="L1213" class="LineNr"> 1213 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1190'>test-convert-function-with-return-literal</a>/0"</span>) <span id="L1214" class="LineNr"> 1214 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-literal/1"</span>) @@ -1233,7 +1233,7 @@ if ('onhashchange' in window) { <span id="L1246" class="LineNr"> 1246 </span> <span class="subxComment"># convert</span> <span id="L1247" class="LineNr"> 1247 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L1248" class="LineNr"> 1248 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L1249" class="Folded"> 1249 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1249" class="Folded"> 1249 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1255" class="LineNr"> 1255 </span> <span class="subxComment"># check output</span> <span id="L1256" class="LineNr"> 1256 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1232'>test-convert-function-with-return</a>/0"</span>) <span id="L1257" class="LineNr"> 1257 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return/1"</span>) @@ -1273,7 +1273,7 @@ if ('onhashchange' in window) { <span id="L1291" class="LineNr"> 1291 </span> <span class="subxComment"># convert</span> <span id="L1292" class="LineNr"> 1292 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L1293" class="LineNr"> 1293 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L1294" class="Folded"> 1294 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1294" class="Folded"> 1294 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1300" class="LineNr"> 1300 </span> <span class="subxComment"># check output</span> <span id="L1301" class="LineNr"> 1301 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1232'>test-convert-function-with-return</a>/0"</span>) <span id="L1302" class="LineNr"> 1302 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return/1"</span>) @@ -1313,7 +1313,7 @@ if ('onhashchange' in window) { <span id="L1336" class="LineNr"> 1336 </span> <span class="subxComment"># convert</span> <span id="L1337" class="LineNr"> 1337 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L1338" class="LineNr"> 1338 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L1339" class="Folded"> 1339 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1339" class="Folded"> 1339 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1345" class="LineNr"> 1345 </span> <span class="subxComment"># check output</span> <span id="L1346" class="LineNr"> 1346 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1322'>test-convert-function-with-return-register</a>/0"</span>) <span id="L1347" class="LineNr"> 1347 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-register/1"</span>) @@ -1363,7 +1363,7 @@ if ('onhashchange' in window) { <span id="L1391" class="LineNr"> 1391 </span> 89/<- %edx 4/r32/esp <span id="L1392" class="LineNr"> 1392 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L1393" class="LineNr"> 1393 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L1394" class="Folded"> 1394 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1394" class="Folded"> 1394 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1400" class="LineNr"> 1400 </span> <span class="subxComment"># check output</span> <span id="L1401" class="LineNr"> 1401 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1368'>test-function-with-output-without-register</a>: output should be empty"</span>) <span id="L1402" class="LineNr"> 1402 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: function output '_' must be in a register, in instruction 'fn foo -> _: int {"</span> <span class="Constant">"F - test-function-with-output-without-register: error message"</span>) @@ -1401,7 +1401,7 @@ if ('onhashchange' in window) { <span id="L1434" class="LineNr"> 1434 </span> 89/<- %edx 4/r32/esp <span id="L1435" class="LineNr"> 1435 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L1436" class="LineNr"> 1436 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L1437" class="Folded"> 1437 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1437" class="Folded"> 1437 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1443" class="LineNr"> 1443 </span> <span class="subxComment"># check output</span> <span id="L1444" class="LineNr"> 1444 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1411'>test-function-with-outputs-in-conflicting-registers</a>: output should be empty"</span>) <span id="L1445" class="LineNr"> 1445 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: outputs must be in unique registers"</span> <span class="Constant">"F - <a href='mu.subx.html#L1411'>test-function-with-outputs-in-conflicting-registers</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -1440,7 +1440,7 @@ if ('onhashchange' in window) { <span id="L1478" class="LineNr"> 1478 </span> 89/<- %edx 4/r32/esp <span id="L1479" class="LineNr"> 1479 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L1480" class="LineNr"> 1480 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L1481" class="Folded"> 1481 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1481" class="Folded"> 1481 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1487" class="LineNr"> 1487 </span> <span class="subxComment"># check output</span> <span id="L1488" class="LineNr"> 1488 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1454'>test-function-with-named-output</a>: output should be empty"</span>) <span id="L1489" class="LineNr"> 1489 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: function outputs cannot be named; rename 'x' in the header to '_'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1454'>test-function-with-named-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -1480,7 +1480,7 @@ if ('onhashchange' in window) { <span id="L1523" class="LineNr"> 1523 </span> 89/<- %edx 4/r32/esp <span id="L1524" class="LineNr"> 1524 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L1525" class="LineNr"> 1525 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L1526" class="Folded"> 1526 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1526" class="Folded"> 1526 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1532" class="LineNr"> 1532 </span> <span class="subxComment"># check output</span> <span id="L1533" class="LineNr"> 1533 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1498'>test-return-with-wrong-type</a>: output should be empty"</span>) <span id="L1534" class="LineNr"> 1534 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: return: 'x' has the wrong type"</span> <span class="Constant">"F - <a href='mu.subx.html#L1498'>test-return-with-wrong-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -1519,7 +1519,7 @@ if ('onhashchange' in window) { <span id="L1567" class="LineNr"> 1567 </span> 89/<- %edx 4/r32/esp <span id="L1568" class="LineNr"> 1568 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L1569" class="LineNr"> 1569 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L1570" class="Folded"> 1570 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1570" class="Folded"> 1570 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1576" class="LineNr"> 1576 </span> <span class="subxComment"># check output</span> <span id="L1577" class="LineNr"> 1577 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1543'>test-missing-return</a>: output should be empty"</span>) <span id="L1578" class="LineNr"> 1578 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: final statement should be a 'return'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1543'>test-missing-return</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -1557,7 +1557,7 @@ if ('onhashchange' in window) { <span id="L1610" class="LineNr"> 1610 </span> 89/<- %edx 4/r32/esp <span id="L1611" class="LineNr"> 1611 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L1612" class="LineNr"> 1612 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L1613" class="Folded"> 1613 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1613" class="Folded"> 1613 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1619" class="LineNr"> 1619 </span> <span class="subxComment"># check output</span> <span id="L1620" class="LineNr"> 1620 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1587'>test-missing-return-2</a>: output should be empty"</span>) <span id="L1621" class="LineNr"> 1621 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: final statement should be a 'return'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1587'>test-missing-return-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -1597,7 +1597,7 @@ if ('onhashchange' in window) { <span id="L1655" class="LineNr"> 1655 </span> 89/<- %edx 4/r32/esp <span id="L1656" class="LineNr"> 1656 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L1657" class="LineNr"> 1657 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L1658" class="Folded"> 1658 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1658" class="Folded"> 1658 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1664" class="LineNr"> 1664 </span> <span class="subxComment"># check output</span> <span id="L1665" class="LineNr"> 1665 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1630'>test-early-exit-without-return</a>: output should be empty"</span>) <span id="L1666" class="LineNr"> 1666 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo has outputs, so you cannot 'break' out of the outermost block. Use 'return'."</span> <span class="Constant">"F - <a href='mu.subx.html#L1630'>test-early-exit-without-return</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -1636,7 +1636,7 @@ if ('onhashchange' in window) { <span id="L1699" class="LineNr"> 1699 </span> 89/<- %edx 4/r32/esp <span id="L1700" class="LineNr"> 1700 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L1701" class="LineNr"> 1701 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L1702" class="Folded"> 1702 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1702" class="Folded"> 1702 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1708" class="LineNr"> 1708 </span> <span class="subxComment"># check output</span> <span id="L1709" class="LineNr"> 1709 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1675'>test-return-with-too-few-inouts</a>: output should be empty"</span>) <span id="L1710" class="LineNr"> 1710 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: return: too few inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L1675'>test-return-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -1675,7 +1675,7 @@ if ('onhashchange' in window) { <span id="L1743" class="LineNr"> 1743 </span> 89/<- %edx 4/r32/esp <span id="L1744" class="LineNr"> 1744 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L1745" class="LineNr"> 1745 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L1746" class="Folded"> 1746 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1746" class="Folded"> 1746 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1752" class="LineNr"> 1752 </span> <span class="subxComment"># check output</span> <span id="L1753" class="LineNr"> 1753 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1719'>test-return-with-too-many-inouts</a>: output should be empty"</span>) <span id="L1754" class="LineNr"> 1754 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: return: too many inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L1719'>test-return-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -1716,7 +1716,7 @@ if ('onhashchange' in window) { <span id="L1789" class="LineNr"> 1789 </span> 89/<- %edx 4/r32/esp <span id="L1790" class="LineNr"> 1790 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L1791" class="LineNr"> 1791 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L1792" class="Folded"> 1792 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1792" class="Folded"> 1792 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1798" class="LineNr"> 1798 </span> <span class="subxComment"># check output</span> <span id="L1799" class="LineNr"> 1799 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1763'>test-return-unavailable-value</a>: output should be empty"</span>) <span id="L1800" class="LineNr"> 1800 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: return: 'x' is no longer available"</span> <span class="Constant">"F - <a href='mu.subx.html#L1763'>test-return-unavailable-value</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -1755,7 +1755,7 @@ if ('onhashchange' in window) { <span id="L1833" class="LineNr"> 1833 </span> 89/<- %edx 4/r32/esp <span id="L1834" class="LineNr"> 1834 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L1835" class="LineNr"> 1835 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L1836" class="Folded"> 1836 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1836" class="Folded"> 1836 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1842" class="LineNr"> 1842 </span> <span class="subxComment"># check output</span> <span id="L1843" class="LineNr"> 1843 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1809'>test-return-literal-to-float</a>: output should be empty"</span>) <span id="L1844" class="LineNr"> 1844 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: return: cannot copy literal '0' to float"</span> <span class="Constant">"F - <a href='mu.subx.html#L1809'>test-return-literal-to-float</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -1784,7 +1784,7 @@ if ('onhashchange' in window) { <span id="L1867" class="LineNr"> 1867 </span> <span class="subxComment"># convert</span> <span id="L1868" class="LineNr"> 1868 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L1869" class="LineNr"> 1869 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L1870" class="Folded"> 1870 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1870" class="Folded"> 1870 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1876" class="LineNr"> 1876 </span> <span class="subxComment"># check output</span> <span id="L1877" class="LineNr"> 1877 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1853'>test-convert-return-with-duplicate-values</a>/0"</span>) <span id="L1878" class="LineNr"> 1878 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-return-with-duplicate-values/1"</span>) @@ -1826,7 +1826,7 @@ if ('onhashchange' in window) { <span id="L1914" class="LineNr"> 1914 </span> <span class="subxComment"># convert</span> <span id="L1915" class="LineNr"> 1915 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L1916" class="LineNr"> 1916 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L1917" class="Folded"> 1917 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1917" class="Folded"> 1917 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1923" class="LineNr"> 1923 </span> <span class="subxComment"># check output</span> <span id="L1924" class="LineNr"> 1924 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1900'>test-convert-return-with-duplicate-values-2</a>/0"</span>) <span id="L1925" class="LineNr"> 1925 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-return-with-duplicate-values-2/1"</span>) @@ -1878,7 +1878,7 @@ if ('onhashchange' in window) { <span id="L1971" class="LineNr"> 1971 </span> 89/<- %edx 4/r32/esp <span id="L1972" class="LineNr"> 1972 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L1973" class="LineNr"> 1973 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L1974" class="Folded"> 1974 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1974" class="Folded"> 1974 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1980" class="LineNr"> 1980 </span> <span class="subxComment"># check output</span> <span id="L1981" class="LineNr"> 1981 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1947'>test-stmt-with-unknown-var</a>: output should be empty"</span>) <span id="L1982" class="LineNr"> 1982 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1947'>test-stmt-with-unknown-var</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) @@ -1890,7 +1890,7 @@ if ('onhashchange' in window) { <span id="L1988" class="LineNr"> 1988 </span> 5d/pop-to-ebp <span id="L1989" class="LineNr"> 1989 </span> c3/return <span id="L1990" class="LineNr"> 1990 </span> -<span id="L1991" class="LineNr"> 1991 </span><span class="subxTest">test-stmt-with-invalid-identifier</span>: +<span id="L1991" class="LineNr"> 1991 </span><span class="subxTest">test-stmt-with-missing-var-keyword</span>: <span id="L1992" class="LineNr"> 1992 </span> <span class="subxS1Comment"># . prologue</span> <span id="L1993" class="LineNr"> 1993 </span> 55/push-ebp <span id="L1994" class="LineNr"> 1994 </span> 89/<- %ebp 4/r32/esp @@ -1908,7 +1908,7 @@ if ('onhashchange' in window) { <span id="L2006" class="LineNr"> 2006 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L2007" class="LineNr"> 2007 </span> <span class="subxComment">#</span> <span id="L2008" class="LineNr"> 2008 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2009" class="LineNr"> 2009 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" 1 <- copy 0x34\n"</span>) +<span id="L2009" class="LineNr"> 2009 </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="L2010" class="LineNr"> 2010 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L2011" class="LineNr"> 2011 </span> <span class="subxComment"># convert</span> <span id="L2012" class="LineNr"> 2012 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -1917,19 +1917,19 @@ if ('onhashchange' in window) { <span id="L2015" class="LineNr"> 2015 </span> 89/<- %edx 4/r32/esp <span id="L2016" class="LineNr"> 2016 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L2017" class="LineNr"> 2017 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L2018" class="Folded"> 2018 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2018" class="Folded"> 2018 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2024" class="LineNr"> 2024 </span> <span class="subxComment"># check output</span> -<span id="L2025" class="LineNr"> 2025 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1991'>test-stmt-with-invalid-identifier</a>: output should be empty"</span>) -<span id="L2026" class="LineNr"> 2026 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: invalid identifier '1'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1991'>test-stmt-with-invalid-identifier</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L2025" class="LineNr"> 2025 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1991'>test-stmt-with-missing-var-keyword</a>: output should be empty"</span>) +<span id="L2026" class="LineNr"> 2026 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: unexpected ':'; did you forget a 'var'?"</span> <span class="Constant">"F - <a href='mu.subx.html#L1991'>test-stmt-with-missing-var-keyword</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L2027" class="LineNr"> 2027 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2028" class="LineNr"> 2028 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1991'>test-stmt-with-invalid-identifier</a>: exit status"</span>) +<span id="L2028" class="LineNr"> 2028 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1991'>test-stmt-with-missing-var-keyword</a>: exit status"</span>) <span id="L2029" class="LineNr"> 2029 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L2030" class="LineNr"> 2030 </span> 81 0/subop/add %esp 8/imm32 <span id="L2031" class="LineNr"> 2031 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L2032" class="LineNr"> 2032 </span> 5d/pop-to-ebp <span id="L2033" class="LineNr"> 2033 </span> c3/return <span id="L2034" class="LineNr"> 2034 </span> -<span id="L2035" class="LineNr"> 2035 </span><span class="subxTest">test-stmt-with-deref-var</span>: +<span id="L2035" class="LineNr"> 2035 </span><span class="subxTest">test-stmt-with-invalid-identifier</span>: <span id="L2036" class="LineNr"> 2036 </span> <span class="subxS1Comment"># . prologue</span> <span id="L2037" class="LineNr"> 2037 </span> 55/push-ebp <span id="L2038" class="LineNr"> 2038 </span> 89/<- %ebp 4/r32/esp @@ -1947,7 +1947,7 @@ if ('onhashchange' in window) { <span id="L2050" class="LineNr"> 2050 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L2051" class="LineNr"> 2051 </span> <span class="subxComment">#</span> <span id="L2052" class="LineNr"> 2052 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2053" class="LineNr"> 2053 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" *x <- copy 0x34\n"</span>) +<span id="L2053" class="LineNr"> 2053 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" 1 <- copy 0x34\n"</span>) <span id="L2054" class="LineNr"> 2054 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L2055" class="LineNr"> 2055 </span> <span class="subxComment"># convert</span> <span id="L2056" class="LineNr"> 2056 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -1956,19 +1956,19 @@ if ('onhashchange' in window) { <span id="L2059" class="LineNr"> 2059 </span> 89/<- %edx 4/r32/esp <span id="L2060" class="LineNr"> 2060 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L2061" class="LineNr"> 2061 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L2062" class="Folded"> 2062 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2062" class="Folded"> 2062 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2068" class="LineNr"> 2068 </span> <span class="subxComment"># check output</span> -<span id="L2069" class="LineNr"> 2069 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2035'>test-stmt-with-deref-var</a>: output should be empty"</span>) -<span id="L2070" class="LineNr"> 2070 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: output '*x' should <a href='108write.subx.html#L24'>write</a> to a register, and therefore cannot be dereferenced"</span> <span class="Constant">"F - <a href='mu.subx.html#L2035'>test-stmt-with-deref-var</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L2069" class="LineNr"> 2069 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2035'>test-stmt-with-invalid-identifier</a>: output should be empty"</span>) +<span id="L2070" class="LineNr"> 2070 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: invalid identifier '1'"</span> <span class="Constant">"F - <a href='mu.subx.html#L2035'>test-stmt-with-invalid-identifier</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L2071" class="LineNr"> 2071 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2072" class="LineNr"> 2072 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2035'>test-stmt-with-deref-var</a>: exit status"</span>) +<span id="L2072" class="LineNr"> 2072 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2035'>test-stmt-with-invalid-identifier</a>: exit status"</span>) <span id="L2073" class="LineNr"> 2073 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L2074" class="LineNr"> 2074 </span> 81 0/subop/add %esp 8/imm32 <span id="L2075" class="LineNr"> 2075 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L2076" class="LineNr"> 2076 </span> 5d/pop-to-ebp <span id="L2077" class="LineNr"> 2077 </span> c3/return <span id="L2078" class="LineNr"> 2078 </span> -<span id="L2079" class="LineNr"> 2079 </span><span class="subxTest">test-convert-function-with-literal-arg</span>: +<span id="L2079" class="LineNr"> 2079 </span><span class="subxTest">test-stmt-with-deref-var</span>: <span id="L2080" class="LineNr"> 2080 </span> <span class="subxS1Comment"># . prologue</span> <span id="L2081" class="LineNr"> 2081 </span> 55/push-ebp <span id="L2082" class="LineNr"> 2082 </span> 89/<- %ebp 4/r32/esp @@ -1977,298 +1977,298 @@ if ('onhashchange' in window) { <span id="L2085" class="LineNr"> 2085 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L2086" class="LineNr"> 2086 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L2087" class="LineNr"> 2087 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2088" class="LineNr"> 2088 </span> <span class="subxComment">#</span> -<span id="L2089" class="LineNr"> 2089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: int, b: int -> _/eax: int {\n"</span>) -<span id="L2090" class="LineNr"> 2090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- copy a\n"</span>) -<span id="L2091" class="LineNr"> 2091 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- add 1\n"</span>) -<span id="L2092" class="LineNr"> 2092 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) -<span id="L2093" class="LineNr"> 2093 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2094" class="LineNr"> 2094 </span> <span class="subxComment"># convert</span> -<span id="L2095" class="LineNr"> 2095 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2096" class="LineNr"> 2096 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2097" class="Folded"> 2097 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2103" class="LineNr"> 2103 </span> <span class="subxComment"># check output</span> -<span id="L2104" class="LineNr"> 2104 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-convert-function-with-literal-arg</a>/0"</span>) -<span id="L2105" class="LineNr"> 2105 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg/1"</span>) -<span id="L2106" class="LineNr"> 2106 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-convert-function-with-literal-arg</a>/2"</span>) -<span id="L2107" class="LineNr"> 2107 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-convert-function-with-literal-arg</a>/3"</span>) -<span id="L2108" class="LineNr"> 2108 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-convert-function-with-literal-arg</a>/4"</span>) -<span id="L2109" class="LineNr"> 2109 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-convert-function-with-literal-arg</a>/5"</span>) -<span id="L2110" class="LineNr"> 2110 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-convert-function-with-literal-arg</a>/6"</span>) -<span id="L2111" class="LineNr"> 2111 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-convert-function-with-literal-arg</a>/7"</span>) -<span id="L2112" class="LineNr"> 2112 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 05/add-to-eax 1/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-convert-function-with-literal-arg</a>/8"</span>) -<span id="L2113" class="LineNr"> 2113 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-convert-function-with-literal-arg</a>/9"</span>) -<span id="L2114" class="LineNr"> 2114 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-convert-function-with-literal-arg</a>/10"</span>) -<span id="L2115" class="LineNr"> 2115 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-convert-function-with-literal-arg</a>/11"</span>) -<span id="L2116" class="LineNr"> 2116 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-convert-function-with-literal-arg</a>/12"</span>) -<span id="L2117" class="LineNr"> 2117 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-convert-function-with-literal-arg</a>/13"</span>) -<span id="L2118" class="LineNr"> 2118 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg/14"</span>) -<span id="L2119" class="LineNr"> 2119 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-convert-function-with-literal-arg</a>/15"</span>) -<span id="L2120" class="LineNr"> 2120 </span> (<a href='109stream-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#L2079'>test-convert-function-with-literal-arg</a>/16"</span>) -<span id="L2121" class="LineNr"> 2121 </span> (<a href='109stream-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#L2079'>test-convert-function-with-literal-arg</a>/17"</span>) -<span id="L2122" class="LineNr"> 2122 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2123" class="LineNr"> 2123 </span> 89/<- %esp 5/r32/ebp -<span id="L2124" class="LineNr"> 2124 </span> 5d/pop-to-ebp -<span id="L2125" class="LineNr"> 2125 </span> c3/return -<span id="L2126" class="LineNr"> 2126 </span> -<span id="L2127" class="LineNr"> 2127 </span><span class="subxTest">test-convert-function-with-literal-arg-2</span>: -<span id="L2128" class="LineNr"> 2128 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2129" class="LineNr"> 2129 </span> 55/push-ebp -<span id="L2130" class="LineNr"> 2130 </span> 89/<- %ebp 4/r32/esp -<span id="L2131" class="LineNr"> 2131 </span> <span class="subxComment"># setup</span> -<span id="L2132" class="LineNr"> 2132 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2133" class="LineNr"> 2133 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2134" class="LineNr"> 2134 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2135" class="LineNr"> 2135 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2136" class="LineNr"> 2136 </span> <span class="subxComment">#</span> -<span id="L2137" class="LineNr"> 2137 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: int, b: int -> _/ebx: int {\n"</span>) -<span id="L2138" class="LineNr"> 2138 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/ebx: int <- copy a\n"</span>) -<span id="L2139" class="LineNr"> 2139 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- add 1\n"</span>) -<span id="L2140" class="LineNr"> 2140 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) -<span id="L2141" class="LineNr"> 2141 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2142" class="LineNr"> 2142 </span> <span class="subxComment"># convert</span> -<span id="L2143" class="LineNr"> 2143 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2144" class="LineNr"> 2144 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2145" class="Folded"> 2145 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2151" class="LineNr"> 2151 </span> <span class="subxComment"># check output</span> -<span id="L2152" class="LineNr"> 2152 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2127'>test-convert-function-with-literal-arg-2</a>/0"</span>) -<span id="L2153" class="LineNr"> 2153 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg-2/1"</span>) -<span id="L2154" class="LineNr"> 2154 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2127'>test-convert-function-with-literal-arg-2</a>/2"</span>) -<span id="L2155" class="LineNr"> 2155 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2127'>test-convert-function-with-literal-arg-2</a>/3"</span>) -<span id="L2156" class="LineNr"> 2156 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2127'>test-convert-function-with-literal-arg-2</a>/4"</span>) -<span id="L2157" class="LineNr"> 2157 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2127'>test-convert-function-with-literal-arg-2</a>/5"</span>) -<span id="L2158" class="LineNr"> 2158 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2127'>test-convert-function-with-literal-arg-2</a>/6"</span>) -<span id="L2159" class="LineNr"> 2159 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2127'>test-convert-function-with-literal-arg-2</a>/7"</span>) -<span id="L2160" class="LineNr"> 2160 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %ebx 1/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2127'>test-convert-function-with-literal-arg-2</a>/8"</span>) -<span id="L2161" class="LineNr"> 2161 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %ebx 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2127'>test-convert-function-with-literal-arg-2</a>/9"</span>) -<span id="L2162" class="LineNr"> 2162 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2127'>test-convert-function-with-literal-arg-2</a>/10"</span>) -<span id="L2163" class="LineNr"> 2163 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2127'>test-convert-function-with-literal-arg-2</a>/11"</span>) -<span id="L2164" class="LineNr"> 2164 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2127'>test-convert-function-with-literal-arg-2</a>/12"</span>) -<span id="L2165" class="LineNr"> 2165 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2127'>test-convert-function-with-literal-arg-2</a>/13"</span>) -<span id="L2166" class="LineNr"> 2166 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg-2/14"</span>) -<span id="L2167" class="LineNr"> 2167 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2127'>test-convert-function-with-literal-arg-2</a>/15"</span>) -<span id="L2168" class="LineNr"> 2168 </span> (<a href='109stream-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#L2127'>test-convert-function-with-literal-arg-2</a>/16"</span>) -<span id="L2169" class="LineNr"> 2169 </span> (<a href='109stream-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#L2127'>test-convert-function-with-literal-arg-2</a>/17"</span>) -<span id="L2170" class="LineNr"> 2170 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2171" class="LineNr"> 2171 </span> 89/<- %esp 5/r32/ebp -<span id="L2172" class="LineNr"> 2172 </span> 5d/pop-to-ebp -<span id="L2173" class="LineNr"> 2173 </span> c3/return -<span id="L2174" class="LineNr"> 2174 </span> -<span id="L2175" class="LineNr"> 2175 </span><span class="subxTest">test-convert-function-call-with-literal-arg</span>: -<span id="L2176" class="LineNr"> 2176 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2177" class="LineNr"> 2177 </span> 55/push-ebp -<span id="L2178" class="LineNr"> 2178 </span> 89/<- %ebp 4/r32/esp -<span id="L2179" class="LineNr"> 2179 </span> <span class="subxComment"># setup</span> -<span id="L2180" class="LineNr"> 2180 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2181" class="LineNr"> 2181 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2182" class="LineNr"> 2182 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2183" class="LineNr"> 2183 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2184" class="LineNr"> 2184 </span> <span class="subxComment">#</span> -<span id="L2185" class="LineNr"> 2185 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn main -> _/ebx: int {\n"</span>) -<span id="L2186" class="LineNr"> 2186 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- do-add 3 4\n"</span>) -<span id="L2187" class="LineNr"> 2187 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) -<span id="L2188" class="LineNr"> 2188 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2189" class="LineNr"> 2189 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn do-add a: int, b: int -> _/eax: int {\n"</span>) -<span id="L2190" class="LineNr"> 2190 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- copy a\n"</span>) -<span id="L2191" class="LineNr"> 2191 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- add b\n"</span>) -<span id="L2192" class="LineNr"> 2192 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) -<span id="L2193" class="LineNr"> 2193 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2194" class="LineNr"> 2194 </span> <span class="subxComment"># convert</span> -<span id="L2195" class="LineNr"> 2195 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2196" class="LineNr"> 2196 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2197" class="Folded"> 2197 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2203" class="LineNr"> 2203 </span> <span class="subxComment"># check output</span> -<span id="L2204" class="LineNr"> 2204 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/0"</span>) -<span id="L2205" class="LineNr"> 2205 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/1"</span>) -<span id="L2206" class="LineNr"> 2206 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/2"</span>) -<span id="L2207" class="LineNr"> 2207 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/3"</span>) -<span id="L2208" class="LineNr"> 2208 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/4"</span>) -<span id="L2209" class="LineNr"> 2209 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/5"</span>) -<span id="L2210" class="LineNr"> 2210 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/6"</span>) -<span id="L2211" class="LineNr"> 2211 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (do-add 3 4)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/7"</span>) -<span id="L2212" class="LineNr"> 2212 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/8"</span>) -<span id="L2213" class="LineNr"> 2213 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2565'>test-convert-function-with-local-var-in-reg</a>/9"</span>) -<span id="L2214" class="LineNr"> 2214 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $main:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/10"</span>) -<span id="L2215" class="LineNr"> 2215 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/11"</span>) -<span id="L2216" class="LineNr"> 2216 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/12"</span>) -<span id="L2217" class="LineNr"> 2217 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/13"</span>) -<span id="L2218" class="LineNr"> 2218 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/14"</span>) -<span id="L2219" class="LineNr"> 2219 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/15"</span>) -<span id="L2220" class="LineNr"> 2220 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/16"</span>) -<span id="L2221" class="LineNr"> 2221 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"do-add:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/17"</span>) -<span id="L2222" class="LineNr"> 2222 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/18"</span>) -<span id="L2223" class="LineNr"> 2223 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/19"</span>) -<span id="L2224" class="LineNr"> 2224 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/20"</span>) -<span id="L2225" class="LineNr"> 2225 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/21"</span>) -<span id="L2226" class="LineNr"> 2226 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$do-add:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/22"</span>) -<span id="L2227" class="LineNr"> 2227 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/23"</span>) -<span id="L2228" class="LineNr"> 2228 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/24"</span>) -<span id="L2229" class="LineNr"> 2229 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 03/add *(ebp+0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/25"</span>) -<span id="L2230" class="LineNr"> 2230 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/26"</span>) -<span id="L2231" class="LineNr"> 2231 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/27"</span>) -<span id="L2232" class="LineNr"> 2232 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $do-add:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/28"</span>) -<span id="L2233" class="LineNr"> 2233 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/29"</span>) -<span id="L2234" class="LineNr"> 2234 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$do-add:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/30"</span>) -<span id="L2235" class="LineNr"> 2235 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/31"</span>) -<span id="L2236" class="LineNr"> 2236 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/32"</span>) -<span id="L2237" class="LineNr"> 2237 </span> (<a href='109stream-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#L2175'>test-convert-function-call-with-literal-arg</a>/33"</span>) -<span id="L2238" class="LineNr"> 2238 </span> (<a href='109stream-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#L2175'>test-convert-function-call-with-literal-arg</a>/34"</span>) -<span id="L2239" class="LineNr"> 2239 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2240" class="LineNr"> 2240 </span> 89/<- %esp 5/r32/ebp -<span id="L2241" class="LineNr"> 2241 </span> 5d/pop-to-ebp -<span id="L2242" class="LineNr"> 2242 </span> c3/return -<span id="L2243" class="LineNr"> 2243 </span> -<span id="L2244" class="LineNr"> 2244 </span><span class="subxTest">test-convert-function-call-with-literal-string-arg</span>: -<span id="L2245" class="LineNr"> 2245 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2246" class="LineNr"> 2246 </span> 55/push-ebp -<span id="L2247" class="LineNr"> 2247 </span> 89/<- %ebp 4/r32/esp -<span id="L2248" class="LineNr"> 2248 </span> <span class="subxComment"># setup</span> -<span id="L2249" class="LineNr"> 2249 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2250" class="LineNr"> 2250 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2251" class="LineNr"> 2251 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2252" class="LineNr"> 2252 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2253" class="LineNr"> 2253 </span> <span class="subxComment">#</span> -<span id="L2254" class="LineNr"> 2254 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2255" class="LineNr"> 2255 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" string-func \"</span>abc\<span class="Constant">"\n"</span>) -<span id="L2256" class="LineNr"> 2256 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2257" class="LineNr"> 2257 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig string-func in: (addr array byte)\n"</span>) -<span id="L2258" class="LineNr"> 2258 </span> <span class="subxComment"># convert</span> -<span id="L2259" class="LineNr"> 2259 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2260" class="LineNr"> 2260 </span> <span class="subxComment"># no errors</span> -<span id="L2261" class="LineNr"> 2261 </span> <span class="subxComment"># not bothering checking output</span> -<span id="L2262" class="LineNr"> 2262 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2263" class="LineNr"> 2263 </span> 89/<- %esp 5/r32/ebp -<span id="L2264" class="LineNr"> 2264 </span> 5d/pop-to-ebp -<span id="L2265" class="LineNr"> 2265 </span> c3/return -<span id="L2266" class="LineNr"> 2266 </span> -<span id="L2267" class="LineNr"> 2267 </span><span class="subxTest">test-convert-function-call-with-literal-string-arg-and-type-parameter-in-signature</span>: -<span id="L2268" class="LineNr"> 2268 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2269" class="LineNr"> 2269 </span> 55/push-ebp -<span id="L2270" class="LineNr"> 2270 </span> 89/<- %ebp 4/r32/esp -<span id="L2271" class="LineNr"> 2271 </span> <span class="subxComment"># setup</span> -<span id="L2272" class="LineNr"> 2272 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2273" class="LineNr"> 2273 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2274" class="LineNr"> 2274 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2275" class="LineNr"> 2275 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2276" class="LineNr"> 2276 </span> <span class="subxComment">#</span> -<span id="L2277" class="LineNr"> 2277 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2278" class="LineNr"> 2278 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" string-func \"</span>abc\<span class="Constant">"\n"</span>) -<span id="L2279" class="LineNr"> 2279 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2280" class="LineNr"> 2280 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig string-func in: (addr array _)\n"</span>) -<span id="L2281" class="LineNr"> 2281 </span> <span class="subxComment"># convert</span> -<span id="L2282" class="LineNr"> 2282 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2283" class="LineNr"> 2283 </span> <span class="subxComment"># no errors</span> -<span id="L2284" class="LineNr"> 2284 </span> <span class="subxComment"># not bothering checking output</span> -<span id="L2285" class="LineNr"> 2285 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2286" class="LineNr"> 2286 </span> 89/<- %esp 5/r32/ebp -<span id="L2287" class="LineNr"> 2287 </span> 5d/pop-to-ebp -<span id="L2288" class="LineNr"> 2288 </span> c3/return -<span id="L2289" class="LineNr"> 2289 </span> -<span id="L2290" class="LineNr"> 2290 </span><span class="subxTest">test-convert-function-call-with-null-addr</span>: -<span id="L2291" class="LineNr"> 2291 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2292" class="LineNr"> 2292 </span> 55/push-ebp -<span id="L2293" class="LineNr"> 2293 </span> 89/<- %ebp 4/r32/esp -<span id="L2294" class="LineNr"> 2294 </span> <span class="subxComment"># setup</span> -<span id="L2295" class="LineNr"> 2295 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2296" class="LineNr"> 2296 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2297" class="LineNr"> 2297 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2298" class="LineNr"> 2298 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2299" class="LineNr"> 2299 </span> <span class="subxComment">#</span> -<span id="L2300" class="LineNr"> 2300 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2301" class="LineNr"> 2301 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" bar 0\n"</span>) -<span id="L2302" class="LineNr"> 2302 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2303" class="LineNr"> 2303 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig bar in: (addr int)\n"</span>) -<span id="L2304" class="LineNr"> 2304 </span> <span class="subxComment"># convert</span> -<span id="L2305" class="LineNr"> 2305 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2306" class="LineNr"> 2306 </span> <span class="subxComment"># no errors</span> -<span id="L2307" class="LineNr"> 2307 </span> <span class="subxComment"># not bothering checking output</span> -<span id="L2308" class="LineNr"> 2308 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2309" class="LineNr"> 2309 </span> 89/<- %esp 5/r32/ebp -<span id="L2310" class="LineNr"> 2310 </span> 5d/pop-to-ebp -<span id="L2311" class="LineNr"> 2311 </span> c3/return -<span id="L2312" class="LineNr"> 2312 </span> -<span id="L2313" class="LineNr"> 2313 </span><span class="subxTest">test-convert-function-call-with-signature</span>: -<span id="L2314" class="LineNr"> 2314 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2315" class="LineNr"> 2315 </span> 55/push-ebp -<span id="L2316" class="LineNr"> 2316 </span> 89/<- %ebp 4/r32/esp -<span id="L2317" class="LineNr"> 2317 </span> <span class="subxComment"># setup</span> -<span id="L2318" class="LineNr"> 2318 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2319" class="LineNr"> 2319 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2320" class="LineNr"> 2320 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2321" class="LineNr"> 2321 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2322" class="LineNr"> 2322 </span> <span class="subxComment">#</span> -<span id="L2323" class="LineNr"> 2323 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn main -> _/ebx: int {\n"</span>) -<span id="L2324" class="LineNr"> 2324 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- do-add 3 4\n"</span>) -<span id="L2325" class="LineNr"> 2325 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) -<span id="L2326" class="LineNr"> 2326 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2327" class="LineNr"> 2327 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig do-add a: int, b: int -> _/eax: int\n"</span>) -<span id="L2328" class="LineNr"> 2328 </span> <span class="subxComment"># convert</span> -<span id="L2329" class="LineNr"> 2329 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2330" class="LineNr"> 2330 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2331" class="Folded"> 2331 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2337" class="LineNr"> 2337 </span> <span class="subxComment"># check output</span> -<span id="L2338" class="LineNr"> 2338 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2313'>test-convert-function-call-with-signature</a>/0"</span>) -<span id="L2339" class="LineNr"> 2339 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-signature/1"</span>) -<span id="L2340" class="LineNr"> 2340 </span> (<a href='109stream-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#L2313'>test-convert-function-call-with-signature</a>/2"</span>) -<span id="L2341" class="LineNr"> 2341 </span> (<a href='109stream-equal.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#L2313'>test-convert-function-call-with-signature</a>/3"</span>) -<span id="L2342" class="LineNr"> 2342 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2313'>test-convert-function-call-with-signature</a>/4"</span>) -<span id="L2343" class="LineNr"> 2343 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2313'>test-convert-function-call-with-signature</a>/5"</span>) -<span id="L2344" class="LineNr"> 2344 </span> (<a href='109stream-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#L2175'>test-convert-function-call-with-literal-arg</a>/6"</span>) -<span id="L2345" class="LineNr"> 2345 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (do-add 3 4)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2313'>test-convert-function-call-with-signature</a>/6"</span>) -<span id="L2346" class="LineNr"> 2346 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/8"</span>) -<span id="L2347" class="LineNr"> 2347 </span> (<a href='109stream-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#L2565'>test-convert-function-with-local-var-in-reg</a>/9"</span>) -<span id="L2348" class="LineNr"> 2348 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $main:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/10"</span>) -<span id="L2349" class="LineNr"> 2349 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2313'>test-convert-function-call-with-signature</a>/7"</span>) -<span id="L2350" class="LineNr"> 2350 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2313'>test-convert-function-call-with-signature</a>/8"</span>) -<span id="L2351" class="LineNr"> 2351 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-signature/9"</span>) -<span id="L2352" class="LineNr"> 2352 </span> (<a href='109stream-equal.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#L2313'>test-convert-function-call-with-signature</a>/10"</span>) -<span id="L2353" class="LineNr"> 2353 </span> (<a href='109stream-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#L2313'>test-convert-function-call-with-signature</a>/11"</span>) -<span id="L2354" class="LineNr"> 2354 </span> (<a href='109stream-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#L2313'>test-convert-function-call-with-signature</a>/12"</span>) -<span id="L2355" class="LineNr"> 2355 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2356" class="LineNr"> 2356 </span> 89/<- %esp 5/r32/ebp -<span id="L2357" class="LineNr"> 2357 </span> 5d/pop-to-ebp -<span id="L2358" class="LineNr"> 2358 </span> c3/return -<span id="L2359" class="LineNr"> 2359 </span> -<span id="L2360" class="LineNr"> 2360 </span><span class="subxTest">test-convert-function-with-local-var-in-mem</span>: -<span id="L2361" class="LineNr"> 2361 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2362" class="LineNr"> 2362 </span> 55/push-ebp -<span id="L2363" class="LineNr"> 2363 </span> 89/<- %ebp 4/r32/esp -<span id="L2364" class="LineNr"> 2364 </span> <span class="subxComment"># setup</span> -<span id="L2365" class="LineNr"> 2365 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2366" class="LineNr"> 2366 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2367" class="LineNr"> 2367 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2368" class="LineNr"> 2368 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2369" class="LineNr"> 2369 </span> <span class="subxComment">#</span> -<span id="L2370" class="LineNr"> 2370 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2371" class="LineNr"> 2371 </span> (<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="L2372" class="LineNr"> 2372 </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="L2373" class="LineNr"> 2373 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2374" class="LineNr"> 2374 </span> <span class="subxComment"># convert</span> -<span id="L2375" class="LineNr"> 2375 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2376" class="LineNr"> 2376 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2377" class="Folded"> 2377 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2383" class="LineNr"> 2383 </span> <span class="subxComment"># check output</span> -<span id="L2384" class="LineNr"> 2384 </span> (<a href='109stream-equal.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#L2360'>test-convert-function-with-local-var-in-mem</a>/0"</span>) -<span id="L2385" class="LineNr"> 2385 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem/1"</span>) -<span id="L2386" class="LineNr"> 2386 </span> (<a href='109stream-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#L2360'>test-convert-function-with-local-var-in-mem</a>/2"</span>) -<span id="L2387" class="LineNr"> 2387 </span> (<a href='109stream-equal.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#L2360'>test-convert-function-with-local-var-in-mem</a>/3"</span>) -<span id="L2388" class="LineNr"> 2388 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2360'>test-convert-function-with-local-var-in-mem</a>/4"</span>) -<span id="L2389" class="LineNr"> 2389 </span> (<a href='109stream-equal.subx.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#L2360'>test-convert-function-with-local-var-in-mem</a>/5"</span>) -<span id="L2390" class="LineNr"> 2390 </span> (<a href='109stream-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#L2360'>test-convert-function-with-local-var-in-mem</a>/6"</span>) -<span id="L2391" class="LineNr"> 2391 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2360'>test-convert-function-with-local-var-in-mem</a>/7"</span>) -<span id="L2392" class="LineNr"> 2392 </span> (<a href='109stream-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#L2360'>test-convert-function-with-local-var-in-mem</a>/8"</span>) -<span id="L2393" class="LineNr"> 2393 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2360'>test-convert-function-with-local-var-in-mem</a>/9"</span>) -<span id="L2394" class="LineNr"> 2394 </span> (<a href='109stream-equal.subx.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#L2360'>test-convert-function-with-local-var-in-mem</a>/10"</span>) -<span id="L2395" class="LineNr"> 2395 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem/11"</span>) -<span id="L2396" class="LineNr"> 2396 </span> (<a href='109stream-equal.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#L2360'>test-convert-function-with-local-var-in-mem</a>/12"</span>) -<span id="L2397" class="LineNr"> 2397 </span> (<a href='109stream-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#L2360'>test-convert-function-with-local-var-in-mem</a>/13"</span>) -<span id="L2398" class="LineNr"> 2398 </span> (<a href='109stream-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#L2360'>test-convert-function-with-local-var-in-mem</a>/14"</span>) +<span id="L2088" class="LineNr"> 2088 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L2089" class="LineNr"> 2089 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2090" class="LineNr"> 2090 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2091" class="LineNr"> 2091 </span> 68/push 0/imm32 +<span id="L2092" class="LineNr"> 2092 </span> 68/push 0/imm32 +<span id="L2093" class="LineNr"> 2093 </span> 89/<- %edx 4/r32/esp +<span id="L2094" class="LineNr"> 2094 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2095" class="LineNr"> 2095 </span> <span class="subxComment">#</span> +<span id="L2096" class="LineNr"> 2096 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2097" class="LineNr"> 2097 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" *x <- copy 0x34\n"</span>) +<span id="L2098" class="LineNr"> 2098 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2099" class="LineNr"> 2099 </span> <span class="subxComment"># convert</span> +<span id="L2100" class="LineNr"> 2100 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L2101" class="LineNr"> 2101 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2102" class="LineNr"> 2102 </span> <span class="subxComment"># restore ed</span> +<span id="L2103" class="LineNr"> 2103 </span> 89/<- %edx 4/r32/esp +<span id="L2104" class="LineNr"> 2104 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2105" class="LineNr"> 2105 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L2106" class="Folded"> 2106 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2112" class="LineNr"> 2112 </span> <span class="subxComment"># check output</span> +<span id="L2113" class="LineNr"> 2113 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-stmt-with-deref-var</a>: output should be empty"</span>) +<span id="L2114" class="LineNr"> 2114 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: output '*x' should <a href='108write.subx.html#L24'>write</a> to a register, and therefore cannot be dereferenced"</span> <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-stmt-with-deref-var</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L2115" class="LineNr"> 2115 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2116" class="LineNr"> 2116 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2079'>test-stmt-with-deref-var</a>: exit status"</span>) +<span id="L2117" class="LineNr"> 2117 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2118" class="LineNr"> 2118 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2119" class="LineNr"> 2119 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2120" class="LineNr"> 2120 </span> 5d/pop-to-ebp +<span id="L2121" class="LineNr"> 2121 </span> c3/return +<span id="L2122" class="LineNr"> 2122 </span> +<span id="L2123" class="LineNr"> 2123 </span><span class="subxTest">test-convert-function-with-literal-arg</span>: +<span id="L2124" class="LineNr"> 2124 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2125" class="LineNr"> 2125 </span> 55/push-ebp +<span id="L2126" class="LineNr"> 2126 </span> 89/<- %ebp 4/r32/esp +<span id="L2127" class="LineNr"> 2127 </span> <span class="subxComment"># setup</span> +<span id="L2128" class="LineNr"> 2128 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2129" class="LineNr"> 2129 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2130" class="LineNr"> 2130 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2131" class="LineNr"> 2131 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2132" class="LineNr"> 2132 </span> <span class="subxComment">#</span> +<span id="L2133" class="LineNr"> 2133 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: int, b: int -> _/eax: int {\n"</span>) +<span id="L2134" class="LineNr"> 2134 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- copy a\n"</span>) +<span id="L2135" class="LineNr"> 2135 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- add 1\n"</span>) +<span id="L2136" class="LineNr"> 2136 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) +<span id="L2137" class="LineNr"> 2137 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2138" class="LineNr"> 2138 </span> <span class="subxComment"># convert</span> +<span id="L2139" class="LineNr"> 2139 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2140" class="LineNr"> 2140 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2141" class="Folded"> 2141 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2147" class="LineNr"> 2147 </span> <span class="subxComment"># check output</span> +<span id="L2148" class="LineNr"> 2148 </span> (<a href='109stream-equal.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#L2123'>test-convert-function-with-literal-arg</a>/0"</span>) +<span id="L2149" class="LineNr"> 2149 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg/1"</span>) +<span id="L2150" class="LineNr"> 2150 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2123'>test-convert-function-with-literal-arg</a>/2"</span>) +<span id="L2151" class="LineNr"> 2151 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2123'>test-convert-function-with-literal-arg</a>/3"</span>) +<span id="L2152" class="LineNr"> 2152 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2123'>test-convert-function-with-literal-arg</a>/4"</span>) +<span id="L2153" class="LineNr"> 2153 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2123'>test-convert-function-with-literal-arg</a>/5"</span>) +<span id="L2154" class="LineNr"> 2154 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2123'>test-convert-function-with-literal-arg</a>/6"</span>) +<span id="L2155" class="LineNr"> 2155 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2123'>test-convert-function-with-literal-arg</a>/7"</span>) +<span id="L2156" class="LineNr"> 2156 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 05/add-to-eax 1/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2123'>test-convert-function-with-literal-arg</a>/8"</span>) +<span id="L2157" class="LineNr"> 2157 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2123'>test-convert-function-with-literal-arg</a>/9"</span>) +<span id="L2158" class="LineNr"> 2158 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2123'>test-convert-function-with-literal-arg</a>/10"</span>) +<span id="L2159" class="LineNr"> 2159 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2123'>test-convert-function-with-literal-arg</a>/11"</span>) +<span id="L2160" class="LineNr"> 2160 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2123'>test-convert-function-with-literal-arg</a>/12"</span>) +<span id="L2161" class="LineNr"> 2161 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2123'>test-convert-function-with-literal-arg</a>/13"</span>) +<span id="L2162" class="LineNr"> 2162 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg/14"</span>) +<span id="L2163" class="LineNr"> 2163 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2123'>test-convert-function-with-literal-arg</a>/15"</span>) +<span id="L2164" class="LineNr"> 2164 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2123'>test-convert-function-with-literal-arg</a>/16"</span>) +<span id="L2165" class="LineNr"> 2165 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2123'>test-convert-function-with-literal-arg</a>/17"</span>) +<span id="L2166" class="LineNr"> 2166 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2167" class="LineNr"> 2167 </span> 89/<- %esp 5/r32/ebp +<span id="L2168" class="LineNr"> 2168 </span> 5d/pop-to-ebp +<span id="L2169" class="LineNr"> 2169 </span> c3/return +<span id="L2170" class="LineNr"> 2170 </span> +<span id="L2171" class="LineNr"> 2171 </span><span class="subxTest">test-convert-function-with-literal-arg-2</span>: +<span id="L2172" class="LineNr"> 2172 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2173" class="LineNr"> 2173 </span> 55/push-ebp +<span id="L2174" class="LineNr"> 2174 </span> 89/<- %ebp 4/r32/esp +<span id="L2175" class="LineNr"> 2175 </span> <span class="subxComment"># setup</span> +<span id="L2176" class="LineNr"> 2176 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2177" class="LineNr"> 2177 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2178" class="LineNr"> 2178 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2179" class="LineNr"> 2179 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2180" class="LineNr"> 2180 </span> <span class="subxComment">#</span> +<span id="L2181" class="LineNr"> 2181 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: int, b: int -> _/ebx: int {\n"</span>) +<span id="L2182" class="LineNr"> 2182 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/ebx: int <- copy a\n"</span>) +<span id="L2183" class="LineNr"> 2183 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- add 1\n"</span>) +<span id="L2184" class="LineNr"> 2184 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) +<span id="L2185" class="LineNr"> 2185 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2186" class="LineNr"> 2186 </span> <span class="subxComment"># convert</span> +<span id="L2187" class="LineNr"> 2187 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2188" class="LineNr"> 2188 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2189" class="Folded"> 2189 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2195" class="LineNr"> 2195 </span> <span class="subxComment"># check output</span> +<span id="L2196" class="LineNr"> 2196 </span> (<a href='109stream-equal.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#L2171'>test-convert-function-with-literal-arg-2</a>/0"</span>) +<span id="L2197" class="LineNr"> 2197 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg-2/1"</span>) +<span id="L2198" class="LineNr"> 2198 </span> (<a href='109stream-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#L2171'>test-convert-function-with-literal-arg-2</a>/2"</span>) +<span id="L2199" class="LineNr"> 2199 </span> (<a href='109stream-equal.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#L2171'>test-convert-function-with-literal-arg-2</a>/3"</span>) +<span id="L2200" class="LineNr"> 2200 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2171'>test-convert-function-with-literal-arg-2</a>/4"</span>) +<span id="L2201" class="LineNr"> 2201 </span> (<a href='109stream-equal.subx.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#L2171'>test-convert-function-with-literal-arg-2</a>/5"</span>) +<span id="L2202" class="LineNr"> 2202 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2171'>test-convert-function-with-literal-arg-2</a>/6"</span>) +<span id="L2203" class="LineNr"> 2203 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2171'>test-convert-function-with-literal-arg-2</a>/7"</span>) +<span id="L2204" class="LineNr"> 2204 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %ebx 1/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2171'>test-convert-function-with-literal-arg-2</a>/8"</span>) +<span id="L2205" class="LineNr"> 2205 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %ebx 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2171'>test-convert-function-with-literal-arg-2</a>/9"</span>) +<span id="L2206" class="LineNr"> 2206 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2171'>test-convert-function-with-literal-arg-2</a>/10"</span>) +<span id="L2207" class="LineNr"> 2207 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2171'>test-convert-function-with-literal-arg-2</a>/11"</span>) +<span id="L2208" class="LineNr"> 2208 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2171'>test-convert-function-with-literal-arg-2</a>/12"</span>) +<span id="L2209" class="LineNr"> 2209 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2171'>test-convert-function-with-literal-arg-2</a>/13"</span>) +<span id="L2210" class="LineNr"> 2210 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg-2/14"</span>) +<span id="L2211" class="LineNr"> 2211 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2171'>test-convert-function-with-literal-arg-2</a>/15"</span>) +<span id="L2212" class="LineNr"> 2212 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2171'>test-convert-function-with-literal-arg-2</a>/16"</span>) +<span id="L2213" class="LineNr"> 2213 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2171'>test-convert-function-with-literal-arg-2</a>/17"</span>) +<span id="L2214" class="LineNr"> 2214 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2215" class="LineNr"> 2215 </span> 89/<- %esp 5/r32/ebp +<span id="L2216" class="LineNr"> 2216 </span> 5d/pop-to-ebp +<span id="L2217" class="LineNr"> 2217 </span> c3/return +<span id="L2218" class="LineNr"> 2218 </span> +<span id="L2219" class="LineNr"> 2219 </span><span class="subxTest">test-convert-function-call-with-literal-arg</span>: +<span id="L2220" class="LineNr"> 2220 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2221" class="LineNr"> 2221 </span> 55/push-ebp +<span id="L2222" class="LineNr"> 2222 </span> 89/<- %ebp 4/r32/esp +<span id="L2223" class="LineNr"> 2223 </span> <span class="subxComment"># setup</span> +<span id="L2224" class="LineNr"> 2224 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2225" class="LineNr"> 2225 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2226" class="LineNr"> 2226 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2227" class="LineNr"> 2227 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2228" class="LineNr"> 2228 </span> <span class="subxComment">#</span> +<span id="L2229" class="LineNr"> 2229 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn main -> _/ebx: int {\n"</span>) +<span id="L2230" class="LineNr"> 2230 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- do-add 3 4\n"</span>) +<span id="L2231" class="LineNr"> 2231 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) +<span id="L2232" class="LineNr"> 2232 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2233" class="LineNr"> 2233 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn do-add a: int, b: int -> _/eax: int {\n"</span>) +<span id="L2234" class="LineNr"> 2234 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- copy a\n"</span>) +<span id="L2235" class="LineNr"> 2235 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- add b\n"</span>) +<span id="L2236" class="LineNr"> 2236 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) +<span id="L2237" class="LineNr"> 2237 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2238" class="LineNr"> 2238 </span> <span class="subxComment"># convert</span> +<span id="L2239" class="LineNr"> 2239 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2240" class="LineNr"> 2240 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2241" class="Folded"> 2241 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2247" class="LineNr"> 2247 </span> <span class="subxComment"># check output</span> +<span id="L2248" class="LineNr"> 2248 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/0"</span>) +<span id="L2249" class="LineNr"> 2249 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/1"</span>) +<span id="L2250" class="LineNr"> 2250 </span> (<a href='109stream-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#L2219'>test-convert-function-call-with-literal-arg</a>/2"</span>) +<span id="L2251" class="LineNr"> 2251 </span> (<a href='109stream-equal.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#L2219'>test-convert-function-call-with-literal-arg</a>/3"</span>) +<span id="L2252" class="LineNr"> 2252 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/4"</span>) +<span id="L2253" class="LineNr"> 2253 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/5"</span>) +<span id="L2254" class="LineNr"> 2254 </span> (<a href='109stream-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#L2219'>test-convert-function-call-with-literal-arg</a>/6"</span>) +<span id="L2255" class="LineNr"> 2255 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (do-add 3 4)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/7"</span>) +<span id="L2256" class="LineNr"> 2256 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/8"</span>) +<span id="L2257" class="LineNr"> 2257 </span> (<a href='109stream-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#L2609'>test-convert-function-with-local-var-in-reg</a>/9"</span>) +<span id="L2258" class="LineNr"> 2258 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $main:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/10"</span>) +<span id="L2259" class="LineNr"> 2259 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/11"</span>) +<span id="L2260" class="LineNr"> 2260 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/12"</span>) +<span id="L2261" class="LineNr"> 2261 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/13"</span>) +<span id="L2262" class="LineNr"> 2262 </span> (<a href='109stream-equal.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#L2219'>test-convert-function-call-with-literal-arg</a>/14"</span>) +<span id="L2263" class="LineNr"> 2263 </span> (<a href='109stream-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#L2219'>test-convert-function-call-with-literal-arg</a>/15"</span>) +<span id="L2264" class="LineNr"> 2264 </span> (<a href='109stream-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#L2219'>test-convert-function-call-with-literal-arg</a>/16"</span>) +<span id="L2265" class="LineNr"> 2265 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"do-add:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/17"</span>) +<span id="L2266" class="LineNr"> 2266 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/18"</span>) +<span id="L2267" class="LineNr"> 2267 </span> (<a href='109stream-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#L2219'>test-convert-function-call-with-literal-arg</a>/19"</span>) +<span id="L2268" class="LineNr"> 2268 </span> (<a href='109stream-equal.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#L2219'>test-convert-function-call-with-literal-arg</a>/20"</span>) +<span id="L2269" class="LineNr"> 2269 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/21"</span>) +<span id="L2270" class="LineNr"> 2270 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$do-add:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/22"</span>) +<span id="L2271" class="LineNr"> 2271 </span> (<a href='109stream-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#L2219'>test-convert-function-call-with-literal-arg</a>/23"</span>) +<span id="L2272" class="LineNr"> 2272 </span> (<a href='109stream-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#L2219'>test-convert-function-call-with-literal-arg</a>/24"</span>) +<span id="L2273" class="LineNr"> 2273 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 03/add *(ebp+0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/25"</span>) +<span id="L2274" class="LineNr"> 2274 </span> (<a href='109stream-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#L2219'>test-convert-function-call-with-literal-arg</a>/26"</span>) +<span id="L2275" class="LineNr"> 2275 </span> (<a href='109stream-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#L2219'>test-convert-function-call-with-literal-arg</a>/27"</span>) +<span id="L2276" class="LineNr"> 2276 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $do-add:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/28"</span>) +<span id="L2277" class="LineNr"> 2277 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/29"</span>) +<span id="L2278" class="LineNr"> 2278 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$do-add:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/30"</span>) +<span id="L2279" class="LineNr"> 2279 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/31"</span>) +<span id="L2280" class="LineNr"> 2280 </span> (<a href='109stream-equal.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#L2219'>test-convert-function-call-with-literal-arg</a>/32"</span>) +<span id="L2281" class="LineNr"> 2281 </span> (<a href='109stream-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#L2219'>test-convert-function-call-with-literal-arg</a>/33"</span>) +<span id="L2282" class="LineNr"> 2282 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/34"</span>) +<span id="L2283" class="LineNr"> 2283 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2284" class="LineNr"> 2284 </span> 89/<- %esp 5/r32/ebp +<span id="L2285" class="LineNr"> 2285 </span> 5d/pop-to-ebp +<span id="L2286" class="LineNr"> 2286 </span> c3/return +<span id="L2287" class="LineNr"> 2287 </span> +<span id="L2288" class="LineNr"> 2288 </span><span class="subxTest">test-convert-function-call-with-literal-string-arg</span>: +<span id="L2289" class="LineNr"> 2289 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2290" class="LineNr"> 2290 </span> 55/push-ebp +<span id="L2291" class="LineNr"> 2291 </span> 89/<- %ebp 4/r32/esp +<span id="L2292" class="LineNr"> 2292 </span> <span class="subxComment"># setup</span> +<span id="L2293" class="LineNr"> 2293 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2294" class="LineNr"> 2294 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2295" class="LineNr"> 2295 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2296" class="LineNr"> 2296 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2297" class="LineNr"> 2297 </span> <span class="subxComment">#</span> +<span id="L2298" class="LineNr"> 2298 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2299" class="LineNr"> 2299 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" string-func \"</span>abc\<span class="Constant">"\n"</span>) +<span id="L2300" class="LineNr"> 2300 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2301" class="LineNr"> 2301 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig string-func in: (addr array byte)\n"</span>) +<span id="L2302" class="LineNr"> 2302 </span> <span class="subxComment"># convert</span> +<span id="L2303" class="LineNr"> 2303 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2304" class="LineNr"> 2304 </span> <span class="subxComment"># no errors</span> +<span id="L2305" class="LineNr"> 2305 </span> <span class="subxComment"># not bothering checking output</span> +<span id="L2306" class="LineNr"> 2306 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2307" class="LineNr"> 2307 </span> 89/<- %esp 5/r32/ebp +<span id="L2308" class="LineNr"> 2308 </span> 5d/pop-to-ebp +<span id="L2309" class="LineNr"> 2309 </span> c3/return +<span id="L2310" class="LineNr"> 2310 </span> +<span id="L2311" class="LineNr"> 2311 </span><span class="subxTest">test-convert-function-call-with-literal-string-arg-and-type-parameter-in-signature</span>: +<span id="L2312" class="LineNr"> 2312 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2313" class="LineNr"> 2313 </span> 55/push-ebp +<span id="L2314" class="LineNr"> 2314 </span> 89/<- %ebp 4/r32/esp +<span id="L2315" class="LineNr"> 2315 </span> <span class="subxComment"># setup</span> +<span id="L2316" class="LineNr"> 2316 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2317" class="LineNr"> 2317 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2318" class="LineNr"> 2318 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2319" class="LineNr"> 2319 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2320" class="LineNr"> 2320 </span> <span class="subxComment">#</span> +<span id="L2321" class="LineNr"> 2321 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2322" class="LineNr"> 2322 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" string-func \"</span>abc\<span class="Constant">"\n"</span>) +<span id="L2323" class="LineNr"> 2323 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2324" class="LineNr"> 2324 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig string-func in: (addr array _)\n"</span>) +<span id="L2325" class="LineNr"> 2325 </span> <span class="subxComment"># convert</span> +<span id="L2326" class="LineNr"> 2326 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2327" class="LineNr"> 2327 </span> <span class="subxComment"># no errors</span> +<span id="L2328" class="LineNr"> 2328 </span> <span class="subxComment"># not bothering checking output</span> +<span id="L2329" class="LineNr"> 2329 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2330" class="LineNr"> 2330 </span> 89/<- %esp 5/r32/ebp +<span id="L2331" class="LineNr"> 2331 </span> 5d/pop-to-ebp +<span id="L2332" class="LineNr"> 2332 </span> c3/return +<span id="L2333" class="LineNr"> 2333 </span> +<span id="L2334" class="LineNr"> 2334 </span><span class="subxTest">test-convert-function-call-with-null-addr</span>: +<span id="L2335" class="LineNr"> 2335 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2336" class="LineNr"> 2336 </span> 55/push-ebp +<span id="L2337" class="LineNr"> 2337 </span> 89/<- %ebp 4/r32/esp +<span id="L2338" class="LineNr"> 2338 </span> <span class="subxComment"># setup</span> +<span id="L2339" class="LineNr"> 2339 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2340" class="LineNr"> 2340 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2341" class="LineNr"> 2341 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2342" class="LineNr"> 2342 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2343" class="LineNr"> 2343 </span> <span class="subxComment">#</span> +<span id="L2344" class="LineNr"> 2344 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2345" class="LineNr"> 2345 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" bar 0\n"</span>) +<span id="L2346" class="LineNr"> 2346 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2347" class="LineNr"> 2347 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig bar in: (addr int)\n"</span>) +<span id="L2348" class="LineNr"> 2348 </span> <span class="subxComment"># convert</span> +<span id="L2349" class="LineNr"> 2349 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2350" class="LineNr"> 2350 </span> <span class="subxComment"># no errors</span> +<span id="L2351" class="LineNr"> 2351 </span> <span class="subxComment"># not bothering checking output</span> +<span id="L2352" class="LineNr"> 2352 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2353" class="LineNr"> 2353 </span> 89/<- %esp 5/r32/ebp +<span id="L2354" class="LineNr"> 2354 </span> 5d/pop-to-ebp +<span id="L2355" class="LineNr"> 2355 </span> c3/return +<span id="L2356" class="LineNr"> 2356 </span> +<span id="L2357" class="LineNr"> 2357 </span><span class="subxTest">test-convert-function-call-with-signature</span>: +<span id="L2358" class="LineNr"> 2358 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2359" class="LineNr"> 2359 </span> 55/push-ebp +<span id="L2360" class="LineNr"> 2360 </span> 89/<- %ebp 4/r32/esp +<span id="L2361" class="LineNr"> 2361 </span> <span class="subxComment"># setup</span> +<span id="L2362" class="LineNr"> 2362 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2363" class="LineNr"> 2363 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2364" class="LineNr"> 2364 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2365" class="LineNr"> 2365 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2366" class="LineNr"> 2366 </span> <span class="subxComment">#</span> +<span id="L2367" class="LineNr"> 2367 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn main -> _/ebx: int {\n"</span>) +<span id="L2368" class="LineNr"> 2368 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- do-add 3 4\n"</span>) +<span id="L2369" class="LineNr"> 2369 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) +<span id="L2370" class="LineNr"> 2370 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2371" class="LineNr"> 2371 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig do-add a: int, b: int -> _/eax: int\n"</span>) +<span id="L2372" class="LineNr"> 2372 </span> <span class="subxComment"># convert</span> +<span id="L2373" class="LineNr"> 2373 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2374" class="LineNr"> 2374 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2375" class="Folded"> 2375 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2381" class="LineNr"> 2381 </span> <span class="subxComment"># check output</span> +<span id="L2382" class="LineNr"> 2382 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2357'>test-convert-function-call-with-signature</a>/0"</span>) +<span id="L2383" class="LineNr"> 2383 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-signature/1"</span>) +<span id="L2384" class="LineNr"> 2384 </span> (<a href='109stream-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#L2357'>test-convert-function-call-with-signature</a>/2"</span>) +<span id="L2385" class="LineNr"> 2385 </span> (<a href='109stream-equal.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#L2357'>test-convert-function-call-with-signature</a>/3"</span>) +<span id="L2386" class="LineNr"> 2386 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2357'>test-convert-function-call-with-signature</a>/4"</span>) +<span id="L2387" class="LineNr"> 2387 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2357'>test-convert-function-call-with-signature</a>/5"</span>) +<span id="L2388" class="LineNr"> 2388 </span> (<a href='109stream-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#L2219'>test-convert-function-call-with-literal-arg</a>/6"</span>) +<span id="L2389" class="LineNr"> 2389 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (do-add 3 4)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2357'>test-convert-function-call-with-signature</a>/6"</span>) +<span id="L2390" class="LineNr"> 2390 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/8"</span>) +<span id="L2391" class="LineNr"> 2391 </span> (<a href='109stream-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#L2609'>test-convert-function-with-local-var-in-reg</a>/9"</span>) +<span id="L2392" class="LineNr"> 2392 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $main:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/10"</span>) +<span id="L2393" class="LineNr"> 2393 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2357'>test-convert-function-call-with-signature</a>/7"</span>) +<span id="L2394" class="LineNr"> 2394 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2357'>test-convert-function-call-with-signature</a>/8"</span>) +<span id="L2395" class="LineNr"> 2395 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-signature/9"</span>) +<span id="L2396" class="LineNr"> 2396 </span> (<a href='109stream-equal.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#L2357'>test-convert-function-call-with-signature</a>/10"</span>) +<span id="L2397" class="LineNr"> 2397 </span> (<a href='109stream-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#L2357'>test-convert-function-call-with-signature</a>/11"</span>) +<span id="L2398" class="LineNr"> 2398 </span> (<a href='109stream-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#L2357'>test-convert-function-call-with-signature</a>/12"</span>) <span id="L2399" class="LineNr"> 2399 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L2400" class="LineNr"> 2400 </span> 89/<- %esp 5/r32/ebp <span id="L2401" class="LineNr"> 2401 </span> 5d/pop-to-ebp <span id="L2402" class="LineNr"> 2402 </span> c3/return <span id="L2403" class="LineNr"> 2403 </span> -<span id="L2404" class="LineNr"> 2404 </span><span class="subxTest">test-convert-invalid-literal</span>: +<span id="L2404" class="LineNr"> 2404 </span><span class="subxTest">test-convert-function-with-local-var-in-mem</span>: <span id="L2405" class="LineNr"> 2405 </span> <span class="subxS1Comment"># . prologue</span> <span id="L2406" class="LineNr"> 2406 </span> 55/push-ebp <span id="L2407" class="LineNr"> 2407 </span> 89/<- %ebp 4/r32/esp @@ -2277,37 +2277,37 @@ if ('onhashchange' in window) { <span id="L2410" class="LineNr"> 2410 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L2411" class="LineNr"> 2411 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L2412" class="LineNr"> 2412 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2413" class="LineNr"> 2413 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L2414" class="LineNr"> 2414 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2415" class="LineNr"> 2415 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L2416" class="LineNr"> 2416 </span> 68/push 0/imm32 -<span id="L2417" class="LineNr"> 2417 </span> 68/push 0/imm32 -<span id="L2418" class="LineNr"> 2418 </span> 89/<- %edx 4/r32/esp -<span id="L2419" class="LineNr"> 2419 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2420" class="LineNr"> 2420 </span> <span class="subxComment">#</span> -<span id="L2421" class="LineNr"> 2421 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2422" class="LineNr"> 2422 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment 1n\n"</span>) -<span id="L2423" class="LineNr"> 2423 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2424" class="LineNr"> 2424 </span> <span class="subxComment"># convert</span> -<span id="L2425" class="LineNr"> 2425 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L2426" class="LineNr"> 2426 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2427" class="LineNr"> 2427 </span> <span class="subxComment"># restore ed</span> -<span id="L2428" class="LineNr"> 2428 </span> 89/<- %edx 4/r32/esp -<span id="L2429" class="LineNr"> 2429 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2430" class="LineNr"> 2430 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L2431" class="Folded"> 2431 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2437" class="LineNr"> 2437 </span> <span class="subxComment"># check output</span> -<span id="L2438" class="LineNr"> 2438 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2404'>test-convert-invalid-literal</a>: output should be empty"</span>) -<span id="L2439" class="LineNr"> 2439 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: variable '1n' cannot begin with a digit (or do you have a typo in a number?)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2404'>test-convert-invalid-literal</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L2440" class="LineNr"> 2440 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2441" class="LineNr"> 2441 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2404'>test-convert-invalid-literal</a>: exit status"</span>) -<span id="L2442" class="LineNr"> 2442 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2443" class="LineNr"> 2443 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2444" class="LineNr"> 2444 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2413" class="LineNr"> 2413 </span> <span class="subxComment">#</span> +<span id="L2414" class="LineNr"> 2414 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2415" class="LineNr"> 2415 </span> (<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="L2416" class="LineNr"> 2416 </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="L2417" class="LineNr"> 2417 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2418" class="LineNr"> 2418 </span> <span class="subxComment"># convert</span> +<span id="L2419" class="LineNr"> 2419 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2420" class="LineNr"> 2420 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2421" class="Folded"> 2421 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2427" class="LineNr"> 2427 </span> <span class="subxComment"># check output</span> +<span id="L2428" class="LineNr"> 2428 </span> (<a href='109stream-equal.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#L2404'>test-convert-function-with-local-var-in-mem</a>/0"</span>) +<span id="L2429" class="LineNr"> 2429 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem/1"</span>) +<span id="L2430" class="LineNr"> 2430 </span> (<a href='109stream-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#L2404'>test-convert-function-with-local-var-in-mem</a>/2"</span>) +<span id="L2431" class="LineNr"> 2431 </span> (<a href='109stream-equal.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#L2404'>test-convert-function-with-local-var-in-mem</a>/3"</span>) +<span id="L2432" class="LineNr"> 2432 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2404'>test-convert-function-with-local-var-in-mem</a>/4"</span>) +<span id="L2433" class="LineNr"> 2433 </span> (<a href='109stream-equal.subx.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#L2404'>test-convert-function-with-local-var-in-mem</a>/5"</span>) +<span id="L2434" class="LineNr"> 2434 </span> (<a href='109stream-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#L2404'>test-convert-function-with-local-var-in-mem</a>/6"</span>) +<span id="L2435" class="LineNr"> 2435 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2404'>test-convert-function-with-local-var-in-mem</a>/7"</span>) +<span id="L2436" class="LineNr"> 2436 </span> (<a href='109stream-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#L2404'>test-convert-function-with-local-var-in-mem</a>/8"</span>) +<span id="L2437" class="LineNr"> 2437 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2404'>test-convert-function-with-local-var-in-mem</a>/9"</span>) +<span id="L2438" class="LineNr"> 2438 </span> (<a href='109stream-equal.subx.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#L2404'>test-convert-function-with-local-var-in-mem</a>/10"</span>) +<span id="L2439" class="LineNr"> 2439 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem/11"</span>) +<span id="L2440" class="LineNr"> 2440 </span> (<a href='109stream-equal.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#L2404'>test-convert-function-with-local-var-in-mem</a>/12"</span>) +<span id="L2441" class="LineNr"> 2441 </span> (<a href='109stream-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#L2404'>test-convert-function-with-local-var-in-mem</a>/13"</span>) +<span id="L2442" class="LineNr"> 2442 </span> (<a href='109stream-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#L2404'>test-convert-function-with-local-var-in-mem</a>/14"</span>) +<span id="L2443" class="LineNr"> 2443 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2444" class="LineNr"> 2444 </span> 89/<- %esp 5/r32/ebp <span id="L2445" class="LineNr"> 2445 </span> 5d/pop-to-ebp <span id="L2446" class="LineNr"> 2446 </span> c3/return <span id="L2447" class="LineNr"> 2447 </span> -<span id="L2448" class="LineNr"> 2448 </span><span class="subxTest">test-convert-valid-literal-with-metadata</span>: +<span id="L2448" class="LineNr"> 2448 </span><span class="subxTest">test-convert-invalid-literal</span>: <span id="L2449" class="LineNr"> 2449 </span> <span class="subxS1Comment"># . prologue</span> <span id="L2450" class="LineNr"> 2450 </span> 55/push-ebp <span id="L2451" class="LineNr"> 2451 </span> 89/<- %ebp 4/r32/esp @@ -2316,100 +2316,100 @@ if ('onhashchange' in window) { <span id="L2454" class="LineNr"> 2454 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L2455" class="LineNr"> 2455 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L2456" class="LineNr"> 2456 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2457" class="LineNr"> 2457 </span> <span class="subxComment">#</span> -<span id="L2458" class="LineNr"> 2458 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2459" class="LineNr"> 2459 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 1/abc\n"</span>) -<span id="L2460" class="LineNr"> 2460 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2461" class="LineNr"> 2461 </span> <span class="subxComment"># convert</span> -<span id="L2462" class="LineNr"> 2462 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2463" class="LineNr"> 2463 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2464" class="Folded"> 2464 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2470" class="LineNr"> 2470 </span> <span class="subxComment"># no errors</span> -<span id="L2471" class="LineNr"> 2471 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2472" class="LineNr"> 2472 </span> 89/<- %esp 5/r32/ebp -<span id="L2473" class="LineNr"> 2473 </span> 5d/pop-to-ebp -<span id="L2474" class="LineNr"> 2474 </span> c3/return -<span id="L2475" class="LineNr"> 2475 </span> -<span id="L2476" class="LineNr"> 2476 </span><span class="subxTest">test-local-var-in-mem-has-no-initializer</span>: -<span id="L2477" class="LineNr"> 2477 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2478" class="LineNr"> 2478 </span> 55/push-ebp -<span id="L2479" class="LineNr"> 2479 </span> 89/<- %ebp 4/r32/esp -<span id="L2480" class="LineNr"> 2480 </span> <span class="subxComment"># setup</span> -<span id="L2481" class="LineNr"> 2481 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2482" class="LineNr"> 2482 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2483" class="LineNr"> 2483 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2484" class="LineNr"> 2484 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2485" class="LineNr"> 2485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L2486" class="LineNr"> 2486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2487" class="LineNr"> 2487 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L2488" class="LineNr"> 2488 </span> 68/push 0/imm32 -<span id="L2489" class="LineNr"> 2489 </span> 68/push 0/imm32 -<span id="L2490" class="LineNr"> 2490 </span> 89/<- %edx 4/r32/esp -<span id="L2491" class="LineNr"> 2491 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2492" class="LineNr"> 2492 </span> <span class="subxComment">#</span> -<span id="L2493" class="LineNr"> 2493 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2494" class="LineNr"> 2494 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int <- copy 0\n"</span>) -<span id="L2495" class="LineNr"> 2495 </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="L2496" class="LineNr"> 2496 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2497" class="LineNr"> 2497 </span> <span class="subxComment"># convert</span> -<span id="L2498" class="LineNr"> 2498 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L2499" class="LineNr"> 2499 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2500" class="LineNr"> 2500 </span> <span class="subxComment"># restore ed</span> -<span id="L2501" class="LineNr"> 2501 </span> 89/<- %edx 4/r32/esp -<span id="L2502" class="LineNr"> 2502 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2503" class="LineNr"> 2503 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L2504" class="Folded"> 2504 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2510" class="LineNr"> 2510 </span> <span class="subxComment"># check output</span> -<span id="L2511" class="LineNr"> 2511 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - test-var-in-mem-has-no-initializer: output should be empty"</span>) -<span id="L2512" class="LineNr"> 2512 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: var x: variables on the stack can't take an initializer"</span> <span class="Constant">"F - test-var-in-mem-has-no-initializer: error message"</span>) -<span id="L2513" class="LineNr"> 2513 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2514" class="LineNr"> 2514 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - test-var-in-mem-has-no-initializer: exit status"</span>) -<span id="L2515" class="LineNr"> 2515 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2516" class="LineNr"> 2516 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2517" class="LineNr"> 2517 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2518" class="LineNr"> 2518 </span> 5d/pop-to-ebp -<span id="L2519" class="LineNr"> 2519 </span> c3/return -<span id="L2520" class="LineNr"> 2520 </span> -<span id="L2521" class="LineNr"> 2521 </span><span class="subxTest">test-convert-function-with-local-var-with-compound-type-in-mem</span>: -<span id="L2522" class="LineNr"> 2522 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2523" class="LineNr"> 2523 </span> 55/push-ebp -<span id="L2524" class="LineNr"> 2524 </span> 89/<- %ebp 4/r32/esp -<span id="L2525" class="LineNr"> 2525 </span> <span class="subxComment"># setup</span> -<span id="L2526" class="LineNr"> 2526 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2527" class="LineNr"> 2527 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2528" class="LineNr"> 2528 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2529" class="LineNr"> 2529 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2530" class="LineNr"> 2530 </span> <span class="subxComment">#</span> -<span id="L2531" class="LineNr"> 2531 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2532" class="LineNr"> 2532 </span> (<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="L2533" class="LineNr"> 2533 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x, 0\n"</span>) -<span id="L2534" class="LineNr"> 2534 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2535" class="LineNr"> 2535 </span> <span class="subxComment"># convert</span> -<span id="L2536" class="LineNr"> 2536 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2537" class="LineNr"> 2537 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2538" class="Folded"> 2538 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2544" class="LineNr"> 2544 </span> <span class="subxComment"># check output</span> -<span id="L2545" class="LineNr"> 2545 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2521'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/0"</span>) -<span id="L2546" class="LineNr"> 2546 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-compound-type-in-mem/1"</span>) -<span id="L2547" class="LineNr"> 2547 </span> (<a href='109stream-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#L2521'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/2"</span>) -<span id="L2548" class="LineNr"> 2548 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2521'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/3"</span>) -<span id="L2549" class="LineNr"> 2549 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2521'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/4"</span>) -<span id="L2550" class="LineNr"> 2550 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2521'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/5"</span>) -<span id="L2551" class="LineNr"> 2551 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2521'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/6"</span>) -<span id="L2552" class="LineNr"> 2552 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c7 0/subop/copy *(ebp+0xfffffffc) 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2521'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/7"</span>) -<span id="L2553" class="LineNr"> 2553 </span> (<a href='109stream-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#L2521'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/8"</span>) -<span id="L2554" class="LineNr"> 2554 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2521'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/9"</span>) -<span id="L2555" class="LineNr"> 2555 </span> (<a href='109stream-equal.subx.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#L2521'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/10"</span>) -<span id="L2556" class="LineNr"> 2556 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-compound-type-in-mem/11"</span>) -<span id="L2557" class="LineNr"> 2557 </span> (<a href='109stream-equal.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#L2521'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/12"</span>) -<span id="L2558" class="LineNr"> 2558 </span> (<a href='109stream-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#L2521'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/13"</span>) -<span id="L2559" class="LineNr"> 2559 </span> (<a href='109stream-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#L2521'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/14"</span>) -<span id="L2560" class="LineNr"> 2560 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2561" class="LineNr"> 2561 </span> 89/<- %esp 5/r32/ebp +<span id="L2457" class="LineNr"> 2457 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L2458" class="LineNr"> 2458 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2459" class="LineNr"> 2459 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2460" class="LineNr"> 2460 </span> 68/push 0/imm32 +<span id="L2461" class="LineNr"> 2461 </span> 68/push 0/imm32 +<span id="L2462" class="LineNr"> 2462 </span> 89/<- %edx 4/r32/esp +<span id="L2463" class="LineNr"> 2463 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2464" class="LineNr"> 2464 </span> <span class="subxComment">#</span> +<span id="L2465" class="LineNr"> 2465 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2466" class="LineNr"> 2466 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment 1n\n"</span>) +<span id="L2467" class="LineNr"> 2467 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2468" class="LineNr"> 2468 </span> <span class="subxComment"># convert</span> +<span id="L2469" class="LineNr"> 2469 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L2470" class="LineNr"> 2470 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2471" class="LineNr"> 2471 </span> <span class="subxComment"># restore ed</span> +<span id="L2472" class="LineNr"> 2472 </span> 89/<- %edx 4/r32/esp +<span id="L2473" class="LineNr"> 2473 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2474" class="LineNr"> 2474 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L2475" class="Folded"> 2475 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2481" class="LineNr"> 2481 </span> <span class="subxComment"># check output</span> +<span id="L2482" class="LineNr"> 2482 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2448'>test-convert-invalid-literal</a>: output should be empty"</span>) +<span id="L2483" class="LineNr"> 2483 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: variable '1n' cannot begin with a digit (or do you have a typo in a number?)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2448'>test-convert-invalid-literal</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L2484" class="LineNr"> 2484 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2485" class="LineNr"> 2485 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2448'>test-convert-invalid-literal</a>: exit status"</span>) +<span id="L2486" class="LineNr"> 2486 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2487" class="LineNr"> 2487 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2488" class="LineNr"> 2488 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2489" class="LineNr"> 2489 </span> 5d/pop-to-ebp +<span id="L2490" class="LineNr"> 2490 </span> c3/return +<span id="L2491" class="LineNr"> 2491 </span> +<span id="L2492" class="LineNr"> 2492 </span><span class="subxTest">test-convert-valid-literal-with-metadata</span>: +<span id="L2493" class="LineNr"> 2493 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2494" class="LineNr"> 2494 </span> 55/push-ebp +<span id="L2495" class="LineNr"> 2495 </span> 89/<- %ebp 4/r32/esp +<span id="L2496" class="LineNr"> 2496 </span> <span class="subxComment"># setup</span> +<span id="L2497" class="LineNr"> 2497 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2498" class="LineNr"> 2498 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2499" class="LineNr"> 2499 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2500" class="LineNr"> 2500 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2501" class="LineNr"> 2501 </span> <span class="subxComment">#</span> +<span id="L2502" class="LineNr"> 2502 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2503" class="LineNr"> 2503 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 1/abc\n"</span>) +<span id="L2504" class="LineNr"> 2504 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2505" class="LineNr"> 2505 </span> <span class="subxComment"># convert</span> +<span id="L2506" class="LineNr"> 2506 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2507" class="LineNr"> 2507 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2508" class="Folded"> 2508 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2514" class="LineNr"> 2514 </span> <span class="subxComment"># no errors</span> +<span id="L2515" class="LineNr"> 2515 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2516" class="LineNr"> 2516 </span> 89/<- %esp 5/r32/ebp +<span id="L2517" class="LineNr"> 2517 </span> 5d/pop-to-ebp +<span id="L2518" class="LineNr"> 2518 </span> c3/return +<span id="L2519" class="LineNr"> 2519 </span> +<span id="L2520" class="LineNr"> 2520 </span><span class="subxTest">test-local-var-in-mem-has-no-initializer</span>: +<span id="L2521" class="LineNr"> 2521 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2522" class="LineNr"> 2522 </span> 55/push-ebp +<span id="L2523" class="LineNr"> 2523 </span> 89/<- %ebp 4/r32/esp +<span id="L2524" class="LineNr"> 2524 </span> <span class="subxComment"># setup</span> +<span id="L2525" class="LineNr"> 2525 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2526" class="LineNr"> 2526 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2527" class="LineNr"> 2527 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2528" class="LineNr"> 2528 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2529" class="LineNr"> 2529 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L2530" class="LineNr"> 2530 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2531" class="LineNr"> 2531 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2532" class="LineNr"> 2532 </span> 68/push 0/imm32 +<span id="L2533" class="LineNr"> 2533 </span> 68/push 0/imm32 +<span id="L2534" class="LineNr"> 2534 </span> 89/<- %edx 4/r32/esp +<span id="L2535" class="LineNr"> 2535 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2536" class="LineNr"> 2536 </span> <span class="subxComment">#</span> +<span id="L2537" class="LineNr"> 2537 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2538" class="LineNr"> 2538 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int <- copy 0\n"</span>) +<span id="L2539" class="LineNr"> 2539 </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="L2540" class="LineNr"> 2540 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2541" class="LineNr"> 2541 </span> <span class="subxComment"># convert</span> +<span id="L2542" class="LineNr"> 2542 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L2543" class="LineNr"> 2543 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2544" class="LineNr"> 2544 </span> <span class="subxComment"># restore ed</span> +<span id="L2545" class="LineNr"> 2545 </span> 89/<- %edx 4/r32/esp +<span id="L2546" class="LineNr"> 2546 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2547" class="LineNr"> 2547 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L2548" class="Folded"> 2548 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2554" class="LineNr"> 2554 </span> <span class="subxComment"># check output</span> +<span id="L2555" class="LineNr"> 2555 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - test-var-in-mem-has-no-initializer: output should be empty"</span>) +<span id="L2556" class="LineNr"> 2556 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: var x: variables on the stack can't take an initializer"</span> <span class="Constant">"F - test-var-in-mem-has-no-initializer: error message"</span>) +<span id="L2557" class="LineNr"> 2557 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2558" class="LineNr"> 2558 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - test-var-in-mem-has-no-initializer: exit status"</span>) +<span id="L2559" class="LineNr"> 2559 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2560" class="LineNr"> 2560 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2561" class="LineNr"> 2561 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L2562" class="LineNr"> 2562 </span> 5d/pop-to-ebp <span id="L2563" class="LineNr"> 2563 </span> c3/return <span id="L2564" class="LineNr"> 2564 </span> -<span id="L2565" class="LineNr"> 2565 </span><span class="subxTest">test-convert-function-with-local-var-in-reg</span>: +<span id="L2565" class="LineNr"> 2565 </span><span class="subxTest">test-convert-function-with-local-var-with-compound-type-in-mem</span>: <span id="L2566" class="LineNr"> 2566 </span> <span class="subxS1Comment"># . prologue</span> <span id="L2567" class="LineNr"> 2567 </span> 55/push-ebp <span id="L2568" class="LineNr"> 2568 </span> 89/<- %ebp 4/r32/esp @@ -2420,174 +2420,174 @@ if ('onhashchange' in window) { <span id="L2573" class="LineNr"> 2573 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) <span id="L2574" class="LineNr"> 2574 </span> <span class="subxComment">#</span> <span id="L2575" class="LineNr"> 2575 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2576" class="LineNr"> 2576 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) -<span id="L2577" class="LineNr"> 2577 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) +<span id="L2576" class="LineNr"> 2576 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L2577" class="LineNr"> 2577 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x, 0\n"</span>) <span id="L2578" class="LineNr"> 2578 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L2579" class="LineNr"> 2579 </span> <span class="subxComment"># convert</span> <span id="L2580" class="LineNr"> 2580 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2581" class="LineNr"> 2581 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2582" class="Folded"> 2582 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2582" class="Folded"> 2582 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2588" class="LineNr"> 2588 </span> <span class="subxComment"># check output</span> -<span id="L2589" class="LineNr"> 2589 </span> (<a href='109stream-equal.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#L2565'>test-convert-function-with-local-var-in-reg</a>/0"</span>) -<span id="L2590" class="LineNr"> 2590 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-reg/1"</span>) -<span id="L2591" class="LineNr"> 2591 </span> (<a href='109stream-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#L2565'>test-convert-function-with-local-var-in-reg</a>/2"</span>) -<span id="L2592" class="LineNr"> 2592 </span> (<a href='109stream-equal.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#L2565'>test-convert-function-with-local-var-in-reg</a>/3"</span>) -<span id="L2593" class="LineNr"> 2593 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2565'>test-convert-function-with-local-var-in-reg</a>/4"</span>) -<span id="L2594" class="LineNr"> 2594 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2565'>test-convert-function-with-local-var-in-reg</a>/5"</span>) -<span id="L2595" class="LineNr"> 2595 </span> (<a href='109stream-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#L2565'>test-convert-function-with-local-var-in-reg</a>/6"</span>) -<span id="L2596" class="LineNr"> 2596 </span> (<a href='109stream-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#L2565'>test-convert-function-with-local-var-in-reg</a>/7"</span>) -<span id="L2597" class="LineNr"> 2597 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2565'>test-convert-function-with-local-var-in-reg</a>/8"</span>) -<span id="L2598" class="LineNr"> 2598 </span> (<a href='109stream-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#L2565'>test-convert-function-with-local-var-in-reg</a>/9"</span>) -<span id="L2599" class="LineNr"> 2599 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2565'>test-convert-function-with-local-var-in-reg</a>/10"</span>) -<span id="L2600" class="LineNr"> 2600 </span> (<a href='109stream-equal.subx.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#L2565'>test-convert-function-with-local-var-in-reg</a>/11"</span>) -<span id="L2601" class="LineNr"> 2601 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-reg/12"</span>) -<span id="L2602" class="LineNr"> 2602 </span> (<a href='109stream-equal.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#L2565'>test-convert-function-with-local-var-in-reg</a>/13"</span>) -<span id="L2603" class="LineNr"> 2603 </span> (<a href='109stream-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#L2565'>test-convert-function-with-local-var-in-reg</a>/14"</span>) -<span id="L2604" class="LineNr"> 2604 </span> (<a href='109stream-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#L2565'>test-convert-function-with-local-var-in-reg</a>/15"</span>) -<span id="L2605" class="LineNr"> 2605 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2606" class="LineNr"> 2606 </span> 89/<- %esp 5/r32/ebp -<span id="L2607" class="LineNr"> 2607 </span> 5d/pop-to-ebp -<span id="L2608" class="LineNr"> 2608 </span> c3/return -<span id="L2609" class="LineNr"> 2609 </span> -<span id="L2610" class="LineNr"> 2610 </span><span class="subxTest">test-convert-function-with-local-var-in-same-reg</span>: -<span id="L2611" class="LineNr"> 2611 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2612" class="LineNr"> 2612 </span> 55/push-ebp -<span id="L2613" class="LineNr"> 2613 </span> 89/<- %ebp 4/r32/esp -<span id="L2614" class="LineNr"> 2614 </span> <span class="subxComment"># setup</span> -<span id="L2615" class="LineNr"> 2615 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2616" class="LineNr"> 2616 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2617" class="LineNr"> 2617 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2618" class="LineNr"> 2618 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2619" class="LineNr"> 2619 </span> <span class="subxComment">#</span> -<span id="L2620" class="LineNr"> 2620 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2621" class="LineNr"> 2621 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) -<span id="L2622" class="LineNr"> 2622 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy x\n"</span>) -<span id="L2623" class="LineNr"> 2623 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2624" class="LineNr"> 2624 </span> <span class="subxComment"># convert</span> -<span id="L2625" class="LineNr"> 2625 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2626" class="LineNr"> 2626 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2627" class="Folded"> 2627 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2633" class="LineNr"> 2633 </span> <span class="subxComment"># check output</span> -<span id="L2634" class="LineNr"> 2634 </span> (<a href='109stream-equal.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#L2610'>test-convert-function-with-local-var-in-same-reg</a>/0"</span>) -<span id="L2635" class="LineNr"> 2635 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-same-reg/1"</span>) -<span id="L2636" class="LineNr"> 2636 </span> (<a href='109stream-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#L2610'>test-convert-function-with-local-var-in-same-reg</a>/2"</span>) -<span id="L2637" class="LineNr"> 2637 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2610'>test-convert-function-with-local-var-in-same-reg</a>/3"</span>) -<span id="L2638" class="LineNr"> 2638 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2610'>test-convert-function-with-local-var-in-same-reg</a>/4"</span>) -<span id="L2639" class="LineNr"> 2639 </span> (<a href='109stream-equal.subx.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#L2610'>test-convert-function-with-local-var-in-same-reg</a>/5"</span>) -<span id="L2640" class="LineNr"> 2640 </span> (<a href='109stream-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#L2610'>test-convert-function-with-local-var-in-same-reg</a>/6"</span>) -<span id="L2641" class="LineNr"> 2641 </span> (<a href='109stream-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#L2610'>test-convert-function-with-local-var-in-same-reg</a>/7"</span>) -<span id="L2642" class="LineNr"> 2642 </span> <span class="subxComment"># optimization: skip the second copy</span> -<span id="L2643" class="LineNr"> 2643 </span> (<a href='109stream-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#L2610'>test-convert-function-with-local-var-in-same-reg</a>/8"</span>) -<span id="L2644" class="LineNr"> 2644 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2610'>test-convert-function-with-local-var-in-same-reg</a>/9"</span>) -<span id="L2645" class="LineNr"> 2645 </span> (<a href='109stream-equal.subx.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#L2610'>test-convert-function-with-local-var-in-same-reg</a>/10"</span>) -<span id="L2646" class="LineNr"> 2646 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-same-reg/11"</span>) -<span id="L2647" class="LineNr"> 2647 </span> (<a href='109stream-equal.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#L2610'>test-convert-function-with-local-var-in-same-reg</a>/12"</span>) -<span id="L2648" class="LineNr"> 2648 </span> (<a href='109stream-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#L2610'>test-convert-function-with-local-var-in-same-reg</a>/13"</span>) -<span id="L2649" class="LineNr"> 2649 </span> (<a href='109stream-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#L2610'>test-convert-function-with-local-var-in-same-reg</a>/14"</span>) -<span id="L2650" class="LineNr"> 2650 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2651" class="LineNr"> 2651 </span> 89/<- %esp 5/r32/ebp -<span id="L2652" class="LineNr"> 2652 </span> 5d/pop-to-ebp -<span id="L2653" class="LineNr"> 2653 </span> c3/return -<span id="L2654" class="LineNr"> 2654 </span> -<span id="L2655" class="LineNr"> 2655 </span><span class="subxTest">test-convert-function-with-local-var-in-same-reg-dereferenced</span>: -<span id="L2656" class="LineNr"> 2656 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2657" class="LineNr"> 2657 </span> 55/push-ebp -<span id="L2658" class="LineNr"> 2658 </span> 89/<- %ebp 4/r32/esp -<span id="L2659" class="LineNr"> 2659 </span> <span class="subxComment"># setup</span> -<span id="L2660" class="LineNr"> 2660 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2661" class="LineNr"> 2661 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2662" class="LineNr"> 2662 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2663" class="LineNr"> 2663 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2664" class="LineNr"> 2664 </span> <span class="subxComment">#</span> -<span id="L2665" class="LineNr"> 2665 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2666" class="LineNr"> 2666 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr int) <- copy 0\n"</span>) -<span id="L2667" class="LineNr"> 2667 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy *x\n"</span>) -<span id="L2668" class="LineNr"> 2668 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2669" class="LineNr"> 2669 </span> <span class="subxComment"># convert</span> -<span id="L2670" class="LineNr"> 2670 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2671" class="LineNr"> 2671 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2672" class="Folded"> 2672 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2678" class="LineNr"> 2678 </span> <span class="subxComment"># check output</span> -<span id="L2679" class="LineNr"> 2679 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2655'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/0"</span>) -<span id="L2680" class="LineNr"> 2680 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-same-reg-dereferenced/1"</span>) -<span id="L2681" class="LineNr"> 2681 </span> (<a href='109stream-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#L2655'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/2"</span>) -<span id="L2682" class="LineNr"> 2682 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2655'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/3"</span>) -<span id="L2683" class="LineNr"> 2683 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2655'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/4"</span>) -<span id="L2684" class="LineNr"> 2684 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2655'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/5"</span>) -<span id="L2685" class="LineNr"> 2685 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2655'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/6"</span>) -<span id="L2686" class="LineNr"> 2686 </span> (<a href='109stream-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#L2655'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/7"</span>) -<span id="L2687" class="LineNr"> 2687 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *ecx 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2655'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/8"</span>) <span class="subxComment"># don't optimize this away</span> -<span id="L2688" class="LineNr"> 2688 </span> (<a href='109stream-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#L2655'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/9"</span>) -<span id="L2689" class="LineNr"> 2689 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2655'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/10"</span>) -<span id="L2690" class="LineNr"> 2690 </span> (<a href='109stream-equal.subx.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#L2655'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/11"</span>) -<span id="L2691" class="LineNr"> 2691 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-same-reg-dereferenced/12"</span>) -<span id="L2692" class="LineNr"> 2692 </span> (<a href='109stream-equal.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#L2655'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/13"</span>) -<span id="L2693" class="LineNr"> 2693 </span> (<a href='109stream-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#L2655'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/14"</span>) -<span id="L2694" class="LineNr"> 2694 </span> (<a href='109stream-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#L2655'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/15"</span>) -<span id="L2695" class="LineNr"> 2695 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2696" class="LineNr"> 2696 </span> 89/<- %esp 5/r32/ebp -<span id="L2697" class="LineNr"> 2697 </span> 5d/pop-to-ebp -<span id="L2698" class="LineNr"> 2698 </span> c3/return -<span id="L2699" class="LineNr"> 2699 </span> -<span id="L2700" class="LineNr"> 2700 </span><span class="subxTest">test-float-var-in-wrong-register</span>: -<span id="L2701" class="LineNr"> 2701 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2702" class="LineNr"> 2702 </span> 55/push-ebp -<span id="L2703" class="LineNr"> 2703 </span> 89/<- %ebp 4/r32/esp -<span id="L2704" class="LineNr"> 2704 </span> <span class="subxComment"># setup</span> -<span id="L2705" class="LineNr"> 2705 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2706" class="LineNr"> 2706 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2707" class="LineNr"> 2707 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2708" class="LineNr"> 2708 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2709" class="LineNr"> 2709 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L2710" class="LineNr"> 2710 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2711" class="LineNr"> 2711 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L2712" class="LineNr"> 2712 </span> 68/push 0/imm32 -<span id="L2713" class="LineNr"> 2713 </span> 68/push 0/imm32 -<span id="L2714" class="LineNr"> 2714 </span> 89/<- %edx 4/r32/esp -<span id="L2715" class="LineNr"> 2715 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2716" class="LineNr"> 2716 </span> <span class="subxComment">#</span> -<span id="L2717" class="LineNr"> 2717 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2718" class="LineNr"> 2718 </span> (<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="L2719" class="LineNr"> 2719 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: float <- convert x\n"</span>) -<span id="L2720" class="LineNr"> 2720 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2721" class="LineNr"> 2721 </span> <span class="subxComment"># convert</span> -<span id="L2722" class="LineNr"> 2722 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L2723" class="LineNr"> 2723 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2724" class="LineNr"> 2724 </span> <span class="subxComment"># restore ed</span> -<span id="L2725" class="LineNr"> 2725 </span> 89/<- %edx 4/r32/esp -<span id="L2726" class="LineNr"> 2726 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2727" class="LineNr"> 2727 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L2728" class="Folded"> 2728 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2734" class="LineNr"> 2734 </span> <span class="subxComment"># check output</span> -<span id="L2735" class="LineNr"> 2735 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2700'>test-float-var-in-wrong-register</a>: output should be empty"</span>) -<span id="L2736" class="LineNr"> 2736 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: float var 'y' should be in a floating-point register"</span> <span class="Constant">"F - <a href='mu.subx.html#L2700'>test-float-var-in-wrong-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L2737" class="LineNr"> 2737 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2738" class="LineNr"> 2738 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2700'>test-float-var-in-wrong-register</a>: exit status"</span>) -<span id="L2739" class="LineNr"> 2739 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2740" class="LineNr"> 2740 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2741" class="LineNr"> 2741 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2742" class="LineNr"> 2742 </span> 5d/pop-to-ebp -<span id="L2743" class="LineNr"> 2743 </span> c3/return -<span id="L2744" class="LineNr"> 2744 </span> -<span id="L2745" class="LineNr"> 2745 </span><span class="subxTest">test-non-float-var-in-wrong-register</span>: -<span id="L2746" class="LineNr"> 2746 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2747" class="LineNr"> 2747 </span> 55/push-ebp -<span id="L2748" class="LineNr"> 2748 </span> 89/<- %ebp 4/r32/esp -<span id="L2749" class="LineNr"> 2749 </span> <span class="subxComment"># setup</span> -<span id="L2750" class="LineNr"> 2750 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2751" class="LineNr"> 2751 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2752" class="LineNr"> 2752 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2753" class="LineNr"> 2753 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2754" class="LineNr"> 2754 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L2755" class="LineNr"> 2755 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2756" class="LineNr"> 2756 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2589" class="LineNr"> 2589 </span> (<a href='109stream-equal.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#L2565'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/0"</span>) +<span id="L2590" class="LineNr"> 2590 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-compound-type-in-mem/1"</span>) +<span id="L2591" class="LineNr"> 2591 </span> (<a href='109stream-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#L2565'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/2"</span>) +<span id="L2592" class="LineNr"> 2592 </span> (<a href='109stream-equal.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#L2565'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/3"</span>) +<span id="L2593" class="LineNr"> 2593 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2565'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/4"</span>) +<span id="L2594" class="LineNr"> 2594 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2565'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/5"</span>) +<span id="L2595" class="LineNr"> 2595 </span> (<a href='109stream-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#L2565'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/6"</span>) +<span id="L2596" class="LineNr"> 2596 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c7 0/subop/copy *(ebp+0xfffffffc) 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2565'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/7"</span>) +<span id="L2597" class="LineNr"> 2597 </span> (<a href='109stream-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#L2565'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/8"</span>) +<span id="L2598" class="LineNr"> 2598 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2565'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/9"</span>) +<span id="L2599" class="LineNr"> 2599 </span> (<a href='109stream-equal.subx.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#L2565'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/10"</span>) +<span id="L2600" class="LineNr"> 2600 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-compound-type-in-mem/11"</span>) +<span id="L2601" class="LineNr"> 2601 </span> (<a href='109stream-equal.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#L2565'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/12"</span>) +<span id="L2602" class="LineNr"> 2602 </span> (<a href='109stream-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#L2565'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/13"</span>) +<span id="L2603" class="LineNr"> 2603 </span> (<a href='109stream-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#L2565'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/14"</span>) +<span id="L2604" class="LineNr"> 2604 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2605" class="LineNr"> 2605 </span> 89/<- %esp 5/r32/ebp +<span id="L2606" class="LineNr"> 2606 </span> 5d/pop-to-ebp +<span id="L2607" class="LineNr"> 2607 </span> c3/return +<span id="L2608" class="LineNr"> 2608 </span> +<span id="L2609" class="LineNr"> 2609 </span><span class="subxTest">test-convert-function-with-local-var-in-reg</span>: +<span id="L2610" class="LineNr"> 2610 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2611" class="LineNr"> 2611 </span> 55/push-ebp +<span id="L2612" class="LineNr"> 2612 </span> 89/<- %ebp 4/r32/esp +<span id="L2613" class="LineNr"> 2613 </span> <span class="subxComment"># setup</span> +<span id="L2614" class="LineNr"> 2614 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2615" class="LineNr"> 2615 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2616" class="LineNr"> 2616 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2617" class="LineNr"> 2617 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2618" class="LineNr"> 2618 </span> <span class="subxComment">#</span> +<span id="L2619" class="LineNr"> 2619 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2620" class="LineNr"> 2620 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) +<span id="L2621" class="LineNr"> 2621 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) +<span id="L2622" class="LineNr"> 2622 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2623" class="LineNr"> 2623 </span> <span class="subxComment"># convert</span> +<span id="L2624" class="LineNr"> 2624 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2625" class="LineNr"> 2625 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2626" class="Folded"> 2626 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2632" class="LineNr"> 2632 </span> <span class="subxComment"># check output</span> +<span id="L2633" class="LineNr"> 2633 </span> (<a href='109stream-equal.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#L2609'>test-convert-function-with-local-var-in-reg</a>/0"</span>) +<span id="L2634" class="LineNr"> 2634 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-reg/1"</span>) +<span id="L2635" class="LineNr"> 2635 </span> (<a href='109stream-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#L2609'>test-convert-function-with-local-var-in-reg</a>/2"</span>) +<span id="L2636" class="LineNr"> 2636 </span> (<a href='109stream-equal.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#L2609'>test-convert-function-with-local-var-in-reg</a>/3"</span>) +<span id="L2637" class="LineNr"> 2637 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2609'>test-convert-function-with-local-var-in-reg</a>/4"</span>) +<span id="L2638" class="LineNr"> 2638 </span> (<a href='109stream-equal.subx.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#L2609'>test-convert-function-with-local-var-in-reg</a>/5"</span>) +<span id="L2639" class="LineNr"> 2639 </span> (<a href='109stream-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#L2609'>test-convert-function-with-local-var-in-reg</a>/6"</span>) +<span id="L2640" class="LineNr"> 2640 </span> (<a href='109stream-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#L2609'>test-convert-function-with-local-var-in-reg</a>/7"</span>) +<span id="L2641" class="LineNr"> 2641 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2609'>test-convert-function-with-local-var-in-reg</a>/8"</span>) +<span id="L2642" class="LineNr"> 2642 </span> (<a href='109stream-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#L2609'>test-convert-function-with-local-var-in-reg</a>/9"</span>) +<span id="L2643" class="LineNr"> 2643 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2609'>test-convert-function-with-local-var-in-reg</a>/10"</span>) +<span id="L2644" class="LineNr"> 2644 </span> (<a href='109stream-equal.subx.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#L2609'>test-convert-function-with-local-var-in-reg</a>/11"</span>) +<span id="L2645" class="LineNr"> 2645 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-reg/12"</span>) +<span id="L2646" class="LineNr"> 2646 </span> (<a href='109stream-equal.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#L2609'>test-convert-function-with-local-var-in-reg</a>/13"</span>) +<span id="L2647" class="LineNr"> 2647 </span> (<a href='109stream-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#L2609'>test-convert-function-with-local-var-in-reg</a>/14"</span>) +<span id="L2648" class="LineNr"> 2648 </span> (<a href='109stream-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#L2609'>test-convert-function-with-local-var-in-reg</a>/15"</span>) +<span id="L2649" class="LineNr"> 2649 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2650" class="LineNr"> 2650 </span> 89/<- %esp 5/r32/ebp +<span id="L2651" class="LineNr"> 2651 </span> 5d/pop-to-ebp +<span id="L2652" class="LineNr"> 2652 </span> c3/return +<span id="L2653" class="LineNr"> 2653 </span> +<span id="L2654" class="LineNr"> 2654 </span><span class="subxTest">test-convert-function-with-local-var-in-same-reg</span>: +<span id="L2655" class="LineNr"> 2655 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2656" class="LineNr"> 2656 </span> 55/push-ebp +<span id="L2657" class="LineNr"> 2657 </span> 89/<- %ebp 4/r32/esp +<span id="L2658" class="LineNr"> 2658 </span> <span class="subxComment"># setup</span> +<span id="L2659" class="LineNr"> 2659 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2660" class="LineNr"> 2660 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2661" class="LineNr"> 2661 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2662" class="LineNr"> 2662 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2663" class="LineNr"> 2663 </span> <span class="subxComment">#</span> +<span id="L2664" class="LineNr"> 2664 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2665" class="LineNr"> 2665 </span> (<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="L2666" class="LineNr"> 2666 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy x\n"</span>) +<span id="L2667" class="LineNr"> 2667 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2668" class="LineNr"> 2668 </span> <span class="subxComment"># convert</span> +<span id="L2669" class="LineNr"> 2669 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2670" class="LineNr"> 2670 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2671" class="Folded"> 2671 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2677" class="LineNr"> 2677 </span> <span class="subxComment"># check output</span> +<span id="L2678" class="LineNr"> 2678 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2654'>test-convert-function-with-local-var-in-same-reg</a>/0"</span>) +<span id="L2679" class="LineNr"> 2679 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-same-reg/1"</span>) +<span id="L2680" class="LineNr"> 2680 </span> (<a href='109stream-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#L2654'>test-convert-function-with-local-var-in-same-reg</a>/2"</span>) +<span id="L2681" class="LineNr"> 2681 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2654'>test-convert-function-with-local-var-in-same-reg</a>/3"</span>) +<span id="L2682" class="LineNr"> 2682 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2654'>test-convert-function-with-local-var-in-same-reg</a>/4"</span>) +<span id="L2683" class="LineNr"> 2683 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2654'>test-convert-function-with-local-var-in-same-reg</a>/5"</span>) +<span id="L2684" class="LineNr"> 2684 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2654'>test-convert-function-with-local-var-in-same-reg</a>/6"</span>) +<span id="L2685" class="LineNr"> 2685 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2654'>test-convert-function-with-local-var-in-same-reg</a>/7"</span>) +<span id="L2686" class="LineNr"> 2686 </span> <span class="subxComment"># optimization: skip the second copy</span> +<span id="L2687" class="LineNr"> 2687 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2654'>test-convert-function-with-local-var-in-same-reg</a>/8"</span>) +<span id="L2688" class="LineNr"> 2688 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2654'>test-convert-function-with-local-var-in-same-reg</a>/9"</span>) +<span id="L2689" class="LineNr"> 2689 </span> (<a href='109stream-equal.subx.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#L2654'>test-convert-function-with-local-var-in-same-reg</a>/10"</span>) +<span id="L2690" class="LineNr"> 2690 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-same-reg/11"</span>) +<span id="L2691" class="LineNr"> 2691 </span> (<a href='109stream-equal.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#L2654'>test-convert-function-with-local-var-in-same-reg</a>/12"</span>) +<span id="L2692" class="LineNr"> 2692 </span> (<a href='109stream-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#L2654'>test-convert-function-with-local-var-in-same-reg</a>/13"</span>) +<span id="L2693" class="LineNr"> 2693 </span> (<a href='109stream-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#L2654'>test-convert-function-with-local-var-in-same-reg</a>/14"</span>) +<span id="L2694" class="LineNr"> 2694 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2695" class="LineNr"> 2695 </span> 89/<- %esp 5/r32/ebp +<span id="L2696" class="LineNr"> 2696 </span> 5d/pop-to-ebp +<span id="L2697" class="LineNr"> 2697 </span> c3/return +<span id="L2698" class="LineNr"> 2698 </span> +<span id="L2699" class="LineNr"> 2699 </span><span class="subxTest">test-convert-function-with-local-var-in-same-reg-dereferenced</span>: +<span id="L2700" class="LineNr"> 2700 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2701" class="LineNr"> 2701 </span> 55/push-ebp +<span id="L2702" class="LineNr"> 2702 </span> 89/<- %ebp 4/r32/esp +<span id="L2703" class="LineNr"> 2703 </span> <span class="subxComment"># setup</span> +<span id="L2704" class="LineNr"> 2704 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2705" class="LineNr"> 2705 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2706" class="LineNr"> 2706 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2707" class="LineNr"> 2707 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2708" class="LineNr"> 2708 </span> <span class="subxComment">#</span> +<span id="L2709" class="LineNr"> 2709 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2710" class="LineNr"> 2710 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr int) <- copy 0\n"</span>) +<span id="L2711" class="LineNr"> 2711 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy *x\n"</span>) +<span id="L2712" class="LineNr"> 2712 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2713" class="LineNr"> 2713 </span> <span class="subxComment"># convert</span> +<span id="L2714" class="LineNr"> 2714 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2715" class="LineNr"> 2715 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2716" class="Folded"> 2716 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2722" class="LineNr"> 2722 </span> <span class="subxComment"># check output</span> +<span id="L2723" class="LineNr"> 2723 </span> (<a href='109stream-equal.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#L2699'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/0"</span>) +<span id="L2724" class="LineNr"> 2724 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-same-reg-dereferenced/1"</span>) +<span id="L2725" class="LineNr"> 2725 </span> (<a href='109stream-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#L2699'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/2"</span>) +<span id="L2726" class="LineNr"> 2726 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2699'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/3"</span>) +<span id="L2727" class="LineNr"> 2727 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2699'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/4"</span>) +<span id="L2728" class="LineNr"> 2728 </span> (<a href='109stream-equal.subx.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#L2699'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/5"</span>) +<span id="L2729" class="LineNr"> 2729 </span> (<a href='109stream-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#L2699'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/6"</span>) +<span id="L2730" class="LineNr"> 2730 </span> (<a href='109stream-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#L2699'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/7"</span>) +<span id="L2731" class="LineNr"> 2731 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *ecx 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2699'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/8"</span>) <span class="subxComment"># don't optimize this away</span> +<span id="L2732" class="LineNr"> 2732 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2699'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/9"</span>) +<span id="L2733" class="LineNr"> 2733 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2699'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/10"</span>) +<span id="L2734" class="LineNr"> 2734 </span> (<a href='109stream-equal.subx.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#L2699'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/11"</span>) +<span id="L2735" class="LineNr"> 2735 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-same-reg-dereferenced/12"</span>) +<span id="L2736" class="LineNr"> 2736 </span> (<a href='109stream-equal.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#L2699'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/13"</span>) +<span id="L2737" class="LineNr"> 2737 </span> (<a href='109stream-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#L2699'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/14"</span>) +<span id="L2738" class="LineNr"> 2738 </span> (<a href='109stream-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#L2699'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/15"</span>) +<span id="L2739" class="LineNr"> 2739 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2740" class="LineNr"> 2740 </span> 89/<- %esp 5/r32/ebp +<span id="L2741" class="LineNr"> 2741 </span> 5d/pop-to-ebp +<span id="L2742" class="LineNr"> 2742 </span> c3/return +<span id="L2743" class="LineNr"> 2743 </span> +<span id="L2744" class="LineNr"> 2744 </span><span class="subxTest">test-float-var-in-wrong-register</span>: +<span id="L2745" class="LineNr"> 2745 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2746" class="LineNr"> 2746 </span> 55/push-ebp +<span id="L2747" class="LineNr"> 2747 </span> 89/<- %ebp 4/r32/esp +<span id="L2748" class="LineNr"> 2748 </span> <span class="subxComment"># setup</span> +<span id="L2749" class="LineNr"> 2749 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2750" class="LineNr"> 2750 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2751" class="LineNr"> 2751 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2752" class="LineNr"> 2752 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2753" class="LineNr"> 2753 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L2754" class="LineNr"> 2754 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2755" class="LineNr"> 2755 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2756" class="LineNr"> 2756 </span> 68/push 0/imm32 <span id="L2757" class="LineNr"> 2757 </span> 68/push 0/imm32 -<span id="L2758" class="LineNr"> 2758 </span> 68/push 0/imm32 -<span id="L2759" class="LineNr"> 2759 </span> 89/<- %edx 4/r32/esp -<span id="L2760" class="LineNr"> 2760 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2761" class="LineNr"> 2761 </span> <span class="subxComment">#</span> -<span id="L2762" class="LineNr"> 2762 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2763" class="LineNr"> 2763 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/xmm5: int <- copy 0\n"</span>) +<span id="L2758" class="LineNr"> 2758 </span> 89/<- %edx 4/r32/esp +<span id="L2759" class="LineNr"> 2759 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2760" class="LineNr"> 2760 </span> <span class="subxComment">#</span> +<span id="L2761" class="LineNr"> 2761 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2762" class="LineNr"> 2762 </span> (<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="L2763" class="LineNr"> 2763 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: float <- convert x\n"</span>) <span id="L2764" class="LineNr"> 2764 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L2765" class="LineNr"> 2765 </span> <span class="subxComment"># convert</span> <span id="L2766" class="LineNr"> 2766 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -2596,19 +2596,19 @@ if ('onhashchange' in window) { <span id="L2769" class="LineNr"> 2769 </span> 89/<- %edx 4/r32/esp <span id="L2770" class="LineNr"> 2770 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L2771" class="LineNr"> 2771 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L2772" class="Folded"> 2772 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2772" class="Folded"> 2772 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2778" class="LineNr"> 2778 </span> <span class="subxComment"># check output</span> -<span id="L2779" class="LineNr"> 2779 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2745'>test-non-float-var-in-wrong-register</a>: output should be empty"</span>) -<span id="L2780" class="LineNr"> 2780 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: non-float var 'x' should be in an integer register"</span> <span class="Constant">"F - <a href='mu.subx.html#L2745'>test-non-float-var-in-wrong-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L2779" class="LineNr"> 2779 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2744'>test-float-var-in-wrong-register</a>: output should be empty"</span>) +<span id="L2780" class="LineNr"> 2780 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: float var 'y' should be in a floating-point register"</span> <span class="Constant">"F - <a href='mu.subx.html#L2744'>test-float-var-in-wrong-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L2781" class="LineNr"> 2781 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2782" class="LineNr"> 2782 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2745'>test-non-float-var-in-wrong-register</a>: exit status"</span>) +<span id="L2782" class="LineNr"> 2782 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2744'>test-float-var-in-wrong-register</a>: exit status"</span>) <span id="L2783" class="LineNr"> 2783 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L2784" class="LineNr"> 2784 </span> 81 0/subop/add %esp 8/imm32 <span id="L2785" class="LineNr"> 2785 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L2786" class="LineNr"> 2786 </span> 5d/pop-to-ebp <span id="L2787" class="LineNr"> 2787 </span> c3/return <span id="L2788" class="LineNr"> 2788 </span> -<span id="L2789" class="LineNr"> 2789 </span><span class="subxTest">test-convert-function-with-allocate</span>: +<span id="L2789" class="LineNr"> 2789 </span><span class="subxTest">test-non-float-var-in-wrong-register</span>: <span id="L2790" class="LineNr"> 2790 </span> <span class="subxS1Comment"># . prologue</span> <span id="L2791" class="LineNr"> 2791 </span> 55/push-ebp <span id="L2792" class="LineNr"> 2792 </span> 89/<- %ebp 4/r32/esp @@ -2617,77 +2617,77 @@ if ('onhashchange' in window) { <span id="L2795" class="LineNr"> 2795 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L2796" class="LineNr"> 2796 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L2797" class="LineNr"> 2797 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2798" class="LineNr"> 2798 </span> <span class="subxComment">#</span> -<span id="L2799" class="LineNr"> 2799 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2800" class="LineNr"> 2800 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L2801" class="LineNr"> 2801 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> x\n"</span>) -<span id="L2802" class="LineNr"> 2802 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2803" class="LineNr"> 2803 </span> <span class="subxComment"># convert</span> -<span id="L2804" class="LineNr"> 2804 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2805" class="LineNr"> 2805 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2806" class="Folded"> 2806 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2812" class="LineNr"> 2812 </span> <span class="subxComment"># check output</span> -<span id="L2813" class="LineNr"> 2813 </span> (<a href='109stream-equal.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#L2789'>test-convert-function-with-allocate</a>/0"</span>) -<span id="L2814" class="LineNr"> 2814 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-allocate/1"</span>) -<span id="L2815" class="LineNr"> 2815 </span> (<a href='109stream-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#L2789'>test-convert-function-with-allocate</a>/2"</span>) -<span id="L2816" class="LineNr"> 2816 </span> (<a href='109stream-equal.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#L2789'>test-convert-function-with-allocate</a>/3"</span>) -<span id="L2817" class="LineNr"> 2817 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2789'>test-convert-function-with-allocate</a>/4"</span>) -<span id="L2818" class="LineNr"> 2818 </span> (<a href='109stream-equal.subx.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#L2789'>test-convert-function-with-allocate</a>/5"</span>) -<span id="L2819" class="LineNr"> 2819 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2789'>test-convert-function-with-allocate</a>/6"</span>) -<span id="L2820" class="LineNr"> 2820 </span> (<a href='109stream-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#L2789'>test-convert-function-with-allocate</a>/7"</span>) -<span id="L2821" class="LineNr"> 2821 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='120allocate.subx.html#L66'>allocate</a> <a href='120allocate.subx.html#L27'>Heap</a> 0x00000004 %ecx)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2789'>test-convert-function-with-allocate</a>/8"</span>) <span class="subxComment"># 4 = size-of(int)</span> -<span id="L2822" class="LineNr"> 2822 </span> (<a href='109stream-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#L2789'>test-convert-function-with-allocate</a>/9"</span>) -<span id="L2823" class="LineNr"> 2823 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2789'>test-convert-function-with-allocate</a>/10"</span>) -<span id="L2824" class="LineNr"> 2824 </span> (<a href='109stream-equal.subx.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#L2789'>test-convert-function-with-allocate</a>/11"</span>) -<span id="L2825" class="LineNr"> 2825 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-allocate/12"</span>) -<span id="L2826" class="LineNr"> 2826 </span> (<a href='109stream-equal.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#L2789'>test-convert-function-with-allocate</a>/13"</span>) -<span id="L2827" class="LineNr"> 2827 </span> (<a href='109stream-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#L2789'>test-convert-function-with-allocate</a>/14"</span>) -<span id="L2828" class="LineNr"> 2828 </span> (<a href='109stream-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#L2789'>test-convert-function-with-allocate</a>/15"</span>) +<span id="L2798" class="LineNr"> 2798 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L2799" class="LineNr"> 2799 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2800" class="LineNr"> 2800 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2801" class="LineNr"> 2801 </span> 68/push 0/imm32 +<span id="L2802" class="LineNr"> 2802 </span> 68/push 0/imm32 +<span id="L2803" class="LineNr"> 2803 </span> 89/<- %edx 4/r32/esp +<span id="L2804" class="LineNr"> 2804 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2805" class="LineNr"> 2805 </span> <span class="subxComment">#</span> +<span id="L2806" class="LineNr"> 2806 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2807" class="LineNr"> 2807 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/xmm5: int <- copy 0\n"</span>) +<span id="L2808" class="LineNr"> 2808 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2809" class="LineNr"> 2809 </span> <span class="subxComment"># convert</span> +<span id="L2810" class="LineNr"> 2810 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L2811" class="LineNr"> 2811 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2812" class="LineNr"> 2812 </span> <span class="subxComment"># restore ed</span> +<span id="L2813" class="LineNr"> 2813 </span> 89/<- %edx 4/r32/esp +<span id="L2814" class="LineNr"> 2814 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2815" class="LineNr"> 2815 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L2816" class="Folded"> 2816 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2822" class="LineNr"> 2822 </span> <span class="subxComment"># check output</span> +<span id="L2823" class="LineNr"> 2823 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2789'>test-non-float-var-in-wrong-register</a>: output should be empty"</span>) +<span id="L2824" class="LineNr"> 2824 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: non-float var 'x' should be in an integer register"</span> <span class="Constant">"F - <a href='mu.subx.html#L2789'>test-non-float-var-in-wrong-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L2825" class="LineNr"> 2825 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2826" class="LineNr"> 2826 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2789'>test-non-float-var-in-wrong-register</a>: exit status"</span>) +<span id="L2827" class="LineNr"> 2827 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2828" class="LineNr"> 2828 </span> 81 0/subop/add %esp 8/imm32 <span id="L2829" class="LineNr"> 2829 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2830" class="LineNr"> 2830 </span> 89/<- %esp 5/r32/ebp -<span id="L2831" class="LineNr"> 2831 </span> 5d/pop-to-ebp -<span id="L2832" class="LineNr"> 2832 </span> c3/return -<span id="L2833" class="LineNr"> 2833 </span> -<span id="L2834" class="LineNr"> 2834 </span><span class="subxTest">test-initializer-in-hex</span>: -<span id="L2835" class="LineNr"> 2835 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2836" class="LineNr"> 2836 </span> 55/push-ebp -<span id="L2837" class="LineNr"> 2837 </span> 89/<- %ebp 4/r32/esp -<span id="L2838" class="LineNr"> 2838 </span> <span class="subxComment"># setup</span> -<span id="L2839" class="LineNr"> 2839 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2840" class="LineNr"> 2840 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2841" class="LineNr"> 2841 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2842" class="LineNr"> 2842 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2843" class="LineNr"> 2843 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L2844" class="LineNr"> 2844 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2845" class="LineNr"> 2845 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L2846" class="LineNr"> 2846 </span> 68/push 0/imm32 -<span id="L2847" class="LineNr"> 2847 </span> 68/push 0/imm32 -<span id="L2848" class="LineNr"> 2848 </span> 89/<- %edx 4/r32/esp -<span id="L2849" class="LineNr"> 2849 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2850" class="LineNr"> 2850 </span> <span class="subxComment">#</span> -<span id="L2851" class="LineNr"> 2851 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2852" class="LineNr"> 2852 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 10\n"</span>) -<span id="L2853" class="LineNr"> 2853 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2854" class="LineNr"> 2854 </span> <span class="subxComment"># convert</span> -<span id="L2855" class="LineNr"> 2855 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L2856" class="LineNr"> 2856 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2857" class="LineNr"> 2857 </span> <span class="subxComment"># restore ed</span> -<span id="L2858" class="LineNr"> 2858 </span> 89/<- %edx 4/r32/esp -<span id="L2859" class="LineNr"> 2859 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2860" class="LineNr"> 2860 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L2861" class="Folded"> 2861 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2867" class="LineNr"> 2867 </span> <span class="subxComment"># check output</span> -<span id="L2868" class="LineNr"> 2868 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2834'>test-initializer-in-hex</a>: output should be empty"</span>) -<span id="L2869" class="LineNr"> 2869 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"literal integers are always hex in Mu; start '10' with a '0x' to be unambiguous, converting it to hexadecimal as necessary."</span> <span class="Constant">"F - <a href='mu.subx.html#L2834'>test-initializer-in-hex</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L2870" class="LineNr"> 2870 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2871" class="LineNr"> 2871 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2834'>test-initializer-in-hex</a>: exit status"</span>) -<span id="L2872" class="LineNr"> 2872 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2873" class="LineNr"> 2873 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2874" class="LineNr"> 2874 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2830" class="LineNr"> 2830 </span> 5d/pop-to-ebp +<span id="L2831" class="LineNr"> 2831 </span> c3/return +<span id="L2832" class="LineNr"> 2832 </span> +<span id="L2833" class="LineNr"> 2833 </span><span class="subxTest">test-convert-function-with-allocate</span>: +<span id="L2834" class="LineNr"> 2834 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2835" class="LineNr"> 2835 </span> 55/push-ebp +<span id="L2836" class="LineNr"> 2836 </span> 89/<- %ebp 4/r32/esp +<span id="L2837" class="LineNr"> 2837 </span> <span class="subxComment"># setup</span> +<span id="L2838" class="LineNr"> 2838 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2839" class="LineNr"> 2839 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2840" class="LineNr"> 2840 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2841" class="LineNr"> 2841 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2842" class="LineNr"> 2842 </span> <span class="subxComment">#</span> +<span id="L2843" class="LineNr"> 2843 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2844" class="LineNr"> 2844 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L2845" class="LineNr"> 2845 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> x\n"</span>) +<span id="L2846" class="LineNr"> 2846 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2847" class="LineNr"> 2847 </span> <span class="subxComment"># convert</span> +<span id="L2848" class="LineNr"> 2848 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2849" class="LineNr"> 2849 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2850" class="Folded"> 2850 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2856" class="LineNr"> 2856 </span> <span class="subxComment"># check output</span> +<span id="L2857" class="LineNr"> 2857 </span> (<a href='109stream-equal.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#L2833'>test-convert-function-with-allocate</a>/0"</span>) +<span id="L2858" class="LineNr"> 2858 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-allocate/1"</span>) +<span id="L2859" class="LineNr"> 2859 </span> (<a href='109stream-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#L2833'>test-convert-function-with-allocate</a>/2"</span>) +<span id="L2860" class="LineNr"> 2860 </span> (<a href='109stream-equal.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#L2833'>test-convert-function-with-allocate</a>/3"</span>) +<span id="L2861" class="LineNr"> 2861 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2833'>test-convert-function-with-allocate</a>/4"</span>) +<span id="L2862" class="LineNr"> 2862 </span> (<a href='109stream-equal.subx.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#L2833'>test-convert-function-with-allocate</a>/5"</span>) +<span id="L2863" class="LineNr"> 2863 </span> (<a href='109stream-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#L2833'>test-convert-function-with-allocate</a>/6"</span>) +<span id="L2864" class="LineNr"> 2864 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2833'>test-convert-function-with-allocate</a>/7"</span>) +<span id="L2865" class="LineNr"> 2865 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='120allocate.subx.html#L66'>allocate</a> <a href='120allocate.subx.html#L27'>Heap</a> 0x00000004 %ecx)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2833'>test-convert-function-with-allocate</a>/8"</span>) <span class="subxComment"># 4 = size-of(int)</span> +<span id="L2866" class="LineNr"> 2866 </span> (<a href='109stream-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#L2833'>test-convert-function-with-allocate</a>/9"</span>) +<span id="L2867" class="LineNr"> 2867 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2833'>test-convert-function-with-allocate</a>/10"</span>) +<span id="L2868" class="LineNr"> 2868 </span> (<a href='109stream-equal.subx.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#L2833'>test-convert-function-with-allocate</a>/11"</span>) +<span id="L2869" class="LineNr"> 2869 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-allocate/12"</span>) +<span id="L2870" class="LineNr"> 2870 </span> (<a href='109stream-equal.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#L2833'>test-convert-function-with-allocate</a>/13"</span>) +<span id="L2871" class="LineNr"> 2871 </span> (<a href='109stream-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#L2833'>test-convert-function-with-allocate</a>/14"</span>) +<span id="L2872" class="LineNr"> 2872 </span> (<a href='109stream-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#L2833'>test-convert-function-with-allocate</a>/15"</span>) +<span id="L2873" class="LineNr"> 2873 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2874" class="LineNr"> 2874 </span> 89/<- %esp 5/r32/ebp <span id="L2875" class="LineNr"> 2875 </span> 5d/pop-to-ebp <span id="L2876" class="LineNr"> 2876 </span> c3/return <span id="L2877" class="LineNr"> 2877 </span> -<span id="L2878" class="LineNr"> 2878 </span><span class="subxTest">test-convert-function-with-second-local-var-in-same-reg</span>: +<span id="L2878" class="LineNr"> 2878 </span><span class="subxTest">test-initializer-in-hex</span>: <span id="L2879" class="LineNr"> 2879 </span> <span class="subxS1Comment"># . prologue</span> <span id="L2880" class="LineNr"> 2880 </span> 55/push-ebp <span id="L2881" class="LineNr"> 2881 </span> 89/<- %ebp 4/r32/esp @@ -2696,120 +2696,120 @@ if ('onhashchange' in window) { <span id="L2884" class="LineNr"> 2884 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L2885" class="LineNr"> 2885 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L2886" class="LineNr"> 2886 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2887" class="LineNr"> 2887 </span> <span class="subxComment">#</span> -<span id="L2888" class="LineNr"> 2888 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2889" class="LineNr"> 2889 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) -<span id="L2890" class="LineNr"> 2890 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) -<span id="L2891" class="LineNr"> 2891 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- increment\n"</span>) -<span id="L2892" class="LineNr"> 2892 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2893" class="LineNr"> 2893 </span> <span class="subxComment"># convert</span> -<span id="L2894" class="LineNr"> 2894 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2895" class="LineNr"> 2895 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2896" class="Folded"> 2896 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2902" class="LineNr"> 2902 </span> <span class="subxComment"># check output</span> -<span id="L2903" class="LineNr"> 2903 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-convert-function-with-second-local-var-in-same-reg</a>/0"</span>) -<span id="L2904" class="LineNr"> 2904 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-second-local-var-in-same-reg/1"</span>) -<span id="L2905" class="LineNr"> 2905 </span> (<a href='109stream-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#L2878'>test-convert-function-with-second-local-var-in-same-reg</a>/2"</span>) -<span id="L2906" class="LineNr"> 2906 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-convert-function-with-second-local-var-in-same-reg</a>/3"</span>) -<span id="L2907" class="LineNr"> 2907 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-convert-function-with-second-local-var-in-same-reg</a>/4"</span>) -<span id="L2908" class="LineNr"> 2908 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-convert-function-with-second-local-var-in-same-reg</a>/5"</span>) -<span id="L2909" class="LineNr"> 2909 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-convert-function-with-second-local-var-in-same-reg</a>/6"</span>) -<span id="L2910" class="LineNr"> 2910 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-convert-function-with-second-local-var-in-same-reg</a>/7"</span>) -<span id="L2911" class="LineNr"> 2911 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-convert-function-with-second-local-var-in-same-reg</a>/8"</span>) -<span id="L2912" class="LineNr"> 2912 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-convert-function-with-second-local-var-in-same-reg</a>/9"</span>) -<span id="L2913" class="LineNr"> 2913 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-convert-function-with-second-local-var-in-same-reg</a>/10"</span>) -<span id="L2914" class="LineNr"> 2914 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-convert-function-with-second-local-var-in-same-reg</a>/11"</span>) -<span id="L2915" class="LineNr"> 2915 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-convert-function-with-second-local-var-in-same-reg</a>/12"</span>) -<span id="L2916" class="LineNr"> 2916 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-second-local-var-in-same-reg/13"</span>) -<span id="L2917" class="LineNr"> 2917 </span> (<a href='109stream-equal.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#L2878'>test-convert-function-with-second-local-var-in-same-reg</a>/14"</span>) -<span id="L2918" class="LineNr"> 2918 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-convert-function-with-second-local-var-in-same-reg</a>/15"</span>) -<span id="L2919" class="LineNr"> 2919 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-convert-function-with-second-local-var-in-same-reg</a>/16"</span>) -<span id="L2920" class="LineNr"> 2920 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2921" class="LineNr"> 2921 </span> 89/<- %esp 5/r32/ebp -<span id="L2922" class="LineNr"> 2922 </span> 5d/pop-to-ebp -<span id="L2923" class="LineNr"> 2923 </span> c3/return -<span id="L2924" class="LineNr"> 2924 </span> -<span id="L2925" class="LineNr"> 2925 </span><span class="subxTest">test-read-clobbered-reg-var</span>: -<span id="L2926" class="LineNr"> 2926 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2927" class="LineNr"> 2927 </span> 55/push-ebp -<span id="L2928" class="LineNr"> 2928 </span> 89/<- %ebp 4/r32/esp -<span id="L2929" class="LineNr"> 2929 </span> <span class="subxComment"># setup</span> -<span id="L2930" class="LineNr"> 2930 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2931" class="LineNr"> 2931 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2932" class="LineNr"> 2932 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2933" class="LineNr"> 2933 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2934" class="LineNr"> 2934 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L2935" class="LineNr"> 2935 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2936" class="LineNr"> 2936 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16) # bytes of args in call to convert-mu</span> -<span id="L2937" class="LineNr"> 2937 </span> 68/push 0/imm32 -<span id="L2938" class="LineNr"> 2938 </span> 68/push 0/imm32 -<span id="L2939" class="LineNr"> 2939 </span> 89/<- %edx 4/r32/esp -<span id="L2940" class="LineNr"> 2940 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2941" class="LineNr"> 2941 </span> <span class="subxComment">#</span> -<span id="L2942" class="LineNr"> 2942 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2943" class="LineNr"> 2943 </span> (<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="L2944" class="LineNr"> 2944 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) -<span id="L2945" class="LineNr"> 2945 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) -<span id="L2946" class="LineNr"> 2946 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2947" class="LineNr"> 2947 </span> <span class="subxComment"># convert</span> -<span id="L2948" class="LineNr"> 2948 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L2949" class="LineNr"> 2949 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2950" class="LineNr"> 2950 </span> <span class="subxComment"># restore ed</span> -<span id="L2951" class="LineNr"> 2951 </span> 89/<- %edx 4/r32/esp -<span id="L2952" class="LineNr"> 2952 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2953" class="LineNr"> 2953 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L2954" class="Folded"> 2954 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2960" class="LineNr"> 2960 </span> <span class="subxComment"># check output</span> -<span id="L2961" class="LineNr"> 2961 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-read-clobbered-reg-var</a>: output should be empty"</span>) -<span id="L2962" class="LineNr"> 2962 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: register ecx reads var 'x' after writing var 'y'"</span> <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-read-clobbered-reg-var</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L2963" class="LineNr"> 2963 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2964" class="LineNr"> 2964 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2925'>test-read-clobbered-reg-var</a>: exit status"</span>) -<span id="L2965" class="LineNr"> 2965 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2966" class="LineNr"> 2966 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2967" class="LineNr"> 2967 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2968" class="LineNr"> 2968 </span> 5d/pop-to-ebp -<span id="L2969" class="LineNr"> 2969 </span> c3/return -<span id="L2970" class="LineNr"> 2970 </span> -<span id="L2971" class="LineNr"> 2971 </span><span class="subxTest">test-overlapping-int-fp-registers</span>: -<span id="L2972" class="LineNr"> 2972 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2973" class="LineNr"> 2973 </span> 55/push-ebp -<span id="L2974" class="LineNr"> 2974 </span> 89/<- %ebp 4/r32/esp -<span id="L2975" class="LineNr"> 2975 </span> <span class="subxComment"># setup</span> -<span id="L2976" class="LineNr"> 2976 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2977" class="LineNr"> 2977 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2978" class="LineNr"> 2978 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L2979" class="LineNr"> 2979 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2980" class="LineNr"> 2980 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L2981" class="LineNr"> 2981 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2982" class="LineNr"> 2982 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16) # bytes of args in call to convert-mu</span> -<span id="L2983" class="LineNr"> 2983 </span> 68/push 0/imm32 -<span id="L2984" class="LineNr"> 2984 </span> 68/push 0/imm32 -<span id="L2985" class="LineNr"> 2985 </span> 89/<- %edx 4/r32/esp -<span id="L2986" class="LineNr"> 2986 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2987" class="LineNr"> 2987 </span> <span class="subxComment">#</span> -<span id="L2988" class="LineNr"> 2988 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2989" class="LineNr"> 2989 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 3\n"</span>) -<span id="L2990" class="LineNr"> 2990 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm0: float <- convert x\n"</span>) -<span id="L2991" class="LineNr"> 2991 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) -<span id="L2992" class="LineNr"> 2992 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2993" class="LineNr"> 2993 </span> <span class="subxComment"># convert</span> -<span id="L2994" class="LineNr"> 2994 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L2995" class="LineNr"> 2995 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2996" class="LineNr"> 2996 </span> <span class="subxComment"># restore ed</span> -<span id="L2997" class="LineNr"> 2997 </span> 89/<- %edx 4/r32/esp -<span id="L2998" class="LineNr"> 2998 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L2999" class="LineNr"> 2999 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3000" class="Folded"> 3000 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3006" class="LineNr"> 3006 </span> <span class="subxComment"># no errors</span> -<span id="L3007" class="LineNr"> 3007 </span> (<a href='109stream-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#L2971'>test-overlapping-int-fp-registers</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L3008" class="LineNr"> 3008 </span> <span class="subxComment"># don't bother checking the generated code</span> +<span id="L2887" class="LineNr"> 2887 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L2888" class="LineNr"> 2888 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2889" class="LineNr"> 2889 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2890" class="LineNr"> 2890 </span> 68/push 0/imm32 +<span id="L2891" class="LineNr"> 2891 </span> 68/push 0/imm32 +<span id="L2892" class="LineNr"> 2892 </span> 89/<- %edx 4/r32/esp +<span id="L2893" class="LineNr"> 2893 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2894" class="LineNr"> 2894 </span> <span class="subxComment">#</span> +<span id="L2895" class="LineNr"> 2895 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2896" class="LineNr"> 2896 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 10\n"</span>) +<span id="L2897" class="LineNr"> 2897 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2898" class="LineNr"> 2898 </span> <span class="subxComment"># convert</span> +<span id="L2899" class="LineNr"> 2899 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L2900" class="LineNr"> 2900 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2901" class="LineNr"> 2901 </span> <span class="subxComment"># restore ed</span> +<span id="L2902" class="LineNr"> 2902 </span> 89/<- %edx 4/r32/esp +<span id="L2903" class="LineNr"> 2903 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2904" class="LineNr"> 2904 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L2905" class="Folded"> 2905 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2911" class="LineNr"> 2911 </span> <span class="subxComment"># check output</span> +<span id="L2912" class="LineNr"> 2912 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-initializer-in-hex</a>: output should be empty"</span>) +<span id="L2913" class="LineNr"> 2913 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"literal integers are always hex in Mu; start '10' with a '0x' to be unambiguous, converting it to hexadecimal as necessary."</span> <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-initializer-in-hex</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L2914" class="LineNr"> 2914 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2915" class="LineNr"> 2915 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2878'>test-initializer-in-hex</a>: exit status"</span>) +<span id="L2916" class="LineNr"> 2916 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2917" class="LineNr"> 2917 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2918" class="LineNr"> 2918 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2919" class="LineNr"> 2919 </span> 5d/pop-to-ebp +<span id="L2920" class="LineNr"> 2920 </span> c3/return +<span id="L2921" class="LineNr"> 2921 </span> +<span id="L2922" class="LineNr"> 2922 </span><span class="subxTest">test-convert-function-with-second-local-var-in-same-reg</span>: +<span id="L2923" class="LineNr"> 2923 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2924" class="LineNr"> 2924 </span> 55/push-ebp +<span id="L2925" class="LineNr"> 2925 </span> 89/<- %ebp 4/r32/esp +<span id="L2926" class="LineNr"> 2926 </span> <span class="subxComment"># setup</span> +<span id="L2927" class="LineNr"> 2927 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2928" class="LineNr"> 2928 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2929" class="LineNr"> 2929 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2930" class="LineNr"> 2930 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2931" class="LineNr"> 2931 </span> <span class="subxComment">#</span> +<span id="L2932" class="LineNr"> 2932 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2933" class="LineNr"> 2933 </span> (<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="L2934" class="LineNr"> 2934 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) +<span id="L2935" class="LineNr"> 2935 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- increment\n"</span>) +<span id="L2936" class="LineNr"> 2936 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2937" class="LineNr"> 2937 </span> <span class="subxComment"># convert</span> +<span id="L2938" class="LineNr"> 2938 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L2939" class="LineNr"> 2939 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2940" class="Folded"> 2940 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2946" class="LineNr"> 2946 </span> <span class="subxComment"># check output</span> +<span id="L2947" class="LineNr"> 2947 </span> (<a href='109stream-equal.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#L2922'>test-convert-function-with-second-local-var-in-same-reg</a>/0"</span>) +<span id="L2948" class="LineNr"> 2948 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-second-local-var-in-same-reg/1"</span>) +<span id="L2949" class="LineNr"> 2949 </span> (<a href='109stream-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#L2922'>test-convert-function-with-second-local-var-in-same-reg</a>/2"</span>) +<span id="L2950" class="LineNr"> 2950 </span> (<a href='109stream-equal.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#L2922'>test-convert-function-with-second-local-var-in-same-reg</a>/3"</span>) +<span id="L2951" class="LineNr"> 2951 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2922'>test-convert-function-with-second-local-var-in-same-reg</a>/4"</span>) +<span id="L2952" class="LineNr"> 2952 </span> (<a href='109stream-equal.subx.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#L2922'>test-convert-function-with-second-local-var-in-same-reg</a>/5"</span>) +<span id="L2953" class="LineNr"> 2953 </span> (<a href='109stream-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#L2922'>test-convert-function-with-second-local-var-in-same-reg</a>/6"</span>) +<span id="L2954" class="LineNr"> 2954 </span> (<a href='109stream-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#L2922'>test-convert-function-with-second-local-var-in-same-reg</a>/7"</span>) +<span id="L2955" class="LineNr"> 2955 </span> (<a href='109stream-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#L2922'>test-convert-function-with-second-local-var-in-same-reg</a>/8"</span>) +<span id="L2956" class="LineNr"> 2956 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2922'>test-convert-function-with-second-local-var-in-same-reg</a>/9"</span>) +<span id="L2957" class="LineNr"> 2957 </span> (<a href='109stream-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#L2922'>test-convert-function-with-second-local-var-in-same-reg</a>/10"</span>) +<span id="L2958" class="LineNr"> 2958 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2922'>test-convert-function-with-second-local-var-in-same-reg</a>/11"</span>) +<span id="L2959" class="LineNr"> 2959 </span> (<a href='109stream-equal.subx.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#L2922'>test-convert-function-with-second-local-var-in-same-reg</a>/12"</span>) +<span id="L2960" class="LineNr"> 2960 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-second-local-var-in-same-reg/13"</span>) +<span id="L2961" class="LineNr"> 2961 </span> (<a href='109stream-equal.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#L2922'>test-convert-function-with-second-local-var-in-same-reg</a>/14"</span>) +<span id="L2962" class="LineNr"> 2962 </span> (<a href='109stream-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#L2922'>test-convert-function-with-second-local-var-in-same-reg</a>/15"</span>) +<span id="L2963" class="LineNr"> 2963 </span> (<a href='109stream-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#L2922'>test-convert-function-with-second-local-var-in-same-reg</a>/16"</span>) +<span id="L2964" class="LineNr"> 2964 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2965" class="LineNr"> 2965 </span> 89/<- %esp 5/r32/ebp +<span id="L2966" class="LineNr"> 2966 </span> 5d/pop-to-ebp +<span id="L2967" class="LineNr"> 2967 </span> c3/return +<span id="L2968" class="LineNr"> 2968 </span> +<span id="L2969" class="LineNr"> 2969 </span><span class="subxTest">test-read-clobbered-reg-var</span>: +<span id="L2970" class="LineNr"> 2970 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2971" class="LineNr"> 2971 </span> 55/push-ebp +<span id="L2972" class="LineNr"> 2972 </span> 89/<- %ebp 4/r32/esp +<span id="L2973" class="LineNr"> 2973 </span> <span class="subxComment"># setup</span> +<span id="L2974" class="LineNr"> 2974 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2975" class="LineNr"> 2975 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2976" class="LineNr"> 2976 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2977" class="LineNr"> 2977 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2978" class="LineNr"> 2978 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L2979" class="LineNr"> 2979 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2980" class="LineNr"> 2980 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16) # bytes of args in call to convert-mu</span> +<span id="L2981" class="LineNr"> 2981 </span> 68/push 0/imm32 +<span id="L2982" class="LineNr"> 2982 </span> 68/push 0/imm32 +<span id="L2983" class="LineNr"> 2983 </span> 89/<- %edx 4/r32/esp +<span id="L2984" class="LineNr"> 2984 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2985" class="LineNr"> 2985 </span> <span class="subxComment">#</span> +<span id="L2986" class="LineNr"> 2986 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2987" class="LineNr"> 2987 </span> (<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="L2988" class="LineNr"> 2988 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) +<span id="L2989" class="LineNr"> 2989 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) +<span id="L2990" class="LineNr"> 2990 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2991" class="LineNr"> 2991 </span> <span class="subxComment"># convert</span> +<span id="L2992" class="LineNr"> 2992 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L2993" class="LineNr"> 2993 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2994" class="LineNr"> 2994 </span> <span class="subxComment"># restore ed</span> +<span id="L2995" class="LineNr"> 2995 </span> 89/<- %edx 4/r32/esp +<span id="L2996" class="LineNr"> 2996 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2997" class="LineNr"> 2997 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L2998" class="Folded"> 2998 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3004" class="LineNr"> 3004 </span> <span class="subxComment"># check output</span> +<span id="L3005" class="LineNr"> 3005 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2969'>test-read-clobbered-reg-var</a>: output should be empty"</span>) +<span id="L3006" class="LineNr"> 3006 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: register ecx reads var 'x' after writing var 'y'"</span> <span class="Constant">"F - <a href='mu.subx.html#L2969'>test-read-clobbered-reg-var</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3007" class="LineNr"> 3007 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3008" class="LineNr"> 3008 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2969'>test-read-clobbered-reg-var</a>: exit status"</span>) <span id="L3009" class="LineNr"> 3009 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L3010" class="LineNr"> 3010 </span> 81 0/subop/add %esp 8/imm32 <span id="L3011" class="LineNr"> 3011 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L3012" class="LineNr"> 3012 </span> 5d/pop-to-ebp <span id="L3013" class="LineNr"> 3013 </span> c3/return <span id="L3014" class="LineNr"> 3014 </span> -<span id="L3015" class="LineNr"> 3015 </span><span class="subxTest">test-convert-function-call</span>: +<span id="L3015" class="LineNr"> 3015 </span><span class="subxTest">test-overlapping-int-fp-registers</span>: <span id="L3016" class="LineNr"> 3016 </span> <span class="subxS1Comment"># . prologue</span> <span id="L3017" class="LineNr"> 3017 </span> 55/push-ebp <span id="L3018" class="LineNr"> 3018 </span> 89/<- %ebp 4/r32/esp @@ -2818,372 +2818,372 @@ if ('onhashchange' in window) { <span id="L3021" class="LineNr"> 3021 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L3022" class="LineNr"> 3022 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L3023" class="LineNr"> 3023 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3024" class="LineNr"> 3024 </span> <span class="subxComment">#</span> -<span id="L3025" class="LineNr"> 3025 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn main -> _/ebx: int {\n"</span>) -<span id="L3026" class="LineNr"> 3026 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/ebx: int <- foo\n"</span>) -<span id="L3027" class="LineNr"> 3027 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) -<span id="L3028" class="LineNr"> 3028 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3029" class="LineNr"> 3029 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/ebx: int {\n"</span>) -<span id="L3030" class="LineNr"> 3030 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/ebx: int <- copy 3\n"</span>) -<span id="L3031" class="LineNr"> 3031 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) -<span id="L3032" class="LineNr"> 3032 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3033" class="LineNr"> 3033 </span> <span class="subxComment"># convert</span> -<span id="L3034" class="LineNr"> 3034 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L3035" class="LineNr"> 3035 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3036" class="Folded"> 3036 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3042" class="LineNr"> 3042 </span> <span class="subxComment"># check output</span> -<span id="L3043" class="LineNr"> 3043 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3015'>test-convert-function-call</a>/0"</span>) -<span id="L3044" class="LineNr"> 3044 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call/1"</span>) -<span id="L3045" class="LineNr"> 3045 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3015'>test-convert-function-call</a>/2"</span>) -<span id="L3046" class="LineNr"> 3046 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3015'>test-convert-function-call</a>/3"</span>) -<span id="L3047" class="LineNr"> 3047 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3015'>test-convert-function-call</a>/4"</span>) -<span id="L3048" class="LineNr"> 3048 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3015'>test-convert-function-call</a>/5"</span>) -<span id="L3049" class="LineNr"> 3049 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/6"</span>) -<span id="L3050" class="LineNr"> 3050 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (foo)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3015'>test-convert-function-call</a>/6"</span>) -<span id="L3051" class="LineNr"> 3051 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %ebx 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/8"</span>) -<span id="L3052" class="LineNr"> 3052 </span> (<a href='109stream-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#L2175'>test-convert-function-call-with-literal-arg</a>/27"</span>) -<span id="L3053" class="LineNr"> 3053 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $main:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/10"</span>) -<span id="L3054" class="LineNr"> 3054 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3015'>test-convert-function-call</a>/7"</span>) -<span id="L3055" class="LineNr"> 3055 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3015'>test-convert-function-call</a>/8"</span>) -<span id="L3056" class="LineNr"> 3056 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call/9"</span>) -<span id="L3057" class="LineNr"> 3057 </span> (<a href='109stream-equal.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#L3015'>test-convert-function-call</a>/10"</span>) -<span id="L3058" class="LineNr"> 3058 </span> (<a href='109stream-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#L3015'>test-convert-function-call</a>/11"</span>) -<span id="L3059" class="LineNr"> 3059 </span> (<a href='109stream-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#L3015'>test-convert-function-call</a>/12"</span>) -<span id="L3060" class="LineNr"> 3060 </span> (<a href='109stream-equal.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#L3015'>test-convert-function-call</a>/13"</span>) -<span id="L3061" class="LineNr"> 3061 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call/14"</span>) -<span id="L3062" class="LineNr"> 3062 </span> (<a href='109stream-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#L3015'>test-convert-function-call</a>/15"</span>) -<span id="L3063" class="LineNr"> 3063 </span> (<a href='109stream-equal.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#L3015'>test-convert-function-call</a>/16"</span>) -<span id="L3064" class="LineNr"> 3064 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3015'>test-convert-function-call</a>/17"</span>) -<span id="L3065" class="LineNr"> 3065 </span> (<a href='109stream-equal.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#L3015'>test-convert-function-call</a>/18"</span>) -<span id="L3066" class="LineNr"> 3066 </span> (<a href='109stream-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#L2175'>test-convert-function-call-with-literal-arg</a>/6"</span>) -<span id="L3067" class="LineNr"> 3067 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" bb/copy-to-ebx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3015'>test-convert-function-call</a>/19"</span>) -<span id="L3068" class="LineNr"> 3068 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %ebx 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/8"</span>) -<span id="L3069" class="LineNr"> 3069 </span> (<a href='109stream-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#L2175'>test-convert-function-call-with-literal-arg</a>/27"</span>) -<span id="L3070" class="LineNr"> 3070 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2175'>test-convert-function-call-with-literal-arg</a>/10"</span>) -<span id="L3071" class="LineNr"> 3071 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3015'>test-convert-function-call</a>/20"</span>) -<span id="L3072" class="LineNr"> 3072 </span> (<a href='109stream-equal.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#L3015'>test-convert-function-call</a>/21"</span>) -<span id="L3073" class="LineNr"> 3073 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call/22"</span>) -<span id="L3074" class="LineNr"> 3074 </span> (<a href='109stream-equal.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#L3015'>test-convert-function-call</a>/23"</span>) -<span id="L3075" class="LineNr"> 3075 </span> (<a href='109stream-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#L3015'>test-convert-function-call</a>/24"</span>) -<span id="L3076" class="LineNr"> 3076 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3015'>test-convert-function-call</a>/25"</span>) -<span id="L3077" class="LineNr"> 3077 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3078" class="LineNr"> 3078 </span> 89/<- %esp 5/r32/ebp -<span id="L3079" class="LineNr"> 3079 </span> 5d/pop-to-ebp -<span id="L3080" class="LineNr"> 3080 </span> c3/return -<span id="L3081" class="LineNr"> 3081 </span> -<span id="L3082" class="LineNr"> 3082 </span><span class="subxTest">test-convert-function-call-with-inout-with-compound-type</span>: -<span id="L3083" class="LineNr"> 3083 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3084" class="LineNr"> 3084 </span> 55/push-ebp -<span id="L3085" class="LineNr"> 3085 </span> 89/<- %ebp 4/r32/esp -<span id="L3086" class="LineNr"> 3086 </span> <span class="subxComment"># setup</span> -<span id="L3087" class="LineNr"> 3087 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3088" class="LineNr"> 3088 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3089" class="LineNr"> 3089 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3090" class="LineNr"> 3090 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3091" class="LineNr"> 3091 </span> <span class="subxComment">#</span> -<span id="L3092" class="LineNr"> 3092 </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="L3093" class="LineNr"> 3093 </span> (<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="L3094" class="LineNr"> 3094 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) -<span id="L3095" class="LineNr"> 3095 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3096" class="LineNr"> 3096 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr int) {\n"</span>) -<span id="L3097" class="LineNr"> 3097 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3098" class="LineNr"> 3098 </span> <span class="subxComment"># convert</span> -<span id="L3099" class="LineNr"> 3099 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L3100" class="LineNr"> 3100 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3101" class="Folded"> 3101 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3107" class="LineNr"> 3107 </span> <span class="subxComment"># check output</span> -<span id="L3108" class="LineNr"> 3108 </span> (<a href='109stream-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#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/0"</span>) -<span id="L3109" class="LineNr"> 3109 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/1"</span>) -<span id="L3110" class="LineNr"> 3110 </span> (<a href='109stream-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#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/2"</span>) -<span id="L3111" class="LineNr"> 3111 </span> (<a href='109stream-equal.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#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/3"</span>) -<span id="L3112" class="LineNr"> 3112 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/4"</span>) -<span id="L3113" class="LineNr"> 3113 </span> (<a href='109stream-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#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/5"</span>) -<span id="L3114" class="LineNr"> 3114 </span> (<a href='109stream-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#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/6"</span>) -<span id="L3115" class="LineNr"> 3115 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (g *(ebp+0xfffffffc))"</span> <span class="Constant">"F - <a href='mu.subx.html#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/7"</span>) -<span id="L3116" class="LineNr"> 3116 </span> (<a href='109stream-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#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/8"</span>) -<span id="L3117" class="LineNr"> 3117 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/9"</span>) -<span id="L3118" class="LineNr"> 3118 </span> (<a href='109stream-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#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/10"</span>) -<span id="L3119" class="LineNr"> 3119 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/11"</span>) -<span id="L3120" class="LineNr"> 3120 </span> (<a href='109stream-equal.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#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/12"</span>) -<span id="L3121" class="LineNr"> 3121 </span> (<a href='109stream-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#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/13"</span>) -<span id="L3122" class="LineNr"> 3122 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/14"</span>) -<span id="L3123" class="LineNr"> 3123 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"g:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/15"</span>) -<span id="L3124" class="LineNr"> 3124 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/16"</span>) -<span id="L3125" class="LineNr"> 3125 </span> (<a href='109stream-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#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/17"</span>) -<span id="L3126" class="LineNr"> 3126 </span> (<a href='109stream-equal.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#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/18"</span>) -<span id="L3127" class="LineNr"> 3127 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/19"</span>) -<span id="L3128" class="LineNr"> 3128 </span> (<a href='109stream-equal.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#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/20"</span>) -<span id="L3129" class="LineNr"> 3129 </span> (<a href='109stream-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#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/21"</span>) -<span id="L3130" class="LineNr"> 3130 </span> (<a href='109stream-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#L3082'>test-convert-function-call-with-inout-with-compound-type</a>/22"</span>) -<span id="L3131" class="LineNr"> 3131 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3132" class="LineNr"> 3132 </span> 89/<- %esp 5/r32/ebp -<span id="L3133" class="LineNr"> 3133 </span> 5d/pop-to-ebp -<span id="L3134" class="LineNr"> 3134 </span> c3/return -<span id="L3135" class="LineNr"> 3135 </span> -<span id="L3136" class="LineNr"> 3136 </span><span class="subxTest">test-convert-function-call-with-inout-with-type-parameter</span>: -<span id="L3137" class="LineNr"> 3137 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3138" class="LineNr"> 3138 </span> 55/push-ebp -<span id="L3139" class="LineNr"> 3139 </span> 89/<- %ebp 4/r32/esp -<span id="L3140" class="LineNr"> 3140 </span> <span class="subxComment"># setup</span> -<span id="L3141" class="LineNr"> 3141 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3142" class="LineNr"> 3142 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3143" class="LineNr"> 3143 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3144" class="LineNr"> 3144 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3145" class="LineNr"> 3145 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3146" class="LineNr"> 3146 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3147" class="LineNr"> 3147 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3148" class="LineNr"> 3148 </span> 68/push 0/imm32 -<span id="L3149" class="LineNr"> 3149 </span> 68/push 0/imm32 -<span id="L3150" class="LineNr"> 3150 </span> 89/<- %edx 4/r32/esp -<span id="L3151" class="LineNr"> 3151 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3152" class="LineNr"> 3152 </span> <span class="subxComment">#</span> -<span id="L3153" class="LineNr"> 3153 </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="L3154" class="LineNr"> 3154 </span> (<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="L3155" class="LineNr"> 3155 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) -<span id="L3156" class="LineNr"> 3156 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3157" class="LineNr"> 3157 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _) {\n"</span>) -<span id="L3158" class="LineNr"> 3158 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3159" class="LineNr"> 3159 </span> <span class="subxComment"># convert</span> -<span id="L3160" class="LineNr"> 3160 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L3161" class="LineNr"> 3161 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3162" class="LineNr"> 3162 </span> <span class="subxComment"># restore ed</span> -<span id="L3163" class="LineNr"> 3163 </span> 89/<- %edx 4/r32/esp -<span id="L3164" class="LineNr"> 3164 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3165" class="LineNr"> 3165 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3166" class="Folded"> 3166 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3172" class="LineNr"> 3172 </span> <span class="subxComment"># no error; types matched</span> -<span id="L3173" class="LineNr"> 3173 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3136'>test-convert-function-call-with-inout-with-type-parameter</a>: <a href='114error.subx.html#L9'>error</a> stream should be empty"</span>) -<span id="L3174" class="LineNr"> 3174 </span> <span class="subxComment"># don't bother checking the generated code; that's in the test 'test-local-clobbered-by-fn-output' below</span> -<span id="L3175" class="LineNr"> 3175 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3176" class="LineNr"> 3176 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3177" class="LineNr"> 3177 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3178" class="LineNr"> 3178 </span> 5d/pop-to-ebp -<span id="L3179" class="LineNr"> 3179 </span> c3/return -<span id="L3180" class="LineNr"> 3180 </span> -<span id="L3181" class="LineNr"> 3181 </span><span class="subxTest">test-convert-function-call-with-incorrect-inout-type</span>: -<span id="L3182" class="LineNr"> 3182 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3183" class="LineNr"> 3183 </span> 55/push-ebp -<span id="L3184" class="LineNr"> 3184 </span> 89/<- %ebp 4/r32/esp -<span id="L3185" class="LineNr"> 3185 </span> <span class="subxComment"># setup</span> -<span id="L3186" class="LineNr"> 3186 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3187" class="LineNr"> 3187 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3188" class="LineNr"> 3188 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3189" class="LineNr"> 3189 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3190" class="LineNr"> 3190 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3191" class="LineNr"> 3191 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3192" class="LineNr"> 3192 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3024" class="LineNr"> 3024 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3025" class="LineNr"> 3025 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3026" class="LineNr"> 3026 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16) # bytes of args in call to convert-mu</span> +<span id="L3027" class="LineNr"> 3027 </span> 68/push 0/imm32 +<span id="L3028" class="LineNr"> 3028 </span> 68/push 0/imm32 +<span id="L3029" class="LineNr"> 3029 </span> 89/<- %edx 4/r32/esp +<span id="L3030" class="LineNr"> 3030 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3031" class="LineNr"> 3031 </span> <span class="subxComment">#</span> +<span id="L3032" class="LineNr"> 3032 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3033" class="LineNr"> 3033 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 3\n"</span>) +<span id="L3034" class="LineNr"> 3034 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm0: float <- convert x\n"</span>) +<span id="L3035" class="LineNr"> 3035 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) +<span id="L3036" class="LineNr"> 3036 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3037" class="LineNr"> 3037 </span> <span class="subxComment"># convert</span> +<span id="L3038" class="LineNr"> 3038 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3039" class="LineNr"> 3039 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3040" class="LineNr"> 3040 </span> <span class="subxComment"># restore ed</span> +<span id="L3041" class="LineNr"> 3041 </span> 89/<- %edx 4/r32/esp +<span id="L3042" class="LineNr"> 3042 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3043" class="LineNr"> 3043 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3044" class="Folded"> 3044 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3050" class="LineNr"> 3050 </span> <span class="subxComment"># no errors</span> +<span id="L3051" class="LineNr"> 3051 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3015'>test-overlapping-int-fp-registers</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3052" class="LineNr"> 3052 </span> <span class="subxComment"># don't bother checking the generated code</span> +<span id="L3053" class="LineNr"> 3053 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3054" class="LineNr"> 3054 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3055" class="LineNr"> 3055 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3056" class="LineNr"> 3056 </span> 5d/pop-to-ebp +<span id="L3057" class="LineNr"> 3057 </span> c3/return +<span id="L3058" class="LineNr"> 3058 </span> +<span id="L3059" class="LineNr"> 3059 </span><span class="subxTest">test-convert-function-call</span>: +<span id="L3060" class="LineNr"> 3060 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3061" class="LineNr"> 3061 </span> 55/push-ebp +<span id="L3062" class="LineNr"> 3062 </span> 89/<- %ebp 4/r32/esp +<span id="L3063" class="LineNr"> 3063 </span> <span class="subxComment"># setup</span> +<span id="L3064" class="LineNr"> 3064 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3065" class="LineNr"> 3065 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3066" class="LineNr"> 3066 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3067" class="LineNr"> 3067 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3068" class="LineNr"> 3068 </span> <span class="subxComment">#</span> +<span id="L3069" class="LineNr"> 3069 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn main -> _/ebx: int {\n"</span>) +<span id="L3070" class="LineNr"> 3070 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/ebx: int <- foo\n"</span>) +<span id="L3071" class="LineNr"> 3071 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) +<span id="L3072" class="LineNr"> 3072 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3073" class="LineNr"> 3073 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/ebx: int {\n"</span>) +<span id="L3074" class="LineNr"> 3074 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/ebx: int <- copy 3\n"</span>) +<span id="L3075" class="LineNr"> 3075 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) +<span id="L3076" class="LineNr"> 3076 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3077" class="LineNr"> 3077 </span> <span class="subxComment"># convert</span> +<span id="L3078" class="LineNr"> 3078 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L3079" class="LineNr"> 3079 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3080" class="Folded"> 3080 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3086" class="LineNr"> 3086 </span> <span class="subxComment"># check output</span> +<span id="L3087" class="LineNr"> 3087 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3059'>test-convert-function-call</a>/0"</span>) +<span id="L3088" class="LineNr"> 3088 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call/1"</span>) +<span id="L3089" class="LineNr"> 3089 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3059'>test-convert-function-call</a>/2"</span>) +<span id="L3090" class="LineNr"> 3090 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3059'>test-convert-function-call</a>/3"</span>) +<span id="L3091" class="LineNr"> 3091 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3059'>test-convert-function-call</a>/4"</span>) +<span id="L3092" class="LineNr"> 3092 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3059'>test-convert-function-call</a>/5"</span>) +<span id="L3093" class="LineNr"> 3093 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/6"</span>) +<span id="L3094" class="LineNr"> 3094 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (foo)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3059'>test-convert-function-call</a>/6"</span>) +<span id="L3095" class="LineNr"> 3095 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %ebx 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/8"</span>) +<span id="L3096" class="LineNr"> 3096 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/27"</span>) +<span id="L3097" class="LineNr"> 3097 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $main:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/10"</span>) +<span id="L3098" class="LineNr"> 3098 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3059'>test-convert-function-call</a>/7"</span>) +<span id="L3099" class="LineNr"> 3099 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3059'>test-convert-function-call</a>/8"</span>) +<span id="L3100" class="LineNr"> 3100 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call/9"</span>) +<span id="L3101" class="LineNr"> 3101 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3059'>test-convert-function-call</a>/10"</span>) +<span id="L3102" class="LineNr"> 3102 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3059'>test-convert-function-call</a>/11"</span>) +<span id="L3103" class="LineNr"> 3103 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3059'>test-convert-function-call</a>/12"</span>) +<span id="L3104" class="LineNr"> 3104 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3059'>test-convert-function-call</a>/13"</span>) +<span id="L3105" class="LineNr"> 3105 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call/14"</span>) +<span id="L3106" class="LineNr"> 3106 </span> (<a href='109stream-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#L3059'>test-convert-function-call</a>/15"</span>) +<span id="L3107" class="LineNr"> 3107 </span> (<a href='109stream-equal.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#L3059'>test-convert-function-call</a>/16"</span>) +<span id="L3108" class="LineNr"> 3108 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3059'>test-convert-function-call</a>/17"</span>) +<span id="L3109" class="LineNr"> 3109 </span> (<a href='109stream-equal.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#L3059'>test-convert-function-call</a>/18"</span>) +<span id="L3110" class="LineNr"> 3110 </span> (<a href='109stream-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#L2219'>test-convert-function-call-with-literal-arg</a>/6"</span>) +<span id="L3111" class="LineNr"> 3111 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" bb/copy-to-ebx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3059'>test-convert-function-call</a>/19"</span>) +<span id="L3112" class="LineNr"> 3112 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %ebx 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/8"</span>) +<span id="L3113" class="LineNr"> 3113 </span> (<a href='109stream-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#L2219'>test-convert-function-call-with-literal-arg</a>/27"</span>) +<span id="L3114" class="LineNr"> 3114 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2219'>test-convert-function-call-with-literal-arg</a>/10"</span>) +<span id="L3115" class="LineNr"> 3115 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3059'>test-convert-function-call</a>/20"</span>) +<span id="L3116" class="LineNr"> 3116 </span> (<a href='109stream-equal.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#L3059'>test-convert-function-call</a>/21"</span>) +<span id="L3117" class="LineNr"> 3117 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call/22"</span>) +<span id="L3118" class="LineNr"> 3118 </span> (<a href='109stream-equal.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#L3059'>test-convert-function-call</a>/23"</span>) +<span id="L3119" class="LineNr"> 3119 </span> (<a href='109stream-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#L3059'>test-convert-function-call</a>/24"</span>) +<span id="L3120" class="LineNr"> 3120 </span> (<a href='109stream-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#L3059'>test-convert-function-call</a>/25"</span>) +<span id="L3121" class="LineNr"> 3121 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3122" class="LineNr"> 3122 </span> 89/<- %esp 5/r32/ebp +<span id="L3123" class="LineNr"> 3123 </span> 5d/pop-to-ebp +<span id="L3124" class="LineNr"> 3124 </span> c3/return +<span id="L3125" class="LineNr"> 3125 </span> +<span id="L3126" class="LineNr"> 3126 </span><span class="subxTest">test-convert-function-call-with-inout-with-compound-type</span>: +<span id="L3127" class="LineNr"> 3127 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3128" class="LineNr"> 3128 </span> 55/push-ebp +<span id="L3129" class="LineNr"> 3129 </span> 89/<- %ebp 4/r32/esp +<span id="L3130" class="LineNr"> 3130 </span> <span class="subxComment"># setup</span> +<span id="L3131" class="LineNr"> 3131 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3132" class="LineNr"> 3132 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3133" class="LineNr"> 3133 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3134" class="LineNr"> 3134 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3135" class="LineNr"> 3135 </span> <span class="subxComment">#</span> +<span id="L3136" class="LineNr"> 3136 </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="L3137" class="LineNr"> 3137 </span> (<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="L3138" class="LineNr"> 3138 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L3139" class="LineNr"> 3139 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3140" class="LineNr"> 3140 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr int) {\n"</span>) +<span id="L3141" class="LineNr"> 3141 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3142" class="LineNr"> 3142 </span> <span class="subxComment"># convert</span> +<span id="L3143" class="LineNr"> 3143 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L3144" class="LineNr"> 3144 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3145" class="Folded"> 3145 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3151" class="LineNr"> 3151 </span> <span class="subxComment"># check output</span> +<span id="L3152" class="LineNr"> 3152 </span> (<a href='109stream-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#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/0"</span>) +<span id="L3153" class="LineNr"> 3153 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/1"</span>) +<span id="L3154" class="LineNr"> 3154 </span> (<a href='109stream-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#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/2"</span>) +<span id="L3155" class="LineNr"> 3155 </span> (<a href='109stream-equal.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#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/3"</span>) +<span id="L3156" class="LineNr"> 3156 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/4"</span>) +<span id="L3157" class="LineNr"> 3157 </span> (<a href='109stream-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#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/5"</span>) +<span id="L3158" class="LineNr"> 3158 </span> (<a href='109stream-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#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/6"</span>) +<span id="L3159" class="LineNr"> 3159 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (g *(ebp+0xfffffffc))"</span> <span class="Constant">"F - <a href='mu.subx.html#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/7"</span>) +<span id="L3160" class="LineNr"> 3160 </span> (<a href='109stream-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#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/8"</span>) +<span id="L3161" class="LineNr"> 3161 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/9"</span>) +<span id="L3162" class="LineNr"> 3162 </span> (<a href='109stream-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#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/10"</span>) +<span id="L3163" class="LineNr"> 3163 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/11"</span>) +<span id="L3164" class="LineNr"> 3164 </span> (<a href='109stream-equal.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#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/12"</span>) +<span id="L3165" class="LineNr"> 3165 </span> (<a href='109stream-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#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/13"</span>) +<span id="L3166" class="LineNr"> 3166 </span> (<a href='109stream-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#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/14"</span>) +<span id="L3167" class="LineNr"> 3167 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"g:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/15"</span>) +<span id="L3168" class="LineNr"> 3168 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/16"</span>) +<span id="L3169" class="LineNr"> 3169 </span> (<a href='109stream-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#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/17"</span>) +<span id="L3170" class="LineNr"> 3170 </span> (<a href='109stream-equal.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#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/18"</span>) +<span id="L3171" class="LineNr"> 3171 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/19"</span>) +<span id="L3172" class="LineNr"> 3172 </span> (<a href='109stream-equal.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#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/20"</span>) +<span id="L3173" class="LineNr"> 3173 </span> (<a href='109stream-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#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/21"</span>) +<span id="L3174" class="LineNr"> 3174 </span> (<a href='109stream-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#L3126'>test-convert-function-call-with-inout-with-compound-type</a>/22"</span>) +<span id="L3175" class="LineNr"> 3175 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3176" class="LineNr"> 3176 </span> 89/<- %esp 5/r32/ebp +<span id="L3177" class="LineNr"> 3177 </span> 5d/pop-to-ebp +<span id="L3178" class="LineNr"> 3178 </span> c3/return +<span id="L3179" class="LineNr"> 3179 </span> +<span id="L3180" class="LineNr"> 3180 </span><span class="subxTest">test-convert-function-call-with-inout-with-type-parameter</span>: +<span id="L3181" class="LineNr"> 3181 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3182" class="LineNr"> 3182 </span> 55/push-ebp +<span id="L3183" class="LineNr"> 3183 </span> 89/<- %ebp 4/r32/esp +<span id="L3184" class="LineNr"> 3184 </span> <span class="subxComment"># setup</span> +<span id="L3185" class="LineNr"> 3185 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3186" class="LineNr"> 3186 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3187" class="LineNr"> 3187 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3188" class="LineNr"> 3188 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3189" class="LineNr"> 3189 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3190" class="LineNr"> 3190 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3191" class="LineNr"> 3191 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3192" class="LineNr"> 3192 </span> 68/push 0/imm32 <span id="L3193" class="LineNr"> 3193 </span> 68/push 0/imm32 -<span id="L3194" class="LineNr"> 3194 </span> 68/push 0/imm32 -<span id="L3195" class="LineNr"> 3195 </span> 89/<- %edx 4/r32/esp -<span id="L3196" class="LineNr"> 3196 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3197" class="LineNr"> 3197 </span> <span class="subxComment">#</span> -<span id="L3198" class="LineNr"> 3198 </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="L3199" class="LineNr"> 3199 </span> (<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="L3200" class="LineNr"> 3200 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) -<span id="L3201" class="LineNr"> 3201 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3202" class="LineNr"> 3202 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: foo {\n"</span>) -<span id="L3203" class="LineNr"> 3203 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3204" class="LineNr"> 3204 </span> <span class="subxComment"># convert</span> -<span id="L3205" class="LineNr"> 3205 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L3206" class="LineNr"> 3206 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3207" class="LineNr"> 3207 </span> <span class="subxComment"># restore ed</span> -<span id="L3208" class="LineNr"> 3208 </span> 89/<- %edx 4/r32/esp -<span id="L3209" class="LineNr"> 3209 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3210" class="LineNr"> 3210 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3211" class="Folded"> 3211 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3217" class="LineNr"> 3217 </span> <span class="subxComment"># check output</span> -<span id="L3218" class="LineNr"> 3218 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3181'>test-convert-function-call-with-incorrect-inout-type</a>: output should be empty"</span>) -<span id="L3219" class="LineNr"> 3219 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3181'>test-convert-function-call-with-incorrect-inout-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L3220" class="LineNr"> 3220 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3221" class="LineNr"> 3221 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3181'>test-convert-function-call-with-incorrect-inout-type</a>: exit status"</span>) -<span id="L3222" class="LineNr"> 3222 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3223" class="LineNr"> 3223 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3224" class="LineNr"> 3224 </span> 5d/pop-to-ebp -<span id="L3225" class="LineNr"> 3225 </span> c3/return -<span id="L3226" class="LineNr"> 3226 </span> -<span id="L3227" class="LineNr"> 3227 </span><span class="subxTest">test-convert-function-call-with-inout-with-incorrect-compound-type</span>: -<span id="L3228" class="LineNr"> 3228 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3229" class="LineNr"> 3229 </span> 55/push-ebp -<span id="L3230" class="LineNr"> 3230 </span> 89/<- %ebp 4/r32/esp -<span id="L3231" class="LineNr"> 3231 </span> <span class="subxComment"># setup</span> -<span id="L3232" class="LineNr"> 3232 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3233" class="LineNr"> 3233 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3234" class="LineNr"> 3234 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3235" class="LineNr"> 3235 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3236" class="LineNr"> 3236 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3237" class="LineNr"> 3237 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3238" class="LineNr"> 3238 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3239" class="LineNr"> 3239 </span> 68/push 0/imm32 -<span id="L3240" class="LineNr"> 3240 </span> 68/push 0/imm32 -<span id="L3241" class="LineNr"> 3241 </span> 89/<- %edx 4/r32/esp -<span id="L3242" class="LineNr"> 3242 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3243" class="LineNr"> 3243 </span> <span class="subxComment">#</span> -<span id="L3244" class="LineNr"> 3244 </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="L3245" class="LineNr"> 3245 </span> (<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="L3246" class="LineNr"> 3246 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L3194" class="LineNr"> 3194 </span> 89/<- %edx 4/r32/esp +<span id="L3195" class="LineNr"> 3195 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3196" class="LineNr"> 3196 </span> <span class="subxComment">#</span> +<span id="L3197" class="LineNr"> 3197 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3198" class="LineNr"> 3198 </span> (<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="L3199" class="LineNr"> 3199 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L3200" class="LineNr"> 3200 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3201" class="LineNr"> 3201 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _) {\n"</span>) +<span id="L3202" class="LineNr"> 3202 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3203" class="LineNr"> 3203 </span> <span class="subxComment"># convert</span> +<span id="L3204" class="LineNr"> 3204 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3205" class="LineNr"> 3205 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3206" class="LineNr"> 3206 </span> <span class="subxComment"># restore ed</span> +<span id="L3207" class="LineNr"> 3207 </span> 89/<- %edx 4/r32/esp +<span id="L3208" class="LineNr"> 3208 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3209" class="LineNr"> 3209 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3210" class="Folded"> 3210 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3216" class="LineNr"> 3216 </span> <span class="subxComment"># no error; types matched</span> +<span id="L3217" class="LineNr"> 3217 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3180'>test-convert-function-call-with-inout-with-type-parameter</a>: <a href='114error.subx.html#L9'>error</a> stream should be empty"</span>) +<span id="L3218" class="LineNr"> 3218 </span> <span class="subxComment"># don't bother checking the generated code; that's in the test 'test-local-clobbered-by-fn-output' below</span> +<span id="L3219" class="LineNr"> 3219 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3220" class="LineNr"> 3220 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3221" class="LineNr"> 3221 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3222" class="LineNr"> 3222 </span> 5d/pop-to-ebp +<span id="L3223" class="LineNr"> 3223 </span> c3/return +<span id="L3224" class="LineNr"> 3224 </span> +<span id="L3225" class="LineNr"> 3225 </span><span class="subxTest">test-convert-function-call-with-incorrect-inout-type</span>: +<span id="L3226" class="LineNr"> 3226 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3227" class="LineNr"> 3227 </span> 55/push-ebp +<span id="L3228" class="LineNr"> 3228 </span> 89/<- %ebp 4/r32/esp +<span id="L3229" class="LineNr"> 3229 </span> <span class="subxComment"># setup</span> +<span id="L3230" class="LineNr"> 3230 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3231" class="LineNr"> 3231 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3232" class="LineNr"> 3232 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3233" class="LineNr"> 3233 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3234" class="LineNr"> 3234 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3235" class="LineNr"> 3235 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3236" class="LineNr"> 3236 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3237" class="LineNr"> 3237 </span> 68/push 0/imm32 +<span id="L3238" class="LineNr"> 3238 </span> 68/push 0/imm32 +<span id="L3239" class="LineNr"> 3239 </span> 89/<- %edx 4/r32/esp +<span id="L3240" class="LineNr"> 3240 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3241" class="LineNr"> 3241 </span> <span class="subxComment">#</span> +<span id="L3242" class="LineNr"> 3242 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3243" class="LineNr"> 3243 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L3244" class="LineNr"> 3244 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L3245" class="LineNr"> 3245 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3246" class="LineNr"> 3246 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: foo {\n"</span>) <span id="L3247" class="LineNr"> 3247 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3248" class="LineNr"> 3248 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr bool) {\n"</span>) -<span id="L3249" class="LineNr"> 3249 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3250" class="LineNr"> 3250 </span> <span class="subxComment"># convert</span> -<span id="L3251" class="LineNr"> 3251 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L3252" class="LineNr"> 3252 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3253" class="LineNr"> 3253 </span> <span class="subxComment"># restore ed</span> -<span id="L3254" class="LineNr"> 3254 </span> 89/<- %edx 4/r32/esp -<span id="L3255" class="LineNr"> 3255 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3256" class="LineNr"> 3256 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3257" class="Folded"> 3257 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3263" class="LineNr"> 3263 </span> <span class="subxComment"># check output</span> -<span id="L3264" class="LineNr"> 3264 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3227'>test-convert-function-call-with-inout-with-incorrect-compound-type</a>: output should be empty"</span>) -<span id="L3265" class="LineNr"> 3265 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3227'>test-convert-function-call-with-inout-with-incorrect-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3248" class="LineNr"> 3248 </span> <span class="subxComment"># convert</span> +<span id="L3249" class="LineNr"> 3249 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3250" class="LineNr"> 3250 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3251" class="LineNr"> 3251 </span> <span class="subxComment"># restore ed</span> +<span id="L3252" class="LineNr"> 3252 </span> 89/<- %edx 4/r32/esp +<span id="L3253" class="LineNr"> 3253 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3254" class="LineNr"> 3254 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3255" class="Folded"> 3255 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3261" class="LineNr"> 3261 </span> <span class="subxComment"># check output</span> +<span id="L3262" class="LineNr"> 3262 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3225'>test-convert-function-call-with-incorrect-inout-type</a>: output should be empty"</span>) +<span id="L3263" class="LineNr"> 3263 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3225'>test-convert-function-call-with-incorrect-inout-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3264" class="LineNr"> 3264 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3265" class="LineNr"> 3265 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3225'>test-convert-function-call-with-incorrect-inout-type</a>: exit status"</span>) <span id="L3266" class="LineNr"> 3266 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L3267" class="LineNr"> 3267 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3268" class="LineNr"> 3268 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3269" class="LineNr"> 3269 </span> 5d/pop-to-ebp -<span id="L3270" class="LineNr"> 3270 </span> c3/return -<span id="L3271" class="LineNr"> 3271 </span> -<span id="L3272" class="LineNr"> 3272 </span><span class="subxTest">test-convert-function-call-with-inout-with-multiple-type-parameters</span>: -<span id="L3273" class="LineNr"> 3273 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3274" class="LineNr"> 3274 </span> 55/push-ebp -<span id="L3275" class="LineNr"> 3275 </span> 89/<- %ebp 4/r32/esp -<span id="L3276" class="LineNr"> 3276 </span> <span class="subxComment"># setup</span> -<span id="L3277" class="LineNr"> 3277 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3278" class="LineNr"> 3278 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3279" class="LineNr"> 3279 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3280" class="LineNr"> 3280 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3281" class="LineNr"> 3281 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3282" class="LineNr"> 3282 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3283" class="LineNr"> 3283 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3268" class="LineNr"> 3268 </span> 5d/pop-to-ebp +<span id="L3269" class="LineNr"> 3269 </span> c3/return +<span id="L3270" class="LineNr"> 3270 </span> +<span id="L3271" class="LineNr"> 3271 </span><span class="subxTest">test-convert-function-call-with-inout-with-incorrect-compound-type</span>: +<span id="L3272" class="LineNr"> 3272 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3273" class="LineNr"> 3273 </span> 55/push-ebp +<span id="L3274" class="LineNr"> 3274 </span> 89/<- %ebp 4/r32/esp +<span id="L3275" class="LineNr"> 3275 </span> <span class="subxComment"># setup</span> +<span id="L3276" class="LineNr"> 3276 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3277" class="LineNr"> 3277 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3278" class="LineNr"> 3278 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3279" class="LineNr"> 3279 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3280" class="LineNr"> 3280 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3281" class="LineNr"> 3281 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3282" class="LineNr"> 3282 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3283" class="LineNr"> 3283 </span> 68/push 0/imm32 <span id="L3284" class="LineNr"> 3284 </span> 68/push 0/imm32 -<span id="L3285" class="LineNr"> 3285 </span> 68/push 0/imm32 -<span id="L3286" class="LineNr"> 3286 </span> 89/<- %edx 4/r32/esp -<span id="L3287" class="LineNr"> 3287 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3288" class="LineNr"> 3288 </span> <span class="subxComment">#</span> -<span id="L3289" class="LineNr"> 3289 </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="L3290" class="LineNr"> 3290 </span> (<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="L3291" class="LineNr"> 3291 </span> (<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="L3292" class="LineNr"> 3292 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x, y\n"</span>) +<span id="L3285" class="LineNr"> 3285 </span> 89/<- %edx 4/r32/esp +<span id="L3286" class="LineNr"> 3286 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3287" class="LineNr"> 3287 </span> <span class="subxComment">#</span> +<span id="L3288" class="LineNr"> 3288 </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="L3289" class="LineNr"> 3289 </span> (<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="L3290" class="LineNr"> 3290 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L3291" class="LineNr"> 3291 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3292" class="LineNr"> 3292 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr bool) {\n"</span>) <span id="L3293" class="LineNr"> 3293 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3294" class="LineNr"> 3294 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _), b: (addr _) {\n"</span>) -<span id="L3295" class="LineNr"> 3295 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3296" class="LineNr"> 3296 </span> <span class="subxComment"># convert</span> -<span id="L3297" class="LineNr"> 3297 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L3298" class="LineNr"> 3298 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3299" class="LineNr"> 3299 </span> <span class="subxComment"># restore ed</span> -<span id="L3300" class="LineNr"> 3300 </span> 89/<- %edx 4/r32/esp -<span id="L3301" class="LineNr"> 3301 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3302" class="LineNr"> 3302 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3303" class="Folded"> 3303 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3309" class="LineNr"> 3309 </span> <span class="subxComment"># no errors</span> -<span id="L3310" class="LineNr"> 3310 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3272'>test-convert-function-call-with-inout-with-multiple-type-parameters</a>: <a href='114error.subx.html#L9'>error</a> stream should be empty"</span>) -<span id="L3311" class="LineNr"> 3311 </span> <span class="subxComment"># don't bother checking the generated code</span> -<span id="L3312" class="LineNr"> 3312 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3313" class="LineNr"> 3313 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3314" class="LineNr"> 3314 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3315" class="LineNr"> 3315 </span> 5d/pop-to-ebp -<span id="L3316" class="LineNr"> 3316 </span> c3/return -<span id="L3317" class="LineNr"> 3317 </span> -<span id="L3318" class="LineNr"> 3318 </span><span class="subxTest">test-type-parameter-matches-rest-of-type</span>: -<span id="L3319" class="LineNr"> 3319 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3320" class="LineNr"> 3320 </span> 55/push-ebp -<span id="L3321" class="LineNr"> 3321 </span> 89/<- %ebp 4/r32/esp -<span id="L3322" class="LineNr"> 3322 </span> <span class="subxComment"># setup</span> -<span id="L3323" class="LineNr"> 3323 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3324" class="LineNr"> 3324 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3325" class="LineNr"> 3325 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3326" class="LineNr"> 3326 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3327" class="LineNr"> 3327 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3328" class="LineNr"> 3328 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3329" class="LineNr"> 3329 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3330" class="LineNr"> 3330 </span> 68/push 0/imm32 -<span id="L3331" class="LineNr"> 3331 </span> 68/push 0/imm32 -<span id="L3332" class="LineNr"> 3332 </span> 89/<- %edx 4/r32/esp -<span id="L3333" class="LineNr"> 3333 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3334" class="LineNr"> 3334 </span> <span class="subxComment">#</span> -<span id="L3335" class="LineNr"> 3335 </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="L3336" class="LineNr"> 3336 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr array int)\n"</span>) -<span id="L3337" class="LineNr"> 3337 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) -<span id="L3338" class="LineNr"> 3338 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3339" class="LineNr"> 3339 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _) {\n"</span>) -<span id="L3340" class="LineNr"> 3340 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3341" class="LineNr"> 3341 </span> <span class="subxComment"># convert</span> -<span id="L3342" class="LineNr"> 3342 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L3343" class="LineNr"> 3343 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3344" class="LineNr"> 3344 </span> <span class="subxComment"># restore ed</span> -<span id="L3345" class="LineNr"> 3345 </span> 89/<- %edx 4/r32/esp -<span id="L3346" class="LineNr"> 3346 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3347" class="LineNr"> 3347 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3348" class="Folded"> 3348 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3354" class="LineNr"> 3354 </span> <span class="subxComment"># no errors</span> -<span id="L3355" class="LineNr"> 3355 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3318'>test-type-parameter-matches-rest-of-type</a>: <a href='114error.subx.html#L9'>error</a> stream should be empty"</span>) -<span id="L3356" class="LineNr"> 3356 </span> <span class="subxComment"># don't bother checking the generated code</span> -<span id="L3357" class="LineNr"> 3357 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3358" class="LineNr"> 3358 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3359" class="LineNr"> 3359 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3360" class="LineNr"> 3360 </span> 5d/pop-to-ebp -<span id="L3361" class="LineNr"> 3361 </span> c3/return -<span id="L3362" class="LineNr"> 3362 </span> -<span id="L3363" class="LineNr"> 3363 </span><span class="subxTest">test-convert-function-call-with-inout-with-incompatible-type-parameters</span>: -<span id="L3364" class="LineNr"> 3364 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3365" class="LineNr"> 3365 </span> 55/push-ebp -<span id="L3366" class="LineNr"> 3366 </span> 89/<- %ebp 4/r32/esp -<span id="L3367" class="LineNr"> 3367 </span> <span class="subxComment"># setup</span> -<span id="L3368" class="LineNr"> 3368 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3369" class="LineNr"> 3369 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3370" class="LineNr"> 3370 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3371" class="LineNr"> 3371 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3372" class="LineNr"> 3372 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3373" class="LineNr"> 3373 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3374" class="LineNr"> 3374 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3294" class="LineNr"> 3294 </span> <span class="subxComment"># convert</span> +<span id="L3295" class="LineNr"> 3295 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3296" class="LineNr"> 3296 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3297" class="LineNr"> 3297 </span> <span class="subxComment"># restore ed</span> +<span id="L3298" class="LineNr"> 3298 </span> 89/<- %edx 4/r32/esp +<span id="L3299" class="LineNr"> 3299 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3300" class="LineNr"> 3300 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3301" class="Folded"> 3301 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3307" class="LineNr"> 3307 </span> <span class="subxComment"># check output</span> +<span id="L3308" class="LineNr"> 3308 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3271'>test-convert-function-call-with-inout-with-incorrect-compound-type</a>: output should be empty"</span>) +<span id="L3309" class="LineNr"> 3309 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3271'>test-convert-function-call-with-inout-with-incorrect-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3310" class="LineNr"> 3310 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3311" class="LineNr"> 3311 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3312" class="LineNr"> 3312 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3313" class="LineNr"> 3313 </span> 5d/pop-to-ebp +<span id="L3314" class="LineNr"> 3314 </span> c3/return +<span id="L3315" class="LineNr"> 3315 </span> +<span id="L3316" class="LineNr"> 3316 </span><span class="subxTest">test-convert-function-call-with-inout-with-multiple-type-parameters</span>: +<span id="L3317" class="LineNr"> 3317 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3318" class="LineNr"> 3318 </span> 55/push-ebp +<span id="L3319" class="LineNr"> 3319 </span> 89/<- %ebp 4/r32/esp +<span id="L3320" class="LineNr"> 3320 </span> <span class="subxComment"># setup</span> +<span id="L3321" class="LineNr"> 3321 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3322" class="LineNr"> 3322 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3323" class="LineNr"> 3323 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3324" class="LineNr"> 3324 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3325" class="LineNr"> 3325 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3326" class="LineNr"> 3326 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3327" class="LineNr"> 3327 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3328" class="LineNr"> 3328 </span> 68/push 0/imm32 +<span id="L3329" class="LineNr"> 3329 </span> 68/push 0/imm32 +<span id="L3330" class="LineNr"> 3330 </span> 89/<- %edx 4/r32/esp +<span id="L3331" class="LineNr"> 3331 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3332" class="LineNr"> 3332 </span> <span class="subxComment">#</span> +<span id="L3333" class="LineNr"> 3333 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3334" class="LineNr"> 3334 </span> (<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="L3335" class="LineNr"> 3335 </span> (<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="L3336" class="LineNr"> 3336 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x, y\n"</span>) +<span id="L3337" class="LineNr"> 3337 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3338" class="LineNr"> 3338 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _), b: (addr _) {\n"</span>) +<span id="L3339" class="LineNr"> 3339 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3340" class="LineNr"> 3340 </span> <span class="subxComment"># convert</span> +<span id="L3341" class="LineNr"> 3341 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3342" class="LineNr"> 3342 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3343" class="LineNr"> 3343 </span> <span class="subxComment"># restore ed</span> +<span id="L3344" class="LineNr"> 3344 </span> 89/<- %edx 4/r32/esp +<span id="L3345" class="LineNr"> 3345 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3346" class="LineNr"> 3346 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3347" class="Folded"> 3347 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3353" class="LineNr"> 3353 </span> <span class="subxComment"># no errors</span> +<span id="L3354" class="LineNr"> 3354 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3316'>test-convert-function-call-with-inout-with-multiple-type-parameters</a>: <a href='114error.subx.html#L9'>error</a> stream should be empty"</span>) +<span id="L3355" class="LineNr"> 3355 </span> <span class="subxComment"># don't bother checking the generated code</span> +<span id="L3356" class="LineNr"> 3356 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3357" class="LineNr"> 3357 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3358" class="LineNr"> 3358 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3359" class="LineNr"> 3359 </span> 5d/pop-to-ebp +<span id="L3360" class="LineNr"> 3360 </span> c3/return +<span id="L3361" class="LineNr"> 3361 </span> +<span id="L3362" class="LineNr"> 3362 </span><span class="subxTest">test-type-parameter-matches-rest-of-type</span>: +<span id="L3363" class="LineNr"> 3363 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3364" class="LineNr"> 3364 </span> 55/push-ebp +<span id="L3365" class="LineNr"> 3365 </span> 89/<- %ebp 4/r32/esp +<span id="L3366" class="LineNr"> 3366 </span> <span class="subxComment"># setup</span> +<span id="L3367" class="LineNr"> 3367 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3368" class="LineNr"> 3368 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3369" class="LineNr"> 3369 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3370" class="LineNr"> 3370 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3371" class="LineNr"> 3371 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3372" class="LineNr"> 3372 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3373" class="LineNr"> 3373 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3374" class="LineNr"> 3374 </span> 68/push 0/imm32 <span id="L3375" class="LineNr"> 3375 </span> 68/push 0/imm32 -<span id="L3376" class="LineNr"> 3376 </span> 68/push 0/imm32 -<span id="L3377" class="LineNr"> 3377 </span> 89/<- %edx 4/r32/esp -<span id="L3378" class="LineNr"> 3378 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3379" class="LineNr"> 3379 </span> <span class="subxComment">#</span> -<span id="L3380" class="LineNr"> 3380 </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="L3381" class="LineNr"> 3381 </span> (<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="L3382" class="LineNr"> 3382 </span> (<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="L3383" class="LineNr"> 3383 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x, y\n"</span>) +<span id="L3376" class="LineNr"> 3376 </span> 89/<- %edx 4/r32/esp +<span id="L3377" class="LineNr"> 3377 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3378" class="LineNr"> 3378 </span> <span class="subxComment">#</span> +<span id="L3379" class="LineNr"> 3379 </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="L3380" class="LineNr"> 3380 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr array int)\n"</span>) +<span id="L3381" class="LineNr"> 3381 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L3382" class="LineNr"> 3382 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3383" class="LineNr"> 3383 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _) {\n"</span>) <span id="L3384" class="LineNr"> 3384 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3385" class="LineNr"> 3385 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _T), b: (addr _T) {\n"</span>) -<span id="L3386" class="LineNr"> 3386 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3387" class="LineNr"> 3387 </span> <span class="subxComment"># convert</span> -<span id="L3388" class="LineNr"> 3388 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L3389" class="LineNr"> 3389 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3390" class="LineNr"> 3390 </span> <span class="subxComment"># restore ed</span> -<span id="L3391" class="LineNr"> 3391 </span> 89/<- %edx 4/r32/esp -<span id="L3392" class="LineNr"> 3392 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3393" class="LineNr"> 3393 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3394" class="Folded"> 3394 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3400" class="LineNr"> 3400 </span> <span class="subxComment"># check output</span> -<span id="L3401" class="LineNr"> 3401 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3363'>test-convert-function-call-with-inout-with-incompatible-type-parameters</a>: output should be empty"</span>) -<span id="L3402" class="LineNr"> 3402 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'y' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3363'>test-convert-function-call-with-inout-with-incompatible-type-parameters</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L3403" class="LineNr"> 3403 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3404" class="LineNr"> 3404 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3405" class="LineNr"> 3405 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3406" class="LineNr"> 3406 </span> 5d/pop-to-ebp -<span id="L3407" class="LineNr"> 3407 </span> c3/return -<span id="L3408" class="LineNr"> 3408 </span> -<span id="L3409" class="LineNr"> 3409 </span><span class="subxTest">test-convert-function-call-with-too-few-inouts</span>: -<span id="L3410" class="LineNr"> 3410 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3411" class="LineNr"> 3411 </span> 55/push-ebp -<span id="L3412" class="LineNr"> 3412 </span> 89/<- %ebp 4/r32/esp -<span id="L3413" class="LineNr"> 3413 </span> <span class="subxComment"># setup</span> -<span id="L3414" class="LineNr"> 3414 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3415" class="LineNr"> 3415 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3416" class="LineNr"> 3416 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3417" class="LineNr"> 3417 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3418" class="LineNr"> 3418 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3419" class="LineNr"> 3419 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3420" class="LineNr"> 3420 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3421" class="LineNr"> 3421 </span> 68/push 0/imm32 -<span id="L3422" class="LineNr"> 3422 </span> 68/push 0/imm32 -<span id="L3423" class="LineNr"> 3423 </span> 89/<- %edx 4/r32/esp -<span id="L3424" class="LineNr"> 3424 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3425" class="LineNr"> 3425 </span> <span class="subxComment">#</span> -<span id="L3426" class="LineNr"> 3426 </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="L3427" class="LineNr"> 3427 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g\n"</span>) +<span id="L3385" class="LineNr"> 3385 </span> <span class="subxComment"># convert</span> +<span id="L3386" class="LineNr"> 3386 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3387" class="LineNr"> 3387 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3388" class="LineNr"> 3388 </span> <span class="subxComment"># restore ed</span> +<span id="L3389" class="LineNr"> 3389 </span> 89/<- %edx 4/r32/esp +<span id="L3390" class="LineNr"> 3390 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3391" class="LineNr"> 3391 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3392" class="Folded"> 3392 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3398" class="LineNr"> 3398 </span> <span class="subxComment"># no errors</span> +<span id="L3399" class="LineNr"> 3399 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3362'>test-type-parameter-matches-rest-of-type</a>: <a href='114error.subx.html#L9'>error</a> stream should be empty"</span>) +<span id="L3400" class="LineNr"> 3400 </span> <span class="subxComment"># don't bother checking the generated code</span> +<span id="L3401" class="LineNr"> 3401 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3402" class="LineNr"> 3402 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3403" class="LineNr"> 3403 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3404" class="LineNr"> 3404 </span> 5d/pop-to-ebp +<span id="L3405" class="LineNr"> 3405 </span> c3/return +<span id="L3406" class="LineNr"> 3406 </span> +<span id="L3407" class="LineNr"> 3407 </span><span class="subxTest">test-convert-function-call-with-inout-with-incompatible-type-parameters</span>: +<span id="L3408" class="LineNr"> 3408 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3409" class="LineNr"> 3409 </span> 55/push-ebp +<span id="L3410" class="LineNr"> 3410 </span> 89/<- %ebp 4/r32/esp +<span id="L3411" class="LineNr"> 3411 </span> <span class="subxComment"># setup</span> +<span id="L3412" class="LineNr"> 3412 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3413" class="LineNr"> 3413 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3414" class="LineNr"> 3414 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3415" class="LineNr"> 3415 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3416" class="LineNr"> 3416 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3417" class="LineNr"> 3417 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3418" class="LineNr"> 3418 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3419" class="LineNr"> 3419 </span> 68/push 0/imm32 +<span id="L3420" class="LineNr"> 3420 </span> 68/push 0/imm32 +<span id="L3421" class="LineNr"> 3421 </span> 89/<- %edx 4/r32/esp +<span id="L3422" class="LineNr"> 3422 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3423" class="LineNr"> 3423 </span> <span class="subxComment">#</span> +<span id="L3424" class="LineNr"> 3424 </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="L3425" class="LineNr"> 3425 </span> (<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="L3426" class="LineNr"> 3426 </span> (<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="L3427" class="LineNr"> 3427 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x, y\n"</span>) <span id="L3428" class="LineNr"> 3428 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3429" class="LineNr"> 3429 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: int {\n"</span>) +<span id="L3429" class="LineNr"> 3429 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _T), b: (addr _T) {\n"</span>) <span id="L3430" class="LineNr"> 3430 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L3431" class="LineNr"> 3431 </span> <span class="subxComment"># convert</span> <span id="L3432" class="LineNr"> 3432 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -3192,618 +3192,618 @@ if ('onhashchange' in window) { <span id="L3435" class="LineNr"> 3435 </span> 89/<- %edx 4/r32/esp <span id="L3436" class="LineNr"> 3436 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L3437" class="LineNr"> 3437 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3438" class="Folded"> 3438 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3438" class="Folded"> 3438 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3444" class="LineNr"> 3444 </span> <span class="subxComment"># check output</span> -<span id="L3445" class="LineNr"> 3445 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3409'>test-convert-function-call-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L3446" class="LineNr"> 3446 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: too few inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L3409'>test-convert-function-call-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L3447" class="LineNr"> 3447 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3448" class="LineNr"> 3448 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3409'>test-convert-function-call-with-too-few-inouts</a>: exit status"</span>) -<span id="L3449" class="LineNr"> 3449 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3450" class="LineNr"> 3450 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3451" class="LineNr"> 3451 </span> 5d/pop-to-ebp -<span id="L3452" class="LineNr"> 3452 </span> c3/return -<span id="L3453" class="LineNr"> 3453 </span> -<span id="L3454" class="LineNr"> 3454 </span><span class="subxTest">test-convert-function-call-with-too-many-inouts</span>: -<span id="L3455" class="LineNr"> 3455 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3456" class="LineNr"> 3456 </span> 55/push-ebp -<span id="L3457" class="LineNr"> 3457 </span> 89/<- %ebp 4/r32/esp -<span id="L3458" class="LineNr"> 3458 </span> <span class="subxComment"># setup</span> -<span id="L3459" class="LineNr"> 3459 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3460" class="LineNr"> 3460 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3461" class="LineNr"> 3461 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3462" class="LineNr"> 3462 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3463" class="LineNr"> 3463 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3464" class="LineNr"> 3464 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3465" class="LineNr"> 3465 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3445" class="LineNr"> 3445 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3407'>test-convert-function-call-with-inout-with-incompatible-type-parameters</a>: output should be empty"</span>) +<span id="L3446" class="LineNr"> 3446 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'y' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3407'>test-convert-function-call-with-inout-with-incompatible-type-parameters</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3447" class="LineNr"> 3447 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3448" class="LineNr"> 3448 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3449" class="LineNr"> 3449 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3450" class="LineNr"> 3450 </span> 5d/pop-to-ebp +<span id="L3451" class="LineNr"> 3451 </span> c3/return +<span id="L3452" class="LineNr"> 3452 </span> +<span id="L3453" class="LineNr"> 3453 </span><span class="subxTest">test-convert-function-call-with-too-few-inouts</span>: +<span id="L3454" class="LineNr"> 3454 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3455" class="LineNr"> 3455 </span> 55/push-ebp +<span id="L3456" class="LineNr"> 3456 </span> 89/<- %ebp 4/r32/esp +<span id="L3457" class="LineNr"> 3457 </span> <span class="subxComment"># setup</span> +<span id="L3458" class="LineNr"> 3458 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3459" class="LineNr"> 3459 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3460" class="LineNr"> 3460 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3461" class="LineNr"> 3461 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3462" class="LineNr"> 3462 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3463" class="LineNr"> 3463 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3464" class="LineNr"> 3464 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3465" class="LineNr"> 3465 </span> 68/push 0/imm32 <span id="L3466" class="LineNr"> 3466 </span> 68/push 0/imm32 -<span id="L3467" class="LineNr"> 3467 </span> 68/push 0/imm32 -<span id="L3468" class="LineNr"> 3468 </span> 89/<- %edx 4/r32/esp -<span id="L3469" class="LineNr"> 3469 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3470" class="LineNr"> 3470 </span> <span class="subxComment">#</span> -<span id="L3471" class="LineNr"> 3471 </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="L3472" class="LineNr"> 3472 </span> (<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="L3473" class="LineNr"> 3473 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L3467" class="LineNr"> 3467 </span> 89/<- %edx 4/r32/esp +<span id="L3468" class="LineNr"> 3468 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3469" class="LineNr"> 3469 </span> <span class="subxComment">#</span> +<span id="L3470" class="LineNr"> 3470 </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="L3471" class="LineNr"> 3471 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g\n"</span>) +<span id="L3472" class="LineNr"> 3472 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3473" class="LineNr"> 3473 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: int {\n"</span>) <span id="L3474" class="LineNr"> 3474 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3475" class="LineNr"> 3475 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g {\n"</span>) -<span id="L3476" class="LineNr"> 3476 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3477" class="LineNr"> 3477 </span> <span class="subxComment"># convert</span> -<span id="L3478" class="LineNr"> 3478 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L3479" class="LineNr"> 3479 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3480" class="LineNr"> 3480 </span> <span class="subxComment"># restore ed</span> -<span id="L3481" class="LineNr"> 3481 </span> 89/<- %edx 4/r32/esp -<span id="L3482" class="LineNr"> 3482 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3483" class="LineNr"> 3483 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3484" class="Folded"> 3484 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3490" class="LineNr"> 3490 </span> <span class="subxComment"># check output</span> -<span id="L3491" class="LineNr"> 3491 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3454'>test-convert-function-call-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L3492" class="LineNr"> 3492 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: too many inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L3454'>test-convert-function-call-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L3493" class="LineNr"> 3493 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3494" class="LineNr"> 3494 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3454'>test-convert-function-call-with-too-many-inouts</a>: exit status"</span>) -<span id="L3495" class="LineNr"> 3495 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3496" class="LineNr"> 3496 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3497" class="LineNr"> 3497 </span> 5d/pop-to-ebp -<span id="L3498" class="LineNr"> 3498 </span> c3/return -<span id="L3499" class="LineNr"> 3499 </span> -<span id="L3500" class="LineNr"> 3500 </span><span class="subxTest">test-convert-function-call-with-incorrect-output-type</span>: -<span id="L3501" class="LineNr"> 3501 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3502" class="LineNr"> 3502 </span> 55/push-ebp -<span id="L3503" class="LineNr"> 3503 </span> 89/<- %ebp 4/r32/esp -<span id="L3504" class="LineNr"> 3504 </span> <span class="subxComment"># setup</span> -<span id="L3505" class="LineNr"> 3505 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3506" class="LineNr"> 3506 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3507" class="LineNr"> 3507 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3508" class="LineNr"> 3508 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3509" class="LineNr"> 3509 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3510" class="LineNr"> 3510 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3511" class="LineNr"> 3511 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3512" class="LineNr"> 3512 </span> 68/push 0/imm32 -<span id="L3513" class="LineNr"> 3513 </span> 68/push 0/imm32 -<span id="L3514" class="LineNr"> 3514 </span> 89/<- %edx 4/r32/esp -<span id="L3515" class="LineNr"> 3515 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3516" class="LineNr"> 3516 </span> <span class="subxComment">#</span> -<span id="L3517" class="LineNr"> 3517 </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="L3518" class="LineNr"> 3518 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- g\n"</span>) -<span id="L3519" class="LineNr"> 3519 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3520" class="LineNr"> 3520 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: foo {\n"</span>) -<span id="L3521" class="LineNr"> 3521 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3522" class="LineNr"> 3522 </span> <span class="subxComment"># convert</span> -<span id="L3523" class="LineNr"> 3523 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L3524" class="LineNr"> 3524 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3525" class="LineNr"> 3525 </span> <span class="subxComment"># restore ed</span> -<span id="L3526" class="LineNr"> 3526 </span> 89/<- %edx 4/r32/esp -<span id="L3527" class="LineNr"> 3527 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3528" class="LineNr"> 3528 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3529" class="Folded"> 3529 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3535" class="LineNr"> 3535 </span> <span class="subxComment"># check output</span> -<span id="L3536" class="LineNr"> 3536 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3500'>test-convert-function-call-with-incorrect-output-type</a>: output should be empty"</span>) -<span id="L3537" class="LineNr"> 3537 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for output 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3500'>test-convert-function-call-with-incorrect-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L3538" class="LineNr"> 3538 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3539" class="LineNr"> 3539 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3500'>test-convert-function-call-with-incorrect-output-type</a>: exit status"</span>) -<span id="L3540" class="LineNr"> 3540 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3541" class="LineNr"> 3541 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3542" class="LineNr"> 3542 </span> 5d/pop-to-ebp -<span id="L3543" class="LineNr"> 3543 </span> c3/return -<span id="L3544" class="LineNr"> 3544 </span> -<span id="L3545" class="LineNr"> 3545 </span><span class="subxTest">test-convert-function-call-with-too-few-outputs</span>: -<span id="L3546" class="LineNr"> 3546 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3547" class="LineNr"> 3547 </span> 55/push-ebp -<span id="L3548" class="LineNr"> 3548 </span> 89/<- %ebp 4/r32/esp -<span id="L3549" class="LineNr"> 3549 </span> <span class="subxComment"># setup</span> -<span id="L3550" class="LineNr"> 3550 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3551" class="LineNr"> 3551 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3552" class="LineNr"> 3552 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3553" class="LineNr"> 3553 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3554" class="LineNr"> 3554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3555" class="LineNr"> 3555 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3556" class="LineNr"> 3556 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3475" class="LineNr"> 3475 </span> <span class="subxComment"># convert</span> +<span id="L3476" class="LineNr"> 3476 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3477" class="LineNr"> 3477 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3478" class="LineNr"> 3478 </span> <span class="subxComment"># restore ed</span> +<span id="L3479" class="LineNr"> 3479 </span> 89/<- %edx 4/r32/esp +<span id="L3480" class="LineNr"> 3480 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3481" class="LineNr"> 3481 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3482" class="Folded"> 3482 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3488" class="LineNr"> 3488 </span> <span class="subxComment"># check output</span> +<span id="L3489" class="LineNr"> 3489 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3453'>test-convert-function-call-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L3490" class="LineNr"> 3490 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: too few inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L3453'>test-convert-function-call-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3491" class="LineNr"> 3491 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3492" class="LineNr"> 3492 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3453'>test-convert-function-call-with-too-few-inouts</a>: exit status"</span>) +<span id="L3493" class="LineNr"> 3493 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3494" class="LineNr"> 3494 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3495" class="LineNr"> 3495 </span> 5d/pop-to-ebp +<span id="L3496" class="LineNr"> 3496 </span> c3/return +<span id="L3497" class="LineNr"> 3497 </span> +<span id="L3498" class="LineNr"> 3498 </span><span class="subxTest">test-convert-function-call-with-too-many-inouts</span>: +<span id="L3499" class="LineNr"> 3499 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3500" class="LineNr"> 3500 </span> 55/push-ebp +<span id="L3501" class="LineNr"> 3501 </span> 89/<- %ebp 4/r32/esp +<span id="L3502" class="LineNr"> 3502 </span> <span class="subxComment"># setup</span> +<span id="L3503" class="LineNr"> 3503 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3504" class="LineNr"> 3504 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3505" class="LineNr"> 3505 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3506" class="LineNr"> 3506 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3507" class="LineNr"> 3507 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3508" class="LineNr"> 3508 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3509" class="LineNr"> 3509 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3510" class="LineNr"> 3510 </span> 68/push 0/imm32 +<span id="L3511" class="LineNr"> 3511 </span> 68/push 0/imm32 +<span id="L3512" class="LineNr"> 3512 </span> 89/<- %edx 4/r32/esp +<span id="L3513" class="LineNr"> 3513 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3514" class="LineNr"> 3514 </span> <span class="subxComment">#</span> +<span id="L3515" class="LineNr"> 3515 </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="L3516" class="LineNr"> 3516 </span> (<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="L3517" class="LineNr"> 3517 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L3518" class="LineNr"> 3518 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3519" class="LineNr"> 3519 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g {\n"</span>) +<span id="L3520" class="LineNr"> 3520 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3521" class="LineNr"> 3521 </span> <span class="subxComment"># convert</span> +<span id="L3522" class="LineNr"> 3522 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3523" class="LineNr"> 3523 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3524" class="LineNr"> 3524 </span> <span class="subxComment"># restore ed</span> +<span id="L3525" class="LineNr"> 3525 </span> 89/<- %edx 4/r32/esp +<span id="L3526" class="LineNr"> 3526 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3527" class="LineNr"> 3527 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3528" class="Folded"> 3528 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3534" class="LineNr"> 3534 </span> <span class="subxComment"># check output</span> +<span id="L3535" class="LineNr"> 3535 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3498'>test-convert-function-call-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L3536" class="LineNr"> 3536 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: too many inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L3498'>test-convert-function-call-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3537" class="LineNr"> 3537 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3538" class="LineNr"> 3538 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3498'>test-convert-function-call-with-too-many-inouts</a>: exit status"</span>) +<span id="L3539" class="LineNr"> 3539 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3540" class="LineNr"> 3540 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3541" class="LineNr"> 3541 </span> 5d/pop-to-ebp +<span id="L3542" class="LineNr"> 3542 </span> c3/return +<span id="L3543" class="LineNr"> 3543 </span> +<span id="L3544" class="LineNr"> 3544 </span><span class="subxTest">test-convert-function-call-with-incorrect-output-type</span>: +<span id="L3545" class="LineNr"> 3545 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3546" class="LineNr"> 3546 </span> 55/push-ebp +<span id="L3547" class="LineNr"> 3547 </span> 89/<- %ebp 4/r32/esp +<span id="L3548" class="LineNr"> 3548 </span> <span class="subxComment"># setup</span> +<span id="L3549" class="LineNr"> 3549 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3550" class="LineNr"> 3550 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3551" class="LineNr"> 3551 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3552" class="LineNr"> 3552 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3553" class="LineNr"> 3553 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3554" class="LineNr"> 3554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3555" class="LineNr"> 3555 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3556" class="LineNr"> 3556 </span> 68/push 0/imm32 <span id="L3557" class="LineNr"> 3557 </span> 68/push 0/imm32 -<span id="L3558" class="LineNr"> 3558 </span> 68/push 0/imm32 -<span id="L3559" class="LineNr"> 3559 </span> 89/<- %edx 4/r32/esp -<span id="L3560" class="LineNr"> 3560 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3561" class="LineNr"> 3561 </span> <span class="subxComment">#</span> -<span id="L3562" class="LineNr"> 3562 </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="L3563" class="LineNr"> 3563 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g\n"</span>) -<span id="L3564" class="LineNr"> 3564 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3565" class="LineNr"> 3565 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: int {\n"</span>) -<span id="L3566" class="LineNr"> 3566 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3567" class="LineNr"> 3567 </span> <span class="subxComment"># convert</span> -<span id="L3568" class="LineNr"> 3568 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L3569" class="LineNr"> 3569 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3570" class="LineNr"> 3570 </span> <span class="subxComment"># restore ed</span> -<span id="L3571" class="LineNr"> 3571 </span> 89/<- %edx 4/r32/esp -<span id="L3572" class="LineNr"> 3572 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3573" class="LineNr"> 3573 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3574" class="Folded"> 3574 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3580" class="LineNr"> 3580 </span> <span class="subxComment"># check output</span> -<span id="L3581" class="LineNr"> 3581 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3545'>test-convert-function-call-with-too-few-outputs</a>: output should be empty"</span>) -<span id="L3582" class="LineNr"> 3582 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: too few outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L3545'>test-convert-function-call-with-too-few-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L3583" class="LineNr"> 3583 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3584" class="LineNr"> 3584 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3545'>test-convert-function-call-with-too-few-outputs</a>: exit status"</span>) -<span id="L3585" class="LineNr"> 3585 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3586" class="LineNr"> 3586 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3587" class="LineNr"> 3587 </span> 5d/pop-to-ebp -<span id="L3588" class="LineNr"> 3588 </span> c3/return -<span id="L3589" class="LineNr"> 3589 </span> -<span id="L3590" class="LineNr"> 3590 </span><span class="subxTest">test-convert-function-call-with-too-many-outputs</span>: -<span id="L3591" class="LineNr"> 3591 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3592" class="LineNr"> 3592 </span> 55/push-ebp -<span id="L3593" class="LineNr"> 3593 </span> 89/<- %ebp 4/r32/esp -<span id="L3594" class="LineNr"> 3594 </span> <span class="subxComment"># setup</span> -<span id="L3595" class="LineNr"> 3595 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3596" class="LineNr"> 3596 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3597" class="LineNr"> 3597 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3598" class="LineNr"> 3598 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3599" class="LineNr"> 3599 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3600" class="LineNr"> 3600 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3601" class="LineNr"> 3601 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3558" class="LineNr"> 3558 </span> 89/<- %edx 4/r32/esp +<span id="L3559" class="LineNr"> 3559 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3560" class="LineNr"> 3560 </span> <span class="subxComment">#</span> +<span id="L3561" class="LineNr"> 3561 </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="L3562" class="LineNr"> 3562 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- g\n"</span>) +<span id="L3563" class="LineNr"> 3563 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3564" class="LineNr"> 3564 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: foo {\n"</span>) +<span id="L3565" class="LineNr"> 3565 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3566" class="LineNr"> 3566 </span> <span class="subxComment"># convert</span> +<span id="L3567" class="LineNr"> 3567 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3568" class="LineNr"> 3568 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3569" class="LineNr"> 3569 </span> <span class="subxComment"># restore ed</span> +<span id="L3570" class="LineNr"> 3570 </span> 89/<- %edx 4/r32/esp +<span id="L3571" class="LineNr"> 3571 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3572" class="LineNr"> 3572 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3573" class="Folded"> 3573 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3579" class="LineNr"> 3579 </span> <span class="subxComment"># check output</span> +<span id="L3580" class="LineNr"> 3580 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3544'>test-convert-function-call-with-incorrect-output-type</a>: output should be empty"</span>) +<span id="L3581" class="LineNr"> 3581 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for output 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3544'>test-convert-function-call-with-incorrect-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3582" class="LineNr"> 3582 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3583" class="LineNr"> 3583 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3544'>test-convert-function-call-with-incorrect-output-type</a>: exit status"</span>) +<span id="L3584" class="LineNr"> 3584 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3585" class="LineNr"> 3585 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3586" class="LineNr"> 3586 </span> 5d/pop-to-ebp +<span id="L3587" class="LineNr"> 3587 </span> c3/return +<span id="L3588" class="LineNr"> 3588 </span> +<span id="L3589" class="LineNr"> 3589 </span><span class="subxTest">test-convert-function-call-with-too-few-outputs</span>: +<span id="L3590" class="LineNr"> 3590 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3591" class="LineNr"> 3591 </span> 55/push-ebp +<span id="L3592" class="LineNr"> 3592 </span> 89/<- %ebp 4/r32/esp +<span id="L3593" class="LineNr"> 3593 </span> <span class="subxComment"># setup</span> +<span id="L3594" class="LineNr"> 3594 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3595" class="LineNr"> 3595 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3596" class="LineNr"> 3596 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3597" class="LineNr"> 3597 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3598" class="LineNr"> 3598 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3599" class="LineNr"> 3599 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3600" class="LineNr"> 3600 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3601" class="LineNr"> 3601 </span> 68/push 0/imm32 <span id="L3602" class="LineNr"> 3602 </span> 68/push 0/imm32 -<span id="L3603" class="LineNr"> 3603 </span> 68/push 0/imm32 -<span id="L3604" class="LineNr"> 3604 </span> 89/<- %edx 4/r32/esp -<span id="L3605" class="LineNr"> 3605 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3606" class="LineNr"> 3606 </span> <span class="subxComment">#</span> -<span id="L3607" class="LineNr"> 3607 </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="L3608" class="LineNr"> 3608 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- g\n"</span>) -<span id="L3609" class="LineNr"> 3609 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3610" class="LineNr"> 3610 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g {\n"</span>) -<span id="L3611" class="LineNr"> 3611 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3612" class="LineNr"> 3612 </span> <span class="subxComment"># convert</span> -<span id="L3613" class="LineNr"> 3613 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L3614" class="LineNr"> 3614 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3615" class="LineNr"> 3615 </span> <span class="subxComment"># restore ed</span> -<span id="L3616" class="LineNr"> 3616 </span> 89/<- %edx 4/r32/esp -<span id="L3617" class="LineNr"> 3617 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3618" class="LineNr"> 3618 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3619" class="Folded"> 3619 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3625" class="LineNr"> 3625 </span> <span class="subxComment"># check output</span> -<span id="L3626" class="LineNr"> 3626 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3590'>test-convert-function-call-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L3627" class="LineNr"> 3627 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: too many outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L3590'>test-convert-function-call-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L3628" class="LineNr"> 3628 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3629" class="LineNr"> 3629 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3590'>test-convert-function-call-with-too-many-outputs</a>: exit status"</span>) -<span id="L3630" class="LineNr"> 3630 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3631" class="LineNr"> 3631 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3632" class="LineNr"> 3632 </span> 5d/pop-to-ebp -<span id="L3633" class="LineNr"> 3633 </span> c3/return -<span id="L3634" class="LineNr"> 3634 </span> -<span id="L3635" class="LineNr"> 3635 </span><span class="subxTest">test-convert-function-call-with-missing-output-register</span>: -<span id="L3636" class="LineNr"> 3636 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3637" class="LineNr"> 3637 </span> 55/push-ebp -<span id="L3638" class="LineNr"> 3638 </span> 89/<- %ebp 4/r32/esp -<span id="L3639" class="LineNr"> 3639 </span> <span class="subxComment"># setup</span> -<span id="L3640" class="LineNr"> 3640 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3641" class="LineNr"> 3641 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3642" class="LineNr"> 3642 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3643" class="LineNr"> 3643 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3644" class="LineNr"> 3644 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3645" class="LineNr"> 3645 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3646" class="LineNr"> 3646 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3603" class="LineNr"> 3603 </span> 89/<- %edx 4/r32/esp +<span id="L3604" class="LineNr"> 3604 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3605" class="LineNr"> 3605 </span> <span class="subxComment">#</span> +<span id="L3606" class="LineNr"> 3606 </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="L3607" class="LineNr"> 3607 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g\n"</span>) +<span id="L3608" class="LineNr"> 3608 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3609" class="LineNr"> 3609 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: int {\n"</span>) +<span id="L3610" class="LineNr"> 3610 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3611" class="LineNr"> 3611 </span> <span class="subxComment"># convert</span> +<span id="L3612" class="LineNr"> 3612 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3613" class="LineNr"> 3613 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3614" class="LineNr"> 3614 </span> <span class="subxComment"># restore ed</span> +<span id="L3615" class="LineNr"> 3615 </span> 89/<- %edx 4/r32/esp +<span id="L3616" class="LineNr"> 3616 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3617" class="LineNr"> 3617 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3618" class="Folded"> 3618 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3624" class="LineNr"> 3624 </span> <span class="subxComment"># check output</span> +<span id="L3625" class="LineNr"> 3625 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3589'>test-convert-function-call-with-too-few-outputs</a>: output should be empty"</span>) +<span id="L3626" class="LineNr"> 3626 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: too few outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L3589'>test-convert-function-call-with-too-few-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3627" class="LineNr"> 3627 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3628" class="LineNr"> 3628 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3589'>test-convert-function-call-with-too-few-outputs</a>: exit status"</span>) +<span id="L3629" class="LineNr"> 3629 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3630" class="LineNr"> 3630 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3631" class="LineNr"> 3631 </span> 5d/pop-to-ebp +<span id="L3632" class="LineNr"> 3632 </span> c3/return +<span id="L3633" class="LineNr"> 3633 </span> +<span id="L3634" class="LineNr"> 3634 </span><span class="subxTest">test-convert-function-call-with-too-many-outputs</span>: +<span id="L3635" class="LineNr"> 3635 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3636" class="LineNr"> 3636 </span> 55/push-ebp +<span id="L3637" class="LineNr"> 3637 </span> 89/<- %ebp 4/r32/esp +<span id="L3638" class="LineNr"> 3638 </span> <span class="subxComment"># setup</span> +<span id="L3639" class="LineNr"> 3639 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3640" class="LineNr"> 3640 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3641" class="LineNr"> 3641 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3642" class="LineNr"> 3642 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3643" class="LineNr"> 3643 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3644" class="LineNr"> 3644 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3645" class="LineNr"> 3645 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3646" class="LineNr"> 3646 </span> 68/push 0/imm32 <span id="L3647" class="LineNr"> 3647 </span> 68/push 0/imm32 -<span id="L3648" class="LineNr"> 3648 </span> 68/push 0/imm32 -<span id="L3649" class="LineNr"> 3649 </span> 89/<- %edx 4/r32/esp -<span id="L3650" class="LineNr"> 3650 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3651" class="LineNr"> 3651 </span> <span class="subxComment">#</span> -<span id="L3652" class="LineNr"> 3652 </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="L3653" class="LineNr"> 3653 </span> (<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="L3654" class="LineNr"> 3654 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- g\n"</span>) +<span id="L3648" class="LineNr"> 3648 </span> 89/<- %edx 4/r32/esp +<span id="L3649" class="LineNr"> 3649 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3650" class="LineNr"> 3650 </span> <span class="subxComment">#</span> +<span id="L3651" class="LineNr"> 3651 </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="L3652" class="LineNr"> 3652 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- g\n"</span>) +<span id="L3653" class="LineNr"> 3653 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3654" class="LineNr"> 3654 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g {\n"</span>) <span id="L3655" class="LineNr"> 3655 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3656" class="LineNr"> 3656 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: int {\n"</span>) -<span id="L3657" class="LineNr"> 3657 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3658" class="LineNr"> 3658 </span> <span class="subxComment"># convert</span> -<span id="L3659" class="LineNr"> 3659 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L3660" class="LineNr"> 3660 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3661" class="LineNr"> 3661 </span> <span class="subxComment"># restore ed</span> -<span id="L3662" class="LineNr"> 3662 </span> 89/<- %edx 4/r32/esp -<span id="L3663" class="LineNr"> 3663 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3664" class="LineNr"> 3664 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3665" class="Folded"> 3665 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3671" class="LineNr"> 3671 </span> <span class="subxComment"># check output</span> -<span id="L3672" class="LineNr"> 3672 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3635'>test-convert-function-call-with-missing-output-register</a>: output should be empty"</span>) -<span id="L3673" class="LineNr"> 3673 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: output 'x' is not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L3635'>test-convert-function-call-with-missing-output-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L3674" class="LineNr"> 3674 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3675" class="LineNr"> 3675 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3635'>test-convert-function-call-with-missing-output-register</a>: exit status"</span>) -<span id="L3676" class="LineNr"> 3676 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3677" class="LineNr"> 3677 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3678" class="LineNr"> 3678 </span> 5d/pop-to-ebp -<span id="L3679" class="LineNr"> 3679 </span> c3/return -<span id="L3680" class="LineNr"> 3680 </span> -<span id="L3681" class="LineNr"> 3681 </span><span class="subxTest">test-convert-function-call-with-incorrect-output-register</span>: -<span id="L3682" class="LineNr"> 3682 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3683" class="LineNr"> 3683 </span> 55/push-ebp -<span id="L3684" class="LineNr"> 3684 </span> 89/<- %ebp 4/r32/esp -<span id="L3685" class="LineNr"> 3685 </span> <span class="subxComment"># setup</span> -<span id="L3686" class="LineNr"> 3686 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3687" class="LineNr"> 3687 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3688" class="LineNr"> 3688 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3689" class="LineNr"> 3689 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3690" class="LineNr"> 3690 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3691" class="LineNr"> 3691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3692" class="LineNr"> 3692 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3693" class="LineNr"> 3693 </span> 68/push 0/imm32 -<span id="L3694" class="LineNr"> 3694 </span> 68/push 0/imm32 -<span id="L3695" class="LineNr"> 3695 </span> 89/<- %edx 4/r32/esp -<span id="L3696" class="LineNr"> 3696 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3697" class="LineNr"> 3697 </span> <span class="subxComment">#</span> -<span id="L3698" class="LineNr"> 3698 </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="L3699" class="LineNr"> 3699 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- g\n"</span>) -<span id="L3700" class="LineNr"> 3700 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3701" class="LineNr"> 3701 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: int {\n"</span>) -<span id="L3702" class="LineNr"> 3702 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3703" class="LineNr"> 3703 </span> <span class="subxComment"># convert</span> -<span id="L3704" class="LineNr"> 3704 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L3705" class="LineNr"> 3705 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3706" class="LineNr"> 3706 </span> <span class="subxComment"># restore ed</span> -<span id="L3707" class="LineNr"> 3707 </span> 89/<- %edx 4/r32/esp -<span id="L3708" class="LineNr"> 3708 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3709" class="LineNr"> 3709 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3710" class="Folded"> 3710 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3716" class="LineNr"> 3716 </span> <span class="subxComment"># check output</span> -<span id="L3717" class="LineNr"> 3717 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3681'>test-convert-function-call-with-incorrect-output-register</a>: output should be empty"</span>) -<span id="L3718" class="LineNr"> 3718 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: register for output 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3681'>test-convert-function-call-with-incorrect-output-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L3719" class="LineNr"> 3719 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3720" class="LineNr"> 3720 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3681'>test-convert-function-call-with-incorrect-output-register</a>: exit status"</span>) -<span id="L3721" class="LineNr"> 3721 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3722" class="LineNr"> 3722 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3723" class="LineNr"> 3723 </span> 5d/pop-to-ebp -<span id="L3724" class="LineNr"> 3724 </span> c3/return -<span id="L3725" class="LineNr"> 3725 </span> -<span id="L3726" class="LineNr"> 3726 </span><span class="subxTest">test-convert-function-with-local-var-dereferenced</span>: -<span id="L3727" class="LineNr"> 3727 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3728" class="LineNr"> 3728 </span> 55/push-ebp -<span id="L3729" class="LineNr"> 3729 </span> 89/<- %ebp 4/r32/esp -<span id="L3730" class="LineNr"> 3730 </span> <span class="subxComment"># setup</span> -<span id="L3731" class="LineNr"> 3731 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3732" class="LineNr"> 3732 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3733" class="LineNr"> 3733 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3734" class="LineNr"> 3734 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3735" class="LineNr"> 3735 </span> <span class="subxComment">#</span> -<span id="L3736" class="LineNr"> 3736 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3737" class="LineNr"> 3737 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr int) <- copy 0\n"</span>) -<span id="L3738" class="LineNr"> 3738 </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="L3739" class="LineNr"> 3739 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3740" class="LineNr"> 3740 </span> <span class="subxComment"># convert</span> -<span id="L3741" class="LineNr"> 3741 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L3742" class="LineNr"> 3742 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3743" class="Folded"> 3743 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3749" class="LineNr"> 3749 </span> <span class="subxComment"># check output</span> -<span id="L3750" class="LineNr"> 3750 </span> (<a href='109stream-equal.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#L3726'>test-convert-function-with-local-var-dereferenced</a>/0"</span>) -<span id="L3751" class="LineNr"> 3751 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-dereferenced/1"</span>) -<span id="L3752" class="LineNr"> 3752 </span> (<a href='109stream-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#L3726'>test-convert-function-with-local-var-dereferenced</a>/2"</span>) -<span id="L3753" class="LineNr"> 3753 </span> (<a href='109stream-equal.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#L3726'>test-convert-function-with-local-var-dereferenced</a>/3"</span>) -<span id="L3754" class="LineNr"> 3754 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3726'>test-convert-function-with-local-var-dereferenced</a>/4"</span>) -<span id="L3755" class="LineNr"> 3755 </span> (<a href='109stream-equal.subx.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#L3726'>test-convert-function-with-local-var-dereferenced</a>/5"</span>) -<span id="L3756" class="LineNr"> 3756 </span> (<a href='109stream-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#L3726'>test-convert-function-with-local-var-dereferenced</a>/6"</span>) -<span id="L3757" class="LineNr"> 3757 </span> (<a href='109stream-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#L3726'>test-convert-function-with-local-var-dereferenced</a>/7"</span>) -<span id="L3758" class="LineNr"> 3758 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3726'>test-convert-function-with-local-var-dereferenced</a>/8"</span>) -<span id="L3759" class="LineNr"> 3759 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3726'>test-convert-function-with-local-var-dereferenced</a>/9"</span>) -<span id="L3760" class="LineNr"> 3760 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3726'>test-convert-function-with-local-var-dereferenced</a>/10"</span>) -<span id="L3761" class="LineNr"> 3761 </span> (<a href='109stream-equal.subx.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#L3726'>test-convert-function-with-local-var-dereferenced</a>/11"</span>) -<span id="L3762" class="LineNr"> 3762 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-dereferenced/12"</span>) -<span id="L3763" class="LineNr"> 3763 </span> (<a href='109stream-equal.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#L3726'>test-convert-function-with-local-var-dereferenced</a>/13"</span>) -<span id="L3764" class="LineNr"> 3764 </span> (<a href='109stream-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#L3726'>test-convert-function-with-local-var-dereferenced</a>/14"</span>) -<span id="L3765" class="LineNr"> 3765 </span> (<a href='109stream-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#L3726'>test-convert-function-with-local-var-dereferenced</a>/15"</span>) -<span id="L3766" class="LineNr"> 3766 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3767" class="LineNr"> 3767 </span> 89/<- %esp 5/r32/ebp -<span id="L3768" class="LineNr"> 3768 </span> 5d/pop-to-ebp -<span id="L3769" class="LineNr"> 3769 </span> c3/return -<span id="L3770" class="LineNr"> 3770 </span> -<span id="L3771" class="LineNr"> 3771 </span><span class="subxTest">test-dereference-of-var-on-stack</span>: -<span id="L3772" class="LineNr"> 3772 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3773" class="LineNr"> 3773 </span> 55/push-ebp -<span id="L3774" class="LineNr"> 3774 </span> 89/<- %ebp 4/r32/esp -<span id="L3775" class="LineNr"> 3775 </span> <span class="subxComment"># setup</span> -<span id="L3776" class="LineNr"> 3776 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3777" class="LineNr"> 3777 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3778" class="LineNr"> 3778 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3779" class="LineNr"> 3779 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3780" class="LineNr"> 3780 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3781" class="LineNr"> 3781 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3782" class="LineNr"> 3782 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3783" class="LineNr"> 3783 </span> 68/push 0/imm32 -<span id="L3784" class="LineNr"> 3784 </span> 68/push 0/imm32 -<span id="L3785" class="LineNr"> 3785 </span> 89/<- %edx 4/r32/esp -<span id="L3786" class="LineNr"> 3786 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3787" class="LineNr"> 3787 </span> <span class="subxComment">#</span> -<span id="L3788" class="LineNr"> 3788 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3789" class="LineNr"> 3789 </span> (<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="L3790" class="LineNr"> 3790 </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="L3791" class="LineNr"> 3791 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3792" class="LineNr"> 3792 </span> <span class="subxComment"># convert</span> -<span id="L3793" class="LineNr"> 3793 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L3794" class="LineNr"> 3794 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3795" class="LineNr"> 3795 </span> <span class="subxComment"># restore ed</span> -<span id="L3796" class="LineNr"> 3796 </span> 89/<- %edx 4/r32/esp -<span id="L3797" class="LineNr"> 3797 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3798" class="LineNr"> 3798 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3799" class="Folded"> 3799 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3805" class="LineNr"> 3805 </span> <span class="subxComment"># check output</span> -<span id="L3806" class="LineNr"> 3806 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3771'>test-dereference-of-var-on-stack</a>: output should be empty"</span>) -<span id="L3807" class="LineNr"> 3807 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: cannot dereference var 'x' on stack"</span> <span class="Constant">"F - <a href='mu.subx.html#L3771'>test-dereference-of-var-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L3808" class="LineNr"> 3808 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3809" class="LineNr"> 3809 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3771'>test-dereference-of-var-on-stack</a>: exit status"</span>) -<span id="L3810" class="LineNr"> 3810 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3811" class="LineNr"> 3811 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3812" class="LineNr"> 3812 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3813" class="LineNr"> 3813 </span> 5d/pop-to-ebp -<span id="L3814" class="LineNr"> 3814 </span> c3/return -<span id="L3815" class="LineNr"> 3815 </span> -<span id="L3816" class="LineNr"> 3816 </span><span class="subxTest">test-convert-function-with-byte-operations</span>: -<span id="L3817" class="LineNr"> 3817 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3818" class="LineNr"> 3818 </span> 55/push-ebp -<span id="L3819" class="LineNr"> 3819 </span> 89/<- %ebp 4/r32/esp -<span id="L3820" class="LineNr"> 3820 </span> <span class="subxComment"># setup</span> -<span id="L3821" class="LineNr"> 3821 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3822" class="LineNr"> 3822 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3823" class="LineNr"> 3823 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3824" class="LineNr"> 3824 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3825" class="LineNr"> 3825 </span> <span class="subxComment">#</span> -<span id="L3826" class="LineNr"> 3826 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3827" class="LineNr"> 3827 </span> (<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="L3828" class="LineNr"> 3828 </span> (<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="L3829" class="LineNr"> 3829 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- copy-byte x\n"</span>) -<span id="L3830" class="LineNr"> 3830 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var z/edx: (addr byte) <- copy 0\n"</span>) -<span id="L3831" class="LineNr"> 3831 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- copy-byte *z\n"</span>) -<span id="L3832" class="LineNr"> 3832 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *z, x\n"</span>) -<span id="L3833" class="LineNr"> 3833 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3834" class="LineNr"> 3834 </span> <span class="subxComment"># convert</span> -<span id="L3835" class="LineNr"> 3835 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L3836" class="LineNr"> 3836 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3837" class="Folded"> 3837 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3843" class="LineNr"> 3843 </span> <span class="subxComment"># check output</span> -<span id="L3844" class="LineNr"> 3844 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/0"</span>) -<span id="L3845" class="LineNr"> 3845 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-byte-operations/1"</span>) -<span id="L3846" class="LineNr"> 3846 </span> (<a href='109stream-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#L3816'>test-convert-function-with-byte-operations</a>/2"</span>) -<span id="L3847" class="LineNr"> 3847 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/3"</span>) -<span id="L3848" class="LineNr"> 3848 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/4"</span>) -<span id="L3849" class="LineNr"> 3849 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/5"</span>) -<span id="L3850" class="LineNr"> 3850 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/6"</span>) -<span id="L3851" class="LineNr"> 3851 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/7"</span>) -<span id="L3852" class="LineNr"> 3852 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/8"</span>) -<span id="L3853" class="LineNr"> 3853 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/9"</span>) -<span id="L3854" class="LineNr"> 3854 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8a/byte-> %eax 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/10"</span>) -<span id="L3855" class="LineNr"> 3855 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 4/subop/and %ecx 0xff/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/11"</span>) -<span id="L3856" class="LineNr"> 3856 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/12"</span>) -<span id="L3857" class="LineNr"> 3857 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/13"</span>) -<span id="L3858" class="LineNr"> 3858 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8a/byte-> *edx 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/14"</span>) -<span id="L3859" class="LineNr"> 3859 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 4/subop/and %ecx 0xff/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/15"</span>) -<span id="L3860" class="LineNr"> 3860 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 88/byte<- *edx 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/16"</span>) -<span id="L3861" class="LineNr"> 3861 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/17"</span>) -<span id="L3862" class="LineNr"> 3862 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/18"</span>) -<span id="L3863" class="LineNr"> 3863 </span> (<a href='109stream-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#L3816'>test-convert-function-with-byte-operations</a>/19"</span>) -<span id="L3864" class="LineNr"> 3864 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3816'>test-convert-function-with-byte-operations</a>/20"</span>) -<span id="L3865" class="LineNr"> 3865 </span> (<a href='109stream-equal.subx.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#L3816'>test-convert-function-with-byte-operations</a>/21"</span>) -<span id="L3866" class="LineNr"> 3866 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-byte-operations/22"</span>) -<span id="L3867" class="LineNr"> 3867 </span> (<a href='109stream-equal.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#L3816'>test-convert-function-with-byte-operations</a>/23"</span>) -<span id="L3868" class="LineNr"> 3868 </span> (<a href='109stream-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#L3816'>test-convert-function-with-byte-operations</a>/24"</span>) -<span id="L3869" class="LineNr"> 3869 </span> (<a href='109stream-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#L3816'>test-convert-function-with-byte-operations</a>/25"</span>) -<span id="L3870" class="LineNr"> 3870 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3871" class="LineNr"> 3871 </span> 89/<- %esp 5/r32/ebp -<span id="L3872" class="LineNr"> 3872 </span> 5d/pop-to-ebp -<span id="L3873" class="LineNr"> 3873 </span> c3/return -<span id="L3874" class="LineNr"> 3874 </span> -<span id="L3875" class="LineNr"> 3875 </span><span class="subxComment"># variables of type 'byte' are not allowed on the stack</span> -<span id="L3876" class="LineNr"> 3876 </span><span class="subxTest">test-byte-values-on-stack</span>: -<span id="L3877" class="LineNr"> 3877 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3878" class="LineNr"> 3878 </span> 55/push-ebp -<span id="L3879" class="LineNr"> 3879 </span> 89/<- %ebp 4/r32/esp -<span id="L3880" class="LineNr"> 3880 </span> <span class="subxComment"># setup</span> -<span id="L3881" class="LineNr"> 3881 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3882" class="LineNr"> 3882 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3883" class="LineNr"> 3883 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3884" class="LineNr"> 3884 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3885" class="LineNr"> 3885 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3886" class="LineNr"> 3886 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3887" class="LineNr"> 3887 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3888" class="LineNr"> 3888 </span> 68/push 0/imm32 -<span id="L3889" class="LineNr"> 3889 </span> 68/push 0/imm32 -<span id="L3890" class="LineNr"> 3890 </span> 89/<- %edx 4/r32/esp -<span id="L3891" class="LineNr"> 3891 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3892" class="LineNr"> 3892 </span> <span class="subxComment">#</span> -<span id="L3893" class="LineNr"> 3893 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3894" class="LineNr"> 3894 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: byte\n"</span>) -<span id="L3895" class="LineNr"> 3895 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3896" class="LineNr"> 3896 </span> <span class="subxComment"># convert</span> -<span id="L3897" class="LineNr"> 3897 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L3898" class="LineNr"> 3898 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3899" class="LineNr"> 3899 </span> <span class="subxComment"># restore ed</span> -<span id="L3900" class="LineNr"> 3900 </span> 89/<- %edx 4/r32/esp -<span id="L3901" class="LineNr"> 3901 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3902" class="LineNr"> 3902 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3903" class="Folded"> 3903 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3909" class="LineNr"> 3909 </span> <span class="subxComment"># check output</span> -<span id="L3910" class="LineNr"> 3910 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-byte-values-on-stack</a>: output should be empty"</span>) -<span id="L3911" class="LineNr"> 3911 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: var 'x' of type 'byte' cannot be on the stack"</span> <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-byte-values-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L3912" class="LineNr"> 3912 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3913" class="LineNr"> 3913 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3876'>test-byte-values-on-stack</a>: exit status"</span>) -<span id="L3914" class="LineNr"> 3914 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3915" class="LineNr"> 3915 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3916" class="LineNr"> 3916 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3917" class="LineNr"> 3917 </span> 5d/pop-to-ebp -<span id="L3918" class="LineNr"> 3918 </span> c3/return -<span id="L3919" class="LineNr"> 3919 </span> -<span id="L3920" class="LineNr"> 3920 </span><span class="subxComment"># variables of type 'byte' are not allowed in esi or edi</span> -<span id="L3921" class="LineNr"> 3921 </span><span class="subxTest">test-byte-values-in-unsupported-registers</span>: -<span id="L3922" class="LineNr"> 3922 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3923" class="LineNr"> 3923 </span> 55/push-ebp -<span id="L3924" class="LineNr"> 3924 </span> 89/<- %ebp 4/r32/esp -<span id="L3925" class="LineNr"> 3925 </span> <span class="subxComment"># setup</span> -<span id="L3926" class="LineNr"> 3926 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3927" class="LineNr"> 3927 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3928" class="LineNr"> 3928 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3929" class="LineNr"> 3929 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3930" class="LineNr"> 3930 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L3931" class="LineNr"> 3931 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3932" class="LineNr"> 3932 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3656" class="LineNr"> 3656 </span> <span class="subxComment"># convert</span> +<span id="L3657" class="LineNr"> 3657 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3658" class="LineNr"> 3658 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3659" class="LineNr"> 3659 </span> <span class="subxComment"># restore ed</span> +<span id="L3660" class="LineNr"> 3660 </span> 89/<- %edx 4/r32/esp +<span id="L3661" class="LineNr"> 3661 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3662" class="LineNr"> 3662 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3663" class="Folded"> 3663 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3669" class="LineNr"> 3669 </span> <span class="subxComment"># check output</span> +<span id="L3670" class="LineNr"> 3670 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3634'>test-convert-function-call-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L3671" class="LineNr"> 3671 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: too many outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L3634'>test-convert-function-call-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3672" class="LineNr"> 3672 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3673" class="LineNr"> 3673 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3634'>test-convert-function-call-with-too-many-outputs</a>: exit status"</span>) +<span id="L3674" class="LineNr"> 3674 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3675" class="LineNr"> 3675 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3676" class="LineNr"> 3676 </span> 5d/pop-to-ebp +<span id="L3677" class="LineNr"> 3677 </span> c3/return +<span id="L3678" class="LineNr"> 3678 </span> +<span id="L3679" class="LineNr"> 3679 </span><span class="subxTest">test-convert-function-call-with-missing-output-register</span>: +<span id="L3680" class="LineNr"> 3680 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3681" class="LineNr"> 3681 </span> 55/push-ebp +<span id="L3682" class="LineNr"> 3682 </span> 89/<- %ebp 4/r32/esp +<span id="L3683" class="LineNr"> 3683 </span> <span class="subxComment"># setup</span> +<span id="L3684" class="LineNr"> 3684 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3685" class="LineNr"> 3685 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3686" class="LineNr"> 3686 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3687" class="LineNr"> 3687 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3688" class="LineNr"> 3688 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3689" class="LineNr"> 3689 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3690" class="LineNr"> 3690 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3691" class="LineNr"> 3691 </span> 68/push 0/imm32 +<span id="L3692" class="LineNr"> 3692 </span> 68/push 0/imm32 +<span id="L3693" class="LineNr"> 3693 </span> 89/<- %edx 4/r32/esp +<span id="L3694" class="LineNr"> 3694 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3695" class="LineNr"> 3695 </span> <span class="subxComment">#</span> +<span id="L3696" class="LineNr"> 3696 </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="L3697" class="LineNr"> 3697 </span> (<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="L3698" class="LineNr"> 3698 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- g\n"</span>) +<span id="L3699" class="LineNr"> 3699 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3700" class="LineNr"> 3700 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: int {\n"</span>) +<span id="L3701" class="LineNr"> 3701 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3702" class="LineNr"> 3702 </span> <span class="subxComment"># convert</span> +<span id="L3703" class="LineNr"> 3703 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3704" class="LineNr"> 3704 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3705" class="LineNr"> 3705 </span> <span class="subxComment"># restore ed</span> +<span id="L3706" class="LineNr"> 3706 </span> 89/<- %edx 4/r32/esp +<span id="L3707" class="LineNr"> 3707 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3708" class="LineNr"> 3708 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3709" class="Folded"> 3709 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3715" class="LineNr"> 3715 </span> <span class="subxComment"># check output</span> +<span id="L3716" class="LineNr"> 3716 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3679'>test-convert-function-call-with-missing-output-register</a>: output should be empty"</span>) +<span id="L3717" class="LineNr"> 3717 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: output 'x' is not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L3679'>test-convert-function-call-with-missing-output-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3718" class="LineNr"> 3718 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3719" class="LineNr"> 3719 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3679'>test-convert-function-call-with-missing-output-register</a>: exit status"</span>) +<span id="L3720" class="LineNr"> 3720 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3721" class="LineNr"> 3721 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3722" class="LineNr"> 3722 </span> 5d/pop-to-ebp +<span id="L3723" class="LineNr"> 3723 </span> c3/return +<span id="L3724" class="LineNr"> 3724 </span> +<span id="L3725" class="LineNr"> 3725 </span><span class="subxTest">test-convert-function-call-with-incorrect-output-register</span>: +<span id="L3726" class="LineNr"> 3726 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3727" class="LineNr"> 3727 </span> 55/push-ebp +<span id="L3728" class="LineNr"> 3728 </span> 89/<- %ebp 4/r32/esp +<span id="L3729" class="LineNr"> 3729 </span> <span class="subxComment"># setup</span> +<span id="L3730" class="LineNr"> 3730 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3731" class="LineNr"> 3731 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3732" class="LineNr"> 3732 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3733" class="LineNr"> 3733 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3734" class="LineNr"> 3734 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3735" class="LineNr"> 3735 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3736" class="LineNr"> 3736 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3737" class="LineNr"> 3737 </span> 68/push 0/imm32 +<span id="L3738" class="LineNr"> 3738 </span> 68/push 0/imm32 +<span id="L3739" class="LineNr"> 3739 </span> 89/<- %edx 4/r32/esp +<span id="L3740" class="LineNr"> 3740 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3741" class="LineNr"> 3741 </span> <span class="subxComment">#</span> +<span id="L3742" class="LineNr"> 3742 </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="L3743" class="LineNr"> 3743 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- g\n"</span>) +<span id="L3744" class="LineNr"> 3744 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3745" class="LineNr"> 3745 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: int {\n"</span>) +<span id="L3746" class="LineNr"> 3746 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3747" class="LineNr"> 3747 </span> <span class="subxComment"># convert</span> +<span id="L3748" class="LineNr"> 3748 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3749" class="LineNr"> 3749 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3750" class="LineNr"> 3750 </span> <span class="subxComment"># restore ed</span> +<span id="L3751" class="LineNr"> 3751 </span> 89/<- %edx 4/r32/esp +<span id="L3752" class="LineNr"> 3752 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3753" class="LineNr"> 3753 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3754" class="Folded"> 3754 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3760" class="LineNr"> 3760 </span> <span class="subxComment"># check output</span> +<span id="L3761" class="LineNr"> 3761 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3725'>test-convert-function-call-with-incorrect-output-register</a>: output should be empty"</span>) +<span id="L3762" class="LineNr"> 3762 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: register for output 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3725'>test-convert-function-call-with-incorrect-output-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3763" class="LineNr"> 3763 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3764" class="LineNr"> 3764 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3725'>test-convert-function-call-with-incorrect-output-register</a>: exit status"</span>) +<span id="L3765" class="LineNr"> 3765 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3766" class="LineNr"> 3766 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3767" class="LineNr"> 3767 </span> 5d/pop-to-ebp +<span id="L3768" class="LineNr"> 3768 </span> c3/return +<span id="L3769" class="LineNr"> 3769 </span> +<span id="L3770" class="LineNr"> 3770 </span><span class="subxTest">test-convert-function-with-local-var-dereferenced</span>: +<span id="L3771" class="LineNr"> 3771 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3772" class="LineNr"> 3772 </span> 55/push-ebp +<span id="L3773" class="LineNr"> 3773 </span> 89/<- %ebp 4/r32/esp +<span id="L3774" class="LineNr"> 3774 </span> <span class="subxComment"># setup</span> +<span id="L3775" class="LineNr"> 3775 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3776" class="LineNr"> 3776 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3777" class="LineNr"> 3777 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3778" class="LineNr"> 3778 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3779" class="LineNr"> 3779 </span> <span class="subxComment">#</span> +<span id="L3780" class="LineNr"> 3780 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3781" class="LineNr"> 3781 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr int) <- copy 0\n"</span>) +<span id="L3782" class="LineNr"> 3782 </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="L3783" class="LineNr"> 3783 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3784" class="LineNr"> 3784 </span> <span class="subxComment"># convert</span> +<span id="L3785" class="LineNr"> 3785 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L3786" class="LineNr"> 3786 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3787" class="Folded"> 3787 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3793" class="LineNr"> 3793 </span> <span class="subxComment"># check output</span> +<span id="L3794" class="LineNr"> 3794 </span> (<a href='109stream-equal.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#L3770'>test-convert-function-with-local-var-dereferenced</a>/0"</span>) +<span id="L3795" class="LineNr"> 3795 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-dereferenced/1"</span>) +<span id="L3796" class="LineNr"> 3796 </span> (<a href='109stream-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#L3770'>test-convert-function-with-local-var-dereferenced</a>/2"</span>) +<span id="L3797" class="LineNr"> 3797 </span> (<a href='109stream-equal.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#L3770'>test-convert-function-with-local-var-dereferenced</a>/3"</span>) +<span id="L3798" class="LineNr"> 3798 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3770'>test-convert-function-with-local-var-dereferenced</a>/4"</span>) +<span id="L3799" class="LineNr"> 3799 </span> (<a href='109stream-equal.subx.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#L3770'>test-convert-function-with-local-var-dereferenced</a>/5"</span>) +<span id="L3800" class="LineNr"> 3800 </span> (<a href='109stream-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#L3770'>test-convert-function-with-local-var-dereferenced</a>/6"</span>) +<span id="L3801" class="LineNr"> 3801 </span> (<a href='109stream-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#L3770'>test-convert-function-with-local-var-dereferenced</a>/7"</span>) +<span id="L3802" class="LineNr"> 3802 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3770'>test-convert-function-with-local-var-dereferenced</a>/8"</span>) +<span id="L3803" class="LineNr"> 3803 </span> (<a href='109stream-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#L3770'>test-convert-function-with-local-var-dereferenced</a>/9"</span>) +<span id="L3804" class="LineNr"> 3804 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3770'>test-convert-function-with-local-var-dereferenced</a>/10"</span>) +<span id="L3805" class="LineNr"> 3805 </span> (<a href='109stream-equal.subx.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#L3770'>test-convert-function-with-local-var-dereferenced</a>/11"</span>) +<span id="L3806" class="LineNr"> 3806 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-dereferenced/12"</span>) +<span id="L3807" class="LineNr"> 3807 </span> (<a href='109stream-equal.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#L3770'>test-convert-function-with-local-var-dereferenced</a>/13"</span>) +<span id="L3808" class="LineNr"> 3808 </span> (<a href='109stream-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#L3770'>test-convert-function-with-local-var-dereferenced</a>/14"</span>) +<span id="L3809" class="LineNr"> 3809 </span> (<a href='109stream-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#L3770'>test-convert-function-with-local-var-dereferenced</a>/15"</span>) +<span id="L3810" class="LineNr"> 3810 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3811" class="LineNr"> 3811 </span> 89/<- %esp 5/r32/ebp +<span id="L3812" class="LineNr"> 3812 </span> 5d/pop-to-ebp +<span id="L3813" class="LineNr"> 3813 </span> c3/return +<span id="L3814" class="LineNr"> 3814 </span> +<span id="L3815" class="LineNr"> 3815 </span><span class="subxTest">test-dereference-of-var-on-stack</span>: +<span id="L3816" class="LineNr"> 3816 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3817" class="LineNr"> 3817 </span> 55/push-ebp +<span id="L3818" class="LineNr"> 3818 </span> 89/<- %ebp 4/r32/esp +<span id="L3819" class="LineNr"> 3819 </span> <span class="subxComment"># setup</span> +<span id="L3820" class="LineNr"> 3820 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3821" class="LineNr"> 3821 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3822" class="LineNr"> 3822 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3823" class="LineNr"> 3823 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3824" class="LineNr"> 3824 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3825" class="LineNr"> 3825 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3826" class="LineNr"> 3826 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3827" class="LineNr"> 3827 </span> 68/push 0/imm32 +<span id="L3828" class="LineNr"> 3828 </span> 68/push 0/imm32 +<span id="L3829" class="LineNr"> 3829 </span> 89/<- %edx 4/r32/esp +<span id="L3830" class="LineNr"> 3830 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3831" class="LineNr"> 3831 </span> <span class="subxComment">#</span> +<span id="L3832" class="LineNr"> 3832 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3833" class="LineNr"> 3833 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L3834" class="LineNr"> 3834 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment *x\n"</span>) +<span id="L3835" class="LineNr"> 3835 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3836" class="LineNr"> 3836 </span> <span class="subxComment"># convert</span> +<span id="L3837" class="LineNr"> 3837 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3838" class="LineNr"> 3838 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3839" class="LineNr"> 3839 </span> <span class="subxComment"># restore ed</span> +<span id="L3840" class="LineNr"> 3840 </span> 89/<- %edx 4/r32/esp +<span id="L3841" class="LineNr"> 3841 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3842" class="LineNr"> 3842 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3843" class="Folded"> 3843 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3849" class="LineNr"> 3849 </span> <span class="subxComment"># check output</span> +<span id="L3850" class="LineNr"> 3850 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3815'>test-dereference-of-var-on-stack</a>: output should be empty"</span>) +<span id="L3851" class="LineNr"> 3851 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: cannot dereference var 'x' on stack"</span> <span class="Constant">"F - <a href='mu.subx.html#L3815'>test-dereference-of-var-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3852" class="LineNr"> 3852 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3853" class="LineNr"> 3853 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3815'>test-dereference-of-var-on-stack</a>: exit status"</span>) +<span id="L3854" class="LineNr"> 3854 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3855" class="LineNr"> 3855 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3856" class="LineNr"> 3856 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3857" class="LineNr"> 3857 </span> 5d/pop-to-ebp +<span id="L3858" class="LineNr"> 3858 </span> c3/return +<span id="L3859" class="LineNr"> 3859 </span> +<span id="L3860" class="LineNr"> 3860 </span><span class="subxTest">test-convert-function-with-byte-operations</span>: +<span id="L3861" class="LineNr"> 3861 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3862" class="LineNr"> 3862 </span> 55/push-ebp +<span id="L3863" class="LineNr"> 3863 </span> 89/<- %ebp 4/r32/esp +<span id="L3864" class="LineNr"> 3864 </span> <span class="subxComment"># setup</span> +<span id="L3865" class="LineNr"> 3865 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3866" class="LineNr"> 3866 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3867" class="LineNr"> 3867 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3868" class="LineNr"> 3868 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3869" class="LineNr"> 3869 </span> <span class="subxComment">#</span> +<span id="L3870" class="LineNr"> 3870 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3871" class="LineNr"> 3871 </span> (<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="L3872" class="LineNr"> 3872 </span> (<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="L3873" class="LineNr"> 3873 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- copy-byte x\n"</span>) +<span id="L3874" class="LineNr"> 3874 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var z/edx: (addr byte) <- copy 0\n"</span>) +<span id="L3875" class="LineNr"> 3875 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- copy-byte *z\n"</span>) +<span id="L3876" class="LineNr"> 3876 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *z, x\n"</span>) +<span id="L3877" class="LineNr"> 3877 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3878" class="LineNr"> 3878 </span> <span class="subxComment"># convert</span> +<span id="L3879" class="LineNr"> 3879 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L3880" class="LineNr"> 3880 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3881" class="Folded"> 3881 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3887" class="LineNr"> 3887 </span> <span class="subxComment"># check output</span> +<span id="L3888" class="LineNr"> 3888 </span> (<a href='109stream-equal.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#L3860'>test-convert-function-with-byte-operations</a>/0"</span>) +<span id="L3889" class="LineNr"> 3889 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-byte-operations/1"</span>) +<span id="L3890" class="LineNr"> 3890 </span> (<a href='109stream-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#L3860'>test-convert-function-with-byte-operations</a>/2"</span>) +<span id="L3891" class="LineNr"> 3891 </span> (<a href='109stream-equal.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#L3860'>test-convert-function-with-byte-operations</a>/3"</span>) +<span id="L3892" class="LineNr"> 3892 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/4"</span>) +<span id="L3893" class="LineNr"> 3893 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/5"</span>) +<span id="L3894" class="LineNr"> 3894 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/6"</span>) +<span id="L3895" class="LineNr"> 3895 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/7"</span>) +<span id="L3896" class="LineNr"> 3896 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/8"</span>) +<span id="L3897" class="LineNr"> 3897 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/9"</span>) +<span id="L3898" class="LineNr"> 3898 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8a/byte-> %eax 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/10"</span>) +<span id="L3899" class="LineNr"> 3899 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 4/subop/and %ecx 0xff/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/11"</span>) +<span id="L3900" class="LineNr"> 3900 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/12"</span>) +<span id="L3901" class="LineNr"> 3901 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/13"</span>) +<span id="L3902" class="LineNr"> 3902 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8a/byte-> *edx 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/14"</span>) +<span id="L3903" class="LineNr"> 3903 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 4/subop/and %ecx 0xff/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/15"</span>) +<span id="L3904" class="LineNr"> 3904 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 88/byte<- *edx 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/16"</span>) +<span id="L3905" class="LineNr"> 3905 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/17"</span>) +<span id="L3906" class="LineNr"> 3906 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/18"</span>) +<span id="L3907" class="LineNr"> 3907 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/19"</span>) +<span id="L3908" class="LineNr"> 3908 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3860'>test-convert-function-with-byte-operations</a>/20"</span>) +<span id="L3909" class="LineNr"> 3909 </span> (<a href='109stream-equal.subx.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#L3860'>test-convert-function-with-byte-operations</a>/21"</span>) +<span id="L3910" class="LineNr"> 3910 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-byte-operations/22"</span>) +<span id="L3911" class="LineNr"> 3911 </span> (<a href='109stream-equal.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#L3860'>test-convert-function-with-byte-operations</a>/23"</span>) +<span id="L3912" class="LineNr"> 3912 </span> (<a href='109stream-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#L3860'>test-convert-function-with-byte-operations</a>/24"</span>) +<span id="L3913" class="LineNr"> 3913 </span> (<a href='109stream-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#L3860'>test-convert-function-with-byte-operations</a>/25"</span>) +<span id="L3914" class="LineNr"> 3914 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3915" class="LineNr"> 3915 </span> 89/<- %esp 5/r32/ebp +<span id="L3916" class="LineNr"> 3916 </span> 5d/pop-to-ebp +<span id="L3917" class="LineNr"> 3917 </span> c3/return +<span id="L3918" class="LineNr"> 3918 </span> +<span id="L3919" class="LineNr"> 3919 </span><span class="subxComment"># variables of type 'byte' are not allowed on the stack</span> +<span id="L3920" class="LineNr"> 3920 </span><span class="subxTest">test-byte-values-on-stack</span>: +<span id="L3921" class="LineNr"> 3921 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3922" class="LineNr"> 3922 </span> 55/push-ebp +<span id="L3923" class="LineNr"> 3923 </span> 89/<- %ebp 4/r32/esp +<span id="L3924" class="LineNr"> 3924 </span> <span class="subxComment"># setup</span> +<span id="L3925" class="LineNr"> 3925 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3926" class="LineNr"> 3926 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3927" class="LineNr"> 3927 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3928" class="LineNr"> 3928 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3929" class="LineNr"> 3929 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3930" class="LineNr"> 3930 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3931" class="LineNr"> 3931 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3932" class="LineNr"> 3932 </span> 68/push 0/imm32 <span id="L3933" class="LineNr"> 3933 </span> 68/push 0/imm32 -<span id="L3934" class="LineNr"> 3934 </span> 68/push 0/imm32 -<span id="L3935" class="LineNr"> 3935 </span> 89/<- %edx 4/r32/esp -<span id="L3936" class="LineNr"> 3936 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3937" class="LineNr"> 3937 </span> <span class="subxComment">#</span> -<span id="L3938" class="LineNr"> 3938 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3939" class="LineNr"> 3939 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/esi: byte <- copy 0\n"</span>) -<span id="L3940" class="LineNr"> 3940 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3941" class="LineNr"> 3941 </span> <span class="subxComment"># convert</span> -<span id="L3942" class="LineNr"> 3942 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L3943" class="LineNr"> 3943 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3944" class="LineNr"> 3944 </span> <span class="subxComment"># restore ed</span> -<span id="L3945" class="LineNr"> 3945 </span> 89/<- %edx 4/r32/esp -<span id="L3946" class="LineNr"> 3946 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3947" class="LineNr"> 3947 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L3948" class="Folded"> 3948 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3954" class="LineNr"> 3954 </span> <span class="subxComment"># check output</span> -<span id="L3955" class="LineNr"> 3955 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3921'>test-byte-values-in-unsupported-registers</a>: output should be empty"</span>) -<span id="L3956" class="LineNr"> 3956 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: var 'x' of type 'byte' cannot be in esi or edi"</span> <span class="Constant">"F - <a href='mu.subx.html#L3921'>test-byte-values-in-unsupported-registers</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L3957" class="LineNr"> 3957 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3958" class="LineNr"> 3958 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3921'>test-byte-values-in-unsupported-registers</a>: exit status"</span>) -<span id="L3959" class="LineNr"> 3959 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3960" class="LineNr"> 3960 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3961" class="LineNr"> 3961 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3962" class="LineNr"> 3962 </span> 5d/pop-to-ebp -<span id="L3963" class="LineNr"> 3963 </span> c3/return -<span id="L3964" class="LineNr"> 3964 </span> -<span id="L3965" class="LineNr"> 3965 </span><span class="subxComment"># variables of type 'byte' _can_ be function args. They then occupy 4 bytes.</span> -<span id="L3966" class="LineNr"> 3966 </span><span class="subxTest">test-copy-byte-var-from-fn-arg</span>: -<span id="L3967" class="LineNr"> 3967 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3968" class="LineNr"> 3968 </span> 55/push-ebp -<span id="L3969" class="LineNr"> 3969 </span> 89/<- %ebp 4/r32/esp -<span id="L3970" class="LineNr"> 3970 </span> <span class="subxComment"># setup</span> -<span id="L3971" class="LineNr"> 3971 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3972" class="LineNr"> 3972 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3973" class="LineNr"> 3973 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L3974" class="LineNr"> 3974 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3975" class="LineNr"> 3975 </span> <span class="subxComment">#</span> -<span id="L3976" class="LineNr"> 3976 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: byte, y: int {\n"</span>) -<span id="L3977" class="LineNr"> 3977 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: byte <- copy x\n"</span>) -<span id="L3978" class="LineNr"> 3978 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: int <- copy y\n"</span>) -<span id="L3979" class="LineNr"> 3979 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3980" class="LineNr"> 3980 </span> <span class="subxComment"># convert</span> -<span id="L3981" class="LineNr"> 3981 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L3982" class="LineNr"> 3982 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L3983" class="Folded"> 3983 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3989" class="LineNr"> 3989 </span> <span class="subxComment"># check output</span> -<span id="L3990" class="LineNr"> 3990 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/0"</span>) -<span id="L3991" class="LineNr"> 3991 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/1"</span>) -<span id="L3992" class="LineNr"> 3992 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/2"</span>) -<span id="L3993" class="LineNr"> 3993 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/3"</span>) -<span id="L3994" class="LineNr"> 3994 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/4"</span>) -<span id="L3995" class="LineNr"> 3995 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/5"</span>) -<span id="L3996" class="LineNr"> 3996 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/6"</span>) -<span id="L3997" class="LineNr"> 3997 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/7"</span>) -<span id="L3998" class="LineNr"> 3998 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/8"</span>) -<span id="L3999" class="LineNr"> 3999 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/9"</span>) -<span id="L4000" class="LineNr"> 4000 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/10"</span>) -<span id="L4001" class="LineNr"> 4001 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/11"</span>) -<span id="L4002" class="LineNr"> 4002 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/12"</span>) -<span id="L4003" class="LineNr"> 4003 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/13"</span>) -<span id="L4004" class="LineNr"> 4004 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/14"</span>) -<span id="L4005" class="LineNr"> 4005 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/15"</span>) -<span id="L4006" class="LineNr"> 4006 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4007" class="LineNr"> 4007 </span> 89/<- %esp 5/r32/ebp -<span id="L4008" class="LineNr"> 4008 </span> 5d/pop-to-ebp -<span id="L4009" class="LineNr"> 4009 </span> c3/return -<span id="L4010" class="LineNr"> 4010 </span> -<span id="L4011" class="LineNr"> 4011 </span><span class="subxTest">test-convert-compare-register-with-literal</span>: -<span id="L4012" class="LineNr"> 4012 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4013" class="LineNr"> 4013 </span> 55/push-ebp -<span id="L4014" class="LineNr"> 4014 </span> 89/<- %ebp 4/r32/esp -<span id="L4015" class="LineNr"> 4015 </span> <span class="subxComment"># setup</span> -<span id="L4016" class="LineNr"> 4016 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4017" class="LineNr"> 4017 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4018" class="LineNr"> 4018 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4019" class="LineNr"> 4019 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4020" class="LineNr"> 4020 </span> <span class="subxComment">#</span> -<span id="L4021" class="LineNr"> 4021 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4022" class="LineNr"> 4022 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 0\n"</span>) -<span id="L4023" class="LineNr"> 4023 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) -<span id="L4024" class="LineNr"> 4024 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4025" class="LineNr"> 4025 </span> <span class="subxComment"># convert</span> -<span id="L4026" class="LineNr"> 4026 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4027" class="LineNr"> 4027 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4028" class="Folded"> 4028 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4034" class="LineNr"> 4034 </span> <span class="subxComment"># check output</span> -<span id="L4035" class="LineNr"> 4035 </span> (<a href='109stream-equal.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#L4011'>test-convert-compare-register-with-literal</a>/0"</span>) -<span id="L4036" class="LineNr"> 4036 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-compare-register-with-literal/1"</span>) -<span id="L4037" class="LineNr"> 4037 </span> (<a href='109stream-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#L4011'>test-convert-compare-register-with-literal</a>/2"</span>) -<span id="L4038" class="LineNr"> 4038 </span> (<a href='109stream-equal.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#L4011'>test-convert-compare-register-with-literal</a>/3"</span>) -<span id="L4039" class="LineNr"> 4039 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4011'>test-convert-compare-register-with-literal</a>/4"</span>) -<span id="L4040" class="LineNr"> 4040 </span> (<a href='109stream-equal.subx.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#L4011'>test-convert-compare-register-with-literal</a>/5"</span>) -<span id="L4041" class="LineNr"> 4041 </span> (<a href='109stream-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#L4011'>test-convert-compare-register-with-literal</a>/6"</span>) -<span id="L4042" class="LineNr"> 4042 </span> (<a href='109stream-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#L4011'>test-convert-compare-register-with-literal</a>/7"</span>) -<span id="L4043" class="LineNr"> 4043 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4011'>test-convert-compare-register-with-literal</a>/8"</span>) -<span id="L4044" class="LineNr"> 4044 </span> (<a href='109stream-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#L4011'>test-convert-compare-register-with-literal</a>/9"</span>) -<span id="L4045" class="LineNr"> 4045 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4011'>test-convert-compare-register-with-literal</a>/10"</span>) -<span id="L4046" class="LineNr"> 4046 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4011'>test-convert-compare-register-with-literal</a>/11"</span>) -<span id="L4047" class="LineNr"> 4047 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-compare-register-with-literal/12"</span>) -<span id="L4048" class="LineNr"> 4048 </span> (<a href='109stream-equal.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#L4011'>test-convert-compare-register-with-literal</a>/13"</span>) -<span id="L4049" class="LineNr"> 4049 </span> (<a href='109stream-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#L4011'>test-convert-compare-register-with-literal</a>/14"</span>) -<span id="L4050" class="LineNr"> 4050 </span> (<a href='109stream-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#L4011'>test-convert-compare-register-with-literal</a>/15"</span>) -<span id="L4051" class="LineNr"> 4051 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4052" class="LineNr"> 4052 </span> 89/<- %esp 5/r32/ebp -<span id="L4053" class="LineNr"> 4053 </span> 5d/pop-to-ebp -<span id="L4054" class="LineNr"> 4054 </span> c3/return -<span id="L4055" class="LineNr"> 4055 </span> -<span id="L4056" class="LineNr"> 4056 </span><span class="subxTest">test-convert-compare-byte-with-literal</span>: -<span id="L4057" class="LineNr"> 4057 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4058" class="LineNr"> 4058 </span> 55/push-ebp -<span id="L4059" class="LineNr"> 4059 </span> 89/<- %ebp 4/r32/esp -<span id="L4060" class="LineNr"> 4060 </span> <span class="subxComment"># setup</span> -<span id="L4061" class="LineNr"> 4061 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4062" class="LineNr"> 4062 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4063" class="LineNr"> 4063 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4064" class="LineNr"> 4064 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4065" class="LineNr"> 4065 </span> <span class="subxComment">#</span> -<span id="L4066" class="LineNr"> 4066 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4067" class="LineNr"> 4067 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: byte <- copy 0\n"</span>) -<span id="L4068" class="LineNr"> 4068 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) -<span id="L4069" class="LineNr"> 4069 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4070" class="LineNr"> 4070 </span> <span class="subxComment"># convert</span> -<span id="L4071" class="LineNr"> 4071 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4072" class="LineNr"> 4072 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4073" class="Folded"> 4073 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4079" class="LineNr"> 4079 </span> <span class="subxComment"># no errors; output is identical to test-convert-compare-register-with-literal</span> -<span id="L4080" class="LineNr"> 4080 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4081" class="LineNr"> 4081 </span> 89/<- %esp 5/r32/ebp -<span id="L4082" class="LineNr"> 4082 </span> 5d/pop-to-ebp -<span id="L4083" class="LineNr"> 4083 </span> c3/return -<span id="L4084" class="LineNr"> 4084 </span> -<span id="L4085" class="LineNr"> 4085 </span><span class="subxTest">test-unknown-variable</span>: -<span id="L4086" class="LineNr"> 4086 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4087" class="LineNr"> 4087 </span> 55/push-ebp -<span id="L4088" class="LineNr"> 4088 </span> 89/<- %ebp 4/r32/esp -<span id="L4089" class="LineNr"> 4089 </span> <span class="subxComment"># setup</span> -<span id="L4090" class="LineNr"> 4090 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4091" class="LineNr"> 4091 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4092" class="LineNr"> 4092 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4093" class="LineNr"> 4093 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4094" class="LineNr"> 4094 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L4095" class="LineNr"> 4095 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L4096" class="LineNr"> 4096 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L4097" class="LineNr"> 4097 </span> 68/push 0/imm32 -<span id="L4098" class="LineNr"> 4098 </span> 68/push 0/imm32 -<span id="L4099" class="LineNr"> 4099 </span> 89/<- %edx 4/r32/esp -<span id="L4100" class="LineNr"> 4100 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L4101" class="LineNr"> 4101 </span> <span class="subxComment">#</span> -<span id="L4102" class="LineNr"> 4102 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4103" class="LineNr"> 4103 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) -<span id="L4104" class="LineNr"> 4104 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4105" class="LineNr"> 4105 </span> <span class="subxComment"># convert</span> -<span id="L4106" class="LineNr"> 4106 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L4107" class="LineNr"> 4107 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L4108" class="LineNr"> 4108 </span> <span class="subxComment"># restore ed</span> -<span id="L4109" class="LineNr"> 4109 </span> 89/<- %edx 4/r32/esp -<span id="L4110" class="LineNr"> 4110 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4111" class="LineNr"> 4111 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L4112" class="Folded"> 4112 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4118" class="LineNr"> 4118 </span> <span class="subxComment"># check output</span> -<span id="L4119" class="LineNr"> 4119 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L4085'>test-unknown-variable</a>: output should be empty"</span>) -<span id="L4120" class="LineNr"> 4120 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L4085'>test-unknown-variable</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L4121" class="LineNr"> 4121 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L4122" class="LineNr"> 4122 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L4085'>test-unknown-variable</a>: exit status"</span>) -<span id="L4123" class="LineNr"> 4123 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L4124" class="LineNr"> 4124 </span> 81 0/subop/add %esp 8/imm32 -<span id="L4125" class="LineNr"> 4125 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3934" class="LineNr"> 3934 </span> 89/<- %edx 4/r32/esp +<span id="L3935" class="LineNr"> 3935 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3936" class="LineNr"> 3936 </span> <span class="subxComment">#</span> +<span id="L3937" class="LineNr"> 3937 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3938" class="LineNr"> 3938 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: byte\n"</span>) +<span id="L3939" class="LineNr"> 3939 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3940" class="LineNr"> 3940 </span> <span class="subxComment"># convert</span> +<span id="L3941" class="LineNr"> 3941 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3942" class="LineNr"> 3942 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3943" class="LineNr"> 3943 </span> <span class="subxComment"># restore ed</span> +<span id="L3944" class="LineNr"> 3944 </span> 89/<- %edx 4/r32/esp +<span id="L3945" class="LineNr"> 3945 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3946" class="LineNr"> 3946 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3947" class="Folded"> 3947 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3953" class="LineNr"> 3953 </span> <span class="subxComment"># check output</span> +<span id="L3954" class="LineNr"> 3954 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3920'>test-byte-values-on-stack</a>: output should be empty"</span>) +<span id="L3955" class="LineNr"> 3955 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: var 'x' of type 'byte' cannot be on the stack"</span> <span class="Constant">"F - <a href='mu.subx.html#L3920'>test-byte-values-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3956" class="LineNr"> 3956 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3957" class="LineNr"> 3957 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3920'>test-byte-values-on-stack</a>: exit status"</span>) +<span id="L3958" class="LineNr"> 3958 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3959" class="LineNr"> 3959 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3960" class="LineNr"> 3960 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3961" class="LineNr"> 3961 </span> 5d/pop-to-ebp +<span id="L3962" class="LineNr"> 3962 </span> c3/return +<span id="L3963" class="LineNr"> 3963 </span> +<span id="L3964" class="LineNr"> 3964 </span><span class="subxComment"># variables of type 'byte' are not allowed in esi or edi</span> +<span id="L3965" class="LineNr"> 3965 </span><span class="subxTest">test-byte-values-in-unsupported-registers</span>: +<span id="L3966" class="LineNr"> 3966 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3967" class="LineNr"> 3967 </span> 55/push-ebp +<span id="L3968" class="LineNr"> 3968 </span> 89/<- %ebp 4/r32/esp +<span id="L3969" class="LineNr"> 3969 </span> <span class="subxComment"># setup</span> +<span id="L3970" class="LineNr"> 3970 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3971" class="LineNr"> 3971 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3972" class="LineNr"> 3972 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3973" class="LineNr"> 3973 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3974" class="LineNr"> 3974 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3975" class="LineNr"> 3975 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3976" class="LineNr"> 3976 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3977" class="LineNr"> 3977 </span> 68/push 0/imm32 +<span id="L3978" class="LineNr"> 3978 </span> 68/push 0/imm32 +<span id="L3979" class="LineNr"> 3979 </span> 89/<- %edx 4/r32/esp +<span id="L3980" class="LineNr"> 3980 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3981" class="LineNr"> 3981 </span> <span class="subxComment">#</span> +<span id="L3982" class="LineNr"> 3982 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3983" class="LineNr"> 3983 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/esi: byte <- copy 0\n"</span>) +<span id="L3984" class="LineNr"> 3984 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3985" class="LineNr"> 3985 </span> <span class="subxComment"># convert</span> +<span id="L3986" class="LineNr"> 3986 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3987" class="LineNr"> 3987 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3988" class="LineNr"> 3988 </span> <span class="subxComment"># restore ed</span> +<span id="L3989" class="LineNr"> 3989 </span> 89/<- %edx 4/r32/esp +<span id="L3990" class="LineNr"> 3990 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3991" class="LineNr"> 3991 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3992" class="Folded"> 3992 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3998" class="LineNr"> 3998 </span> <span class="subxComment"># check output</span> +<span id="L3999" class="LineNr"> 3999 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3965'>test-byte-values-in-unsupported-registers</a>: output should be empty"</span>) +<span id="L4000" class="LineNr"> 4000 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: var 'x' of type 'byte' cannot be in esi or edi"</span> <span class="Constant">"F - <a href='mu.subx.html#L3965'>test-byte-values-in-unsupported-registers</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L4001" class="LineNr"> 4001 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L4002" class="LineNr"> 4002 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3965'>test-byte-values-in-unsupported-registers</a>: exit status"</span>) +<span id="L4003" class="LineNr"> 4003 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L4004" class="LineNr"> 4004 </span> 81 0/subop/add %esp 8/imm32 +<span id="L4005" class="LineNr"> 4005 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4006" class="LineNr"> 4006 </span> 5d/pop-to-ebp +<span id="L4007" class="LineNr"> 4007 </span> c3/return +<span id="L4008" class="LineNr"> 4008 </span> +<span id="L4009" class="LineNr"> 4009 </span><span class="subxComment"># variables of type 'byte' _can_ be function args. They then occupy 4 bytes.</span> +<span id="L4010" class="LineNr"> 4010 </span><span class="subxTest">test-copy-byte-var-from-fn-arg</span>: +<span id="L4011" class="LineNr"> 4011 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4012" class="LineNr"> 4012 </span> 55/push-ebp +<span id="L4013" class="LineNr"> 4013 </span> 89/<- %ebp 4/r32/esp +<span id="L4014" class="LineNr"> 4014 </span> <span class="subxComment"># setup</span> +<span id="L4015" class="LineNr"> 4015 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4016" class="LineNr"> 4016 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4017" class="LineNr"> 4017 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4018" class="LineNr"> 4018 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4019" class="LineNr"> 4019 </span> <span class="subxComment">#</span> +<span id="L4020" class="LineNr"> 4020 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: byte, y: int {\n"</span>) +<span id="L4021" class="LineNr"> 4021 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: byte <- copy x\n"</span>) +<span id="L4022" class="LineNr"> 4022 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: int <- copy y\n"</span>) +<span id="L4023" class="LineNr"> 4023 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4024" class="LineNr"> 4024 </span> <span class="subxComment"># convert</span> +<span id="L4025" class="LineNr"> 4025 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4026" class="LineNr"> 4026 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4027" class="Folded"> 4027 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4033" class="LineNr"> 4033 </span> <span class="subxComment"># check output</span> +<span id="L4034" class="LineNr"> 4034 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/0"</span>) +<span id="L4035" class="LineNr"> 4035 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/1"</span>) +<span id="L4036" class="LineNr"> 4036 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/2"</span>) +<span id="L4037" class="LineNr"> 4037 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/3"</span>) +<span id="L4038" class="LineNr"> 4038 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/4"</span>) +<span id="L4039" class="LineNr"> 4039 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/5"</span>) +<span id="L4040" class="LineNr"> 4040 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/6"</span>) +<span id="L4041" class="LineNr"> 4041 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/7"</span>) +<span id="L4042" class="LineNr"> 4042 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/8"</span>) +<span id="L4043" class="LineNr"> 4043 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/9"</span>) +<span id="L4044" class="LineNr"> 4044 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/10"</span>) +<span id="L4045" class="LineNr"> 4045 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/11"</span>) +<span id="L4046" class="LineNr"> 4046 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/12"</span>) +<span id="L4047" class="LineNr"> 4047 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/13"</span>) +<span id="L4048" class="LineNr"> 4048 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/14"</span>) +<span id="L4049" class="LineNr"> 4049 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/15"</span>) +<span id="L4050" class="LineNr"> 4050 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4051" class="LineNr"> 4051 </span> 89/<- %esp 5/r32/ebp +<span id="L4052" class="LineNr"> 4052 </span> 5d/pop-to-ebp +<span id="L4053" class="LineNr"> 4053 </span> c3/return +<span id="L4054" class="LineNr"> 4054 </span> +<span id="L4055" class="LineNr"> 4055 </span><span class="subxTest">test-convert-compare-register-with-literal</span>: +<span id="L4056" class="LineNr"> 4056 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4057" class="LineNr"> 4057 </span> 55/push-ebp +<span id="L4058" class="LineNr"> 4058 </span> 89/<- %ebp 4/r32/esp +<span id="L4059" class="LineNr"> 4059 </span> <span class="subxComment"># setup</span> +<span id="L4060" class="LineNr"> 4060 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4061" class="LineNr"> 4061 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4062" class="LineNr"> 4062 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4063" class="LineNr"> 4063 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4064" class="LineNr"> 4064 </span> <span class="subxComment">#</span> +<span id="L4065" class="LineNr"> 4065 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4066" class="LineNr"> 4066 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 0\n"</span>) +<span id="L4067" class="LineNr"> 4067 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) +<span id="L4068" class="LineNr"> 4068 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4069" class="LineNr"> 4069 </span> <span class="subxComment"># convert</span> +<span id="L4070" class="LineNr"> 4070 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4071" class="LineNr"> 4071 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4072" class="Folded"> 4072 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4078" class="LineNr"> 4078 </span> <span class="subxComment"># check output</span> +<span id="L4079" class="LineNr"> 4079 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4055'>test-convert-compare-register-with-literal</a>/0"</span>) +<span id="L4080" class="LineNr"> 4080 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-compare-register-with-literal/1"</span>) +<span id="L4081" class="LineNr"> 4081 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4055'>test-convert-compare-register-with-literal</a>/2"</span>) +<span id="L4082" class="LineNr"> 4082 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4055'>test-convert-compare-register-with-literal</a>/3"</span>) +<span id="L4083" class="LineNr"> 4083 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4055'>test-convert-compare-register-with-literal</a>/4"</span>) +<span id="L4084" class="LineNr"> 4084 </span> (<a href='109stream-equal.subx.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#L4055'>test-convert-compare-register-with-literal</a>/5"</span>) +<span id="L4085" class="LineNr"> 4085 </span> (<a href='109stream-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#L4055'>test-convert-compare-register-with-literal</a>/6"</span>) +<span id="L4086" class="LineNr"> 4086 </span> (<a href='109stream-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#L4055'>test-convert-compare-register-with-literal</a>/7"</span>) +<span id="L4087" class="LineNr"> 4087 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4055'>test-convert-compare-register-with-literal</a>/8"</span>) +<span id="L4088" class="LineNr"> 4088 </span> (<a href='109stream-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#L4055'>test-convert-compare-register-with-literal</a>/9"</span>) +<span id="L4089" class="LineNr"> 4089 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4055'>test-convert-compare-register-with-literal</a>/10"</span>) +<span id="L4090" class="LineNr"> 4090 </span> (<a href='109stream-equal.subx.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#L4055'>test-convert-compare-register-with-literal</a>/11"</span>) +<span id="L4091" class="LineNr"> 4091 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-compare-register-with-literal/12"</span>) +<span id="L4092" class="LineNr"> 4092 </span> (<a href='109stream-equal.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#L4055'>test-convert-compare-register-with-literal</a>/13"</span>) +<span id="L4093" class="LineNr"> 4093 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4055'>test-convert-compare-register-with-literal</a>/14"</span>) +<span id="L4094" class="LineNr"> 4094 </span> (<a href='109stream-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#L4055'>test-convert-compare-register-with-literal</a>/15"</span>) +<span id="L4095" class="LineNr"> 4095 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4096" class="LineNr"> 4096 </span> 89/<- %esp 5/r32/ebp +<span id="L4097" class="LineNr"> 4097 </span> 5d/pop-to-ebp +<span id="L4098" class="LineNr"> 4098 </span> c3/return +<span id="L4099" class="LineNr"> 4099 </span> +<span id="L4100" class="LineNr"> 4100 </span><span class="subxTest">test-convert-compare-byte-with-literal</span>: +<span id="L4101" class="LineNr"> 4101 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4102" class="LineNr"> 4102 </span> 55/push-ebp +<span id="L4103" class="LineNr"> 4103 </span> 89/<- %ebp 4/r32/esp +<span id="L4104" class="LineNr"> 4104 </span> <span class="subxComment"># setup</span> +<span id="L4105" class="LineNr"> 4105 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4106" class="LineNr"> 4106 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4107" class="LineNr"> 4107 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4108" class="LineNr"> 4108 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4109" class="LineNr"> 4109 </span> <span class="subxComment">#</span> +<span id="L4110" class="LineNr"> 4110 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4111" class="LineNr"> 4111 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: byte <- copy 0\n"</span>) +<span id="L4112" class="LineNr"> 4112 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) +<span id="L4113" class="LineNr"> 4113 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4114" class="LineNr"> 4114 </span> <span class="subxComment"># convert</span> +<span id="L4115" class="LineNr"> 4115 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4116" class="LineNr"> 4116 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4117" class="Folded"> 4117 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4123" class="LineNr"> 4123 </span> <span class="subxComment"># no errors; output is identical to test-convert-compare-register-with-literal</span> +<span id="L4124" class="LineNr"> 4124 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4125" class="LineNr"> 4125 </span> 89/<- %esp 5/r32/ebp <span id="L4126" class="LineNr"> 4126 </span> 5d/pop-to-ebp <span id="L4127" class="LineNr"> 4127 </span> c3/return <span id="L4128" class="LineNr"> 4128 </span> -<span id="L4129" class="LineNr"> 4129 </span><span class="subxTest">test-convert-function-with-local-var-in-block</span>: +<span id="L4129" class="LineNr"> 4129 </span><span class="subxTest">test-unknown-variable</span>: <span id="L4130" class="LineNr"> 4130 </span> <span class="subxS1Comment"># . prologue</span> <span id="L4131" class="LineNr"> 4131 </span> 55/push-ebp <span id="L4132" class="LineNr"> 4132 </span> 89/<- %ebp 4/r32/esp @@ -3812,1405 +3812,1405 @@ if ('onhashchange' in window) { <span id="L4135" class="LineNr"> 4135 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L4136" class="LineNr"> 4136 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L4137" class="LineNr"> 4137 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4138" class="LineNr"> 4138 </span> <span class="subxComment">#</span> -<span id="L4139" class="LineNr"> 4139 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4140" class="LineNr"> 4140 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4141" class="LineNr"> 4141 </span> (<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="L4142" class="LineNr"> 4142 </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="L4143" class="LineNr"> 4143 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4144" class="LineNr"> 4144 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4145" class="LineNr"> 4145 </span> <span class="subxComment"># convert</span> -<span id="L4146" class="LineNr"> 4146 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4147" class="LineNr"> 4147 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4148" class="Folded"> 4148 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4154" class="LineNr"> 4154 </span> <span class="subxComment"># check output</span> -<span id="L4155" class="LineNr"> 4155 </span> (<a href='109stream-equal.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#L4129'>test-convert-function-with-local-var-in-block</a>/0"</span>) -<span id="L4156" class="LineNr"> 4156 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-block/1"</span>) -<span id="L4157" class="LineNr"> 4157 </span> (<a href='109stream-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#L4129'>test-convert-function-with-local-var-in-block</a>/2"</span>) -<span id="L4158" class="LineNr"> 4158 </span> (<a href='109stream-equal.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#L4129'>test-convert-function-with-local-var-in-block</a>/3"</span>) -<span id="L4159" class="LineNr"> 4159 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4129'>test-convert-function-with-local-var-in-block</a>/4"</span>) -<span id="L4160" class="LineNr"> 4160 </span> (<a href='109stream-equal.subx.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#L4129'>test-convert-function-with-local-var-in-block</a>/5"</span>) -<span id="L4161" class="LineNr"> 4161 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4129'>test-convert-function-with-local-var-in-block</a>/6"</span>) -<span id="L4162" class="LineNr"> 4162 </span> (<a href='109stream-equal.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#L4129'>test-convert-function-with-local-var-in-block</a>/7"</span>) -<span id="L4163" class="LineNr"> 4163 </span> (<a href='109stream-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#L4129'>test-convert-function-with-local-var-in-block</a>/8"</span>) -<span id="L4164" class="LineNr"> 4164 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4129'>test-convert-function-with-local-var-in-block</a>/9"</span>) -<span id="L4165" class="LineNr"> 4165 </span> (<a href='109stream-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#L4129'>test-convert-function-with-local-var-in-block</a>/10"</span>) -<span id="L4166" class="LineNr"> 4166 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4129'>test-convert-function-with-local-var-in-block</a>/11"</span>) -<span id="L4167" class="LineNr"> 4167 </span> (<a href='109stream-equal.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#L4129'>test-convert-function-with-local-var-in-block</a>/12"</span>) -<span id="L4168" class="LineNr"> 4168 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4129'>test-convert-function-with-local-var-in-block</a>/13"</span>) -<span id="L4169" class="LineNr"> 4169 </span> (<a href='109stream-equal.subx.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#L4129'>test-convert-function-with-local-var-in-block</a>/14"</span>) -<span id="L4170" class="LineNr"> 4170 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-block/15"</span>) -<span id="L4171" class="LineNr"> 4171 </span> (<a href='109stream-equal.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#L4129'>test-convert-function-with-local-var-in-block</a>/16"</span>) -<span id="L4172" class="LineNr"> 4172 </span> (<a href='109stream-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#L4129'>test-convert-function-with-local-var-in-block</a>/17"</span>) -<span id="L4173" class="LineNr"> 4173 </span> (<a href='109stream-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#L4129'>test-convert-function-with-local-var-in-block</a>/18"</span>) -<span id="L4174" class="LineNr"> 4174 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4175" class="LineNr"> 4175 </span> 89/<- %esp 5/r32/ebp -<span id="L4176" class="LineNr"> 4176 </span> 5d/pop-to-ebp -<span id="L4177" class="LineNr"> 4177 </span> c3/return -<span id="L4178" class="LineNr"> 4178 </span> -<span id="L4179" class="LineNr"> 4179 </span><span class="subxTest">test-convert-function-with-local-var-in-mem-after-block</span>: -<span id="L4180" class="LineNr"> 4180 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4181" class="LineNr"> 4181 </span> 55/push-ebp -<span id="L4182" class="LineNr"> 4182 </span> 89/<- %ebp 4/r32/esp -<span id="L4183" class="LineNr"> 4183 </span> <span class="subxComment"># setup</span> -<span id="L4184" class="LineNr"> 4184 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4185" class="LineNr"> 4185 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4186" class="LineNr"> 4186 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4187" class="LineNr"> 4187 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4188" class="LineNr"> 4188 </span> <span class="subxComment">#</span> -<span id="L4189" class="LineNr"> 4189 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4190" class="LineNr"> 4190 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4191" class="LineNr"> 4191 </span> (<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="L4192" class="LineNr"> 4192 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4193" class="LineNr"> 4193 </span> (<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="L4194" class="LineNr"> 4194 </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="L4195" class="LineNr"> 4195 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4196" class="LineNr"> 4196 </span> <span class="subxComment"># convert</span> -<span id="L4197" class="LineNr"> 4197 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4198" class="LineNr"> 4198 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4199" class="Folded"> 4199 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4205" class="LineNr"> 4205 </span> <span class="subxComment"># check output</span> -<span id="L4206" class="LineNr"> 4206 </span> (<a href='109stream-equal.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#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/0"</span>) -<span id="L4207" class="LineNr"> 4207 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem-after-block/1"</span>) -<span id="L4208" class="LineNr"> 4208 </span> (<a href='109stream-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#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/2"</span>) -<span id="L4209" class="LineNr"> 4209 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/3"</span>) -<span id="L4210" class="LineNr"> 4210 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/4"</span>) -<span id="L4211" class="LineNr"> 4211 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/5"</span>) -<span id="L4212" class="LineNr"> 4212 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/6"</span>) -<span id="L4213" class="LineNr"> 4213 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/7"</span>) -<span id="L4214" class="LineNr"> 4214 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/8"</span>) -<span id="L4215" class="LineNr"> 4215 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/9"</span>) -<span id="L4216" class="LineNr"> 4216 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/10"</span>) -<span id="L4217" class="LineNr"> 4217 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/11"</span>) -<span id="L4218" class="LineNr"> 4218 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/12"</span>) -<span id="L4219" class="LineNr"> 4219 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/13"</span>) -<span id="L4220" class="LineNr"> 4220 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/14"</span>) -<span id="L4221" class="LineNr"> 4221 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/15"</span>) -<span id="L4222" class="LineNr"> 4222 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/16"</span>) -<span id="L4223" class="LineNr"> 4223 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem-after-block/17"</span>) -<span id="L4224" class="LineNr"> 4224 </span> (<a href='109stream-equal.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#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/18"</span>) -<span id="L4225" class="LineNr"> 4225 </span> (<a href='109stream-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#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/19"</span>) -<span id="L4226" class="LineNr"> 4226 </span> (<a href='109stream-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#L4179'>test-convert-function-with-local-var-in-mem-after-block</a>/20"</span>) -<span id="L4227" class="LineNr"> 4227 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4228" class="LineNr"> 4228 </span> 89/<- %esp 5/r32/ebp -<span id="L4229" class="LineNr"> 4229 </span> 5d/pop-to-ebp -<span id="L4230" class="LineNr"> 4230 </span> c3/return -<span id="L4231" class="LineNr"> 4231 </span> -<span id="L4232" class="LineNr"> 4232 </span><span class="subxTest">test-convert-function-with-local-var-in-named-block</span>: -<span id="L4233" class="LineNr"> 4233 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4234" class="LineNr"> 4234 </span> 55/push-ebp -<span id="L4235" class="LineNr"> 4235 </span> 89/<- %ebp 4/r32/esp -<span id="L4236" class="LineNr"> 4236 </span> <span class="subxComment"># setup</span> -<span id="L4237" class="LineNr"> 4237 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4238" class="LineNr"> 4238 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4239" class="LineNr"> 4239 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4240" class="LineNr"> 4240 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4241" class="LineNr"> 4241 </span> <span class="subxComment">#</span> -<span id="L4242" class="LineNr"> 4242 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4243" class="LineNr"> 4243 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" $bar: {\n"</span>) -<span id="L4244" class="LineNr"> 4244 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L4245" class="LineNr"> 4245 </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="L4246" class="LineNr"> 4246 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4247" class="LineNr"> 4247 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4248" class="LineNr"> 4248 </span> <span class="subxComment"># convert</span> -<span id="L4249" class="LineNr"> 4249 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4250" class="LineNr"> 4250 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4251" class="Folded"> 4251 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4257" class="LineNr"> 4257 </span> <span class="subxComment"># check output</span> -<span id="L4258" class="LineNr"> 4258 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4232'>test-convert-function-with-local-var-in-named-block</a>/0"</span>) -<span id="L4259" class="LineNr"> 4259 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-named-block/1"</span>) -<span id="L4260" class="LineNr"> 4260 </span> (<a href='109stream-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#L4232'>test-convert-function-with-local-var-in-named-block</a>/2"</span>) -<span id="L4261" class="LineNr"> 4261 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4232'>test-convert-function-with-local-var-in-named-block</a>/3"</span>) -<span id="L4262" class="LineNr"> 4262 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4232'>test-convert-function-with-local-var-in-named-block</a>/4"</span>) -<span id="L4263" class="LineNr"> 4263 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4232'>test-convert-function-with-local-var-in-named-block</a>/5"</span>) -<span id="L4264" class="LineNr"> 4264 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4232'>test-convert-function-with-local-var-in-named-block</a>/6"</span>) -<span id="L4265" class="LineNr"> 4265 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$bar:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4232'>test-convert-function-with-local-var-in-named-block</a>/7"</span>) -<span id="L4266" class="LineNr"> 4266 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4232'>test-convert-function-with-local-var-in-named-block</a>/8"</span>) -<span id="L4267" class="LineNr"> 4267 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4232'>test-convert-function-with-local-var-in-named-block</a>/9"</span>) -<span id="L4268" class="LineNr"> 4268 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L4232'>test-convert-function-with-local-var-in-named-block</a>/10"</span>) -<span id="L4269" class="LineNr"> 4269 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4232'>test-convert-function-with-local-var-in-named-block</a>/11"</span>) -<span id="L4270" class="LineNr"> 4270 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$bar:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4232'>test-convert-function-with-local-var-in-named-block</a>/12"</span>) -<span id="L4271" class="LineNr"> 4271 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4232'>test-convert-function-with-local-var-in-named-block</a>/13"</span>) -<span id="L4272" class="LineNr"> 4272 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4232'>test-convert-function-with-local-var-in-named-block</a>/14"</span>) -<span id="L4273" class="LineNr"> 4273 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-named-block/15"</span>) -<span id="L4274" class="LineNr"> 4274 </span> (<a href='109stream-equal.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#L4232'>test-convert-function-with-local-var-in-named-block</a>/16"</span>) -<span id="L4275" class="LineNr"> 4275 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4232'>test-convert-function-with-local-var-in-named-block</a>/17"</span>) -<span id="L4276" class="LineNr"> 4276 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4232'>test-convert-function-with-local-var-in-named-block</a>/18"</span>) -<span id="L4277" class="LineNr"> 4277 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4278" class="LineNr"> 4278 </span> 89/<- %esp 5/r32/ebp -<span id="L4279" class="LineNr"> 4279 </span> 5d/pop-to-ebp -<span id="L4280" class="LineNr"> 4280 </span> c3/return -<span id="L4281" class="LineNr"> 4281 </span> -<span id="L4282" class="LineNr"> 4282 </span><span class="subxTest">test-unknown-variable-in-named-block</span>: -<span id="L4283" class="LineNr"> 4283 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4284" class="LineNr"> 4284 </span> 55/push-ebp -<span id="L4285" class="LineNr"> 4285 </span> 89/<- %ebp 4/r32/esp -<span id="L4286" class="LineNr"> 4286 </span> <span class="subxComment"># setup</span> -<span id="L4287" class="LineNr"> 4287 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4288" class="LineNr"> 4288 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4289" class="LineNr"> 4289 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4290" class="LineNr"> 4290 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4291" class="LineNr"> 4291 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L4292" class="LineNr"> 4292 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L4293" class="LineNr"> 4293 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L4294" class="LineNr"> 4294 </span> 68/push 0/imm32 -<span id="L4295" class="LineNr"> 4295 </span> 68/push 0/imm32 -<span id="L4296" class="LineNr"> 4296 </span> 89/<- %edx 4/r32/esp -<span id="L4297" class="LineNr"> 4297 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L4298" class="LineNr"> 4298 </span> <span class="subxComment">#</span> -<span id="L4299" class="LineNr"> 4299 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4300" class="LineNr"> 4300 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" $a: {\n"</span>) -<span id="L4301" class="LineNr"> 4301 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) -<span id="L4302" class="LineNr"> 4302 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4303" class="LineNr"> 4303 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4304" class="LineNr"> 4304 </span> <span class="subxComment"># convert</span> -<span id="L4305" class="LineNr"> 4305 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L4306" class="LineNr"> 4306 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L4307" class="LineNr"> 4307 </span> <span class="subxComment"># restore ed</span> -<span id="L4308" class="LineNr"> 4308 </span> 89/<- %edx 4/r32/esp -<span id="L4309" class="LineNr"> 4309 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4310" class="LineNr"> 4310 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L4311" class="Folded"> 4311 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4317" class="LineNr"> 4317 </span> <span class="subxComment"># check output</span> -<span id="L4318" class="LineNr"> 4318 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L4282'>test-unknown-variable-in-named-block</a>: output should be empty"</span>) -<span id="L4319" class="LineNr"> 4319 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L4282'>test-unknown-variable-in-named-block</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L4320" class="LineNr"> 4320 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L4321" class="LineNr"> 4321 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L4282'>test-unknown-variable-in-named-block</a>: exit status"</span>) -<span id="L4322" class="LineNr"> 4322 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L4323" class="LineNr"> 4323 </span> 81 0/subop/add %esp 8/imm32 -<span id="L4324" class="LineNr"> 4324 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4325" class="LineNr"> 4325 </span> 5d/pop-to-ebp -<span id="L4326" class="LineNr"> 4326 </span> c3/return -<span id="L4327" class="LineNr"> 4327 </span> -<span id="L4328" class="LineNr"> 4328 </span><span class="subxTest">test-always-shadow-outermost-reg-vars-in-function</span>: -<span id="L4329" class="LineNr"> 4329 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4330" class="LineNr"> 4330 </span> 55/push-ebp -<span id="L4331" class="LineNr"> 4331 </span> 89/<- %ebp 4/r32/esp -<span id="L4332" class="LineNr"> 4332 </span> <span class="subxComment"># setup</span> -<span id="L4333" class="LineNr"> 4333 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4334" class="LineNr"> 4334 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4335" class="LineNr"> 4335 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4336" class="LineNr"> 4336 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4337" class="LineNr"> 4337 </span> <span class="subxComment">#</span> -<span id="L4338" class="LineNr"> 4338 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4339" class="LineNr"> 4339 </span> (<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="L4340" class="LineNr"> 4340 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4341" class="LineNr"> 4341 </span> <span class="subxComment"># convert</span> -<span id="L4342" class="LineNr"> 4342 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4343" class="LineNr"> 4343 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4344" class="Folded"> 4344 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4350" class="LineNr"> 4350 </span> <span class="subxComment"># check output</span> -<span id="L4351" class="LineNr"> 4351 </span> (<a href='109stream-equal.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#L4328'>test-always-shadow-outermost-reg-vars-in-function</a>/0"</span>) -<span id="L4352" class="LineNr"> 4352 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-always-shadow-outermost-reg-vars-in-function/1"</span>) -<span id="L4353" class="LineNr"> 4353 </span> (<a href='109stream-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#L4328'>test-always-shadow-outermost-reg-vars-in-function</a>/2"</span>) -<span id="L4354" class="LineNr"> 4354 </span> (<a href='109stream-equal.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#L4328'>test-always-shadow-outermost-reg-vars-in-function</a>/3"</span>) -<span id="L4355" class="LineNr"> 4355 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4328'>test-always-shadow-outermost-reg-vars-in-function</a>/4"</span>) -<span id="L4356" class="LineNr"> 4356 </span> (<a href='109stream-equal.subx.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#L4328'>test-always-shadow-outermost-reg-vars-in-function</a>/5"</span>) -<span id="L4357" class="LineNr"> 4357 </span> (<a href='109stream-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#L4011'>test-convert-compare-register-with-literal</a>/6"</span>) -<span id="L4358" class="LineNr"> 4358 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4328'>test-always-shadow-outermost-reg-vars-in-function</a>/8"</span>) -<span id="L4359" class="LineNr"> 4359 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4011'>test-convert-compare-register-with-literal</a>/9"</span>) -<span id="L4360" class="LineNr"> 4360 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4328'>test-always-shadow-outermost-reg-vars-in-function</a>/12"</span>) -<span id="L4361" class="LineNr"> 4361 </span> (<a href='109stream-equal.subx.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#L4328'>test-always-shadow-outermost-reg-vars-in-function</a>/13"</span>) -<span id="L4362" class="LineNr"> 4362 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-always-shadow-outermost-reg-vars-in-function/14"</span>) -<span id="L4363" class="LineNr"> 4363 </span> (<a href='109stream-equal.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#L4328'>test-always-shadow-outermost-reg-vars-in-function</a>/15"</span>) -<span id="L4364" class="LineNr"> 4364 </span> (<a href='109stream-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#L4328'>test-always-shadow-outermost-reg-vars-in-function</a>/16"</span>) -<span id="L4365" class="LineNr"> 4365 </span> (<a href='109stream-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#L4328'>test-always-shadow-outermost-reg-vars-in-function</a>/17"</span>) -<span id="L4366" class="LineNr"> 4366 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4367" class="LineNr"> 4367 </span> 89/<- %esp 5/r32/ebp -<span id="L4368" class="LineNr"> 4368 </span> 5d/pop-to-ebp -<span id="L4369" class="LineNr"> 4369 </span> c3/return -<span id="L4370" class="LineNr"> 4370 </span> -<span id="L4371" class="LineNr"> 4371 </span><span class="subxTest">test-shadow-local</span>: -<span id="L4372" class="LineNr"> 4372 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4373" class="LineNr"> 4373 </span> 55/push-ebp -<span id="L4374" class="LineNr"> 4374 </span> 89/<- %ebp 4/r32/esp -<span id="L4375" class="LineNr"> 4375 </span> <span class="subxComment"># setup</span> -<span id="L4376" class="LineNr"> 4376 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4377" class="LineNr"> 4377 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4378" class="LineNr"> 4378 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4379" class="LineNr"> 4379 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4380" class="LineNr"> 4380 </span> <span class="subxComment">#</span> -<span id="L4381" class="LineNr"> 4381 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4382" class="LineNr"> 4382 </span> (<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="L4383" class="LineNr"> 4383 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4384" class="LineNr"> 4384 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) -<span id="L4385" class="LineNr"> 4385 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4386" class="LineNr"> 4386 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) -<span id="L4387" class="LineNr"> 4387 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4388" class="LineNr"> 4388 </span> <span class="subxComment"># convert</span> -<span id="L4389" class="LineNr"> 4389 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4390" class="LineNr"> 4390 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4391" class="Folded"> 4391 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4397" class="LineNr"> 4397 </span> <span class="subxComment"># check output</span> -<span id="L4398" class="LineNr"> 4398 </span> (<a href='109stream-equal.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#L4371'>test-shadow-local</a>/0"</span>) -<span id="L4399" class="LineNr"> 4399 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-local/1"</span>) -<span id="L4400" class="LineNr"> 4400 </span> (<a href='109stream-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#L4371'>test-shadow-local</a>/2"</span>) -<span id="L4401" class="LineNr"> 4401 </span> (<a href='109stream-equal.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#L4371'>test-shadow-local</a>/3"</span>) -<span id="L4402" class="LineNr"> 4402 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4371'>test-shadow-local</a>/4"</span>) -<span id="L4403" class="LineNr"> 4403 </span> (<a href='109stream-equal.subx.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#L4371'>test-shadow-local</a>/5"</span>) -<span id="L4404" class="LineNr"> 4404 </span> (<a href='109stream-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#L4371'>test-shadow-local</a>/6"</span>) -<span id="L4405" class="LineNr"> 4405 </span> (<a href='109stream-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#L4371'>test-shadow-local</a>/7"</span>) -<span id="L4406" class="LineNr"> 4406 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4371'>test-shadow-local</a>/8"</span>) -<span id="L4407" class="LineNr"> 4407 </span> (<a href='109stream-equal.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#L4371'>test-shadow-local</a>/9"</span>) -<span id="L4408" class="LineNr"> 4408 </span> (<a href='109stream-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#L4371'>test-shadow-local</a>/10"</span>) -<span id="L4409" class="LineNr"> 4409 </span> (<a href='109stream-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#L4371'>test-shadow-local</a>/11"</span>) -<span id="L4410" class="LineNr"> 4410 </span> (<a href='109stream-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#L4371'>test-shadow-local</a>/12"</span>) -<span id="L4411" class="LineNr"> 4411 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4371'>test-shadow-local</a>/13"</span>) -<span id="L4412" class="LineNr"> 4412 </span> (<a href='109stream-equal.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#L4371'>test-shadow-local</a>/14"</span>) -<span id="L4413" class="LineNr"> 4413 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4371'>test-shadow-local</a>/15"</span>) -<span id="L4414" class="LineNr"> 4414 </span> (<a href='109stream-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#L4371'>test-shadow-local</a>/16"</span>) -<span id="L4415" class="LineNr"> 4415 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4371'>test-shadow-local</a>/17"</span>) -<span id="L4416" class="LineNr"> 4416 </span> (<a href='109stream-equal.subx.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#L4371'>test-shadow-local</a>/18"</span>) -<span id="L4417" class="LineNr"> 4417 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-local/19"</span>) -<span id="L4418" class="LineNr"> 4418 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4371'>test-shadow-local</a>/20"</span>) -<span id="L4419" class="LineNr"> 4419 </span> (<a href='109stream-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#L4371'>test-shadow-local</a>/21"</span>) -<span id="L4420" class="LineNr"> 4420 </span> (<a href='109stream-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#L4371'>test-shadow-local</a>/22"</span>) -<span id="L4421" class="LineNr"> 4421 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4422" class="LineNr"> 4422 </span> 89/<- %esp 5/r32/ebp -<span id="L4423" class="LineNr"> 4423 </span> 5d/pop-to-ebp -<span id="L4424" class="LineNr"> 4424 </span> c3/return -<span id="L4425" class="LineNr"> 4425 </span> -<span id="L4426" class="LineNr"> 4426 </span><span class="subxTest">test-shadow-name</span>: -<span id="L4427" class="LineNr"> 4427 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4428" class="LineNr"> 4428 </span> 55/push-ebp -<span id="L4429" class="LineNr"> 4429 </span> 89/<- %ebp 4/r32/esp -<span id="L4430" class="LineNr"> 4430 </span> <span class="subxComment"># setup</span> -<span id="L4431" class="LineNr"> 4431 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4432" class="LineNr"> 4432 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4433" class="LineNr"> 4433 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4434" class="LineNr"> 4434 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4435" class="LineNr"> 4435 </span> <span class="subxComment">#</span> -<span id="L4436" class="LineNr"> 4436 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4437" class="LineNr"> 4437 </span> (<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="L4438" class="LineNr"> 4438 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4439" class="LineNr"> 4439 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/edx: int <- copy 4\n"</span>) -<span id="L4440" class="LineNr"> 4440 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4441" class="LineNr"> 4441 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) -<span id="L4442" class="LineNr"> 4442 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4443" class="LineNr"> 4443 </span> <span class="subxComment"># convert</span> -<span id="L4444" class="LineNr"> 4444 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4445" class="LineNr"> 4445 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4446" class="Folded"> 4446 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4452" class="LineNr"> 4452 </span> <span class="subxComment"># check output</span> -<span id="L4453" class="LineNr"> 4453 </span> (<a href='109stream-equal.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#L4426'>test-shadow-name</a>/0"</span>) -<span id="L4454" class="LineNr"> 4454 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-name/1"</span>) -<span id="L4455" class="LineNr"> 4455 </span> (<a href='109stream-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#L4426'>test-shadow-name</a>/2"</span>) -<span id="L4456" class="LineNr"> 4456 </span> (<a href='109stream-equal.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#L4426'>test-shadow-name</a>/3"</span>) -<span id="L4457" class="LineNr"> 4457 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4426'>test-shadow-name</a>/4"</span>) -<span id="L4458" class="LineNr"> 4458 </span> (<a href='109stream-equal.subx.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#L4426'>test-shadow-name</a>/5"</span>) -<span id="L4459" class="LineNr"> 4459 </span> (<a href='109stream-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#L4426'>test-shadow-name</a>/6"</span>) -<span id="L4460" class="LineNr"> 4460 </span> (<a href='109stream-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#L4426'>test-shadow-name</a>/7"</span>) -<span id="L4461" class="LineNr"> 4461 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4426'>test-shadow-name</a>/8"</span>) -<span id="L4462" class="LineNr"> 4462 </span> (<a href='109stream-equal.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#L4426'>test-shadow-name</a>/9"</span>) -<span id="L4463" class="LineNr"> 4463 </span> (<a href='109stream-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#L4426'>test-shadow-name</a>/10"</span>) -<span id="L4464" class="LineNr"> 4464 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4426'>test-shadow-name</a>/11"</span>) -<span id="L4465" class="LineNr"> 4465 </span> (<a href='109stream-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#L4426'>test-shadow-name</a>/12"</span>) -<span id="L4466" class="LineNr"> 4466 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4426'>test-shadow-name</a>/13"</span>) -<span id="L4467" class="LineNr"> 4467 </span> (<a href='109stream-equal.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#L4426'>test-shadow-name</a>/14"</span>) -<span id="L4468" class="LineNr"> 4468 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4426'>test-shadow-name</a>/15"</span>) -<span id="L4469" class="LineNr"> 4469 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4426'>test-shadow-name</a>/16"</span>) -<span id="L4470" class="LineNr"> 4470 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4426'>test-shadow-name</a>/17"</span>) -<span id="L4471" class="LineNr"> 4471 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4426'>test-shadow-name</a>/18"</span>) -<span id="L4472" class="LineNr"> 4472 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-name/19"</span>) -<span id="L4473" class="LineNr"> 4473 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4426'>test-shadow-name</a>/20"</span>) -<span id="L4474" class="LineNr"> 4474 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4426'>test-shadow-name</a>/21"</span>) -<span id="L4475" class="LineNr"> 4475 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4426'>test-shadow-name</a>/22"</span>) -<span id="L4476" class="LineNr"> 4476 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4477" class="LineNr"> 4477 </span> 89/<- %esp 5/r32/ebp -<span id="L4478" class="LineNr"> 4478 </span> 5d/pop-to-ebp -<span id="L4479" class="LineNr"> 4479 </span> c3/return -<span id="L4480" class="LineNr"> 4480 </span> -<span id="L4481" class="LineNr"> 4481 </span><span class="subxTest">test-shadow-name-2</span>: -<span id="L4482" class="LineNr"> 4482 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4483" class="LineNr"> 4483 </span> 55/push-ebp -<span id="L4484" class="LineNr"> 4484 </span> 89/<- %ebp 4/r32/esp -<span id="L4485" class="LineNr"> 4485 </span> <span class="subxComment"># setup</span> -<span id="L4486" class="LineNr"> 4486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4487" class="LineNr"> 4487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4488" class="LineNr"> 4488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4489" class="LineNr"> 4489 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4490" class="LineNr"> 4490 </span> <span class="subxComment">#</span> -<span id="L4491" class="LineNr"> 4491 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4492" class="LineNr"> 4492 </span> (<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="L4493" class="LineNr"> 4493 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4494" class="LineNr"> 4494 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/edx: int <- copy 4\n"</span>) -<span id="L4495" class="LineNr"> 4495 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 5\n"</span>) -<span id="L4496" class="LineNr"> 4496 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4497" class="LineNr"> 4497 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) -<span id="L4498" class="LineNr"> 4498 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4499" class="LineNr"> 4499 </span> <span class="subxComment"># convert</span> -<span id="L4500" class="LineNr"> 4500 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4501" class="LineNr"> 4501 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4502" class="Folded"> 4502 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4508" class="LineNr"> 4508 </span> <span class="subxComment"># check output</span> -<span id="L4509" class="LineNr"> 4509 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/0"</span>) -<span id="L4510" class="LineNr"> 4510 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-name-2/1"</span>) -<span id="L4511" class="LineNr"> 4511 </span> (<a href='109stream-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#L4481'>test-shadow-name-2</a>/2"</span>) -<span id="L4512" class="LineNr"> 4512 </span> (<a href='109stream-equal.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#L4481'>test-shadow-name-2</a>/3"</span>) -<span id="L4513" class="LineNr"> 4513 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/4"</span>) -<span id="L4514" class="LineNr"> 4514 </span> (<a href='109stream-equal.subx.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#L4481'>test-shadow-name-2</a>/5"</span>) -<span id="L4515" class="LineNr"> 4515 </span> (<a href='109stream-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#L4481'>test-shadow-name-2</a>/6"</span>) -<span id="L4516" class="LineNr"> 4516 </span> (<a href='109stream-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#L4481'>test-shadow-name-2</a>/7"</span>) -<span id="L4517" class="LineNr"> 4517 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/8"</span>) -<span id="L4518" class="LineNr"> 4518 </span> (<a href='109stream-equal.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#L4481'>test-shadow-name-2</a>/9"</span>) -<span id="L4519" class="LineNr"> 4519 </span> (<a href='109stream-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#L4481'>test-shadow-name-2</a>/10"</span>) -<span id="L4520" class="LineNr"> 4520 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/11"</span>) -<span id="L4521" class="LineNr"> 4521 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/12"</span>) -<span id="L4522" class="LineNr"> 4522 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 5/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/13"</span>) -<span id="L4523" class="LineNr"> 4523 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/14"</span>) -<span id="L4524" class="LineNr"> 4524 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/15"</span>) -<span id="L4525" class="LineNr"> 4525 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/16"</span>) -<span id="L4526" class="LineNr"> 4526 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/17"</span>) -<span id="L4527" class="LineNr"> 4527 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/18"</span>) -<span id="L4528" class="LineNr"> 4528 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/19"</span>) -<span id="L4529" class="LineNr"> 4529 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/20"</span>) -<span id="L4530" class="LineNr"> 4530 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/21"</span>) -<span id="L4531" class="LineNr"> 4531 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-name-2/22"</span>) -<span id="L4532" class="LineNr"> 4532 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/23"</span>) -<span id="L4533" class="LineNr"> 4533 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/24"</span>) -<span id="L4534" class="LineNr"> 4534 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4481'>test-shadow-name-2</a>/25"</span>) -<span id="L4535" class="LineNr"> 4535 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4536" class="LineNr"> 4536 </span> 89/<- %esp 5/r32/ebp -<span id="L4537" class="LineNr"> 4537 </span> 5d/pop-to-ebp -<span id="L4538" class="LineNr"> 4538 </span> c3/return -<span id="L4539" class="LineNr"> 4539 </span> -<span id="L4540" class="LineNr"> 4540 </span><span class="subxTest">test-do-not-spill-same-register-in-block</span>: -<span id="L4541" class="LineNr"> 4541 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4542" class="LineNr"> 4542 </span> 55/push-ebp -<span id="L4543" class="LineNr"> 4543 </span> 89/<- %ebp 4/r32/esp -<span id="L4544" class="LineNr"> 4544 </span> <span class="subxComment"># setup</span> -<span id="L4545" class="LineNr"> 4545 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4546" class="LineNr"> 4546 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4547" class="LineNr"> 4547 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4548" class="LineNr"> 4548 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4549" class="LineNr"> 4549 </span> <span class="subxComment">#</span> -<span id="L4550" class="LineNr"> 4550 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4551" class="LineNr"> 4551 </span> (<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="L4552" class="LineNr"> 4552 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) -<span id="L4553" class="LineNr"> 4553 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- increment\n"</span>) -<span id="L4554" class="LineNr"> 4554 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4555" class="LineNr"> 4555 </span> <span class="subxComment"># convert</span> -<span id="L4556" class="LineNr"> 4556 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4557" class="LineNr"> 4557 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4558" class="Folded"> 4558 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4564" class="LineNr"> 4564 </span> <span class="subxComment"># check output</span> -<span id="L4565" class="LineNr"> 4565 </span> (<a href='109stream-equal.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#L4540'>test-do-not-spill-same-register-in-block</a>/0"</span>) -<span id="L4566" class="LineNr"> 4566 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-do-not-spill-same-register-in-block/1"</span>) -<span id="L4567" class="LineNr"> 4567 </span> (<a href='109stream-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#L4540'>test-do-not-spill-same-register-in-block</a>/2"</span>) -<span id="L4568" class="LineNr"> 4568 </span> (<a href='109stream-equal.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#L4540'>test-do-not-spill-same-register-in-block</a>/3"</span>) -<span id="L4569" class="LineNr"> 4569 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4540'>test-do-not-spill-same-register-in-block</a>/4"</span>) -<span id="L4570" class="LineNr"> 4570 </span> (<a href='109stream-equal.subx.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#L4540'>test-do-not-spill-same-register-in-block</a>/5"</span>) -<span id="L4571" class="LineNr"> 4571 </span> (<a href='109stream-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#L4540'>test-do-not-spill-same-register-in-block</a>/6"</span>) -<span id="L4572" class="LineNr"> 4572 </span> (<a href='109stream-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#L4540'>test-do-not-spill-same-register-in-block</a>/7"</span>) -<span id="L4573" class="LineNr"> 4573 </span> (<a href='109stream-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#L4540'>test-do-not-spill-same-register-in-block</a>/8"</span>) -<span id="L4574" class="LineNr"> 4574 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4540'>test-do-not-spill-same-register-in-block</a>/9"</span>) -<span id="L4575" class="LineNr"> 4575 </span> (<a href='109stream-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#L4540'>test-do-not-spill-same-register-in-block</a>/10"</span>) -<span id="L4576" class="LineNr"> 4576 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4540'>test-do-not-spill-same-register-in-block</a>/11"</span>) -<span id="L4577" class="LineNr"> 4577 </span> (<a href='109stream-equal.subx.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#L4540'>test-do-not-spill-same-register-in-block</a>/12"</span>) -<span id="L4578" class="LineNr"> 4578 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-do-not-spill-same-register-in-block/13"</span>) -<span id="L4579" class="LineNr"> 4579 </span> (<a href='109stream-equal.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#L4540'>test-do-not-spill-same-register-in-block</a>/14"</span>) -<span id="L4580" class="LineNr"> 4580 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4540'>test-do-not-spill-same-register-in-block</a>/15"</span>) -<span id="L4581" class="LineNr"> 4581 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4540'>test-do-not-spill-same-register-in-block</a>/16"</span>) -<span id="L4582" class="LineNr"> 4582 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4583" class="LineNr"> 4583 </span> 89/<- %esp 5/r32/ebp -<span id="L4584" class="LineNr"> 4584 </span> 5d/pop-to-ebp -<span id="L4585" class="LineNr"> 4585 </span> c3/return -<span id="L4586" class="LineNr"> 4586 </span> -<span id="L4587" class="LineNr"> 4587 </span><span class="subxTest">test-spill-different-register-in-block</span>: -<span id="L4588" class="LineNr"> 4588 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4589" class="LineNr"> 4589 </span> 55/push-ebp -<span id="L4590" class="LineNr"> 4590 </span> 89/<- %ebp 4/r32/esp -<span id="L4591" class="LineNr"> 4591 </span> <span class="subxComment"># setup</span> -<span id="L4592" class="LineNr"> 4592 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4593" class="LineNr"> 4593 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4594" class="LineNr"> 4594 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4595" class="LineNr"> 4595 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4596" class="LineNr"> 4596 </span> <span class="subxComment">#</span> -<span id="L4597" class="LineNr"> 4597 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4598" class="LineNr"> 4598 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 3\n"</span>) -<span id="L4599" class="LineNr"> 4599 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) -<span id="L4600" class="LineNr"> 4600 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- increment\n"</span>) -<span id="L4601" class="LineNr"> 4601 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4602" class="LineNr"> 4602 </span> <span class="subxComment"># convert</span> -<span id="L4603" class="LineNr"> 4603 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4604" class="LineNr"> 4604 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4605" class="Folded"> 4605 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4611" class="LineNr"> 4611 </span> <span class="subxComment"># check output</span> -<span id="L4612" class="LineNr"> 4612 </span> (<a href='109stream-equal.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#L4587'>test-spill-different-register-in-block</a>/0"</span>) -<span id="L4613" class="LineNr"> 4613 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-spill-different-register-in-block/1"</span>) -<span id="L4614" class="LineNr"> 4614 </span> (<a href='109stream-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#L4587'>test-spill-different-register-in-block</a>/2"</span>) -<span id="L4615" class="LineNr"> 4615 </span> (<a href='109stream-equal.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#L4587'>test-spill-different-register-in-block</a>/3"</span>) -<span id="L4616" class="LineNr"> 4616 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4587'>test-spill-different-register-in-block</a>/4"</span>) -<span id="L4617" class="LineNr"> 4617 </span> (<a href='109stream-equal.subx.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#L4587'>test-spill-different-register-in-block</a>/5"</span>) -<span id="L4618" class="LineNr"> 4618 </span> (<a href='109stream-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#L4587'>test-spill-different-register-in-block</a>/6"</span>) -<span id="L4619" class="LineNr"> 4619 </span> (<a href='109stream-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#L4587'>test-spill-different-register-in-block</a>/7"</span>) -<span id="L4620" class="LineNr"> 4620 </span> (<a href='109stream-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#L4587'>test-spill-different-register-in-block</a>/8"</span>) -<span id="L4621" class="LineNr"> 4621 </span> (<a href='109stream-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#L4587'>test-spill-different-register-in-block</a>/9"</span>) -<span id="L4622" class="LineNr"> 4622 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4587'>test-spill-different-register-in-block</a>/10"</span>) -<span id="L4623" class="LineNr"> 4623 </span> (<a href='109stream-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#L4587'>test-spill-different-register-in-block</a>/11"</span>) -<span id="L4624" class="LineNr"> 4624 </span> (<a href='109stream-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#L4587'>test-spill-different-register-in-block</a>/12"</span>) -<span id="L4625" class="LineNr"> 4625 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4587'>test-spill-different-register-in-block</a>/13"</span>) -<span id="L4626" class="LineNr"> 4626 </span> (<a href='109stream-equal.subx.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#L4587'>test-spill-different-register-in-block</a>/14"</span>) -<span id="L4627" class="LineNr"> 4627 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-spill-different-register-in-block/15"</span>) -<span id="L4628" class="LineNr"> 4628 </span> (<a href='109stream-equal.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#L4587'>test-spill-different-register-in-block</a>/16"</span>) -<span id="L4629" class="LineNr"> 4629 </span> (<a href='109stream-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#L4587'>test-spill-different-register-in-block</a>/17"</span>) -<span id="L4630" class="LineNr"> 4630 </span> (<a href='109stream-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#L4587'>test-spill-different-register-in-block</a>/18"</span>) -<span id="L4631" class="LineNr"> 4631 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4632" class="LineNr"> 4632 </span> 89/<- %esp 5/r32/ebp -<span id="L4633" class="LineNr"> 4633 </span> 5d/pop-to-ebp -<span id="L4634" class="LineNr"> 4634 </span> c3/return -<span id="L4635" class="LineNr"> 4635 </span> -<span id="L4636" class="LineNr"> 4636 </span><span class="subxTest">test-convert-function-with-branches-in-block</span>: -<span id="L4637" class="LineNr"> 4637 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4638" class="LineNr"> 4638 </span> 55/push-ebp -<span id="L4639" class="LineNr"> 4639 </span> 89/<- %ebp 4/r32/esp -<span id="L4640" class="LineNr"> 4640 </span> <span class="subxComment"># setup</span> -<span id="L4641" class="LineNr"> 4641 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4642" class="LineNr"> 4642 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4643" class="LineNr"> 4643 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4644" class="LineNr"> 4644 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4645" class="LineNr"> 4645 </span> <span class="subxComment">#</span> -<span id="L4646" class="LineNr"> 4646 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) -<span id="L4647" class="LineNr"> 4647 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4648" class="LineNr"> 4648 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) -<span id="L4649" class="LineNr"> 4649 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if-addr<\n"</span>) -<span id="L4650" class="LineNr"> 4650 </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="L4651" class="LineNr"> 4651 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) -<span id="L4652" class="LineNr"> 4652 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4653" class="LineNr"> 4653 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4654" class="LineNr"> 4654 </span> <span class="subxComment"># convert</span> -<span id="L4655" class="LineNr"> 4655 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4656" class="LineNr"> 4656 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4657" class="Folded"> 4657 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4663" class="LineNr"> 4663 </span> <span class="subxComment"># check output</span> -<span id="L4664" class="LineNr"> 4664 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/0"</span>) -<span id="L4665" class="LineNr"> 4665 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/1"</span>) -<span id="L4666" class="LineNr"> 4666 </span> (<a href='109stream-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#L4636'>test-convert-function-with-branches-in-block</a>/2"</span>) -<span id="L4667" class="LineNr"> 4667 </span> (<a href='109stream-equal.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#L4636'>test-convert-function-with-branches-in-block</a>/3"</span>) -<span id="L4668" class="LineNr"> 4668 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/4"</span>) -<span id="L4669" class="LineNr"> 4669 </span> (<a href='109stream-equal.subx.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#L4636'>test-convert-function-with-branches-in-block</a>/5"</span>) -<span id="L4670" class="LineNr"> 4670 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/6"</span>) -<span id="L4671" class="LineNr"> 4671 </span> (<a href='109stream-equal.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#L4636'>test-convert-function-with-branches-in-block</a>/7"</span>) -<span id="L4672" class="LineNr"> 4672 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/8"</span>) -<span id="L4673" class="LineNr"> 4673 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/9"</span>) -<span id="L4674" class="LineNr"> 4674 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/10"</span>) -<span id="L4675" class="LineNr"> 4675 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/11"</span>) -<span id="L4676" class="LineNr"> 4676 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/12"</span>) -<span id="L4677" class="LineNr"> 4677 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/13"</span>) -<span id="L4678" class="LineNr"> 4678 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/14"</span>) -<span id="L4679" class="LineNr"> 4679 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/15"</span>) -<span id="L4680" class="LineNr"> 4680 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/16"</span>) -<span id="L4681" class="LineNr"> 4681 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/17"</span>) -<span id="L4682" class="LineNr"> 4682 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/18"</span>) -<span id="L4683" class="LineNr"> 4683 </span> (<a href='109stream-equal.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#L4636'>test-convert-function-with-branches-in-block</a>/19"</span>) -<span id="L4684" class="LineNr"> 4684 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/20"</span>) -<span id="L4685" class="LineNr"> 4685 </span> (<a href='109stream-equal.subx.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#L4636'>test-convert-function-with-branches-in-block</a>/21"</span>) -<span id="L4686" class="LineNr"> 4686 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/22"</span>) -<span id="L4687" class="LineNr"> 4687 </span> (<a href='109stream-equal.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#L4636'>test-convert-function-with-branches-in-block</a>/23"</span>) -<span id="L4688" class="LineNr"> 4688 </span> (<a href='109stream-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#L4636'>test-convert-function-with-branches-in-block</a>/24"</span>) -<span id="L4689" class="LineNr"> 4689 </span> (<a href='109stream-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#L4636'>test-convert-function-with-branches-in-block</a>/25"</span>) -<span id="L4690" class="LineNr"> 4690 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4691" class="LineNr"> 4691 </span> 89/<- %esp 5/r32/ebp -<span id="L4692" class="LineNr"> 4692 </span> 5d/pop-to-ebp -<span id="L4693" class="LineNr"> 4693 </span> c3/return -<span id="L4694" class="LineNr"> 4694 </span> -<span id="L4695" class="LineNr"> 4695 </span><span class="subxTest">test-convert-function-with-branches-in-block-2</span>: -<span id="L4696" class="LineNr"> 4696 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4697" class="LineNr"> 4697 </span> 55/push-ebp -<span id="L4698" class="LineNr"> 4698 </span> 89/<- %ebp 4/r32/esp -<span id="L4699" class="LineNr"> 4699 </span> <span class="subxComment"># setup</span> -<span id="L4700" class="LineNr"> 4700 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4701" class="LineNr"> 4701 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4702" class="LineNr"> 4702 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4703" class="LineNr"> 4703 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4704" class="LineNr"> 4704 </span> <span class="subxComment">#</span> -<span id="L4705" class="LineNr"> 4705 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) -<span id="L4706" class="LineNr"> 4706 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4707" class="LineNr"> 4707 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) -<span id="L4708" class="LineNr"> 4708 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if-float<\n"</span>) -<span id="L4709" class="LineNr"> 4709 </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="L4710" class="LineNr"> 4710 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) -<span id="L4711" class="LineNr"> 4711 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4712" class="LineNr"> 4712 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4713" class="LineNr"> 4713 </span> <span class="subxComment"># convert</span> -<span id="L4714" class="LineNr"> 4714 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4715" class="LineNr"> 4715 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4716" class="Folded"> 4716 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4722" class="LineNr"> 4722 </span> <span class="subxComment"># check output</span> -<span id="L4723" class="LineNr"> 4723 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/0"</span>) -<span id="L4724" class="LineNr"> 4724 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/1"</span>) -<span id="L4725" class="LineNr"> 4725 </span> (<a href='109stream-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#L4636'>test-convert-function-with-branches-in-block</a>/2"</span>) -<span id="L4726" class="LineNr"> 4726 </span> (<a href='109stream-equal.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#L4636'>test-convert-function-with-branches-in-block</a>/3"</span>) -<span id="L4727" class="LineNr"> 4727 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/4"</span>) -<span id="L4728" class="LineNr"> 4728 </span> (<a href='109stream-equal.subx.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#L4636'>test-convert-function-with-branches-in-block</a>/5"</span>) -<span id="L4729" class="LineNr"> 4729 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/6"</span>) -<span id="L4730" class="LineNr"> 4730 </span> (<a href='109stream-equal.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#L4636'>test-convert-function-with-branches-in-block</a>/7"</span>) -<span id="L4731" class="LineNr"> 4731 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/8"</span>) -<span id="L4732" class="LineNr"> 4732 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/9"</span>) -<span id="L4733" class="LineNr"> 4733 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/10"</span>) -<span id="L4734" class="LineNr"> 4734 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/11"</span>) -<span id="L4735" class="LineNr"> 4735 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/12"</span>) -<span id="L4736" class="LineNr"> 4736 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/13"</span>) -<span id="L4737" class="LineNr"> 4737 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/14"</span>) -<span id="L4738" class="LineNr"> 4738 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/15"</span>) -<span id="L4739" class="LineNr"> 4739 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/16"</span>) -<span id="L4740" class="LineNr"> 4740 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/17"</span>) -<span id="L4741" class="LineNr"> 4741 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/18"</span>) -<span id="L4742" class="LineNr"> 4742 </span> (<a href='109stream-equal.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#L4636'>test-convert-function-with-branches-in-block</a>/19"</span>) -<span id="L4743" class="LineNr"> 4743 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4636'>test-convert-function-with-branches-in-block</a>/20"</span>) -<span id="L4744" class="LineNr"> 4744 </span> (<a href='109stream-equal.subx.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#L4636'>test-convert-function-with-branches-in-block</a>/21"</span>) -<span id="L4745" class="LineNr"> 4745 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/22"</span>) -<span id="L4746" class="LineNr"> 4746 </span> (<a href='109stream-equal.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#L4636'>test-convert-function-with-branches-in-block</a>/23"</span>) -<span id="L4747" class="LineNr"> 4747 </span> (<a href='109stream-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#L4636'>test-convert-function-with-branches-in-block</a>/24"</span>) -<span id="L4748" class="LineNr"> 4748 </span> (<a href='109stream-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#L4636'>test-convert-function-with-branches-in-block</a>/25"</span>) -<span id="L4749" class="LineNr"> 4749 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4750" class="LineNr"> 4750 </span> 89/<- %esp 5/r32/ebp -<span id="L4751" class="LineNr"> 4751 </span> 5d/pop-to-ebp -<span id="L4752" class="LineNr"> 4752 </span> c3/return -<span id="L4753" class="LineNr"> 4753 </span> -<span id="L4754" class="LineNr"> 4754 </span><span class="subxTest">test-convert-function-with-branches-in-named-block</span>: -<span id="L4755" class="LineNr"> 4755 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4756" class="LineNr"> 4756 </span> 55/push-ebp -<span id="L4757" class="LineNr"> 4757 </span> 89/<- %ebp 4/r32/esp -<span id="L4758" class="LineNr"> 4758 </span> <span class="subxComment"># setup</span> -<span id="L4759" class="LineNr"> 4759 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4760" class="LineNr"> 4760 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4761" class="LineNr"> 4761 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4762" class="LineNr"> 4762 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4763" class="LineNr"> 4763 </span> <span class="subxComment">#</span> -<span id="L4764" class="LineNr"> 4764 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) -<span id="L4765" class="LineNr"> 4765 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" $bar: {\n"</span>) -<span id="L4766" class="LineNr"> 4766 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->= $bar\n"</span>) -<span id="L4767" class="LineNr"> 4767 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if-addr< $bar\n"</span>) -<span id="L4768" class="LineNr"> 4768 </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="L4769" class="LineNr"> 4769 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) -<span id="L4770" class="LineNr"> 4770 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4771" class="LineNr"> 4771 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4772" class="LineNr"> 4772 </span> <span class="subxComment"># convert</span> -<span id="L4773" class="LineNr"> 4773 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4774" class="LineNr"> 4774 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4775" class="Folded"> 4775 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4781" class="LineNr"> 4781 </span> <span class="subxComment"># check output</span> -<span id="L4782" class="LineNr"> 4782 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/0"</span>) -<span id="L4783" class="LineNr"> 4783 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-named-block/1"</span>) -<span id="L4784" class="LineNr"> 4784 </span> (<a href='109stream-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#L4754'>test-convert-function-with-branches-in-named-block</a>/2"</span>) -<span id="L4785" class="LineNr"> 4785 </span> (<a href='109stream-equal.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#L4754'>test-convert-function-with-branches-in-named-block</a>/3"</span>) -<span id="L4786" class="LineNr"> 4786 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/4"</span>) -<span id="L4787" class="LineNr"> 4787 </span> (<a href='109stream-equal.subx.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#L4754'>test-convert-function-with-branches-in-named-block</a>/5"</span>) -<span id="L4788" class="LineNr"> 4788 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/6"</span>) -<span id="L4789" class="LineNr"> 4789 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$bar:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/7"</span>) -<span id="L4790" class="LineNr"> 4790 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/8"</span>) -<span id="L4791" class="LineNr"> 4791 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/9"</span>) -<span id="L4792" class="LineNr"> 4792 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $bar:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/10"</span>) -<span id="L4793" class="LineNr"> 4793 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/11"</span>) -<span id="L4794" class="LineNr"> 4794 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/12"</span>) -<span id="L4795" class="LineNr"> 4795 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/13"</span>) -<span id="L4796" class="LineNr"> 4796 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $bar:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/14"</span>) -<span id="L4797" class="LineNr"> 4797 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/15"</span>) -<span id="L4798" class="LineNr"> 4798 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/16"</span>) -<span id="L4799" class="LineNr"> 4799 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/17"</span>) -<span id="L4800" class="LineNr"> 4800 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/18"</span>) -<span id="L4801" class="LineNr"> 4801 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$bar:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/19"</span>) -<span id="L4802" class="LineNr"> 4802 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4754'>test-convert-function-with-branches-in-named-block</a>/20"</span>) -<span id="L4803" class="LineNr"> 4803 </span> (<a href='109stream-equal.subx.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#L4754'>test-convert-function-with-branches-in-named-block</a>/21"</span>) -<span id="L4804" class="LineNr"> 4804 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-named-block/22"</span>) -<span id="L4805" class="LineNr"> 4805 </span> (<a href='109stream-equal.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#L4754'>test-convert-function-with-branches-in-named-block</a>/23"</span>) -<span id="L4806" class="LineNr"> 4806 </span> (<a href='109stream-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#L4754'>test-convert-function-with-branches-in-named-block</a>/24"</span>) -<span id="L4807" class="LineNr"> 4807 </span> (<a href='109stream-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#L4754'>test-convert-function-with-branches-in-named-block</a>/25"</span>) -<span id="L4808" class="LineNr"> 4808 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4809" class="LineNr"> 4809 </span> 89/<- %esp 5/r32/ebp -<span id="L4810" class="LineNr"> 4810 </span> 5d/pop-to-ebp -<span id="L4811" class="LineNr"> 4811 </span> c3/return -<span id="L4812" class="LineNr"> 4812 </span> -<span id="L4813" class="LineNr"> 4813 </span><span class="subxTest">test-convert-function-with-var-in-nested-block</span>: -<span id="L4814" class="LineNr"> 4814 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4815" class="LineNr"> 4815 </span> 55/push-ebp -<span id="L4816" class="LineNr"> 4816 </span> 89/<- %ebp 4/r32/esp -<span id="L4817" class="LineNr"> 4817 </span> <span class="subxComment"># setup</span> -<span id="L4818" class="LineNr"> 4818 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4819" class="LineNr"> 4819 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4820" class="LineNr"> 4820 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4821" class="LineNr"> 4821 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4822" class="LineNr"> 4822 </span> <span class="subxComment">#</span> -<span id="L4823" class="LineNr"> 4823 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) -<span id="L4824" class="LineNr"> 4824 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4825" class="LineNr"> 4825 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4826" class="LineNr"> 4826 </span> (<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="L4827" class="LineNr"> 4827 </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="L4828" class="LineNr"> 4828 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4829" class="LineNr"> 4829 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4830" class="LineNr"> 4830 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4831" class="LineNr"> 4831 </span> <span class="subxComment"># convert</span> -<span id="L4832" class="LineNr"> 4832 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4833" class="LineNr"> 4833 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4834" class="Folded"> 4834 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4840" class="LineNr"> 4840 </span> <span class="subxComment"># check output</span> -<span id="L4841" class="LineNr"> 4841 </span> (<a href='109stream-equal.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#L4813'>test-convert-function-with-var-in-nested-block</a>/0"</span>) -<span id="L4842" class="LineNr"> 4842 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-var-in-nested-block/1"</span>) -<span id="L4843" class="LineNr"> 4843 </span> (<a href='109stream-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#L4813'>test-convert-function-with-var-in-nested-block</a>/2"</span>) -<span id="L4844" class="LineNr"> 4844 </span> (<a href='109stream-equal.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#L4813'>test-convert-function-with-var-in-nested-block</a>/3"</span>) -<span id="L4845" class="LineNr"> 4845 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4813'>test-convert-function-with-var-in-nested-block</a>/4"</span>) -<span id="L4846" class="LineNr"> 4846 </span> (<a href='109stream-equal.subx.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#L4813'>test-convert-function-with-var-in-nested-block</a>/5"</span>) -<span id="L4847" class="LineNr"> 4847 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4813'>test-convert-function-with-var-in-nested-block</a>/6"</span>) -<span id="L4848" class="LineNr"> 4848 </span> (<a href='109stream-equal.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#L4813'>test-convert-function-with-var-in-nested-block</a>/7"</span>) -<span id="L4849" class="LineNr"> 4849 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4813'>test-convert-function-with-var-in-nested-block</a>/8"</span>) -<span id="L4850" class="LineNr"> 4850 </span> (<a href='109stream-equal.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#L4813'>test-convert-function-with-var-in-nested-block</a>/9"</span>) -<span id="L4851" class="LineNr"> 4851 </span> (<a href='109stream-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#L4813'>test-convert-function-with-var-in-nested-block</a>/10"</span>) -<span id="L4852" class="LineNr"> 4852 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4813'>test-convert-function-with-var-in-nested-block</a>/11"</span>) -<span id="L4853" class="LineNr"> 4853 </span> (<a href='109stream-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#L4813'>test-convert-function-with-var-in-nested-block</a>/12"</span>) -<span id="L4854" class="LineNr"> 4854 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4813'>test-convert-function-with-var-in-nested-block</a>/13"</span>) -<span id="L4855" class="LineNr"> 4855 </span> (<a href='109stream-equal.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#L4813'>test-convert-function-with-var-in-nested-block</a>/14"</span>) -<span id="L4856" class="LineNr"> 4856 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4813'>test-convert-function-with-var-in-nested-block</a>/15"</span>) -<span id="L4857" class="LineNr"> 4857 </span> (<a href='109stream-equal.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#L4813'>test-convert-function-with-var-in-nested-block</a>/16"</span>) -<span id="L4858" class="LineNr"> 4858 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4813'>test-convert-function-with-var-in-nested-block</a>/17"</span>) -<span id="L4859" class="LineNr"> 4859 </span> (<a href='109stream-equal.subx.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#L4813'>test-convert-function-with-var-in-nested-block</a>/18"</span>) -<span id="L4860" class="LineNr"> 4860 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-var-in-nested-block/19"</span>) -<span id="L4861" class="LineNr"> 4861 </span> (<a href='109stream-equal.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#L4813'>test-convert-function-with-var-in-nested-block</a>/20"</span>) -<span id="L4862" class="LineNr"> 4862 </span> (<a href='109stream-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#L4813'>test-convert-function-with-var-in-nested-block</a>/21"</span>) -<span id="L4863" class="LineNr"> 4863 </span> (<a href='109stream-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#L4813'>test-convert-function-with-var-in-nested-block</a>/22"</span>) -<span id="L4864" class="LineNr"> 4864 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4865" class="LineNr"> 4865 </span> 89/<- %esp 5/r32/ebp -<span id="L4866" class="LineNr"> 4866 </span> 5d/pop-to-ebp -<span id="L4867" class="LineNr"> 4867 </span> c3/return -<span id="L4868" class="LineNr"> 4868 </span> -<span id="L4869" class="LineNr"> 4869 </span><span class="subxTest">test-convert-function-with-multiple-vars-in-nested-blocks</span>: -<span id="L4870" class="LineNr"> 4870 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4871" class="LineNr"> 4871 </span> 55/push-ebp -<span id="L4872" class="LineNr"> 4872 </span> 89/<- %ebp 4/r32/esp -<span id="L4873" class="LineNr"> 4873 </span> <span class="subxComment"># setup</span> -<span id="L4874" class="LineNr"> 4874 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4875" class="LineNr"> 4875 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4876" class="LineNr"> 4876 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4877" class="LineNr"> 4877 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4878" class="LineNr"> 4878 </span> <span class="subxComment">#</span> -<span id="L4879" class="LineNr"> 4879 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) -<span id="L4880" class="LineNr"> 4880 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4881" class="LineNr"> 4881 </span> (<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="L4882" class="LineNr"> 4882 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4883" class="LineNr"> 4883 </span> (<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="L4884" class="LineNr"> 4884 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- add y\n"</span>) -<span id="L4885" class="LineNr"> 4885 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4886" class="LineNr"> 4886 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4887" class="LineNr"> 4887 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4888" class="LineNr"> 4888 </span> <span class="subxComment"># convert</span> -<span id="L4889" class="LineNr"> 4889 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4890" class="LineNr"> 4890 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4891" class="Folded"> 4891 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4897" class="LineNr"> 4897 </span> <span class="subxComment"># check output</span> -<span id="L4898" class="LineNr"> 4898 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/0"</span>) -<span id="L4899" class="LineNr"> 4899 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-multiple-vars-in-nested-blocks/1"</span>) -<span id="L4900" class="LineNr"> 4900 </span> (<a href='109stream-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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/2"</span>) -<span id="L4901" class="LineNr"> 4901 </span> (<a href='109stream-equal.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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/3"</span>) -<span id="L4902" class="LineNr"> 4902 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/4"</span>) -<span id="L4903" class="LineNr"> 4903 </span> (<a href='109stream-equal.subx.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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/5"</span>) -<span id="L4904" class="LineNr"> 4904 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/6"</span>) -<span id="L4905" class="LineNr"> 4905 </span> (<a href='109stream-equal.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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/7"</span>) -<span id="L4906" class="LineNr"> 4906 </span> (<a href='109stream-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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/8"</span>) -<span id="L4907" class="LineNr"> 4907 </span> (<a href='109stream-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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/9"</span>) -<span id="L4908" class="LineNr"> 4908 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/10"</span>) -<span id="L4909" class="LineNr"> 4909 </span> (<a href='109stream-equal.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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/11"</span>) -<span id="L4910" class="LineNr"> 4910 </span> (<a href='109stream-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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/12"</span>) -<span id="L4911" class="LineNr"> 4911 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 03/add *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/13"</span>) -<span id="L4912" class="LineNr"> 4912 </span> (<a href='109stream-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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/14"</span>) -<span id="L4913" class="LineNr"> 4913 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/15"</span>) -<span id="L4914" class="LineNr"> 4914 </span> (<a href='109stream-equal.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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/16"</span>) -<span id="L4915" class="LineNr"> 4915 </span> (<a href='109stream-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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/17"</span>) -<span id="L4916" class="LineNr"> 4916 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/18"</span>) -<span id="L4917" class="LineNr"> 4917 </span> (<a href='109stream-equal.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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/19"</span>) -<span id="L4918" class="LineNr"> 4918 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/20"</span>) -<span id="L4919" class="LineNr"> 4919 </span> (<a href='109stream-equal.subx.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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/21"</span>) -<span id="L4920" class="LineNr"> 4920 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-multiple-vars-in-nested-blocks/22"</span>) -<span id="L4921" class="LineNr"> 4921 </span> (<a href='109stream-equal.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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/23"</span>) -<span id="L4922" class="LineNr"> 4922 </span> (<a href='109stream-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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/24"</span>) -<span id="L4923" class="LineNr"> 4923 </span> (<a href='109stream-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#L4869'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/25"</span>) -<span id="L4924" class="LineNr"> 4924 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4925" class="LineNr"> 4925 </span> 89/<- %esp 5/r32/ebp -<span id="L4926" class="LineNr"> 4926 </span> 5d/pop-to-ebp -<span id="L4927" class="LineNr"> 4927 </span> c3/return -<span id="L4928" class="LineNr"> 4928 </span> -<span id="L4929" class="LineNr"> 4929 </span><span class="subxTest">test-convert-function-with-branches-and-local-vars</span>: -<span id="L4930" class="LineNr"> 4930 </span> <span class="subxComment"># A conditional 'break' after a 'var' in a block is converted into a</span> -<span id="L4931" class="LineNr"> 4931 </span> <span class="subxComment"># nested block that performs all necessary cleanup before jumping. This</span> -<span id="L4932" class="LineNr"> 4932 </span> <span class="subxComment"># results in some ugly code duplication.</span> -<span id="L4933" class="LineNr"> 4933 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4934" class="LineNr"> 4934 </span> 55/push-ebp -<span id="L4935" class="LineNr"> 4935 </span> 89/<- %ebp 4/r32/esp -<span id="L4936" class="LineNr"> 4936 </span> <span class="subxComment"># setup</span> -<span id="L4937" class="LineNr"> 4937 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4938" class="LineNr"> 4938 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4939" class="LineNr"> 4939 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4940" class="LineNr"> 4940 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4941" class="LineNr"> 4941 </span> <span class="subxComment">#</span> -<span id="L4942" class="LineNr"> 4942 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4943" class="LineNr"> 4943 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4944" class="LineNr"> 4944 </span> (<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="L4945" class="LineNr"> 4945 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) -<span id="L4946" class="LineNr"> 4946 </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="L4947" class="LineNr"> 4947 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4948" class="LineNr"> 4948 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4949" class="LineNr"> 4949 </span> <span class="subxComment"># convert</span> -<span id="L4950" class="LineNr"> 4950 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4951" class="LineNr"> 4951 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L4952" class="Folded"> 4952 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4958" class="LineNr"> 4958 </span> <span class="subxComment"># check output</span> -<span id="L4959" class="LineNr"> 4959 </span> (<a href='109stream-equal.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#L4929'>test-convert-function-with-branches-and-local-vars</a>/0"</span>) -<span id="L4960" class="LineNr"> 4960 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-local-vars/1"</span>) -<span id="L4961" class="LineNr"> 4961 </span> (<a href='109stream-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#L4929'>test-convert-function-with-branches-and-local-vars</a>/2"</span>) -<span id="L4962" class="LineNr"> 4962 </span> (<a href='109stream-equal.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#L4929'>test-convert-function-with-branches-and-local-vars</a>/3"</span>) -<span id="L4963" class="LineNr"> 4963 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4929'>test-convert-function-with-branches-and-local-vars</a>/4"</span>) -<span id="L4964" class="LineNr"> 4964 </span> (<a href='109stream-equal.subx.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#L4929'>test-convert-function-with-branches-and-local-vars</a>/5"</span>) -<span id="L4965" class="LineNr"> 4965 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4929'>test-convert-function-with-branches-and-local-vars</a>/6"</span>) -<span id="L4966" class="LineNr"> 4966 </span> (<a href='109stream-equal.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#L4929'>test-convert-function-with-branches-and-local-vars</a>/7"</span>) -<span id="L4967" class="LineNr"> 4967 </span> (<a href='109stream-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#L4929'>test-convert-function-with-branches-and-local-vars</a>/8"</span>) -<span id="L4968" class="LineNr"> 4968 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4929'>test-convert-function-with-branches-and-local-vars</a>/9"</span>) -<span id="L4969" class="LineNr"> 4969 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4929'>test-convert-function-with-branches-and-local-vars</a>/10"</span>) -<span id="L4970" class="LineNr"> 4970 </span> (<a href='109stream-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#L4929'>test-convert-function-with-branches-and-local-vars</a>/11"</span>) -<span id="L4971" class="LineNr"> 4971 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4929'>test-convert-function-with-branches-and-local-vars</a>/12"</span>) -<span id="L4972" class="LineNr"> 4972 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4929'>test-convert-function-with-branches-and-local-vars</a>/13"</span>) -<span id="L4973" class="LineNr"> 4973 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4929'>test-convert-function-with-branches-and-local-vars</a>/14"</span>) -<span id="L4974" class="LineNr"> 4974 </span> (<a href='109stream-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#L4929'>test-convert-function-with-branches-and-local-vars</a>/15"</span>) -<span id="L4975" class="LineNr"> 4975 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4929'>test-convert-function-with-branches-and-local-vars</a>/16"</span>) -<span id="L4976" class="LineNr"> 4976 </span> (<a href='109stream-equal.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#L4929'>test-convert-function-with-branches-and-local-vars</a>/17"</span>) -<span id="L4977" class="LineNr"> 4977 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4929'>test-convert-function-with-branches-and-local-vars</a>/18"</span>) -<span id="L4978" class="LineNr"> 4978 </span> (<a href='109stream-equal.subx.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#L4929'>test-convert-function-with-branches-and-local-vars</a>/19"</span>) -<span id="L4979" class="LineNr"> 4979 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-local-vars/20"</span>) -<span id="L4980" class="LineNr"> 4980 </span> (<a href='109stream-equal.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#L4929'>test-convert-function-with-branches-and-local-vars</a>/21"</span>) -<span id="L4981" class="LineNr"> 4981 </span> (<a href='109stream-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#L4929'>test-convert-function-with-branches-and-local-vars</a>/22"</span>) -<span id="L4982" class="LineNr"> 4982 </span> (<a href='109stream-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#L4929'>test-convert-function-with-branches-and-local-vars</a>/23"</span>) -<span id="L4983" class="LineNr"> 4983 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4984" class="LineNr"> 4984 </span> 89/<- %esp 5/r32/ebp -<span id="L4985" class="LineNr"> 4985 </span> 5d/pop-to-ebp -<span id="L4986" class="LineNr"> 4986 </span> c3/return -<span id="L4987" class="LineNr"> 4987 </span> -<span id="L4988" class="LineNr"> 4988 </span><span class="subxTest">test-convert-function-with-conditional-loops-and-local-vars</span>: -<span id="L4989" class="LineNr"> 4989 </span> <span class="subxComment"># A conditional 'loop' after a 'var' in a block is converted into a nested</span> -<span id="L4990" class="LineNr"> 4990 </span> <span class="subxComment"># block that performs all necessary cleanup before jumping. This results</span> -<span id="L4991" class="LineNr"> 4991 </span> <span class="subxComment"># in some ugly code duplication.</span> -<span id="L4992" class="LineNr"> 4992 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4993" class="LineNr"> 4993 </span> 55/push-ebp -<span id="L4994" class="LineNr"> 4994 </span> 89/<- %ebp 4/r32/esp -<span id="L4995" class="LineNr"> 4995 </span> <span class="subxComment"># setup</span> -<span id="L4996" class="LineNr"> 4996 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4997" class="LineNr"> 4997 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4998" class="LineNr"> 4998 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L4999" class="LineNr"> 4999 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5000" class="LineNr"> 5000 </span> <span class="subxComment">#</span> -<span id="L5001" class="LineNr"> 5001 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5002" class="LineNr"> 5002 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5003" class="LineNr"> 5003 </span> (<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="L5004" class="LineNr"> 5004 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if->=\n"</span>) -<span id="L5005" class="LineNr"> 5005 </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="L5006" class="LineNr"> 5006 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5007" class="LineNr"> 5007 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5008" class="LineNr"> 5008 </span> <span class="subxComment"># convert</span> -<span id="L5009" class="LineNr"> 5009 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5010" class="LineNr"> 5010 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5011" class="Folded"> 5011 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5017" class="LineNr"> 5017 </span> <span class="subxComment"># check output</span> -<span id="L5018" class="LineNr"> 5018 </span> (<a href='109stream-equal.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#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/0"</span>) -<span id="L5019" class="LineNr"> 5019 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-conditional-loops-and-local-vars/1"</span>) -<span id="L5020" class="LineNr"> 5020 </span> (<a href='109stream-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#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/2"</span>) -<span id="L5021" class="LineNr"> 5021 </span> (<a href='109stream-equal.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#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/3"</span>) -<span id="L5022" class="LineNr"> 5022 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/4"</span>) -<span id="L5023" class="LineNr"> 5023 </span> (<a href='109stream-equal.subx.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#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/5"</span>) -<span id="L5024" class="LineNr"> 5024 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/6"</span>) -<span id="L5025" class="LineNr"> 5025 </span> (<a href='109stream-equal.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#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/7"</span>) -<span id="L5026" class="LineNr"> 5026 </span> (<a href='109stream-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#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/8"</span>) -<span id="L5027" class="LineNr"> 5027 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/9"</span>) -<span id="L5028" class="LineNr"> 5028 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/10"</span>) -<span id="L5029" class="LineNr"> 5029 </span> (<a href='109stream-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#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/11"</span>) -<span id="L5030" class="LineNr"> 5030 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/12"</span>) -<span id="L5031" class="LineNr"> 5031 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/13"</span>) -<span id="L5032" class="LineNr"> 5032 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/14"</span>) -<span id="L5033" class="LineNr"> 5033 </span> (<a href='109stream-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#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/15"</span>) -<span id="L5034" class="LineNr"> 5034 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/16"</span>) -<span id="L5035" class="LineNr"> 5035 </span> (<a href='109stream-equal.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#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/17"</span>) -<span id="L5036" class="LineNr"> 5036 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/18"</span>) -<span id="L5037" class="LineNr"> 5037 </span> (<a href='109stream-equal.subx.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#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/19"</span>) -<span id="L5038" class="LineNr"> 5038 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-conditional-loops-and-local-vars/20"</span>) -<span id="L5039" class="LineNr"> 5039 </span> (<a href='109stream-equal.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#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/21"</span>) -<span id="L5040" class="LineNr"> 5040 </span> (<a href='109stream-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#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/22"</span>) -<span id="L5041" class="LineNr"> 5041 </span> (<a href='109stream-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#L4988'>test-convert-function-with-conditional-loops-and-local-vars</a>/23"</span>) -<span id="L5042" class="LineNr"> 5042 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5043" class="LineNr"> 5043 </span> 89/<- %esp 5/r32/ebp -<span id="L5044" class="LineNr"> 5044 </span> 5d/pop-to-ebp -<span id="L5045" class="LineNr"> 5045 </span> c3/return -<span id="L5046" class="LineNr"> 5046 </span> -<span id="L5047" class="LineNr"> 5047 </span><span class="subxTest">test-convert-function-with-unconditional-loops-and-local-vars</span>: -<span id="L5048" class="LineNr"> 5048 </span> <span class="subxComment"># An unconditional 'loop' after a 'var' in a block is emitted _after_ the</span> -<span id="L5049" class="LineNr"> 5049 </span> <span class="subxComment"># regular block cleanup. Any instructions after 'loop' are dead and</span> -<span id="L5050" class="LineNr"> 5050 </span> <span class="subxComment"># therefore skipped.</span> -<span id="L5051" class="LineNr"> 5051 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5052" class="LineNr"> 5052 </span> 55/push-ebp -<span id="L5053" class="LineNr"> 5053 </span> 89/<- %ebp 4/r32/esp -<span id="L5054" class="LineNr"> 5054 </span> <span class="subxComment"># setup</span> -<span id="L5055" class="LineNr"> 5055 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5056" class="LineNr"> 5056 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5057" class="LineNr"> 5057 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5058" class="LineNr"> 5058 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5059" class="LineNr"> 5059 </span> <span class="subxComment">#</span> -<span id="L5060" class="LineNr"> 5060 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5061" class="LineNr"> 5061 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5062" class="LineNr"> 5062 </span> (<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="L5063" class="LineNr"> 5063 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) -<span id="L5064" class="LineNr"> 5064 </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="L5065" class="LineNr"> 5065 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5066" class="LineNr"> 5066 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5067" class="LineNr"> 5067 </span> <span class="subxComment"># convert</span> -<span id="L5068" class="LineNr"> 5068 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5069" class="LineNr"> 5069 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5070" class="Folded"> 5070 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5076" class="LineNr"> 5076 </span> <span class="subxComment"># check output</span> -<span id="L5077" class="LineNr"> 5077 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/0"</span>) -<span id="L5078" class="LineNr"> 5078 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-loops-and-local-vars/1"</span>) -<span id="L5079" class="LineNr"> 5079 </span> (<a href='109stream-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#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/2"</span>) -<span id="L5080" class="LineNr"> 5080 </span> (<a href='109stream-equal.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#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/3"</span>) -<span id="L5081" class="LineNr"> 5081 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/4"</span>) -<span id="L5082" class="LineNr"> 5082 </span> (<a href='109stream-equal.subx.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#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/5"</span>) -<span id="L5083" class="LineNr"> 5083 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/6"</span>) -<span id="L5084" class="LineNr"> 5084 </span> (<a href='109stream-equal.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#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/7"</span>) -<span id="L5085" class="LineNr"> 5085 </span> (<a href='109stream-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#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/8"</span>) -<span id="L5086" class="LineNr"> 5086 </span> (<a href='109stream-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#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/9"</span>) -<span id="L5087" class="LineNr"> 5087 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/10"</span>) -<span id="L5088" class="LineNr"> 5088 </span> <span class="subxComment"># not emitted: ff 0/subop/increment *(ebp+0xfffffffc)</span> -<span id="L5089" class="LineNr"> 5089 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/11"</span>) -<span id="L5090" class="LineNr"> 5090 </span> (<a href='109stream-equal.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#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/12"</span>) -<span id="L5091" class="LineNr"> 5091 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/13"</span>) -<span id="L5092" class="LineNr"> 5092 </span> (<a href='109stream-equal.subx.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#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/14"</span>) -<span id="L5093" class="LineNr"> 5093 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-loops-and-local-vars/15"</span>) -<span id="L5094" class="LineNr"> 5094 </span> (<a href='109stream-equal.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#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/16"</span>) -<span id="L5095" class="LineNr"> 5095 </span> (<a href='109stream-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#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/17"</span>) -<span id="L5096" class="LineNr"> 5096 </span> (<a href='109stream-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#L5047'>test-convert-function-with-unconditional-loops-and-local-vars</a>/18"</span>) -<span id="L5097" class="LineNr"> 5097 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5098" class="LineNr"> 5098 </span> 89/<- %esp 5/r32/ebp -<span id="L5099" class="LineNr"> 5099 </span> 5d/pop-to-ebp -<span id="L5100" class="LineNr"> 5100 </span> c3/return -<span id="L5101" class="LineNr"> 5101 </span> -<span id="L5102" class="LineNr"> 5102 </span><span class="subxTest">test-convert-function-with-branches-and-loops-and-local-vars</span>: -<span id="L5103" class="LineNr"> 5103 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5104" class="LineNr"> 5104 </span> 55/push-ebp -<span id="L5105" class="LineNr"> 5105 </span> 89/<- %ebp 4/r32/esp -<span id="L5106" class="LineNr"> 5106 </span> <span class="subxComment"># setup</span> -<span id="L5107" class="LineNr"> 5107 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5108" class="LineNr"> 5108 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5109" class="LineNr"> 5109 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5110" class="LineNr"> 5110 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5111" class="LineNr"> 5111 </span> <span class="subxComment">#</span> -<span id="L5112" class="LineNr"> 5112 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5113" class="LineNr"> 5113 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5114" class="LineNr"> 5114 </span> (<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="L5115" class="LineNr"> 5115 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) -<span id="L5116" class="LineNr"> 5116 </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="L5117" class="LineNr"> 5117 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) -<span id="L5118" class="LineNr"> 5118 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5119" class="LineNr"> 5119 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5120" class="LineNr"> 5120 </span> <span class="subxComment"># convert</span> -<span id="L5121" class="LineNr"> 5121 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5122" class="LineNr"> 5122 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5123" class="Folded"> 5123 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5129" class="LineNr"> 5129 </span> <span class="subxComment"># check output</span> -<span id="L5130" class="LineNr"> 5130 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/0"</span>) -<span id="L5131" class="LineNr"> 5131 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-loops-and-local-vars/1"</span>) -<span id="L5132" class="LineNr"> 5132 </span> (<a href='109stream-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#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/2"</span>) -<span id="L5133" class="LineNr"> 5133 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/3"</span>) -<span id="L5134" class="LineNr"> 5134 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/4"</span>) -<span id="L5135" class="LineNr"> 5135 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/5"</span>) -<span id="L5136" class="LineNr"> 5136 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/6"</span>) -<span id="L5137" class="LineNr"> 5137 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/7"</span>) -<span id="L5138" class="LineNr"> 5138 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/8"</span>) -<span id="L5139" class="LineNr"> 5139 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/9"</span>) -<span id="L5140" class="LineNr"> 5140 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/10"</span>) -<span id="L5141" class="LineNr"> 5141 </span> (<a href='109stream-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#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/11"</span>) -<span id="L5142" class="LineNr"> 5142 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/12"</span>) -<span id="L5143" class="LineNr"> 5143 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/13"</span>) -<span id="L5144" class="LineNr"> 5144 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/14"</span>) -<span id="L5145" class="LineNr"> 5145 </span> (<a href='109stream-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#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/15"</span>) -<span id="L5146" class="LineNr"> 5146 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/16"</span>) -<span id="L5147" class="LineNr"> 5147 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/17"</span>) -<span id="L5148" class="LineNr"> 5148 </span> (<a href='109stream-equal.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#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/18"</span>) -<span id="L5149" class="LineNr"> 5149 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/19"</span>) -<span id="L5150" class="LineNr"> 5150 </span> (<a href='109stream-equal.subx.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#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/20"</span>) -<span id="L5151" class="LineNr"> 5151 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-loops-and-local-vars/21"</span>) -<span id="L5152" class="LineNr"> 5152 </span> (<a href='109stream-equal.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#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/22"</span>) -<span id="L5153" class="LineNr"> 5153 </span> (<a href='109stream-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#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/23"</span>) -<span id="L5154" class="LineNr"> 5154 </span> (<a href='109stream-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#L5102'>test-convert-function-with-branches-and-loops-and-local-vars</a>/24"</span>) -<span id="L5155" class="LineNr"> 5155 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5156" class="LineNr"> 5156 </span> 89/<- %esp 5/r32/ebp -<span id="L5157" class="LineNr"> 5157 </span> 5d/pop-to-ebp -<span id="L5158" class="LineNr"> 5158 </span> c3/return -<span id="L5159" class="LineNr"> 5159 </span> -<span id="L5160" class="LineNr"> 5160 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</span>: -<span id="L5161" class="LineNr"> 5161 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5162" class="LineNr"> 5162 </span> 55/push-ebp -<span id="L5163" class="LineNr"> 5163 </span> 89/<- %ebp 4/r32/esp -<span id="L5164" class="LineNr"> 5164 </span> <span class="subxComment"># setup</span> -<span id="L5165" class="LineNr"> 5165 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5166" class="LineNr"> 5166 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5167" class="LineNr"> 5167 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5168" class="LineNr"> 5168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5169" class="LineNr"> 5169 </span> <span class="subxComment">#</span> -<span id="L5170" class="LineNr"> 5170 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5171" class="LineNr"> 5171 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) -<span id="L5172" class="LineNr"> 5172 </span> (<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="L5173" class="LineNr"> 5173 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5174" class="LineNr"> 5174 </span> (<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="L5175" class="LineNr"> 5175 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->= a\n"</span>) -<span id="L5176" class="LineNr"> 5176 </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="L5177" class="LineNr"> 5177 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) -<span id="L5178" class="LineNr"> 5178 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5179" class="LineNr"> 5179 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5180" class="LineNr"> 5180 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5181" class="LineNr"> 5181 </span> <span class="subxComment"># convert</span> -<span id="L5182" class="LineNr"> 5182 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5183" class="LineNr"> 5183 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5184" class="Folded"> 5184 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5190" class="LineNr"> 5190 </span> <span class="subxComment"># check output</span> -<span id="L5191" class="LineNr"> 5191 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/0"</span>) -<span id="L5192" class="LineNr"> 5192 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars/1"</span>) -<span id="L5193" class="LineNr"> 5193 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/2"</span>) -<span id="L5194" class="LineNr"> 5194 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/3"</span>) -<span id="L5195" class="LineNr"> 5195 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/4"</span>) -<span id="L5196" class="LineNr"> 5196 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/5"</span>) -<span id="L5197" class="LineNr"> 5197 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/6"</span>) -<span id="L5198" class="LineNr"> 5198 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/7"</span>) -<span id="L5199" class="LineNr"> 5199 </span> (<a href='109stream-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#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/8"</span>) -<span id="L5200" class="LineNr"> 5200 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/9"</span>) -<span id="L5201" class="LineNr"> 5201 </span> (<a href='109stream-equal.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#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/10"</span>) -<span id="L5202" class="LineNr"> 5202 </span> (<a href='109stream-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#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/11"</span>) -<span id="L5203" class="LineNr"> 5203 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/12"</span>) -<span id="L5204" class="LineNr"> 5204 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/13"</span>) -<span id="L5205" class="LineNr"> 5205 </span> (<a href='109stream-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#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/14"</span>) -<span id="L5206" class="LineNr"> 5206 </span> (<a href='109stream-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#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/15"</span>) -<span id="L5207" class="LineNr"> 5207 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/16"</span>) -<span id="L5208" class="LineNr"> 5208 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/17"</span>) -<span id="L5209" class="LineNr"> 5209 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/18"</span>) -<span id="L5210" class="LineNr"> 5210 </span> (<a href='109stream-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#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/19"</span>) -<span id="L5211" class="LineNr"> 5211 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/20"</span>) -<span id="L5212" class="LineNr"> 5212 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/21"</span>) -<span id="L5213" class="LineNr"> 5213 </span> (<a href='109stream-equal.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#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/22"</span>) -<span id="L5214" class="LineNr"> 5214 </span> (<a href='109stream-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#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/23"</span>) -<span id="L5215" class="LineNr"> 5215 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/24"</span>) -<span id="L5216" class="LineNr"> 5216 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/25"</span>) -<span id="L5217" class="LineNr"> 5217 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/26"</span>) -<span id="L5218" class="LineNr"> 5218 </span> (<a href='109stream-equal.subx.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#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/27"</span>) -<span id="L5219" class="LineNr"> 5219 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars/28"</span>) -<span id="L5220" class="LineNr"> 5220 </span> (<a href='109stream-equal.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#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/29"</span>) -<span id="L5221" class="LineNr"> 5221 </span> (<a href='109stream-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#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/30"</span>) -<span id="L5222" class="LineNr"> 5222 </span> (<a href='109stream-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#L5160'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/31"</span>) -<span id="L5223" class="LineNr"> 5223 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5224" class="LineNr"> 5224 </span> 89/<- %esp 5/r32/ebp -<span id="L5225" class="LineNr"> 5225 </span> 5d/pop-to-ebp -<span id="L5226" class="LineNr"> 5226 </span> c3/return -<span id="L5227" class="LineNr"> 5227 </span> -<span id="L5228" class="LineNr"> 5228 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</span>: -<span id="L5229" class="LineNr"> 5229 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5230" class="LineNr"> 5230 </span> 55/push-ebp -<span id="L5231" class="LineNr"> 5231 </span> 89/<- %ebp 4/r32/esp -<span id="L5232" class="LineNr"> 5232 </span> <span class="subxComment"># setup</span> -<span id="L5233" class="LineNr"> 5233 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5234" class="LineNr"> 5234 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5235" class="LineNr"> 5235 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5236" class="LineNr"> 5236 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5237" class="LineNr"> 5237 </span> <span class="subxComment"># non-local conditional branch from a block without a local variable,</span> -<span id="L5238" class="LineNr"> 5238 </span> <span class="subxComment"># unwinding a local on the stack</span> -<span id="L5239" class="LineNr"> 5239 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5240" class="LineNr"> 5240 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) -<span id="L5241" class="LineNr"> 5241 </span> (<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="L5242" class="LineNr"> 5242 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5243" class="LineNr"> 5243 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->= a\n"</span>) -<span id="L5244" class="LineNr"> 5244 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5245" class="LineNr"> 5245 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5246" class="LineNr"> 5246 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5247" class="LineNr"> 5247 </span> <span class="subxComment"># convert</span> -<span id="L5248" class="LineNr"> 5248 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5249" class="LineNr"> 5249 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5250" class="Folded"> 5250 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5256" class="LineNr"> 5256 </span> <span class="subxComment"># check output</span> -<span id="L5257" class="LineNr"> 5257 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/0"</span>) -<span id="L5258" class="LineNr"> 5258 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2/1"</span>) -<span id="L5259" class="LineNr"> 5259 </span> (<a href='109stream-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#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/2"</span>) -<span id="L5260" class="LineNr"> 5260 </span> (<a href='109stream-equal.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#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/3"</span>) -<span id="L5261" class="LineNr"> 5261 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/4"</span>) -<span id="L5262" class="LineNr"> 5262 </span> (<a href='109stream-equal.subx.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#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/5"</span>) -<span id="L5263" class="LineNr"> 5263 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/6"</span>) -<span id="L5264" class="LineNr"> 5264 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/7"</span>) -<span id="L5265" class="LineNr"> 5265 </span> (<a href='109stream-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#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/8"</span>) -<span id="L5266" class="LineNr"> 5266 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/9"</span>) -<span id="L5267" class="LineNr"> 5267 </span> (<a href='109stream-equal.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#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/10"</span>) -<span id="L5268" class="LineNr"> 5268 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/11"</span>) -<span id="L5269" class="LineNr"> 5269 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/12"</span>) -<span id="L5270" class="LineNr"> 5270 </span> (<a href='109stream-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#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/13"</span>) -<span id="L5271" class="LineNr"> 5271 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/14"</span>) -<span id="L5272" class="LineNr"> 5272 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/15"</span>) -<span id="L5273" class="LineNr"> 5273 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/16"</span>) -<span id="L5274" class="LineNr"> 5274 </span> (<a href='109stream-equal.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#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/17"</span>) -<span id="L5275" class="LineNr"> 5275 </span> (<a href='109stream-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#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/18"</span>) -<span id="L5276" class="LineNr"> 5276 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/19"</span>) -<span id="L5277" class="LineNr"> 5277 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/20"</span>) -<span id="L5278" class="LineNr"> 5278 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/21"</span>) -<span id="L5279" class="LineNr"> 5279 </span> (<a href='109stream-equal.subx.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#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/22"</span>) -<span id="L5280" class="LineNr"> 5280 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2/23"</span>) -<span id="L5281" class="LineNr"> 5281 </span> (<a href='109stream-equal.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#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/24"</span>) -<span id="L5282" class="LineNr"> 5282 </span> (<a href='109stream-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#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/25"</span>) -<span id="L5283" class="LineNr"> 5283 </span> (<a href='109stream-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#L5228'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/26"</span>) -<span id="L5284" class="LineNr"> 5284 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5285" class="LineNr"> 5285 </span> 89/<- %esp 5/r32/ebp -<span id="L5286" class="LineNr"> 5286 </span> 5d/pop-to-ebp -<span id="L5287" class="LineNr"> 5287 </span> c3/return -<span id="L5288" class="LineNr"> 5288 </span> -<span id="L5289" class="LineNr"> 5289 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</span>: -<span id="L5290" class="LineNr"> 5290 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5291" class="LineNr"> 5291 </span> 55/push-ebp -<span id="L5292" class="LineNr"> 5292 </span> 89/<- %ebp 4/r32/esp -<span id="L5293" class="LineNr"> 5293 </span> <span class="subxComment"># setup</span> -<span id="L5294" class="LineNr"> 5294 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5295" class="LineNr"> 5295 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5296" class="LineNr"> 5296 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5297" class="LineNr"> 5297 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5298" class="LineNr"> 5298 </span> <span class="subxComment"># non-local unconditional branch from a block without a local variable,</span> -<span id="L5299" class="LineNr"> 5299 </span> <span class="subxComment"># unwinding a local on the stack</span> -<span id="L5300" class="LineNr"> 5300 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5301" class="LineNr"> 5301 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) -<span id="L5302" class="LineNr"> 5302 </span> (<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="L5303" class="LineNr"> 5303 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5304" class="LineNr"> 5304 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break a\n"</span>) -<span id="L5305" class="LineNr"> 5305 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5306" class="LineNr"> 5306 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5307" class="LineNr"> 5307 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5308" class="LineNr"> 5308 </span> <span class="subxComment"># convert</span> -<span id="L5309" class="LineNr"> 5309 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5310" class="LineNr"> 5310 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5311" class="Folded"> 5311 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5317" class="LineNr"> 5317 </span> <span class="subxComment"># check output</span> -<span id="L5318" class="LineNr"> 5318 </span> (<a href='109stream-equal.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#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/0"</span>) -<span id="L5319" class="LineNr"> 5319 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3/1"</span>) -<span id="L5320" class="LineNr"> 5320 </span> (<a href='109stream-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#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/2"</span>) -<span id="L5321" class="LineNr"> 5321 </span> (<a href='109stream-equal.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#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/3"</span>) -<span id="L5322" class="LineNr"> 5322 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/4"</span>) -<span id="L5323" class="LineNr"> 5323 </span> (<a href='109stream-equal.subx.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#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/5"</span>) -<span id="L5324" class="LineNr"> 5324 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/6"</span>) -<span id="L5325" class="LineNr"> 5325 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/7"</span>) -<span id="L5326" class="LineNr"> 5326 </span> (<a href='109stream-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#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/8"</span>) -<span id="L5327" class="LineNr"> 5327 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/9"</span>) -<span id="L5328" class="LineNr"> 5328 </span> (<a href='109stream-equal.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#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/10"</span>) -<span id="L5329" class="LineNr"> 5329 </span> (<a href='109stream-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#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/11"</span>) -<span id="L5330" class="LineNr"> 5330 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/12"</span>) -<span id="L5331" class="LineNr"> 5331 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/14"</span>) -<span id="L5332" class="LineNr"> 5332 </span> (<a href='109stream-equal.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#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/15"</span>) -<span id="L5333" class="LineNr"> 5333 </span> (<a href='109stream-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#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/16"</span>) -<span id="L5334" class="LineNr"> 5334 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/17"</span>) -<span id="L5335" class="LineNr"> 5335 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/18"</span>) -<span id="L5336" class="LineNr"> 5336 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/19"</span>) -<span id="L5337" class="LineNr"> 5337 </span> (<a href='109stream-equal.subx.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#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/20"</span>) -<span id="L5338" class="LineNr"> 5338 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3/21"</span>) -<span id="L5339" class="LineNr"> 5339 </span> (<a href='109stream-equal.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#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/22"</span>) -<span id="L5340" class="LineNr"> 5340 </span> (<a href='109stream-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#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/23"</span>) -<span id="L5341" class="LineNr"> 5341 </span> (<a href='109stream-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#L5289'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/24"</span>) -<span id="L5342" class="LineNr"> 5342 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5343" class="LineNr"> 5343 </span> 89/<- %esp 5/r32/ebp -<span id="L5344" class="LineNr"> 5344 </span> 5d/pop-to-ebp -<span id="L5345" class="LineNr"> 5345 </span> c3/return -<span id="L5346" class="LineNr"> 5346 </span> -<span id="L5347" class="LineNr"> 5347 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</span>: -<span id="L5348" class="LineNr"> 5348 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5349" class="LineNr"> 5349 </span> 55/push-ebp -<span id="L5350" class="LineNr"> 5350 </span> 89/<- %ebp 4/r32/esp -<span id="L5351" class="LineNr"> 5351 </span> <span class="subxComment"># setup</span> -<span id="L5352" class="LineNr"> 5352 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5353" class="LineNr"> 5353 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5354" class="LineNr"> 5354 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5355" class="LineNr"> 5355 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5356" class="LineNr"> 5356 </span> <span class="subxComment">#</span> -<span id="L5357" class="LineNr"> 5357 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5358" class="LineNr"> 5358 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) -<span id="L5359" class="LineNr"> 5359 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/esi: int <- copy 0\n"</span>) -<span id="L5360" class="LineNr"> 5360 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5361" class="LineNr"> 5361 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break a\n"</span>) -<span id="L5362" class="LineNr"> 5362 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5363" class="LineNr"> 5363 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5364" class="LineNr"> 5364 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5365" class="LineNr"> 5365 </span> <span class="subxComment"># convert</span> -<span id="L5366" class="LineNr"> 5366 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5367" class="LineNr"> 5367 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5368" class="Folded"> 5368 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5374" class="LineNr"> 5374 </span> <span class="subxComment"># check output</span> -<span id="L5375" class="LineNr"> 5375 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/0"</span>) -<span id="L5376" class="LineNr"> 5376 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4/1"</span>) -<span id="L5377" class="LineNr"> 5377 </span> (<a href='109stream-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#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/2"</span>) -<span id="L5378" class="LineNr"> 5378 </span> (<a href='109stream-equal.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#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/3"</span>) -<span id="L5379" class="LineNr"> 5379 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/4"</span>) -<span id="L5380" class="LineNr"> 5380 </span> (<a href='109stream-equal.subx.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#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/5"</span>) -<span id="L5381" class="LineNr"> 5381 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/6"</span>) -<span id="L5382" class="LineNr"> 5382 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/7"</span>) -<span id="L5383" class="LineNr"> 5383 </span> (<a href='109stream-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#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/8"</span>) -<span id="L5384" class="LineNr"> 5384 </span> (<a href='109stream-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#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/9"</span>) -<span id="L5385" class="LineNr"> 5385 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/10"</span>) -<span id="L5386" class="LineNr"> 5386 </span> (<a href='109stream-equal.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#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/11"</span>) -<span id="L5387" class="LineNr"> 5387 </span> (<a href='109stream-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#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/12"</span>) -<span id="L5388" class="LineNr"> 5388 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/13"</span>) -<span id="L5389" class="LineNr"> 5389 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/14"</span>) -<span id="L5390" class="LineNr"> 5390 </span> (<a href='109stream-equal.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#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/15"</span>) -<span id="L5391" class="LineNr"> 5391 </span> (<a href='109stream-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#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/16"</span>) -<span id="L5392" class="LineNr"> 5392 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/17"</span>) -<span id="L5393" class="LineNr"> 5393 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/18"</span>) -<span id="L5394" class="LineNr"> 5394 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/19"</span>) -<span id="L5395" class="LineNr"> 5395 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/20"</span>) -<span id="L5396" class="LineNr"> 5396 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4/21"</span>) -<span id="L5397" class="LineNr"> 5397 </span> (<a href='109stream-equal.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#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/22"</span>) -<span id="L5398" class="LineNr"> 5398 </span> (<a href='109stream-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#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/23"</span>) -<span id="L5399" class="LineNr"> 5399 </span> (<a href='109stream-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#L5347'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/24"</span>) -<span id="L5400" class="LineNr"> 5400 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5401" class="LineNr"> 5401 </span> 89/<- %esp 5/r32/ebp -<span id="L5402" class="LineNr"> 5402 </span> 5d/pop-to-ebp -<span id="L5403" class="LineNr"> 5403 </span> c3/return -<span id="L5404" class="LineNr"> 5404 </span> -<span id="L5405" class="LineNr"> 5405 </span><span class="subxTest">test-convert-function-with-nonlocal-unconditional-break-and-local-vars</span>: -<span id="L5406" class="LineNr"> 5406 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5407" class="LineNr"> 5407 </span> 55/push-ebp -<span id="L5408" class="LineNr"> 5408 </span> 89/<- %ebp 4/r32/esp -<span id="L5409" class="LineNr"> 5409 </span> <span class="subxComment"># setup</span> -<span id="L5410" class="LineNr"> 5410 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5411" class="LineNr"> 5411 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5412" class="LineNr"> 5412 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5413" class="LineNr"> 5413 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5414" class="LineNr"> 5414 </span> <span class="subxComment">#</span> -<span id="L5415" class="LineNr"> 5415 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5416" class="LineNr"> 5416 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) -<span id="L5417" class="LineNr"> 5417 </span> (<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="L5418" class="LineNr"> 5418 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5419" class="LineNr"> 5419 </span> (<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="L5420" class="LineNr"> 5420 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break a\n"</span>) -<span id="L5421" class="LineNr"> 5421 </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="L5422" class="LineNr"> 5422 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5423" class="LineNr"> 5423 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5424" class="LineNr"> 5424 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5425" class="LineNr"> 5425 </span> <span class="subxComment"># convert</span> -<span id="L5426" class="LineNr"> 5426 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5427" class="LineNr"> 5427 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5428" class="Folded"> 5428 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5434" class="LineNr"> 5434 </span> <span class="subxComment"># check output</span> -<span id="L5435" class="LineNr"> 5435 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/0"</span>) -<span id="L5436" class="LineNr"> 5436 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-break-and-local-vars/1"</span>) -<span id="L5437" class="LineNr"> 5437 </span> (<a href='109stream-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#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/2"</span>) -<span id="L5438" class="LineNr"> 5438 </span> (<a href='109stream-equal.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#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/3"</span>) -<span id="L5439" class="LineNr"> 5439 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/4"</span>) -<span id="L5440" class="LineNr"> 5440 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/5"</span>) -<span id="L5441" class="LineNr"> 5441 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/6"</span>) -<span id="L5442" class="LineNr"> 5442 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/7"</span>) -<span id="L5443" class="LineNr"> 5443 </span> (<a href='109stream-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#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/8"</span>) -<span id="L5444" class="LineNr"> 5444 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/9"</span>) -<span id="L5445" class="LineNr"> 5445 </span> (<a href='109stream-equal.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#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/10"</span>) -<span id="L5446" class="LineNr"> 5446 </span> (<a href='109stream-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#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/11"</span>) -<span id="L5447" class="LineNr"> 5447 </span> (<a href='109stream-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#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/12"</span>) -<span id="L5448" class="LineNr"> 5448 </span> (<a href='109stream-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#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/13"</span>) -<span id="L5449" class="LineNr"> 5449 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/14"</span>) -<span id="L5450" class="LineNr"> 5450 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/15"</span>) -<span id="L5451" class="LineNr"> 5451 </span> (<a href='109stream-equal.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#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/16"</span>) -<span id="L5452" class="LineNr"> 5452 </span> (<a href='109stream-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#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/17"</span>) -<span id="L5453" class="LineNr"> 5453 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/18"</span>) -<span id="L5454" class="LineNr"> 5454 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/19"</span>) -<span id="L5455" class="LineNr"> 5455 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/20"</span>) -<span id="L5456" class="LineNr"> 5456 </span> (<a href='109stream-equal.subx.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#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/21"</span>) -<span id="L5457" class="LineNr"> 5457 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-break-and-local-vars/22"</span>) -<span id="L5458" class="LineNr"> 5458 </span> (<a href='109stream-equal.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#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/23"</span>) -<span id="L5459" class="LineNr"> 5459 </span> (<a href='109stream-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#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/24"</span>) -<span id="L5460" class="LineNr"> 5460 </span> (<a href='109stream-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#L5405'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/25"</span>) -<span id="L5461" class="LineNr"> 5461 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5462" class="LineNr"> 5462 </span> 89/<- %esp 5/r32/ebp -<span id="L5463" class="LineNr"> 5463 </span> 5d/pop-to-ebp -<span id="L5464" class="LineNr"> 5464 </span> c3/return -<span id="L5465" class="LineNr"> 5465 </span> -<span id="L5466" class="LineNr"> 5466 </span><span class="subxTest">test-convert-function-with-unconditional-break-and-local-vars</span>: -<span id="L5467" class="LineNr"> 5467 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5468" class="LineNr"> 5468 </span> 55/push-ebp -<span id="L5469" class="LineNr"> 5469 </span> 89/<- %ebp 4/r32/esp -<span id="L5470" class="LineNr"> 5470 </span> <span class="subxComment"># setup</span> -<span id="L5471" class="LineNr"> 5471 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5472" class="LineNr"> 5472 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5473" class="LineNr"> 5473 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5474" class="LineNr"> 5474 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5475" class="LineNr"> 5475 </span> <span class="subxComment">#</span> -<span id="L5476" class="LineNr"> 5476 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5477" class="LineNr"> 5477 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5478" class="LineNr"> 5478 </span> (<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="L5479" class="LineNr"> 5479 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5480" class="LineNr"> 5480 </span> (<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="L5481" class="LineNr"> 5481 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break\n"</span>) -<span id="L5482" class="LineNr"> 5482 </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="L5483" class="LineNr"> 5483 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5484" class="LineNr"> 5484 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5485" class="LineNr"> 5485 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5486" class="LineNr"> 5486 </span> <span class="subxComment"># convert</span> -<span id="L5487" class="LineNr"> 5487 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5488" class="LineNr"> 5488 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5489" class="Folded"> 5489 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5495" class="LineNr"> 5495 </span> <span class="subxComment"># check output</span> -<span id="L5496" class="LineNr"> 5496 </span> (<a href='109stream-equal.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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/0"</span>) -<span id="L5497" class="LineNr"> 5497 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-break-and-local-vars/1"</span>) -<span id="L5498" class="LineNr"> 5498 </span> (<a href='109stream-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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/2"</span>) -<span id="L5499" class="LineNr"> 5499 </span> (<a href='109stream-equal.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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/3"</span>) -<span id="L5500" class="LineNr"> 5500 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/4"</span>) -<span id="L5501" class="LineNr"> 5501 </span> (<a href='109stream-equal.subx.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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/5"</span>) -<span id="L5502" class="LineNr"> 5502 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/6"</span>) -<span id="L5503" class="LineNr"> 5503 </span> (<a href='109stream-equal.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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/7"</span>) -<span id="L5504" class="LineNr"> 5504 </span> (<a href='109stream-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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/8"</span>) -<span id="L5505" class="LineNr"> 5505 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/9"</span>) -<span id="L5506" class="LineNr"> 5506 </span> (<a href='109stream-equal.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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/10"</span>) -<span id="L5507" class="LineNr"> 5507 </span> (<a href='109stream-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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/11"</span>) -<span id="L5508" class="LineNr"> 5508 </span> (<a href='109stream-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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/12"</span>) -<span id="L5509" class="LineNr"> 5509 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/13"</span>) -<span id="L5510" class="LineNr"> 5510 </span> (<a href='109stream-equal.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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/14"</span>) -<span id="L5511" class="LineNr"> 5511 </span> (<a href='109stream-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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/15"</span>) -<span id="L5512" class="LineNr"> 5512 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/16"</span>) -<span id="L5513" class="LineNr"> 5513 </span> (<a href='109stream-equal.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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/17"</span>) -<span id="L5514" class="LineNr"> 5514 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/18"</span>) -<span id="L5515" class="LineNr"> 5515 </span> (<a href='109stream-equal.subx.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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/19"</span>) -<span id="L5516" class="LineNr"> 5516 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-break-and-local-vars/20"</span>) -<span id="L5517" class="LineNr"> 5517 </span> (<a href='109stream-equal.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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/21"</span>) -<span id="L5518" class="LineNr"> 5518 </span> (<a href='109stream-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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/22"</span>) -<span id="L5519" class="LineNr"> 5519 </span> (<a href='109stream-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#L5466'>test-convert-function-with-unconditional-break-and-local-vars</a>/23"</span>) -<span id="L5520" class="LineNr"> 5520 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5521" class="LineNr"> 5521 </span> 89/<- %esp 5/r32/ebp -<span id="L5522" class="LineNr"> 5522 </span> 5d/pop-to-ebp -<span id="L5523" class="LineNr"> 5523 </span> c3/return -<span id="L5524" class="LineNr"> 5524 </span> -<span id="L5525" class="LineNr"> 5525 </span><span class="subxTest">test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</span>: -<span id="L5526" class="LineNr"> 5526 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5527" class="LineNr"> 5527 </span> 55/push-ebp -<span id="L5528" class="LineNr"> 5528 </span> 89/<- %ebp 4/r32/esp -<span id="L5529" class="LineNr"> 5529 </span> <span class="subxComment"># setup</span> -<span id="L5530" class="LineNr"> 5530 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5531" class="LineNr"> 5531 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5532" class="LineNr"> 5532 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5533" class="LineNr"> 5533 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5534" class="LineNr"> 5534 </span> <span class="subxComment">#</span> -<span id="L5535" class="LineNr"> 5535 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5536" class="LineNr"> 5536 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) -<span id="L5537" class="LineNr"> 5537 </span> (<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="L5538" class="LineNr"> 5538 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5539" class="LineNr"> 5539 </span> (<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="L5540" class="LineNr"> 5540 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop a\n"</span>) -<span id="L5541" class="LineNr"> 5541 </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="L5542" class="LineNr"> 5542 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5543" class="LineNr"> 5543 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5544" class="LineNr"> 5544 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5545" class="LineNr"> 5545 </span> <span class="subxComment"># convert</span> -<span id="L5546" class="LineNr"> 5546 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5547" class="LineNr"> 5547 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5548" class="Folded"> 5548 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5554" class="LineNr"> 5554 </span> <span class="subxComment"># check output</span> -<span id="L5555" class="LineNr"> 5555 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/0"</span>) -<span id="L5556" class="LineNr"> 5556 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-loop-and-local-vars/1"</span>) -<span id="L5557" class="LineNr"> 5557 </span> (<a href='109stream-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#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/2"</span>) -<span id="L5558" class="LineNr"> 5558 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/3"</span>) -<span id="L5559" class="LineNr"> 5559 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/4"</span>) -<span id="L5560" class="LineNr"> 5560 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/5"</span>) -<span id="L5561" class="LineNr"> 5561 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/6"</span>) -<span id="L5562" class="LineNr"> 5562 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/7"</span>) -<span id="L5563" class="LineNr"> 5563 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/8"</span>) -<span id="L5564" class="LineNr"> 5564 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/9"</span>) -<span id="L5565" class="LineNr"> 5565 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/10"</span>) -<span id="L5566" class="LineNr"> 5566 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/11"</span>) -<span id="L5567" class="LineNr"> 5567 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/12"</span>) -<span id="L5568" class="LineNr"> 5568 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/13"</span>) -<span id="L5569" class="LineNr"> 5569 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/14"</span>) -<span id="L5570" class="LineNr"> 5570 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/15"</span>) -<span id="L5571" class="LineNr"> 5571 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/16"</span>) -<span id="L5572" class="LineNr"> 5572 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/17"</span>) -<span id="L5573" class="LineNr"> 5573 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/18"</span>) -<span id="L5574" class="LineNr"> 5574 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/19"</span>) -<span id="L5575" class="LineNr"> 5575 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/20"</span>) -<span id="L5576" class="LineNr"> 5576 </span> (<a href='109stream-equal.subx.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#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/21"</span>) -<span id="L5577" class="LineNr"> 5577 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-loop-and-local-vars/22"</span>) -<span id="L5578" class="LineNr"> 5578 </span> (<a href='109stream-equal.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#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/23"</span>) -<span id="L5579" class="LineNr"> 5579 </span> (<a href='109stream-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#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/24"</span>) -<span id="L5580" class="LineNr"> 5580 </span> (<a href='109stream-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#L5525'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/25"</span>) -<span id="L5581" class="LineNr"> 5581 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5582" class="LineNr"> 5582 </span> 89/<- %esp 5/r32/ebp -<span id="L5583" class="LineNr"> 5583 </span> 5d/pop-to-ebp -<span id="L5584" class="LineNr"> 5584 </span> c3/return -<span id="L5585" class="LineNr"> 5585 </span> -<span id="L5586" class="LineNr"> 5586 </span><span class="subxTest">test-convert-function-with-local-array-var-in-mem</span>: -<span id="L5587" class="LineNr"> 5587 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5588" class="LineNr"> 5588 </span> 55/push-ebp -<span id="L5589" class="LineNr"> 5589 </span> 89/<- %ebp 4/r32/esp -<span id="L5590" class="LineNr"> 5590 </span> <span class="subxComment"># setup</span> -<span id="L5591" class="LineNr"> 5591 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5592" class="LineNr"> 5592 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5593" class="LineNr"> 5593 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5594" class="LineNr"> 5594 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5595" class="LineNr"> 5595 </span> <span class="subxComment">#</span> -<span id="L5596" class="LineNr"> 5596 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5597" class="LineNr"> 5597 </span> (<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="L5598" class="LineNr"> 5598 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5599" class="LineNr"> 5599 </span> <span class="subxComment"># convert</span> -<span id="L5600" class="LineNr"> 5600 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5601" class="LineNr"> 5601 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5602" class="Folded"> 5602 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5608" class="LineNr"> 5608 </span> <span class="subxComment"># check output</span> -<span id="L5609" class="LineNr"> 5609 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5586'>test-convert-function-with-local-array-var-in-mem</a>/0"</span>) -<span id="L5610" class="LineNr"> 5610 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-array-var-in-mem/1"</span>) -<span id="L5611" class="LineNr"> 5611 </span> (<a href='109stream-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#L5586'>test-convert-function-with-local-array-var-in-mem</a>/2"</span>) -<span id="L5612" class="LineNr"> 5612 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5586'>test-convert-function-with-local-array-var-in-mem</a>/3"</span>) -<span id="L5613" class="LineNr"> 5613 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5586'>test-convert-function-with-local-array-var-in-mem</a>/4"</span>) -<span id="L5614" class="LineNr"> 5614 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5586'>test-convert-function-with-local-array-var-in-mem</a>/5"</span>) -<span id="L5615" class="LineNr"> 5615 </span> <span class="subxComment"># define x</span> -<span id="L5616" class="LineNr"> 5616 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5586'>test-convert-function-with-local-array-var-in-mem</a>/7"</span>) -<span id="L5617" class="LineNr"> 5617 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5586'>test-convert-function-with-local-array-var-in-mem</a>/8"</span>) -<span id="L5618" class="LineNr"> 5618 </span> <span class="subxComment"># reclaim x</span> -<span id="L5619" class="LineNr"> 5619 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5586'>test-convert-function-with-local-array-var-in-mem</a>/9"</span>) -<span id="L5620" class="LineNr"> 5620 </span> <span class="subxComment">#</span> -<span id="L5621" class="LineNr"> 5621 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5586'>test-convert-function-with-local-array-var-in-mem</a>/10"</span>) -<span id="L5622" class="LineNr"> 5622 </span> (<a href='109stream-equal.subx.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#L5586'>test-convert-function-with-local-array-var-in-mem</a>/11"</span>) -<span id="L5623" class="LineNr"> 5623 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-array-var-in-mem/12"</span>) -<span id="L5624" class="LineNr"> 5624 </span> (<a href='109stream-equal.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#L5586'>test-convert-function-with-local-array-var-in-mem</a>/13"</span>) -<span id="L5625" class="LineNr"> 5625 </span> (<a href='109stream-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#L5586'>test-convert-function-with-local-array-var-in-mem</a>/14"</span>) -<span id="L5626" class="LineNr"> 5626 </span> (<a href='109stream-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#L5586'>test-convert-function-with-local-array-var-in-mem</a>/15"</span>) -<span id="L5627" class="LineNr"> 5627 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5628" class="LineNr"> 5628 </span> 89/<- %esp 5/r32/ebp -<span id="L5629" class="LineNr"> 5629 </span> 5d/pop-to-ebp -<span id="L5630" class="LineNr"> 5630 </span> c3/return -<span id="L5631" class="LineNr"> 5631 </span> -<span id="L5632" class="LineNr"> 5632 </span><span class="subxTest">test-array-size-in-hex</span>: -<span id="L5633" class="LineNr"> 5633 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5634" class="LineNr"> 5634 </span> 55/push-ebp -<span id="L5635" class="LineNr"> 5635 </span> 89/<- %ebp 4/r32/esp -<span id="L5636" class="LineNr"> 5636 </span> <span class="subxComment"># setup</span> -<span id="L5637" class="LineNr"> 5637 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5638" class="LineNr"> 5638 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5639" class="LineNr"> 5639 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5640" class="LineNr"> 5640 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5641" class="LineNr"> 5641 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L5642" class="LineNr"> 5642 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L5643" class="LineNr"> 5643 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L5644" class="LineNr"> 5644 </span> 68/push 0/imm32 -<span id="L5645" class="LineNr"> 5645 </span> 68/push 0/imm32 -<span id="L5646" class="LineNr"> 5646 </span> 89/<- %edx 4/r32/esp -<span id="L5647" class="LineNr"> 5647 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L5648" class="LineNr"> 5648 </span> <span class="subxComment">#</span> -<span id="L5649" class="LineNr"> 5649 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5650" class="LineNr"> 5650 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array int 10)\n"</span>) -<span id="L5651" class="LineNr"> 5651 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5652" class="LineNr"> 5652 </span> <span class="subxComment"># convert</span> -<span id="L5653" class="LineNr"> 5653 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L5654" class="LineNr"> 5654 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L5655" class="LineNr"> 5655 </span> <span class="subxComment"># restore ed</span> -<span id="L5656" class="LineNr"> 5656 </span> 89/<- %edx 4/r32/esp -<span id="L5657" class="LineNr"> 5657 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5658" class="LineNr"> 5658 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L5659" class="Folded"> 5659 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5665" class="LineNr"> 5665 </span> <span class="subxComment"># check output</span> -<span id="L5666" class="LineNr"> 5666 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L5632'>test-array-size-in-hex</a>: output should be empty"</span>) -<span id="L5667" class="LineNr"> 5667 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"literal integers are always hex in Mu; start '10' with a '0x' to be unambiguous, converting it to hexadecimal as necessary."</span> <span class="Constant">"F - <a href='mu.subx.html#L5632'>test-array-size-in-hex</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L5668" class="LineNr"> 5668 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L5669" class="LineNr"> 5669 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L5632'>test-array-size-in-hex</a>: exit status"</span>) -<span id="L5670" class="LineNr"> 5670 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L5671" class="LineNr"> 5671 </span> 81 0/subop/add %esp 8/imm32 -<span id="L5672" class="LineNr"> 5672 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4138" class="LineNr"> 4138 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L4139" class="LineNr"> 4139 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L4140" class="LineNr"> 4140 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L4141" class="LineNr"> 4141 </span> 68/push 0/imm32 +<span id="L4142" class="LineNr"> 4142 </span> 68/push 0/imm32 +<span id="L4143" class="LineNr"> 4143 </span> 89/<- %edx 4/r32/esp +<span id="L4144" class="LineNr"> 4144 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L4145" class="LineNr"> 4145 </span> <span class="subxComment">#</span> +<span id="L4146" class="LineNr"> 4146 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4147" class="LineNr"> 4147 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) +<span id="L4148" class="LineNr"> 4148 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4149" class="LineNr"> 4149 </span> <span class="subxComment"># convert</span> +<span id="L4150" class="LineNr"> 4150 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L4151" class="LineNr"> 4151 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L4152" class="LineNr"> 4152 </span> <span class="subxComment"># restore ed</span> +<span id="L4153" class="LineNr"> 4153 </span> 89/<- %edx 4/r32/esp +<span id="L4154" class="LineNr"> 4154 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4155" class="LineNr"> 4155 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L4156" class="Folded"> 4156 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4162" class="LineNr"> 4162 </span> <span class="subxComment"># check output</span> +<span id="L4163" class="LineNr"> 4163 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L4129'>test-unknown-variable</a>: output should be empty"</span>) +<span id="L4164" class="LineNr"> 4164 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L4129'>test-unknown-variable</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L4165" class="LineNr"> 4165 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L4166" class="LineNr"> 4166 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L4129'>test-unknown-variable</a>: exit status"</span>) +<span id="L4167" class="LineNr"> 4167 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L4168" class="LineNr"> 4168 </span> 81 0/subop/add %esp 8/imm32 +<span id="L4169" class="LineNr"> 4169 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4170" class="LineNr"> 4170 </span> 5d/pop-to-ebp +<span id="L4171" class="LineNr"> 4171 </span> c3/return +<span id="L4172" class="LineNr"> 4172 </span> +<span id="L4173" class="LineNr"> 4173 </span><span class="subxTest">test-convert-function-with-local-var-in-block</span>: +<span id="L4174" class="LineNr"> 4174 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4175" class="LineNr"> 4175 </span> 55/push-ebp +<span id="L4176" class="LineNr"> 4176 </span> 89/<- %ebp 4/r32/esp +<span id="L4177" class="LineNr"> 4177 </span> <span class="subxComment"># setup</span> +<span id="L4178" class="LineNr"> 4178 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4179" class="LineNr"> 4179 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4180" class="LineNr"> 4180 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4181" class="LineNr"> 4181 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4182" class="LineNr"> 4182 </span> <span class="subxComment">#</span> +<span id="L4183" class="LineNr"> 4183 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4184" class="LineNr"> 4184 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4185" class="LineNr"> 4185 </span> (<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="L4186" class="LineNr"> 4186 </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="L4187" class="LineNr"> 4187 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4188" class="LineNr"> 4188 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4189" class="LineNr"> 4189 </span> <span class="subxComment"># convert</span> +<span id="L4190" class="LineNr"> 4190 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4191" class="LineNr"> 4191 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4192" class="Folded"> 4192 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4198" class="LineNr"> 4198 </span> <span class="subxComment"># check output</span> +<span id="L4199" class="LineNr"> 4199 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4173'>test-convert-function-with-local-var-in-block</a>/0"</span>) +<span id="L4200" class="LineNr"> 4200 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-block/1"</span>) +<span id="L4201" class="LineNr"> 4201 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4173'>test-convert-function-with-local-var-in-block</a>/2"</span>) +<span id="L4202" class="LineNr"> 4202 </span> (<a href='109stream-equal.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#L4173'>test-convert-function-with-local-var-in-block</a>/3"</span>) +<span id="L4203" class="LineNr"> 4203 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4173'>test-convert-function-with-local-var-in-block</a>/4"</span>) +<span id="L4204" class="LineNr"> 4204 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4173'>test-convert-function-with-local-var-in-block</a>/5"</span>) +<span id="L4205" class="LineNr"> 4205 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4173'>test-convert-function-with-local-var-in-block</a>/6"</span>) +<span id="L4206" class="LineNr"> 4206 </span> (<a href='109stream-equal.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#L4173'>test-convert-function-with-local-var-in-block</a>/7"</span>) +<span id="L4207" class="LineNr"> 4207 </span> (<a href='109stream-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#L4173'>test-convert-function-with-local-var-in-block</a>/8"</span>) +<span id="L4208" class="LineNr"> 4208 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4173'>test-convert-function-with-local-var-in-block</a>/9"</span>) +<span id="L4209" class="LineNr"> 4209 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L4173'>test-convert-function-with-local-var-in-block</a>/10"</span>) +<span id="L4210" class="LineNr"> 4210 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4173'>test-convert-function-with-local-var-in-block</a>/11"</span>) +<span id="L4211" class="LineNr"> 4211 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4173'>test-convert-function-with-local-var-in-block</a>/12"</span>) +<span id="L4212" class="LineNr"> 4212 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4173'>test-convert-function-with-local-var-in-block</a>/13"</span>) +<span id="L4213" class="LineNr"> 4213 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4173'>test-convert-function-with-local-var-in-block</a>/14"</span>) +<span id="L4214" class="LineNr"> 4214 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-block/15"</span>) +<span id="L4215" class="LineNr"> 4215 </span> (<a href='109stream-equal.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#L4173'>test-convert-function-with-local-var-in-block</a>/16"</span>) +<span id="L4216" class="LineNr"> 4216 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4173'>test-convert-function-with-local-var-in-block</a>/17"</span>) +<span id="L4217" class="LineNr"> 4217 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4173'>test-convert-function-with-local-var-in-block</a>/18"</span>) +<span id="L4218" class="LineNr"> 4218 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4219" class="LineNr"> 4219 </span> 89/<- %esp 5/r32/ebp +<span id="L4220" class="LineNr"> 4220 </span> 5d/pop-to-ebp +<span id="L4221" class="LineNr"> 4221 </span> c3/return +<span id="L4222" class="LineNr"> 4222 </span> +<span id="L4223" class="LineNr"> 4223 </span><span class="subxTest">test-convert-function-with-local-var-in-mem-after-block</span>: +<span id="L4224" class="LineNr"> 4224 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4225" class="LineNr"> 4225 </span> 55/push-ebp +<span id="L4226" class="LineNr"> 4226 </span> 89/<- %ebp 4/r32/esp +<span id="L4227" class="LineNr"> 4227 </span> <span class="subxComment"># setup</span> +<span id="L4228" class="LineNr"> 4228 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4229" class="LineNr"> 4229 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4230" class="LineNr"> 4230 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4231" class="LineNr"> 4231 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4232" class="LineNr"> 4232 </span> <span class="subxComment">#</span> +<span id="L4233" class="LineNr"> 4233 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4234" class="LineNr"> 4234 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4235" class="LineNr"> 4235 </span> (<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="L4236" class="LineNr"> 4236 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4237" class="LineNr"> 4237 </span> (<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="L4238" class="LineNr"> 4238 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L4239" class="LineNr"> 4239 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4240" class="LineNr"> 4240 </span> <span class="subxComment"># convert</span> +<span id="L4241" class="LineNr"> 4241 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4242" class="LineNr"> 4242 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4243" class="Folded"> 4243 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4249" class="LineNr"> 4249 </span> <span class="subxComment"># check output</span> +<span id="L4250" class="LineNr"> 4250 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/0"</span>) +<span id="L4251" class="LineNr"> 4251 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem-after-block/1"</span>) +<span id="L4252" class="LineNr"> 4252 </span> (<a href='109stream-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#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/2"</span>) +<span id="L4253" class="LineNr"> 4253 </span> (<a href='109stream-equal.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#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/3"</span>) +<span id="L4254" class="LineNr"> 4254 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/4"</span>) +<span id="L4255" class="LineNr"> 4255 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/5"</span>) +<span id="L4256" class="LineNr"> 4256 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/6"</span>) +<span id="L4257" class="LineNr"> 4257 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/7"</span>) +<span id="L4258" class="LineNr"> 4258 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/8"</span>) +<span id="L4259" class="LineNr"> 4259 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/9"</span>) +<span id="L4260" class="LineNr"> 4260 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/10"</span>) +<span id="L4261" class="LineNr"> 4261 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/11"</span>) +<span id="L4262" class="LineNr"> 4262 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/12"</span>) +<span id="L4263" class="LineNr"> 4263 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/13"</span>) +<span id="L4264" class="LineNr"> 4264 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/14"</span>) +<span id="L4265" class="LineNr"> 4265 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/15"</span>) +<span id="L4266" class="LineNr"> 4266 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/16"</span>) +<span id="L4267" class="LineNr"> 4267 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem-after-block/17"</span>) +<span id="L4268" class="LineNr"> 4268 </span> (<a href='109stream-equal.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#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/18"</span>) +<span id="L4269" class="LineNr"> 4269 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/19"</span>) +<span id="L4270" class="LineNr"> 4270 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4223'>test-convert-function-with-local-var-in-mem-after-block</a>/20"</span>) +<span id="L4271" class="LineNr"> 4271 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4272" class="LineNr"> 4272 </span> 89/<- %esp 5/r32/ebp +<span id="L4273" class="LineNr"> 4273 </span> 5d/pop-to-ebp +<span id="L4274" class="LineNr"> 4274 </span> c3/return +<span id="L4275" class="LineNr"> 4275 </span> +<span id="L4276" class="LineNr"> 4276 </span><span class="subxTest">test-convert-function-with-local-var-in-named-block</span>: +<span id="L4277" class="LineNr"> 4277 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4278" class="LineNr"> 4278 </span> 55/push-ebp +<span id="L4279" class="LineNr"> 4279 </span> 89/<- %ebp 4/r32/esp +<span id="L4280" class="LineNr"> 4280 </span> <span class="subxComment"># setup</span> +<span id="L4281" class="LineNr"> 4281 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4282" class="LineNr"> 4282 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4283" class="LineNr"> 4283 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4284" class="LineNr"> 4284 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4285" class="LineNr"> 4285 </span> <span class="subxComment">#</span> +<span id="L4286" class="LineNr"> 4286 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4287" class="LineNr"> 4287 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" $bar: {\n"</span>) +<span id="L4288" class="LineNr"> 4288 </span> (<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="L4289" class="LineNr"> 4289 </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="L4290" class="LineNr"> 4290 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4291" class="LineNr"> 4291 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4292" class="LineNr"> 4292 </span> <span class="subxComment"># convert</span> +<span id="L4293" class="LineNr"> 4293 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4294" class="LineNr"> 4294 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4295" class="Folded"> 4295 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4301" class="LineNr"> 4301 </span> <span class="subxComment"># check output</span> +<span id="L4302" class="LineNr"> 4302 </span> (<a href='109stream-equal.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#L4276'>test-convert-function-with-local-var-in-named-block</a>/0"</span>) +<span id="L4303" class="LineNr"> 4303 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-named-block/1"</span>) +<span id="L4304" class="LineNr"> 4304 </span> (<a href='109stream-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#L4276'>test-convert-function-with-local-var-in-named-block</a>/2"</span>) +<span id="L4305" class="LineNr"> 4305 </span> (<a href='109stream-equal.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#L4276'>test-convert-function-with-local-var-in-named-block</a>/3"</span>) +<span id="L4306" class="LineNr"> 4306 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4276'>test-convert-function-with-local-var-in-named-block</a>/4"</span>) +<span id="L4307" class="LineNr"> 4307 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4276'>test-convert-function-with-local-var-in-named-block</a>/5"</span>) +<span id="L4308" class="LineNr"> 4308 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4276'>test-convert-function-with-local-var-in-named-block</a>/6"</span>) +<span id="L4309" class="LineNr"> 4309 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$bar:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4276'>test-convert-function-with-local-var-in-named-block</a>/7"</span>) +<span id="L4310" class="LineNr"> 4310 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4276'>test-convert-function-with-local-var-in-named-block</a>/8"</span>) +<span id="L4311" class="LineNr"> 4311 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4276'>test-convert-function-with-local-var-in-named-block</a>/9"</span>) +<span id="L4312" class="LineNr"> 4312 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L4276'>test-convert-function-with-local-var-in-named-block</a>/10"</span>) +<span id="L4313" class="LineNr"> 4313 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4276'>test-convert-function-with-local-var-in-named-block</a>/11"</span>) +<span id="L4314" class="LineNr"> 4314 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$bar:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4276'>test-convert-function-with-local-var-in-named-block</a>/12"</span>) +<span id="L4315" class="LineNr"> 4315 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4276'>test-convert-function-with-local-var-in-named-block</a>/13"</span>) +<span id="L4316" class="LineNr"> 4316 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4276'>test-convert-function-with-local-var-in-named-block</a>/14"</span>) +<span id="L4317" class="LineNr"> 4317 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-named-block/15"</span>) +<span id="L4318" class="LineNr"> 4318 </span> (<a href='109stream-equal.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#L4276'>test-convert-function-with-local-var-in-named-block</a>/16"</span>) +<span id="L4319" class="LineNr"> 4319 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4276'>test-convert-function-with-local-var-in-named-block</a>/17"</span>) +<span id="L4320" class="LineNr"> 4320 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4276'>test-convert-function-with-local-var-in-named-block</a>/18"</span>) +<span id="L4321" class="LineNr"> 4321 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4322" class="LineNr"> 4322 </span> 89/<- %esp 5/r32/ebp +<span id="L4323" class="LineNr"> 4323 </span> 5d/pop-to-ebp +<span id="L4324" class="LineNr"> 4324 </span> c3/return +<span id="L4325" class="LineNr"> 4325 </span> +<span id="L4326" class="LineNr"> 4326 </span><span class="subxTest">test-unknown-variable-in-named-block</span>: +<span id="L4327" class="LineNr"> 4327 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4328" class="LineNr"> 4328 </span> 55/push-ebp +<span id="L4329" class="LineNr"> 4329 </span> 89/<- %ebp 4/r32/esp +<span id="L4330" class="LineNr"> 4330 </span> <span class="subxComment"># setup</span> +<span id="L4331" class="LineNr"> 4331 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4332" class="LineNr"> 4332 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4333" class="LineNr"> 4333 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4334" class="LineNr"> 4334 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4335" class="LineNr"> 4335 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L4336" class="LineNr"> 4336 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L4337" class="LineNr"> 4337 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L4338" class="LineNr"> 4338 </span> 68/push 0/imm32 +<span id="L4339" class="LineNr"> 4339 </span> 68/push 0/imm32 +<span id="L4340" class="LineNr"> 4340 </span> 89/<- %edx 4/r32/esp +<span id="L4341" class="LineNr"> 4341 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L4342" class="LineNr"> 4342 </span> <span class="subxComment">#</span> +<span id="L4343" class="LineNr"> 4343 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4344" class="LineNr"> 4344 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" $a: {\n"</span>) +<span id="L4345" class="LineNr"> 4345 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) +<span id="L4346" class="LineNr"> 4346 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4347" class="LineNr"> 4347 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4348" class="LineNr"> 4348 </span> <span class="subxComment"># convert</span> +<span id="L4349" class="LineNr"> 4349 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L4350" class="LineNr"> 4350 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L4351" class="LineNr"> 4351 </span> <span class="subxComment"># restore ed</span> +<span id="L4352" class="LineNr"> 4352 </span> 89/<- %edx 4/r32/esp +<span id="L4353" class="LineNr"> 4353 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4354" class="LineNr"> 4354 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L4355" class="Folded"> 4355 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4361" class="LineNr"> 4361 </span> <span class="subxComment"># check output</span> +<span id="L4362" class="LineNr"> 4362 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L4326'>test-unknown-variable-in-named-block</a>: output should be empty"</span>) +<span id="L4363" class="LineNr"> 4363 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L4326'>test-unknown-variable-in-named-block</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L4364" class="LineNr"> 4364 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L4365" class="LineNr"> 4365 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L4326'>test-unknown-variable-in-named-block</a>: exit status"</span>) +<span id="L4366" class="LineNr"> 4366 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L4367" class="LineNr"> 4367 </span> 81 0/subop/add %esp 8/imm32 +<span id="L4368" class="LineNr"> 4368 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4369" class="LineNr"> 4369 </span> 5d/pop-to-ebp +<span id="L4370" class="LineNr"> 4370 </span> c3/return +<span id="L4371" class="LineNr"> 4371 </span> +<span id="L4372" class="LineNr"> 4372 </span><span class="subxTest">test-always-shadow-outermost-reg-vars-in-function</span>: +<span id="L4373" class="LineNr"> 4373 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4374" class="LineNr"> 4374 </span> 55/push-ebp +<span id="L4375" class="LineNr"> 4375 </span> 89/<- %ebp 4/r32/esp +<span id="L4376" class="LineNr"> 4376 </span> <span class="subxComment"># setup</span> +<span id="L4377" class="LineNr"> 4377 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4378" class="LineNr"> 4378 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4379" class="LineNr"> 4379 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4380" class="LineNr"> 4380 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4381" class="LineNr"> 4381 </span> <span class="subxComment">#</span> +<span id="L4382" class="LineNr"> 4382 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4383" class="LineNr"> 4383 </span> (<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="L4384" class="LineNr"> 4384 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4385" class="LineNr"> 4385 </span> <span class="subxComment"># convert</span> +<span id="L4386" class="LineNr"> 4386 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4387" class="LineNr"> 4387 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4388" class="Folded"> 4388 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4394" class="LineNr"> 4394 </span> <span class="subxComment"># check output</span> +<span id="L4395" class="LineNr"> 4395 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4372'>test-always-shadow-outermost-reg-vars-in-function</a>/0"</span>) +<span id="L4396" class="LineNr"> 4396 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-always-shadow-outermost-reg-vars-in-function/1"</span>) +<span id="L4397" class="LineNr"> 4397 </span> (<a href='109stream-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#L4372'>test-always-shadow-outermost-reg-vars-in-function</a>/2"</span>) +<span id="L4398" class="LineNr"> 4398 </span> (<a href='109stream-equal.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#L4372'>test-always-shadow-outermost-reg-vars-in-function</a>/3"</span>) +<span id="L4399" class="LineNr"> 4399 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4372'>test-always-shadow-outermost-reg-vars-in-function</a>/4"</span>) +<span id="L4400" class="LineNr"> 4400 </span> (<a href='109stream-equal.subx.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#L4372'>test-always-shadow-outermost-reg-vars-in-function</a>/5"</span>) +<span id="L4401" class="LineNr"> 4401 </span> (<a href='109stream-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#L4055'>test-convert-compare-register-with-literal</a>/6"</span>) +<span id="L4402" class="LineNr"> 4402 </span> (<a href='109stream-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#L4372'>test-always-shadow-outermost-reg-vars-in-function</a>/8"</span>) +<span id="L4403" class="LineNr"> 4403 </span> (<a href='109stream-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#L4055'>test-convert-compare-register-with-literal</a>/9"</span>) +<span id="L4404" class="LineNr"> 4404 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4372'>test-always-shadow-outermost-reg-vars-in-function</a>/12"</span>) +<span id="L4405" class="LineNr"> 4405 </span> (<a href='109stream-equal.subx.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#L4372'>test-always-shadow-outermost-reg-vars-in-function</a>/13"</span>) +<span id="L4406" class="LineNr"> 4406 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-always-shadow-outermost-reg-vars-in-function/14"</span>) +<span id="L4407" class="LineNr"> 4407 </span> (<a href='109stream-equal.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#L4372'>test-always-shadow-outermost-reg-vars-in-function</a>/15"</span>) +<span id="L4408" class="LineNr"> 4408 </span> (<a href='109stream-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#L4372'>test-always-shadow-outermost-reg-vars-in-function</a>/16"</span>) +<span id="L4409" class="LineNr"> 4409 </span> (<a href='109stream-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#L4372'>test-always-shadow-outermost-reg-vars-in-function</a>/17"</span>) +<span id="L4410" class="LineNr"> 4410 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4411" class="LineNr"> 4411 </span> 89/<- %esp 5/r32/ebp +<span id="L4412" class="LineNr"> 4412 </span> 5d/pop-to-ebp +<span id="L4413" class="LineNr"> 4413 </span> c3/return +<span id="L4414" class="LineNr"> 4414 </span> +<span id="L4415" class="LineNr"> 4415 </span><span class="subxTest">test-shadow-local</span>: +<span id="L4416" class="LineNr"> 4416 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4417" class="LineNr"> 4417 </span> 55/push-ebp +<span id="L4418" class="LineNr"> 4418 </span> 89/<- %ebp 4/r32/esp +<span id="L4419" class="LineNr"> 4419 </span> <span class="subxComment"># setup</span> +<span id="L4420" class="LineNr"> 4420 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4421" class="LineNr"> 4421 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4422" class="LineNr"> 4422 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4423" class="LineNr"> 4423 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4424" class="LineNr"> 4424 </span> <span class="subxComment">#</span> +<span id="L4425" class="LineNr"> 4425 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4426" class="LineNr"> 4426 </span> (<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="L4427" class="LineNr"> 4427 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4428" class="LineNr"> 4428 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) +<span id="L4429" class="LineNr"> 4429 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4430" class="LineNr"> 4430 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) +<span id="L4431" class="LineNr"> 4431 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4432" class="LineNr"> 4432 </span> <span class="subxComment"># convert</span> +<span id="L4433" class="LineNr"> 4433 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4434" class="LineNr"> 4434 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4435" class="Folded"> 4435 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4441" class="LineNr"> 4441 </span> <span class="subxComment"># check output</span> +<span id="L4442" class="LineNr"> 4442 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4415'>test-shadow-local</a>/0"</span>) +<span id="L4443" class="LineNr"> 4443 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-local/1"</span>) +<span id="L4444" class="LineNr"> 4444 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4415'>test-shadow-local</a>/2"</span>) +<span id="L4445" class="LineNr"> 4445 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4415'>test-shadow-local</a>/3"</span>) +<span id="L4446" class="LineNr"> 4446 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4415'>test-shadow-local</a>/4"</span>) +<span id="L4447" class="LineNr"> 4447 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4415'>test-shadow-local</a>/5"</span>) +<span id="L4448" class="LineNr"> 4448 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4415'>test-shadow-local</a>/6"</span>) +<span id="L4449" class="LineNr"> 4449 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4415'>test-shadow-local</a>/7"</span>) +<span id="L4450" class="LineNr"> 4450 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4415'>test-shadow-local</a>/8"</span>) +<span id="L4451" class="LineNr"> 4451 </span> (<a href='109stream-equal.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#L4415'>test-shadow-local</a>/9"</span>) +<span id="L4452" class="LineNr"> 4452 </span> (<a href='109stream-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#L4415'>test-shadow-local</a>/10"</span>) +<span id="L4453" class="LineNr"> 4453 </span> (<a href='109stream-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#L4415'>test-shadow-local</a>/11"</span>) +<span id="L4454" class="LineNr"> 4454 </span> (<a href='109stream-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#L4415'>test-shadow-local</a>/12"</span>) +<span id="L4455" class="LineNr"> 4455 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4415'>test-shadow-local</a>/13"</span>) +<span id="L4456" class="LineNr"> 4456 </span> (<a href='109stream-equal.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#L4415'>test-shadow-local</a>/14"</span>) +<span id="L4457" class="LineNr"> 4457 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4415'>test-shadow-local</a>/15"</span>) +<span id="L4458" class="LineNr"> 4458 </span> (<a href='109stream-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#L4415'>test-shadow-local</a>/16"</span>) +<span id="L4459" class="LineNr"> 4459 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4415'>test-shadow-local</a>/17"</span>) +<span id="L4460" class="LineNr"> 4460 </span> (<a href='109stream-equal.subx.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#L4415'>test-shadow-local</a>/18"</span>) +<span id="L4461" class="LineNr"> 4461 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-local/19"</span>) +<span id="L4462" class="LineNr"> 4462 </span> (<a href='109stream-equal.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#L4415'>test-shadow-local</a>/20"</span>) +<span id="L4463" class="LineNr"> 4463 </span> (<a href='109stream-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#L4415'>test-shadow-local</a>/21"</span>) +<span id="L4464" class="LineNr"> 4464 </span> (<a href='109stream-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#L4415'>test-shadow-local</a>/22"</span>) +<span id="L4465" class="LineNr"> 4465 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4466" class="LineNr"> 4466 </span> 89/<- %esp 5/r32/ebp +<span id="L4467" class="LineNr"> 4467 </span> 5d/pop-to-ebp +<span id="L4468" class="LineNr"> 4468 </span> c3/return +<span id="L4469" class="LineNr"> 4469 </span> +<span id="L4470" class="LineNr"> 4470 </span><span class="subxTest">test-shadow-name</span>: +<span id="L4471" class="LineNr"> 4471 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4472" class="LineNr"> 4472 </span> 55/push-ebp +<span id="L4473" class="LineNr"> 4473 </span> 89/<- %ebp 4/r32/esp +<span id="L4474" class="LineNr"> 4474 </span> <span class="subxComment"># setup</span> +<span id="L4475" class="LineNr"> 4475 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4476" class="LineNr"> 4476 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4477" class="LineNr"> 4477 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4478" class="LineNr"> 4478 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4479" class="LineNr"> 4479 </span> <span class="subxComment">#</span> +<span id="L4480" class="LineNr"> 4480 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4481" class="LineNr"> 4481 </span> (<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="L4482" class="LineNr"> 4482 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4483" class="LineNr"> 4483 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/edx: int <- copy 4\n"</span>) +<span id="L4484" class="LineNr"> 4484 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4485" class="LineNr"> 4485 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) +<span id="L4486" class="LineNr"> 4486 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4487" class="LineNr"> 4487 </span> <span class="subxComment"># convert</span> +<span id="L4488" class="LineNr"> 4488 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4489" class="LineNr"> 4489 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4490" class="Folded"> 4490 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4496" class="LineNr"> 4496 </span> <span class="subxComment"># check output</span> +<span id="L4497" class="LineNr"> 4497 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4470'>test-shadow-name</a>/0"</span>) +<span id="L4498" class="LineNr"> 4498 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-name/1"</span>) +<span id="L4499" class="LineNr"> 4499 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4470'>test-shadow-name</a>/2"</span>) +<span id="L4500" class="LineNr"> 4500 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4470'>test-shadow-name</a>/3"</span>) +<span id="L4501" class="LineNr"> 4501 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4470'>test-shadow-name</a>/4"</span>) +<span id="L4502" class="LineNr"> 4502 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4470'>test-shadow-name</a>/5"</span>) +<span id="L4503" class="LineNr"> 4503 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4470'>test-shadow-name</a>/6"</span>) +<span id="L4504" class="LineNr"> 4504 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4470'>test-shadow-name</a>/7"</span>) +<span id="L4505" class="LineNr"> 4505 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4470'>test-shadow-name</a>/8"</span>) +<span id="L4506" class="LineNr"> 4506 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4470'>test-shadow-name</a>/9"</span>) +<span id="L4507" class="LineNr"> 4507 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4470'>test-shadow-name</a>/10"</span>) +<span id="L4508" class="LineNr"> 4508 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4470'>test-shadow-name</a>/11"</span>) +<span id="L4509" class="LineNr"> 4509 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4470'>test-shadow-name</a>/12"</span>) +<span id="L4510" class="LineNr"> 4510 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4470'>test-shadow-name</a>/13"</span>) +<span id="L4511" class="LineNr"> 4511 </span> (<a href='109stream-equal.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#L4470'>test-shadow-name</a>/14"</span>) +<span id="L4512" class="LineNr"> 4512 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4470'>test-shadow-name</a>/15"</span>) +<span id="L4513" class="LineNr"> 4513 </span> (<a href='109stream-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#L4470'>test-shadow-name</a>/16"</span>) +<span id="L4514" class="LineNr"> 4514 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4470'>test-shadow-name</a>/17"</span>) +<span id="L4515" class="LineNr"> 4515 </span> (<a href='109stream-equal.subx.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#L4470'>test-shadow-name</a>/18"</span>) +<span id="L4516" class="LineNr"> 4516 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-name/19"</span>) +<span id="L4517" class="LineNr"> 4517 </span> (<a href='109stream-equal.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#L4470'>test-shadow-name</a>/20"</span>) +<span id="L4518" class="LineNr"> 4518 </span> (<a href='109stream-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#L4470'>test-shadow-name</a>/21"</span>) +<span id="L4519" class="LineNr"> 4519 </span> (<a href='109stream-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#L4470'>test-shadow-name</a>/22"</span>) +<span id="L4520" class="LineNr"> 4520 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4521" class="LineNr"> 4521 </span> 89/<- %esp 5/r32/ebp +<span id="L4522" class="LineNr"> 4522 </span> 5d/pop-to-ebp +<span id="L4523" class="LineNr"> 4523 </span> c3/return +<span id="L4524" class="LineNr"> 4524 </span> +<span id="L4525" class="LineNr"> 4525 </span><span class="subxTest">test-shadow-name-2</span>: +<span id="L4526" class="LineNr"> 4526 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4527" class="LineNr"> 4527 </span> 55/push-ebp +<span id="L4528" class="LineNr"> 4528 </span> 89/<- %ebp 4/r32/esp +<span id="L4529" class="LineNr"> 4529 </span> <span class="subxComment"># setup</span> +<span id="L4530" class="LineNr"> 4530 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4531" class="LineNr"> 4531 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4532" class="LineNr"> 4532 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4533" class="LineNr"> 4533 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4534" class="LineNr"> 4534 </span> <span class="subxComment">#</span> +<span id="L4535" class="LineNr"> 4535 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4536" class="LineNr"> 4536 </span> (<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="L4537" class="LineNr"> 4537 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4538" class="LineNr"> 4538 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/edx: int <- copy 4\n"</span>) +<span id="L4539" class="LineNr"> 4539 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 5\n"</span>) +<span id="L4540" class="LineNr"> 4540 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4541" class="LineNr"> 4541 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) +<span id="L4542" class="LineNr"> 4542 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4543" class="LineNr"> 4543 </span> <span class="subxComment"># convert</span> +<span id="L4544" class="LineNr"> 4544 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4545" class="LineNr"> 4545 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4546" class="Folded"> 4546 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4552" class="LineNr"> 4552 </span> <span class="subxComment"># check output</span> +<span id="L4553" class="LineNr"> 4553 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4525'>test-shadow-name-2</a>/0"</span>) +<span id="L4554" class="LineNr"> 4554 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-name-2/1"</span>) +<span id="L4555" class="LineNr"> 4555 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4525'>test-shadow-name-2</a>/2"</span>) +<span id="L4556" class="LineNr"> 4556 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4525'>test-shadow-name-2</a>/3"</span>) +<span id="L4557" class="LineNr"> 4557 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4525'>test-shadow-name-2</a>/4"</span>) +<span id="L4558" class="LineNr"> 4558 </span> (<a href='109stream-equal.subx.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#L4525'>test-shadow-name-2</a>/5"</span>) +<span id="L4559" class="LineNr"> 4559 </span> (<a href='109stream-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#L4525'>test-shadow-name-2</a>/6"</span>) +<span id="L4560" class="LineNr"> 4560 </span> (<a href='109stream-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#L4525'>test-shadow-name-2</a>/7"</span>) +<span id="L4561" class="LineNr"> 4561 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4525'>test-shadow-name-2</a>/8"</span>) +<span id="L4562" class="LineNr"> 4562 </span> (<a href='109stream-equal.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#L4525'>test-shadow-name-2</a>/9"</span>) +<span id="L4563" class="LineNr"> 4563 </span> (<a href='109stream-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#L4525'>test-shadow-name-2</a>/10"</span>) +<span id="L4564" class="LineNr"> 4564 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4525'>test-shadow-name-2</a>/11"</span>) +<span id="L4565" class="LineNr"> 4565 </span> (<a href='109stream-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#L4525'>test-shadow-name-2</a>/12"</span>) +<span id="L4566" class="LineNr"> 4566 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 5/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4525'>test-shadow-name-2</a>/13"</span>) +<span id="L4567" class="LineNr"> 4567 </span> (<a href='109stream-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#L4525'>test-shadow-name-2</a>/14"</span>) +<span id="L4568" class="LineNr"> 4568 </span> (<a href='109stream-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#L4525'>test-shadow-name-2</a>/15"</span>) +<span id="L4569" class="LineNr"> 4569 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4525'>test-shadow-name-2</a>/16"</span>) +<span id="L4570" class="LineNr"> 4570 </span> (<a href='109stream-equal.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#L4525'>test-shadow-name-2</a>/17"</span>) +<span id="L4571" class="LineNr"> 4571 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4525'>test-shadow-name-2</a>/18"</span>) +<span id="L4572" class="LineNr"> 4572 </span> (<a href='109stream-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#L4525'>test-shadow-name-2</a>/19"</span>) +<span id="L4573" class="LineNr"> 4573 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4525'>test-shadow-name-2</a>/20"</span>) +<span id="L4574" class="LineNr"> 4574 </span> (<a href='109stream-equal.subx.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#L4525'>test-shadow-name-2</a>/21"</span>) +<span id="L4575" class="LineNr"> 4575 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-name-2/22"</span>) +<span id="L4576" class="LineNr"> 4576 </span> (<a href='109stream-equal.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#L4525'>test-shadow-name-2</a>/23"</span>) +<span id="L4577" class="LineNr"> 4577 </span> (<a href='109stream-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#L4525'>test-shadow-name-2</a>/24"</span>) +<span id="L4578" class="LineNr"> 4578 </span> (<a href='109stream-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#L4525'>test-shadow-name-2</a>/25"</span>) +<span id="L4579" class="LineNr"> 4579 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4580" class="LineNr"> 4580 </span> 89/<- %esp 5/r32/ebp +<span id="L4581" class="LineNr"> 4581 </span> 5d/pop-to-ebp +<span id="L4582" class="LineNr"> 4582 </span> c3/return +<span id="L4583" class="LineNr"> 4583 </span> +<span id="L4584" class="LineNr"> 4584 </span><span class="subxTest">test-do-not-spill-same-register-in-block</span>: +<span id="L4585" class="LineNr"> 4585 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4586" class="LineNr"> 4586 </span> 55/push-ebp +<span id="L4587" class="LineNr"> 4587 </span> 89/<- %ebp 4/r32/esp +<span id="L4588" class="LineNr"> 4588 </span> <span class="subxComment"># setup</span> +<span id="L4589" class="LineNr"> 4589 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4590" class="LineNr"> 4590 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4591" class="LineNr"> 4591 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4592" class="LineNr"> 4592 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4593" class="LineNr"> 4593 </span> <span class="subxComment">#</span> +<span id="L4594" class="LineNr"> 4594 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4595" class="LineNr"> 4595 </span> (<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="L4596" class="LineNr"> 4596 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) +<span id="L4597" class="LineNr"> 4597 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- increment\n"</span>) +<span id="L4598" class="LineNr"> 4598 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4599" class="LineNr"> 4599 </span> <span class="subxComment"># convert</span> +<span id="L4600" class="LineNr"> 4600 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4601" class="LineNr"> 4601 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4602" class="Folded"> 4602 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4608" class="LineNr"> 4608 </span> <span class="subxComment"># check output</span> +<span id="L4609" class="LineNr"> 4609 </span> (<a href='109stream-equal.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#L4584'>test-do-not-spill-same-register-in-block</a>/0"</span>) +<span id="L4610" class="LineNr"> 4610 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-do-not-spill-same-register-in-block/1"</span>) +<span id="L4611" class="LineNr"> 4611 </span> (<a href='109stream-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#L4584'>test-do-not-spill-same-register-in-block</a>/2"</span>) +<span id="L4612" class="LineNr"> 4612 </span> (<a href='109stream-equal.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#L4584'>test-do-not-spill-same-register-in-block</a>/3"</span>) +<span id="L4613" class="LineNr"> 4613 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4584'>test-do-not-spill-same-register-in-block</a>/4"</span>) +<span id="L4614" class="LineNr"> 4614 </span> (<a href='109stream-equal.subx.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#L4584'>test-do-not-spill-same-register-in-block</a>/5"</span>) +<span id="L4615" class="LineNr"> 4615 </span> (<a href='109stream-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#L4584'>test-do-not-spill-same-register-in-block</a>/6"</span>) +<span id="L4616" class="LineNr"> 4616 </span> (<a href='109stream-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#L4584'>test-do-not-spill-same-register-in-block</a>/7"</span>) +<span id="L4617" class="LineNr"> 4617 </span> (<a href='109stream-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#L4584'>test-do-not-spill-same-register-in-block</a>/8"</span>) +<span id="L4618" class="LineNr"> 4618 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4584'>test-do-not-spill-same-register-in-block</a>/9"</span>) +<span id="L4619" class="LineNr"> 4619 </span> (<a href='109stream-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#L4584'>test-do-not-spill-same-register-in-block</a>/10"</span>) +<span id="L4620" class="LineNr"> 4620 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4584'>test-do-not-spill-same-register-in-block</a>/11"</span>) +<span id="L4621" class="LineNr"> 4621 </span> (<a href='109stream-equal.subx.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#L4584'>test-do-not-spill-same-register-in-block</a>/12"</span>) +<span id="L4622" class="LineNr"> 4622 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-do-not-spill-same-register-in-block/13"</span>) +<span id="L4623" class="LineNr"> 4623 </span> (<a href='109stream-equal.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#L4584'>test-do-not-spill-same-register-in-block</a>/14"</span>) +<span id="L4624" class="LineNr"> 4624 </span> (<a href='109stream-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#L4584'>test-do-not-spill-same-register-in-block</a>/15"</span>) +<span id="L4625" class="LineNr"> 4625 </span> (<a href='109stream-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#L4584'>test-do-not-spill-same-register-in-block</a>/16"</span>) +<span id="L4626" class="LineNr"> 4626 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4627" class="LineNr"> 4627 </span> 89/<- %esp 5/r32/ebp +<span id="L4628" class="LineNr"> 4628 </span> 5d/pop-to-ebp +<span id="L4629" class="LineNr"> 4629 </span> c3/return +<span id="L4630" class="LineNr"> 4630 </span> +<span id="L4631" class="LineNr"> 4631 </span><span class="subxTest">test-spill-different-register-in-block</span>: +<span id="L4632" class="LineNr"> 4632 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4633" class="LineNr"> 4633 </span> 55/push-ebp +<span id="L4634" class="LineNr"> 4634 </span> 89/<- %ebp 4/r32/esp +<span id="L4635" class="LineNr"> 4635 </span> <span class="subxComment"># setup</span> +<span id="L4636" class="LineNr"> 4636 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4637" class="LineNr"> 4637 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4638" class="LineNr"> 4638 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4639" class="LineNr"> 4639 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4640" class="LineNr"> 4640 </span> <span class="subxComment">#</span> +<span id="L4641" class="LineNr"> 4641 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4642" class="LineNr"> 4642 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 3\n"</span>) +<span id="L4643" class="LineNr"> 4643 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) +<span id="L4644" class="LineNr"> 4644 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- increment\n"</span>) +<span id="L4645" class="LineNr"> 4645 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4646" class="LineNr"> 4646 </span> <span class="subxComment"># convert</span> +<span id="L4647" class="LineNr"> 4647 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4648" class="LineNr"> 4648 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4649" class="Folded"> 4649 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4655" class="LineNr"> 4655 </span> <span class="subxComment"># check output</span> +<span id="L4656" class="LineNr"> 4656 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4631'>test-spill-different-register-in-block</a>/0"</span>) +<span id="L4657" class="LineNr"> 4657 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-spill-different-register-in-block/1"</span>) +<span id="L4658" class="LineNr"> 4658 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4631'>test-spill-different-register-in-block</a>/2"</span>) +<span id="L4659" class="LineNr"> 4659 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4631'>test-spill-different-register-in-block</a>/3"</span>) +<span id="L4660" class="LineNr"> 4660 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4631'>test-spill-different-register-in-block</a>/4"</span>) +<span id="L4661" class="LineNr"> 4661 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4631'>test-spill-different-register-in-block</a>/5"</span>) +<span id="L4662" class="LineNr"> 4662 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4631'>test-spill-different-register-in-block</a>/6"</span>) +<span id="L4663" class="LineNr"> 4663 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4631'>test-spill-different-register-in-block</a>/7"</span>) +<span id="L4664" class="LineNr"> 4664 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4631'>test-spill-different-register-in-block</a>/8"</span>) +<span id="L4665" class="LineNr"> 4665 </span> (<a href='109stream-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#L4631'>test-spill-different-register-in-block</a>/9"</span>) +<span id="L4666" class="LineNr"> 4666 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4631'>test-spill-different-register-in-block</a>/10"</span>) +<span id="L4667" class="LineNr"> 4667 </span> (<a href='109stream-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#L4631'>test-spill-different-register-in-block</a>/11"</span>) +<span id="L4668" class="LineNr"> 4668 </span> (<a href='109stream-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#L4631'>test-spill-different-register-in-block</a>/12"</span>) +<span id="L4669" class="LineNr"> 4669 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4631'>test-spill-different-register-in-block</a>/13"</span>) +<span id="L4670" class="LineNr"> 4670 </span> (<a href='109stream-equal.subx.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#L4631'>test-spill-different-register-in-block</a>/14"</span>) +<span id="L4671" class="LineNr"> 4671 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-spill-different-register-in-block/15"</span>) +<span id="L4672" class="LineNr"> 4672 </span> (<a href='109stream-equal.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#L4631'>test-spill-different-register-in-block</a>/16"</span>) +<span id="L4673" class="LineNr"> 4673 </span> (<a href='109stream-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#L4631'>test-spill-different-register-in-block</a>/17"</span>) +<span id="L4674" class="LineNr"> 4674 </span> (<a href='109stream-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#L4631'>test-spill-different-register-in-block</a>/18"</span>) +<span id="L4675" class="LineNr"> 4675 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4676" class="LineNr"> 4676 </span> 89/<- %esp 5/r32/ebp +<span id="L4677" class="LineNr"> 4677 </span> 5d/pop-to-ebp +<span id="L4678" class="LineNr"> 4678 </span> c3/return +<span id="L4679" class="LineNr"> 4679 </span> +<span id="L4680" class="LineNr"> 4680 </span><span class="subxTest">test-convert-function-with-branches-in-block</span>: +<span id="L4681" class="LineNr"> 4681 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4682" class="LineNr"> 4682 </span> 55/push-ebp +<span id="L4683" class="LineNr"> 4683 </span> 89/<- %ebp 4/r32/esp +<span id="L4684" class="LineNr"> 4684 </span> <span class="subxComment"># setup</span> +<span id="L4685" class="LineNr"> 4685 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4686" class="LineNr"> 4686 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4687" class="LineNr"> 4687 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4688" class="LineNr"> 4688 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4689" class="LineNr"> 4689 </span> <span class="subxComment">#</span> +<span id="L4690" class="LineNr"> 4690 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) +<span id="L4691" class="LineNr"> 4691 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4692" class="LineNr"> 4692 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) +<span id="L4693" class="LineNr"> 4693 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if-addr<\n"</span>) +<span id="L4694" class="LineNr"> 4694 </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="L4695" class="LineNr"> 4695 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) +<span id="L4696" class="LineNr"> 4696 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4697" class="LineNr"> 4697 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4698" class="LineNr"> 4698 </span> <span class="subxComment"># convert</span> +<span id="L4699" class="LineNr"> 4699 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4700" class="LineNr"> 4700 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4701" class="Folded"> 4701 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4707" class="LineNr"> 4707 </span> <span class="subxComment"># check output</span> +<span id="L4708" class="LineNr"> 4708 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/0"</span>) +<span id="L4709" class="LineNr"> 4709 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/1"</span>) +<span id="L4710" class="LineNr"> 4710 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/2"</span>) +<span id="L4711" class="LineNr"> 4711 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/3"</span>) +<span id="L4712" class="LineNr"> 4712 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/4"</span>) +<span id="L4713" class="LineNr"> 4713 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/5"</span>) +<span id="L4714" class="LineNr"> 4714 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/6"</span>) +<span id="L4715" class="LineNr"> 4715 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/7"</span>) +<span id="L4716" class="LineNr"> 4716 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/8"</span>) +<span id="L4717" class="LineNr"> 4717 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/9"</span>) +<span id="L4718" class="LineNr"> 4718 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/10"</span>) +<span id="L4719" class="LineNr"> 4719 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/11"</span>) +<span id="L4720" class="LineNr"> 4720 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/12"</span>) +<span id="L4721" class="LineNr"> 4721 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/13"</span>) +<span id="L4722" class="LineNr"> 4722 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/14"</span>) +<span id="L4723" class="LineNr"> 4723 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/15"</span>) +<span id="L4724" class="LineNr"> 4724 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/16"</span>) +<span id="L4725" class="LineNr"> 4725 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/17"</span>) +<span id="L4726" class="LineNr"> 4726 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/18"</span>) +<span id="L4727" class="LineNr"> 4727 </span> (<a href='109stream-equal.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#L4680'>test-convert-function-with-branches-in-block</a>/19"</span>) +<span id="L4728" class="LineNr"> 4728 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/20"</span>) +<span id="L4729" class="LineNr"> 4729 </span> (<a href='109stream-equal.subx.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#L4680'>test-convert-function-with-branches-in-block</a>/21"</span>) +<span id="L4730" class="LineNr"> 4730 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/22"</span>) +<span id="L4731" class="LineNr"> 4731 </span> (<a href='109stream-equal.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#L4680'>test-convert-function-with-branches-in-block</a>/23"</span>) +<span id="L4732" class="LineNr"> 4732 </span> (<a href='109stream-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#L4680'>test-convert-function-with-branches-in-block</a>/24"</span>) +<span id="L4733" class="LineNr"> 4733 </span> (<a href='109stream-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#L4680'>test-convert-function-with-branches-in-block</a>/25"</span>) +<span id="L4734" class="LineNr"> 4734 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4735" class="LineNr"> 4735 </span> 89/<- %esp 5/r32/ebp +<span id="L4736" class="LineNr"> 4736 </span> 5d/pop-to-ebp +<span id="L4737" class="LineNr"> 4737 </span> c3/return +<span id="L4738" class="LineNr"> 4738 </span> +<span id="L4739" class="LineNr"> 4739 </span><span class="subxTest">test-convert-function-with-branches-in-block-2</span>: +<span id="L4740" class="LineNr"> 4740 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4741" class="LineNr"> 4741 </span> 55/push-ebp +<span id="L4742" class="LineNr"> 4742 </span> 89/<- %ebp 4/r32/esp +<span id="L4743" class="LineNr"> 4743 </span> <span class="subxComment"># setup</span> +<span id="L4744" class="LineNr"> 4744 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4745" class="LineNr"> 4745 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4746" class="LineNr"> 4746 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4747" class="LineNr"> 4747 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4748" class="LineNr"> 4748 </span> <span class="subxComment">#</span> +<span id="L4749" class="LineNr"> 4749 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) +<span id="L4750" class="LineNr"> 4750 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4751" class="LineNr"> 4751 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) +<span id="L4752" class="LineNr"> 4752 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if-float<\n"</span>) +<span id="L4753" class="LineNr"> 4753 </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="L4754" class="LineNr"> 4754 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) +<span id="L4755" class="LineNr"> 4755 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4756" class="LineNr"> 4756 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4757" class="LineNr"> 4757 </span> <span class="subxComment"># convert</span> +<span id="L4758" class="LineNr"> 4758 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4759" class="LineNr"> 4759 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4760" class="Folded"> 4760 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4766" class="LineNr"> 4766 </span> <span class="subxComment"># check output</span> +<span id="L4767" class="LineNr"> 4767 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/0"</span>) +<span id="L4768" class="LineNr"> 4768 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/1"</span>) +<span id="L4769" class="LineNr"> 4769 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/2"</span>) +<span id="L4770" class="LineNr"> 4770 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/3"</span>) +<span id="L4771" class="LineNr"> 4771 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/4"</span>) +<span id="L4772" class="LineNr"> 4772 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/5"</span>) +<span id="L4773" class="LineNr"> 4773 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/6"</span>) +<span id="L4774" class="LineNr"> 4774 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/7"</span>) +<span id="L4775" class="LineNr"> 4775 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/8"</span>) +<span id="L4776" class="LineNr"> 4776 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/9"</span>) +<span id="L4777" class="LineNr"> 4777 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/10"</span>) +<span id="L4778" class="LineNr"> 4778 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/11"</span>) +<span id="L4779" class="LineNr"> 4779 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/12"</span>) +<span id="L4780" class="LineNr"> 4780 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/13"</span>) +<span id="L4781" class="LineNr"> 4781 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/14"</span>) +<span id="L4782" class="LineNr"> 4782 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/15"</span>) +<span id="L4783" class="LineNr"> 4783 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/16"</span>) +<span id="L4784" class="LineNr"> 4784 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/17"</span>) +<span id="L4785" class="LineNr"> 4785 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/18"</span>) +<span id="L4786" class="LineNr"> 4786 </span> (<a href='109stream-equal.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#L4680'>test-convert-function-with-branches-in-block</a>/19"</span>) +<span id="L4787" class="LineNr"> 4787 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4680'>test-convert-function-with-branches-in-block</a>/20"</span>) +<span id="L4788" class="LineNr"> 4788 </span> (<a href='109stream-equal.subx.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#L4680'>test-convert-function-with-branches-in-block</a>/21"</span>) +<span id="L4789" class="LineNr"> 4789 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/22"</span>) +<span id="L4790" class="LineNr"> 4790 </span> (<a href='109stream-equal.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#L4680'>test-convert-function-with-branches-in-block</a>/23"</span>) +<span id="L4791" class="LineNr"> 4791 </span> (<a href='109stream-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#L4680'>test-convert-function-with-branches-in-block</a>/24"</span>) +<span id="L4792" class="LineNr"> 4792 </span> (<a href='109stream-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#L4680'>test-convert-function-with-branches-in-block</a>/25"</span>) +<span id="L4793" class="LineNr"> 4793 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4794" class="LineNr"> 4794 </span> 89/<- %esp 5/r32/ebp +<span id="L4795" class="LineNr"> 4795 </span> 5d/pop-to-ebp +<span id="L4796" class="LineNr"> 4796 </span> c3/return +<span id="L4797" class="LineNr"> 4797 </span> +<span id="L4798" class="LineNr"> 4798 </span><span class="subxTest">test-convert-function-with-branches-in-named-block</span>: +<span id="L4799" class="LineNr"> 4799 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4800" class="LineNr"> 4800 </span> 55/push-ebp +<span id="L4801" class="LineNr"> 4801 </span> 89/<- %ebp 4/r32/esp +<span id="L4802" class="LineNr"> 4802 </span> <span class="subxComment"># setup</span> +<span id="L4803" class="LineNr"> 4803 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4804" class="LineNr"> 4804 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4805" class="LineNr"> 4805 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4806" class="LineNr"> 4806 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4807" class="LineNr"> 4807 </span> <span class="subxComment">#</span> +<span id="L4808" class="LineNr"> 4808 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) +<span id="L4809" class="LineNr"> 4809 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" $bar: {\n"</span>) +<span id="L4810" class="LineNr"> 4810 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->= $bar\n"</span>) +<span id="L4811" class="LineNr"> 4811 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if-addr< $bar\n"</span>) +<span id="L4812" class="LineNr"> 4812 </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="L4813" class="LineNr"> 4813 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) +<span id="L4814" class="LineNr"> 4814 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4815" class="LineNr"> 4815 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4816" class="LineNr"> 4816 </span> <span class="subxComment"># convert</span> +<span id="L4817" class="LineNr"> 4817 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4818" class="LineNr"> 4818 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4819" class="Folded"> 4819 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4825" class="LineNr"> 4825 </span> <span class="subxComment"># check output</span> +<span id="L4826" class="LineNr"> 4826 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/0"</span>) +<span id="L4827" class="LineNr"> 4827 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-named-block/1"</span>) +<span id="L4828" class="LineNr"> 4828 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/2"</span>) +<span id="L4829" class="LineNr"> 4829 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/3"</span>) +<span id="L4830" class="LineNr"> 4830 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/4"</span>) +<span id="L4831" class="LineNr"> 4831 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/5"</span>) +<span id="L4832" class="LineNr"> 4832 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/6"</span>) +<span id="L4833" class="LineNr"> 4833 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$bar:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/7"</span>) +<span id="L4834" class="LineNr"> 4834 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/8"</span>) +<span id="L4835" class="LineNr"> 4835 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/9"</span>) +<span id="L4836" class="LineNr"> 4836 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $bar:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/10"</span>) +<span id="L4837" class="LineNr"> 4837 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/11"</span>) +<span id="L4838" class="LineNr"> 4838 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/12"</span>) +<span id="L4839" class="LineNr"> 4839 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/13"</span>) +<span id="L4840" class="LineNr"> 4840 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $bar:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/14"</span>) +<span id="L4841" class="LineNr"> 4841 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/15"</span>) +<span id="L4842" class="LineNr"> 4842 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/16"</span>) +<span id="L4843" class="LineNr"> 4843 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/17"</span>) +<span id="L4844" class="LineNr"> 4844 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/18"</span>) +<span id="L4845" class="LineNr"> 4845 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$bar:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/19"</span>) +<span id="L4846" class="LineNr"> 4846 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4798'>test-convert-function-with-branches-in-named-block</a>/20"</span>) +<span id="L4847" class="LineNr"> 4847 </span> (<a href='109stream-equal.subx.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#L4798'>test-convert-function-with-branches-in-named-block</a>/21"</span>) +<span id="L4848" class="LineNr"> 4848 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-named-block/22"</span>) +<span id="L4849" class="LineNr"> 4849 </span> (<a href='109stream-equal.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#L4798'>test-convert-function-with-branches-in-named-block</a>/23"</span>) +<span id="L4850" class="LineNr"> 4850 </span> (<a href='109stream-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#L4798'>test-convert-function-with-branches-in-named-block</a>/24"</span>) +<span id="L4851" class="LineNr"> 4851 </span> (<a href='109stream-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#L4798'>test-convert-function-with-branches-in-named-block</a>/25"</span>) +<span id="L4852" class="LineNr"> 4852 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4853" class="LineNr"> 4853 </span> 89/<- %esp 5/r32/ebp +<span id="L4854" class="LineNr"> 4854 </span> 5d/pop-to-ebp +<span id="L4855" class="LineNr"> 4855 </span> c3/return +<span id="L4856" class="LineNr"> 4856 </span> +<span id="L4857" class="LineNr"> 4857 </span><span class="subxTest">test-convert-function-with-var-in-nested-block</span>: +<span id="L4858" class="LineNr"> 4858 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4859" class="LineNr"> 4859 </span> 55/push-ebp +<span id="L4860" class="LineNr"> 4860 </span> 89/<- %ebp 4/r32/esp +<span id="L4861" class="LineNr"> 4861 </span> <span class="subxComment"># setup</span> +<span id="L4862" class="LineNr"> 4862 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4863" class="LineNr"> 4863 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4864" class="LineNr"> 4864 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4865" class="LineNr"> 4865 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4866" class="LineNr"> 4866 </span> <span class="subxComment">#</span> +<span id="L4867" class="LineNr"> 4867 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) +<span id="L4868" class="LineNr"> 4868 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4869" class="LineNr"> 4869 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4870" class="LineNr"> 4870 </span> (<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="L4871" class="LineNr"> 4871 </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="L4872" class="LineNr"> 4872 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4873" class="LineNr"> 4873 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4874" class="LineNr"> 4874 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4875" class="LineNr"> 4875 </span> <span class="subxComment"># convert</span> +<span id="L4876" class="LineNr"> 4876 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4877" class="LineNr"> 4877 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4878" class="Folded"> 4878 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4884" class="LineNr"> 4884 </span> <span class="subxComment"># check output</span> +<span id="L4885" class="LineNr"> 4885 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4857'>test-convert-function-with-var-in-nested-block</a>/0"</span>) +<span id="L4886" class="LineNr"> 4886 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-var-in-nested-block/1"</span>) +<span id="L4887" class="LineNr"> 4887 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4857'>test-convert-function-with-var-in-nested-block</a>/2"</span>) +<span id="L4888" class="LineNr"> 4888 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4857'>test-convert-function-with-var-in-nested-block</a>/3"</span>) +<span id="L4889" class="LineNr"> 4889 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4857'>test-convert-function-with-var-in-nested-block</a>/4"</span>) +<span id="L4890" class="LineNr"> 4890 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4857'>test-convert-function-with-var-in-nested-block</a>/5"</span>) +<span id="L4891" class="LineNr"> 4891 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4857'>test-convert-function-with-var-in-nested-block</a>/6"</span>) +<span id="L4892" class="LineNr"> 4892 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4857'>test-convert-function-with-var-in-nested-block</a>/7"</span>) +<span id="L4893" class="LineNr"> 4893 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4857'>test-convert-function-with-var-in-nested-block</a>/8"</span>) +<span id="L4894" class="LineNr"> 4894 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4857'>test-convert-function-with-var-in-nested-block</a>/9"</span>) +<span id="L4895" class="LineNr"> 4895 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4857'>test-convert-function-with-var-in-nested-block</a>/10"</span>) +<span id="L4896" class="LineNr"> 4896 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4857'>test-convert-function-with-var-in-nested-block</a>/11"</span>) +<span id="L4897" class="LineNr"> 4897 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4857'>test-convert-function-with-var-in-nested-block</a>/12"</span>) +<span id="L4898" class="LineNr"> 4898 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4857'>test-convert-function-with-var-in-nested-block</a>/13"</span>) +<span id="L4899" class="LineNr"> 4899 </span> (<a href='109stream-equal.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#L4857'>test-convert-function-with-var-in-nested-block</a>/14"</span>) +<span id="L4900" class="LineNr"> 4900 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4857'>test-convert-function-with-var-in-nested-block</a>/15"</span>) +<span id="L4901" class="LineNr"> 4901 </span> (<a href='109stream-equal.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#L4857'>test-convert-function-with-var-in-nested-block</a>/16"</span>) +<span id="L4902" class="LineNr"> 4902 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4857'>test-convert-function-with-var-in-nested-block</a>/17"</span>) +<span id="L4903" class="LineNr"> 4903 </span> (<a href='109stream-equal.subx.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#L4857'>test-convert-function-with-var-in-nested-block</a>/18"</span>) +<span id="L4904" class="LineNr"> 4904 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-var-in-nested-block/19"</span>) +<span id="L4905" class="LineNr"> 4905 </span> (<a href='109stream-equal.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#L4857'>test-convert-function-with-var-in-nested-block</a>/20"</span>) +<span id="L4906" class="LineNr"> 4906 </span> (<a href='109stream-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#L4857'>test-convert-function-with-var-in-nested-block</a>/21"</span>) +<span id="L4907" class="LineNr"> 4907 </span> (<a href='109stream-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#L4857'>test-convert-function-with-var-in-nested-block</a>/22"</span>) +<span id="L4908" class="LineNr"> 4908 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4909" class="LineNr"> 4909 </span> 89/<- %esp 5/r32/ebp +<span id="L4910" class="LineNr"> 4910 </span> 5d/pop-to-ebp +<span id="L4911" class="LineNr"> 4911 </span> c3/return +<span id="L4912" class="LineNr"> 4912 </span> +<span id="L4913" class="LineNr"> 4913 </span><span class="subxTest">test-convert-function-with-multiple-vars-in-nested-blocks</span>: +<span id="L4914" class="LineNr"> 4914 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4915" class="LineNr"> 4915 </span> 55/push-ebp +<span id="L4916" class="LineNr"> 4916 </span> 89/<- %ebp 4/r32/esp +<span id="L4917" class="LineNr"> 4917 </span> <span class="subxComment"># setup</span> +<span id="L4918" class="LineNr"> 4918 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4919" class="LineNr"> 4919 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4920" class="LineNr"> 4920 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4921" class="LineNr"> 4921 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4922" class="LineNr"> 4922 </span> <span class="subxComment">#</span> +<span id="L4923" class="LineNr"> 4923 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) +<span id="L4924" class="LineNr"> 4924 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4925" class="LineNr"> 4925 </span> (<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="L4926" class="LineNr"> 4926 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4927" class="LineNr"> 4927 </span> (<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="L4928" class="LineNr"> 4928 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- add y\n"</span>) +<span id="L4929" class="LineNr"> 4929 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4930" class="LineNr"> 4930 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4931" class="LineNr"> 4931 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4932" class="LineNr"> 4932 </span> <span class="subxComment"># convert</span> +<span id="L4933" class="LineNr"> 4933 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4934" class="LineNr"> 4934 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4935" class="Folded"> 4935 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4941" class="LineNr"> 4941 </span> <span class="subxComment"># check output</span> +<span id="L4942" class="LineNr"> 4942 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/0"</span>) +<span id="L4943" class="LineNr"> 4943 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-multiple-vars-in-nested-blocks/1"</span>) +<span id="L4944" class="LineNr"> 4944 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/2"</span>) +<span id="L4945" class="LineNr"> 4945 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/3"</span>) +<span id="L4946" class="LineNr"> 4946 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/4"</span>) +<span id="L4947" class="LineNr"> 4947 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/5"</span>) +<span id="L4948" class="LineNr"> 4948 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/6"</span>) +<span id="L4949" class="LineNr"> 4949 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/7"</span>) +<span id="L4950" class="LineNr"> 4950 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/8"</span>) +<span id="L4951" class="LineNr"> 4951 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/9"</span>) +<span id="L4952" class="LineNr"> 4952 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/10"</span>) +<span id="L4953" class="LineNr"> 4953 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/11"</span>) +<span id="L4954" class="LineNr"> 4954 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/12"</span>) +<span id="L4955" class="LineNr"> 4955 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 03/add *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/13"</span>) +<span id="L4956" class="LineNr"> 4956 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/14"</span>) +<span id="L4957" class="LineNr"> 4957 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/15"</span>) +<span id="L4958" class="LineNr"> 4958 </span> (<a href='109stream-equal.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#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/16"</span>) +<span id="L4959" class="LineNr"> 4959 </span> (<a href='109stream-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#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/17"</span>) +<span id="L4960" class="LineNr"> 4960 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/18"</span>) +<span id="L4961" class="LineNr"> 4961 </span> (<a href='109stream-equal.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#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/19"</span>) +<span id="L4962" class="LineNr"> 4962 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/20"</span>) +<span id="L4963" class="LineNr"> 4963 </span> (<a href='109stream-equal.subx.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#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/21"</span>) +<span id="L4964" class="LineNr"> 4964 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-multiple-vars-in-nested-blocks/22"</span>) +<span id="L4965" class="LineNr"> 4965 </span> (<a href='109stream-equal.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#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/23"</span>) +<span id="L4966" class="LineNr"> 4966 </span> (<a href='109stream-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#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/24"</span>) +<span id="L4967" class="LineNr"> 4967 </span> (<a href='109stream-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#L4913'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/25"</span>) +<span id="L4968" class="LineNr"> 4968 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4969" class="LineNr"> 4969 </span> 89/<- %esp 5/r32/ebp +<span id="L4970" class="LineNr"> 4970 </span> 5d/pop-to-ebp +<span id="L4971" class="LineNr"> 4971 </span> c3/return +<span id="L4972" class="LineNr"> 4972 </span> +<span id="L4973" class="LineNr"> 4973 </span><span class="subxTest">test-convert-function-with-branches-and-local-vars</span>: +<span id="L4974" class="LineNr"> 4974 </span> <span class="subxComment"># A conditional 'break' after a 'var' in a block is converted into a</span> +<span id="L4975" class="LineNr"> 4975 </span> <span class="subxComment"># nested block that performs all necessary cleanup before jumping. This</span> +<span id="L4976" class="LineNr"> 4976 </span> <span class="subxComment"># results in some ugly code duplication.</span> +<span id="L4977" class="LineNr"> 4977 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4978" class="LineNr"> 4978 </span> 55/push-ebp +<span id="L4979" class="LineNr"> 4979 </span> 89/<- %ebp 4/r32/esp +<span id="L4980" class="LineNr"> 4980 </span> <span class="subxComment"># setup</span> +<span id="L4981" class="LineNr"> 4981 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4982" class="LineNr"> 4982 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4983" class="LineNr"> 4983 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4984" class="LineNr"> 4984 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4985" class="LineNr"> 4985 </span> <span class="subxComment">#</span> +<span id="L4986" class="LineNr"> 4986 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4987" class="LineNr"> 4987 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4988" class="LineNr"> 4988 </span> (<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="L4989" class="LineNr"> 4989 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) +<span id="L4990" class="LineNr"> 4990 </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="L4991" class="LineNr"> 4991 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4992" class="LineNr"> 4992 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4993" class="LineNr"> 4993 </span> <span class="subxComment"># convert</span> +<span id="L4994" class="LineNr"> 4994 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L4995" class="LineNr"> 4995 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4996" class="Folded"> 4996 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5002" class="LineNr"> 5002 </span> <span class="subxComment"># check output</span> +<span id="L5003" class="LineNr"> 5003 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/0"</span>) +<span id="L5004" class="LineNr"> 5004 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-local-vars/1"</span>) +<span id="L5005" class="LineNr"> 5005 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/2"</span>) +<span id="L5006" class="LineNr"> 5006 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/3"</span>) +<span id="L5007" class="LineNr"> 5007 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/4"</span>) +<span id="L5008" class="LineNr"> 5008 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/5"</span>) +<span id="L5009" class="LineNr"> 5009 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/6"</span>) +<span id="L5010" class="LineNr"> 5010 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/7"</span>) +<span id="L5011" class="LineNr"> 5011 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/8"</span>) +<span id="L5012" class="LineNr"> 5012 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/9"</span>) +<span id="L5013" class="LineNr"> 5013 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/10"</span>) +<span id="L5014" class="LineNr"> 5014 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/11"</span>) +<span id="L5015" class="LineNr"> 5015 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/12"</span>) +<span id="L5016" class="LineNr"> 5016 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/13"</span>) +<span id="L5017" class="LineNr"> 5017 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/14"</span>) +<span id="L5018" class="LineNr"> 5018 </span> (<a href='109stream-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#L4973'>test-convert-function-with-branches-and-local-vars</a>/15"</span>) +<span id="L5019" class="LineNr"> 5019 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/16"</span>) +<span id="L5020" class="LineNr"> 5020 </span> (<a href='109stream-equal.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#L4973'>test-convert-function-with-branches-and-local-vars</a>/17"</span>) +<span id="L5021" class="LineNr"> 5021 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4973'>test-convert-function-with-branches-and-local-vars</a>/18"</span>) +<span id="L5022" class="LineNr"> 5022 </span> (<a href='109stream-equal.subx.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#L4973'>test-convert-function-with-branches-and-local-vars</a>/19"</span>) +<span id="L5023" class="LineNr"> 5023 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-local-vars/20"</span>) +<span id="L5024" class="LineNr"> 5024 </span> (<a href='109stream-equal.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#L4973'>test-convert-function-with-branches-and-local-vars</a>/21"</span>) +<span id="L5025" class="LineNr"> 5025 </span> (<a href='109stream-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#L4973'>test-convert-function-with-branches-and-local-vars</a>/22"</span>) +<span id="L5026" class="LineNr"> 5026 </span> (<a href='109stream-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#L4973'>test-convert-function-with-branches-and-local-vars</a>/23"</span>) +<span id="L5027" class="LineNr"> 5027 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5028" class="LineNr"> 5028 </span> 89/<- %esp 5/r32/ebp +<span id="L5029" class="LineNr"> 5029 </span> 5d/pop-to-ebp +<span id="L5030" class="LineNr"> 5030 </span> c3/return +<span id="L5031" class="LineNr"> 5031 </span> +<span id="L5032" class="LineNr"> 5032 </span><span class="subxTest">test-convert-function-with-conditional-loops-and-local-vars</span>: +<span id="L5033" class="LineNr"> 5033 </span> <span class="subxComment"># A conditional 'loop' after a 'var' in a block is converted into a nested</span> +<span id="L5034" class="LineNr"> 5034 </span> <span class="subxComment"># block that performs all necessary cleanup before jumping. This results</span> +<span id="L5035" class="LineNr"> 5035 </span> <span class="subxComment"># in some ugly code duplication.</span> +<span id="L5036" class="LineNr"> 5036 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5037" class="LineNr"> 5037 </span> 55/push-ebp +<span id="L5038" class="LineNr"> 5038 </span> 89/<- %ebp 4/r32/esp +<span id="L5039" class="LineNr"> 5039 </span> <span class="subxComment"># setup</span> +<span id="L5040" class="LineNr"> 5040 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5041" class="LineNr"> 5041 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5042" class="LineNr"> 5042 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5043" class="LineNr"> 5043 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5044" class="LineNr"> 5044 </span> <span class="subxComment">#</span> +<span id="L5045" class="LineNr"> 5045 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5046" class="LineNr"> 5046 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5047" class="LineNr"> 5047 </span> (<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="L5048" class="LineNr"> 5048 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if->=\n"</span>) +<span id="L5049" class="LineNr"> 5049 </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="L5050" class="LineNr"> 5050 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5051" class="LineNr"> 5051 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5052" class="LineNr"> 5052 </span> <span class="subxComment"># convert</span> +<span id="L5053" class="LineNr"> 5053 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5054" class="LineNr"> 5054 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5055" class="Folded"> 5055 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5061" class="LineNr"> 5061 </span> <span class="subxComment"># check output</span> +<span id="L5062" class="LineNr"> 5062 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/0"</span>) +<span id="L5063" class="LineNr"> 5063 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-conditional-loops-and-local-vars/1"</span>) +<span id="L5064" class="LineNr"> 5064 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/2"</span>) +<span id="L5065" class="LineNr"> 5065 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/3"</span>) +<span id="L5066" class="LineNr"> 5066 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/4"</span>) +<span id="L5067" class="LineNr"> 5067 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/5"</span>) +<span id="L5068" class="LineNr"> 5068 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/6"</span>) +<span id="L5069" class="LineNr"> 5069 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/7"</span>) +<span id="L5070" class="LineNr"> 5070 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/8"</span>) +<span id="L5071" class="LineNr"> 5071 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/9"</span>) +<span id="L5072" class="LineNr"> 5072 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/10"</span>) +<span id="L5073" class="LineNr"> 5073 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/11"</span>) +<span id="L5074" class="LineNr"> 5074 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/12"</span>) +<span id="L5075" class="LineNr"> 5075 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/13"</span>) +<span id="L5076" class="LineNr"> 5076 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/14"</span>) +<span id="L5077" class="LineNr"> 5077 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/15"</span>) +<span id="L5078" class="LineNr"> 5078 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/16"</span>) +<span id="L5079" class="LineNr"> 5079 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/17"</span>) +<span id="L5080" class="LineNr"> 5080 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/18"</span>) +<span id="L5081" class="LineNr"> 5081 </span> (<a href='109stream-equal.subx.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#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/19"</span>) +<span id="L5082" class="LineNr"> 5082 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-conditional-loops-and-local-vars/20"</span>) +<span id="L5083" class="LineNr"> 5083 </span> (<a href='109stream-equal.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#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/21"</span>) +<span id="L5084" class="LineNr"> 5084 </span> (<a href='109stream-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#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/22"</span>) +<span id="L5085" class="LineNr"> 5085 </span> (<a href='109stream-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#L5032'>test-convert-function-with-conditional-loops-and-local-vars</a>/23"</span>) +<span id="L5086" class="LineNr"> 5086 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5087" class="LineNr"> 5087 </span> 89/<- %esp 5/r32/ebp +<span id="L5088" class="LineNr"> 5088 </span> 5d/pop-to-ebp +<span id="L5089" class="LineNr"> 5089 </span> c3/return +<span id="L5090" class="LineNr"> 5090 </span> +<span id="L5091" class="LineNr"> 5091 </span><span class="subxTest">test-convert-function-with-unconditional-loops-and-local-vars</span>: +<span id="L5092" class="LineNr"> 5092 </span> <span class="subxComment"># An unconditional 'loop' after a 'var' in a block is emitted _after_ the</span> +<span id="L5093" class="LineNr"> 5093 </span> <span class="subxComment"># regular block cleanup. Any instructions after 'loop' are dead and</span> +<span id="L5094" class="LineNr"> 5094 </span> <span class="subxComment"># therefore skipped.</span> +<span id="L5095" class="LineNr"> 5095 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5096" class="LineNr"> 5096 </span> 55/push-ebp +<span id="L5097" class="LineNr"> 5097 </span> 89/<- %ebp 4/r32/esp +<span id="L5098" class="LineNr"> 5098 </span> <span class="subxComment"># setup</span> +<span id="L5099" class="LineNr"> 5099 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5100" class="LineNr"> 5100 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5101" class="LineNr"> 5101 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5102" class="LineNr"> 5102 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5103" class="LineNr"> 5103 </span> <span class="subxComment">#</span> +<span id="L5104" class="LineNr"> 5104 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5105" class="LineNr"> 5105 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5106" class="LineNr"> 5106 </span> (<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="L5107" class="LineNr"> 5107 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) +<span id="L5108" class="LineNr"> 5108 </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="L5109" class="LineNr"> 5109 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5110" class="LineNr"> 5110 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5111" class="LineNr"> 5111 </span> <span class="subxComment"># convert</span> +<span id="L5112" class="LineNr"> 5112 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5113" class="LineNr"> 5113 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5114" class="Folded"> 5114 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5120" class="LineNr"> 5120 </span> <span class="subxComment"># check output</span> +<span id="L5121" class="LineNr"> 5121 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/0"</span>) +<span id="L5122" class="LineNr"> 5122 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-loops-and-local-vars/1"</span>) +<span id="L5123" class="LineNr"> 5123 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/2"</span>) +<span id="L5124" class="LineNr"> 5124 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/3"</span>) +<span id="L5125" class="LineNr"> 5125 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/4"</span>) +<span id="L5126" class="LineNr"> 5126 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/5"</span>) +<span id="L5127" class="LineNr"> 5127 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/6"</span>) +<span id="L5128" class="LineNr"> 5128 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/7"</span>) +<span id="L5129" class="LineNr"> 5129 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/8"</span>) +<span id="L5130" class="LineNr"> 5130 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/9"</span>) +<span id="L5131" class="LineNr"> 5131 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/10"</span>) +<span id="L5132" class="LineNr"> 5132 </span> <span class="subxComment"># not emitted: ff 0/subop/increment *(ebp+0xfffffffc)</span> +<span id="L5133" class="LineNr"> 5133 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/11"</span>) +<span id="L5134" class="LineNr"> 5134 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/12"</span>) +<span id="L5135" class="LineNr"> 5135 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/13"</span>) +<span id="L5136" class="LineNr"> 5136 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/14"</span>) +<span id="L5137" class="LineNr"> 5137 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-loops-and-local-vars/15"</span>) +<span id="L5138" class="LineNr"> 5138 </span> (<a href='109stream-equal.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#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/16"</span>) +<span id="L5139" class="LineNr"> 5139 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/17"</span>) +<span id="L5140" class="LineNr"> 5140 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5091'>test-convert-function-with-unconditional-loops-and-local-vars</a>/18"</span>) +<span id="L5141" class="LineNr"> 5141 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5142" class="LineNr"> 5142 </span> 89/<- %esp 5/r32/ebp +<span id="L5143" class="LineNr"> 5143 </span> 5d/pop-to-ebp +<span id="L5144" class="LineNr"> 5144 </span> c3/return +<span id="L5145" class="LineNr"> 5145 </span> +<span id="L5146" class="LineNr"> 5146 </span><span class="subxTest">test-convert-function-with-branches-and-loops-and-local-vars</span>: +<span id="L5147" class="LineNr"> 5147 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5148" class="LineNr"> 5148 </span> 55/push-ebp +<span id="L5149" class="LineNr"> 5149 </span> 89/<- %ebp 4/r32/esp +<span id="L5150" class="LineNr"> 5150 </span> <span class="subxComment"># setup</span> +<span id="L5151" class="LineNr"> 5151 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5152" class="LineNr"> 5152 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5153" class="LineNr"> 5153 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5154" class="LineNr"> 5154 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5155" class="LineNr"> 5155 </span> <span class="subxComment">#</span> +<span id="L5156" class="LineNr"> 5156 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5157" class="LineNr"> 5157 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5158" class="LineNr"> 5158 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L5159" class="LineNr"> 5159 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) +<span id="L5160" class="LineNr"> 5160 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L5161" class="LineNr"> 5161 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) +<span id="L5162" class="LineNr"> 5162 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5163" class="LineNr"> 5163 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5164" class="LineNr"> 5164 </span> <span class="subxComment"># convert</span> +<span id="L5165" class="LineNr"> 5165 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5166" class="LineNr"> 5166 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5167" class="Folded"> 5167 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5173" class="LineNr"> 5173 </span> <span class="subxComment"># check output</span> +<span id="L5174" class="LineNr"> 5174 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/0"</span>) +<span id="L5175" class="LineNr"> 5175 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-loops-and-local-vars/1"</span>) +<span id="L5176" class="LineNr"> 5176 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/2"</span>) +<span id="L5177" class="LineNr"> 5177 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/3"</span>) +<span id="L5178" class="LineNr"> 5178 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/4"</span>) +<span id="L5179" class="LineNr"> 5179 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/5"</span>) +<span id="L5180" class="LineNr"> 5180 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/6"</span>) +<span id="L5181" class="LineNr"> 5181 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/7"</span>) +<span id="L5182" class="LineNr"> 5182 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/8"</span>) +<span id="L5183" class="LineNr"> 5183 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/9"</span>) +<span id="L5184" class="LineNr"> 5184 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/10"</span>) +<span id="L5185" class="LineNr"> 5185 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/11"</span>) +<span id="L5186" class="LineNr"> 5186 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/12"</span>) +<span id="L5187" class="LineNr"> 5187 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/13"</span>) +<span id="L5188" class="LineNr"> 5188 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/14"</span>) +<span id="L5189" class="LineNr"> 5189 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/15"</span>) +<span id="L5190" class="LineNr"> 5190 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/16"</span>) +<span id="L5191" class="LineNr"> 5191 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/17"</span>) +<span id="L5192" class="LineNr"> 5192 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/18"</span>) +<span id="L5193" class="LineNr"> 5193 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/19"</span>) +<span id="L5194" class="LineNr"> 5194 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/20"</span>) +<span id="L5195" class="LineNr"> 5195 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-loops-and-local-vars/21"</span>) +<span id="L5196" class="LineNr"> 5196 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/22"</span>) +<span id="L5197" class="LineNr"> 5197 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/23"</span>) +<span id="L5198" class="LineNr"> 5198 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-branches-and-loops-and-local-vars</a>/24"</span>) +<span id="L5199" class="LineNr"> 5199 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5200" class="LineNr"> 5200 </span> 89/<- %esp 5/r32/ebp +<span id="L5201" class="LineNr"> 5201 </span> 5d/pop-to-ebp +<span id="L5202" class="LineNr"> 5202 </span> c3/return +<span id="L5203" class="LineNr"> 5203 </span> +<span id="L5204" class="LineNr"> 5204 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</span>: +<span id="L5205" class="LineNr"> 5205 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5206" class="LineNr"> 5206 </span> 55/push-ebp +<span id="L5207" class="LineNr"> 5207 </span> 89/<- %ebp 4/r32/esp +<span id="L5208" class="LineNr"> 5208 </span> <span class="subxComment"># setup</span> +<span id="L5209" class="LineNr"> 5209 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5210" class="LineNr"> 5210 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5211" class="LineNr"> 5211 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5212" class="LineNr"> 5212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5213" class="LineNr"> 5213 </span> <span class="subxComment">#</span> +<span id="L5214" class="LineNr"> 5214 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5215" class="LineNr"> 5215 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) +<span id="L5216" class="LineNr"> 5216 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L5217" class="LineNr"> 5217 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5218" class="LineNr"> 5218 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) +<span id="L5219" class="LineNr"> 5219 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->= a\n"</span>) +<span id="L5220" class="LineNr"> 5220 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L5221" class="LineNr"> 5221 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) +<span id="L5222" class="LineNr"> 5222 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5223" class="LineNr"> 5223 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5224" class="LineNr"> 5224 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5225" class="LineNr"> 5225 </span> <span class="subxComment"># convert</span> +<span id="L5226" class="LineNr"> 5226 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5227" class="LineNr"> 5227 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5228" class="Folded"> 5228 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5234" class="LineNr"> 5234 </span> <span class="subxComment"># check output</span> +<span id="L5235" class="LineNr"> 5235 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/0"</span>) +<span id="L5236" class="LineNr"> 5236 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars/1"</span>) +<span id="L5237" class="LineNr"> 5237 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/2"</span>) +<span id="L5238" class="LineNr"> 5238 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/3"</span>) +<span id="L5239" class="LineNr"> 5239 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/4"</span>) +<span id="L5240" class="LineNr"> 5240 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/5"</span>) +<span id="L5241" class="LineNr"> 5241 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/6"</span>) +<span id="L5242" class="LineNr"> 5242 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/7"</span>) +<span id="L5243" class="LineNr"> 5243 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/8"</span>) +<span id="L5244" class="LineNr"> 5244 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/9"</span>) +<span id="L5245" class="LineNr"> 5245 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/10"</span>) +<span id="L5246" class="LineNr"> 5246 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/11"</span>) +<span id="L5247" class="LineNr"> 5247 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/12"</span>) +<span id="L5248" class="LineNr"> 5248 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/13"</span>) +<span id="L5249" class="LineNr"> 5249 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/14"</span>) +<span id="L5250" class="LineNr"> 5250 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/15"</span>) +<span id="L5251" class="LineNr"> 5251 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/16"</span>) +<span id="L5252" class="LineNr"> 5252 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/17"</span>) +<span id="L5253" class="LineNr"> 5253 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/18"</span>) +<span id="L5254" class="LineNr"> 5254 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/19"</span>) +<span id="L5255" class="LineNr"> 5255 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/20"</span>) +<span id="L5256" class="LineNr"> 5256 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/21"</span>) +<span id="L5257" class="LineNr"> 5257 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/22"</span>) +<span id="L5258" class="LineNr"> 5258 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/23"</span>) +<span id="L5259" class="LineNr"> 5259 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/24"</span>) +<span id="L5260" class="LineNr"> 5260 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/25"</span>) +<span id="L5261" class="LineNr"> 5261 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/26"</span>) +<span id="L5262" class="LineNr"> 5262 </span> (<a href='109stream-equal.subx.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#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/27"</span>) +<span id="L5263" class="LineNr"> 5263 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars/28"</span>) +<span id="L5264" class="LineNr"> 5264 </span> (<a href='109stream-equal.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#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/29"</span>) +<span id="L5265" class="LineNr"> 5265 </span> (<a href='109stream-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#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/30"</span>) +<span id="L5266" class="LineNr"> 5266 </span> (<a href='109stream-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#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/31"</span>) +<span id="L5267" class="LineNr"> 5267 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5268" class="LineNr"> 5268 </span> 89/<- %esp 5/r32/ebp +<span id="L5269" class="LineNr"> 5269 </span> 5d/pop-to-ebp +<span id="L5270" class="LineNr"> 5270 </span> c3/return +<span id="L5271" class="LineNr"> 5271 </span> +<span id="L5272" class="LineNr"> 5272 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</span>: +<span id="L5273" class="LineNr"> 5273 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5274" class="LineNr"> 5274 </span> 55/push-ebp +<span id="L5275" class="LineNr"> 5275 </span> 89/<- %ebp 4/r32/esp +<span id="L5276" class="LineNr"> 5276 </span> <span class="subxComment"># setup</span> +<span id="L5277" class="LineNr"> 5277 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5278" class="LineNr"> 5278 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5279" class="LineNr"> 5279 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5280" class="LineNr"> 5280 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5281" class="LineNr"> 5281 </span> <span class="subxComment"># non-local conditional branch from a block without a local variable,</span> +<span id="L5282" class="LineNr"> 5282 </span> <span class="subxComment"># unwinding a local on the stack</span> +<span id="L5283" class="LineNr"> 5283 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5284" class="LineNr"> 5284 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) +<span id="L5285" class="LineNr"> 5285 </span> (<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="L5286" class="LineNr"> 5286 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5287" class="LineNr"> 5287 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->= a\n"</span>) +<span id="L5288" class="LineNr"> 5288 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5289" class="LineNr"> 5289 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5290" class="LineNr"> 5290 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5291" class="LineNr"> 5291 </span> <span class="subxComment"># convert</span> +<span id="L5292" class="LineNr"> 5292 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5293" class="LineNr"> 5293 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5294" class="Folded"> 5294 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5300" class="LineNr"> 5300 </span> <span class="subxComment"># check output</span> +<span id="L5301" class="LineNr"> 5301 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/0"</span>) +<span id="L5302" class="LineNr"> 5302 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2/1"</span>) +<span id="L5303" class="LineNr"> 5303 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/2"</span>) +<span id="L5304" class="LineNr"> 5304 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/3"</span>) +<span id="L5305" class="LineNr"> 5305 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/4"</span>) +<span id="L5306" class="LineNr"> 5306 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/5"</span>) +<span id="L5307" class="LineNr"> 5307 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/6"</span>) +<span id="L5308" class="LineNr"> 5308 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/7"</span>) +<span id="L5309" class="LineNr"> 5309 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/8"</span>) +<span id="L5310" class="LineNr"> 5310 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/9"</span>) +<span id="L5311" class="LineNr"> 5311 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/10"</span>) +<span id="L5312" class="LineNr"> 5312 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/11"</span>) +<span id="L5313" class="LineNr"> 5313 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/12"</span>) +<span id="L5314" class="LineNr"> 5314 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/13"</span>) +<span id="L5315" class="LineNr"> 5315 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/14"</span>) +<span id="L5316" class="LineNr"> 5316 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/15"</span>) +<span id="L5317" class="LineNr"> 5317 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/16"</span>) +<span id="L5318" class="LineNr"> 5318 </span> (<a href='109stream-equal.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#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/17"</span>) +<span id="L5319" class="LineNr"> 5319 </span> (<a href='109stream-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#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/18"</span>) +<span id="L5320" class="LineNr"> 5320 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/19"</span>) +<span id="L5321" class="LineNr"> 5321 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/20"</span>) +<span id="L5322" class="LineNr"> 5322 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/21"</span>) +<span id="L5323" class="LineNr"> 5323 </span> (<a href='109stream-equal.subx.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#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/22"</span>) +<span id="L5324" class="LineNr"> 5324 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2/23"</span>) +<span id="L5325" class="LineNr"> 5325 </span> (<a href='109stream-equal.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#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/24"</span>) +<span id="L5326" class="LineNr"> 5326 </span> (<a href='109stream-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#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/25"</span>) +<span id="L5327" class="LineNr"> 5327 </span> (<a href='109stream-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#L5272'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/26"</span>) +<span id="L5328" class="LineNr"> 5328 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5329" class="LineNr"> 5329 </span> 89/<- %esp 5/r32/ebp +<span id="L5330" class="LineNr"> 5330 </span> 5d/pop-to-ebp +<span id="L5331" class="LineNr"> 5331 </span> c3/return +<span id="L5332" class="LineNr"> 5332 </span> +<span id="L5333" class="LineNr"> 5333 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</span>: +<span id="L5334" class="LineNr"> 5334 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5335" class="LineNr"> 5335 </span> 55/push-ebp +<span id="L5336" class="LineNr"> 5336 </span> 89/<- %ebp 4/r32/esp +<span id="L5337" class="LineNr"> 5337 </span> <span class="subxComment"># setup</span> +<span id="L5338" class="LineNr"> 5338 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5339" class="LineNr"> 5339 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5340" class="LineNr"> 5340 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5341" class="LineNr"> 5341 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5342" class="LineNr"> 5342 </span> <span class="subxComment"># non-local unconditional branch from a block without a local variable,</span> +<span id="L5343" class="LineNr"> 5343 </span> <span class="subxComment"># unwinding a local on the stack</span> +<span id="L5344" class="LineNr"> 5344 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5345" class="LineNr"> 5345 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) +<span id="L5346" class="LineNr"> 5346 </span> (<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="L5347" class="LineNr"> 5347 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5348" class="LineNr"> 5348 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break a\n"</span>) +<span id="L5349" class="LineNr"> 5349 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5350" class="LineNr"> 5350 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5351" class="LineNr"> 5351 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5352" class="LineNr"> 5352 </span> <span class="subxComment"># convert</span> +<span id="L5353" class="LineNr"> 5353 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5354" class="LineNr"> 5354 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5355" class="Folded"> 5355 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5361" class="LineNr"> 5361 </span> <span class="subxComment"># check output</span> +<span id="L5362" class="LineNr"> 5362 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/0"</span>) +<span id="L5363" class="LineNr"> 5363 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3/1"</span>) +<span id="L5364" class="LineNr"> 5364 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/2"</span>) +<span id="L5365" class="LineNr"> 5365 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/3"</span>) +<span id="L5366" class="LineNr"> 5366 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/4"</span>) +<span id="L5367" class="LineNr"> 5367 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/5"</span>) +<span id="L5368" class="LineNr"> 5368 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/6"</span>) +<span id="L5369" class="LineNr"> 5369 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/7"</span>) +<span id="L5370" class="LineNr"> 5370 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/8"</span>) +<span id="L5371" class="LineNr"> 5371 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/9"</span>) +<span id="L5372" class="LineNr"> 5372 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/10"</span>) +<span id="L5373" class="LineNr"> 5373 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/11"</span>) +<span id="L5374" class="LineNr"> 5374 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/12"</span>) +<span id="L5375" class="LineNr"> 5375 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/14"</span>) +<span id="L5376" class="LineNr"> 5376 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/15"</span>) +<span id="L5377" class="LineNr"> 5377 </span> (<a href='109stream-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#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/16"</span>) +<span id="L5378" class="LineNr"> 5378 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/17"</span>) +<span id="L5379" class="LineNr"> 5379 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/18"</span>) +<span id="L5380" class="LineNr"> 5380 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/19"</span>) +<span id="L5381" class="LineNr"> 5381 </span> (<a href='109stream-equal.subx.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#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/20"</span>) +<span id="L5382" class="LineNr"> 5382 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3/21"</span>) +<span id="L5383" class="LineNr"> 5383 </span> (<a href='109stream-equal.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#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/22"</span>) +<span id="L5384" class="LineNr"> 5384 </span> (<a href='109stream-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#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/23"</span>) +<span id="L5385" class="LineNr"> 5385 </span> (<a href='109stream-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#L5333'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/24"</span>) +<span id="L5386" class="LineNr"> 5386 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5387" class="LineNr"> 5387 </span> 89/<- %esp 5/r32/ebp +<span id="L5388" class="LineNr"> 5388 </span> 5d/pop-to-ebp +<span id="L5389" class="LineNr"> 5389 </span> c3/return +<span id="L5390" class="LineNr"> 5390 </span> +<span id="L5391" class="LineNr"> 5391 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</span>: +<span id="L5392" class="LineNr"> 5392 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5393" class="LineNr"> 5393 </span> 55/push-ebp +<span id="L5394" class="LineNr"> 5394 </span> 89/<- %ebp 4/r32/esp +<span id="L5395" class="LineNr"> 5395 </span> <span class="subxComment"># setup</span> +<span id="L5396" class="LineNr"> 5396 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5397" class="LineNr"> 5397 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5398" class="LineNr"> 5398 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5399" class="LineNr"> 5399 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5400" class="LineNr"> 5400 </span> <span class="subxComment">#</span> +<span id="L5401" class="LineNr"> 5401 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5402" class="LineNr"> 5402 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) +<span id="L5403" class="LineNr"> 5403 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/esi: int <- copy 0\n"</span>) +<span id="L5404" class="LineNr"> 5404 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5405" class="LineNr"> 5405 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break a\n"</span>) +<span id="L5406" class="LineNr"> 5406 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5407" class="LineNr"> 5407 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5408" class="LineNr"> 5408 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5409" class="LineNr"> 5409 </span> <span class="subxComment"># convert</span> +<span id="L5410" class="LineNr"> 5410 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5411" class="LineNr"> 5411 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5412" class="Folded"> 5412 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5418" class="LineNr"> 5418 </span> <span class="subxComment"># check output</span> +<span id="L5419" class="LineNr"> 5419 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/0"</span>) +<span id="L5420" class="LineNr"> 5420 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4/1"</span>) +<span id="L5421" class="LineNr"> 5421 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/2"</span>) +<span id="L5422" class="LineNr"> 5422 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/3"</span>) +<span id="L5423" class="LineNr"> 5423 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/4"</span>) +<span id="L5424" class="LineNr"> 5424 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/5"</span>) +<span id="L5425" class="LineNr"> 5425 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/6"</span>) +<span id="L5426" class="LineNr"> 5426 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/7"</span>) +<span id="L5427" class="LineNr"> 5427 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/8"</span>) +<span id="L5428" class="LineNr"> 5428 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/9"</span>) +<span id="L5429" class="LineNr"> 5429 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/10"</span>) +<span id="L5430" class="LineNr"> 5430 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/11"</span>) +<span id="L5431" class="LineNr"> 5431 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/12"</span>) +<span id="L5432" class="LineNr"> 5432 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/13"</span>) +<span id="L5433" class="LineNr"> 5433 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/14"</span>) +<span id="L5434" class="LineNr"> 5434 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/15"</span>) +<span id="L5435" class="LineNr"> 5435 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/16"</span>) +<span id="L5436" class="LineNr"> 5436 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/17"</span>) +<span id="L5437" class="LineNr"> 5437 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/18"</span>) +<span id="L5438" class="LineNr"> 5438 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/19"</span>) +<span id="L5439" class="LineNr"> 5439 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/20"</span>) +<span id="L5440" class="LineNr"> 5440 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4/21"</span>) +<span id="L5441" class="LineNr"> 5441 </span> (<a href='109stream-equal.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#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/22"</span>) +<span id="L5442" class="LineNr"> 5442 </span> (<a href='109stream-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#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/23"</span>) +<span id="L5443" class="LineNr"> 5443 </span> (<a href='109stream-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#L5391'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/24"</span>) +<span id="L5444" class="LineNr"> 5444 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5445" class="LineNr"> 5445 </span> 89/<- %esp 5/r32/ebp +<span id="L5446" class="LineNr"> 5446 </span> 5d/pop-to-ebp +<span id="L5447" class="LineNr"> 5447 </span> c3/return +<span id="L5448" class="LineNr"> 5448 </span> +<span id="L5449" class="LineNr"> 5449 </span><span class="subxTest">test-convert-function-with-nonlocal-unconditional-break-and-local-vars</span>: +<span id="L5450" class="LineNr"> 5450 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5451" class="LineNr"> 5451 </span> 55/push-ebp +<span id="L5452" class="LineNr"> 5452 </span> 89/<- %ebp 4/r32/esp +<span id="L5453" class="LineNr"> 5453 </span> <span class="subxComment"># setup</span> +<span id="L5454" class="LineNr"> 5454 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5455" class="LineNr"> 5455 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5456" class="LineNr"> 5456 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5457" class="LineNr"> 5457 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5458" class="LineNr"> 5458 </span> <span class="subxComment">#</span> +<span id="L5459" class="LineNr"> 5459 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5460" class="LineNr"> 5460 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) +<span id="L5461" class="LineNr"> 5461 </span> (<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="L5462" class="LineNr"> 5462 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5463" class="LineNr"> 5463 </span> (<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="L5464" class="LineNr"> 5464 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break a\n"</span>) +<span id="L5465" class="LineNr"> 5465 </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="L5466" class="LineNr"> 5466 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5467" class="LineNr"> 5467 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5468" class="LineNr"> 5468 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5469" class="LineNr"> 5469 </span> <span class="subxComment"># convert</span> +<span id="L5470" class="LineNr"> 5470 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5471" class="LineNr"> 5471 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5472" class="Folded"> 5472 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5478" class="LineNr"> 5478 </span> <span class="subxComment"># check output</span> +<span id="L5479" class="LineNr"> 5479 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/0"</span>) +<span id="L5480" class="LineNr"> 5480 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-break-and-local-vars/1"</span>) +<span id="L5481" class="LineNr"> 5481 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/2"</span>) +<span id="L5482" class="LineNr"> 5482 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/3"</span>) +<span id="L5483" class="LineNr"> 5483 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/4"</span>) +<span id="L5484" class="LineNr"> 5484 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/5"</span>) +<span id="L5485" class="LineNr"> 5485 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/6"</span>) +<span id="L5486" class="LineNr"> 5486 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/7"</span>) +<span id="L5487" class="LineNr"> 5487 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/8"</span>) +<span id="L5488" class="LineNr"> 5488 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/9"</span>) +<span id="L5489" class="LineNr"> 5489 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/10"</span>) +<span id="L5490" class="LineNr"> 5490 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/11"</span>) +<span id="L5491" class="LineNr"> 5491 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/12"</span>) +<span id="L5492" class="LineNr"> 5492 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/13"</span>) +<span id="L5493" class="LineNr"> 5493 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/14"</span>) +<span id="L5494" class="LineNr"> 5494 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/15"</span>) +<span id="L5495" class="LineNr"> 5495 </span> (<a href='109stream-equal.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#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/16"</span>) +<span id="L5496" class="LineNr"> 5496 </span> (<a href='109stream-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#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/17"</span>) +<span id="L5497" class="LineNr"> 5497 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/18"</span>) +<span id="L5498" class="LineNr"> 5498 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/19"</span>) +<span id="L5499" class="LineNr"> 5499 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/20"</span>) +<span id="L5500" class="LineNr"> 5500 </span> (<a href='109stream-equal.subx.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#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/21"</span>) +<span id="L5501" class="LineNr"> 5501 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-break-and-local-vars/22"</span>) +<span id="L5502" class="LineNr"> 5502 </span> (<a href='109stream-equal.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#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/23"</span>) +<span id="L5503" class="LineNr"> 5503 </span> (<a href='109stream-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#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/24"</span>) +<span id="L5504" class="LineNr"> 5504 </span> (<a href='109stream-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#L5449'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/25"</span>) +<span id="L5505" class="LineNr"> 5505 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5506" class="LineNr"> 5506 </span> 89/<- %esp 5/r32/ebp +<span id="L5507" class="LineNr"> 5507 </span> 5d/pop-to-ebp +<span id="L5508" class="LineNr"> 5508 </span> c3/return +<span id="L5509" class="LineNr"> 5509 </span> +<span id="L5510" class="LineNr"> 5510 </span><span class="subxTest">test-convert-function-with-unconditional-break-and-local-vars</span>: +<span id="L5511" class="LineNr"> 5511 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5512" class="LineNr"> 5512 </span> 55/push-ebp +<span id="L5513" class="LineNr"> 5513 </span> 89/<- %ebp 4/r32/esp +<span id="L5514" class="LineNr"> 5514 </span> <span class="subxComment"># setup</span> +<span id="L5515" class="LineNr"> 5515 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5516" class="LineNr"> 5516 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5517" class="LineNr"> 5517 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5518" class="LineNr"> 5518 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5519" class="LineNr"> 5519 </span> <span class="subxComment">#</span> +<span id="L5520" class="LineNr"> 5520 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5521" class="LineNr"> 5521 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5522" class="LineNr"> 5522 </span> (<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="L5523" class="LineNr"> 5523 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5524" class="LineNr"> 5524 </span> (<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="L5525" class="LineNr"> 5525 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break\n"</span>) +<span id="L5526" class="LineNr"> 5526 </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="L5527" class="LineNr"> 5527 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5528" class="LineNr"> 5528 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5529" class="LineNr"> 5529 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5530" class="LineNr"> 5530 </span> <span class="subxComment"># convert</span> +<span id="L5531" class="LineNr"> 5531 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5532" class="LineNr"> 5532 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5533" class="Folded"> 5533 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5539" class="LineNr"> 5539 </span> <span class="subxComment"># check output</span> +<span id="L5540" class="LineNr"> 5540 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/0"</span>) +<span id="L5541" class="LineNr"> 5541 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-break-and-local-vars/1"</span>) +<span id="L5542" class="LineNr"> 5542 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/2"</span>) +<span id="L5543" class="LineNr"> 5543 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/3"</span>) +<span id="L5544" class="LineNr"> 5544 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/4"</span>) +<span id="L5545" class="LineNr"> 5545 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/5"</span>) +<span id="L5546" class="LineNr"> 5546 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/6"</span>) +<span id="L5547" class="LineNr"> 5547 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/7"</span>) +<span id="L5548" class="LineNr"> 5548 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/8"</span>) +<span id="L5549" class="LineNr"> 5549 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/9"</span>) +<span id="L5550" class="LineNr"> 5550 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/10"</span>) +<span id="L5551" class="LineNr"> 5551 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/11"</span>) +<span id="L5552" class="LineNr"> 5552 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/12"</span>) +<span id="L5553" class="LineNr"> 5553 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/13"</span>) +<span id="L5554" class="LineNr"> 5554 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/14"</span>) +<span id="L5555" class="LineNr"> 5555 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/15"</span>) +<span id="L5556" class="LineNr"> 5556 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/16"</span>) +<span id="L5557" class="LineNr"> 5557 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/17"</span>) +<span id="L5558" class="LineNr"> 5558 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/18"</span>) +<span id="L5559" class="LineNr"> 5559 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/19"</span>) +<span id="L5560" class="LineNr"> 5560 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-break-and-local-vars/20"</span>) +<span id="L5561" class="LineNr"> 5561 </span> (<a href='109stream-equal.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#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/21"</span>) +<span id="L5562" class="LineNr"> 5562 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/22"</span>) +<span id="L5563" class="LineNr"> 5563 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5510'>test-convert-function-with-unconditional-break-and-local-vars</a>/23"</span>) +<span id="L5564" class="LineNr"> 5564 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5565" class="LineNr"> 5565 </span> 89/<- %esp 5/r32/ebp +<span id="L5566" class="LineNr"> 5566 </span> 5d/pop-to-ebp +<span id="L5567" class="LineNr"> 5567 </span> c3/return +<span id="L5568" class="LineNr"> 5568 </span> +<span id="L5569" class="LineNr"> 5569 </span><span class="subxTest">test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</span>: +<span id="L5570" class="LineNr"> 5570 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5571" class="LineNr"> 5571 </span> 55/push-ebp +<span id="L5572" class="LineNr"> 5572 </span> 89/<- %ebp 4/r32/esp +<span id="L5573" class="LineNr"> 5573 </span> <span class="subxComment"># setup</span> +<span id="L5574" class="LineNr"> 5574 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5575" class="LineNr"> 5575 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5576" class="LineNr"> 5576 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5577" class="LineNr"> 5577 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5578" class="LineNr"> 5578 </span> <span class="subxComment">#</span> +<span id="L5579" class="LineNr"> 5579 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5580" class="LineNr"> 5580 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) +<span id="L5581" class="LineNr"> 5581 </span> (<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="L5582" class="LineNr"> 5582 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5583" class="LineNr"> 5583 </span> (<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="L5584" class="LineNr"> 5584 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop a\n"</span>) +<span id="L5585" class="LineNr"> 5585 </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="L5586" class="LineNr"> 5586 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5587" class="LineNr"> 5587 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5588" class="LineNr"> 5588 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5589" class="LineNr"> 5589 </span> <span class="subxComment"># convert</span> +<span id="L5590" class="LineNr"> 5590 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5591" class="LineNr"> 5591 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5592" class="Folded"> 5592 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5598" class="LineNr"> 5598 </span> <span class="subxComment"># check output</span> +<span id="L5599" class="LineNr"> 5599 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/0"</span>) +<span id="L5600" class="LineNr"> 5600 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-loop-and-local-vars/1"</span>) +<span id="L5601" class="LineNr"> 5601 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/2"</span>) +<span id="L5602" class="LineNr"> 5602 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/3"</span>) +<span id="L5603" class="LineNr"> 5603 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/4"</span>) +<span id="L5604" class="LineNr"> 5604 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/5"</span>) +<span id="L5605" class="LineNr"> 5605 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/6"</span>) +<span id="L5606" class="LineNr"> 5606 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/7"</span>) +<span id="L5607" class="LineNr"> 5607 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/8"</span>) +<span id="L5608" class="LineNr"> 5608 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/9"</span>) +<span id="L5609" class="LineNr"> 5609 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/10"</span>) +<span id="L5610" class="LineNr"> 5610 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/11"</span>) +<span id="L5611" class="LineNr"> 5611 </span> (<a href='109stream-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#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/12"</span>) +<span id="L5612" class="LineNr"> 5612 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/13"</span>) +<span id="L5613" class="LineNr"> 5613 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/14"</span>) +<span id="L5614" class="LineNr"> 5614 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/15"</span>) +<span id="L5615" class="LineNr"> 5615 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/16"</span>) +<span id="L5616" class="LineNr"> 5616 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/17"</span>) +<span id="L5617" class="LineNr"> 5617 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/18"</span>) +<span id="L5618" class="LineNr"> 5618 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/19"</span>) +<span id="L5619" class="LineNr"> 5619 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/20"</span>) +<span id="L5620" class="LineNr"> 5620 </span> (<a href='109stream-equal.subx.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#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/21"</span>) +<span id="L5621" class="LineNr"> 5621 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-loop-and-local-vars/22"</span>) +<span id="L5622" class="LineNr"> 5622 </span> (<a href='109stream-equal.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#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/23"</span>) +<span id="L5623" class="LineNr"> 5623 </span> (<a href='109stream-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#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/24"</span>) +<span id="L5624" class="LineNr"> 5624 </span> (<a href='109stream-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#L5569'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/25"</span>) +<span id="L5625" class="LineNr"> 5625 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5626" class="LineNr"> 5626 </span> 89/<- %esp 5/r32/ebp +<span id="L5627" class="LineNr"> 5627 </span> 5d/pop-to-ebp +<span id="L5628" class="LineNr"> 5628 </span> c3/return +<span id="L5629" class="LineNr"> 5629 </span> +<span id="L5630" class="LineNr"> 5630 </span><span class="subxTest">test-convert-function-with-local-array-var-in-mem</span>: +<span id="L5631" class="LineNr"> 5631 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5632" class="LineNr"> 5632 </span> 55/push-ebp +<span id="L5633" class="LineNr"> 5633 </span> 89/<- %ebp 4/r32/esp +<span id="L5634" class="LineNr"> 5634 </span> <span class="subxComment"># setup</span> +<span id="L5635" class="LineNr"> 5635 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5636" class="LineNr"> 5636 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5637" class="LineNr"> 5637 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5638" class="LineNr"> 5638 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5639" class="LineNr"> 5639 </span> <span class="subxComment">#</span> +<span id="L5640" class="LineNr"> 5640 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5641" class="LineNr"> 5641 </span> (<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="L5642" class="LineNr"> 5642 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5643" class="LineNr"> 5643 </span> <span class="subxComment"># convert</span> +<span id="L5644" class="LineNr"> 5644 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5645" class="LineNr"> 5645 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5646" class="Folded"> 5646 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5652" class="LineNr"> 5652 </span> <span class="subxComment"># check output</span> +<span id="L5653" class="LineNr"> 5653 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5630'>test-convert-function-with-local-array-var-in-mem</a>/0"</span>) +<span id="L5654" class="LineNr"> 5654 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-array-var-in-mem/1"</span>) +<span id="L5655" class="LineNr"> 5655 </span> (<a href='109stream-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#L5630'>test-convert-function-with-local-array-var-in-mem</a>/2"</span>) +<span id="L5656" class="LineNr"> 5656 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5630'>test-convert-function-with-local-array-var-in-mem</a>/3"</span>) +<span id="L5657" class="LineNr"> 5657 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5630'>test-convert-function-with-local-array-var-in-mem</a>/4"</span>) +<span id="L5658" class="LineNr"> 5658 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5630'>test-convert-function-with-local-array-var-in-mem</a>/5"</span>) +<span id="L5659" class="LineNr"> 5659 </span> <span class="subxComment"># define x</span> +<span id="L5660" class="LineNr"> 5660 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5630'>test-convert-function-with-local-array-var-in-mem</a>/7"</span>) +<span id="L5661" class="LineNr"> 5661 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5630'>test-convert-function-with-local-array-var-in-mem</a>/8"</span>) +<span id="L5662" class="LineNr"> 5662 </span> <span class="subxComment"># reclaim x</span> +<span id="L5663" class="LineNr"> 5663 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5630'>test-convert-function-with-local-array-var-in-mem</a>/9"</span>) +<span id="L5664" class="LineNr"> 5664 </span> <span class="subxComment">#</span> +<span id="L5665" class="LineNr"> 5665 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5630'>test-convert-function-with-local-array-var-in-mem</a>/10"</span>) +<span id="L5666" class="LineNr"> 5666 </span> (<a href='109stream-equal.subx.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#L5630'>test-convert-function-with-local-array-var-in-mem</a>/11"</span>) +<span id="L5667" class="LineNr"> 5667 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-array-var-in-mem/12"</span>) +<span id="L5668" class="LineNr"> 5668 </span> (<a href='109stream-equal.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#L5630'>test-convert-function-with-local-array-var-in-mem</a>/13"</span>) +<span id="L5669" class="LineNr"> 5669 </span> (<a href='109stream-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#L5630'>test-convert-function-with-local-array-var-in-mem</a>/14"</span>) +<span id="L5670" class="LineNr"> 5670 </span> (<a href='109stream-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#L5630'>test-convert-function-with-local-array-var-in-mem</a>/15"</span>) +<span id="L5671" class="LineNr"> 5671 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5672" class="LineNr"> 5672 </span> 89/<- %esp 5/r32/ebp <span id="L5673" class="LineNr"> 5673 </span> 5d/pop-to-ebp <span id="L5674" class="LineNr"> 5674 </span> c3/return <span id="L5675" class="LineNr"> 5675 </span> -<span id="L5676" class="LineNr"> 5676 </span><span class="subxTest">test-array-size-with-metadata</span>: +<span id="L5676" class="LineNr"> 5676 </span><span class="subxTest">test-array-size-in-hex</span>: <span id="L5677" class="LineNr"> 5677 </span> <span class="subxS1Comment"># . prologue</span> <span id="L5678" class="LineNr"> 5678 </span> 55/push-ebp <span id="L5679" class="LineNr"> 5679 </span> 89/<- %ebp 4/r32/esp @@ -5219,1257 +5219,1257 @@ if ('onhashchange' in window) { <span id="L5682" class="LineNr"> 5682 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L5683" class="LineNr"> 5683 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L5684" class="LineNr"> 5684 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5685" class="LineNr"> 5685 </span> <span class="subxComment">#</span> -<span id="L5686" class="LineNr"> 5686 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5687" class="LineNr"> 5687 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array int 3/bar)\n"</span>) -<span id="L5688" class="LineNr"> 5688 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5689" class="LineNr"> 5689 </span> <span class="subxComment"># convert</span> -<span id="L5690" class="LineNr"> 5690 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5691" class="LineNr"> 5691 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5692" class="Folded"> 5692 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5698" class="LineNr"> 5698 </span> <span class="subxComment"># no errors</span> -<span id="L5699" class="LineNr"> 5699 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5700" class="LineNr"> 5700 </span> 89/<- %esp 5/r32/ebp -<span id="L5701" class="LineNr"> 5701 </span> 5d/pop-to-ebp -<span id="L5702" class="LineNr"> 5702 </span> c3/return -<span id="L5703" class="LineNr"> 5703 </span> -<span id="L5704" class="LineNr"> 5704 </span><span class="subxTest">test-convert-function-with-populate</span>: -<span id="L5705" class="LineNr"> 5705 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5706" class="LineNr"> 5706 </span> 55/push-ebp -<span id="L5707" class="LineNr"> 5707 </span> 89/<- %ebp 4/r32/esp -<span id="L5708" class="LineNr"> 5708 </span> <span class="subxComment"># setup</span> -<span id="L5709" class="LineNr"> 5709 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5710" class="LineNr"> 5710 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5711" class="LineNr"> 5711 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5712" class="LineNr"> 5712 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5713" class="LineNr"> 5713 </span> <span class="subxComment">#</span> -<span id="L5714" class="LineNr"> 5714 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5715" class="LineNr"> 5715 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr handle array int) <- copy 0\n"</span>) -<span id="L5716" class="LineNr"> 5716 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate x, 7\n"</span>) -<span id="L5717" class="LineNr"> 5717 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5718" class="LineNr"> 5718 </span> <span class="subxComment"># convert</span> -<span id="L5719" class="LineNr"> 5719 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5720" class="LineNr"> 5720 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5721" class="Folded"> 5721 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5727" class="LineNr"> 5727 </span> <span class="subxComment"># check output</span> -<span id="L5728" class="LineNr"> 5728 </span> (<a href='109stream-equal.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#L5704'>test-convert-function-with-populate</a>/0"</span>) -<span id="L5729" class="LineNr"> 5729 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-populate/1"</span>) -<span id="L5730" class="LineNr"> 5730 </span> (<a href='109stream-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#L5704'>test-convert-function-with-populate</a>/2"</span>) -<span id="L5731" class="LineNr"> 5731 </span> (<a href='109stream-equal.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#L5704'>test-convert-function-with-populate</a>/3"</span>) -<span id="L5732" class="LineNr"> 5732 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5704'>test-convert-function-with-populate</a>/4"</span>) -<span id="L5733" class="LineNr"> 5733 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5704'>test-convert-function-with-populate</a>/5"</span>) -<span id="L5734" class="LineNr"> 5734 </span> (<a href='109stream-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#L5704'>test-convert-function-with-populate</a>/6"</span>) -<span id="L5735" class="LineNr"> 5735 </span> (<a href='109stream-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#L5704'>test-convert-function-with-populate</a>/7"</span>) -<span id="L5736" class="LineNr"> 5736 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='308allocate-array.subx.html#L6'>allocate-array2</a> <a href='120allocate.subx.html#L27'>Heap</a> 0x00000004 7 %ecx)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5704'>test-convert-function-with-populate</a>/8"</span>) <span class="subxComment"># 4 = size-of(int)</span> -<span id="L5737" class="LineNr"> 5737 </span> (<a href='109stream-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#L5704'>test-convert-function-with-populate</a>/9"</span>) -<span id="L5738" class="LineNr"> 5738 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5704'>test-convert-function-with-populate</a>/10"</span>) -<span id="L5739" class="LineNr"> 5739 </span> (<a href='109stream-equal.subx.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#L5704'>test-convert-function-with-populate</a>/11"</span>) -<span id="L5740" class="LineNr"> 5740 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-populate/12"</span>) -<span id="L5741" class="LineNr"> 5741 </span> (<a href='109stream-equal.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#L5704'>test-convert-function-with-populate</a>/13"</span>) -<span id="L5742" class="LineNr"> 5742 </span> (<a href='109stream-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#L5704'>test-convert-function-with-populate</a>/14"</span>) -<span id="L5743" class="LineNr"> 5743 </span> (<a href='109stream-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#L5704'>test-convert-function-with-populate</a>/15"</span>) -<span id="L5744" class="LineNr"> 5744 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5745" class="LineNr"> 5745 </span> 89/<- %esp 5/r32/ebp -<span id="L5746" class="LineNr"> 5746 </span> 5d/pop-to-ebp -<span id="L5747" class="LineNr"> 5747 </span> c3/return -<span id="L5748" class="LineNr"> 5748 </span> -<span id="L5749" class="LineNr"> 5749 </span><span class="subxComment"># special-case for size(byte) when allocating array</span> -<span id="L5750" class="LineNr"> 5750 </span><span class="subxTest">test-convert-function-with-local-array-of-bytes-in-mem</span>: -<span id="L5751" class="LineNr"> 5751 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5752" class="LineNr"> 5752 </span> 55/push-ebp -<span id="L5753" class="LineNr"> 5753 </span> 89/<- %ebp 4/r32/esp -<span id="L5754" class="LineNr"> 5754 </span> <span class="subxComment"># setup</span> -<span id="L5755" class="LineNr"> 5755 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5756" class="LineNr"> 5756 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5757" class="LineNr"> 5757 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5758" class="LineNr"> 5758 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5759" class="LineNr"> 5759 </span> <span class="subxComment">#</span> -<span id="L5760" class="LineNr"> 5760 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5761" class="LineNr"> 5761 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array byte 3)\n"</span>) -<span id="L5762" class="LineNr"> 5762 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5763" class="LineNr"> 5763 </span> <span class="subxComment"># convert</span> -<span id="L5764" class="LineNr"> 5764 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5765" class="LineNr"> 5765 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5766" class="Folded"> 5766 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5772" class="LineNr"> 5772 </span> <span class="subxComment"># check output</span> -<span id="L5773" class="LineNr"> 5773 </span> (<a href='109stream-equal.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#L5750'>test-convert-function-with-local-array-of-bytes-in-mem</a>/0"</span>) -<span id="L5774" class="LineNr"> 5774 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-array-of-bytes-in-mem/1"</span>) -<span id="L5775" class="LineNr"> 5775 </span> (<a href='109stream-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#L5750'>test-convert-function-with-local-array-of-bytes-in-mem</a>/2"</span>) -<span id="L5776" class="LineNr"> 5776 </span> (<a href='109stream-equal.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#L5750'>test-convert-function-with-local-array-of-bytes-in-mem</a>/3"</span>) -<span id="L5777" class="LineNr"> 5777 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5750'>test-convert-function-with-local-array-of-bytes-in-mem</a>/4"</span>) -<span id="L5778" class="LineNr"> 5778 </span> (<a href='109stream-equal.subx.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#L5750'>test-convert-function-with-local-array-of-bytes-in-mem</a>/5"</span>) -<span id="L5779" class="LineNr"> 5779 </span> <span class="subxComment"># define x</span> -<span id="L5780" class="LineNr"> 5780 </span> (<a href='109stream-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#L5750'>test-convert-function-with-local-array-of-bytes-in-mem</a>/7"</span>) -<span id="L5781" class="LineNr"> 5781 </span> (<a href='109stream-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#L5750'>test-convert-function-with-local-array-of-bytes-in-mem</a>/8"</span>) -<span id="L5782" class="LineNr"> 5782 </span> <span class="subxComment"># reclaim x</span> -<span id="L5783" class="LineNr"> 5783 </span> (<a href='109stream-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#L5750'>test-convert-function-with-local-array-of-bytes-in-mem</a>/9"</span>) -<span id="L5784" class="LineNr"> 5784 </span> <span class="subxComment">#</span> -<span id="L5785" class="LineNr"> 5785 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5750'>test-convert-function-with-local-array-of-bytes-in-mem</a>/10"</span>) -<span id="L5786" class="LineNr"> 5786 </span> (<a href='109stream-equal.subx.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#L5750'>test-convert-function-with-local-array-of-bytes-in-mem</a>/11"</span>) -<span id="L5787" class="LineNr"> 5787 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-array-of-bytes-in-mem/12"</span>) -<span id="L5788" class="LineNr"> 5788 </span> (<a href='109stream-equal.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#L5750'>test-convert-function-with-local-array-of-bytes-in-mem</a>/13"</span>) -<span id="L5789" class="LineNr"> 5789 </span> (<a href='109stream-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#L5750'>test-convert-function-with-local-array-of-bytes-in-mem</a>/14"</span>) -<span id="L5790" class="LineNr"> 5790 </span> (<a href='109stream-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#L5750'>test-convert-function-with-local-array-of-bytes-in-mem</a>/15"</span>) -<span id="L5791" class="LineNr"> 5791 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5792" class="LineNr"> 5792 </span> 89/<- %esp 5/r32/ebp -<span id="L5793" class="LineNr"> 5793 </span> 5d/pop-to-ebp -<span id="L5794" class="LineNr"> 5794 </span> c3/return -<span id="L5795" class="LineNr"> 5795 </span> -<span id="L5796" class="LineNr"> 5796 </span><span class="subxTest">test-convert-address</span>: -<span id="L5797" class="LineNr"> 5797 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5798" class="LineNr"> 5798 </span> 55/push-ebp -<span id="L5799" class="LineNr"> 5799 </span> 89/<- %ebp 4/r32/esp -<span id="L5800" class="LineNr"> 5800 </span> <span class="subxComment"># setup</span> -<span id="L5801" class="LineNr"> 5801 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5802" class="LineNr"> 5802 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5803" class="LineNr"> 5803 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5804" class="LineNr"> 5804 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5805" class="LineNr"> 5805 </span> <span class="subxComment">#</span> -<span id="L5806" class="LineNr"> 5806 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5807" class="LineNr"> 5807 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L5808" class="LineNr"> 5808 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- address a\n"</span>) -<span id="L5809" class="LineNr"> 5809 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5810" class="LineNr"> 5810 </span> <span class="subxComment"># convert</span> -<span id="L5811" class="LineNr"> 5811 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5812" class="LineNr"> 5812 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5813" class="Folded"> 5813 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5819" class="LineNr"> 5819 </span> <span class="subxComment"># check output</span> -<span id="L5820" class="LineNr"> 5820 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5796'>test-convert-address</a>/0"</span>) -<span id="L5821" class="LineNr"> 5821 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-address/1"</span>) -<span id="L5822" class="LineNr"> 5822 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5796'>test-convert-address</a>/2"</span>) -<span id="L5823" class="LineNr"> 5823 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5796'>test-convert-address</a>/3"</span>) -<span id="L5824" class="LineNr"> 5824 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5796'>test-convert-address</a>/4"</span>) -<span id="L5825" class="LineNr"> 5825 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5796'>test-convert-address</a>/5"</span>) -<span id="L5826" class="LineNr"> 5826 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5796'>test-convert-address</a>/6"</span>) -<span id="L5827" class="LineNr"> 5827 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5796'>test-convert-address</a>/7"</span>) -<span id="L5828" class="LineNr"> 5828 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5796'>test-convert-address</a>/8"</span>) -<span id="L5829" class="LineNr"> 5829 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5796'>test-convert-address</a>/9"</span>) -<span id="L5830" class="LineNr"> 5830 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5796'>test-convert-address</a>/10"</span>) -<span id="L5831" class="LineNr"> 5831 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5796'>test-convert-address</a>/11"</span>) -<span id="L5832" class="LineNr"> 5832 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5796'>test-convert-address</a>/12"</span>) -<span id="L5833" class="LineNr"> 5833 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-address/13"</span>) -<span id="L5834" class="LineNr"> 5834 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5796'>test-convert-address</a>/14"</span>) -<span id="L5835" class="LineNr"> 5835 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5796'>test-convert-address</a>/15"</span>) -<span id="L5836" class="LineNr"> 5836 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5796'>test-convert-address</a>/16"</span>) -<span id="L5837" class="LineNr"> 5837 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5838" class="LineNr"> 5838 </span> 89/<- %esp 5/r32/ebp -<span id="L5839" class="LineNr"> 5839 </span> 5d/pop-to-ebp -<span id="L5840" class="LineNr"> 5840 </span> c3/return -<span id="L5841" class="LineNr"> 5841 </span> -<span id="L5842" class="LineNr"> 5842 </span><span class="subxTest">test-convert-floating-point-convert</span>: -<span id="L5843" class="LineNr"> 5843 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5844" class="LineNr"> 5844 </span> 55/push-ebp -<span id="L5845" class="LineNr"> 5845 </span> 89/<- %ebp 4/r32/esp -<span id="L5846" class="LineNr"> 5846 </span> <span class="subxComment"># setup</span> -<span id="L5847" class="LineNr"> 5847 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5848" class="LineNr"> 5848 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5849" class="LineNr"> 5849 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5850" class="LineNr"> 5850 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5851" class="LineNr"> 5851 </span> <span class="subxComment">#</span> -<span id="L5852" class="LineNr"> 5852 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5853" class="LineNr"> 5853 </span> (<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="L5854" class="LineNr"> 5854 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/xmm1: float <- convert a\n"</span>) -<span id="L5855" class="LineNr"> 5855 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5856" class="LineNr"> 5856 </span> <span class="subxComment"># convert</span> -<span id="L5857" class="LineNr"> 5857 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5858" class="LineNr"> 5858 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5859" class="Folded"> 5859 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5865" class="LineNr"> 5865 </span> <span class="subxComment"># check output</span> -<span id="L5866" class="LineNr"> 5866 </span> (<a href='109stream-equal.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#L5842'>test-convert-floating-point-convert</a>/0"</span>) -<span id="L5867" class="LineNr"> 5867 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-convert/1"</span>) -<span id="L5868" class="LineNr"> 5868 </span> (<a href='109stream-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#L5842'>test-convert-floating-point-convert</a>/2"</span>) -<span id="L5869" class="LineNr"> 5869 </span> (<a href='109stream-equal.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#L5842'>test-convert-floating-point-convert</a>/3"</span>) -<span id="L5870" class="LineNr"> 5870 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5842'>test-convert-floating-point-convert</a>/4"</span>) -<span id="L5871" class="LineNr"> 5871 </span> (<a href='109stream-equal.subx.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#L5842'>test-convert-floating-point-convert</a>/5"</span>) -<span id="L5872" class="LineNr"> 5872 </span> (<a href='109stream-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#L5842'>test-convert-floating-point-convert</a>/6"</span>) -<span id="L5873" class="LineNr"> 5873 </span> (<a href='109stream-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#L5842'>test-convert-floating-point-convert</a>/7"</span>) -<span id="L5874" class="LineNr"> 5874 </span> (<a href='109stream-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#L5842'>test-convert-floating-point-convert</a>/8"</span>) -<span id="L5875" class="LineNr"> 5875 </span> (<a href='109stream-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#L5842'>test-convert-floating-point-convert</a>/9"</span>) -<span id="L5876" class="LineNr"> 5876 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5842'>test-convert-floating-point-convert</a>/10"</span>) -<span id="L5877" class="LineNr"> 5877 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5842'>test-convert-floating-point-convert</a>/11"</span>) -<span id="L5878" class="LineNr"> 5878 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - test-floating-point-convert/12"</span>) -<span id="L5879" class="LineNr"> 5879 </span> (<a href='109stream-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#L5842'>test-convert-floating-point-convert</a>/13"</span>) -<span id="L5880" class="LineNr"> 5880 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5842'>test-convert-floating-point-convert</a>/14"</span>) -<span id="L5881" class="LineNr"> 5881 </span> (<a href='109stream-equal.subx.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#L5842'>test-convert-floating-point-convert</a>/15"</span>) -<span id="L5882" class="LineNr"> 5882 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-convert/16"</span>) -<span id="L5883" class="LineNr"> 5883 </span> (<a href='109stream-equal.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#L5842'>test-convert-floating-point-convert</a>/17"</span>) -<span id="L5884" class="LineNr"> 5884 </span> (<a href='109stream-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#L5842'>test-convert-floating-point-convert</a>/18"</span>) -<span id="L5885" class="LineNr"> 5885 </span> (<a href='109stream-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#L5842'>test-convert-floating-point-convert</a>/19"</span>) -<span id="L5886" class="LineNr"> 5886 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5887" class="LineNr"> 5887 </span> 89/<- %esp 5/r32/ebp -<span id="L5888" class="LineNr"> 5888 </span> 5d/pop-to-ebp -<span id="L5889" class="LineNr"> 5889 </span> c3/return -<span id="L5890" class="LineNr"> 5890 </span> -<span id="L5891" class="LineNr"> 5891 </span><span class="subxTest">test-convert-floating-point-convert-2</span>: -<span id="L5892" class="LineNr"> 5892 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5893" class="LineNr"> 5893 </span> 55/push-ebp -<span id="L5894" class="LineNr"> 5894 </span> 89/<- %ebp 4/r32/esp -<span id="L5895" class="LineNr"> 5895 </span> <span class="subxComment"># setup</span> -<span id="L5896" class="LineNr"> 5896 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5897" class="LineNr"> 5897 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5898" class="LineNr"> 5898 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5899" class="LineNr"> 5899 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5900" class="LineNr"> 5900 </span> <span class="subxComment">#</span> -<span id="L5901" class="LineNr"> 5901 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5902" class="LineNr"> 5902 </span> (<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="L5903" class="LineNr"> 5903 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/xmm1: float <- convert a\n"</span>) -<span id="L5904" class="LineNr"> 5904 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a <- convert b\n"</span>) -<span id="L5905" class="LineNr"> 5905 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5906" class="LineNr"> 5906 </span> <span class="subxComment"># convert</span> -<span id="L5907" class="LineNr"> 5907 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5908" class="LineNr"> 5908 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5909" class="Folded"> 5909 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5915" class="LineNr"> 5915 </span> <span class="subxComment"># check output</span> -<span id="L5916" class="LineNr"> 5916 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5891'>test-convert-floating-point-convert-2</a>/0"</span>) -<span id="L5917" class="LineNr"> 5917 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-convert-2/1"</span>) -<span id="L5918" class="LineNr"> 5918 </span> (<a href='109stream-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#L5891'>test-convert-floating-point-convert-2</a>/2"</span>) -<span id="L5919" class="LineNr"> 5919 </span> (<a href='109stream-equal.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#L5891'>test-convert-floating-point-convert-2</a>/3"</span>) -<span id="L5920" class="LineNr"> 5920 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5891'>test-convert-floating-point-convert-2</a>/4"</span>) -<span id="L5921" class="LineNr"> 5921 </span> (<a href='109stream-equal.subx.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#L5891'>test-convert-floating-point-convert-2</a>/5"</span>) -<span id="L5922" class="LineNr"> 5922 </span> (<a href='109stream-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#L5891'>test-convert-floating-point-convert-2</a>/6"</span>) -<span id="L5923" class="LineNr"> 5923 </span> (<a href='109stream-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#L5891'>test-convert-floating-point-convert-2</a>/7"</span>) -<span id="L5924" class="LineNr"> 5924 </span> (<a href='109stream-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#L5891'>test-convert-floating-point-convert-2</a>/8"</span>) -<span id="L5925" class="LineNr"> 5925 </span> (<a href='109stream-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#L5891'>test-convert-floating-point-convert-2</a>/9"</span>) -<span id="L5926" class="LineNr"> 5926 </span> (<a href='109stream-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#L5891'>test-convert-floating-point-convert-2</a>/10"</span>) -<span id="L5927" class="LineNr"> 5927 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 2d/convert-to-int %xmm1 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5891'>test-convert-floating-point-convert-2</a>/11"</span>) -<span id="L5928" class="LineNr"> 5928 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5891'>test-convert-floating-point-convert-2</a>/12"</span>) -<span id="L5929" class="LineNr"> 5929 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - test-floating-point-convert-2/13"</span>) -<span id="L5930" class="LineNr"> 5930 </span> (<a href='109stream-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#L5891'>test-convert-floating-point-convert-2</a>/14"</span>) -<span id="L5931" class="LineNr"> 5931 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5891'>test-convert-floating-point-convert-2</a>/15"</span>) -<span id="L5932" class="LineNr"> 5932 </span> (<a href='109stream-equal.subx.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#L5891'>test-convert-floating-point-convert-2</a>/16"</span>) -<span id="L5933" class="LineNr"> 5933 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-convert-2/17"</span>) -<span id="L5934" class="LineNr"> 5934 </span> (<a href='109stream-equal.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#L5891'>test-convert-floating-point-convert-2</a>/18"</span>) -<span id="L5935" class="LineNr"> 5935 </span> (<a href='109stream-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#L5891'>test-convert-floating-point-convert-2</a>/19"</span>) -<span id="L5936" class="LineNr"> 5936 </span> (<a href='109stream-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#L5891'>test-convert-floating-point-convert-2</a>/20"</span>) -<span id="L5937" class="LineNr"> 5937 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5938" class="LineNr"> 5938 </span> 89/<- %esp 5/r32/ebp -<span id="L5939" class="LineNr"> 5939 </span> 5d/pop-to-ebp -<span id="L5940" class="LineNr"> 5940 </span> c3/return -<span id="L5941" class="LineNr"> 5941 </span> -<span id="L5942" class="LineNr"> 5942 </span><span class="subxTest">test-convert-floating-point-operation</span>: -<span id="L5943" class="LineNr"> 5943 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5944" class="LineNr"> 5944 </span> 55/push-ebp -<span id="L5945" class="LineNr"> 5945 </span> 89/<- %ebp 4/r32/esp -<span id="L5946" class="LineNr"> 5946 </span> <span class="subxComment"># setup</span> -<span id="L5947" class="LineNr"> 5947 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5948" class="LineNr"> 5948 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5949" class="LineNr"> 5949 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L5950" class="LineNr"> 5950 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5951" class="LineNr"> 5951 </span> <span class="subxComment">#</span> -<span id="L5952" class="LineNr"> 5952 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L5953" class="LineNr"> 5953 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var m: float\n"</span>) -<span id="L5954" class="LineNr"> 5954 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/xmm1: float <- copy m\n"</span>) -<span id="L5955" class="LineNr"> 5955 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm5: float <- copy m\n"</span>) -<span id="L5956" class="LineNr"> 5956 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy y\n"</span>) -<span id="L5957" class="LineNr"> 5957 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to m, y\n"</span>) -<span id="L5958" class="LineNr"> 5958 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- add y\n"</span>) -<span id="L5959" class="LineNr"> 5959 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- add m\n"</span>) -<span id="L5960" class="LineNr"> 5960 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- subtract y\n"</span>) -<span id="L5961" class="LineNr"> 5961 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- subtract m\n"</span>) -<span id="L5962" class="LineNr"> 5962 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- multiply y\n"</span>) -<span id="L5963" class="LineNr"> 5963 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- multiply m\n"</span>) -<span id="L5964" class="LineNr"> 5964 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- divide y\n"</span>) -<span id="L5965" class="LineNr"> 5965 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- divide m\n"</span>) -<span id="L5966" class="LineNr"> 5966 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- reciprocal y\n"</span>) -<span id="L5967" class="LineNr"> 5967 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- reciprocal m\n"</span>) -<span id="L5968" class="LineNr"> 5968 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- square-root y\n"</span>) -<span id="L5969" class="LineNr"> 5969 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- square-root m\n"</span>) -<span id="L5970" class="LineNr"> 5970 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- inverse-square-root y\n"</span>) -<span id="L5971" class="LineNr"> 5971 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- inverse-square-root m\n"</span>) -<span id="L5972" class="LineNr"> 5972 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- max y\n"</span>) -<span id="L5973" class="LineNr"> 5973 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- max m\n"</span>) -<span id="L5974" class="LineNr"> 5974 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- min y\n"</span>) -<span id="L5975" class="LineNr"> 5975 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- min m\n"</span>) -<span id="L5976" class="LineNr"> 5976 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, y\n"</span>) -<span id="L5977" class="LineNr"> 5977 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, m\n"</span>) -<span id="L5978" class="LineNr"> 5978 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5979" class="LineNr"> 5979 </span> <span class="subxComment"># convert</span> -<span id="L5980" class="LineNr"> 5980 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5981" class="LineNr"> 5981 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L5982" class="Folded"> 5982 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5988" class="LineNr"> 5988 </span> <span class="subxComment"># check output</span> -<span id="L5989" class="LineNr"> 5989 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/0"</span>) -<span id="L5990" class="LineNr"> 5990 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-operation/1"</span>) -<span id="L5991" class="LineNr"> 5991 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/2"</span>) -<span id="L5992" class="LineNr"> 5992 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/3"</span>) -<span id="L5993" class="LineNr"> 5993 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/4"</span>) -<span id="L5994" class="LineNr"> 5994 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/5"</span>) -<span id="L5995" class="LineNr"> 5995 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/6"</span>) -<span id="L5996" class="LineNr"> 5996 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/7"</span>) -<span id="L5997" class="LineNr"> 5997 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/8"</span>) -<span id="L5998" class="LineNr"> 5998 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/9"</span>) -<span id="L5999" class="LineNr"> 5999 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/10"</span>) -<span id="L6000" class="LineNr"> 6000 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 5/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/11"</span>) -<span id="L6001" class="LineNr"> 6001 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/12"</span>) -<span id="L6002" class="LineNr"> 6002 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/copy %xmm1 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/13"</span>) -<span id="L6003" class="LineNr"> 6003 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/copy *(ebp+0xfffffffc) 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/14"</span>) -<span id="L6004" class="LineNr"> 6004 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 58/add %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/15"</span>) -<span id="L6005" class="LineNr"> 6005 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 58/add *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/16"</span>) -<span id="L6006" class="LineNr"> 6006 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5c/subtract %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/17"</span>) -<span id="L6007" class="LineNr"> 6007 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5c/subtract *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/18"</span>) -<span id="L6008" class="LineNr"> 6008 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/19"</span>) -<span id="L6009" class="LineNr"> 6009 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/20"</span>) -<span id="L6010" class="LineNr"> 6010 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5e/divide %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/21"</span>) -<span id="L6011" class="LineNr"> 6011 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5e/divide *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/22"</span>) -<span id="L6012" class="LineNr"> 6012 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 53/reciprocal %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/23"</span>) -<span id="L6013" class="LineNr"> 6013 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 53/reciprocal *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/24"</span>) -<span id="L6014" class="LineNr"> 6014 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 51/square-root %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/25"</span>) -<span id="L6015" class="LineNr"> 6015 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 51/square-root *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/26"</span>) -<span id="L6016" class="LineNr"> 6016 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 52/inverse-square-root %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/27"</span>) -<span id="L6017" class="LineNr"> 6017 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 52/inverse-square-root *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/28"</span>) -<span id="L6018" class="LineNr"> 6018 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5f/max %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/29"</span>) -<span id="L6019" class="LineNr"> 6019 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5f/max *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/30"</span>) -<span id="L6020" class="LineNr"> 6020 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5d/min %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/31"</span>) -<span id="L6021" class="LineNr"> 6021 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5d/min *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/32"</span>) -<span id="L6022" class="LineNr"> 6022 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 2f/compare %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/33"</span>) -<span id="L6023" class="LineNr"> 6023 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 2f/compare *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/34"</span>) -<span id="L6024" class="LineNr"> 6024 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 5/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/35"</span>) -<span id="L6025" class="LineNr"> 6025 </span> (<a href='109stream-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#L5942'>test-convert-floating-point-operation</a>/36"</span>) -<span id="L6026" class="LineNr"> 6026 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/37"</span>) -<span id="L6027" class="LineNr"> 6027 </span> (<a href='109stream-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#L5942'>test-convert-floating-point-operation</a>/38"</span>) -<span id="L6028" class="LineNr"> 6028 </span> (<a href='109stream-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#L5942'>test-convert-floating-point-operation</a>/39"</span>) -<span id="L6029" class="LineNr"> 6029 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5942'>test-convert-floating-point-operation</a>/40"</span>) -<span id="L6030" class="LineNr"> 6030 </span> (<a href='109stream-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#L5942'>test-convert-floating-point-operation</a>/41"</span>) -<span id="L6031" class="LineNr"> 6031 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-operation/42"</span>) -<span id="L6032" class="LineNr"> 6032 </span> (<a href='109stream-equal.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#L5942'>test-convert-floating-point-operation</a>/43"</span>) -<span id="L6033" class="LineNr"> 6033 </span> (<a href='109stream-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#L5942'>test-convert-floating-point-operation</a>/44"</span>) -<span id="L6034" class="LineNr"> 6034 </span> (<a href='109stream-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#L5942'>test-convert-floating-point-operation</a>/45"</span>) -<span id="L6035" class="LineNr"> 6035 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6036" class="LineNr"> 6036 </span> 89/<- %esp 5/r32/ebp -<span id="L6037" class="LineNr"> 6037 </span> 5d/pop-to-ebp -<span id="L6038" class="LineNr"> 6038 </span> c3/return -<span id="L6039" class="LineNr"> 6039 </span> -<span id="L6040" class="LineNr"> 6040 </span><span class="subxTest">test-convert-floating-point-dereferenced</span>: -<span id="L6041" class="LineNr"> 6041 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6042" class="LineNr"> 6042 </span> 55/push-ebp -<span id="L6043" class="LineNr"> 6043 </span> 89/<- %ebp 4/r32/esp -<span id="L6044" class="LineNr"> 6044 </span> <span class="subxComment"># setup</span> -<span id="L6045" class="LineNr"> 6045 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6046" class="LineNr"> 6046 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6047" class="LineNr"> 6047 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6048" class="LineNr"> 6048 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6049" class="LineNr"> 6049 </span> <span class="subxComment">#</span> -<span id="L6050" class="LineNr"> 6050 </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="L6051" class="LineNr"> 6051 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var m: float\n"</span>) -<span id="L6052" class="LineNr"> 6052 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/xmm1: float <- copy m\n"</span>) -<span id="L6053" class="LineNr"> 6053 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr float) <- copy 0\n"</span>) -<span id="L6054" class="LineNr"> 6054 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- multiply *y\n"</span>) -<span id="L6055" class="LineNr"> 6055 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6056" class="LineNr"> 6056 </span> <span class="subxComment"># convert</span> -<span id="L6057" class="LineNr"> 6057 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6058" class="LineNr"> 6058 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6059" class="Folded"> 6059 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6065" class="LineNr"> 6065 </span> <span class="subxComment"># check output</span> -<span id="L6066" class="LineNr"> 6066 </span> (<a href='109stream-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#L6040'>test-convert-floating-point-dereferenced</a>/0"</span>) -<span id="L6067" class="LineNr"> 6067 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-dereferenced/1"</span>) -<span id="L6068" class="LineNr"> 6068 </span> (<a href='109stream-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#L6040'>test-convert-floating-point-dereferenced</a>/2"</span>) -<span id="L6069" class="LineNr"> 6069 </span> (<a href='109stream-equal.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#L6040'>test-convert-floating-point-dereferenced</a>/3"</span>) -<span id="L6070" class="LineNr"> 6070 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6040'>test-convert-floating-point-dereferenced</a>/4"</span>) -<span id="L6071" class="LineNr"> 6071 </span> (<a href='109stream-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#L6040'>test-convert-floating-point-dereferenced</a>/5"</span>) -<span id="L6072" class="LineNr"> 6072 </span> (<a href='109stream-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#L6040'>test-convert-floating-point-dereferenced</a>/6"</span>) -<span id="L6073" class="LineNr"> 6073 </span> (<a href='109stream-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#L6040'>test-convert-floating-point-dereferenced</a>/7"</span>) -<span id="L6074" class="LineNr"> 6074 </span> (<a href='109stream-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#L6040'>test-convert-floating-point-dereferenced</a>/8"</span>) -<span id="L6075" class="LineNr"> 6075 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6040'>test-convert-floating-point-dereferenced</a>/9"</span>) -<span id="L6076" class="LineNr"> 6076 </span> (<a href='109stream-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#L6040'>test-convert-floating-point-dereferenced</a>/10"</span>) -<span id="L6077" class="LineNr"> 6077 </span> (<a href='109stream-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#L6040'>test-convert-floating-point-dereferenced</a>/11"</span>) -<span id="L6078" class="LineNr"> 6078 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply *eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6040'>test-convert-floating-point-dereferenced</a>/12"</span>) -<span id="L6079" class="LineNr"> 6079 </span> (<a href='109stream-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#L6040'>test-convert-floating-point-dereferenced</a>/13"</span>) -<span id="L6080" class="LineNr"> 6080 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6040'>test-convert-floating-point-dereferenced</a>/14"</span>) -<span id="L6081" class="LineNr"> 6081 </span> (<a href='109stream-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#L6040'>test-convert-floating-point-dereferenced</a>/15"</span>) -<span id="L6082" class="LineNr"> 6082 </span> (<a href='109stream-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#L6040'>test-convert-floating-point-dereferenced</a>/16"</span>) -<span id="L6083" class="LineNr"> 6083 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6040'>test-convert-floating-point-dereferenced</a>/17"</span>) -<span id="L6084" class="LineNr"> 6084 </span> (<a href='109stream-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#L6040'>test-convert-floating-point-dereferenced</a>/18"</span>) -<span id="L6085" class="LineNr"> 6085 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-dereferenced/19"</span>) -<span id="L6086" class="LineNr"> 6086 </span> (<a href='109stream-equal.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#L6040'>test-convert-floating-point-dereferenced</a>/20"</span>) -<span id="L6087" class="LineNr"> 6087 </span> (<a href='109stream-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#L6040'>test-convert-floating-point-dereferenced</a>/21"</span>) -<span id="L6088" class="LineNr"> 6088 </span> (<a href='109stream-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#L6040'>test-convert-floating-point-dereferenced</a>/22"</span>) -<span id="L6089" class="LineNr"> 6089 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6090" class="LineNr"> 6090 </span> 89/<- %esp 5/r32/ebp -<span id="L6091" class="LineNr"> 6091 </span> 5d/pop-to-ebp -<span id="L6092" class="LineNr"> 6092 </span> c3/return -<span id="L6093" class="LineNr"> 6093 </span> -<span id="L6094" class="LineNr"> 6094 </span><span class="subxTest">test-convert-length-of-array</span>: -<span id="L6095" class="LineNr"> 6095 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6096" class="LineNr"> 6096 </span> 55/push-ebp -<span id="L6097" class="LineNr"> 6097 </span> 89/<- %ebp 4/r32/esp -<span id="L6098" class="LineNr"> 6098 </span> <span class="subxComment"># setup</span> -<span id="L6099" class="LineNr"> 6099 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6100" class="LineNr"> 6100 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6101" class="LineNr"> 6101 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6102" class="LineNr"> 6102 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6103" class="LineNr"> 6103 </span> <span class="subxComment">#</span> -<span id="L6104" class="LineNr"> 6104 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr array int) {\n"</span>) -<span id="L6105" class="LineNr"> 6105 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr array int) <- copy a\n"</span>) -<span id="L6106" class="LineNr"> 6106 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/eax: int <- length b\n"</span>) -<span id="L6107" class="LineNr"> 6107 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6108" class="LineNr"> 6108 </span> <span class="subxComment"># convert</span> -<span id="L6109" class="LineNr"> 6109 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6110" class="LineNr"> 6110 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6111" class="Folded"> 6111 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6117" class="LineNr"> 6117 </span> <span class="subxComment"># check output</span> -<span id="L6118" class="LineNr"> 6118 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6094'>test-convert-length-of-array</a>/0"</span>) -<span id="L6119" class="LineNr"> 6119 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array/1"</span>) -<span id="L6120" class="LineNr"> 6120 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6094'>test-convert-length-of-array</a>/2"</span>) -<span id="L6121" class="LineNr"> 6121 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6094'>test-convert-length-of-array</a>/3"</span>) -<span id="L6122" class="LineNr"> 6122 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6094'>test-convert-length-of-array</a>/4"</span>) -<span id="L6123" class="LineNr"> 6123 </span> (<a href='109stream-equal.subx.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#L6094'>test-convert-length-of-array</a>/5"</span>) -<span id="L6124" class="LineNr"> 6124 </span> (<a href='109stream-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#L6094'>test-convert-length-of-array</a>/6"</span>) -<span id="L6125" class="LineNr"> 6125 </span> (<a href='109stream-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#L6094'>test-convert-length-of-array</a>/7"</span>) -<span id="L6126" class="LineNr"> 6126 </span> (<a href='109stream-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#L6094'>test-convert-length-of-array</a>/8"</span>) -<span id="L6127" class="LineNr"> 6127 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c1/shift 5/subop/>> %eax 0x00000002/imm8"</span> <span class="Constant">"F - <a href='mu.subx.html#L6094'>test-convert-length-of-array</a>/9"</span>) -<span id="L6128" class="LineNr"> 6128 </span> (<a href='109stream-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#L6094'>test-convert-length-of-array</a>/10"</span>) -<span id="L6129" class="LineNr"> 6129 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6094'>test-convert-length-of-array</a>/11"</span>) -<span id="L6130" class="LineNr"> 6130 </span> (<a href='109stream-equal.subx.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#L6094'>test-convert-length-of-array</a>/12"</span>) -<span id="L6131" class="LineNr"> 6131 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array/13"</span>) -<span id="L6132" class="LineNr"> 6132 </span> (<a href='109stream-equal.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#L6094'>test-convert-length-of-array</a>/14"</span>) -<span id="L6133" class="LineNr"> 6133 </span> (<a href='109stream-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#L6094'>test-convert-length-of-array</a>/15"</span>) -<span id="L6134" class="LineNr"> 6134 </span> (<a href='109stream-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#L6094'>test-convert-length-of-array</a>/16"</span>) -<span id="L6135" class="LineNr"> 6135 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6136" class="LineNr"> 6136 </span> 89/<- %esp 5/r32/ebp -<span id="L6137" class="LineNr"> 6137 </span> 5d/pop-to-ebp -<span id="L6138" class="LineNr"> 6138 </span> c3/return -<span id="L6139" class="LineNr"> 6139 </span> -<span id="L6140" class="LineNr"> 6140 </span><span class="subxComment"># special-case for size(byte) when computing array length</span> -<span id="L6141" class="LineNr"> 6141 </span><span class="subxTest">test-convert-length-of-array-of-bytes</span>: -<span id="L6142" class="LineNr"> 6142 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6143" class="LineNr"> 6143 </span> 55/push-ebp -<span id="L6144" class="LineNr"> 6144 </span> 89/<- %ebp 4/r32/esp -<span id="L6145" class="LineNr"> 6145 </span> <span class="subxComment"># setup</span> -<span id="L6146" class="LineNr"> 6146 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6147" class="LineNr"> 6147 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6148" class="LineNr"> 6148 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6149" class="LineNr"> 6149 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6150" class="LineNr"> 6150 </span> <span class="subxComment">#</span> -<span id="L6151" class="LineNr"> 6151 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr array byte) {\n"</span>) -<span id="L6152" class="LineNr"> 6152 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr array byte) <- copy a\n"</span>) -<span id="L6153" class="LineNr"> 6153 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/eax: int <- length b\n"</span>) -<span id="L6154" class="LineNr"> 6154 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6155" class="LineNr"> 6155 </span> <span class="subxComment"># convert</span> -<span id="L6156" class="LineNr"> 6156 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6157" class="LineNr"> 6157 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6158" class="Folded"> 6158 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6164" class="LineNr"> 6164 </span> <span class="subxComment"># check output</span> -<span id="L6165" class="LineNr"> 6165 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6141'>test-convert-length-of-array-of-bytes</a>/0"</span>) -<span id="L6166" class="LineNr"> 6166 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-bytes/1"</span>) -<span id="L6167" class="LineNr"> 6167 </span> (<a href='109stream-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#L6141'>test-convert-length-of-array-of-bytes</a>/2"</span>) -<span id="L6168" class="LineNr"> 6168 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6141'>test-convert-length-of-array-of-bytes</a>/3"</span>) -<span id="L6169" class="LineNr"> 6169 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6141'>test-convert-length-of-array-of-bytes</a>/4"</span>) -<span id="L6170" class="LineNr"> 6170 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6141'>test-convert-length-of-array-of-bytes</a>/5"</span>) -<span id="L6171" class="LineNr"> 6171 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6141'>test-convert-length-of-array-of-bytes</a>/6"</span>) -<span id="L6172" class="LineNr"> 6172 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6141'>test-convert-length-of-array-of-bytes</a>/7"</span>) -<span id="L6173" class="LineNr"> 6173 </span> (<a href='109stream-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#L6141'>test-convert-length-of-array-of-bytes</a>/8"</span>) -<span id="L6174" class="LineNr"> 6174 </span> (<a href='109stream-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#L6141'>test-convert-length-of-array-of-bytes</a>/9"</span>) -<span id="L6175" class="LineNr"> 6175 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6141'>test-convert-length-of-array-of-bytes</a>/10"</span>) -<span id="L6176" class="LineNr"> 6176 </span> (<a href='109stream-equal.subx.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#L6141'>test-convert-length-of-array-of-bytes</a>/11"</span>) -<span id="L6177" class="LineNr"> 6177 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-bytes/12"</span>) -<span id="L6178" class="LineNr"> 6178 </span> (<a href='109stream-equal.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#L6141'>test-convert-length-of-array-of-bytes</a>/13"</span>) -<span id="L6179" class="LineNr"> 6179 </span> (<a href='109stream-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#L6141'>test-convert-length-of-array-of-bytes</a>/14"</span>) -<span id="L6180" class="LineNr"> 6180 </span> (<a href='109stream-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#L6141'>test-convert-length-of-array-of-bytes</a>/15"</span>) -<span id="L6181" class="LineNr"> 6181 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6182" class="LineNr"> 6182 </span> 89/<- %esp 5/r32/ebp -<span id="L6183" class="LineNr"> 6183 </span> 5d/pop-to-ebp -<span id="L6184" class="LineNr"> 6184 </span> c3/return -<span id="L6185" class="LineNr"> 6185 </span> -<span id="L6186" class="LineNr"> 6186 </span><span class="subxTest">test-convert-length-of-array-on-stack</span>: -<span id="L6187" class="LineNr"> 6187 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6188" class="LineNr"> 6188 </span> 55/push-ebp -<span id="L6189" class="LineNr"> 6189 </span> 89/<- %ebp 4/r32/esp -<span id="L6190" class="LineNr"> 6190 </span> <span class="subxComment"># setup</span> -<span id="L6191" class="LineNr"> 6191 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6192" class="LineNr"> 6192 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6193" class="LineNr"> 6193 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6194" class="LineNr"> 6194 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6195" class="LineNr"> 6195 </span> <span class="subxComment">#</span> -<span id="L6196" class="LineNr"> 6196 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6197" class="LineNr"> 6197 </span> (<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="L6198" class="LineNr"> 6198 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: int <- length a\n"</span>) -<span id="L6199" class="LineNr"> 6199 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6200" class="LineNr"> 6200 </span> <span class="subxComment"># convert</span> -<span id="L6201" class="LineNr"> 6201 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6202" class="LineNr"> 6202 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6203" class="Folded"> 6203 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6209" class="LineNr"> 6209 </span> <span class="subxComment"># check output</span> -<span id="L6210" class="LineNr"> 6210 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6186'>test-convert-length-of-array-on-stack</a>/0"</span>) -<span id="L6211" class="LineNr"> 6211 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-on-stack/1"</span>) -<span id="L6212" class="LineNr"> 6212 </span> (<a href='109stream-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#L6186'>test-convert-length-of-array-on-stack</a>/2"</span>) -<span id="L6213" class="LineNr"> 6213 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6186'>test-convert-length-of-array-on-stack</a>/3"</span>) -<span id="L6214" class="LineNr"> 6214 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6186'>test-convert-length-of-array-on-stack</a>/4"</span>) -<span id="L6215" class="LineNr"> 6215 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6186'>test-convert-length-of-array-on-stack</a>/5"</span>) -<span id="L6216" class="LineNr"> 6216 </span> <span class="subxComment"># define x</span> -<span id="L6217" class="LineNr"> 6217 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6186'>test-convert-length-of-array-on-stack</a>/6"</span>) -<span id="L6218" class="LineNr"> 6218 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6186'>test-convert-length-of-array-on-stack</a>/7"</span>) -<span id="L6219" class="LineNr"> 6219 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6186'>test-convert-length-of-array-on-stack</a>/8"</span>) -<span id="L6220" class="LineNr"> 6220 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0xfffffff0) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6186'>test-convert-length-of-array-on-stack</a>/9"</span>) -<span id="L6221" class="LineNr"> 6221 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c1/shift 5/subop/>> %eax 0x00000002/imm8"</span> <span class="Constant">"F - <a href='mu.subx.html#L6186'>test-convert-length-of-array-on-stack</a>/10"</span>) -<span id="L6222" class="LineNr"> 6222 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6186'>test-convert-length-of-array-on-stack</a>/11"</span>) -<span id="L6223" class="LineNr"> 6223 </span> (<a href='109stream-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#L6186'>test-convert-length-of-array-on-stack</a>/12"</span>) -<span id="L6224" class="LineNr"> 6224 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6186'>test-convert-length-of-array-on-stack</a>/13"</span>) -<span id="L6225" class="LineNr"> 6225 </span> (<a href='109stream-equal.subx.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#L6186'>test-convert-length-of-array-on-stack</a>/14"</span>) -<span id="L6226" class="LineNr"> 6226 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-on-stack/15"</span>) -<span id="L6227" class="LineNr"> 6227 </span> (<a href='109stream-equal.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#L6186'>test-convert-length-of-array-on-stack</a>/16"</span>) -<span id="L6228" class="LineNr"> 6228 </span> (<a href='109stream-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#L6186'>test-convert-length-of-array-on-stack</a>/17"</span>) -<span id="L6229" class="LineNr"> 6229 </span> (<a href='109stream-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#L6186'>test-convert-length-of-array-on-stack</a>/18"</span>) -<span id="L6230" class="LineNr"> 6230 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6231" class="LineNr"> 6231 </span> 89/<- %esp 5/r32/ebp -<span id="L6232" class="LineNr"> 6232 </span> 5d/pop-to-ebp -<span id="L6233" class="LineNr"> 6233 </span> c3/return -<span id="L6234" class="LineNr"> 6234 </span> -<span id="L6235" class="LineNr"> 6235 </span><span class="subxTest">test-reg-var-def-with-read-of-same-register</span>: -<span id="L6236" class="LineNr"> 6236 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6237" class="LineNr"> 6237 </span> 55/push-ebp -<span id="L6238" class="LineNr"> 6238 </span> 89/<- %ebp 4/r32/esp -<span id="L6239" class="LineNr"> 6239 </span> <span class="subxComment"># setup</span> -<span id="L6240" class="LineNr"> 6240 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6241" class="LineNr"> 6241 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6242" class="LineNr"> 6242 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6243" class="LineNr"> 6243 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6244" class="LineNr"> 6244 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L6245" class="LineNr"> 6245 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6246" class="LineNr"> 6246 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16) # bytes of args in call to convert-mu</span> -<span id="L6247" class="LineNr"> 6247 </span> 68/push 0/imm32 -<span id="L6248" class="LineNr"> 6248 </span> 68/push 0/imm32 -<span id="L6249" class="LineNr"> 6249 </span> 89/<- %edx 4/r32/esp -<span id="L6250" class="LineNr"> 6250 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6251" class="LineNr"> 6251 </span> <span class="subxComment">#</span> -<span id="L6252" class="LineNr"> 6252 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6253" class="LineNr"> 6253 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 3\n"</span>) -<span id="L6254" class="LineNr"> 6254 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- add x\n"</span>) -<span id="L6255" class="LineNr"> 6255 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6256" class="LineNr"> 6256 </span> <span class="subxComment"># convert</span> -<span id="L6257" class="LineNr"> 6257 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L6258" class="LineNr"> 6258 </span> <span class="subxComment"># registers except esp could be clobbered at this point (though they shouldn't be)</span> -<span id="L6259" class="LineNr"> 6259 </span> <span class="subxComment"># restore ed</span> -<span id="L6260" class="LineNr"> 6260 </span> 89/<- %edx 4/r32/esp -<span id="L6261" class="LineNr"> 6261 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6262" class="LineNr"> 6262 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L6263" class="Folded"> 6263 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6269" class="Folded"> 6269 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6275" class="LineNr"> 6275 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6235'>test-reg-var-def-with-read-of-same-register</a>: <a href='114error.subx.html#L9'>error</a> stream should be empty"</span>) -<span id="L6276" class="LineNr"> 6276 </span> <span class="subxComment"># check output</span> -<span id="L6277" class="LineNr"> 6277 </span> (<a href='109stream-equal.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#L6235'>test-reg-var-def-with-read-of-same-register</a>/0"</span>) -<span id="L6278" class="LineNr"> 6278 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-reg-var-def-with-read-of-same-register/1"</span>) -<span id="L6279" class="LineNr"> 6279 </span> (<a href='109stream-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#L6235'>test-reg-var-def-with-read-of-same-register</a>/2"</span>) -<span id="L6280" class="LineNr"> 6280 </span> (<a href='109stream-equal.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#L6235'>test-reg-var-def-with-read-of-same-register</a>/3"</span>) -<span id="L6281" class="LineNr"> 6281 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6235'>test-reg-var-def-with-read-of-same-register</a>/4"</span>) -<span id="L6282" class="LineNr"> 6282 </span> (<a href='109stream-equal.subx.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#L6235'>test-reg-var-def-with-read-of-same-register</a>/5"</span>) -<span id="L6283" class="LineNr"> 6283 </span> (<a href='109stream-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#L6235'>test-reg-var-def-with-read-of-same-register</a>/6"</span>) -<span id="L6284" class="LineNr"> 6284 </span> (<a href='109stream-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#L6235'>test-reg-var-def-with-read-of-same-register</a>/7"</span>) -<span id="L6285" class="LineNr"> 6285 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 01/add-to %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6235'>test-reg-var-def-with-read-of-same-register</a>/8"</span>) -<span id="L6286" class="LineNr"> 6286 </span> (<a href='109stream-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#L6235'>test-reg-var-def-with-read-of-same-register</a>/9"</span>) -<span id="L6287" class="LineNr"> 6287 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6235'>test-reg-var-def-with-read-of-same-register</a>/10"</span>) -<span id="L6288" class="LineNr"> 6288 </span> (<a href='109stream-equal.subx.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#L6235'>test-reg-var-def-with-read-of-same-register</a>/11"</span>) -<span id="L6289" class="LineNr"> 6289 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-reg-var-def-with-read-of-same-register/12"</span>) -<span id="L6290" class="LineNr"> 6290 </span> (<a href='109stream-equal.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#L6235'>test-reg-var-def-with-read-of-same-register</a>/13"</span>) -<span id="L6291" class="LineNr"> 6291 </span> (<a href='109stream-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#L6235'>test-reg-var-def-with-read-of-same-register</a>/14"</span>) -<span id="L6292" class="LineNr"> 6292 </span> (<a href='109stream-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#L6235'>test-reg-var-def-with-read-of-same-register</a>/15"</span>) -<span id="L6293" class="LineNr"> 6293 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6294" class="LineNr"> 6294 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6295" class="LineNr"> 6295 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6296" class="LineNr"> 6296 </span> 5d/pop-to-ebp -<span id="L6297" class="LineNr"> 6297 </span> c3/return -<span id="L6298" class="LineNr"> 6298 </span> -<span id="L6299" class="LineNr"> 6299 </span><span class="subxTest">test-convert-index-into-array</span>: -<span id="L6300" class="LineNr"> 6300 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6301" class="LineNr"> 6301 </span> 55/push-ebp -<span id="L6302" class="LineNr"> 6302 </span> 89/<- %ebp 4/r32/esp -<span id="L6303" class="LineNr"> 6303 </span> <span class="subxComment"># setup</span> -<span id="L6304" class="LineNr"> 6304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6305" class="LineNr"> 6305 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6306" class="LineNr"> 6306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6307" class="LineNr"> 6307 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6308" class="LineNr"> 6308 </span> <span class="subxComment">#</span> -<span id="L6309" class="LineNr"> 6309 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6310" class="LineNr"> 6310 </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="L6311" class="LineNr"> 6311 </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="L6312" class="LineNr"> 6312 </span> (<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="L6313" class="LineNr"> 6313 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6314" class="LineNr"> 6314 </span> <span class="subxComment"># convert</span> -<span id="L6315" class="LineNr"> 6315 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6316" class="LineNr"> 6316 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6317" class="Folded"> 6317 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6323" class="LineNr"> 6323 </span> <span class="subxComment"># check output</span> -<span id="L6324" class="LineNr"> 6324 </span> (<a href='109stream-equal.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#L6299'>test-convert-index-into-array</a>/0"</span>) -<span id="L6325" class="LineNr"> 6325 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array/1"</span>) -<span id="L6326" class="LineNr"> 6326 </span> (<a href='109stream-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#L6299'>test-convert-index-into-array</a>/2"</span>) -<span id="L6327" class="LineNr"> 6327 </span> (<a href='109stream-equal.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#L6299'>test-convert-index-into-array</a>/3"</span>) -<span id="L6328" class="LineNr"> 6328 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6299'>test-convert-index-into-array</a>/4"</span>) -<span id="L6329" class="LineNr"> 6329 </span> (<a href='109stream-equal.subx.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#L6299'>test-convert-index-into-array</a>/5"</span>) -<span id="L6330" class="LineNr"> 6330 </span> (<a href='109stream-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#L6299'>test-convert-index-into-array</a>/6"</span>) -<span id="L6331" class="LineNr"> 6331 </span> (<a href='109stream-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#L6299'>test-convert-index-into-array</a>/7"</span>) -<span id="L6332" class="LineNr"> 6332 </span> (<a href='109stream-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#L6299'>test-convert-index-into-array</a>/8"</span>) -<span id="L6333" class="LineNr"> 6333 </span> (<a href='109stream-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#L6299'>test-convert-index-into-array</a>/9"</span>) -<span id="L6334" class="LineNr"> 6334 </span> (<a href='109stream-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#L6299'>test-convert-index-into-array</a>/10"</span>) -<span id="L6335" class="LineNr"> 6335 </span> (<a href='109stream-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#L6299'>test-convert-index-into-array</a>/11"</span>) -<span id="L6336" class="LineNr"> 6336 </span> (<a href='109stream-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#L6299'>test-convert-index-into-array</a>/12"</span>) -<span id="L6337" class="LineNr"> 6337 </span> (<a href='109stream-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#L6299'>test-convert-index-into-array</a>/13"</span>) -<span id="L6338" class="LineNr"> 6338 </span> (<a href='109stream-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#L6299'>test-convert-index-into-array</a>/14"</span>) -<span id="L6339" class="LineNr"> 6339 </span> (<a href='109stream-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#L6299'>test-convert-index-into-array</a>/15"</span>) -<span id="L6340" class="LineNr"> 6340 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6299'>test-convert-index-into-array</a>/16"</span>) -<span id="L6341" class="LineNr"> 6341 </span> (<a href='109stream-equal.subx.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#L6299'>test-convert-index-into-array</a>/17"</span>) -<span id="L6342" class="LineNr"> 6342 </span> (<a href='109stream-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="L6343" class="LineNr"> 6343 </span> (<a href='109stream-equal.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#L6299'>test-convert-index-into-array</a>/19"</span>) -<span id="L6344" class="LineNr"> 6344 </span> (<a href='109stream-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#L6299'>test-convert-index-into-array</a>/20"</span>) -<span id="L6345" class="LineNr"> 6345 </span> (<a href='109stream-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#L6299'>test-convert-index-into-array</a>/21"</span>) -<span id="L6346" class="LineNr"> 6346 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6347" class="LineNr"> 6347 </span> 89/<- %esp 5/r32/ebp -<span id="L6348" class="LineNr"> 6348 </span> 5d/pop-to-ebp -<span id="L6349" class="LineNr"> 6349 </span> c3/return -<span id="L6350" class="LineNr"> 6350 </span> -<span id="L6351" class="LineNr"> 6351 </span><span class="subxTest">test-convert-index-into-array-of-bytes</span>: -<span id="L6352" class="LineNr"> 6352 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6353" class="LineNr"> 6353 </span> 55/push-ebp -<span id="L6354" class="LineNr"> 6354 </span> 89/<- %ebp 4/r32/esp -<span id="L6355" class="LineNr"> 6355 </span> <span class="subxComment"># setup</span> -<span id="L6356" class="LineNr"> 6356 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6357" class="LineNr"> 6357 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6358" class="LineNr"> 6358 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6359" class="LineNr"> 6359 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6360" class="LineNr"> 6360 </span> <span class="subxComment">#</span> -<span id="L6361" class="LineNr"> 6361 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6362" class="LineNr"> 6362 </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="L6363" class="LineNr"> 6363 </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="L6364" class="LineNr"> 6364 </span> (<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="L6365" class="LineNr"> 6365 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6366" class="LineNr"> 6366 </span> <span class="subxComment"># convert</span> -<span id="L6367" class="LineNr"> 6367 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6368" class="LineNr"> 6368 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6369" class="Folded"> 6369 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6375" class="LineNr"> 6375 </span> <span class="subxComment"># check output</span> -<span id="L6376" class="LineNr"> 6376 </span> (<a href='109stream-equal.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#L6351'>test-convert-index-into-array-of-bytes</a>/0"</span>) -<span id="L6377" class="LineNr"> 6377 </span> (<a href='109stream-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="L6378" class="LineNr"> 6378 </span> (<a href='109stream-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#L6351'>test-convert-index-into-array-of-bytes</a>/2"</span>) -<span id="L6379" class="LineNr"> 6379 </span> (<a href='109stream-equal.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#L6351'>test-convert-index-into-array-of-bytes</a>/3"</span>) -<span id="L6380" class="LineNr"> 6380 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6351'>test-convert-index-into-array-of-bytes</a>/4"</span>) -<span id="L6381" class="LineNr"> 6381 </span> (<a href='109stream-equal.subx.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#L6351'>test-convert-index-into-array-of-bytes</a>/5"</span>) -<span id="L6382" class="LineNr"> 6382 </span> (<a href='109stream-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#L6351'>test-convert-index-into-array-of-bytes</a>/6"</span>) -<span id="L6383" class="LineNr"> 6383 </span> (<a href='109stream-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#L6351'>test-convert-index-into-array-of-bytes</a>/7"</span>) -<span id="L6384" class="LineNr"> 6384 </span> (<a href='109stream-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#L6351'>test-convert-index-into-array-of-bytes</a>/8"</span>) -<span id="L6385" class="LineNr"> 6385 </span> (<a href='109stream-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#L6351'>test-convert-index-into-array-of-bytes</a>/9"</span>) -<span id="L6386" class="LineNr"> 6386 </span> (<a href='109stream-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#L6351'>test-convert-index-into-array-of-bytes</a>/10"</span>) -<span id="L6387" class="LineNr"> 6387 </span> (<a href='109stream-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#L6351'>test-convert-index-into-array-of-bytes</a>/11"</span>) -<span id="L6388" class="LineNr"> 6388 </span> (<a href='109stream-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#L6351'>test-convert-index-into-array-of-bytes</a>/12"</span>) -<span id="L6389" class="LineNr"> 6389 </span> (<a href='109stream-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#L6351'>test-convert-index-into-array-of-bytes</a>/13"</span>) -<span id="L6390" class="LineNr"> 6390 </span> (<a href='109stream-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#L6351'>test-convert-index-into-array-of-bytes</a>/14"</span>) -<span id="L6391" class="LineNr"> 6391 </span> (<a href='109stream-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#L6351'>test-convert-index-into-array-of-bytes</a>/15"</span>) -<span id="L6392" class="LineNr"> 6392 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6351'>test-convert-index-into-array-of-bytes</a>/16"</span>) -<span id="L6393" class="LineNr"> 6393 </span> (<a href='109stream-equal.subx.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#L6351'>test-convert-index-into-array-of-bytes</a>/17"</span>) -<span id="L6394" class="LineNr"> 6394 </span> (<a href='109stream-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="L6395" class="LineNr"> 6395 </span> (<a href='109stream-equal.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#L6351'>test-convert-index-into-array-of-bytes</a>/19"</span>) -<span id="L6396" class="LineNr"> 6396 </span> (<a href='109stream-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#L6351'>test-convert-index-into-array-of-bytes</a>/20"</span>) -<span id="L6397" class="LineNr"> 6397 </span> (<a href='109stream-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#L6351'>test-convert-index-into-array-of-bytes</a>/21"</span>) -<span id="L6398" class="LineNr"> 6398 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6399" class="LineNr"> 6399 </span> 89/<- %esp 5/r32/ebp -<span id="L6400" class="LineNr"> 6400 </span> 5d/pop-to-ebp -<span id="L6401" class="LineNr"> 6401 </span> c3/return -<span id="L6402" class="LineNr"> 6402 </span> -<span id="L6403" class="LineNr"> 6403 </span><span class="subxTest">test-convert-index-into-array-with-literal</span>: -<span id="L6404" class="LineNr"> 6404 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6405" class="LineNr"> 6405 </span> 55/push-ebp -<span id="L6406" class="LineNr"> 6406 </span> 89/<- %ebp 4/r32/esp -<span id="L6407" class="LineNr"> 6407 </span> <span class="subxComment"># setup</span> -<span id="L6408" class="LineNr"> 6408 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6409" class="LineNr"> 6409 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6410" class="LineNr"> 6410 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6411" class="LineNr"> 6411 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6412" class="LineNr"> 6412 </span> <span class="subxComment">#</span> -<span id="L6413" class="LineNr"> 6413 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6414" class="LineNr"> 6414 </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="L6415" class="LineNr"> 6415 </span> (<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="L6416" class="LineNr"> 6416 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6417" class="LineNr"> 6417 </span> <span class="subxComment"># convert</span> -<span id="L6418" class="LineNr"> 6418 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6419" class="LineNr"> 6419 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6420" class="Folded"> 6420 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6426" class="LineNr"> 6426 </span> <span class="subxComment"># check output</span> -<span id="L6427" class="LineNr"> 6427 </span> (<a href='109stream-equal.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#L6403'>test-convert-index-into-array-with-literal</a>/0"</span>) -<span id="L6428" class="LineNr"> 6428 </span> (<a href='109stream-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="L6429" class="LineNr"> 6429 </span> (<a href='109stream-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#L6403'>test-convert-index-into-array-with-literal</a>/2"</span>) -<span id="L6430" class="LineNr"> 6430 </span> (<a href='109stream-equal.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#L6403'>test-convert-index-into-array-with-literal</a>/3"</span>) -<span id="L6431" class="LineNr"> 6431 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6403'>test-convert-index-into-array-with-literal</a>/4"</span>) -<span id="L6432" class="LineNr"> 6432 </span> (<a href='109stream-equal.subx.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#L6403'>test-convert-index-into-array-with-literal</a>/5"</span>) -<span id="L6433" class="LineNr"> 6433 </span> (<a href='109stream-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#L6403'>test-convert-index-into-array-with-literal</a>/6"</span>) -<span id="L6434" class="LineNr"> 6434 </span> (<a href='109stream-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#L6403'>test-convert-index-into-array-with-literal</a>/7"</span>) -<span id="L6435" class="LineNr"> 6435 </span> (<a href='109stream-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#L6403'>test-convert-index-into-array-with-literal</a>/8"</span>) -<span id="L6436" class="LineNr"> 6436 </span> (<a href='109stream-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#L6403'>test-convert-index-into-array-with-literal</a>/9"</span>) -<span id="L6437" class="LineNr"> 6437 </span> (<a href='109stream-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#L6403'>test-convert-index-into-array-with-literal</a>/10"</span>) -<span id="L6438" class="LineNr"> 6438 </span> <span class="subxComment"># 2 * 4 bytes/elem + 4 bytes for size = offset 12</span> -<span id="L6439" class="LineNr"> 6439 </span> (<a href='109stream-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#L6403'>test-convert-index-into-array-with-literal</a>/11"</span>) -<span id="L6440" class="LineNr"> 6440 </span> (<a href='109stream-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#L6403'>test-convert-index-into-array-with-literal</a>/12"</span>) -<span id="L6441" class="LineNr"> 6441 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6403'>test-convert-index-into-array-with-literal</a>/13"</span>) -<span id="L6442" class="LineNr"> 6442 </span> (<a href='109stream-equal.subx.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#L6403'>test-convert-index-into-array-with-literal</a>/14"</span>) -<span id="L6443" class="LineNr"> 6443 </span> (<a href='109stream-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="L6444" class="LineNr"> 6444 </span> (<a href='109stream-equal.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#L6403'>test-convert-index-into-array-with-literal</a>/16"</span>) -<span id="L6445" class="LineNr"> 6445 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6403'>test-convert-index-into-array-with-literal</a>/17"</span>) -<span id="L6446" class="LineNr"> 6446 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6403'>test-convert-index-into-array-with-literal</a>/18"</span>) -<span id="L6447" class="LineNr"> 6447 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6448" class="LineNr"> 6448 </span> 89/<- %esp 5/r32/ebp -<span id="L6449" class="LineNr"> 6449 </span> 5d/pop-to-ebp -<span id="L6450" class="LineNr"> 6450 </span> c3/return -<span id="L6451" class="LineNr"> 6451 </span> -<span id="L6452" class="LineNr"> 6452 </span><span class="subxTest">test-convert-index-into-array-of-bytes-with-literal</span>: -<span id="L6453" class="LineNr"> 6453 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6454" class="LineNr"> 6454 </span> 55/push-ebp -<span id="L6455" class="LineNr"> 6455 </span> 89/<- %ebp 4/r32/esp -<span id="L6456" class="LineNr"> 6456 </span> <span class="subxComment"># setup</span> -<span id="L6457" class="LineNr"> 6457 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6458" class="LineNr"> 6458 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6459" class="LineNr"> 6459 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6460" class="LineNr"> 6460 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6461" class="LineNr"> 6461 </span> <span class="subxComment">#</span> -<span id="L6462" class="LineNr"> 6462 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6463" class="LineNr"> 6463 </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="L6464" class="LineNr"> 6464 </span> (<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="L6465" class="LineNr"> 6465 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6466" class="LineNr"> 6466 </span> <span class="subxComment"># convert</span> -<span id="L6467" class="LineNr"> 6467 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6468" class="LineNr"> 6468 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6469" class="Folded"> 6469 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6475" class="LineNr"> 6475 </span> <span class="subxComment"># check output</span> -<span id="L6476" class="LineNr"> 6476 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/0"</span>) -<span id="L6477" class="LineNr"> 6477 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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="L6478" class="LineNr"> 6478 </span> (<a href='109stream-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#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/2"</span>) -<span id="L6479" class="LineNr"> 6479 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/3"</span>) -<span id="L6480" class="LineNr"> 6480 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/4"</span>) -<span id="L6481" class="LineNr"> 6481 </span> (<a href='109stream-equal.subx.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#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/5"</span>) -<span id="L6482" class="LineNr"> 6482 </span> (<a href='109stream-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#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/6"</span>) -<span id="L6483" class="LineNr"> 6483 </span> (<a href='109stream-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#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/7"</span>) -<span id="L6484" class="LineNr"> 6484 </span> (<a href='109stream-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#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/8"</span>) -<span id="L6485" class="LineNr"> 6485 </span> (<a href='109stream-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#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/9"</span>) -<span id="L6486" class="LineNr"> 6486 </span> (<a href='109stream-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#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/10"</span>) -<span id="L6487" class="LineNr"> 6487 </span> <span class="subxComment"># 2 * 1 byte/elem + 4 bytes for size = offset 6</span> -<span id="L6488" class="LineNr"> 6488 </span> (<a href='109stream-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#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/11"</span>) -<span id="L6489" class="LineNr"> 6489 </span> (<a href='109stream-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#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/12"</span>) -<span id="L6490" class="LineNr"> 6490 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/13"</span>) -<span id="L6491" class="LineNr"> 6491 </span> (<a href='109stream-equal.subx.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#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/14"</span>) -<span id="L6492" class="LineNr"> 6492 </span> (<a href='109stream-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="L6493" class="LineNr"> 6493 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/16"</span>) -<span id="L6494" class="LineNr"> 6494 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/17"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6452'>test-convert-index-into-array-of-bytes-with-literal</a>/18"</span>) -<span id="L6496" class="LineNr"> 6496 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6497" class="LineNr"> 6497 </span> 89/<- %esp 5/r32/ebp -<span id="L6498" class="LineNr"> 6498 </span> 5d/pop-to-ebp -<span id="L6499" class="LineNr"> 6499 </span> c3/return -<span id="L6500" class="LineNr"> 6500 </span> -<span id="L6501" class="LineNr"> 6501 </span><span class="subxTest">test-convert-index-into-array-on-stack</span>: -<span id="L6502" class="LineNr"> 6502 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6503" class="LineNr"> 6503 </span> 55/push-ebp -<span id="L6504" class="LineNr"> 6504 </span> 89/<- %ebp 4/r32/esp -<span id="L6505" class="LineNr"> 6505 </span> <span class="subxComment"># setup</span> -<span id="L6506" class="LineNr"> 6506 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6507" class="LineNr"> 6507 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6508" class="LineNr"> 6508 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6509" class="LineNr"> 6509 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6510" class="LineNr"> 6510 </span> <span class="subxComment">#</span> -<span id="L6511" class="LineNr"> 6511 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6512" class="LineNr"> 6512 </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="L6513" class="LineNr"> 6513 </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="L6514" class="LineNr"> 6514 </span> (<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="L6515" class="LineNr"> 6515 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6516" class="LineNr"> 6516 </span> <span class="subxComment"># convert</span> -<span id="L6517" class="LineNr"> 6517 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6518" class="LineNr"> 6518 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6519" class="Folded"> 6519 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6525" class="LineNr"> 6525 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6501'>test-convert-index-into-array-on-stack</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6501'>test-convert-index-into-array-on-stack</a>/2"</span>) -<span id="L6529" class="LineNr"> 6529 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6501'>test-convert-index-into-array-on-stack</a>/3"</span>) -<span id="L6530" class="LineNr"> 6530 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6501'>test-convert-index-into-array-on-stack</a>/4"</span>) -<span id="L6531" class="LineNr"> 6531 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6501'>test-convert-index-into-array-on-stack</a>/5"</span>) -<span id="L6532" class="LineNr"> 6532 </span> <span class="subxComment"># var arr</span> -<span id="L6533" class="LineNr"> 6533 </span> (<a href='109stream-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#L6501'>test-convert-index-into-array-on-stack</a>/6"</span>) -<span id="L6534" class="LineNr"> 6534 </span> (<a href='109stream-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#L6501'>test-convert-index-into-array-on-stack</a>/7"</span>) -<span id="L6535" class="LineNr"> 6535 </span> <span class="subxComment"># var idx</span> -<span id="L6536" class="LineNr"> 6536 </span> (<a href='109stream-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#L6501'>test-convert-index-into-array-on-stack</a>/8"</span>) -<span id="L6537" class="LineNr"> 6537 </span> (<a href='109stream-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#L6501'>test-convert-index-into-array-on-stack</a>/9"</span>) -<span id="L6538" class="LineNr"> 6538 </span> (<a href='109stream-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#L6501'>test-convert-index-into-array-on-stack</a>/10"</span>) -<span id="L6539" class="LineNr"> 6539 </span> <span class="subxComment"># var x is at (ebp-0x10) + idx<<2 + 4 = ebp + idx<<2 - 0xc</span> -<span id="L6540" class="LineNr"> 6540 </span> (<a href='109stream-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#L6501'>test-convert-index-into-array-on-stack</a>/11"</span>) -<span id="L6541" class="LineNr"> 6541 </span> <span class="subxComment"># reclaim idx</span> -<span id="L6542" class="LineNr"> 6542 </span> (<a href='109stream-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#L6501'>test-convert-index-into-array-on-stack</a>/12"</span>) -<span id="L6543" class="LineNr"> 6543 </span> <span class="subxComment"># reclaim arr</span> -<span id="L6544" class="LineNr"> 6544 </span> (<a href='109stream-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#L6501'>test-convert-index-into-array-on-stack</a>/13"</span>) -<span id="L6545" class="LineNr"> 6545 </span> <span class="subxComment">#</span> -<span id="L6546" class="LineNr"> 6546 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6501'>test-convert-index-into-array-on-stack</a>/14"</span>) -<span id="L6547" class="LineNr"> 6547 </span> (<a href='109stream-equal.subx.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#L6501'>test-convert-index-into-array-on-stack</a>/15"</span>) -<span id="L6548" class="LineNr"> 6548 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/16"</span>) -<span id="L6549" class="LineNr"> 6549 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6501'>test-convert-index-into-array-on-stack</a>/17"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6501'>test-convert-index-into-array-on-stack</a>/18"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6501'>test-convert-index-into-array-on-stack</a>/19"</span>) -<span id="L6552" class="LineNr"> 6552 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6553" class="LineNr"> 6553 </span> 89/<- %esp 5/r32/ebp -<span id="L6554" class="LineNr"> 6554 </span> 5d/pop-to-ebp -<span id="L6555" class="LineNr"> 6555 </span> c3/return -<span id="L6556" class="LineNr"> 6556 </span> -<span id="L6557" class="LineNr"> 6557 </span><span class="subxTest">test-convert-index-into-array-on-stack-with-literal</span>: -<span id="L6558" class="LineNr"> 6558 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6559" class="LineNr"> 6559 </span> 55/push-ebp -<span id="L6560" class="LineNr"> 6560 </span> 89/<- %ebp 4/r32/esp -<span id="L6561" class="LineNr"> 6561 </span> <span class="subxComment"># setup</span> -<span id="L6562" class="LineNr"> 6562 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6563" class="LineNr"> 6563 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6564" class="LineNr"> 6564 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6565" class="LineNr"> 6565 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6566" class="LineNr"> 6566 </span> <span class="subxComment">#</span> -<span id="L6567" class="LineNr"> 6567 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6568" class="LineNr"> 6568 </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="L6569" class="LineNr"> 6569 </span> (<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="L6570" class="LineNr"> 6570 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6571" class="LineNr"> 6571 </span> <span class="subxComment"># convert</span> -<span id="L6572" class="LineNr"> 6572 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6573" class="LineNr"> 6573 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6574" class="Folded"> 6574 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6580" class="LineNr"> 6580 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack-with-literal/1"</span>) -<span id="L6583" class="LineNr"> 6583 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/2"</span>) -<span id="L6584" class="LineNr"> 6584 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/3"</span>) -<span id="L6585" class="LineNr"> 6585 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/4"</span>) -<span id="L6586" class="LineNr"> 6586 </span> (<a href='109stream-equal.subx.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#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/5"</span>) -<span id="L6587" class="LineNr"> 6587 </span> <span class="subxComment"># var arr</span> -<span id="L6588" class="LineNr"> 6588 </span> (<a href='109stream-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#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/6"</span>) -<span id="L6589" class="LineNr"> 6589 </span> (<a href='109stream-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#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/7"</span>) -<span id="L6590" class="LineNr"> 6590 </span> <span class="subxComment"># var x</span> -<span id="L6591" class="LineNr"> 6591 </span> (<a href='109stream-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#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/8"</span>) -<span id="L6592" class="LineNr"> 6592 </span> (<a href='109stream-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#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/9"</span>) -<span id="L6593" class="LineNr"> 6593 </span> <span class="subxComment"># x is at (ebp-0x10) + 4 + 2*4 = ebp-4</span> -<span id="L6594" class="LineNr"> 6594 </span> (<a href='109stream-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#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/10"</span>) -<span id="L6595" class="LineNr"> 6595 </span> <span class="subxComment"># reclaim x</span> -<span id="L6596" class="LineNr"> 6596 </span> (<a href='109stream-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#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/11"</span>) -<span id="L6597" class="LineNr"> 6597 </span> <span class="subxComment"># reclaim arr</span> -<span id="L6598" class="LineNr"> 6598 </span> (<a href='109stream-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#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/12"</span>) -<span id="L6599" class="LineNr"> 6599 </span> <span class="subxComment">#</span> -<span id="L6600" class="LineNr"> 6600 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/13"</span>) -<span id="L6601" class="LineNr"> 6601 </span> (<a href='109stream-equal.subx.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#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/14"</span>) -<span id="L6602" class="LineNr"> 6602 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack-with-literal/15"</span>) -<span id="L6603" class="LineNr"> 6603 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/16"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/17"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6557'>test-convert-index-into-array-on-stack-with-literal</a>/18"</span>) -<span id="L6606" class="LineNr"> 6606 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6607" class="LineNr"> 6607 </span> 89/<- %esp 5/r32/ebp -<span id="L6608" class="LineNr"> 6608 </span> 5d/pop-to-ebp -<span id="L6609" class="LineNr"> 6609 </span> c3/return -<span id="L6610" class="LineNr"> 6610 </span> -<span id="L6611" class="LineNr"> 6611 </span><span class="subxTest">test-convert-index-into-array-of-bytes-on-stack-with-literal</span>: -<span id="L6612" class="LineNr"> 6612 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6613" class="LineNr"> 6613 </span> 55/push-ebp -<span id="L6614" class="LineNr"> 6614 </span> 89/<- %ebp 4/r32/esp -<span id="L6615" class="LineNr"> 6615 </span> <span class="subxComment"># setup</span> -<span id="L6616" class="LineNr"> 6616 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6617" class="LineNr"> 6617 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6618" class="LineNr"> 6618 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6619" class="LineNr"> 6619 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6620" class="LineNr"> 6620 </span> <span class="subxComment">#</span> -<span id="L6621" class="LineNr"> 6621 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6622" class="LineNr"> 6622 </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="L6623" class="LineNr"> 6623 </span> (<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="L6624" class="LineNr"> 6624 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6625" class="LineNr"> 6625 </span> <span class="subxComment"># convert</span> -<span id="L6626" class="LineNr"> 6626 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6627" class="LineNr"> 6627 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6628" class="Folded"> 6628 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6634" class="LineNr"> 6634 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-on-stack-with-literal/1"</span>) -<span id="L6637" class="LineNr"> 6637 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/2"</span>) -<span id="L6638" class="LineNr"> 6638 </span> (<a href='109stream-equal.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#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/3"</span>) -<span id="L6639" class="LineNr"> 6639 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/4"</span>) -<span id="L6640" class="LineNr"> 6640 </span> (<a href='109stream-equal.subx.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#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/5"</span>) -<span id="L6641" class="LineNr"> 6641 </span> <span class="subxComment"># var arr</span> -<span id="L6642" class="LineNr"> 6642 </span> (<a href='109stream-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#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/6"</span>) -<span id="L6643" class="LineNr"> 6643 </span> (<a href='109stream-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#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/7"</span>) -<span id="L6644" class="LineNr"> 6644 </span> <span class="subxComment"># var x</span> -<span id="L6645" class="LineNr"> 6645 </span> (<a href='109stream-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#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/8"</span>) -<span id="L6646" class="LineNr"> 6646 </span> (<a href='109stream-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#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/9"</span>) -<span id="L6647" class="LineNr"> 6647 </span> <span class="subxComment"># x is at (ebp-7) + 4 + 2 = ebp-1</span> -<span id="L6648" class="LineNr"> 6648 </span> (<a href='109stream-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#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/10"</span>) -<span id="L6649" class="LineNr"> 6649 </span> <span class="subxComment"># reclaim x</span> -<span id="L6650" class="LineNr"> 6650 </span> (<a href='109stream-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#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/11"</span>) -<span id="L6651" class="LineNr"> 6651 </span> <span class="subxComment"># reclaim arr</span> -<span id="L6652" class="LineNr"> 6652 </span> (<a href='109stream-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#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/12"</span>) -<span id="L6653" class="LineNr"> 6653 </span> <span class="subxComment">#</span> -<span id="L6654" class="LineNr"> 6654 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/13"</span>) -<span id="L6655" class="LineNr"> 6655 </span> (<a href='109stream-equal.subx.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#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/14"</span>) -<span id="L6656" class="LineNr"> 6656 </span> (<a href='109stream-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="L6657" class="LineNr"> 6657 </span> (<a href='109stream-equal.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#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/16"</span>) -<span id="L6658" class="LineNr"> 6658 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/17"</span>) -<span id="L6659" class="LineNr"> 6659 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6611'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/18"</span>) -<span id="L6660" class="LineNr"> 6660 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6661" class="LineNr"> 6661 </span> 89/<- %esp 5/r32/ebp -<span id="L6662" class="LineNr"> 6662 </span> 5d/pop-to-ebp -<span id="L6663" class="LineNr"> 6663 </span> c3/return -<span id="L6664" class="LineNr"> 6664 </span> -<span id="L6665" class="LineNr"> 6665 </span><span class="subxTest">test-convert-index-into-array-using-offset</span>: -<span id="L6666" class="LineNr"> 6666 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6667" class="LineNr"> 6667 </span> 55/push-ebp -<span id="L6668" class="LineNr"> 6668 </span> 89/<- %ebp 4/r32/esp -<span id="L6669" class="LineNr"> 6669 </span> <span class="subxComment"># setup</span> -<span id="L6670" class="LineNr"> 6670 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6671" class="LineNr"> 6671 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6672" class="LineNr"> 6672 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6673" class="LineNr"> 6673 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6674" class="LineNr"> 6674 </span> <span class="subxComment">#</span> -<span id="L6675" class="LineNr"> 6675 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6676" class="LineNr"> 6676 </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="L6677" class="LineNr"> 6677 </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="L6678" class="LineNr"> 6678 </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="L6679" class="LineNr"> 6679 </span> (<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="L6680" class="LineNr"> 6680 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6681" class="LineNr"> 6681 </span> <span class="subxComment"># convert</span> -<span id="L6682" class="LineNr"> 6682 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6683" class="LineNr"> 6683 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6684" class="Folded"> 6684 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6690" class="LineNr"> 6690 </span> <span class="subxComment"># check output</span> -<span id="L6691" class="LineNr"> 6691 </span> (<a href='109stream-equal.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#L6665'>test-convert-index-into-array-using-offset</a>/0"</span>) -<span id="L6692" class="LineNr"> 6692 </span> (<a href='109stream-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="L6693" class="LineNr"> 6693 </span> (<a href='109stream-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#L6665'>test-convert-index-into-array-using-offset</a>/2"</span>) -<span id="L6694" class="LineNr"> 6694 </span> (<a href='109stream-equal.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#L6665'>test-convert-index-into-array-using-offset</a>/3"</span>) -<span id="L6695" class="LineNr"> 6695 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6665'>test-convert-index-into-array-using-offset</a>/4"</span>) -<span id="L6696" class="LineNr"> 6696 </span> (<a href='109stream-equal.subx.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#L6665'>test-convert-index-into-array-using-offset</a>/5"</span>) -<span id="L6697" class="LineNr"> 6697 </span> (<a href='109stream-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#L6665'>test-convert-index-into-array-using-offset</a>/6"</span>) -<span id="L6698" class="LineNr"> 6698 </span> (<a href='109stream-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#L6665'>test-convert-index-into-array-using-offset</a>/7"</span>) -<span id="L6699" class="LineNr"> 6699 </span> (<a href='109stream-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#L6665'>test-convert-index-into-array-using-offset</a>/8"</span>) -<span id="L6700" class="LineNr"> 6700 </span> (<a href='109stream-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#L6665'>test-convert-index-into-array-using-offset</a>/9"</span>) -<span id="L6701" class="LineNr"> 6701 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6665'>test-convert-index-into-array-using-offset</a>/10"</span>) -<span id="L6702" class="LineNr"> 6702 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6665'>test-convert-index-into-array-using-offset</a>/11"</span>) -<span id="L6703" class="LineNr"> 6703 </span> (<a href='109stream-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#L6665'>test-convert-index-into-array-using-offset</a>/12"</span>) -<span id="L6704" class="LineNr"> 6704 </span> (<a href='109stream-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#L6665'>test-convert-index-into-array-using-offset</a>/13"</span>) -<span id="L6705" class="LineNr"> 6705 </span> (<a href='109stream-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#L6665'>test-convert-index-into-array-using-offset</a>/15"</span>) -<span id="L6706" class="LineNr"> 6706 </span> (<a href='109stream-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#L6665'>test-convert-index-into-array-using-offset</a>/16"</span>) -<span id="L6707" class="LineNr"> 6707 </span> (<a href='109stream-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#L6665'>test-convert-index-into-array-using-offset</a>/17"</span>) -<span id="L6708" class="LineNr"> 6708 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6665'>test-convert-index-into-array-using-offset</a>/18"</span>) -<span id="L6709" class="LineNr"> 6709 </span> (<a href='109stream-equal.subx.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#L6665'>test-convert-index-into-array-using-offset</a>/19"</span>) -<span id="L6710" class="LineNr"> 6710 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset/20"</span>) -<span id="L6711" class="LineNr"> 6711 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6665'>test-convert-index-into-array-using-offset</a>/21"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6665'>test-convert-index-into-array-using-offset</a>/22"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6665'>test-convert-index-into-array-using-offset</a>/23"</span>) -<span id="L6714" class="LineNr"> 6714 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6715" class="LineNr"> 6715 </span> 89/<- %esp 5/r32/ebp -<span id="L6716" class="LineNr"> 6716 </span> 5d/pop-to-ebp -<span id="L6717" class="LineNr"> 6717 </span> c3/return -<span id="L6718" class="LineNr"> 6718 </span> -<span id="L6719" class="LineNr"> 6719 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset</span>: -<span id="L6720" class="LineNr"> 6720 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6721" class="LineNr"> 6721 </span> 55/push-ebp -<span id="L6722" class="LineNr"> 6722 </span> 89/<- %ebp 4/r32/esp -<span id="L6723" class="LineNr"> 6723 </span> <span class="subxComment"># setup</span> -<span id="L6724" class="LineNr"> 6724 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6725" class="LineNr"> 6725 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6726" class="LineNr"> 6726 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6727" class="LineNr"> 6727 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6728" class="LineNr"> 6728 </span> <span class="subxComment">#</span> -<span id="L6729" class="LineNr"> 6729 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6730" class="LineNr"> 6730 </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="L6731" class="LineNr"> 6731 </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="L6732" class="LineNr"> 6732 </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="L6733" class="LineNr"> 6733 </span> (<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="L6734" class="LineNr"> 6734 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6735" class="LineNr"> 6735 </span> <span class="subxComment"># convert</span> -<span id="L6736" class="LineNr"> 6736 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6737" class="LineNr"> 6737 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6738" class="Folded"> 6738 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6744" class="LineNr"> 6744 </span> <span class="subxComment"># check output</span> -<span id="L6745" class="LineNr"> 6745 </span> (<a href='109stream-equal.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#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/0"</span>) -<span id="L6746" class="LineNr"> 6746 </span> (<a href='109stream-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="L6747" class="LineNr"> 6747 </span> (<a href='109stream-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#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/2"</span>) -<span id="L6748" class="LineNr"> 6748 </span> (<a href='109stream-equal.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#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/3"</span>) -<span id="L6749" class="LineNr"> 6749 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/4"</span>) -<span id="L6750" class="LineNr"> 6750 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/5"</span>) -<span id="L6751" class="LineNr"> 6751 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/6"</span>) -<span id="L6752" class="LineNr"> 6752 </span> (<a href='109stream-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#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/7"</span>) -<span id="L6753" class="LineNr"> 6753 </span> (<a href='109stream-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#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/8"</span>) -<span id="L6754" class="LineNr"> 6754 </span> (<a href='109stream-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#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/9"</span>) -<span id="L6755" class="LineNr"> 6755 </span> (<a href='109stream-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#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/10"</span>) -<span id="L6756" class="LineNr"> 6756 </span> (<a href='109stream-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#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/11"</span>) -<span id="L6757" class="LineNr"> 6757 </span> (<a href='109stream-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#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/12"</span>) -<span id="L6758" class="LineNr"> 6758 </span> (<a href='109stream-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#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/13"</span>) -<span id="L6759" class="LineNr"> 6759 </span> (<a href='109stream-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#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/14"</span>) -<span id="L6760" class="LineNr"> 6760 </span> (<a href='109stream-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#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/15"</span>) -<span id="L6761" class="LineNr"> 6761 </span> (<a href='109stream-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#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/16"</span>) -<span id="L6762" class="LineNr"> 6762 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/17"</span>) -<span id="L6763" class="LineNr"> 6763 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/18"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset/19"</span>) -<span id="L6765" class="LineNr"> 6765 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/20"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/21"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6719'>test-convert-index-into-array-of-bytes-using-offset</a>/22"</span>) -<span id="L6768" class="LineNr"> 6768 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6769" class="LineNr"> 6769 </span> 89/<- %esp 5/r32/ebp -<span id="L6770" class="LineNr"> 6770 </span> 5d/pop-to-ebp -<span id="L6771" class="LineNr"> 6771 </span> c3/return -<span id="L6772" class="LineNr"> 6772 </span> -<span id="L6773" class="LineNr"> 6773 </span><span class="subxTest">test-convert-index-into-array-using-offset-on-stack</span>: -<span id="L6774" class="LineNr"> 6774 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6775" class="LineNr"> 6775 </span> 55/push-ebp -<span id="L6776" class="LineNr"> 6776 </span> 89/<- %ebp 4/r32/esp -<span id="L6777" class="LineNr"> 6777 </span> <span class="subxComment"># setup</span> -<span id="L6778" class="LineNr"> 6778 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6779" class="LineNr"> 6779 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6780" class="LineNr"> 6780 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6781" class="LineNr"> 6781 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6782" class="LineNr"> 6782 </span> <span class="subxComment">#</span> -<span id="L6783" class="LineNr"> 6783 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6784" class="LineNr"> 6784 </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="L6785" class="LineNr"> 6785 </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="L6786" class="LineNr"> 6786 </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="L6787" class="LineNr"> 6787 </span> (<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="L6788" class="LineNr"> 6788 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6789" class="LineNr"> 6789 </span> <span class="subxComment"># convert</span> -<span id="L6790" class="LineNr"> 6790 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6791" class="LineNr"> 6791 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6792" class="Folded"> 6792 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6798" class="LineNr"> 6798 </span> <span class="subxComment"># check output</span> -<span id="L6799" class="LineNr"> 6799 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/0"</span>) -<span id="L6800" class="LineNr"> 6800 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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="L6801" class="LineNr"> 6801 </span> (<a href='109stream-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#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/2"</span>) -<span id="L6802" class="LineNr"> 6802 </span> (<a href='109stream-equal.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#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/3"</span>) -<span id="L6803" class="LineNr"> 6803 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/4"</span>) -<span id="L6804" class="LineNr"> 6804 </span> (<a href='109stream-equal.subx.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#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/5"</span>) -<span id="L6805" class="LineNr"> 6805 </span> (<a href='109stream-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#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/6"</span>) -<span id="L6806" class="LineNr"> 6806 </span> (<a href='109stream-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#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/7"</span>) -<span id="L6807" class="LineNr"> 6807 </span> (<a href='109stream-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#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/8"</span>) -<span id="L6808" class="LineNr"> 6808 </span> (<a href='109stream-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#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/9"</span>) -<span id="L6809" class="LineNr"> 6809 </span> (<a href='109stream-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#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/10"</span>) -<span id="L6810" class="LineNr"> 6810 </span> (<a href='109stream-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#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/11"</span>) -<span id="L6811" class="LineNr"> 6811 </span> (<a href='109stream-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#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/12"</span>) -<span id="L6812" class="LineNr"> 6812 </span> (<a href='109stream-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#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/13"</span>) -<span id="L6813" class="LineNr"> 6813 </span> (<a href='109stream-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#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/14"</span>) -<span id="L6814" class="LineNr"> 6814 </span> (<a href='109stream-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#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/15"</span>) -<span id="L6815" class="LineNr"> 6815 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/16"</span>) -<span id="L6816" class="LineNr"> 6816 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/17"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/18"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/19"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset-on-stack/20"</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/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/21"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/22"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6773'>test-convert-index-into-array-using-offset-on-stack</a>/23"</span>) -<span id="L6823" class="LineNr"> 6823 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6824" class="LineNr"> 6824 </span> 89/<- %esp 5/r32/ebp -<span id="L6825" class="LineNr"> 6825 </span> 5d/pop-to-ebp -<span id="L6826" class="LineNr"> 6826 </span> c3/return -<span id="L6827" class="LineNr"> 6827 </span> -<span id="L6828" class="LineNr"> 6828 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset-on-stack</span>: -<span id="L6829" class="LineNr"> 6829 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6830" class="LineNr"> 6830 </span> 55/push-ebp -<span id="L6831" class="LineNr"> 6831 </span> 89/<- %ebp 4/r32/esp -<span id="L6832" class="LineNr"> 6832 </span> <span class="subxComment"># setup</span> -<span id="L6833" class="LineNr"> 6833 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6834" class="LineNr"> 6834 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6835" class="LineNr"> 6835 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6836" class="LineNr"> 6836 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6837" class="LineNr"> 6837 </span> <span class="subxComment">#</span> -<span id="L6838" class="LineNr"> 6838 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6839" class="LineNr"> 6839 </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="L6840" class="LineNr"> 6840 </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="L6841" class="LineNr"> 6841 </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="L6842" class="LineNr"> 6842 </span> (<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="L6843" class="LineNr"> 6843 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6844" class="LineNr"> 6844 </span> <span class="subxComment"># convert</span> -<span id="L6845" class="LineNr"> 6845 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6846" class="LineNr"> 6846 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6847" class="Folded"> 6847 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6853" class="LineNr"> 6853 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/0"</span>) -<span id="L6855" class="LineNr"> 6855 </span> (<a href='109stream-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="L6856" class="LineNr"> 6856 </span> (<a href='109stream-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#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/2"</span>) -<span id="L6857" class="LineNr"> 6857 </span> (<a href='109stream-equal.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#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/3"</span>) -<span id="L6858" class="LineNr"> 6858 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/4"</span>) -<span id="L6859" class="LineNr"> 6859 </span> (<a href='109stream-equal.subx.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#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/5"</span>) -<span id="L6860" class="LineNr"> 6860 </span> (<a href='109stream-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#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/6"</span>) -<span id="L6861" class="LineNr"> 6861 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/7"</span>) -<span id="L6862" class="LineNr"> 6862 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/8"</span>) -<span id="L6863" class="LineNr"> 6863 </span> (<a href='109stream-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#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/9"</span>) -<span id="L6864" class="LineNr"> 6864 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/10"</span>) -<span id="L6865" class="LineNr"> 6865 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/11"</span>) -<span id="L6866" class="LineNr"> 6866 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/12"</span>) -<span id="L6867" class="LineNr"> 6867 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/13"</span>) -<span id="L6868" class="LineNr"> 6868 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/14"</span>) -<span id="L6869" class="LineNr"> 6869 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/15"</span>) -<span id="L6870" class="LineNr"> 6870 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/16"</span>) -<span id="L6871" class="LineNr"> 6871 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/17"</span>) -<span id="L6872" class="LineNr"> 6872 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/18"</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:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/19"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset-on-stack/20"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/21"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/22"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6828'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/23"</span>) -<span id="L6878" class="LineNr"> 6878 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6879" class="LineNr"> 6879 </span> 89/<- %esp 5/r32/ebp -<span id="L6880" class="LineNr"> 6880 </span> 5d/pop-to-ebp -<span id="L6881" class="LineNr"> 6881 </span> c3/return -<span id="L6882" class="LineNr"> 6882 </span> -<span id="L6883" class="LineNr"> 6883 </span><span class="subxTest">test-convert-function-and-type-definition</span>: -<span id="L6884" class="LineNr"> 6884 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6885" class="LineNr"> 6885 </span> 55/push-ebp -<span id="L6886" class="LineNr"> 6886 </span> 89/<- %ebp 4/r32/esp -<span id="L6887" class="LineNr"> 6887 </span> <span class="subxComment"># setup</span> -<span id="L6888" class="LineNr"> 6888 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6889" class="LineNr"> 6889 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6890" class="LineNr"> 6890 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6891" class="LineNr"> 6891 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6892" class="LineNr"> 6892 </span> <span class="subxComment">#</span> -<span id="L6893" class="LineNr"> 6893 </span> (<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="L6894" class="LineNr"> 6894 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var _a/eax: (addr t) <- copy a\n"</span>) -<span id="L6895" class="LineNr"> 6895 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> _a, x\n"</span>) -<span id="L6896" class="LineNr"> 6896 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> _a, y\n"</span>) -<span id="L6897" class="LineNr"> 6897 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6898" class="LineNr"> 6898 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L6899" class="LineNr"> 6899 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L6900" class="LineNr"> 6900 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L6901" class="LineNr"> 6901 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6902" class="LineNr"> 6902 </span> <span class="subxComment"># convert</span> -<span id="L6903" class="LineNr"> 6903 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6904" class="LineNr"> 6904 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6905" class="Folded"> 6905 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6911" class="LineNr"> 6911 </span> <span class="subxComment"># check output</span> -<span id="L6912" class="LineNr"> 6912 </span> (<a href='109stream-equal.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#L6883'>test-convert-function-and-type-definition</a>/0"</span>) -<span id="L6913" class="LineNr"> 6913 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-and-type-definition/1"</span>) -<span id="L6914" class="LineNr"> 6914 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6883'>test-convert-function-and-type-definition</a>/2"</span>) -<span id="L6915" class="LineNr"> 6915 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6883'>test-convert-function-and-type-definition</a>/3"</span>) -<span id="L6916" class="LineNr"> 6916 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6883'>test-convert-function-and-type-definition</a>/4"</span>) -<span id="L6917" class="LineNr"> 6917 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6883'>test-convert-function-and-type-definition</a>/5"</span>) -<span id="L6918" class="LineNr"> 6918 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6883'>test-convert-function-and-type-definition</a>/6"</span>) -<span id="L6919" class="LineNr"> 6919 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6883'>test-convert-function-and-type-definition</a>/7"</span>) -<span id="L6920" class="LineNr"> 6920 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6883'>test-convert-function-and-type-definition</a>/8"</span>) -<span id="L6921" class="LineNr"> 6921 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6883'>test-convert-function-and-type-definition</a>/9"</span>) -<span id="L6922" class="LineNr"> 6922 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6883'>test-convert-function-and-type-definition</a>/10"</span>) -<span id="L6923" class="LineNr"> 6923 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6883'>test-convert-function-and-type-definition</a>/11"</span>) -<span id="L6924" class="LineNr"> 6924 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6883'>test-convert-function-and-type-definition</a>/12"</span>) -<span id="L6925" class="LineNr"> 6925 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6883'>test-convert-function-and-type-definition</a>/13"</span>) -<span id="L6926" class="LineNr"> 6926 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6883'>test-convert-function-and-type-definition</a>/14"</span>) -<span id="L6927" class="LineNr"> 6927 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6883'>test-convert-function-and-type-definition</a>/15"</span>) -<span id="L6928" class="LineNr"> 6928 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6883'>test-convert-function-and-type-definition</a>/16"</span>) -<span id="L6929" class="LineNr"> 6929 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6883'>test-convert-function-and-type-definition</a>/17"</span>) -<span id="L6930" class="LineNr"> 6930 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6883'>test-convert-function-and-type-definition</a>/18"</span>) -<span id="L6931" class="LineNr"> 6931 </span> (<a href='109stream-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="L6932" class="LineNr"> 6932 </span> (<a href='109stream-equal.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#L6883'>test-convert-function-and-type-definition</a>/20"</span>) -<span id="L6933" class="LineNr"> 6933 </span> (<a href='109stream-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#L6883'>test-convert-function-and-type-definition</a>/21"</span>) -<span id="L6934" class="LineNr"> 6934 </span> (<a href='109stream-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#L6883'>test-convert-function-and-type-definition</a>/22"</span>) -<span id="L6935" class="LineNr"> 6935 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6936" class="LineNr"> 6936 </span> 89/<- %esp 5/r32/ebp -<span id="L6937" class="LineNr"> 6937 </span> 5d/pop-to-ebp -<span id="L6938" class="LineNr"> 6938 </span> c3/return -<span id="L6939" class="LineNr"> 6939 </span> -<span id="L6940" class="LineNr"> 6940 </span><span class="subxTest">test-type-definition-with-array</span>: -<span id="L6941" class="LineNr"> 6941 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6942" class="LineNr"> 6942 </span> 55/push-ebp -<span id="L6943" class="LineNr"> 6943 </span> 89/<- %ebp 4/r32/esp -<span id="L6944" class="LineNr"> 6944 </span> <span class="subxComment"># setup</span> -<span id="L6945" class="LineNr"> 6945 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6946" class="LineNr"> 6946 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6947" class="LineNr"> 6947 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6948" class="LineNr"> 6948 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6949" class="LineNr"> 6949 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L6950" class="LineNr"> 6950 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6951" class="LineNr"> 6951 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6952" class="LineNr"> 6952 </span> 68/push 0/imm32 -<span id="L6953" class="LineNr"> 6953 </span> 68/push 0/imm32 -<span id="L6954" class="LineNr"> 6954 </span> 89/<- %edx 4/r32/esp -<span id="L6955" class="LineNr"> 6955 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6956" class="LineNr"> 6956 </span> <span class="subxComment">#</span> -<span id="L6957" class="LineNr"> 6957 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L6958" class="LineNr"> 6958 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: (array int 3)\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">"}\n"</span>) -<span id="L6960" class="LineNr"> 6960 </span> <span class="subxComment"># convert</span> -<span id="L6961" class="LineNr"> 6961 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L6962" class="LineNr"> 6962 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6963" class="LineNr"> 6963 </span> <span class="subxComment"># restore ed</span> -<span id="L6964" class="LineNr"> 6964 </span> 89/<- %edx 4/r32/esp -<span id="L6965" class="LineNr"> 6965 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L6966" class="LineNr"> 6966 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L6967" class="Folded"> 6967 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6973" class="LineNr"> 6973 </span> <span class="subxComment"># check output</span> -<span id="L6974" class="LineNr"> 6974 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6940'>test-type-definition-with-array</a>: output should be empty"</span>) -<span id="L6975" class="LineNr"> 6975 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6940'>test-type-definition-with-array</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L6976" class="LineNr"> 6976 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6977" class="LineNr"> 6977 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6940'>test-type-definition-with-array</a>: exit status"</span>) -<span id="L6978" class="LineNr"> 6978 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6979" class="LineNr"> 6979 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6980" class="LineNr"> 6980 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6981" class="LineNr"> 6981 </span> 5d/pop-to-ebp -<span id="L6982" class="LineNr"> 6982 </span> c3/return -<span id="L6983" class="LineNr"> 6983 </span> -<span id="L6984" class="LineNr"> 6984 </span><span class="subxTest">test-type-definition-with-addr</span>: -<span id="L6985" class="LineNr"> 6985 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6986" class="LineNr"> 6986 </span> 55/push-ebp -<span id="L6987" class="LineNr"> 6987 </span> 89/<- %ebp 4/r32/esp -<span id="L6988" class="LineNr"> 6988 </span> <span class="subxComment"># setup</span> -<span id="L6989" class="LineNr"> 6989 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6990" class="LineNr"> 6990 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6991" class="LineNr"> 6991 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L6992" class="LineNr"> 6992 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6993" class="LineNr"> 6993 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L6994" class="LineNr"> 6994 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6995" class="LineNr"> 6995 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6996" class="LineNr"> 6996 </span> 68/push 0/imm32 -<span id="L6997" class="LineNr"> 6997 </span> 68/push 0/imm32 -<span id="L6998" class="LineNr"> 6998 </span> 89/<- %edx 4/r32/esp -<span id="L6999" class="LineNr"> 6999 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7000" class="LineNr"> 7000 </span> <span class="subxComment">#</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">"type t {\n"</span>) -<span id="L7002" class="LineNr"> 7002 </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="L7003" class="LineNr"> 7003 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7004" class="LineNr"> 7004 </span> <span class="subxComment"># convert</span> -<span id="L7005" class="LineNr"> 7005 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7006" class="LineNr"> 7006 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7007" class="LineNr"> 7007 </span> <span class="subxComment"># restore ed</span> -<span id="L7008" class="LineNr"> 7008 </span> 89/<- %edx 4/r32/esp -<span id="L7009" class="LineNr"> 7009 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7010" class="LineNr"> 7010 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7011" class="Folded"> 7011 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7017" class="LineNr"> 7017 </span> <span class="subxComment"># check output</span> -<span id="L7018" class="LineNr"> 7018 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6984'>test-type-definition-with-addr</a>: output should be empty"</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#L438'>_test-error-stream</a> <span class="Constant">"type t: 'addr' elements not allowed"</span> <span class="Constant">"F - <a href='mu.subx.html#L6984'>test-type-definition-with-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7020" class="LineNr"> 7020 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7021" class="LineNr"> 7021 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6984'>test-type-definition-with-addr</a>: exit status"</span>) -<span id="L7022" class="LineNr"> 7022 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7023" class="LineNr"> 7023 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7024" class="LineNr"> 7024 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7025" class="LineNr"> 7025 </span> 5d/pop-to-ebp -<span id="L7026" class="LineNr"> 7026 </span> c3/return -<span id="L7027" class="LineNr"> 7027 </span> -<span id="L7028" class="LineNr"> 7028 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type</span>: -<span id="L7029" class="LineNr"> 7029 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7030" class="LineNr"> 7030 </span> 55/push-ebp -<span id="L7031" class="LineNr"> 7031 </span> 89/<- %ebp 4/r32/esp -<span id="L7032" class="LineNr"> 7032 </span> <span class="subxComment"># setup</span> -<span id="L7033" class="LineNr"> 7033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7034" class="LineNr"> 7034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7035" class="LineNr"> 7035 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7036" class="LineNr"> 7036 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7037" class="LineNr"> 7037 </span> <span class="subxComment">#</span> -<span id="L7038" class="LineNr"> 7038 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7039" class="LineNr"> 7039 </span> (<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="L7040" class="LineNr"> 7040 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7041" class="LineNr"> 7041 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L7042" class="LineNr"> 7042 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\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">" y: int\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> <span class="subxComment"># convert</span> -<span id="L7046" class="LineNr"> 7046 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7047" class="LineNr"> 7047 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7048" class="Folded"> 7048 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7054" class="LineNr"> 7054 </span> <span class="subxComment"># check output</span> -<span id="L7055" class="LineNr"> 7055 </span> (<a href='109stream-equal.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#L7028'>test-convert-function-with-local-var-with-user-defined-type</a>/0"</span>) -<span id="L7056" class="LineNr"> 7056 </span> (<a href='109stream-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="L7057" class="LineNr"> 7057 </span> (<a href='109stream-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#L7028'>test-convert-function-with-local-var-with-user-defined-type</a>/2"</span>) -<span id="L7058" class="LineNr"> 7058 </span> (<a href='109stream-equal.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#L7028'>test-convert-function-with-local-var-with-user-defined-type</a>/3"</span>) -<span id="L7059" class="LineNr"> 7059 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7028'>test-convert-function-with-local-var-with-user-defined-type</a>/4"</span>) -<span id="L7060" class="LineNr"> 7060 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7028'>test-convert-function-with-local-var-with-user-defined-type</a>/5"</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">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7028'>test-convert-function-with-local-var-with-user-defined-type</a>/6"</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">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7028'>test-convert-function-with-local-var-with-user-defined-type</a>/7"</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">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7028'>test-convert-function-with-local-var-with-user-defined-type</a>/8"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7028'>test-convert-function-with-local-var-with-user-defined-type</a>/9"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7028'>test-convert-function-with-local-var-with-user-defined-type</a>/10"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type/11"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7028'>test-convert-function-with-local-var-with-user-defined-type</a>/12"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7028'>test-convert-function-with-local-var-with-user-defined-type</a>/13"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7028'>test-convert-function-with-local-var-with-user-defined-type</a>/14"</span>) -<span id="L7070" class="LineNr"> 7070 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7071" class="LineNr"> 7071 </span> 89/<- %esp 5/r32/ebp +<span id="L5685" class="LineNr"> 5685 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L5686" class="LineNr"> 5686 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L5687" class="LineNr"> 5687 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L5688" class="LineNr"> 5688 </span> 68/push 0/imm32 +<span id="L5689" class="LineNr"> 5689 </span> 68/push 0/imm32 +<span id="L5690" class="LineNr"> 5690 </span> 89/<- %edx 4/r32/esp +<span id="L5691" class="LineNr"> 5691 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L5692" class="LineNr"> 5692 </span> <span class="subxComment">#</span> +<span id="L5693" class="LineNr"> 5693 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5694" class="LineNr"> 5694 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array int 10)\n"</span>) +<span id="L5695" class="LineNr"> 5695 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5696" class="LineNr"> 5696 </span> <span class="subxComment"># convert</span> +<span id="L5697" class="LineNr"> 5697 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L5698" class="LineNr"> 5698 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L5699" class="LineNr"> 5699 </span> <span class="subxComment"># restore ed</span> +<span id="L5700" class="LineNr"> 5700 </span> 89/<- %edx 4/r32/esp +<span id="L5701" class="LineNr"> 5701 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5702" class="LineNr"> 5702 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L5703" class="Folded"> 5703 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5709" class="LineNr"> 5709 </span> <span class="subxComment"># check output</span> +<span id="L5710" class="LineNr"> 5710 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L5676'>test-array-size-in-hex</a>: output should be empty"</span>) +<span id="L5711" class="LineNr"> 5711 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"literal integers are always hex in Mu; start '10' with a '0x' to be unambiguous, converting it to hexadecimal as necessary."</span> <span class="Constant">"F - <a href='mu.subx.html#L5676'>test-array-size-in-hex</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L5712" class="LineNr"> 5712 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L5713" class="LineNr"> 5713 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L5676'>test-array-size-in-hex</a>: exit status"</span>) +<span id="L5714" class="LineNr"> 5714 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L5715" class="LineNr"> 5715 </span> 81 0/subop/add %esp 8/imm32 +<span id="L5716" class="LineNr"> 5716 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5717" class="LineNr"> 5717 </span> 5d/pop-to-ebp +<span id="L5718" class="LineNr"> 5718 </span> c3/return +<span id="L5719" class="LineNr"> 5719 </span> +<span id="L5720" class="LineNr"> 5720 </span><span class="subxTest">test-array-size-with-metadata</span>: +<span id="L5721" class="LineNr"> 5721 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5722" class="LineNr"> 5722 </span> 55/push-ebp +<span id="L5723" class="LineNr"> 5723 </span> 89/<- %ebp 4/r32/esp +<span id="L5724" class="LineNr"> 5724 </span> <span class="subxComment"># setup</span> +<span id="L5725" class="LineNr"> 5725 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5726" class="LineNr"> 5726 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5727" class="LineNr"> 5727 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5728" class="LineNr"> 5728 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5729" class="LineNr"> 5729 </span> <span class="subxComment">#</span> +<span id="L5730" class="LineNr"> 5730 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5731" class="LineNr"> 5731 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array int 3/bar)\n"</span>) +<span id="L5732" class="LineNr"> 5732 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5733" class="LineNr"> 5733 </span> <span class="subxComment"># convert</span> +<span id="L5734" class="LineNr"> 5734 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5735" class="LineNr"> 5735 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5736" class="Folded"> 5736 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5742" class="LineNr"> 5742 </span> <span class="subxComment"># no errors</span> +<span id="L5743" class="LineNr"> 5743 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5744" class="LineNr"> 5744 </span> 89/<- %esp 5/r32/ebp +<span id="L5745" class="LineNr"> 5745 </span> 5d/pop-to-ebp +<span id="L5746" class="LineNr"> 5746 </span> c3/return +<span id="L5747" class="LineNr"> 5747 </span> +<span id="L5748" class="LineNr"> 5748 </span><span class="subxTest">test-convert-function-with-populate</span>: +<span id="L5749" class="LineNr"> 5749 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5750" class="LineNr"> 5750 </span> 55/push-ebp +<span id="L5751" class="LineNr"> 5751 </span> 89/<- %ebp 4/r32/esp +<span id="L5752" class="LineNr"> 5752 </span> <span class="subxComment"># setup</span> +<span id="L5753" class="LineNr"> 5753 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5754" class="LineNr"> 5754 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5755" class="LineNr"> 5755 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5756" class="LineNr"> 5756 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5757" class="LineNr"> 5757 </span> <span class="subxComment">#</span> +<span id="L5758" class="LineNr"> 5758 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5759" class="LineNr"> 5759 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr handle array int) <- copy 0\n"</span>) +<span id="L5760" class="LineNr"> 5760 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate x, 7\n"</span>) +<span id="L5761" class="LineNr"> 5761 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5762" class="LineNr"> 5762 </span> <span class="subxComment"># convert</span> +<span id="L5763" class="LineNr"> 5763 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5764" class="LineNr"> 5764 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5765" class="Folded"> 5765 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5771" class="LineNr"> 5771 </span> <span class="subxComment"># check output</span> +<span id="L5772" class="LineNr"> 5772 </span> (<a href='109stream-equal.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#L5748'>test-convert-function-with-populate</a>/0"</span>) +<span id="L5773" class="LineNr"> 5773 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-populate/1"</span>) +<span id="L5774" class="LineNr"> 5774 </span> (<a href='109stream-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#L5748'>test-convert-function-with-populate</a>/2"</span>) +<span id="L5775" class="LineNr"> 5775 </span> (<a href='109stream-equal.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#L5748'>test-convert-function-with-populate</a>/3"</span>) +<span id="L5776" class="LineNr"> 5776 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5748'>test-convert-function-with-populate</a>/4"</span>) +<span id="L5777" class="LineNr"> 5777 </span> (<a href='109stream-equal.subx.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#L5748'>test-convert-function-with-populate</a>/5"</span>) +<span id="L5778" class="LineNr"> 5778 </span> (<a href='109stream-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#L5748'>test-convert-function-with-populate</a>/6"</span>) +<span id="L5779" class="LineNr"> 5779 </span> (<a href='109stream-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#L5748'>test-convert-function-with-populate</a>/7"</span>) +<span id="L5780" class="LineNr"> 5780 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='308allocate-array.subx.html#L6'>allocate-array2</a> <a href='120allocate.subx.html#L27'>Heap</a> 0x00000004 7 %ecx)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5748'>test-convert-function-with-populate</a>/8"</span>) <span class="subxComment"># 4 = size-of(int)</span> +<span id="L5781" class="LineNr"> 5781 </span> (<a href='109stream-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#L5748'>test-convert-function-with-populate</a>/9"</span>) +<span id="L5782" class="LineNr"> 5782 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5748'>test-convert-function-with-populate</a>/10"</span>) +<span id="L5783" class="LineNr"> 5783 </span> (<a href='109stream-equal.subx.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#L5748'>test-convert-function-with-populate</a>/11"</span>) +<span id="L5784" class="LineNr"> 5784 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-populate/12"</span>) +<span id="L5785" class="LineNr"> 5785 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5748'>test-convert-function-with-populate</a>/13"</span>) +<span id="L5786" class="LineNr"> 5786 </span> (<a href='109stream-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#L5748'>test-convert-function-with-populate</a>/14"</span>) +<span id="L5787" class="LineNr"> 5787 </span> (<a href='109stream-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#L5748'>test-convert-function-with-populate</a>/15"</span>) +<span id="L5788" class="LineNr"> 5788 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5789" class="LineNr"> 5789 </span> 89/<- %esp 5/r32/ebp +<span id="L5790" class="LineNr"> 5790 </span> 5d/pop-to-ebp +<span id="L5791" class="LineNr"> 5791 </span> c3/return +<span id="L5792" class="LineNr"> 5792 </span> +<span id="L5793" class="LineNr"> 5793 </span><span class="subxComment"># special-case for size(byte) when allocating array</span> +<span id="L5794" class="LineNr"> 5794 </span><span class="subxTest">test-convert-function-with-local-array-of-bytes-in-mem</span>: +<span id="L5795" class="LineNr"> 5795 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5796" class="LineNr"> 5796 </span> 55/push-ebp +<span id="L5797" class="LineNr"> 5797 </span> 89/<- %ebp 4/r32/esp +<span id="L5798" class="LineNr"> 5798 </span> <span class="subxComment"># setup</span> +<span id="L5799" class="LineNr"> 5799 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5800" class="LineNr"> 5800 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5801" class="LineNr"> 5801 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5802" class="LineNr"> 5802 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5803" class="LineNr"> 5803 </span> <span class="subxComment">#</span> +<span id="L5804" class="LineNr"> 5804 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5805" class="LineNr"> 5805 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array byte 3)\n"</span>) +<span id="L5806" class="LineNr"> 5806 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5807" class="LineNr"> 5807 </span> <span class="subxComment"># convert</span> +<span id="L5808" class="LineNr"> 5808 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5809" class="LineNr"> 5809 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5810" class="Folded"> 5810 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5816" class="LineNr"> 5816 </span> <span class="subxComment"># check output</span> +<span id="L5817" class="LineNr"> 5817 </span> (<a href='109stream-equal.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#L5794'>test-convert-function-with-local-array-of-bytes-in-mem</a>/0"</span>) +<span id="L5818" class="LineNr"> 5818 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-array-of-bytes-in-mem/1"</span>) +<span id="L5819" class="LineNr"> 5819 </span> (<a href='109stream-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#L5794'>test-convert-function-with-local-array-of-bytes-in-mem</a>/2"</span>) +<span id="L5820" class="LineNr"> 5820 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5794'>test-convert-function-with-local-array-of-bytes-in-mem</a>/3"</span>) +<span id="L5821" class="LineNr"> 5821 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5794'>test-convert-function-with-local-array-of-bytes-in-mem</a>/4"</span>) +<span id="L5822" class="LineNr"> 5822 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5794'>test-convert-function-with-local-array-of-bytes-in-mem</a>/5"</span>) +<span id="L5823" class="LineNr"> 5823 </span> <span class="subxComment"># define x</span> +<span id="L5824" class="LineNr"> 5824 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5794'>test-convert-function-with-local-array-of-bytes-in-mem</a>/7"</span>) +<span id="L5825" class="LineNr"> 5825 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x00000003/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5794'>test-convert-function-with-local-array-of-bytes-in-mem</a>/8"</span>) +<span id="L5826" class="LineNr"> 5826 </span> <span class="subxComment"># reclaim x</span> +<span id="L5827" class="LineNr"> 5827 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5794'>test-convert-function-with-local-array-of-bytes-in-mem</a>/9"</span>) +<span id="L5828" class="LineNr"> 5828 </span> <span class="subxComment">#</span> +<span id="L5829" class="LineNr"> 5829 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5794'>test-convert-function-with-local-array-of-bytes-in-mem</a>/10"</span>) +<span id="L5830" class="LineNr"> 5830 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5794'>test-convert-function-with-local-array-of-bytes-in-mem</a>/11"</span>) +<span id="L5831" class="LineNr"> 5831 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-array-of-bytes-in-mem/12"</span>) +<span id="L5832" class="LineNr"> 5832 </span> (<a href='109stream-equal.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#L5794'>test-convert-function-with-local-array-of-bytes-in-mem</a>/13"</span>) +<span id="L5833" class="LineNr"> 5833 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5794'>test-convert-function-with-local-array-of-bytes-in-mem</a>/14"</span>) +<span id="L5834" class="LineNr"> 5834 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5794'>test-convert-function-with-local-array-of-bytes-in-mem</a>/15"</span>) +<span id="L5835" class="LineNr"> 5835 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5836" class="LineNr"> 5836 </span> 89/<- %esp 5/r32/ebp +<span id="L5837" class="LineNr"> 5837 </span> 5d/pop-to-ebp +<span id="L5838" class="LineNr"> 5838 </span> c3/return +<span id="L5839" class="LineNr"> 5839 </span> +<span id="L5840" class="LineNr"> 5840 </span><span class="subxTest">test-convert-address</span>: +<span id="L5841" class="LineNr"> 5841 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5842" class="LineNr"> 5842 </span> 55/push-ebp +<span id="L5843" class="LineNr"> 5843 </span> 89/<- %ebp 4/r32/esp +<span id="L5844" class="LineNr"> 5844 </span> <span class="subxComment"># setup</span> +<span id="L5845" class="LineNr"> 5845 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5846" class="LineNr"> 5846 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5847" class="LineNr"> 5847 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5848" class="LineNr"> 5848 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5849" class="LineNr"> 5849 </span> <span class="subxComment">#</span> +<span id="L5850" class="LineNr"> 5850 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5851" class="LineNr"> 5851 </span> (<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="L5852" class="LineNr"> 5852 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- address a\n"</span>) +<span id="L5853" class="LineNr"> 5853 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5854" class="LineNr"> 5854 </span> <span class="subxComment"># convert</span> +<span id="L5855" class="LineNr"> 5855 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5856" class="LineNr"> 5856 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5857" class="Folded"> 5857 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5863" class="LineNr"> 5863 </span> <span class="subxComment"># check output</span> +<span id="L5864" class="LineNr"> 5864 </span> (<a href='109stream-equal.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#L5840'>test-convert-address</a>/0"</span>) +<span id="L5865" class="LineNr"> 5865 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-address/1"</span>) +<span id="L5866" class="LineNr"> 5866 </span> (<a href='109stream-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#L5840'>test-convert-address</a>/2"</span>) +<span id="L5867" class="LineNr"> 5867 </span> (<a href='109stream-equal.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#L5840'>test-convert-address</a>/3"</span>) +<span id="L5868" class="LineNr"> 5868 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5840'>test-convert-address</a>/4"</span>) +<span id="L5869" class="LineNr"> 5869 </span> (<a href='109stream-equal.subx.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#L5840'>test-convert-address</a>/5"</span>) +<span id="L5870" class="LineNr"> 5870 </span> (<a href='109stream-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#L5840'>test-convert-address</a>/6"</span>) +<span id="L5871" class="LineNr"> 5871 </span> (<a href='109stream-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#L5840'>test-convert-address</a>/7"</span>) +<span id="L5872" class="LineNr"> 5872 </span> (<a href='109stream-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#L5840'>test-convert-address</a>/8"</span>) +<span id="L5873" class="LineNr"> 5873 </span> (<a href='109stream-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#L5840'>test-convert-address</a>/9"</span>) +<span id="L5874" class="LineNr"> 5874 </span> (<a href='109stream-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#L5840'>test-convert-address</a>/10"</span>) +<span id="L5875" class="LineNr"> 5875 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5840'>test-convert-address</a>/11"</span>) +<span id="L5876" class="LineNr"> 5876 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5840'>test-convert-address</a>/12"</span>) +<span id="L5877" class="LineNr"> 5877 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-address/13"</span>) +<span id="L5878" class="LineNr"> 5878 </span> (<a href='109stream-equal.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#L5840'>test-convert-address</a>/14"</span>) +<span id="L5879" class="LineNr"> 5879 </span> (<a href='109stream-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#L5840'>test-convert-address</a>/15"</span>) +<span id="L5880" class="LineNr"> 5880 </span> (<a href='109stream-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#L5840'>test-convert-address</a>/16"</span>) +<span id="L5881" class="LineNr"> 5881 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5882" class="LineNr"> 5882 </span> 89/<- %esp 5/r32/ebp +<span id="L5883" class="LineNr"> 5883 </span> 5d/pop-to-ebp +<span id="L5884" class="LineNr"> 5884 </span> c3/return +<span id="L5885" class="LineNr"> 5885 </span> +<span id="L5886" class="LineNr"> 5886 </span><span class="subxTest">test-convert-floating-point-convert</span>: +<span id="L5887" class="LineNr"> 5887 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5888" class="LineNr"> 5888 </span> 55/push-ebp +<span id="L5889" class="LineNr"> 5889 </span> 89/<- %ebp 4/r32/esp +<span id="L5890" class="LineNr"> 5890 </span> <span class="subxComment"># setup</span> +<span id="L5891" class="LineNr"> 5891 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5892" class="LineNr"> 5892 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5893" class="LineNr"> 5893 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5894" class="LineNr"> 5894 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5895" class="LineNr"> 5895 </span> <span class="subxComment">#</span> +<span id="L5896" class="LineNr"> 5896 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5897" class="LineNr"> 5897 </span> (<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="L5898" class="LineNr"> 5898 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/xmm1: float <- convert a\n"</span>) +<span id="L5899" class="LineNr"> 5899 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5900" class="LineNr"> 5900 </span> <span class="subxComment"># convert</span> +<span id="L5901" class="LineNr"> 5901 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5902" class="LineNr"> 5902 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5903" class="Folded"> 5903 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5909" class="LineNr"> 5909 </span> <span class="subxComment"># check output</span> +<span id="L5910" class="LineNr"> 5910 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5886'>test-convert-floating-point-convert</a>/0"</span>) +<span id="L5911" class="LineNr"> 5911 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-convert/1"</span>) +<span id="L5912" class="LineNr"> 5912 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5886'>test-convert-floating-point-convert</a>/2"</span>) +<span id="L5913" class="LineNr"> 5913 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5886'>test-convert-floating-point-convert</a>/3"</span>) +<span id="L5914" class="LineNr"> 5914 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5886'>test-convert-floating-point-convert</a>/4"</span>) +<span id="L5915" class="LineNr"> 5915 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5886'>test-convert-floating-point-convert</a>/5"</span>) +<span id="L5916" class="LineNr"> 5916 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5886'>test-convert-floating-point-convert</a>/6"</span>) +<span id="L5917" class="LineNr"> 5917 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5886'>test-convert-floating-point-convert</a>/7"</span>) +<span id="L5918" class="LineNr"> 5918 </span> (<a href='109stream-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#L5886'>test-convert-floating-point-convert</a>/8"</span>) +<span id="L5919" class="LineNr"> 5919 </span> (<a href='109stream-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#L5886'>test-convert-floating-point-convert</a>/9"</span>) +<span id="L5920" class="LineNr"> 5920 </span> (<a href='109stream-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#L5886'>test-convert-floating-point-convert</a>/10"</span>) +<span id="L5921" class="LineNr"> 5921 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5886'>test-convert-floating-point-convert</a>/11"</span>) +<span id="L5922" class="LineNr"> 5922 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - test-floating-point-convert/12"</span>) +<span id="L5923" class="LineNr"> 5923 </span> (<a href='109stream-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#L5886'>test-convert-floating-point-convert</a>/13"</span>) +<span id="L5924" class="LineNr"> 5924 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5886'>test-convert-floating-point-convert</a>/14"</span>) +<span id="L5925" class="LineNr"> 5925 </span> (<a href='109stream-equal.subx.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#L5886'>test-convert-floating-point-convert</a>/15"</span>) +<span id="L5926" class="LineNr"> 5926 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-convert/16"</span>) +<span id="L5927" class="LineNr"> 5927 </span> (<a href='109stream-equal.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#L5886'>test-convert-floating-point-convert</a>/17"</span>) +<span id="L5928" class="LineNr"> 5928 </span> (<a href='109stream-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#L5886'>test-convert-floating-point-convert</a>/18"</span>) +<span id="L5929" class="LineNr"> 5929 </span> (<a href='109stream-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#L5886'>test-convert-floating-point-convert</a>/19"</span>) +<span id="L5930" class="LineNr"> 5930 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5931" class="LineNr"> 5931 </span> 89/<- %esp 5/r32/ebp +<span id="L5932" class="LineNr"> 5932 </span> 5d/pop-to-ebp +<span id="L5933" class="LineNr"> 5933 </span> c3/return +<span id="L5934" class="LineNr"> 5934 </span> +<span id="L5935" class="LineNr"> 5935 </span><span class="subxTest">test-convert-floating-point-convert-2</span>: +<span id="L5936" class="LineNr"> 5936 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5937" class="LineNr"> 5937 </span> 55/push-ebp +<span id="L5938" class="LineNr"> 5938 </span> 89/<- %ebp 4/r32/esp +<span id="L5939" class="LineNr"> 5939 </span> <span class="subxComment"># setup</span> +<span id="L5940" class="LineNr"> 5940 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5941" class="LineNr"> 5941 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5942" class="LineNr"> 5942 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5943" class="LineNr"> 5943 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5944" class="LineNr"> 5944 </span> <span class="subxComment">#</span> +<span id="L5945" class="LineNr"> 5945 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5946" class="LineNr"> 5946 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: int <- copy 0\n"</span>) +<span id="L5947" class="LineNr"> 5947 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/xmm1: float <- convert a\n"</span>) +<span id="L5948" class="LineNr"> 5948 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a <- convert b\n"</span>) +<span id="L5949" class="LineNr"> 5949 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5950" class="LineNr"> 5950 </span> <span class="subxComment"># convert</span> +<span id="L5951" class="LineNr"> 5951 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L5952" class="LineNr"> 5952 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5953" class="Folded"> 5953 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5959" class="LineNr"> 5959 </span> <span class="subxComment"># check output</span> +<span id="L5960" class="LineNr"> 5960 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/0"</span>) +<span id="L5961" class="LineNr"> 5961 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-convert-2/1"</span>) +<span id="L5962" class="LineNr"> 5962 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/2"</span>) +<span id="L5963" class="LineNr"> 5963 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/3"</span>) +<span id="L5964" class="LineNr"> 5964 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/4"</span>) +<span id="L5965" class="LineNr"> 5965 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/5"</span>) +<span id="L5966" class="LineNr"> 5966 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/6"</span>) +<span id="L5967" class="LineNr"> 5967 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/7"</span>) +<span id="L5968" class="LineNr"> 5968 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/8"</span>) +<span id="L5969" class="LineNr"> 5969 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/9"</span>) +<span id="L5970" class="LineNr"> 5970 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/10"</span>) +<span id="L5971" class="LineNr"> 5971 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 2d/convert-to-int %xmm1 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/11"</span>) +<span id="L5972" class="LineNr"> 5972 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/12"</span>) +<span id="L5973" class="LineNr"> 5973 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - test-floating-point-convert-2/13"</span>) +<span id="L5974" class="LineNr"> 5974 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/14"</span>) +<span id="L5975" class="LineNr"> 5975 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/15"</span>) +<span id="L5976" class="LineNr"> 5976 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/16"</span>) +<span id="L5977" class="LineNr"> 5977 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-convert-2/17"</span>) +<span id="L5978" class="LineNr"> 5978 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/18"</span>) +<span id="L5979" class="LineNr"> 5979 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/19"</span>) +<span id="L5980" class="LineNr"> 5980 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5935'>test-convert-floating-point-convert-2</a>/20"</span>) +<span id="L5981" class="LineNr"> 5981 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5982" class="LineNr"> 5982 </span> 89/<- %esp 5/r32/ebp +<span id="L5983" class="LineNr"> 5983 </span> 5d/pop-to-ebp +<span id="L5984" class="LineNr"> 5984 </span> c3/return +<span id="L5985" class="LineNr"> 5985 </span> +<span id="L5986" class="LineNr"> 5986 </span><span class="subxTest">test-convert-floating-point-operation</span>: +<span id="L5987" class="LineNr"> 5987 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5988" class="LineNr"> 5988 </span> 55/push-ebp +<span id="L5989" class="LineNr"> 5989 </span> 89/<- %ebp 4/r32/esp +<span id="L5990" class="LineNr"> 5990 </span> <span class="subxComment"># setup</span> +<span id="L5991" class="LineNr"> 5991 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5992" class="LineNr"> 5992 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5993" class="LineNr"> 5993 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5994" class="LineNr"> 5994 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5995" class="LineNr"> 5995 </span> <span class="subxComment">#</span> +<span id="L5996" class="LineNr"> 5996 </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="L5997" class="LineNr"> 5997 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var m: float\n"</span>) +<span id="L5998" class="LineNr"> 5998 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/xmm1: float <- copy m\n"</span>) +<span id="L5999" class="LineNr"> 5999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm5: float <- copy m\n"</span>) +<span id="L6000" class="LineNr"> 6000 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy y\n"</span>) +<span id="L6001" class="LineNr"> 6001 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to m, y\n"</span>) +<span id="L6002" class="LineNr"> 6002 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- add y\n"</span>) +<span id="L6003" class="LineNr"> 6003 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- add m\n"</span>) +<span id="L6004" class="LineNr"> 6004 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- subtract y\n"</span>) +<span id="L6005" class="LineNr"> 6005 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- subtract m\n"</span>) +<span id="L6006" class="LineNr"> 6006 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- multiply y\n"</span>) +<span id="L6007" class="LineNr"> 6007 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- multiply m\n"</span>) +<span id="L6008" class="LineNr"> 6008 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- divide y\n"</span>) +<span id="L6009" class="LineNr"> 6009 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- divide m\n"</span>) +<span id="L6010" class="LineNr"> 6010 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- reciprocal y\n"</span>) +<span id="L6011" class="LineNr"> 6011 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- reciprocal m\n"</span>) +<span id="L6012" class="LineNr"> 6012 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- square-root y\n"</span>) +<span id="L6013" class="LineNr"> 6013 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- square-root m\n"</span>) +<span id="L6014" class="LineNr"> 6014 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- inverse-square-root y\n"</span>) +<span id="L6015" class="LineNr"> 6015 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- inverse-square-root m\n"</span>) +<span id="L6016" class="LineNr"> 6016 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- max y\n"</span>) +<span id="L6017" class="LineNr"> 6017 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- max m\n"</span>) +<span id="L6018" class="LineNr"> 6018 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- min y\n"</span>) +<span id="L6019" class="LineNr"> 6019 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- min m\n"</span>) +<span id="L6020" class="LineNr"> 6020 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, y\n"</span>) +<span id="L6021" class="LineNr"> 6021 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, m\n"</span>) +<span id="L6022" class="LineNr"> 6022 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6023" class="LineNr"> 6023 </span> <span class="subxComment"># convert</span> +<span id="L6024" class="LineNr"> 6024 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6025" class="LineNr"> 6025 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6026" class="Folded"> 6026 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6032" class="LineNr"> 6032 </span> <span class="subxComment"># check output</span> +<span id="L6033" class="LineNr"> 6033 </span> (<a href='109stream-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#L5986'>test-convert-floating-point-operation</a>/0"</span>) +<span id="L6034" class="LineNr"> 6034 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-operation/1"</span>) +<span id="L6035" class="LineNr"> 6035 </span> (<a href='109stream-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#L5986'>test-convert-floating-point-operation</a>/2"</span>) +<span id="L6036" class="LineNr"> 6036 </span> (<a href='109stream-equal.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#L5986'>test-convert-floating-point-operation</a>/3"</span>) +<span id="L6037" class="LineNr"> 6037 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/4"</span>) +<span id="L6038" class="LineNr"> 6038 </span> (<a href='109stream-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#L5986'>test-convert-floating-point-operation</a>/5"</span>) +<span id="L6039" class="LineNr"> 6039 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/6"</span>) +<span id="L6040" class="LineNr"> 6040 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L5986'>test-convert-floating-point-operation</a>/7"</span>) +<span id="L6041" class="LineNr"> 6041 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/8"</span>) +<span id="L6042" class="LineNr"> 6042 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/9"</span>) +<span id="L6043" class="LineNr"> 6043 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/10"</span>) +<span id="L6044" class="LineNr"> 6044 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 5/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/11"</span>) +<span id="L6045" class="LineNr"> 6045 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/12"</span>) +<span id="L6046" class="LineNr"> 6046 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/copy %xmm1 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/13"</span>) +<span id="L6047" class="LineNr"> 6047 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/copy *(ebp+0xfffffffc) 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/14"</span>) +<span id="L6048" class="LineNr"> 6048 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 58/add %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/15"</span>) +<span id="L6049" class="LineNr"> 6049 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 58/add *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/16"</span>) +<span id="L6050" class="LineNr"> 6050 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5c/subtract %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/17"</span>) +<span id="L6051" class="LineNr"> 6051 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5c/subtract *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/18"</span>) +<span id="L6052" class="LineNr"> 6052 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/19"</span>) +<span id="L6053" class="LineNr"> 6053 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/20"</span>) +<span id="L6054" class="LineNr"> 6054 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5e/divide %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/21"</span>) +<span id="L6055" class="LineNr"> 6055 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5e/divide *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/22"</span>) +<span id="L6056" class="LineNr"> 6056 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 53/reciprocal %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/23"</span>) +<span id="L6057" class="LineNr"> 6057 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 53/reciprocal *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/24"</span>) +<span id="L6058" class="LineNr"> 6058 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 51/square-root %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/25"</span>) +<span id="L6059" class="LineNr"> 6059 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 51/square-root *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/26"</span>) +<span id="L6060" class="LineNr"> 6060 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 52/inverse-square-root %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/27"</span>) +<span id="L6061" class="LineNr"> 6061 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 52/inverse-square-root *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/28"</span>) +<span id="L6062" class="LineNr"> 6062 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5f/max %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/29"</span>) +<span id="L6063" class="LineNr"> 6063 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5f/max *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/30"</span>) +<span id="L6064" class="LineNr"> 6064 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5d/min %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/31"</span>) +<span id="L6065" class="LineNr"> 6065 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5d/min *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/32"</span>) +<span id="L6066" class="LineNr"> 6066 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 2f/compare %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/33"</span>) +<span id="L6067" class="LineNr"> 6067 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 2f/compare *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/34"</span>) +<span id="L6068" class="LineNr"> 6068 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 5/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/35"</span>) +<span id="L6069" class="LineNr"> 6069 </span> (<a href='109stream-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#L5986'>test-convert-floating-point-operation</a>/36"</span>) +<span id="L6070" class="LineNr"> 6070 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/37"</span>) +<span id="L6071" class="LineNr"> 6071 </span> (<a href='109stream-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#L5986'>test-convert-floating-point-operation</a>/38"</span>) +<span id="L6072" class="LineNr"> 6072 </span> (<a href='109stream-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#L5986'>test-convert-floating-point-operation</a>/39"</span>) +<span id="L6073" class="LineNr"> 6073 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5986'>test-convert-floating-point-operation</a>/40"</span>) +<span id="L6074" class="LineNr"> 6074 </span> (<a href='109stream-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#L5986'>test-convert-floating-point-operation</a>/41"</span>) +<span id="L6075" class="LineNr"> 6075 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-operation/42"</span>) +<span id="L6076" class="LineNr"> 6076 </span> (<a href='109stream-equal.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#L5986'>test-convert-floating-point-operation</a>/43"</span>) +<span id="L6077" class="LineNr"> 6077 </span> (<a href='109stream-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#L5986'>test-convert-floating-point-operation</a>/44"</span>) +<span id="L6078" class="LineNr"> 6078 </span> (<a href='109stream-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#L5986'>test-convert-floating-point-operation</a>/45"</span>) +<span id="L6079" class="LineNr"> 6079 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6080" class="LineNr"> 6080 </span> 89/<- %esp 5/r32/ebp +<span id="L6081" class="LineNr"> 6081 </span> 5d/pop-to-ebp +<span id="L6082" class="LineNr"> 6082 </span> c3/return +<span id="L6083" class="LineNr"> 6083 </span> +<span id="L6084" class="LineNr"> 6084 </span><span class="subxTest">test-convert-floating-point-dereferenced</span>: +<span id="L6085" class="LineNr"> 6085 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6086" class="LineNr"> 6086 </span> 55/push-ebp +<span id="L6087" class="LineNr"> 6087 </span> 89/<- %ebp 4/r32/esp +<span id="L6088" class="LineNr"> 6088 </span> <span class="subxComment"># setup</span> +<span id="L6089" class="LineNr"> 6089 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6090" class="LineNr"> 6090 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6091" class="LineNr"> 6091 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6092" class="LineNr"> 6092 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6093" class="LineNr"> 6093 </span> <span class="subxComment">#</span> +<span id="L6094" class="LineNr"> 6094 </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="L6095" class="LineNr"> 6095 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var m: float\n"</span>) +<span id="L6096" class="LineNr"> 6096 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/xmm1: float <- copy m\n"</span>) +<span id="L6097" class="LineNr"> 6097 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr float) <- copy 0\n"</span>) +<span id="L6098" class="LineNr"> 6098 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- multiply *y\n"</span>) +<span id="L6099" class="LineNr"> 6099 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6100" class="LineNr"> 6100 </span> <span class="subxComment"># convert</span> +<span id="L6101" class="LineNr"> 6101 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6102" class="LineNr"> 6102 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6103" class="Folded"> 6103 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6109" class="LineNr"> 6109 </span> <span class="subxComment"># check output</span> +<span id="L6110" class="LineNr"> 6110 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6084'>test-convert-floating-point-dereferenced</a>/0"</span>) +<span id="L6111" class="LineNr"> 6111 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-dereferenced/1"</span>) +<span id="L6112" class="LineNr"> 6112 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6084'>test-convert-floating-point-dereferenced</a>/2"</span>) +<span id="L6113" class="LineNr"> 6113 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6084'>test-convert-floating-point-dereferenced</a>/3"</span>) +<span id="L6114" class="LineNr"> 6114 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6084'>test-convert-floating-point-dereferenced</a>/4"</span>) +<span id="L6115" class="LineNr"> 6115 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6084'>test-convert-floating-point-dereferenced</a>/5"</span>) +<span id="L6116" class="LineNr"> 6116 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6084'>test-convert-floating-point-dereferenced</a>/6"</span>) +<span id="L6117" class="LineNr"> 6117 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6084'>test-convert-floating-point-dereferenced</a>/7"</span>) +<span id="L6118" class="LineNr"> 6118 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6084'>test-convert-floating-point-dereferenced</a>/8"</span>) +<span id="L6119" class="LineNr"> 6119 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6084'>test-convert-floating-point-dereferenced</a>/9"</span>) +<span id="L6120" class="LineNr"> 6120 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6084'>test-convert-floating-point-dereferenced</a>/10"</span>) +<span id="L6121" class="LineNr"> 6121 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6084'>test-convert-floating-point-dereferenced</a>/11"</span>) +<span id="L6122" class="LineNr"> 6122 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply *eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6084'>test-convert-floating-point-dereferenced</a>/12"</span>) +<span id="L6123" class="LineNr"> 6123 </span> (<a href='109stream-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#L6084'>test-convert-floating-point-dereferenced</a>/13"</span>) +<span id="L6124" class="LineNr"> 6124 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6084'>test-convert-floating-point-dereferenced</a>/14"</span>) +<span id="L6125" class="LineNr"> 6125 </span> (<a href='109stream-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#L6084'>test-convert-floating-point-dereferenced</a>/15"</span>) +<span id="L6126" class="LineNr"> 6126 </span> (<a href='109stream-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#L6084'>test-convert-floating-point-dereferenced</a>/16"</span>) +<span id="L6127" class="LineNr"> 6127 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6084'>test-convert-floating-point-dereferenced</a>/17"</span>) +<span id="L6128" class="LineNr"> 6128 </span> (<a href='109stream-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#L6084'>test-convert-floating-point-dereferenced</a>/18"</span>) +<span id="L6129" class="LineNr"> 6129 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-dereferenced/19"</span>) +<span id="L6130" class="LineNr"> 6130 </span> (<a href='109stream-equal.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#L6084'>test-convert-floating-point-dereferenced</a>/20"</span>) +<span id="L6131" class="LineNr"> 6131 </span> (<a href='109stream-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#L6084'>test-convert-floating-point-dereferenced</a>/21"</span>) +<span id="L6132" class="LineNr"> 6132 </span> (<a href='109stream-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#L6084'>test-convert-floating-point-dereferenced</a>/22"</span>) +<span id="L6133" class="LineNr"> 6133 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6134" class="LineNr"> 6134 </span> 89/<- %esp 5/r32/ebp +<span id="L6135" class="LineNr"> 6135 </span> 5d/pop-to-ebp +<span id="L6136" class="LineNr"> 6136 </span> c3/return +<span id="L6137" class="LineNr"> 6137 </span> +<span id="L6138" class="LineNr"> 6138 </span><span class="subxTest">test-convert-length-of-array</span>: +<span id="L6139" class="LineNr"> 6139 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6140" class="LineNr"> 6140 </span> 55/push-ebp +<span id="L6141" class="LineNr"> 6141 </span> 89/<- %ebp 4/r32/esp +<span id="L6142" class="LineNr"> 6142 </span> <span class="subxComment"># setup</span> +<span id="L6143" class="LineNr"> 6143 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6144" class="LineNr"> 6144 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6145" class="LineNr"> 6145 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6146" class="LineNr"> 6146 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6147" class="LineNr"> 6147 </span> <span class="subxComment">#</span> +<span id="L6148" class="LineNr"> 6148 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr array int) {\n"</span>) +<span id="L6149" class="LineNr"> 6149 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr array int) <- copy a\n"</span>) +<span id="L6150" class="LineNr"> 6150 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/eax: int <- length b\n"</span>) +<span id="L6151" class="LineNr"> 6151 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6152" class="LineNr"> 6152 </span> <span class="subxComment"># convert</span> +<span id="L6153" class="LineNr"> 6153 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6154" class="LineNr"> 6154 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6155" class="Folded"> 6155 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6161" class="LineNr"> 6161 </span> <span class="subxComment"># check output</span> +<span id="L6162" class="LineNr"> 6162 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6138'>test-convert-length-of-array</a>/0"</span>) +<span id="L6163" class="LineNr"> 6163 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array/1"</span>) +<span id="L6164" class="LineNr"> 6164 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6138'>test-convert-length-of-array</a>/2"</span>) +<span id="L6165" class="LineNr"> 6165 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6138'>test-convert-length-of-array</a>/3"</span>) +<span id="L6166" class="LineNr"> 6166 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6138'>test-convert-length-of-array</a>/4"</span>) +<span id="L6167" class="LineNr"> 6167 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6138'>test-convert-length-of-array</a>/5"</span>) +<span id="L6168" class="LineNr"> 6168 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6138'>test-convert-length-of-array</a>/6"</span>) +<span id="L6169" class="LineNr"> 6169 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6138'>test-convert-length-of-array</a>/7"</span>) +<span id="L6170" class="LineNr"> 6170 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6138'>test-convert-length-of-array</a>/8"</span>) +<span id="L6171" class="LineNr"> 6171 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c1/shift 5/subop/>> %eax 0x00000002/imm8"</span> <span class="Constant">"F - <a href='mu.subx.html#L6138'>test-convert-length-of-array</a>/9"</span>) +<span id="L6172" class="LineNr"> 6172 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6138'>test-convert-length-of-array</a>/10"</span>) +<span id="L6173" class="LineNr"> 6173 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6138'>test-convert-length-of-array</a>/11"</span>) +<span id="L6174" class="LineNr"> 6174 </span> (<a href='109stream-equal.subx.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#L6138'>test-convert-length-of-array</a>/12"</span>) +<span id="L6175" class="LineNr"> 6175 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array/13"</span>) +<span id="L6176" class="LineNr"> 6176 </span> (<a href='109stream-equal.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#L6138'>test-convert-length-of-array</a>/14"</span>) +<span id="L6177" class="LineNr"> 6177 </span> (<a href='109stream-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#L6138'>test-convert-length-of-array</a>/15"</span>) +<span id="L6178" class="LineNr"> 6178 </span> (<a href='109stream-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#L6138'>test-convert-length-of-array</a>/16"</span>) +<span id="L6179" class="LineNr"> 6179 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6180" class="LineNr"> 6180 </span> 89/<- %esp 5/r32/ebp +<span id="L6181" class="LineNr"> 6181 </span> 5d/pop-to-ebp +<span id="L6182" class="LineNr"> 6182 </span> c3/return +<span id="L6183" class="LineNr"> 6183 </span> +<span id="L6184" class="LineNr"> 6184 </span><span class="subxComment"># special-case for size(byte) when computing array length</span> +<span id="L6185" class="LineNr"> 6185 </span><span class="subxTest">test-convert-length-of-array-of-bytes</span>: +<span id="L6186" class="LineNr"> 6186 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6187" class="LineNr"> 6187 </span> 55/push-ebp +<span id="L6188" class="LineNr"> 6188 </span> 89/<- %ebp 4/r32/esp +<span id="L6189" class="LineNr"> 6189 </span> <span class="subxComment"># setup</span> +<span id="L6190" class="LineNr"> 6190 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6191" class="LineNr"> 6191 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6192" class="LineNr"> 6192 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6193" class="LineNr"> 6193 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6194" class="LineNr"> 6194 </span> <span class="subxComment">#</span> +<span id="L6195" class="LineNr"> 6195 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr array byte) {\n"</span>) +<span id="L6196" class="LineNr"> 6196 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr array byte) <- copy a\n"</span>) +<span id="L6197" class="LineNr"> 6197 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/eax: int <- length b\n"</span>) +<span id="L6198" class="LineNr"> 6198 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6199" class="LineNr"> 6199 </span> <span class="subxComment"># convert</span> +<span id="L6200" class="LineNr"> 6200 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6201" class="LineNr"> 6201 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6202" class="Folded"> 6202 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6208" class="LineNr"> 6208 </span> <span class="subxComment"># check output</span> +<span id="L6209" class="LineNr"> 6209 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6185'>test-convert-length-of-array-of-bytes</a>/0"</span>) +<span id="L6210" class="LineNr"> 6210 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-bytes/1"</span>) +<span id="L6211" class="LineNr"> 6211 </span> (<a href='109stream-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#L6185'>test-convert-length-of-array-of-bytes</a>/2"</span>) +<span id="L6212" class="LineNr"> 6212 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6185'>test-convert-length-of-array-of-bytes</a>/3"</span>) +<span id="L6213" class="LineNr"> 6213 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6185'>test-convert-length-of-array-of-bytes</a>/4"</span>) +<span id="L6214" class="LineNr"> 6214 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6185'>test-convert-length-of-array-of-bytes</a>/5"</span>) +<span id="L6215" class="LineNr"> 6215 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6185'>test-convert-length-of-array-of-bytes</a>/6"</span>) +<span id="L6216" class="LineNr"> 6216 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6185'>test-convert-length-of-array-of-bytes</a>/7"</span>) +<span id="L6217" class="LineNr"> 6217 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6185'>test-convert-length-of-array-of-bytes</a>/8"</span>) +<span id="L6218" class="LineNr"> 6218 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6185'>test-convert-length-of-array-of-bytes</a>/9"</span>) +<span id="L6219" class="LineNr"> 6219 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6185'>test-convert-length-of-array-of-bytes</a>/10"</span>) +<span id="L6220" class="LineNr"> 6220 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6185'>test-convert-length-of-array-of-bytes</a>/11"</span>) +<span id="L6221" class="LineNr"> 6221 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-bytes/12"</span>) +<span id="L6222" class="LineNr"> 6222 </span> (<a href='109stream-equal.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#L6185'>test-convert-length-of-array-of-bytes</a>/13"</span>) +<span id="L6223" class="LineNr"> 6223 </span> (<a href='109stream-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#L6185'>test-convert-length-of-array-of-bytes</a>/14"</span>) +<span id="L6224" class="LineNr"> 6224 </span> (<a href='109stream-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#L6185'>test-convert-length-of-array-of-bytes</a>/15"</span>) +<span id="L6225" class="LineNr"> 6225 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6226" class="LineNr"> 6226 </span> 89/<- %esp 5/r32/ebp +<span id="L6227" class="LineNr"> 6227 </span> 5d/pop-to-ebp +<span id="L6228" class="LineNr"> 6228 </span> c3/return +<span id="L6229" class="LineNr"> 6229 </span> +<span id="L6230" class="LineNr"> 6230 </span><span class="subxTest">test-convert-length-of-array-on-stack</span>: +<span id="L6231" class="LineNr"> 6231 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6232" class="LineNr"> 6232 </span> 55/push-ebp +<span id="L6233" class="LineNr"> 6233 </span> 89/<- %ebp 4/r32/esp +<span id="L6234" class="LineNr"> 6234 </span> <span class="subxComment"># setup</span> +<span id="L6235" class="LineNr"> 6235 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6236" class="LineNr"> 6236 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6237" class="LineNr"> 6237 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6238" class="LineNr"> 6238 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6239" class="LineNr"> 6239 </span> <span class="subxComment">#</span> +<span id="L6240" class="LineNr"> 6240 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6241" class="LineNr"> 6241 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L6242" class="LineNr"> 6242 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: int <- length a\n"</span>) +<span id="L6243" class="LineNr"> 6243 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6244" class="LineNr"> 6244 </span> <span class="subxComment"># convert</span> +<span id="L6245" class="LineNr"> 6245 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6246" class="LineNr"> 6246 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6247" class="Folded"> 6247 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6253" class="LineNr"> 6253 </span> <span class="subxComment"># check output</span> +<span id="L6254" class="LineNr"> 6254 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6230'>test-convert-length-of-array-on-stack</a>/0"</span>) +<span id="L6255" class="LineNr"> 6255 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-on-stack/1"</span>) +<span id="L6256" class="LineNr"> 6256 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6230'>test-convert-length-of-array-on-stack</a>/2"</span>) +<span id="L6257" class="LineNr"> 6257 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6230'>test-convert-length-of-array-on-stack</a>/3"</span>) +<span id="L6258" class="LineNr"> 6258 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6230'>test-convert-length-of-array-on-stack</a>/4"</span>) +<span id="L6259" class="LineNr"> 6259 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6230'>test-convert-length-of-array-on-stack</a>/5"</span>) +<span id="L6260" class="LineNr"> 6260 </span> <span class="subxComment"># define x</span> +<span id="L6261" class="LineNr"> 6261 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6230'>test-convert-length-of-array-on-stack</a>/6"</span>) +<span id="L6262" class="LineNr"> 6262 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6230'>test-convert-length-of-array-on-stack</a>/7"</span>) +<span id="L6263" class="LineNr"> 6263 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6230'>test-convert-length-of-array-on-stack</a>/8"</span>) +<span id="L6264" class="LineNr"> 6264 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0xfffffff0) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6230'>test-convert-length-of-array-on-stack</a>/9"</span>) +<span id="L6265" class="LineNr"> 6265 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c1/shift 5/subop/>> %eax 0x00000002/imm8"</span> <span class="Constant">"F - <a href='mu.subx.html#L6230'>test-convert-length-of-array-on-stack</a>/10"</span>) +<span id="L6266" class="LineNr"> 6266 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6230'>test-convert-length-of-array-on-stack</a>/11"</span>) +<span id="L6267" class="LineNr"> 6267 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6230'>test-convert-length-of-array-on-stack</a>/12"</span>) +<span id="L6268" class="LineNr"> 6268 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6230'>test-convert-length-of-array-on-stack</a>/13"</span>) +<span id="L6269" class="LineNr"> 6269 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6230'>test-convert-length-of-array-on-stack</a>/14"</span>) +<span id="L6270" class="LineNr"> 6270 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-on-stack/15"</span>) +<span id="L6271" class="LineNr"> 6271 </span> (<a href='109stream-equal.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#L6230'>test-convert-length-of-array-on-stack</a>/16"</span>) +<span id="L6272" class="LineNr"> 6272 </span> (<a href='109stream-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#L6230'>test-convert-length-of-array-on-stack</a>/17"</span>) +<span id="L6273" class="LineNr"> 6273 </span> (<a href='109stream-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#L6230'>test-convert-length-of-array-on-stack</a>/18"</span>) +<span id="L6274" class="LineNr"> 6274 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6275" class="LineNr"> 6275 </span> 89/<- %esp 5/r32/ebp +<span id="L6276" class="LineNr"> 6276 </span> 5d/pop-to-ebp +<span id="L6277" class="LineNr"> 6277 </span> c3/return +<span id="L6278" class="LineNr"> 6278 </span> +<span id="L6279" class="LineNr"> 6279 </span><span class="subxTest">test-reg-var-def-with-read-of-same-register</span>: +<span id="L6280" class="LineNr"> 6280 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6281" class="LineNr"> 6281 </span> 55/push-ebp +<span id="L6282" class="LineNr"> 6282 </span> 89/<- %ebp 4/r32/esp +<span id="L6283" class="LineNr"> 6283 </span> <span class="subxComment"># setup</span> +<span id="L6284" class="LineNr"> 6284 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6285" class="LineNr"> 6285 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6286" class="LineNr"> 6286 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6287" class="LineNr"> 6287 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6288" class="LineNr"> 6288 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L6289" class="LineNr"> 6289 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6290" class="LineNr"> 6290 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16) # bytes of args in call to convert-mu</span> +<span id="L6291" class="LineNr"> 6291 </span> 68/push 0/imm32 +<span id="L6292" class="LineNr"> 6292 </span> 68/push 0/imm32 +<span id="L6293" class="LineNr"> 6293 </span> 89/<- %edx 4/r32/esp +<span id="L6294" class="LineNr"> 6294 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6295" class="LineNr"> 6295 </span> <span class="subxComment">#</span> +<span id="L6296" class="LineNr"> 6296 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6297" class="LineNr"> 6297 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 3\n"</span>) +<span id="L6298" class="LineNr"> 6298 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- add x\n"</span>) +<span id="L6299" class="LineNr"> 6299 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6300" class="LineNr"> 6300 </span> <span class="subxComment"># convert</span> +<span id="L6301" class="LineNr"> 6301 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L6302" class="LineNr"> 6302 </span> <span class="subxComment"># registers except esp could be clobbered at this point (though they shouldn't be)</span> +<span id="L6303" class="LineNr"> 6303 </span> <span class="subxComment"># restore ed</span> +<span id="L6304" class="LineNr"> 6304 </span> 89/<- %edx 4/r32/esp +<span id="L6305" class="LineNr"> 6305 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6306" class="LineNr"> 6306 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L6307" class="Folded"> 6307 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6313" class="Folded"> 6313 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6319" class="LineNr"> 6319 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6279'>test-reg-var-def-with-read-of-same-register</a>: <a href='114error.subx.html#L9'>error</a> stream should be empty"</span>) +<span id="L6320" class="LineNr"> 6320 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6279'>test-reg-var-def-with-read-of-same-register</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-reg-var-def-with-read-of-same-register/1"</span>) +<span id="L6323" class="LineNr"> 6323 </span> (<a href='109stream-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#L6279'>test-reg-var-def-with-read-of-same-register</a>/2"</span>) +<span id="L6324" class="LineNr"> 6324 </span> (<a href='109stream-equal.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#L6279'>test-reg-var-def-with-read-of-same-register</a>/3"</span>) +<span id="L6325" class="LineNr"> 6325 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6279'>test-reg-var-def-with-read-of-same-register</a>/4"</span>) +<span id="L6326" class="LineNr"> 6326 </span> (<a href='109stream-equal.subx.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#L6279'>test-reg-var-def-with-read-of-same-register</a>/5"</span>) +<span id="L6327" class="LineNr"> 6327 </span> (<a href='109stream-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#L6279'>test-reg-var-def-with-read-of-same-register</a>/6"</span>) +<span id="L6328" class="LineNr"> 6328 </span> (<a href='109stream-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#L6279'>test-reg-var-def-with-read-of-same-register</a>/7"</span>) +<span id="L6329" class="LineNr"> 6329 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 01/add-to %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6279'>test-reg-var-def-with-read-of-same-register</a>/8"</span>) +<span id="L6330" class="LineNr"> 6330 </span> (<a href='109stream-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#L6279'>test-reg-var-def-with-read-of-same-register</a>/9"</span>) +<span id="L6331" class="LineNr"> 6331 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6279'>test-reg-var-def-with-read-of-same-register</a>/10"</span>) +<span id="L6332" class="LineNr"> 6332 </span> (<a href='109stream-equal.subx.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#L6279'>test-reg-var-def-with-read-of-same-register</a>/11"</span>) +<span id="L6333" class="LineNr"> 6333 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-reg-var-def-with-read-of-same-register/12"</span>) +<span id="L6334" class="LineNr"> 6334 </span> (<a href='109stream-equal.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#L6279'>test-reg-var-def-with-read-of-same-register</a>/13"</span>) +<span id="L6335" class="LineNr"> 6335 </span> (<a href='109stream-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#L6279'>test-reg-var-def-with-read-of-same-register</a>/14"</span>) +<span id="L6336" class="LineNr"> 6336 </span> (<a href='109stream-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#L6279'>test-reg-var-def-with-read-of-same-register</a>/15"</span>) +<span id="L6337" class="LineNr"> 6337 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6338" class="LineNr"> 6338 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6339" class="LineNr"> 6339 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6340" class="LineNr"> 6340 </span> 5d/pop-to-ebp +<span id="L6341" class="LineNr"> 6341 </span> c3/return +<span id="L6342" class="LineNr"> 6342 </span> +<span id="L6343" class="LineNr"> 6343 </span><span class="subxTest">test-convert-index-into-array</span>: +<span id="L6344" class="LineNr"> 6344 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6345" class="LineNr"> 6345 </span> 55/push-ebp +<span id="L6346" class="LineNr"> 6346 </span> 89/<- %ebp 4/r32/esp +<span id="L6347" class="LineNr"> 6347 </span> <span class="subxComment"># setup</span> +<span id="L6348" class="LineNr"> 6348 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6349" class="LineNr"> 6349 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6350" class="LineNr"> 6350 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6351" class="LineNr"> 6351 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6352" class="LineNr"> 6352 </span> <span class="subxComment">#</span> +<span id="L6353" class="LineNr"> 6353 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6354" class="LineNr"> 6354 </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="L6355" class="LineNr"> 6355 </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="L6356" class="LineNr"> 6356 </span> (<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="L6357" class="LineNr"> 6357 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6358" class="LineNr"> 6358 </span> <span class="subxComment"># convert</span> +<span id="L6359" class="LineNr"> 6359 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6360" class="LineNr"> 6360 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6361" class="Folded"> 6361 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6367" class="LineNr"> 6367 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6343'>test-convert-index-into-array</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6343'>test-convert-index-into-array</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6343'>test-convert-index-into-array</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6343'>test-convert-index-into-array</a>/4"</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">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6343'>test-convert-index-into-array</a>/5"</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6343'>test-convert-index-into-array</a>/6"</span>) +<span id="L6375" class="LineNr"> 6375 </span> (<a href='109stream-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#L6343'>test-convert-index-into-array</a>/7"</span>) +<span id="L6376" class="LineNr"> 6376 </span> (<a href='109stream-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#L6343'>test-convert-index-into-array</a>/8"</span>) +<span id="L6377" class="LineNr"> 6377 </span> (<a href='109stream-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#L6343'>test-convert-index-into-array</a>/9"</span>) +<span id="L6378" class="LineNr"> 6378 </span> (<a href='109stream-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#L6343'>test-convert-index-into-array</a>/10"</span>) +<span id="L6379" class="LineNr"> 6379 </span> (<a href='109stream-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#L6343'>test-convert-index-into-array</a>/11"</span>) +<span id="L6380" class="LineNr"> 6380 </span> (<a href='109stream-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#L6343'>test-convert-index-into-array</a>/12"</span>) +<span id="L6381" class="LineNr"> 6381 </span> (<a href='109stream-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#L6343'>test-convert-index-into-array</a>/13"</span>) +<span id="L6382" class="LineNr"> 6382 </span> (<a href='109stream-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#L6343'>test-convert-index-into-array</a>/14"</span>) +<span id="L6383" class="LineNr"> 6383 </span> (<a href='109stream-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#L6343'>test-convert-index-into-array</a>/15"</span>) +<span id="L6384" class="LineNr"> 6384 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6343'>test-convert-index-into-array</a>/16"</span>) +<span id="L6385" class="LineNr"> 6385 </span> (<a href='109stream-equal.subx.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#L6343'>test-convert-index-into-array</a>/17"</span>) +<span id="L6386" class="LineNr"> 6386 </span> (<a href='109stream-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="L6387" class="LineNr"> 6387 </span> (<a href='109stream-equal.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#L6343'>test-convert-index-into-array</a>/19"</span>) +<span id="L6388" class="LineNr"> 6388 </span> (<a href='109stream-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#L6343'>test-convert-index-into-array</a>/20"</span>) +<span id="L6389" class="LineNr"> 6389 </span> (<a href='109stream-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#L6343'>test-convert-index-into-array</a>/21"</span>) +<span id="L6390" class="LineNr"> 6390 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6391" class="LineNr"> 6391 </span> 89/<- %esp 5/r32/ebp +<span id="L6392" class="LineNr"> 6392 </span> 5d/pop-to-ebp +<span id="L6393" class="LineNr"> 6393 </span> c3/return +<span id="L6394" class="LineNr"> 6394 </span> +<span id="L6395" class="LineNr"> 6395 </span><span class="subxTest">test-convert-index-into-array-of-bytes</span>: +<span id="L6396" class="LineNr"> 6396 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6397" class="LineNr"> 6397 </span> 55/push-ebp +<span id="L6398" class="LineNr"> 6398 </span> 89/<- %ebp 4/r32/esp +<span id="L6399" class="LineNr"> 6399 </span> <span class="subxComment"># setup</span> +<span id="L6400" class="LineNr"> 6400 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6401" class="LineNr"> 6401 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6402" class="LineNr"> 6402 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6403" class="LineNr"> 6403 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6404" class="LineNr"> 6404 </span> <span class="subxComment">#</span> +<span id="L6405" class="LineNr"> 6405 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6406" class="LineNr"> 6406 </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="L6407" class="LineNr"> 6407 </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="L6408" class="LineNr"> 6408 </span> (<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="L6409" class="LineNr"> 6409 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6410" class="LineNr"> 6410 </span> <span class="subxComment"># convert</span> +<span id="L6411" class="LineNr"> 6411 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6412" class="LineNr"> 6412 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6413" class="Folded"> 6413 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6419" class="LineNr"> 6419 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6395'>test-convert-index-into-array-of-bytes</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6395'>test-convert-index-into-array-of-bytes</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6395'>test-convert-index-into-array-of-bytes</a>/3"</span>) +<span id="L6424" class="LineNr"> 6424 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6395'>test-convert-index-into-array-of-bytes</a>/4"</span>) +<span id="L6425" class="LineNr"> 6425 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6395'>test-convert-index-into-array-of-bytes</a>/5"</span>) +<span id="L6426" class="LineNr"> 6426 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6395'>test-convert-index-into-array-of-bytes</a>/6"</span>) +<span id="L6427" class="LineNr"> 6427 </span> (<a href='109stream-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#L6395'>test-convert-index-into-array-of-bytes</a>/7"</span>) +<span id="L6428" class="LineNr"> 6428 </span> (<a href='109stream-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#L6395'>test-convert-index-into-array-of-bytes</a>/8"</span>) +<span id="L6429" class="LineNr"> 6429 </span> (<a href='109stream-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#L6395'>test-convert-index-into-array-of-bytes</a>/9"</span>) +<span id="L6430" class="LineNr"> 6430 </span> (<a href='109stream-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#L6395'>test-convert-index-into-array-of-bytes</a>/10"</span>) +<span id="L6431" class="LineNr"> 6431 </span> (<a href='109stream-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#L6395'>test-convert-index-into-array-of-bytes</a>/11"</span>) +<span id="L6432" class="LineNr"> 6432 </span> (<a href='109stream-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#L6395'>test-convert-index-into-array-of-bytes</a>/12"</span>) +<span id="L6433" class="LineNr"> 6433 </span> (<a href='109stream-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#L6395'>test-convert-index-into-array-of-bytes</a>/13"</span>) +<span id="L6434" class="LineNr"> 6434 </span> (<a href='109stream-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#L6395'>test-convert-index-into-array-of-bytes</a>/14"</span>) +<span id="L6435" class="LineNr"> 6435 </span> (<a href='109stream-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#L6395'>test-convert-index-into-array-of-bytes</a>/15"</span>) +<span id="L6436" class="LineNr"> 6436 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6395'>test-convert-index-into-array-of-bytes</a>/16"</span>) +<span id="L6437" class="LineNr"> 6437 </span> (<a href='109stream-equal.subx.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#L6395'>test-convert-index-into-array-of-bytes</a>/17"</span>) +<span id="L6438" class="LineNr"> 6438 </span> (<a href='109stream-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="L6439" class="LineNr"> 6439 </span> (<a href='109stream-equal.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#L6395'>test-convert-index-into-array-of-bytes</a>/19"</span>) +<span id="L6440" class="LineNr"> 6440 </span> (<a href='109stream-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#L6395'>test-convert-index-into-array-of-bytes</a>/20"</span>) +<span id="L6441" class="LineNr"> 6441 </span> (<a href='109stream-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#L6395'>test-convert-index-into-array-of-bytes</a>/21"</span>) +<span id="L6442" class="LineNr"> 6442 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6443" class="LineNr"> 6443 </span> 89/<- %esp 5/r32/ebp +<span id="L6444" class="LineNr"> 6444 </span> 5d/pop-to-ebp +<span id="L6445" class="LineNr"> 6445 </span> c3/return +<span id="L6446" class="LineNr"> 6446 </span> +<span id="L6447" class="LineNr"> 6447 </span><span class="subxTest">test-convert-index-into-array-with-literal</span>: +<span id="L6448" class="LineNr"> 6448 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6449" class="LineNr"> 6449 </span> 55/push-ebp +<span id="L6450" class="LineNr"> 6450 </span> 89/<- %ebp 4/r32/esp +<span id="L6451" class="LineNr"> 6451 </span> <span class="subxComment"># setup</span> +<span id="L6452" class="LineNr"> 6452 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6453" class="LineNr"> 6453 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6454" class="LineNr"> 6454 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6455" class="LineNr"> 6455 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6456" class="LineNr"> 6456 </span> <span class="subxComment">#</span> +<span id="L6457" class="LineNr"> 6457 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6458" class="LineNr"> 6458 </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="L6459" class="LineNr"> 6459 </span> (<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="L6460" class="LineNr"> 6460 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6461" class="LineNr"> 6461 </span> <span class="subxComment"># convert</span> +<span id="L6462" class="LineNr"> 6462 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6463" class="LineNr"> 6463 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6464" class="Folded"> 6464 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6470" class="LineNr"> 6470 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6447'>test-convert-index-into-array-with-literal</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-with-literal/1"</span>) +<span id="L6473" class="LineNr"> 6473 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6447'>test-convert-index-into-array-with-literal</a>/2"</span>) +<span id="L6474" class="LineNr"> 6474 </span> (<a href='109stream-equal.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#L6447'>test-convert-index-into-array-with-literal</a>/3"</span>) +<span id="L6475" class="LineNr"> 6475 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6447'>test-convert-index-into-array-with-literal</a>/4"</span>) +<span id="L6476" class="LineNr"> 6476 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6447'>test-convert-index-into-array-with-literal</a>/5"</span>) +<span id="L6477" class="LineNr"> 6477 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6447'>test-convert-index-into-array-with-literal</a>/6"</span>) +<span id="L6478" class="LineNr"> 6478 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6447'>test-convert-index-into-array-with-literal</a>/7"</span>) +<span id="L6479" class="LineNr"> 6479 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6447'>test-convert-index-into-array-with-literal</a>/8"</span>) +<span id="L6480" class="LineNr"> 6480 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6447'>test-convert-index-into-array-with-literal</a>/9"</span>) +<span id="L6481" class="LineNr"> 6481 </span> (<a href='109stream-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#L6447'>test-convert-index-into-array-with-literal</a>/10"</span>) +<span id="L6482" class="LineNr"> 6482 </span> <span class="subxComment"># 2 * 4 bytes/elem + 4 bytes for size = offset 12</span> +<span id="L6483" class="LineNr"> 6483 </span> (<a href='109stream-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#L6447'>test-convert-index-into-array-with-literal</a>/11"</span>) +<span id="L6484" class="LineNr"> 6484 </span> (<a href='109stream-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#L6447'>test-convert-index-into-array-with-literal</a>/12"</span>) +<span id="L6485" class="LineNr"> 6485 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6447'>test-convert-index-into-array-with-literal</a>/13"</span>) +<span id="L6486" class="LineNr"> 6486 </span> (<a href='109stream-equal.subx.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#L6447'>test-convert-index-into-array-with-literal</a>/14"</span>) +<span id="L6487" class="LineNr"> 6487 </span> (<a href='109stream-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="L6488" class="LineNr"> 6488 </span> (<a href='109stream-equal.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#L6447'>test-convert-index-into-array-with-literal</a>/16"</span>) +<span id="L6489" class="LineNr"> 6489 </span> (<a href='109stream-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#L6447'>test-convert-index-into-array-with-literal</a>/17"</span>) +<span id="L6490" class="LineNr"> 6490 </span> (<a href='109stream-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#L6447'>test-convert-index-into-array-with-literal</a>/18"</span>) +<span id="L6491" class="LineNr"> 6491 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6492" class="LineNr"> 6492 </span> 89/<- %esp 5/r32/ebp +<span id="L6493" class="LineNr"> 6493 </span> 5d/pop-to-ebp +<span id="L6494" class="LineNr"> 6494 </span> c3/return +<span id="L6495" class="LineNr"> 6495 </span> +<span id="L6496" class="LineNr"> 6496 </span><span class="subxTest">test-convert-index-into-array-of-bytes-with-literal</span>: +<span id="L6497" class="LineNr"> 6497 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6498" class="LineNr"> 6498 </span> 55/push-ebp +<span id="L6499" class="LineNr"> 6499 </span> 89/<- %ebp 4/r32/esp +<span id="L6500" class="LineNr"> 6500 </span> <span class="subxComment"># setup</span> +<span id="L6501" class="LineNr"> 6501 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6502" class="LineNr"> 6502 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6503" class="LineNr"> 6503 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6504" class="LineNr"> 6504 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6505" class="LineNr"> 6505 </span> <span class="subxComment">#</span> +<span id="L6506" class="LineNr"> 6506 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6507" class="LineNr"> 6507 </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="L6508" class="LineNr"> 6508 </span> (<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="L6509" class="LineNr"> 6509 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6510" class="LineNr"> 6510 </span> <span class="subxComment"># convert</span> +<span id="L6511" class="LineNr"> 6511 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6512" class="LineNr"> 6512 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6513" class="Folded"> 6513 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6519" class="LineNr"> 6519 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-with-literal/1"</span>) +<span id="L6522" class="LineNr"> 6522 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/4"</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">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/5"</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/6"</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">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/7"</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">" (<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#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/8"</span>) +<span id="L6529" class="LineNr"> 6529 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/9"</span>) +<span id="L6530" class="LineNr"> 6530 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/10"</span>) +<span id="L6531" class="LineNr"> 6531 </span> <span class="subxComment"># 2 * 1 byte/elem + 4 bytes for size = offset 6</span> +<span id="L6532" class="LineNr"> 6532 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/11"</span>) +<span id="L6533" class="LineNr"> 6533 </span> (<a href='109stream-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#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/12"</span>) +<span id="L6534" class="LineNr"> 6534 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/13"</span>) +<span id="L6535" class="LineNr"> 6535 </span> (<a href='109stream-equal.subx.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#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/14"</span>) +<span id="L6536" class="LineNr"> 6536 </span> (<a href='109stream-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="L6537" class="LineNr"> 6537 </span> (<a href='109stream-equal.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#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/16"</span>) +<span id="L6538" class="LineNr"> 6538 </span> (<a href='109stream-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#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/17"</span>) +<span id="L6539" class="LineNr"> 6539 </span> (<a href='109stream-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#L6496'>test-convert-index-into-array-of-bytes-with-literal</a>/18"</span>) +<span id="L6540" class="LineNr"> 6540 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6541" class="LineNr"> 6541 </span> 89/<- %esp 5/r32/ebp +<span id="L6542" class="LineNr"> 6542 </span> 5d/pop-to-ebp +<span id="L6543" class="LineNr"> 6543 </span> c3/return +<span id="L6544" class="LineNr"> 6544 </span> +<span id="L6545" class="LineNr"> 6545 </span><span class="subxTest">test-convert-index-into-array-on-stack</span>: +<span id="L6546" class="LineNr"> 6546 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6547" class="LineNr"> 6547 </span> 55/push-ebp +<span id="L6548" class="LineNr"> 6548 </span> 89/<- %ebp 4/r32/esp +<span id="L6549" class="LineNr"> 6549 </span> <span class="subxComment"># setup</span> +<span id="L6550" class="LineNr"> 6550 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6551" class="LineNr"> 6551 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6552" class="LineNr"> 6552 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6553" class="LineNr"> 6553 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6554" class="LineNr"> 6554 </span> <span class="subxComment">#</span> +<span id="L6555" class="LineNr"> 6555 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6556" class="LineNr"> 6556 </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="L6557" class="LineNr"> 6557 </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="L6558" class="LineNr"> 6558 </span> (<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="L6559" class="LineNr"> 6559 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6560" class="LineNr"> 6560 </span> <span class="subxComment"># convert</span> +<span id="L6561" class="LineNr"> 6561 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6562" class="LineNr"> 6562 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6563" class="Folded"> 6563 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6569" class="LineNr"> 6569 </span> <span class="subxComment"># check output</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:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6545'>test-convert-index-into-array-on-stack</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6545'>test-convert-index-into-array-on-stack</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6545'>test-convert-index-into-array-on-stack</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6545'>test-convert-index-into-array-on-stack</a>/4"</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">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6545'>test-convert-index-into-array-on-stack</a>/5"</span>) +<span id="L6576" class="LineNr"> 6576 </span> <span class="subxComment"># var arr</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">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6545'>test-convert-index-into-array-on-stack</a>/6"</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">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6545'>test-convert-index-into-array-on-stack</a>/7"</span>) +<span id="L6579" class="LineNr"> 6579 </span> <span class="subxComment"># var idx</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6545'>test-convert-index-into-array-on-stack</a>/8"</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">" b8/copy-to-eax 2/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6545'>test-convert-index-into-array-on-stack</a>/9"</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">" (<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#L6545'>test-convert-index-into-array-on-stack</a>/10"</span>) +<span id="L6583" class="LineNr"> 6583 </span> <span class="subxComment"># var x is at (ebp-0x10) + idx<<2 + 4 = ebp + idx<<2 - 0xc</span> +<span id="L6584" class="LineNr"> 6584 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L6545'>test-convert-index-into-array-on-stack</a>/11"</span>) +<span id="L6585" class="LineNr"> 6585 </span> <span class="subxComment"># reclaim idx</span> +<span id="L6586" class="LineNr"> 6586 </span> (<a href='109stream-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#L6545'>test-convert-index-into-array-on-stack</a>/12"</span>) +<span id="L6587" class="LineNr"> 6587 </span> <span class="subxComment"># reclaim arr</span> +<span id="L6588" class="LineNr"> 6588 </span> (<a href='109stream-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#L6545'>test-convert-index-into-array-on-stack</a>/13"</span>) +<span id="L6589" class="LineNr"> 6589 </span> <span class="subxComment">#</span> +<span id="L6590" class="LineNr"> 6590 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6545'>test-convert-index-into-array-on-stack</a>/14"</span>) +<span id="L6591" class="LineNr"> 6591 </span> (<a href='109stream-equal.subx.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#L6545'>test-convert-index-into-array-on-stack</a>/15"</span>) +<span id="L6592" class="LineNr"> 6592 </span> (<a href='109stream-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="L6593" class="LineNr"> 6593 </span> (<a href='109stream-equal.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#L6545'>test-convert-index-into-array-on-stack</a>/17"</span>) +<span id="L6594" class="LineNr"> 6594 </span> (<a href='109stream-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#L6545'>test-convert-index-into-array-on-stack</a>/18"</span>) +<span id="L6595" class="LineNr"> 6595 </span> (<a href='109stream-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#L6545'>test-convert-index-into-array-on-stack</a>/19"</span>) +<span id="L6596" class="LineNr"> 6596 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6597" class="LineNr"> 6597 </span> 89/<- %esp 5/r32/ebp +<span id="L6598" class="LineNr"> 6598 </span> 5d/pop-to-ebp +<span id="L6599" class="LineNr"> 6599 </span> c3/return +<span id="L6600" class="LineNr"> 6600 </span> +<span id="L6601" class="LineNr"> 6601 </span><span class="subxTest">test-convert-index-into-array-on-stack-with-literal</span>: +<span id="L6602" class="LineNr"> 6602 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6603" class="LineNr"> 6603 </span> 55/push-ebp +<span id="L6604" class="LineNr"> 6604 </span> 89/<- %ebp 4/r32/esp +<span id="L6605" class="LineNr"> 6605 </span> <span class="subxComment"># setup</span> +<span id="L6606" class="LineNr"> 6606 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6607" class="LineNr"> 6607 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6608" class="LineNr"> 6608 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6609" class="LineNr"> 6609 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6610" class="LineNr"> 6610 </span> <span class="subxComment">#</span> +<span id="L6611" class="LineNr"> 6611 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6612" class="LineNr"> 6612 </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="L6613" class="LineNr"> 6613 </span> (<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="L6614" class="LineNr"> 6614 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6615" class="LineNr"> 6615 </span> <span class="subxComment"># convert</span> +<span id="L6616" class="LineNr"> 6616 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6617" class="LineNr"> 6617 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6618" class="Folded"> 6618 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6624" class="LineNr"> 6624 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack-with-literal/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/4"</span>) +<span id="L6630" class="LineNr"> 6630 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/5"</span>) +<span id="L6631" class="LineNr"> 6631 </span> <span class="subxComment"># var arr</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">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/6"</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">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/7"</span>) +<span id="L6634" class="LineNr"> 6634 </span> <span class="subxComment"># var x</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/8"</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">" (<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#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/9"</span>) +<span id="L6637" class="LineNr"> 6637 </span> <span class="subxComment"># x is at (ebp-0x10) + 4 + 2*4 = ebp-4</span> +<span id="L6638" class="LineNr"> 6638 </span> (<a href='109stream-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#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/10"</span>) +<span id="L6639" class="LineNr"> 6639 </span> <span class="subxComment"># reclaim x</span> +<span id="L6640" class="LineNr"> 6640 </span> (<a href='109stream-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#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/11"</span>) +<span id="L6641" class="LineNr"> 6641 </span> <span class="subxComment"># reclaim arr</span> +<span id="L6642" class="LineNr"> 6642 </span> (<a href='109stream-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#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/12"</span>) +<span id="L6643" class="LineNr"> 6643 </span> <span class="subxComment">#</span> +<span id="L6644" class="LineNr"> 6644 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/13"</span>) +<span id="L6645" class="LineNr"> 6645 </span> (<a href='109stream-equal.subx.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#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/14"</span>) +<span id="L6646" class="LineNr"> 6646 </span> (<a href='109stream-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="L6647" class="LineNr"> 6647 </span> (<a href='109stream-equal.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#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/16"</span>) +<span id="L6648" class="LineNr"> 6648 </span> (<a href='109stream-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#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/17"</span>) +<span id="L6649" class="LineNr"> 6649 </span> (<a href='109stream-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#L6601'>test-convert-index-into-array-on-stack-with-literal</a>/18"</span>) +<span id="L6650" class="LineNr"> 6650 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6651" class="LineNr"> 6651 </span> 89/<- %esp 5/r32/ebp +<span id="L6652" class="LineNr"> 6652 </span> 5d/pop-to-ebp +<span id="L6653" class="LineNr"> 6653 </span> c3/return +<span id="L6654" class="LineNr"> 6654 </span> +<span id="L6655" class="LineNr"> 6655 </span><span class="subxTest">test-convert-index-into-array-of-bytes-on-stack-with-literal</span>: +<span id="L6656" class="LineNr"> 6656 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6657" class="LineNr"> 6657 </span> 55/push-ebp +<span id="L6658" class="LineNr"> 6658 </span> 89/<- %ebp 4/r32/esp +<span id="L6659" class="LineNr"> 6659 </span> <span class="subxComment"># setup</span> +<span id="L6660" class="LineNr"> 6660 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6661" class="LineNr"> 6661 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6662" class="LineNr"> 6662 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6663" class="LineNr"> 6663 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6664" class="LineNr"> 6664 </span> <span class="subxComment">#</span> +<span id="L6665" class="LineNr"> 6665 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6666" class="LineNr"> 6666 </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="L6667" class="LineNr"> 6667 </span> (<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="L6668" class="LineNr"> 6668 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6669" class="LineNr"> 6669 </span> <span class="subxComment"># convert</span> +<span id="L6670" class="LineNr"> 6670 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6671" class="LineNr"> 6671 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6672" class="Folded"> 6672 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6678" class="LineNr"> 6678 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-on-stack-with-literal/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/4"</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">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/5"</span>) +<span id="L6685" class="LineNr"> 6685 </span> <span class="subxComment"># var arr</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">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x00000003)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/6"</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">" 68/push 0x00000003/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/7"</span>) +<span id="L6688" class="LineNr"> 6688 </span> <span class="subxComment"># var x</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/8"</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">" (<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#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/9"</span>) +<span id="L6691" class="LineNr"> 6691 </span> <span class="subxComment"># x is at (ebp-7) + 4 + 2 = ebp-1</span> +<span id="L6692" class="LineNr"> 6692 </span> (<a href='109stream-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#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/10"</span>) +<span id="L6693" class="LineNr"> 6693 </span> <span class="subxComment"># reclaim x</span> +<span id="L6694" class="LineNr"> 6694 </span> (<a href='109stream-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#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/11"</span>) +<span id="L6695" class="LineNr"> 6695 </span> <span class="subxComment"># reclaim arr</span> +<span id="L6696" class="LineNr"> 6696 </span> (<a href='109stream-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#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/12"</span>) +<span id="L6697" class="LineNr"> 6697 </span> <span class="subxComment">#</span> +<span id="L6698" class="LineNr"> 6698 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/13"</span>) +<span id="L6699" class="LineNr"> 6699 </span> (<a href='109stream-equal.subx.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#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/14"</span>) +<span id="L6700" class="LineNr"> 6700 </span> (<a href='109stream-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="L6701" class="LineNr"> 6701 </span> (<a href='109stream-equal.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#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/16"</span>) +<span id="L6702" class="LineNr"> 6702 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/17"</span>) +<span id="L6703" class="LineNr"> 6703 </span> (<a href='109stream-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#L6655'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/18"</span>) +<span id="L6704" class="LineNr"> 6704 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6705" class="LineNr"> 6705 </span> 89/<- %esp 5/r32/ebp +<span id="L6706" class="LineNr"> 6706 </span> 5d/pop-to-ebp +<span id="L6707" class="LineNr"> 6707 </span> c3/return +<span id="L6708" class="LineNr"> 6708 </span> +<span id="L6709" class="LineNr"> 6709 </span><span class="subxTest">test-convert-index-into-array-using-offset</span>: +<span id="L6710" class="LineNr"> 6710 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6711" class="LineNr"> 6711 </span> 55/push-ebp +<span id="L6712" class="LineNr"> 6712 </span> 89/<- %ebp 4/r32/esp +<span id="L6713" class="LineNr"> 6713 </span> <span class="subxComment"># setup</span> +<span id="L6714" class="LineNr"> 6714 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6715" class="LineNr"> 6715 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6716" class="LineNr"> 6716 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6717" class="LineNr"> 6717 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6718" class="LineNr"> 6718 </span> <span class="subxComment">#</span> +<span id="L6719" class="LineNr"> 6719 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6720" class="LineNr"> 6720 </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="L6721" class="LineNr"> 6721 </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="L6722" class="LineNr"> 6722 </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="L6723" class="LineNr"> 6723 </span> (<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="L6724" class="LineNr"> 6724 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6725" class="LineNr"> 6725 </span> <span class="subxComment"># convert</span> +<span id="L6726" class="LineNr"> 6726 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6727" class="LineNr"> 6727 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6728" class="Folded"> 6728 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6734" class="LineNr"> 6734 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6709'>test-convert-index-into-array-using-offset</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6709'>test-convert-index-into-array-using-offset</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6709'>test-convert-index-into-array-using-offset</a>/3"</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#L6709'>test-convert-index-into-array-using-offset</a>/4"</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:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6709'>test-convert-index-into-array-using-offset</a>/5"</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6709'>test-convert-index-into-array-using-offset</a>/6"</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">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6709'>test-convert-index-into-array-using-offset</a>/7"</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">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6709'>test-convert-index-into-array-using-offset</a>/8"</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">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6709'>test-convert-index-into-array-using-offset</a>/9"</span>) +<span id="L6745" class="LineNr"> 6745 </span> (<a href='109stream-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#L6709'>test-convert-index-into-array-using-offset</a>/10"</span>) +<span id="L6746" class="LineNr"> 6746 </span> (<a href='109stream-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#L6709'>test-convert-index-into-array-using-offset</a>/11"</span>) +<span id="L6747" class="LineNr"> 6747 </span> (<a href='109stream-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#L6709'>test-convert-index-into-array-using-offset</a>/12"</span>) +<span id="L6748" class="LineNr"> 6748 </span> (<a href='109stream-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#L6709'>test-convert-index-into-array-using-offset</a>/13"</span>) +<span id="L6749" class="LineNr"> 6749 </span> (<a href='109stream-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#L6709'>test-convert-index-into-array-using-offset</a>/15"</span>) +<span id="L6750" class="LineNr"> 6750 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6709'>test-convert-index-into-array-using-offset</a>/16"</span>) +<span id="L6751" class="LineNr"> 6751 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6709'>test-convert-index-into-array-using-offset</a>/17"</span>) +<span id="L6752" class="LineNr"> 6752 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6709'>test-convert-index-into-array-using-offset</a>/18"</span>) +<span id="L6753" class="LineNr"> 6753 </span> (<a href='109stream-equal.subx.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#L6709'>test-convert-index-into-array-using-offset</a>/19"</span>) +<span id="L6754" class="LineNr"> 6754 </span> (<a href='109stream-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="L6755" class="LineNr"> 6755 </span> (<a href='109stream-equal.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#L6709'>test-convert-index-into-array-using-offset</a>/21"</span>) +<span id="L6756" class="LineNr"> 6756 </span> (<a href='109stream-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#L6709'>test-convert-index-into-array-using-offset</a>/22"</span>) +<span id="L6757" class="LineNr"> 6757 </span> (<a href='109stream-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#L6709'>test-convert-index-into-array-using-offset</a>/23"</span>) +<span id="L6758" class="LineNr"> 6758 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6759" class="LineNr"> 6759 </span> 89/<- %esp 5/r32/ebp +<span id="L6760" class="LineNr"> 6760 </span> 5d/pop-to-ebp +<span id="L6761" class="LineNr"> 6761 </span> c3/return +<span id="L6762" class="LineNr"> 6762 </span> +<span id="L6763" class="LineNr"> 6763 </span><span class="subxTest">test-convert-compute-offset-using-literal-index</span>: +<span id="L6764" class="LineNr"> 6764 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6765" class="LineNr"> 6765 </span> 55/push-ebp +<span id="L6766" class="LineNr"> 6766 </span> 89/<- %ebp 4/r32/esp +<span id="L6767" class="LineNr"> 6767 </span> <span class="subxComment"># setup</span> +<span id="L6768" class="LineNr"> 6768 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6769" class="LineNr"> 6769 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6770" class="LineNr"> 6770 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6771" class="LineNr"> 6771 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6772" class="LineNr"> 6772 </span> <span class="subxComment">#</span> +<span id="L6773" class="LineNr"> 6773 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6774" class="LineNr"> 6774 </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="L6775" class="LineNr"> 6775 </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, 3\n"</span>) +<span id="L6776" class="LineNr"> 6776 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6777" class="LineNr"> 6777 </span> <span class="subxComment"># convert</span> +<span id="L6778" class="LineNr"> 6778 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6779" class="LineNr"> 6779 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6780" class="Folded"> 6780 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6786" class="LineNr"> 6786 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6763'>test-convert-compute-offset-using-literal-index</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-compute-offset-using-literal-index/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6763'>test-convert-compute-offset-using-literal-index</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6763'>test-convert-compute-offset-using-literal-index</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6763'>test-convert-compute-offset-using-literal-index</a>/4"</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">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6763'>test-convert-compute-offset-using-literal-index</a>/5"</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6763'>test-convert-compute-offset-using-literal-index</a>/6"</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">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6763'>test-convert-compute-offset-using-literal-index</a>/7"</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">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6763'>test-convert-compute-offset-using-literal-index</a>/8"</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">" c7/copy %ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6763'>test-convert-compute-offset-using-literal-index</a>/9"</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">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6763'>test-convert-compute-offset-using-literal-index</a>/10"</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">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6763'>test-convert-compute-offset-using-literal-index</a>/11"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6763'>test-convert-compute-offset-using-literal-index</a>/12"</span>) +<span id="L6800" class="LineNr"> 6800 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6763'>test-convert-compute-offset-using-literal-index</a>/13"</span>) +<span id="L6801" class="LineNr"> 6801 </span> (<a href='109stream-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-compute-offset-using-literal-index/14"</span>) +<span id="L6802" class="LineNr"> 6802 </span> (<a href='109stream-equal.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#L6763'>test-convert-compute-offset-using-literal-index</a>/15"</span>) +<span id="L6803" class="LineNr"> 6803 </span> (<a href='109stream-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#L6763'>test-convert-compute-offset-using-literal-index</a>/16"</span>) +<span id="L6804" class="LineNr"> 6804 </span> (<a href='109stream-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#L6763'>test-convert-compute-offset-using-literal-index</a>/17"</span>) +<span id="L6805" class="LineNr"> 6805 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6806" class="LineNr"> 6806 </span> 89/<- %esp 5/r32/ebp +<span id="L6807" class="LineNr"> 6807 </span> 5d/pop-to-ebp +<span id="L6808" class="LineNr"> 6808 </span> c3/return +<span id="L6809" class="LineNr"> 6809 </span> +<span id="L6810" class="LineNr"> 6810 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset</span>: +<span id="L6811" class="LineNr"> 6811 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6812" class="LineNr"> 6812 </span> 55/push-ebp +<span id="L6813" class="LineNr"> 6813 </span> 89/<- %ebp 4/r32/esp +<span id="L6814" class="LineNr"> 6814 </span> <span class="subxComment"># setup</span> +<span id="L6815" class="LineNr"> 6815 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6816" class="LineNr"> 6816 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6817" class="LineNr"> 6817 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6818" class="LineNr"> 6818 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6819" class="LineNr"> 6819 </span> <span class="subxComment">#</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">"fn foo {\n"</span>) +<span id="L6821" class="LineNr"> 6821 </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="L6822" class="LineNr"> 6822 </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="L6823" class="LineNr"> 6823 </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="L6824" class="LineNr"> 6824 </span> (<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="L6825" class="LineNr"> 6825 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6826" class="LineNr"> 6826 </span> <span class="subxComment"># convert</span> +<span id="L6827" class="LineNr"> 6827 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6828" class="LineNr"> 6828 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6829" class="Folded"> 6829 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6835" class="LineNr"> 6835 </span> <span class="subxComment"># check output</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:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/4"</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">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/5"</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/6"</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">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/7"</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">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/8"</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">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/9"</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">" 69/multiply %ecx 0x00000001/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/10"</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">" (<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#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/11"</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">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/12"</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">" 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#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/13"</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">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/14"</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">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/15"</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">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/16"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/17"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/18"</span>) +<span id="L6855" class="LineNr"> 6855 </span> (<a href='109stream-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="L6856" class="LineNr"> 6856 </span> (<a href='109stream-equal.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#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/20"</span>) +<span id="L6857" class="LineNr"> 6857 </span> (<a href='109stream-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#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/21"</span>) +<span id="L6858" class="LineNr"> 6858 </span> (<a href='109stream-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#L6810'>test-convert-index-into-array-of-bytes-using-offset</a>/22"</span>) +<span id="L6859" class="LineNr"> 6859 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6860" class="LineNr"> 6860 </span> 89/<- %esp 5/r32/ebp +<span id="L6861" class="LineNr"> 6861 </span> 5d/pop-to-ebp +<span id="L6862" class="LineNr"> 6862 </span> c3/return +<span id="L6863" class="LineNr"> 6863 </span> +<span id="L6864" class="LineNr"> 6864 </span><span class="subxTest">test-convert-index-into-array-using-offset-on-stack</span>: +<span id="L6865" class="LineNr"> 6865 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6866" class="LineNr"> 6866 </span> 55/push-ebp +<span id="L6867" class="LineNr"> 6867 </span> 89/<- %ebp 4/r32/esp +<span id="L6868" class="LineNr"> 6868 </span> <span class="subxComment"># setup</span> +<span id="L6869" class="LineNr"> 6869 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6870" class="LineNr"> 6870 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6871" class="LineNr"> 6871 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6872" class="LineNr"> 6872 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6873" class="LineNr"> 6873 </span> <span class="subxComment">#</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">"fn foo {\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">" var arr/eax: (addr array int) <- copy 0\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">" var idx: 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">" var off/ecx: (offset int) <- compute-offset arr, idx\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">" var x/eax: (addr int) <- index arr, off\n"</span>) +<span id="L6879" class="LineNr"> 6879 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6880" class="LineNr"> 6880 </span> <span class="subxComment"># convert</span> +<span id="L6881" class="LineNr"> 6881 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6882" class="LineNr"> 6882 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6883" class="Folded"> 6883 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6889" class="LineNr"> 6889 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset-on-stack/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/4"</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">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/5"</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/6"</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">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/7"</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">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/8"</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">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/9"</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">" 69/multiply *(ebp+0xfffffff8) 0x00000004/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/10"</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">" (<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#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/11"</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">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/12"</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">" 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#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/13"</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">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/14"</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 %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/15"</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">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/16"</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">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/17"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/18"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/19"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset-on-stack/20"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/21"</span>) +<span id="L6912" class="LineNr"> 6912 </span> (<a href='109stream-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#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/22"</span>) +<span id="L6913" class="LineNr"> 6913 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6864'>test-convert-index-into-array-using-offset-on-stack</a>/23"</span>) +<span id="L6914" class="LineNr"> 6914 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6915" class="LineNr"> 6915 </span> 89/<- %esp 5/r32/ebp +<span id="L6916" class="LineNr"> 6916 </span> 5d/pop-to-ebp +<span id="L6917" class="LineNr"> 6917 </span> c3/return +<span id="L6918" class="LineNr"> 6918 </span> +<span id="L6919" class="LineNr"> 6919 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset-on-stack</span>: +<span id="L6920" class="LineNr"> 6920 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6921" class="LineNr"> 6921 </span> 55/push-ebp +<span id="L6922" class="LineNr"> 6922 </span> 89/<- %ebp 4/r32/esp +<span id="L6923" class="LineNr"> 6923 </span> <span class="subxComment"># setup</span> +<span id="L6924" class="LineNr"> 6924 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6925" class="LineNr"> 6925 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-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#L287'>_test-output-stream</a>) +<span id="L6927" class="LineNr"> 6927 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6928" class="LineNr"> 6928 </span> <span class="subxComment">#</span> +<span id="L6929" class="LineNr"> 6929 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6930" class="LineNr"> 6930 </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="L6931" class="LineNr"> 6931 </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="L6932" class="LineNr"> 6932 </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="L6933" class="LineNr"> 6933 </span> (<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="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">"}\n"</span>) +<span id="L6935" class="LineNr"> 6935 </span> <span class="subxComment"># convert</span> +<span id="L6936" class="LineNr"> 6936 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6937" class="LineNr"> 6937 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6938" class="Folded"> 6938 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6944" class="LineNr"> 6944 </span> <span class="subxComment"># check output</span> +<span id="L6945" class="LineNr"> 6945 </span> (<a href='109stream-equal.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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/0"</span>) +<span id="L6946" class="LineNr"> 6946 </span> (<a href='109stream-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="L6947" class="LineNr"> 6947 </span> (<a href='109stream-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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/2"</span>) +<span id="L6948" class="LineNr"> 6948 </span> (<a href='109stream-equal.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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/3"</span>) +<span id="L6949" class="LineNr"> 6949 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/4"</span>) +<span id="L6950" class="LineNr"> 6950 </span> (<a href='109stream-equal.subx.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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/5"</span>) +<span id="L6951" class="LineNr"> 6951 </span> (<a href='109stream-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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/6"</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#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/7"</span>) +<span id="L6953" class="LineNr"> 6953 </span> (<a href='109stream-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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/8"</span>) +<span id="L6954" class="LineNr"> 6954 </span> (<a href='109stream-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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/9"</span>) +<span id="L6955" class="LineNr"> 6955 </span> (<a href='109stream-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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/10"</span>) +<span id="L6956" class="LineNr"> 6956 </span> (<a href='109stream-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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/11"</span>) +<span id="L6957" class="LineNr"> 6957 </span> (<a href='109stream-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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/12"</span>) +<span id="L6958" class="LineNr"> 6958 </span> (<a href='109stream-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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/13"</span>) +<span id="L6959" class="LineNr"> 6959 </span> (<a href='109stream-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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/14"</span>) +<span id="L6960" class="LineNr"> 6960 </span> (<a href='109stream-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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/15"</span>) +<span id="L6961" class="LineNr"> 6961 </span> (<a href='109stream-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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/16"</span>) +<span id="L6962" class="LineNr"> 6962 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/17"</span>) +<span id="L6963" class="LineNr"> 6963 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/18"</span>) +<span id="L6964" class="LineNr"> 6964 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/19"</span>) +<span id="L6965" class="LineNr"> 6965 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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="L6966" class="LineNr"> 6966 </span> (<a href='109stream-equal.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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/21"</span>) +<span id="L6967" class="LineNr"> 6967 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/22"</span>) +<span id="L6968" class="LineNr"> 6968 </span> (<a href='109stream-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#L6919'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/23"</span>) +<span id="L6969" class="LineNr"> 6969 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6970" class="LineNr"> 6970 </span> 89/<- %esp 5/r32/ebp +<span id="L6971" class="LineNr"> 6971 </span> 5d/pop-to-ebp +<span id="L6972" class="LineNr"> 6972 </span> c3/return +<span id="L6973" class="LineNr"> 6973 </span> +<span id="L6974" class="LineNr"> 6974 </span><span class="subxTest">test-convert-function-and-type-definition</span>: +<span id="L6975" class="LineNr"> 6975 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6976" class="LineNr"> 6976 </span> 55/push-ebp +<span id="L6977" class="LineNr"> 6977 </span> 89/<- %ebp 4/r32/esp +<span id="L6978" class="LineNr"> 6978 </span> <span class="subxComment"># setup</span> +<span id="L6979" class="LineNr"> 6979 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6980" class="LineNr"> 6980 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6981" class="LineNr"> 6981 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6982" class="LineNr"> 6982 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6983" class="LineNr"> 6983 </span> <span class="subxComment">#</span> +<span id="L6984" class="LineNr"> 6984 </span> (<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="L6985" class="LineNr"> 6985 </span> (<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="L6986" class="LineNr"> 6986 </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="L6987" class="LineNr"> 6987 </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="L6988" class="LineNr"> 6988 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6989" class="LineNr"> 6989 </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="L6990" class="LineNr"> 6990 </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="L6991" class="LineNr"> 6991 </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="L6992" class="LineNr"> 6992 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6993" class="LineNr"> 6993 </span> <span class="subxComment"># convert</span> +<span id="L6994" class="LineNr"> 6994 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L6995" class="LineNr"> 6995 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6996" class="Folded"> 6996 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7002" class="LineNr"> 7002 </span> <span class="subxComment"># check output</span> +<span id="L7003" class="LineNr"> 7003 </span> (<a href='109stream-equal.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#L6974'>test-convert-function-and-type-definition</a>/0"</span>) +<span id="L7004" class="LineNr"> 7004 </span> (<a href='109stream-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="L7005" class="LineNr"> 7005 </span> (<a href='109stream-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#L6974'>test-convert-function-and-type-definition</a>/2"</span>) +<span id="L7006" class="LineNr"> 7006 </span> (<a href='109stream-equal.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#L6974'>test-convert-function-and-type-definition</a>/3"</span>) +<span id="L7007" class="LineNr"> 7007 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-convert-function-and-type-definition</a>/4"</span>) +<span id="L7008" class="LineNr"> 7008 </span> (<a href='109stream-equal.subx.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#L6974'>test-convert-function-and-type-definition</a>/5"</span>) +<span id="L7009" class="LineNr"> 7009 </span> (<a href='109stream-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#L6974'>test-convert-function-and-type-definition</a>/6"</span>) +<span id="L7010" class="LineNr"> 7010 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-convert-function-and-type-definition</a>/7"</span>) +<span id="L7011" class="LineNr"> 7011 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-convert-function-and-type-definition</a>/8"</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">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-convert-function-and-type-definition</a>/9"</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">" 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#L6974'>test-convert-function-and-type-definition</a>/10"</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">" 8d/copy-address *(eax + 0x00000000) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-convert-function-and-type-definition</a>/11"</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">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-convert-function-and-type-definition</a>/12"</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">" 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#L6974'>test-convert-function-and-type-definition</a>/13"</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">" 8d/copy-address *(eax + 0x00000004) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-convert-function-and-type-definition</a>/14"</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">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-convert-function-and-type-definition</a>/15"</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">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-convert-function-and-type-definition</a>/16"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-convert-function-and-type-definition</a>/17"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-convert-function-and-type-definition</a>/18"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-and-type-definition/19"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-convert-function-and-type-definition</a>/20"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-convert-function-and-type-definition</a>/21"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6974'>test-convert-function-and-type-definition</a>/22"</span>) +<span id="L7026" class="LineNr"> 7026 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7027" class="LineNr"> 7027 </span> 89/<- %esp 5/r32/ebp +<span id="L7028" class="LineNr"> 7028 </span> 5d/pop-to-ebp +<span id="L7029" class="LineNr"> 7029 </span> c3/return +<span id="L7030" class="LineNr"> 7030 </span> +<span id="L7031" class="LineNr"> 7031 </span><span class="subxTest">test-type-definition-with-array</span>: +<span id="L7032" class="LineNr"> 7032 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7033" class="LineNr"> 7033 </span> 55/push-ebp +<span id="L7034" class="LineNr"> 7034 </span> 89/<- %ebp 4/r32/esp +<span id="L7035" class="LineNr"> 7035 </span> <span class="subxComment"># setup</span> +<span id="L7036" class="LineNr"> 7036 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7037" class="LineNr"> 7037 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7038" class="LineNr"> 7038 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7039" class="LineNr"> 7039 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7040" class="LineNr"> 7040 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7041" class="LineNr"> 7041 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7042" class="LineNr"> 7042 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7043" class="LineNr"> 7043 </span> 68/push 0/imm32 +<span id="L7044" class="LineNr"> 7044 </span> 68/push 0/imm32 +<span id="L7045" class="LineNr"> 7045 </span> 89/<- %edx 4/r32/esp +<span id="L7046" class="LineNr"> 7046 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7047" class="LineNr"> 7047 </span> <span class="subxComment">#</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 t {\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">" a: (array int 3)\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> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7053" class="LineNr"> 7053 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7054" class="LineNr"> 7054 </span> <span class="subxComment"># restore ed</span> +<span id="L7055" class="LineNr"> 7055 </span> 89/<- %edx 4/r32/esp +<span id="L7056" class="LineNr"> 7056 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7057" class="LineNr"> 7057 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7058" class="Folded"> 7058 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7064" class="LineNr"> 7064 </span> <span class="subxComment"># check output</span> +<span id="L7065" class="LineNr"> 7065 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7031'>test-type-definition-with-array</a>: output should be empty"</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#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#L7031'>test-type-definition-with-array</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7067" class="LineNr"> 7067 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7068" class="LineNr"> 7068 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7031'>test-type-definition-with-array</a>: exit status"</span>) +<span id="L7069" class="LineNr"> 7069 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7070" class="LineNr"> 7070 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7071" class="LineNr"> 7071 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L7072" class="LineNr"> 7072 </span> 5d/pop-to-ebp <span id="L7073" class="LineNr"> 7073 </span> c3/return <span id="L7074" class="LineNr"> 7074 </span> -<span id="L7075" class="LineNr"> 7075 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</span>: +<span id="L7075" class="LineNr"> 7075 </span><span class="subxTest">test-type-definition-with-addr</span>: <span id="L7076" class="LineNr"> 7076 </span> <span class="subxS1Comment"># . prologue</span> <span id="L7077" class="LineNr"> 7077 </span> 55/push-ebp <span id="L7078" class="LineNr"> 7078 </span> 89/<- %ebp 4/r32/esp @@ -6478,730 +6478,730 @@ if ('onhashchange' in window) { <span id="L7081" class="LineNr"> 7081 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L7082" class="LineNr"> 7082 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L7083" class="LineNr"> 7083 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7084" class="LineNr"> 7084 </span> <span class="subxComment">#</span> -<span id="L7085" class="LineNr"> 7085 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7086" class="LineNr"> 7086 </span> (<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="L7087" class="LineNr"> 7087 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7088" class="LineNr"> 7088 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L7089" class="LineNr"> 7089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: s\n"</span>) -<span id="L7090" class="LineNr"> 7090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\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">"type s {\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">" z: int\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> <span class="subxComment"># convert</span> -<span id="L7095" class="LineNr"> 7095 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7096" class="LineNr"> 7096 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7097" class="Folded"> 7097 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7103" class="LineNr"> 7103 </span> <span class="subxComment"># check output</span> -<span id="L7104" class="LineNr"> 7104 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7075'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/0"</span>) -<span id="L7105" class="LineNr"> 7105 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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="L7106" class="LineNr"> 7106 </span> (<a href='109stream-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#L7075'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/2"</span>) -<span id="L7107" class="LineNr"> 7107 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7075'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/3"</span>) -<span id="L7108" class="LineNr"> 7108 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7075'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/4"</span>) -<span id="L7109" class="LineNr"> 7109 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7075'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/5"</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">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7075'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/7"</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">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7075'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/8"</span>) -<span id="L7112" class="LineNr"> 7112 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7075'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/9"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7075'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/10"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type/11"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7075'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/12"</span>) -<span id="L7116" class="LineNr"> 7116 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7075'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/13"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7075'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/14"</span>) -<span id="L7118" class="LineNr"> 7118 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7119" class="LineNr"> 7119 </span> 89/<- %esp 5/r32/ebp -<span id="L7120" class="LineNr"> 7120 </span> 5d/pop-to-ebp -<span id="L7121" class="LineNr"> 7121 </span> c3/return -<span id="L7122" class="LineNr"> 7122 </span> -<span id="L7123" class="LineNr"> 7123 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type</span>: -<span id="L7124" class="LineNr"> 7124 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7125" class="LineNr"> 7125 </span> 55/push-ebp -<span id="L7126" class="LineNr"> 7126 </span> 89/<- %ebp 4/r32/esp -<span id="L7127" class="LineNr"> 7127 </span> <span class="subxComment"># setup</span> -<span id="L7128" class="LineNr"> 7128 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7129" class="LineNr"> 7129 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7130" class="LineNr"> 7130 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7131" class="LineNr"> 7131 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7132" class="LineNr"> 7132 </span> <span class="subxComment">#</span> -<span id="L7133" class="LineNr"> 7133 </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="L7134" class="LineNr"> 7134 </span> (<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="L7135" class="LineNr"> 7135 </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="L7136" class="LineNr"> 7136 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7137" class="LineNr"> 7137 </span> (<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="L7138" class="LineNr"> 7138 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7139" class="LineNr"> 7139 </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="L7140" class="LineNr"> 7140 </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="L7141" class="LineNr"> 7141 </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="L7142" class="LineNr"> 7142 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7143" class="LineNr"> 7143 </span> <span class="subxComment"># convert</span> -<span id="L7144" class="LineNr"> 7144 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7145" class="LineNr"> 7145 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7146" class="Folded"> 7146 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7152" class="LineNr"> 7152 </span> <span class="subxComment"># check output</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">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</span>) -<span id="L7157" class="LineNr"> 7157 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</span>) -<span id="L7158" class="LineNr"> 7158 </span> (<a href='109stream-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#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) -<span id="L7159" class="LineNr"> 7159 </span> <span class="subxComment"># var a: t</span> -<span id="L7160" class="LineNr"> 7160 </span> (<a href='109stream-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#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</span>) -<span id="L7161" class="LineNr"> 7161 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) -<span id="L7162" class="LineNr"> 7162 </span> <span class="subxComment"># foo a</span> -<span id="L7163" class="LineNr"> 7163 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (foo *(ebp+0xfffffff8) *(ebp+0xfffffffc))"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) -<span id="L7164" class="LineNr"> 7164 </span> <span class="subxComment">#</span> -<span id="L7165" class="LineNr"> 7165 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</span>) -<span id="L7166" class="LineNr"> 7166 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</span>) -<span id="L7167" class="LineNr"> 7167 </span> (<a href='109stream-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#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</span>) -<span id="L7168" class="LineNr"> 7168 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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="L7169" class="LineNr"> 7169 </span> (<a href='109stream-equal.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#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</span>) -<span id="L7170" class="LineNr"> 7170 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</span>) -<span id="L7171" class="LineNr"> 7171 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</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/17"</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#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</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#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</span>) -<span id="L7178" class="LineNr"> 7178 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) -<span id="L7180" class="LineNr"> 7180 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7181" class="LineNr"> 7181 </span> 89/<- %esp 5/r32/ebp -<span id="L7182" class="LineNr"> 7182 </span> 5d/pop-to-ebp -<span id="L7183" class="LineNr"> 7183 </span> c3/return -<span id="L7184" class="LineNr"> 7184 </span> -<span id="L7185" class="LineNr"> 7185 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-register-indirect</span>: -<span id="L7186" class="LineNr"> 7186 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7187" class="LineNr"> 7187 </span> 55/push-ebp -<span id="L7188" class="LineNr"> 7188 </span> 89/<- %ebp 4/r32/esp -<span id="L7189" class="LineNr"> 7189 </span> <span class="subxComment"># setup</span> -<span id="L7190" class="LineNr"> 7190 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7191" class="LineNr"> 7191 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7192" class="LineNr"> 7192 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7193" class="LineNr"> 7193 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7194" class="LineNr"> 7194 </span> <span class="subxComment">#</span> -<span id="L7195" class="LineNr"> 7195 </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="L7196" class="LineNr"> 7196 </span> (<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="L7197" class="LineNr"> 7197 </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="L7198" class="LineNr"> 7198 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7199" class="LineNr"> 7199 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: t {\n"</span>) -<span id="L7200" class="LineNr"> 7200 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7201" class="LineNr"> 7201 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L7202" class="LineNr"> 7202 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L7203" class="LineNr"> 7203 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L7204" class="LineNr"> 7204 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7205" class="LineNr"> 7205 </span> <span class="subxComment"># convert</span> -<span id="L7206" class="LineNr"> 7206 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7207" class="LineNr"> 7207 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7208" class="Folded"> 7208 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7214" class="LineNr"> 7214 </span> <span class="subxComment"># check output</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">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</span>) -<span id="L7219" class="LineNr"> 7219 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</span>) -<span id="L7220" class="LineNr"> 7220 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) -<span id="L7221" class="LineNr"> 7221 </span> <span class="subxComment"># var a</span> -<span id="L7222" class="LineNr"> 7222 </span> (<a href='109stream-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#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</span>) -<span id="L7223" class="LineNr"> 7223 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) -<span id="L7224" class="LineNr"> 7224 </span> <span class="subxComment"># foo a</span> -<span id="L7225" class="LineNr"> 7225 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (foo *(eax+0x00000000) *(eax+0x00000004))"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) -<span id="L7226" class="LineNr"> 7226 </span> <span class="subxComment">#</span> -<span id="L7227" class="LineNr"> 7227 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</span>) -<span id="L7228" class="LineNr"> 7228 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</span>) -<span id="L7229" class="LineNr"> 7229 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</span>) -<span id="L7230" class="LineNr"> 7230 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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="L7231" class="LineNr"> 7231 </span> (<a href='109stream-equal.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#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</span>) -<span id="L7232" class="LineNr"> 7232 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</span>) -<span id="L7233" class="LineNr"> 7233 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</span>) -<span id="L7234" class="LineNr"> 7234 </span> (<a href='109stream-equal.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#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</span>) -<span id="L7235" class="LineNr"> 7235 </span> (<a href='109stream-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="L7236" class="LineNr"> 7236 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</span>) -<span id="L7237" class="LineNr"> 7237 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</span>) -<span id="L7239" class="LineNr"> 7239 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7123'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) -<span id="L7242" class="LineNr"> 7242 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7243" class="LineNr"> 7243 </span> 89/<- %esp 5/r32/ebp -<span id="L7244" class="LineNr"> 7244 </span> 5d/pop-to-ebp -<span id="L7245" class="LineNr"> 7245 </span> c3/return -<span id="L7246" class="LineNr"> 7246 </span> -<span id="L7247" class="LineNr"> 7247 </span><span class="subxComment"># we don't have special support for call-by-reference; just explicitly create</span> -<span id="L7248" class="LineNr"> 7248 </span><span class="subxComment"># a new variable with the address of the arg</span> -<span id="L7249" class="LineNr"> 7249 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-by-reference</span>: -<span id="L7250" class="LineNr"> 7250 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7251" class="LineNr"> 7251 </span> 55/push-ebp -<span id="L7252" class="LineNr"> 7252 </span> 89/<- %ebp 4/r32/esp -<span id="L7253" class="LineNr"> 7253 </span> <span class="subxComment"># setup</span> -<span id="L7254" class="LineNr"> 7254 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7255" class="LineNr"> 7255 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7256" class="LineNr"> 7256 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7257" class="LineNr"> 7257 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7258" class="LineNr"> 7258 </span> <span class="subxComment">#</span> -<span id="L7259" class="LineNr"> 7259 </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="L7260" class="LineNr"> 7260 </span> (<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="L7261" class="LineNr"> 7261 </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="L7262" class="LineNr"> 7262 </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="L7263" class="LineNr"> 7263 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7264" class="LineNr"> 7264 </span> (<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="L7265" class="LineNr"> 7265 </span> (<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="L7266" class="LineNr"> 7266 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7267" class="LineNr"> 7267 </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="L7268" class="LineNr"> 7268 </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="L7269" class="LineNr"> 7269 </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="L7270" class="LineNr"> 7270 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7271" class="LineNr"> 7271 </span> <span class="subxComment"># convert</span> -<span id="L7272" class="LineNr"> 7272 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7273" class="LineNr"> 7273 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7274" class="Folded"> 7274 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7280" class="LineNr"> 7280 </span> <span class="subxComment"># check output</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">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/0"</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/1"</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#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/2"</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#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/3"</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#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/4"</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">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/5"</span>) -<span id="L7287" class="LineNr"> 7287 </span> <span class="subxComment"># var a: t</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">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/6"</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">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/7"</span>) -<span id="L7290" class="LineNr"> 7290 </span> <span class="subxComment"># var b/eax: (addr t)</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/8"</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">" 8d/copy-address *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/9"</span>) -<span id="L7293" class="LineNr"> 7293 </span> <span class="subxComment"># foo a</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">" (foo %eax)"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/10"</span>) -<span id="L7295" class="LineNr"> 7295 </span> <span class="subxComment">#</span> -<span id="L7296" class="LineNr"> 7296 </span> (<a href='109stream-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#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/11"</span>) -<span id="L7297" class="LineNr"> 7297 </span> (<a href='109stream-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#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/12"</span>) -<span id="L7298" class="LineNr"> 7298 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/13"</span>) -<span id="L7299" class="LineNr"> 7299 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/14"</span>) -<span id="L7300" class="LineNr"> 7300 </span> (<a href='109stream-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="L7301" class="LineNr"> 7301 </span> (<a href='109stream-equal.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#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/16"</span>) -<span id="L7302" class="LineNr"> 7302 </span> (<a href='109stream-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#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/17"</span>) -<span id="L7303" class="LineNr"> 7303 </span> (<a href='109stream-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#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/18"</span>) -<span id="L7304" class="LineNr"> 7304 </span> (<a href='109stream-equal.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#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/19"</span>) -<span id="L7305" class="LineNr"> 7305 </span> (<a href='109stream-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="L7306" class="LineNr"> 7306 </span> (<a href='109stream-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#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/21"</span>) -<span id="L7307" class="LineNr"> 7307 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/22"</span>) -<span id="L7308" class="LineNr"> 7308 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/23"</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:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/24"</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">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/25"</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">" 8b/-> *(ebp+0x00000008) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/26"</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">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/27"</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#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/28"</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:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/29"</span>) -<span id="L7315" class="LineNr"> 7315 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/30"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/31"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/32"</span>) -<span id="L7318" class="LineNr"> 7318 </span> (<a href='109stream-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#L7249'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/33"</span>) -<span id="L7319" class="LineNr"> 7319 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7320" class="LineNr"> 7320 </span> 89/<- %esp 5/r32/ebp -<span id="L7321" class="LineNr"> 7321 </span> 5d/pop-to-ebp -<span id="L7322" class="LineNr"> 7322 </span> c3/return -<span id="L7323" class="LineNr"> 7323 </span> -<span id="L7324" class="LineNr"> 7324 </span><span class="subxTest">test-convert-get-on-local-variable</span>: -<span id="L7325" class="LineNr"> 7325 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7326" class="LineNr"> 7326 </span> 55/push-ebp -<span id="L7327" class="LineNr"> 7327 </span> 89/<- %ebp 4/r32/esp -<span id="L7328" class="LineNr"> 7328 </span> <span class="subxComment"># setup</span> -<span id="L7329" class="LineNr"> 7329 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7330" class="LineNr"> 7330 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7331" class="LineNr"> 7331 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7332" class="LineNr"> 7332 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7333" class="LineNr"> 7333 </span> <span class="subxComment">#</span> -<span id="L7334" class="LineNr"> 7334 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7335" class="LineNr"> 7335 </span> (<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="L7336" class="LineNr"> 7336 </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="L7337" class="LineNr"> 7337 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7338" class="LineNr"> 7338 </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="L7339" class="LineNr"> 7339 </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="L7340" class="LineNr"> 7340 </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="L7341" class="LineNr"> 7341 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7342" class="LineNr"> 7342 </span> <span class="subxComment"># convert</span> -<span id="L7343" class="LineNr"> 7343 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7344" class="LineNr"> 7344 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7345" class="Folded"> 7345 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7351" class="LineNr"> 7351 </span> <span class="subxComment"># check output</span> -<span id="L7352" class="LineNr"> 7352 </span> (<a href='109stream-equal.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#L7324'>test-convert-get-on-local-variable</a>/0"</span>) -<span id="L7353" class="LineNr"> 7353 </span> (<a href='109stream-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="L7354" class="LineNr"> 7354 </span> (<a href='109stream-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#L7324'>test-convert-get-on-local-variable</a>/2"</span>) -<span id="L7355" class="LineNr"> 7355 </span> (<a href='109stream-equal.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#L7324'>test-convert-get-on-local-variable</a>/3"</span>) -<span id="L7356" class="LineNr"> 7356 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7324'>test-convert-get-on-local-variable</a>/4"</span>) -<span id="L7357" class="LineNr"> 7357 </span> (<a href='109stream-equal.subx.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#L7324'>test-convert-get-on-local-variable</a>/5"</span>) -<span id="L7358" class="LineNr"> 7358 </span> <span class="subxComment"># var a</span> -<span id="L7359" class="LineNr"> 7359 </span> (<a href='109stream-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#L7324'>test-convert-get-on-local-variable</a>/6"</span>) -<span id="L7360" class="LineNr"> 7360 </span> (<a href='109stream-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#L7324'>test-convert-get-on-local-variable</a>/7"</span>) -<span id="L7361" class="LineNr"> 7361 </span> <span class="subxComment"># var c</span> -<span id="L7362" class="LineNr"> 7362 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7324'>test-convert-get-on-local-variable</a>/8"</span>) -<span id="L7363" class="LineNr"> 7363 </span> <span class="subxComment"># get</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">" 8d/copy-address *(ebp+0xfffffffc) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7324'>test-convert-get-on-local-variable</a>/9"</span>) -<span id="L7365" class="LineNr"> 7365 </span> <span class="subxComment"># reclaim c</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">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7324'>test-convert-get-on-local-variable</a>/10"</span>) -<span id="L7367" class="LineNr"> 7367 </span> <span class="subxComment"># reclaim a</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">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7324'>test-convert-get-on-local-variable</a>/11"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7324'>test-convert-get-on-local-variable</a>/12"</span>) -<span id="L7370" class="LineNr"> 7370 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7324'>test-convert-get-on-local-variable</a>/13"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-local-variable/14"</span>) -<span id="L7372" class="LineNr"> 7372 </span> (<a href='109stream-equal.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#L7324'>test-convert-get-on-local-variable</a>/15"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7324'>test-convert-get-on-local-variable</a>/16"</span>) -<span id="L7374" class="LineNr"> 7374 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7324'>test-convert-get-on-local-variable</a>/17"</span>) -<span id="L7375" class="LineNr"> 7375 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7376" class="LineNr"> 7376 </span> 89/<- %esp 5/r32/ebp -<span id="L7377" class="LineNr"> 7377 </span> 5d/pop-to-ebp -<span id="L7378" class="LineNr"> 7378 </span> c3/return -<span id="L7379" class="LineNr"> 7379 </span> -<span id="L7380" class="LineNr"> 7380 </span><span class="subxTest">test-convert-get-on-function-argument</span>: -<span id="L7381" class="LineNr"> 7381 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7382" class="LineNr"> 7382 </span> 55/push-ebp -<span id="L7383" class="LineNr"> 7383 </span> 89/<- %ebp 4/r32/esp -<span id="L7384" class="LineNr"> 7384 </span> <span class="subxComment"># setup</span> -<span id="L7385" class="LineNr"> 7385 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7386" class="LineNr"> 7386 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7387" class="LineNr"> 7387 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7388" class="LineNr"> 7388 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7389" class="LineNr"> 7389 </span> <span class="subxComment">#</span> -<span id="L7390" class="LineNr"> 7390 </span> (<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="L7391" class="LineNr"> 7391 </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="L7392" class="LineNr"> 7392 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7393" class="LineNr"> 7393 </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="L7394" class="LineNr"> 7394 </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="L7395" class="LineNr"> 7395 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L7396" class="LineNr"> 7396 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7397" class="LineNr"> 7397 </span> <span class="subxComment"># convert</span> -<span id="L7398" class="LineNr"> 7398 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7399" class="LineNr"> 7399 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7400" class="Folded"> 7400 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7406" class="LineNr"> 7406 </span> <span class="subxComment"># check output</span> -<span id="L7407" class="LineNr"> 7407 </span> (<a href='109stream-equal.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#L7380'>test-convert-get-on-function-argument</a>/0"</span>) -<span id="L7408" class="LineNr"> 7408 </span> (<a href='109stream-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="L7409" class="LineNr"> 7409 </span> (<a href='109stream-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#L7380'>test-convert-get-on-function-argument</a>/2"</span>) -<span id="L7410" class="LineNr"> 7410 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7380'>test-convert-get-on-function-argument</a>/3"</span>) -<span id="L7411" class="LineNr"> 7411 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7380'>test-convert-get-on-function-argument</a>/4"</span>) -<span id="L7412" class="LineNr"> 7412 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7380'>test-convert-get-on-function-argument</a>/5"</span>) -<span id="L7413" class="LineNr"> 7413 </span> <span class="subxComment"># var c</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">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7380'>test-convert-get-on-function-argument</a>/6"</span>) -<span id="L7415" class="LineNr"> 7415 </span> <span class="subxComment"># get</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">" 8d/copy-address *(ebp+0x0000000c) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7380'>test-convert-get-on-function-argument</a>/7"</span>) -<span id="L7417" class="LineNr"> 7417 </span> <span class="subxComment"># reclaim c</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">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7380'>test-convert-get-on-function-argument</a>/8"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7380'>test-convert-get-on-function-argument</a>/9"</span>) -<span id="L7420" class="LineNr"> 7420 </span> (<a href='109stream-equal.subx.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#L7380'>test-convert-get-on-function-argument</a>/10"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-function-argument/11"</span>) -<span id="L7422" class="LineNr"> 7422 </span> (<a href='109stream-equal.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#L7380'>test-convert-get-on-function-argument</a>/12"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7380'>test-convert-get-on-function-argument</a>/13"</span>) -<span id="L7424" class="LineNr"> 7424 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7380'>test-convert-get-on-function-argument</a>/14"</span>) -<span id="L7425" class="LineNr"> 7425 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7426" class="LineNr"> 7426 </span> 89/<- %esp 5/r32/ebp -<span id="L7427" class="LineNr"> 7427 </span> 5d/pop-to-ebp -<span id="L7428" class="LineNr"> 7428 </span> c3/return -<span id="L7429" class="LineNr"> 7429 </span> -<span id="L7430" class="LineNr"> 7430 </span><span class="subxTest">test-convert-get-on-function-argument-with-known-type</span>: -<span id="L7431" class="LineNr"> 7431 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7432" class="LineNr"> 7432 </span> 55/push-ebp -<span id="L7433" class="LineNr"> 7433 </span> 89/<- %ebp 4/r32/esp -<span id="L7434" class="LineNr"> 7434 </span> <span class="subxComment"># setup</span> -<span id="L7435" class="LineNr"> 7435 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7436" class="LineNr"> 7436 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7437" class="LineNr"> 7437 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7438" class="LineNr"> 7438 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7439" class="LineNr"> 7439 </span> <span class="subxComment">#</span> -<span id="L7440" class="LineNr"> 7440 </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="L7441" class="LineNr"> 7441 </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="L7442" class="LineNr"> 7442 </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="L7443" class="LineNr"> 7443 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7444" class="LineNr"> 7444 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: t {\n"</span>) -<span id="L7445" class="LineNr"> 7445 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L7446" class="LineNr"> 7446 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7447" class="LineNr"> 7447 </span> <span class="subxComment"># convert</span> -<span id="L7448" class="LineNr"> 7448 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7449" class="LineNr"> 7449 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7450" class="Folded"> 7450 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7456" class="LineNr"> 7456 </span> <span class="subxComment"># check output</span> -<span id="L7457" class="LineNr"> 7457 </span> (<a href='109stream-equal.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#L7430'>test-convert-get-on-function-argument-with-known-type</a>/0"</span>) -<span id="L7458" class="LineNr"> 7458 </span> (<a href='109stream-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="L7459" class="LineNr"> 7459 </span> (<a href='109stream-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#L7430'>test-convert-get-on-function-argument-with-known-type</a>/2"</span>) -<span id="L7460" class="LineNr"> 7460 </span> (<a href='109stream-equal.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#L7430'>test-convert-get-on-function-argument-with-known-type</a>/3"</span>) -<span id="L7461" class="LineNr"> 7461 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7430'>test-convert-get-on-function-argument-with-known-type</a>/4"</span>) -<span id="L7462" class="LineNr"> 7462 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7430'>test-convert-get-on-function-argument-with-known-type</a>/5"</span>) -<span id="L7463" class="LineNr"> 7463 </span> <span class="subxComment"># var c</span> -<span id="L7464" class="LineNr"> 7464 </span> (<a href='109stream-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#L7430'>test-convert-get-on-function-argument-with-known-type</a>/6"</span>) -<span id="L7465" class="LineNr"> 7465 </span> <span class="subxComment"># get</span> -<span id="L7466" class="LineNr"> 7466 </span> (<a href='109stream-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#L7430'>test-convert-get-on-function-argument-with-known-type</a>/7"</span>) -<span id="L7467" class="LineNr"> 7467 </span> <span class="subxComment"># reclaim c</span> -<span id="L7468" class="LineNr"> 7468 </span> (<a href='109stream-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#L7430'>test-convert-get-on-function-argument-with-known-type</a>/8"</span>) -<span id="L7469" class="LineNr"> 7469 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7430'>test-convert-get-on-function-argument-with-known-type</a>/9"</span>) -<span id="L7470" class="LineNr"> 7470 </span> (<a href='109stream-equal.subx.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#L7430'>test-convert-get-on-function-argument-with-known-type</a>/10"</span>) -<span id="L7471" class="LineNr"> 7471 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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="L7472" class="LineNr"> 7472 </span> (<a href='109stream-equal.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#L7430'>test-convert-get-on-function-argument-with-known-type</a>/12"</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#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7430'>test-convert-get-on-function-argument-with-known-type</a>/13"</span>) -<span id="L7474" class="LineNr"> 7474 </span> (<a href='109stream-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#L7430'>test-convert-get-on-function-argument-with-known-type</a>/14"</span>) -<span id="L7475" class="LineNr"> 7475 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7476" class="LineNr"> 7476 </span> 89/<- %esp 5/r32/ebp -<span id="L7477" class="LineNr"> 7477 </span> 5d/pop-to-ebp -<span id="L7478" class="LineNr"> 7478 </span> c3/return -<span id="L7479" class="LineNr"> 7479 </span> -<span id="L7480" class="LineNr"> 7480 </span><span class="subxTest">test-add-with-too-many-inouts</span>: -<span id="L7481" class="LineNr"> 7481 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7482" class="LineNr"> 7482 </span> 55/push-ebp -<span id="L7483" class="LineNr"> 7483 </span> 89/<- %ebp 4/r32/esp -<span id="L7484" class="LineNr"> 7484 </span> <span class="subxComment"># setup</span> -<span id="L7485" class="LineNr"> 7485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7486" class="LineNr"> 7486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7487" class="LineNr"> 7487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7488" class="LineNr"> 7488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7489" class="LineNr"> 7489 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7490" class="LineNr"> 7490 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7491" class="LineNr"> 7491 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7492" class="LineNr"> 7492 </span> 68/push 0/imm32 -<span id="L7493" class="LineNr"> 7493 </span> 68/push 0/imm32 -<span id="L7494" class="LineNr"> 7494 </span> 89/<- %edx 4/r32/esp -<span id="L7495" class="LineNr"> 7495 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7496" class="LineNr"> 7496 </span> <span class="subxComment">#</span> -<span id="L7497" class="LineNr"> 7497 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7498" class="LineNr"> 7498 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L7499" class="LineNr"> 7499 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: int <- add a, 0\n"</span>) -<span id="L7500" class="LineNr"> 7500 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7501" class="LineNr"> 7501 </span> <span class="subxComment"># convert</span> -<span id="L7502" class="LineNr"> 7502 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7503" class="LineNr"> 7503 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7504" class="LineNr"> 7504 </span> <span class="subxComment"># restore ed</span> -<span id="L7505" class="LineNr"> 7505 </span> 89/<- %edx 4/r32/esp -<span id="L7506" class="LineNr"> 7506 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7507" class="LineNr"> 7507 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7508" class="Folded"> 7508 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7514" class="LineNr"> 7514 </span> <span class="subxComment"># check output</span> -<span id="L7515" class="LineNr"> 7515 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7480'>test-add-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L7516" class="LineNr"> 7516 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: too many inouts; most primitives support at most two arguments, across inouts and outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L7480'>test-add-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7517" class="LineNr"> 7517 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7518" class="LineNr"> 7518 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7480'>test-add-with-too-many-inouts</a>: exit status"</span>) -<span id="L7519" class="LineNr"> 7519 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7520" class="LineNr"> 7520 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7521" class="LineNr"> 7521 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7522" class="LineNr"> 7522 </span> 5d/pop-to-ebp -<span id="L7523" class="LineNr"> 7523 </span> c3/return -<span id="L7524" class="LineNr"> 7524 </span> -<span id="L7525" class="LineNr"> 7525 </span><span class="subxTest">test-add-with-too-many-inouts-2</span>: -<span id="L7526" class="LineNr"> 7526 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7527" class="LineNr"> 7527 </span> 55/push-ebp -<span id="L7528" class="LineNr"> 7528 </span> 89/<- %ebp 4/r32/esp -<span id="L7529" class="LineNr"> 7529 </span> <span class="subxComment"># setup</span> -<span id="L7530" class="LineNr"> 7530 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7531" class="LineNr"> 7531 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7532" class="LineNr"> 7532 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7533" class="LineNr"> 7533 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7534" class="LineNr"> 7534 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7535" class="LineNr"> 7535 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7536" class="LineNr"> 7536 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7537" class="LineNr"> 7537 </span> 68/push 0/imm32 -<span id="L7538" class="LineNr"> 7538 </span> 68/push 0/imm32 -<span id="L7539" class="LineNr"> 7539 </span> 89/<- %edx 4/r32/esp -<span id="L7540" class="LineNr"> 7540 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7541" class="LineNr"> 7541 </span> <span class="subxComment">#</span> -<span id="L7542" class="LineNr"> 7542 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7543" class="LineNr"> 7543 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L7544" class="LineNr"> 7544 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" add-to a, 0, 1\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">"}\n"</span>) -<span id="L7546" class="LineNr"> 7546 </span> <span class="subxComment"># convert</span> -<span id="L7547" class="LineNr"> 7547 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7548" class="LineNr"> 7548 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7549" class="LineNr"> 7549 </span> <span class="subxComment"># restore ed</span> -<span id="L7550" class="LineNr"> 7550 </span> 89/<- %edx 4/r32/esp -<span id="L7551" class="LineNr"> 7551 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7552" class="LineNr"> 7552 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7553" class="Folded"> 7553 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7559" class="LineNr"> 7559 </span> <span class="subxComment"># check output</span> -<span id="L7560" class="LineNr"> 7560 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7525'>test-add-with-too-many-inouts-2</a>: output should be empty"</span>) -<span id="L7561" class="LineNr"> 7561 </span> (<a href='109stream-equal.subx.html#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#L7525'>test-add-with-too-many-inouts-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7562" class="LineNr"> 7562 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7563" class="LineNr"> 7563 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7525'>test-add-with-too-many-inouts-2</a>: exit status"</span>) -<span id="L7564" class="LineNr"> 7564 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7565" class="LineNr"> 7565 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7084" class="LineNr"> 7084 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7085" class="LineNr"> 7085 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7086" class="LineNr"> 7086 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7087" class="LineNr"> 7087 </span> 68/push 0/imm32 +<span id="L7088" class="LineNr"> 7088 </span> 68/push 0/imm32 +<span id="L7089" class="LineNr"> 7089 </span> 89/<- %edx 4/r32/esp +<span id="L7090" class="LineNr"> 7090 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7091" class="LineNr"> 7091 </span> <span class="subxComment">#</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">"type t {\n"</span>) +<span id="L7093" class="LineNr"> 7093 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: (addr int)\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">"}\n"</span>) +<span id="L7095" class="LineNr"> 7095 </span> <span class="subxComment"># convert</span> +<span id="L7096" class="LineNr"> 7096 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7097" class="LineNr"> 7097 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7098" class="LineNr"> 7098 </span> <span class="subxComment"># restore ed</span> +<span id="L7099" class="LineNr"> 7099 </span> 89/<- %edx 4/r32/esp +<span id="L7100" class="LineNr"> 7100 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7101" class="LineNr"> 7101 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7102" class="Folded"> 7102 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7108" class="LineNr"> 7108 </span> <span class="subxComment"># check output</span> +<span id="L7109" class="LineNr"> 7109 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7075'>test-type-definition-with-addr</a>: output should be empty"</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#L438'>_test-error-stream</a> <span class="Constant">"type t: 'addr' elements not allowed"</span> <span class="Constant">"F - <a href='mu.subx.html#L7075'>test-type-definition-with-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7111" class="LineNr"> 7111 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7112" class="LineNr"> 7112 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7075'>test-type-definition-with-addr</a>: exit status"</span>) +<span id="L7113" class="LineNr"> 7113 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7114" class="LineNr"> 7114 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7115" class="LineNr"> 7115 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7116" class="LineNr"> 7116 </span> 5d/pop-to-ebp +<span id="L7117" class="LineNr"> 7117 </span> c3/return +<span id="L7118" class="LineNr"> 7118 </span> +<span id="L7119" class="LineNr"> 7119 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type</span>: +<span id="L7120" class="LineNr"> 7120 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7121" class="LineNr"> 7121 </span> 55/push-ebp +<span id="L7122" class="LineNr"> 7122 </span> 89/<- %ebp 4/r32/esp +<span id="L7123" class="LineNr"> 7123 </span> <span class="subxComment"># setup</span> +<span id="L7124" class="LineNr"> 7124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7125" class="LineNr"> 7125 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7126" class="LineNr"> 7126 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7127" class="LineNr"> 7127 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7128" class="LineNr"> 7128 </span> <span class="subxComment">#</span> +<span id="L7129" class="LineNr"> 7129 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7130" class="LineNr"> 7130 </span> (<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="L7131" class="LineNr"> 7131 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7132" class="LineNr"> 7132 </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="L7133" class="LineNr"> 7133 </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="L7134" class="LineNr"> 7134 </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="L7135" class="LineNr"> 7135 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7136" class="LineNr"> 7136 </span> <span class="subxComment"># convert</span> +<span id="L7137" class="LineNr"> 7137 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7138" class="LineNr"> 7138 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7139" class="Folded"> 7139 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7145" class="LineNr"> 7145 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7119'>test-convert-function-with-local-var-with-user-defined-type</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7119'>test-convert-function-with-local-var-with-user-defined-type</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7119'>test-convert-function-with-local-var-with-user-defined-type</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7119'>test-convert-function-with-local-var-with-user-defined-type</a>/4"</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">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7119'>test-convert-function-with-local-var-with-user-defined-type</a>/5"</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">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7119'>test-convert-function-with-local-var-with-user-defined-type</a>/6"</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">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7119'>test-convert-function-with-local-var-with-user-defined-type</a>/7"</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">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7119'>test-convert-function-with-local-var-with-user-defined-type</a>/8"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7119'>test-convert-function-with-local-var-with-user-defined-type</a>/9"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7119'>test-convert-function-with-local-var-with-user-defined-type</a>/10"</span>) +<span id="L7157" class="LineNr"> 7157 </span> (<a href='109stream-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="L7158" class="LineNr"> 7158 </span> (<a href='109stream-equal.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#L7119'>test-convert-function-with-local-var-with-user-defined-type</a>/12"</span>) +<span id="L7159" class="LineNr"> 7159 </span> (<a href='109stream-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#L7119'>test-convert-function-with-local-var-with-user-defined-type</a>/13"</span>) +<span id="L7160" class="LineNr"> 7160 </span> (<a href='109stream-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#L7119'>test-convert-function-with-local-var-with-user-defined-type</a>/14"</span>) +<span id="L7161" class="LineNr"> 7161 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7162" class="LineNr"> 7162 </span> 89/<- %esp 5/r32/ebp +<span id="L7163" class="LineNr"> 7163 </span> 5d/pop-to-ebp +<span id="L7164" class="LineNr"> 7164 </span> c3/return +<span id="L7165" class="LineNr"> 7165 </span> +<span id="L7166" class="LineNr"> 7166 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</span>: +<span id="L7167" class="LineNr"> 7167 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7168" class="LineNr"> 7168 </span> 55/push-ebp +<span id="L7169" class="LineNr"> 7169 </span> 89/<- %ebp 4/r32/esp +<span id="L7170" class="LineNr"> 7170 </span> <span class="subxComment"># setup</span> +<span id="L7171" class="LineNr"> 7171 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7172" class="LineNr"> 7172 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7173" class="LineNr"> 7173 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7174" class="LineNr"> 7174 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7175" class="LineNr"> 7175 </span> <span class="subxComment">#</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 {\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">" var a: t\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">"}\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">"type t {\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">" x: s\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> (<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="L7183" class="LineNr"> 7183 </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="L7184" class="LineNr"> 7184 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7185" class="LineNr"> 7185 </span> <span class="subxComment"># convert</span> +<span id="L7186" class="LineNr"> 7186 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7187" class="LineNr"> 7187 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7188" class="Folded"> 7188 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7194" class="LineNr"> 7194 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7166'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7166'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7166'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7166'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/4"</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">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7166'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/5"</span>) +<span id="L7201" class="LineNr"> 7201 </span> (<a href='109stream-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#L7166'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/7"</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">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7166'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/8"</span>) +<span id="L7203" class="LineNr"> 7203 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7166'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/9"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7166'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/10"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type/11"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7166'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/12"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7166'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/13"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7166'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/14"</span>) +<span id="L7209" class="LineNr"> 7209 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7210" class="LineNr"> 7210 </span> 89/<- %esp 5/r32/ebp +<span id="L7211" class="LineNr"> 7211 </span> 5d/pop-to-ebp +<span id="L7212" class="LineNr"> 7212 </span> c3/return +<span id="L7213" class="LineNr"> 7213 </span> +<span id="L7214" class="LineNr"> 7214 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type</span>: +<span id="L7215" class="LineNr"> 7215 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7216" class="LineNr"> 7216 </span> 55/push-ebp +<span id="L7217" class="LineNr"> 7217 </span> 89/<- %ebp 4/r32/esp +<span id="L7218" class="LineNr"> 7218 </span> <span class="subxComment"># setup</span> +<span id="L7219" class="LineNr"> 7219 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7220" class="LineNr"> 7220 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7221" class="LineNr"> 7221 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7222" class="LineNr"> 7222 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7223" class="LineNr"> 7223 </span> <span class="subxComment">#</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">"fn f {\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">" var a: t\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">" foo a\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> (<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="L7229" class="LineNr"> 7229 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7230" class="LineNr"> 7230 </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="L7231" class="LineNr"> 7231 </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="L7232" class="LineNr"> 7232 </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="L7233" class="LineNr"> 7233 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7234" class="LineNr"> 7234 </span> <span class="subxComment"># convert</span> +<span id="L7235" class="LineNr"> 7235 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7236" class="LineNr"> 7236 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7237" class="Folded"> 7237 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7243" class="LineNr"> 7243 </span> <span class="subxComment"># check output</span> +<span id="L7244" class="LineNr"> 7244 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</span>) +<span id="L7247" class="LineNr"> 7247 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</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">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) +<span id="L7250" class="LineNr"> 7250 </span> <span class="subxComment"># var a: t</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">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</span>) +<span id="L7252" class="LineNr"> 7252 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) +<span id="L7253" class="LineNr"> 7253 </span> <span class="subxComment"># foo a</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">" (foo *(ebp+0xfffffff8) *(ebp+0xfffffffc))"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) +<span id="L7255" class="LineNr"> 7255 </span> <span class="subxComment">#</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">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</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:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/12"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/17"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) +<span id="L7271" class="LineNr"> 7271 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7272" class="LineNr"> 7272 </span> 89/<- %esp 5/r32/ebp +<span id="L7273" class="LineNr"> 7273 </span> 5d/pop-to-ebp +<span id="L7274" class="LineNr"> 7274 </span> c3/return +<span id="L7275" class="LineNr"> 7275 </span> +<span id="L7276" class="LineNr"> 7276 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-register-indirect</span>: +<span id="L7277" class="LineNr"> 7277 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7278" class="LineNr"> 7278 </span> 55/push-ebp +<span id="L7279" class="LineNr"> 7279 </span> 89/<- %ebp 4/r32/esp +<span id="L7280" class="LineNr"> 7280 </span> <span class="subxComment"># setup</span> +<span id="L7281" class="LineNr"> 7281 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7282" class="LineNr"> 7282 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7283" class="LineNr"> 7283 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7284" class="LineNr"> 7284 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7285" class="LineNr"> 7285 </span> <span class="subxComment">#</span> +<span id="L7286" class="LineNr"> 7286 </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="L7287" class="LineNr"> 7287 </span> (<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="L7288" class="LineNr"> 7288 </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="L7289" class="LineNr"> 7289 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7290" class="LineNr"> 7290 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: t {\n"</span>) +<span id="L7291" class="LineNr"> 7291 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\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">"type 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">" x: int\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">" y: int\n"</span>) +<span id="L7295" class="LineNr"> 7295 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7296" class="LineNr"> 7296 </span> <span class="subxComment"># convert</span> +<span id="L7297" class="LineNr"> 7297 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7298" class="LineNr"> 7298 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7299" class="Folded"> 7299 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7305" class="LineNr"> 7305 </span> <span class="subxComment"># check output</span> +<span id="L7306" class="LineNr"> 7306 </span> (<a href='109stream-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#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</span>) +<span id="L7307" class="LineNr"> 7307 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</span>) +<span id="L7308" class="LineNr"> 7308 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</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">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) +<span id="L7312" class="LineNr"> 7312 </span> <span class="subxComment"># var a</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</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">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) +<span id="L7315" class="LineNr"> 7315 </span> <span class="subxComment"># foo 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">" (foo *(eax+0x00000000) *(eax+0x00000004))"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) +<span id="L7317" class="LineNr"> 7317 </span> <span class="subxComment">#</span> +<span id="L7318" class="LineNr"> 7318 </span> (<a href='109stream-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#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</span>) +<span id="L7320" class="LineNr"> 7320 </span> (<a href='109stream-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#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/12"</span>) +<span id="L7322" class="LineNr"> 7322 </span> (<a href='109stream-equal.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#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</span>) +<span id="L7324" class="LineNr"> 7324 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</span>) +<span id="L7325" class="LineNr"> 7325 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/17"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7214'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) +<span id="L7333" class="LineNr"> 7333 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7334" class="LineNr"> 7334 </span> 89/<- %esp 5/r32/ebp +<span id="L7335" class="LineNr"> 7335 </span> 5d/pop-to-ebp +<span id="L7336" class="LineNr"> 7336 </span> c3/return +<span id="L7337" class="LineNr"> 7337 </span> +<span id="L7338" class="LineNr"> 7338 </span><span class="subxComment"># we don't have special support for call-by-reference; just explicitly create</span> +<span id="L7339" class="LineNr"> 7339 </span><span class="subxComment"># a new variable with the address of the arg</span> +<span id="L7340" class="LineNr"> 7340 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-by-reference</span>: +<span id="L7341" class="LineNr"> 7341 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7342" class="LineNr"> 7342 </span> 55/push-ebp +<span id="L7343" class="LineNr"> 7343 </span> 89/<- %ebp 4/r32/esp +<span id="L7344" class="LineNr"> 7344 </span> <span class="subxComment"># setup</span> +<span id="L7345" class="LineNr"> 7345 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7346" class="LineNr"> 7346 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7347" class="LineNr"> 7347 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7348" class="LineNr"> 7348 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7349" class="LineNr"> 7349 </span> <span class="subxComment">#</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">"fn f {\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">" var a: t\n"</span>) +<span id="L7352" class="LineNr"> 7352 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr t) <- address a\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">" foo b\n"</span>) +<span id="L7354" class="LineNr"> 7354 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7355" class="LineNr"> 7355 </span> (<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="L7356" class="LineNr"> 7356 </span> (<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="L7357" class="LineNr"> 7357 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7358" class="LineNr"> 7358 </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="L7359" class="LineNr"> 7359 </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="L7360" class="LineNr"> 7360 </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="L7361" class="LineNr"> 7361 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7362" class="LineNr"> 7362 </span> <span class="subxComment"># convert</span> +<span id="L7363" class="LineNr"> 7363 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7364" class="LineNr"> 7364 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7365" class="Folded"> 7365 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7371" class="LineNr"> 7371 </span> <span class="subxComment"># check output</span> +<span id="L7372" class="LineNr"> 7372 </span> (<a href='109stream-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#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/1"</span>) +<span id="L7374" class="LineNr"> 7374 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/3"</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#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/4"</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">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/5"</span>) +<span id="L7378" class="LineNr"> 7378 </span> <span class="subxComment"># var a: t</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">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/6"</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">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/7"</span>) +<span id="L7381" class="LineNr"> 7381 </span> <span class="subxComment"># var b/eax: (addr t)</span> +<span id="L7382" class="LineNr"> 7382 </span> (<a href='109stream-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#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/8"</span>) +<span id="L7383" class="LineNr"> 7383 </span> (<a href='109stream-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#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/9"</span>) +<span id="L7384" class="LineNr"> 7384 </span> <span class="subxComment"># foo a</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">" (foo %eax)"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/10"</span>) +<span id="L7386" class="LineNr"> 7386 </span> <span class="subxComment">#</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">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/11"</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">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/12"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/13"</span>) +<span id="L7390" class="LineNr"> 7390 </span> (<a href='109stream-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#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/14"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/15"</span>) +<span id="L7392" class="LineNr"> 7392 </span> (<a href='109stream-equal.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#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/16"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/17"</span>) +<span id="L7394" class="LineNr"> 7394 </span> (<a href='109stream-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#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/18"</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/19"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/20"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/21"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/22"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/23"</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">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/24"</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">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/25"</span>) +<span id="L7402" class="LineNr"> 7402 </span> (<a href='109stream-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#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/26"</span>) +<span id="L7403" class="LineNr"> 7403 </span> (<a href='109stream-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#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/27"</span>) +<span id="L7404" class="LineNr"> 7404 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/28"</span>) +<span id="L7405" class="LineNr"> 7405 </span> (<a href='109stream-equal.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#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/29"</span>) +<span id="L7406" class="LineNr"> 7406 </span> (<a href='109stream-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="L7407" class="LineNr"> 7407 </span> (<a href='109stream-equal.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#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/31"</span>) +<span id="L7408" class="LineNr"> 7408 </span> (<a href='109stream-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#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/32"</span>) +<span id="L7409" class="LineNr"> 7409 </span> (<a href='109stream-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#L7340'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/33"</span>) +<span id="L7410" class="LineNr"> 7410 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7411" class="LineNr"> 7411 </span> 89/<- %esp 5/r32/ebp +<span id="L7412" class="LineNr"> 7412 </span> 5d/pop-to-ebp +<span id="L7413" class="LineNr"> 7413 </span> c3/return +<span id="L7414" class="LineNr"> 7414 </span> +<span id="L7415" class="LineNr"> 7415 </span><span class="subxTest">test-convert-get-on-local-variable</span>: +<span id="L7416" class="LineNr"> 7416 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7417" class="LineNr"> 7417 </span> 55/push-ebp +<span id="L7418" class="LineNr"> 7418 </span> 89/<- %ebp 4/r32/esp +<span id="L7419" class="LineNr"> 7419 </span> <span class="subxComment"># setup</span> +<span id="L7420" class="LineNr"> 7420 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7421" class="LineNr"> 7421 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7422" class="LineNr"> 7422 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7423" class="LineNr"> 7423 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7424" class="LineNr"> 7424 </span> <span class="subxComment">#</span> +<span id="L7425" class="LineNr"> 7425 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7426" class="LineNr"> 7426 </span> (<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="L7427" class="LineNr"> 7427 </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="L7428" class="LineNr"> 7428 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7429" class="LineNr"> 7429 </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="L7430" class="LineNr"> 7430 </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="L7431" class="LineNr"> 7431 </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="L7432" class="LineNr"> 7432 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7433" class="LineNr"> 7433 </span> <span class="subxComment"># convert</span> +<span id="L7434" class="LineNr"> 7434 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7435" class="LineNr"> 7435 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7436" class="Folded"> 7436 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7442" class="LineNr"> 7442 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7415'>test-convert-get-on-local-variable</a>/0"</span>) +<span id="L7444" class="LineNr"> 7444 </span> (<a href='109stream-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="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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7415'>test-convert-get-on-local-variable</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7415'>test-convert-get-on-local-variable</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7415'>test-convert-get-on-local-variable</a>/4"</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">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7415'>test-convert-get-on-local-variable</a>/5"</span>) +<span id="L7449" class="LineNr"> 7449 </span> <span class="subxComment"># var a</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">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7415'>test-convert-get-on-local-variable</a>/6"</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">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7415'>test-convert-get-on-local-variable</a>/7"</span>) +<span id="L7452" class="LineNr"> 7452 </span> <span class="subxComment"># var c</span> +<span id="L7453" class="LineNr"> 7453 </span> (<a href='109stream-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#L7415'>test-convert-get-on-local-variable</a>/8"</span>) +<span id="L7454" class="LineNr"> 7454 </span> <span class="subxComment"># get</span> +<span id="L7455" class="LineNr"> 7455 </span> (<a href='109stream-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#L7415'>test-convert-get-on-local-variable</a>/9"</span>) +<span id="L7456" class="LineNr"> 7456 </span> <span class="subxComment"># reclaim c</span> +<span id="L7457" class="LineNr"> 7457 </span> (<a href='109stream-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#L7415'>test-convert-get-on-local-variable</a>/10"</span>) +<span id="L7458" class="LineNr"> 7458 </span> <span class="subxComment"># reclaim a</span> +<span id="L7459" class="LineNr"> 7459 </span> (<a href='109stream-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#L7415'>test-convert-get-on-local-variable</a>/11"</span>) +<span id="L7460" class="LineNr"> 7460 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7415'>test-convert-get-on-local-variable</a>/12"</span>) +<span id="L7461" class="LineNr"> 7461 </span> (<a href='109stream-equal.subx.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#L7415'>test-convert-get-on-local-variable</a>/13"</span>) +<span id="L7462" class="LineNr"> 7462 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-local-variable/14"</span>) +<span id="L7463" class="LineNr"> 7463 </span> (<a href='109stream-equal.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#L7415'>test-convert-get-on-local-variable</a>/15"</span>) +<span id="L7464" class="LineNr"> 7464 </span> (<a href='109stream-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#L7415'>test-convert-get-on-local-variable</a>/16"</span>) +<span id="L7465" class="LineNr"> 7465 </span> (<a href='109stream-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#L7415'>test-convert-get-on-local-variable</a>/17"</span>) +<span id="L7466" class="LineNr"> 7466 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7467" class="LineNr"> 7467 </span> 89/<- %esp 5/r32/ebp +<span id="L7468" class="LineNr"> 7468 </span> 5d/pop-to-ebp +<span id="L7469" class="LineNr"> 7469 </span> c3/return +<span id="L7470" class="LineNr"> 7470 </span> +<span id="L7471" class="LineNr"> 7471 </span><span class="subxTest">test-convert-get-on-function-argument</span>: +<span id="L7472" class="LineNr"> 7472 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7473" class="LineNr"> 7473 </span> 55/push-ebp +<span id="L7474" class="LineNr"> 7474 </span> 89/<- %ebp 4/r32/esp +<span id="L7475" class="LineNr"> 7475 </span> <span class="subxComment"># setup</span> +<span id="L7476" class="LineNr"> 7476 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7477" class="LineNr"> 7477 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7478" class="LineNr"> 7478 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7479" class="LineNr"> 7479 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7480" class="LineNr"> 7480 </span> <span class="subxComment">#</span> +<span id="L7481" class="LineNr"> 7481 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: t {\n"</span>) +<span id="L7482" class="LineNr"> 7482 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L7483" class="LineNr"> 7483 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7484" class="LineNr"> 7484 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7485" class="LineNr"> 7485 </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="L7486" class="LineNr"> 7486 </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="L7487" class="LineNr"> 7487 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7488" class="LineNr"> 7488 </span> <span class="subxComment"># convert</span> +<span id="L7489" class="LineNr"> 7489 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7490" class="LineNr"> 7490 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7491" class="Folded"> 7491 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7497" class="LineNr"> 7497 </span> <span class="subxComment"># check output</span> +<span id="L7498" class="LineNr"> 7498 </span> (<a href='109stream-equal.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#L7471'>test-convert-get-on-function-argument</a>/0"</span>) +<span id="L7499" class="LineNr"> 7499 </span> (<a href='109stream-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="L7500" class="LineNr"> 7500 </span> (<a href='109stream-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#L7471'>test-convert-get-on-function-argument</a>/2"</span>) +<span id="L7501" class="LineNr"> 7501 </span> (<a href='109stream-equal.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#L7471'>test-convert-get-on-function-argument</a>/3"</span>) +<span id="L7502" class="LineNr"> 7502 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7471'>test-convert-get-on-function-argument</a>/4"</span>) +<span id="L7503" class="LineNr"> 7503 </span> (<a href='109stream-equal.subx.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#L7471'>test-convert-get-on-function-argument</a>/5"</span>) +<span id="L7504" class="LineNr"> 7504 </span> <span class="subxComment"># var c</span> +<span id="L7505" class="LineNr"> 7505 </span> (<a href='109stream-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#L7471'>test-convert-get-on-function-argument</a>/6"</span>) +<span id="L7506" class="LineNr"> 7506 </span> <span class="subxComment"># get</span> +<span id="L7507" class="LineNr"> 7507 </span> (<a href='109stream-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#L7471'>test-convert-get-on-function-argument</a>/7"</span>) +<span id="L7508" class="LineNr"> 7508 </span> <span class="subxComment"># reclaim c</span> +<span id="L7509" class="LineNr"> 7509 </span> (<a href='109stream-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#L7471'>test-convert-get-on-function-argument</a>/8"</span>) +<span id="L7510" class="LineNr"> 7510 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7471'>test-convert-get-on-function-argument</a>/9"</span>) +<span id="L7511" class="LineNr"> 7511 </span> (<a href='109stream-equal.subx.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#L7471'>test-convert-get-on-function-argument</a>/10"</span>) +<span id="L7512" class="LineNr"> 7512 </span> (<a href='109stream-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="L7513" class="LineNr"> 7513 </span> (<a href='109stream-equal.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#L7471'>test-convert-get-on-function-argument</a>/12"</span>) +<span id="L7514" class="LineNr"> 7514 </span> (<a href='109stream-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#L7471'>test-convert-get-on-function-argument</a>/13"</span>) +<span id="L7515" class="LineNr"> 7515 </span> (<a href='109stream-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#L7471'>test-convert-get-on-function-argument</a>/14"</span>) +<span id="L7516" class="LineNr"> 7516 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7517" class="LineNr"> 7517 </span> 89/<- %esp 5/r32/ebp +<span id="L7518" class="LineNr"> 7518 </span> 5d/pop-to-ebp +<span id="L7519" class="LineNr"> 7519 </span> c3/return +<span id="L7520" class="LineNr"> 7520 </span> +<span id="L7521" class="LineNr"> 7521 </span><span class="subxTest">test-convert-get-on-function-argument-with-known-type</span>: +<span id="L7522" class="LineNr"> 7522 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7523" class="LineNr"> 7523 </span> 55/push-ebp +<span id="L7524" class="LineNr"> 7524 </span> 89/<- %ebp 4/r32/esp +<span id="L7525" class="LineNr"> 7525 </span> <span class="subxComment"># setup</span> +<span id="L7526" class="LineNr"> 7526 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7527" class="LineNr"> 7527 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7528" class="LineNr"> 7528 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7529" class="LineNr"> 7529 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7530" class="LineNr"> 7530 </span> <span class="subxComment">#</span> +<span id="L7531" class="LineNr"> 7531 </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="L7532" class="LineNr"> 7532 </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="L7533" class="LineNr"> 7533 </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="L7534" class="LineNr"> 7534 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7535" class="LineNr"> 7535 </span> (<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="L7536" class="LineNr"> 7536 </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="L7537" class="LineNr"> 7537 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7538" class="LineNr"> 7538 </span> <span class="subxComment"># convert</span> +<span id="L7539" class="LineNr"> 7539 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7540" class="LineNr"> 7540 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7541" class="Folded"> 7541 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7547" class="LineNr"> 7547 </span> <span class="subxComment"># check output</span> +<span id="L7548" class="LineNr"> 7548 </span> (<a href='109stream-equal.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#L7521'>test-convert-get-on-function-argument-with-known-type</a>/0"</span>) +<span id="L7549" class="LineNr"> 7549 </span> (<a href='109stream-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="L7550" class="LineNr"> 7550 </span> (<a href='109stream-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#L7521'>test-convert-get-on-function-argument-with-known-type</a>/2"</span>) +<span id="L7551" class="LineNr"> 7551 </span> (<a href='109stream-equal.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#L7521'>test-convert-get-on-function-argument-with-known-type</a>/3"</span>) +<span id="L7552" class="LineNr"> 7552 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7521'>test-convert-get-on-function-argument-with-known-type</a>/4"</span>) +<span id="L7553" class="LineNr"> 7553 </span> (<a href='109stream-equal.subx.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#L7521'>test-convert-get-on-function-argument-with-known-type</a>/5"</span>) +<span id="L7554" class="LineNr"> 7554 </span> <span class="subxComment"># var c</span> +<span id="L7555" class="LineNr"> 7555 </span> (<a href='109stream-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#L7521'>test-convert-get-on-function-argument-with-known-type</a>/6"</span>) +<span id="L7556" class="LineNr"> 7556 </span> <span class="subxComment"># get</span> +<span id="L7557" class="LineNr"> 7557 </span> (<a href='109stream-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#L7521'>test-convert-get-on-function-argument-with-known-type</a>/7"</span>) +<span id="L7558" class="LineNr"> 7558 </span> <span class="subxComment"># reclaim c</span> +<span id="L7559" class="LineNr"> 7559 </span> (<a href='109stream-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#L7521'>test-convert-get-on-function-argument-with-known-type</a>/8"</span>) +<span id="L7560" class="LineNr"> 7560 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7521'>test-convert-get-on-function-argument-with-known-type</a>/9"</span>) +<span id="L7561" class="LineNr"> 7561 </span> (<a href='109stream-equal.subx.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#L7521'>test-convert-get-on-function-argument-with-known-type</a>/10"</span>) +<span id="L7562" class="LineNr"> 7562 </span> (<a href='109stream-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="L7563" class="LineNr"> 7563 </span> (<a href='109stream-equal.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#L7521'>test-convert-get-on-function-argument-with-known-type</a>/12"</span>) +<span id="L7564" class="LineNr"> 7564 </span> (<a href='109stream-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#L7521'>test-convert-get-on-function-argument-with-known-type</a>/13"</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#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7521'>test-convert-get-on-function-argument-with-known-type</a>/14"</span>) <span id="L7566" class="LineNr"> 7566 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7567" class="LineNr"> 7567 </span> 5d/pop-to-ebp -<span id="L7568" class="LineNr"> 7568 </span> c3/return -<span id="L7569" class="LineNr"> 7569 </span> -<span id="L7570" class="LineNr"> 7570 </span><span class="subxTest">test-add-with-too-many-outputs</span>: -<span id="L7571" class="LineNr"> 7571 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7572" class="LineNr"> 7572 </span> 55/push-ebp -<span id="L7573" class="LineNr"> 7573 </span> 89/<- %ebp 4/r32/esp -<span id="L7574" class="LineNr"> 7574 </span> <span class="subxComment"># setup</span> -<span id="L7575" class="LineNr"> 7575 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7576" class="LineNr"> 7576 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7577" class="LineNr"> 7577 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7578" class="LineNr"> 7578 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7579" class="LineNr"> 7579 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7580" class="LineNr"> 7580 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7581" class="LineNr"> 7581 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7582" class="LineNr"> 7582 </span> 68/push 0/imm32 +<span id="L7567" class="LineNr"> 7567 </span> 89/<- %esp 5/r32/ebp +<span id="L7568" class="LineNr"> 7568 </span> 5d/pop-to-ebp +<span id="L7569" class="LineNr"> 7569 </span> c3/return +<span id="L7570" class="LineNr"> 7570 </span> +<span id="L7571" class="LineNr"> 7571 </span><span class="subxTest">test-add-with-too-many-inouts</span>: +<span id="L7572" class="LineNr"> 7572 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7573" class="LineNr"> 7573 </span> 55/push-ebp +<span id="L7574" class="LineNr"> 7574 </span> 89/<- %ebp 4/r32/esp +<span id="L7575" class="LineNr"> 7575 </span> <span class="subxComment"># setup</span> +<span id="L7576" class="LineNr"> 7576 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7577" class="LineNr"> 7577 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7578" class="LineNr"> 7578 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7579" class="LineNr"> 7579 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7580" class="LineNr"> 7580 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7581" class="LineNr"> 7581 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7582" class="LineNr"> 7582 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <span id="L7583" class="LineNr"> 7583 </span> 68/push 0/imm32 -<span id="L7584" class="LineNr"> 7584 </span> 89/<- %edx 4/r32/esp -<span id="L7585" class="LineNr"> 7585 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7586" class="LineNr"> 7586 </span> <span class="subxComment">#</span> -<span id="L7587" class="LineNr"> 7587 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7588" class="LineNr"> 7588 </span> (<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="L7589" class="LineNr"> 7589 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ebx: int <- copy 0\n"</span>) -<span id="L7590" class="LineNr"> 7590 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- copy 0\n"</span>) -<span id="L7591" class="LineNr"> 7591 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" c, b <- add a\n"</span>) -<span id="L7592" class="LineNr"> 7592 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7593" class="LineNr"> 7593 </span> <span class="subxComment"># convert</span> -<span id="L7594" class="LineNr"> 7594 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7595" class="LineNr"> 7595 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7596" class="LineNr"> 7596 </span> <span class="subxComment"># restore ed</span> -<span id="L7597" class="LineNr"> 7597 </span> 89/<- %edx 4/r32/esp -<span id="L7598" class="LineNr"> 7598 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7599" class="LineNr"> 7599 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7600" class="Folded"> 7600 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7606" class="LineNr"> 7606 </span> <span class="subxComment"># check output</span> -<span id="L7607" class="LineNr"> 7607 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7570'>test-add-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L7608" class="LineNr"> 7608 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: too many outputs; most primitives support at most one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7570'>test-add-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7609" class="LineNr"> 7609 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7610" class="LineNr"> 7610 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7570'>test-add-with-too-many-outputs</a>: exit status"</span>) -<span id="L7611" class="LineNr"> 7611 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7612" class="LineNr"> 7612 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7613" class="LineNr"> 7613 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7614" class="LineNr"> 7614 </span> 5d/pop-to-ebp -<span id="L7615" class="LineNr"> 7615 </span> c3/return -<span id="L7616" class="LineNr"> 7616 </span> -<span id="L7617" class="LineNr"> 7617 </span><span class="subxTest">test-add-with-non-number</span>: -<span id="L7618" class="LineNr"> 7618 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7619" class="LineNr"> 7619 </span> 55/push-ebp -<span id="L7620" class="LineNr"> 7620 </span> 89/<- %ebp 4/r32/esp -<span id="L7621" class="LineNr"> 7621 </span> <span class="subxComment"># setup</span> -<span id="L7622" class="LineNr"> 7622 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7623" class="LineNr"> 7623 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7624" class="LineNr"> 7624 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7625" class="LineNr"> 7625 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7626" class="LineNr"> 7626 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7627" class="LineNr"> 7627 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7628" class="LineNr"> 7628 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7584" class="LineNr"> 7584 </span> 68/push 0/imm32 +<span id="L7585" class="LineNr"> 7585 </span> 89/<- %edx 4/r32/esp +<span id="L7586" class="LineNr"> 7586 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7587" class="LineNr"> 7587 </span> <span class="subxComment">#</span> +<span id="L7588" class="LineNr"> 7588 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7589" class="LineNr"> 7589 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L7590" class="LineNr"> 7590 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: int <- add a, 0\n"</span>) +<span id="L7591" class="LineNr"> 7591 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7592" class="LineNr"> 7592 </span> <span class="subxComment"># convert</span> +<span id="L7593" class="LineNr"> 7593 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7594" class="LineNr"> 7594 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7595" class="LineNr"> 7595 </span> <span class="subxComment"># restore ed</span> +<span id="L7596" class="LineNr"> 7596 </span> 89/<- %edx 4/r32/esp +<span id="L7597" class="LineNr"> 7597 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7598" class="LineNr"> 7598 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7599" class="Folded"> 7599 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7605" class="LineNr"> 7605 </span> <span class="subxComment"># check output</span> +<span id="L7606" class="LineNr"> 7606 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7571'>test-add-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L7607" class="LineNr"> 7607 </span> (<a href='109stream-equal.subx.html#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#L7571'>test-add-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7608" class="LineNr"> 7608 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7609" class="LineNr"> 7609 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7571'>test-add-with-too-many-inouts</a>: exit status"</span>) +<span id="L7610" class="LineNr"> 7610 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7611" class="LineNr"> 7611 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7612" class="LineNr"> 7612 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7613" class="LineNr"> 7613 </span> 5d/pop-to-ebp +<span id="L7614" class="LineNr"> 7614 </span> c3/return +<span id="L7615" class="LineNr"> 7615 </span> +<span id="L7616" class="LineNr"> 7616 </span><span class="subxTest">test-add-with-too-many-inouts-2</span>: +<span id="L7617" class="LineNr"> 7617 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7618" class="LineNr"> 7618 </span> 55/push-ebp +<span id="L7619" class="LineNr"> 7619 </span> 89/<- %ebp 4/r32/esp +<span id="L7620" class="LineNr"> 7620 </span> <span class="subxComment"># setup</span> +<span id="L7621" class="LineNr"> 7621 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7622" class="LineNr"> 7622 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7623" class="LineNr"> 7623 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7624" class="LineNr"> 7624 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7625" class="LineNr"> 7625 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7626" class="LineNr"> 7626 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7627" class="LineNr"> 7627 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7628" class="LineNr"> 7628 </span> 68/push 0/imm32 <span id="L7629" class="LineNr"> 7629 </span> 68/push 0/imm32 -<span id="L7630" class="LineNr"> 7630 </span> 68/push 0/imm32 -<span id="L7631" class="LineNr"> 7631 </span> 89/<- %edx 4/r32/esp -<span id="L7632" class="LineNr"> 7632 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7633" class="LineNr"> 7633 </span> <span class="subxComment">#</span> -<span id="L7634" class="LineNr"> 7634 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7635" class="LineNr"> 7635 </span> (<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="L7636" class="LineNr"> 7636 </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="L7637" class="LineNr"> 7637 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7638" class="LineNr"> 7638 </span> <span class="subxComment"># convert</span> -<span id="L7639" class="LineNr"> 7639 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7640" class="LineNr"> 7640 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7641" class="LineNr"> 7641 </span> <span class="subxComment"># restore ed</span> -<span id="L7642" class="LineNr"> 7642 </span> 89/<- %edx 4/r32/esp -<span id="L7643" class="LineNr"> 7643 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7644" class="LineNr"> 7644 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7645" class="Folded"> 7645 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7651" class="LineNr"> 7651 </span> <span class="subxComment"># check output</span> -<span id="L7652" class="LineNr"> 7652 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7617'>test-add-with-non-number</a>: output should be empty"</span>) -<span id="L7653" class="LineNr"> 7653 </span> (<a href='109stream-equal.subx.html#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#L7617'>test-add-with-non-number</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7654" class="LineNr"> 7654 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7655" class="LineNr"> 7655 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7617'>test-add-with-non-number</a>: exit status"</span>) -<span id="L7656" class="LineNr"> 7656 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7657" class="LineNr"> 7657 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7658" class="LineNr"> 7658 </span> <span class="subxS1Comment"># . epilogue</span> -<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-add-with-addr-dereferenced</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> <span class="subxComment">#</span> -<span id="L7672" class="LineNr"> 7672 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7673" class="LineNr"> 7673 </span> (<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="L7674" class="LineNr"> 7674 </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="L7675" class="LineNr"> 7675 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7676" class="LineNr"> 7676 </span> <span class="subxComment"># convert</span> -<span id="L7677" class="LineNr"> 7677 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7678" class="LineNr"> 7678 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7679" class="LineNr"> 7679 </span> <span class="subxComment"># no error</span> -<span id="L7680" class="LineNr"> 7680 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7681" class="LineNr"> 7681 </span> 89/<- %esp 5/r32/ebp -<span id="L7682" class="LineNr"> 7682 </span> 5d/pop-to-ebp -<span id="L7683" class="LineNr"> 7683 </span> c3/return -<span id="L7684" class="LineNr"> 7684 </span> -<span id="L7685" class="LineNr"> 7685 </span><span class="subxTest">test-copy-with-no-inout</span>: -<span id="L7686" class="LineNr"> 7686 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7687" class="LineNr"> 7687 </span> 55/push-ebp -<span id="L7688" class="LineNr"> 7688 </span> 89/<- %ebp 4/r32/esp -<span id="L7689" class="LineNr"> 7689 </span> <span class="subxComment"># setup</span> -<span id="L7690" class="LineNr"> 7690 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7691" class="LineNr"> 7691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7692" class="LineNr"> 7692 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7693" class="LineNr"> 7693 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7694" class="LineNr"> 7694 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7695" class="LineNr"> 7695 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7696" class="LineNr"> 7696 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7697" class="LineNr"> 7697 </span> 68/push 0/imm32 -<span id="L7698" class="LineNr"> 7698 </span> 68/push 0/imm32 -<span id="L7699" class="LineNr"> 7699 </span> 89/<- %edx 4/r32/esp -<span id="L7700" class="LineNr"> 7700 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7701" class="LineNr"> 7701 </span> <span class="subxComment">#</span> -<span id="L7702" class="LineNr"> 7702 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7703" class="LineNr"> 7703 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy\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">"}\n"</span>) -<span id="L7705" class="LineNr"> 7705 </span> <span class="subxComment"># convert</span> -<span id="L7706" class="LineNr"> 7706 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7707" class="LineNr"> 7707 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7708" class="LineNr"> 7708 </span> <span class="subxComment"># restore ed</span> -<span id="L7709" class="LineNr"> 7709 </span> 89/<- %edx 4/r32/esp -<span id="L7710" class="LineNr"> 7710 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7711" class="LineNr"> 7711 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7712" class="Folded"> 7712 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7718" class="LineNr"> 7718 </span> <span class="subxComment"># check output</span> -<span id="L7719" class="LineNr"> 7719 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7685'>test-copy-with-no-inout</a>: output should be empty"</span>) -<span id="L7720" class="LineNr"> 7720 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L7685'>test-copy-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7721" class="LineNr"> 7721 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7722" class="LineNr"> 7722 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7685'>test-copy-with-no-inout</a>: exit status"</span>) -<span id="L7723" class="LineNr"> 7723 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7724" class="LineNr"> 7724 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7725" class="LineNr"> 7725 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7726" class="LineNr"> 7726 </span> 5d/pop-to-ebp -<span id="L7727" class="LineNr"> 7727 </span> c3/return -<span id="L7728" class="LineNr"> 7728 </span> -<span id="L7729" class="LineNr"> 7729 </span><span class="subxTest">test-copy-with-multiple-inouts</span>: -<span id="L7730" class="LineNr"> 7730 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7731" class="LineNr"> 7731 </span> 55/push-ebp -<span id="L7732" class="LineNr"> 7732 </span> 89/<- %ebp 4/r32/esp -<span id="L7733" class="LineNr"> 7733 </span> <span class="subxComment"># setup</span> -<span id="L7734" class="LineNr"> 7734 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7735" class="LineNr"> 7735 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7736" class="LineNr"> 7736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7737" class="LineNr"> 7737 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7738" class="LineNr"> 7738 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7739" class="LineNr"> 7739 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7740" class="LineNr"> 7740 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7741" class="LineNr"> 7741 </span> 68/push 0/imm32 -<span id="L7742" class="LineNr"> 7742 </span> 68/push 0/imm32 -<span id="L7743" class="LineNr"> 7743 </span> 89/<- %edx 4/r32/esp -<span id="L7744" class="LineNr"> 7744 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7745" class="LineNr"> 7745 </span> <span class="subxComment">#</span> -<span id="L7746" class="LineNr"> 7746 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7747" class="LineNr"> 7747 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0, 0\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">"}\n"</span>) -<span id="L7749" class="LineNr"> 7749 </span> <span class="subxComment"># convert</span> -<span id="L7750" class="LineNr"> 7750 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7751" class="LineNr"> 7751 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7752" class="LineNr"> 7752 </span> <span class="subxComment"># restore ed</span> -<span id="L7753" class="LineNr"> 7753 </span> 89/<- %edx 4/r32/esp -<span id="L7754" class="LineNr"> 7754 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7755" class="LineNr"> 7755 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7756" class="Folded"> 7756 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7762" class="LineNr"> 7762 </span> <span class="subxComment"># check output</span> -<span id="L7763" class="LineNr"> 7763 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7729'>test-copy-with-multiple-inouts</a>: output should be empty"</span>) -<span id="L7764" class="LineNr"> 7764 </span> (<a href='109stream-equal.subx.html#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#L7729'>test-copy-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7765" class="LineNr"> 7765 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7766" class="LineNr"> 7766 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7729'>test-copy-with-multiple-inouts</a>: exit status"</span>) -<span id="L7767" class="LineNr"> 7767 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7768" class="LineNr"> 7768 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7769" class="LineNr"> 7769 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7770" class="LineNr"> 7770 </span> 5d/pop-to-ebp -<span id="L7771" class="LineNr"> 7771 </span> c3/return -<span id="L7772" class="LineNr"> 7772 </span> -<span id="L7773" class="LineNr"> 7773 </span><span class="subxTest">test-copy-with-no-output</span>: -<span id="L7774" class="LineNr"> 7774 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7775" class="LineNr"> 7775 </span> 55/push-ebp -<span id="L7776" class="LineNr"> 7776 </span> 89/<- %ebp 4/r32/esp -<span id="L7777" class="LineNr"> 7777 </span> <span class="subxComment"># setup</span> -<span id="L7778" class="LineNr"> 7778 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7779" class="LineNr"> 7779 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7780" class="LineNr"> 7780 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7781" class="LineNr"> 7781 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7782" class="LineNr"> 7782 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7783" class="LineNr"> 7783 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7784" class="LineNr"> 7784 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7785" class="LineNr"> 7785 </span> 68/push 0/imm32 -<span id="L7786" class="LineNr"> 7786 </span> 68/push 0/imm32 -<span id="L7787" class="LineNr"> 7787 </span> 89/<- %edx 4/r32/esp -<span id="L7788" class="LineNr"> 7788 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7789" class="LineNr"> 7789 </span> <span class="subxComment">#</span> -<span id="L7790" class="LineNr"> 7790 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7791" class="LineNr"> 7791 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy 0\n"</span>) -<span id="L7792" class="LineNr"> 7792 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7793" class="LineNr"> 7793 </span> <span class="subxComment"># convert</span> -<span id="L7794" class="LineNr"> 7794 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7795" class="LineNr"> 7795 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7796" class="LineNr"> 7796 </span> <span class="subxComment"># restore ed</span> -<span id="L7797" class="LineNr"> 7797 </span> 89/<- %edx 4/r32/esp -<span id="L7798" class="LineNr"> 7798 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7799" class="LineNr"> 7799 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7800" class="Folded"> 7800 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7806" class="LineNr"> 7806 </span> <span class="subxComment"># check output</span> -<span id="L7807" class="LineNr"> 7807 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7773'>test-copy-with-no-output</a>: output should be empty"</span>) -<span id="L7808" class="LineNr"> 7808 </span> (<a href='109stream-equal.subx.html#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#L7773'>test-copy-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7809" class="LineNr"> 7809 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7810" class="LineNr"> 7810 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7773'>test-copy-with-no-output</a>: exit status"</span>) -<span id="L7811" class="LineNr"> 7811 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7812" class="LineNr"> 7812 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7813" class="LineNr"> 7813 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7814" class="LineNr"> 7814 </span> 5d/pop-to-ebp -<span id="L7815" class="LineNr"> 7815 </span> c3/return -<span id="L7816" class="LineNr"> 7816 </span> -<span id="L7817" class="LineNr"> 7817 </span><span class="subxTest">test-copy-with-multiple-outputs</span>: -<span id="L7818" class="LineNr"> 7818 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7819" class="LineNr"> 7819 </span> 55/push-ebp -<span id="L7820" class="LineNr"> 7820 </span> 89/<- %ebp 4/r32/esp -<span id="L7821" class="LineNr"> 7821 </span> <span class="subxComment"># setup</span> -<span id="L7822" class="LineNr"> 7822 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7823" class="LineNr"> 7823 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7824" class="LineNr"> 7824 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7825" class="LineNr"> 7825 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7826" class="LineNr"> 7826 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7827" class="LineNr"> 7827 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7828" class="LineNr"> 7828 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7829" class="LineNr"> 7829 </span> 68/push 0/imm32 -<span id="L7830" class="LineNr"> 7830 </span> 68/push 0/imm32 -<span id="L7831" class="LineNr"> 7831 </span> 89/<- %edx 4/r32/esp -<span id="L7832" class="LineNr"> 7832 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7833" class="LineNr"> 7833 </span> <span class="subxComment">#</span> -<span id="L7834" class="LineNr"> 7834 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7835" class="LineNr"> 7835 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L7836" class="LineNr"> 7836 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) -<span id="L7837" class="LineNr"> 7837 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x, y <- copy 0\n"</span>) -<span id="L7838" class="LineNr"> 7838 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7839" class="LineNr"> 7839 </span> <span class="subxComment"># convert</span> -<span id="L7840" class="LineNr"> 7840 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7841" class="LineNr"> 7841 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7842" class="LineNr"> 7842 </span> <span class="subxComment"># restore ed</span> -<span id="L7843" class="LineNr"> 7843 </span> 89/<- %edx 4/r32/esp -<span id="L7844" class="LineNr"> 7844 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7845" class="LineNr"> 7845 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7846" class="Folded"> 7846 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7852" class="LineNr"> 7852 </span> <span class="subxComment"># check output</span> -<span id="L7853" class="LineNr"> 7853 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7817'>test-copy-with-multiple-outputs</a>: output should be empty"</span>) -<span id="L7854" class="LineNr"> 7854 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7817'>test-copy-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7855" class="LineNr"> 7855 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7856" class="LineNr"> 7856 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7817'>test-copy-with-multiple-outputs</a>: exit status"</span>) -<span id="L7857" class="LineNr"> 7857 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7858" class="LineNr"> 7858 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7859" class="LineNr"> 7859 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7860" class="LineNr"> 7860 </span> 5d/pop-to-ebp -<span id="L7861" class="LineNr"> 7861 </span> c3/return -<span id="L7862" class="LineNr"> 7862 </span> -<span id="L7863" class="LineNr"> 7863 </span><span class="subxTest">test-copy-invalid-value-to-address</span>: -<span id="L7864" class="LineNr"> 7864 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7865" class="LineNr"> 7865 </span> 55/push-ebp -<span id="L7866" class="LineNr"> 7866 </span> 89/<- %ebp 4/r32/esp -<span id="L7867" class="LineNr"> 7867 </span> <span class="subxComment"># setup</span> -<span id="L7868" class="LineNr"> 7868 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7869" class="LineNr"> 7869 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7870" class="LineNr"> 7870 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7871" class="LineNr"> 7871 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7872" class="LineNr"> 7872 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7873" class="LineNr"> 7873 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7874" class="LineNr"> 7874 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7875" class="LineNr"> 7875 </span> 68/push 0/imm32 +<span id="L7630" class="LineNr"> 7630 </span> 89/<- %edx 4/r32/esp +<span id="L7631" class="LineNr"> 7631 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7632" class="LineNr"> 7632 </span> <span class="subxComment">#</span> +<span id="L7633" class="LineNr"> 7633 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7634" class="LineNr"> 7634 </span> (<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="L7635" class="LineNr"> 7635 </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="L7636" class="LineNr"> 7636 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7637" class="LineNr"> 7637 </span> <span class="subxComment"># convert</span> +<span id="L7638" class="LineNr"> 7638 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7639" class="LineNr"> 7639 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7640" class="LineNr"> 7640 </span> <span class="subxComment"># restore ed</span> +<span id="L7641" class="LineNr"> 7641 </span> 89/<- %edx 4/r32/esp +<span id="L7642" class="LineNr"> 7642 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7643" class="LineNr"> 7643 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7644" class="Folded"> 7644 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7650" class="LineNr"> 7650 </span> <span class="subxComment"># check output</span> +<span id="L7651" class="LineNr"> 7651 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7616'>test-add-with-too-many-inouts-2</a>: output should be empty"</span>) +<span id="L7652" class="LineNr"> 7652 </span> (<a href='109stream-equal.subx.html#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#L7616'>test-add-with-too-many-inouts-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7653" class="LineNr"> 7653 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7654" class="LineNr"> 7654 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7616'>test-add-with-too-many-inouts-2</a>: exit status"</span>) +<span id="L7655" class="LineNr"> 7655 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7656" class="LineNr"> 7656 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7657" class="LineNr"> 7657 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7658" class="LineNr"> 7658 </span> 5d/pop-to-ebp +<span id="L7659" class="LineNr"> 7659 </span> c3/return +<span id="L7660" class="LineNr"> 7660 </span> +<span id="L7661" class="LineNr"> 7661 </span><span class="subxTest">test-add-with-too-many-outputs</span>: +<span id="L7662" class="LineNr"> 7662 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7663" class="LineNr"> 7663 </span> 55/push-ebp +<span id="L7664" class="LineNr"> 7664 </span> 89/<- %ebp 4/r32/esp +<span id="L7665" class="LineNr"> 7665 </span> <span class="subxComment"># setup</span> +<span id="L7666" class="LineNr"> 7666 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7667" class="LineNr"> 7667 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7668" class="LineNr"> 7668 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7669" class="LineNr"> 7669 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7670" class="LineNr"> 7670 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7671" class="LineNr"> 7671 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7672" class="LineNr"> 7672 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7673" class="LineNr"> 7673 </span> 68/push 0/imm32 +<span id="L7674" class="LineNr"> 7674 </span> 68/push 0/imm32 +<span id="L7675" class="LineNr"> 7675 </span> 89/<- %edx 4/r32/esp +<span id="L7676" class="LineNr"> 7676 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7677" class="LineNr"> 7677 </span> <span class="subxComment">#</span> +<span id="L7678" class="LineNr"> 7678 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</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">" var a/eax: int <- copy 0\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 b/ebx: int <- copy 0\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">" var c/ecx: int <- copy 0\n"</span>) +<span id="L7682" class="LineNr"> 7682 </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="L7683" class="LineNr"> 7683 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7684" class="LineNr"> 7684 </span> <span class="subxComment"># convert</span> +<span id="L7685" class="LineNr"> 7685 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7686" class="LineNr"> 7686 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7687" class="LineNr"> 7687 </span> <span class="subxComment"># restore ed</span> +<span id="L7688" class="LineNr"> 7688 </span> 89/<- %edx 4/r32/esp +<span id="L7689" class="LineNr"> 7689 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7690" class="LineNr"> 7690 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7691" class="Folded"> 7691 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7697" class="LineNr"> 7697 </span> <span class="subxComment"># check output</span> +<span id="L7698" class="LineNr"> 7698 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7661'>test-add-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L7699" class="LineNr"> 7699 </span> (<a href='109stream-equal.subx.html#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#L7661'>test-add-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7700" class="LineNr"> 7700 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7701" class="LineNr"> 7701 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7661'>test-add-with-too-many-outputs</a>: exit status"</span>) +<span id="L7702" class="LineNr"> 7702 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7703" class="LineNr"> 7703 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7704" class="LineNr"> 7704 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7705" class="LineNr"> 7705 </span> 5d/pop-to-ebp +<span id="L7706" class="LineNr"> 7706 </span> c3/return +<span id="L7707" class="LineNr"> 7707 </span> +<span id="L7708" class="LineNr"> 7708 </span><span class="subxTest">test-add-with-non-number</span>: +<span id="L7709" class="LineNr"> 7709 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7710" class="LineNr"> 7710 </span> 55/push-ebp +<span id="L7711" class="LineNr"> 7711 </span> 89/<- %ebp 4/r32/esp +<span id="L7712" class="LineNr"> 7712 </span> <span class="subxComment"># setup</span> +<span id="L7713" class="LineNr"> 7713 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7714" class="LineNr"> 7714 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-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#L287'>_test-output-stream</a>) +<span id="L7716" class="LineNr"> 7716 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7717" class="LineNr"> 7717 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7718" class="LineNr"> 7718 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7719" class="LineNr"> 7719 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7720" class="LineNr"> 7720 </span> 68/push 0/imm32 +<span id="L7721" class="LineNr"> 7721 </span> 68/push 0/imm32 +<span id="L7722" class="LineNr"> 7722 </span> 89/<- %edx 4/r32/esp +<span id="L7723" class="LineNr"> 7723 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7724" class="LineNr"> 7724 </span> <span class="subxComment">#</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">"fn foo {\n"</span>) +<span id="L7726" class="LineNr"> 7726 </span> (<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="L7727" class="LineNr"> 7727 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: (addr int) <- add a\n"</span>) +<span id="L7728" class="LineNr"> 7728 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7729" class="LineNr"> 7729 </span> <span class="subxComment"># convert</span> +<span id="L7730" class="LineNr"> 7730 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7731" class="LineNr"> 7731 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7732" class="LineNr"> 7732 </span> <span class="subxComment"># restore ed</span> +<span id="L7733" class="LineNr"> 7733 </span> 89/<- %edx 4/r32/esp +<span id="L7734" class="LineNr"> 7734 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7735" class="LineNr"> 7735 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7736" class="Folded"> 7736 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7742" class="LineNr"> 7742 </span> <span class="subxComment"># check output</span> +<span id="L7743" class="LineNr"> 7743 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7708'>test-add-with-non-number</a>: output should be empty"</span>) +<span id="L7744" class="LineNr"> 7744 </span> (<a href='109stream-equal.subx.html#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#L7708'>test-add-with-non-number</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7745" class="LineNr"> 7745 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7746" class="LineNr"> 7746 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7708'>test-add-with-non-number</a>: exit status"</span>) +<span id="L7747" class="LineNr"> 7747 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7748" class="LineNr"> 7748 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7749" class="LineNr"> 7749 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7750" class="LineNr"> 7750 </span> 5d/pop-to-ebp +<span id="L7751" class="LineNr"> 7751 </span> c3/return +<span id="L7752" class="LineNr"> 7752 </span> +<span id="L7753" class="LineNr"> 7753 </span><span class="subxTest">test-add-with-addr-dereferenced</span>: +<span id="L7754" class="LineNr"> 7754 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7755" class="LineNr"> 7755 </span> 55/push-ebp +<span id="L7756" class="LineNr"> 7756 </span> 89/<- %ebp 4/r32/esp +<span id="L7757" class="LineNr"> 7757 </span> <span class="subxComment"># setup</span> +<span id="L7758" class="LineNr"> 7758 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7759" class="LineNr"> 7759 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7760" class="LineNr"> 7760 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7761" class="LineNr"> 7761 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7762" class="LineNr"> 7762 </span> <span class="subxComment">#</span> +<span id="L7763" class="LineNr"> 7763 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7764" class="LineNr"> 7764 </span> (<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="L7765" class="LineNr"> 7765 </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="L7766" class="LineNr"> 7766 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7767" class="LineNr"> 7767 </span> <span class="subxComment"># convert</span> +<span id="L7768" class="LineNr"> 7768 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7769" class="LineNr"> 7769 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7770" class="LineNr"> 7770 </span> <span class="subxComment"># no error</span> +<span id="L7771" class="LineNr"> 7771 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7772" class="LineNr"> 7772 </span> 89/<- %esp 5/r32/ebp +<span id="L7773" class="LineNr"> 7773 </span> 5d/pop-to-ebp +<span id="L7774" class="LineNr"> 7774 </span> c3/return +<span id="L7775" class="LineNr"> 7775 </span> +<span id="L7776" class="LineNr"> 7776 </span><span class="subxTest">test-copy-with-no-inout</span>: +<span id="L7777" class="LineNr"> 7777 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7778" class="LineNr"> 7778 </span> 55/push-ebp +<span id="L7779" class="LineNr"> 7779 </span> 89/<- %ebp 4/r32/esp +<span id="L7780" class="LineNr"> 7780 </span> <span class="subxComment"># setup</span> +<span id="L7781" class="LineNr"> 7781 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7782" class="LineNr"> 7782 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-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#L287'>_test-output-stream</a>) +<span id="L7784" class="LineNr"> 7784 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7785" class="LineNr"> 7785 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7786" class="LineNr"> 7786 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7787" class="LineNr"> 7787 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7788" class="LineNr"> 7788 </span> 68/push 0/imm32 +<span id="L7789" class="LineNr"> 7789 </span> 68/push 0/imm32 +<span id="L7790" class="LineNr"> 7790 </span> 89/<- %edx 4/r32/esp +<span id="L7791" class="LineNr"> 7791 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7792" class="LineNr"> 7792 </span> <span class="subxComment">#</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">"fn foo {\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">" var x/eax: boolean <- copy\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#L7776'>test-copy-with-no-inout</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' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L7776'>test-copy-with-no-inout</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#L7776'>test-copy-with-no-inout</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-with-multiple-inouts</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: boolean <- copy 0, 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">"}\n"</span>) +<span id="L7840" class="LineNr"> 7840 </span> <span class="subxComment"># convert</span> +<span id="L7841" class="LineNr"> 7841 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7842" class="LineNr"> 7842 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7843" class="LineNr"> 7843 </span> <span class="subxComment"># restore ed</span> +<span id="L7844" class="LineNr"> 7844 </span> 89/<- %edx 4/r32/esp +<span id="L7845" class="LineNr"> 7845 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7846" class="LineNr"> 7846 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7847" class="Folded"> 7847 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7853" class="LineNr"> 7853 </span> <span class="subxComment"># check output</span> +<span id="L7854" class="LineNr"> 7854 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-with-multiple-inouts</a>: output should be empty"</span>) +<span id="L7855" class="LineNr"> 7855 </span> (<a href='109stream-equal.subx.html#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#L7820'>test-copy-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7856" class="LineNr"> 7856 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7857" class="LineNr"> 7857 </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-with-multiple-inouts</a>: exit status"</span>) +<span id="L7858" class="LineNr"> 7858 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7859" class="LineNr"> 7859 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7860" class="LineNr"> 7860 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7861" class="LineNr"> 7861 </span> 5d/pop-to-ebp +<span id="L7862" class="LineNr"> 7862 </span> c3/return +<span id="L7863" class="LineNr"> 7863 </span> +<span id="L7864" class="LineNr"> 7864 </span><span class="subxTest">test-copy-with-no-output</span>: +<span id="L7865" class="LineNr"> 7865 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7866" class="LineNr"> 7866 </span> 55/push-ebp +<span id="L7867" class="LineNr"> 7867 </span> 89/<- %ebp 4/r32/esp +<span id="L7868" class="LineNr"> 7868 </span> <span class="subxComment"># setup</span> +<span id="L7869" class="LineNr"> 7869 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7870" class="LineNr"> 7870 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7871" class="LineNr"> 7871 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7872" class="LineNr"> 7872 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7873" class="LineNr"> 7873 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7874" class="LineNr"> 7874 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7875" class="LineNr"> 7875 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <span id="L7876" class="LineNr"> 7876 </span> 68/push 0/imm32 -<span id="L7877" class="LineNr"> 7877 </span> 89/<- %edx 4/r32/esp -<span id="L7878" class="LineNr"> 7878 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7879" class="LineNr"> 7879 </span> <span class="subxComment">#</span> -<span id="L7880" class="LineNr"> 7880 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7881" class="LineNr"> 7881 </span> (<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="L7882" class="LineNr"> 7882 </span> (<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="L7877" class="LineNr"> 7877 </span> 68/push 0/imm32 +<span id="L7878" class="LineNr"> 7878 </span> 89/<- %edx 4/r32/esp +<span id="L7879" class="LineNr"> 7879 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7880" class="LineNr"> 7880 </span> <span class="subxComment">#</span> +<span id="L7881" class="LineNr"> 7881 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7882" class="LineNr"> 7882 </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="L7883" class="LineNr"> 7883 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L7884" class="LineNr"> 7884 </span> <span class="subxComment"># convert</span> <span id="L7885" class="LineNr"> 7885 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -7210,19 +7210,19 @@ if ('onhashchange' in window) { <span id="L7888" class="LineNr"> 7888 </span> 89/<- %edx 4/r32/esp <span id="L7889" class="LineNr"> 7889 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L7890" class="LineNr"> 7890 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7891" class="Folded"> 7891 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7891" class="Folded"> 7891 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7897" class="LineNr"> 7897 </span> <span class="subxComment"># check output</span> -<span id="L7898" class="LineNr"> 7898 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7863'>test-copy-invalid-value-to-address</a>: output should be empty"</span>) -<span id="L7899" class="LineNr"> 7899 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L7863'>test-copy-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7898" class="LineNr"> 7898 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7864'>test-copy-with-no-output</a>: output should be empty"</span>) +<span id="L7899" class="LineNr"> 7899 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L7864'>test-copy-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L7900" class="LineNr"> 7900 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7901" class="LineNr"> 7901 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7863'>test-copy-invalid-value-to-address</a>: exit status"</span>) +<span id="L7901" class="LineNr"> 7901 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7864'>test-copy-with-no-output</a>: exit status"</span>) <span id="L7902" class="LineNr"> 7902 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L7903" class="LineNr"> 7903 </span> 81 0/subop/add %esp 8/imm32 <span id="L7904" class="LineNr"> 7904 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L7905" class="LineNr"> 7905 </span> 5d/pop-to-ebp <span id="L7906" class="LineNr"> 7906 </span> c3/return <span id="L7907" class="LineNr"> 7907 </span> -<span id="L7908" class="LineNr"> 7908 </span><span class="subxTest">test-copy-null-value-to-address</span>: +<span id="L7908" class="LineNr"> 7908 </span><span class="subxTest">test-copy-with-multiple-outputs</span>: <span id="L7909" class="LineNr"> 7909 </span> <span class="subxS1Comment"># . prologue</span> <span id="L7910" class="LineNr"> 7910 </span> 55/push-ebp <span id="L7911" class="LineNr"> 7911 </span> 89/<- %ebp 4/r32/esp @@ -7231,363 +7231,363 @@ if ('onhashchange' in window) { <span id="L7914" class="LineNr"> 7914 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L7915" class="LineNr"> 7915 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L7916" class="LineNr"> 7916 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7917" class="LineNr"> 7917 </span> <span class="subxComment">#</span> -<span id="L7918" class="LineNr"> 7918 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7919" class="LineNr"> 7919 </span> (<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="L7920" class="LineNr"> 7920 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7921" class="LineNr"> 7921 </span> <span class="subxComment"># convert</span> -<span id="L7922" class="LineNr"> 7922 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7923" class="LineNr"> 7923 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7924" class="LineNr"> 7924 </span> <span class="subxComment"># no errors</span> -<span id="L7925" class="LineNr"> 7925 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7926" class="LineNr"> 7926 </span> 89/<- %esp 5/r32/ebp -<span id="L7927" class="LineNr"> 7927 </span> 5d/pop-to-ebp -<span id="L7928" class="LineNr"> 7928 </span> c3/return -<span id="L7929" class="LineNr"> 7929 </span> -<span id="L7930" class="LineNr"> 7930 </span><span class="subxTest">test-copy-invalid-value-to-offset</span>: -<span id="L7931" class="LineNr"> 7931 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7932" class="LineNr"> 7932 </span> 55/push-ebp -<span id="L7933" class="LineNr"> 7933 </span> 89/<- %ebp 4/r32/esp -<span id="L7934" class="LineNr"> 7934 </span> <span class="subxComment"># setup</span> -<span id="L7935" class="LineNr"> 7935 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7936" class="LineNr"> 7936 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7937" class="LineNr"> 7937 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7938" class="LineNr"> 7938 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7939" class="LineNr"> 7939 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L7940" class="LineNr"> 7940 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7941" class="LineNr"> 7941 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7942" class="LineNr"> 7942 </span> 68/push 0/imm32 -<span id="L7943" class="LineNr"> 7943 </span> 68/push 0/imm32 -<span id="L7944" class="LineNr"> 7944 </span> 89/<- %edx 4/r32/esp -<span id="L7945" class="LineNr"> 7945 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7946" class="LineNr"> 7946 </span> <span class="subxComment">#</span> -<span id="L7947" class="LineNr"> 7947 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7948" class="LineNr"> 7948 </span> (<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="L7949" class="LineNr"> 7949 </span> (<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="L7950" class="LineNr"> 7950 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7951" class="LineNr"> 7951 </span> <span class="subxComment"># convert</span> -<span id="L7952" class="LineNr"> 7952 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L7953" class="LineNr"> 7953 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7954" class="LineNr"> 7954 </span> <span class="subxComment"># restore ed</span> -<span id="L7955" class="LineNr"> 7955 </span> 89/<- %edx 4/r32/esp -<span id="L7956" class="LineNr"> 7956 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7957" class="LineNr"> 7957 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L7958" class="Folded"> 7958 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7964" class="LineNr"> 7964 </span> <span class="subxComment"># check output</span> -<span id="L7965" class="LineNr"> 7965 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7863'>test-copy-invalid-value-to-address</a>: output should be empty"</span>) -<span id="L7966" class="LineNr"> 7966 </span> (<a href='109stream-equal.subx.html#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#L7863'>test-copy-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L7967" class="LineNr"> 7967 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7968" class="LineNr"> 7968 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7930'>test-copy-invalid-value-to-offset</a>: exit status"</span>) -<span id="L7969" class="LineNr"> 7969 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7970" class="LineNr"> 7970 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7971" class="LineNr"> 7971 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7972" class="LineNr"> 7972 </span> 5d/pop-to-ebp -<span id="L7973" class="LineNr"> 7973 </span> c3/return -<span id="L7974" class="LineNr"> 7974 </span> -<span id="L7975" class="LineNr"> 7975 </span><span class="subxTest">test-copy-null-value-to-offset</span>: -<span id="L7976" class="LineNr"> 7976 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7977" class="LineNr"> 7977 </span> 55/push-ebp -<span id="L7978" class="LineNr"> 7978 </span> 89/<- %ebp 4/r32/esp -<span id="L7979" class="LineNr"> 7979 </span> <span class="subxComment"># setup</span> -<span id="L7980" class="LineNr"> 7980 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7981" class="LineNr"> 7981 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7982" class="LineNr"> 7982 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L7983" class="LineNr"> 7983 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7984" class="LineNr"> 7984 </span> <span class="subxComment">#</span> -<span id="L7985" class="LineNr"> 7985 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7986" class="LineNr"> 7986 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (offset int) <- copy 0\n"</span>) -<span id="L7987" class="LineNr"> 7987 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7988" class="LineNr"> 7988 </span> <span class="subxComment"># convert</span> -<span id="L7989" class="LineNr"> 7989 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L7990" class="LineNr"> 7990 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L7991" class="Folded"> 7991 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7997" class="LineNr"> 7997 </span> <span class="subxComment"># no errors</span> -<span id="L7998" class="LineNr"> 7998 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7999" class="LineNr"> 7999 </span> 89/<- %esp 5/r32/ebp -<span id="L8000" class="LineNr"> 8000 </span> 5d/pop-to-ebp -<span id="L8001" class="LineNr"> 8001 </span> c3/return -<span id="L8002" class="LineNr"> 8002 </span> -<span id="L8003" class="LineNr"> 8003 </span><span class="subxTest">test-copy-non-literal-to-byte</span>: -<span id="L8004" class="LineNr"> 8004 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8005" class="LineNr"> 8005 </span> 55/push-ebp -<span id="L8006" class="LineNr"> 8006 </span> 89/<- %ebp 4/r32/esp -<span id="L8007" class="LineNr"> 8007 </span> <span class="subxComment"># setup</span> -<span id="L8008" class="LineNr"> 8008 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8009" class="LineNr"> 8009 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8010" class="LineNr"> 8010 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8011" class="LineNr"> 8011 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8012" class="LineNr"> 8012 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8013" class="LineNr"> 8013 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8014" class="LineNr"> 8014 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8015" class="LineNr"> 8015 </span> 68/push 0/imm32 -<span id="L8016" class="LineNr"> 8016 </span> 68/push 0/imm32 -<span id="L8017" class="LineNr"> 8017 </span> 89/<- %edx 4/r32/esp -<span id="L8018" class="LineNr"> 8018 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8019" class="LineNr"> 8019 </span> <span class="subxComment">#</span> -<span id="L8020" class="LineNr"> 8020 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8021" class="LineNr"> 8021 </span> (<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="L8022" class="LineNr"> 8022 </span> (<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="L8023" class="LineNr"> 8023 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8024" class="LineNr"> 8024 </span> <span class="subxComment"># convert</span> -<span id="L8025" class="LineNr"> 8025 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8026" class="LineNr"> 8026 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8027" class="LineNr"> 8027 </span> <span class="subxComment"># restore ed</span> -<span id="L8028" class="LineNr"> 8028 </span> 89/<- %edx 4/r32/esp -<span id="L8029" class="LineNr"> 8029 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8030" class="LineNr"> 8030 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8031" class="Folded"> 8031 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8037" class="LineNr"> 8037 </span> <span class="subxComment"># check output</span> -<span id="L8038" class="LineNr"> 8038 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8003'>test-copy-non-literal-to-byte</a>: output should be empty"</span>) -<span id="L8039" class="LineNr"> 8039 </span> (<a href='109stream-equal.subx.html#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#L8003'>test-copy-non-literal-to-byte</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8040" class="LineNr"> 8040 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8041" class="LineNr"> 8041 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8003'>test-copy-non-literal-to-byte</a>: exit status"</span>) -<span id="L8042" class="LineNr"> 8042 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8043" class="LineNr"> 8043 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8044" class="LineNr"> 8044 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8045" class="LineNr"> 8045 </span> 5d/pop-to-ebp -<span id="L8046" class="LineNr"> 8046 </span> c3/return -<span id="L8047" class="LineNr"> 8047 </span> -<span id="L8048" class="LineNr"> 8048 </span><span class="subxTest">test-copy-deref-address</span>: -<span id="L8049" class="LineNr"> 8049 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8050" class="LineNr"> 8050 </span> 55/push-ebp -<span id="L8051" class="LineNr"> 8051 </span> 89/<- %ebp 4/r32/esp -<span id="L8052" class="LineNr"> 8052 </span> <span class="subxComment"># setup</span> -<span id="L8053" class="LineNr"> 8053 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8054" class="LineNr"> 8054 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8055" class="LineNr"> 8055 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8056" class="LineNr"> 8056 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8057" class="LineNr"> 8057 </span> <span class="subxComment">#</span> -<span id="L8058" class="LineNr"> 8058 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8059" class="LineNr"> 8059 </span> (<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="L8060" class="LineNr"> 8060 </span> (<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="L8061" class="LineNr"> 8061 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8062" class="LineNr"> 8062 </span> <span class="subxComment"># convert</span> -<span id="L8063" class="LineNr"> 8063 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L8064" class="LineNr"> 8064 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8065" class="LineNr"> 8065 </span> <span class="subxComment"># no errors</span> -<span id="L8066" class="LineNr"> 8066 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8067" class="LineNr"> 8067 </span> 5d/pop-to-ebp -<span id="L8068" class="LineNr"> 8068 </span> c3/return -<span id="L8069" class="LineNr"> 8069 </span> -<span id="L8070" class="LineNr"> 8070 </span><span class="subxTest">test-copy-to-non-register</span>: -<span id="L8071" class="LineNr"> 8071 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8072" class="LineNr"> 8072 </span> 55/push-ebp -<span id="L8073" class="LineNr"> 8073 </span> 89/<- %ebp 4/r32/esp -<span id="L8074" class="LineNr"> 8074 </span> <span class="subxComment"># setup</span> -<span id="L8075" class="LineNr"> 8075 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8076" class="LineNr"> 8076 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8077" class="LineNr"> 8077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8078" class="LineNr"> 8078 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8079" class="LineNr"> 8079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8080" class="LineNr"> 8080 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8081" class="LineNr"> 8081 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8082" class="LineNr"> 8082 </span> 68/push 0/imm32 -<span id="L8083" class="LineNr"> 8083 </span> 68/push 0/imm32 -<span id="L8084" class="LineNr"> 8084 </span> 89/<- %edx 4/r32/esp -<span id="L8085" class="LineNr"> 8085 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8086" class="LineNr"> 8086 </span> <span class="subxComment">#</span> -<span id="L8087" class="LineNr"> 8087 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8088" class="LineNr"> 8088 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L8089" class="LineNr"> 8089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy 0\n"</span>) -<span id="L8090" class="LineNr"> 8090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8091" class="LineNr"> 8091 </span> <span class="subxComment"># convert</span> -<span id="L8092" class="LineNr"> 8092 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8093" class="LineNr"> 8093 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8094" class="LineNr"> 8094 </span> <span class="subxComment"># restore ed</span> -<span id="L8095" class="LineNr"> 8095 </span> 89/<- %edx 4/r32/esp -<span id="L8096" class="LineNr"> 8096 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8097" class="LineNr"> 8097 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8098" class="Folded"> 8098 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8104" class="LineNr"> 8104 </span> <span class="subxComment"># check output</span> -<span id="L8105" class="LineNr"> 8105 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8070'>test-copy-to-non-register</a>: output should be empty"</span>) -<span id="L8106" class="LineNr"> 8106 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L8070'>test-copy-to-non-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8107" class="LineNr"> 8107 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8108" class="LineNr"> 8108 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8070'>test-copy-to-non-register</a>: exit status"</span>) -<span id="L8109" class="LineNr"> 8109 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8110" class="LineNr"> 8110 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8111" class="LineNr"> 8111 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8112" class="LineNr"> 8112 </span> 5d/pop-to-ebp -<span id="L8113" class="LineNr"> 8113 </span> c3/return -<span id="L8114" class="LineNr"> 8114 </span> -<span id="L8115" class="LineNr"> 8115 </span><span class="subxTest">test-copy-from-non-scalar-inout</span>: -<span id="L8116" class="LineNr"> 8116 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8117" class="LineNr"> 8117 </span> 55/push-ebp -<span id="L8118" class="LineNr"> 8118 </span> 89/<- %ebp 4/r32/esp -<span id="L8119" class="LineNr"> 8119 </span> <span class="subxComment"># setup</span> -<span id="L8120" class="LineNr"> 8120 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8121" class="LineNr"> 8121 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8122" class="LineNr"> 8122 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8123" class="LineNr"> 8123 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8124" class="LineNr"> 8124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8125" class="LineNr"> 8125 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8126" class="LineNr"> 8126 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8127" class="LineNr"> 8127 </span> 68/push 0/imm32 -<span id="L8128" class="LineNr"> 8128 </span> 68/push 0/imm32 -<span id="L8129" class="LineNr"> 8129 </span> 89/<- %edx 4/r32/esp -<span id="L8130" class="LineNr"> 8130 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8131" class="LineNr"> 8131 </span> <span class="subxComment">#</span> -<span id="L8132" class="LineNr"> 8132 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8133" class="LineNr"> 8133 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) -<span id="L8134" class="LineNr"> 8134 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy x\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">"}\n"</span>) -<span id="L8136" class="LineNr"> 8136 </span> <span class="subxComment"># convert</span> -<span id="L8137" class="LineNr"> 8137 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8138" class="LineNr"> 8138 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8139" class="LineNr"> 8139 </span> <span class="subxComment"># restore ed</span> -<span id="L8140" class="LineNr"> 8140 </span> 89/<- %edx 4/r32/esp -<span id="L8141" class="LineNr"> 8141 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8142" class="LineNr"> 8142 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8143" class="Folded"> 8143 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8149" class="LineNr"> 8149 </span> <span class="subxComment"># check output</span> -<span id="L8150" class="LineNr"> 8150 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8115'>test-copy-from-non-scalar-inout</a>: output should be empty"</span>) -<span id="L8151" class="LineNr"> 8151 </span> (<a href='109stream-equal.subx.html#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#L8115'>test-copy-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8152" class="LineNr"> 8152 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8153" class="LineNr"> 8153 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8115'>test-copy-from-non-scalar-inout</a>: exit status"</span>) -<span id="L8154" class="LineNr"> 8154 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8155" class="LineNr"> 8155 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8156" class="LineNr"> 8156 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8157" class="LineNr"> 8157 </span> 5d/pop-to-ebp -<span id="L8158" class="LineNr"> 8158 </span> c3/return -<span id="L8159" class="LineNr"> 8159 </span> -<span id="L8160" class="LineNr"> 8160 </span><span class="subxTest">test-copy-to-with-no-inout</span>: -<span id="L8161" class="LineNr"> 8161 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8162" class="LineNr"> 8162 </span> 55/push-ebp -<span id="L8163" class="LineNr"> 8163 </span> 89/<- %ebp 4/r32/esp -<span id="L8164" class="LineNr"> 8164 </span> <span class="subxComment"># setup</span> -<span id="L8165" class="LineNr"> 8165 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8166" class="LineNr"> 8166 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8167" class="LineNr"> 8167 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8168" class="LineNr"> 8168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8169" class="LineNr"> 8169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8170" class="LineNr"> 8170 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8171" class="LineNr"> 8171 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8172" class="LineNr"> 8172 </span> 68/push 0/imm32 -<span id="L8173" class="LineNr"> 8173 </span> 68/push 0/imm32 -<span id="L8174" class="LineNr"> 8174 </span> 89/<- %edx 4/r32/esp -<span id="L8175" class="LineNr"> 8175 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8176" class="LineNr"> 8176 </span> <span class="subxComment">#</span> -<span id="L8177" class="LineNr"> 8177 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8178" class="LineNr"> 8178 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to\n"</span>) -<span id="L8179" class="LineNr"> 8179 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8180" class="LineNr"> 8180 </span> <span class="subxComment"># convert</span> -<span id="L8181" class="LineNr"> 8181 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8182" class="LineNr"> 8182 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8183" class="LineNr"> 8183 </span> <span class="subxComment"># restore ed</span> -<span id="L8184" class="LineNr"> 8184 </span> 89/<- %edx 4/r32/esp -<span id="L8185" class="LineNr"> 8185 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8186" class="LineNr"> 8186 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8187" class="Folded"> 8187 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8193" class="LineNr"> 8193 </span> <span class="subxComment"># check output</span> -<span id="L8194" class="LineNr"> 8194 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8160'>test-copy-to-with-no-inout</a>: output should be empty"</span>) -<span id="L8195" class="LineNr"> 8195 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8160'>test-copy-to-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8196" class="LineNr"> 8196 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8197" class="LineNr"> 8197 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8160'>test-copy-to-with-no-inout</a>: exit status"</span>) -<span id="L8198" class="LineNr"> 8198 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8199" class="LineNr"> 8199 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8200" class="LineNr"> 8200 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8201" class="LineNr"> 8201 </span> 5d/pop-to-ebp -<span id="L8202" class="LineNr"> 8202 </span> c3/return -<span id="L8203" class="LineNr"> 8203 </span> -<span id="L8204" class="LineNr"> 8204 </span><span class="subxTest">test-copy-to-with-no-source</span>: -<span id="L8205" class="LineNr"> 8205 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8206" class="LineNr"> 8206 </span> 55/push-ebp -<span id="L8207" class="LineNr"> 8207 </span> 89/<- %ebp 4/r32/esp -<span id="L8208" class="LineNr"> 8208 </span> <span class="subxComment"># setup</span> -<span id="L8209" class="LineNr"> 8209 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8210" class="LineNr"> 8210 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8211" class="LineNr"> 8211 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8212" class="LineNr"> 8212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8213" class="LineNr"> 8213 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8214" class="LineNr"> 8214 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8215" class="LineNr"> 8215 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8216" class="LineNr"> 8216 </span> 68/push 0/imm32 +<span id="L7917" class="LineNr"> 7917 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7918" class="LineNr"> 7918 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7919" class="LineNr"> 7919 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7920" class="LineNr"> 7920 </span> 68/push 0/imm32 +<span id="L7921" class="LineNr"> 7921 </span> 68/push 0/imm32 +<span id="L7922" class="LineNr"> 7922 </span> 89/<- %edx 4/r32/esp +<span id="L7923" class="LineNr"> 7923 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7924" class="LineNr"> 7924 </span> <span class="subxComment">#</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">"fn foo {\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 x/eax: boolean <- copy 0\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">" var y/ecx: boolean <- copy 0\n"</span>) +<span id="L7928" class="LineNr"> 7928 </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="L7929" class="LineNr"> 7929 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7930" class="LineNr"> 7930 </span> <span class="subxComment"># convert</span> +<span id="L7931" class="LineNr"> 7931 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7932" class="LineNr"> 7932 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7933" class="LineNr"> 7933 </span> <span class="subxComment"># restore ed</span> +<span id="L7934" class="LineNr"> 7934 </span> 89/<- %edx 4/r32/esp +<span id="L7935" class="LineNr"> 7935 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7936" class="LineNr"> 7936 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7937" class="Folded"> 7937 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7943" class="LineNr"> 7943 </span> <span class="subxComment"># check output</span> +<span id="L7944" class="LineNr"> 7944 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7908'>test-copy-with-multiple-outputs</a>: output should be empty"</span>) +<span id="L7945" class="LineNr"> 7945 </span> (<a href='109stream-equal.subx.html#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#L7908'>test-copy-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7946" class="LineNr"> 7946 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7947" class="LineNr"> 7947 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7908'>test-copy-with-multiple-outputs</a>: exit status"</span>) +<span id="L7948" class="LineNr"> 7948 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7949" class="LineNr"> 7949 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7950" class="LineNr"> 7950 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7951" class="LineNr"> 7951 </span> 5d/pop-to-ebp +<span id="L7952" class="LineNr"> 7952 </span> c3/return +<span id="L7953" class="LineNr"> 7953 </span> +<span id="L7954" class="LineNr"> 7954 </span><span class="subxTest">test-copy-invalid-value-to-address</span>: +<span id="L7955" class="LineNr"> 7955 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7956" class="LineNr"> 7956 </span> 55/push-ebp +<span id="L7957" class="LineNr"> 7957 </span> 89/<- %ebp 4/r32/esp +<span id="L7958" class="LineNr"> 7958 </span> <span class="subxComment"># setup</span> +<span id="L7959" class="LineNr"> 7959 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7960" class="LineNr"> 7960 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7961" class="LineNr"> 7961 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7962" class="LineNr"> 7962 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7963" class="LineNr"> 7963 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7964" class="LineNr"> 7964 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7965" class="LineNr"> 7965 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7966" class="LineNr"> 7966 </span> 68/push 0/imm32 +<span id="L7967" class="LineNr"> 7967 </span> 68/push 0/imm32 +<span id="L7968" class="LineNr"> 7968 </span> 89/<- %edx 4/r32/esp +<span id="L7969" class="LineNr"> 7969 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7970" class="LineNr"> 7970 </span> <span class="subxComment">#</span> +<span id="L7971" class="LineNr"> 7971 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7972" class="LineNr"> 7972 </span> (<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="L7973" class="LineNr"> 7973 </span> (<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="L7974" class="LineNr"> 7974 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7975" class="LineNr"> 7975 </span> <span class="subxComment"># convert</span> +<span id="L7976" class="LineNr"> 7976 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7977" class="LineNr"> 7977 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7978" class="LineNr"> 7978 </span> <span class="subxComment"># restore ed</span> +<span id="L7979" class="LineNr"> 7979 </span> 89/<- %edx 4/r32/esp +<span id="L7980" class="LineNr"> 7980 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7981" class="LineNr"> 7981 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7982" class="Folded"> 7982 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7988" class="LineNr"> 7988 </span> <span class="subxComment"># check output</span> +<span id="L7989" class="LineNr"> 7989 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7954'>test-copy-invalid-value-to-address</a>: output should be empty"</span>) +<span id="L7990" class="LineNr"> 7990 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L7954'>test-copy-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7991" class="LineNr"> 7991 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7992" class="LineNr"> 7992 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7954'>test-copy-invalid-value-to-address</a>: exit status"</span>) +<span id="L7993" class="LineNr"> 7993 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7994" class="LineNr"> 7994 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7995" class="LineNr"> 7995 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7996" class="LineNr"> 7996 </span> 5d/pop-to-ebp +<span id="L7997" class="LineNr"> 7997 </span> c3/return +<span id="L7998" class="LineNr"> 7998 </span> +<span id="L7999" class="LineNr"> 7999 </span><span class="subxTest">test-copy-null-value-to-address</span>: +<span id="L8000" class="LineNr"> 8000 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8001" class="LineNr"> 8001 </span> 55/push-ebp +<span id="L8002" class="LineNr"> 8002 </span> 89/<- %ebp 4/r32/esp +<span id="L8003" class="LineNr"> 8003 </span> <span class="subxComment"># setup</span> +<span id="L8004" class="LineNr"> 8004 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8005" class="LineNr"> 8005 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8006" class="LineNr"> 8006 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8007" class="LineNr"> 8007 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8008" class="LineNr"> 8008 </span> <span class="subxComment">#</span> +<span id="L8009" class="LineNr"> 8009 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8010" class="LineNr"> 8010 </span> (<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="L8011" class="LineNr"> 8011 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8012" class="LineNr"> 8012 </span> <span class="subxComment"># convert</span> +<span id="L8013" class="LineNr"> 8013 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L8014" class="LineNr"> 8014 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8015" class="LineNr"> 8015 </span> <span class="subxComment"># no errors</span> +<span id="L8016" class="LineNr"> 8016 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8017" class="LineNr"> 8017 </span> 89/<- %esp 5/r32/ebp +<span id="L8018" class="LineNr"> 8018 </span> 5d/pop-to-ebp +<span id="L8019" class="LineNr"> 8019 </span> c3/return +<span id="L8020" class="LineNr"> 8020 </span> +<span id="L8021" class="LineNr"> 8021 </span><span class="subxTest">test-copy-string-literal</span>: +<span id="L8022" class="LineNr"> 8022 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8023" class="LineNr"> 8023 </span> 55/push-ebp +<span id="L8024" class="LineNr"> 8024 </span> 89/<- %ebp 4/r32/esp +<span id="L8025" class="LineNr"> 8025 </span> <span class="subxComment"># setup</span> +<span id="L8026" class="LineNr"> 8026 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8027" class="LineNr"> 8027 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8028" class="LineNr"> 8028 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8029" class="LineNr"> 8029 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8030" class="LineNr"> 8030 </span> <span class="subxComment">#</span> +<span id="L8031" class="LineNr"> 8031 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8032" class="LineNr"> 8032 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr array byte) <- copy \"</span>a\<span class="Constant">"\n"</span>) +<span id="L8033" class="LineNr"> 8033 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8034" class="LineNr"> 8034 </span> <span class="subxComment"># convert</span> +<span id="L8035" class="LineNr"> 8035 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L8036" class="LineNr"> 8036 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8037" class="LineNr"> 8037 </span> <span class="subxComment"># no errors</span> +<span id="L8038" class="Folded"> 8038 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8044" class="LineNr"> 8044 </span> <span class="subxComment"># check output</span> +<span id="L8045" class="LineNr"> 8045 </span> (<a href='109stream-equal.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#L8021'>test-copy-string-literal</a>/0"</span>) +<span id="L8046" class="LineNr"> 8046 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-copy-string-literal/1"</span>) +<span id="L8047" class="LineNr"> 8047 </span> (<a href='109stream-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#L8021'>test-copy-string-literal</a>/2"</span>) +<span id="L8048" class="LineNr"> 8048 </span> (<a href='109stream-equal.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#L8021'>test-copy-string-literal</a>/3"</span>) +<span id="L8049" class="LineNr"> 8049 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L8021'>test-copy-string-literal</a>/4"</span>) +<span id="L8050" class="LineNr"> 8050 </span> (<a href='109stream-equal.subx.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#L8021'>test-copy-string-literal</a>/5"</span>) +<span id="L8051" class="LineNr"> 8051 </span> (<a href='109stream-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#L8021'>test-copy-string-literal</a>/6"</span>) +<span id="L8052" class="LineNr"> 8052 </span> (<a href='109stream-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 \"</span>a\<span class="Constant">"/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L8021'>test-copy-string-literal</a>/7"</span>) +<span id="L8053" class="LineNr"> 8053 </span> (<a href='109stream-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#L8021'>test-copy-string-literal</a>/8"</span>) +<span id="L8054" class="LineNr"> 8054 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L8021'>test-copy-string-literal</a>/9"</span>) +<span id="L8055" class="LineNr"> 8055 </span> (<a href='109stream-equal.subx.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#L8021'>test-copy-string-literal</a>/10"</span>) +<span id="L8056" class="LineNr"> 8056 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-copy-string-literal/11"</span>) +<span id="L8057" class="LineNr"> 8057 </span> (<a href='109stream-equal.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#L8021'>test-copy-string-literal</a>/12"</span>) +<span id="L8058" class="LineNr"> 8058 </span> (<a href='109stream-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#L8021'>test-copy-string-literal</a>/13"</span>) +<span id="L8059" class="LineNr"> 8059 </span> (<a href='109stream-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#L8021'>test-copy-string-literal</a>/14"</span>) +<span id="L8060" class="LineNr"> 8060 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8061" class="LineNr"> 8061 </span> 89/<- %esp 5/r32/ebp +<span id="L8062" class="LineNr"> 8062 </span> 5d/pop-to-ebp +<span id="L8063" class="LineNr"> 8063 </span> c3/return +<span id="L8064" class="LineNr"> 8064 </span> +<span id="L8065" class="LineNr"> 8065 </span><span class="subxTest">test-copy-invalid-value-to-offset</span>: +<span id="L8066" class="LineNr"> 8066 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8067" class="LineNr"> 8067 </span> 55/push-ebp +<span id="L8068" class="LineNr"> 8068 </span> 89/<- %ebp 4/r32/esp +<span id="L8069" class="LineNr"> 8069 </span> <span class="subxComment"># setup</span> +<span id="L8070" class="LineNr"> 8070 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8071" class="LineNr"> 8071 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8072" class="LineNr"> 8072 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8073" class="LineNr"> 8073 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8074" class="LineNr"> 8074 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8075" class="LineNr"> 8075 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8076" class="LineNr"> 8076 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8077" class="LineNr"> 8077 </span> 68/push 0/imm32 +<span id="L8078" class="LineNr"> 8078 </span> 68/push 0/imm32 +<span id="L8079" class="LineNr"> 8079 </span> 89/<- %edx 4/r32/esp +<span id="L8080" class="LineNr"> 8080 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8081" class="LineNr"> 8081 </span> <span class="subxComment">#</span> +<span id="L8082" class="LineNr"> 8082 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8083" class="LineNr"> 8083 </span> (<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="L8084" class="LineNr"> 8084 </span> (<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="L8085" class="LineNr"> 8085 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8086" class="LineNr"> 8086 </span> <span class="subxComment"># convert</span> +<span id="L8087" class="LineNr"> 8087 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8088" class="LineNr"> 8088 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8089" class="LineNr"> 8089 </span> <span class="subxComment"># restore ed</span> +<span id="L8090" class="LineNr"> 8090 </span> 89/<- %edx 4/r32/esp +<span id="L8091" class="LineNr"> 8091 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8092" class="LineNr"> 8092 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8093" class="Folded"> 8093 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8099" class="LineNr"> 8099 </span> <span class="subxComment"># check output</span> +<span id="L8100" class="LineNr"> 8100 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7954'>test-copy-invalid-value-to-address</a>: output should be empty"</span>) +<span id="L8101" class="LineNr"> 8101 </span> (<a href='109stream-equal.subx.html#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#L7954'>test-copy-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8102" class="LineNr"> 8102 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8103" class="LineNr"> 8103 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8065'>test-copy-invalid-value-to-offset</a>: exit status"</span>) +<span id="L8104" class="LineNr"> 8104 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8105" class="LineNr"> 8105 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8106" class="LineNr"> 8106 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8107" class="LineNr"> 8107 </span> 5d/pop-to-ebp +<span id="L8108" class="LineNr"> 8108 </span> c3/return +<span id="L8109" class="LineNr"> 8109 </span> +<span id="L8110" class="LineNr"> 8110 </span><span class="subxTest">test-copy-null-value-to-offset</span>: +<span id="L8111" class="LineNr"> 8111 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8112" class="LineNr"> 8112 </span> 55/push-ebp +<span id="L8113" class="LineNr"> 8113 </span> 89/<- %ebp 4/r32/esp +<span id="L8114" class="LineNr"> 8114 </span> <span class="subxComment"># setup</span> +<span id="L8115" class="LineNr"> 8115 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8116" class="LineNr"> 8116 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8117" class="LineNr"> 8117 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8118" class="LineNr"> 8118 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8119" class="LineNr"> 8119 </span> <span class="subxComment">#</span> +<span id="L8120" class="LineNr"> 8120 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8121" class="LineNr"> 8121 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (offset int) <- copy 0\n"</span>) +<span id="L8122" class="LineNr"> 8122 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8123" class="LineNr"> 8123 </span> <span class="subxComment"># convert</span> +<span id="L8124" class="LineNr"> 8124 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L8125" class="LineNr"> 8125 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8126" class="Folded"> 8126 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8132" class="LineNr"> 8132 </span> <span class="subxComment"># no errors</span> +<span id="L8133" class="LineNr"> 8133 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8134" class="LineNr"> 8134 </span> 89/<- %esp 5/r32/ebp +<span id="L8135" class="LineNr"> 8135 </span> 5d/pop-to-ebp +<span id="L8136" class="LineNr"> 8136 </span> c3/return +<span id="L8137" class="LineNr"> 8137 </span> +<span id="L8138" class="LineNr"> 8138 </span><span class="subxTest">test-copy-non-literal-to-byte</span>: +<span id="L8139" class="LineNr"> 8139 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8140" class="LineNr"> 8140 </span> 55/push-ebp +<span id="L8141" class="LineNr"> 8141 </span> 89/<- %ebp 4/r32/esp +<span id="L8142" class="LineNr"> 8142 </span> <span class="subxComment"># setup</span> +<span id="L8143" class="LineNr"> 8143 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8144" class="LineNr"> 8144 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8145" class="LineNr"> 8145 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8146" class="LineNr"> 8146 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8147" class="LineNr"> 8147 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8148" class="LineNr"> 8148 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8149" class="LineNr"> 8149 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8150" class="LineNr"> 8150 </span> 68/push 0/imm32 +<span id="L8151" class="LineNr"> 8151 </span> 68/push 0/imm32 +<span id="L8152" class="LineNr"> 8152 </span> 89/<- %edx 4/r32/esp +<span id="L8153" class="LineNr"> 8153 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8154" class="LineNr"> 8154 </span> <span class="subxComment">#</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">"fn foo {\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">" var x/ecx: int <- copy 3\n"</span>) +<span id="L8157" class="LineNr"> 8157 </span> (<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="L8158" class="LineNr"> 8158 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8159" class="LineNr"> 8159 </span> <span class="subxComment"># convert</span> +<span id="L8160" class="LineNr"> 8160 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8161" class="LineNr"> 8161 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8162" class="LineNr"> 8162 </span> <span class="subxComment"># restore ed</span> +<span id="L8163" class="LineNr"> 8163 </span> 89/<- %edx 4/r32/esp +<span id="L8164" class="LineNr"> 8164 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8165" class="LineNr"> 8165 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8166" class="Folded"> 8166 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8172" class="LineNr"> 8172 </span> <span class="subxComment"># check output</span> +<span id="L8173" class="LineNr"> 8173 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8138'>test-copy-non-literal-to-byte</a>: output should be empty"</span>) +<span id="L8174" class="LineNr"> 8174 </span> (<a href='109stream-equal.subx.html#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#L8138'>test-copy-non-literal-to-byte</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8175" class="LineNr"> 8175 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8176" class="LineNr"> 8176 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8138'>test-copy-non-literal-to-byte</a>: exit status"</span>) +<span id="L8177" class="LineNr"> 8177 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8178" class="LineNr"> 8178 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8179" class="LineNr"> 8179 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8180" class="LineNr"> 8180 </span> 5d/pop-to-ebp +<span id="L8181" class="LineNr"> 8181 </span> c3/return +<span id="L8182" class="LineNr"> 8182 </span> +<span id="L8183" class="LineNr"> 8183 </span><span class="subxTest">test-copy-deref-address</span>: +<span id="L8184" class="LineNr"> 8184 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8185" class="LineNr"> 8185 </span> 55/push-ebp +<span id="L8186" class="LineNr"> 8186 </span> 89/<- %ebp 4/r32/esp +<span id="L8187" class="LineNr"> 8187 </span> <span class="subxComment"># setup</span> +<span id="L8188" class="LineNr"> 8188 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8189" class="LineNr"> 8189 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-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#L287'>_test-output-stream</a>) +<span id="L8191" class="LineNr"> 8191 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8192" class="LineNr"> 8192 </span> <span class="subxComment">#</span> +<span id="L8193" class="LineNr"> 8193 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8194" class="LineNr"> 8194 </span> (<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="L8195" class="LineNr"> 8195 </span> (<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="L8196" class="LineNr"> 8196 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8197" class="LineNr"> 8197 </span> <span class="subxComment"># convert</span> +<span id="L8198" class="LineNr"> 8198 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L8199" class="LineNr"> 8199 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8200" class="LineNr"> 8200 </span> <span class="subxComment"># no errors</span> +<span id="L8201" class="LineNr"> 8201 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8202" class="LineNr"> 8202 </span> 5d/pop-to-ebp +<span id="L8203" class="LineNr"> 8203 </span> c3/return +<span id="L8204" class="LineNr"> 8204 </span> +<span id="L8205" class="LineNr"> 8205 </span><span class="subxTest">test-copy-to-non-register</span>: +<span id="L8206" class="LineNr"> 8206 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8207" class="LineNr"> 8207 </span> 55/push-ebp +<span id="L8208" class="LineNr"> 8208 </span> 89/<- %ebp 4/r32/esp +<span id="L8209" class="LineNr"> 8209 </span> <span class="subxComment"># setup</span> +<span id="L8210" class="LineNr"> 8210 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8211" class="LineNr"> 8211 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8212" class="LineNr"> 8212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8213" class="LineNr"> 8213 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8214" class="LineNr"> 8214 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8215" class="LineNr"> 8215 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8216" class="LineNr"> 8216 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <span id="L8217" class="LineNr"> 8217 </span> 68/push 0/imm32 -<span id="L8218" class="LineNr"> 8218 </span> 89/<- %edx 4/r32/esp -<span id="L8219" class="LineNr"> 8219 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8220" class="LineNr"> 8220 </span> <span class="subxComment">#</span> -<span id="L8221" class="LineNr"> 8221 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8222" class="LineNr"> 8222 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L8223" class="LineNr"> 8223 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x\n"</span>) -<span id="L8224" class="LineNr"> 8224 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8225" class="LineNr"> 8225 </span> <span class="subxComment"># convert</span> -<span id="L8226" class="LineNr"> 8226 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8227" class="LineNr"> 8227 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8228" class="LineNr"> 8228 </span> <span class="subxComment"># restore ed</span> -<span id="L8229" class="LineNr"> 8229 </span> 89/<- %edx 4/r32/esp -<span id="L8230" class="LineNr"> 8230 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8231" class="LineNr"> 8231 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8232" class="Folded"> 8232 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8238" class="LineNr"> 8238 </span> <span class="subxComment"># check output</span> -<span id="L8239" class="LineNr"> 8239 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8204'>test-copy-to-with-no-source</a>: output should be empty"</span>) -<span id="L8240" class="LineNr"> 8240 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8204'>test-copy-to-with-no-source</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8241" class="LineNr"> 8241 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8242" class="LineNr"> 8242 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8204'>test-copy-to-with-no-source</a>: exit status"</span>) -<span id="L8243" class="LineNr"> 8243 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8244" class="LineNr"> 8244 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8245" class="LineNr"> 8245 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8246" class="LineNr"> 8246 </span> 5d/pop-to-ebp -<span id="L8247" class="LineNr"> 8247 </span> c3/return -<span id="L8248" class="LineNr"> 8248 </span> -<span id="L8249" class="LineNr"> 8249 </span><span class="subxTest">test-copy-to-with-no-register</span>: -<span id="L8250" class="LineNr"> 8250 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8251" class="LineNr"> 8251 </span> 55/push-ebp -<span id="L8252" class="LineNr"> 8252 </span> 89/<- %ebp 4/r32/esp -<span id="L8253" class="LineNr"> 8253 </span> <span class="subxComment"># setup</span> -<span id="L8254" class="LineNr"> 8254 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8255" class="LineNr"> 8255 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8256" class="LineNr"> 8256 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8257" class="LineNr"> 8257 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8258" class="LineNr"> 8258 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8259" class="LineNr"> 8259 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8260" class="LineNr"> 8260 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8261" class="LineNr"> 8261 </span> 68/push 0/imm32 +<span id="L8218" class="LineNr"> 8218 </span> 68/push 0/imm32 +<span id="L8219" class="LineNr"> 8219 </span> 89/<- %edx 4/r32/esp +<span id="L8220" class="LineNr"> 8220 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8221" class="LineNr"> 8221 </span> <span class="subxComment">#</span> +<span id="L8222" class="LineNr"> 8222 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8223" class="LineNr"> 8223 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\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">" x <- copy 0\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">"}\n"</span>) +<span id="L8226" class="LineNr"> 8226 </span> <span class="subxComment"># convert</span> +<span id="L8227" class="LineNr"> 8227 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8228" class="LineNr"> 8228 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8229" class="LineNr"> 8229 </span> <span class="subxComment"># restore ed</span> +<span id="L8230" class="LineNr"> 8230 </span> 89/<- %edx 4/r32/esp +<span id="L8231" class="LineNr"> 8231 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8232" class="LineNr"> 8232 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8233" class="Folded"> 8233 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8239" class="LineNr"> 8239 </span> <span class="subxComment"># check output</span> +<span id="L8240" class="LineNr"> 8240 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8205'>test-copy-to-non-register</a>: output should be empty"</span>) +<span id="L8241" class="LineNr"> 8241 </span> (<a href='109stream-equal.subx.html#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#L8205'>test-copy-to-non-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8242" class="LineNr"> 8242 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8243" class="LineNr"> 8243 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8205'>test-copy-to-non-register</a>: exit status"</span>) +<span id="L8244" class="LineNr"> 8244 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8245" class="LineNr"> 8245 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8246" class="LineNr"> 8246 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8247" class="LineNr"> 8247 </span> 5d/pop-to-ebp +<span id="L8248" class="LineNr"> 8248 </span> c3/return +<span id="L8249" class="LineNr"> 8249 </span> +<span id="L8250" class="LineNr"> 8250 </span><span class="subxTest">test-copy-from-non-scalar-inout</span>: +<span id="L8251" class="LineNr"> 8251 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8252" class="LineNr"> 8252 </span> 55/push-ebp +<span id="L8253" class="LineNr"> 8253 </span> 89/<- %ebp 4/r32/esp +<span id="L8254" class="LineNr"> 8254 </span> <span class="subxComment"># setup</span> +<span id="L8255" class="LineNr"> 8255 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8256" class="LineNr"> 8256 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8257" class="LineNr"> 8257 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8258" class="LineNr"> 8258 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8259" class="LineNr"> 8259 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8260" class="LineNr"> 8260 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8261" class="LineNr"> 8261 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <span id="L8262" class="LineNr"> 8262 </span> 68/push 0/imm32 -<span id="L8263" class="LineNr"> 8263 </span> 89/<- %edx 4/r32/esp -<span id="L8264" class="LineNr"> 8264 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8265" class="LineNr"> 8265 </span> <span class="subxComment">#</span> -<span id="L8266" class="LineNr"> 8266 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8267" class="LineNr"> 8267 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L8268" class="LineNr"> 8268 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x, x\n"</span>) -<span id="L8269" class="LineNr"> 8269 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8270" class="LineNr"> 8270 </span> <span class="subxComment"># convert</span> -<span id="L8271" class="LineNr"> 8271 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8272" class="LineNr"> 8272 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8273" class="LineNr"> 8273 </span> <span class="subxComment"># restore ed</span> -<span id="L8274" class="LineNr"> 8274 </span> 89/<- %edx 4/r32/esp -<span id="L8275" class="LineNr"> 8275 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8276" class="LineNr"> 8276 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8277" class="Folded"> 8277 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8283" class="LineNr"> 8283 </span> <span class="subxComment"># check output</span> -<span id="L8284" class="LineNr"> 8284 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8249'>test-copy-to-with-no-register</a>: output should be empty"</span>) -<span id="L8285" class="LineNr"> 8285 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: source (second inout) is in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L8249'>test-copy-to-with-no-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8286" class="LineNr"> 8286 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8287" class="LineNr"> 8287 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8249'>test-copy-to-with-no-register</a>: exit status"</span>) -<span id="L8288" class="LineNr"> 8288 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8289" class="LineNr"> 8289 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8290" class="LineNr"> 8290 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8291" class="LineNr"> 8291 </span> 5d/pop-to-ebp -<span id="L8292" class="LineNr"> 8292 </span> c3/return -<span id="L8293" class="LineNr"> 8293 </span> -<span id="L8294" class="LineNr"> 8294 </span><span class="subxTest">test-copy-to-with-too-many-inouts</span>: -<span id="L8295" class="LineNr"> 8295 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8296" class="LineNr"> 8296 </span> 55/push-ebp -<span id="L8297" class="LineNr"> 8297 </span> 89/<- %ebp 4/r32/esp -<span id="L8298" class="LineNr"> 8298 </span> <span class="subxComment"># setup</span> -<span id="L8299" class="LineNr"> 8299 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8300" class="LineNr"> 8300 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8301" class="LineNr"> 8301 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8302" class="LineNr"> 8302 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8303" class="LineNr"> 8303 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8304" class="LineNr"> 8304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8305" class="LineNr"> 8305 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8306" class="LineNr"> 8306 </span> 68/push 0/imm32 +<span id="L8263" class="LineNr"> 8263 </span> 68/push 0/imm32 +<span id="L8264" class="LineNr"> 8264 </span> 89/<- %edx 4/r32/esp +<span id="L8265" class="LineNr"> 8265 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8266" class="LineNr"> 8266 </span> <span class="subxComment">#</span> +<span id="L8267" class="LineNr"> 8267 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8268" class="LineNr"> 8268 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\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 y/eax: int <- copy x\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">"}\n"</span>) +<span id="L8271" class="LineNr"> 8271 </span> <span class="subxComment"># convert</span> +<span id="L8272" class="LineNr"> 8272 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8273" class="LineNr"> 8273 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8274" class="LineNr"> 8274 </span> <span class="subxComment"># restore ed</span> +<span id="L8275" class="LineNr"> 8275 </span> 89/<- %edx 4/r32/esp +<span id="L8276" class="LineNr"> 8276 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8277" class="LineNr"> 8277 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8278" class="Folded"> 8278 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8284" class="LineNr"> 8284 </span> <span class="subxComment"># check output</span> +<span id="L8285" class="LineNr"> 8285 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8250'>test-copy-from-non-scalar-inout</a>: output should be empty"</span>) +<span id="L8286" class="LineNr"> 8286 </span> (<a href='109stream-equal.subx.html#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#L8250'>test-copy-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8287" class="LineNr"> 8287 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8288" class="LineNr"> 8288 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8250'>test-copy-from-non-scalar-inout</a>: exit status"</span>) +<span id="L8289" class="LineNr"> 8289 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8290" class="LineNr"> 8290 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8291" class="LineNr"> 8291 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8292" class="LineNr"> 8292 </span> 5d/pop-to-ebp +<span id="L8293" class="LineNr"> 8293 </span> c3/return +<span id="L8294" class="LineNr"> 8294 </span> +<span id="L8295" class="LineNr"> 8295 </span><span class="subxTest">test-copy-to-with-no-inout</span>: +<span id="L8296" class="LineNr"> 8296 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8297" class="LineNr"> 8297 </span> 55/push-ebp +<span id="L8298" class="LineNr"> 8298 </span> 89/<- %ebp 4/r32/esp +<span id="L8299" class="LineNr"> 8299 </span> <span class="subxComment"># setup</span> +<span id="L8300" class="LineNr"> 8300 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8301" class="LineNr"> 8301 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8302" class="LineNr"> 8302 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8303" class="LineNr"> 8303 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8304" class="LineNr"> 8304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8305" class="LineNr"> 8305 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8306" class="LineNr"> 8306 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <span id="L8307" class="LineNr"> 8307 </span> 68/push 0/imm32 -<span id="L8308" class="LineNr"> 8308 </span> 89/<- %edx 4/r32/esp -<span id="L8309" class="LineNr"> 8309 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8310" class="LineNr"> 8310 </span> <span class="subxComment">#</span> -<span id="L8311" class="LineNr"> 8311 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8312" class="LineNr"> 8312 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L8313" class="LineNr"> 8313 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x, 0, 0\n"</span>) +<span id="L8308" class="LineNr"> 8308 </span> 68/push 0/imm32 +<span id="L8309" class="LineNr"> 8309 </span> 89/<- %edx 4/r32/esp +<span id="L8310" class="LineNr"> 8310 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8311" class="LineNr"> 8311 </span> <span class="subxComment">#</span> +<span id="L8312" class="LineNr"> 8312 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8313" class="LineNr"> 8313 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to\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">"}\n"</span>) <span id="L8315" class="LineNr"> 8315 </span> <span class="subxComment"># convert</span> <span id="L8316" class="LineNr"> 8316 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -7596,19 +7596,19 @@ if ('onhashchange' in window) { <span id="L8319" class="LineNr"> 8319 </span> 89/<- %edx 4/r32/esp <span id="L8320" class="LineNr"> 8320 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L8321" class="LineNr"> 8321 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8322" class="Folded"> 8322 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8322" class="Folded"> 8322 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8328" class="LineNr"> 8328 </span> <span class="subxComment"># check output</span> -<span id="L8329" class="LineNr"> 8329 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8294'>test-copy-to-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L8330" class="LineNr"> 8330 </span> (<a href='109stream-equal.subx.html#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#L8294'>test-copy-to-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8329" class="LineNr"> 8329 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8295'>test-copy-to-with-no-inout</a>: output should be empty"</span>) +<span id="L8330" class="LineNr"> 8330 </span> (<a href='109stream-equal.subx.html#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#L8295'>test-copy-to-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L8331" class="LineNr"> 8331 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8332" class="LineNr"> 8332 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8294'>test-copy-to-with-too-many-inouts</a>: exit status"</span>) +<span id="L8332" class="LineNr"> 8332 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8295'>test-copy-to-with-no-inout</a>: exit status"</span>) <span id="L8333" class="LineNr"> 8333 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L8334" class="LineNr"> 8334 </span> 81 0/subop/add %esp 8/imm32 <span id="L8335" class="LineNr"> 8335 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L8336" class="LineNr"> 8336 </span> 5d/pop-to-ebp <span id="L8337" class="LineNr"> 8337 </span> c3/return <span id="L8338" class="LineNr"> 8338 </span> -<span id="L8339" class="LineNr"> 8339 </span><span class="subxTest">test-copy-to-with-output</span>: +<span id="L8339" class="LineNr"> 8339 </span><span class="subxTest">test-copy-to-with-no-source</span>: <span id="L8340" class="LineNr"> 8340 </span> <span class="subxS1Comment"># . prologue</span> <span id="L8341" class="LineNr"> 8341 </span> 55/push-ebp <span id="L8342" class="LineNr"> 8342 </span> 89/<- %ebp 4/r32/esp @@ -7626,929 +7626,929 @@ if ('onhashchange' in window) { <span id="L8354" class="LineNr"> 8354 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L8355" class="LineNr"> 8355 </span> <span class="subxComment">#</span> <span id="L8356" class="LineNr"> 8356 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8357" class="LineNr"> 8357 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L8358" class="LineNr"> 8358 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) -<span id="L8359" class="LineNr"> 8359 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy-to y, 0\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">"}\n"</span>) -<span id="L8361" class="LineNr"> 8361 </span> <span class="subxComment"># convert</span> -<span id="L8362" class="LineNr"> 8362 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8363" class="LineNr"> 8363 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8364" class="LineNr"> 8364 </span> <span class="subxComment"># restore ed</span> -<span id="L8365" class="LineNr"> 8365 </span> 89/<- %edx 4/r32/esp -<span id="L8366" class="LineNr"> 8366 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8367" class="LineNr"> 8367 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8368" class="Folded"> 8368 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8374" class="LineNr"> 8374 </span> <span class="subxComment"># check output</span> -<span id="L8375" class="LineNr"> 8375 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8339'>test-copy-to-with-output</a>: output should be empty"</span>) -<span id="L8376" class="LineNr"> 8376 </span> (<a href='109stream-equal.subx.html#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#L8339'>test-copy-to-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8377" class="LineNr"> 8377 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8378" class="LineNr"> 8378 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8339'>test-copy-to-with-output</a>: exit status"</span>) -<span id="L8379" class="LineNr"> 8379 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8380" class="LineNr"> 8380 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8381" class="LineNr"> 8381 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8382" class="LineNr"> 8382 </span> 5d/pop-to-ebp -<span id="L8383" class="LineNr"> 8383 </span> c3/return -<span id="L8384" class="LineNr"> 8384 </span> -<span id="L8385" class="LineNr"> 8385 </span><span class="subxTest">test-copy-to-invalid-value-to-address</span>: -<span id="L8386" class="LineNr"> 8386 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8387" class="LineNr"> 8387 </span> 55/push-ebp -<span id="L8388" class="LineNr"> 8388 </span> 89/<- %ebp 4/r32/esp -<span id="L8389" class="LineNr"> 8389 </span> <span class="subxComment"># setup</span> -<span id="L8390" class="LineNr"> 8390 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8391" class="LineNr"> 8391 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8392" class="LineNr"> 8392 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8393" class="LineNr"> 8393 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8394" class="LineNr"> 8394 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8395" class="LineNr"> 8395 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8396" class="LineNr"> 8396 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8357" class="LineNr"> 8357 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) +<span id="L8358" class="LineNr"> 8358 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x\n"</span>) +<span id="L8359" class="LineNr"> 8359 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8360" class="LineNr"> 8360 </span> <span class="subxComment"># convert</span> +<span id="L8361" class="LineNr"> 8361 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8362" class="LineNr"> 8362 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8363" class="LineNr"> 8363 </span> <span class="subxComment"># restore ed</span> +<span id="L8364" class="LineNr"> 8364 </span> 89/<- %edx 4/r32/esp +<span id="L8365" class="LineNr"> 8365 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8366" class="LineNr"> 8366 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8367" class="Folded"> 8367 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8373" class="LineNr"> 8373 </span> <span class="subxComment"># check output</span> +<span id="L8374" class="LineNr"> 8374 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8339'>test-copy-to-with-no-source</a>: output should be empty"</span>) +<span id="L8375" class="LineNr"> 8375 </span> (<a href='109stream-equal.subx.html#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#L8339'>test-copy-to-with-no-source</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8376" class="LineNr"> 8376 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8377" class="LineNr"> 8377 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8339'>test-copy-to-with-no-source</a>: exit status"</span>) +<span id="L8378" class="LineNr"> 8378 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8379" class="LineNr"> 8379 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8380" class="LineNr"> 8380 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8381" class="LineNr"> 8381 </span> 5d/pop-to-ebp +<span id="L8382" class="LineNr"> 8382 </span> c3/return +<span id="L8383" class="LineNr"> 8383 </span> +<span id="L8384" class="LineNr"> 8384 </span><span class="subxTest">test-copy-to-with-no-register</span>: +<span id="L8385" class="LineNr"> 8385 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8386" class="LineNr"> 8386 </span> 55/push-ebp +<span id="L8387" class="LineNr"> 8387 </span> 89/<- %ebp 4/r32/esp +<span id="L8388" class="LineNr"> 8388 </span> <span class="subxComment"># setup</span> +<span id="L8389" class="LineNr"> 8389 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8390" class="LineNr"> 8390 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8391" class="LineNr"> 8391 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8392" class="LineNr"> 8392 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8393" class="LineNr"> 8393 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8394" class="LineNr"> 8394 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8395" class="LineNr"> 8395 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8396" class="LineNr"> 8396 </span> 68/push 0/imm32 <span id="L8397" class="LineNr"> 8397 </span> 68/push 0/imm32 -<span id="L8398" class="LineNr"> 8398 </span> 68/push 0/imm32 -<span id="L8399" class="LineNr"> 8399 </span> 89/<- %edx 4/r32/esp -<span id="L8400" class="LineNr"> 8400 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8401" class="LineNr"> 8401 </span> <span class="subxComment">#</span> -<span id="L8402" class="LineNr"> 8402 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8403" class="LineNr"> 8403 </span> (<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="L8404" class="LineNr"> 8404 </span> (<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="L8405" class="LineNr"> 8405 </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="L8406" class="LineNr"> 8406 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8407" class="LineNr"> 8407 </span> <span class="subxComment"># convert</span> -<span id="L8408" class="LineNr"> 8408 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8409" class="LineNr"> 8409 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8410" class="LineNr"> 8410 </span> <span class="subxComment"># restore ed</span> -<span id="L8411" class="LineNr"> 8411 </span> 89/<- %edx 4/r32/esp -<span id="L8412" class="LineNr"> 8412 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8413" class="LineNr"> 8413 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8414" class="Folded"> 8414 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8420" class="LineNr"> 8420 </span> <span class="subxComment"># check output</span> -<span id="L8421" class="LineNr"> 8421 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8385'>test-copy-to-invalid-value-to-address</a>: output should be empty"</span>) -<span id="L8422" class="LineNr"> 8422 </span> (<a href='109stream-equal.subx.html#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#L8385'>test-copy-to-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8423" class="LineNr"> 8423 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8424" class="LineNr"> 8424 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8385'>test-copy-to-invalid-value-to-address</a>: exit status"</span>) -<span id="L8425" class="LineNr"> 8425 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8426" class="LineNr"> 8426 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8427" class="LineNr"> 8427 </span> <span class="subxS1Comment"># . epilogue</span> -<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-null-value-to-address</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> <span class="subxComment">#</span> -<span id="L8441" class="LineNr"> 8441 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8442" class="LineNr"> 8442 </span> (<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="L8443" class="LineNr"> 8443 </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="L8444" class="LineNr"> 8444 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8445" class="LineNr"> 8445 </span> <span class="subxComment"># convert</span> -<span id="L8446" class="LineNr"> 8446 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L8447" class="LineNr"> 8447 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8448" class="LineNr"> 8448 </span> <span class="subxComment"># no errors</span> -<span id="L8449" class="LineNr"> 8449 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8450" class="LineNr"> 8450 </span> 89/<- %esp 5/r32/ebp -<span id="L8451" class="LineNr"> 8451 </span> 5d/pop-to-ebp -<span id="L8452" class="LineNr"> 8452 </span> c3/return -<span id="L8453" class="LineNr"> 8453 </span> -<span id="L8454" class="LineNr"> 8454 </span><span class="subxTest">test-copy-to-invalid-value-to-offset</span>: -<span id="L8455" class="LineNr"> 8455 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8456" class="LineNr"> 8456 </span> 55/push-ebp -<span id="L8457" class="LineNr"> 8457 </span> 89/<- %ebp 4/r32/esp -<span id="L8458" class="LineNr"> 8458 </span> <span class="subxComment"># setup</span> -<span id="L8459" class="LineNr"> 8459 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8460" class="LineNr"> 8460 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8461" class="LineNr"> 8461 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8462" class="LineNr"> 8462 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8463" class="LineNr"> 8463 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8464" class="LineNr"> 8464 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8465" class="LineNr"> 8465 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8466" class="LineNr"> 8466 </span> 68/push 0/imm32 -<span id="L8467" class="LineNr"> 8467 </span> 68/push 0/imm32 -<span id="L8468" class="LineNr"> 8468 </span> 89/<- %edx 4/r32/esp -<span id="L8469" class="LineNr"> 8469 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8470" class="LineNr"> 8470 </span> <span class="subxComment">#</span> -<span id="L8471" class="LineNr"> 8471 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8472" class="LineNr"> 8472 </span> (<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="L8473" class="LineNr"> 8473 </span> (<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="L8474" class="LineNr"> 8474 </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="L8475" class="LineNr"> 8475 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8476" class="LineNr"> 8476 </span> <span class="subxComment"># convert</span> -<span id="L8477" class="LineNr"> 8477 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8478" class="LineNr"> 8478 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8479" class="LineNr"> 8479 </span> <span class="subxComment"># restore ed</span> -<span id="L8480" class="LineNr"> 8480 </span> 89/<- %edx 4/r32/esp -<span id="L8481" class="LineNr"> 8481 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8482" class="LineNr"> 8482 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8483" class="Folded"> 8483 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8489" class="LineNr"> 8489 </span> <span class="subxComment"># check output</span> -<span id="L8490" class="LineNr"> 8490 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8454'>test-copy-to-invalid-value-to-offset</a>: output should be empty"</span>) -<span id="L8491" class="LineNr"> 8491 </span> (<a href='109stream-equal.subx.html#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#L8454'>test-copy-to-invalid-value-to-offset</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8492" class="LineNr"> 8492 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8493" class="LineNr"> 8493 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8454'>test-copy-to-invalid-value-to-offset</a>: exit status"</span>) -<span id="L8494" class="LineNr"> 8494 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8495" class="LineNr"> 8495 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8496" class="LineNr"> 8496 </span> <span class="subxS1Comment"># . epilogue</span> -<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-null-value-to-offset</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> <span class="subxComment">#</span> -<span id="L8510" class="LineNr"> 8510 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8511" class="LineNr"> 8511 </span> (<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="L8512" class="LineNr"> 8512 </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="L8513" class="LineNr"> 8513 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8514" class="LineNr"> 8514 </span> <span class="subxComment"># convert</span> -<span id="L8515" class="LineNr"> 8515 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L8516" class="LineNr"> 8516 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8517" class="LineNr"> 8517 </span> <span class="subxComment"># no errors</span> -<span id="L8518" class="LineNr"> 8518 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8519" class="LineNr"> 8519 </span> 89/<- %esp 5/r32/ebp -<span id="L8520" class="LineNr"> 8520 </span> 5d/pop-to-ebp -<span id="L8521" class="LineNr"> 8521 </span> c3/return -<span id="L8522" class="LineNr"> 8522 </span> -<span id="L8523" class="LineNr"> 8523 </span><span class="subxTest">test-copy-to-non-literal-to-byte</span>: -<span id="L8524" class="LineNr"> 8524 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8525" class="LineNr"> 8525 </span> 55/push-ebp -<span id="L8526" class="LineNr"> 8526 </span> 89/<- %ebp 4/r32/esp -<span id="L8527" class="LineNr"> 8527 </span> <span class="subxComment"># setup</span> -<span id="L8528" class="LineNr"> 8528 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8529" class="LineNr"> 8529 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8530" class="LineNr"> 8530 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8531" class="LineNr"> 8531 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8532" class="LineNr"> 8532 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8533" class="LineNr"> 8533 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8534" class="LineNr"> 8534 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8535" class="LineNr"> 8535 </span> 68/push 0/imm32 -<span id="L8536" class="LineNr"> 8536 </span> 68/push 0/imm32 -<span id="L8537" class="LineNr"> 8537 </span> 89/<- %edx 4/r32/esp -<span id="L8538" class="LineNr"> 8538 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8539" class="LineNr"> 8539 </span> <span class="subxComment">#</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">"fn foo {\n"</span>) -<span id="L8541" class="LineNr"> 8541 </span> (<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="L8542" class="LineNr"> 8542 </span> (<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="L8543" class="LineNr"> 8543 </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="L8544" class="LineNr"> 8544 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8545" class="LineNr"> 8545 </span> <span class="subxComment"># convert</span> -<span id="L8546" class="LineNr"> 8546 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8547" class="LineNr"> 8547 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8548" class="LineNr"> 8548 </span> <span class="subxComment"># restore ed</span> -<span id="L8549" class="LineNr"> 8549 </span> 89/<- %edx 4/r32/esp -<span id="L8550" class="LineNr"> 8550 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8551" class="LineNr"> 8551 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8552" class="Folded"> 8552 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8558" class="LineNr"> 8558 </span> <span class="subxComment"># check output</span> -<span id="L8559" class="LineNr"> 8559 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8523'>test-copy-to-non-literal-to-byte</a>: output should be empty"</span>) -<span id="L8560" class="LineNr"> 8560 </span> (<a href='109stream-equal.subx.html#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#L8523'>test-copy-to-non-literal-to-byte</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8561" class="LineNr"> 8561 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8562" class="LineNr"> 8562 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8523'>test-copy-to-non-literal-to-byte</a>: exit status"</span>) -<span id="L8563" class="LineNr"> 8563 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8564" class="LineNr"> 8564 </span> 81 0/subop/add %esp 8/imm32 -<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-deref-address</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> <span class="subxComment">#</span> -<span id="L8579" class="LineNr"> 8579 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8580" class="LineNr"> 8580 </span> (<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="L8581" class="LineNr"> 8581 </span> (<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="L8582" class="LineNr"> 8582 </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="L8583" class="LineNr"> 8583 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8584" class="LineNr"> 8584 </span> <span class="subxComment"># convert</span> -<span id="L8585" class="LineNr"> 8585 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L8586" class="LineNr"> 8586 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8587" class="LineNr"> 8587 </span> <span class="subxComment"># no errors</span> -<span id="L8588" class="LineNr"> 8588 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8589" class="LineNr"> 8589 </span> 5d/pop-to-ebp -<span id="L8590" class="LineNr"> 8590 </span> c3/return -<span id="L8591" class="LineNr"> 8591 </span> -<span id="L8592" class="LineNr"> 8592 </span><span class="subxTest">test-copy-to-from-non-scalar-inout</span>: -<span id="L8593" class="LineNr"> 8593 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8594" class="LineNr"> 8594 </span> 55/push-ebp -<span id="L8595" class="LineNr"> 8595 </span> 89/<- %ebp 4/r32/esp -<span id="L8596" class="LineNr"> 8596 </span> <span class="subxComment"># setup</span> -<span id="L8597" class="LineNr"> 8597 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8598" class="LineNr"> 8598 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8599" class="LineNr"> 8599 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8600" class="LineNr"> 8600 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8601" class="LineNr"> 8601 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8602" class="LineNr"> 8602 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8603" class="LineNr"> 8603 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8604" class="LineNr"> 8604 </span> 68/push 0/imm32 -<span id="L8605" class="LineNr"> 8605 </span> 68/push 0/imm32 -<span id="L8606" class="LineNr"> 8606 </span> 89/<- %edx 4/r32/esp -<span id="L8607" class="LineNr"> 8607 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8608" class="LineNr"> 8608 </span> <span class="subxComment">#</span> -<span id="L8609" class="LineNr"> 8609 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8610" class="LineNr"> 8610 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) -<span id="L8611" class="LineNr"> 8611 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L8612" class="LineNr"> 8612 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, x\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">"}\n"</span>) -<span id="L8614" class="LineNr"> 8614 </span> <span class="subxComment"># convert</span> -<span id="L8615" class="LineNr"> 8615 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8616" class="LineNr"> 8616 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8617" class="LineNr"> 8617 </span> <span class="subxComment"># restore ed</span> -<span id="L8618" class="LineNr"> 8618 </span> 89/<- %edx 4/r32/esp -<span id="L8619" class="LineNr"> 8619 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8620" class="LineNr"> 8620 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8621" class="Folded"> 8621 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8627" class="LineNr"> 8627 </span> <span class="subxComment"># check output</span> -<span id="L8628" class="LineNr"> 8628 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8592'>test-copy-to-from-non-scalar-inout</a>: output should be empty"</span>) -<span id="L8629" class="LineNr"> 8629 </span> (<a href='109stream-equal.subx.html#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#L8592'>test-copy-to-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8630" class="LineNr"> 8630 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8631" class="LineNr"> 8631 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8592'>test-copy-to-from-non-scalar-inout</a>: exit status"</span>) -<span id="L8632" class="LineNr"> 8632 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8633" class="LineNr"> 8633 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8634" class="LineNr"> 8634 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8635" class="LineNr"> 8635 </span> 5d/pop-to-ebp -<span id="L8636" class="LineNr"> 8636 </span> c3/return -<span id="L8637" class="LineNr"> 8637 </span> -<span id="L8638" class="LineNr"> 8638 </span><span class="subxTest">test-copy-byte-with-no-inout</span>: -<span id="L8639" class="LineNr"> 8639 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8640" class="LineNr"> 8640 </span> 55/push-ebp -<span id="L8641" class="LineNr"> 8641 </span> 89/<- %ebp 4/r32/esp -<span id="L8642" class="LineNr"> 8642 </span> <span class="subxComment"># setup</span> -<span id="L8643" class="LineNr"> 8643 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8644" class="LineNr"> 8644 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8645" class="LineNr"> 8645 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8646" class="LineNr"> 8646 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8647" class="LineNr"> 8647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8648" class="LineNr"> 8648 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8649" class="LineNr"> 8649 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8650" class="LineNr"> 8650 </span> 68/push 0/imm32 -<span id="L8651" class="LineNr"> 8651 </span> 68/push 0/imm32 -<span id="L8652" class="LineNr"> 8652 </span> 89/<- %edx 4/r32/esp -<span id="L8653" class="LineNr"> 8653 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8654" class="LineNr"> 8654 </span> <span class="subxComment">#</span> -<span id="L8655" class="LineNr"> 8655 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8656" class="LineNr"> 8656 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy-byte\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">"}\n"</span>) -<span id="L8658" class="LineNr"> 8658 </span> <span class="subxComment"># convert</span> -<span id="L8659" class="LineNr"> 8659 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8660" class="LineNr"> 8660 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8661" class="LineNr"> 8661 </span> <span class="subxComment"># restore ed</span> -<span id="L8662" class="LineNr"> 8662 </span> 89/<- %edx 4/r32/esp -<span id="L8663" class="LineNr"> 8663 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8664" class="LineNr"> 8664 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8665" class="Folded"> 8665 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8671" class="LineNr"> 8671 </span> <span class="subxComment"># check output</span> -<span id="L8672" class="LineNr"> 8672 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8638'>test-copy-byte-with-no-inout</a>: output should be empty"</span>) -<span id="L8673" class="LineNr"> 8673 </span> (<a href='109stream-equal.subx.html#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#L8638'>test-copy-byte-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8674" class="LineNr"> 8674 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8675" class="LineNr"> 8675 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8638'>test-copy-byte-with-no-inout</a>: exit status"</span>) -<span id="L8676" class="LineNr"> 8676 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8677" class="LineNr"> 8677 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8678" class="LineNr"> 8678 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8679" class="LineNr"> 8679 </span> 5d/pop-to-ebp -<span id="L8680" class="LineNr"> 8680 </span> c3/return -<span id="L8681" class="LineNr"> 8681 </span> -<span id="L8682" class="LineNr"> 8682 </span><span class="subxTest">test-copy-byte-with-multiple-inouts</span>: -<span id="L8683" class="LineNr"> 8683 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8684" class="LineNr"> 8684 </span> 55/push-ebp -<span id="L8685" class="LineNr"> 8685 </span> 89/<- %ebp 4/r32/esp -<span id="L8686" class="LineNr"> 8686 </span> <span class="subxComment"># setup</span> -<span id="L8687" class="LineNr"> 8687 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8688" class="LineNr"> 8688 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8689" class="LineNr"> 8689 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8690" class="LineNr"> 8690 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8691" class="LineNr"> 8691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8692" class="LineNr"> 8692 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8693" class="LineNr"> 8693 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8694" class="LineNr"> 8694 </span> 68/push 0/imm32 -<span id="L8695" class="LineNr"> 8695 </span> 68/push 0/imm32 -<span id="L8696" class="LineNr"> 8696 </span> 89/<- %edx 4/r32/esp -<span id="L8697" class="LineNr"> 8697 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8698" class="LineNr"> 8698 </span> <span class="subxComment">#</span> -<span id="L8699" class="LineNr"> 8699 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8700" class="LineNr"> 8700 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy-byte 0, 0\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">"}\n"</span>) -<span id="L8702" class="LineNr"> 8702 </span> <span class="subxComment"># convert</span> -<span id="L8703" class="LineNr"> 8703 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8704" class="LineNr"> 8704 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8705" class="LineNr"> 8705 </span> <span class="subxComment"># restore ed</span> -<span id="L8706" class="LineNr"> 8706 </span> 89/<- %edx 4/r32/esp -<span id="L8707" class="LineNr"> 8707 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8708" class="LineNr"> 8708 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8709" class="Folded"> 8709 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8715" class="LineNr"> 8715 </span> <span class="subxComment"># check output</span> -<span id="L8716" class="LineNr"> 8716 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8682'>test-copy-byte-with-multiple-inouts</a>: output should be empty"</span>) -<span id="L8717" class="LineNr"> 8717 </span> (<a href='109stream-equal.subx.html#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#L8682'>test-copy-byte-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8718" class="LineNr"> 8718 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8719" class="LineNr"> 8719 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8682'>test-copy-byte-with-multiple-inouts</a>: exit status"</span>) -<span id="L8720" class="LineNr"> 8720 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8721" class="LineNr"> 8721 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8722" class="LineNr"> 8722 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8723" class="LineNr"> 8723 </span> 5d/pop-to-ebp -<span id="L8724" class="LineNr"> 8724 </span> c3/return -<span id="L8725" class="LineNr"> 8725 </span> -<span id="L8726" class="LineNr"> 8726 </span><span class="subxTest">test-copy-byte-with-no-output</span>: -<span id="L8727" class="LineNr"> 8727 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8728" class="LineNr"> 8728 </span> 55/push-ebp -<span id="L8729" class="LineNr"> 8729 </span> 89/<- %ebp 4/r32/esp -<span id="L8730" class="LineNr"> 8730 </span> <span class="subxComment"># setup</span> -<span id="L8731" class="LineNr"> 8731 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8732" class="LineNr"> 8732 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8733" class="LineNr"> 8733 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8734" class="LineNr"> 8734 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8735" class="LineNr"> 8735 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8736" class="LineNr"> 8736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8737" class="LineNr"> 8737 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8738" class="LineNr"> 8738 </span> 68/push 0/imm32 +<span id="L8398" class="LineNr"> 8398 </span> 89/<- %edx 4/r32/esp +<span id="L8399" class="LineNr"> 8399 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8400" class="LineNr"> 8400 </span> <span class="subxComment">#</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">"fn foo {\n"</span>) +<span id="L8402" class="LineNr"> 8402 </span> (<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="L8403" class="LineNr"> 8403 </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="L8404" class="LineNr"> 8404 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8405" class="LineNr"> 8405 </span> <span class="subxComment"># convert</span> +<span id="L8406" class="LineNr"> 8406 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8407" class="LineNr"> 8407 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8408" class="LineNr"> 8408 </span> <span class="subxComment"># restore ed</span> +<span id="L8409" class="LineNr"> 8409 </span> 89/<- %edx 4/r32/esp +<span id="L8410" class="LineNr"> 8410 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8411" class="LineNr"> 8411 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8412" class="Folded"> 8412 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8418" class="LineNr"> 8418 </span> <span class="subxComment"># check output</span> +<span id="L8419" class="LineNr"> 8419 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8384'>test-copy-to-with-no-register</a>: output should be empty"</span>) +<span id="L8420" class="LineNr"> 8420 </span> (<a href='109stream-equal.subx.html#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#L8384'>test-copy-to-with-no-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8421" class="LineNr"> 8421 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8422" class="LineNr"> 8422 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8384'>test-copy-to-with-no-register</a>: exit status"</span>) +<span id="L8423" class="LineNr"> 8423 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8424" class="LineNr"> 8424 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8425" class="LineNr"> 8425 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8426" class="LineNr"> 8426 </span> 5d/pop-to-ebp +<span id="L8427" class="LineNr"> 8427 </span> c3/return +<span id="L8428" class="LineNr"> 8428 </span> +<span id="L8429" class="LineNr"> 8429 </span><span class="subxTest">test-copy-to-with-too-many-inouts</span>: +<span id="L8430" class="LineNr"> 8430 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8431" class="LineNr"> 8431 </span> 55/push-ebp +<span id="L8432" class="LineNr"> 8432 </span> 89/<- %ebp 4/r32/esp +<span id="L8433" class="LineNr"> 8433 </span> <span class="subxComment"># setup</span> +<span id="L8434" class="LineNr"> 8434 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8435" class="LineNr"> 8435 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8436" class="LineNr"> 8436 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8437" class="LineNr"> 8437 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-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#L438'>_test-error-stream</a>) +<span id="L8439" class="LineNr"> 8439 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8440" class="LineNr"> 8440 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8441" class="LineNr"> 8441 </span> 68/push 0/imm32 +<span id="L8442" class="LineNr"> 8442 </span> 68/push 0/imm32 +<span id="L8443" class="LineNr"> 8443 </span> 89/<- %edx 4/r32/esp +<span id="L8444" class="LineNr"> 8444 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8445" class="LineNr"> 8445 </span> <span class="subxComment">#</span> +<span id="L8446" class="LineNr"> 8446 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8447" class="LineNr"> 8447 </span> (<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="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">" copy-to x, 0, 0\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">"}\n"</span>) +<span id="L8450" class="LineNr"> 8450 </span> <span class="subxComment"># convert</span> +<span id="L8451" class="LineNr"> 8451 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8452" class="LineNr"> 8452 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8453" class="LineNr"> 8453 </span> <span class="subxComment"># restore ed</span> +<span id="L8454" class="LineNr"> 8454 </span> 89/<- %edx 4/r32/esp +<span id="L8455" class="LineNr"> 8455 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8456" class="LineNr"> 8456 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8457" class="Folded"> 8457 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8463" class="LineNr"> 8463 </span> <span class="subxComment"># check output</span> +<span id="L8464" class="LineNr"> 8464 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8429'>test-copy-to-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L8465" class="LineNr"> 8465 </span> (<a href='109stream-equal.subx.html#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#L8429'>test-copy-to-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8466" class="LineNr"> 8466 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8467" class="LineNr"> 8467 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8429'>test-copy-to-with-too-many-inouts</a>: exit status"</span>) +<span id="L8468" class="LineNr"> 8468 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8469" class="LineNr"> 8469 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8470" class="LineNr"> 8470 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8471" class="LineNr"> 8471 </span> 5d/pop-to-ebp +<span id="L8472" class="LineNr"> 8472 </span> c3/return +<span id="L8473" class="LineNr"> 8473 </span> +<span id="L8474" class="LineNr"> 8474 </span><span class="subxTest">test-copy-to-with-output</span>: +<span id="L8475" class="LineNr"> 8475 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8476" class="LineNr"> 8476 </span> 55/push-ebp +<span id="L8477" class="LineNr"> 8477 </span> 89/<- %ebp 4/r32/esp +<span id="L8478" class="LineNr"> 8478 </span> <span class="subxComment"># setup</span> +<span id="L8479" class="LineNr"> 8479 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8480" class="LineNr"> 8480 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8481" class="LineNr"> 8481 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8482" class="LineNr"> 8482 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8483" class="LineNr"> 8483 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8484" class="LineNr"> 8484 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8485" class="LineNr"> 8485 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8486" class="LineNr"> 8486 </span> 68/push 0/imm32 +<span id="L8487" class="LineNr"> 8487 </span> 68/push 0/imm32 +<span id="L8488" class="LineNr"> 8488 </span> 89/<- %edx 4/r32/esp +<span id="L8489" class="LineNr"> 8489 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8490" class="LineNr"> 8490 </span> <span class="subxComment">#</span> +<span id="L8491" class="LineNr"> 8491 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8492" class="LineNr"> 8492 </span> (<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="L8493" class="LineNr"> 8493 </span> (<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="L8494" class="LineNr"> 8494 </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="L8495" class="LineNr"> 8495 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8496" class="LineNr"> 8496 </span> <span class="subxComment"># convert</span> +<span id="L8497" class="LineNr"> 8497 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8498" class="LineNr"> 8498 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8499" class="LineNr"> 8499 </span> <span class="subxComment"># restore ed</span> +<span id="L8500" class="LineNr"> 8500 </span> 89/<- %edx 4/r32/esp +<span id="L8501" class="LineNr"> 8501 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8502" class="LineNr"> 8502 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8503" class="Folded"> 8503 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8509" class="LineNr"> 8509 </span> <span class="subxComment"># check output</span> +<span id="L8510" class="LineNr"> 8510 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8474'>test-copy-to-with-output</a>: output should be empty"</span>) +<span id="L8511" class="LineNr"> 8511 </span> (<a href='109stream-equal.subx.html#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#L8474'>test-copy-to-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8512" class="LineNr"> 8512 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8513" class="LineNr"> 8513 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8474'>test-copy-to-with-output</a>: exit status"</span>) +<span id="L8514" class="LineNr"> 8514 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8515" class="LineNr"> 8515 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8516" class="LineNr"> 8516 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8517" class="LineNr"> 8517 </span> 5d/pop-to-ebp +<span id="L8518" class="LineNr"> 8518 </span> c3/return +<span id="L8519" class="LineNr"> 8519 </span> +<span id="L8520" class="LineNr"> 8520 </span><span class="subxTest">test-copy-to-invalid-value-to-address</span>: +<span id="L8521" class="LineNr"> 8521 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8522" class="LineNr"> 8522 </span> 55/push-ebp +<span id="L8523" class="LineNr"> 8523 </span> 89/<- %ebp 4/r32/esp +<span id="L8524" class="LineNr"> 8524 </span> <span class="subxComment"># setup</span> +<span id="L8525" class="LineNr"> 8525 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8526" class="LineNr"> 8526 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8527" class="LineNr"> 8527 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8528" class="LineNr"> 8528 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8529" class="LineNr"> 8529 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8530" class="LineNr"> 8530 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8531" class="LineNr"> 8531 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8532" class="LineNr"> 8532 </span> 68/push 0/imm32 +<span id="L8533" class="LineNr"> 8533 </span> 68/push 0/imm32 +<span id="L8534" class="LineNr"> 8534 </span> 89/<- %edx 4/r32/esp +<span id="L8535" class="LineNr"> 8535 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8536" class="LineNr"> 8536 </span> <span class="subxComment">#</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">"fn foo {\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 x/eax: 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">" var y: (addr int)\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">" copy-to y, x\n"</span>) +<span id="L8541" class="LineNr"> 8541 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8542" class="LineNr"> 8542 </span> <span class="subxComment"># convert</span> +<span id="L8543" class="LineNr"> 8543 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8544" class="LineNr"> 8544 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8545" class="LineNr"> 8545 </span> <span class="subxComment"># restore ed</span> +<span id="L8546" class="LineNr"> 8546 </span> 89/<- %edx 4/r32/esp +<span id="L8547" class="LineNr"> 8547 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8548" class="LineNr"> 8548 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8549" class="Folded"> 8549 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8555" class="LineNr"> 8555 </span> <span class="subxComment"># check output</span> +<span id="L8556" class="LineNr"> 8556 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8520'>test-copy-to-invalid-value-to-address</a>: output should be empty"</span>) +<span id="L8557" class="LineNr"> 8557 </span> (<a href='109stream-equal.subx.html#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#L8520'>test-copy-to-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8558" class="LineNr"> 8558 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8559" class="LineNr"> 8559 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8520'>test-copy-to-invalid-value-to-address</a>: exit status"</span>) +<span id="L8560" class="LineNr"> 8560 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8561" class="LineNr"> 8561 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8562" class="LineNr"> 8562 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8563" class="LineNr"> 8563 </span> 5d/pop-to-ebp +<span id="L8564" class="LineNr"> 8564 </span> c3/return +<span id="L8565" class="LineNr"> 8565 </span> +<span id="L8566" class="LineNr"> 8566 </span><span class="subxTest">test-copy-to-null-value-to-address</span>: +<span id="L8567" class="LineNr"> 8567 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8568" class="LineNr"> 8568 </span> 55/push-ebp +<span id="L8569" class="LineNr"> 8569 </span> 89/<- %ebp 4/r32/esp +<span id="L8570" class="LineNr"> 8570 </span> <span class="subxComment"># setup</span> +<span id="L8571" class="LineNr"> 8571 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8572" class="LineNr"> 8572 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8573" class="LineNr"> 8573 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8574" class="LineNr"> 8574 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8575" class="LineNr"> 8575 </span> <span class="subxComment">#</span> +<span id="L8576" class="LineNr"> 8576 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8577" class="LineNr"> 8577 </span> (<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="L8578" class="LineNr"> 8578 </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="L8579" class="LineNr"> 8579 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8580" class="LineNr"> 8580 </span> <span class="subxComment"># convert</span> +<span id="L8581" class="LineNr"> 8581 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L8582" class="LineNr"> 8582 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8583" class="LineNr"> 8583 </span> <span class="subxComment"># no errors</span> +<span id="L8584" class="LineNr"> 8584 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8585" class="LineNr"> 8585 </span> 89/<- %esp 5/r32/ebp +<span id="L8586" class="LineNr"> 8586 </span> 5d/pop-to-ebp +<span id="L8587" class="LineNr"> 8587 </span> c3/return +<span id="L8588" class="LineNr"> 8588 </span> +<span id="L8589" class="LineNr"> 8589 </span><span class="subxTest">test-copy-to-invalid-value-to-offset</span>: +<span id="L8590" class="LineNr"> 8590 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8591" class="LineNr"> 8591 </span> 55/push-ebp +<span id="L8592" class="LineNr"> 8592 </span> 89/<- %ebp 4/r32/esp +<span id="L8593" class="LineNr"> 8593 </span> <span class="subxComment"># setup</span> +<span id="L8594" class="LineNr"> 8594 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8595" class="LineNr"> 8595 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8596" class="LineNr"> 8596 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8597" class="LineNr"> 8597 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8598" class="LineNr"> 8598 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8599" class="LineNr"> 8599 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8600" class="LineNr"> 8600 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8601" class="LineNr"> 8601 </span> 68/push 0/imm32 +<span id="L8602" class="LineNr"> 8602 </span> 68/push 0/imm32 +<span id="L8603" class="LineNr"> 8603 </span> 89/<- %edx 4/r32/esp +<span id="L8604" class="LineNr"> 8604 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8605" class="LineNr"> 8605 </span> <span class="subxComment">#</span> +<span id="L8606" class="LineNr"> 8606 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8607" class="LineNr"> 8607 </span> (<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="L8608" class="LineNr"> 8608 </span> (<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="L8609" class="LineNr"> 8609 </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="L8610" class="LineNr"> 8610 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8611" class="LineNr"> 8611 </span> <span class="subxComment"># convert</span> +<span id="L8612" class="LineNr"> 8612 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8613" class="LineNr"> 8613 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8614" class="LineNr"> 8614 </span> <span class="subxComment"># restore ed</span> +<span id="L8615" class="LineNr"> 8615 </span> 89/<- %edx 4/r32/esp +<span id="L8616" class="LineNr"> 8616 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8617" class="LineNr"> 8617 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8618" class="Folded"> 8618 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8624" class="LineNr"> 8624 </span> <span class="subxComment"># check output</span> +<span id="L8625" class="LineNr"> 8625 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8589'>test-copy-to-invalid-value-to-offset</a>: output should be empty"</span>) +<span id="L8626" class="LineNr"> 8626 </span> (<a href='109stream-equal.subx.html#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#L8589'>test-copy-to-invalid-value-to-offset</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8627" class="LineNr"> 8627 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8628" class="LineNr"> 8628 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8589'>test-copy-to-invalid-value-to-offset</a>: exit status"</span>) +<span id="L8629" class="LineNr"> 8629 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8630" class="LineNr"> 8630 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8631" class="LineNr"> 8631 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8632" class="LineNr"> 8632 </span> 5d/pop-to-ebp +<span id="L8633" class="LineNr"> 8633 </span> c3/return +<span id="L8634" class="LineNr"> 8634 </span> +<span id="L8635" class="LineNr"> 8635 </span><span class="subxTest">test-copy-to-null-value-to-offset</span>: +<span id="L8636" class="LineNr"> 8636 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8637" class="LineNr"> 8637 </span> 55/push-ebp +<span id="L8638" class="LineNr"> 8638 </span> 89/<- %ebp 4/r32/esp +<span id="L8639" class="LineNr"> 8639 </span> <span class="subxComment"># setup</span> +<span id="L8640" class="LineNr"> 8640 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8641" class="LineNr"> 8641 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8642" class="LineNr"> 8642 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8643" class="LineNr"> 8643 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8644" class="LineNr"> 8644 </span> <span class="subxComment">#</span> +<span id="L8645" class="LineNr"> 8645 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8646" class="LineNr"> 8646 </span> (<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="L8647" class="LineNr"> 8647 </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="L8648" class="LineNr"> 8648 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8649" class="LineNr"> 8649 </span> <span class="subxComment"># convert</span> +<span id="L8650" class="LineNr"> 8650 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L8651" class="LineNr"> 8651 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8652" class="LineNr"> 8652 </span> <span class="subxComment"># no errors</span> +<span id="L8653" class="LineNr"> 8653 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8654" class="LineNr"> 8654 </span> 89/<- %esp 5/r32/ebp +<span id="L8655" class="LineNr"> 8655 </span> 5d/pop-to-ebp +<span id="L8656" class="LineNr"> 8656 </span> c3/return +<span id="L8657" class="LineNr"> 8657 </span> +<span id="L8658" class="LineNr"> 8658 </span><span class="subxTest">test-copy-to-non-literal-to-byte</span>: +<span id="L8659" class="LineNr"> 8659 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8660" class="LineNr"> 8660 </span> 55/push-ebp +<span id="L8661" class="LineNr"> 8661 </span> 89/<- %ebp 4/r32/esp +<span id="L8662" class="LineNr"> 8662 </span> <span class="subxComment"># setup</span> +<span id="L8663" class="LineNr"> 8663 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8664" class="LineNr"> 8664 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8665" class="LineNr"> 8665 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8666" class="LineNr"> 8666 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8667" class="LineNr"> 8667 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8668" class="LineNr"> 8668 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8669" class="LineNr"> 8669 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8670" class="LineNr"> 8670 </span> 68/push 0/imm32 +<span id="L8671" class="LineNr"> 8671 </span> 68/push 0/imm32 +<span id="L8672" class="LineNr"> 8672 </span> 89/<- %edx 4/r32/esp +<span id="L8673" class="LineNr"> 8673 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8674" class="LineNr"> 8674 </span> <span class="subxComment">#</span> +<span id="L8675" class="LineNr"> 8675 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</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">" var x/ecx: byte <- copy 3\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 y/eax: (addr byte) <- copy 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">" copy-to *y, x\n"</span>) +<span id="L8679" class="LineNr"> 8679 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8680" class="LineNr"> 8680 </span> <span class="subxComment"># convert</span> +<span id="L8681" class="LineNr"> 8681 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8682" class="LineNr"> 8682 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8683" class="LineNr"> 8683 </span> <span class="subxComment"># restore ed</span> +<span id="L8684" class="LineNr"> 8684 </span> 89/<- %edx 4/r32/esp +<span id="L8685" class="LineNr"> 8685 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8686" class="LineNr"> 8686 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8687" class="Folded"> 8687 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8693" class="LineNr"> 8693 </span> <span class="subxComment"># check output</span> +<span id="L8694" class="LineNr"> 8694 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8658'>test-copy-to-non-literal-to-byte</a>: output should be empty"</span>) +<span id="L8695" class="LineNr"> 8695 </span> (<a href='109stream-equal.subx.html#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#L8658'>test-copy-to-non-literal-to-byte</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8696" class="LineNr"> 8696 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8697" class="LineNr"> 8697 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8658'>test-copy-to-non-literal-to-byte</a>: exit status"</span>) +<span id="L8698" class="LineNr"> 8698 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8699" class="LineNr"> 8699 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8700" class="LineNr"> 8700 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8701" class="LineNr"> 8701 </span> 5d/pop-to-ebp +<span id="L8702" class="LineNr"> 8702 </span> c3/return +<span id="L8703" class="LineNr"> 8703 </span> +<span id="L8704" class="LineNr"> 8704 </span><span class="subxTest">test-copy-to-deref-address</span>: +<span id="L8705" class="LineNr"> 8705 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8706" class="LineNr"> 8706 </span> 55/push-ebp +<span id="L8707" class="LineNr"> 8707 </span> 89/<- %ebp 4/r32/esp +<span id="L8708" class="LineNr"> 8708 </span> <span class="subxComment"># setup</span> +<span id="L8709" class="LineNr"> 8709 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8710" class="LineNr"> 8710 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8711" class="LineNr"> 8711 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8712" class="LineNr"> 8712 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8713" class="LineNr"> 8713 </span> <span class="subxComment">#</span> +<span id="L8714" class="LineNr"> 8714 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8715" class="LineNr"> 8715 </span> (<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="L8716" class="LineNr"> 8716 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr int) <- copy 0\n"</span>) +<span id="L8717" class="LineNr"> 8717 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to *y, x\n"</span>) +<span id="L8718" class="LineNr"> 8718 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8719" class="LineNr"> 8719 </span> <span class="subxComment"># convert</span> +<span id="L8720" class="LineNr"> 8720 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L8721" class="LineNr"> 8721 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8722" class="LineNr"> 8722 </span> <span class="subxComment"># no errors</span> +<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-to-from-non-scalar-inout</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> 89/<- %edx 4/r32/esp -<span id="L8741" class="LineNr"> 8741 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8742" class="LineNr"> 8742 </span> <span class="subxComment">#</span> -<span id="L8743" class="LineNr"> 8743 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8744" class="LineNr"> 8744 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte 0\n"</span>) -<span id="L8745" class="LineNr"> 8745 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8746" class="LineNr"> 8746 </span> <span class="subxComment"># convert</span> -<span id="L8747" class="LineNr"> 8747 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8748" class="LineNr"> 8748 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8749" class="LineNr"> 8749 </span> <span class="subxComment"># restore ed</span> -<span id="L8750" class="LineNr"> 8750 </span> 89/<- %edx 4/r32/esp -<span id="L8751" class="LineNr"> 8751 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8752" class="LineNr"> 8752 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8753" class="Folded"> 8753 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8759" class="LineNr"> 8759 </span> <span class="subxComment"># check output</span> -<span id="L8760" class="LineNr"> 8760 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8726'>test-copy-byte-with-no-output</a>: output should be empty"</span>) -<span id="L8761" class="LineNr"> 8761 </span> (<a href='109stream-equal.subx.html#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#L8726'>test-copy-byte-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8762" class="LineNr"> 8762 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8763" class="LineNr"> 8763 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8726'>test-copy-byte-with-no-output</a>: exit status"</span>) -<span id="L8764" class="LineNr"> 8764 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8765" class="LineNr"> 8765 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8766" class="LineNr"> 8766 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8767" class="LineNr"> 8767 </span> 5d/pop-to-ebp -<span id="L8768" class="LineNr"> 8768 </span> c3/return -<span id="L8769" class="LineNr"> 8769 </span> -<span id="L8770" class="LineNr"> 8770 </span><span class="subxTest">test-copy-byte-with-multiple-outputs</span>: -<span id="L8771" class="LineNr"> 8771 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8772" class="LineNr"> 8772 </span> 55/push-ebp -<span id="L8773" class="LineNr"> 8773 </span> 89/<- %ebp 4/r32/esp -<span id="L8774" class="LineNr"> 8774 </span> <span class="subxComment"># setup</span> -<span id="L8775" class="LineNr"> 8775 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8776" class="LineNr"> 8776 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8777" class="LineNr"> 8777 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8778" class="LineNr"> 8778 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8779" class="LineNr"> 8779 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8780" class="LineNr"> 8780 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8781" class="LineNr"> 8781 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8782" class="LineNr"> 8782 </span> 68/push 0/imm32 -<span id="L8783" class="LineNr"> 8783 </span> 68/push 0/imm32 -<span id="L8784" class="LineNr"> 8784 </span> 89/<- %edx 4/r32/esp -<span id="L8785" class="LineNr"> 8785 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8786" class="LineNr"> 8786 </span> <span class="subxComment">#</span> -<span id="L8787" class="LineNr"> 8787 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8788" class="LineNr"> 8788 </span> (<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="L8789" class="LineNr"> 8789 </span> (<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="L8790" class="LineNr"> 8790 </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="L8791" class="LineNr"> 8791 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8792" class="LineNr"> 8792 </span> <span class="subxComment"># convert</span> -<span id="L8793" class="LineNr"> 8793 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8794" class="LineNr"> 8794 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8795" class="LineNr"> 8795 </span> <span class="subxComment"># restore ed</span> -<span id="L8796" class="LineNr"> 8796 </span> 89/<- %edx 4/r32/esp -<span id="L8797" class="LineNr"> 8797 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8798" class="LineNr"> 8798 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8799" class="Folded"> 8799 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8805" class="LineNr"> 8805 </span> <span class="subxComment"># check output</span> -<span id="L8806" class="LineNr"> 8806 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8770'>test-copy-byte-with-multiple-outputs</a>: output should be empty"</span>) -<span id="L8807" class="LineNr"> 8807 </span> (<a href='109stream-equal.subx.html#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#L8770'>test-copy-byte-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8808" class="LineNr"> 8808 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8809" class="LineNr"> 8809 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8770'>test-copy-byte-with-multiple-outputs</a>: exit status"</span>) -<span id="L8810" class="LineNr"> 8810 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8811" class="LineNr"> 8811 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8812" class="LineNr"> 8812 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8813" class="LineNr"> 8813 </span> 5d/pop-to-ebp -<span id="L8814" class="LineNr"> 8814 </span> c3/return -<span id="L8815" class="LineNr"> 8815 </span> -<span id="L8816" class="LineNr"> 8816 </span><span class="subxTest">test-copy-byte-deref-address</span>: -<span id="L8817" class="LineNr"> 8817 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8818" class="LineNr"> 8818 </span> 55/push-ebp -<span id="L8819" class="LineNr"> 8819 </span> 89/<- %ebp 4/r32/esp -<span id="L8820" class="LineNr"> 8820 </span> <span class="subxComment"># setup</span> -<span id="L8821" class="LineNr"> 8821 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8822" class="LineNr"> 8822 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8823" class="LineNr"> 8823 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8824" class="LineNr"> 8824 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8825" class="LineNr"> 8825 </span> <span class="subxComment">#</span> -<span id="L8826" class="LineNr"> 8826 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8827" class="LineNr"> 8827 </span> (<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="L8828" class="LineNr"> 8828 </span> (<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="L8829" class="LineNr"> 8829 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8830" class="LineNr"> 8830 </span> <span class="subxComment"># convert</span> -<span id="L8831" class="LineNr"> 8831 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L8832" class="LineNr"> 8832 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8833" class="Folded"> 8833 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8839" class="LineNr"> 8839 </span> <span class="subxComment"># not bothering checking output</span> -<span id="L8840" class="LineNr"> 8840 </span> (<a href='109stream-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#L8816'>test-copy-byte-deref-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8841" class="LineNr"> 8841 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8842" class="LineNr"> 8842 </span> 5d/pop-to-ebp -<span id="L8843" class="LineNr"> 8843 </span> c3/return -<span id="L8844" class="LineNr"> 8844 </span> -<span id="L8845" class="LineNr"> 8845 </span><span class="subxTest">test-copy-byte-with-invalid-output-type</span>: -<span id="L8846" class="LineNr"> 8846 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8847" class="LineNr"> 8847 </span> 55/push-ebp -<span id="L8848" class="LineNr"> 8848 </span> 89/<- %ebp 4/r32/esp -<span id="L8849" class="LineNr"> 8849 </span> <span class="subxComment"># setup</span> -<span id="L8850" class="LineNr"> 8850 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8851" class="LineNr"> 8851 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8852" class="LineNr"> 8852 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8853" class="LineNr"> 8853 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8854" class="LineNr"> 8854 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8855" class="LineNr"> 8855 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8856" class="LineNr"> 8856 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8857" class="LineNr"> 8857 </span> 68/push 0/imm32 -<span id="L8858" class="LineNr"> 8858 </span> 68/push 0/imm32 -<span id="L8859" class="LineNr"> 8859 </span> 89/<- %edx 4/r32/esp -<span id="L8860" class="LineNr"> 8860 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8861" class="LineNr"> 8861 </span> <span class="subxComment">#</span> -<span id="L8862" class="LineNr"> 8862 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8863" class="LineNr"> 8863 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) -<span id="L8864" class="LineNr"> 8864 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy-byte *x\n"</span>) -<span id="L8865" class="LineNr"> 8865 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8866" class="LineNr"> 8866 </span> <span class="subxComment"># convert</span> -<span id="L8867" class="LineNr"> 8867 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8868" class="LineNr"> 8868 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8869" class="LineNr"> 8869 </span> <span class="subxComment"># restore ed</span> -<span id="L8870" class="LineNr"> 8870 </span> 89/<- %edx 4/r32/esp -<span id="L8871" class="LineNr"> 8871 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8872" class="LineNr"> 8872 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8873" class="Folded"> 8873 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8879" class="LineNr"> 8879 </span> <span class="subxComment"># check output</span> -<span id="L8880" class="LineNr"> 8880 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8845'>test-copy-byte-with-invalid-output-type</a>: output should be empty"</span>) -<span id="L8881" class="LineNr"> 8881 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' must <a href='108write.subx.html#L24'>write</a> to output of type byte"</span> <span class="Constant">"F - <a href='mu.subx.html#L8845'>test-copy-byte-with-invalid-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8882" class="LineNr"> 8882 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8883" class="LineNr"> 8883 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8845'>test-copy-byte-with-invalid-output-type</a>: exit status"</span>) -<span id="L8884" class="LineNr"> 8884 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8885" class="LineNr"> 8885 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8886" class="LineNr"> 8886 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8887" class="LineNr"> 8887 </span> 5d/pop-to-ebp -<span id="L8888" class="LineNr"> 8888 </span> c3/return -<span id="L8889" class="LineNr"> 8889 </span> -<span id="L8890" class="LineNr"> 8890 </span><span class="subxTest">test-copy-byte-from-non-scalar-inout</span>: -<span id="L8891" class="LineNr"> 8891 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8892" class="LineNr"> 8892 </span> 55/push-ebp -<span id="L8893" class="LineNr"> 8893 </span> 89/<- %ebp 4/r32/esp -<span id="L8894" class="LineNr"> 8894 </span> <span class="subxComment"># setup</span> -<span id="L8895" class="LineNr"> 8895 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8896" class="LineNr"> 8896 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8897" class="LineNr"> 8897 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8898" class="LineNr"> 8898 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8899" class="LineNr"> 8899 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8900" class="LineNr"> 8900 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8901" class="LineNr"> 8901 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8902" class="LineNr"> 8902 </span> 68/push 0/imm32 -<span id="L8903" class="LineNr"> 8903 </span> 68/push 0/imm32 -<span id="L8904" class="LineNr"> 8904 </span> 89/<- %edx 4/r32/esp -<span id="L8905" class="LineNr"> 8905 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8906" class="LineNr"> 8906 </span> <span class="subxComment">#</span> -<span id="L8907" class="LineNr"> 8907 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8908" class="LineNr"> 8908 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) -<span id="L8909" class="LineNr"> 8909 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: byte <- copy-byte x\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">"}\n"</span>) -<span id="L8911" class="LineNr"> 8911 </span> <span class="subxComment"># convert</span> -<span id="L8912" class="LineNr"> 8912 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8913" class="LineNr"> 8913 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8914" class="LineNr"> 8914 </span> <span class="subxComment"># restore ed</span> -<span id="L8915" class="LineNr"> 8915 </span> 89/<- %edx 4/r32/esp -<span id="L8916" class="LineNr"> 8916 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8917" class="LineNr"> 8917 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8918" class="Folded"> 8918 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8924" class="LineNr"> 8924 </span> <span class="subxComment"># check output</span> -<span id="L8925" class="LineNr"> 8925 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8890'>test-copy-byte-from-non-scalar-inout</a>: output should be empty"</span>) -<span id="L8926" class="LineNr"> 8926 </span> (<a href='109stream-equal.subx.html#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#L8890'>test-copy-byte-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8927" class="LineNr"> 8927 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8928" class="LineNr"> 8928 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8890'>test-copy-byte-from-non-scalar-inout</a>: exit status"</span>) -<span id="L8929" class="LineNr"> 8929 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8930" class="LineNr"> 8930 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8931" class="LineNr"> 8931 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8932" class="LineNr"> 8932 </span> 5d/pop-to-ebp -<span id="L8933" class="LineNr"> 8933 </span> c3/return -<span id="L8934" class="LineNr"> 8934 </span> -<span id="L8935" class="LineNr"> 8935 </span><span class="subxTest">test-copy-byte-to-with-no-inout</span>: -<span id="L8936" class="LineNr"> 8936 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8937" class="LineNr"> 8937 </span> 55/push-ebp -<span id="L8938" class="LineNr"> 8938 </span> 89/<- %ebp 4/r32/esp -<span id="L8939" class="LineNr"> 8939 </span> <span class="subxComment"># setup</span> -<span id="L8940" class="LineNr"> 8940 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8941" class="LineNr"> 8941 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8942" class="LineNr"> 8942 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8943" class="LineNr"> 8943 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8944" class="LineNr"> 8944 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8945" class="LineNr"> 8945 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8946" class="LineNr"> 8946 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8947" class="LineNr"> 8947 </span> 68/push 0/imm32 -<span id="L8948" class="LineNr"> 8948 </span> 68/push 0/imm32 -<span id="L8949" class="LineNr"> 8949 </span> 89/<- %edx 4/r32/esp -<span id="L8950" class="LineNr"> 8950 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8951" class="LineNr"> 8951 </span> <span class="subxComment">#</span> -<span id="L8952" class="LineNr"> 8952 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8953" class="LineNr"> 8953 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to\n"</span>) -<span id="L8954" class="LineNr"> 8954 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8955" class="LineNr"> 8955 </span> <span class="subxComment"># convert</span> -<span id="L8956" class="LineNr"> 8956 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L8957" class="LineNr"> 8957 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8958" class="LineNr"> 8958 </span> <span class="subxComment"># restore ed</span> -<span id="L8959" class="LineNr"> 8959 </span> 89/<- %edx 4/r32/esp -<span id="L8960" class="LineNr"> 8960 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L8961" class="LineNr"> 8961 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L8962" class="Folded"> 8962 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8968" class="LineNr"> 8968 </span> <span class="subxComment"># check output</span> -<span id="L8969" class="LineNr"> 8969 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8935'>test-copy-byte-to-with-no-inout</a>: output should be empty"</span>) -<span id="L8970" class="LineNr"> 8970 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8935'>test-copy-byte-to-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L8971" class="LineNr"> 8971 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8972" class="LineNr"> 8972 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8935'>test-copy-byte-to-with-no-inout</a>: exit status"</span>) -<span id="L8973" class="LineNr"> 8973 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8974" class="LineNr"> 8974 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8975" class="LineNr"> 8975 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8976" class="LineNr"> 8976 </span> 5d/pop-to-ebp -<span id="L8977" class="LineNr"> 8977 </span> c3/return -<span id="L8978" class="LineNr"> 8978 </span> -<span id="L8979" class="LineNr"> 8979 </span><span class="subxTest">test-copy-byte-to-with-no-source</span>: -<span id="L8980" class="LineNr"> 8980 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8981" class="LineNr"> 8981 </span> 55/push-ebp -<span id="L8982" class="LineNr"> 8982 </span> 89/<- %ebp 4/r32/esp -<span id="L8983" class="LineNr"> 8983 </span> <span class="subxComment"># setup</span> -<span id="L8984" class="LineNr"> 8984 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8985" class="LineNr"> 8985 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8986" class="LineNr"> 8986 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L8987" class="LineNr"> 8987 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8988" class="LineNr"> 8988 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L8989" class="LineNr"> 8989 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8990" class="LineNr"> 8990 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8991" class="LineNr"> 8991 </span> 68/push 0/imm32 +<span id="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: (handle int)\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: int\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">" copy-to y, x\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-to-from-non-scalar-inout</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-to: 'x' is too large to copy"</span> <span class="Constant">"F - <a href='mu.subx.html#L8727'>test-copy-to-from-non-scalar-inout</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-to-from-non-scalar-inout</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-with-no-inout</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> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8783" class="LineNr"> 8783 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8784" class="LineNr"> 8784 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8785" class="LineNr"> 8785 </span> 68/push 0/imm32 +<span id="L8786" class="LineNr"> 8786 </span> 68/push 0/imm32 +<span id="L8787" class="LineNr"> 8787 </span> 89/<- %edx 4/r32/esp +<span id="L8788" class="LineNr"> 8788 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8789" class="LineNr"> 8789 </span> <span class="subxComment">#</span> +<span id="L8790" class="LineNr"> 8790 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8791" class="LineNr"> 8791 </span> (<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="L8792" class="LineNr"> 8792 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8793" class="LineNr"> 8793 </span> <span class="subxComment"># convert</span> +<span id="L8794" class="LineNr"> 8794 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8795" class="LineNr"> 8795 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8796" class="LineNr"> 8796 </span> <span class="subxComment"># restore ed</span> +<span id="L8797" class="LineNr"> 8797 </span> 89/<- %edx 4/r32/esp +<span id="L8798" class="LineNr"> 8798 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8799" class="LineNr"> 8799 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8800" class="Folded"> 8800 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8806" class="LineNr"> 8806 </span> <span class="subxComment"># check output</span> +<span id="L8807" class="LineNr"> 8807 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8773'>test-copy-byte-with-no-inout</a>: output should be empty"</span>) +<span id="L8808" class="LineNr"> 8808 </span> (<a href='109stream-equal.subx.html#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#L8773'>test-copy-byte-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8809" class="LineNr"> 8809 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8810" class="LineNr"> 8810 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8773'>test-copy-byte-with-no-inout</a>: exit status"</span>) +<span id="L8811" class="LineNr"> 8811 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8812" class="LineNr"> 8812 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8813" class="LineNr"> 8813 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8814" class="LineNr"> 8814 </span> 5d/pop-to-ebp +<span id="L8815" class="LineNr"> 8815 </span> c3/return +<span id="L8816" class="LineNr"> 8816 </span> +<span id="L8817" class="LineNr"> 8817 </span><span class="subxTest">test-copy-byte-with-multiple-inouts</span>: +<span id="L8818" class="LineNr"> 8818 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8819" class="LineNr"> 8819 </span> 55/push-ebp +<span id="L8820" class="LineNr"> 8820 </span> 89/<- %ebp 4/r32/esp +<span id="L8821" class="LineNr"> 8821 </span> <span class="subxComment"># setup</span> +<span id="L8822" class="LineNr"> 8822 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8823" class="LineNr"> 8823 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8824" class="LineNr"> 8824 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8825" class="LineNr"> 8825 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8826" class="LineNr"> 8826 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8827" class="LineNr"> 8827 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8828" class="LineNr"> 8828 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8829" class="LineNr"> 8829 </span> 68/push 0/imm32 +<span id="L8830" class="LineNr"> 8830 </span> 68/push 0/imm32 +<span id="L8831" class="LineNr"> 8831 </span> 89/<- %edx 4/r32/esp +<span id="L8832" class="LineNr"> 8832 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8833" class="LineNr"> 8833 </span> <span class="subxComment">#</span> +<span id="L8834" class="LineNr"> 8834 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8835" class="LineNr"> 8835 </span> (<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="L8836" class="LineNr"> 8836 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8837" class="LineNr"> 8837 </span> <span class="subxComment"># convert</span> +<span id="L8838" class="LineNr"> 8838 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8839" class="LineNr"> 8839 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8840" class="LineNr"> 8840 </span> <span class="subxComment"># restore ed</span> +<span id="L8841" class="LineNr"> 8841 </span> 89/<- %edx 4/r32/esp +<span id="L8842" class="LineNr"> 8842 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8843" class="LineNr"> 8843 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8844" class="Folded"> 8844 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8850" class="LineNr"> 8850 </span> <span class="subxComment"># check output</span> +<span id="L8851" class="LineNr"> 8851 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8817'>test-copy-byte-with-multiple-inouts</a>: output should be empty"</span>) +<span id="L8852" class="LineNr"> 8852 </span> (<a href='109stream-equal.subx.html#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#L8817'>test-copy-byte-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8853" class="LineNr"> 8853 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8854" class="LineNr"> 8854 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8817'>test-copy-byte-with-multiple-inouts</a>: exit status"</span>) +<span id="L8855" class="LineNr"> 8855 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8856" class="LineNr"> 8856 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8857" class="LineNr"> 8857 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8858" class="LineNr"> 8858 </span> 5d/pop-to-ebp +<span id="L8859" class="LineNr"> 8859 </span> c3/return +<span id="L8860" class="LineNr"> 8860 </span> +<span id="L8861" class="LineNr"> 8861 </span><span class="subxTest">test-copy-byte-with-no-output</span>: +<span id="L8862" class="LineNr"> 8862 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8863" class="LineNr"> 8863 </span> 55/push-ebp +<span id="L8864" class="LineNr"> 8864 </span> 89/<- %ebp 4/r32/esp +<span id="L8865" class="LineNr"> 8865 </span> <span class="subxComment"># setup</span> +<span id="L8866" class="LineNr"> 8866 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8867" class="LineNr"> 8867 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8868" class="LineNr"> 8868 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8869" class="LineNr"> 8869 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8870" class="LineNr"> 8870 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8871" class="LineNr"> 8871 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8872" class="LineNr"> 8872 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8873" class="LineNr"> 8873 </span> 68/push 0/imm32 +<span id="L8874" class="LineNr"> 8874 </span> 68/push 0/imm32 +<span id="L8875" class="LineNr"> 8875 </span> 89/<- %edx 4/r32/esp +<span id="L8876" class="LineNr"> 8876 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8877" class="LineNr"> 8877 </span> <span class="subxComment">#</span> +<span id="L8878" class="LineNr"> 8878 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8879" class="LineNr"> 8879 </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="L8880" class="LineNr"> 8880 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8881" class="LineNr"> 8881 </span> <span class="subxComment"># convert</span> +<span id="L8882" class="LineNr"> 8882 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8883" class="LineNr"> 8883 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8884" class="LineNr"> 8884 </span> <span class="subxComment"># restore ed</span> +<span id="L8885" class="LineNr"> 8885 </span> 89/<- %edx 4/r32/esp +<span id="L8886" class="LineNr"> 8886 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8887" class="LineNr"> 8887 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8888" class="Folded"> 8888 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8894" class="LineNr"> 8894 </span> <span class="subxComment"># check output</span> +<span id="L8895" class="LineNr"> 8895 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8861'>test-copy-byte-with-no-output</a>: output should be empty"</span>) +<span id="L8896" class="LineNr"> 8896 </span> (<a href='109stream-equal.subx.html#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#L8861'>test-copy-byte-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8897" class="LineNr"> 8897 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8898" class="LineNr"> 8898 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8861'>test-copy-byte-with-no-output</a>: exit status"</span>) +<span id="L8899" class="LineNr"> 8899 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8900" class="LineNr"> 8900 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8901" class="LineNr"> 8901 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8902" class="LineNr"> 8902 </span> 5d/pop-to-ebp +<span id="L8903" class="LineNr"> 8903 </span> c3/return +<span id="L8904" class="LineNr"> 8904 </span> +<span id="L8905" class="LineNr"> 8905 </span><span class="subxTest">test-copy-byte-with-multiple-outputs</span>: +<span id="L8906" class="LineNr"> 8906 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8907" class="LineNr"> 8907 </span> 55/push-ebp +<span id="L8908" class="LineNr"> 8908 </span> 89/<- %ebp 4/r32/esp +<span id="L8909" class="LineNr"> 8909 </span> <span class="subxComment"># setup</span> +<span id="L8910" class="LineNr"> 8910 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8911" class="LineNr"> 8911 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8912" class="LineNr"> 8912 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8913" class="LineNr"> 8913 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8914" class="LineNr"> 8914 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8915" class="LineNr"> 8915 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8916" class="LineNr"> 8916 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8917" class="LineNr"> 8917 </span> 68/push 0/imm32 +<span id="L8918" class="LineNr"> 8918 </span> 68/push 0/imm32 +<span id="L8919" class="LineNr"> 8919 </span> 89/<- %edx 4/r32/esp +<span id="L8920" class="LineNr"> 8920 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8921" class="LineNr"> 8921 </span> <span class="subxComment">#</span> +<span id="L8922" class="LineNr"> 8922 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8923" class="LineNr"> 8923 </span> (<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="L8924" class="LineNr"> 8924 </span> (<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="L8925" class="LineNr"> 8925 </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="L8926" class="LineNr"> 8926 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8927" class="LineNr"> 8927 </span> <span class="subxComment"># convert</span> +<span id="L8928" class="LineNr"> 8928 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8929" class="LineNr"> 8929 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8930" class="LineNr"> 8930 </span> <span class="subxComment"># restore ed</span> +<span id="L8931" class="LineNr"> 8931 </span> 89/<- %edx 4/r32/esp +<span id="L8932" class="LineNr"> 8932 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8933" class="LineNr"> 8933 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8934" class="Folded"> 8934 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8940" class="LineNr"> 8940 </span> <span class="subxComment"># check output</span> +<span id="L8941" class="LineNr"> 8941 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8905'>test-copy-byte-with-multiple-outputs</a>: output should be empty"</span>) +<span id="L8942" class="LineNr"> 8942 </span> (<a href='109stream-equal.subx.html#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#L8905'>test-copy-byte-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8943" class="LineNr"> 8943 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8944" class="LineNr"> 8944 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8905'>test-copy-byte-with-multiple-outputs</a>: exit status"</span>) +<span id="L8945" class="LineNr"> 8945 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8946" class="LineNr"> 8946 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8947" class="LineNr"> 8947 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8948" class="LineNr"> 8948 </span> 5d/pop-to-ebp +<span id="L8949" class="LineNr"> 8949 </span> c3/return +<span id="L8950" class="LineNr"> 8950 </span> +<span id="L8951" class="LineNr"> 8951 </span><span class="subxTest">test-copy-byte-deref-address</span>: +<span id="L8952" class="LineNr"> 8952 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8953" class="LineNr"> 8953 </span> 55/push-ebp +<span id="L8954" class="LineNr"> 8954 </span> 89/<- %ebp 4/r32/esp +<span id="L8955" class="LineNr"> 8955 </span> <span class="subxComment"># setup</span> +<span id="L8956" class="LineNr"> 8956 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8957" class="LineNr"> 8957 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8958" class="LineNr"> 8958 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8959" class="LineNr"> 8959 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8960" class="LineNr"> 8960 </span> <span class="subxComment">#</span> +<span id="L8961" class="LineNr"> 8961 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8962" class="LineNr"> 8962 </span> (<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="L8963" class="LineNr"> 8963 </span> (<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="L8964" class="LineNr"> 8964 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8965" class="LineNr"> 8965 </span> <span class="subxComment"># convert</span> +<span id="L8966" class="LineNr"> 8966 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L8967" class="LineNr"> 8967 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8968" class="Folded"> 8968 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8974" class="LineNr"> 8974 </span> <span class="subxComment"># not bothering checking output</span> +<span id="L8975" class="LineNr"> 8975 </span> (<a href='109stream-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#L8951'>test-copy-byte-deref-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8976" class="LineNr"> 8976 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8977" class="LineNr"> 8977 </span> 5d/pop-to-ebp +<span id="L8978" class="LineNr"> 8978 </span> c3/return +<span id="L8979" class="LineNr"> 8979 </span> +<span id="L8980" class="LineNr"> 8980 </span><span class="subxTest">test-copy-byte-with-invalid-output-type</span>: +<span id="L8981" class="LineNr"> 8981 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8982" class="LineNr"> 8982 </span> 55/push-ebp +<span id="L8983" class="LineNr"> 8983 </span> 89/<- %ebp 4/r32/esp +<span id="L8984" class="LineNr"> 8984 </span> <span class="subxComment"># setup</span> +<span id="L8985" class="LineNr"> 8985 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8986" class="LineNr"> 8986 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8987" class="LineNr"> 8987 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8988" class="LineNr"> 8988 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8989" class="LineNr"> 8989 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8990" class="LineNr"> 8990 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8991" class="LineNr"> 8991 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <span id="L8992" class="LineNr"> 8992 </span> 68/push 0/imm32 -<span id="L8993" class="LineNr"> 8993 </span> 89/<- %edx 4/r32/esp -<span id="L8994" class="LineNr"> 8994 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8995" class="LineNr"> 8995 </span> <span class="subxComment">#</span> -<span id="L8996" class="LineNr"> 8996 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8997" class="LineNr"> 8997 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) -<span id="L8998" class="LineNr"> 8998 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *x\n"</span>) -<span id="L8999" class="LineNr"> 8999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9000" class="LineNr"> 9000 </span> <span class="subxComment"># convert</span> -<span id="L9001" class="LineNr"> 9001 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9002" class="LineNr"> 9002 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9003" class="LineNr"> 9003 </span> <span class="subxComment"># restore ed</span> -<span id="L9004" class="LineNr"> 9004 </span> 89/<- %edx 4/r32/esp -<span id="L9005" class="LineNr"> 9005 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9006" class="LineNr"> 9006 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9007" class="Folded"> 9007 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9013" class="LineNr"> 9013 </span> <span class="subxComment"># check output</span> -<span id="L9014" class="LineNr"> 9014 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8979'>test-copy-byte-to-with-no-source</a>: output should be empty"</span>) -<span id="L9015" class="LineNr"> 9015 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8979'>test-copy-byte-to-with-no-source</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9016" class="LineNr"> 9016 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9017" class="LineNr"> 9017 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8979'>test-copy-byte-to-with-no-source</a>: exit status"</span>) -<span id="L9018" class="LineNr"> 9018 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9019" class="LineNr"> 9019 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9020" class="LineNr"> 9020 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9021" class="LineNr"> 9021 </span> 5d/pop-to-ebp -<span id="L9022" class="LineNr"> 9022 </span> c3/return -<span id="L9023" class="LineNr"> 9023 </span> -<span id="L9024" class="LineNr"> 9024 </span><span class="subxTest">test-copy-byte-to-with-too-many-inouts</span>: -<span id="L9025" class="LineNr"> 9025 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9026" class="LineNr"> 9026 </span> 55/push-ebp -<span id="L9027" class="LineNr"> 9027 </span> 89/<- %ebp 4/r32/esp -<span id="L9028" class="LineNr"> 9028 </span> <span class="subxComment"># setup</span> -<span id="L9029" class="LineNr"> 9029 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9030" class="LineNr"> 9030 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9031" class="LineNr"> 9031 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9032" class="LineNr"> 9032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9033" class="LineNr"> 9033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9034" class="LineNr"> 9034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9035" class="LineNr"> 9035 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9036" class="LineNr"> 9036 </span> 68/push 0/imm32 +<span id="L8993" class="LineNr"> 8993 </span> 68/push 0/imm32 +<span id="L8994" class="LineNr"> 8994 </span> 89/<- %edx 4/r32/esp +<span id="L8995" class="LineNr"> 8995 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8996" class="LineNr"> 8996 </span> <span class="subxComment">#</span> +<span id="L8997" class="LineNr"> 8997 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8998" class="LineNr"> 8998 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) +<span id="L8999" class="LineNr"> 8999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy-byte *x\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">"}\n"</span>) +<span id="L9001" class="LineNr"> 9001 </span> <span class="subxComment"># convert</span> +<span id="L9002" class="LineNr"> 9002 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9003" class="LineNr"> 9003 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9004" class="LineNr"> 9004 </span> <span class="subxComment"># restore ed</span> +<span id="L9005" class="LineNr"> 9005 </span> 89/<- %edx 4/r32/esp +<span id="L9006" class="LineNr"> 9006 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9007" class="LineNr"> 9007 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9008" class="Folded"> 9008 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9014" class="LineNr"> 9014 </span> <span class="subxComment"># check output</span> +<span id="L9015" class="LineNr"> 9015 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8980'>test-copy-byte-with-invalid-output-type</a>: output should be empty"</span>) +<span id="L9016" class="LineNr"> 9016 </span> (<a href='109stream-equal.subx.html#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#L8980'>test-copy-byte-with-invalid-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9017" class="LineNr"> 9017 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9018" class="LineNr"> 9018 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8980'>test-copy-byte-with-invalid-output-type</a>: exit status"</span>) +<span id="L9019" class="LineNr"> 9019 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9020" class="LineNr"> 9020 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9021" class="LineNr"> 9021 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9022" class="LineNr"> 9022 </span> 5d/pop-to-ebp +<span id="L9023" class="LineNr"> 9023 </span> c3/return +<span id="L9024" class="LineNr"> 9024 </span> +<span id="L9025" class="LineNr"> 9025 </span><span class="subxTest">test-copy-byte-from-non-scalar-inout</span>: +<span id="L9026" class="LineNr"> 9026 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9027" class="LineNr"> 9027 </span> 55/push-ebp +<span id="L9028" class="LineNr"> 9028 </span> 89/<- %ebp 4/r32/esp +<span id="L9029" class="LineNr"> 9029 </span> <span class="subxComment"># setup</span> +<span id="L9030" class="LineNr"> 9030 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9031" class="LineNr"> 9031 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9032" class="LineNr"> 9032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9033" class="LineNr"> 9033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9034" class="LineNr"> 9034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9035" class="LineNr"> 9035 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9036" class="LineNr"> 9036 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <span id="L9037" class="LineNr"> 9037 </span> 68/push 0/imm32 -<span id="L9038" class="LineNr"> 9038 </span> 89/<- %edx 4/r32/esp -<span id="L9039" class="LineNr"> 9039 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9040" class="LineNr"> 9040 </span> <span class="subxComment">#</span> -<span id="L9041" class="LineNr"> 9041 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9042" class="LineNr"> 9042 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) -<span id="L9043" class="LineNr"> 9043 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *x, 0, 0\n"</span>) -<span id="L9044" class="LineNr"> 9044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9045" class="LineNr"> 9045 </span> <span class="subxComment"># convert</span> -<span id="L9046" class="LineNr"> 9046 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9047" class="LineNr"> 9047 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9048" class="LineNr"> 9048 </span> <span class="subxComment"># restore ed</span> -<span id="L9049" class="LineNr"> 9049 </span> 89/<- %edx 4/r32/esp -<span id="L9050" class="LineNr"> 9050 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9051" class="LineNr"> 9051 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9052" class="Folded"> 9052 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9058" class="LineNr"> 9058 </span> <span class="subxComment"># check output</span> -<span id="L9059" class="LineNr"> 9059 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9024'>test-copy-byte-to-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L9060" class="LineNr"> 9060 </span> (<a href='109stream-equal.subx.html#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#L9024'>test-copy-byte-to-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9061" class="LineNr"> 9061 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9062" class="LineNr"> 9062 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9024'>test-copy-byte-to-with-too-many-inouts</a>: exit status"</span>) -<span id="L9063" class="LineNr"> 9063 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9064" class="LineNr"> 9064 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9065" class="LineNr"> 9065 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9066" class="LineNr"> 9066 </span> 5d/pop-to-ebp -<span id="L9067" class="LineNr"> 9067 </span> c3/return -<span id="L9068" class="LineNr"> 9068 </span> -<span id="L9069" class="LineNr"> 9069 </span><span class="subxTest">test-copy-byte-to-with-output</span>: -<span id="L9070" class="LineNr"> 9070 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9071" class="LineNr"> 9071 </span> 55/push-ebp -<span id="L9072" class="LineNr"> 9072 </span> 89/<- %ebp 4/r32/esp -<span id="L9073" class="LineNr"> 9073 </span> <span class="subxComment"># setup</span> -<span id="L9074" class="LineNr"> 9074 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9075" class="LineNr"> 9075 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9076" class="LineNr"> 9076 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9077" class="LineNr"> 9077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9078" class="LineNr"> 9078 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9079" class="LineNr"> 9079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9080" class="LineNr"> 9080 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9081" class="LineNr"> 9081 </span> 68/push 0/imm32 +<span id="L9038" class="LineNr"> 9038 </span> 68/push 0/imm32 +<span id="L9039" class="LineNr"> 9039 </span> 89/<- %edx 4/r32/esp +<span id="L9040" class="LineNr"> 9040 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9041" class="LineNr"> 9041 </span> <span class="subxComment">#</span> +<span id="L9042" class="LineNr"> 9042 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9043" class="LineNr"> 9043 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\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 y/eax: byte <- copy-byte x\n"</span>) +<span id="L9045" class="LineNr"> 9045 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9046" class="LineNr"> 9046 </span> <span class="subxComment"># convert</span> +<span id="L9047" class="LineNr"> 9047 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9048" class="LineNr"> 9048 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9049" class="LineNr"> 9049 </span> <span class="subxComment"># restore ed</span> +<span id="L9050" class="LineNr"> 9050 </span> 89/<- %edx 4/r32/esp +<span id="L9051" class="LineNr"> 9051 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9052" class="LineNr"> 9052 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9053" class="Folded"> 9053 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9059" class="LineNr"> 9059 </span> <span class="subxComment"># check output</span> +<span id="L9060" class="LineNr"> 9060 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9025'>test-copy-byte-from-non-scalar-inout</a>: output should be empty"</span>) +<span id="L9061" class="LineNr"> 9061 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte: 'x' is too large to fit in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L9025'>test-copy-byte-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9062" class="LineNr"> 9062 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9063" class="LineNr"> 9063 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9025'>test-copy-byte-from-non-scalar-inout</a>: exit status"</span>) +<span id="L9064" class="LineNr"> 9064 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9065" class="LineNr"> 9065 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9066" class="LineNr"> 9066 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9067" class="LineNr"> 9067 </span> 5d/pop-to-ebp +<span id="L9068" class="LineNr"> 9068 </span> c3/return +<span id="L9069" class="LineNr"> 9069 </span> +<span id="L9070" class="LineNr"> 9070 </span><span class="subxTest">test-copy-byte-to-with-no-inout</span>: +<span id="L9071" class="LineNr"> 9071 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9072" class="LineNr"> 9072 </span> 55/push-ebp +<span id="L9073" class="LineNr"> 9073 </span> 89/<- %ebp 4/r32/esp +<span id="L9074" class="LineNr"> 9074 </span> <span class="subxComment"># setup</span> +<span id="L9075" class="LineNr"> 9075 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9076" class="LineNr"> 9076 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9077" class="LineNr"> 9077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9078" class="LineNr"> 9078 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9079" class="LineNr"> 9079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9080" class="LineNr"> 9080 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9081" class="LineNr"> 9081 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <span id="L9082" class="LineNr"> 9082 </span> 68/push 0/imm32 -<span id="L9083" class="LineNr"> 9083 </span> 89/<- %edx 4/r32/esp -<span id="L9084" class="LineNr"> 9084 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9085" class="LineNr"> 9085 </span> <span class="subxComment">#</span> -<span id="L9086" class="LineNr"> 9086 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9087" class="LineNr"> 9087 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) -<span id="L9088" class="LineNr"> 9088 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr byte) <- copy 0\n"</span>) -<span id="L9089" class="LineNr"> 9089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy-byte-to *y, 0\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">"}\n"</span>) -<span id="L9091" class="LineNr"> 9091 </span> <span class="subxComment"># convert</span> -<span id="L9092" class="LineNr"> 9092 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9093" class="LineNr"> 9093 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9094" class="LineNr"> 9094 </span> <span class="subxComment"># restore ed</span> -<span id="L9095" class="LineNr"> 9095 </span> 89/<- %edx 4/r32/esp -<span id="L9096" class="LineNr"> 9096 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9097" class="LineNr"> 9097 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9098" class="Folded"> 9098 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9104" class="LineNr"> 9104 </span> <span class="subxComment"># check output</span> -<span id="L9105" class="LineNr"> 9105 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9069'>test-copy-byte-to-with-output</a>: output should be empty"</span>) -<span id="L9106" class="LineNr"> 9106 </span> (<a href='109stream-equal.subx.html#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#L9069'>test-copy-byte-to-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9107" class="LineNr"> 9107 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9108" class="LineNr"> 9108 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9069'>test-copy-byte-to-with-output</a>: exit status"</span>) -<span id="L9109" class="LineNr"> 9109 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9110" class="LineNr"> 9110 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9111" class="LineNr"> 9111 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9112" class="LineNr"> 9112 </span> 5d/pop-to-ebp -<span id="L9113" class="LineNr"> 9113 </span> c3/return -<span id="L9114" class="LineNr"> 9114 </span> -<span id="L9115" class="LineNr"> 9115 </span><span class="subxTest">test-copy-byte-to-with-invalid-output-type</span>: -<span id="L9116" class="LineNr"> 9116 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9117" class="LineNr"> 9117 </span> 55/push-ebp -<span id="L9118" class="LineNr"> 9118 </span> 89/<- %ebp 4/r32/esp -<span id="L9119" class="LineNr"> 9119 </span> <span class="subxComment"># setup</span> -<span id="L9120" class="LineNr"> 9120 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9121" class="LineNr"> 9121 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9122" class="LineNr"> 9122 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9123" class="LineNr"> 9123 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9124" class="LineNr"> 9124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9125" class="LineNr"> 9125 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9126" class="LineNr"> 9126 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9083" class="LineNr"> 9083 </span> 68/push 0/imm32 +<span id="L9084" class="LineNr"> 9084 </span> 89/<- %edx 4/r32/esp +<span id="L9085" class="LineNr"> 9085 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9086" class="LineNr"> 9086 </span> <span class="subxComment">#</span> +<span id="L9087" class="LineNr"> 9087 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9088" class="LineNr"> 9088 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to\n"</span>) +<span id="L9089" class="LineNr"> 9089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9090" class="LineNr"> 9090 </span> <span class="subxComment"># convert</span> +<span id="L9091" class="LineNr"> 9091 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9092" class="LineNr"> 9092 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9093" class="LineNr"> 9093 </span> <span class="subxComment"># restore ed</span> +<span id="L9094" class="LineNr"> 9094 </span> 89/<- %edx 4/r32/esp +<span id="L9095" class="LineNr"> 9095 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9096" class="LineNr"> 9096 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9097" class="Folded"> 9097 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9103" class="LineNr"> 9103 </span> <span class="subxComment"># check output</span> +<span id="L9104" class="LineNr"> 9104 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9070'>test-copy-byte-to-with-no-inout</a>: output should be empty"</span>) +<span id="L9105" class="LineNr"> 9105 </span> (<a href='109stream-equal.subx.html#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#L9070'>test-copy-byte-to-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9106" class="LineNr"> 9106 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9107" class="LineNr"> 9107 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9070'>test-copy-byte-to-with-no-inout</a>: exit status"</span>) +<span id="L9108" class="LineNr"> 9108 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9109" class="LineNr"> 9109 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9110" class="LineNr"> 9110 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9111" class="LineNr"> 9111 </span> 5d/pop-to-ebp +<span id="L9112" class="LineNr"> 9112 </span> c3/return +<span id="L9113" class="LineNr"> 9113 </span> +<span id="L9114" class="LineNr"> 9114 </span><span class="subxTest">test-copy-byte-to-with-no-source</span>: +<span id="L9115" class="LineNr"> 9115 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9116" class="LineNr"> 9116 </span> 55/push-ebp +<span id="L9117" class="LineNr"> 9117 </span> 89/<- %ebp 4/r32/esp +<span id="L9118" class="LineNr"> 9118 </span> <span class="subxComment"># setup</span> +<span id="L9119" class="LineNr"> 9119 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9120" class="LineNr"> 9120 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9121" class="LineNr"> 9121 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9122" class="LineNr"> 9122 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9123" class="LineNr"> 9123 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9124" class="LineNr"> 9124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9125" class="LineNr"> 9125 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9126" class="LineNr"> 9126 </span> 68/push 0/imm32 <span id="L9127" class="LineNr"> 9127 </span> 68/push 0/imm32 -<span id="L9128" class="LineNr"> 9128 </span> 68/push 0/imm32 -<span id="L9129" class="LineNr"> 9129 </span> 89/<- %edx 4/r32/esp -<span id="L9130" class="LineNr"> 9130 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9131" class="LineNr"> 9131 </span> <span class="subxComment">#</span> -<span id="L9132" class="LineNr"> 9132 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9133" class="LineNr"> 9133 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) -<span id="L9134" class="LineNr"> 9134 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L9135" class="LineNr"> 9135 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to y, x\n"</span>) -<span id="L9136" class="LineNr"> 9136 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9137" class="LineNr"> 9137 </span> <span class="subxComment"># convert</span> -<span id="L9138" class="LineNr"> 9138 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9139" class="LineNr"> 9139 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9140" class="LineNr"> 9140 </span> <span class="subxComment"># restore ed</span> -<span id="L9141" class="LineNr"> 9141 </span> 89/<- %edx 4/r32/esp -<span id="L9142" class="LineNr"> 9142 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9143" class="LineNr"> 9143 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9144" class="Folded"> 9144 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9150" class="LineNr"> 9150 </span> <span class="subxComment"># check output</span> -<span id="L9151" class="LineNr"> 9151 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9115'>test-copy-byte-to-with-invalid-output-type</a>: output should be empty"</span>) -<span id="L9152" class="LineNr"> 9152 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte-to: 'y' must be a byte"</span> <span class="Constant">"F - <a href='mu.subx.html#L9115'>test-copy-byte-to-with-invalid-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9153" class="LineNr"> 9153 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9154" class="LineNr"> 9154 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9115'>test-copy-byte-to-with-invalid-output-type</a>: exit status"</span>) -<span id="L9155" class="LineNr"> 9155 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9156" class="LineNr"> 9156 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9157" class="LineNr"> 9157 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9158" class="LineNr"> 9158 </span> 5d/pop-to-ebp -<span id="L9159" class="LineNr"> 9159 </span> c3/return -<span id="L9160" class="LineNr"> 9160 </span> -<span id="L9161" class="LineNr"> 9161 </span><span class="subxTest">test-copy-byte-to-with-literal-inout</span>: -<span id="L9162" class="LineNr"> 9162 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9163" class="LineNr"> 9163 </span> 55/push-ebp -<span id="L9164" class="LineNr"> 9164 </span> 89/<- %ebp 4/r32/esp -<span id="L9165" class="LineNr"> 9165 </span> <span class="subxComment"># setup</span> -<span id="L9166" class="LineNr"> 9166 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9167" class="LineNr"> 9167 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9168" class="LineNr"> 9168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9169" class="LineNr"> 9169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9170" class="LineNr"> 9170 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9171" class="LineNr"> 9171 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9172" class="LineNr"> 9172 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9173" class="LineNr"> 9173 </span> 68/push 0/imm32 -<span id="L9174" class="LineNr"> 9174 </span> 68/push 0/imm32 -<span id="L9175" class="LineNr"> 9175 </span> 89/<- %edx 4/r32/esp -<span id="L9176" class="LineNr"> 9176 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9177" class="LineNr"> 9177 </span> <span class="subxComment">#</span> -<span id="L9178" class="LineNr"> 9178 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9179" class="LineNr"> 9179 </span> (<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="L9180" class="LineNr"> 9180 </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="L9181" class="LineNr"> 9181 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9182" class="LineNr"> 9182 </span> <span class="subxComment"># convert</span> -<span id="L9183" class="LineNr"> 9183 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9184" class="LineNr"> 9184 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9185" class="LineNr"> 9185 </span> <span class="subxComment"># restore ed</span> -<span id="L9186" class="LineNr"> 9186 </span> 89/<- %edx 4/r32/esp -<span id="L9187" class="LineNr"> 9187 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9188" class="LineNr"> 9188 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9189" class="Folded"> 9189 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9195" class="LineNr"> 9195 </span> <span class="subxComment"># check output</span> -<span id="L9196" class="LineNr"> 9196 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9161'>test-copy-byte-to-with-literal-inout</a>: output should be empty"</span>) -<span id="L9197" class="LineNr"> 9197 </span> (<a href='109stream-equal.subx.html#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#L9161'>test-copy-byte-to-with-literal-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9198" class="LineNr"> 9198 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9199" class="LineNr"> 9199 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9161'>test-copy-byte-to-with-literal-inout</a>: exit status"</span>) -<span id="L9200" class="LineNr"> 9200 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9201" class="LineNr"> 9201 </span> 81 0/subop/add %esp 8/imm32 -<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-deref-address</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> <span class="subxComment">#</span> -<span id="L9216" class="LineNr"> 9216 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9217" class="LineNr"> 9217 </span> (<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="L9218" class="LineNr"> 9218 </span> (<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="L9219" class="LineNr"> 9219 </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="L9220" class="LineNr"> 9220 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9221" class="LineNr"> 9221 </span> <span class="subxComment"># convert</span> -<span id="L9222" class="LineNr"> 9222 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L9223" class="LineNr"> 9223 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9224" class="LineNr"> 9224 </span> <span class="subxComment"># no errors</span> -<span id="L9225" class="LineNr"> 9225 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9226" class="LineNr"> 9226 </span> 5d/pop-to-ebp -<span id="L9227" class="LineNr"> 9227 </span> c3/return -<span id="L9228" class="LineNr"> 9228 </span> -<span id="L9229" class="LineNr"> 9229 </span><span class="subxTest">test-copy-byte-to-from-non-scalar-inout</span>: -<span id="L9230" class="LineNr"> 9230 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9231" class="LineNr"> 9231 </span> 55/push-ebp -<span id="L9232" class="LineNr"> 9232 </span> 89/<- %ebp 4/r32/esp -<span id="L9233" class="LineNr"> 9233 </span> <span class="subxComment"># setup</span> -<span id="L9234" class="LineNr"> 9234 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9235" class="LineNr"> 9235 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9236" class="LineNr"> 9236 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9237" class="LineNr"> 9237 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9238" class="LineNr"> 9238 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9239" class="LineNr"> 9239 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9240" class="LineNr"> 9240 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9241" class="LineNr"> 9241 </span> 68/push 0/imm32 -<span id="L9242" class="LineNr"> 9242 </span> 68/push 0/imm32 -<span id="L9243" class="LineNr"> 9243 </span> 89/<- %edx 4/r32/esp -<span id="L9244" class="LineNr"> 9244 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9245" class="LineNr"> 9245 </span> <span class="subxComment">#</span> -<span id="L9246" class="LineNr"> 9246 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9247" class="LineNr"> 9247 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) -<span id="L9248" class="LineNr"> 9248 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr byte) <- copy 0\n"</span>) -<span id="L9249" class="LineNr"> 9249 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *y, x\n"</span>) -<span id="L9250" class="LineNr"> 9250 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9251" class="LineNr"> 9251 </span> <span class="subxComment"># convert</span> -<span id="L9252" class="LineNr"> 9252 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9253" class="LineNr"> 9253 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9254" class="LineNr"> 9254 </span> <span class="subxComment"># restore ed</span> -<span id="L9255" class="LineNr"> 9255 </span> 89/<- %edx 4/r32/esp -<span id="L9256" class="LineNr"> 9256 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9257" class="LineNr"> 9257 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9258" class="Folded"> 9258 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9264" class="LineNr"> 9264 </span> <span class="subxComment"># check output</span> -<span id="L9265" class="LineNr"> 9265 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9229'>test-copy-byte-to-from-non-scalar-inout</a>: output should be empty"</span>) -<span id="L9266" class="LineNr"> 9266 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte-to: 'x' is too large to copy"</span> <span class="Constant">"F - <a href='mu.subx.html#L9229'>test-copy-byte-to-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9267" class="LineNr"> 9267 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9268" class="LineNr"> 9268 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9229'>test-copy-byte-to-from-non-scalar-inout</a>: exit status"</span>) -<span id="L9269" class="LineNr"> 9269 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9270" class="LineNr"> 9270 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9271" class="LineNr"> 9271 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9272" class="LineNr"> 9272 </span> 5d/pop-to-ebp -<span id="L9273" class="LineNr"> 9273 </span> c3/return -<span id="L9274" class="LineNr"> 9274 </span> -<span id="L9275" class="LineNr"> 9275 </span><span class="subxTest">test-compare-with-no-inout</span>: -<span id="L9276" class="LineNr"> 9276 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9277" class="LineNr"> 9277 </span> 55/push-ebp -<span id="L9278" class="LineNr"> 9278 </span> 89/<- %ebp 4/r32/esp -<span id="L9279" class="LineNr"> 9279 </span> <span class="subxComment"># setup</span> -<span id="L9280" class="LineNr"> 9280 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9281" class="LineNr"> 9281 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9282" class="LineNr"> 9282 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9283" class="LineNr"> 9283 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9284" class="LineNr"> 9284 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9285" class="LineNr"> 9285 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9286" class="LineNr"> 9286 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9287" class="LineNr"> 9287 </span> 68/push 0/imm32 -<span id="L9288" class="LineNr"> 9288 </span> 68/push 0/imm32 -<span id="L9289" class="LineNr"> 9289 </span> 89/<- %edx 4/r32/esp -<span id="L9290" class="LineNr"> 9290 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9291" class="LineNr"> 9291 </span> <span class="subxComment">#</span> -<span id="L9292" class="LineNr"> 9292 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9293" class="LineNr"> 9293 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L9294" class="LineNr"> 9294 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare\n"</span>) -<span id="L9295" class="LineNr"> 9295 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9296" class="LineNr"> 9296 </span> <span class="subxComment"># convert</span> -<span id="L9297" class="LineNr"> 9297 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9298" class="LineNr"> 9298 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9299" class="LineNr"> 9299 </span> <span class="subxComment"># restore ed</span> -<span id="L9300" class="LineNr"> 9300 </span> 89/<- %edx 4/r32/esp -<span id="L9301" class="LineNr"> 9301 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9302" class="LineNr"> 9302 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9303" class="Folded"> 9303 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9309" class="LineNr"> 9309 </span> <span class="subxComment"># check output</span> -<span id="L9310" class="LineNr"> 9310 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9275'>test-compare-with-no-inout</a>: output should be empty"</span>) -<span id="L9311" class="LineNr"> 9311 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L9275'>test-compare-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9312" class="LineNr"> 9312 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9313" class="LineNr"> 9313 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9275'>test-compare-with-no-inout</a>: exit status"</span>) -<span id="L9314" class="LineNr"> 9314 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9315" class="LineNr"> 9315 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9316" class="LineNr"> 9316 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9317" class="LineNr"> 9317 </span> 5d/pop-to-ebp -<span id="L9318" class="LineNr"> 9318 </span> c3/return -<span id="L9319" class="LineNr"> 9319 </span> -<span id="L9320" class="LineNr"> 9320 </span><span class="subxTest">test-compare-with-just-one-inout</span>: -<span id="L9321" class="LineNr"> 9321 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9322" class="LineNr"> 9322 </span> 55/push-ebp -<span id="L9323" class="LineNr"> 9323 </span> 89/<- %ebp 4/r32/esp -<span id="L9324" class="LineNr"> 9324 </span> <span class="subxComment"># setup</span> -<span id="L9325" class="LineNr"> 9325 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9326" class="LineNr"> 9326 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9327" class="LineNr"> 9327 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9328" class="LineNr"> 9328 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9329" class="LineNr"> 9329 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9330" class="LineNr"> 9330 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9331" class="LineNr"> 9331 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9332" class="LineNr"> 9332 </span> 68/push 0/imm32 -<span id="L9333" class="LineNr"> 9333 </span> 68/push 0/imm32 -<span id="L9334" class="LineNr"> 9334 </span> 89/<- %edx 4/r32/esp -<span id="L9335" class="LineNr"> 9335 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9336" class="LineNr"> 9336 </span> <span class="subxComment">#</span> -<span id="L9337" class="LineNr"> 9337 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9338" class="LineNr"> 9338 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L9339" class="LineNr"> 9339 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x\n"</span>) -<span id="L9340" class="LineNr"> 9340 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9341" class="LineNr"> 9341 </span> <span class="subxComment"># convert</span> -<span id="L9342" class="LineNr"> 9342 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9343" class="LineNr"> 9343 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9344" class="LineNr"> 9344 </span> <span class="subxComment"># restore ed</span> -<span id="L9345" class="LineNr"> 9345 </span> 89/<- %edx 4/r32/esp -<span id="L9346" class="LineNr"> 9346 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9347" class="LineNr"> 9347 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9348" class="Folded"> 9348 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9354" class="LineNr"> 9354 </span> <span class="subxComment"># check output</span> -<span id="L9355" class="LineNr"> 9355 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9320'>test-compare-with-just-one-inout</a>: output should be empty"</span>) -<span id="L9356" class="LineNr"> 9356 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L9320'>test-compare-with-just-one-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9357" class="LineNr"> 9357 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9358" class="LineNr"> 9358 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9320'>test-compare-with-just-one-inout</a>: exit status"</span>) -<span id="L9359" class="LineNr"> 9359 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9360" class="LineNr"> 9360 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9361" class="LineNr"> 9361 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9362" class="LineNr"> 9362 </span> 5d/pop-to-ebp -<span id="L9363" class="LineNr"> 9363 </span> c3/return -<span id="L9364" class="LineNr"> 9364 </span> -<span id="L9365" class="LineNr"> 9365 </span><span class="subxTest">test-compare-with-too-many-inouts</span>: -<span id="L9366" class="LineNr"> 9366 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9367" class="LineNr"> 9367 </span> 55/push-ebp -<span id="L9368" class="LineNr"> 9368 </span> 89/<- %ebp 4/r32/esp -<span id="L9369" class="LineNr"> 9369 </span> <span class="subxComment"># setup</span> -<span id="L9370" class="LineNr"> 9370 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9371" class="LineNr"> 9371 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9372" class="LineNr"> 9372 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9373" class="LineNr"> 9373 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9374" class="LineNr"> 9374 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9375" class="LineNr"> 9375 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9376" class="LineNr"> 9376 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9128" class="LineNr"> 9128 </span> 89/<- %edx 4/r32/esp +<span id="L9129" class="LineNr"> 9129 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9130" class="LineNr"> 9130 </span> <span class="subxComment">#</span> +<span id="L9131" class="LineNr"> 9131 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9132" class="LineNr"> 9132 </span> (<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="L9133" class="LineNr"> 9133 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *x\n"</span>) +<span id="L9134" class="LineNr"> 9134 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9135" class="LineNr"> 9135 </span> <span class="subxComment"># convert</span> +<span id="L9136" class="LineNr"> 9136 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9137" class="LineNr"> 9137 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9138" class="LineNr"> 9138 </span> <span class="subxComment"># restore ed</span> +<span id="L9139" class="LineNr"> 9139 </span> 89/<- %edx 4/r32/esp +<span id="L9140" class="LineNr"> 9140 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9141" class="LineNr"> 9141 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9142" class="Folded"> 9142 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9148" class="LineNr"> 9148 </span> <span class="subxComment"># check output</span> +<span id="L9149" class="LineNr"> 9149 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9114'>test-copy-byte-to-with-no-source</a>: output should be empty"</span>) +<span id="L9150" class="LineNr"> 9150 </span> (<a href='109stream-equal.subx.html#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#L9114'>test-copy-byte-to-with-no-source</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9151" class="LineNr"> 9151 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9152" class="LineNr"> 9152 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9114'>test-copy-byte-to-with-no-source</a>: exit status"</span>) +<span id="L9153" class="LineNr"> 9153 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9154" class="LineNr"> 9154 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9155" class="LineNr"> 9155 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9156" class="LineNr"> 9156 </span> 5d/pop-to-ebp +<span id="L9157" class="LineNr"> 9157 </span> c3/return +<span id="L9158" class="LineNr"> 9158 </span> +<span id="L9159" class="LineNr"> 9159 </span><span class="subxTest">test-copy-byte-to-with-too-many-inouts</span>: +<span id="L9160" class="LineNr"> 9160 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9161" class="LineNr"> 9161 </span> 55/push-ebp +<span id="L9162" class="LineNr"> 9162 </span> 89/<- %ebp 4/r32/esp +<span id="L9163" class="LineNr"> 9163 </span> <span class="subxComment"># setup</span> +<span id="L9164" class="LineNr"> 9164 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9165" class="LineNr"> 9165 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9166" class="LineNr"> 9166 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9167" class="LineNr"> 9167 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9168" class="LineNr"> 9168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9169" class="LineNr"> 9169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9170" class="LineNr"> 9170 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9171" class="LineNr"> 9171 </span> 68/push 0/imm32 +<span id="L9172" class="LineNr"> 9172 </span> 68/push 0/imm32 +<span id="L9173" class="LineNr"> 9173 </span> 89/<- %edx 4/r32/esp +<span id="L9174" class="LineNr"> 9174 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9175" class="LineNr"> 9175 </span> <span class="subxComment">#</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">"fn foo {\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">" var x/eax: (addr byte) <- copy 0\n"</span>) +<span id="L9178" class="LineNr"> 9178 </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="L9179" class="LineNr"> 9179 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9180" class="LineNr"> 9180 </span> <span class="subxComment"># convert</span> +<span id="L9181" class="LineNr"> 9181 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9182" class="LineNr"> 9182 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9183" class="LineNr"> 9183 </span> <span class="subxComment"># restore ed</span> +<span id="L9184" class="LineNr"> 9184 </span> 89/<- %edx 4/r32/esp +<span id="L9185" class="LineNr"> 9185 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9186" class="LineNr"> 9186 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9187" class="Folded"> 9187 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9193" class="LineNr"> 9193 </span> <span class="subxComment"># check output</span> +<span id="L9194" class="LineNr"> 9194 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9159'>test-copy-byte-to-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L9195" class="LineNr"> 9195 </span> (<a href='109stream-equal.subx.html#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#L9159'>test-copy-byte-to-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9196" class="LineNr"> 9196 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9197" class="LineNr"> 9197 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9159'>test-copy-byte-to-with-too-many-inouts</a>: exit status"</span>) +<span id="L9198" class="LineNr"> 9198 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9199" class="LineNr"> 9199 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9200" class="LineNr"> 9200 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9201" class="LineNr"> 9201 </span> 5d/pop-to-ebp +<span id="L9202" class="LineNr"> 9202 </span> c3/return +<span id="L9203" class="LineNr"> 9203 </span> +<span id="L9204" class="LineNr"> 9204 </span><span class="subxTest">test-copy-byte-to-with-output</span>: +<span id="L9205" class="LineNr"> 9205 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9206" class="LineNr"> 9206 </span> 55/push-ebp +<span id="L9207" class="LineNr"> 9207 </span> 89/<- %ebp 4/r32/esp +<span id="L9208" class="LineNr"> 9208 </span> <span class="subxComment"># setup</span> +<span id="L9209" class="LineNr"> 9209 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9210" class="LineNr"> 9210 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9211" class="LineNr"> 9211 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9212" class="LineNr"> 9212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-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#L438'>_test-error-stream</a>) +<span id="L9214" class="LineNr"> 9214 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9215" class="LineNr"> 9215 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9216" class="LineNr"> 9216 </span> 68/push 0/imm32 +<span id="L9217" class="LineNr"> 9217 </span> 68/push 0/imm32 +<span id="L9218" class="LineNr"> 9218 </span> 89/<- %edx 4/r32/esp +<span id="L9219" class="LineNr"> 9219 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9220" class="LineNr"> 9220 </span> <span class="subxComment">#</span> +<span id="L9221" class="LineNr"> 9221 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9222" class="LineNr"> 9222 </span> (<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="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">" var y/ecx: (addr byte) <- copy 0\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">" x <- copy-byte-to *y, 0\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">"}\n"</span>) +<span id="L9226" class="LineNr"> 9226 </span> <span class="subxComment"># convert</span> +<span id="L9227" class="LineNr"> 9227 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9228" class="LineNr"> 9228 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9229" class="LineNr"> 9229 </span> <span class="subxComment"># restore ed</span> +<span id="L9230" class="LineNr"> 9230 </span> 89/<- %edx 4/r32/esp +<span id="L9231" class="LineNr"> 9231 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9232" class="LineNr"> 9232 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9233" class="Folded"> 9233 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9239" class="LineNr"> 9239 </span> <span class="subxComment"># check output</span> +<span id="L9240" class="LineNr"> 9240 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9204'>test-copy-byte-to-with-output</a>: output should be empty"</span>) +<span id="L9241" class="LineNr"> 9241 </span> (<a href='109stream-equal.subx.html#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#L9204'>test-copy-byte-to-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9242" class="LineNr"> 9242 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9243" class="LineNr"> 9243 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9204'>test-copy-byte-to-with-output</a>: exit status"</span>) +<span id="L9244" class="LineNr"> 9244 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9245" class="LineNr"> 9245 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9246" class="LineNr"> 9246 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9247" class="LineNr"> 9247 </span> 5d/pop-to-ebp +<span id="L9248" class="LineNr"> 9248 </span> c3/return +<span id="L9249" class="LineNr"> 9249 </span> +<span id="L9250" class="LineNr"> 9250 </span><span class="subxTest">test-copy-byte-to-with-invalid-output-type</span>: +<span id="L9251" class="LineNr"> 9251 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9252" class="LineNr"> 9252 </span> 55/push-ebp +<span id="L9253" class="LineNr"> 9253 </span> 89/<- %ebp 4/r32/esp +<span id="L9254" class="LineNr"> 9254 </span> <span class="subxComment"># setup</span> +<span id="L9255" class="LineNr"> 9255 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9256" class="LineNr"> 9256 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9257" class="LineNr"> 9257 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9258" class="LineNr"> 9258 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-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#L438'>_test-error-stream</a>) +<span id="L9260" class="LineNr"> 9260 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9261" class="LineNr"> 9261 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9262" class="LineNr"> 9262 </span> 68/push 0/imm32 +<span id="L9263" class="LineNr"> 9263 </span> 68/push 0/imm32 +<span id="L9264" class="LineNr"> 9264 </span> 89/<- %edx 4/r32/esp +<span id="L9265" class="LineNr"> 9265 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9266" class="LineNr"> 9266 </span> <span class="subxComment">#</span> +<span id="L9267" class="LineNr"> 9267 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9268" class="LineNr"> 9268 </span> (<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="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">" var y: int\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">" copy-byte-to y, x\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">"}\n"</span>) +<span id="L9272" class="LineNr"> 9272 </span> <span class="subxComment"># convert</span> +<span id="L9273" class="LineNr"> 9273 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9274" class="LineNr"> 9274 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9275" class="LineNr"> 9275 </span> <span class="subxComment"># restore ed</span> +<span id="L9276" class="LineNr"> 9276 </span> 89/<- %edx 4/r32/esp +<span id="L9277" class="LineNr"> 9277 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9278" class="LineNr"> 9278 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9279" class="Folded"> 9279 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9285" class="LineNr"> 9285 </span> <span class="subxComment"># check output</span> +<span id="L9286" class="LineNr"> 9286 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9250'>test-copy-byte-to-with-invalid-output-type</a>: output should be empty"</span>) +<span id="L9287" class="LineNr"> 9287 </span> (<a href='109stream-equal.subx.html#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#L9250'>test-copy-byte-to-with-invalid-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9288" class="LineNr"> 9288 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9289" class="LineNr"> 9289 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9250'>test-copy-byte-to-with-invalid-output-type</a>: exit status"</span>) +<span id="L9290" class="LineNr"> 9290 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9291" class="LineNr"> 9291 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9292" class="LineNr"> 9292 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9293" class="LineNr"> 9293 </span> 5d/pop-to-ebp +<span id="L9294" class="LineNr"> 9294 </span> c3/return +<span id="L9295" class="LineNr"> 9295 </span> +<span id="L9296" class="LineNr"> 9296 </span><span class="subxTest">test-copy-byte-to-with-literal-inout</span>: +<span id="L9297" class="LineNr"> 9297 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9298" class="LineNr"> 9298 </span> 55/push-ebp +<span id="L9299" class="LineNr"> 9299 </span> 89/<- %ebp 4/r32/esp +<span id="L9300" class="LineNr"> 9300 </span> <span class="subxComment"># setup</span> +<span id="L9301" class="LineNr"> 9301 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9302" class="LineNr"> 9302 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9303" class="LineNr"> 9303 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9304" class="LineNr"> 9304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9305" class="LineNr"> 9305 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9306" class="LineNr"> 9306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9307" class="LineNr"> 9307 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9308" class="LineNr"> 9308 </span> 68/push 0/imm32 +<span id="L9309" class="LineNr"> 9309 </span> 68/push 0/imm32 +<span id="L9310" class="LineNr"> 9310 </span> 89/<- %edx 4/r32/esp +<span id="L9311" class="LineNr"> 9311 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9312" class="LineNr"> 9312 </span> <span class="subxComment">#</span> +<span id="L9313" class="LineNr"> 9313 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</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">" var x/eax: (addr byte) <- copy 0\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">" copy-byte-to *x, 0\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">"}\n"</span>) +<span id="L9317" class="LineNr"> 9317 </span> <span class="subxComment"># convert</span> +<span id="L9318" class="LineNr"> 9318 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9319" class="LineNr"> 9319 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9320" class="LineNr"> 9320 </span> <span class="subxComment"># restore ed</span> +<span id="L9321" class="LineNr"> 9321 </span> 89/<- %edx 4/r32/esp +<span id="L9322" class="LineNr"> 9322 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9323" class="LineNr"> 9323 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9324" class="Folded"> 9324 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9330" class="LineNr"> 9330 </span> <span class="subxComment"># check output</span> +<span id="L9331" class="LineNr"> 9331 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9296'>test-copy-byte-to-with-literal-inout</a>: output should be empty"</span>) +<span id="L9332" class="LineNr"> 9332 </span> (<a href='109stream-equal.subx.html#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#L9296'>test-copy-byte-to-with-literal-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9333" class="LineNr"> 9333 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9334" class="LineNr"> 9334 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9296'>test-copy-byte-to-with-literal-inout</a>: exit status"</span>) +<span id="L9335" class="LineNr"> 9335 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9336" class="LineNr"> 9336 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9337" class="LineNr"> 9337 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9338" class="LineNr"> 9338 </span> 5d/pop-to-ebp +<span id="L9339" class="LineNr"> 9339 </span> c3/return +<span id="L9340" class="LineNr"> 9340 </span> +<span id="L9341" class="LineNr"> 9341 </span><span class="subxTest">test-copy-byte-to-deref-address</span>: +<span id="L9342" class="LineNr"> 9342 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9343" class="LineNr"> 9343 </span> 55/push-ebp +<span id="L9344" class="LineNr"> 9344 </span> 89/<- %ebp 4/r32/esp +<span id="L9345" class="LineNr"> 9345 </span> <span class="subxComment"># setup</span> +<span id="L9346" class="LineNr"> 9346 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9347" class="LineNr"> 9347 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9348" class="LineNr"> 9348 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9349" class="LineNr"> 9349 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9350" class="LineNr"> 9350 </span> <span class="subxComment">#</span> +<span id="L9351" class="LineNr"> 9351 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9352" class="LineNr"> 9352 </span> (<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="L9353" class="LineNr"> 9353 </span> (<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="L9354" class="LineNr"> 9354 </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="L9355" class="LineNr"> 9355 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9356" class="LineNr"> 9356 </span> <span class="subxComment"># convert</span> +<span id="L9357" class="LineNr"> 9357 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L9358" class="LineNr"> 9358 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9359" class="LineNr"> 9359 </span> <span class="subxComment"># no errors</span> +<span id="L9360" class="LineNr"> 9360 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9361" class="LineNr"> 9361 </span> 5d/pop-to-ebp +<span id="L9362" class="LineNr"> 9362 </span> c3/return +<span id="L9363" class="LineNr"> 9363 </span> +<span id="L9364" class="LineNr"> 9364 </span><span class="subxTest">test-copy-byte-to-from-non-scalar-inout</span>: +<span id="L9365" class="LineNr"> 9365 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9366" class="LineNr"> 9366 </span> 55/push-ebp +<span id="L9367" class="LineNr"> 9367 </span> 89/<- %ebp 4/r32/esp +<span id="L9368" class="LineNr"> 9368 </span> <span class="subxComment"># setup</span> +<span id="L9369" class="LineNr"> 9369 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9370" class="LineNr"> 9370 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9371" class="LineNr"> 9371 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9372" class="LineNr"> 9372 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9373" class="LineNr"> 9373 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9374" class="LineNr"> 9374 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9375" class="LineNr"> 9375 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9376" class="LineNr"> 9376 </span> 68/push 0/imm32 <span id="L9377" class="LineNr"> 9377 </span> 68/push 0/imm32 -<span id="L9378" class="LineNr"> 9378 </span> 68/push 0/imm32 -<span id="L9379" class="LineNr"> 9379 </span> 89/<- %edx 4/r32/esp -<span id="L9380" class="LineNr"> 9380 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9381" class="LineNr"> 9381 </span> <span class="subxComment">#</span> -<span id="L9382" class="LineNr"> 9382 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9383" class="LineNr"> 9383 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L9384" class="LineNr"> 9384 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0, 0\n"</span>) +<span id="L9378" class="LineNr"> 9378 </span> 89/<- %edx 4/r32/esp +<span id="L9379" class="LineNr"> 9379 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9380" class="LineNr"> 9380 </span> <span class="subxComment">#</span> +<span id="L9381" class="LineNr"> 9381 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9382" class="LineNr"> 9382 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) +<span id="L9383" class="LineNr"> 9383 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr byte) <- copy 0\n"</span>) +<span id="L9384" class="LineNr"> 9384 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *y, x\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">"}\n"</span>) <span id="L9386" class="LineNr"> 9386 </span> <span class="subxComment"># convert</span> <span id="L9387" class="LineNr"> 9387 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -8557,19 +8557,19 @@ if ('onhashchange' in window) { <span id="L9390" class="LineNr"> 9390 </span> 89/<- %edx 4/r32/esp <span id="L9391" class="LineNr"> 9391 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L9392" class="LineNr"> 9392 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9393" class="Folded"> 9393 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9393" class="Folded"> 9393 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9399" class="LineNr"> 9399 </span> <span class="subxComment"># check output</span> -<span id="L9400" class="LineNr"> 9400 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9365'>test-compare-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L9401" class="LineNr"> 9401 </span> (<a href='109stream-equal.subx.html#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#L9365'>test-compare-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9400" class="LineNr"> 9400 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9364'>test-copy-byte-to-from-non-scalar-inout</a>: output should be empty"</span>) +<span id="L9401" class="LineNr"> 9401 </span> (<a href='109stream-equal.subx.html#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#L9364'>test-copy-byte-to-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L9402" class="LineNr"> 9402 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9403" class="LineNr"> 9403 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9365'>test-compare-with-too-many-inouts</a>: exit status"</span>) +<span id="L9403" class="LineNr"> 9403 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9364'>test-copy-byte-to-from-non-scalar-inout</a>: exit status"</span>) <span id="L9404" class="LineNr"> 9404 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L9405" class="LineNr"> 9405 </span> 81 0/subop/add %esp 8/imm32 <span id="L9406" class="LineNr"> 9406 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L9407" class="LineNr"> 9407 </span> 5d/pop-to-ebp <span id="L9408" class="LineNr"> 9408 </span> c3/return <span id="L9409" class="LineNr"> 9409 </span> -<span id="L9410" class="LineNr"> 9410 </span><span class="subxTest">test-compare-with-output</span>: +<span id="L9410" class="LineNr"> 9410 </span><span class="subxTest">test-compare-with-no-inout</span>: <span id="L9411" class="LineNr"> 9411 </span> <span class="subxS1Comment"># . prologue</span> <span id="L9412" class="LineNr"> 9412 </span> 55/push-ebp <span id="L9413" class="LineNr"> 9413 </span> 89/<- %ebp 4/r32/esp @@ -8587,398 +8587,398 @@ if ('onhashchange' in window) { <span id="L9425" class="LineNr"> 9425 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L9426" class="LineNr"> 9426 </span> <span class="subxComment">#</span> <span id="L9427" class="LineNr"> 9427 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9428" class="LineNr"> 9428 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L9429" class="LineNr"> 9429 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) -<span id="L9430" class="LineNr"> 9430 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- compare y, 0\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">"}\n"</span>) -<span id="L9432" class="LineNr"> 9432 </span> <span class="subxComment"># convert</span> -<span id="L9433" class="LineNr"> 9433 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9434" class="LineNr"> 9434 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9435" class="LineNr"> 9435 </span> <span class="subxComment"># restore ed</span> -<span id="L9436" class="LineNr"> 9436 </span> 89/<- %edx 4/r32/esp -<span id="L9437" class="LineNr"> 9437 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9438" class="LineNr"> 9438 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9439" class="Folded"> 9439 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9445" class="LineNr"> 9445 </span> <span class="subxComment"># check output</span> -<span id="L9446" class="LineNr"> 9446 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9410'>test-compare-with-output</a>: output should be empty"</span>) -<span id="L9447" class="LineNr"> 9447 </span> (<a href='109stream-equal.subx.html#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#L9410'>test-compare-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9448" class="LineNr"> 9448 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9449" class="LineNr"> 9449 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9410'>test-compare-with-output</a>: exit status"</span>) -<span id="L9450" class="LineNr"> 9450 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9451" class="LineNr"> 9451 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9452" class="LineNr"> 9452 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9453" class="LineNr"> 9453 </span> 5d/pop-to-ebp -<span id="L9454" class="LineNr"> 9454 </span> c3/return -<span id="L9455" class="LineNr"> 9455 </span> -<span id="L9456" class="LineNr"> 9456 </span><span class="subxTest">test-compare-invalid-value-to-address</span>: -<span id="L9457" class="LineNr"> 9457 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9458" class="LineNr"> 9458 </span> 55/push-ebp -<span id="L9459" class="LineNr"> 9459 </span> 89/<- %ebp 4/r32/esp -<span id="L9460" class="LineNr"> 9460 </span> <span class="subxComment"># setup</span> -<span id="L9461" class="LineNr"> 9461 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9462" class="LineNr"> 9462 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9463" class="LineNr"> 9463 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9464" class="LineNr"> 9464 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9465" class="LineNr"> 9465 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9466" class="LineNr"> 9466 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9467" class="LineNr"> 9467 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9428" class="LineNr"> 9428 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) +<span id="L9429" class="LineNr"> 9429 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare\n"</span>) +<span id="L9430" class="LineNr"> 9430 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9431" class="LineNr"> 9431 </span> <span class="subxComment"># convert</span> +<span id="L9432" class="LineNr"> 9432 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9433" class="LineNr"> 9433 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9434" class="LineNr"> 9434 </span> <span class="subxComment"># restore ed</span> +<span id="L9435" class="LineNr"> 9435 </span> 89/<- %edx 4/r32/esp +<span id="L9436" class="LineNr"> 9436 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9437" class="LineNr"> 9437 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9438" class="Folded"> 9438 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9444" class="LineNr"> 9444 </span> <span class="subxComment"># check output</span> +<span id="L9445" class="LineNr"> 9445 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9410'>test-compare-with-no-inout</a>: output should be empty"</span>) +<span id="L9446" class="LineNr"> 9446 </span> (<a href='109stream-equal.subx.html#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#L9410'>test-compare-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9447" class="LineNr"> 9447 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9448" class="LineNr"> 9448 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9410'>test-compare-with-no-inout</a>: exit status"</span>) +<span id="L9449" class="LineNr"> 9449 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9450" class="LineNr"> 9450 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9451" class="LineNr"> 9451 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9452" class="LineNr"> 9452 </span> 5d/pop-to-ebp +<span id="L9453" class="LineNr"> 9453 </span> c3/return +<span id="L9454" class="LineNr"> 9454 </span> +<span id="L9455" class="LineNr"> 9455 </span><span class="subxTest">test-compare-with-just-one-inout</span>: +<span id="L9456" class="LineNr"> 9456 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9457" class="LineNr"> 9457 </span> 55/push-ebp +<span id="L9458" class="LineNr"> 9458 </span> 89/<- %ebp 4/r32/esp +<span id="L9459" class="LineNr"> 9459 </span> <span class="subxComment"># setup</span> +<span id="L9460" class="LineNr"> 9460 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9461" class="LineNr"> 9461 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9462" class="LineNr"> 9462 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9463" class="LineNr"> 9463 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9464" class="LineNr"> 9464 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9465" class="LineNr"> 9465 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9466" class="LineNr"> 9466 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9467" class="LineNr"> 9467 </span> 68/push 0/imm32 <span id="L9468" class="LineNr"> 9468 </span> 68/push 0/imm32 -<span id="L9469" class="LineNr"> 9469 </span> 68/push 0/imm32 -<span id="L9470" class="LineNr"> 9470 </span> 89/<- %edx 4/r32/esp -<span id="L9471" class="LineNr"> 9471 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9472" class="LineNr"> 9472 </span> <span class="subxComment">#</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">"fn foo {\n"</span>) -<span id="L9474" class="LineNr"> 9474 </span> (<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="L9475" class="LineNr"> 9475 </span> (<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="L9476" class="LineNr"> 9476 </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="L9477" class="LineNr"> 9477 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9478" class="LineNr"> 9478 </span> <span class="subxComment"># convert</span> -<span id="L9479" class="LineNr"> 9479 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9480" class="LineNr"> 9480 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9481" class="LineNr"> 9481 </span> <span class="subxComment"># restore ed</span> -<span id="L9482" class="LineNr"> 9482 </span> 89/<- %edx 4/r32/esp -<span id="L9483" class="LineNr"> 9483 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9484" class="LineNr"> 9484 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9485" class="Folded"> 9485 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9491" class="LineNr"> 9491 </span> <span class="subxComment"># check output</span> -<span id="L9492" class="LineNr"> 9492 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9456'>test-compare-invalid-value-to-address</a>: output should be empty"</span>) -<span id="L9493" class="LineNr"> 9493 </span> (<a href='109stream-equal.subx.html#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#L9456'>test-compare-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9494" class="LineNr"> 9494 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9495" class="LineNr"> 9495 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9456'>test-compare-invalid-value-to-address</a>: exit status"</span>) -<span id="L9496" class="LineNr"> 9496 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9497" class="LineNr"> 9497 </span> 81 0/subop/add %esp 8/imm32 -<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-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 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-deref-address</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> <span class="subxComment">#</span> -<span id="L9535" class="LineNr"> 9535 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9536" class="LineNr"> 9536 </span> (<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="L9537" class="LineNr"> 9537 </span> (<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="L9538" class="LineNr"> 9538 </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="L9539" class="LineNr"> 9539 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9540" class="LineNr"> 9540 </span> <span class="subxComment"># convert</span> -<span id="L9541" class="LineNr"> 9541 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L9542" class="LineNr"> 9542 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9543" class="LineNr"> 9543 </span> <span class="subxComment"># no errors</span> -<span id="L9544" class="LineNr"> 9544 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9545" class="LineNr"> 9545 </span> 5d/pop-to-ebp -<span id="L9546" class="LineNr"> 9546 </span> c3/return -<span id="L9547" class="LineNr"> 9547 </span> -<span id="L9548" class="LineNr"> 9548 </span><span class="subxTest">test-compare-two-vars-in-memory</span>: -<span id="L9549" class="LineNr"> 9549 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9550" class="LineNr"> 9550 </span> 55/push-ebp -<span id="L9551" class="LineNr"> 9551 </span> 89/<- %ebp 4/r32/esp -<span id="L9552" class="LineNr"> 9552 </span> <span class="subxComment"># setup</span> -<span id="L9553" class="LineNr"> 9553 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9554" class="LineNr"> 9554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9555" class="LineNr"> 9555 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9556" class="LineNr"> 9556 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9557" class="LineNr"> 9557 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9558" class="LineNr"> 9558 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9559" class="LineNr"> 9559 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9560" class="LineNr"> 9560 </span> 68/push 0/imm32 -<span id="L9561" class="LineNr"> 9561 </span> 68/push 0/imm32 -<span id="L9562" class="LineNr"> 9562 </span> 89/<- %edx 4/r32/esp -<span id="L9563" class="LineNr"> 9563 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9564" class="LineNr"> 9564 </span> <span class="subxComment">#</span> -<span id="L9565" class="LineNr"> 9565 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9566" class="LineNr"> 9566 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L9567" class="LineNr"> 9567 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, x\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">"}\n"</span>) -<span id="L9569" class="LineNr"> 9569 </span> <span class="subxComment"># convert</span> -<span id="L9570" class="LineNr"> 9570 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9571" class="LineNr"> 9571 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9572" class="LineNr"> 9572 </span> <span class="subxComment"># restore ed</span> -<span id="L9573" class="LineNr"> 9573 </span> 89/<- %edx 4/r32/esp -<span id="L9574" class="LineNr"> 9574 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9575" class="LineNr"> 9575 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9576" class="Folded"> 9576 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9582" class="LineNr"> 9582 </span> <span class="subxComment"># check output</span> -<span id="L9583" class="LineNr"> 9583 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9548'>test-compare-two-vars-in-memory</a>: output should be empty"</span>) -<span id="L9584" class="LineNr"> 9584 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: both inouts are in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L9548'>test-compare-two-vars-in-memory</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9585" class="LineNr"> 9585 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9586" class="LineNr"> 9586 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9548'>test-compare-two-vars-in-memory</a>: exit status"</span>) -<span id="L9587" class="LineNr"> 9587 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9588" class="LineNr"> 9588 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9589" class="LineNr"> 9589 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9590" class="LineNr"> 9590 </span> 5d/pop-to-ebp -<span id="L9591" class="LineNr"> 9591 </span> c3/return -<span id="L9592" class="LineNr"> 9592 </span> -<span id="L9593" class="LineNr"> 9593 </span><span class="subxTest">test-compare-non-scalar</span>: -<span id="L9594" class="LineNr"> 9594 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9595" class="LineNr"> 9595 </span> 55/push-ebp -<span id="L9596" class="LineNr"> 9596 </span> 89/<- %ebp 4/r32/esp -<span id="L9597" class="LineNr"> 9597 </span> <span class="subxComment"># setup</span> -<span id="L9598" class="LineNr"> 9598 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9599" class="LineNr"> 9599 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9600" class="LineNr"> 9600 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9601" class="LineNr"> 9601 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9602" class="LineNr"> 9602 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9603" class="LineNr"> 9603 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9604" class="LineNr"> 9604 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9605" class="LineNr"> 9605 </span> 68/push 0/imm32 -<span id="L9606" class="LineNr"> 9606 </span> 68/push 0/imm32 -<span id="L9607" class="LineNr"> 9607 </span> 89/<- %edx 4/r32/esp -<span id="L9608" class="LineNr"> 9608 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9609" class="LineNr"> 9609 </span> <span class="subxComment">#</span> -<span id="L9610" class="LineNr"> 9610 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9611" class="LineNr"> 9611 </span> (<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="L9612" class="LineNr"> 9612 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L9613" class="LineNr"> 9613 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare y, x\n"</span>) -<span id="L9614" class="LineNr"> 9614 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9615" class="LineNr"> 9615 </span> <span class="subxComment"># convert</span> -<span id="L9616" class="LineNr"> 9616 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9617" class="LineNr"> 9617 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9618" class="LineNr"> 9618 </span> <span class="subxComment"># restore ed</span> -<span id="L9619" class="LineNr"> 9619 </span> 89/<- %edx 4/r32/esp -<span id="L9620" class="LineNr"> 9620 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9621" class="LineNr"> 9621 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9622" class="Folded"> 9622 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9628" class="LineNr"> 9628 </span> <span class="subxComment"># check output</span> -<span id="L9629" class="LineNr"> 9629 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9593'>test-compare-non-scalar</a>: output should be empty"</span>) -<span id="L9630" class="LineNr"> 9630 </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="L9631" class="LineNr"> 9631 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: both inouts are in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L9593'>test-compare-non-scalar</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9632" class="LineNr"> 9632 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9633" class="LineNr"> 9633 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9593'>test-compare-non-scalar</a>: exit status"</span>) -<span id="L9634" class="LineNr"> 9634 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9635" class="LineNr"> 9635 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9636" class="LineNr"> 9636 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9637" class="LineNr"> 9637 </span> 5d/pop-to-ebp -<span id="L9638" class="LineNr"> 9638 </span> c3/return -<span id="L9639" class="LineNr"> 9639 </span> -<span id="L9640" class="LineNr"> 9640 </span><span class="subxTest">test-compare-with-string-literal</span>: -<span id="L9641" class="LineNr"> 9641 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9642" class="LineNr"> 9642 </span> 55/push-ebp -<span id="L9643" class="LineNr"> 9643 </span> 89/<- %ebp 4/r32/esp -<span id="L9644" class="LineNr"> 9644 </span> <span class="subxComment"># setup</span> -<span id="L9645" class="LineNr"> 9645 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9646" class="LineNr"> 9646 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9647" class="LineNr"> 9647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9648" class="LineNr"> 9648 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9649" class="LineNr"> 9649 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9650" class="LineNr"> 9650 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9651" class="LineNr"> 9651 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9652" class="LineNr"> 9652 </span> 68/push 0/imm32 -<span id="L9653" class="LineNr"> 9653 </span> 68/push 0/imm32 -<span id="L9654" class="LineNr"> 9654 </span> 89/<- %edx 4/r32/esp -<span id="L9655" class="LineNr"> 9655 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9656" class="LineNr"> 9656 </span> <span class="subxComment">#</span> -<span id="L9657" class="LineNr"> 9657 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9658" class="LineNr"> 9658 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr array byte) <- copy 0\n"</span>) -<span id="L9659" class="LineNr"> 9659 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, \"</span>abc\<span class="Constant">"\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">"}\n"</span>) -<span id="L9661" class="LineNr"> 9661 </span> <span class="subxComment"># convert</span> -<span id="L9662" class="LineNr"> 9662 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9663" class="LineNr"> 9663 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9664" class="LineNr"> 9664 </span> <span class="subxComment"># restore ed</span> -<span id="L9665" class="LineNr"> 9665 </span> 89/<- %edx 4/r32/esp -<span id="L9666" class="LineNr"> 9666 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9667" class="LineNr"> 9667 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9668" class="Folded"> 9668 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9674" class="LineNr"> 9674 </span> <span class="subxComment"># check output</span> -<span id="L9675" class="LineNr"> 9675 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9640'>test-compare-with-string-literal</a>: output should be empty"</span>) -<span id="L9676" class="LineNr"> 9676 </span> (<a href='109stream-equal.subx.html#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#L9640'>test-compare-with-string-literal</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9677" class="LineNr"> 9677 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9678" class="LineNr"> 9678 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9640'>test-compare-with-string-literal</a>: exit status"</span>) -<span id="L9679" class="LineNr"> 9679 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9680" class="LineNr"> 9680 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9681" class="LineNr"> 9681 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9682" class="LineNr"> 9682 </span> 5d/pop-to-ebp -<span id="L9683" class="LineNr"> 9683 </span> c3/return -<span id="L9684" class="LineNr"> 9684 </span> -<span id="L9685" class="LineNr"> 9685 </span><span class="subxTest">test-address-with-no-inout</span>: -<span id="L9686" class="LineNr"> 9686 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9687" class="LineNr"> 9687 </span> 55/push-ebp -<span id="L9688" class="LineNr"> 9688 </span> 89/<- %ebp 4/r32/esp -<span id="L9689" class="LineNr"> 9689 </span> <span class="subxComment"># setup</span> -<span id="L9690" class="LineNr"> 9690 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9691" class="LineNr"> 9691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9692" class="LineNr"> 9692 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9693" class="LineNr"> 9693 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9694" class="LineNr"> 9694 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9695" class="LineNr"> 9695 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9696" class="LineNr"> 9696 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9697" class="LineNr"> 9697 </span> 68/push 0/imm32 -<span id="L9698" class="LineNr"> 9698 </span> 68/push 0/imm32 -<span id="L9699" class="LineNr"> 9699 </span> 89/<- %edx 4/r32/esp -<span id="L9700" class="LineNr"> 9700 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9701" class="LineNr"> 9701 </span> <span class="subxComment">#</span> -<span id="L9702" class="LineNr"> 9702 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9703" class="LineNr"> 9703 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- address\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">"}\n"</span>) -<span id="L9705" class="LineNr"> 9705 </span> <span class="subxComment"># convert</span> -<span id="L9706" class="LineNr"> 9706 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9707" class="LineNr"> 9707 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9708" class="LineNr"> 9708 </span> <span class="subxComment"># restore ed</span> -<span id="L9709" class="LineNr"> 9709 </span> 89/<- %edx 4/r32/esp -<span id="L9710" class="LineNr"> 9710 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9711" class="LineNr"> 9711 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9712" class="Folded"> 9712 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9718" class="LineNr"> 9718 </span> <span class="subxComment"># check output</span> -<span id="L9719" class="LineNr"> 9719 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9685'>test-address-with-no-inout</a>: output should be empty"</span>) -<span id="L9720" class="LineNr"> 9720 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L9685'>test-address-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9721" class="LineNr"> 9721 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9722" class="LineNr"> 9722 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9685'>test-address-with-no-inout</a>: exit status"</span>) -<span id="L9723" class="LineNr"> 9723 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9724" class="LineNr"> 9724 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9725" class="LineNr"> 9725 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9726" class="LineNr"> 9726 </span> 5d/pop-to-ebp -<span id="L9727" class="LineNr"> 9727 </span> c3/return -<span id="L9728" class="LineNr"> 9728 </span> -<span id="L9729" class="LineNr"> 9729 </span><span class="subxTest">test-address-with-multiple-inouts</span>: -<span id="L9730" class="LineNr"> 9730 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9731" class="LineNr"> 9731 </span> 55/push-ebp -<span id="L9732" class="LineNr"> 9732 </span> 89/<- %ebp 4/r32/esp -<span id="L9733" class="LineNr"> 9733 </span> <span class="subxComment"># setup</span> -<span id="L9734" class="LineNr"> 9734 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9735" class="LineNr"> 9735 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9736" class="LineNr"> 9736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9737" class="LineNr"> 9737 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9738" class="LineNr"> 9738 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9739" class="LineNr"> 9739 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9740" class="LineNr"> 9740 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9469" class="LineNr"> 9469 </span> 89/<- %edx 4/r32/esp +<span id="L9470" class="LineNr"> 9470 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9471" class="LineNr"> 9471 </span> <span class="subxComment">#</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">"fn foo {\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">" var x: boolean\n"</span>) +<span id="L9474" class="LineNr"> 9474 </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="L9475" class="LineNr"> 9475 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9476" class="LineNr"> 9476 </span> <span class="subxComment"># convert</span> +<span id="L9477" class="LineNr"> 9477 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9478" class="LineNr"> 9478 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9479" class="LineNr"> 9479 </span> <span class="subxComment"># restore ed</span> +<span id="L9480" class="LineNr"> 9480 </span> 89/<- %edx 4/r32/esp +<span id="L9481" class="LineNr"> 9481 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9482" class="LineNr"> 9482 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9483" class="Folded"> 9483 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9489" class="LineNr"> 9489 </span> <span class="subxComment"># check output</span> +<span id="L9490" class="LineNr"> 9490 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9455'>test-compare-with-just-one-inout</a>: output should be empty"</span>) +<span id="L9491" class="LineNr"> 9491 </span> (<a href='109stream-equal.subx.html#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#L9455'>test-compare-with-just-one-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9492" class="LineNr"> 9492 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9493" class="LineNr"> 9493 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9455'>test-compare-with-just-one-inout</a>: exit status"</span>) +<span id="L9494" class="LineNr"> 9494 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9495" class="LineNr"> 9495 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9496" class="LineNr"> 9496 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9497" class="LineNr"> 9497 </span> 5d/pop-to-ebp +<span id="L9498" class="LineNr"> 9498 </span> c3/return +<span id="L9499" class="LineNr"> 9499 </span> +<span id="L9500" class="LineNr"> 9500 </span><span class="subxTest">test-compare-with-too-many-inouts</span>: +<span id="L9501" class="LineNr"> 9501 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9502" class="LineNr"> 9502 </span> 55/push-ebp +<span id="L9503" class="LineNr"> 9503 </span> 89/<- %ebp 4/r32/esp +<span id="L9504" class="LineNr"> 9504 </span> <span class="subxComment"># setup</span> +<span id="L9505" class="LineNr"> 9505 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9506" class="LineNr"> 9506 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9507" class="LineNr"> 9507 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9508" class="LineNr"> 9508 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-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#L438'>_test-error-stream</a>) +<span id="L9510" class="LineNr"> 9510 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9511" class="LineNr"> 9511 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9512" class="LineNr"> 9512 </span> 68/push 0/imm32 +<span id="L9513" class="LineNr"> 9513 </span> 68/push 0/imm32 +<span id="L9514" class="LineNr"> 9514 </span> 89/<- %edx 4/r32/esp +<span id="L9515" class="LineNr"> 9515 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9516" class="LineNr"> 9516 </span> <span class="subxComment">#</span> +<span id="L9517" class="LineNr"> 9517 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9518" class="LineNr"> 9518 </span> (<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="L9519" class="LineNr"> 9519 </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="L9520" class="LineNr"> 9520 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9521" class="LineNr"> 9521 </span> <span class="subxComment"># convert</span> +<span id="L9522" class="LineNr"> 9522 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9523" class="LineNr"> 9523 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9524" class="LineNr"> 9524 </span> <span class="subxComment"># restore ed</span> +<span id="L9525" class="LineNr"> 9525 </span> 89/<- %edx 4/r32/esp +<span id="L9526" class="LineNr"> 9526 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9527" class="LineNr"> 9527 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9528" class="Folded"> 9528 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9534" class="LineNr"> 9534 </span> <span class="subxComment"># check output</span> +<span id="L9535" class="LineNr"> 9535 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9500'>test-compare-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L9536" class="LineNr"> 9536 </span> (<a href='109stream-equal.subx.html#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#L9500'>test-compare-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9537" class="LineNr"> 9537 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9538" class="LineNr"> 9538 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9500'>test-compare-with-too-many-inouts</a>: exit status"</span>) +<span id="L9539" class="LineNr"> 9539 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9540" class="LineNr"> 9540 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9541" class="LineNr"> 9541 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9542" class="LineNr"> 9542 </span> 5d/pop-to-ebp +<span id="L9543" class="LineNr"> 9543 </span> c3/return +<span id="L9544" class="LineNr"> 9544 </span> +<span id="L9545" class="LineNr"> 9545 </span><span class="subxTest">test-compare-with-output</span>: +<span id="L9546" class="LineNr"> 9546 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9547" class="LineNr"> 9547 </span> 55/push-ebp +<span id="L9548" class="LineNr"> 9548 </span> 89/<- %ebp 4/r32/esp +<span id="L9549" class="LineNr"> 9549 </span> <span class="subxComment"># setup</span> +<span id="L9550" class="LineNr"> 9550 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9551" class="LineNr"> 9551 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9552" class="LineNr"> 9552 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9553" class="LineNr"> 9553 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9554" class="LineNr"> 9554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9555" class="LineNr"> 9555 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9556" class="LineNr"> 9556 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9557" class="LineNr"> 9557 </span> 68/push 0/imm32 +<span id="L9558" class="LineNr"> 9558 </span> 68/push 0/imm32 +<span id="L9559" class="LineNr"> 9559 </span> 89/<- %edx 4/r32/esp +<span id="L9560" class="LineNr"> 9560 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9561" class="LineNr"> 9561 </span> <span class="subxComment">#</span> +<span id="L9562" class="LineNr"> 9562 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9563" class="LineNr"> 9563 </span> (<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="L9564" class="LineNr"> 9564 </span> (<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="L9565" class="LineNr"> 9565 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- compare y, 0\n"</span>) +<span id="L9566" class="LineNr"> 9566 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9567" class="LineNr"> 9567 </span> <span class="subxComment"># convert</span> +<span id="L9568" class="LineNr"> 9568 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9569" class="LineNr"> 9569 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9570" class="LineNr"> 9570 </span> <span class="subxComment"># restore ed</span> +<span id="L9571" class="LineNr"> 9571 </span> 89/<- %edx 4/r32/esp +<span id="L9572" class="LineNr"> 9572 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9573" class="LineNr"> 9573 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9574" class="Folded"> 9574 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9580" class="LineNr"> 9580 </span> <span class="subxComment"># check output</span> +<span id="L9581" class="LineNr"> 9581 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9545'>test-compare-with-output</a>: output should be empty"</span>) +<span id="L9582" class="LineNr"> 9582 </span> (<a href='109stream-equal.subx.html#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#L9545'>test-compare-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9583" class="LineNr"> 9583 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9584" class="LineNr"> 9584 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9545'>test-compare-with-output</a>: exit status"</span>) +<span id="L9585" class="LineNr"> 9585 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9586" class="LineNr"> 9586 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9587" class="LineNr"> 9587 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9588" class="LineNr"> 9588 </span> 5d/pop-to-ebp +<span id="L9589" class="LineNr"> 9589 </span> c3/return +<span id="L9590" class="LineNr"> 9590 </span> +<span id="L9591" class="LineNr"> 9591 </span><span class="subxTest">test-compare-invalid-value-to-address</span>: +<span id="L9592" class="LineNr"> 9592 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9593" class="LineNr"> 9593 </span> 55/push-ebp +<span id="L9594" class="LineNr"> 9594 </span> 89/<- %ebp 4/r32/esp +<span id="L9595" class="LineNr"> 9595 </span> <span class="subxComment"># setup</span> +<span id="L9596" class="LineNr"> 9596 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9597" class="LineNr"> 9597 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9598" class="LineNr"> 9598 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9599" class="LineNr"> 9599 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9600" class="LineNr"> 9600 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9601" class="LineNr"> 9601 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9602" class="LineNr"> 9602 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9603" class="LineNr"> 9603 </span> 68/push 0/imm32 +<span id="L9604" class="LineNr"> 9604 </span> 68/push 0/imm32 +<span id="L9605" class="LineNr"> 9605 </span> 89/<- %edx 4/r32/esp +<span id="L9606" class="LineNr"> 9606 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9607" class="LineNr"> 9607 </span> <span class="subxComment">#</span> +<span id="L9608" class="LineNr"> 9608 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9609" class="LineNr"> 9609 </span> (<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="L9610" class="LineNr"> 9610 </span> (<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="L9611" class="LineNr"> 9611 </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="L9612" class="LineNr"> 9612 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9613" class="LineNr"> 9613 </span> <span class="subxComment"># convert</span> +<span id="L9614" class="LineNr"> 9614 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9615" class="LineNr"> 9615 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9616" class="LineNr"> 9616 </span> <span class="subxComment"># restore ed</span> +<span id="L9617" class="LineNr"> 9617 </span> 89/<- %edx 4/r32/esp +<span id="L9618" class="LineNr"> 9618 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9619" class="LineNr"> 9619 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9620" class="Folded"> 9620 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9626" class="LineNr"> 9626 </span> <span class="subxComment"># check output</span> +<span id="L9627" class="LineNr"> 9627 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9591'>test-compare-invalid-value-to-address</a>: output should be empty"</span>) +<span id="L9628" class="LineNr"> 9628 </span> (<a href='109stream-equal.subx.html#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#L9591'>test-compare-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9629" class="LineNr"> 9629 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9630" class="LineNr"> 9630 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9591'>test-compare-invalid-value-to-address</a>: exit status"</span>) +<span id="L9631" class="LineNr"> 9631 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9632" class="LineNr"> 9632 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9633" class="LineNr"> 9633 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9634" class="LineNr"> 9634 </span> 5d/pop-to-ebp +<span id="L9635" class="LineNr"> 9635 </span> c3/return +<span id="L9636" class="LineNr"> 9636 </span> +<span id="L9637" class="LineNr"> 9637 </span><span class="subxTest">test-compare-address</span>: +<span id="L9638" class="LineNr"> 9638 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9639" class="LineNr"> 9639 </span> 55/push-ebp +<span id="L9640" class="LineNr"> 9640 </span> 89/<- %ebp 4/r32/esp +<span id="L9641" class="LineNr"> 9641 </span> <span class="subxComment"># setup</span> +<span id="L9642" class="LineNr"> 9642 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9643" class="LineNr"> 9643 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9644" class="LineNr"> 9644 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9645" class="LineNr"> 9645 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9646" class="LineNr"> 9646 </span> <span class="subxComment">#</span> +<span id="L9647" class="LineNr"> 9647 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9648" class="LineNr"> 9648 </span> (<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="L9649" class="LineNr"> 9649 </span> (<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="L9650" class="LineNr"> 9650 </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="L9651" class="LineNr"> 9651 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9652" class="LineNr"> 9652 </span> <span class="subxComment"># convert</span> +<span id="L9653" class="LineNr"> 9653 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L9654" class="LineNr"> 9654 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9655" class="LineNr"> 9655 </span> <span class="subxComment"># no errors</span> +<span id="L9656" class="LineNr"> 9656 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9657" class="LineNr"> 9657 </span> 5d/pop-to-ebp +<span id="L9658" class="LineNr"> 9658 </span> c3/return +<span id="L9659" class="LineNr"> 9659 </span> +<span id="L9660" class="LineNr"> 9660 </span><span class="subxTest">test-compare-deref-address</span>: +<span id="L9661" class="LineNr"> 9661 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9662" class="LineNr"> 9662 </span> 55/push-ebp +<span id="L9663" class="LineNr"> 9663 </span> 89/<- %ebp 4/r32/esp +<span id="L9664" class="LineNr"> 9664 </span> <span class="subxComment"># setup</span> +<span id="L9665" class="LineNr"> 9665 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9666" class="LineNr"> 9666 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9667" class="LineNr"> 9667 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9668" class="LineNr"> 9668 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9669" class="LineNr"> 9669 </span> <span class="subxComment">#</span> +<span id="L9670" class="LineNr"> 9670 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9671" class="LineNr"> 9671 </span> (<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="L9672" class="LineNr"> 9672 </span> (<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="L9673" class="LineNr"> 9673 </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="L9674" class="LineNr"> 9674 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9675" class="LineNr"> 9675 </span> <span class="subxComment"># convert</span> +<span id="L9676" class="LineNr"> 9676 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L9677" class="LineNr"> 9677 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9678" class="LineNr"> 9678 </span> <span class="subxComment"># no errors</span> +<span id="L9679" class="LineNr"> 9679 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9680" class="LineNr"> 9680 </span> 5d/pop-to-ebp +<span id="L9681" class="LineNr"> 9681 </span> c3/return +<span id="L9682" class="LineNr"> 9682 </span> +<span id="L9683" class="LineNr"> 9683 </span><span class="subxTest">test-compare-two-vars-in-memory</span>: +<span id="L9684" class="LineNr"> 9684 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9685" class="LineNr"> 9685 </span> 55/push-ebp +<span id="L9686" class="LineNr"> 9686 </span> 89/<- %ebp 4/r32/esp +<span id="L9687" class="LineNr"> 9687 </span> <span class="subxComment"># setup</span> +<span id="L9688" class="LineNr"> 9688 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9689" class="LineNr"> 9689 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9690" class="LineNr"> 9690 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9691" class="LineNr"> 9691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9692" class="LineNr"> 9692 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9693" class="LineNr"> 9693 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9694" class="LineNr"> 9694 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9695" class="LineNr"> 9695 </span> 68/push 0/imm32 +<span id="L9696" class="LineNr"> 9696 </span> 68/push 0/imm32 +<span id="L9697" class="LineNr"> 9697 </span> 89/<- %edx 4/r32/esp +<span id="L9698" class="LineNr"> 9698 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9699" class="LineNr"> 9699 </span> <span class="subxComment">#</span> +<span id="L9700" class="LineNr"> 9700 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9701" class="LineNr"> 9701 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) +<span id="L9702" class="LineNr"> 9702 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, x\n"</span>) +<span id="L9703" class="LineNr"> 9703 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9704" class="LineNr"> 9704 </span> <span class="subxComment"># convert</span> +<span id="L9705" class="LineNr"> 9705 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9706" class="LineNr"> 9706 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9707" class="LineNr"> 9707 </span> <span class="subxComment"># restore ed</span> +<span id="L9708" class="LineNr"> 9708 </span> 89/<- %edx 4/r32/esp +<span id="L9709" class="LineNr"> 9709 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9710" class="LineNr"> 9710 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9711" class="Folded"> 9711 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9717" class="LineNr"> 9717 </span> <span class="subxComment"># check output</span> +<span id="L9718" class="LineNr"> 9718 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9683'>test-compare-two-vars-in-memory</a>: output should be empty"</span>) +<span id="L9719" class="LineNr"> 9719 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: both inouts are in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L9683'>test-compare-two-vars-in-memory</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9720" class="LineNr"> 9720 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9721" class="LineNr"> 9721 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9683'>test-compare-two-vars-in-memory</a>: exit status"</span>) +<span id="L9722" class="LineNr"> 9722 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9723" class="LineNr"> 9723 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9724" class="LineNr"> 9724 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9725" class="LineNr"> 9725 </span> 5d/pop-to-ebp +<span id="L9726" class="LineNr"> 9726 </span> c3/return +<span id="L9727" class="LineNr"> 9727 </span> +<span id="L9728" class="LineNr"> 9728 </span><span class="subxTest">test-compare-non-scalar</span>: +<span id="L9729" class="LineNr"> 9729 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9730" class="LineNr"> 9730 </span> 55/push-ebp +<span id="L9731" class="LineNr"> 9731 </span> 89/<- %ebp 4/r32/esp +<span id="L9732" class="LineNr"> 9732 </span> <span class="subxComment"># setup</span> +<span id="L9733" class="LineNr"> 9733 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9734" class="LineNr"> 9734 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9735" class="LineNr"> 9735 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9736" class="LineNr"> 9736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9737" class="LineNr"> 9737 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9738" class="LineNr"> 9738 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9739" class="LineNr"> 9739 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9740" class="LineNr"> 9740 </span> 68/push 0/imm32 <span id="L9741" class="LineNr"> 9741 </span> 68/push 0/imm32 -<span id="L9742" class="LineNr"> 9742 </span> 68/push 0/imm32 -<span id="L9743" class="LineNr"> 9743 </span> 89/<- %edx 4/r32/esp -<span id="L9744" class="LineNr"> 9744 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9745" class="LineNr"> 9745 </span> <span class="subxComment">#</span> -<span id="L9746" class="LineNr"> 9746 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9747" class="LineNr"> 9747 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- address 0, 0\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">"}\n"</span>) -<span id="L9749" class="LineNr"> 9749 </span> <span class="subxComment"># convert</span> -<span id="L9750" class="LineNr"> 9750 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9751" class="LineNr"> 9751 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9752" class="LineNr"> 9752 </span> <span class="subxComment"># restore ed</span> -<span id="L9753" class="LineNr"> 9753 </span> 89/<- %edx 4/r32/esp -<span id="L9754" class="LineNr"> 9754 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9755" class="LineNr"> 9755 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9756" class="Folded"> 9756 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9762" class="LineNr"> 9762 </span> <span class="subxComment"># check output</span> -<span id="L9763" class="LineNr"> 9763 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9729'>test-address-with-multiple-inouts</a>: output should be empty"</span>) -<span id="L9764" class="LineNr"> 9764 </span> (<a href='109stream-equal.subx.html#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#L9729'>test-address-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9765" class="LineNr"> 9765 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9766" class="LineNr"> 9766 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9729'>test-address-with-multiple-inouts</a>: exit status"</span>) -<span id="L9767" class="LineNr"> 9767 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9768" class="LineNr"> 9768 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9769" class="LineNr"> 9769 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9770" class="LineNr"> 9770 </span> 5d/pop-to-ebp -<span id="L9771" class="LineNr"> 9771 </span> c3/return -<span id="L9772" class="LineNr"> 9772 </span> -<span id="L9773" class="LineNr"> 9773 </span><span class="subxTest">test-address-with-no-output</span>: -<span id="L9774" class="LineNr"> 9774 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9775" class="LineNr"> 9775 </span> 55/push-ebp -<span id="L9776" class="LineNr"> 9776 </span> 89/<- %ebp 4/r32/esp -<span id="L9777" class="LineNr"> 9777 </span> <span class="subxComment"># setup</span> -<span id="L9778" class="LineNr"> 9778 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9779" class="LineNr"> 9779 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9780" class="LineNr"> 9780 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9781" class="LineNr"> 9781 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9782" class="LineNr"> 9782 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9783" class="LineNr"> 9783 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9784" class="LineNr"> 9784 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9785" class="LineNr"> 9785 </span> 68/push 0/imm32 -<span id="L9786" class="LineNr"> 9786 </span> 68/push 0/imm32 -<span id="L9787" class="LineNr"> 9787 </span> 89/<- %edx 4/r32/esp -<span id="L9788" class="LineNr"> 9788 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9789" class="LineNr"> 9789 </span> <span class="subxComment">#</span> -<span id="L9790" class="LineNr"> 9790 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9791" class="LineNr"> 9791 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" address 0\n"</span>) -<span id="L9792" class="LineNr"> 9792 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9793" class="LineNr"> 9793 </span> <span class="subxComment"># convert</span> -<span id="L9794" class="LineNr"> 9794 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9795" class="LineNr"> 9795 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9796" class="LineNr"> 9796 </span> <span class="subxComment"># restore ed</span> -<span id="L9797" class="LineNr"> 9797 </span> 89/<- %edx 4/r32/esp -<span id="L9798" class="LineNr"> 9798 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9799" class="LineNr"> 9799 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9800" class="Folded"> 9800 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9806" class="LineNr"> 9806 </span> <span class="subxComment"># check output</span> -<span id="L9807" class="LineNr"> 9807 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9773'>test-address-with-no-output</a>: output should be empty"</span>) -<span id="L9808" class="LineNr"> 9808 </span> (<a href='109stream-equal.subx.html#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#L9773'>test-address-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9809" class="LineNr"> 9809 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9810" class="LineNr"> 9810 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9773'>test-address-with-no-output</a>: exit status"</span>) -<span id="L9811" class="LineNr"> 9811 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9812" class="LineNr"> 9812 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9813" class="LineNr"> 9813 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9814" class="LineNr"> 9814 </span> 5d/pop-to-ebp -<span id="L9815" class="LineNr"> 9815 </span> c3/return -<span id="L9816" class="LineNr"> 9816 </span> -<span id="L9817" class="LineNr"> 9817 </span><span class="subxTest">test-address-with-multiple-outputs</span>: -<span id="L9818" class="LineNr"> 9818 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9819" class="LineNr"> 9819 </span> 55/push-ebp -<span id="L9820" class="LineNr"> 9820 </span> 89/<- %ebp 4/r32/esp -<span id="L9821" class="LineNr"> 9821 </span> <span class="subxComment"># setup</span> -<span id="L9822" class="LineNr"> 9822 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9823" class="LineNr"> 9823 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9824" class="LineNr"> 9824 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9825" class="LineNr"> 9825 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9826" class="LineNr"> 9826 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9827" class="LineNr"> 9827 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9828" class="LineNr"> 9828 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9829" class="LineNr"> 9829 </span> 68/push 0/imm32 -<span id="L9830" class="LineNr"> 9830 </span> 68/push 0/imm32 -<span id="L9831" class="LineNr"> 9831 </span> 89/<- %edx 4/r32/esp -<span id="L9832" class="LineNr"> 9832 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9833" class="LineNr"> 9833 </span> <span class="subxComment">#</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">"fn foo {\n"</span>) -<span id="L9835" class="LineNr"> 9835 </span> (<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="L9836" class="LineNr"> 9836 </span> (<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="L9837" class="LineNr"> 9837 </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="L9838" class="LineNr"> 9838 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9839" class="LineNr"> 9839 </span> <span class="subxComment"># convert</span> -<span id="L9840" class="LineNr"> 9840 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9841" class="LineNr"> 9841 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9842" class="LineNr"> 9842 </span> <span class="subxComment"># restore ed</span> -<span id="L9843" class="LineNr"> 9843 </span> 89/<- %edx 4/r32/esp -<span id="L9844" class="LineNr"> 9844 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9845" class="LineNr"> 9845 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9846" class="Folded"> 9846 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9852" class="LineNr"> 9852 </span> <span class="subxComment"># check output</span> -<span id="L9853" class="LineNr"> 9853 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9817'>test-address-with-multiple-outputs</a>: output should be empty"</span>) -<span id="L9854" class="LineNr"> 9854 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L9817'>test-address-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9855" class="LineNr"> 9855 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9856" class="LineNr"> 9856 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9817'>test-address-with-multiple-outputs</a>: exit status"</span>) -<span id="L9857" class="LineNr"> 9857 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9858" class="LineNr"> 9858 </span> 81 0/subop/add %esp 8/imm32 -<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="subxComment"># silly but it works</span> -<span id="L9864" class="LineNr"> 9864 </span><span class="subxTest">test-address-of-deref</span>: +<span id="L9742" class="LineNr"> 9742 </span> 89/<- %edx 4/r32/esp +<span id="L9743" class="LineNr"> 9743 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9744" class="LineNr"> 9744 </span> <span class="subxComment">#</span> +<span id="L9745" class="LineNr"> 9745 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9746" class="LineNr"> 9746 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) +<span id="L9747" class="LineNr"> 9747 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\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">" compare y, x\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#L9728'>test-compare-non-scalar</a>: output should be empty"</span>) +<span id="L9765" class="LineNr"> 9765 </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="L9766" class="LineNr"> 9766 </span> (<a href='109stream-equal.subx.html#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#L9728'>test-compare-non-scalar</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9767" class="LineNr"> 9767 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9768" class="LineNr"> 9768 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9728'>test-compare-non-scalar</a>: exit status"</span>) +<span id="L9769" class="LineNr"> 9769 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9770" class="LineNr"> 9770 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9771" class="LineNr"> 9771 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9772" class="LineNr"> 9772 </span> 5d/pop-to-ebp +<span id="L9773" class="LineNr"> 9773 </span> c3/return +<span id="L9774" class="LineNr"> 9774 </span> +<span id="L9775" class="LineNr"> 9775 </span><span class="subxTest">test-compare-with-string-literal</span>: +<span id="L9776" class="LineNr"> 9776 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9777" class="LineNr"> 9777 </span> 55/push-ebp +<span id="L9778" class="LineNr"> 9778 </span> 89/<- %ebp 4/r32/esp +<span id="L9779" class="LineNr"> 9779 </span> <span class="subxComment"># setup</span> +<span id="L9780" class="LineNr"> 9780 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9781" class="LineNr"> 9781 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9782" class="LineNr"> 9782 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9783" class="LineNr"> 9783 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9784" class="LineNr"> 9784 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9785" class="LineNr"> 9785 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9786" class="LineNr"> 9786 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9787" class="LineNr"> 9787 </span> 68/push 0/imm32 +<span id="L9788" class="LineNr"> 9788 </span> 68/push 0/imm32 +<span id="L9789" class="LineNr"> 9789 </span> 89/<- %edx 4/r32/esp +<span id="L9790" class="LineNr"> 9790 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9791" class="LineNr"> 9791 </span> <span class="subxComment">#</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">"fn foo {\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 x/eax: (addr array byte) <- 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">" compare x, \"</span>abc\<span class="Constant">"\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#L9775'>test-compare-with-string-literal</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 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#L9775'>test-compare-with-string-literal</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#L9775'>test-compare-with-string-literal</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="subxTest">test-address-with-no-inout</span>: +<span id="L9821" class="LineNr"> 9821 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9822" class="LineNr"> 9822 </span> 55/push-ebp +<span id="L9823" class="LineNr"> 9823 </span> 89/<- %ebp 4/r32/esp +<span id="L9824" class="LineNr"> 9824 </span> <span class="subxComment"># setup</span> +<span id="L9825" class="LineNr"> 9825 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9826" class="LineNr"> 9826 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9827" class="LineNr"> 9827 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9828" class="LineNr"> 9828 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9829" class="LineNr"> 9829 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9830" class="LineNr"> 9830 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9831" class="LineNr"> 9831 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9832" class="LineNr"> 9832 </span> 68/push 0/imm32 +<span id="L9833" class="LineNr"> 9833 </span> 68/push 0/imm32 +<span id="L9834" class="LineNr"> 9834 </span> 89/<- %edx 4/r32/esp +<span id="L9835" class="LineNr"> 9835 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9836" class="LineNr"> 9836 </span> <span class="subxComment">#</span> +<span id="L9837" class="LineNr"> 9837 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9838" class="LineNr"> 9838 </span> (<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="L9839" class="LineNr"> 9839 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9840" class="LineNr"> 9840 </span> <span class="subxComment"># convert</span> +<span id="L9841" class="LineNr"> 9841 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9842" class="LineNr"> 9842 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9843" class="LineNr"> 9843 </span> <span class="subxComment"># restore ed</span> +<span id="L9844" class="LineNr"> 9844 </span> 89/<- %edx 4/r32/esp +<span id="L9845" class="LineNr"> 9845 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9846" class="LineNr"> 9846 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9847" class="Folded"> 9847 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9853" class="LineNr"> 9853 </span> <span class="subxComment"># check output</span> +<span id="L9854" class="LineNr"> 9854 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9820'>test-address-with-no-inout</a>: output should be empty"</span>) +<span id="L9855" class="LineNr"> 9855 </span> (<a href='109stream-equal.subx.html#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#L9820'>test-address-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9856" class="LineNr"> 9856 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9857" class="LineNr"> 9857 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9820'>test-address-with-no-inout</a>: exit status"</span>) +<span id="L9858" class="LineNr"> 9858 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9859" class="LineNr"> 9859 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9860" class="LineNr"> 9860 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9861" class="LineNr"> 9861 </span> 5d/pop-to-ebp +<span id="L9862" class="LineNr"> 9862 </span> c3/return +<span id="L9863" class="LineNr"> 9863 </span> +<span id="L9864" class="LineNr"> 9864 </span><span class="subxTest">test-address-with-multiple-inouts</span>: <span id="L9865" class="LineNr"> 9865 </span> <span class="subxS1Comment"># . prologue</span> <span id="L9866" class="LineNr"> 9866 </span> 55/push-ebp <span id="L9867" class="LineNr"> 9867 </span> 89/<- %ebp 4/r32/esp @@ -8987,123 +8987,118 @@ if ('onhashchange' in window) { <span id="L9870" class="LineNr"> 9870 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L9871" class="LineNr"> 9871 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L9872" class="LineNr"> 9872 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9873" class="LineNr"> 9873 </span> <span class="subxComment">#</span> -<span id="L9874" class="LineNr"> 9874 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9875" class="LineNr"> 9875 </span> (<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="L9876" class="LineNr"> 9876 </span> (<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="L9877" class="LineNr"> 9877 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9878" class="LineNr"> 9878 </span> <span class="subxComment"># convert</span> -<span id="L9879" class="LineNr"> 9879 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L9880" class="LineNr"> 9880 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9881" class="LineNr"> 9881 </span> <span class="subxComment"># no errors</span> -<span id="L9882" class="LineNr"> 9882 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9883" class="LineNr"> 9883 </span> 5d/pop-to-ebp -<span id="L9884" class="LineNr"> 9884 </span> c3/return -<span id="L9885" class="LineNr"> 9885 </span> -<span id="L9886" class="LineNr"> 9886 </span><span class="subxTest">test-address-to-non-register</span>: -<span id="L9887" class="LineNr"> 9887 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9888" class="LineNr"> 9888 </span> 55/push-ebp -<span id="L9889" class="LineNr"> 9889 </span> 89/<- %ebp 4/r32/esp -<span id="L9890" class="LineNr"> 9890 </span> <span class="subxComment"># setup</span> -<span id="L9891" class="LineNr"> 9891 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9892" class="LineNr"> 9892 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9893" class="LineNr"> 9893 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9894" class="LineNr"> 9894 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9895" class="LineNr"> 9895 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9896" class="LineNr"> 9896 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9897" class="LineNr"> 9897 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9898" class="LineNr"> 9898 </span> 68/push 0/imm32 -<span id="L9899" class="LineNr"> 9899 </span> 68/push 0/imm32 -<span id="L9900" class="LineNr"> 9900 </span> 89/<- %edx 4/r32/esp -<span id="L9901" class="LineNr"> 9901 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9902" class="LineNr"> 9902 </span> <span class="subxComment">#</span> -<span id="L9903" class="LineNr"> 9903 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9904" class="LineNr"> 9904 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) -<span id="L9905" class="LineNr"> 9905 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- address 0\n"</span>) -<span id="L9906" class="LineNr"> 9906 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9907" class="LineNr"> 9907 </span> <span class="subxComment"># convert</span> -<span id="L9908" class="LineNr"> 9908 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9909" class="LineNr"> 9909 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9910" class="LineNr"> 9910 </span> <span class="subxComment"># restore ed</span> -<span id="L9911" class="LineNr"> 9911 </span> 89/<- %edx 4/r32/esp -<span id="L9912" class="LineNr"> 9912 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9913" class="LineNr"> 9913 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9914" class="Folded"> 9914 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9920" class="LineNr"> 9920 </span> <span class="subxComment"># check output</span> -<span id="L9921" class="LineNr"> 9921 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9886'>test-address-to-non-register</a>: output should be empty"</span>) -<span id="L9922" class="LineNr"> 9922 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt address: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L9886'>test-address-to-non-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9923" class="LineNr"> 9923 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9924" class="LineNr"> 9924 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9886'>test-address-to-non-register</a>: exit status"</span>) -<span id="L9925" class="LineNr"> 9925 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9926" class="LineNr"> 9926 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9927" class="LineNr"> 9927 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9928" class="LineNr"> 9928 </span> 5d/pop-to-ebp -<span id="L9929" class="LineNr"> 9929 </span> c3/return -<span id="L9930" class="LineNr"> 9930 </span> -<span id="L9931" class="LineNr"> 9931 </span><span class="subxTest">test-address-with-wrong-type</span>: -<span id="L9932" class="LineNr"> 9932 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9933" class="LineNr"> 9933 </span> 55/push-ebp -<span id="L9934" class="LineNr"> 9934 </span> 89/<- %ebp 4/r32/esp -<span id="L9935" class="LineNr"> 9935 </span> <span class="subxComment"># setup</span> -<span id="L9936" class="LineNr"> 9936 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9937" class="LineNr"> 9937 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9938" class="LineNr"> 9938 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L9939" class="LineNr"> 9939 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9940" class="LineNr"> 9940 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L9941" class="LineNr"> 9941 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9942" class="LineNr"> 9942 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9943" class="LineNr"> 9943 </span> 68/push 0/imm32 -<span id="L9944" class="LineNr"> 9944 </span> 68/push 0/imm32 -<span id="L9945" class="LineNr"> 9945 </span> 89/<- %edx 4/r32/esp -<span id="L9946" class="LineNr"> 9946 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9947" class="LineNr"> 9947 </span> <span class="subxComment">#</span> -<span id="L9948" class="LineNr"> 9948 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9949" class="LineNr"> 9949 </span> (<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="L9950" class="LineNr"> 9950 </span> (<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="L9951" class="LineNr"> 9951 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9952" class="LineNr"> 9952 </span> <span class="subxComment"># convert</span> -<span id="L9953" class="LineNr"> 9953 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L9954" class="LineNr"> 9954 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9955" class="LineNr"> 9955 </span> <span class="subxComment"># restore ed</span> -<span id="L9956" class="LineNr"> 9956 </span> 89/<- %edx 4/r32/esp -<span id="L9957" class="LineNr"> 9957 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L9958" class="LineNr"> 9958 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L9959" class="Folded"> 9959 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9965" class="LineNr"> 9965 </span> <span class="subxComment"># check output</span> -<span id="L9966" class="LineNr"> 9966 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9931'>test-address-with-wrong-type</a>: output should be empty"</span>) -<span id="L9967" class="LineNr"> 9967 </span> (<a href='109stream-equal.subx.html#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#L9931'>test-address-with-wrong-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L9968" class="LineNr"> 9968 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9969" class="LineNr"> 9969 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9931'>test-address-with-wrong-type</a>: exit status"</span>) -<span id="L9970" class="LineNr"> 9970 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9971" class="LineNr"> 9971 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9972" class="LineNr"> 9972 </span> <span class="subxS1Comment"># . epilogue</span> -<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-array</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: (array 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 array 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="L9873" class="LineNr"> 9873 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9874" class="LineNr"> 9874 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9875" class="LineNr"> 9875 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9876" class="LineNr"> 9876 </span> 68/push 0/imm32 +<span id="L9877" class="LineNr"> 9877 </span> 68/push 0/imm32 +<span id="L9878" class="LineNr"> 9878 </span> 89/<- %edx 4/r32/esp +<span id="L9879" class="LineNr"> 9879 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9880" class="LineNr"> 9880 </span> <span class="subxComment">#</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">"fn foo {\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">" var x/eax: boolean <- address 0, 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#L9864'>test-address-with-multiple-inouts</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' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L9864'>test-address-with-multiple-inouts</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#L9864'>test-address-with-multiple-inouts</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-no-output</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">" address 0\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">"}\n"</span>) +<span id="L9928" class="LineNr"> 9928 </span> <span class="subxComment"># convert</span> +<span id="L9929" class="LineNr"> 9929 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9930" class="LineNr"> 9930 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9931" class="LineNr"> 9931 </span> <span class="subxComment"># restore ed</span> +<span id="L9932" class="LineNr"> 9932 </span> 89/<- %edx 4/r32/esp +<span id="L9933" class="LineNr"> 9933 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9934" class="LineNr"> 9934 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9935" class="Folded"> 9935 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9941" class="LineNr"> 9941 </span> <span class="subxComment"># check output</span> +<span id="L9942" class="LineNr"> 9942 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-no-output</a>: output should be empty"</span>) +<span id="L9943" class="LineNr"> 9943 </span> (<a href='109stream-equal.subx.html#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#L9908'>test-address-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9944" class="LineNr"> 9944 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9945" class="LineNr"> 9945 </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-no-output</a>: exit status"</span>) +<span id="L9946" class="LineNr"> 9946 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9947" class="LineNr"> 9947 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9948" class="LineNr"> 9948 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9949" class="LineNr"> 9949 </span> 5d/pop-to-ebp +<span id="L9950" class="LineNr"> 9950 </span> c3/return +<span id="L9951" class="LineNr"> 9951 </span> +<span id="L9952" class="LineNr"> 9952 </span><span class="subxTest">test-address-with-multiple-outputs</span>: +<span id="L9953" class="LineNr"> 9953 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9954" class="LineNr"> 9954 </span> 55/push-ebp +<span id="L9955" class="LineNr"> 9955 </span> 89/<- %ebp 4/r32/esp +<span id="L9956" class="LineNr"> 9956 </span> <span class="subxComment"># setup</span> +<span id="L9957" class="LineNr"> 9957 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9958" class="LineNr"> 9958 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9959" class="LineNr"> 9959 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9960" class="LineNr"> 9960 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9961" class="LineNr"> 9961 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9962" class="LineNr"> 9962 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9963" class="LineNr"> 9963 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9964" class="LineNr"> 9964 </span> 68/push 0/imm32 +<span id="L9965" class="LineNr"> 9965 </span> 68/push 0/imm32 +<span id="L9966" class="LineNr"> 9966 </span> 89/<- %edx 4/r32/esp +<span id="L9967" class="LineNr"> 9967 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9968" class="LineNr"> 9968 </span> <span class="subxComment">#</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">"fn foo {\n"</span>) +<span id="L9970" class="LineNr"> 9970 </span> (<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="L9971" class="LineNr"> 9971 </span> (<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="L9972" class="LineNr"> 9972 </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="L9973" class="LineNr"> 9973 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9974" class="LineNr"> 9974 </span> <span class="subxComment"># convert</span> +<span id="L9975" class="LineNr"> 9975 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9976" class="LineNr"> 9976 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9977" class="LineNr"> 9977 </span> <span class="subxComment"># restore ed</span> +<span id="L9978" class="LineNr"> 9978 </span> 89/<- %edx 4/r32/esp +<span id="L9979" class="LineNr"> 9979 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9980" class="LineNr"> 9980 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9981" class="Folded"> 9981 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9987" class="LineNr"> 9987 </span> <span class="subxComment"># check output</span> +<span id="L9988" class="LineNr"> 9988 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9952'>test-address-with-multiple-outputs</a>: output should be empty"</span>) +<span id="L9989" class="LineNr"> 9989 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L9952'>test-address-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9990" class="LineNr"> 9990 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9991" class="LineNr"> 9991 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9952'>test-address-with-multiple-outputs</a>: exit status"</span>) +<span id="L9992" class="LineNr"> 9992 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9993" class="LineNr"> 9993 </span> 81 0/subop/add %esp 8/imm32 <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-address-with-right-type-for-stream</span>: +<span id="L9995" class="LineNr"> 9995 </span> 5d/pop-to-ebp +<span id="L9996" class="LineNr"> 9996 </span> c3/return +<span id="L9997" class="LineNr"> 9997 </span> +<span id="L9998" class="LineNr"> 9998 </span><span class="subxComment"># silly but it works</span> +<span id="L9999" class="LineNr"> 9999 </span><span class="subxTest">test-address-of-deref</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 @@ -9114,1008 +9109,1013 @@ if ('onhashchange' in window) { <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> <span class="subxComment">#</span> <span id="L10009" class="LineNr">10009 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10010" class="LineNr">10010 </span> (<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="L10011" class="LineNr">10011 </span> (<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="L10010" class="LineNr">10010 </span> (<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="L10011" class="LineNr">10011 </span> (<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="L10012" class="LineNr">10012 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L10013" class="LineNr">10013 </span> <span class="subxComment"># convert</span> <span id="L10014" class="LineNr">10014 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L10015" class="LineNr">10015 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L10016" class="LineNr">10016 </span> <span class="subxComment"># no errors</span> <span id="L10017" class="LineNr">10017 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10018" class="LineNr">10018 </span> 89/<- %esp 5/r32/ebp -<span id="L10019" class="LineNr">10019 </span> 5d/pop-to-ebp -<span id="L10020" class="LineNr">10020 </span> c3/return -<span id="L10021" class="LineNr">10021 </span> -<span id="L10022" class="LineNr">10022 </span><span class="subxTest">test-get-with-wrong-field</span>: -<span id="L10023" class="LineNr">10023 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10024" class="LineNr">10024 </span> 55/push-ebp -<span id="L10025" class="LineNr">10025 </span> 89/<- %ebp 4/r32/esp -<span id="L10026" class="LineNr">10026 </span> <span class="subxComment"># setup</span> -<span id="L10027" class="LineNr">10027 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10028" class="LineNr">10028 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10029" class="LineNr">10029 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10030" class="LineNr">10030 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10031" class="LineNr">10031 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10032" class="LineNr">10032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10033" class="LineNr">10033 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10018" class="LineNr">10018 </span> 5d/pop-to-ebp +<span id="L10019" class="LineNr">10019 </span> c3/return +<span id="L10020" class="LineNr">10020 </span> +<span id="L10021" class="LineNr">10021 </span><span class="subxTest">test-address-to-non-register</span>: +<span id="L10022" class="LineNr">10022 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10023" class="LineNr">10023 </span> 55/push-ebp +<span id="L10024" class="LineNr">10024 </span> 89/<- %ebp 4/r32/esp +<span id="L10025" class="LineNr">10025 </span> <span class="subxComment"># setup</span> +<span id="L10026" class="LineNr">10026 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10027" class="LineNr">10027 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10028" class="LineNr">10028 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10029" class="LineNr">10029 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10030" class="LineNr">10030 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10031" class="LineNr">10031 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10032" class="LineNr">10032 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10033" class="LineNr">10033 </span> 68/push 0/imm32 <span id="L10034" class="LineNr">10034 </span> 68/push 0/imm32 -<span id="L10035" class="LineNr">10035 </span> 68/push 0/imm32 -<span id="L10036" class="LineNr">10036 </span> 89/<- %edx 4/r32/esp -<span id="L10037" class="LineNr">10037 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10038" class="LineNr">10038 </span> <span class="subxComment">#</span> -<span id="L10039" class="LineNr">10039 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10040" class="LineNr">10040 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10041" class="LineNr">10041 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L10042" class="LineNr">10042 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10043" class="LineNr">10043 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10044" class="LineNr">10044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10045" class="LineNr">10045 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10046" class="LineNr">10046 </span> <span class="subxComment"># convert</span> -<span id="L10047" class="LineNr">10047 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10048" class="LineNr">10048 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10049" class="LineNr">10049 </span> <span class="subxComment"># restore ed</span> -<span id="L10050" class="LineNr">10050 </span> 89/<- %edx 4/r32/esp -<span id="L10051" class="LineNr">10051 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10052" class="LineNr">10052 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10053" class="Folded">10053 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10059" class="LineNr">10059 </span> <span class="subxComment"># check output</span> -<span id="L10060" class="LineNr">10060 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10022'>test-get-with-wrong-field</a>: output should be empty"</span>) -<span id="L10061" class="LineNr">10061 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: type 't' has no member called 'y'"</span> <span class="Constant">"F - <a href='mu.subx.html#L10022'>test-get-with-wrong-field</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10062" class="LineNr">10062 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10063" class="LineNr">10063 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10022'>test-get-with-wrong-field</a>: exit status"</span>) -<span id="L10064" class="LineNr">10064 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10065" class="LineNr">10065 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10066" class="LineNr">10066 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10067" class="LineNr">10067 </span> 5d/pop-to-ebp -<span id="L10068" class="LineNr">10068 </span> c3/return -<span id="L10069" class="LineNr">10069 </span> -<span id="L10070" class="LineNr">10070 </span><span class="subxTest">test-get-with-wrong-base-type</span>: -<span id="L10071" class="LineNr">10071 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10072" class="LineNr">10072 </span> 55/push-ebp -<span id="L10073" class="LineNr">10073 </span> 89/<- %ebp 4/r32/esp -<span id="L10074" class="LineNr">10074 </span> <span class="subxComment"># setup</span> -<span id="L10075" class="LineNr">10075 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10076" class="LineNr">10076 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10077" class="LineNr">10077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10078" class="LineNr">10078 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10079" class="LineNr">10079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10080" class="LineNr">10080 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10081" class="LineNr">10081 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10082" class="LineNr">10082 </span> 68/push 0/imm32 -<span id="L10083" class="LineNr">10083 </span> 68/push 0/imm32 -<span id="L10084" class="LineNr">10084 </span> 89/<- %edx 4/r32/esp -<span id="L10085" class="LineNr">10085 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10086" class="LineNr">10086 </span> <span class="subxComment">#</span> -<span id="L10087" class="LineNr">10087 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10088" class="LineNr">10088 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L10089" class="LineNr">10089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L10090" class="LineNr">10090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10091" class="LineNr">10091 </span> <span class="subxComment"># convert</span> -<span id="L10092" class="LineNr">10092 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10093" class="LineNr">10093 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10094" class="LineNr">10094 </span> <span class="subxComment"># restore ed</span> -<span id="L10095" class="LineNr">10095 </span> 89/<- %edx 4/r32/esp -<span id="L10096" class="LineNr">10096 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10097" class="LineNr">10097 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10098" class="Folded">10098 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10104" class="LineNr">10104 </span> <span class="subxComment"># check output</span> -<span id="L10105" class="LineNr">10105 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10070'>test-get-with-wrong-base-type</a>: output should be empty"</span>) -<span id="L10106" class="LineNr">10106 </span> (<a href='109stream-equal.subx.html#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#L10070'>test-get-with-wrong-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10107" class="LineNr">10107 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10108" class="LineNr">10108 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10070'>test-get-with-wrong-base-type</a>: exit status"</span>) -<span id="L10109" class="LineNr">10109 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10110" class="LineNr">10110 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10111" class="LineNr">10111 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10112" class="LineNr">10112 </span> 5d/pop-to-ebp -<span id="L10113" class="LineNr">10113 </span> c3/return -<span id="L10114" class="LineNr">10114 </span> -<span id="L10115" class="LineNr">10115 </span><span class="subxTest">test-get-with-wrong-base-type-2</span>: -<span id="L10116" class="LineNr">10116 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10117" class="LineNr">10117 </span> 55/push-ebp -<span id="L10118" class="LineNr">10118 </span> 89/<- %ebp 4/r32/esp -<span id="L10119" class="LineNr">10119 </span> <span class="subxComment"># setup</span> -<span id="L10120" class="LineNr">10120 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10121" class="LineNr">10121 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10122" class="LineNr">10122 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10123" class="LineNr">10123 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10124" class="LineNr">10124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10125" class="LineNr">10125 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10126" class="LineNr">10126 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10127" class="LineNr">10127 </span> 68/push 0/imm32 -<span id="L10128" class="LineNr">10128 </span> 68/push 0/imm32 -<span id="L10129" class="LineNr">10129 </span> 89/<- %edx 4/r32/esp -<span id="L10130" class="LineNr">10130 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10131" class="LineNr">10131 </span> <span class="subxComment">#</span> -<span id="L10132" class="LineNr">10132 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10133" class="LineNr">10133 </span> (<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="L10134" class="LineNr">10134 </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="L10135" class="LineNr">10135 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10136" class="LineNr">10136 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10137" class="LineNr">10137 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10138" class="LineNr">10138 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10139" class="LineNr">10139 </span> <span class="subxComment"># convert</span> -<span id="L10140" class="LineNr">10140 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10141" class="LineNr">10141 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10142" class="LineNr">10142 </span> <span class="subxComment"># restore ed</span> -<span id="L10143" class="LineNr">10143 </span> 89/<- %edx 4/r32/esp -<span id="L10144" class="LineNr">10144 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10145" class="LineNr">10145 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10146" class="Folded">10146 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10152" class="LineNr">10152 </span> <span class="subxComment"># check output</span> -<span id="L10153" class="LineNr">10153 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10115'>test-get-with-wrong-base-type-2</a>: output should be empty"</span>) -<span id="L10154" class="LineNr">10154 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: var 'a' is an 'addr' type, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L10115'>test-get-with-wrong-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10155" class="LineNr">10155 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10156" class="LineNr">10156 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10115'>test-get-with-wrong-base-type-2</a>: exit status"</span>) -<span id="L10157" class="LineNr">10157 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10158" class="LineNr">10158 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10159" class="LineNr">10159 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10160" class="LineNr">10160 </span> 5d/pop-to-ebp -<span id="L10161" class="LineNr">10161 </span> c3/return -<span id="L10162" class="LineNr">10162 </span> -<span id="L10163" class="LineNr">10163 </span><span class="subxTest">test-get-with-wrong-base-type-3</span>: -<span id="L10164" class="LineNr">10164 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10165" class="LineNr">10165 </span> 55/push-ebp -<span id="L10166" class="LineNr">10166 </span> 89/<- %ebp 4/r32/esp -<span id="L10167" class="LineNr">10167 </span> <span class="subxComment"># setup</span> -<span id="L10168" class="LineNr">10168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10169" class="LineNr">10169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10170" class="LineNr">10170 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10171" class="LineNr">10171 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10172" class="LineNr">10172 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10173" class="LineNr">10173 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10174" class="LineNr">10174 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10175" class="LineNr">10175 </span> 68/push 0/imm32 -<span id="L10176" class="LineNr">10176 </span> 68/push 0/imm32 -<span id="L10177" class="LineNr">10177 </span> 89/<- %edx 4/r32/esp -<span id="L10178" class="LineNr">10178 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10179" class="LineNr">10179 </span> <span class="subxComment">#</span> -<span id="L10180" class="LineNr">10180 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10181" class="LineNr">10181 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) -<span id="L10182" class="LineNr">10182 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\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">"}\n"</span>) -<span id="L10184" class="LineNr">10184 </span> <span class="subxComment"># convert</span> -<span id="L10185" class="LineNr">10185 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10186" class="LineNr">10186 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10187" class="LineNr">10187 </span> <span class="subxComment"># restore ed</span> -<span id="L10188" class="LineNr">10188 </span> 89/<- %edx 4/r32/esp -<span id="L10189" class="LineNr">10189 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10190" class="LineNr">10190 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10191" class="Folded">10191 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10197" class="LineNr">10197 </span> <span class="subxComment"># check output</span> -<span id="L10198" class="LineNr">10198 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10163'>test-get-with-wrong-base-type-3</a>: output should be empty"</span>) -<span id="L10199" class="LineNr">10199 </span> (<a href='109stream-equal.subx.html#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#L10163'>test-get-with-wrong-base-type-3</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10200" class="LineNr">10200 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10201" class="LineNr">10201 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10163'>test-get-with-wrong-base-type-3</a>: exit status"</span>) -<span id="L10202" class="LineNr">10202 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10203" class="LineNr">10203 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10204" class="LineNr">10204 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10205" class="LineNr">10205 </span> 5d/pop-to-ebp -<span id="L10206" class="LineNr">10206 </span> c3/return -<span id="L10207" class="LineNr">10207 </span> -<span id="L10208" class="LineNr">10208 </span><span class="subxTest">test-get-with-wrong-offset-type</span>: -<span id="L10209" class="LineNr">10209 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10210" class="LineNr">10210 </span> 55/push-ebp -<span id="L10211" class="LineNr">10211 </span> 89/<- %ebp 4/r32/esp -<span id="L10212" class="LineNr">10212 </span> <span class="subxComment"># setup</span> -<span id="L10213" class="LineNr">10213 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10214" class="LineNr">10214 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10215" class="LineNr">10215 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10216" class="LineNr">10216 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10217" class="LineNr">10217 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10218" class="LineNr">10218 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10219" class="LineNr">10219 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10220" class="LineNr">10220 </span> 68/push 0/imm32 -<span id="L10221" class="LineNr">10221 </span> 68/push 0/imm32 -<span id="L10222" class="LineNr">10222 </span> 89/<- %edx 4/r32/esp -<span id="L10223" class="LineNr">10223 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10224" class="LineNr">10224 </span> <span class="subxComment">#</span> -<span id="L10225" class="LineNr">10225 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10226" class="LineNr">10226 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10227" class="LineNr">10227 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: int\n"</span>) -<span id="L10228" class="LineNr">10228 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, b\n"</span>) -<span id="L10229" class="LineNr">10229 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10230" class="LineNr">10230 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10231" class="LineNr">10231 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10232" class="LineNr">10232 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10233" class="LineNr">10233 </span> <span class="subxComment"># convert</span> -<span id="L10234" class="LineNr">10234 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10235" class="LineNr">10235 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10236" class="LineNr">10236 </span> <span class="subxComment"># restore ed</span> -<span id="L10237" class="LineNr">10237 </span> 89/<- %edx 4/r32/esp -<span id="L10238" class="LineNr">10238 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10239" class="LineNr">10239 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10240" class="Folded">10240 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10246" class="LineNr">10246 </span> <span class="subxComment"># check output</span> -<span id="L10247" class="LineNr">10247 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10208'>test-get-with-wrong-offset-type</a>: output should be empty"</span>) -<span id="L10248" class="LineNr">10248 </span> (<a href='109stream-equal.subx.html#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#L10208'>test-get-with-wrong-offset-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10249" class="LineNr">10249 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10250" class="LineNr">10250 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10208'>test-get-with-wrong-offset-type</a>: exit status"</span>) -<span id="L10251" class="LineNr">10251 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10252" class="LineNr">10252 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10253" class="LineNr">10253 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10254" class="LineNr">10254 </span> 5d/pop-to-ebp -<span id="L10255" class="LineNr">10255 </span> c3/return -<span id="L10256" class="LineNr">10256 </span> -<span id="L10257" class="LineNr">10257 </span><span class="subxTest">test-get-with-wrong-output-type</span>: -<span id="L10258" class="LineNr">10258 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10259" class="LineNr">10259 </span> 55/push-ebp -<span id="L10260" class="LineNr">10260 </span> 89/<- %ebp 4/r32/esp -<span id="L10261" class="LineNr">10261 </span> <span class="subxComment"># setup</span> -<span id="L10262" class="LineNr">10262 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10263" class="LineNr">10263 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10264" class="LineNr">10264 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10265" class="LineNr">10265 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10266" class="LineNr">10266 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10267" class="LineNr">10267 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10268" class="LineNr">10268 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10269" class="LineNr">10269 </span> 68/push 0/imm32 -<span id="L10270" class="LineNr">10270 </span> 68/push 0/imm32 -<span id="L10271" class="LineNr">10271 </span> 89/<- %edx 4/r32/esp -<span id="L10272" class="LineNr">10272 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10273" class="LineNr">10273 </span> <span class="subxComment">#</span> -<span id="L10274" class="LineNr">10274 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10275" class="LineNr">10275 </span> (<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="L10276" class="LineNr">10276 </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="L10277" class="LineNr">10277 </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="L10278" class="LineNr">10278 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10279" class="LineNr">10279 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10280" class="LineNr">10280 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10281" class="LineNr">10281 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10282" class="LineNr">10282 </span> <span class="subxComment"># convert</span> -<span id="L10283" class="LineNr">10283 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10284" class="LineNr">10284 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10285" class="LineNr">10285 </span> <span class="subxComment"># restore ed</span> -<span id="L10286" class="LineNr">10286 </span> 89/<- %edx 4/r32/esp -<span id="L10287" class="LineNr">10287 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10288" class="LineNr">10288 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10289" class="Folded">10289 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10295" class="LineNr">10295 </span> <span class="subxComment"># check output</span> -<span id="L10296" class="LineNr">10296 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10257'>test-get-with-wrong-output-type</a>: output should be empty"</span>) -<span id="L10297" class="LineNr">10297 </span> (<a href='109stream-equal.subx.html#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#L10257'>test-get-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10298" class="LineNr">10298 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10299" class="LineNr">10299 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10257'>test-get-with-wrong-output-type</a>: exit status"</span>) -<span id="L10300" class="LineNr">10300 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10301" class="LineNr">10301 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10302" class="LineNr">10302 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10303" class="LineNr">10303 </span> 5d/pop-to-ebp -<span id="L10304" class="LineNr">10304 </span> c3/return -<span id="L10305" class="LineNr">10305 </span> -<span id="L10306" class="LineNr">10306 </span><span class="subxTest">test-get-with-wrong-output-type-2</span>: -<span id="L10307" class="LineNr">10307 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10308" class="LineNr">10308 </span> 55/push-ebp -<span id="L10309" class="LineNr">10309 </span> 89/<- %ebp 4/r32/esp -<span id="L10310" class="LineNr">10310 </span> <span class="subxComment"># setup</span> -<span id="L10311" class="LineNr">10311 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10312" class="LineNr">10312 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10313" class="LineNr">10313 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10314" class="LineNr">10314 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10315" class="LineNr">10315 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10316" class="LineNr">10316 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10317" class="LineNr">10317 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10318" class="LineNr">10318 </span> 68/push 0/imm32 -<span id="L10319" class="LineNr">10319 </span> 68/push 0/imm32 -<span id="L10320" class="LineNr">10320 </span> 89/<- %edx 4/r32/esp -<span id="L10321" class="LineNr">10321 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10322" class="LineNr">10322 </span> <span class="subxComment">#</span> -<span id="L10323" class="LineNr">10323 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10324" class="LineNr">10324 </span> (<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="L10325" class="LineNr">10325 </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="L10326" class="LineNr">10326 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10327" class="LineNr">10327 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10328" class="LineNr">10328 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10329" class="LineNr">10329 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10330" class="LineNr">10330 </span> <span class="subxComment"># convert</span> -<span id="L10331" class="LineNr">10331 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10332" class="LineNr">10332 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10333" class="LineNr">10333 </span> <span class="subxComment"># restore ed</span> -<span id="L10334" class="LineNr">10334 </span> 89/<- %edx 4/r32/esp -<span id="L10335" class="LineNr">10335 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10336" class="LineNr">10336 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10337" class="Folded">10337 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10343" class="LineNr">10343 </span> <span class="subxComment"># check output</span> -<span id="L10344" class="LineNr">10344 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10306'>test-get-with-wrong-output-type-2</a>: output should be empty"</span>) -<span id="L10345" class="LineNr">10345 </span> (<a href='109stream-equal.subx.html#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#L10306'>test-get-with-wrong-output-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10346" class="LineNr">10346 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10347" class="LineNr">10347 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10306'>test-get-with-wrong-output-type-2</a>: exit status"</span>) -<span id="L10348" class="LineNr">10348 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10349" class="LineNr">10349 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10350" class="LineNr">10350 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10351" class="LineNr">10351 </span> 5d/pop-to-ebp -<span id="L10352" class="LineNr">10352 </span> c3/return -<span id="L10353" class="LineNr">10353 </span> -<span id="L10354" class="LineNr">10354 </span><span class="subxTest">test-get-with-wrong-output-type-3</span>: -<span id="L10355" class="LineNr">10355 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10356" class="LineNr">10356 </span> 55/push-ebp -<span id="L10357" class="LineNr">10357 </span> 89/<- %ebp 4/r32/esp -<span id="L10358" class="LineNr">10358 </span> <span class="subxComment"># setup</span> -<span id="L10359" class="LineNr">10359 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10360" class="LineNr">10360 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10361" class="LineNr">10361 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10362" class="LineNr">10362 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10363" class="LineNr">10363 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10364" class="LineNr">10364 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10365" class="LineNr">10365 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10366" class="LineNr">10366 </span> 68/push 0/imm32 -<span id="L10367" class="LineNr">10367 </span> 68/push 0/imm32 -<span id="L10368" class="LineNr">10368 </span> 89/<- %edx 4/r32/esp -<span id="L10369" class="LineNr">10369 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10370" class="LineNr">10370 </span> <span class="subxComment">#</span> -<span id="L10371" class="LineNr">10371 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10372" class="LineNr">10372 </span> (<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="L10373" class="LineNr">10373 </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="L10374" class="LineNr">10374 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10375" class="LineNr">10375 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10376" class="LineNr">10376 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10377" class="LineNr">10377 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10378" class="LineNr">10378 </span> <span class="subxComment"># convert</span> -<span id="L10379" class="LineNr">10379 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10380" class="LineNr">10380 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10381" class="LineNr">10381 </span> <span class="subxComment"># restore ed</span> -<span id="L10382" class="LineNr">10382 </span> 89/<- %edx 4/r32/esp -<span id="L10383" class="LineNr">10383 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10384" class="LineNr">10384 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10385" class="Folded">10385 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10391" class="LineNr">10391 </span> <span class="subxComment"># check output</span> -<span id="L10392" class="LineNr">10392 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10354'>test-get-with-wrong-output-type-3</a>: output should be empty"</span>) -<span id="L10393" class="LineNr">10393 </span> (<a href='109stream-equal.subx.html#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#L10354'>test-get-with-wrong-output-type-3</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10394" class="LineNr">10394 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10395" class="LineNr">10395 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10354'>test-get-with-wrong-output-type-3</a>: exit status"</span>) -<span id="L10396" class="LineNr">10396 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10397" class="LineNr">10397 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10398" class="LineNr">10398 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10399" class="LineNr">10399 </span> 5d/pop-to-ebp -<span id="L10400" class="LineNr">10400 </span> c3/return -<span id="L10401" class="LineNr">10401 </span> -<span id="L10402" class="LineNr">10402 </span><span class="subxTest">test-get-with-wrong-output-type-4</span>: -<span id="L10403" class="LineNr">10403 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10404" class="LineNr">10404 </span> 55/push-ebp -<span id="L10405" class="LineNr">10405 </span> 89/<- %ebp 4/r32/esp -<span id="L10406" class="LineNr">10406 </span> <span class="subxComment"># setup</span> -<span id="L10407" class="LineNr">10407 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10408" class="LineNr">10408 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10409" class="LineNr">10409 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10410" class="LineNr">10410 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10411" class="LineNr">10411 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10412" class="LineNr">10412 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10413" class="LineNr">10413 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10414" class="LineNr">10414 </span> 68/push 0/imm32 -<span id="L10415" class="LineNr">10415 </span> 68/push 0/imm32 -<span id="L10416" class="LineNr">10416 </span> 89/<- %edx 4/r32/esp -<span id="L10417" class="LineNr">10417 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10418" class="LineNr">10418 </span> <span class="subxComment">#</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">"fn foo {\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">" var a: t\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">" var c/ecx: (addr boolean) <- <a href='131table.subx.html#L26'>get</a> a, x\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">"}\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">"type t {\n"</span>) -<span id="L10424" class="LineNr">10424 </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="L10425" class="LineNr">10425 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10426" class="LineNr">10426 </span> <span class="subxComment"># convert</span> -<span id="L10427" class="LineNr">10427 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10428" class="LineNr">10428 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10429" class="LineNr">10429 </span> <span class="subxComment"># restore ed</span> -<span id="L10430" class="LineNr">10430 </span> 89/<- %edx 4/r32/esp -<span id="L10431" class="LineNr">10431 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10432" class="LineNr">10432 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10433" class="Folded">10433 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10439" class="LineNr">10439 </span> <span class="subxComment"># check output</span> -<span id="L10440" class="LineNr">10440 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10402'>test-get-with-wrong-output-type-4</a>: output should be empty"</span>) -<span id="L10441" class="LineNr">10441 </span> (<a href='109stream-equal.subx.html#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#L10402'>test-get-with-wrong-output-type-4</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10442" class="LineNr">10442 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10443" class="LineNr">10443 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10402'>test-get-with-wrong-output-type-4</a>: exit status"</span>) -<span id="L10444" class="LineNr">10444 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10445" class="LineNr">10445 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10446" class="LineNr">10446 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10447" class="LineNr">10447 </span> 5d/pop-to-ebp -<span id="L10448" class="LineNr">10448 </span> c3/return -<span id="L10449" class="LineNr">10449 </span> -<span id="L10450" class="LineNr">10450 </span><span class="subxTest">test-get-with-wrong-output-type-5</span>: -<span id="L10451" class="LineNr">10451 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10452" class="LineNr">10452 </span> 55/push-ebp -<span id="L10453" class="LineNr">10453 </span> 89/<- %ebp 4/r32/esp -<span id="L10454" class="LineNr">10454 </span> <span class="subxComment"># setup</span> -<span id="L10455" class="LineNr">10455 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10456" class="LineNr">10456 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10457" class="LineNr">10457 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10458" class="LineNr">10458 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10459" class="LineNr">10459 </span> <span class="subxComment">#</span> -<span id="L10460" class="LineNr">10460 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10461" class="LineNr">10461 </span> (<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="L10462" class="LineNr">10462 </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="L10463" class="LineNr">10463 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10464" class="LineNr">10464 </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="L10465" class="LineNr">10465 </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="L10466" class="LineNr">10466 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10467" class="LineNr">10467 </span> <span class="subxComment"># convert</span> -<span id="L10468" class="LineNr">10468 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L10469" class="LineNr">10469 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10470" class="LineNr">10470 </span> <span class="subxComment"># no errors</span> -<span id="L10471" class="LineNr">10471 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10472" class="LineNr">10472 </span> 89/<- %esp 5/r32/ebp -<span id="L10473" class="LineNr">10473 </span> 5d/pop-to-ebp -<span id="L10474" class="LineNr">10474 </span> c3/return -<span id="L10475" class="LineNr">10475 </span> -<span id="L10476" class="LineNr">10476 </span><span class="subxTest">test-get-with-too-few-inouts</span>: -<span id="L10477" class="LineNr">10477 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10478" class="LineNr">10478 </span> 55/push-ebp -<span id="L10479" class="LineNr">10479 </span> 89/<- %ebp 4/r32/esp -<span id="L10480" class="LineNr">10480 </span> <span class="subxComment"># setup</span> -<span id="L10481" class="LineNr">10481 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10482" class="LineNr">10482 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10483" class="LineNr">10483 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10484" class="LineNr">10484 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10485" class="LineNr">10485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10486" class="LineNr">10486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10487" class="LineNr">10487 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10488" class="LineNr">10488 </span> 68/push 0/imm32 -<span id="L10489" class="LineNr">10489 </span> 68/push 0/imm32 -<span id="L10490" class="LineNr">10490 </span> 89/<- %edx 4/r32/esp -<span id="L10491" class="LineNr">10491 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10492" class="LineNr">10492 </span> <span class="subxComment">#</span> -<span id="L10493" class="LineNr">10493 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10494" class="LineNr">10494 </span> (<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="L10495" class="LineNr">10495 </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="L10496" class="LineNr">10496 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10497" class="LineNr">10497 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10498" class="LineNr">10498 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10499" class="LineNr">10499 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10500" class="LineNr">10500 </span> <span class="subxComment"># convert</span> -<span id="L10501" class="LineNr">10501 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10502" class="LineNr">10502 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10503" class="LineNr">10503 </span> <span class="subxComment"># restore ed</span> -<span id="L10504" class="LineNr">10504 </span> 89/<- %edx 4/r32/esp -<span id="L10505" class="LineNr">10505 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10506" class="LineNr">10506 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10507" class="Folded">10507 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10513" class="LineNr">10513 </span> <span class="subxComment"># check output</span> -<span id="L10514" class="LineNr">10514 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10476'>test-get-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L10515" class="LineNr">10515 </span> (<a href='109stream-equal.subx.html#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#L10476'>test-get-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10516" class="LineNr">10516 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10517" class="LineNr">10517 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10476'>test-get-with-too-few-inouts</a>: exit status"</span>) -<span id="L10518" class="LineNr">10518 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10519" class="LineNr">10519 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10520" class="LineNr">10520 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10521" class="LineNr">10521 </span> 5d/pop-to-ebp -<span id="L10522" class="LineNr">10522 </span> c3/return -<span id="L10523" class="LineNr">10523 </span> -<span id="L10524" class="LineNr">10524 </span><span class="subxTest">test-get-with-too-many-inouts</span>: -<span id="L10525" class="LineNr">10525 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10526" class="LineNr">10526 </span> 55/push-ebp -<span id="L10527" class="LineNr">10527 </span> 89/<- %ebp 4/r32/esp -<span id="L10528" class="LineNr">10528 </span> <span class="subxComment"># setup</span> -<span id="L10529" class="LineNr">10529 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10530" class="LineNr">10530 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10531" class="LineNr">10531 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10532" class="LineNr">10532 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10533" class="LineNr">10533 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10534" class="LineNr">10534 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10535" class="LineNr">10535 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10536" class="LineNr">10536 </span> 68/push 0/imm32 -<span id="L10537" class="LineNr">10537 </span> 68/push 0/imm32 -<span id="L10538" class="LineNr">10538 </span> 89/<- %edx 4/r32/esp -<span id="L10539" class="LineNr">10539 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10540" class="LineNr">10540 </span> <span class="subxComment">#</span> -<span id="L10541" class="LineNr">10541 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10542" class="LineNr">10542 </span> (<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="L10543" class="LineNr">10543 </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="L10544" class="LineNr">10544 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10545" class="LineNr">10545 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10546" class="LineNr">10546 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10547" class="LineNr">10547 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10548" class="LineNr">10548 </span> <span class="subxComment"># convert</span> -<span id="L10549" class="LineNr">10549 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10550" class="LineNr">10550 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10551" class="LineNr">10551 </span> <span class="subxComment"># restore ed</span> -<span id="L10552" class="LineNr">10552 </span> 89/<- %edx 4/r32/esp -<span id="L10553" class="LineNr">10553 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10554" class="LineNr">10554 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10555" class="Folded">10555 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10561" class="LineNr">10561 </span> <span class="subxComment"># check output</span> -<span id="L10562" class="LineNr">10562 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10524'>test-get-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L10563" class="LineNr">10563 </span> (<a href='109stream-equal.subx.html#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#L10524'>test-get-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10564" class="LineNr">10564 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10565" class="LineNr">10565 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10524'>test-get-with-too-many-inouts</a>: exit status"</span>) -<span id="L10566" class="LineNr">10566 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10567" class="LineNr">10567 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10568" class="LineNr">10568 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10569" class="LineNr">10569 </span> 5d/pop-to-ebp -<span id="L10570" class="LineNr">10570 </span> c3/return -<span id="L10571" class="LineNr">10571 </span> -<span id="L10572" class="LineNr">10572 </span><span class="subxTest">test-get-with-no-output</span>: -<span id="L10573" class="LineNr">10573 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10574" class="LineNr">10574 </span> 55/push-ebp -<span id="L10575" class="LineNr">10575 </span> 89/<- %ebp 4/r32/esp -<span id="L10576" class="LineNr">10576 </span> <span class="subxComment"># setup</span> -<span id="L10577" class="LineNr">10577 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10578" class="LineNr">10578 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10579" class="LineNr">10579 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10580" class="LineNr">10580 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10581" class="LineNr">10581 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10582" class="LineNr">10582 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10583" class="LineNr">10583 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10584" class="LineNr">10584 </span> 68/push 0/imm32 -<span id="L10585" class="LineNr">10585 </span> 68/push 0/imm32 -<span id="L10586" class="LineNr">10586 </span> 89/<- %edx 4/r32/esp -<span id="L10587" class="LineNr">10587 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10588" class="LineNr">10588 </span> <span class="subxComment">#</span> -<span id="L10589" class="LineNr">10589 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10590" class="LineNr">10590 </span> (<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="L10591" class="LineNr">10591 </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="L10592" class="LineNr">10592 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10593" class="LineNr">10593 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10594" class="LineNr">10594 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10595" class="LineNr">10595 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10596" class="LineNr">10596 </span> <span class="subxComment"># convert</span> -<span id="L10597" class="LineNr">10597 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10598" class="LineNr">10598 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10599" class="LineNr">10599 </span> <span class="subxComment"># restore ed</span> -<span id="L10600" class="LineNr">10600 </span> 89/<- %edx 4/r32/esp -<span id="L10601" class="LineNr">10601 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10602" class="LineNr">10602 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10603" class="Folded">10603 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10609" class="LineNr">10609 </span> <span class="subxComment"># check output</span> -<span id="L10610" class="LineNr">10610 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10572'>test-get-with-no-output</a>: output should be empty"</span>) -<span id="L10611" class="LineNr">10611 </span> (<a href='109stream-equal.subx.html#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#L10572'>test-get-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10612" class="LineNr">10612 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10613" class="LineNr">10613 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10572'>test-get-with-no-output</a>: exit status"</span>) -<span id="L10614" class="LineNr">10614 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10615" class="LineNr">10615 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10616" class="LineNr">10616 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10617" class="LineNr">10617 </span> 5d/pop-to-ebp -<span id="L10618" class="LineNr">10618 </span> c3/return -<span id="L10619" class="LineNr">10619 </span> -<span id="L10620" class="LineNr">10620 </span><span class="subxTest">test-get-with-too-many-outputs</span>: -<span id="L10621" class="LineNr">10621 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10622" class="LineNr">10622 </span> 55/push-ebp -<span id="L10623" class="LineNr">10623 </span> 89/<- %ebp 4/r32/esp -<span id="L10624" class="LineNr">10624 </span> <span class="subxComment"># setup</span> -<span id="L10625" class="LineNr">10625 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10626" class="LineNr">10626 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10627" class="LineNr">10627 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10628" class="LineNr">10628 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10629" class="LineNr">10629 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L10630" class="LineNr">10630 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10631" class="LineNr">10631 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10632" class="LineNr">10632 </span> 68/push 0/imm32 -<span id="L10633" class="LineNr">10633 </span> 68/push 0/imm32 -<span id="L10634" class="LineNr">10634 </span> 89/<- %edx 4/r32/esp -<span id="L10635" class="LineNr">10635 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<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">"fn foo {\n"</span>) -<span id="L10638" class="LineNr">10638 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\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">" var b: 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">" var c/eax: (addr int) <- copy 0\n"</span>) -<span id="L10641" class="LineNr">10641 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" c, b <- <a href='131table.subx.html#L26'>get</a> a, x\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">"}\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">"type t {\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">" x: int\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> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L10648" class="LineNr">10648 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10649" class="LineNr">10649 </span> <span class="subxComment"># restore ed</span> -<span id="L10650" class="LineNr">10650 </span> 89/<- %edx 4/r32/esp -<span id="L10651" class="LineNr">10651 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10652" class="LineNr">10652 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L10653" class="Folded">10653 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10659" class="LineNr">10659 </span> <span class="subxComment"># check output</span> -<span id="L10660" class="LineNr">10660 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10620'>test-get-with-too-many-outputs</a>: output should be empty"</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#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#L10620'>test-get-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L10662" class="LineNr">10662 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10663" class="LineNr">10663 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10620'>test-get-with-too-many-outputs</a>: exit status"</span>) -<span id="L10664" class="LineNr">10664 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10665" class="LineNr">10665 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10666" class="LineNr">10666 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10667" class="LineNr">10667 </span> 5d/pop-to-ebp -<span id="L10668" class="LineNr">10668 </span> c3/return -<span id="L10669" class="LineNr">10669 </span> -<span id="L10670" class="LineNr">10670 </span><span class="subxTest">test-convert-array-of-user-defined-types</span>: -<span id="L10671" class="LineNr">10671 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10672" class="LineNr">10672 </span> 55/push-ebp -<span id="L10673" class="LineNr">10673 </span> 89/<- %ebp 4/r32/esp -<span id="L10674" class="LineNr">10674 </span> <span class="subxComment"># setup</span> -<span id="L10675" class="LineNr">10675 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10676" class="LineNr">10676 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10677" class="LineNr">10677 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10678" class="LineNr">10678 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10679" class="LineNr">10679 </span> <span class="subxComment">#</span> -<span id="L10680" class="LineNr">10680 </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="L10035" class="LineNr">10035 </span> 89/<- %edx 4/r32/esp +<span id="L10036" class="LineNr">10036 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10037" class="LineNr">10037 </span> <span class="subxComment">#</span> +<span id="L10038" class="LineNr">10038 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10039" class="LineNr">10039 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L10040" class="LineNr">10040 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- address 0\n"</span>) +<span id="L10041" class="LineNr">10041 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10042" class="LineNr">10042 </span> <span class="subxComment"># convert</span> +<span id="L10043" class="LineNr">10043 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10044" class="LineNr">10044 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10045" class="LineNr">10045 </span> <span class="subxComment"># restore ed</span> +<span id="L10046" class="LineNr">10046 </span> 89/<- %edx 4/r32/esp +<span id="L10047" class="LineNr">10047 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10048" class="LineNr">10048 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10049" class="Folded">10049 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10055" class="LineNr">10055 </span> <span class="subxComment"># check output</span> +<span id="L10056" class="LineNr">10056 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10021'>test-address-to-non-register</a>: output should be empty"</span>) +<span id="L10057" class="LineNr">10057 </span> (<a href='109stream-equal.subx.html#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#L10021'>test-address-to-non-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10058" class="LineNr">10058 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10059" class="LineNr">10059 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10021'>test-address-to-non-register</a>: exit status"</span>) +<span id="L10060" class="LineNr">10060 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10061" class="LineNr">10061 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10062" class="LineNr">10062 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10063" class="LineNr">10063 </span> 5d/pop-to-ebp +<span id="L10064" class="LineNr">10064 </span> c3/return +<span id="L10065" class="LineNr">10065 </span> +<span id="L10066" class="LineNr">10066 </span><span class="subxTest">test-address-with-wrong-type</span>: +<span id="L10067" class="LineNr">10067 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10068" class="LineNr">10068 </span> 55/push-ebp +<span id="L10069" class="LineNr">10069 </span> 89/<- %ebp 4/r32/esp +<span id="L10070" class="LineNr">10070 </span> <span class="subxComment"># setup</span> +<span id="L10071" class="LineNr">10071 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10072" class="LineNr">10072 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10073" class="LineNr">10073 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10074" class="LineNr">10074 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10075" class="LineNr">10075 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10076" class="LineNr">10076 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10077" class="LineNr">10077 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10078" class="LineNr">10078 </span> 68/push 0/imm32 +<span id="L10079" class="LineNr">10079 </span> 68/push 0/imm32 +<span id="L10080" class="LineNr">10080 </span> 89/<- %edx 4/r32/esp +<span id="L10081" class="LineNr">10081 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10082" class="LineNr">10082 </span> <span class="subxComment">#</span> +<span id="L10083" class="LineNr">10083 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10084" class="LineNr">10084 </span> (<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="L10085" class="LineNr">10085 </span> (<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="L10086" class="LineNr">10086 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10087" class="LineNr">10087 </span> <span class="subxComment"># convert</span> +<span id="L10088" class="LineNr">10088 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10089" class="LineNr">10089 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10090" class="LineNr">10090 </span> <span class="subxComment"># restore ed</span> +<span id="L10091" class="LineNr">10091 </span> 89/<- %edx 4/r32/esp +<span id="L10092" class="LineNr">10092 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10093" class="LineNr">10093 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10094" class="Folded">10094 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10100" class="LineNr">10100 </span> <span class="subxComment"># check output</span> +<span id="L10101" class="LineNr">10101 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10066'>test-address-with-wrong-type</a>: output should be empty"</span>) +<span id="L10102" class="LineNr">10102 </span> (<a href='109stream-equal.subx.html#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#L10066'>test-address-with-wrong-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10103" class="LineNr">10103 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10104" class="LineNr">10104 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10066'>test-address-with-wrong-type</a>: exit status"</span>) +<span id="L10105" class="LineNr">10105 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10106" class="LineNr">10106 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10107" class="LineNr">10107 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10108" class="LineNr">10108 </span> 5d/pop-to-ebp +<span id="L10109" class="LineNr">10109 </span> c3/return +<span id="L10110" class="LineNr">10110 </span> +<span id="L10111" class="LineNr">10111 </span><span class="subxTest">test-address-with-right-type-for-array</span>: +<span id="L10112" class="LineNr">10112 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10113" class="LineNr">10113 </span> 55/push-ebp +<span id="L10114" class="LineNr">10114 </span> 89/<- %ebp 4/r32/esp +<span id="L10115" class="LineNr">10115 </span> <span class="subxComment"># setup</span> +<span id="L10116" class="LineNr">10116 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10117" class="LineNr">10117 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10118" class="LineNr">10118 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10119" class="LineNr">10119 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10120" class="LineNr">10120 </span> <span class="subxComment">#</span> +<span id="L10121" class="LineNr">10121 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10122" class="LineNr">10122 </span> (<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="L10123" class="LineNr">10123 </span> (<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="L10124" class="LineNr">10124 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10125" class="LineNr">10125 </span> <span class="subxComment"># convert</span> +<span id="L10126" class="LineNr">10126 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L10127" class="LineNr">10127 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10128" class="LineNr">10128 </span> <span class="subxComment"># no errors</span> +<span id="L10129" class="LineNr">10129 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10130" class="LineNr">10130 </span> 89/<- %esp 5/r32/ebp +<span id="L10131" class="LineNr">10131 </span> 5d/pop-to-ebp +<span id="L10132" class="LineNr">10132 </span> c3/return +<span id="L10133" class="LineNr">10133 </span> +<span id="L10134" class="LineNr">10134 </span><span class="subxTest">test-address-with-right-type-for-stream</span>: +<span id="L10135" class="LineNr">10135 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10136" class="LineNr">10136 </span> 55/push-ebp +<span id="L10137" class="LineNr">10137 </span> 89/<- %ebp 4/r32/esp +<span id="L10138" class="LineNr">10138 </span> <span class="subxComment"># setup</span> +<span id="L10139" class="LineNr">10139 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10140" class="LineNr">10140 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10141" class="LineNr">10141 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10142" class="LineNr">10142 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10143" class="LineNr">10143 </span> <span class="subxComment">#</span> +<span id="L10144" class="LineNr">10144 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10145" class="LineNr">10145 </span> (<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="L10146" class="LineNr">10146 </span> (<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="L10147" class="LineNr">10147 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10148" class="LineNr">10148 </span> <span class="subxComment"># convert</span> +<span id="L10149" class="LineNr">10149 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L10150" class="LineNr">10150 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10151" class="LineNr">10151 </span> <span class="subxComment"># no errors</span> +<span id="L10152" class="LineNr">10152 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10153" class="LineNr">10153 </span> 89/<- %esp 5/r32/ebp +<span id="L10154" class="LineNr">10154 </span> 5d/pop-to-ebp +<span id="L10155" class="LineNr">10155 </span> c3/return +<span id="L10156" class="LineNr">10156 </span> +<span id="L10157" class="LineNr">10157 </span><span class="subxTest">test-get-with-wrong-field</span>: +<span id="L10158" class="LineNr">10158 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10159" class="LineNr">10159 </span> 55/push-ebp +<span id="L10160" class="LineNr">10160 </span> 89/<- %ebp 4/r32/esp +<span id="L10161" class="LineNr">10161 </span> <span class="subxComment"># setup</span> +<span id="L10162" class="LineNr">10162 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10163" class="LineNr">10163 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10164" class="LineNr">10164 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10165" class="LineNr">10165 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10166" class="LineNr">10166 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10167" class="LineNr">10167 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10168" class="LineNr">10168 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10169" class="LineNr">10169 </span> 68/push 0/imm32 +<span id="L10170" class="LineNr">10170 </span> 68/push 0/imm32 +<span id="L10171" class="LineNr">10171 </span> 89/<- %edx 4/r32/esp +<span id="L10172" class="LineNr">10172 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10173" class="LineNr">10173 </span> <span class="subxComment">#</span> +<span id="L10174" class="LineNr">10174 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10175" class="LineNr">10175 </span> (<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="L10176" class="LineNr">10176 </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="L10177" class="LineNr">10177 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10178" class="LineNr">10178 </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="L10179" class="LineNr">10179 </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="L10180" class="LineNr">10180 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10181" class="LineNr">10181 </span> <span class="subxComment"># convert</span> +<span id="L10182" class="LineNr">10182 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10183" class="LineNr">10183 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10184" class="LineNr">10184 </span> <span class="subxComment"># restore ed</span> +<span id="L10185" class="LineNr">10185 </span> 89/<- %edx 4/r32/esp +<span id="L10186" class="LineNr">10186 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10187" class="LineNr">10187 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10188" class="Folded">10188 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10194" class="LineNr">10194 </span> <span class="subxComment"># check output</span> +<span id="L10195" class="LineNr">10195 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10157'>test-get-with-wrong-field</a>: output should be empty"</span>) +<span id="L10196" class="LineNr">10196 </span> (<a href='109stream-equal.subx.html#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#L10157'>test-get-with-wrong-field</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10197" class="LineNr">10197 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10198" class="LineNr">10198 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10157'>test-get-with-wrong-field</a>: exit status"</span>) +<span id="L10199" class="LineNr">10199 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10200" class="LineNr">10200 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10201" class="LineNr">10201 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10202" class="LineNr">10202 </span> 5d/pop-to-ebp +<span id="L10203" class="LineNr">10203 </span> c3/return +<span id="L10204" class="LineNr">10204 </span> +<span id="L10205" class="LineNr">10205 </span><span class="subxTest">test-get-with-wrong-base-type</span>: +<span id="L10206" class="LineNr">10206 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10207" class="LineNr">10207 </span> 55/push-ebp +<span id="L10208" class="LineNr">10208 </span> 89/<- %ebp 4/r32/esp +<span id="L10209" class="LineNr">10209 </span> <span class="subxComment"># setup</span> +<span id="L10210" class="LineNr">10210 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10211" class="LineNr">10211 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10212" class="LineNr">10212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10213" class="LineNr">10213 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10214" class="LineNr">10214 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10215" class="LineNr">10215 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10216" class="LineNr">10216 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10217" class="LineNr">10217 </span> 68/push 0/imm32 +<span id="L10218" class="LineNr">10218 </span> 68/push 0/imm32 +<span id="L10219" class="LineNr">10219 </span> 89/<- %edx 4/r32/esp +<span id="L10220" class="LineNr">10220 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10221" class="LineNr">10221 </span> <span class="subxComment">#</span> +<span id="L10222" class="LineNr">10222 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10223" class="LineNr">10223 </span> (<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="L10224" class="LineNr">10224 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L10225" class="LineNr">10225 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10226" class="LineNr">10226 </span> <span class="subxComment"># convert</span> +<span id="L10227" class="LineNr">10227 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10228" class="LineNr">10228 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10229" class="LineNr">10229 </span> <span class="subxComment"># restore ed</span> +<span id="L10230" class="LineNr">10230 </span> 89/<- %edx 4/r32/esp +<span id="L10231" class="LineNr">10231 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10232" class="LineNr">10232 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10233" class="Folded">10233 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10239" class="LineNr">10239 </span> <span class="subxComment"># check output</span> +<span id="L10240" class="LineNr">10240 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10205'>test-get-with-wrong-base-type</a>: output should be empty"</span>) +<span id="L10241" class="LineNr">10241 </span> (<a href='109stream-equal.subx.html#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#L10205'>test-get-with-wrong-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10242" class="LineNr">10242 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10243" class="LineNr">10243 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10205'>test-get-with-wrong-base-type</a>: exit status"</span>) +<span id="L10244" class="LineNr">10244 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10245" class="LineNr">10245 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10246" class="LineNr">10246 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10247" class="LineNr">10247 </span> 5d/pop-to-ebp +<span id="L10248" class="LineNr">10248 </span> c3/return +<span id="L10249" class="LineNr">10249 </span> +<span id="L10250" class="LineNr">10250 </span><span class="subxTest">test-get-with-wrong-base-type-2</span>: +<span id="L10251" class="LineNr">10251 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10252" class="LineNr">10252 </span> 55/push-ebp +<span id="L10253" class="LineNr">10253 </span> 89/<- %ebp 4/r32/esp +<span id="L10254" class="LineNr">10254 </span> <span class="subxComment"># setup</span> +<span id="L10255" class="LineNr">10255 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10256" class="LineNr">10256 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10257" class="LineNr">10257 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10258" class="LineNr">10258 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10259" class="LineNr">10259 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10260" class="LineNr">10260 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10261" class="LineNr">10261 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10262" class="LineNr">10262 </span> 68/push 0/imm32 +<span id="L10263" class="LineNr">10263 </span> 68/push 0/imm32 +<span id="L10264" class="LineNr">10264 </span> 89/<- %edx 4/r32/esp +<span id="L10265" class="LineNr">10265 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10266" class="LineNr">10266 </span> <span class="subxComment">#</span> +<span id="L10267" class="LineNr">10267 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10268" class="LineNr">10268 </span> (<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="L10269" class="LineNr">10269 </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="L10270" class="LineNr">10270 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10271" class="LineNr">10271 </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="L10272" class="LineNr">10272 </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="L10273" class="LineNr">10273 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10274" class="LineNr">10274 </span> <span class="subxComment"># convert</span> +<span id="L10275" class="LineNr">10275 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10276" class="LineNr">10276 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10277" class="LineNr">10277 </span> <span class="subxComment"># restore ed</span> +<span id="L10278" class="LineNr">10278 </span> 89/<- %edx 4/r32/esp +<span id="L10279" class="LineNr">10279 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10280" class="LineNr">10280 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10281" class="Folded">10281 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10287" class="LineNr">10287 </span> <span class="subxComment"># check output</span> +<span id="L10288" class="LineNr">10288 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10250'>test-get-with-wrong-base-type-2</a>: output should be empty"</span>) +<span id="L10289" class="LineNr">10289 </span> (<a href='109stream-equal.subx.html#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#L10250'>test-get-with-wrong-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10290" class="LineNr">10290 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10291" class="LineNr">10291 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10250'>test-get-with-wrong-base-type-2</a>: exit status"</span>) +<span id="L10292" class="LineNr">10292 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10293" class="LineNr">10293 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10294" class="LineNr">10294 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10295" class="LineNr">10295 </span> 5d/pop-to-ebp +<span id="L10296" class="LineNr">10296 </span> c3/return +<span id="L10297" class="LineNr">10297 </span> +<span id="L10298" class="LineNr">10298 </span><span class="subxTest">test-get-with-wrong-base-type-3</span>: +<span id="L10299" class="LineNr">10299 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10300" class="LineNr">10300 </span> 55/push-ebp +<span id="L10301" class="LineNr">10301 </span> 89/<- %ebp 4/r32/esp +<span id="L10302" class="LineNr">10302 </span> <span class="subxComment"># setup</span> +<span id="L10303" class="LineNr">10303 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10304" class="LineNr">10304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10305" class="LineNr">10305 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10306" class="LineNr">10306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10307" class="LineNr">10307 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10308" class="LineNr">10308 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10309" class="LineNr">10309 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10310" class="LineNr">10310 </span> 68/push 0/imm32 +<span id="L10311" class="LineNr">10311 </span> 68/push 0/imm32 +<span id="L10312" class="LineNr">10312 </span> 89/<- %edx 4/r32/esp +<span id="L10313" class="LineNr">10313 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10314" class="LineNr">10314 </span> <span class="subxComment">#</span> +<span id="L10315" class="LineNr">10315 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10316" class="LineNr">10316 </span> (<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="L10317" class="LineNr">10317 </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="L10318" class="LineNr">10318 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10319" class="LineNr">10319 </span> <span class="subxComment"># convert</span> +<span id="L10320" class="LineNr">10320 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10321" class="LineNr">10321 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10322" class="LineNr">10322 </span> <span class="subxComment"># restore ed</span> +<span id="L10323" class="LineNr">10323 </span> 89/<- %edx 4/r32/esp +<span id="L10324" class="LineNr">10324 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10325" class="LineNr">10325 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10326" class="Folded">10326 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10332" class="LineNr">10332 </span> <span class="subxComment"># check output</span> +<span id="L10333" class="LineNr">10333 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10298'>test-get-with-wrong-base-type-3</a>: output should be empty"</span>) +<span id="L10334" class="LineNr">10334 </span> (<a href='109stream-equal.subx.html#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#L10298'>test-get-with-wrong-base-type-3</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10335" class="LineNr">10335 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10336" class="LineNr">10336 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10298'>test-get-with-wrong-base-type-3</a>: exit status"</span>) +<span id="L10337" class="LineNr">10337 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10338" class="LineNr">10338 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10339" class="LineNr">10339 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10340" class="LineNr">10340 </span> 5d/pop-to-ebp +<span id="L10341" class="LineNr">10341 </span> c3/return +<span id="L10342" class="LineNr">10342 </span> +<span id="L10343" class="LineNr">10343 </span><span class="subxTest">test-get-with-wrong-offset-type</span>: +<span id="L10344" class="LineNr">10344 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10345" class="LineNr">10345 </span> 55/push-ebp +<span id="L10346" class="LineNr">10346 </span> 89/<- %ebp 4/r32/esp +<span id="L10347" class="LineNr">10347 </span> <span class="subxComment"># setup</span> +<span id="L10348" class="LineNr">10348 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10349" class="LineNr">10349 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10350" class="LineNr">10350 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10351" class="LineNr">10351 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10352" class="LineNr">10352 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10353" class="LineNr">10353 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10354" class="LineNr">10354 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10355" class="LineNr">10355 </span> 68/push 0/imm32 +<span id="L10356" class="LineNr">10356 </span> 68/push 0/imm32 +<span id="L10357" class="LineNr">10357 </span> 89/<- %edx 4/r32/esp +<span id="L10358" class="LineNr">10358 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10359" class="LineNr">10359 </span> <span class="subxComment">#</span> +<span id="L10360" class="LineNr">10360 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10361" class="LineNr">10361 </span> (<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="L10362" class="LineNr">10362 </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="L10363" class="LineNr">10363 </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="L10364" class="LineNr">10364 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10365" class="LineNr">10365 </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="L10366" class="LineNr">10366 </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="L10367" class="LineNr">10367 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10368" class="LineNr">10368 </span> <span class="subxComment"># convert</span> +<span id="L10369" class="LineNr">10369 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10370" class="LineNr">10370 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10371" class="LineNr">10371 </span> <span class="subxComment"># restore ed</span> +<span id="L10372" class="LineNr">10372 </span> 89/<- %edx 4/r32/esp +<span id="L10373" class="LineNr">10373 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10374" class="LineNr">10374 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10375" class="Folded">10375 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10381" class="LineNr">10381 </span> <span class="subxComment"># check output</span> +<span id="L10382" class="LineNr">10382 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10343'>test-get-with-wrong-offset-type</a>: output should be empty"</span>) +<span id="L10383" class="LineNr">10383 </span> (<a href='109stream-equal.subx.html#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#L10343'>test-get-with-wrong-offset-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10384" class="LineNr">10384 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10385" class="LineNr">10385 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10343'>test-get-with-wrong-offset-type</a>: exit status"</span>) +<span id="L10386" class="LineNr">10386 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10387" class="LineNr">10387 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10388" class="LineNr">10388 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10389" class="LineNr">10389 </span> 5d/pop-to-ebp +<span id="L10390" class="LineNr">10390 </span> c3/return +<span id="L10391" class="LineNr">10391 </span> +<span id="L10392" class="LineNr">10392 </span><span class="subxTest">test-get-with-wrong-output-type</span>: +<span id="L10393" class="LineNr">10393 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10394" class="LineNr">10394 </span> 55/push-ebp +<span id="L10395" class="LineNr">10395 </span> 89/<- %ebp 4/r32/esp +<span id="L10396" class="LineNr">10396 </span> <span class="subxComment"># setup</span> +<span id="L10397" class="LineNr">10397 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10398" class="LineNr">10398 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10399" class="LineNr">10399 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10400" class="LineNr">10400 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10401" class="LineNr">10401 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10402" class="LineNr">10402 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10403" class="LineNr">10403 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10404" class="LineNr">10404 </span> 68/push 0/imm32 +<span id="L10405" class="LineNr">10405 </span> 68/push 0/imm32 +<span id="L10406" class="LineNr">10406 </span> 89/<- %edx 4/r32/esp +<span id="L10407" class="LineNr">10407 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10408" class="LineNr">10408 </span> <span class="subxComment">#</span> +<span id="L10409" class="LineNr">10409 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10410" class="LineNr">10410 </span> (<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="L10411" class="LineNr">10411 </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="L10412" class="LineNr">10412 </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="L10413" class="LineNr">10413 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10414" class="LineNr">10414 </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="L10415" class="LineNr">10415 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10416" class="LineNr">10416 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10417" class="LineNr">10417 </span> <span class="subxComment"># convert</span> +<span id="L10418" class="LineNr">10418 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10419" class="LineNr">10419 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10420" class="LineNr">10420 </span> <span class="subxComment"># restore ed</span> +<span id="L10421" class="LineNr">10421 </span> 89/<- %edx 4/r32/esp +<span id="L10422" class="LineNr">10422 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10423" class="LineNr">10423 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10424" class="Folded">10424 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10430" class="LineNr">10430 </span> <span class="subxComment"># check output</span> +<span id="L10431" class="LineNr">10431 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10392'>test-get-with-wrong-output-type</a>: output should be empty"</span>) +<span id="L10432" class="LineNr">10432 </span> (<a href='109stream-equal.subx.html#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#L10392'>test-get-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10433" class="LineNr">10433 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10434" class="LineNr">10434 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10392'>test-get-with-wrong-output-type</a>: exit status"</span>) +<span id="L10435" class="LineNr">10435 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10436" class="LineNr">10436 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10437" class="LineNr">10437 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10438" class="LineNr">10438 </span> 5d/pop-to-ebp +<span id="L10439" class="LineNr">10439 </span> c3/return +<span id="L10440" class="LineNr">10440 </span> +<span id="L10441" class="LineNr">10441 </span><span class="subxTest">test-get-with-wrong-output-type-2</span>: +<span id="L10442" class="LineNr">10442 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10443" class="LineNr">10443 </span> 55/push-ebp +<span id="L10444" class="LineNr">10444 </span> 89/<- %ebp 4/r32/esp +<span id="L10445" class="LineNr">10445 </span> <span class="subxComment"># setup</span> +<span id="L10446" class="LineNr">10446 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10447" class="LineNr">10447 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10448" class="LineNr">10448 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10449" class="LineNr">10449 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10450" class="LineNr">10450 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10451" class="LineNr">10451 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10452" class="LineNr">10452 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10453" class="LineNr">10453 </span> 68/push 0/imm32 +<span id="L10454" class="LineNr">10454 </span> 68/push 0/imm32 +<span id="L10455" class="LineNr">10455 </span> 89/<- %edx 4/r32/esp +<span id="L10456" class="LineNr">10456 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10457" class="LineNr">10457 </span> <span class="subxComment">#</span> +<span id="L10458" class="LineNr">10458 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10459" class="LineNr">10459 </span> (<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="L10460" class="LineNr">10460 </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="L10461" class="LineNr">10461 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10462" class="LineNr">10462 </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="L10463" class="LineNr">10463 </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="L10464" class="LineNr">10464 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10465" class="LineNr">10465 </span> <span class="subxComment"># convert</span> +<span id="L10466" class="LineNr">10466 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10467" class="LineNr">10467 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10468" class="LineNr">10468 </span> <span class="subxComment"># restore ed</span> +<span id="L10469" class="LineNr">10469 </span> 89/<- %edx 4/r32/esp +<span id="L10470" class="LineNr">10470 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10471" class="LineNr">10471 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10472" class="Folded">10472 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10478" class="LineNr">10478 </span> <span class="subxComment"># check output</span> +<span id="L10479" class="LineNr">10479 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10441'>test-get-with-wrong-output-type-2</a>: output should be empty"</span>) +<span id="L10480" class="LineNr">10480 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L10441'>test-get-with-wrong-output-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10481" class="LineNr">10481 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10482" class="LineNr">10482 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10441'>test-get-with-wrong-output-type-2</a>: exit status"</span>) +<span id="L10483" class="LineNr">10483 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10484" class="LineNr">10484 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10485" class="LineNr">10485 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10486" class="LineNr">10486 </span> 5d/pop-to-ebp +<span id="L10487" class="LineNr">10487 </span> c3/return +<span id="L10488" class="LineNr">10488 </span> +<span id="L10489" class="LineNr">10489 </span><span class="subxTest">test-get-with-wrong-output-type-3</span>: +<span id="L10490" class="LineNr">10490 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10491" class="LineNr">10491 </span> 55/push-ebp +<span id="L10492" class="LineNr">10492 </span> 89/<- %ebp 4/r32/esp +<span id="L10493" class="LineNr">10493 </span> <span class="subxComment"># setup</span> +<span id="L10494" class="LineNr">10494 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10495" class="LineNr">10495 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10496" class="LineNr">10496 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10497" class="LineNr">10497 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10498" class="LineNr">10498 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10499" class="LineNr">10499 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10500" class="LineNr">10500 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10501" class="LineNr">10501 </span> 68/push 0/imm32 +<span id="L10502" class="LineNr">10502 </span> 68/push 0/imm32 +<span id="L10503" class="LineNr">10503 </span> 89/<- %edx 4/r32/esp +<span id="L10504" class="LineNr">10504 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10505" class="LineNr">10505 </span> <span class="subxComment">#</span> +<span id="L10506" class="LineNr">10506 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10507" class="LineNr">10507 </span> (<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="L10508" class="LineNr">10508 </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="L10509" class="LineNr">10509 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10510" class="LineNr">10510 </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="L10511" class="LineNr">10511 </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="L10512" class="LineNr">10512 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10513" class="LineNr">10513 </span> <span class="subxComment"># convert</span> +<span id="L10514" class="LineNr">10514 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10515" class="LineNr">10515 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10516" class="LineNr">10516 </span> <span class="subxComment"># restore ed</span> +<span id="L10517" class="LineNr">10517 </span> 89/<- %edx 4/r32/esp +<span id="L10518" class="LineNr">10518 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10519" class="LineNr">10519 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10520" class="Folded">10520 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10526" class="LineNr">10526 </span> <span class="subxComment"># check output</span> +<span id="L10527" class="LineNr">10527 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10489'>test-get-with-wrong-output-type-3</a>: output should be empty"</span>) +<span id="L10528" class="LineNr">10528 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L10489'>test-get-with-wrong-output-type-3</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10529" class="LineNr">10529 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10530" class="LineNr">10530 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10489'>test-get-with-wrong-output-type-3</a>: exit status"</span>) +<span id="L10531" class="LineNr">10531 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10532" class="LineNr">10532 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10533" class="LineNr">10533 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10534" class="LineNr">10534 </span> 5d/pop-to-ebp +<span id="L10535" class="LineNr">10535 </span> c3/return +<span id="L10536" class="LineNr">10536 </span> +<span id="L10537" class="LineNr">10537 </span><span class="subxTest">test-get-with-wrong-output-type-4</span>: +<span id="L10538" class="LineNr">10538 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10539" class="LineNr">10539 </span> 55/push-ebp +<span id="L10540" class="LineNr">10540 </span> 89/<- %ebp 4/r32/esp +<span id="L10541" class="LineNr">10541 </span> <span class="subxComment"># setup</span> +<span id="L10542" class="LineNr">10542 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10543" class="LineNr">10543 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10544" class="LineNr">10544 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10545" class="LineNr">10545 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10546" class="LineNr">10546 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10547" class="LineNr">10547 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10548" class="LineNr">10548 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10549" class="LineNr">10549 </span> 68/push 0/imm32 +<span id="L10550" class="LineNr">10550 </span> 68/push 0/imm32 +<span id="L10551" class="LineNr">10551 </span> 89/<- %edx 4/r32/esp +<span id="L10552" class="LineNr">10552 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10553" class="LineNr">10553 </span> <span class="subxComment">#</span> +<span id="L10554" class="LineNr">10554 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10555" class="LineNr">10555 </span> (<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="L10556" class="LineNr">10556 </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="L10557" class="LineNr">10557 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10558" class="LineNr">10558 </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="L10559" class="LineNr">10559 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10560" class="LineNr">10560 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10561" class="LineNr">10561 </span> <span class="subxComment"># convert</span> +<span id="L10562" class="LineNr">10562 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10563" class="LineNr">10563 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10564" class="LineNr">10564 </span> <span class="subxComment"># restore ed</span> +<span id="L10565" class="LineNr">10565 </span> 89/<- %edx 4/r32/esp +<span id="L10566" class="LineNr">10566 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10567" class="LineNr">10567 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10568" class="Folded">10568 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10574" class="LineNr">10574 </span> <span class="subxComment"># check output</span> +<span id="L10575" class="LineNr">10575 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10537'>test-get-with-wrong-output-type-4</a>: output should be empty"</span>) +<span id="L10576" class="LineNr">10576 </span> (<a href='109stream-equal.subx.html#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#L10537'>test-get-with-wrong-output-type-4</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10577" class="LineNr">10577 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10578" class="LineNr">10578 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10537'>test-get-with-wrong-output-type-4</a>: exit status"</span>) +<span id="L10579" class="LineNr">10579 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10580" class="LineNr">10580 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10581" class="LineNr">10581 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10582" class="LineNr">10582 </span> 5d/pop-to-ebp +<span id="L10583" class="LineNr">10583 </span> c3/return +<span id="L10584" class="LineNr">10584 </span> +<span id="L10585" class="LineNr">10585 </span><span class="subxTest">test-get-with-wrong-output-type-5</span>: +<span id="L10586" class="LineNr">10586 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10587" class="LineNr">10587 </span> 55/push-ebp +<span id="L10588" class="LineNr">10588 </span> 89/<- %ebp 4/r32/esp +<span id="L10589" class="LineNr">10589 </span> <span class="subxComment"># setup</span> +<span id="L10590" class="LineNr">10590 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10591" class="LineNr">10591 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10592" class="LineNr">10592 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10593" class="LineNr">10593 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10594" class="LineNr">10594 </span> <span class="subxComment">#</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">"fn foo {\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 a: t\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/ecx: (addr handle int) <- <a href='131table.subx.html#L26'>get</a> a, x\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">"}\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">"type t {\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">" x: (handle int)\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">"}\n"</span>) +<span id="L10602" class="LineNr">10602 </span> <span class="subxComment"># convert</span> +<span id="L10603" class="LineNr">10603 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L10604" class="LineNr">10604 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10605" class="LineNr">10605 </span> <span class="subxComment"># no errors</span> +<span id="L10606" class="LineNr">10606 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10607" class="LineNr">10607 </span> 89/<- %esp 5/r32/ebp +<span id="L10608" class="LineNr">10608 </span> 5d/pop-to-ebp +<span id="L10609" class="LineNr">10609 </span> c3/return +<span id="L10610" class="LineNr">10610 </span> +<span id="L10611" class="LineNr">10611 </span><span class="subxTest">test-get-with-too-few-inouts</span>: +<span id="L10612" class="LineNr">10612 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10613" class="LineNr">10613 </span> 55/push-ebp +<span id="L10614" class="LineNr">10614 </span> 89/<- %ebp 4/r32/esp +<span id="L10615" class="LineNr">10615 </span> <span class="subxComment"># setup</span> +<span id="L10616" class="LineNr">10616 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10617" class="LineNr">10617 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10618" class="LineNr">10618 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10619" class="LineNr">10619 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10620" class="LineNr">10620 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10621" class="LineNr">10621 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10622" class="LineNr">10622 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10623" class="LineNr">10623 </span> 68/push 0/imm32 +<span id="L10624" class="LineNr">10624 </span> 68/push 0/imm32 +<span id="L10625" class="LineNr">10625 </span> 89/<- %edx 4/r32/esp +<span id="L10626" class="LineNr">10626 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10627" class="LineNr">10627 </span> <span class="subxComment">#</span> +<span id="L10628" class="LineNr">10628 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10629" class="LineNr">10629 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10630" class="LineNr">10630 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a\n"</span>) +<span id="L10631" class="LineNr">10631 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10632" class="LineNr">10632 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10633" class="LineNr">10633 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10634" class="LineNr">10634 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10635" class="LineNr">10635 </span> <span class="subxComment"># convert</span> +<span id="L10636" class="LineNr">10636 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10637" class="LineNr">10637 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10638" class="LineNr">10638 </span> <span class="subxComment"># restore ed</span> +<span id="L10639" class="LineNr">10639 </span> 89/<- %edx 4/r32/esp +<span id="L10640" class="LineNr">10640 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10641" class="LineNr">10641 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10642" class="Folded">10642 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10648" class="LineNr">10648 </span> <span class="subxComment"># check output</span> +<span id="L10649" class="LineNr">10649 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10611'>test-get-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L10650" class="LineNr">10650 </span> (<a href='109stream-equal.subx.html#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#L10611'>test-get-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10651" class="LineNr">10651 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10652" class="LineNr">10652 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10611'>test-get-with-too-few-inouts</a>: exit status"</span>) +<span id="L10653" class="LineNr">10653 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10654" class="LineNr">10654 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10655" class="LineNr">10655 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10656" class="LineNr">10656 </span> 5d/pop-to-ebp +<span id="L10657" class="LineNr">10657 </span> c3/return +<span id="L10658" class="LineNr">10658 </span> +<span id="L10659" class="LineNr">10659 </span><span class="subxTest">test-get-with-too-many-inouts</span>: +<span id="L10660" class="LineNr">10660 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10661" class="LineNr">10661 </span> 55/push-ebp +<span id="L10662" class="LineNr">10662 </span> 89/<- %ebp 4/r32/esp +<span id="L10663" class="LineNr">10663 </span> <span class="subxComment"># setup</span> +<span id="L10664" class="LineNr">10664 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10665" class="LineNr">10665 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10666" class="LineNr">10666 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10667" class="LineNr">10667 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10668" class="LineNr">10668 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10669" class="LineNr">10669 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10670" class="LineNr">10670 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10671" class="LineNr">10671 </span> 68/push 0/imm32 +<span id="L10672" class="LineNr">10672 </span> 68/push 0/imm32 +<span id="L10673" class="LineNr">10673 </span> 89/<- %edx 4/r32/esp +<span id="L10674" class="LineNr">10674 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10675" class="LineNr">10675 </span> <span class="subxComment">#</span> +<span id="L10676" class="LineNr">10676 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10677" class="LineNr">10677 </span> (<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="L10678" class="LineNr">10678 </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="L10679" class="LineNr">10679 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10680" class="LineNr">10680 </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="L10681" class="LineNr">10681 </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="L10682" class="LineNr">10682 </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="L10683" class="LineNr">10683 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10684" class="LineNr">10684 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10685" class="LineNr">10685 </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="L10686" class="LineNr">10686 </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="L10687" class="LineNr">10687 </span> (<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="L10688" class="LineNr">10688 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10689" class="LineNr">10689 </span> <span class="subxComment"># convert</span> -<span id="L10690" class="LineNr">10690 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L10691" class="LineNr">10691 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10692" class="Folded">10692 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10698" class="LineNr">10698 </span> <span class="subxComment"># check output</span> -<span id="L10699" class="LineNr">10699 </span> (<a href='109stream-equal.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#L10670'>test-convert-array-of-user-defined-types</a>/0"</span>) -<span id="L10700" class="LineNr">10700 </span> (<a href='109stream-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="L10701" class="LineNr">10701 </span> (<a href='109stream-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#L10670'>test-convert-array-of-user-defined-types</a>/2"</span>) -<span id="L10702" class="LineNr">10702 </span> (<a href='109stream-equal.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#L10670'>test-convert-array-of-user-defined-types</a>/3"</span>) -<span id="L10703" class="LineNr">10703 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10670'>test-convert-array-of-user-defined-types</a>/4"</span>) -<span id="L10704" class="LineNr">10704 </span> (<a href='109stream-equal.subx.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#L10670'>test-convert-array-of-user-defined-types</a>/5"</span>) -<span id="L10705" class="LineNr">10705 </span> (<a href='109stream-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#L10670'>test-convert-array-of-user-defined-types</a>/6"</span>) -<span id="L10706" class="LineNr">10706 </span> (<a href='109stream-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#L10670'>test-convert-array-of-user-defined-types</a>/7"</span>) -<span id="L10707" class="LineNr">10707 </span> (<a href='109stream-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#L10670'>test-convert-array-of-user-defined-types</a>/8"</span>) -<span id="L10708" class="LineNr">10708 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10670'>test-convert-array-of-user-defined-types</a>/9"</span>) -<span id="L10709" class="LineNr">10709 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<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#L10670'>test-convert-array-of-user-defined-types</a>/10"</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">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10670'>test-convert-array-of-user-defined-types</a>/12"</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">" 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#L10670'>test-convert-array-of-user-defined-types</a>/13"</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">" 8d/copy-address *(eax + ecx<<0x00000003 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10670'>test-convert-array-of-user-defined-types</a>/14"</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">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10670'>test-convert-array-of-user-defined-types</a>/15"</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">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10670'>test-convert-array-of-user-defined-types</a>/16"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10670'>test-convert-array-of-user-defined-types</a>/17"</span>) -<span id="L10716" class="LineNr">10716 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10670'>test-convert-array-of-user-defined-types</a>/18"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/19"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10670'>test-convert-array-of-user-defined-types</a>/20"</span>) -<span id="L10719" class="LineNr">10719 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10670'>test-convert-array-of-user-defined-types</a>/21"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10670'>test-convert-array-of-user-defined-types</a>/22"</span>) -<span id="L10721" class="LineNr">10721 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10722" class="LineNr">10722 </span> 89/<- %esp 5/r32/ebp -<span id="L10723" class="LineNr">10723 </span> 5d/pop-to-ebp -<span id="L10724" class="LineNr">10724 </span> c3/return -<span id="L10725" class="LineNr">10725 </span> -<span id="L10726" class="LineNr">10726 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-eax</span>: -<span id="L10727" class="LineNr">10727 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10728" class="LineNr">10728 </span> 55/push-ebp -<span id="L10729" class="LineNr">10729 </span> 89/<- %ebp 4/r32/esp -<span id="L10730" class="LineNr">10730 </span> <span class="subxComment"># setup</span> -<span id="L10731" class="LineNr">10731 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10732" class="LineNr">10732 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10733" class="LineNr">10733 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10734" class="LineNr">10734 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10735" class="LineNr">10735 </span> <span class="subxComment">#</span> -<span id="L10736" class="LineNr">10736 </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="L10737" class="LineNr">10737 </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="L10738" class="LineNr">10738 </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="L10739" class="LineNr">10739 </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="L10740" class="LineNr">10740 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10741" class="LineNr">10741 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10742" class="LineNr">10742 </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="L10743" class="LineNr">10743 </span> (<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="L10744" class="LineNr">10744 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10745" class="LineNr">10745 </span> <span class="subxComment"># convert</span> -<span id="L10746" class="LineNr">10746 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L10747" class="LineNr">10747 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10748" class="Folded">10748 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10754" class="LineNr">10754 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-eax/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/3"</span>) -<span id="L10759" class="LineNr">10759 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/4"</span>) -<span id="L10760" class="LineNr">10760 </span> (<a href='109stream-equal.subx.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#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/5"</span>) -<span id="L10761" class="LineNr">10761 </span> <span class="subxComment"># var arr</span> -<span id="L10762" class="LineNr">10762 </span> (<a href='109stream-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#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/6"</span>) -<span id="L10763" class="LineNr">10763 </span> (<a href='109stream-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#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/7"</span>) -<span id="L10764" class="LineNr">10764 </span> <span class="subxComment"># length instruction</span> -<span id="L10765" class="LineNr">10765 </span> (<a href='109stream-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#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/8"</span>) -<span id="L10766" class="LineNr">10766 </span> (<a href='109stream-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#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/9"</span>) -<span id="L10767" class="LineNr">10767 </span> (<a href='109stream-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#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/10"</span>) -<span id="L10768" class="LineNr">10768 </span> (<a href='109stream-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#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/11"</span>) -<span id="L10769" class="LineNr">10769 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/12"</span>) -<span id="L10770" class="LineNr">10770 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/13"</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">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/14"</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">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/15"</span>) -<span id="L10773" class="LineNr">10773 </span> <span class="subxComment"># reclaim arr</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">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/16"</span>) -<span id="L10775" class="LineNr">10775 </span> <span class="subxComment">#</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/17"</span>) -<span id="L10777" class="LineNr">10777 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/18"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-eax/19"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/20"</span>) -<span id="L10780" class="LineNr">10780 </span> (<a href='109stream-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#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/21"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10726'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/22"</span>) -<span id="L10782" class="LineNr">10782 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10783" class="LineNr">10783 </span> 89/<- %esp 5/r32/ebp -<span id="L10784" class="LineNr">10784 </span> 5d/pop-to-ebp -<span id="L10785" class="LineNr">10785 </span> c3/return -<span id="L10786" class="LineNr">10786 </span> -<span id="L10787" class="LineNr">10787 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-ecx</span>: -<span id="L10788" class="LineNr">10788 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10789" class="LineNr">10789 </span> 55/push-ebp -<span id="L10790" class="LineNr">10790 </span> 89/<- %ebp 4/r32/esp -<span id="L10791" class="LineNr">10791 </span> <span class="subxComment"># setup</span> -<span id="L10792" class="LineNr">10792 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10793" class="LineNr">10793 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10794" class="LineNr">10794 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10795" class="LineNr">10795 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10796" class="LineNr">10796 </span> <span class="subxComment">#</span> -<span id="L10797" class="LineNr">10797 </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="L10798" class="LineNr">10798 </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="L10799" class="LineNr">10799 </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="L10800" class="LineNr">10800 </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="L10801" class="LineNr">10801 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10802" class="LineNr">10802 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10803" class="LineNr">10803 </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="L10804" class="LineNr">10804 </span> (<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="L10805" class="LineNr">10805 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10806" class="LineNr">10806 </span> <span class="subxComment"># convert</span> -<span id="L10807" class="LineNr">10807 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L10808" class="LineNr">10808 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10809" class="Folded">10809 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10815" class="LineNr">10815 </span> <span class="subxComment"># check output</span> -<span id="L10816" class="LineNr">10816 </span> (<a href='109stream-equal.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#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-ecx/1"</span>) -<span id="L10818" class="LineNr">10818 </span> (<a href='109stream-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#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/4"</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">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/5"</span>) -<span id="L10822" class="LineNr">10822 </span> <span class="subxComment"># var a</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/6"</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">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/7"</span>) -<span id="L10825" class="LineNr">10825 </span> <span class="subxComment"># var x</span> -<span id="L10826" class="LineNr">10826 </span> (<a href='109stream-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#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/8"</span>) -<span id="L10827" class="LineNr">10827 </span> <span class="subxComment"># length instruction</span> -<span id="L10828" class="LineNr">10828 </span> (<a href='109stream-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#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/9"</span>) -<span id="L10829" class="LineNr">10829 </span> (<a href='109stream-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#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/10"</span>) -<span id="L10830" class="LineNr">10830 </span> (<a href='109stream-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#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/11"</span>) -<span id="L10831" class="LineNr">10831 </span> (<a href='109stream-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#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/12"</span>) -<span id="L10832" class="LineNr">10832 </span> (<a href='109stream-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#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/13"</span>) -<span id="L10833" class="LineNr">10833 </span> (<a href='109stream-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#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/14"</span>) -<span id="L10834" class="LineNr">10834 </span> (<a href='109stream-equal.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#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/15"</span>) -<span id="L10835" class="LineNr">10835 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/16"</span>) -<span id="L10836" class="LineNr">10836 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/17"</span>) -<span id="L10837" class="LineNr">10837 </span> <span class="subxComment"># reclaim x</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">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/18"</span>) -<span id="L10839" class="LineNr">10839 </span> <span class="subxComment"># reclaim a</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">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/19"</span>) -<span id="L10841" class="LineNr">10841 </span> <span class="subxComment">#</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/20"</span>) -<span id="L10843" class="LineNr">10843 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/21"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-ecx/22"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/23"</span>) -<span id="L10846" class="LineNr">10846 </span> (<a href='109stream-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#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/24"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10787'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/25"</span>) -<span id="L10848" class="LineNr">10848 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10849" class="LineNr">10849 </span> 89/<- %esp 5/r32/ebp -<span id="L10850" class="LineNr">10850 </span> 5d/pop-to-ebp -<span id="L10851" class="LineNr">10851 </span> c3/return -<span id="L10852" class="LineNr">10852 </span> -<span id="L10853" class="LineNr">10853 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-edx</span>: -<span id="L10854" class="LineNr">10854 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10855" class="LineNr">10855 </span> 55/push-ebp -<span id="L10856" class="LineNr">10856 </span> 89/<- %ebp 4/r32/esp -<span id="L10857" class="LineNr">10857 </span> <span class="subxComment"># setup</span> -<span id="L10858" class="LineNr">10858 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10859" class="LineNr">10859 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10860" class="LineNr">10860 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10861" class="LineNr">10861 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10862" class="LineNr">10862 </span> <span class="subxComment">#</span> -<span id="L10863" class="LineNr">10863 </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="L10864" class="LineNr">10864 </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="L10865" class="LineNr">10865 </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="L10866" class="LineNr">10866 </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="L10867" class="LineNr">10867 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10868" class="LineNr">10868 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10869" class="LineNr">10869 </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="L10870" class="LineNr">10870 </span> (<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="L10871" class="LineNr">10871 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10872" class="LineNr">10872 </span> <span class="subxComment"># convert</span> -<span id="L10873" class="LineNr">10873 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L10874" class="LineNr">10874 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10875" class="Folded">10875 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10881" class="LineNr">10881 </span> <span class="subxComment"># check output</span> -<span id="L10882" class="LineNr">10882 </span> (<a href='109stream-equal.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#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-edx/1"</span>) -<span id="L10884" class="LineNr">10884 </span> (<a href='109stream-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#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/4"</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">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/5"</span>) -<span id="L10888" class="LineNr">10888 </span> <span class="subxComment"># var a</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/6"</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">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/7"</span>) -<span id="L10891" class="LineNr">10891 </span> <span class="subxComment"># var x</span> -<span id="L10892" class="LineNr">10892 </span> (<a href='109stream-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#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/8"</span>) -<span id="L10893" class="LineNr">10893 </span> <span class="subxComment"># length instruction</span> -<span id="L10894" class="LineNr">10894 </span> (<a href='109stream-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#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/9"</span>) -<span id="L10895" class="LineNr">10895 </span> (<a href='109stream-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#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/10"</span>) -<span id="L10896" class="LineNr">10896 </span> (<a href='109stream-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#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/11"</span>) -<span id="L10897" class="LineNr">10897 </span> (<a href='109stream-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#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/12"</span>) -<span id="L10898" class="LineNr">10898 </span> (<a href='109stream-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#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/13"</span>) -<span id="L10899" class="LineNr">10899 </span> (<a href='109stream-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#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/14"</span>) -<span id="L10900" class="LineNr">10900 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %edx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/15"</span>) -<span id="L10901" class="LineNr">10901 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/16"</span>) -<span id="L10902" class="LineNr">10902 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/17"</span>) -<span id="L10903" class="LineNr">10903 </span> <span class="subxComment"># reclaim x</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">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/18"</span>) -<span id="L10905" class="LineNr">10905 </span> <span class="subxComment"># reclaim a</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">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/19"</span>) -<span id="L10907" class="LineNr">10907 </span> <span class="subxComment">#</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/20"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/21"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-edx/22"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/23"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/24"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10853'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/25"</span>) -<span id="L10914" class="LineNr">10914 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10915" class="LineNr">10915 </span> 89/<- %esp 5/r32/ebp -<span id="L10916" class="LineNr">10916 </span> 5d/pop-to-ebp -<span id="L10917" class="LineNr">10917 </span> c3/return -<span id="L10918" class="LineNr">10918 </span> -<span id="L10919" class="LineNr">10919 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types</span>: -<span id="L10920" class="LineNr">10920 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10921" class="LineNr">10921 </span> 55/push-ebp -<span id="L10922" class="LineNr">10922 </span> 89/<- %ebp 4/r32/esp -<span id="L10923" class="LineNr">10923 </span> <span class="subxComment"># setup</span> -<span id="L10924" class="LineNr">10924 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10925" class="LineNr">10925 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10926" class="LineNr">10926 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L10927" class="LineNr">10927 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10928" class="LineNr">10928 </span> <span class="subxComment">#</span> -<span id="L10929" class="LineNr">10929 </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="L10930" class="LineNr">10930 </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="L10931" class="LineNr">10931 </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="L10932" class="LineNr">10932 </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="L10933" class="LineNr">10933 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10934" class="LineNr">10934 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10935" class="LineNr">10935 </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="L10936" class="LineNr">10936 </span> (<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="L10937" class="LineNr">10937 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10938" class="LineNr">10938 </span> <span class="subxComment"># convert</span> -<span id="L10939" class="LineNr">10939 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L10940" class="LineNr">10940 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L10941" class="Folded">10941 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10947" class="LineNr">10947 </span> <span class="subxComment"># check output</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:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10919'>test-convert-length-of-array-of-user-defined-types</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10919'>test-convert-length-of-array-of-user-defined-types</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10919'>test-convert-length-of-array-of-user-defined-types</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10919'>test-convert-length-of-array-of-user-defined-types</a>/4"</span>) -<span id="L10953" class="LineNr">10953 </span> (<a href='109stream-equal.subx.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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/5"</span>) -<span id="L10954" class="LineNr">10954 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/6"</span>) -<span id="L10955" class="LineNr">10955 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/7"</span>) -<span id="L10956" class="LineNr">10956 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/8"</span>) -<span id="L10957" class="LineNr">10957 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/9"</span>) -<span id="L10958" class="LineNr">10958 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/10"</span>) -<span id="L10959" class="LineNr">10959 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10919'>test-convert-length-of-array-of-user-defined-types</a>/11"</span>) -<span id="L10960" class="LineNr">10960 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/12"</span>) -<span id="L10961" class="LineNr">10961 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/13"</span>) -<span id="L10962" class="LineNr">10962 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/14"</span>) -<span id="L10963" class="LineNr">10963 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/15"</span>) -<span id="L10964" class="LineNr">10964 </span> (<a href='109stream-equal.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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/16"</span>) -<span id="L10965" class="LineNr">10965 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/17"</span>) -<span id="L10966" class="LineNr">10966 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/18"</span>) -<span id="L10967" class="LineNr">10967 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/19"</span>) -<span id="L10968" class="LineNr">10968 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/20"</span>) -<span id="L10969" class="LineNr">10969 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/21"</span>) -<span id="L10970" class="LineNr">10970 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10919'>test-convert-length-of-array-of-user-defined-types</a>/22"</span>) -<span id="L10971" class="LineNr">10971 </span> (<a href='109stream-equal.subx.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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/23"</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#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="L10973" class="LineNr">10973 </span> (<a href='109stream-equal.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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/25"</span>) -<span id="L10974" class="LineNr">10974 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/26"</span>) -<span id="L10975" class="LineNr">10975 </span> (<a href='109stream-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#L10919'>test-convert-length-of-array-of-user-defined-types</a>/27"</span>) -<span id="L10976" class="LineNr">10976 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10977" class="LineNr">10977 </span> 89/<- %esp 5/r32/ebp -<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-atom-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="L10682" class="LineNr">10682 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10683" class="LineNr">10683 </span> <span class="subxComment"># convert</span> +<span id="L10684" class="LineNr">10684 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10685" class="LineNr">10685 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10686" class="LineNr">10686 </span> <span class="subxComment"># restore ed</span> +<span id="L10687" class="LineNr">10687 </span> 89/<- %edx 4/r32/esp +<span id="L10688" class="LineNr">10688 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10689" class="LineNr">10689 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10690" class="Folded">10690 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10696" class="LineNr">10696 </span> <span class="subxComment"># check output</span> +<span id="L10697" class="LineNr">10697 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10659'>test-get-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L10698" class="LineNr">10698 </span> (<a href='109stream-equal.subx.html#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#L10659'>test-get-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10699" class="LineNr">10699 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10700" class="LineNr">10700 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10659'>test-get-with-too-many-inouts</a>: exit status"</span>) +<span id="L10701" class="LineNr">10701 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10702" class="LineNr">10702 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10703" class="LineNr">10703 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10704" class="LineNr">10704 </span> 5d/pop-to-ebp +<span id="L10705" class="LineNr">10705 </span> c3/return +<span id="L10706" class="LineNr">10706 </span> +<span id="L10707" class="LineNr">10707 </span><span class="subxTest">test-get-with-no-output</span>: +<span id="L10708" class="LineNr">10708 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10709" class="LineNr">10709 </span> 55/push-ebp +<span id="L10710" class="LineNr">10710 </span> 89/<- %ebp 4/r32/esp +<span id="L10711" class="LineNr">10711 </span> <span class="subxComment"># setup</span> +<span id="L10712" class="LineNr">10712 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10713" class="LineNr">10713 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10714" class="LineNr">10714 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10715" class="LineNr">10715 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10716" class="LineNr">10716 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10717" class="LineNr">10717 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10718" class="LineNr">10718 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10719" class="LineNr">10719 </span> 68/push 0/imm32 +<span id="L10720" class="LineNr">10720 </span> 68/push 0/imm32 +<span id="L10721" class="LineNr">10721 </span> 89/<- %edx 4/r32/esp +<span id="L10722" class="LineNr">10722 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10723" class="LineNr">10723 </span> <span class="subxComment">#</span> +<span id="L10724" class="LineNr">10724 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10725" class="LineNr">10725 </span> (<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="L10726" class="LineNr">10726 </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="L10727" class="LineNr">10727 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10728" class="LineNr">10728 </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="L10729" class="LineNr">10729 </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="L10730" class="LineNr">10730 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10731" class="LineNr">10731 </span> <span class="subxComment"># convert</span> +<span id="L10732" class="LineNr">10732 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10733" class="LineNr">10733 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10734" class="LineNr">10734 </span> <span class="subxComment"># restore ed</span> +<span id="L10735" class="LineNr">10735 </span> 89/<- %edx 4/r32/esp +<span id="L10736" class="LineNr">10736 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10737" class="LineNr">10737 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10738" class="Folded">10738 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10744" class="LineNr">10744 </span> <span class="subxComment"># check output</span> +<span id="L10745" class="LineNr">10745 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10707'>test-get-with-no-output</a>: output should be empty"</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#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#L10707'>test-get-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10747" class="LineNr">10747 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10748" class="LineNr">10748 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10707'>test-get-with-no-output</a>: exit status"</span>) +<span id="L10749" class="LineNr">10749 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10750" class="LineNr">10750 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10751" class="LineNr">10751 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10752" class="LineNr">10752 </span> 5d/pop-to-ebp +<span id="L10753" class="LineNr">10753 </span> c3/return +<span id="L10754" class="LineNr">10754 </span> +<span id="L10755" class="LineNr">10755 </span><span class="subxTest">test-get-with-too-many-outputs</span>: +<span id="L10756" class="LineNr">10756 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10757" class="LineNr">10757 </span> 55/push-ebp +<span id="L10758" class="LineNr">10758 </span> 89/<- %ebp 4/r32/esp +<span id="L10759" class="LineNr">10759 </span> <span class="subxComment"># setup</span> +<span id="L10760" class="LineNr">10760 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10761" class="LineNr">10761 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10762" class="LineNr">10762 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10763" class="LineNr">10763 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10764" class="LineNr">10764 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10765" class="LineNr">10765 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10766" class="LineNr">10766 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10767" class="LineNr">10767 </span> 68/push 0/imm32 +<span id="L10768" class="LineNr">10768 </span> 68/push 0/imm32 +<span id="L10769" class="LineNr">10769 </span> 89/<- %edx 4/r32/esp +<span id="L10770" class="LineNr">10770 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10771" class="LineNr">10771 </span> <span class="subxComment">#</span> +<span id="L10772" class="LineNr">10772 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10773" class="LineNr">10773 </span> (<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="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">" var b: int\n"</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">" var c/eax: (addr int) <- copy 0\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">" c, b <- <a href='131table.subx.html#L26'>get</a> a, x\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">"}\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">"type t {\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">" x: int\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">"}\n"</span>) +<span id="L10781" class="LineNr">10781 </span> <span class="subxComment"># convert</span> +<span id="L10782" class="LineNr">10782 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10783" class="LineNr">10783 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10784" class="LineNr">10784 </span> <span class="subxComment"># restore ed</span> +<span id="L10785" class="LineNr">10785 </span> 89/<- %edx 4/r32/esp +<span id="L10786" class="LineNr">10786 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10787" class="LineNr">10787 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10788" class="Folded">10788 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10794" class="LineNr">10794 </span> <span class="subxComment"># check output</span> +<span id="L10795" class="LineNr">10795 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10755'>test-get-with-too-many-outputs</a>: output should be empty"</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#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#L10755'>test-get-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10797" class="LineNr">10797 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10798" class="LineNr">10798 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10755'>test-get-with-too-many-outputs</a>: exit status"</span>) +<span id="L10799" class="LineNr">10799 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10800" class="LineNr">10800 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10801" class="LineNr">10801 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10802" class="LineNr">10802 </span> 5d/pop-to-ebp +<span id="L10803" class="LineNr">10803 </span> c3/return +<span id="L10804" class="LineNr">10804 </span> +<span id="L10805" class="LineNr">10805 </span><span class="subxTest">test-convert-array-of-user-defined-types</span>: +<span id="L10806" class="LineNr">10806 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10807" class="LineNr">10807 </span> 55/push-ebp +<span id="L10808" class="LineNr">10808 </span> 89/<- %ebp 4/r32/esp +<span id="L10809" class="LineNr">10809 </span> <span class="subxComment"># setup</span> +<span id="L10810" class="LineNr">10810 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10811" class="LineNr">10811 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10812" class="LineNr">10812 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10813" class="LineNr">10813 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10814" class="LineNr">10814 </span> <span class="subxComment">#</span> +<span id="L10815" class="LineNr">10815 </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="L10816" class="LineNr">10816 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10817" class="LineNr">10817 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L10818" class="LineNr">10818 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10819" class="LineNr">10819 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\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">" var arr/eax: (addr array t) <- copy 0\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">" var idx/ecx: int <- copy 3\n"</span>) +<span id="L10822" class="LineNr">10822 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr t) <- index arr, idx\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">"}\n"</span>) +<span id="L10824" class="LineNr">10824 </span> <span class="subxComment"># convert</span> +<span id="L10825" class="LineNr">10825 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L10826" class="LineNr">10826 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10827" class="Folded">10827 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10833" class="LineNr">10833 </span> <span class="subxComment"># check output</span> +<span id="L10834" class="LineNr">10834 </span> (<a href='109stream-equal.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#L10805'>test-convert-array-of-user-defined-types</a>/0"</span>) +<span id="L10835" class="LineNr">10835 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/1"</span>) +<span id="L10836" class="LineNr">10836 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/4"</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">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/5"</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/6"</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">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/7"</span>) +<span id="L10842" class="LineNr">10842 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/8"</span>) +<span id="L10843" class="LineNr">10843 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/9"</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">" (<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#L10805'>test-convert-array-of-user-defined-types</a>/10"</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">" 81 7/subop/compare %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/12"</span>) +<span id="L10846" class="LineNr">10846 </span> (<a href='109stream-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#L10805'>test-convert-array-of-user-defined-types</a>/13"</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">" 8d/copy-address *(eax + ecx<<0x00000003 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/14"</span>) +<span id="L10848" class="LineNr">10848 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/15"</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">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/16"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/17"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/18"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/19"</span>) +<span id="L10853" class="LineNr">10853 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/20"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/21"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10805'>test-convert-array-of-user-defined-types</a>/22"</span>) +<span id="L10856" class="LineNr">10856 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10857" class="LineNr">10857 </span> 89/<- %esp 5/r32/ebp +<span id="L10858" class="LineNr">10858 </span> 5d/pop-to-ebp +<span id="L10859" class="LineNr">10859 </span> c3/return +<span id="L10860" class="LineNr">10860 </span> +<span id="L10861" class="LineNr">10861 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-eax</span>: +<span id="L10862" class="LineNr">10862 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10863" class="LineNr">10863 </span> 55/push-ebp +<span id="L10864" class="LineNr">10864 </span> 89/<- %ebp 4/r32/esp +<span id="L10865" class="LineNr">10865 </span> <span class="subxComment"># setup</span> +<span id="L10866" class="LineNr">10866 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10867" class="LineNr">10867 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10868" class="LineNr">10868 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10869" class="LineNr">10869 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10870" class="LineNr">10870 </span> <span class="subxComment">#</span> +<span id="L10871" class="LineNr">10871 </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="L10872" class="LineNr">10872 </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="L10873" class="LineNr">10873 </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="L10874" class="LineNr">10874 </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="L10875" class="LineNr">10875 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10876" class="LineNr">10876 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10877" class="LineNr">10877 </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="L10878" class="LineNr">10878 </span> (<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="L10879" class="LineNr">10879 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10880" class="LineNr">10880 </span> <span class="subxComment"># convert</span> +<span id="L10881" class="LineNr">10881 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L10882" class="LineNr">10882 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10883" class="Folded">10883 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10889" class="LineNr">10889 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/0"</span>) +<span id="L10891" class="LineNr">10891 </span> (<a href='109stream-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="L10892" class="LineNr">10892 </span> (<a href='109stream-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#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/2"</span>) +<span id="L10893" class="LineNr">10893 </span> (<a href='109stream-equal.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#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/3"</span>) +<span id="L10894" class="LineNr">10894 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/4"</span>) +<span id="L10895" class="LineNr">10895 </span> (<a href='109stream-equal.subx.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#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/5"</span>) +<span id="L10896" class="LineNr">10896 </span> <span class="subxComment"># var arr</span> +<span id="L10897" class="LineNr">10897 </span> (<a href='109stream-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#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/6"</span>) +<span id="L10898" class="LineNr">10898 </span> (<a href='109stream-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#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/7"</span>) +<span id="L10899" class="LineNr">10899 </span> <span class="subxComment"># length instruction</span> +<span id="L10900" class="LineNr">10900 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/8"</span>) +<span id="L10901" class="LineNr">10901 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/9"</span>) +<span id="L10902" class="LineNr">10902 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/10"</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">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/11"</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">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/12"</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">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/13"</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">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/14"</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">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/15"</span>) +<span id="L10908" class="LineNr">10908 </span> <span class="subxComment"># reclaim arr</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">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/16"</span>) +<span id="L10910" class="LineNr">10910 </span> <span class="subxComment">#</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/17"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/18"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-eax/19"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/20"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/21"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10861'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/22"</span>) +<span id="L10917" class="LineNr">10917 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10918" class="LineNr">10918 </span> 89/<- %esp 5/r32/ebp +<span id="L10919" class="LineNr">10919 </span> 5d/pop-to-ebp +<span id="L10920" class="LineNr">10920 </span> c3/return +<span id="L10921" class="LineNr">10921 </span> +<span id="L10922" class="LineNr">10922 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-ecx</span>: +<span id="L10923" class="LineNr">10923 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10924" class="LineNr">10924 </span> 55/push-ebp +<span id="L10925" class="LineNr">10925 </span> 89/<- %ebp 4/r32/esp +<span id="L10926" class="LineNr">10926 </span> <span class="subxComment"># setup</span> +<span id="L10927" class="LineNr">10927 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10928" class="LineNr">10928 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10929" class="LineNr">10929 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10930" class="LineNr">10930 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10931" class="LineNr">10931 </span> <span class="subxComment">#</span> +<span id="L10932" class="LineNr">10932 </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="L10933" class="LineNr">10933 </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="L10934" class="LineNr">10934 </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="L10935" class="LineNr">10935 </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="L10936" class="LineNr">10936 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10937" class="LineNr">10937 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10938" class="LineNr">10938 </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="L10939" class="LineNr">10939 </span> (<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="L10940" class="LineNr">10940 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10941" class="LineNr">10941 </span> <span class="subxComment"># convert</span> +<span id="L10942" class="LineNr">10942 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L10943" class="LineNr">10943 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10944" class="Folded">10944 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10950" class="LineNr">10950 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-ecx/1"</span>) +<span id="L10953" class="LineNr">10953 </span> (<a href='109stream-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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/2"</span>) +<span id="L10954" class="LineNr">10954 </span> (<a href='109stream-equal.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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/3"</span>) +<span id="L10955" class="LineNr">10955 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/4"</span>) +<span id="L10956" class="LineNr">10956 </span> (<a href='109stream-equal.subx.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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/5"</span>) +<span id="L10957" class="LineNr">10957 </span> <span class="subxComment"># var a</span> +<span id="L10958" class="LineNr">10958 </span> (<a href='109stream-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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/6"</span>) +<span id="L10959" class="LineNr">10959 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/7"</span>) +<span id="L10960" class="LineNr">10960 </span> <span class="subxComment"># var x</span> +<span id="L10961" class="LineNr">10961 </span> (<a href='109stream-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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/8"</span>) +<span id="L10962" class="LineNr">10962 </span> <span class="subxComment"># length instruction</span> +<span id="L10963" class="LineNr">10963 </span> (<a href='109stream-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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/9"</span>) +<span id="L10964" class="LineNr">10964 </span> (<a href='109stream-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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/10"</span>) +<span id="L10965" class="LineNr">10965 </span> (<a href='109stream-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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/11"</span>) +<span id="L10966" class="LineNr">10966 </span> (<a href='109stream-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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/12"</span>) +<span id="L10967" class="LineNr">10967 </span> (<a href='109stream-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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/13"</span>) +<span id="L10968" class="LineNr">10968 </span> (<a href='109stream-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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/14"</span>) +<span id="L10969" class="LineNr">10969 </span> (<a href='109stream-equal.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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/15"</span>) +<span id="L10970" class="LineNr">10970 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/16"</span>) +<span id="L10971" class="LineNr">10971 </span> (<a href='109stream-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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/17"</span>) +<span id="L10972" class="LineNr">10972 </span> <span class="subxComment"># reclaim x</span> +<span id="L10973" class="LineNr">10973 </span> (<a href='109stream-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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/18"</span>) +<span id="L10974" class="LineNr">10974 </span> <span class="subxComment"># reclaim a</span> +<span id="L10975" class="LineNr">10975 </span> (<a href='109stream-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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/19"</span>) +<span id="L10976" class="LineNr">10976 </span> <span class="subxComment">#</span> +<span id="L10977" class="LineNr">10977 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/20"</span>) +<span id="L10978" class="LineNr">10978 </span> (<a href='109stream-equal.subx.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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/21"</span>) +<span id="L10979" class="LineNr">10979 </span> (<a href='109stream-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="L10980" class="LineNr">10980 </span> (<a href='109stream-equal.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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/23"</span>) +<span id="L10981" class="LineNr">10981 </span> (<a href='109stream-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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/24"</span>) +<span id="L10982" class="LineNr">10982 </span> (<a href='109stream-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#L10922'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/25"</span>) +<span id="L10983" class="LineNr">10983 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10984" class="LineNr">10984 </span> 89/<- %esp 5/r32/ebp +<span id="L10985" class="LineNr">10985 </span> 5d/pop-to-ebp +<span id="L10986" class="LineNr">10986 </span> c3/return +<span id="L10987" class="LineNr">10987 </span> +<span id="L10988" class="LineNr">10988 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-edx</span>: +<span id="L10989" class="LineNr">10989 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10990" class="LineNr">10990 </span> 55/push-ebp +<span id="L10991" class="LineNr">10991 </span> 89/<- %ebp 4/r32/esp +<span id="L10992" class="LineNr">10992 </span> <span class="subxComment"># setup</span> +<span id="L10993" class="LineNr">10993 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10994" class="LineNr">10994 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10995" class="LineNr">10995 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10996" class="LineNr">10996 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) <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: 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-atom-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-atom-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-atom-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</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="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">"type t {\n"</span>) <span class="subxComment"># size = 12, which is not a power of 2</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">" x: 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">" y: int\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">" z: int\n"</span>) +<span id="L11002" class="LineNr">11002 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11003" class="LineNr">11003 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11004" class="LineNr">11004 </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="L11005" class="LineNr">11005 </span> (<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="L11006" class="LineNr">11006 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11007" class="LineNr">11007 </span> <span class="subxComment"># convert</span> +<span id="L11008" class="LineNr">11008 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L11009" class="LineNr">11009 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11010" class="Folded">11010 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11016" class="LineNr">11016 </span> <span class="subxComment"># check output</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#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/0"</span>) +<span id="L11018" class="LineNr">11018 </span> (<a href='109stream-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="L11019" class="LineNr">11019 </span> (<a href='109stream-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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/2"</span>) +<span id="L11020" class="LineNr">11020 </span> (<a href='109stream-equal.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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/3"</span>) +<span id="L11021" class="LineNr">11021 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/4"</span>) +<span id="L11022" class="LineNr">11022 </span> (<a href='109stream-equal.subx.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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/5"</span>) +<span id="L11023" class="LineNr">11023 </span> <span class="subxComment"># var a</span> +<span id="L11024" class="LineNr">11024 </span> (<a href='109stream-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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/6"</span>) +<span id="L11025" class="LineNr">11025 </span> (<a href='109stream-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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/7"</span>) +<span id="L11026" class="LineNr">11026 </span> <span class="subxComment"># var x</span> +<span id="L11027" class="LineNr">11027 </span> (<a href='109stream-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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/8"</span>) +<span id="L11028" class="LineNr">11028 </span> <span class="subxComment"># length instruction</span> +<span id="L11029" class="LineNr">11029 </span> (<a href='109stream-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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/9"</span>) +<span id="L11030" class="LineNr">11030 </span> (<a href='109stream-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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/10"</span>) +<span id="L11031" class="LineNr">11031 </span> (<a href='109stream-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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/11"</span>) +<span id="L11032" class="LineNr">11032 </span> (<a href='109stream-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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/12"</span>) +<span id="L11033" class="LineNr">11033 </span> (<a href='109stream-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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/13"</span>) +<span id="L11034" class="LineNr">11034 </span> (<a href='109stream-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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/14"</span>) +<span id="L11035" class="LineNr">11035 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %edx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/15"</span>) +<span id="L11036" class="LineNr">11036 </span> (<a href='109stream-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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/16"</span>) +<span id="L11037" class="LineNr">11037 </span> (<a href='109stream-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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/17"</span>) +<span id="L11038" class="LineNr">11038 </span> <span class="subxComment"># reclaim x</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#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/18"</span>) +<span id="L11040" class="LineNr">11040 </span> <span class="subxComment"># reclaim a</span> +<span id="L11041" class="LineNr">11041 </span> (<a href='109stream-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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/19"</span>) <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: (handle 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</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</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</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-non-array-compound-base-type-2</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: (addr int)\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-non-array-compound-base-type-2</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: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11071'>test-index-with-non-array-compound-base-type-2</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-non-array-compound-base-type-2</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="L11043" class="LineNr">11043 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/20"</span>) +<span id="L11044" class="LineNr">11044 </span> (<a href='109stream-equal.subx.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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/21"</span>) +<span id="L11045" class="LineNr">11045 </span> (<a href='109stream-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="L11046" class="LineNr">11046 </span> (<a href='109stream-equal.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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/23"</span>) +<span id="L11047" class="LineNr">11047 </span> (<a href='109stream-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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/24"</span>) +<span id="L11048" class="LineNr">11048 </span> (<a href='109stream-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#L10988'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/25"</span>) +<span id="L11049" class="LineNr">11049 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11050" class="LineNr">11050 </span> 89/<- %esp 5/r32/ebp +<span id="L11051" class="LineNr">11051 </span> 5d/pop-to-ebp +<span id="L11052" class="LineNr">11052 </span> c3/return +<span id="L11053" class="LineNr">11053 </span> +<span id="L11054" class="LineNr">11054 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types</span>: +<span id="L11055" class="LineNr">11055 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11056" class="LineNr">11056 </span> 55/push-ebp +<span id="L11057" class="LineNr">11057 </span> 89/<- %ebp 4/r32/esp +<span id="L11058" class="LineNr">11058 </span> <span class="subxComment"># setup</span> +<span id="L11059" class="LineNr">11059 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11060" class="LineNr">11060 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11061" class="LineNr">11061 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11062" class="LineNr">11062 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11063" class="LineNr">11063 </span> <span class="subxComment">#</span> +<span id="L11064" class="LineNr">11064 </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="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">" x: int\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">" y: 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">" z: int\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> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11070" class="LineNr">11070 </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="L11071" class="LineNr">11071 </span> (<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="L11072" class="LineNr">11072 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11073" class="LineNr">11073 </span> <span class="subxComment"># convert</span> +<span id="L11074" class="LineNr">11074 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L11075" class="LineNr">11075 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11076" class="Folded">11076 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-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#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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/0"</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#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="L11085" class="LineNr">11085 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/2"</span>) +<span id="L11086" class="LineNr">11086 </span> (<a href='109stream-equal.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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/3"</span>) +<span id="L11087" class="LineNr">11087 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L11054'>test-convert-length-of-array-of-user-defined-types</a>/4"</span>) +<span id="L11088" class="LineNr">11088 </span> (<a href='109stream-equal.subx.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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/5"</span>) +<span id="L11089" class="LineNr">11089 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/6"</span>) +<span id="L11090" class="LineNr">11090 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/7"</span>) +<span id="L11091" class="LineNr">11091 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/8"</span>) +<span id="L11092" class="LineNr">11092 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/9"</span>) +<span id="L11093" class="LineNr">11093 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/10"</span>) +<span id="L11094" class="LineNr">11094 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/11"</span>) +<span id="L11095" class="LineNr">11095 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/12"</span>) +<span id="L11096" class="LineNr">11096 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/13"</span>) +<span id="L11097" class="LineNr">11097 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L11054'>test-convert-length-of-array-of-user-defined-types</a>/14"</span>) +<span id="L11098" class="LineNr">11098 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/15"</span>) +<span id="L11099" class="LineNr">11099 </span> (<a href='109stream-equal.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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/16"</span>) +<span id="L11100" class="LineNr">11100 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/17"</span>) +<span id="L11101" class="LineNr">11101 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/18"</span>) +<span id="L11102" class="LineNr">11102 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/19"</span>) +<span id="L11103" class="LineNr">11103 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/20"</span>) +<span id="L11104" class="LineNr">11104 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/21"</span>) +<span id="L11105" class="LineNr">11105 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L11054'>test-convert-length-of-array-of-user-defined-types</a>/22"</span>) +<span id="L11106" class="LineNr">11106 </span> (<a href='109stream-equal.subx.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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/23"</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#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="L11108" class="LineNr">11108 </span> (<a href='109stream-equal.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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/25"</span>) +<span id="L11109" class="LineNr">11109 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/26"</span>) +<span id="L11110" class="LineNr">11110 </span> (<a href='109stream-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#L11054'>test-convert-length-of-array-of-user-defined-types</a>/27"</span>) +<span id="L11111" class="LineNr">11111 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11112" class="LineNr">11112 </span> 89/<- %esp 5/r32/ebp <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-array-atom-base-type</span>: +<span id="L11116" class="LineNr">11116 </span><span class="subxTest">test-index-with-non-array-atom-base-type</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 @@ -10133,7 +10133,7 @@ if ('onhashchange' in window) { <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: array\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: 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> @@ -10143,19 +10143,19 @@ if ('onhashchange' in window) { <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="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-array-atom-base-type</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: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L11116'>test-index-with-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</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-non-array-atom-base-type</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 not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11116'>test-index-with-non-array-atom-base-type</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-array-atom-base-type</a>: exit status"</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-non-array-atom-base-type</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-addr-base-on-stack</span>: +<span id="L11161" class="LineNr">11161 </span><span class="subxTest">test-index-with-non-array-compound-base-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 @@ -10173,7 +10173,7 @@ if ('onhashchange' in window) { <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: (addr array int)\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: (handle int)\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 c/ecx: (addr int) <- index a, 0\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">"}\n"</span>) <span id="L11182" class="LineNr">11182 </span> <span class="subxComment"># convert</span> @@ -10183,19 +10183,19 @@ if ('onhashchange' in window) { <span id="L11186" class="LineNr">11186 </span> 89/<- %edx 4/r32/esp <span id="L11187" class="LineNr">11187 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L11188" class="LineNr">11188 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11189" class="Folded">11189 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11189" class="Folded">11189 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11195" class="LineNr">11195 </span> <span class="subxComment"># check output</span> -<span id="L11196" class="LineNr">11196 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-addr-base-on-stack</a>: output should be empty"</span>) -<span id="L11197" class="LineNr">11197 </span> (<a href='109stream-equal.subx.html#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#L11161'>test-index-with-addr-base-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11196" class="LineNr">11196 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-non-array-compound-base-type</a>: output should be empty"</span>) +<span id="L11197" class="LineNr">11197 </span> (<a href='109stream-equal.subx.html#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#L11161'>test-index-with-non-array-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L11198" class="LineNr">11198 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11199" class="LineNr">11199 </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-addr-base-on-stack</a>: exit status"</span>) +<span id="L11199" class="LineNr">11199 </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-non-array-compound-base-type</a>: exit status"</span>) <span id="L11200" class="LineNr">11200 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L11201" class="LineNr">11201 </span> 81 0/subop/add %esp 8/imm32 <span id="L11202" class="LineNr">11202 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L11203" class="LineNr">11203 </span> 5d/pop-to-ebp <span id="L11204" class="LineNr">11204 </span> c3/return <span id="L11205" class="LineNr">11205 </span> -<span id="L11206" class="LineNr">11206 </span><span class="subxTest">test-index-with-wrong-index-type</span>: +<span id="L11206" class="LineNr">11206 </span><span class="subxTest">test-index-with-non-array-compound-base-type-2</span>: <span id="L11207" class="LineNr">11207 </span> <span class="subxS1Comment"># . prologue</span> <span id="L11208" class="LineNr">11208 </span> 55/push-ebp <span id="L11209" class="LineNr">11209 </span> 89/<- %ebp 4/r32/esp @@ -10213,257 +10213,257 @@ if ('onhashchange' in window) { <span id="L11221" class="LineNr">11221 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L11222" class="LineNr">11222 </span> <span class="subxComment">#</span> <span id="L11223" class="LineNr">11223 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11224" class="LineNr">11224 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\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 b: boolean\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 c/ecx: (addr int) <- index a, b\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">"}\n"</span>) -<span id="L11228" class="LineNr">11228 </span> <span class="subxComment"># convert</span> -<span id="L11229" class="LineNr">11229 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11230" class="LineNr">11230 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11231" class="LineNr">11231 </span> <span class="subxComment"># restore ed</span> -<span id="L11232" class="LineNr">11232 </span> 89/<- %edx 4/r32/esp -<span id="L11233" class="LineNr">11233 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11234" class="LineNr">11234 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11235" class="Folded">11235 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11241" class="LineNr">11241 </span> <span class="subxComment"># check output</span> -<span id="L11242" class="LineNr">11242 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11206'>test-index-with-wrong-index-type</a>: output should be empty"</span>) -<span id="L11243" class="LineNr">11243 </span> (<a href='109stream-equal.subx.html#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#L11206'>test-index-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11244" class="LineNr">11244 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11245" class="LineNr">11245 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11206'>test-index-with-wrong-index-type</a>: exit status"</span>) -<span id="L11246" class="LineNr">11246 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11247" class="LineNr">11247 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11248" class="LineNr">11248 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11249" class="LineNr">11249 </span> 5d/pop-to-ebp -<span id="L11250" class="LineNr">11250 </span> c3/return -<span id="L11251" class="LineNr">11251 </span> -<span id="L11252" class="LineNr">11252 </span><span class="subxTest">test-index-with-offset-atom-index-type</span>: -<span id="L11253" class="LineNr">11253 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11254" class="LineNr">11254 </span> 55/push-ebp -<span id="L11255" class="LineNr">11255 </span> 89/<- %ebp 4/r32/esp -<span id="L11256" class="LineNr">11256 </span> <span class="subxComment"># setup</span> -<span id="L11257" class="LineNr">11257 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11258" class="LineNr">11258 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11259" class="LineNr">11259 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11260" class="LineNr">11260 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11261" class="LineNr">11261 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11262" class="LineNr">11262 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11263" class="LineNr">11263 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11224" class="LineNr">11224 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) +<span id="L11225" class="LineNr">11225 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 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">"}\n"</span>) +<span id="L11227" class="LineNr">11227 </span> <span class="subxComment"># convert</span> +<span id="L11228" class="LineNr">11228 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11229" class="LineNr">11229 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11230" class="LineNr">11230 </span> <span class="subxComment"># restore ed</span> +<span id="L11231" class="LineNr">11231 </span> 89/<- %edx 4/r32/esp +<span id="L11232" class="LineNr">11232 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11233" class="LineNr">11233 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11234" class="Folded">11234 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11240" class="LineNr">11240 </span> <span class="subxComment"># check output</span> +<span id="L11241" class="LineNr">11241 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11206'>test-index-with-non-array-compound-base-type-2</a>: output should be empty"</span>) +<span id="L11242" class="LineNr">11242 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11206'>test-index-with-non-array-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11243" class="LineNr">11243 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11244" class="LineNr">11244 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11206'>test-index-with-non-array-compound-base-type-2</a>: exit status"</span>) +<span id="L11245" class="LineNr">11245 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11246" class="LineNr">11246 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11247" class="LineNr">11247 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11248" class="LineNr">11248 </span> 5d/pop-to-ebp +<span id="L11249" class="LineNr">11249 </span> c3/return +<span id="L11250" class="LineNr">11250 </span> +<span id="L11251" class="LineNr">11251 </span><span class="subxTest">test-index-with-array-atom-base-type</span>: +<span id="L11252" class="LineNr">11252 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11253" class="LineNr">11253 </span> 55/push-ebp +<span id="L11254" class="LineNr">11254 </span> 89/<- %ebp 4/r32/esp +<span id="L11255" class="LineNr">11255 </span> <span class="subxComment"># setup</span> +<span id="L11256" class="LineNr">11256 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11257" class="LineNr">11257 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11258" class="LineNr">11258 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11259" class="LineNr">11259 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11260" class="LineNr">11260 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11261" class="LineNr">11261 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11262" class="LineNr">11262 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11263" class="LineNr">11263 </span> 68/push 0/imm32 <span id="L11264" class="LineNr">11264 </span> 68/push 0/imm32 -<span id="L11265" class="LineNr">11265 </span> 68/push 0/imm32 -<span id="L11266" class="LineNr">11266 </span> 89/<- %edx 4/r32/esp -<span id="L11267" class="LineNr">11267 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11268" class="LineNr">11268 </span> <span class="subxComment">#</span> -<span id="L11269" class="LineNr">11269 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11270" class="LineNr">11270 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\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 b: offset\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 c/ecx: (addr int) <- index a, b\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">"}\n"</span>) -<span id="L11274" class="LineNr">11274 </span> <span class="subxComment"># convert</span> -<span id="L11275" class="LineNr">11275 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11276" class="LineNr">11276 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11277" class="LineNr">11277 </span> <span class="subxComment"># restore ed</span> -<span id="L11278" class="LineNr">11278 </span> 89/<- %edx 4/r32/esp -<span id="L11279" class="LineNr">11279 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11280" class="LineNr">11280 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11281" class="Folded">11281 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11287" class="LineNr">11287 </span> <span class="subxComment"># check output</span> -<span id="L11288" class="LineNr">11288 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11252'>test-index-with-offset-atom-index-type</a>: output should be empty"</span>) -<span id="L11289" class="LineNr">11289 </span> (<a href='109stream-equal.subx.html#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#L11252'>test-index-with-offset-atom-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11290" class="LineNr">11290 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11291" class="LineNr">11291 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11252'>test-index-with-offset-atom-index-type</a>: exit status"</span>) -<span id="L11292" class="LineNr">11292 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11293" class="LineNr">11293 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11294" class="LineNr">11294 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11295" class="LineNr">11295 </span> 5d/pop-to-ebp -<span id="L11296" class="LineNr">11296 </span> c3/return -<span id="L11297" class="LineNr">11297 </span> -<span id="L11298" class="LineNr">11298 </span><span class="subxTest">test-index-with-offset-on-stack</span>: -<span id="L11299" class="LineNr">11299 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11300" class="LineNr">11300 </span> 55/push-ebp -<span id="L11301" class="LineNr">11301 </span> 89/<- %ebp 4/r32/esp -<span id="L11302" class="LineNr">11302 </span> <span class="subxComment"># setup</span> -<span id="L11303" class="LineNr">11303 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11304" class="LineNr">11304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11305" class="LineNr">11305 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11306" class="LineNr">11306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11307" class="LineNr">11307 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11308" class="LineNr">11308 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11309" class="LineNr">11309 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11310" class="LineNr">11310 </span> 68/push 0/imm32 -<span id="L11311" class="LineNr">11311 </span> 68/push 0/imm32 -<span id="L11312" class="LineNr">11312 </span> 89/<- %edx 4/r32/esp -<span id="L11313" class="LineNr">11313 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11314" class="LineNr">11314 </span> <span class="subxComment">#</span> -<span id="L11315" class="LineNr">11315 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11316" class="LineNr">11316 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) -<span id="L11317" class="LineNr">11317 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: int\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 c/ecx: (addr int) <- index a, b\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">"}\n"</span>) -<span id="L11320" class="LineNr">11320 </span> <span class="subxComment"># convert</span> -<span id="L11321" class="LineNr">11321 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L11322" class="LineNr">11322 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11323" class="LineNr">11323 </span> <span class="subxComment"># restore ed</span> -<span id="L11324" class="LineNr">11324 </span> 89/<- %edx 4/r32/esp -<span id="L11325" class="LineNr">11325 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L11326" class="LineNr">11326 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11327" class="Folded">11327 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11333" class="LineNr">11333 </span> <span class="subxComment"># check output</span> -<span id="L11334" class="LineNr">11334 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11298'>test-index-with-offset-on-stack</a>: output should be empty"</span>) -<span id="L11335" class="LineNr">11335 </span> (<a href='109stream-equal.subx.html#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#L11298'>test-index-with-offset-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L11336" class="LineNr">11336 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11337" class="LineNr">11337 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11298'>test-index-with-offset-on-stack</a>: exit status"</span>) -<span id="L11338" class="LineNr">11338 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11339" class="LineNr">11339 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11340" class="LineNr">11340 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11341" class="LineNr">11341 </span> 5d/pop-to-ebp -<span id="L11342" class="LineNr">11342 </span> c3/return -<span id="L11343" class="LineNr">11343 </span> -<span id="L11344" class="LineNr">11344 </span><span class="subxTest">test-index-needs-offset-type</span>: -<span id="L11345" class="LineNr">11345 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11346" class="LineNr">11346 </span> 55/push-ebp -<span id="L11347" class="LineNr">11347 </span> 89/<- %ebp 4/r32/esp -<span id="L11348" class="LineNr">11348 </span> <span class="subxComment"># setup</span> -<span id="L11349" class="LineNr">11349 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11350" class="LineNr">11350 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11351" class="LineNr">11351 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L11352" class="LineNr">11352 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11353" class="LineNr">11353 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L11354" class="LineNr">11354 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11355" class="LineNr">11355 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11356" class="LineNr">11356 </span> 68/push 0/imm32 -<span id="L11357" class="LineNr">11357 </span> 68/push 0/imm32 -<span id="L11358" class="LineNr">11358 </span> 89/<- %edx 4/r32/esp -<span id="L11359" class="LineNr">11359 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11360" class="LineNr">11360 </span> <span class="subxComment">#</span> -<span id="L11361" class="LineNr">11361 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11362" class="LineNr">11362 </span> (<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="L11363" class="LineNr">11363 </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="L11364" class="LineNr">11364 </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="L11365" class="LineNr">11365 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11366" class="LineNr">11366 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size 12 is not a power of two</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">" x: int\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">" y: int\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">" z: int\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#L11344'>test-index-needs-offset-type</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: 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#L11344'>test-index-needs-offset-type</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#L11344'>test-index-needs-offset-type</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</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</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</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</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-output-not-address-2</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: (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-output-not-address-2</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' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L11440'>test-index-with-output-not-address-2</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-output-not-address-2</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-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 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 int) <- index a, 0\n"</span>) +<span id="L11265" class="LineNr">11265 </span> 89/<- %edx 4/r32/esp +<span id="L11266" class="LineNr">11266 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11267" class="LineNr">11267 </span> <span class="subxComment">#</span> +<span id="L11268" class="LineNr">11268 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11269" class="LineNr">11269 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: array\n"</span>) +<span id="L11270" class="LineNr">11270 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\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">"}\n"</span>) +<span id="L11272" class="LineNr">11272 </span> <span class="subxComment"># convert</span> +<span id="L11273" class="LineNr">11273 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11274" class="LineNr">11274 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11275" class="LineNr">11275 </span> <span class="subxComment"># restore ed</span> +<span id="L11276" class="LineNr">11276 </span> 89/<- %edx 4/r32/esp +<span id="L11277" class="LineNr">11277 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11278" class="LineNr">11278 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11279" class="Folded">11279 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11285" class="LineNr">11285 </span> <span class="subxComment"># check output</span> +<span id="L11286" class="LineNr">11286 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11251'>test-index-with-array-atom-base-type</a>: output should be empty"</span>) +<span id="L11287" class="LineNr">11287 </span> (<a href='109stream-equal.subx.html#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#L11251'>test-index-with-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11288" class="LineNr">11288 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11289" class="LineNr">11289 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11251'>test-index-with-array-atom-base-type</a>: exit status"</span>) +<span id="L11290" class="LineNr">11290 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11291" class="LineNr">11291 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11292" class="LineNr">11292 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11293" class="LineNr">11293 </span> 5d/pop-to-ebp +<span id="L11294" class="LineNr">11294 </span> c3/return +<span id="L11295" class="LineNr">11295 </span> +<span id="L11296" class="LineNr">11296 </span><span class="subxTest">test-index-with-addr-base-on-stack</span>: +<span id="L11297" class="LineNr">11297 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11298" class="LineNr">11298 </span> 55/push-ebp +<span id="L11299" class="LineNr">11299 </span> 89/<- %ebp 4/r32/esp +<span id="L11300" class="LineNr">11300 </span> <span class="subxComment"># setup</span> +<span id="L11301" class="LineNr">11301 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11302" class="LineNr">11302 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11303" class="LineNr">11303 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11304" class="LineNr">11304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11305" class="LineNr">11305 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11306" class="LineNr">11306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11307" class="LineNr">11307 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11308" class="LineNr">11308 </span> 68/push 0/imm32 +<span id="L11309" class="LineNr">11309 </span> 68/push 0/imm32 +<span id="L11310" class="LineNr">11310 </span> 89/<- %edx 4/r32/esp +<span id="L11311" class="LineNr">11311 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11312" class="LineNr">11312 </span> <span class="subxComment">#</span> +<span id="L11313" class="LineNr">11313 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11314" class="LineNr">11314 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr array int)\n"</span>) +<span id="L11315" class="LineNr">11315 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) +<span id="L11316" class="LineNr">11316 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11317" class="LineNr">11317 </span> <span class="subxComment"># convert</span> +<span id="L11318" class="LineNr">11318 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11319" class="LineNr">11319 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11320" class="LineNr">11320 </span> <span class="subxComment"># restore ed</span> +<span id="L11321" class="LineNr">11321 </span> 89/<- %edx 4/r32/esp +<span id="L11322" class="LineNr">11322 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11323" class="LineNr">11323 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11324" class="Folded">11324 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11330" class="LineNr">11330 </span> <span class="subxComment"># check output</span> +<span id="L11331" class="LineNr">11331 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11296'>test-index-with-addr-base-on-stack</a>: output should be empty"</span>) +<span id="L11332" class="LineNr">11332 </span> (<a href='109stream-equal.subx.html#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#L11296'>test-index-with-addr-base-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11333" class="LineNr">11333 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11334" class="LineNr">11334 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11296'>test-index-with-addr-base-on-stack</a>: exit status"</span>) +<span id="L11335" class="LineNr">11335 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11336" class="LineNr">11336 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11337" class="LineNr">11337 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11338" class="LineNr">11338 </span> 5d/pop-to-ebp +<span id="L11339" class="LineNr">11339 </span> c3/return +<span id="L11340" class="LineNr">11340 </span> +<span id="L11341" class="LineNr">11341 </span><span class="subxTest">test-index-with-wrong-index-type</span>: +<span id="L11342" class="LineNr">11342 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11343" class="LineNr">11343 </span> 55/push-ebp +<span id="L11344" class="LineNr">11344 </span> 89/<- %ebp 4/r32/esp +<span id="L11345" class="LineNr">11345 </span> <span class="subxComment"># setup</span> +<span id="L11346" class="LineNr">11346 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11347" class="LineNr">11347 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11348" class="LineNr">11348 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11349" class="LineNr">11349 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11350" class="LineNr">11350 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11351" class="LineNr">11351 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11352" class="LineNr">11352 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11353" class="LineNr">11353 </span> 68/push 0/imm32 +<span id="L11354" class="LineNr">11354 </span> 68/push 0/imm32 +<span id="L11355" class="LineNr">11355 </span> 89/<- %edx 4/r32/esp +<span id="L11356" class="LineNr">11356 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11357" class="LineNr">11357 </span> <span class="subxComment">#</span> +<span id="L11358" class="LineNr">11358 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11359" class="LineNr">11359 </span> (<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="L11360" class="LineNr">11360 </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="L11361" class="LineNr">11361 </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="L11362" class="LineNr">11362 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11363" class="LineNr">11363 </span> <span class="subxComment"># convert</span> +<span id="L11364" class="LineNr">11364 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11365" class="LineNr">11365 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11366" class="LineNr">11366 </span> <span class="subxComment"># restore ed</span> +<span id="L11367" class="LineNr">11367 </span> 89/<- %edx 4/r32/esp +<span id="L11368" class="LineNr">11368 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11369" class="LineNr">11369 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11370" class="Folded">11370 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11376" class="LineNr">11376 </span> <span class="subxComment"># check output</span> +<span id="L11377" class="LineNr">11377 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11341'>test-index-with-wrong-index-type</a>: output should be empty"</span>) +<span id="L11378" class="LineNr">11378 </span> (<a href='109stream-equal.subx.html#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#L11341'>test-index-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11379" class="LineNr">11379 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11380" class="LineNr">11380 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11341'>test-index-with-wrong-index-type</a>: exit status"</span>) +<span id="L11381" class="LineNr">11381 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11382" class="LineNr">11382 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11383" class="LineNr">11383 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11384" class="LineNr">11384 </span> 5d/pop-to-ebp +<span id="L11385" class="LineNr">11385 </span> c3/return +<span id="L11386" class="LineNr">11386 </span> +<span id="L11387" class="LineNr">11387 </span><span class="subxTest">test-index-with-offset-atom-index-type</span>: +<span id="L11388" class="LineNr">11388 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11389" class="LineNr">11389 </span> 55/push-ebp +<span id="L11390" class="LineNr">11390 </span> 89/<- %ebp 4/r32/esp +<span id="L11391" class="LineNr">11391 </span> <span class="subxComment"># setup</span> +<span id="L11392" class="LineNr">11392 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11393" class="LineNr">11393 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11394" class="LineNr">11394 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11395" class="LineNr">11395 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11396" class="LineNr">11396 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11397" class="LineNr">11397 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11398" class="LineNr">11398 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11399" class="LineNr">11399 </span> 68/push 0/imm32 +<span id="L11400" class="LineNr">11400 </span> 68/push 0/imm32 +<span id="L11401" class="LineNr">11401 </span> 89/<- %edx 4/r32/esp +<span id="L11402" class="LineNr">11402 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11403" class="LineNr">11403 </span> <span class="subxComment">#</span> +<span id="L11404" class="LineNr">11404 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11405" class="LineNr">11405 </span> (<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="L11406" class="LineNr">11406 </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="L11407" class="LineNr">11407 </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="L11408" class="LineNr">11408 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11409" class="LineNr">11409 </span> <span class="subxComment"># convert</span> +<span id="L11410" class="LineNr">11410 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11411" class="LineNr">11411 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11412" class="LineNr">11412 </span> <span class="subxComment"># restore ed</span> +<span id="L11413" class="LineNr">11413 </span> 89/<- %edx 4/r32/esp +<span id="L11414" class="LineNr">11414 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11415" class="LineNr">11415 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11416" class="Folded">11416 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11422" class="LineNr">11422 </span> <span class="subxComment"># check output</span> +<span id="L11423" class="LineNr">11423 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11387'>test-index-with-offset-atom-index-type</a>: output should be empty"</span>) +<span id="L11424" class="LineNr">11424 </span> (<a href='109stream-equal.subx.html#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#L11387'>test-index-with-offset-atom-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11425" class="LineNr">11425 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11426" class="LineNr">11426 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11387'>test-index-with-offset-atom-index-type</a>: exit status"</span>) +<span id="L11427" class="LineNr">11427 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11428" class="LineNr">11428 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11429" class="LineNr">11429 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11430" class="LineNr">11430 </span> 5d/pop-to-ebp +<span id="L11431" class="LineNr">11431 </span> c3/return +<span id="L11432" class="LineNr">11432 </span> +<span id="L11433" class="LineNr">11433 </span><span class="subxTest">test-index-with-offset-on-stack</span>: +<span id="L11434" class="LineNr">11434 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11435" class="LineNr">11435 </span> 55/push-ebp +<span id="L11436" class="LineNr">11436 </span> 89/<- %ebp 4/r32/esp +<span id="L11437" class="LineNr">11437 </span> <span class="subxComment"># setup</span> +<span id="L11438" class="LineNr">11438 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11439" class="LineNr">11439 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11440" class="LineNr">11440 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11441" class="LineNr">11441 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11442" class="LineNr">11442 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11443" class="LineNr">11443 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11444" class="LineNr">11444 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11445" class="LineNr">11445 </span> 68/push 0/imm32 +<span id="L11446" class="LineNr">11446 </span> 68/push 0/imm32 +<span id="L11447" class="LineNr">11447 </span> 89/<- %edx 4/r32/esp +<span id="L11448" class="LineNr">11448 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11449" class="LineNr">11449 </span> <span class="subxComment">#</span> +<span id="L11450" class="LineNr">11450 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11451" class="LineNr">11451 </span> (<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="L11452" class="LineNr">11452 </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="L11453" class="LineNr">11453 </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="L11454" class="LineNr">11454 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11455" class="LineNr">11455 </span> <span class="subxComment"># convert</span> +<span id="L11456" class="LineNr">11456 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11457" class="LineNr">11457 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11458" class="LineNr">11458 </span> <span class="subxComment"># restore ed</span> +<span id="L11459" class="LineNr">11459 </span> 89/<- %edx 4/r32/esp +<span id="L11460" class="LineNr">11460 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11461" class="LineNr">11461 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11462" class="Folded">11462 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11468" class="LineNr">11468 </span> <span class="subxComment"># check output</span> +<span id="L11469" class="LineNr">11469 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11433'>test-index-with-offset-on-stack</a>: output should be empty"</span>) +<span id="L11470" class="LineNr">11470 </span> (<a href='109stream-equal.subx.html#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#L11433'>test-index-with-offset-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11471" class="LineNr">11471 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11472" class="LineNr">11472 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11433'>test-index-with-offset-on-stack</a>: exit status"</span>) +<span id="L11473" class="LineNr">11473 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11474" class="LineNr">11474 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11475" class="LineNr">11475 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11476" class="LineNr">11476 </span> 5d/pop-to-ebp +<span id="L11477" class="LineNr">11477 </span> c3/return +<span id="L11478" class="LineNr">11478 </span> +<span id="L11479" class="LineNr">11479 </span><span class="subxTest">test-index-needs-offset-type</span>: +<span id="L11480" class="LineNr">11480 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11481" class="LineNr">11481 </span> 55/push-ebp +<span id="L11482" class="LineNr">11482 </span> 89/<- %ebp 4/r32/esp +<span id="L11483" class="LineNr">11483 </span> <span class="subxComment"># setup</span> +<span id="L11484" class="LineNr">11484 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11485" class="LineNr">11485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11486" class="LineNr">11486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11487" class="LineNr">11487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11488" class="LineNr">11488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11489" class="LineNr">11489 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11490" class="LineNr">11490 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11491" class="LineNr">11491 </span> 68/push 0/imm32 +<span id="L11492" class="LineNr">11492 </span> 68/push 0/imm32 +<span id="L11493" class="LineNr">11493 </span> 89/<- %edx 4/r32/esp +<span id="L11494" class="LineNr">11494 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11495" class="LineNr">11495 </span> <span class="subxComment">#</span> +<span id="L11496" class="LineNr">11496 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11497" class="LineNr">11497 </span> (<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="L11498" class="LineNr">11498 </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="L11499" class="LineNr">11499 </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="L11500" class="LineNr">11500 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11501" class="LineNr">11501 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size 12 is not a power of two</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">" x: int\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">" y: int\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">" z: int\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) @@ -10472,19 +10472,19 @@ if ('onhashchange' in window) { <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="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-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-type</a>: <a href='114error.subx.html#L9'>error</a> message"</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#L11479'>test-index-needs-offset-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: 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#L11479'>test-index-needs-offset-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-type</a>: exit status"</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#L11479'>test-index-needs-offset-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-wrong-output-compound-type</span>: +<span id="L11530" class="LineNr">11530 </span><span class="subxTest">test-index-with-output-not-address</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 @@ -10502,8 +10502,8 @@ if ('onhashchange' in window) { <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 a/ebx: (addr array handle boolean) <- copy 0\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">" var o/edi: (addr handle int) <- index a, 0\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 a/ebx: (addr array boolean) <- copy 0\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">" var o/edi: int <- index a, 0\n"</span>) <span id="L11550" class="LineNr">11550 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L11551" class="LineNr">11551 </span> <span class="subxComment"># convert</span> <span id="L11552" class="LineNr">11552 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -10512,19 +10512,19 @@ if ('onhashchange' in window) { <span id="L11555" class="LineNr">11555 </span> 89/<- %edx 4/r32/esp <span id="L11556" class="LineNr">11556 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L11557" class="LineNr">11557 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11558" class="Folded">11558 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11558" class="Folded">11558 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11564" class="LineNr">11564 </span> <span class="subxComment"># check output</span> -<span id="L11565" class="LineNr">11565 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-wrong-output-compound-type</a>: output should be empty"</span>) -<span id="L11566" class="LineNr">11566 </span> (<a href='109stream-equal.subx.html#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#L11530'>test-index-with-wrong-output-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11565" class="LineNr">11565 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-output-not-address</a>: output should be empty"</span>) +<span id="L11566" class="LineNr">11566 </span> (<a href='109stream-equal.subx.html#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#L11530'>test-index-with-output-not-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L11567" class="LineNr">11567 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11568" class="LineNr">11568 </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-wrong-output-compound-type</a>: exit status"</span>) +<span id="L11568" class="LineNr">11568 </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-output-not-address</a>: exit status"</span>) <span id="L11569" class="LineNr">11569 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L11570" class="LineNr">11570 </span> 81 0/subop/add %esp 8/imm32 <span id="L11571" class="LineNr">11571 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L11572" class="LineNr">11572 </span> 5d/pop-to-ebp <span id="L11573" class="LineNr">11573 </span> c3/return <span id="L11574" class="LineNr">11574 </span> -<span id="L11575" class="LineNr">11575 </span><span class="subxTest">test-index-with-no-inouts</span>: +<span id="L11575" class="LineNr">11575 </span><span class="subxTest">test-index-with-output-not-address-2</span>: <span id="L11576" class="LineNr">11576 </span> <span class="subxS1Comment"># . prologue</span> <span id="L11577" class="LineNr">11577 </span> 55/push-ebp <span id="L11578" class="LineNr">11578 </span> 89/<- %ebp 4/r32/esp @@ -10542,127 +10542,127 @@ if ('onhashchange' in window) { <span id="L11590" class="LineNr">11590 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L11591" class="LineNr">11591 </span> <span class="subxComment">#</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">"fn foo {\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\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#L11575'>test-index-with-no-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#L11575'>test-index-with-no-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#L11575'>test-index-with-no-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-few-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="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 a/ebx: (addr array boolean) <- copy 0\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">" var o/edi: (int) <- index a, 0\n"</span>) +<span id="L11595" class="LineNr">11595 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11596" class="LineNr">11596 </span> <span class="subxComment"># convert</span> +<span id="L11597" class="LineNr">11597 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11598" class="LineNr">11598 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11599" class="LineNr">11599 </span> <span class="subxComment"># restore ed</span> +<span id="L11600" class="LineNr">11600 </span> 89/<- %edx 4/r32/esp +<span id="L11601" class="LineNr">11601 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11602" class="LineNr">11602 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11603" class="Folded">11603 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11609" class="LineNr">11609 </span> <span class="subxComment"># check output</span> +<span id="L11610" class="LineNr">11610 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11575'>test-index-with-output-not-address-2</a>: output should be empty"</span>) +<span id="L11611" class="LineNr">11611 </span> (<a href='109stream-equal.subx.html#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#L11575'>test-index-with-output-not-address-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11612" class="LineNr">11612 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11613" class="LineNr">11613 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11575'>test-index-with-output-not-address-2</a>: exit status"</span>) +<span id="L11614" class="LineNr">11614 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11615" class="LineNr">11615 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11616" class="LineNr">11616 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11617" class="LineNr">11617 </span> 5d/pop-to-ebp +<span id="L11618" class="LineNr">11618 </span> c3/return +<span id="L11619" class="LineNr">11619 </span> +<span id="L11620" class="LineNr">11620 </span><span class="subxTest">test-index-with-wrong-output-type</span>: +<span id="L11621" class="LineNr">11621 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11622" class="LineNr">11622 </span> 55/push-ebp +<span id="L11623" class="LineNr">11623 </span> 89/<- %ebp 4/r32/esp +<span id="L11624" class="LineNr">11624 </span> <span class="subxComment"># setup</span> +<span id="L11625" class="LineNr">11625 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11626" class="LineNr">11626 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11627" class="LineNr">11627 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11628" class="LineNr">11628 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11629" class="LineNr">11629 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11630" class="LineNr">11630 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11631" class="LineNr">11631 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <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\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-few-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 few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11619'>test-index-with-too-few-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-few-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-too-many-inouts</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="L11633" class="LineNr">11633 </span> 68/push 0/imm32 +<span id="L11634" class="LineNr">11634 </span> 89/<- %edx 4/r32/esp +<span id="L11635" class="LineNr">11635 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11636" class="LineNr">11636 </span> <span class="subxComment">#</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">"fn foo {\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 a/ebx: (addr array boolean) <- copy 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">" var o/edi: (addr int) <- index a, 0\n"</span>) +<span id="L11640" class="LineNr">11640 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11641" class="LineNr">11641 </span> <span class="subxComment"># convert</span> +<span id="L11642" class="LineNr">11642 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11643" class="LineNr">11643 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11644" class="LineNr">11644 </span> <span class="subxComment"># restore ed</span> +<span id="L11645" class="LineNr">11645 </span> 89/<- %edx 4/r32/esp +<span id="L11646" class="LineNr">11646 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11647" class="LineNr">11647 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11648" class="Folded">11648 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11654" class="LineNr">11654 </span> <span class="subxComment"># check output</span> +<span id="L11655" class="LineNr">11655 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11620'>test-index-with-wrong-output-type</a>: output should be empty"</span>) +<span id="L11656" class="LineNr">11656 </span> (<a href='109stream-equal.subx.html#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#L11620'>test-index-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11657" class="LineNr">11657 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11658" class="LineNr">11658 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11620'>test-index-with-wrong-output-type</a>: exit status"</span>) +<span id="L11659" class="LineNr">11659 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11660" class="LineNr">11660 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11661" class="LineNr">11661 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11662" class="LineNr">11662 </span> 5d/pop-to-ebp +<span id="L11663" class="LineNr">11663 </span> c3/return +<span id="L11664" class="LineNr">11664 </span> +<span id="L11665" class="LineNr">11665 </span><span class="subxTest">test-index-with-wrong-output-compound-type</span>: +<span id="L11666" class="LineNr">11666 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11667" class="LineNr">11667 </span> 55/push-ebp +<span id="L11668" class="LineNr">11668 </span> 89/<- %ebp 4/r32/esp +<span id="L11669" class="LineNr">11669 </span> <span class="subxComment"># setup</span> +<span id="L11670" class="LineNr">11670 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11671" class="LineNr">11671 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11672" class="LineNr">11672 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11673" class="LineNr">11673 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11674" class="LineNr">11674 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11675" class="LineNr">11675 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11676" class="LineNr">11676 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <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">" var c/ecx: (addr int) <- index a, 0, 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-too-many-inouts</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: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11664'>test-index-with-too-many-inouts</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-too-many-inouts</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-no-output</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="L11678" class="LineNr">11678 </span> 68/push 0/imm32 +<span id="L11679" class="LineNr">11679 </span> 89/<- %edx 4/r32/esp +<span id="L11680" class="LineNr">11680 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11681" class="LineNr">11681 </span> <span class="subxComment">#</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">"fn foo {\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">" var a/ebx: (addr array handle boolean) <- copy 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">" var o/edi: (addr handle int) <- index a, 0\n"</span>) +<span id="L11685" class="LineNr">11685 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11686" class="LineNr">11686 </span> <span class="subxComment"># convert</span> +<span id="L11687" class="LineNr">11687 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11688" class="LineNr">11688 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11689" class="LineNr">11689 </span> <span class="subxComment"># restore ed</span> +<span id="L11690" class="LineNr">11690 </span> 89/<- %edx 4/r32/esp +<span id="L11691" class="LineNr">11691 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11692" class="LineNr">11692 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11693" class="Folded">11693 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11699" class="LineNr">11699 </span> <span class="subxComment"># check output</span> +<span id="L11700" class="LineNr">11700 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11665'>test-index-with-wrong-output-compound-type</a>: output should be empty"</span>) +<span id="L11701" class="LineNr">11701 </span> (<a href='109stream-equal.subx.html#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#L11665'>test-index-with-wrong-output-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11702" class="LineNr">11702 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11703" class="LineNr">11703 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11665'>test-index-with-wrong-output-compound-type</a>: exit status"</span>) +<span id="L11704" class="LineNr">11704 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11705" class="LineNr">11705 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11706" class="LineNr">11706 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11707" class="LineNr">11707 </span> 5d/pop-to-ebp +<span id="L11708" class="LineNr">11708 </span> c3/return +<span id="L11709" class="LineNr">11709 </span> +<span id="L11710" class="LineNr">11710 </span><span class="subxTest">test-index-with-no-inouts</span>: +<span id="L11711" class="LineNr">11711 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11712" class="LineNr">11712 </span> 55/push-ebp +<span id="L11713" class="LineNr">11713 </span> 89/<- %ebp 4/r32/esp +<span id="L11714" class="LineNr">11714 </span> <span class="subxComment"># setup</span> +<span id="L11715" class="LineNr">11715 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11716" class="LineNr">11716 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11717" class="LineNr">11717 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11718" class="LineNr">11718 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11719" class="LineNr">11719 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11720" class="LineNr">11720 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11721" class="LineNr">11721 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <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">" index a, 0\n"</span>) +<span id="L11723" class="LineNr">11723 </span> 68/push 0/imm32 +<span id="L11724" class="LineNr">11724 </span> 89/<- %edx 4/r32/esp +<span id="L11725" class="LineNr">11725 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11726" class="LineNr">11726 </span> <span class="subxComment">#</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">"fn foo {\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 c/ecx: (addr int) <- index\n"</span>) <span id="L11729" class="LineNr">11729 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L11730" class="LineNr">11730 </span> <span class="subxComment"># convert</span> <span id="L11731" class="LineNr">11731 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -10671,19 +10671,19 @@ if ('onhashchange' in window) { <span id="L11734" class="LineNr">11734 </span> 89/<- %edx 4/r32/esp <span id="L11735" class="LineNr">11735 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L11736" class="LineNr">11736 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11737" class="Folded">11737 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11737" class="Folded">11737 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11743" class="LineNr">11743 </span> <span class="subxComment"># check output</span> -<span id="L11744" class="LineNr">11744 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11709'>test-index-with-no-output</a>: output should be empty"</span>) -<span id="L11745" class="LineNr">11745 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L11709'>test-index-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11744" class="LineNr">11744 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11710'>test-index-with-no-inouts</a>: output should be empty"</span>) +<span id="L11745" class="LineNr">11745 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11710'>test-index-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L11746" class="LineNr">11746 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11747" class="LineNr">11747 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11709'>test-index-with-no-output</a>: exit status"</span>) +<span id="L11747" class="LineNr">11747 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11710'>test-index-with-no-inouts</a>: exit status"</span>) <span id="L11748" class="LineNr">11748 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L11749" class="LineNr">11749 </span> 81 0/subop/add %esp 8/imm32 <span id="L11750" class="LineNr">11750 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L11751" class="LineNr">11751 </span> 5d/pop-to-ebp <span id="L11752" class="LineNr">11752 </span> c3/return <span id="L11753" class="LineNr">11753 </span> -<span id="L11754" class="LineNr">11754 </span><span class="subxTest">test-index-with-too-many-outputs</span>: +<span id="L11754" class="LineNr">11754 </span><span class="subxTest">test-index-with-too-few-inouts</span>: <span id="L11755" class="LineNr">11755 </span> <span class="subxS1Comment"># . prologue</span> <span id="L11756" class="LineNr">11756 </span> 55/push-ebp <span id="L11757" class="LineNr">11757 </span> 89/<- %ebp 4/r32/esp @@ -10702,129 +10702,129 @@ if ('onhashchange' in window) { <span id="L11770" class="LineNr">11770 </span> <span class="subxComment">#</span> <span id="L11771" class="LineNr">11771 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) <span id="L11772" class="LineNr">11772 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L11773" class="LineNr">11773 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- copy 0\n"</span>) -<span id="L11774" class="LineNr">11774 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- copy 0\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">" b, c <- index 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#L11754'>test-index-with-too-many-outputs</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 index: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11754'>test-index-with-too-many-outputs</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#L11754'>test-index-with-too-many-outputs</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-atom-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: 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-atom-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-atom-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-atom-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</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: (handle 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</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</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</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-non-array-compound-base-type-2</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: (addr int)\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="L11773" class="LineNr">11773 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a\n"</span>) +<span id="L11774" class="LineNr">11774 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11775" class="LineNr">11775 </span> <span class="subxComment"># convert</span> +<span id="L11776" class="LineNr">11776 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11777" class="LineNr">11777 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11778" class="LineNr">11778 </span> <span class="subxComment"># restore ed</span> +<span id="L11779" class="LineNr">11779 </span> 89/<- %edx 4/r32/esp +<span id="L11780" class="LineNr">11780 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11781" class="LineNr">11781 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11782" class="Folded">11782 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11788" class="LineNr">11788 </span> <span class="subxComment"># check output</span> +<span id="L11789" class="LineNr">11789 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11754'>test-index-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L11790" class="LineNr">11790 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11754'>test-index-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11791" class="LineNr">11791 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11792" class="LineNr">11792 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11754'>test-index-with-too-few-inouts</a>: exit status"</span>) +<span id="L11793" class="LineNr">11793 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11794" class="LineNr">11794 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11795" class="LineNr">11795 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11796" class="LineNr">11796 </span> 5d/pop-to-ebp +<span id="L11797" class="LineNr">11797 </span> c3/return +<span id="L11798" class="LineNr">11798 </span> +<span id="L11799" class="LineNr">11799 </span><span class="subxTest">test-index-with-too-many-inouts</span>: +<span id="L11800" class="LineNr">11800 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11801" class="LineNr">11801 </span> 55/push-ebp +<span id="L11802" class="LineNr">11802 </span> 89/<- %ebp 4/r32/esp +<span id="L11803" class="LineNr">11803 </span> <span class="subxComment"># setup</span> +<span id="L11804" class="LineNr">11804 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11805" class="LineNr">11805 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11806" class="LineNr">11806 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11807" class="LineNr">11807 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11808" class="LineNr">11808 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11809" class="LineNr">11809 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11810" class="LineNr">11810 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11811" class="LineNr">11811 </span> 68/push 0/imm32 +<span id="L11812" class="LineNr">11812 </span> 68/push 0/imm32 +<span id="L11813" class="LineNr">11813 </span> 89/<- %edx 4/r32/esp +<span id="L11814" class="LineNr">11814 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11815" class="LineNr">11815 </span> <span class="subxComment">#</span> +<span id="L11816" class="LineNr">11816 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11817" class="LineNr">11817 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L11818" class="LineNr">11818 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0, 0\n"</span>) +<span id="L11819" class="LineNr">11819 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11820" class="LineNr">11820 </span> <span class="subxComment"># convert</span> +<span id="L11821" class="LineNr">11821 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11822" class="LineNr">11822 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11823" class="LineNr">11823 </span> <span class="subxComment"># restore ed</span> +<span id="L11824" class="LineNr">11824 </span> 89/<- %edx 4/r32/esp +<span id="L11825" class="LineNr">11825 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11826" class="LineNr">11826 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11827" class="Folded">11827 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11833" class="LineNr">11833 </span> <span class="subxComment"># check output</span> +<span id="L11834" class="LineNr">11834 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11799'>test-index-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L11835" class="LineNr">11835 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11799'>test-index-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11836" class="LineNr">11836 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11837" class="LineNr">11837 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11799'>test-index-with-too-many-inouts</a>: exit status"</span>) +<span id="L11838" class="LineNr">11838 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11839" class="LineNr">11839 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11840" class="LineNr">11840 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11841" class="LineNr">11841 </span> 5d/pop-to-ebp +<span id="L11842" class="LineNr">11842 </span> c3/return +<span id="L11843" class="LineNr">11843 </span> +<span id="L11844" class="LineNr">11844 </span><span class="subxTest">test-index-with-no-output</span>: +<span id="L11845" class="LineNr">11845 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11846" class="LineNr">11846 </span> 55/push-ebp +<span id="L11847" class="LineNr">11847 </span> 89/<- %ebp 4/r32/esp +<span id="L11848" class="LineNr">11848 </span> <span class="subxComment"># setup</span> +<span id="L11849" class="LineNr">11849 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11850" class="LineNr">11850 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11851" class="LineNr">11851 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11852" class="LineNr">11852 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11853" class="LineNr">11853 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11854" class="LineNr">11854 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11855" class="LineNr">11855 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11856" class="LineNr">11856 </span> 68/push 0/imm32 +<span id="L11857" class="LineNr">11857 </span> 68/push 0/imm32 +<span id="L11858" class="LineNr">11858 </span> 89/<- %edx 4/r32/esp +<span id="L11859" class="LineNr">11859 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11860" class="LineNr">11860 </span> <span class="subxComment">#</span> +<span id="L11861" class="LineNr">11861 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11862" class="LineNr">11862 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L11863" class="LineNr">11863 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" index a, 0\n"</span>) +<span id="L11864" class="LineNr">11864 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11865" class="LineNr">11865 </span> <span class="subxComment"># convert</span> +<span id="L11866" class="LineNr">11866 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11867" class="LineNr">11867 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11868" class="LineNr">11868 </span> <span class="subxComment"># restore ed</span> +<span id="L11869" class="LineNr">11869 </span> 89/<- %edx 4/r32/esp +<span id="L11870" class="LineNr">11870 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11871" class="LineNr">11871 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11872" class="Folded">11872 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11878" class="LineNr">11878 </span> <span class="subxComment"># check output</span> +<span id="L11879" class="LineNr">11879 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11844'>test-index-with-no-output</a>: output should be empty"</span>) +<span id="L11880" class="LineNr">11880 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L11844'>test-index-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11881" class="LineNr">11881 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11882" class="LineNr">11882 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11844'>test-index-with-no-output</a>: exit status"</span>) +<span id="L11883" class="LineNr">11883 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11884" class="LineNr">11884 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11885" class="LineNr">11885 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11886" class="LineNr">11886 </span> 5d/pop-to-ebp +<span id="L11887" class="LineNr">11887 </span> c3/return +<span id="L11888" class="LineNr">11888 </span> +<span id="L11889" class="LineNr">11889 </span><span class="subxTest">test-index-with-too-many-outputs</span>: +<span id="L11890" class="LineNr">11890 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11891" class="LineNr">11891 </span> 55/push-ebp +<span id="L11892" class="LineNr">11892 </span> 89/<- %ebp 4/r32/esp +<span id="L11893" class="LineNr">11893 </span> <span class="subxComment"># setup</span> +<span id="L11894" class="LineNr">11894 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11895" class="LineNr">11895 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11896" class="LineNr">11896 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11897" class="LineNr">11897 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11898" class="LineNr">11898 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11899" class="LineNr">11899 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11900" class="LineNr">11900 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11901" class="LineNr">11901 </span> 68/push 0/imm32 +<span id="L11902" class="LineNr">11902 </span> 68/push 0/imm32 +<span id="L11903" class="LineNr">11903 </span> 89/<- %edx 4/r32/esp +<span id="L11904" class="LineNr">11904 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11905" class="LineNr">11905 </span> <span class="subxComment">#</span> +<span id="L11906" class="LineNr">11906 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11907" class="LineNr">11907 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L11908" class="LineNr">11908 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- copy 0\n"</span>) +<span id="L11909" class="LineNr">11909 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- copy 0\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">" b, c <- index 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) @@ -10833,19 +10833,19 @@ if ('onhashchange' in window) { <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="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-non-array-compound-base-type-2</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: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11891'>test-compute-offset-with-non-array-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</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#L11889'>test-index-with-too-many-outputs</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 index: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11889'>test-index-with-too-many-outputs</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-non-array-compound-base-type-2</a>: exit status"</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#L11889'>test-index-with-too-many-outputs</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-array-atom-base-type</span>: +<span id="L11936" class="LineNr">11936 </span><span class="subxTest">test-compute-offset-with-non-array-atom-base-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 @@ -10863,7 +10863,7 @@ if ('onhashchange' in window) { <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: array\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: int\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 c/ecx: (offset int) <- compute-offset a, 0\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">"}\n"</span>) <span id="L11957" class="LineNr">11957 </span> <span class="subxComment"># convert</span> @@ -10873,19 +10873,19 @@ if ('onhashchange' in window) { <span id="L11961" class="LineNr">11961 </span> 89/<- %edx 4/r32/esp <span id="L11962" class="LineNr">11962 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L11963" class="LineNr">11963 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L11964" class="Folded">11964 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11964" class="Folded">11964 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11970" class="LineNr">11970 </span> <span class="subxComment"># check output</span> -<span id="L11971" class="LineNr">11971 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-array-atom-base-type</a>: output should be empty"</span>) -<span id="L11972" class="LineNr">11972 </span> (<a href='109stream-equal.subx.html#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#L11936'>test-compute-offset-with-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11971" class="LineNr">11971 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-non-array-atom-base-type</a>: output should be empty"</span>) +<span id="L11972" class="LineNr">11972 </span> (<a href='109stream-equal.subx.html#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#L11936'>test-compute-offset-with-non-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L11973" class="LineNr">11973 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11974" class="LineNr">11974 </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-array-atom-base-type</a>: exit status"</span>) +<span id="L11974" class="LineNr">11974 </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-non-array-atom-base-type</a>: exit status"</span>) <span id="L11975" class="LineNr">11975 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L11976" class="LineNr">11976 </span> 81 0/subop/add %esp 8/imm32 <span id="L11977" class="LineNr">11977 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L11978" class="LineNr">11978 </span> 5d/pop-to-ebp <span id="L11979" class="LineNr">11979 </span> c3/return <span id="L11980" class="LineNr">11980 </span> -<span id="L11981" class="LineNr">11981 </span><span class="subxTest">test-compute-offset-with-wrong-index-type</span>: +<span id="L11981" class="LineNr">11981 </span><span class="subxTest">test-compute-offset-with-non-array-compound-base-type</span>: <span id="L11982" class="LineNr">11982 </span> <span class="subxS1Comment"># . prologue</span> <span id="L11983" class="LineNr">11983 </span> 55/push-ebp <span id="L11984" class="LineNr">11984 </span> 89/<- %ebp 4/r32/esp @@ -10903,129 +10903,129 @@ if ('onhashchange' in window) { <span id="L11996" class="LineNr">11996 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L11997" class="LineNr">11997 </span> <span class="subxComment">#</span> <span id="L11998" class="LineNr">11998 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11999" class="LineNr">11999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) -<span id="L12000" class="LineNr">12000 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\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 c/ecx: (offset int) <- compute-offset a, b\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#L11981'>test-compute-offset-with-wrong-index-type</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: second argument 'b' must be an int"</span> <span class="Constant">"F - <a href='mu.subx.html#L11981'>test-compute-offset-with-wrong-index-type</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#L11981'>test-compute-offset-with-wrong-index-type</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-offset</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="L11999" class="LineNr">11999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\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 c/ecx: (offset int) <- compute-offset a, 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">"}\n"</span>) +<span id="L12002" class="LineNr">12002 </span> <span class="subxComment"># convert</span> +<span id="L12003" class="LineNr">12003 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12004" class="LineNr">12004 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12005" class="LineNr">12005 </span> <span class="subxComment"># restore ed</span> +<span id="L12006" class="LineNr">12006 </span> 89/<- %edx 4/r32/esp +<span id="L12007" class="LineNr">12007 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12008" class="LineNr">12008 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12009" class="Folded">12009 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12015" class="LineNr">12015 </span> <span class="subxComment"># check output</span> +<span id="L12016" class="LineNr">12016 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11981'>test-compute-offset-with-non-array-compound-base-type</a>: output should be empty"</span>) +<span id="L12017" class="LineNr">12017 </span> (<a href='109stream-equal.subx.html#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#L11981'>test-compute-offset-with-non-array-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12018" class="LineNr">12018 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12019" class="LineNr">12019 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11981'>test-compute-offset-with-non-array-compound-base-type</a>: exit status"</span>) +<span id="L12020" class="LineNr">12020 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12021" class="LineNr">12021 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12022" class="LineNr">12022 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12023" class="LineNr">12023 </span> 5d/pop-to-ebp +<span id="L12024" class="LineNr">12024 </span> c3/return +<span id="L12025" class="LineNr">12025 </span> +<span id="L12026" class="LineNr">12026 </span><span class="subxTest">test-compute-offset-with-non-array-compound-base-type-2</span>: +<span id="L12027" class="LineNr">12027 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12028" class="LineNr">12028 </span> 55/push-ebp +<span id="L12029" class="LineNr">12029 </span> 89/<- %ebp 4/r32/esp +<span id="L12030" class="LineNr">12030 </span> <span class="subxComment"># setup</span> +<span id="L12031" class="LineNr">12031 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12032" class="LineNr">12032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12033" class="LineNr">12033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12034" class="LineNr">12034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12035" class="LineNr">12035 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12036" class="LineNr">12036 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12037" class="LineNr">12037 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12038" class="LineNr">12038 </span> 68/push 0/imm32 <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-offset</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-offset</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-offset</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-output-not-address-2</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="L12040" class="LineNr">12040 </span> 89/<- %edx 4/r32/esp +<span id="L12041" class="LineNr">12041 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12042" class="LineNr">12042 </span> <span class="subxComment">#</span> +<span id="L12043" class="LineNr">12043 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12044" class="LineNr">12044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\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 c/ecx: (offset int) <- compute-offset a, 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">"}\n"</span>) +<span id="L12047" class="LineNr">12047 </span> <span class="subxComment"># convert</span> +<span id="L12048" class="LineNr">12048 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12049" class="LineNr">12049 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12050" class="LineNr">12050 </span> <span class="subxComment"># restore ed</span> +<span id="L12051" class="LineNr">12051 </span> 89/<- %edx 4/r32/esp +<span id="L12052" class="LineNr">12052 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12053" class="LineNr">12053 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12054" class="Folded">12054 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12060" class="LineNr">12060 </span> <span class="subxComment"># check output</span> +<span id="L12061" class="LineNr">12061 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12026'>test-compute-offset-with-non-array-compound-base-type-2</a>: output should be empty"</span>) +<span id="L12062" class="LineNr">12062 </span> (<a href='109stream-equal.subx.html#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#L12026'>test-compute-offset-with-non-array-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12063" class="LineNr">12063 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12064" class="LineNr">12064 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12026'>test-compute-offset-with-non-array-compound-base-type-2</a>: exit status"</span>) +<span id="L12065" class="LineNr">12065 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12066" class="LineNr">12066 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12067" class="LineNr">12067 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12068" class="LineNr">12068 </span> 5d/pop-to-ebp +<span id="L12069" class="LineNr">12069 </span> c3/return +<span id="L12070" class="LineNr">12070 </span> +<span id="L12071" class="LineNr">12071 </span><span class="subxTest">test-compute-offset-with-array-atom-base-type</span>: +<span id="L12072" class="LineNr">12072 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12073" class="LineNr">12073 </span> 55/push-ebp +<span id="L12074" class="LineNr">12074 </span> 89/<- %ebp 4/r32/esp +<span id="L12075" class="LineNr">12075 </span> <span class="subxComment"># setup</span> +<span id="L12076" class="LineNr">12076 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12077" class="LineNr">12077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12078" class="LineNr">12078 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12079" class="LineNr">12079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12080" class="LineNr">12080 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12081" class="LineNr">12081 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12082" class="LineNr">12082 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12083" class="LineNr">12083 </span> 68/push 0/imm32 <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: (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-output-not-address-2</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' must be an offset"</span> <span class="Constant">"F - <a href='mu.subx.html#L12072'>test-compute-offset-with-output-not-address-2</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-output-not-address-2</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-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="L12085" class="LineNr">12085 </span> 89/<- %edx 4/r32/esp +<span id="L12086" class="LineNr">12086 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12087" class="LineNr">12087 </span> <span class="subxComment">#</span> +<span id="L12088" class="LineNr">12088 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12089" class="LineNr">12089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: array\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 c/ecx: (offset int) <- compute-offset a, 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">"}\n"</span>) +<span id="L12092" class="LineNr">12092 </span> <span class="subxComment"># convert</span> +<span id="L12093" class="LineNr">12093 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12094" class="LineNr">12094 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12095" class="LineNr">12095 </span> <span class="subxComment"># restore ed</span> +<span id="L12096" class="LineNr">12096 </span> 89/<- %edx 4/r32/esp +<span id="L12097" class="LineNr">12097 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12098" class="LineNr">12098 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12099" class="Folded">12099 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12105" class="LineNr">12105 </span> <span class="subxComment"># check output</span> +<span id="L12106" class="LineNr">12106 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12071'>test-compute-offset-with-array-atom-base-type</a>: output should be empty"</span>) +<span id="L12107" class="LineNr">12107 </span> (<a href='109stream-equal.subx.html#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#L12071'>test-compute-offset-with-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12108" class="LineNr">12108 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12109" class="LineNr">12109 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12071'>test-compute-offset-with-array-atom-base-type</a>: exit status"</span>) +<span id="L12110" class="LineNr">12110 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12111" class="LineNr">12111 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12112" class="LineNr">12112 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12113" class="LineNr">12113 </span> 5d/pop-to-ebp +<span id="L12114" class="LineNr">12114 </span> c3/return +<span id="L12115" class="LineNr">12115 </span> +<span id="L12116" class="LineNr">12116 </span><span class="subxTest">test-compute-offset-with-wrong-index-type</span>: +<span id="L12117" class="LineNr">12117 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12118" class="LineNr">12118 </span> 55/push-ebp +<span id="L12119" class="LineNr">12119 </span> 89/<- %ebp 4/r32/esp +<span id="L12120" class="LineNr">12120 </span> <span class="subxComment"># setup</span> +<span id="L12121" class="LineNr">12121 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12122" class="LineNr">12122 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12123" class="LineNr">12123 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12124" class="LineNr">12124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12125" class="LineNr">12125 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12126" class="LineNr">12126 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12127" class="LineNr">12127 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12128" class="LineNr">12128 </span> 68/push 0/imm32 <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 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 int) <- compute-offset a, 0\n"</span>) +<span id="L12130" class="LineNr">12130 </span> 89/<- %edx 4/r32/esp +<span id="L12131" class="LineNr">12131 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12132" class="LineNr">12132 </span> <span class="subxComment">#</span> +<span id="L12133" class="LineNr">12133 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12134" class="LineNr">12134 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) +<span id="L12135" class="LineNr">12135 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\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 c/ecx: (offset int) <- compute-offset a, b\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) @@ -11034,19 +11034,19 @@ if ('onhashchange' in window) { <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="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-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-type</a>: <a href='114error.subx.html#L9'>error</a> message"</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#L12116'>test-compute-offset-with-wrong-index-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: second argument 'b' must be an int"</span> <span class="Constant">"F - <a href='mu.subx.html#L12116'>test-compute-offset-with-wrong-index-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-type</a>: exit status"</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#L12116'>test-compute-offset-with-wrong-index-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-wrong-output-compound-type</span>: +<span id="L12162" class="LineNr">12162 </span><span class="subxTest">test-compute-offset-with-output-not-offset</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 @@ -11064,8 +11064,8 @@ if ('onhashchange' in window) { <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 a/ebx: (addr array handle boolean) <- copy 0\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">" var o/edi: (offset handle int) <- compute-offset a, 0\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 a/ebx: (addr array boolean) <- copy 0\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">" var o/edi: int <- compute-offset a, 0\n"</span>) <span id="L12182" class="LineNr">12182 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L12183" class="LineNr">12183 </span> <span class="subxComment"># convert</span> <span id="L12184" class="LineNr">12184 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -11074,19 +11074,19 @@ if ('onhashchange' in window) { <span id="L12187" class="LineNr">12187 </span> 89/<- %edx 4/r32/esp <span id="L12188" class="LineNr">12188 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L12189" class="LineNr">12189 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12190" class="Folded">12190 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12190" class="Folded">12190 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12196" class="LineNr">12196 </span> <span class="subxComment"># check output</span> -<span id="L12197" class="LineNr">12197 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-wrong-output-compound-type</a>: output should be empty"</span>) -<span id="L12198" class="LineNr">12198 </span> (<a href='109stream-equal.subx.html#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#L12162'>test-compute-offset-with-wrong-output-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12197" class="LineNr">12197 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-output-not-offset</a>: output should be empty"</span>) +<span id="L12198" class="LineNr">12198 </span> (<a href='109stream-equal.subx.html#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#L12162'>test-compute-offset-with-output-not-offset</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L12199" class="LineNr">12199 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12200" class="LineNr">12200 </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-wrong-output-compound-type</a>: exit status"</span>) +<span id="L12200" class="LineNr">12200 </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-output-not-offset</a>: exit status"</span>) <span id="L12201" class="LineNr">12201 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L12202" class="LineNr">12202 </span> 81 0/subop/add %esp 8/imm32 <span id="L12203" class="LineNr">12203 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L12204" class="LineNr">12204 </span> 5d/pop-to-ebp <span id="L12205" class="LineNr">12205 </span> c3/return <span id="L12206" class="LineNr">12206 </span> -<span id="L12207" class="LineNr">12207 </span><span class="subxTest">test-compute-offset-with-no-inouts</span>: +<span id="L12207" class="LineNr">12207 </span><span class="subxTest">test-compute-offset-with-output-not-address-2</span>: <span id="L12208" class="LineNr">12208 </span> <span class="subxS1Comment"># . prologue</span> <span id="L12209" class="LineNr">12209 </span> 55/push-ebp <span id="L12210" class="LineNr">12210 </span> 89/<- %ebp 4/r32/esp @@ -11104,127 +11104,127 @@ if ('onhashchange' in window) { <span id="L12222" class="LineNr">12222 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L12223" class="LineNr">12223 </span> <span class="subxComment">#</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">"fn foo {\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\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#L12207'>test-compute-offset-with-no-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#L12207'>test-compute-offset-with-no-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#L12207'>test-compute-offset-with-no-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-few-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="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 a/ebx: (addr array boolean) <- copy 0\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">" var o/edi: (int) <- compute-offset a, 0\n"</span>) +<span id="L12227" class="LineNr">12227 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12228" class="LineNr">12228 </span> <span class="subxComment"># convert</span> +<span id="L12229" class="LineNr">12229 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12230" class="LineNr">12230 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12231" class="LineNr">12231 </span> <span class="subxComment"># restore ed</span> +<span id="L12232" class="LineNr">12232 </span> 89/<- %edx 4/r32/esp +<span id="L12233" class="LineNr">12233 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12234" class="LineNr">12234 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12235" class="Folded">12235 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12241" class="LineNr">12241 </span> <span class="subxComment"># check output</span> +<span id="L12242" class="LineNr">12242 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12207'>test-compute-offset-with-output-not-address-2</a>: output should be empty"</span>) +<span id="L12243" class="LineNr">12243 </span> (<a href='109stream-equal.subx.html#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#L12207'>test-compute-offset-with-output-not-address-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12244" class="LineNr">12244 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12245" class="LineNr">12245 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12207'>test-compute-offset-with-output-not-address-2</a>: exit status"</span>) +<span id="L12246" class="LineNr">12246 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12247" class="LineNr">12247 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12248" class="LineNr">12248 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12249" class="LineNr">12249 </span> 5d/pop-to-ebp +<span id="L12250" class="LineNr">12250 </span> c3/return +<span id="L12251" class="LineNr">12251 </span> +<span id="L12252" class="LineNr">12252 </span><span class="subxTest">test-compute-offset-with-wrong-output-type</span>: +<span id="L12253" class="LineNr">12253 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12254" class="LineNr">12254 </span> 55/push-ebp +<span id="L12255" class="LineNr">12255 </span> 89/<- %ebp 4/r32/esp +<span id="L12256" class="LineNr">12256 </span> <span class="subxComment"># setup</span> +<span id="L12257" class="LineNr">12257 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12258" class="LineNr">12258 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12259" class="LineNr">12259 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12260" class="LineNr">12260 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12261" class="LineNr">12261 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12262" class="LineNr">12262 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12263" class="LineNr">12263 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <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\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-few-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 few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12251'>test-compute-offset-with-too-few-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-few-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-too-many-inouts</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="L12265" class="LineNr">12265 </span> 68/push 0/imm32 +<span id="L12266" class="LineNr">12266 </span> 89/<- %edx 4/r32/esp +<span id="L12267" class="LineNr">12267 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12268" class="LineNr">12268 </span> <span class="subxComment">#</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">"fn foo {\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 a/ebx: (addr array boolean) <- copy 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">" var o/edi: (offset int) <- compute-offset a, 0\n"</span>) +<span id="L12272" class="LineNr">12272 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12273" class="LineNr">12273 </span> <span class="subxComment"># convert</span> +<span id="L12274" class="LineNr">12274 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12275" class="LineNr">12275 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12276" class="LineNr">12276 </span> <span class="subxComment"># restore ed</span> +<span id="L12277" class="LineNr">12277 </span> 89/<- %edx 4/r32/esp +<span id="L12278" class="LineNr">12278 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12279" class="LineNr">12279 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12280" class="Folded">12280 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12286" class="LineNr">12286 </span> <span class="subxComment"># check output</span> +<span id="L12287" class="LineNr">12287 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12252'>test-compute-offset-with-wrong-output-type</a>: output should be empty"</span>) +<span id="L12288" class="LineNr">12288 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L12252'>test-compute-offset-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12289" class="LineNr">12289 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12290" class="LineNr">12290 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12252'>test-compute-offset-with-wrong-output-type</a>: exit status"</span>) +<span id="L12291" class="LineNr">12291 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12292" class="LineNr">12292 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12293" class="LineNr">12293 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12294" class="LineNr">12294 </span> 5d/pop-to-ebp +<span id="L12295" class="LineNr">12295 </span> c3/return +<span id="L12296" class="LineNr">12296 </span> +<span id="L12297" class="LineNr">12297 </span><span class="subxTest">test-compute-offset-with-wrong-output-compound-type</span>: +<span id="L12298" class="LineNr">12298 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12299" class="LineNr">12299 </span> 55/push-ebp +<span id="L12300" class="LineNr">12300 </span> 89/<- %ebp 4/r32/esp +<span id="L12301" class="LineNr">12301 </span> <span class="subxComment"># setup</span> +<span id="L12302" class="LineNr">12302 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12303" class="LineNr">12303 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12304" class="LineNr">12304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12305" class="LineNr">12305 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12306" class="LineNr">12306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12307" class="LineNr">12307 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12308" class="LineNr">12308 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <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">" var c/ecx: (offset int) <- compute-offset a, 0, 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-too-many-inouts</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: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12296'>test-compute-offset-with-too-many-inouts</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-too-many-inouts</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-no-output</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="L12310" class="LineNr">12310 </span> 68/push 0/imm32 +<span id="L12311" class="LineNr">12311 </span> 89/<- %edx 4/r32/esp +<span id="L12312" class="LineNr">12312 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12313" class="LineNr">12313 </span> <span class="subxComment">#</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">"fn foo {\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">" var a/ebx: (addr array handle boolean) <- copy 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">" var o/edi: (offset handle int) <- compute-offset a, 0\n"</span>) +<span id="L12317" class="LineNr">12317 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12318" class="LineNr">12318 </span> <span class="subxComment"># convert</span> +<span id="L12319" class="LineNr">12319 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12320" class="LineNr">12320 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12321" class="LineNr">12321 </span> <span class="subxComment"># restore ed</span> +<span id="L12322" class="LineNr">12322 </span> 89/<- %edx 4/r32/esp +<span id="L12323" class="LineNr">12323 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12324" class="LineNr">12324 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12325" class="Folded">12325 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12331" class="LineNr">12331 </span> <span class="subxComment"># check output</span> +<span id="L12332" class="LineNr">12332 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12297'>test-compute-offset-with-wrong-output-compound-type</a>: output should be empty"</span>) +<span id="L12333" class="LineNr">12333 </span> (<a href='109stream-equal.subx.html#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#L12297'>test-compute-offset-with-wrong-output-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12334" class="LineNr">12334 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12335" class="LineNr">12335 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12297'>test-compute-offset-with-wrong-output-compound-type</a>: exit status"</span>) +<span id="L12336" class="LineNr">12336 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12337" class="LineNr">12337 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12338" class="LineNr">12338 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12339" class="LineNr">12339 </span> 5d/pop-to-ebp +<span id="L12340" class="LineNr">12340 </span> c3/return +<span id="L12341" class="LineNr">12341 </span> +<span id="L12342" class="LineNr">12342 </span><span class="subxTest">test-compute-offset-with-no-inouts</span>: +<span id="L12343" class="LineNr">12343 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12344" class="LineNr">12344 </span> 55/push-ebp +<span id="L12345" class="LineNr">12345 </span> 89/<- %ebp 4/r32/esp +<span id="L12346" class="LineNr">12346 </span> <span class="subxComment"># setup</span> +<span id="L12347" class="LineNr">12347 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12348" class="LineNr">12348 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12349" class="LineNr">12349 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12350" class="LineNr">12350 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12351" class="LineNr">12351 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12352" class="LineNr">12352 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12353" class="LineNr">12353 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <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">" compute-offset a, 0\n"</span>) +<span id="L12355" class="LineNr">12355 </span> 68/push 0/imm32 +<span id="L12356" class="LineNr">12356 </span> 89/<- %edx 4/r32/esp +<span id="L12357" class="LineNr">12357 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12358" class="LineNr">12358 </span> <span class="subxComment">#</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">"fn foo {\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 c/ecx: (offset int) <- compute-offset\n"</span>) <span id="L12361" class="LineNr">12361 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L12362" class="LineNr">12362 </span> <span class="subxComment"># convert</span> <span id="L12363" class="LineNr">12363 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -11233,19 +11233,19 @@ if ('onhashchange' in window) { <span id="L12366" class="LineNr">12366 </span> 89/<- %edx 4/r32/esp <span id="L12367" class="LineNr">12367 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L12368" class="LineNr">12368 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12369" class="Folded">12369 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12369" class="Folded">12369 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12375" class="LineNr">12375 </span> <span class="subxComment"># check output</span> -<span id="L12376" class="LineNr">12376 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12341'>test-compute-offset-with-no-output</a>: output should be empty"</span>) -<span id="L12377" class="LineNr">12377 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L12341'>test-compute-offset-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12376" class="LineNr">12376 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12342'>test-compute-offset-with-no-inouts</a>: output should be empty"</span>) +<span id="L12377" class="LineNr">12377 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12342'>test-compute-offset-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L12378" class="LineNr">12378 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12379" class="LineNr">12379 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12341'>test-compute-offset-with-no-output</a>: exit status"</span>) +<span id="L12379" class="LineNr">12379 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12342'>test-compute-offset-with-no-inouts</a>: exit status"</span>) <span id="L12380" class="LineNr">12380 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L12381" class="LineNr">12381 </span> 81 0/subop/add %esp 8/imm32 <span id="L12382" class="LineNr">12382 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L12383" class="LineNr">12383 </span> 5d/pop-to-ebp <span id="L12384" class="LineNr">12384 </span> c3/return <span id="L12385" class="LineNr">12385 </span> -<span id="L12386" class="LineNr">12386 </span><span class="subxTest">test-compute-offset-with-too-many-outputs</span>: +<span id="L12386" class="LineNr">12386 </span><span class="subxTest">test-compute-offset-with-too-few-inouts</span>: <span id="L12387" class="LineNr">12387 </span> <span class="subxS1Comment"># . prologue</span> <span id="L12388" class="LineNr">12388 </span> 55/push-ebp <span id="L12389" class="LineNr">12389 </span> 89/<- %ebp 4/r32/esp @@ -11264,246 +11264,246 @@ if ('onhashchange' in window) { <span id="L12402" class="LineNr">12402 </span> <span class="subxComment">#</span> <span id="L12403" class="LineNr">12403 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) <span id="L12404" class="LineNr">12404 </span> (<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="L12405" class="LineNr">12405 </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="L12406" class="LineNr">12406 </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="L12407" class="LineNr">12407 </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="L12408" class="LineNr">12408 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12409" class="LineNr">12409 </span> <span class="subxComment"># convert</span> -<span id="L12410" class="LineNr">12410 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12411" class="LineNr">12411 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12412" class="LineNr">12412 </span> <span class="subxComment"># restore ed</span> -<span id="L12413" class="LineNr">12413 </span> 89/<- %edx 4/r32/esp -<span id="L12414" class="LineNr">12414 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12415" class="LineNr">12415 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12416" class="Folded">12416 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12422" class="LineNr">12422 </span> <span class="subxComment"># check output</span> -<span id="L12423" class="LineNr">12423 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-compute-offset-with-too-many-outputs</a>: output should be empty"</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#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#L12386'>test-compute-offset-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12425" class="LineNr">12425 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12426" class="LineNr">12426 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-compute-offset-with-too-many-outputs</a>: exit status"</span>) -<span id="L12427" class="LineNr">12427 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12428" class="LineNr">12428 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12429" class="LineNr">12429 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12430" class="LineNr">12430 </span> 5d/pop-to-ebp -<span id="L12431" class="LineNr">12431 </span> c3/return -<span id="L12432" class="LineNr">12432 </span> -<span id="L12433" class="LineNr">12433 </span><span class="subxTest">test-convert-read-from-stream</span>: -<span id="L12434" class="LineNr">12434 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12435" class="LineNr">12435 </span> 55/push-ebp -<span id="L12436" class="LineNr">12436 </span> 89/<- %ebp 4/r32/esp -<span id="L12437" class="LineNr">12437 </span> <span class="subxComment"># setup</span> -<span id="L12438" class="LineNr">12438 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12439" class="LineNr">12439 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12440" class="LineNr">12440 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12441" class="LineNr">12441 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12442" class="LineNr">12442 </span> <span class="subxComment">#</span> -<span id="L12443" class="LineNr">12443 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12444" class="LineNr">12444 </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="L12445" class="LineNr">12445 </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="L12446" class="LineNr">12446 </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="L12447" class="LineNr">12447 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12448" class="LineNr">12448 </span> <span class="subxComment"># convert</span> -<span id="L12449" class="LineNr">12449 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L12450" class="LineNr">12450 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12451" class="LineNr">12451 </span> <span class="subxComment"># restore ed</span> -<span id="L12452" class="LineNr">12452 </span> 89/<- %edx 4/r32/esp -<span id="L12453" class="LineNr">12453 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12454" class="LineNr">12454 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12455" class="Folded">12455 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12461" class="LineNr">12461 </span> <span class="subxComment"># check output</span> -<span id="L12462" class="LineNr">12462 </span> (<a href='109stream-equal.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#L12433'>test-convert-read-from-stream</a>/0"</span>) -<span id="L12463" class="LineNr">12463 </span> (<a href='109stream-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="L12464" class="LineNr">12464 </span> (<a href='109stream-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#L12433'>test-convert-read-from-stream</a>/2"</span>) -<span id="L12465" class="LineNr">12465 </span> (<a href='109stream-equal.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#L12433'>test-convert-read-from-stream</a>/3"</span>) -<span id="L12466" class="LineNr">12466 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12433'>test-convert-read-from-stream</a>/4"</span>) -<span id="L12467" class="LineNr">12467 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12433'>test-convert-read-from-stream</a>/5"</span>) -<span id="L12468" class="LineNr">12468 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12433'>test-convert-read-from-stream</a>/6"</span>) -<span id="L12469" class="LineNr">12469 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12433'>test-convert-read-from-stream</a>/7"</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">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12433'>test-convert-read-from-stream</a>/8"</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">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12433'>test-convert-read-from-stream</a>/9"</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">" (<a href='309stream.subx.html#L107'>read-from-stream</a> %esi %ecx 0x00000004)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12433'>test-convert-read-from-stream</a>/10"</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">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12433'>test-convert-read-from-stream</a>/11"</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">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12433'>test-convert-read-from-stream</a>/12"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12433'>test-convert-read-from-stream</a>/13"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12433'>test-convert-read-from-stream</a>/14"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-read-from-stream/15"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12433'>test-convert-read-from-stream</a>/16"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12433'>test-convert-read-from-stream</a>/17"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12433'>test-convert-read-from-stream</a>/18"</span>) -<span id="L12481" class="LineNr">12481 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12482" class="LineNr">12482 </span> 89/<- %esp 5/r32/ebp -<span id="L12483" class="LineNr">12483 </span> 5d/pop-to-ebp -<span id="L12484" class="LineNr">12484 </span> c3/return -<span id="L12485" class="LineNr">12485 </span> -<span id="L12486" class="LineNr">12486 </span><span class="subxTest">test-convert-read-from-stream-with-correct-payload-size</span>: -<span id="L12487" class="LineNr">12487 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12488" class="LineNr">12488 </span> 55/push-ebp -<span id="L12489" class="LineNr">12489 </span> 89/<- %ebp 4/r32/esp -<span id="L12490" class="LineNr">12490 </span> <span class="subxComment"># setup</span> -<span id="L12491" class="LineNr">12491 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12492" class="LineNr">12492 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12493" class="LineNr">12493 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12494" class="LineNr">12494 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12495" class="LineNr">12495 </span> <span class="subxComment">#</span> -<span id="L12496" class="LineNr">12496 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12497" class="LineNr">12497 </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="L12498" class="LineNr">12498 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L12499" class="LineNr">12499 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> s, o\n"</span>) -<span id="L12500" class="LineNr">12500 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12501" class="LineNr">12501 </span> <span class="subxComment"># convert</span> -<span id="L12502" class="LineNr">12502 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L12503" class="LineNr">12503 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12504" class="LineNr">12504 </span> <span class="subxComment"># restore ed</span> -<span id="L12505" class="LineNr">12505 </span> 89/<- %edx 4/r32/esp -<span id="L12506" class="LineNr">12506 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12507" class="LineNr">12507 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12508" class="Folded">12508 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12514" class="LineNr">12514 </span> <span class="subxComment"># check output</span> -<span id="L12515" class="LineNr">12515 </span> (<a href='109stream-equal.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#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/0"</span>) -<span id="L12516" class="LineNr">12516 </span> (<a href='109stream-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="L12517" class="LineNr">12517 </span> (<a href='109stream-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#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/2"</span>) -<span id="L12518" class="LineNr">12518 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/3"</span>) -<span id="L12519" class="LineNr">12519 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/4"</span>) -<span id="L12520" class="LineNr">12520 </span> (<a href='109stream-equal.subx.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#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/5"</span>) -<span id="L12521" class="LineNr">12521 </span> (<a href='109stream-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#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/6"</span>) -<span id="L12522" class="LineNr">12522 </span> (<a href='109stream-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#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/7"</span>) -<span id="L12523" class="LineNr">12523 </span> (<a href='109stream-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#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/8"</span>) -<span id="L12524" class="LineNr">12524 </span> (<a href='109stream-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#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/9"</span>) -<span id="L12525" class="LineNr">12525 </span> (<a href='109stream-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#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/10"</span>) -<span id="L12526" class="LineNr">12526 </span> (<a href='109stream-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#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/11"</span>) -<span id="L12527" class="LineNr">12527 </span> (<a href='109stream-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#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/12"</span>) -<span id="L12528" class="LineNr">12528 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/13"</span>) -<span id="L12529" class="LineNr">12529 </span> (<a href='109stream-equal.subx.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#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/14"</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#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="L12531" class="LineNr">12531 </span> (<a href='109stream-equal.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#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/16"</span>) -<span id="L12532" class="LineNr">12532 </span> (<a href='109stream-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#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/17"</span>) -<span id="L12533" class="LineNr">12533 </span> (<a href='109stream-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#L12486'>test-convert-read-from-stream-with-correct-payload-size</a>/18"</span>) -<span id="L12534" class="LineNr">12534 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12535" class="LineNr">12535 </span> 89/<- %esp 5/r32/ebp -<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-atom-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: 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-atom-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-atom-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-atom-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</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: (handle 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</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</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</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-non-stream-compound-base-type-2</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: (addr int)\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-non-stream-compound-base-type-2</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-non-stream-compound-base-type-2</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-non-stream-compound-base-type-2</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="L12405" class="LineNr">12405 </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="L12406" class="LineNr">12406 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12407" class="LineNr">12407 </span> <span class="subxComment"># convert</span> +<span id="L12408" class="LineNr">12408 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12409" class="LineNr">12409 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12410" class="LineNr">12410 </span> <span class="subxComment"># restore ed</span> +<span id="L12411" class="LineNr">12411 </span> 89/<- %edx 4/r32/esp +<span id="L12412" class="LineNr">12412 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12413" class="LineNr">12413 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12414" class="Folded">12414 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12420" class="LineNr">12420 </span> <span class="subxComment"># check output</span> +<span id="L12421" class="LineNr">12421 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-compute-offset-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L12422" class="LineNr">12422 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L12386'>test-compute-offset-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12423" class="LineNr">12423 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12424" class="LineNr">12424 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-compute-offset-with-too-few-inouts</a>: exit status"</span>) +<span id="L12425" class="LineNr">12425 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12426" class="LineNr">12426 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12427" class="LineNr">12427 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12428" class="LineNr">12428 </span> 5d/pop-to-ebp +<span id="L12429" class="LineNr">12429 </span> c3/return +<span id="L12430" class="LineNr">12430 </span> +<span id="L12431" class="LineNr">12431 </span><span class="subxTest">test-compute-offset-with-too-many-inouts</span>: +<span id="L12432" class="LineNr">12432 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12433" class="LineNr">12433 </span> 55/push-ebp +<span id="L12434" class="LineNr">12434 </span> 89/<- %ebp 4/r32/esp +<span id="L12435" class="LineNr">12435 </span> <span class="subxComment"># setup</span> +<span id="L12436" class="LineNr">12436 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12437" class="LineNr">12437 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12438" class="LineNr">12438 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12439" class="LineNr">12439 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12440" class="LineNr">12440 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12441" class="LineNr">12441 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12442" class="LineNr">12442 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12443" class="LineNr">12443 </span> 68/push 0/imm32 +<span id="L12444" class="LineNr">12444 </span> 68/push 0/imm32 +<span id="L12445" class="LineNr">12445 </span> 89/<- %edx 4/r32/esp +<span id="L12446" class="LineNr">12446 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12447" class="LineNr">12447 </span> <span class="subxComment">#</span> +<span id="L12448" class="LineNr">12448 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12449" class="LineNr">12449 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L12450" class="LineNr">12450 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0, 0\n"</span>) +<span id="L12451" class="LineNr">12451 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12452" class="LineNr">12452 </span> <span class="subxComment"># convert</span> +<span id="L12453" class="LineNr">12453 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12454" class="LineNr">12454 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12455" class="LineNr">12455 </span> <span class="subxComment"># restore ed</span> +<span id="L12456" class="LineNr">12456 </span> 89/<- %edx 4/r32/esp +<span id="L12457" class="LineNr">12457 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12458" class="LineNr">12458 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12459" class="Folded">12459 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12465" class="LineNr">12465 </span> <span class="subxComment"># check output</span> +<span id="L12466" class="LineNr">12466 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12431'>test-compute-offset-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L12467" class="LineNr">12467 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L12431'>test-compute-offset-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12468" class="LineNr">12468 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12469" class="LineNr">12469 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12431'>test-compute-offset-with-too-many-inouts</a>: exit status"</span>) +<span id="L12470" class="LineNr">12470 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12471" class="LineNr">12471 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12472" class="LineNr">12472 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12473" class="LineNr">12473 </span> 5d/pop-to-ebp +<span id="L12474" class="LineNr">12474 </span> c3/return +<span id="L12475" class="LineNr">12475 </span> +<span id="L12476" class="LineNr">12476 </span><span class="subxTest">test-compute-offset-with-no-output</span>: +<span id="L12477" class="LineNr">12477 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12478" class="LineNr">12478 </span> 55/push-ebp +<span id="L12479" class="LineNr">12479 </span> 89/<- %ebp 4/r32/esp +<span id="L12480" class="LineNr">12480 </span> <span class="subxComment"># setup</span> +<span id="L12481" class="LineNr">12481 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12482" class="LineNr">12482 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12483" class="LineNr">12483 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12484" class="LineNr">12484 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12485" class="LineNr">12485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12486" class="LineNr">12486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12487" class="LineNr">12487 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12488" class="LineNr">12488 </span> 68/push 0/imm32 +<span id="L12489" class="LineNr">12489 </span> 68/push 0/imm32 +<span id="L12490" class="LineNr">12490 </span> 89/<- %edx 4/r32/esp +<span id="L12491" class="LineNr">12491 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12492" class="LineNr">12492 </span> <span class="subxComment">#</span> +<span id="L12493" class="LineNr">12493 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12494" class="LineNr">12494 </span> (<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="L12495" class="LineNr">12495 </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="L12496" class="LineNr">12496 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12497" class="LineNr">12497 </span> <span class="subxComment"># convert</span> +<span id="L12498" class="LineNr">12498 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12499" class="LineNr">12499 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12500" class="LineNr">12500 </span> <span class="subxComment"># restore ed</span> +<span id="L12501" class="LineNr">12501 </span> 89/<- %edx 4/r32/esp +<span id="L12502" class="LineNr">12502 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12503" class="LineNr">12503 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12504" class="Folded">12504 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12510" class="LineNr">12510 </span> <span class="subxComment"># check output</span> +<span id="L12511" class="LineNr">12511 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12476'>test-compute-offset-with-no-output</a>: output should be empty"</span>) +<span id="L12512" class="LineNr">12512 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L12476'>test-compute-offset-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12513" class="LineNr">12513 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12514" class="LineNr">12514 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12476'>test-compute-offset-with-no-output</a>: exit status"</span>) +<span id="L12515" class="LineNr">12515 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12516" class="LineNr">12516 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12517" class="LineNr">12517 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12518" class="LineNr">12518 </span> 5d/pop-to-ebp +<span id="L12519" class="LineNr">12519 </span> c3/return +<span id="L12520" class="LineNr">12520 </span> +<span id="L12521" class="LineNr">12521 </span><span class="subxTest">test-compute-offset-with-too-many-outputs</span>: +<span id="L12522" class="LineNr">12522 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12523" class="LineNr">12523 </span> 55/push-ebp +<span id="L12524" class="LineNr">12524 </span> 89/<- %ebp 4/r32/esp +<span id="L12525" class="LineNr">12525 </span> <span class="subxComment"># setup</span> +<span id="L12526" class="LineNr">12526 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12527" class="LineNr">12527 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12528" class="LineNr">12528 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12529" class="LineNr">12529 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12530" class="LineNr">12530 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12531" class="LineNr">12531 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12532" class="LineNr">12532 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12533" class="LineNr">12533 </span> 68/push 0/imm32 +<span id="L12534" class="LineNr">12534 </span> 68/push 0/imm32 +<span id="L12535" class="LineNr">12535 </span> 89/<- %edx 4/r32/esp +<span id="L12536" class="LineNr">12536 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12537" class="LineNr">12537 </span> <span class="subxComment">#</span> +<span id="L12538" class="LineNr">12538 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12539" class="LineNr">12539 </span> (<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="L12540" class="LineNr">12540 </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="L12541" class="LineNr">12541 </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="L12542" class="LineNr">12542 </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="L12543" class="LineNr">12543 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12544" class="LineNr">12544 </span> <span class="subxComment"># convert</span> +<span id="L12545" class="LineNr">12545 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12546" class="LineNr">12546 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12547" class="LineNr">12547 </span> <span class="subxComment"># restore ed</span> +<span id="L12548" class="LineNr">12548 </span> 89/<- %edx 4/r32/esp +<span id="L12549" class="LineNr">12549 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12550" class="LineNr">12550 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12551" class="Folded">12551 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12557" class="LineNr">12557 </span> <span class="subxComment"># check output</span> +<span id="L12558" class="LineNr">12558 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12521'>test-compute-offset-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L12559" class="LineNr">12559 </span> (<a href='109stream-equal.subx.html#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#L12521'>test-compute-offset-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12560" class="LineNr">12560 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12561" class="LineNr">12561 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12521'>test-compute-offset-with-too-many-outputs</a>: exit status"</span>) +<span id="L12562" class="LineNr">12562 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12563" class="LineNr">12563 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12564" class="LineNr">12564 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12565" class="LineNr">12565 </span> 5d/pop-to-ebp +<span id="L12566" class="LineNr">12566 </span> c3/return +<span id="L12567" class="LineNr">12567 </span> +<span id="L12568" class="LineNr">12568 </span><span class="subxTest">test-convert-read-from-stream</span>: +<span id="L12569" class="LineNr">12569 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12570" class="LineNr">12570 </span> 55/push-ebp +<span id="L12571" class="LineNr">12571 </span> 89/<- %ebp 4/r32/esp +<span id="L12572" class="LineNr">12572 </span> <span class="subxComment"># setup</span> +<span id="L12573" class="LineNr">12573 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12574" class="LineNr">12574 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12575" class="LineNr">12575 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12576" class="LineNr">12576 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<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 s/esi: (addr stream int) <- copy 0\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">" var o/ecx: (addr int) <- copy 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">" <a href='309stream.subx.html#L107'>read-from-stream</a> s, o\n"</span>) +<span id="L12582" class="LineNr">12582 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12583" class="LineNr">12583 </span> <span class="subxComment"># convert</span> +<span id="L12584" class="LineNr">12584 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L12585" class="LineNr">12585 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12586" class="LineNr">12586 </span> <span class="subxComment"># restore ed</span> +<span id="L12587" class="LineNr">12587 </span> 89/<- %edx 4/r32/esp +<span id="L12588" class="LineNr">12588 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12589" class="LineNr">12589 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12590" class="Folded">12590 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12596" class="LineNr">12596 </span> <span class="subxComment"># check output</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#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12568'>test-convert-read-from-stream</a>/0"</span>) +<span id="L12598" class="LineNr">12598 </span> (<a href='109stream-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="L12599" class="LineNr">12599 </span> (<a href='109stream-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#L12568'>test-convert-read-from-stream</a>/2"</span>) +<span id="L12600" class="LineNr">12600 </span> (<a href='109stream-equal.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#L12568'>test-convert-read-from-stream</a>/3"</span>) +<span id="L12601" class="LineNr">12601 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12568'>test-convert-read-from-stream</a>/4"</span>) +<span id="L12602" class="LineNr">12602 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12568'>test-convert-read-from-stream</a>/5"</span>) +<span id="L12603" class="LineNr">12603 </span> (<a href='109stream-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#L12568'>test-convert-read-from-stream</a>/6"</span>) +<span id="L12604" class="LineNr">12604 </span> (<a href='109stream-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#L12568'>test-convert-read-from-stream</a>/7"</span>) +<span id="L12605" class="LineNr">12605 </span> (<a href='109stream-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#L12568'>test-convert-read-from-stream</a>/8"</span>) +<span id="L12606" class="LineNr">12606 </span> (<a href='109stream-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#L12568'>test-convert-read-from-stream</a>/9"</span>) +<span id="L12607" class="LineNr">12607 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L12568'>test-convert-read-from-stream</a>/10"</span>) +<span id="L12608" class="LineNr">12608 </span> (<a href='109stream-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#L12568'>test-convert-read-from-stream</a>/11"</span>) +<span id="L12609" class="LineNr">12609 </span> (<a href='109stream-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#L12568'>test-convert-read-from-stream</a>/12"</span>) +<span id="L12610" class="LineNr">12610 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12568'>test-convert-read-from-stream</a>/13"</span>) +<span id="L12611" class="LineNr">12611 </span> (<a href='109stream-equal.subx.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#L12568'>test-convert-read-from-stream</a>/14"</span>) +<span id="L12612" class="LineNr">12612 </span> (<a href='109stream-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="L12613" class="LineNr">12613 </span> (<a href='109stream-equal.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#L12568'>test-convert-read-from-stream</a>/16"</span>) +<span id="L12614" class="LineNr">12614 </span> (<a href='109stream-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#L12568'>test-convert-read-from-stream</a>/17"</span>) +<span id="L12615" class="LineNr">12615 </span> (<a href='109stream-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#L12568'>test-convert-read-from-stream</a>/18"</span>) +<span id="L12616" class="LineNr">12616 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12617" class="LineNr">12617 </span> 89/<- %esp 5/r32/ebp +<span id="L12618" class="LineNr">12618 </span> 5d/pop-to-ebp +<span id="L12619" class="LineNr">12619 </span> c3/return +<span id="L12620" class="LineNr">12620 </span> +<span id="L12621" class="LineNr">12621 </span><span class="subxTest">test-convert-read-from-stream-with-correct-payload-size</span>: +<span id="L12622" class="LineNr">12622 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12623" class="LineNr">12623 </span> 55/push-ebp +<span id="L12624" class="LineNr">12624 </span> 89/<- %ebp 4/r32/esp +<span id="L12625" class="LineNr">12625 </span> <span class="subxComment"># setup</span> +<span id="L12626" class="LineNr">12626 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12627" class="LineNr">12627 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12628" class="LineNr">12628 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12629" class="LineNr">12629 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12630" class="LineNr">12630 </span> <span class="subxComment">#</span> +<span id="L12631" class="LineNr">12631 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12632" class="LineNr">12632 </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="L12633" class="LineNr">12633 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L12634" class="LineNr">12634 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> s, o\n"</span>) +<span id="L12635" class="LineNr">12635 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12636" class="LineNr">12636 </span> <span class="subxComment"># convert</span> +<span id="L12637" class="LineNr">12637 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L12638" class="LineNr">12638 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12639" class="LineNr">12639 </span> <span class="subxComment"># restore ed</span> +<span id="L12640" class="LineNr">12640 </span> 89/<- %edx 4/r32/esp +<span id="L12641" class="LineNr">12641 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12642" class="LineNr">12642 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12643" class="Folded">12643 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12649" class="LineNr">12649 </span> <span class="subxComment"># check output</span> +<span id="L12650" class="LineNr">12650 </span> (<a href='109stream-equal.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#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/0"</span>) +<span id="L12651" class="LineNr">12651 </span> (<a href='109stream-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="L12652" class="LineNr">12652 </span> (<a href='109stream-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#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/2"</span>) +<span id="L12653" class="LineNr">12653 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/3"</span>) +<span id="L12654" class="LineNr">12654 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/4"</span>) +<span id="L12655" class="LineNr">12655 </span> (<a href='109stream-equal.subx.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#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/5"</span>) +<span id="L12656" class="LineNr">12656 </span> (<a href='109stream-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#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/6"</span>) +<span id="L12657" class="LineNr">12657 </span> (<a href='109stream-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#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/7"</span>) +<span id="L12658" class="LineNr">12658 </span> (<a href='109stream-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#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/8"</span>) +<span id="L12659" class="LineNr">12659 </span> (<a href='109stream-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#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/9"</span>) +<span id="L12660" class="LineNr">12660 </span> (<a href='109stream-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#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/10"</span>) +<span id="L12661" class="LineNr">12661 </span> (<a href='109stream-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#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/11"</span>) +<span id="L12662" class="LineNr">12662 </span> (<a href='109stream-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#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/12"</span>) +<span id="L12663" class="LineNr">12663 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/13"</span>) +<span id="L12664" class="LineNr">12664 </span> (<a href='109stream-equal.subx.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#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/14"</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#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="L12666" class="LineNr">12666 </span> (<a href='109stream-equal.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#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/16"</span>) +<span id="L12667" class="LineNr">12667 </span> (<a href='109stream-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#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/17"</span>) +<span id="L12668" class="LineNr">12668 </span> (<a href='109stream-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#L12621'>test-convert-read-from-stream-with-correct-payload-size</a>/18"</span>) +<span id="L12669" class="LineNr">12669 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12670" class="LineNr">12670 </span> 89/<- %esp 5/r32/ebp <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-stream-atom-base-type</span>: +<span id="L12674" class="LineNr">12674 </span><span class="subxTest">test-read-from-stream-with-non-stream-atom-base-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 @@ -11521,7 +11521,7 @@ if ('onhashchange' in window) { <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: stream\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: int\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">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, 0\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">"}\n"</span>) <span id="L12695" class="LineNr">12695 </span> <span class="subxComment"># convert</span> @@ -11531,19 +11531,19 @@ if ('onhashchange' in window) { <span id="L12699" class="LineNr">12699 </span> 89/<- %edx 4/r32/esp <span id="L12700" class="LineNr">12700 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L12701" class="LineNr">12701 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12702" class="Folded">12702 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12702" class="Folded">12702 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12708" class="LineNr">12708 </span> <span class="subxComment"># check output</span> -<span id="L12709" class="LineNr">12709 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-stream-atom-base-type</a>: output should be empty"</span>) -<span id="L12710" class="LineNr">12710 </span> (<a href='109stream-equal.subx.html#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#L12674'>test-read-from-stream-with-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12709" class="LineNr">12709 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-non-stream-atom-base-type</a>: output should be empty"</span>) +<span id="L12710" class="LineNr">12710 </span> (<a href='109stream-equal.subx.html#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#L12674'>test-read-from-stream-with-non-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L12711" class="LineNr">12711 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12712" class="LineNr">12712 </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-stream-atom-base-type</a>: exit status"</span>) +<span id="L12712" class="LineNr">12712 </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-non-stream-atom-base-type</a>: exit status"</span>) <span id="L12713" class="LineNr">12713 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L12714" class="LineNr">12714 </span> 81 0/subop/add %esp 8/imm32 <span id="L12715" class="LineNr">12715 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L12716" class="LineNr">12716 </span> 5d/pop-to-ebp <span id="L12717" class="LineNr">12717 </span> c3/return <span id="L12718" class="LineNr">12718 </span> -<span id="L12719" class="LineNr">12719 </span><span class="subxTest">test-read-from-stream-with-wrong-index-type</span>: +<span id="L12719" class="LineNr">12719 </span><span class="subxTest">test-read-from-stream-with-non-stream-compound-base-type</span>: <span id="L12720" class="LineNr">12720 </span> <span class="subxS1Comment"># . prologue</span> <span id="L12721" class="LineNr">12721 </span> 55/push-ebp <span id="L12722" class="LineNr">12722 </span> 89/<- %ebp 4/r32/esp @@ -11561,48 +11561,48 @@ if ('onhashchange' in window) { <span id="L12734" class="LineNr">12734 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L12735" class="LineNr">12735 </span> <span class="subxComment">#</span> <span id="L12736" class="LineNr">12736 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12737" class="LineNr">12737 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr stream int) <- copy 0\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">" var b: boolean\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">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, b\n"</span>) -<span id="L12740" class="LineNr">12740 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12741" class="LineNr">12741 </span> <span class="subxComment"># convert</span> -<span id="L12742" class="LineNr">12742 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12743" class="LineNr">12743 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12744" class="LineNr">12744 </span> <span class="subxComment"># restore ed</span> -<span id="L12745" class="LineNr">12745 </span> 89/<- %edx 4/r32/esp -<span id="L12746" class="LineNr">12746 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12747" class="LineNr">12747 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12748" class="Folded">12748 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12754" class="LineNr">12754 </span> <span class="subxComment"># check output</span> -<span id="L12755" class="LineNr">12755 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12719'>test-read-from-stream-with-wrong-index-type</a>: output should be empty"</span>) -<span id="L12756" class="LineNr">12756 </span> (<a href='109stream-equal.subx.html#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#L12719'>test-read-from-stream-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12757" class="LineNr">12757 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12758" class="LineNr">12758 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12719'>test-read-from-stream-with-wrong-index-type</a>: exit status"</span>) -<span id="L12759" class="LineNr">12759 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12760" class="LineNr">12760 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12761" class="LineNr">12761 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12762" class="LineNr">12762 </span> 5d/pop-to-ebp -<span id="L12763" class="LineNr">12763 </span> c3/return -<span id="L12764" class="LineNr">12764 </span> -<span id="L12765" class="LineNr">12765 </span><span class="subxTest">test-read-from-stream-with-no-inouts</span>: -<span id="L12766" class="LineNr">12766 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12767" class="LineNr">12767 </span> 55/push-ebp -<span id="L12768" class="LineNr">12768 </span> 89/<- %ebp 4/r32/esp -<span id="L12769" class="LineNr">12769 </span> <span class="subxComment"># setup</span> -<span id="L12770" class="LineNr">12770 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12771" class="LineNr">12771 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12772" class="LineNr">12772 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12773" class="LineNr">12773 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12774" class="LineNr">12774 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L12775" class="LineNr">12775 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12776" class="LineNr">12776 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</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">" var a: (handle int)\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">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, 0\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#L12719'>test-read-from-stream-with-non-stream-compound-base-type</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>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12719'>test-read-from-stream-with-non-stream-compound-base-type</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#L12719'>test-read-from-stream-with-non-stream-compound-base-type</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-non-stream-compound-base-type-2</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> 68/push 0/imm32 -<span id="L12779" class="LineNr">12779 </span> 89/<- %edx 4/r32/esp -<span id="L12780" class="LineNr">12780 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12781" class="LineNr">12781 </span> <span class="subxComment">#</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">"fn foo {\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">" read-from-stream\n"</span>) +<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 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, 0\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) @@ -11611,19 +11611,19 @@ if ('onhashchange' in window) { <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="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#L12765'>test-read-from-stream-with-no-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#L12765'>test-read-from-stream-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</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-non-stream-compound-base-type-2</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>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12764'>test-read-from-stream-with-non-stream-compound-base-type-2</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#L12765'>test-read-from-stream-with-no-inouts</a>: exit status"</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-non-stream-compound-base-type-2</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-few-inouts</span>: +<span id="L12809" class="LineNr">12809 </span><span class="subxTest">test-read-from-stream-with-stream-atom-base-type</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 @@ -11641,8 +11641,8 @@ if ('onhashchange' in window) { <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">" <a href='309stream.subx.html#L107'>read-from-stream</a> a\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: stream\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">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, 0\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">"}\n"</span>) <span id="L12830" class="LineNr">12830 </span> <span class="subxComment"># convert</span> <span id="L12831" class="LineNr">12831 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -11651,19 +11651,19 @@ if ('onhashchange' in window) { <span id="L12834" class="LineNr">12834 </span> 89/<- %edx 4/r32/esp <span id="L12835" class="LineNr">12835 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L12836" class="LineNr">12836 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12837" class="Folded">12837 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12837" class="Folded">12837 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12843" class="LineNr">12843 </span> <span class="subxComment"># check output</span> -<span id="L12844" class="LineNr">12844 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-few-inouts</a>: output should be empty"</span>) -<span id="L12845" class="LineNr">12845 </span> (<a href='109stream-equal.subx.html#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#L12809'>test-read-from-stream-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12844" class="LineNr">12844 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-stream-atom-base-type</a>: output should be empty"</span>) +<span id="L12845" class="LineNr">12845 </span> (<a href='109stream-equal.subx.html#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#L12809'>test-read-from-stream-with-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L12846" class="LineNr">12846 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12847" class="LineNr">12847 </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-few-inouts</a>: exit status"</span>) +<span id="L12847" class="LineNr">12847 </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-stream-atom-base-type</a>: exit status"</span>) <span id="L12848" class="LineNr">12848 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L12849" class="LineNr">12849 </span> 81 0/subop/add %esp 8/imm32 <span id="L12850" class="LineNr">12850 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L12851" class="LineNr">12851 </span> 5d/pop-to-ebp <span id="L12852" class="LineNr">12852 </span> c3/return <span id="L12853" class="LineNr">12853 </span> -<span id="L12854" class="LineNr">12854 </span><span class="subxTest">test-read-from-stream-with-too-many-inouts</span>: +<span id="L12854" class="LineNr">12854 </span><span class="subxTest">test-read-from-stream-with-wrong-index-type</span>: <span id="L12855" class="LineNr">12855 </span> <span class="subxS1Comment"># . prologue</span> <span id="L12856" class="LineNr">12856 </span> 55/push-ebp <span id="L12857" class="LineNr">12857 </span> 89/<- %ebp 4/r32/esp @@ -11681,9 +11681,9 @@ if ('onhashchange' in window) { <span id="L12869" class="LineNr">12869 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L12870" class="LineNr">12870 </span> <span class="subxComment">#</span> <span id="L12871" class="LineNr">12871 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12872" class="LineNr">12872 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\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 b: (addr 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">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, b, 0\n"</span>) +<span id="L12872" class="LineNr">12872 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr stream int) <- copy 0\n"</span>) +<span id="L12873" class="LineNr">12873 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\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">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, b\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">"}\n"</span>) <span id="L12876" class="LineNr">12876 </span> <span class="subxComment"># convert</span> <span id="L12877" class="LineNr">12877 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -11692,19 +11692,19 @@ if ('onhashchange' in window) { <span id="L12880" class="LineNr">12880 </span> 89/<- %edx 4/r32/esp <span id="L12881" class="LineNr">12881 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L12882" class="LineNr">12882 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12883" class="Folded">12883 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12883" class="Folded">12883 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12889" class="LineNr">12889 </span> <span class="subxComment"># check output</span> -<span id="L12890" class="LineNr">12890 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12854'>test-read-from-stream-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L12891" class="LineNr">12891 </span> (<a href='109stream-equal.subx.html#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#L12854'>test-read-from-stream-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12890" class="LineNr">12890 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12854'>test-read-from-stream-with-wrong-index-type</a>: output should be empty"</span>) +<span id="L12891" class="LineNr">12891 </span> (<a href='109stream-equal.subx.html#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#L12854'>test-read-from-stream-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L12892" class="LineNr">12892 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12893" class="LineNr">12893 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12854'>test-read-from-stream-with-too-many-inouts</a>: exit status"</span>) +<span id="L12893" class="LineNr">12893 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12854'>test-read-from-stream-with-wrong-index-type</a>: exit status"</span>) <span id="L12894" class="LineNr">12894 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L12895" class="LineNr">12895 </span> 81 0/subop/add %esp 8/imm32 <span id="L12896" class="LineNr">12896 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L12897" class="LineNr">12897 </span> 5d/pop-to-ebp <span id="L12898" class="LineNr">12898 </span> c3/return <span id="L12899" class="LineNr">12899 </span> -<span id="L12900" class="LineNr">12900 </span><span class="subxTest">test-read-from-stream-with-output</span>: +<span id="L12900" class="LineNr">12900 </span><span class="subxTest">test-read-from-stream-with-no-inouts</span>: <span id="L12901" class="LineNr">12901 </span> <span class="subxS1Comment"># . prologue</span> <span id="L12902" class="LineNr">12902 </span> 55/push-ebp <span id="L12903" class="LineNr">12903 </span> 89/<- %ebp 4/r32/esp @@ -11722,246 +11722,246 @@ if ('onhashchange' in window) { <span id="L12915" class="LineNr">12915 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L12916" class="LineNr">12916 </span> <span class="subxComment">#</span> <span id="L12917" class="LineNr">12917 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12918" class="LineNr">12918 </span> (<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="L12919" class="LineNr">12919 </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="L12920" class="LineNr">12920 </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="L12921" class="LineNr">12921 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12922" class="LineNr">12922 </span> <span class="subxComment"># convert</span> -<span id="L12923" class="LineNr">12923 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L12924" class="LineNr">12924 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12925" class="LineNr">12925 </span> <span class="subxComment"># restore ed</span> -<span id="L12926" class="LineNr">12926 </span> 89/<- %edx 4/r32/esp -<span id="L12927" class="LineNr">12927 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12928" class="LineNr">12928 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12929" class="Folded">12929 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12935" class="LineNr">12935 </span> <span class="subxComment"># check output</span> -<span id="L12936" class="LineNr">12936 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12900'>test-read-from-stream-with-output</a>: output should be empty"</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#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#L12900'>test-read-from-stream-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L12938" class="LineNr">12938 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12939" class="LineNr">12939 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12900'>test-read-from-stream-with-output</a>: exit status"</span>) -<span id="L12940" class="LineNr">12940 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12941" class="LineNr">12941 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12942" class="LineNr">12942 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12943" class="LineNr">12943 </span> 5d/pop-to-ebp -<span id="L12944" class="LineNr">12944 </span> c3/return -<span id="L12945" class="LineNr">12945 </span> -<span id="L12946" class="LineNr">12946 </span><span class="subxTest">test-convert-write-to-stream</span>: -<span id="L12947" class="LineNr">12947 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12948" class="LineNr">12948 </span> 55/push-ebp -<span id="L12949" class="LineNr">12949 </span> 89/<- %ebp 4/r32/esp -<span id="L12950" class="LineNr">12950 </span> <span class="subxComment"># setup</span> -<span id="L12951" class="LineNr">12951 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12952" class="LineNr">12952 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12953" class="LineNr">12953 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L12954" class="LineNr">12954 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12955" class="LineNr">12955 </span> <span class="subxComment">#</span> -<span id="L12956" class="LineNr">12956 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12957" class="LineNr">12957 </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="L12958" class="LineNr">12958 </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="L12959" class="LineNr">12959 </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="L12960" class="LineNr">12960 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12961" class="LineNr">12961 </span> <span class="subxComment"># convert</span> -<span id="L12962" class="LineNr">12962 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L12963" class="LineNr">12963 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12964" class="LineNr">12964 </span> <span class="subxComment"># restore ed</span> -<span id="L12965" class="LineNr">12965 </span> 89/<- %edx 4/r32/esp -<span id="L12966" class="LineNr">12966 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L12967" class="LineNr">12967 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L12968" class="Folded">12968 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12974" class="LineNr">12974 </span> <span class="subxComment"># check output</span> -<span id="L12975" class="LineNr">12975 </span> (<a href='109stream-equal.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#L12946'>test-convert-write-to-stream</a>/0"</span>) -<span id="L12976" class="LineNr">12976 </span> (<a href='109stream-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="L12977" class="LineNr">12977 </span> (<a href='109stream-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#L12946'>test-convert-write-to-stream</a>/2"</span>) -<span id="L12978" class="LineNr">12978 </span> (<a href='109stream-equal.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#L12946'>test-convert-write-to-stream</a>/3"</span>) -<span id="L12979" class="LineNr">12979 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12946'>test-convert-write-to-stream</a>/4"</span>) -<span id="L12980" class="LineNr">12980 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12946'>test-convert-write-to-stream</a>/5"</span>) -<span id="L12981" class="LineNr">12981 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12946'>test-convert-write-to-stream</a>/6"</span>) -<span id="L12982" class="LineNr">12982 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12946'>test-convert-write-to-stream</a>/7"</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">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12946'>test-convert-write-to-stream</a>/8"</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">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12946'>test-convert-write-to-stream</a>/9"</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">" (<a href='309stream.subx.html#L54'>write-to-stream</a> %esi %ecx 0x00000004)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12946'>test-convert-write-to-stream</a>/10"</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">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12946'>test-convert-write-to-stream</a>/11"</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">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12946'>test-convert-write-to-stream</a>/12"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12946'>test-convert-write-to-stream</a>/13"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12946'>test-convert-write-to-stream</a>/14"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-write-to-stream/15"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12946'>test-convert-write-to-stream</a>/16"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12946'>test-convert-write-to-stream</a>/17"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12946'>test-convert-write-to-stream</a>/18"</span>) -<span id="L12994" class="LineNr">12994 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12995" class="LineNr">12995 </span> 89/<- %esp 5/r32/ebp -<span id="L12996" class="LineNr">12996 </span> 5d/pop-to-ebp -<span id="L12997" class="LineNr">12997 </span> c3/return -<span id="L12998" class="LineNr">12998 </span> -<span id="L12999" class="LineNr">12999 </span><span class="subxTest">test-convert-write-to-stream-with-correct-payload-size</span>: -<span id="L13000" class="LineNr">13000 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13001" class="LineNr">13001 </span> 55/push-ebp -<span id="L13002" class="LineNr">13002 </span> 89/<- %ebp 4/r32/esp -<span id="L13003" class="LineNr">13003 </span> <span class="subxComment"># setup</span> -<span id="L13004" class="LineNr">13004 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13005" class="LineNr">13005 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13006" class="LineNr">13006 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13007" class="LineNr">13007 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13008" class="LineNr">13008 </span> <span class="subxComment">#</span> -<span id="L13009" class="LineNr">13009 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13010" class="LineNr">13010 </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="L13011" class="LineNr">13011 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L13012" class="LineNr">13012 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> s, o\n"</span>) -<span id="L13013" class="LineNr">13013 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13014" class="LineNr">13014 </span> <span class="subxComment"># convert</span> -<span id="L13015" class="LineNr">13015 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L13016" class="LineNr">13016 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13017" class="LineNr">13017 </span> <span class="subxComment"># restore ed</span> -<span id="L13018" class="LineNr">13018 </span> 89/<- %edx 4/r32/esp -<span id="L13019" class="LineNr">13019 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13020" class="LineNr">13020 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13021" class="Folded">13021 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13027" class="LineNr">13027 </span> <span class="subxComment"># check output</span> -<span id="L13028" class="LineNr">13028 </span> (<a href='109stream-equal.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#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/0"</span>) -<span id="L13029" class="LineNr">13029 </span> (<a href='109stream-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="L13030" class="LineNr">13030 </span> (<a href='109stream-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#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/2"</span>) -<span id="L13031" class="LineNr">13031 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/3"</span>) -<span id="L13032" class="LineNr">13032 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/4"</span>) -<span id="L13033" class="LineNr">13033 </span> (<a href='109stream-equal.subx.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#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/5"</span>) -<span id="L13034" class="LineNr">13034 </span> (<a href='109stream-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#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/6"</span>) -<span id="L13035" class="LineNr">13035 </span> (<a href='109stream-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#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/7"</span>) -<span id="L13036" class="LineNr">13036 </span> (<a href='109stream-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#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/8"</span>) -<span id="L13037" class="LineNr">13037 </span> (<a href='109stream-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#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/9"</span>) -<span id="L13038" class="LineNr">13038 </span> (<a href='109stream-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#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/10"</span>) -<span id="L13039" class="LineNr">13039 </span> (<a href='109stream-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#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/11"</span>) -<span id="L13040" class="LineNr">13040 </span> (<a href='109stream-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#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/12"</span>) -<span id="L13041" class="LineNr">13041 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/13"</span>) -<span id="L13042" class="LineNr">13042 </span> (<a href='109stream-equal.subx.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#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/14"</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#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="L13044" class="LineNr">13044 </span> (<a href='109stream-equal.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#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/16"</span>) -<span id="L13045" class="LineNr">13045 </span> (<a href='109stream-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#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/17"</span>) -<span id="L13046" class="LineNr">13046 </span> (<a href='109stream-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#L12999'>test-convert-write-to-stream-with-correct-payload-size</a>/18"</span>) -<span id="L13047" class="LineNr">13047 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13048" class="LineNr">13048 </span> 89/<- %esp 5/r32/ebp -<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-atom-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: 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-atom-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-atom-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-atom-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</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: (handle 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</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</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</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-non-stream-compound-base-type-2</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: (addr int)\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-non-stream-compound-base-type-2</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-non-stream-compound-base-type-2</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-non-stream-compound-base-type-2</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="L12918" class="LineNr">12918 </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="L12919" class="LineNr">12919 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12920" class="LineNr">12920 </span> <span class="subxComment"># convert</span> +<span id="L12921" class="LineNr">12921 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12922" class="LineNr">12922 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12923" class="LineNr">12923 </span> <span class="subxComment"># restore ed</span> +<span id="L12924" class="LineNr">12924 </span> 89/<- %edx 4/r32/esp +<span id="L12925" class="LineNr">12925 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12926" class="LineNr">12926 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12927" class="Folded">12927 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12933" class="LineNr">12933 </span> <span class="subxComment"># check output</span> +<span id="L12934" class="LineNr">12934 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12900'>test-read-from-stream-with-no-inouts</a>: output should be empty"</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#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#L12900'>test-read-from-stream-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12936" class="LineNr">12936 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12937" class="LineNr">12937 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12900'>test-read-from-stream-with-no-inouts</a>: exit status"</span>) +<span id="L12938" class="LineNr">12938 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12939" class="LineNr">12939 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12940" class="LineNr">12940 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12941" class="LineNr">12941 </span> 5d/pop-to-ebp +<span id="L12942" class="LineNr">12942 </span> c3/return +<span id="L12943" class="LineNr">12943 </span> +<span id="L12944" class="LineNr">12944 </span><span class="subxTest">test-read-from-stream-with-too-few-inouts</span>: +<span id="L12945" class="LineNr">12945 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12946" class="LineNr">12946 </span> 55/push-ebp +<span id="L12947" class="LineNr">12947 </span> 89/<- %ebp 4/r32/esp +<span id="L12948" class="LineNr">12948 </span> <span class="subxComment"># setup</span> +<span id="L12949" class="LineNr">12949 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12950" class="LineNr">12950 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12951" class="LineNr">12951 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12952" class="LineNr">12952 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12953" class="LineNr">12953 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12954" class="LineNr">12954 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12955" class="LineNr">12955 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12956" class="LineNr">12956 </span> 68/push 0/imm32 +<span id="L12957" class="LineNr">12957 </span> 68/push 0/imm32 +<span id="L12958" class="LineNr">12958 </span> 89/<- %edx 4/r32/esp +<span id="L12959" class="LineNr">12959 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12960" class="LineNr">12960 </span> <span class="subxComment">#</span> +<span id="L12961" class="LineNr">12961 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12962" class="LineNr">12962 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) +<span id="L12963" class="LineNr">12963 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a\n"</span>) +<span id="L12964" class="LineNr">12964 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12965" class="LineNr">12965 </span> <span class="subxComment"># convert</span> +<span id="L12966" class="LineNr">12966 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12967" class="LineNr">12967 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12968" class="LineNr">12968 </span> <span class="subxComment"># restore ed</span> +<span id="L12969" class="LineNr">12969 </span> 89/<- %edx 4/r32/esp +<span id="L12970" class="LineNr">12970 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12971" class="LineNr">12971 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12972" class="Folded">12972 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12978" class="LineNr">12978 </span> <span class="subxComment"># check output</span> +<span id="L12979" class="LineNr">12979 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12944'>test-read-from-stream-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L12980" class="LineNr">12980 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L12944'>test-read-from-stream-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12981" class="LineNr">12981 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12982" class="LineNr">12982 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12944'>test-read-from-stream-with-too-few-inouts</a>: exit status"</span>) +<span id="L12983" class="LineNr">12983 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12984" class="LineNr">12984 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12985" class="LineNr">12985 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12986" class="LineNr">12986 </span> 5d/pop-to-ebp +<span id="L12987" class="LineNr">12987 </span> c3/return +<span id="L12988" class="LineNr">12988 </span> +<span id="L12989" class="LineNr">12989 </span><span class="subxTest">test-read-from-stream-with-too-many-inouts</span>: +<span id="L12990" class="LineNr">12990 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12991" class="LineNr">12991 </span> 55/push-ebp +<span id="L12992" class="LineNr">12992 </span> 89/<- %ebp 4/r32/esp +<span id="L12993" class="LineNr">12993 </span> <span class="subxComment"># setup</span> +<span id="L12994" class="LineNr">12994 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12995" class="LineNr">12995 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12996" class="LineNr">12996 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12997" class="LineNr">12997 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12998" class="LineNr">12998 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12999" class="LineNr">12999 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13000" class="LineNr">13000 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13001" class="LineNr">13001 </span> 68/push 0/imm32 +<span id="L13002" class="LineNr">13002 </span> 68/push 0/imm32 +<span id="L13003" class="LineNr">13003 </span> 89/<- %edx 4/r32/esp +<span id="L13004" class="LineNr">13004 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13005" class="LineNr">13005 </span> <span class="subxComment">#</span> +<span id="L13006" class="LineNr">13006 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13007" class="LineNr">13007 </span> (<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="L13008" class="LineNr">13008 </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="L13009" class="LineNr">13009 </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="L13010" class="LineNr">13010 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13011" class="LineNr">13011 </span> <span class="subxComment"># convert</span> +<span id="L13012" class="LineNr">13012 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13013" class="LineNr">13013 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13014" class="LineNr">13014 </span> <span class="subxComment"># restore ed</span> +<span id="L13015" class="LineNr">13015 </span> 89/<- %edx 4/r32/esp +<span id="L13016" class="LineNr">13016 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13017" class="LineNr">13017 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13018" class="Folded">13018 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13024" class="LineNr">13024 </span> <span class="subxComment"># check output</span> +<span id="L13025" class="LineNr">13025 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12989'>test-read-from-stream-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L13026" class="LineNr">13026 </span> (<a href='109stream-equal.subx.html#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#L12989'>test-read-from-stream-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13027" class="LineNr">13027 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13028" class="LineNr">13028 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12989'>test-read-from-stream-with-too-many-inouts</a>: exit status"</span>) +<span id="L13029" class="LineNr">13029 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13030" class="LineNr">13030 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13031" class="LineNr">13031 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13032" class="LineNr">13032 </span> 5d/pop-to-ebp +<span id="L13033" class="LineNr">13033 </span> c3/return +<span id="L13034" class="LineNr">13034 </span> +<span id="L13035" class="LineNr">13035 </span><span class="subxTest">test-read-from-stream-with-output</span>: +<span id="L13036" class="LineNr">13036 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13037" class="LineNr">13037 </span> 55/push-ebp +<span id="L13038" class="LineNr">13038 </span> 89/<- %ebp 4/r32/esp +<span id="L13039" class="LineNr">13039 </span> <span class="subxComment"># setup</span> +<span id="L13040" class="LineNr">13040 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13041" class="LineNr">13041 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13042" class="LineNr">13042 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13043" class="LineNr">13043 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13044" class="LineNr">13044 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13045" class="LineNr">13045 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13046" class="LineNr">13046 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13047" class="LineNr">13047 </span> 68/push 0/imm32 +<span id="L13048" class="LineNr">13048 </span> 68/push 0/imm32 +<span id="L13049" class="LineNr">13049 </span> 89/<- %edx 4/r32/esp +<span id="L13050" class="LineNr">13050 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13051" class="LineNr">13051 </span> <span class="subxComment">#</span> +<span id="L13052" class="LineNr">13052 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13053" class="LineNr">13053 </span> (<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="L13054" class="LineNr">13054 </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="L13055" class="LineNr">13055 </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="L13056" class="LineNr">13056 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13057" class="LineNr">13057 </span> <span class="subxComment"># convert</span> +<span id="L13058" class="LineNr">13058 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13059" class="LineNr">13059 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13060" class="LineNr">13060 </span> <span class="subxComment"># restore ed</span> +<span id="L13061" class="LineNr">13061 </span> 89/<- %edx 4/r32/esp +<span id="L13062" class="LineNr">13062 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13063" class="LineNr">13063 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13064" class="Folded">13064 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13070" class="LineNr">13070 </span> <span class="subxComment"># check output</span> +<span id="L13071" class="LineNr">13071 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13035'>test-read-from-stream-with-output</a>: output should be empty"</span>) +<span id="L13072" class="LineNr">13072 </span> (<a href='109stream-equal.subx.html#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#L13035'>test-read-from-stream-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13073" class="LineNr">13073 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13074" class="LineNr">13074 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13035'>test-read-from-stream-with-output</a>: exit status"</span>) +<span id="L13075" class="LineNr">13075 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13076" class="LineNr">13076 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13077" class="LineNr">13077 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13078" class="LineNr">13078 </span> 5d/pop-to-ebp +<span id="L13079" class="LineNr">13079 </span> c3/return +<span id="L13080" class="LineNr">13080 </span> +<span id="L13081" class="LineNr">13081 </span><span class="subxTest">test-convert-write-to-stream</span>: +<span id="L13082" class="LineNr">13082 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13083" class="LineNr">13083 </span> 55/push-ebp +<span id="L13084" class="LineNr">13084 </span> 89/<- %ebp 4/r32/esp +<span id="L13085" class="LineNr">13085 </span> <span class="subxComment"># setup</span> +<span id="L13086" class="LineNr">13086 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13087" class="LineNr">13087 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13088" class="LineNr">13088 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13089" class="LineNr">13089 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<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 s/esi: (addr stream int) <- copy 0\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">" var o/ecx: (addr int) <- copy 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">" <a href='309stream.subx.html#L54'>write-to-stream</a> s, o\n"</span>) +<span id="L13095" class="LineNr">13095 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13096" class="LineNr">13096 </span> <span class="subxComment"># convert</span> +<span id="L13097" class="LineNr">13097 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L13098" class="LineNr">13098 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13099" class="LineNr">13099 </span> <span class="subxComment"># restore ed</span> +<span id="L13100" class="LineNr">13100 </span> 89/<- %edx 4/r32/esp +<span id="L13101" class="LineNr">13101 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13102" class="LineNr">13102 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13103" class="Folded">13103 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13109" class="LineNr">13109 </span> <span class="subxComment"># check output</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#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13081'>test-convert-write-to-stream</a>/0"</span>) +<span id="L13111" class="LineNr">13111 </span> (<a href='109stream-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="L13112" class="LineNr">13112 </span> (<a href='109stream-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#L13081'>test-convert-write-to-stream</a>/2"</span>) +<span id="L13113" class="LineNr">13113 </span> (<a href='109stream-equal.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#L13081'>test-convert-write-to-stream</a>/3"</span>) +<span id="L13114" class="LineNr">13114 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L13081'>test-convert-write-to-stream</a>/4"</span>) +<span id="L13115" class="LineNr">13115 </span> (<a href='109stream-equal.subx.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#L13081'>test-convert-write-to-stream</a>/5"</span>) +<span id="L13116" class="LineNr">13116 </span> (<a href='109stream-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#L13081'>test-convert-write-to-stream</a>/6"</span>) +<span id="L13117" class="LineNr">13117 </span> (<a href='109stream-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#L13081'>test-convert-write-to-stream</a>/7"</span>) +<span id="L13118" class="LineNr">13118 </span> (<a href='109stream-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#L13081'>test-convert-write-to-stream</a>/8"</span>) +<span id="L13119" class="LineNr">13119 </span> (<a href='109stream-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#L13081'>test-convert-write-to-stream</a>/9"</span>) +<span id="L13120" class="LineNr">13120 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L13081'>test-convert-write-to-stream</a>/10"</span>) +<span id="L13121" class="LineNr">13121 </span> (<a href='109stream-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#L13081'>test-convert-write-to-stream</a>/11"</span>) +<span id="L13122" class="LineNr">13122 </span> (<a href='109stream-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#L13081'>test-convert-write-to-stream</a>/12"</span>) +<span id="L13123" class="LineNr">13123 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L13081'>test-convert-write-to-stream</a>/13"</span>) +<span id="L13124" class="LineNr">13124 </span> (<a href='109stream-equal.subx.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#L13081'>test-convert-write-to-stream</a>/14"</span>) +<span id="L13125" class="LineNr">13125 </span> (<a href='109stream-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="L13126" class="LineNr">13126 </span> (<a href='109stream-equal.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#L13081'>test-convert-write-to-stream</a>/16"</span>) +<span id="L13127" class="LineNr">13127 </span> (<a href='109stream-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#L13081'>test-convert-write-to-stream</a>/17"</span>) +<span id="L13128" class="LineNr">13128 </span> (<a href='109stream-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#L13081'>test-convert-write-to-stream</a>/18"</span>) +<span id="L13129" class="LineNr">13129 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13130" class="LineNr">13130 </span> 89/<- %esp 5/r32/ebp +<span id="L13131" class="LineNr">13131 </span> 5d/pop-to-ebp +<span id="L13132" class="LineNr">13132 </span> c3/return +<span id="L13133" class="LineNr">13133 </span> +<span id="L13134" class="LineNr">13134 </span><span class="subxTest">test-convert-write-to-stream-with-correct-payload-size</span>: +<span id="L13135" class="LineNr">13135 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13136" class="LineNr">13136 </span> 55/push-ebp +<span id="L13137" class="LineNr">13137 </span> 89/<- %ebp 4/r32/esp +<span id="L13138" class="LineNr">13138 </span> <span class="subxComment"># setup</span> +<span id="L13139" class="LineNr">13139 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13140" class="LineNr">13140 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13141" class="LineNr">13141 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13142" class="LineNr">13142 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13143" class="LineNr">13143 </span> <span class="subxComment">#</span> +<span id="L13144" class="LineNr">13144 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13145" class="LineNr">13145 </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="L13146" class="LineNr">13146 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L13147" class="LineNr">13147 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> s, o\n"</span>) +<span id="L13148" class="LineNr">13148 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13149" class="LineNr">13149 </span> <span class="subxComment"># convert</span> +<span id="L13150" class="LineNr">13150 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L13151" class="LineNr">13151 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13152" class="LineNr">13152 </span> <span class="subxComment"># restore ed</span> +<span id="L13153" class="LineNr">13153 </span> 89/<- %edx 4/r32/esp +<span id="L13154" class="LineNr">13154 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13155" class="LineNr">13155 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13156" class="Folded">13156 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13162" class="LineNr">13162 </span> <span class="subxComment"># check output</span> +<span id="L13163" class="LineNr">13163 </span> (<a href='109stream-equal.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#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/0"</span>) +<span id="L13164" class="LineNr">13164 </span> (<a href='109stream-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="L13165" class="LineNr">13165 </span> (<a href='109stream-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#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/2"</span>) +<span id="L13166" class="LineNr">13166 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/3"</span>) +<span id="L13167" class="LineNr">13167 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/4"</span>) +<span id="L13168" class="LineNr">13168 </span> (<a href='109stream-equal.subx.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#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/5"</span>) +<span id="L13169" class="LineNr">13169 </span> (<a href='109stream-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#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/6"</span>) +<span id="L13170" class="LineNr">13170 </span> (<a href='109stream-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#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/7"</span>) +<span id="L13171" class="LineNr">13171 </span> (<a href='109stream-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#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/8"</span>) +<span id="L13172" class="LineNr">13172 </span> (<a href='109stream-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#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/9"</span>) +<span id="L13173" class="LineNr">13173 </span> (<a href='109stream-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#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/10"</span>) +<span id="L13174" class="LineNr">13174 </span> (<a href='109stream-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#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/11"</span>) +<span id="L13175" class="LineNr">13175 </span> (<a href='109stream-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#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/12"</span>) +<span id="L13176" class="LineNr">13176 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/13"</span>) +<span id="L13177" class="LineNr">13177 </span> (<a href='109stream-equal.subx.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#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/14"</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#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="L13179" class="LineNr">13179 </span> (<a href='109stream-equal.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#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/16"</span>) +<span id="L13180" class="LineNr">13180 </span> (<a href='109stream-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#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/17"</span>) +<span id="L13181" class="LineNr">13181 </span> (<a href='109stream-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#L13134'>test-convert-write-to-stream-with-correct-payload-size</a>/18"</span>) +<span id="L13182" class="LineNr">13182 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13183" class="LineNr">13183 </span> 89/<- %esp 5/r32/ebp <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-stream-atom-base-type</span>: +<span id="L13187" class="LineNr">13187 </span><span class="subxTest">test-write-to-stream-with-non-stream-atom-base-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 @@ -11979,7 +11979,7 @@ if ('onhashchange' in window) { <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: stream\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: int\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">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, 0\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">"}\n"</span>) <span id="L13208" class="LineNr">13208 </span> <span class="subxComment"># convert</span> @@ -11989,19 +11989,19 @@ if ('onhashchange' in window) { <span id="L13212" class="LineNr">13212 </span> 89/<- %edx 4/r32/esp <span id="L13213" class="LineNr">13213 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L13214" class="LineNr">13214 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13215" class="Folded">13215 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13215" class="Folded">13215 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13221" class="LineNr">13221 </span> <span class="subxComment"># check output</span> -<span id="L13222" class="LineNr">13222 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-stream-atom-base-type</a>: output should be empty"</span>) -<span id="L13223" class="LineNr">13223 </span> (<a href='109stream-equal.subx.html#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#L13187'>test-write-to-stream-with-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13222" class="LineNr">13222 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-non-stream-atom-base-type</a>: output should be empty"</span>) +<span id="L13223" class="LineNr">13223 </span> (<a href='109stream-equal.subx.html#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#L13187'>test-write-to-stream-with-non-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L13224" class="LineNr">13224 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13225" class="LineNr">13225 </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-stream-atom-base-type</a>: exit status"</span>) +<span id="L13225" class="LineNr">13225 </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-non-stream-atom-base-type</a>: exit status"</span>) <span id="L13226" class="LineNr">13226 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L13227" class="LineNr">13227 </span> 81 0/subop/add %esp 8/imm32 <span id="L13228" class="LineNr">13228 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L13229" class="LineNr">13229 </span> 5d/pop-to-ebp <span id="L13230" class="LineNr">13230 </span> c3/return <span id="L13231" class="LineNr">13231 </span> -<span id="L13232" class="LineNr">13232 </span><span class="subxTest">test-write-to-stream-with-wrong-index-type</span>: +<span id="L13232" class="LineNr">13232 </span><span class="subxTest">test-write-to-stream-with-non-stream-compound-base-type</span>: <span id="L13233" class="LineNr">13233 </span> <span class="subxS1Comment"># . prologue</span> <span id="L13234" class="LineNr">13234 </span> 55/push-ebp <span id="L13235" class="LineNr">13235 </span> 89/<- %ebp 4/r32/esp @@ -12019,48 +12019,48 @@ if ('onhashchange' in window) { <span id="L13247" class="LineNr">13247 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L13248" class="LineNr">13248 </span> <span class="subxComment">#</span> <span id="L13249" class="LineNr">13249 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13250" class="LineNr">13250 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr stream int) <- copy 0\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">" var b: boolean\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">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, b\n"</span>) -<span id="L13253" class="LineNr">13253 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13254" class="LineNr">13254 </span> <span class="subxComment"># convert</span> -<span id="L13255" class="LineNr">13255 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13256" class="LineNr">13256 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13257" class="LineNr">13257 </span> <span class="subxComment"># restore ed</span> -<span id="L13258" class="LineNr">13258 </span> 89/<- %edx 4/r32/esp -<span id="L13259" class="LineNr">13259 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13260" class="LineNr">13260 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13261" class="Folded">13261 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13267" class="LineNr">13267 </span> <span class="subxComment"># check output</span> -<span id="L13268" class="LineNr">13268 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13232'>test-write-to-stream-with-wrong-index-type</a>: output should be empty"</span>) -<span id="L13269" class="LineNr">13269 </span> (<a href='109stream-equal.subx.html#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#L13232'>test-write-to-stream-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13270" class="LineNr">13270 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13271" class="LineNr">13271 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13232'>test-write-to-stream-with-wrong-index-type</a>: exit status"</span>) -<span id="L13272" class="LineNr">13272 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13273" class="LineNr">13273 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13274" class="LineNr">13274 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13275" class="LineNr">13275 </span> 5d/pop-to-ebp -<span id="L13276" class="LineNr">13276 </span> c3/return -<span id="L13277" class="LineNr">13277 </span> -<span id="L13278" class="LineNr">13278 </span><span class="subxTest">test-write-to-stream-with-no-inouts</span>: -<span id="L13279" class="LineNr">13279 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13280" class="LineNr">13280 </span> 55/push-ebp -<span id="L13281" class="LineNr">13281 </span> 89/<- %ebp 4/r32/esp -<span id="L13282" class="LineNr">13282 </span> <span class="subxComment"># setup</span> -<span id="L13283" class="LineNr">13283 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13284" class="LineNr">13284 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13285" class="LineNr">13285 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13286" class="LineNr">13286 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13287" class="LineNr">13287 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13288" class="LineNr">13288 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13289" class="LineNr">13289 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</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">" var a: (handle int)\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">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, 0\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#L13232'>test-write-to-stream-with-non-stream-compound-base-type</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>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L13232'>test-write-to-stream-with-non-stream-compound-base-type</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#L13232'>test-write-to-stream-with-non-stream-compound-base-type</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-non-stream-compound-base-type-2</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> 68/push 0/imm32 -<span id="L13292" class="LineNr">13292 </span> 89/<- %edx 4/r32/esp -<span id="L13293" class="LineNr">13293 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13294" class="LineNr">13294 </span> <span class="subxComment">#</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">"fn foo {\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">" write-to-stream\n"</span>) +<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 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, 0\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) @@ -12069,19 +12069,19 @@ if ('onhashchange' in window) { <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="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#L13278'>test-write-to-stream-with-no-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#L13278'>test-write-to-stream-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</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-non-stream-compound-base-type-2</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>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L13277'>test-write-to-stream-with-non-stream-compound-base-type-2</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#L13278'>test-write-to-stream-with-no-inouts</a>: exit status"</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-non-stream-compound-base-type-2</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-few-inouts</span>: +<span id="L13322" class="LineNr">13322 </span><span class="subxTest">test-write-to-stream-with-stream-atom-base-type</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 @@ -12099,8 +12099,8 @@ if ('onhashchange' in window) { <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">" <a href='309stream.subx.html#L54'>write-to-stream</a> a\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: stream\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">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, 0\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">"}\n"</span>) <span id="L13343" class="LineNr">13343 </span> <span class="subxComment"># convert</span> <span id="L13344" class="LineNr">13344 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -12109,19 +12109,19 @@ if ('onhashchange' in window) { <span id="L13347" class="LineNr">13347 </span> 89/<- %edx 4/r32/esp <span id="L13348" class="LineNr">13348 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L13349" class="LineNr">13349 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13350" class="Folded">13350 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13350" class="Folded">13350 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13356" class="LineNr">13356 </span> <span class="subxComment"># check output</span> -<span id="L13357" class="LineNr">13357 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-few-inouts</a>: output should be empty"</span>) -<span id="L13358" class="LineNr">13358 </span> (<a href='109stream-equal.subx.html#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#L13322'>test-write-to-stream-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13357" class="LineNr">13357 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-stream-atom-base-type</a>: output should be empty"</span>) +<span id="L13358" class="LineNr">13358 </span> (<a href='109stream-equal.subx.html#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#L13322'>test-write-to-stream-with-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L13359" class="LineNr">13359 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13360" class="LineNr">13360 </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-few-inouts</a>: exit status"</span>) +<span id="L13360" class="LineNr">13360 </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-stream-atom-base-type</a>: exit status"</span>) <span id="L13361" class="LineNr">13361 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L13362" class="LineNr">13362 </span> 81 0/subop/add %esp 8/imm32 <span id="L13363" class="LineNr">13363 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L13364" class="LineNr">13364 </span> 5d/pop-to-ebp <span id="L13365" class="LineNr">13365 </span> c3/return <span id="L13366" class="LineNr">13366 </span> -<span id="L13367" class="LineNr">13367 </span><span class="subxTest">test-write-to-stream-with-too-many-inouts</span>: +<span id="L13367" class="LineNr">13367 </span><span class="subxTest">test-write-to-stream-with-wrong-index-type</span>: <span id="L13368" class="LineNr">13368 </span> <span class="subxS1Comment"># . prologue</span> <span id="L13369" class="LineNr">13369 </span> 55/push-ebp <span id="L13370" class="LineNr">13370 </span> 89/<- %ebp 4/r32/esp @@ -12139,9 +12139,9 @@ if ('onhashchange' in window) { <span id="L13382" class="LineNr">13382 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L13383" class="LineNr">13383 </span> <span class="subxComment">#</span> <span id="L13384" class="LineNr">13384 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13385" class="LineNr">13385 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\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 b: (addr 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">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, b, 0\n"</span>) +<span id="L13385" class="LineNr">13385 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr stream int) <- copy 0\n"</span>) +<span id="L13386" class="LineNr">13386 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\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">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, b\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">"}\n"</span>) <span id="L13389" class="LineNr">13389 </span> <span class="subxComment"># convert</span> <span id="L13390" class="LineNr">13390 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -12150,19 +12150,19 @@ if ('onhashchange' in window) { <span id="L13393" class="LineNr">13393 </span> 89/<- %edx 4/r32/esp <span id="L13394" class="LineNr">13394 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L13395" class="LineNr">13395 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13396" class="Folded">13396 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13396" class="Folded">13396 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13402" class="LineNr">13402 </span> <span class="subxComment"># check output</span> -<span id="L13403" class="LineNr">13403 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13367'>test-write-to-stream-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L13404" class="LineNr">13404 </span> (<a href='109stream-equal.subx.html#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#L13367'>test-write-to-stream-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13403" class="LineNr">13403 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13367'>test-write-to-stream-with-wrong-index-type</a>: output should be empty"</span>) +<span id="L13404" class="LineNr">13404 </span> (<a href='109stream-equal.subx.html#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#L13367'>test-write-to-stream-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L13405" class="LineNr">13405 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13406" class="LineNr">13406 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13367'>test-write-to-stream-with-too-many-inouts</a>: exit status"</span>) +<span id="L13406" class="LineNr">13406 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13367'>test-write-to-stream-with-wrong-index-type</a>: exit status"</span>) <span id="L13407" class="LineNr">13407 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L13408" class="LineNr">13408 </span> 81 0/subop/add %esp 8/imm32 <span id="L13409" class="LineNr">13409 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L13410" class="LineNr">13410 </span> 5d/pop-to-ebp <span id="L13411" class="LineNr">13411 </span> c3/return <span id="L13412" class="LineNr">13412 </span> -<span id="L13413" class="LineNr">13413 </span><span class="subxTest">test-write-to-stream-with-output</span>: +<span id="L13413" class="LineNr">13413 </span><span class="subxTest">test-write-to-stream-with-no-inouts</span>: <span id="L13414" class="LineNr">13414 </span> <span class="subxS1Comment"># . prologue</span> <span id="L13415" class="LineNr">13415 </span> 55/push-ebp <span id="L13416" class="LineNr">13416 </span> 89/<- %ebp 4/r32/esp @@ -12180,129 +12180,129 @@ if ('onhashchange' in window) { <span id="L13428" class="LineNr">13428 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L13429" class="LineNr">13429 </span> <span class="subxComment">#</span> <span id="L13430" class="LineNr">13430 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13431" class="LineNr">13431 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\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 b/eax: (addr int) <- copy 0\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">" b <- <a href='309stream.subx.html#L54'>write-to-stream</a> a, b\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#L13413'>test-write-to-stream-with-output</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 <a href='309stream.subx.html#L54'>write-to-stream</a>: unexpected output"</span> <span class="Constant">"F - <a href='mu.subx.html#L13413'>test-write-to-stream-with-output</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#L13413'>test-write-to-stream-with-output</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-atom-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: 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: int <- length a\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-atom-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-atom-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-atom-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</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: (handle 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</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</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</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-non-array-compound-base-type-2</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="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">" write-to-stream\n"</span>) +<span id="L13432" class="LineNr">13432 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13433" class="LineNr">13433 </span> <span class="subxComment"># convert</span> +<span id="L13434" class="LineNr">13434 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13435" class="LineNr">13435 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13436" class="LineNr">13436 </span> <span class="subxComment"># restore ed</span> +<span id="L13437" class="LineNr">13437 </span> 89/<- %edx 4/r32/esp +<span id="L13438" class="LineNr">13438 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13439" class="LineNr">13439 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13440" class="Folded">13440 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13446" class="LineNr">13446 </span> <span class="subxComment"># check output</span> +<span id="L13447" class="LineNr">13447 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13413'>test-write-to-stream-with-no-inouts</a>: output should be empty"</span>) +<span id="L13448" class="LineNr">13448 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <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#L13413'>test-write-to-stream-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13449" class="LineNr">13449 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13450" class="LineNr">13450 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13413'>test-write-to-stream-with-no-inouts</a>: exit status"</span>) +<span id="L13451" class="LineNr">13451 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13452" class="LineNr">13452 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13453" class="LineNr">13453 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13454" class="LineNr">13454 </span> 5d/pop-to-ebp +<span id="L13455" class="LineNr">13455 </span> c3/return +<span id="L13456" class="LineNr">13456 </span> +<span id="L13457" class="LineNr">13457 </span><span class="subxTest">test-write-to-stream-with-too-few-inouts</span>: +<span id="L13458" class="LineNr">13458 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13459" class="LineNr">13459 </span> 55/push-ebp +<span id="L13460" class="LineNr">13460 </span> 89/<- %ebp 4/r32/esp +<span id="L13461" class="LineNr">13461 </span> <span class="subxComment"># setup</span> +<span id="L13462" class="LineNr">13462 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13463" class="LineNr">13463 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13464" class="LineNr">13464 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13465" class="LineNr">13465 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13466" class="LineNr">13466 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13467" class="LineNr">13467 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13468" class="LineNr">13468 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13469" class="LineNr">13469 </span> 68/push 0/imm32 +<span id="L13470" class="LineNr">13470 </span> 68/push 0/imm32 +<span id="L13471" class="LineNr">13471 </span> 89/<- %edx 4/r32/esp +<span id="L13472" class="LineNr">13472 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13473" class="LineNr">13473 </span> <span class="subxComment">#</span> +<span id="L13474" class="LineNr">13474 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13475" class="LineNr">13475 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) +<span id="L13476" class="LineNr">13476 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a\n"</span>) +<span id="L13477" class="LineNr">13477 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13478" class="LineNr">13478 </span> <span class="subxComment"># convert</span> +<span id="L13479" class="LineNr">13479 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13480" class="LineNr">13480 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13481" class="LineNr">13481 </span> <span class="subxComment"># restore ed</span> +<span id="L13482" class="LineNr">13482 </span> 89/<- %edx 4/r32/esp +<span id="L13483" class="LineNr">13483 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13484" class="LineNr">13484 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13485" class="Folded">13485 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13491" class="LineNr">13491 </span> <span class="subxComment"># check output</span> +<span id="L13492" class="LineNr">13492 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13457'>test-write-to-stream-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L13493" class="LineNr">13493 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <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#L13457'>test-write-to-stream-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13494" class="LineNr">13494 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13495" class="LineNr">13495 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13457'>test-write-to-stream-with-too-few-inouts</a>: exit status"</span>) +<span id="L13496" class="LineNr">13496 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13497" class="LineNr">13497 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13498" class="LineNr">13498 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13499" class="LineNr">13499 </span> 5d/pop-to-ebp +<span id="L13500" class="LineNr">13500 </span> c3/return +<span id="L13501" class="LineNr">13501 </span> +<span id="L13502" class="LineNr">13502 </span><span class="subxTest">test-write-to-stream-with-too-many-inouts</span>: +<span id="L13503" class="LineNr">13503 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13504" class="LineNr">13504 </span> 55/push-ebp +<span id="L13505" class="LineNr">13505 </span> 89/<- %ebp 4/r32/esp +<span id="L13506" class="LineNr">13506 </span> <span class="subxComment"># setup</span> +<span id="L13507" class="LineNr">13507 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13508" class="LineNr">13508 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13509" class="LineNr">13509 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13510" class="LineNr">13510 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13511" class="LineNr">13511 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13512" class="LineNr">13512 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13513" class="LineNr">13513 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13514" class="LineNr">13514 </span> 68/push 0/imm32 +<span id="L13515" class="LineNr">13515 </span> 68/push 0/imm32 +<span id="L13516" class="LineNr">13516 </span> 89/<- %edx 4/r32/esp +<span id="L13517" class="LineNr">13517 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13518" class="LineNr">13518 </span> <span class="subxComment">#</span> +<span id="L13519" class="LineNr">13519 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13520" class="LineNr">13520 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) +<span id="L13521" class="LineNr">13521 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: (addr int)\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">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, b, 0\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">"}\n"</span>) +<span id="L13524" class="LineNr">13524 </span> <span class="subxComment"># convert</span> +<span id="L13525" class="LineNr">13525 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13526" class="LineNr">13526 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13527" class="LineNr">13527 </span> <span class="subxComment"># restore ed</span> +<span id="L13528" class="LineNr">13528 </span> 89/<- %edx 4/r32/esp +<span id="L13529" class="LineNr">13529 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13530" class="LineNr">13530 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13531" class="Folded">13531 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13537" class="LineNr">13537 </span> <span class="subxComment"># check output</span> +<span id="L13538" class="LineNr">13538 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13502'>test-write-to-stream-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L13539" class="LineNr">13539 </span> (<a href='109stream-equal.subx.html#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#L13502'>test-write-to-stream-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13540" class="LineNr">13540 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13541" class="LineNr">13541 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13502'>test-write-to-stream-with-too-many-inouts</a>: exit status"</span>) +<span id="L13542" class="LineNr">13542 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13543" class="LineNr">13543 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13544" class="LineNr">13544 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13545" class="LineNr">13545 </span> 5d/pop-to-ebp +<span id="L13546" class="LineNr">13546 </span> c3/return +<span id="L13547" class="LineNr">13547 </span> +<span id="L13548" class="LineNr">13548 </span><span class="subxTest">test-write-to-stream-with-output</span>: +<span id="L13549" class="LineNr">13549 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13550" class="LineNr">13550 </span> 55/push-ebp +<span id="L13551" class="LineNr">13551 </span> 89/<- %ebp 4/r32/esp +<span id="L13552" class="LineNr">13552 </span> <span class="subxComment"># setup</span> +<span id="L13553" class="LineNr">13553 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13554" class="LineNr">13554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13555" class="LineNr">13555 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13556" class="LineNr">13556 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13557" class="LineNr">13557 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13558" class="LineNr">13558 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13559" class="LineNr">13559 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13560" class="LineNr">13560 </span> 68/push 0/imm32 <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: (addr int)\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, 0\n"</span>) +<span id="L13562" class="LineNr">13562 </span> 89/<- %edx 4/r32/esp +<span id="L13563" class="LineNr">13563 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13564" class="LineNr">13564 </span> <span class="subxComment">#</span> +<span id="L13565" class="LineNr">13565 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13566" class="LineNr">13566 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\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 b/eax: (addr int) <- copy 0\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">" b <- <a href='309stream.subx.html#L54'>write-to-stream</a> a, b\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) @@ -12311,19 +12311,19 @@ if ('onhashchange' in window) { <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="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-non-array-compound-base-type-2</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: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13549'>test-length-with-non-array-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</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#L13548'>test-write-to-stream-with-output</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 <a href='309stream.subx.html#L54'>write-to-stream</a>: unexpected output"</span> <span class="Constant">"F - <a href='mu.subx.html#L13548'>test-write-to-stream-with-output</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-non-array-compound-base-type-2</a>: exit status"</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#L13548'>test-write-to-stream-with-output</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-array-atom-base-type</span>: +<span id="L13594" class="LineNr">13594 </span><span class="subxTest">test-length-with-non-array-atom-base-type</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 @@ -12341,8 +12341,8 @@ if ('onhashchange' in window) { <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: array\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="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: 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: 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) @@ -12351,19 +12351,19 @@ if ('onhashchange' in window) { <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="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-array-atom-base-type</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: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L13594'>test-length-with-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</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-non-array-atom-base-type</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 not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13594'>test-length-with-non-array-atom-base-type</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-array-atom-base-type</a>: exit status"</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-non-array-atom-base-type</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-addr-base-on-stack</span>: +<span id="L13639" class="LineNr">13639 </span><span class="subxTest">test-length-with-non-array-compound-base-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 @@ -12381,8 +12381,8 @@ if ('onhashchange' in window) { <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: (addr array int)\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 c/ecx: (addr int) <- length a\n"</span>) +<span id="L13657" class="LineNr">13657 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\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 c/ecx: (addr int) <- length a, 0\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) @@ -12391,19 +12391,19 @@ if ('onhashchange' in window) { <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="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-addr-base-on-stack</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: 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#L13639'>test-length-with-addr-base-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</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-non-array-compound-base-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: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13639'>test-length-with-non-array-compound-base-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-addr-base-on-stack</a>: exit status"</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-non-array-compound-base-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-type</span>: +<span id="L13684" class="LineNr">13684 </span><span class="subxTest">test-length-with-non-array-compound-base-type-2</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 @@ -12421,8 +12421,8 @@ if ('onhashchange' in window) { <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 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 int) <- length a\n"</span>) +<span id="L13702" class="LineNr">13702 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\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 c/ecx: (addr int) <- length a, 0\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) @@ -12431,19 +12431,19 @@ if ('onhashchange' in window) { <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="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-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-type</a>: <a href='114error.subx.html#L9'>error</a> message"</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-non-array-compound-base-type-2</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: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13684'>test-length-with-non-array-compound-base-type-2</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-type</a>: exit status"</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-non-array-compound-base-type-2</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-wrong-output-compound-type</span>: +<span id="L13729" class="LineNr">13729 </span><span class="subxTest">test-length-with-array-atom-base-type</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 @@ -12461,8 +12461,8 @@ if ('onhashchange' in window) { <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 a/ebx: (addr array handle boolean) <- copy 0\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">" var o/edi: (addr handle int) <- length a\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 a: array\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">" var c/ecx: (addr int) <- length a\n"</span>) <span id="L13749" class="LineNr">13749 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L13750" class="LineNr">13750 </span> <span class="subxComment"># convert</span> <span id="L13751" class="LineNr">13751 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -12471,19 +12471,19 @@ if ('onhashchange' in window) { <span id="L13754" class="LineNr">13754 </span> 89/<- %edx 4/r32/esp <span id="L13755" class="LineNr">13755 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L13756" class="LineNr">13756 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13757" class="Folded">13757 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13757" class="Folded">13757 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13763" class="LineNr">13763 </span> <span class="subxComment"># check output</span> -<span id="L13764" class="LineNr">13764 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-wrong-output-compound-type</a>: output should be empty"</span>) -<span id="L13765" class="LineNr">13765 </span> (<a href='109stream-equal.subx.html#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#L13729'>test-length-with-wrong-output-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13764" class="LineNr">13764 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-array-atom-base-type</a>: output should be empty"</span>) +<span id="L13765" class="LineNr">13765 </span> (<a href='109stream-equal.subx.html#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#L13729'>test-length-with-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L13766" class="LineNr">13766 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13767" class="LineNr">13767 </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-wrong-output-compound-type</a>: exit status"</span>) +<span id="L13767" class="LineNr">13767 </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-array-atom-base-type</a>: exit status"</span>) <span id="L13768" class="LineNr">13768 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L13769" class="LineNr">13769 </span> 81 0/subop/add %esp 8/imm32 <span id="L13770" class="LineNr">13770 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L13771" class="LineNr">13771 </span> 5d/pop-to-ebp <span id="L13772" class="LineNr">13772 </span> c3/return <span id="L13773" class="LineNr">13773 </span> -<span id="L13774" class="LineNr">13774 </span><span class="subxTest">test-length-with-no-inouts</span>: +<span id="L13774" class="LineNr">13774 </span><span class="subxTest">test-length-with-addr-base-on-stack</span>: <span id="L13775" class="LineNr">13775 </span> <span class="subxS1Comment"># . prologue</span> <span id="L13776" class="LineNr">13776 </span> 55/push-ebp <span id="L13777" class="LineNr">13777 </span> 89/<- %ebp 4/r32/esp @@ -12501,675 +12501,675 @@ if ('onhashchange' in window) { <span id="L13789" class="LineNr">13789 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L13790" class="LineNr">13790 </span> <span class="subxComment">#</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">"fn foo {\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\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#L13774'>test-length-with-no-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 few inouts (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13774'>test-length-with-no-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#L13774'>test-length-with-no-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-too-many-inouts</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="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 a: (addr array int)\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">" var c/ecx: (addr int) <- length a\n"</span>) +<span id="L13794" class="LineNr">13794 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13795" class="LineNr">13795 </span> <span class="subxComment"># convert</span> +<span id="L13796" class="LineNr">13796 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13797" class="LineNr">13797 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13798" class="LineNr">13798 </span> <span class="subxComment"># restore ed</span> +<span id="L13799" class="LineNr">13799 </span> 89/<- %edx 4/r32/esp +<span id="L13800" class="LineNr">13800 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13801" class="LineNr">13801 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13802" class="Folded">13802 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13808" class="LineNr">13808 </span> <span class="subxComment"># check output</span> +<span id="L13809" class="LineNr">13809 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13774'>test-length-with-addr-base-on-stack</a>: output should be empty"</span>) +<span id="L13810" class="LineNr">13810 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L13774'>test-length-with-addr-base-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13811" class="LineNr">13811 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13812" class="LineNr">13812 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13774'>test-length-with-addr-base-on-stack</a>: exit status"</span>) +<span id="L13813" class="LineNr">13813 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13814" class="LineNr">13814 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13815" class="LineNr">13815 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13816" class="LineNr">13816 </span> 5d/pop-to-ebp +<span id="L13817" class="LineNr">13817 </span> c3/return +<span id="L13818" class="LineNr">13818 </span> +<span id="L13819" class="LineNr">13819 </span><span class="subxTest">test-length-with-wrong-output-type</span>: +<span id="L13820" class="LineNr">13820 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13821" class="LineNr">13821 </span> 55/push-ebp +<span id="L13822" class="LineNr">13822 </span> 89/<- %ebp 4/r32/esp +<span id="L13823" class="LineNr">13823 </span> <span class="subxComment"># setup</span> +<span id="L13824" class="LineNr">13824 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13825" class="LineNr">13825 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13826" class="LineNr">13826 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13827" class="LineNr">13827 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13828" class="LineNr">13828 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13829" class="LineNr">13829 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13830" class="LineNr">13830 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <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">" var c/ecx: int <- length a, 0, 0\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-too-many-inouts</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: too many inouts (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13818'>test-length-with-too-many-inouts</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-too-many-inouts</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-no-output</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="L13832" class="LineNr">13832 </span> 68/push 0/imm32 +<span id="L13833" class="LineNr">13833 </span> 89/<- %edx 4/r32/esp +<span id="L13834" class="LineNr">13834 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13835" class="LineNr">13835 </span> <span class="subxComment">#</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">"fn foo {\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">" var a/ebx: (addr array boolean) <- copy 0\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">" var o/edi: (addr int) <- length a\n"</span>) +<span id="L13839" class="LineNr">13839 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13840" class="LineNr">13840 </span> <span class="subxComment"># convert</span> +<span id="L13841" class="LineNr">13841 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13842" class="LineNr">13842 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13843" class="LineNr">13843 </span> <span class="subxComment"># restore ed</span> +<span id="L13844" class="LineNr">13844 </span> 89/<- %edx 4/r32/esp +<span id="L13845" class="LineNr">13845 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13846" class="LineNr">13846 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13847" class="Folded">13847 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13853" class="LineNr">13853 </span> <span class="subxComment"># check output</span> +<span id="L13854" class="LineNr">13854 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13819'>test-length-with-wrong-output-type</a>: output should be empty"</span>) +<span id="L13855" class="LineNr">13855 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L13819'>test-length-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13856" class="LineNr">13856 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13857" class="LineNr">13857 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13819'>test-length-with-wrong-output-type</a>: exit status"</span>) +<span id="L13858" class="LineNr">13858 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13859" class="LineNr">13859 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13860" class="LineNr">13860 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13861" class="LineNr">13861 </span> 5d/pop-to-ebp +<span id="L13862" class="LineNr">13862 </span> c3/return +<span id="L13863" class="LineNr">13863 </span> +<span id="L13864" class="LineNr">13864 </span><span class="subxTest">test-length-with-wrong-output-compound-type</span>: +<span id="L13865" class="LineNr">13865 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13866" class="LineNr">13866 </span> 55/push-ebp +<span id="L13867" class="LineNr">13867 </span> 89/<- %ebp 4/r32/esp +<span id="L13868" class="LineNr">13868 </span> <span class="subxComment"># setup</span> +<span id="L13869" class="LineNr">13869 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13870" class="LineNr">13870 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13871" class="LineNr">13871 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13872" class="LineNr">13872 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13873" class="LineNr">13873 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13874" class="LineNr">13874 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13875" class="LineNr">13875 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <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">" length a\n"</span>) -<span id="L13883" class="LineNr">13883 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13884" class="LineNr">13884 </span> <span class="subxComment"># convert</span> -<span id="L13885" class="LineNr">13885 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13886" class="LineNr">13886 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13887" class="LineNr">13887 </span> <span class="subxComment"># restore ed</span> -<span id="L13888" class="LineNr">13888 </span> 89/<- %edx 4/r32/esp -<span id="L13889" class="LineNr">13889 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13890" class="LineNr">13890 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13891" class="Folded">13891 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13897" class="LineNr">13897 </span> <span class="subxComment"># check output</span> -<span id="L13898" class="LineNr">13898 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13863'>test-length-with-no-output</a>: output should be empty"</span>) -<span id="L13899" class="LineNr">13899 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L13863'>test-length-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13900" class="LineNr">13900 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13901" class="LineNr">13901 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13863'>test-length-with-no-output</a>: exit status"</span>) -<span id="L13902" class="LineNr">13902 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13903" class="LineNr">13903 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13904" class="LineNr">13904 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13905" class="LineNr">13905 </span> 5d/pop-to-ebp -<span id="L13906" class="LineNr">13906 </span> c3/return -<span id="L13907" class="LineNr">13907 </span> -<span id="L13908" class="LineNr">13908 </span><span class="subxTest">test-length-with-too-many-outputs</span>: -<span id="L13909" class="LineNr">13909 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13910" class="LineNr">13910 </span> 55/push-ebp -<span id="L13911" class="LineNr">13911 </span> 89/<- %ebp 4/r32/esp -<span id="L13912" class="LineNr">13912 </span> <span class="subxComment"># setup</span> -<span id="L13913" class="LineNr">13913 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13914" class="LineNr">13914 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13915" class="LineNr">13915 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13916" class="LineNr">13916 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13917" class="LineNr">13917 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L13918" class="LineNr">13918 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13919" class="LineNr">13919 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13920" class="LineNr">13920 </span> 68/push 0/imm32 +<span id="L13877" class="LineNr">13877 </span> 68/push 0/imm32 +<span id="L13878" class="LineNr">13878 </span> 89/<- %edx 4/r32/esp +<span id="L13879" class="LineNr">13879 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13880" class="LineNr">13880 </span> <span class="subxComment">#</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">"fn foo {\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 a/ebx: (addr array handle boolean) <- 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 o/edi: (addr handle int) <- length a\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">"}\n"</span>) +<span id="L13885" class="LineNr">13885 </span> <span class="subxComment"># convert</span> +<span id="L13886" class="LineNr">13886 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13887" class="LineNr">13887 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13888" class="LineNr">13888 </span> <span class="subxComment"># restore ed</span> +<span id="L13889" class="LineNr">13889 </span> 89/<- %edx 4/r32/esp +<span id="L13890" class="LineNr">13890 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13891" class="LineNr">13891 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13892" class="Folded">13892 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13898" class="LineNr">13898 </span> <span class="subxComment"># check output</span> +<span id="L13899" class="LineNr">13899 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13864'>test-length-with-wrong-output-compound-type</a>: output should be empty"</span>) +<span id="L13900" class="LineNr">13900 </span> (<a href='109stream-equal.subx.html#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#L13864'>test-length-with-wrong-output-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13901" class="LineNr">13901 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13902" class="LineNr">13902 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13864'>test-length-with-wrong-output-compound-type</a>: exit status"</span>) +<span id="L13903" class="LineNr">13903 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13904" class="LineNr">13904 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13905" class="LineNr">13905 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13906" class="LineNr">13906 </span> 5d/pop-to-ebp +<span id="L13907" class="LineNr">13907 </span> c3/return +<span id="L13908" class="LineNr">13908 </span> +<span id="L13909" class="LineNr">13909 </span><span class="subxTest">test-length-with-no-inouts</span>: +<span id="L13910" class="LineNr">13910 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13911" class="LineNr">13911 </span> 55/push-ebp +<span id="L13912" class="LineNr">13912 </span> 89/<- %ebp 4/r32/esp +<span id="L13913" class="LineNr">13913 </span> <span class="subxComment"># setup</span> +<span id="L13914" class="LineNr">13914 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13915" class="LineNr">13915 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13916" class="LineNr">13916 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13917" class="LineNr">13917 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13918" class="LineNr">13918 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13919" class="LineNr">13919 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13920" class="LineNr">13920 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <span id="L13921" class="LineNr">13921 </span> 68/push 0/imm32 -<span id="L13922" class="LineNr">13922 </span> 89/<- %edx 4/r32/esp -<span id="L13923" class="LineNr">13923 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13924" class="LineNr">13924 </span> <span class="subxComment">#</span> -<span id="L13925" class="LineNr">13925 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13926" class="LineNr">13926 </span> (<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="L13927" class="LineNr">13927 </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="L13928" class="LineNr">13928 </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="L13929" class="LineNr">13929 </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="L13930" class="LineNr">13930 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13931" class="LineNr">13931 </span> <span class="subxComment"># convert</span> -<span id="L13932" class="LineNr">13932 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L13933" class="LineNr">13933 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13934" class="LineNr">13934 </span> <span class="subxComment"># restore ed</span> -<span id="L13935" class="LineNr">13935 </span> 89/<- %edx 4/r32/esp -<span id="L13936" class="LineNr">13936 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13937" class="LineNr">13937 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L13938" class="Folded">13938 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13944" class="LineNr">13944 </span> <span class="subxComment"># check output</span> -<span id="L13945" class="LineNr">13945 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-length-with-too-many-outputs</a>: output should be empty"</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#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#L13908'>test-length-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L13947" class="LineNr">13947 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13948" class="LineNr">13948 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-length-with-too-many-outputs</a>: exit status"</span>) -<span id="L13949" class="LineNr">13949 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13950" class="LineNr">13950 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13951" class="LineNr">13951 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13952" class="LineNr">13952 </span> 5d/pop-to-ebp -<span id="L13953" class="LineNr">13953 </span> c3/return -<span id="L13954" class="LineNr">13954 </span> -<span id="L13955" class="LineNr">13955 </span><span class="subxTest">test-convert-function-with-return-register-and-local</span>: -<span id="L13956" class="LineNr">13956 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13957" class="LineNr">13957 </span> 55/push-ebp -<span id="L13958" class="LineNr">13958 </span> 89/<- %ebp 4/r32/esp -<span id="L13959" class="LineNr">13959 </span> <span class="subxComment"># setup</span> -<span id="L13960" class="LineNr">13960 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13961" class="LineNr">13961 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13962" class="LineNr">13962 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L13963" class="LineNr">13963 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13964" class="LineNr">13964 </span> <span class="subxComment">#</span> -<span id="L13965" class="LineNr">13965 </span> (<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="L13966" class="LineNr">13966 </span> (<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="L13967" class="LineNr">13967 </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="L13968" class="LineNr">13968 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y\n"</span>) -<span id="L13969" class="LineNr">13969 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13970" class="LineNr">13970 </span> <span class="subxComment"># convert</span> -<span id="L13971" class="LineNr">13971 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L13972" class="LineNr">13972 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L13973" class="Folded">13973 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13979" class="LineNr">13979 </span> <span class="subxComment"># check output</span> -<span id="L13980" class="LineNr">13980 </span> (<a href='109stream-equal.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#L13955'>test-convert-function-with-return-register-and-local</a>/0"</span>) -<span id="L13981" class="LineNr">13981 </span> (<a href='109stream-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="L13982" class="LineNr">13982 </span> (<a href='109stream-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#L13955'>test-convert-function-with-return-register-and-local</a>/2"</span>) -<span id="L13983" class="LineNr">13983 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/3"</span>) -<span id="L13984" class="LineNr">13984 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/4"</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:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/5"</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/6"</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">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/7"</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">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/8"</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">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/9"</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">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/10"</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">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/11"</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">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/12"</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">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/13"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/14"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/15"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local/16"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/17"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/18"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L13955'>test-convert-function-with-return-register-and-local</a>/19"</span>) -<span id="L14000" class="LineNr">14000 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14001" class="LineNr">14001 </span> 89/<- %esp 5/r32/ebp -<span id="L14002" class="LineNr">14002 </span> 5d/pop-to-ebp -<span id="L14003" class="LineNr">14003 </span> c3/return -<span id="L14004" class="LineNr">14004 </span> -<span id="L14005" class="LineNr">14005 </span><span class="subxTest">test-convert-function-with-return-register-and-local-2</span>: -<span id="L14006" class="LineNr">14006 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14007" class="LineNr">14007 </span> 55/push-ebp -<span id="L14008" class="LineNr">14008 </span> 89/<- %ebp 4/r32/esp -<span id="L14009" class="LineNr">14009 </span> <span class="subxComment"># setup</span> -<span id="L14010" class="LineNr">14010 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14011" class="LineNr">14011 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14012" class="LineNr">14012 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14013" class="LineNr">14013 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13922" class="LineNr">13922 </span> 68/push 0/imm32 +<span id="L13923" class="LineNr">13923 </span> 89/<- %edx 4/r32/esp +<span id="L13924" class="LineNr">13924 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13925" class="LineNr">13925 </span> <span class="subxComment">#</span> +<span id="L13926" class="LineNr">13926 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13927" class="LineNr">13927 </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="L13928" class="LineNr">13928 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13929" class="LineNr">13929 </span> <span class="subxComment"># convert</span> +<span id="L13930" class="LineNr">13930 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13931" class="LineNr">13931 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13932" class="LineNr">13932 </span> <span class="subxComment"># restore ed</span> +<span id="L13933" class="LineNr">13933 </span> 89/<- %edx 4/r32/esp +<span id="L13934" class="LineNr">13934 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13935" class="LineNr">13935 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13936" class="Folded">13936 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13942" class="LineNr">13942 </span> <span class="subxComment"># check output</span> +<span id="L13943" class="LineNr">13943 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13909'>test-length-with-no-inouts</a>: output should be empty"</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#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#L13909'>test-length-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13945" class="LineNr">13945 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13946" class="LineNr">13946 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13909'>test-length-with-no-inouts</a>: exit status"</span>) +<span id="L13947" class="LineNr">13947 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13948" class="LineNr">13948 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13949" class="LineNr">13949 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13950" class="LineNr">13950 </span> 5d/pop-to-ebp +<span id="L13951" class="LineNr">13951 </span> c3/return +<span id="L13952" class="LineNr">13952 </span> +<span id="L13953" class="LineNr">13953 </span><span class="subxTest">test-length-with-too-many-inouts</span>: +<span id="L13954" class="LineNr">13954 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13955" class="LineNr">13955 </span> 55/push-ebp +<span id="L13956" class="LineNr">13956 </span> 89/<- %ebp 4/r32/esp +<span id="L13957" class="LineNr">13957 </span> <span class="subxComment"># setup</span> +<span id="L13958" class="LineNr">13958 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13959" class="LineNr">13959 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13960" class="LineNr">13960 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13961" class="LineNr">13961 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13962" class="LineNr">13962 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13963" class="LineNr">13963 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13964" class="LineNr">13964 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13965" class="LineNr">13965 </span> 68/push 0/imm32 +<span id="L13966" class="LineNr">13966 </span> 68/push 0/imm32 +<span id="L13967" class="LineNr">13967 </span> 89/<- %edx 4/r32/esp +<span id="L13968" class="LineNr">13968 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<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 {\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 a: (array int 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 c/ecx: int <- length a, 0, 0\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">"}\n"</span>) +<span id="L13974" class="LineNr">13974 </span> <span class="subxComment"># convert</span> +<span id="L13975" class="LineNr">13975 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13976" class="LineNr">13976 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13977" class="LineNr">13977 </span> <span class="subxComment"># restore ed</span> +<span id="L13978" class="LineNr">13978 </span> 89/<- %edx 4/r32/esp +<span id="L13979" class="LineNr">13979 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13980" class="LineNr">13980 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13981" class="Folded">13981 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13987" class="LineNr">13987 </span> <span class="subxComment"># check output</span> +<span id="L13988" class="LineNr">13988 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13953'>test-length-with-too-many-inouts</a>: output should be empty"</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#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#L13953'>test-length-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13990" class="LineNr">13990 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13991" class="LineNr">13991 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13953'>test-length-with-too-many-inouts</a>: exit status"</span>) +<span id="L13992" class="LineNr">13992 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13993" class="LineNr">13993 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13994" class="LineNr">13994 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13995" class="LineNr">13995 </span> 5d/pop-to-ebp +<span id="L13996" class="LineNr">13996 </span> c3/return +<span id="L13997" class="LineNr">13997 </span> +<span id="L13998" class="LineNr">13998 </span><span class="subxTest">test-length-with-no-output</span>: +<span id="L13999" class="LineNr">13999 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14000" class="LineNr">14000 </span> 55/push-ebp +<span id="L14001" class="LineNr">14001 </span> 89/<- %ebp 4/r32/esp +<span id="L14002" class="LineNr">14002 </span> <span class="subxComment"># setup</span> +<span id="L14003" class="LineNr">14003 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14004" class="LineNr">14004 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14005" class="LineNr">14005 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14006" class="LineNr">14006 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14007" class="LineNr">14007 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14008" class="LineNr">14008 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14009" class="LineNr">14009 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14010" class="LineNr">14010 </span> 68/push 0/imm32 +<span id="L14011" class="LineNr">14011 </span> 68/push 0/imm32 +<span id="L14012" class="LineNr">14012 </span> 89/<- %edx 4/r32/esp +<span id="L14013" class="LineNr">14013 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L14014" class="LineNr">14014 </span> <span class="subxComment">#</span> -<span id="L14015" class="LineNr">14015 </span> (<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="L14016" class="LineNr">14016 </span> (<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="L14017" class="LineNr">14017 </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="L14018" class="LineNr">14018 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return z\n"</span>) -<span id="L14019" class="LineNr">14019 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14020" class="LineNr">14020 </span> <span class="subxComment"># convert</span> -<span id="L14021" class="LineNr">14021 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L14022" class="LineNr">14022 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14023" class="Folded">14023 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14029" class="LineNr">14029 </span> <span class="subxComment"># check output</span> -<span id="L14030" class="LineNr">14030 </span> (<a href='109stream-equal.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#L14005'>test-convert-function-with-return-register-and-local-2</a>/0"</span>) -<span id="L14031" class="LineNr">14031 </span> (<a href='109stream-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="L14032" class="LineNr">14032 </span> (<a href='109stream-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#L14005'>test-convert-function-with-return-register-and-local-2</a>/2"</span>) -<span id="L14033" class="LineNr">14033 </span> (<a href='109stream-equal.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#L14005'>test-convert-function-with-return-register-and-local-2</a>/3"</span>) -<span id="L14034" class="LineNr">14034 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14005'>test-convert-function-with-return-register-and-local-2</a>/4"</span>) -<span id="L14035" class="LineNr">14035 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14005'>test-convert-function-with-return-register-and-local-2</a>/5"</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L14005'>test-convert-function-with-return-register-and-local-2</a>/6"</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">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14005'>test-convert-function-with-return-register-and-local-2</a>/7"</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">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L14005'>test-convert-function-with-return-register-and-local-2</a>/8"</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">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14005'>test-convert-function-with-return-register-and-local-2</a>/9"</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">" 8b/-> %ecx 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14005'>test-convert-function-with-return-register-and-local-2</a>/10"</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">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L14005'>test-convert-function-with-return-register-and-local-2</a>/11"</span>) -<span id="L14042" class="LineNr">14042 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14005'>test-convert-function-with-return-register-and-local-2</a>/12"</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">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14005'>test-convert-function-with-return-register-and-local-2</a>/13"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14005'>test-convert-function-with-return-register-and-local-2</a>/14"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14005'>test-convert-function-with-return-register-and-local-2</a>/15"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local-2/16"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14005'>test-convert-function-with-return-register-and-local-2</a>/17"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14005'>test-convert-function-with-return-register-and-local-2</a>/18"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L14005'>test-convert-function-with-return-register-and-local-2</a>/19"</span>) -<span id="L14050" class="LineNr">14050 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14051" class="LineNr">14051 </span> 89/<- %esp 5/r32/ebp -<span id="L14052" class="LineNr">14052 </span> 5d/pop-to-ebp -<span id="L14053" class="LineNr">14053 </span> c3/return -<span id="L14054" class="LineNr">14054 </span> -<span id="L14055" class="LineNr">14055 </span><span class="subxTest">test-convert-function-with-return-float-register-and-local</span>: -<span id="L14056" class="LineNr">14056 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14057" class="LineNr">14057 </span> 55/push-ebp -<span id="L14058" class="LineNr">14058 </span> 89/<- %ebp 4/r32/esp -<span id="L14059" class="LineNr">14059 </span> <span class="subxComment"># setup</span> -<span id="L14060" class="LineNr">14060 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14061" class="LineNr">14061 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14062" class="LineNr">14062 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14063" class="LineNr">14063 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14064" class="LineNr">14064 </span> <span class="subxComment">#</span> -<span id="L14065" class="LineNr">14065 </span> (<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="L14066" class="LineNr">14066 </span> (<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="L14067" class="LineNr">14067 </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="L14068" class="LineNr">14068 </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="L14069" class="LineNr">14069 </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="L14070" class="LineNr">14070 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14071" class="LineNr">14071 </span> <span class="subxComment"># convert</span> -<span id="L14072" class="LineNr">14072 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L14073" class="LineNr">14073 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14074" class="Folded">14074 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14080" class="LineNr">14080 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14055'>test-convert-function-with-return-float-register-and-local</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-float-register-and-local/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14055'>test-convert-function-with-return-float-register-and-local</a>/2"</span>) -<span id="L14084" class="LineNr">14084 </span> (<a href='109stream-equal.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#L14055'>test-convert-function-with-return-float-register-and-local</a>/3"</span>) -<span id="L14085" class="LineNr">14085 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14055'>test-convert-function-with-return-float-register-and-local</a>/4"</span>) -<span id="L14086" class="LineNr">14086 </span> (<a href='109stream-equal.subx.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#L14055'>test-convert-function-with-return-float-register-and-local</a>/5"</span>) -<span id="L14087" class="LineNr">14087 </span> (<a href='109stream-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#L14055'>test-convert-function-with-return-float-register-and-local</a>/6"</span>) <span class="subxComment"># var y</span> -<span id="L14088" class="LineNr">14088 </span> (<a href='109stream-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#L14055'>test-convert-function-with-return-float-register-and-local</a>/7"</span>) -<span id="L14089" class="LineNr">14089 </span> (<a href='109stream-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#L14055'>test-convert-function-with-return-float-register-and-local</a>/8"</span>) <span class="subxComment"># var g</span> -<span id="L14090" class="LineNr">14090 </span> (<a href='109stream-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#L14055'>test-convert-function-with-return-float-register-and-local</a>/9"</span>) -<span id="L14091" class="LineNr">14091 </span> (<a href='109stream-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#L14055'>test-convert-function-with-return-float-register-and-local</a>/10"</span>) -<span id="L14092" class="LineNr">14092 </span> (<a href='109stream-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#L14055'>test-convert-function-with-return-float-register-and-local</a>/11"</span>) <span class="subxComment"># var h</span> -<span id="L14093" class="LineNr">14093 </span> (<a href='109stream-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#L14055'>test-convert-function-with-return-float-register-and-local</a>/12"</span>) -<span id="L14094" class="LineNr">14094 </span> (<a href='109stream-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#L14055'>test-convert-function-with-return-float-register-and-local</a>/13"</span>) -<span id="L14095" class="LineNr">14095 </span> (<a href='109stream-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#L14055'>test-convert-function-with-return-float-register-and-local</a>/14"</span>) <span class="subxComment"># return g</span> -<span id="L14096" class="LineNr">14096 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6040'>test-convert-floating-point-dereferenced</a>/15"</span>) <span class="subxComment"># reclaim h</span> -<span id="L14097" class="LineNr">14097 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 0/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6040'>test-convert-floating-point-dereferenced</a>/16"</span>) <span class="subxComment"># reclaim g</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">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6040'>test-convert-floating-point-dereferenced</a>/17"</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">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L14055'>test-convert-function-with-return-float-register-and-local</a>/18"</span>) <span class="subxComment"># reclaim y</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">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14055'>test-convert-function-with-return-float-register-and-local</a>/19"</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">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14055'>test-convert-function-with-return-float-register-and-local</a>/20"</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">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14055'>test-convert-function-with-return-float-register-and-local</a>/21"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-float-register-and-local/22"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14055'>test-convert-function-with-return-float-register-and-local</a>/23"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14055'>test-convert-function-with-return-float-register-and-local</a>/24"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L14055'>test-convert-function-with-return-float-register-and-local</a>/25"</span>) -<span id="L14107" class="LineNr">14107 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14108" class="LineNr">14108 </span> 89/<- %esp 5/r32/ebp -<span id="L14109" class="LineNr">14109 </span> 5d/pop-to-ebp -<span id="L14110" class="LineNr">14110 </span> c3/return -<span id="L14111" class="LineNr">14111 </span> -<span id="L14112" class="LineNr">14112 </span><span class="subxTest">test-convert-function-with-return-and-local-vars</span>: -<span id="L14113" class="LineNr">14113 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14114" class="LineNr">14114 </span> 55/push-ebp -<span id="L14115" class="LineNr">14115 </span> 89/<- %ebp 4/r32/esp -<span id="L14116" class="LineNr">14116 </span> <span class="subxComment"># setup</span> -<span id="L14117" class="LineNr">14117 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14118" class="LineNr">14118 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14119" class="LineNr">14119 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14120" class="LineNr">14120 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14121" class="LineNr">14121 </span> <span class="subxComment">#</span> -<span id="L14122" class="LineNr">14122 </span> (<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="L14123" class="LineNr">14123 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L14124" class="LineNr">14124 </span> (<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="L14125" class="LineNr">14125 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L14126" class="LineNr">14126 </span> (<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="L14127" class="LineNr">14127 </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="L14128" class="LineNr">14128 </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="L14129" class="LineNr">14129 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L14130" class="LineNr">14130 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L14131" class="LineNr">14131 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return 0\n"</span>) -<span id="L14132" class="LineNr">14132 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14133" class="LineNr">14133 </span> <span class="subxComment"># convert</span> -<span id="L14134" class="LineNr">14134 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L14135" class="LineNr">14135 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14136" class="Folded">14136 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14142" class="LineNr">14142 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14112'>test-convert-function-with-return-and-local-vars</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-and-local-vars/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14112'>test-convert-function-with-return-and-local-vars</a>/2"</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/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14112'>test-convert-function-with-return-and-local-vars</a>/3"</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">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14112'>test-convert-function-with-return-and-local-vars</a>/4"</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">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14112'>test-convert-function-with-return-and-local-vars</a>/5"</span>) -<span id="L14149" class="LineNr">14149 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14112'>test-convert-function-with-return-and-local-vars</a>/6"</span>) -<span id="L14150" class="LineNr">14150 </span> (<a href='109stream-equal.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#L14112'>test-convert-function-with-return-and-local-vars</a>/7"</span>) -<span id="L14151" class="LineNr">14151 </span> (<a href='109stream-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#L14112'>test-convert-function-with-return-and-local-vars</a>/8"</span>) <span class="subxComment"># var x</span> -<span id="L14152" class="LineNr">14152 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14112'>test-convert-function-with-return-and-local-vars</a>/9"</span>) -<span id="L14153" class="LineNr">14153 </span> (<a href='109stream-equal.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#L14112'>test-convert-function-with-return-and-local-vars</a>/10"</span>) -<span id="L14154" class="LineNr">14154 </span> (<a href='109stream-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#L14112'>test-convert-function-with-return-and-local-vars</a>/11"</span>) <span class="subxComment"># var y</span> -<span id="L14155" class="LineNr">14155 </span> (<a href='109stream-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#L14112'>test-convert-function-with-return-and-local-vars</a>/12"</span>) -<span id="L14156" class="LineNr">14156 </span> (<a href='109stream-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#L14112'>test-convert-function-with-return-and-local-vars</a>/13"</span>) -<span id="L14157" class="LineNr">14157 </span> (<a href='109stream-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#L14112'>test-convert-function-with-return-and-local-vars</a>/14"</span>) -<span id="L14158" class="LineNr">14158 </span> (<a href='109stream-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#L14112'>test-convert-function-with-return-and-local-vars</a>/15"</span>) -<span id="L14159" class="LineNr">14159 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14112'>test-convert-function-with-return-and-local-vars</a>/16"</span>) -<span id="L14160" class="LineNr">14160 </span> (<a href='109stream-equal.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#L14112'>test-convert-function-with-return-and-local-vars</a>/17"</span>) -<span id="L14161" class="LineNr">14161 </span> (<a href='109stream-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#L14112'>test-convert-function-with-return-and-local-vars</a>/18"</span>) -<span id="L14162" class="LineNr">14162 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14112'>test-convert-function-with-return-and-local-vars</a>/19"</span>) -<span id="L14163" class="LineNr">14163 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14112'>test-convert-function-with-return-and-local-vars</a>/20"</span>) -<span id="L14164" class="LineNr">14164 </span> (<a href='109stream-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#L14112'>test-convert-function-with-return-and-local-vars</a>/21"</span>) -<span id="L14165" class="LineNr">14165 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14112'>test-convert-function-with-return-and-local-vars</a>/21"</span>) -<span id="L14166" class="LineNr">14166 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14112'>test-convert-function-with-return-and-local-vars</a>/21"</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#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14112'>test-convert-function-with-return-and-local-vars</a>/22"</span>) -<span id="L14168" class="LineNr">14168 </span> (<a href='109stream-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="L14169" class="LineNr">14169 </span> (<a href='109stream-equal.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#L14112'>test-convert-function-with-return-and-local-vars</a>/24"</span>) -<span id="L14170" class="LineNr">14170 </span> (<a href='109stream-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#L14112'>test-convert-function-with-return-and-local-vars</a>/25"</span>) -<span id="L14171" class="LineNr">14171 </span> (<a href='109stream-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#L14112'>test-convert-function-with-return-and-local-vars</a>/26"</span>) -<span id="L14172" class="LineNr">14172 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14173" class="LineNr">14173 </span> 89/<- %esp 5/r32/ebp -<span id="L14174" class="LineNr">14174 </span> 5d/pop-to-ebp -<span id="L14175" class="LineNr">14175 </span> c3/return -<span id="L14176" class="LineNr">14176 </span> -<span id="L14177" class="LineNr">14177 </span><span class="subxTest">test-copy-object-with-no-inout</span>: -<span id="L14178" class="LineNr">14178 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14179" class="LineNr">14179 </span> 55/push-ebp -<span id="L14180" class="LineNr">14180 </span> 89/<- %ebp 4/r32/esp -<span id="L14181" class="LineNr">14181 </span> <span class="subxComment"># setup</span> -<span id="L14182" class="LineNr">14182 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14183" class="LineNr">14183 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14184" class="LineNr">14184 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14185" class="LineNr">14185 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14186" class="LineNr">14186 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14187" class="LineNr">14187 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14188" class="LineNr">14188 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14189" class="LineNr">14189 </span> 68/push 0/imm32 -<span id="L14190" class="LineNr">14190 </span> 68/push 0/imm32 -<span id="L14191" class="LineNr">14191 </span> 89/<- %edx 4/r32/esp -<span id="L14192" class="LineNr">14192 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14193" class="LineNr">14193 </span> <span class="subxComment">#</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">"fn foo {\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\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#L14177'>test-copy-object-with-no-inout</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#L14177'>test-copy-object-with-no-inout</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#L14177'>test-copy-object-with-no-inout</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-no-source</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 int)\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\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-no-source</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-no-source</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-no-source</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-too-many-inouts</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: (addr boolean)\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">" copy-object x, x, x\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">"}\n"</span>) -<span id="L14287" class="LineNr">14287 </span> <span class="subxComment"># convert</span> -<span id="L14288" class="LineNr">14288 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14289" class="LineNr">14289 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14290" class="LineNr">14290 </span> <span class="subxComment"># restore ed</span> -<span id="L14291" class="LineNr">14291 </span> 89/<- %edx 4/r32/esp -<span id="L14292" class="LineNr">14292 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14293" class="LineNr">14293 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14294" class="Folded">14294 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14300" class="LineNr">14300 </span> <span class="subxComment"># check output</span> -<span id="L14301" class="LineNr">14301 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-too-many-inouts</a>: output should be empty"</span>) -<span id="L14302" class="LineNr">14302 </span> (<a href='109stream-equal.subx.html#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#L14266'>test-copy-object-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14303" class="LineNr">14303 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14304" class="LineNr">14304 </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-too-many-inouts</a>: exit status"</span>) -<span id="L14305" class="LineNr">14305 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14306" class="LineNr">14306 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14015" class="LineNr">14015 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14016" class="LineNr">14016 </span> (<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="L14017" class="LineNr">14017 </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="L14018" class="LineNr">14018 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14019" class="LineNr">14019 </span> <span class="subxComment"># convert</span> +<span id="L14020" class="LineNr">14020 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14021" class="LineNr">14021 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14022" class="LineNr">14022 </span> <span class="subxComment"># restore ed</span> +<span id="L14023" class="LineNr">14023 </span> 89/<- %edx 4/r32/esp +<span id="L14024" class="LineNr">14024 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14025" class="LineNr">14025 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14026" class="Folded">14026 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14032" class="LineNr">14032 </span> <span class="subxComment"># check output</span> +<span id="L14033" class="LineNr">14033 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13998'>test-length-with-no-output</a>: output should be empty"</span>) +<span id="L14034" class="LineNr">14034 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L13998'>test-length-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14035" class="LineNr">14035 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14036" class="LineNr">14036 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13998'>test-length-with-no-output</a>: exit status"</span>) +<span id="L14037" class="LineNr">14037 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14038" class="LineNr">14038 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14039" class="LineNr">14039 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14040" class="LineNr">14040 </span> 5d/pop-to-ebp +<span id="L14041" class="LineNr">14041 </span> c3/return +<span id="L14042" class="LineNr">14042 </span> +<span id="L14043" class="LineNr">14043 </span><span class="subxTest">test-length-with-too-many-outputs</span>: +<span id="L14044" class="LineNr">14044 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14045" class="LineNr">14045 </span> 55/push-ebp +<span id="L14046" class="LineNr">14046 </span> 89/<- %ebp 4/r32/esp +<span id="L14047" class="LineNr">14047 </span> <span class="subxComment"># setup</span> +<span id="L14048" class="LineNr">14048 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14049" class="LineNr">14049 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14050" class="LineNr">14050 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14051" class="LineNr">14051 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14052" class="LineNr">14052 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14053" class="LineNr">14053 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14054" class="LineNr">14054 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14055" class="LineNr">14055 </span> 68/push 0/imm32 +<span id="L14056" class="LineNr">14056 </span> 68/push 0/imm32 +<span id="L14057" class="LineNr">14057 </span> 89/<- %edx 4/r32/esp +<span id="L14058" class="LineNr">14058 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14059" class="LineNr">14059 </span> <span class="subxComment">#</span> +<span id="L14060" class="LineNr">14060 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14061" class="LineNr">14061 </span> (<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="L14062" class="LineNr">14062 </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="L14063" class="LineNr">14063 </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="L14064" class="LineNr">14064 </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="L14065" class="LineNr">14065 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14066" class="LineNr">14066 </span> <span class="subxComment"># convert</span> +<span id="L14067" class="LineNr">14067 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14068" class="LineNr">14068 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14069" class="LineNr">14069 </span> <span class="subxComment"># restore ed</span> +<span id="L14070" class="LineNr">14070 </span> 89/<- %edx 4/r32/esp +<span id="L14071" class="LineNr">14071 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14072" class="LineNr">14072 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14073" class="Folded">14073 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14079" class="LineNr">14079 </span> <span class="subxComment"># check output</span> +<span id="L14080" class="LineNr">14080 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14043'>test-length-with-too-many-outputs</a>: output should be empty"</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#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#L14043'>test-length-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14082" class="LineNr">14082 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14083" class="LineNr">14083 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14043'>test-length-with-too-many-outputs</a>: exit status"</span>) +<span id="L14084" class="LineNr">14084 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14085" class="LineNr">14085 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14086" class="LineNr">14086 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14087" class="LineNr">14087 </span> 5d/pop-to-ebp +<span id="L14088" class="LineNr">14088 </span> c3/return +<span id="L14089" class="LineNr">14089 </span> +<span id="L14090" class="LineNr">14090 </span><span class="subxTest">test-convert-function-with-return-register-and-local</span>: +<span id="L14091" class="LineNr">14091 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14092" class="LineNr">14092 </span> 55/push-ebp +<span id="L14093" class="LineNr">14093 </span> 89/<- %ebp 4/r32/esp +<span id="L14094" class="LineNr">14094 </span> <span class="subxComment"># setup</span> +<span id="L14095" class="LineNr">14095 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14096" class="LineNr">14096 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14097" class="LineNr">14097 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14098" class="LineNr">14098 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14099" class="LineNr">14099 </span> <span class="subxComment">#</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">"fn foo -> _/eax: int {\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 y/eax: int <- copy 3\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">" var z/ecx: int <- copy 4\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">" return y\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">"}\n"</span>) +<span id="L14105" class="LineNr">14105 </span> <span class="subxComment"># convert</span> +<span id="L14106" class="LineNr">14106 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L14107" class="LineNr">14107 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14108" class="Folded">14108 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14114" class="LineNr">14114 </span> <span class="subxComment"># check output</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:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local/1"</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">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/2"</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">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/3"</span>) +<span id="L14119" class="LineNr">14119 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/4"</span>) +<span id="L14120" class="LineNr">14120 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/5"</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">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/6"</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">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/7"</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">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/8"</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">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/9"</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">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/10"</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">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/11"</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">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/12"</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">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/13"</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#L14090'>test-convert-function-with-return-register-and-local</a>/14"</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:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/15"</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">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local/16"</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">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/17"</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">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/18"</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">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L14090'>test-convert-function-with-return-register-and-local</a>/19"</span>) +<span id="L14135" class="LineNr">14135 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14136" class="LineNr">14136 </span> 89/<- %esp 5/r32/ebp +<span id="L14137" class="LineNr">14137 </span> 5d/pop-to-ebp +<span id="L14138" class="LineNr">14138 </span> c3/return +<span id="L14139" class="LineNr">14139 </span> +<span id="L14140" class="LineNr">14140 </span><span class="subxTest">test-convert-function-with-return-register-and-local-2</span>: +<span id="L14141" class="LineNr">14141 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14142" class="LineNr">14142 </span> 55/push-ebp +<span id="L14143" class="LineNr">14143 </span> 89/<- %ebp 4/r32/esp +<span id="L14144" class="LineNr">14144 </span> <span class="subxComment"># setup</span> +<span id="L14145" class="LineNr">14145 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14146" class="LineNr">14146 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14147" class="LineNr">14147 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14148" class="LineNr">14148 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14149" class="LineNr">14149 </span> <span class="subxComment">#</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">"fn foo -> _/eax: int {\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">" var y/eax: int <- copy 3\n"</span>) +<span id="L14152" class="LineNr">14152 </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="L14153" class="LineNr">14153 </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="L14154" class="LineNr">14154 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14155" class="LineNr">14155 </span> <span class="subxComment"># convert</span> +<span id="L14156" class="LineNr">14156 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="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="Folded">14158 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14164" class="LineNr">14164 </span> <span class="subxComment"># check output</span> +<span id="L14165" class="LineNr">14165 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14140'>test-convert-function-with-return-register-and-local-2</a>/0"</span>) +<span id="L14166" class="LineNr">14166 </span> (<a href='109stream-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="L14167" class="LineNr">14167 </span> (<a href='109stream-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#L14140'>test-convert-function-with-return-register-and-local-2</a>/2"</span>) +<span id="L14168" class="LineNr">14168 </span> (<a href='109stream-equal.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#L14140'>test-convert-function-with-return-register-and-local-2</a>/3"</span>) +<span id="L14169" class="LineNr">14169 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14140'>test-convert-function-with-return-register-and-local-2</a>/4"</span>) +<span id="L14170" class="LineNr">14170 </span> (<a href='109stream-equal.subx.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#L14140'>test-convert-function-with-return-register-and-local-2</a>/5"</span>) +<span id="L14171" class="LineNr">14171 </span> (<a href='109stream-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#L14140'>test-convert-function-with-return-register-and-local-2</a>/6"</span>) +<span id="L14172" class="LineNr">14172 </span> (<a href='109stream-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#L14140'>test-convert-function-with-return-register-and-local-2</a>/7"</span>) +<span id="L14173" class="LineNr">14173 </span> (<a href='109stream-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#L14140'>test-convert-function-with-return-register-and-local-2</a>/8"</span>) +<span id="L14174" class="LineNr">14174 </span> (<a href='109stream-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#L14140'>test-convert-function-with-return-register-and-local-2</a>/9"</span>) +<span id="L14175" class="LineNr">14175 </span> (<a href='109stream-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#L14140'>test-convert-function-with-return-register-and-local-2</a>/10"</span>) +<span id="L14176" class="LineNr">14176 </span> (<a href='109stream-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#L14140'>test-convert-function-with-return-register-and-local-2</a>/11"</span>) +<span id="L14177" class="LineNr">14177 </span> (<a href='109stream-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#L14140'>test-convert-function-with-return-register-and-local-2</a>/12"</span>) +<span id="L14178" class="LineNr">14178 </span> (<a href='109stream-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#L14140'>test-convert-function-with-return-register-and-local-2</a>/13"</span>) +<span id="L14179" class="LineNr">14179 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14140'>test-convert-function-with-return-register-and-local-2</a>/14"</span>) +<span id="L14180" class="LineNr">14180 </span> (<a href='109stream-equal.subx.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#L14140'>test-convert-function-with-return-register-and-local-2</a>/15"</span>) +<span id="L14181" class="LineNr">14181 </span> (<a href='109stream-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="L14182" class="LineNr">14182 </span> (<a href='109stream-equal.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#L14140'>test-convert-function-with-return-register-and-local-2</a>/17"</span>) +<span id="L14183" class="LineNr">14183 </span> (<a href='109stream-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#L14140'>test-convert-function-with-return-register-and-local-2</a>/18"</span>) +<span id="L14184" class="LineNr">14184 </span> (<a href='109stream-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#L14140'>test-convert-function-with-return-register-and-local-2</a>/19"</span>) +<span id="L14185" class="LineNr">14185 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14186" class="LineNr">14186 </span> 89/<- %esp 5/r32/ebp +<span id="L14187" class="LineNr">14187 </span> 5d/pop-to-ebp +<span id="L14188" class="LineNr">14188 </span> c3/return +<span id="L14189" class="LineNr">14189 </span> +<span id="L14190" class="LineNr">14190 </span><span class="subxTest">test-convert-function-with-return-float-register-and-local</span>: +<span id="L14191" class="LineNr">14191 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14192" class="LineNr">14192 </span> 55/push-ebp +<span id="L14193" class="LineNr">14193 </span> 89/<- %ebp 4/r32/esp +<span id="L14194" class="LineNr">14194 </span> <span class="subxComment"># setup</span> +<span id="L14195" class="LineNr">14195 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14196" class="LineNr">14196 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14197" class="LineNr">14197 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14198" class="LineNr">14198 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14199" class="LineNr">14199 </span> <span class="subxComment">#</span> +<span id="L14200" class="LineNr">14200 </span> (<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="L14201" class="LineNr">14201 </span> (<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="L14202" class="LineNr">14202 </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="L14203" class="LineNr">14203 </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="L14204" class="LineNr">14204 </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="L14205" class="LineNr">14205 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14206" class="LineNr">14206 </span> <span class="subxComment"># convert</span> +<span id="L14207" class="LineNr">14207 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L14208" class="LineNr">14208 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14209" class="Folded">14209 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14215" class="LineNr">14215 </span> <span class="subxComment"># check output</span> +<span id="L14216" class="LineNr">14216 </span> (<a href='109stream-equal.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#L14190'>test-convert-function-with-return-float-register-and-local</a>/0"</span>) +<span id="L14217" class="LineNr">14217 </span> (<a href='109stream-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="L14218" class="LineNr">14218 </span> (<a href='109stream-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#L14190'>test-convert-function-with-return-float-register-and-local</a>/2"</span>) +<span id="L14219" class="LineNr">14219 </span> (<a href='109stream-equal.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#L14190'>test-convert-function-with-return-float-register-and-local</a>/3"</span>) +<span id="L14220" class="LineNr">14220 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14190'>test-convert-function-with-return-float-register-and-local</a>/4"</span>) +<span id="L14221" class="LineNr">14221 </span> (<a href='109stream-equal.subx.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#L14190'>test-convert-function-with-return-float-register-and-local</a>/5"</span>) +<span id="L14222" class="LineNr">14222 </span> (<a href='109stream-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#L14190'>test-convert-function-with-return-float-register-and-local</a>/6"</span>) <span class="subxComment"># var y</span> +<span id="L14223" class="LineNr">14223 </span> (<a href='109stream-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#L14190'>test-convert-function-with-return-float-register-and-local</a>/7"</span>) +<span id="L14224" class="LineNr">14224 </span> (<a href='109stream-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#L14190'>test-convert-function-with-return-float-register-and-local</a>/8"</span>) <span class="subxComment"># var g</span> +<span id="L14225" class="LineNr">14225 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 0/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14190'>test-convert-function-with-return-float-register-and-local</a>/9"</span>) +<span id="L14226" class="LineNr">14226 </span> (<a href='109stream-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#L14190'>test-convert-function-with-return-float-register-and-local</a>/10"</span>) +<span id="L14227" class="LineNr">14227 </span> (<a href='109stream-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#L14190'>test-convert-function-with-return-float-register-and-local</a>/11"</span>) <span class="subxComment"># var h</span> +<span id="L14228" class="LineNr">14228 </span> (<a href='109stream-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#L14190'>test-convert-function-with-return-float-register-and-local</a>/12"</span>) +<span id="L14229" class="LineNr">14229 </span> (<a href='109stream-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#L14190'>test-convert-function-with-return-float-register-and-local</a>/13"</span>) +<span id="L14230" class="LineNr">14230 </span> (<a href='109stream-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#L14190'>test-convert-function-with-return-float-register-and-local</a>/14"</span>) <span class="subxComment"># return g</span> +<span id="L14231" class="LineNr">14231 </span> (<a href='109stream-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#L6084'>test-convert-floating-point-dereferenced</a>/15"</span>) <span class="subxComment"># reclaim h</span> +<span id="L14232" class="LineNr">14232 </span> (<a href='109stream-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#L6084'>test-convert-floating-point-dereferenced</a>/16"</span>) <span class="subxComment"># reclaim g</span> +<span id="L14233" class="LineNr">14233 </span> (<a href='109stream-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#L6084'>test-convert-floating-point-dereferenced</a>/17"</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#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L14190'>test-convert-function-with-return-float-register-and-local</a>/18"</span>) <span class="subxComment"># reclaim y</span> +<span id="L14235" class="LineNr">14235 </span> (<a href='109stream-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#L14190'>test-convert-function-with-return-float-register-and-local</a>/19"</span>) +<span id="L14236" class="LineNr">14236 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14190'>test-convert-function-with-return-float-register-and-local</a>/20"</span>) +<span id="L14237" class="LineNr">14237 </span> (<a href='109stream-equal.subx.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#L14190'>test-convert-function-with-return-float-register-and-local</a>/21"</span>) +<span id="L14238" class="LineNr">14238 </span> (<a href='109stream-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="L14239" class="LineNr">14239 </span> (<a href='109stream-equal.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#L14190'>test-convert-function-with-return-float-register-and-local</a>/23"</span>) +<span id="L14240" class="LineNr">14240 </span> (<a href='109stream-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#L14190'>test-convert-function-with-return-float-register-and-local</a>/24"</span>) +<span id="L14241" class="LineNr">14241 </span> (<a href='109stream-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#L14190'>test-convert-function-with-return-float-register-and-local</a>/25"</span>) +<span id="L14242" class="LineNr">14242 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14243" class="LineNr">14243 </span> 89/<- %esp 5/r32/ebp +<span id="L14244" class="LineNr">14244 </span> 5d/pop-to-ebp +<span id="L14245" class="LineNr">14245 </span> c3/return +<span id="L14246" class="LineNr">14246 </span> +<span id="L14247" class="LineNr">14247 </span><span class="subxTest">test-convert-function-with-return-and-local-vars</span>: +<span id="L14248" class="LineNr">14248 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14249" class="LineNr">14249 </span> 55/push-ebp +<span id="L14250" class="LineNr">14250 </span> 89/<- %ebp 4/r32/esp +<span id="L14251" class="LineNr">14251 </span> <span class="subxComment"># setup</span> +<span id="L14252" class="LineNr">14252 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14253" class="LineNr">14253 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14254" class="LineNr">14254 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14255" class="LineNr">14255 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14256" class="LineNr">14256 </span> <span class="subxComment">#</span> +<span id="L14257" class="LineNr">14257 </span> (<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="L14258" class="LineNr">14258 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L14259" class="LineNr">14259 </span> (<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="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">" {\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 y: int\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">" return y\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">" increment x\n"</span>) +<span id="L14264" class="LineNr">14264 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L14265" class="LineNr">14265 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L14266" class="LineNr">14266 </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="L14267" class="LineNr">14267 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14268" class="LineNr">14268 </span> <span class="subxComment"># convert</span> +<span id="L14269" class="LineNr">14269 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L14270" class="LineNr">14270 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14271" class="Folded">14271 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-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#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#L14247'>test-convert-function-with-return-and-local-vars</a>/0"</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#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="L14280" class="LineNr">14280 </span> (<a href='109stream-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#L14247'>test-convert-function-with-return-and-local-vars</a>/2"</span>) +<span id="L14281" class="LineNr">14281 </span> (<a href='109stream-equal.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#L14247'>test-convert-function-with-return-and-local-vars</a>/3"</span>) +<span id="L14282" class="LineNr">14282 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14247'>test-convert-function-with-return-and-local-vars</a>/4"</span>) +<span id="L14283" class="LineNr">14283 </span> (<a href='109stream-equal.subx.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#L14247'>test-convert-function-with-return-and-local-vars</a>/5"</span>) +<span id="L14284" class="LineNr">14284 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14247'>test-convert-function-with-return-and-local-vars</a>/6"</span>) +<span id="L14285" class="LineNr">14285 </span> (<a href='109stream-equal.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#L14247'>test-convert-function-with-return-and-local-vars</a>/7"</span>) +<span id="L14286" class="LineNr">14286 </span> (<a href='109stream-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#L14247'>test-convert-function-with-return-and-local-vars</a>/8"</span>) <span class="subxComment"># var x</span> +<span id="L14287" class="LineNr">14287 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14247'>test-convert-function-with-return-and-local-vars</a>/9"</span>) +<span id="L14288" class="LineNr">14288 </span> (<a href='109stream-equal.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#L14247'>test-convert-function-with-return-and-local-vars</a>/10"</span>) +<span id="L14289" class="LineNr">14289 </span> (<a href='109stream-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#L14247'>test-convert-function-with-return-and-local-vars</a>/11"</span>) <span class="subxComment"># var y</span> +<span id="L14290" class="LineNr">14290 </span> (<a href='109stream-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#L14247'>test-convert-function-with-return-and-local-vars</a>/12"</span>) +<span id="L14291" class="LineNr">14291 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#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#L14247'>test-convert-function-with-return-and-local-vars</a>/13"</span>) +<span id="L14292" class="LineNr">14292 </span> (<a href='109stream-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#L14247'>test-convert-function-with-return-and-local-vars</a>/14"</span>) +<span id="L14293" class="LineNr">14293 </span> (<a href='109stream-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#L14247'>test-convert-function-with-return-and-local-vars</a>/15"</span>) +<span id="L14294" class="LineNr">14294 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14247'>test-convert-function-with-return-and-local-vars</a>/16"</span>) +<span id="L14295" class="LineNr">14295 </span> (<a href='109stream-equal.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#L14247'>test-convert-function-with-return-and-local-vars</a>/17"</span>) +<span id="L14296" class="LineNr">14296 </span> (<a href='109stream-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#L14247'>test-convert-function-with-return-and-local-vars</a>/18"</span>) +<span id="L14297" class="LineNr">14297 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14247'>test-convert-function-with-return-and-local-vars</a>/19"</span>) +<span id="L14298" class="LineNr">14298 </span> (<a href='109stream-equal.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#L14247'>test-convert-function-with-return-and-local-vars</a>/20"</span>) +<span id="L14299" class="LineNr">14299 </span> (<a href='109stream-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#L14247'>test-convert-function-with-return-and-local-vars</a>/21"</span>) +<span id="L14300" class="LineNr">14300 </span> (<a href='109stream-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#L14247'>test-convert-function-with-return-and-local-vars</a>/21"</span>) +<span id="L14301" class="LineNr">14301 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14247'>test-convert-function-with-return-and-local-vars</a>/21"</span>) +<span id="L14302" class="LineNr">14302 </span> (<a href='109stream-equal.subx.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#L14247'>test-convert-function-with-return-and-local-vars</a>/22"</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#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="L14304" class="LineNr">14304 </span> (<a href='109stream-equal.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#L14247'>test-convert-function-with-return-and-local-vars</a>/24"</span>) +<span id="L14305" class="LineNr">14305 </span> (<a href='109stream-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#L14247'>test-convert-function-with-return-and-local-vars</a>/25"</span>) +<span id="L14306" class="LineNr">14306 </span> (<a href='109stream-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#L14247'>test-convert-function-with-return-and-local-vars</a>/26"</span>) <span id="L14307" class="LineNr">14307 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14308" class="LineNr">14308 </span> 5d/pop-to-ebp -<span id="L14309" class="LineNr">14309 </span> c3/return -<span id="L14310" class="LineNr">14310 </span> -<span id="L14311" class="LineNr">14311 </span><span class="subxTest">test-copy-object-with-output</span>: -<span id="L14312" class="LineNr">14312 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14313" class="LineNr">14313 </span> 55/push-ebp -<span id="L14314" class="LineNr">14314 </span> 89/<- %ebp 4/r32/esp -<span id="L14315" class="LineNr">14315 </span> <span class="subxComment"># setup</span> -<span id="L14316" class="LineNr">14316 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14317" class="LineNr">14317 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14318" class="LineNr">14318 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14319" class="LineNr">14319 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14320" class="LineNr">14320 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14321" class="LineNr">14321 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14322" class="LineNr">14322 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14323" class="LineNr">14323 </span> 68/push 0/imm32 +<span id="L14308" class="LineNr">14308 </span> 89/<- %esp 5/r32/ebp +<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-with-no-inout</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> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14322" class="LineNr">14322 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14323" class="LineNr">14323 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> <span id="L14324" class="LineNr">14324 </span> 68/push 0/imm32 -<span id="L14325" class="LineNr">14325 </span> 89/<- %edx 4/r32/esp -<span id="L14326" class="LineNr">14326 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14327" class="LineNr">14327 </span> <span class="subxComment">#</span> -<span id="L14328" class="LineNr">14328 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14329" class="LineNr">14329 </span> (<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="L14330" class="LineNr">14330 </span> (<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="L14331" class="LineNr">14331 </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="L14332" class="LineNr">14332 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14333" class="LineNr">14333 </span> <span class="subxComment"># convert</span> -<span id="L14334" class="LineNr">14334 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14335" class="LineNr">14335 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14336" class="LineNr">14336 </span> <span class="subxComment"># restore ed</span> -<span id="L14337" class="LineNr">14337 </span> 89/<- %edx 4/r32/esp -<span id="L14338" class="LineNr">14338 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14339" class="LineNr">14339 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14340" class="Folded">14340 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14346" class="LineNr">14346 </span> <span class="subxComment"># check output</span> -<span id="L14347" class="LineNr">14347 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14311'>test-copy-object-with-output</a>: output should be empty"</span>) -<span id="L14348" class="LineNr">14348 </span> (<a href='109stream-equal.subx.html#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#L14311'>test-copy-object-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14349" class="LineNr">14349 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14350" class="LineNr">14350 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14311'>test-copy-object-with-output</a>: exit status"</span>) -<span id="L14351" class="LineNr">14351 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14352" class="LineNr">14352 </span> 81 0/subop/add %esp 8/imm32 -<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-deref-address</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> <span class="subxComment">#</span> -<span id="L14367" class="LineNr">14367 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14368" class="LineNr">14368 </span> (<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="L14369" class="LineNr">14369 </span> (<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="L14370" class="LineNr">14370 </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="L14371" class="LineNr">14371 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14372" class="LineNr">14372 </span> <span class="subxComment"># convert</span> -<span id="L14373" class="LineNr">14373 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L14374" class="LineNr">14374 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14375" class="LineNr">14375 </span> <span class="subxComment"># no errors</span> -<span id="L14376" class="LineNr">14376 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14377" class="LineNr">14377 </span> 5d/pop-to-ebp -<span id="L14378" class="LineNr">14378 </span> c3/return -<span id="L14379" class="LineNr">14379 </span> -<span id="L14380" class="LineNr">14380 </span><span class="subxTest">test-copy-object-non-addr</span>: -<span id="L14381" class="LineNr">14381 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14382" class="LineNr">14382 </span> 55/push-ebp -<span id="L14383" class="LineNr">14383 </span> 89/<- %ebp 4/r32/esp -<span id="L14384" class="LineNr">14384 </span> <span class="subxComment"># setup</span> -<span id="L14385" class="LineNr">14385 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14386" class="LineNr">14386 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14387" class="LineNr">14387 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14388" class="LineNr">14388 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14389" class="LineNr">14389 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14390" class="LineNr">14390 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14391" class="LineNr">14391 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14392" class="LineNr">14392 </span> 68/push 0/imm32 -<span id="L14393" class="LineNr">14393 </span> 68/push 0/imm32 -<span id="L14394" class="LineNr">14394 </span> 89/<- %edx 4/r32/esp -<span id="L14395" class="LineNr">14395 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14396" class="LineNr">14396 </span> <span class="subxComment">#</span> -<span id="L14397" class="LineNr">14397 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14398" class="LineNr">14398 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\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 y: 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">" copy-object y, x\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">"}\n"</span>) -<span id="L14402" class="LineNr">14402 </span> <span class="subxComment"># convert</span> -<span id="L14403" class="LineNr">14403 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14404" class="LineNr">14404 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14405" class="LineNr">14405 </span> <span class="subxComment"># restore ed</span> -<span id="L14406" class="LineNr">14406 </span> 89/<- %edx 4/r32/esp -<span id="L14407" class="LineNr">14407 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14408" class="LineNr">14408 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14409" class="Folded">14409 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14415" class="LineNr">14415 </span> <span class="subxComment"># check output</span> -<span id="L14416" class="LineNr">14416 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14380'>test-copy-object-non-addr</a>: output should be empty"</span>) -<span id="L14417" class="LineNr">14417 </span> (<a href='109stream-equal.subx.html#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#L14380'>test-copy-object-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14418" class="LineNr">14418 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14419" class="LineNr">14419 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14380'>test-copy-object-non-addr</a>: exit status"</span>) -<span id="L14420" class="LineNr">14420 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14421" class="LineNr">14421 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14422" class="LineNr">14422 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14423" class="LineNr">14423 </span> 5d/pop-to-ebp -<span id="L14424" class="LineNr">14424 </span> c3/return -<span id="L14425" class="LineNr">14425 </span> -<span id="L14426" class="LineNr">14426 </span><span class="subxTest">test-copy-object-non-equal</span>: -<span id="L14427" class="LineNr">14427 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14428" class="LineNr">14428 </span> 55/push-ebp -<span id="L14429" class="LineNr">14429 </span> 89/<- %ebp 4/r32/esp -<span id="L14430" class="LineNr">14430 </span> <span class="subxComment"># setup</span> -<span id="L14431" class="LineNr">14431 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14432" class="LineNr">14432 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14433" class="LineNr">14433 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14434" class="LineNr">14434 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14435" class="LineNr">14435 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14436" class="LineNr">14436 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14437" class="LineNr">14437 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14438" class="LineNr">14438 </span> 68/push 0/imm32 -<span id="L14439" class="LineNr">14439 </span> 68/push 0/imm32 -<span id="L14440" class="LineNr">14440 </span> 89/<- %edx 4/r32/esp -<span id="L14441" class="LineNr">14441 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14442" class="LineNr">14442 </span> <span class="subxComment">#</span> -<span id="L14443" class="LineNr">14443 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14444" class="LineNr">14444 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\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">" var y: (addr boolean)\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">" copy-object y, x\n"</span>) -<span id="L14447" class="LineNr">14447 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14448" class="LineNr">14448 </span> <span class="subxComment"># convert</span> -<span id="L14449" class="LineNr">14449 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14450" class="LineNr">14450 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14451" class="LineNr">14451 </span> <span class="subxComment"># restore ed</span> -<span id="L14452" class="LineNr">14452 </span> 89/<- %edx 4/r32/esp -<span id="L14453" class="LineNr">14453 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14454" class="LineNr">14454 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14455" class="Folded">14455 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14461" class="LineNr">14461 </span> <span class="subxComment"># check output</span> -<span id="L14462" class="LineNr">14462 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14426'>test-copy-object-non-equal</a>: output should be empty"</span>) -<span id="L14463" class="LineNr">14463 </span> (<a href='109stream-equal.subx.html#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#L14426'>test-copy-object-non-equal</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14464" class="LineNr">14464 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14465" class="LineNr">14465 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14426'>test-copy-object-non-equal</a>: exit status"</span>) -<span id="L14466" class="LineNr">14466 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14467" class="LineNr">14467 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14468" class="LineNr">14468 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14469" class="LineNr">14469 </span> 5d/pop-to-ebp -<span id="L14470" class="LineNr">14470 </span> c3/return -<span id="L14471" class="LineNr">14471 </span> -<span id="L14472" class="LineNr">14472 </span><span class="subxTest">test-allocate-with-no-inout</span>: -<span id="L14473" class="LineNr">14473 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14474" class="LineNr">14474 </span> 55/push-ebp -<span id="L14475" class="LineNr">14475 </span> 89/<- %ebp 4/r32/esp -<span id="L14476" class="LineNr">14476 </span> <span class="subxComment"># setup</span> -<span id="L14477" class="LineNr">14477 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14478" class="LineNr">14478 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14479" class="LineNr">14479 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14480" class="LineNr">14480 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14481" class="LineNr">14481 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14482" class="LineNr">14482 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14483" class="LineNr">14483 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14484" class="LineNr">14484 </span> 68/push 0/imm32 -<span id="L14485" class="LineNr">14485 </span> 68/push 0/imm32 -<span id="L14486" class="LineNr">14486 </span> 89/<- %edx 4/r32/esp -<span id="L14487" class="LineNr">14487 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14488" class="LineNr">14488 </span> <span class="subxComment">#</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">"fn foo {\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">" allocate\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#L14472'>test-allocate-with-no-inout</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#L14472'>test-allocate-with-no-inout</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#L14472'>test-allocate-with-no-inout</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-too-many-inouts</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="L14325" class="LineNr">14325 </span> 68/push 0/imm32 +<span id="L14326" class="LineNr">14326 </span> 89/<- %edx 4/r32/esp +<span id="L14327" class="LineNr">14327 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14328" class="LineNr">14328 </span> <span class="subxComment">#</span> +<span id="L14329" class="LineNr">14329 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14330" class="LineNr">14330 </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="L14331" class="LineNr">14331 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14332" class="LineNr">14332 </span> <span class="subxComment"># convert</span> +<span id="L14333" class="LineNr">14333 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14334" class="LineNr">14334 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14335" class="LineNr">14335 </span> <span class="subxComment"># restore ed</span> +<span id="L14336" class="LineNr">14336 </span> 89/<- %edx 4/r32/esp +<span id="L14337" class="LineNr">14337 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14338" class="LineNr">14338 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14339" class="Folded">14339 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14345" class="LineNr">14345 </span> <span class="subxComment"># check output</span> +<span id="L14346" class="LineNr">14346 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14312'>test-copy-object-with-no-inout</a>: output should be empty"</span>) +<span id="L14347" class="LineNr">14347 </span> (<a href='109stream-equal.subx.html#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#L14312'>test-copy-object-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14348" class="LineNr">14348 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14349" class="LineNr">14349 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14312'>test-copy-object-with-no-inout</a>: exit status"</span>) +<span id="L14350" class="LineNr">14350 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14351" class="LineNr">14351 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14352" class="LineNr">14352 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14353" class="LineNr">14353 </span> 5d/pop-to-ebp +<span id="L14354" class="LineNr">14354 </span> c3/return +<span id="L14355" class="LineNr">14355 </span> +<span id="L14356" class="LineNr">14356 </span><span class="subxTest">test-copy-object-with-no-source</span>: +<span id="L14357" class="LineNr">14357 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14358" class="LineNr">14358 </span> 55/push-ebp +<span id="L14359" class="LineNr">14359 </span> 89/<- %ebp 4/r32/esp +<span id="L14360" class="LineNr">14360 </span> <span class="subxComment"># setup</span> +<span id="L14361" class="LineNr">14361 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14362" class="LineNr">14362 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14363" class="LineNr">14363 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14364" class="LineNr">14364 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14365" class="LineNr">14365 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14366" class="LineNr">14366 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14367" class="LineNr">14367 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14368" class="LineNr">14368 </span> 68/push 0/imm32 +<span id="L14369" class="LineNr">14369 </span> 68/push 0/imm32 +<span id="L14370" class="LineNr">14370 </span> 89/<- %edx 4/r32/esp +<span id="L14371" class="LineNr">14371 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14372" class="LineNr">14372 </span> <span class="subxComment">#</span> +<span id="L14373" class="LineNr">14373 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</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">" var x: (addr int)\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">" copy-object x\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">"}\n"</span>) +<span id="L14377" class="LineNr">14377 </span> <span class="subxComment"># convert</span> +<span id="L14378" class="LineNr">14378 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14379" class="LineNr">14379 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14380" class="LineNr">14380 </span> <span class="subxComment"># restore ed</span> +<span id="L14381" class="LineNr">14381 </span> 89/<- %edx 4/r32/esp +<span id="L14382" class="LineNr">14382 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14383" class="LineNr">14383 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14384" class="Folded">14384 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14390" class="LineNr">14390 </span> <span class="subxComment"># check output</span> +<span id="L14391" class="LineNr">14391 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14356'>test-copy-object-with-no-source</a>: output should be empty"</span>) +<span id="L14392" class="LineNr">14392 </span> (<a href='109stream-equal.subx.html#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#L14356'>test-copy-object-with-no-source</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14393" class="LineNr">14393 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14394" class="LineNr">14394 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14356'>test-copy-object-with-no-source</a>: exit status"</span>) +<span id="L14395" class="LineNr">14395 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14396" class="LineNr">14396 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14397" class="LineNr">14397 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14398" class="LineNr">14398 </span> 5d/pop-to-ebp +<span id="L14399" class="LineNr">14399 </span> c3/return +<span id="L14400" class="LineNr">14400 </span> +<span id="L14401" class="LineNr">14401 </span><span class="subxTest">test-copy-object-with-too-many-inouts</span>: +<span id="L14402" class="LineNr">14402 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14403" class="LineNr">14403 </span> 55/push-ebp +<span id="L14404" class="LineNr">14404 </span> 89/<- %ebp 4/r32/esp +<span id="L14405" class="LineNr">14405 </span> <span class="subxComment"># setup</span> +<span id="L14406" class="LineNr">14406 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14407" class="LineNr">14407 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14408" class="LineNr">14408 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14409" class="LineNr">14409 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-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#L438'>_test-error-stream</a>) +<span id="L14411" class="LineNr">14411 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14412" class="LineNr">14412 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14413" class="LineNr">14413 </span> 68/push 0/imm32 +<span id="L14414" class="LineNr">14414 </span> 68/push 0/imm32 +<span id="L14415" class="LineNr">14415 </span> 89/<- %edx 4/r32/esp +<span id="L14416" class="LineNr">14416 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14417" class="LineNr">14417 </span> <span class="subxComment">#</span> +<span id="L14418" class="LineNr">14418 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14419" class="LineNr">14419 </span> (<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="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">" copy-object x, x, x\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">"}\n"</span>) +<span id="L14422" class="LineNr">14422 </span> <span class="subxComment"># convert</span> +<span id="L14423" class="LineNr">14423 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14424" class="LineNr">14424 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14425" class="LineNr">14425 </span> <span class="subxComment"># restore ed</span> +<span id="L14426" class="LineNr">14426 </span> 89/<- %edx 4/r32/esp +<span id="L14427" class="LineNr">14427 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14428" class="LineNr">14428 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14429" class="Folded">14429 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14435" class="LineNr">14435 </span> <span class="subxComment"># check output</span> +<span id="L14436" class="LineNr">14436 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14401'>test-copy-object-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L14437" class="LineNr">14437 </span> (<a href='109stream-equal.subx.html#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#L14401'>test-copy-object-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14438" class="LineNr">14438 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14439" class="LineNr">14439 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14401'>test-copy-object-with-too-many-inouts</a>: exit status"</span>) +<span id="L14440" class="LineNr">14440 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14441" class="LineNr">14441 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14442" class="LineNr">14442 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14443" class="LineNr">14443 </span> 5d/pop-to-ebp +<span id="L14444" class="LineNr">14444 </span> c3/return +<span id="L14445" class="LineNr">14445 </span> +<span id="L14446" class="LineNr">14446 </span><span class="subxTest">test-copy-object-with-output</span>: +<span id="L14447" class="LineNr">14447 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14448" class="LineNr">14448 </span> 55/push-ebp +<span id="L14449" class="LineNr">14449 </span> 89/<- %ebp 4/r32/esp +<span id="L14450" class="LineNr">14450 </span> <span class="subxComment"># setup</span> +<span id="L14451" class="LineNr">14451 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14452" class="LineNr">14452 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14453" class="LineNr">14453 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14454" class="LineNr">14454 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14455" class="LineNr">14455 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14456" class="LineNr">14456 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14457" class="LineNr">14457 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14458" class="LineNr">14458 </span> 68/push 0/imm32 +<span id="L14459" class="LineNr">14459 </span> 68/push 0/imm32 +<span id="L14460" class="LineNr">14460 </span> 89/<- %edx 4/r32/esp +<span id="L14461" class="LineNr">14461 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14462" class="LineNr">14462 </span> <span class="subxComment">#</span> +<span id="L14463" class="LineNr">14463 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14464" class="LineNr">14464 </span> (<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="L14465" class="LineNr">14465 </span> (<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="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">" x <- copy-object x, y\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">"}\n"</span>) +<span id="L14468" class="LineNr">14468 </span> <span class="subxComment"># convert</span> +<span id="L14469" class="LineNr">14469 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14470" class="LineNr">14470 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14471" class="LineNr">14471 </span> <span class="subxComment"># restore ed</span> +<span id="L14472" class="LineNr">14472 </span> 89/<- %edx 4/r32/esp +<span id="L14473" class="LineNr">14473 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14474" class="LineNr">14474 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14475" class="Folded">14475 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14481" class="LineNr">14481 </span> <span class="subxComment"># check output</span> +<span id="L14482" class="LineNr">14482 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14446'>test-copy-object-with-output</a>: output should be empty"</span>) +<span id="L14483" class="LineNr">14483 </span> (<a href='109stream-equal.subx.html#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#L14446'>test-copy-object-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14484" class="LineNr">14484 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14485" class="LineNr">14485 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14446'>test-copy-object-with-output</a>: exit status"</span>) +<span id="L14486" class="LineNr">14486 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14487" class="LineNr">14487 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14488" class="LineNr">14488 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14489" class="LineNr">14489 </span> 5d/pop-to-ebp +<span id="L14490" class="LineNr">14490 </span> c3/return +<span id="L14491" class="LineNr">14491 </span> +<span id="L14492" class="LineNr">14492 </span><span class="subxTest">test-copy-object-deref-address</span>: +<span id="L14493" class="LineNr">14493 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14494" class="LineNr">14494 </span> 55/push-ebp +<span id="L14495" class="LineNr">14495 </span> 89/<- %ebp 4/r32/esp +<span id="L14496" class="LineNr">14496 </span> <span class="subxComment"># setup</span> +<span id="L14497" class="LineNr">14497 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14498" class="LineNr">14498 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14499" class="LineNr">14499 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14500" class="LineNr">14500 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14501" class="LineNr">14501 </span> <span class="subxComment">#</span> +<span id="L14502" class="LineNr">14502 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14503" class="LineNr">14503 </span> (<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="L14504" class="LineNr">14504 </span> (<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="L14505" class="LineNr">14505 </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="L14506" class="LineNr">14506 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14507" class="LineNr">14507 </span> <span class="subxComment"># convert</span> +<span id="L14508" class="LineNr">14508 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L14509" class="LineNr">14509 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14510" class="LineNr">14510 </span> <span class="subxComment"># no errors</span> +<span id="L14511" class="LineNr">14511 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14512" class="LineNr">14512 </span> 5d/pop-to-ebp +<span id="L14513" class="LineNr">14513 </span> c3/return +<span id="L14514" class="LineNr">14514 </span> +<span id="L14515" class="LineNr">14515 </span><span class="subxTest">test-copy-object-non-addr</span>: +<span id="L14516" class="LineNr">14516 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14517" class="LineNr">14517 </span> 55/push-ebp +<span id="L14518" class="LineNr">14518 </span> 89/<- %ebp 4/r32/esp +<span id="L14519" class="LineNr">14519 </span> <span class="subxComment"># setup</span> +<span id="L14520" class="LineNr">14520 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14521" class="LineNr">14521 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14522" class="LineNr">14522 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14523" class="LineNr">14523 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14524" class="LineNr">14524 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14525" class="LineNr">14525 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14526" class="LineNr">14526 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14527" class="LineNr">14527 </span> 68/push 0/imm32 <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: (addr handle int)\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">" <a href='120allocate.subx.html#L66'>allocate</a> x, 0\n"</span>) +<span id="L14529" class="LineNr">14529 </span> 89/<- %edx 4/r32/esp +<span id="L14530" class="LineNr">14530 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14531" class="LineNr">14531 </span> <span class="subxComment">#</span> +<span id="L14532" class="LineNr">14532 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14533" class="LineNr">14533 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\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 y: int\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">" copy-object y, x\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">"}\n"</span>) <span id="L14537" class="LineNr">14537 </span> <span class="subxComment"># convert</span> <span id="L14538" class="LineNr">14538 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -13178,19 +13178,19 @@ if ('onhashchange' in window) { <span id="L14541" class="LineNr">14541 </span> 89/<- %edx 4/r32/esp <span id="L14542" class="LineNr">14542 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L14543" class="LineNr">14543 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14544" class="Folded">14544 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14544" class="Folded">14544 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L14550" class="LineNr">14550 </span> <span class="subxComment"># check output</span> -<span id="L14551" class="LineNr">14551 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-too-many-inouts</a>: output should be empty"</span>) -<span id="L14552" class="LineNr">14552 </span> (<a href='109stream-equal.subx.html#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#L14516'>test-allocate-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14551" class="LineNr">14551 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14515'>test-copy-object-non-addr</a>: output should be empty"</span>) +<span id="L14552" class="LineNr">14552 </span> (<a href='109stream-equal.subx.html#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#L14515'>test-copy-object-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L14553" class="LineNr">14553 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14554" class="LineNr">14554 </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-too-many-inouts</a>: exit status"</span>) +<span id="L14554" class="LineNr">14554 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14515'>test-copy-object-non-addr</a>: exit status"</span>) <span id="L14555" class="LineNr">14555 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L14556" class="LineNr">14556 </span> 81 0/subop/add %esp 8/imm32 <span id="L14557" class="LineNr">14557 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L14558" class="LineNr">14558 </span> 5d/pop-to-ebp <span id="L14559" class="LineNr">14559 </span> c3/return <span id="L14560" class="LineNr">14560 </span> -<span id="L14561" class="LineNr">14561 </span><span class="subxTest">test-allocate-with-output</span>: +<span id="L14561" class="LineNr">14561 </span><span class="subxTest">test-copy-object-non-equal</span>: <span id="L14562" class="LineNr">14562 </span> <span class="subxS1Comment"># . prologue</span> <span id="L14563" class="LineNr">14563 </span> 55/push-ebp <span id="L14564" class="LineNr">14564 </span> 89/<- %ebp 4/r32/esp @@ -13208,9 +13208,9 @@ if ('onhashchange' in window) { <span id="L14576" class="LineNr">14576 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L14577" class="LineNr">14577 </span> <span class="subxComment">#</span> <span id="L14578" class="LineNr">14578 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14579" class="LineNr">14579 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\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/ecx: (addr handle int) <- copy 0\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">" x <- <a href='120allocate.subx.html#L66'>allocate</a> y\n"</span>) +<span id="L14579" class="LineNr">14579 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\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: (addr boolean)\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">" copy-object y, x\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) @@ -13219,19 +13219,19 @@ if ('onhashchange' in window) { <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="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#L14561'>test-allocate-with-output</a>: output should 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 'allocate' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L14561'>test-allocate-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</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#L14561'>test-copy-object-non-equal</a>: output should 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 copy-object: two inouts with identical addr types expected"</span> <span class="Constant">"F - <a href='mu.subx.html#L14561'>test-copy-object-non-equal</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#L14561'>test-allocate-with-output</a>: exit status"</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#L14561'>test-copy-object-non-equal</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</span>: +<span id="L14607" class="LineNr">14607 </span><span class="subxTest">test-allocate-with-no-inout</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 @@ -13249,211 +13249,211 @@ if ('onhashchange' in window) { <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: (handle int)\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</a>: output must 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</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</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-non-addr-handle</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> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14662" class="LineNr">14662 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14663" class="LineNr">14663 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</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">" allocate\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">"}\n"</span>) +<span id="L14627" class="LineNr">14627 </span> <span class="subxComment"># convert</span> +<span id="L14628" class="LineNr">14628 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14629" class="LineNr">14629 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14630" class="LineNr">14630 </span> <span class="subxComment"># restore ed</span> +<span id="L14631" class="LineNr">14631 </span> 89/<- %edx 4/r32/esp +<span id="L14632" class="LineNr">14632 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14633" class="LineNr">14633 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14634" class="Folded">14634 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14640" class="LineNr">14640 </span> <span class="subxComment"># check output</span> +<span id="L14641" class="LineNr">14641 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-with-no-inout</a>: output should be empty"</span>) +<span id="L14642" class="LineNr">14642 </span> (<a href='109stream-equal.subx.html#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#L14607'>test-allocate-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14643" class="LineNr">14643 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14644" class="LineNr">14644 </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-with-no-inout</a>: exit status"</span>) +<span id="L14645" class="LineNr">14645 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14646" class="LineNr">14646 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14647" class="LineNr">14647 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14648" class="LineNr">14648 </span> 5d/pop-to-ebp +<span id="L14649" class="LineNr">14649 </span> c3/return +<span id="L14650" class="LineNr">14650 </span> +<span id="L14651" class="LineNr">14651 </span><span class="subxTest">test-allocate-with-too-many-inouts</span>: +<span id="L14652" class="LineNr">14652 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14653" class="LineNr">14653 </span> 55/push-ebp +<span id="L14654" class="LineNr">14654 </span> 89/<- %ebp 4/r32/esp +<span id="L14655" class="LineNr">14655 </span> <span class="subxComment"># setup</span> +<span id="L14656" class="LineNr">14656 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14657" class="LineNr">14657 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14658" class="LineNr">14658 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14659" class="LineNr">14659 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14660" class="LineNr">14660 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14661" class="LineNr">14661 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14662" class="LineNr">14662 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14663" class="LineNr">14663 </span> 68/push 0/imm32 <span id="L14664" class="LineNr">14664 </span> 68/push 0/imm32 -<span id="L14665" class="LineNr">14665 </span> 68/push 0/imm32 -<span id="L14666" class="LineNr">14666 </span> 89/<- %edx 4/r32/esp -<span id="L14667" class="LineNr">14667 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14668" class="LineNr">14668 </span> <span class="subxComment">#</span> -<span id="L14669" class="LineNr">14669 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14670" class="LineNr">14670 </span> (<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="L14671" class="LineNr">14671 </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="L14672" class="LineNr">14672 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14673" class="LineNr">14673 </span> <span class="subxComment"># convert</span> -<span id="L14674" class="LineNr">14674 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14675" class="LineNr">14675 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14676" class="LineNr">14676 </span> <span class="subxComment"># restore ed</span> -<span id="L14677" class="LineNr">14677 </span> 89/<- %edx 4/r32/esp -<span id="L14678" class="LineNr">14678 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14679" class="LineNr">14679 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14680" class="Folded">14680 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14686" class="LineNr">14686 </span> <span class="subxComment"># check output</span> -<span id="L14687" class="LineNr">14687 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14652'>test-allocate-non-addr-handle</a>: output should be empty"</span>) -<span id="L14688" class="LineNr">14688 </span> (<a href='109stream-equal.subx.html#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#L14652'>test-allocate-non-addr-handle</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14689" class="LineNr">14689 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14690" class="LineNr">14690 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14652'>test-allocate-non-addr-handle</a>: exit status"</span>) -<span id="L14691" class="LineNr">14691 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14692" class="LineNr">14692 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14693" class="LineNr">14693 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14694" class="LineNr">14694 </span> 5d/pop-to-ebp -<span id="L14695" class="LineNr">14695 </span> c3/return -<span id="L14696" class="LineNr">14696 </span> -<span id="L14697" class="LineNr">14697 </span><span class="subxTest">test-allocate-deref-address</span>: -<span id="L14698" class="LineNr">14698 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14699" class="LineNr">14699 </span> 55/push-ebp -<span id="L14700" class="LineNr">14700 </span> 89/<- %ebp 4/r32/esp -<span id="L14701" class="LineNr">14701 </span> <span class="subxComment"># setup</span> -<span id="L14702" class="LineNr">14702 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14703" class="LineNr">14703 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14704" class="LineNr">14704 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14705" class="LineNr">14705 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14706" class="LineNr">14706 </span> <span class="subxComment">#</span> -<span id="L14707" class="LineNr">14707 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14708" class="LineNr">14708 </span> (<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="L14709" class="LineNr">14709 </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="L14710" class="LineNr">14710 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14711" class="LineNr">14711 </span> <span class="subxComment"># convert</span> -<span id="L14712" class="LineNr">14712 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L14713" class="LineNr">14713 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14714" class="LineNr">14714 </span> <span class="subxComment"># no errors</span> -<span id="L14715" class="LineNr">14715 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14716" class="LineNr">14716 </span> 5d/pop-to-ebp -<span id="L14717" class="LineNr">14717 </span> c3/return -<span id="L14718" class="LineNr">14718 </span> -<span id="L14719" class="LineNr">14719 </span><span class="subxTest">test-populate-with-no-inout</span>: -<span id="L14720" class="LineNr">14720 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14721" class="LineNr">14721 </span> 55/push-ebp -<span id="L14722" class="LineNr">14722 </span> 89/<- %ebp 4/r32/esp -<span id="L14723" class="LineNr">14723 </span> <span class="subxComment"># setup</span> -<span id="L14724" class="LineNr">14724 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14725" class="LineNr">14725 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14726" class="LineNr">14726 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14727" class="LineNr">14727 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14728" class="LineNr">14728 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14729" class="LineNr">14729 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14730" class="LineNr">14730 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14731" class="LineNr">14731 </span> 68/push 0/imm32 -<span id="L14732" class="LineNr">14732 </span> 68/push 0/imm32 -<span id="L14733" class="LineNr">14733 </span> 89/<- %edx 4/r32/esp -<span id="L14734" class="LineNr">14734 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14735" class="LineNr">14735 </span> <span class="subxComment">#</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">"fn foo {\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\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#L14719'>test-populate-with-no-inout</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#L14719'>test-populate-with-no-inout</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#L14719'>test-populate-with-no-inout</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-too-many-inouts</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: (addr handle int)\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">" populate x, 3, 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">"}\n"</span>) -<span id="L14784" class="LineNr">14784 </span> <span class="subxComment"># convert</span> -<span id="L14785" class="LineNr">14785 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L14786" class="LineNr">14786 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14787" class="LineNr">14787 </span> <span class="subxComment"># restore ed</span> -<span id="L14788" class="LineNr">14788 </span> 89/<- %edx 4/r32/esp -<span id="L14789" class="LineNr">14789 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L14790" class="LineNr">14790 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14791" class="Folded">14791 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14797" class="LineNr">14797 </span> <span class="subxComment"># check output</span> -<span id="L14798" class="LineNr">14798 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-too-many-inouts</a>: output should be empty"</span>) -<span id="L14799" class="LineNr">14799 </span> (<a href='109stream-equal.subx.html#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#L14763'>test-populate-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L14800" class="LineNr">14800 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14801" class="LineNr">14801 </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-too-many-inouts</a>: exit status"</span>) -<span id="L14802" class="LineNr">14802 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14803" class="LineNr">14803 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14804" class="LineNr">14804 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14805" class="LineNr">14805 </span> 5d/pop-to-ebp -<span id="L14806" class="LineNr">14806 </span> c3/return -<span id="L14807" class="LineNr">14807 </span> -<span id="L14808" class="LineNr">14808 </span><span class="subxTest">test-populate-with-output</span>: -<span id="L14809" class="LineNr">14809 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14810" class="LineNr">14810 </span> 55/push-ebp -<span id="L14811" class="LineNr">14811 </span> 89/<- %ebp 4/r32/esp -<span id="L14812" class="LineNr">14812 </span> <span class="subxComment"># setup</span> -<span id="L14813" class="LineNr">14813 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14814" class="LineNr">14814 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14815" class="LineNr">14815 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L14816" class="LineNr">14816 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14817" class="LineNr">14817 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14818" class="LineNr">14818 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14819" class="LineNr">14819 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14820" class="LineNr">14820 </span> 68/push 0/imm32 -<span id="L14821" class="LineNr">14821 </span> 68/push 0/imm32 -<span id="L14822" class="LineNr">14822 </span> 89/<- %edx 4/r32/esp -<span id="L14823" class="LineNr">14823 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14824" class="LineNr">14824 </span> <span class="subxComment">#</span> -<span id="L14825" class="LineNr">14825 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14826" class="LineNr">14826 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\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/ecx: (addr handle int) <- copy 0\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">" x <- populate y\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#L14808'>test-populate-with-output</a>: output should 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' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L14808'>test-populate-with-output</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#L14808'>test-populate-with-output</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="L14665" class="LineNr">14665 </span> 89/<- %edx 4/r32/esp +<span id="L14666" class="LineNr">14666 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14667" class="LineNr">14667 </span> <span class="subxComment">#</span> +<span id="L14668" class="LineNr">14668 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14669" class="LineNr">14669 </span> (<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="L14670" class="LineNr">14670 </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="L14671" class="LineNr">14671 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14672" class="LineNr">14672 </span> <span class="subxComment"># convert</span> +<span id="L14673" class="LineNr">14673 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14674" class="LineNr">14674 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14675" class="LineNr">14675 </span> <span class="subxComment"># restore ed</span> +<span id="L14676" class="LineNr">14676 </span> 89/<- %edx 4/r32/esp +<span id="L14677" class="LineNr">14677 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14678" class="LineNr">14678 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14679" class="Folded">14679 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14685" class="LineNr">14685 </span> <span class="subxComment"># check output</span> +<span id="L14686" class="LineNr">14686 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14651'>test-allocate-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L14687" class="LineNr">14687 </span> (<a href='109stream-equal.subx.html#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#L14651'>test-allocate-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14688" class="LineNr">14688 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14689" class="LineNr">14689 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14651'>test-allocate-with-too-many-inouts</a>: exit status"</span>) +<span id="L14690" class="LineNr">14690 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14691" class="LineNr">14691 </span> 81 0/subop/add %esp 8/imm32 +<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-allocate-with-output</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">" var x/eax: boolean <- copy 0\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">" var y/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L14716" class="LineNr">14716 </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="L14717" class="LineNr">14717 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14718" class="LineNr">14718 </span> <span class="subxComment"># convert</span> +<span id="L14719" class="LineNr">14719 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14720" class="LineNr">14720 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14721" class="LineNr">14721 </span> <span class="subxComment"># restore ed</span> +<span id="L14722" class="LineNr">14722 </span> 89/<- %edx 4/r32/esp +<span id="L14723" class="LineNr">14723 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14724" class="LineNr">14724 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14725" class="Folded">14725 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14731" class="LineNr">14731 </span> <span class="subxComment"># check output</span> +<span id="L14732" class="LineNr">14732 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-allocate-with-output</a>: output should be empty"</span>) +<span id="L14733" class="LineNr">14733 </span> (<a href='109stream-equal.subx.html#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#L14696'>test-allocate-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14734" class="LineNr">14734 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14735" class="LineNr">14735 </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-allocate-with-output</a>: exit status"</span>) +<span id="L14736" class="LineNr">14736 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14737" class="LineNr">14737 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14738" class="LineNr">14738 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14739" class="LineNr">14739 </span> 5d/pop-to-ebp +<span id="L14740" class="LineNr">14740 </span> c3/return +<span id="L14741" class="LineNr">14741 </span> +<span id="L14742" class="LineNr">14742 </span><span class="subxTest">test-allocate-non-addr</span>: +<span id="L14743" class="LineNr">14743 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14744" class="LineNr">14744 </span> 55/push-ebp +<span id="L14745" class="LineNr">14745 </span> 89/<- %ebp 4/r32/esp +<span id="L14746" class="LineNr">14746 </span> <span class="subxComment"># setup</span> +<span id="L14747" class="LineNr">14747 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14748" class="LineNr">14748 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-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#L287'>_test-output-stream</a>) +<span id="L14750" class="LineNr">14750 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14751" class="LineNr">14751 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14752" class="LineNr">14752 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14753" class="LineNr">14753 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14754" class="LineNr">14754 </span> 68/push 0/imm32 +<span id="L14755" class="LineNr">14755 </span> 68/push 0/imm32 +<span id="L14756" class="LineNr">14756 </span> 89/<- %edx 4/r32/esp +<span id="L14757" class="LineNr">14757 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14758" class="LineNr">14758 </span> <span class="subxComment">#</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">"fn foo {\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">" var y: (handle int)\n"</span>) +<span id="L14761" class="LineNr">14761 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> y\n"</span>) +<span id="L14762" class="LineNr">14762 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14763" class="LineNr">14763 </span> <span class="subxComment"># convert</span> +<span id="L14764" class="LineNr">14764 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14765" class="LineNr">14765 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14766" class="LineNr">14766 </span> <span class="subxComment"># restore ed</span> +<span id="L14767" class="LineNr">14767 </span> 89/<- %edx 4/r32/esp +<span id="L14768" class="LineNr">14768 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14769" class="LineNr">14769 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14770" class="Folded">14770 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14776" class="LineNr">14776 </span> <span class="subxComment"># check output</span> +<span id="L14777" class="LineNr">14777 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14742'>test-allocate-non-addr</a>: output must be empty"</span>) +<span id="L14778" class="LineNr">14778 </span> (<a href='109stream-equal.subx.html#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#L14742'>test-allocate-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14779" class="LineNr">14779 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14780" class="LineNr">14780 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14742'>test-allocate-non-addr</a>: exit status"</span>) +<span id="L14781" class="LineNr">14781 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14782" class="LineNr">14782 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14783" class="LineNr">14783 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14784" class="LineNr">14784 </span> 5d/pop-to-ebp +<span id="L14785" class="LineNr">14785 </span> c3/return +<span id="L14786" class="LineNr">14786 </span> +<span id="L14787" class="LineNr">14787 </span><span class="subxTest">test-allocate-non-addr-handle</span>: +<span id="L14788" class="LineNr">14788 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14789" class="LineNr">14789 </span> 55/push-ebp +<span id="L14790" class="LineNr">14790 </span> 89/<- %ebp 4/r32/esp +<span id="L14791" class="LineNr">14791 </span> <span class="subxComment"># setup</span> +<span id="L14792" class="LineNr">14792 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14793" class="LineNr">14793 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-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#L287'>_test-output-stream</a>) +<span id="L14795" class="LineNr">14795 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14796" class="LineNr">14796 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14797" class="LineNr">14797 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14798" class="LineNr">14798 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14799" class="LineNr">14799 </span> 68/push 0/imm32 +<span id="L14800" class="LineNr">14800 </span> 68/push 0/imm32 +<span id="L14801" class="LineNr">14801 </span> 89/<- %edx 4/r32/esp +<span id="L14802" class="LineNr">14802 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14803" class="LineNr">14803 </span> <span class="subxComment">#</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">"fn foo {\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">" var y/ecx: (addr int) <- copy 0\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">" <a href='120allocate.subx.html#L66'>allocate</a> y\n"</span>) +<span id="L14807" class="LineNr">14807 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14808" class="LineNr">14808 </span> <span class="subxComment"># convert</span> +<span id="L14809" class="LineNr">14809 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14810" class="LineNr">14810 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14811" class="LineNr">14811 </span> <span class="subxComment"># restore ed</span> +<span id="L14812" class="LineNr">14812 </span> 89/<- %edx 4/r32/esp +<span id="L14813" class="LineNr">14813 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14814" class="LineNr">14814 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14815" class="Folded">14815 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14821" class="LineNr">14821 </span> <span class="subxComment"># check output</span> +<span id="L14822" class="LineNr">14822 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14787'>test-allocate-non-addr-handle</a>: output should be empty"</span>) +<span id="L14823" class="LineNr">14823 </span> (<a href='109stream-equal.subx.html#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#L14787'>test-allocate-non-addr-handle</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14824" class="LineNr">14824 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14825" class="LineNr">14825 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14787'>test-allocate-non-addr-handle</a>: exit status"</span>) +<span id="L14826" class="LineNr">14826 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14827" class="LineNr">14827 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14828" class="LineNr">14828 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14829" class="LineNr">14829 </span> 5d/pop-to-ebp +<span id="L14830" class="LineNr">14830 </span> c3/return +<span id="L14831" class="LineNr">14831 </span> +<span id="L14832" class="LineNr">14832 </span><span class="subxTest">test-allocate-deref-address</span>: +<span id="L14833" class="LineNr">14833 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14834" class="LineNr">14834 </span> 55/push-ebp +<span id="L14835" class="LineNr">14835 </span> 89/<- %ebp 4/r32/esp +<span id="L14836" class="LineNr">14836 </span> <span class="subxComment"># setup</span> +<span id="L14837" class="LineNr">14837 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14838" class="LineNr">14838 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14839" class="LineNr">14839 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14840" class="LineNr">14840 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14841" class="LineNr">14841 </span> <span class="subxComment">#</span> +<span id="L14842" class="LineNr">14842 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14843" class="LineNr">14843 </span> (<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="L14844" class="LineNr">14844 </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="L14845" class="LineNr">14845 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14846" class="LineNr">14846 </span> <span class="subxComment"># convert</span> +<span id="L14847" class="LineNr">14847 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L14848" class="LineNr">14848 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14849" class="LineNr">14849 </span> <span class="subxComment"># no errors</span> <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</span>: +<span id="L14854" class="LineNr">14854 </span><span class="subxTest">test-populate-with-no-inout</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 @@ -13471,88 +13471,88 @@ if ('onhashchange' in window) { <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: (handle int)\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</a>: output must 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</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</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</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="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">" populate\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">"}\n"</span>) +<span id="L14874" class="LineNr">14874 </span> <span class="subxComment"># convert</span> +<span id="L14875" class="LineNr">14875 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14876" class="LineNr">14876 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14877" class="LineNr">14877 </span> <span class="subxComment"># restore ed</span> +<span id="L14878" class="LineNr">14878 </span> 89/<- %edx 4/r32/esp +<span id="L14879" class="LineNr">14879 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14880" class="LineNr">14880 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14881" class="Folded">14881 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14887" class="LineNr">14887 </span> <span class="subxComment"># check output</span> +<span id="L14888" class="LineNr">14888 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-with-no-inout</a>: output should be empty"</span>) +<span id="L14889" class="LineNr">14889 </span> (<a href='109stream-equal.subx.html#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#L14854'>test-populate-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14890" class="LineNr">14890 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14891" class="LineNr">14891 </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-with-no-inout</a>: exit status"</span>) +<span id="L14892" class="LineNr">14892 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14893" class="LineNr">14893 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14894" class="LineNr">14894 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14895" class="LineNr">14895 </span> 5d/pop-to-ebp +<span id="L14896" class="LineNr">14896 </span> c3/return +<span id="L14897" class="LineNr">14897 </span> +<span id="L14898" class="LineNr">14898 </span><span class="subxTest">test-populate-with-too-many-inouts</span>: +<span id="L14899" class="LineNr">14899 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14900" class="LineNr">14900 </span> 55/push-ebp +<span id="L14901" class="LineNr">14901 </span> 89/<- %ebp 4/r32/esp +<span id="L14902" class="LineNr">14902 </span> <span class="subxComment"># setup</span> +<span id="L14903" class="LineNr">14903 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14904" class="LineNr">14904 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14905" class="LineNr">14905 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14906" class="LineNr">14906 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14907" class="LineNr">14907 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14908" class="LineNr">14908 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14909" class="LineNr">14909 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14910" class="LineNr">14910 </span> 68/push 0/imm32 <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 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</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</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</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-non-addr-handle-array</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> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L14954" class="LineNr">14954 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14955" class="LineNr">14955 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14912" class="LineNr">14912 </span> 89/<- %edx 4/r32/esp +<span id="L14913" class="LineNr">14913 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14914" class="LineNr">14914 </span> <span class="subxComment">#</span> +<span id="L14915" class="LineNr">14915 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14916" class="LineNr">14916 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr handle int)\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">" populate x, 3, 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">"}\n"</span>) +<span id="L14919" class="LineNr">14919 </span> <span class="subxComment"># convert</span> +<span id="L14920" class="LineNr">14920 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14921" class="LineNr">14921 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14922" class="LineNr">14922 </span> <span class="subxComment"># restore ed</span> +<span id="L14923" class="LineNr">14923 </span> 89/<- %edx 4/r32/esp +<span id="L14924" class="LineNr">14924 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14925" class="LineNr">14925 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14926" class="Folded">14926 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14932" class="LineNr">14932 </span> <span class="subxComment"># check output</span> +<span id="L14933" class="LineNr">14933 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14898'>test-populate-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L14934" class="LineNr">14934 </span> (<a href='109stream-equal.subx.html#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#L14898'>test-populate-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14935" class="LineNr">14935 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14936" class="LineNr">14936 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14898'>test-populate-with-too-many-inouts</a>: exit status"</span>) +<span id="L14937" class="LineNr">14937 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14938" class="LineNr">14938 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14939" class="LineNr">14939 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14940" class="LineNr">14940 </span> 5d/pop-to-ebp +<span id="L14941" class="LineNr">14941 </span> c3/return +<span id="L14942" class="LineNr">14942 </span> +<span id="L14943" class="LineNr">14943 </span><span class="subxTest">test-populate-with-output</span>: +<span id="L14944" class="LineNr">14944 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14945" class="LineNr">14945 </span> 55/push-ebp +<span id="L14946" class="LineNr">14946 </span> 89/<- %ebp 4/r32/esp +<span id="L14947" class="LineNr">14947 </span> <span class="subxComment"># setup</span> +<span id="L14948" class="LineNr">14948 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14949" class="LineNr">14949 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14950" class="LineNr">14950 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14951" class="LineNr">14951 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14952" class="LineNr">14952 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14953" class="LineNr">14953 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14954" class="LineNr">14954 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14955" class="LineNr">14955 </span> 68/push 0/imm32 <span id="L14956" class="LineNr">14956 </span> 68/push 0/imm32 -<span id="L14957" class="LineNr">14957 </span> 68/push 0/imm32 -<span id="L14958" class="LineNr">14958 </span> 89/<- %edx 4/r32/esp -<span id="L14959" class="LineNr">14959 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14960" class="LineNr">14960 </span> <span class="subxComment">#</span> -<span id="L14961" class="LineNr">14961 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14957" class="LineNr">14957 </span> 89/<- %edx 4/r32/esp +<span id="L14958" class="LineNr">14958 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14959" class="LineNr">14959 </span> <span class="subxComment">#</span> +<span id="L14960" class="LineNr">14960 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14961" class="LineNr">14961 </span> (<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="L14962" class="LineNr">14962 </span> (<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="L14963" class="LineNr">14963 </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="L14963" class="LineNr">14963 </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="L14964" class="LineNr">14964 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L14965" class="LineNr">14965 </span> <span class="subxComment"># convert</span> <span id="L14966" class="LineNr">14966 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -13561,19 +13561,19 @@ if ('onhashchange' in window) { <span id="L14969" class="LineNr">14969 </span> 89/<- %edx 4/r32/esp <span id="L14970" class="LineNr">14970 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L14971" class="LineNr">14971 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L14972" class="Folded">14972 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14972" class="Folded">14972 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L14978" class="LineNr">14978 </span> <span class="subxComment"># check output</span> -<span id="L14979" class="LineNr">14979 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14944'>test-populate-non-addr-handle-array</a>: output should be empty"</span>) -<span id="L14980" class="LineNr">14980 </span> (<a href='109stream-equal.subx.html#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#L14944'>test-populate-non-addr-handle-array</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14979" class="LineNr">14979 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14943'>test-populate-with-output</a>: output should be empty"</span>) +<span id="L14980" class="LineNr">14980 </span> (<a href='109stream-equal.subx.html#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#L14943'>test-populate-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L14981" class="LineNr">14981 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14982" class="LineNr">14982 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14944'>test-populate-non-addr-handle-array</a>: exit status"</span>) +<span id="L14982" class="LineNr">14982 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14943'>test-populate-with-output</a>: exit status"</span>) <span id="L14983" class="LineNr">14983 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L14984" class="LineNr">14984 </span> 81 0/subop/add %esp 8/imm32 <span id="L14985" class="LineNr">14985 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L14986" class="LineNr">14986 </span> 5d/pop-to-ebp <span id="L14987" class="LineNr">14987 </span> c3/return <span id="L14988" class="LineNr">14988 </span> -<span id="L14989" class="LineNr">14989 </span><span class="subxTest">test-populate-deref-address</span>: +<span id="L14989" class="LineNr">14989 </span><span class="subxTest">test-populate-non-addr</span>: <span id="L14990" class="LineNr">14990 </span> <span class="subxS1Comment"># . prologue</span> <span id="L14991" class="LineNr">14991 </span> 55/push-ebp <span id="L14992" class="LineNr">14992 </span> 89/<- %ebp 4/r32/esp @@ -13582,140 +13582,140 @@ if ('onhashchange' in window) { <span id="L14995" class="LineNr">14995 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L14996" class="LineNr">14996 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L14997" class="LineNr">14997 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14998" class="LineNr">14998 </span> <span class="subxComment">#</span> -<span id="L14999" class="LineNr">14999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15000" class="LineNr">15000 </span> (<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="L15001" class="LineNr">15001 </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="L15002" class="LineNr">15002 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15003" class="LineNr">15003 </span> <span class="subxComment"># convert</span> -<span id="L15004" class="LineNr">15004 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L15005" class="LineNr">15005 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15006" class="LineNr">15006 </span> <span class="subxComment"># no errors</span> -<span id="L15007" class="LineNr">15007 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15008" class="LineNr">15008 </span> 5d/pop-to-ebp -<span id="L15009" class="LineNr">15009 </span> c3/return -<span id="L15010" class="LineNr">15010 </span> -<span id="L15011" class="LineNr">15011 </span><span class="subxTest">test-populate-stream-with-no-inout</span>: -<span id="L15012" class="LineNr">15012 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15013" class="LineNr">15013 </span> 55/push-ebp -<span id="L15014" class="LineNr">15014 </span> 89/<- %ebp 4/r32/esp -<span id="L15015" class="LineNr">15015 </span> <span class="subxComment"># setup</span> -<span id="L15016" class="LineNr">15016 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15017" class="LineNr">15017 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15018" class="LineNr">15018 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15019" class="LineNr">15019 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15020" class="LineNr">15020 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15021" class="LineNr">15021 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15022" class="LineNr">15022 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15023" class="LineNr">15023 </span> 68/push 0/imm32 -<span id="L15024" class="LineNr">15024 </span> 68/push 0/imm32 -<span id="L15025" class="LineNr">15025 </span> 89/<- %edx 4/r32/esp -<span id="L15026" class="LineNr">15026 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15027" class="LineNr">15027 </span> <span class="subxComment">#</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">"fn foo {\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\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#L15011'>test-populate-stream-with-no-inout</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#L15011'>test-populate-stream-with-no-inout</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#L15011'>test-populate-stream-with-no-inout</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-too-many-inouts</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: (addr handle int)\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">" populate-stream x, 3, 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">"}\n"</span>) -<span id="L15076" class="LineNr">15076 </span> <span class="subxComment"># convert</span> -<span id="L15077" class="LineNr">15077 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15078" class="LineNr">15078 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15079" class="LineNr">15079 </span> <span class="subxComment"># restore ed</span> -<span id="L15080" class="LineNr">15080 </span> 89/<- %edx 4/r32/esp -<span id="L15081" class="LineNr">15081 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15082" class="LineNr">15082 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15083" class="Folded">15083 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15089" class="LineNr">15089 </span> <span class="subxComment"># check output</span> -<span id="L15090" class="LineNr">15090 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-too-many-inouts</a>: output should be empty"</span>) -<span id="L15091" class="LineNr">15091 </span> (<a href='109stream-equal.subx.html#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#L15055'>test-populate-stream-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15092" class="LineNr">15092 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15093" class="LineNr">15093 </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-too-many-inouts</a>: exit status"</span>) -<span id="L15094" class="LineNr">15094 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15095" class="LineNr">15095 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15096" class="LineNr">15096 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15097" class="LineNr">15097 </span> 5d/pop-to-ebp -<span id="L15098" class="LineNr">15098 </span> c3/return -<span id="L15099" class="LineNr">15099 </span> -<span id="L15100" class="LineNr">15100 </span><span class="subxTest">test-populate-stream-with-output</span>: -<span id="L15101" class="LineNr">15101 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15102" class="LineNr">15102 </span> 55/push-ebp -<span id="L15103" class="LineNr">15103 </span> 89/<- %ebp 4/r32/esp -<span id="L15104" class="LineNr">15104 </span> <span class="subxComment"># setup</span> -<span id="L15105" class="LineNr">15105 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15106" class="LineNr">15106 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15107" class="LineNr">15107 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15108" class="LineNr">15108 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15109" class="LineNr">15109 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15110" class="LineNr">15110 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15111" class="LineNr">15111 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15112" class="LineNr">15112 </span> 68/push 0/imm32 -<span id="L15113" class="LineNr">15113 </span> 68/push 0/imm32 -<span id="L15114" class="LineNr">15114 </span> 89/<- %edx 4/r32/esp -<span id="L15115" class="LineNr">15115 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15116" class="LineNr">15116 </span> <span class="subxComment">#</span> -<span id="L15117" class="LineNr">15117 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15118" class="LineNr">15118 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\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/ecx: (addr handle int) <- copy 0\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">" x <- populate-stream y\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#L15100'>test-populate-stream-with-output</a>: output should 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' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L15100'>test-populate-stream-with-output</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#L15100'>test-populate-stream-with-output</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="L14998" class="LineNr">14998 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14999" class="LineNr">14999 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15000" class="LineNr">15000 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15001" class="LineNr">15001 </span> 68/push 0/imm32 +<span id="L15002" class="LineNr">15002 </span> 68/push 0/imm32 +<span id="L15003" class="LineNr">15003 </span> 89/<- %edx 4/r32/esp +<span id="L15004" class="LineNr">15004 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15005" class="LineNr">15005 </span> <span class="subxComment">#</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">"fn foo {\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">" var y: (handle int)\n"</span>) +<span id="L15008" class="LineNr">15008 </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="L15009" class="LineNr">15009 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15010" class="LineNr">15010 </span> <span class="subxComment"># convert</span> +<span id="L15011" class="LineNr">15011 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15012" class="LineNr">15012 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15013" class="LineNr">15013 </span> <span class="subxComment"># restore ed</span> +<span id="L15014" class="LineNr">15014 </span> 89/<- %edx 4/r32/esp +<span id="L15015" class="LineNr">15015 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15016" class="LineNr">15016 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15017" class="Folded">15017 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15023" class="LineNr">15023 </span> <span class="subxComment"># check output</span> +<span id="L15024" class="LineNr">15024 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14989'>test-populate-non-addr</a>: output must be empty"</span>) +<span id="L15025" class="LineNr">15025 </span> (<a href='109stream-equal.subx.html#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#L14989'>test-populate-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15026" class="LineNr">15026 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15027" class="LineNr">15027 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14989'>test-populate-non-addr</a>: exit status"</span>) +<span id="L15028" class="LineNr">15028 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15029" class="LineNr">15029 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15030" class="LineNr">15030 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15031" class="LineNr">15031 </span> 5d/pop-to-ebp +<span id="L15032" class="LineNr">15032 </span> c3/return +<span id="L15033" class="LineNr">15033 </span> +<span id="L15034" class="LineNr">15034 </span><span class="subxTest">test-populate-non-addr-handle</span>: +<span id="L15035" class="LineNr">15035 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15036" class="LineNr">15036 </span> 55/push-ebp +<span id="L15037" class="LineNr">15037 </span> 89/<- %ebp 4/r32/esp +<span id="L15038" class="LineNr">15038 </span> <span class="subxComment"># setup</span> +<span id="L15039" class="LineNr">15039 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15040" class="LineNr">15040 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-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#L287'>_test-output-stream</a>) +<span id="L15042" class="LineNr">15042 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15043" class="LineNr">15043 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15044" class="LineNr">15044 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15045" class="LineNr">15045 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15046" class="LineNr">15046 </span> 68/push 0/imm32 +<span id="L15047" class="LineNr">15047 </span> 68/push 0/imm32 +<span id="L15048" class="LineNr">15048 </span> 89/<- %edx 4/r32/esp +<span id="L15049" class="LineNr">15049 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15050" class="LineNr">15050 </span> <span class="subxComment">#</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">"fn foo {\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">" var y/ecx: (addr int) <- copy 0\n"</span>) +<span id="L15053" class="LineNr">15053 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate y, 3\n"</span>) +<span id="L15054" class="LineNr">15054 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15055" class="LineNr">15055 </span> <span class="subxComment"># convert</span> +<span id="L15056" class="LineNr">15056 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15057" class="LineNr">15057 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15058" class="LineNr">15058 </span> <span class="subxComment"># restore ed</span> +<span id="L15059" class="LineNr">15059 </span> 89/<- %edx 4/r32/esp +<span id="L15060" class="LineNr">15060 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15061" class="LineNr">15061 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15062" class="Folded">15062 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15068" class="LineNr">15068 </span> <span class="subxComment"># check output</span> +<span id="L15069" class="LineNr">15069 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15034'>test-populate-non-addr-handle</a>: output should be empty"</span>) +<span id="L15070" class="LineNr">15070 </span> (<a href='109stream-equal.subx.html#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#L15034'>test-populate-non-addr-handle</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15071" class="LineNr">15071 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15072" class="LineNr">15072 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15034'>test-populate-non-addr-handle</a>: exit status"</span>) +<span id="L15073" class="LineNr">15073 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15074" class="LineNr">15074 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15075" class="LineNr">15075 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15076" class="LineNr">15076 </span> 5d/pop-to-ebp +<span id="L15077" class="LineNr">15077 </span> c3/return +<span id="L15078" class="LineNr">15078 </span> +<span id="L15079" class="LineNr">15079 </span><span class="subxTest">test-populate-non-addr-handle-array</span>: +<span id="L15080" class="LineNr">15080 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15081" class="LineNr">15081 </span> 55/push-ebp +<span id="L15082" class="LineNr">15082 </span> 89/<- %ebp 4/r32/esp +<span id="L15083" class="LineNr">15083 </span> <span class="subxComment"># setup</span> +<span id="L15084" class="LineNr">15084 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15085" class="LineNr">15085 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-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#L287'>_test-output-stream</a>) +<span id="L15087" class="LineNr">15087 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15088" class="LineNr">15088 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15089" class="LineNr">15089 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15090" class="LineNr">15090 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15091" class="LineNr">15091 </span> 68/push 0/imm32 +<span id="L15092" class="LineNr">15092 </span> 68/push 0/imm32 +<span id="L15093" class="LineNr">15093 </span> 89/<- %edx 4/r32/esp +<span id="L15094" class="LineNr">15094 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15095" class="LineNr">15095 </span> <span class="subxComment">#</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">"fn foo {\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">" var y/ecx: (addr handle int) <- copy 0\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">" populate y, 3\n"</span>) +<span id="L15099" class="LineNr">15099 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15100" class="LineNr">15100 </span> <span class="subxComment"># convert</span> +<span id="L15101" class="LineNr">15101 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15102" class="LineNr">15102 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15103" class="LineNr">15103 </span> <span class="subxComment"># restore ed</span> +<span id="L15104" class="LineNr">15104 </span> 89/<- %edx 4/r32/esp +<span id="L15105" class="LineNr">15105 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15106" class="LineNr">15106 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15107" class="Folded">15107 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15113" class="LineNr">15113 </span> <span class="subxComment"># check output</span> +<span id="L15114" class="LineNr">15114 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15079'>test-populate-non-addr-handle-array</a>: output should be empty"</span>) +<span id="L15115" class="LineNr">15115 </span> (<a href='109stream-equal.subx.html#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#L15079'>test-populate-non-addr-handle-array</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15116" class="LineNr">15116 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15117" class="LineNr">15117 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15079'>test-populate-non-addr-handle-array</a>: exit status"</span>) +<span id="L15118" class="LineNr">15118 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15119" class="LineNr">15119 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15120" class="LineNr">15120 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15121" class="LineNr">15121 </span> 5d/pop-to-ebp +<span id="L15122" class="LineNr">15122 </span> c3/return +<span id="L15123" class="LineNr">15123 </span> +<span id="L15124" class="LineNr">15124 </span><span class="subxTest">test-populate-deref-address</span>: +<span id="L15125" class="LineNr">15125 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15126" class="LineNr">15126 </span> 55/push-ebp +<span id="L15127" class="LineNr">15127 </span> 89/<- %ebp 4/r32/esp +<span id="L15128" class="LineNr">15128 </span> <span class="subxComment"># setup</span> +<span id="L15129" class="LineNr">15129 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15130" class="LineNr">15130 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15131" class="LineNr">15131 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15132" class="LineNr">15132 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15133" class="LineNr">15133 </span> <span class="subxComment">#</span> +<span id="L15134" class="LineNr">15134 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15135" class="LineNr">15135 </span> (<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="L15136" class="LineNr">15136 </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="L15137" class="LineNr">15137 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15138" class="LineNr">15138 </span> <span class="subxComment"># convert</span> +<span id="L15139" class="LineNr">15139 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L15140" class="LineNr">15140 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15141" class="LineNr">15141 </span> <span class="subxComment"># no errors</span> <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</span>: +<span id="L15146" class="LineNr">15146 </span><span class="subxTest">test-populate-stream-with-no-inout</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 @@ -13733,88 +13733,88 @@ if ('onhashchange' in window) { <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: (handle int)\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</a>: output must 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</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</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</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="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">" populate-stream\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">"}\n"</span>) +<span id="L15166" class="LineNr">15166 </span> <span class="subxComment"># convert</span> +<span id="L15167" class="LineNr">15167 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15168" class="LineNr">15168 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15169" class="LineNr">15169 </span> <span class="subxComment"># restore ed</span> +<span id="L15170" class="LineNr">15170 </span> 89/<- %edx 4/r32/esp +<span id="L15171" class="LineNr">15171 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15172" class="LineNr">15172 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15173" class="Folded">15173 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15179" class="LineNr">15179 </span> <span class="subxComment"># check output</span> +<span id="L15180" class="LineNr">15180 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-with-no-inout</a>: output should be empty"</span>) +<span id="L15181" class="LineNr">15181 </span> (<a href='109stream-equal.subx.html#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#L15146'>test-populate-stream-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15182" class="LineNr">15182 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15183" class="LineNr">15183 </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-with-no-inout</a>: exit status"</span>) +<span id="L15184" class="LineNr">15184 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15185" class="LineNr">15185 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15186" class="LineNr">15186 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15187" class="LineNr">15187 </span> 5d/pop-to-ebp +<span id="L15188" class="LineNr">15188 </span> c3/return +<span id="L15189" class="LineNr">15189 </span> +<span id="L15190" class="LineNr">15190 </span><span class="subxTest">test-populate-stream-with-too-many-inouts</span>: +<span id="L15191" class="LineNr">15191 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15192" class="LineNr">15192 </span> 55/push-ebp +<span id="L15193" class="LineNr">15193 </span> 89/<- %ebp 4/r32/esp +<span id="L15194" class="LineNr">15194 </span> <span class="subxComment"># setup</span> +<span id="L15195" class="LineNr">15195 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15196" class="LineNr">15196 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15197" class="LineNr">15197 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15198" class="LineNr">15198 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15199" class="LineNr">15199 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15200" class="LineNr">15200 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15201" class="LineNr">15201 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15202" class="LineNr">15202 </span> 68/push 0/imm32 <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 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</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</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</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-non-addr-handle-stream</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> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15246" class="LineNr">15246 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15247" class="LineNr">15247 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15204" class="LineNr">15204 </span> 89/<- %edx 4/r32/esp +<span id="L15205" class="LineNr">15205 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15206" class="LineNr">15206 </span> <span class="subxComment">#</span> +<span id="L15207" class="LineNr">15207 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15208" class="LineNr">15208 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr handle int)\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">" populate-stream x, 3, 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">"}\n"</span>) +<span id="L15211" class="LineNr">15211 </span> <span class="subxComment"># convert</span> +<span id="L15212" class="LineNr">15212 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15213" class="LineNr">15213 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15214" class="LineNr">15214 </span> <span class="subxComment"># restore ed</span> +<span id="L15215" class="LineNr">15215 </span> 89/<- %edx 4/r32/esp +<span id="L15216" class="LineNr">15216 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15217" class="LineNr">15217 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15218" class="Folded">15218 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15224" class="LineNr">15224 </span> <span class="subxComment"># check output</span> +<span id="L15225" class="LineNr">15225 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15190'>test-populate-stream-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L15226" class="LineNr">15226 </span> (<a href='109stream-equal.subx.html#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#L15190'>test-populate-stream-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15227" class="LineNr">15227 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15228" class="LineNr">15228 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15190'>test-populate-stream-with-too-many-inouts</a>: exit status"</span>) +<span id="L15229" class="LineNr">15229 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15230" class="LineNr">15230 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15231" class="LineNr">15231 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15232" class="LineNr">15232 </span> 5d/pop-to-ebp +<span id="L15233" class="LineNr">15233 </span> c3/return +<span id="L15234" class="LineNr">15234 </span> +<span id="L15235" class="LineNr">15235 </span><span class="subxTest">test-populate-stream-with-output</span>: +<span id="L15236" class="LineNr">15236 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15237" class="LineNr">15237 </span> 55/push-ebp +<span id="L15238" class="LineNr">15238 </span> 89/<- %ebp 4/r32/esp +<span id="L15239" class="LineNr">15239 </span> <span class="subxComment"># setup</span> +<span id="L15240" class="LineNr">15240 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15241" class="LineNr">15241 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15242" class="LineNr">15242 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15243" class="LineNr">15243 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15244" class="LineNr">15244 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15245" class="LineNr">15245 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15246" class="LineNr">15246 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15247" class="LineNr">15247 </span> 68/push 0/imm32 <span id="L15248" class="LineNr">15248 </span> 68/push 0/imm32 -<span id="L15249" class="LineNr">15249 </span> 68/push 0/imm32 -<span id="L15250" class="LineNr">15250 </span> 89/<- %edx 4/r32/esp -<span id="L15251" class="LineNr">15251 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15252" class="LineNr">15252 </span> <span class="subxComment">#</span> -<span id="L15253" class="LineNr">15253 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15249" class="LineNr">15249 </span> 89/<- %edx 4/r32/esp +<span id="L15250" class="LineNr">15250 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15251" class="LineNr">15251 </span> <span class="subxComment">#</span> +<span id="L15252" class="LineNr">15252 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15253" class="LineNr">15253 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) <span id="L15254" class="LineNr">15254 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L15255" class="LineNr">15255 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream y, 3\n"</span>) +<span id="L15255" class="LineNr">15255 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- populate-stream y\n"</span>) <span id="L15256" class="LineNr">15256 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L15257" class="LineNr">15257 </span> <span class="subxComment"># convert</span> <span id="L15258" class="LineNr">15258 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -13823,19 +13823,19 @@ if ('onhashchange' in window) { <span id="L15261" class="LineNr">15261 </span> 89/<- %edx 4/r32/esp <span id="L15262" class="LineNr">15262 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L15263" class="LineNr">15263 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15264" class="Folded">15264 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15264" class="Folded">15264 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L15270" class="LineNr">15270 </span> <span class="subxComment"># check output</span> -<span id="L15271" class="LineNr">15271 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15236'>test-populate-stream-non-addr-handle-stream</a>: output should be empty"</span>) -<span id="L15272" class="LineNr">15272 </span> (<a href='109stream-equal.subx.html#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#L15236'>test-populate-stream-non-addr-handle-stream</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15271" class="LineNr">15271 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15235'>test-populate-stream-with-output</a>: output should be empty"</span>) +<span id="L15272" class="LineNr">15272 </span> (<a href='109stream-equal.subx.html#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#L15235'>test-populate-stream-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L15273" class="LineNr">15273 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15274" class="LineNr">15274 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15236'>test-populate-stream-non-addr-handle-stream</a>: exit status"</span>) +<span id="L15274" class="LineNr">15274 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15235'>test-populate-stream-with-output</a>: exit status"</span>) <span id="L15275" class="LineNr">15275 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L15276" class="LineNr">15276 </span> 81 0/subop/add %esp 8/imm32 <span id="L15277" class="LineNr">15277 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L15278" class="LineNr">15278 </span> 5d/pop-to-ebp <span id="L15279" class="LineNr">15279 </span> c3/return <span id="L15280" class="LineNr">15280 </span> -<span id="L15281" class="LineNr">15281 </span><span class="subxTest">test-populate-stream-deref-address</span>: +<span id="L15281" class="LineNr">15281 </span><span class="subxTest">test-populate-stream-non-addr</span>: <span id="L15282" class="LineNr">15282 </span> <span class="subxS1Comment"># . prologue</span> <span id="L15283" class="LineNr">15283 </span> 55/push-ebp <span id="L15284" class="LineNr">15284 </span> 89/<- %ebp 4/r32/esp @@ -13844,340 +13844,340 @@ if ('onhashchange' in window) { <span id="L15287" class="LineNr">15287 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) <span id="L15288" class="LineNr">15288 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) <span id="L15289" class="LineNr">15289 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15290" class="LineNr">15290 </span> <span class="subxComment">#</span> -<span id="L15291" class="LineNr">15291 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15292" class="LineNr">15292 </span> (<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="L15293" class="LineNr">15293 </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="L15294" class="LineNr">15294 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15295" class="LineNr">15295 </span> <span class="subxComment"># convert</span> -<span id="L15296" class="LineNr">15296 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L15297" class="LineNr">15297 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15298" class="LineNr">15298 </span> <span class="subxComment"># no errors</span> -<span id="L15299" class="LineNr">15299 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15300" class="LineNr">15300 </span> 5d/pop-to-ebp -<span id="L15301" class="LineNr">15301 </span> c3/return -<span id="L15302" class="LineNr">15302 </span> -<span id="L15303" class="LineNr">15303 </span><span class="subxTest">test-convert-with-no-inout</span>: -<span id="L15304" class="LineNr">15304 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15305" class="LineNr">15305 </span> 55/push-ebp -<span id="L15306" class="LineNr">15306 </span> 89/<- %ebp 4/r32/esp -<span id="L15307" class="LineNr">15307 </span> <span class="subxComment"># setup</span> -<span id="L15308" class="LineNr">15308 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15309" class="LineNr">15309 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15310" class="LineNr">15310 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15311" class="LineNr">15311 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15312" class="LineNr">15312 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15313" class="LineNr">15313 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15314" class="LineNr">15314 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15315" class="LineNr">15315 </span> 68/push 0/imm32 -<span id="L15316" class="LineNr">15316 </span> 68/push 0/imm32 -<span id="L15317" class="LineNr">15317 </span> 89/<- %edx 4/r32/esp -<span id="L15318" class="LineNr">15318 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15319" class="LineNr">15319 </span> <span class="subxComment">#</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">"fn foo {\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">" var x/eax: int <- convert\n"</span>) -<span id="L15322" class="LineNr">15322 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15323" class="LineNr">15323 </span> <span class="subxComment"># convert</span> -<span id="L15324" class="LineNr">15324 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15325" class="LineNr">15325 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15326" class="LineNr">15326 </span> <span class="subxComment"># restore ed</span> -<span id="L15327" class="LineNr">15327 </span> 89/<- %edx 4/r32/esp -<span id="L15328" class="LineNr">15328 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15329" class="LineNr">15329 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15330" class="Folded">15330 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15336" class="LineNr">15336 </span> <span class="subxComment"># check output</span> -<span id="L15337" class="LineNr">15337 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15303'>test-convert-with-no-inout</a>: output should be empty"</span>) -<span id="L15338" class="LineNr">15338 </span> (<a href='109stream-equal.subx.html#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#L15303'>test-convert-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15339" class="LineNr">15339 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15340" class="LineNr">15340 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15303'>test-convert-with-no-inout</a>: exit status"</span>) -<span id="L15341" class="LineNr">15341 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15342" class="LineNr">15342 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15343" class="LineNr">15343 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15344" class="LineNr">15344 </span> 5d/pop-to-ebp -<span id="L15345" class="LineNr">15345 </span> c3/return -<span id="L15346" class="LineNr">15346 </span> -<span id="L15347" class="LineNr">15347 </span><span class="subxTest">test-convert-with-multiple-inouts</span>: -<span id="L15348" class="LineNr">15348 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15349" class="LineNr">15349 </span> 55/push-ebp -<span id="L15350" class="LineNr">15350 </span> 89/<- %ebp 4/r32/esp -<span id="L15351" class="LineNr">15351 </span> <span class="subxComment"># setup</span> -<span id="L15352" class="LineNr">15352 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15353" class="LineNr">15353 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15354" class="LineNr">15354 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15355" class="LineNr">15355 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15356" class="LineNr">15356 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15357" class="LineNr">15357 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15358" class="LineNr">15358 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15359" class="LineNr">15359 </span> 68/push 0/imm32 -<span id="L15360" class="LineNr">15360 </span> 68/push 0/imm32 -<span id="L15361" class="LineNr">15361 </span> 89/<- %edx 4/r32/esp -<span id="L15362" class="LineNr">15362 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15363" class="LineNr">15363 </span> <span class="subxComment">#</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">"fn foo {\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">" var x/eax: int <- convert 0, 0\n"</span>) -<span id="L15366" class="LineNr">15366 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15367" class="LineNr">15367 </span> <span class="subxComment"># convert</span> -<span id="L15368" class="LineNr">15368 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15369" class="LineNr">15369 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15370" class="LineNr">15370 </span> <span class="subxComment"># restore ed</span> -<span id="L15371" class="LineNr">15371 </span> 89/<- %edx 4/r32/esp -<span id="L15372" class="LineNr">15372 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15373" class="LineNr">15373 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15374" class="Folded">15374 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15380" class="LineNr">15380 </span> <span class="subxComment"># check output</span> -<span id="L15381" class="LineNr">15381 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15347'>test-convert-with-multiple-inouts</a>: output should be empty"</span>) -<span id="L15382" class="LineNr">15382 </span> (<a href='109stream-equal.subx.html#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#L15347'>test-convert-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15383" class="LineNr">15383 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15384" class="LineNr">15384 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15347'>test-convert-with-multiple-inouts</a>: exit status"</span>) -<span id="L15385" class="LineNr">15385 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15386" class="LineNr">15386 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15387" class="LineNr">15387 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15388" class="LineNr">15388 </span> 5d/pop-to-ebp -<span id="L15389" class="LineNr">15389 </span> c3/return -<span id="L15390" class="LineNr">15390 </span> -<span id="L15391" class="LineNr">15391 </span><span class="subxTest">test-convert-with-no-output</span>: -<span id="L15392" class="LineNr">15392 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15393" class="LineNr">15393 </span> 55/push-ebp -<span id="L15394" class="LineNr">15394 </span> 89/<- %ebp 4/r32/esp -<span id="L15395" class="LineNr">15395 </span> <span class="subxComment"># setup</span> -<span id="L15396" class="LineNr">15396 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15397" class="LineNr">15397 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15398" class="LineNr">15398 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15399" class="LineNr">15399 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15400" class="LineNr">15400 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15401" class="LineNr">15401 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15402" class="LineNr">15402 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15403" class="LineNr">15403 </span> 68/push 0/imm32 -<span id="L15404" class="LineNr">15404 </span> 68/push 0/imm32 -<span id="L15405" class="LineNr">15405 </span> 89/<- %edx 4/r32/esp -<span id="L15406" class="LineNr">15406 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15407" class="LineNr">15407 </span> <span class="subxComment">#</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">"fn foo {\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">" convert 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">"}\n"</span>) -<span id="L15411" class="LineNr">15411 </span> <span class="subxComment"># convert</span> -<span id="L15412" class="LineNr">15412 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15413" class="LineNr">15413 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15414" class="LineNr">15414 </span> <span class="subxComment"># restore ed</span> -<span id="L15415" class="LineNr">15415 </span> 89/<- %edx 4/r32/esp -<span id="L15416" class="LineNr">15416 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15417" class="LineNr">15417 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15418" class="Folded">15418 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15424" class="LineNr">15424 </span> <span class="subxComment"># check output</span> -<span id="L15425" class="LineNr">15425 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15391'>test-convert-with-no-output</a>: output should be empty"</span>) -<span id="L15426" class="LineNr">15426 </span> (<a href='109stream-equal.subx.html#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#L15391'>test-convert-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15427" class="LineNr">15427 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15428" class="LineNr">15428 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15391'>test-convert-with-no-output</a>: exit status"</span>) -<span id="L15429" class="LineNr">15429 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15430" class="LineNr">15430 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15431" class="LineNr">15431 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15432" class="LineNr">15432 </span> 5d/pop-to-ebp -<span id="L15433" class="LineNr">15433 </span> c3/return -<span id="L15434" class="LineNr">15434 </span> -<span id="L15435" class="LineNr">15435 </span><span class="subxTest">test-convert-with-multiple-outputs</span>: -<span id="L15436" class="LineNr">15436 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15437" class="LineNr">15437 </span> 55/push-ebp -<span id="L15438" class="LineNr">15438 </span> 89/<- %ebp 4/r32/esp -<span id="L15439" class="LineNr">15439 </span> <span class="subxComment"># setup</span> -<span id="L15440" class="LineNr">15440 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15441" class="LineNr">15441 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15442" class="LineNr">15442 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15443" class="LineNr">15443 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15444" class="LineNr">15444 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15445" class="LineNr">15445 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15446" class="LineNr">15446 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15447" class="LineNr">15447 </span> 68/push 0/imm32 -<span id="L15448" class="LineNr">15448 </span> 68/push 0/imm32 -<span id="L15449" class="LineNr">15449 </span> 89/<- %edx 4/r32/esp -<span id="L15450" class="LineNr">15450 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15451" class="LineNr">15451 </span> <span class="subxComment">#</span> -<span id="L15452" class="LineNr">15452 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15453" class="LineNr">15453 </span> (<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="L15454" class="LineNr">15454 </span> (<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="L15455" class="LineNr">15455 </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="L15456" class="LineNr">15456 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15457" class="LineNr">15457 </span> <span class="subxComment"># convert</span> -<span id="L15458" class="LineNr">15458 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) -<span id="L15459" class="LineNr">15459 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15460" class="LineNr">15460 </span> <span class="subxComment"># restore ed</span> -<span id="L15461" class="LineNr">15461 </span> 89/<- %edx 4/r32/esp -<span id="L15462" class="LineNr">15462 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15463" class="LineNr">15463 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15464" class="Folded">15464 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15470" class="LineNr">15470 </span> <span class="subxComment"># check output</span> -<span id="L15471" class="LineNr">15471 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15435'>test-convert-with-multiple-outputs</a>: output should be empty"</span>) -<span id="L15472" class="LineNr">15472 </span> (<a href='109stream-equal.subx.html#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#L15435'>test-convert-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) -<span id="L15473" class="LineNr">15473 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15474" class="LineNr">15474 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15435'>test-convert-with-multiple-outputs</a>: exit status"</span>) -<span id="L15475" class="LineNr">15475 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15476" class="LineNr">15476 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15477" class="LineNr">15477 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15478" class="LineNr">15478 </span> 5d/pop-to-ebp -<span id="L15479" class="LineNr">15479 </span> c3/return -<span id="L15480" class="LineNr">15480 </span> -<span id="L15481" class="LineNr">15481 </span><span class="subxTest">test-convert-deref-address</span>: -<span id="L15482" class="LineNr">15482 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15483" class="LineNr">15483 </span> 55/push-ebp -<span id="L15484" class="LineNr">15484 </span> 89/<- %ebp 4/r32/esp -<span id="L15485" class="LineNr">15485 </span> <span class="subxComment"># setup</span> -<span id="L15486" class="LineNr">15486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15487" class="LineNr">15487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15488" class="LineNr">15488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15489" class="LineNr">15489 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15490" class="LineNr">15490 </span> <span class="subxComment">#</span> -<span id="L15491" class="LineNr">15491 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15492" class="LineNr">15492 </span> (<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="L15493" class="LineNr">15493 </span> (<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="L15494" class="LineNr">15494 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15495" class="LineNr">15495 </span> <span class="subxComment"># convert</span> -<span id="L15496" class="LineNr">15496 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L15497" class="LineNr">15497 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L15498" class="LineNr">15498 </span> <span class="subxComment"># no errors</span> -<span id="L15499" class="LineNr">15499 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15500" class="LineNr">15500 </span> 5d/pop-to-ebp -<span id="L15501" class="LineNr">15501 </span> c3/return -<span id="L15502" class="LineNr">15502 </span> -<span id="L15503" class="LineNr">15503 </span><span class="subxTest">test-convert-to-non-register</span>: -<span id="L15504" class="LineNr">15504 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15505" class="LineNr">15505 </span> 55/push-ebp -<span id="L15506" class="LineNr">15506 </span> 89/<- %ebp 4/r32/esp -<span id="L15507" class="LineNr">15507 </span> <span class="subxComment"># setup</span> -<span id="L15508" class="LineNr">15508 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15509" class="LineNr">15509 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15510" class="LineNr">15510 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L15511" class="LineNr">15511 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15512" class="LineNr">15512 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) -<span id="L15513" class="LineNr">15513 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15514" class="LineNr">15514 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15515" class="LineNr">15515 </span> 68/push 0/imm32 -<span id="L15516" class="LineNr">15516 </span> 68/push 0/imm32 -<span id="L15517" class="LineNr">15517 </span> 89/<- %edx 4/r32/esp -<span id="L15518" class="LineNr">15518 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15519" class="LineNr">15519 </span> <span class="subxComment">#</span> -<span id="L15520" class="LineNr">15520 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15521" class="LineNr">15521 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: float\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 y: int\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">" x <- convert y\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#L15503'>test-convert-to-non-register</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: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L15503'>test-convert-to-non-register</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#L15503'>test-convert-to-non-register</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-inout-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: boolean\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/xmm1: float <- 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-inout-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: inout 'x' must be an int or float"</span> <span class="Constant">"F - <a href='mu.subx.html#L15549'>test-convert-invalid-inout-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-inout-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-invalid-output-type</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: float\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: boolean <- 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-invalid-output-type</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: output 'y' must be an int or float"</span> <span class="Constant">"F - <a href='mu.subx.html#L15594'>test-convert-invalid-output-type</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-invalid-output-type</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-int-to-int</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="L15290" class="LineNr">15290 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15291" class="LineNr">15291 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15292" class="LineNr">15292 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15293" class="LineNr">15293 </span> 68/push 0/imm32 +<span id="L15294" class="LineNr">15294 </span> 68/push 0/imm32 +<span id="L15295" class="LineNr">15295 </span> 89/<- %edx 4/r32/esp +<span id="L15296" class="LineNr">15296 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15297" class="LineNr">15297 </span> <span class="subxComment">#</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">"fn foo {\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">" var y: (handle int)\n"</span>) +<span id="L15300" class="LineNr">15300 </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="L15301" class="LineNr">15301 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15302" class="LineNr">15302 </span> <span class="subxComment"># convert</span> +<span id="L15303" class="LineNr">15303 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15304" class="LineNr">15304 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15305" class="LineNr">15305 </span> <span class="subxComment"># restore ed</span> +<span id="L15306" class="LineNr">15306 </span> 89/<- %edx 4/r32/esp +<span id="L15307" class="LineNr">15307 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15308" class="LineNr">15308 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15309" class="Folded">15309 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15315" class="LineNr">15315 </span> <span class="subxComment"># check output</span> +<span id="L15316" class="LineNr">15316 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15281'>test-populate-stream-non-addr</a>: output must be empty"</span>) +<span id="L15317" class="LineNr">15317 </span> (<a href='109stream-equal.subx.html#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#L15281'>test-populate-stream-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15318" class="LineNr">15318 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15319" class="LineNr">15319 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15281'>test-populate-stream-non-addr</a>: exit status"</span>) +<span id="L15320" class="LineNr">15320 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15321" class="LineNr">15321 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15322" class="LineNr">15322 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15323" class="LineNr">15323 </span> 5d/pop-to-ebp +<span id="L15324" class="LineNr">15324 </span> c3/return +<span id="L15325" class="LineNr">15325 </span> +<span id="L15326" class="LineNr">15326 </span><span class="subxTest">test-populate-stream-non-addr-handle</span>: +<span id="L15327" class="LineNr">15327 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15328" class="LineNr">15328 </span> 55/push-ebp +<span id="L15329" class="LineNr">15329 </span> 89/<- %ebp 4/r32/esp +<span id="L15330" class="LineNr">15330 </span> <span class="subxComment"># setup</span> +<span id="L15331" class="LineNr">15331 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15332" class="LineNr">15332 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-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#L287'>_test-output-stream</a>) +<span id="L15334" class="LineNr">15334 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15335" class="LineNr">15335 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15336" class="LineNr">15336 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15337" class="LineNr">15337 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15338" class="LineNr">15338 </span> 68/push 0/imm32 +<span id="L15339" class="LineNr">15339 </span> 68/push 0/imm32 +<span id="L15340" class="LineNr">15340 </span> 89/<- %edx 4/r32/esp +<span id="L15341" class="LineNr">15341 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15342" class="LineNr">15342 </span> <span class="subxComment">#</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">"fn foo {\n"</span>) +<span id="L15344" class="LineNr">15344 </span> (<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="L15345" class="LineNr">15345 </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="L15346" class="LineNr">15346 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15347" class="LineNr">15347 </span> <span class="subxComment"># convert</span> +<span id="L15348" class="LineNr">15348 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15349" class="LineNr">15349 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15350" class="LineNr">15350 </span> <span class="subxComment"># restore ed</span> +<span id="L15351" class="LineNr">15351 </span> 89/<- %edx 4/r32/esp +<span id="L15352" class="LineNr">15352 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15353" class="LineNr">15353 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15354" class="Folded">15354 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15360" class="LineNr">15360 </span> <span class="subxComment"># check output</span> +<span id="L15361" class="LineNr">15361 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15326'>test-populate-stream-non-addr-handle</a>: output should be empty"</span>) +<span id="L15362" class="LineNr">15362 </span> (<a href='109stream-equal.subx.html#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#L15326'>test-populate-stream-non-addr-handle</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15363" class="LineNr">15363 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15364" class="LineNr">15364 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15326'>test-populate-stream-non-addr-handle</a>: exit status"</span>) +<span id="L15365" class="LineNr">15365 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15366" class="LineNr">15366 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15367" class="LineNr">15367 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15368" class="LineNr">15368 </span> 5d/pop-to-ebp +<span id="L15369" class="LineNr">15369 </span> c3/return +<span id="L15370" class="LineNr">15370 </span> +<span id="L15371" class="LineNr">15371 </span><span class="subxTest">test-populate-stream-non-addr-handle-stream</span>: +<span id="L15372" class="LineNr">15372 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15373" class="LineNr">15373 </span> 55/push-ebp +<span id="L15374" class="LineNr">15374 </span> 89/<- %ebp 4/r32/esp +<span id="L15375" class="LineNr">15375 </span> <span class="subxComment"># setup</span> +<span id="L15376" class="LineNr">15376 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15377" class="LineNr">15377 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15378" class="LineNr">15378 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15379" class="LineNr">15379 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15380" class="LineNr">15380 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15381" class="LineNr">15381 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15382" class="LineNr">15382 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15383" class="LineNr">15383 </span> 68/push 0/imm32 +<span id="L15384" class="LineNr">15384 </span> 68/push 0/imm32 +<span id="L15385" class="LineNr">15385 </span> 89/<- %edx 4/r32/esp +<span id="L15386" class="LineNr">15386 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15387" class="LineNr">15387 </span> <span class="subxComment">#</span> +<span id="L15388" class="LineNr">15388 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15389" class="LineNr">15389 </span> (<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="L15390" class="LineNr">15390 </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="L15391" class="LineNr">15391 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15392" class="LineNr">15392 </span> <span class="subxComment"># convert</span> +<span id="L15393" class="LineNr">15393 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15394" class="LineNr">15394 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15395" class="LineNr">15395 </span> <span class="subxComment"># restore ed</span> +<span id="L15396" class="LineNr">15396 </span> 89/<- %edx 4/r32/esp +<span id="L15397" class="LineNr">15397 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15398" class="LineNr">15398 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15399" class="Folded">15399 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15405" class="LineNr">15405 </span> <span class="subxComment"># check output</span> +<span id="L15406" class="LineNr">15406 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15371'>test-populate-stream-non-addr-handle-stream</a>: output should be empty"</span>) +<span id="L15407" class="LineNr">15407 </span> (<a href='109stream-equal.subx.html#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#L15371'>test-populate-stream-non-addr-handle-stream</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15408" class="LineNr">15408 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15409" class="LineNr">15409 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15371'>test-populate-stream-non-addr-handle-stream</a>: exit status"</span>) +<span id="L15410" class="LineNr">15410 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15411" class="LineNr">15411 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15412" class="LineNr">15412 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15413" class="LineNr">15413 </span> 5d/pop-to-ebp +<span id="L15414" class="LineNr">15414 </span> c3/return +<span id="L15415" class="LineNr">15415 </span> +<span id="L15416" class="LineNr">15416 </span><span class="subxTest">test-populate-stream-deref-address</span>: +<span id="L15417" class="LineNr">15417 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15418" class="LineNr">15418 </span> 55/push-ebp +<span id="L15419" class="LineNr">15419 </span> 89/<- %ebp 4/r32/esp +<span id="L15420" class="LineNr">15420 </span> <span class="subxComment"># setup</span> +<span id="L15421" class="LineNr">15421 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15422" class="LineNr">15422 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15423" class="LineNr">15423 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15424" class="LineNr">15424 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15425" class="LineNr">15425 </span> <span class="subxComment">#</span> +<span id="L15426" class="LineNr">15426 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15427" class="LineNr">15427 </span> (<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="L15428" class="LineNr">15428 </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="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">"}\n"</span>) +<span id="L15430" class="LineNr">15430 </span> <span class="subxComment"># convert</span> +<span id="L15431" class="LineNr">15431 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L15432" class="LineNr">15432 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15433" class="LineNr">15433 </span> <span class="subxComment"># no errors</span> +<span id="L15434" class="LineNr">15434 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15435" class="LineNr">15435 </span> 5d/pop-to-ebp +<span id="L15436" class="LineNr">15436 </span> c3/return +<span id="L15437" class="LineNr">15437 </span> +<span id="L15438" class="LineNr">15438 </span><span class="subxTest">test-convert-with-no-inout</span>: +<span id="L15439" class="LineNr">15439 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15440" class="LineNr">15440 </span> 55/push-ebp +<span id="L15441" class="LineNr">15441 </span> 89/<- %ebp 4/r32/esp +<span id="L15442" class="LineNr">15442 </span> <span class="subxComment"># setup</span> +<span id="L15443" class="LineNr">15443 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15444" class="LineNr">15444 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15445" class="LineNr">15445 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15446" class="LineNr">15446 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15447" class="LineNr">15447 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15448" class="LineNr">15448 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15449" class="LineNr">15449 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15450" class="LineNr">15450 </span> 68/push 0/imm32 +<span id="L15451" class="LineNr">15451 </span> 68/push 0/imm32 +<span id="L15452" class="LineNr">15452 </span> 89/<- %edx 4/r32/esp +<span id="L15453" class="LineNr">15453 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15454" class="LineNr">15454 </span> <span class="subxComment">#</span> +<span id="L15455" class="LineNr">15455 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15456" class="LineNr">15456 </span> (<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="L15457" class="LineNr">15457 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15458" class="LineNr">15458 </span> <span class="subxComment"># convert</span> +<span id="L15459" class="LineNr">15459 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15460" class="LineNr">15460 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15461" class="LineNr">15461 </span> <span class="subxComment"># restore ed</span> +<span id="L15462" class="LineNr">15462 </span> 89/<- %edx 4/r32/esp +<span id="L15463" class="LineNr">15463 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15464" class="LineNr">15464 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15465" class="Folded">15465 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15471" class="LineNr">15471 </span> <span class="subxComment"># check output</span> +<span id="L15472" class="LineNr">15472 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15438'>test-convert-with-no-inout</a>: output should be empty"</span>) +<span id="L15473" class="LineNr">15473 </span> (<a href='109stream-equal.subx.html#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#L15438'>test-convert-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15474" class="LineNr">15474 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15475" class="LineNr">15475 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15438'>test-convert-with-no-inout</a>: exit status"</span>) +<span id="L15476" class="LineNr">15476 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15477" class="LineNr">15477 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15478" class="LineNr">15478 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15479" class="LineNr">15479 </span> 5d/pop-to-ebp +<span id="L15480" class="LineNr">15480 </span> c3/return +<span id="L15481" class="LineNr">15481 </span> +<span id="L15482" class="LineNr">15482 </span><span class="subxTest">test-convert-with-multiple-inouts</span>: +<span id="L15483" class="LineNr">15483 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15484" class="LineNr">15484 </span> 55/push-ebp +<span id="L15485" class="LineNr">15485 </span> 89/<- %ebp 4/r32/esp +<span id="L15486" class="LineNr">15486 </span> <span class="subxComment"># setup</span> +<span id="L15487" class="LineNr">15487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15488" class="LineNr">15488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-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#L287'>_test-output-stream</a>) +<span id="L15490" class="LineNr">15490 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15491" class="LineNr">15491 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15492" class="LineNr">15492 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15493" class="LineNr">15493 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15494" class="LineNr">15494 </span> 68/push 0/imm32 +<span id="L15495" class="LineNr">15495 </span> 68/push 0/imm32 +<span id="L15496" class="LineNr">15496 </span> 89/<- %edx 4/r32/esp +<span id="L15497" class="LineNr">15497 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15498" class="LineNr">15498 </span> <span class="subxComment">#</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">"fn foo {\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">" var x/eax: int <- convert 0, 0\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#L15482'>test-convert-with-multiple-inouts</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' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L15482'>test-convert-with-multiple-inouts</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#L15482'>test-convert-with-multiple-inouts</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-with-no-output</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">" convert 0\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">"}\n"</span>) +<span id="L15546" class="LineNr">15546 </span> <span class="subxComment"># convert</span> +<span id="L15547" class="LineNr">15547 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15548" class="LineNr">15548 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15549" class="LineNr">15549 </span> <span class="subxComment"># restore ed</span> +<span id="L15550" class="LineNr">15550 </span> 89/<- %edx 4/r32/esp +<span id="L15551" class="LineNr">15551 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15552" class="LineNr">15552 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15553" class="Folded">15553 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15559" class="LineNr">15559 </span> <span class="subxComment"># check output</span> +<span id="L15560" class="LineNr">15560 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <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-with-no-output</a>: output should be empty"</span>) +<span id="L15561" class="LineNr">15561 </span> (<a href='109stream-equal.subx.html#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#L15526'>test-convert-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15562" class="LineNr">15562 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15563" class="LineNr">15563 </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-with-no-output</a>: exit status"</span>) +<span id="L15564" class="LineNr">15564 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15565" class="LineNr">15565 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15566" class="LineNr">15566 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15567" class="LineNr">15567 </span> 5d/pop-to-ebp +<span id="L15568" class="LineNr">15568 </span> c3/return +<span id="L15569" class="LineNr">15569 </span> +<span id="L15570" class="LineNr">15570 </span><span class="subxTest">test-convert-with-multiple-outputs</span>: +<span id="L15571" class="LineNr">15571 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15572" class="LineNr">15572 </span> 55/push-ebp +<span id="L15573" class="LineNr">15573 </span> 89/<- %ebp 4/r32/esp +<span id="L15574" class="LineNr">15574 </span> <span class="subxComment"># setup</span> +<span id="L15575" class="LineNr">15575 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15576" class="LineNr">15576 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15577" class="LineNr">15577 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15578" class="LineNr">15578 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15579" class="LineNr">15579 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15580" class="LineNr">15580 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15581" class="LineNr">15581 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15582" class="LineNr">15582 </span> 68/push 0/imm32 +<span id="L15583" class="LineNr">15583 </span> 68/push 0/imm32 +<span id="L15584" class="LineNr">15584 </span> 89/<- %edx 4/r32/esp +<span id="L15585" class="LineNr">15585 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15586" class="LineNr">15586 </span> <span class="subxComment">#</span> +<span id="L15587" class="LineNr">15587 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</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">" var x/eax: int <- copy 0\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 y/ecx: int <- copy 0\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">" x, y <- convert 0\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#L15570'>test-convert-with-multiple-outputs</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' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L15570'>test-convert-with-multiple-outputs</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#L15570'>test-convert-with-multiple-outputs</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-deref-address</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> <span class="subxComment">#</span> +<span id="L15626" class="LineNr">15626 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15627" class="LineNr">15627 </span> (<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="L15628" class="LineNr">15628 </span> (<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="L15629" class="LineNr">15629 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15630" class="LineNr">15630 </span> <span class="subxComment"># convert</span> +<span id="L15631" class="LineNr">15631 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <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="L15632" class="LineNr">15632 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15633" class="LineNr">15633 </span> <span class="subxComment"># no errors</span> +<span id="L15634" class="LineNr">15634 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15635" class="LineNr">15635 </span> 5d/pop-to-ebp +<span id="L15636" class="LineNr">15636 </span> c3/return +<span id="L15637" class="LineNr">15637 </span> +<span id="L15638" class="LineNr">15638 </span><span class="subxTest">test-convert-to-non-register</span>: +<span id="L15639" class="LineNr">15639 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15640" class="LineNr">15640 </span> 55/push-ebp +<span id="L15641" class="LineNr">15641 </span> 89/<- %ebp 4/r32/esp +<span id="L15642" class="LineNr">15642 </span> <span class="subxComment"># setup</span> +<span id="L15643" class="LineNr">15643 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15644" class="LineNr">15644 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15645" class="LineNr">15645 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15646" class="LineNr">15646 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15647" class="LineNr">15647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15648" class="LineNr">15648 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15649" class="LineNr">15649 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15650" class="LineNr">15650 </span> 68/push 0/imm32 <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: int\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/eax: int <- convert x\n"</span>) +<span id="L15652" class="LineNr">15652 </span> 89/<- %edx 4/r32/esp +<span id="L15653" class="LineNr">15653 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15654" class="LineNr">15654 </span> <span class="subxComment">#</span> +<span id="L15655" class="LineNr">15655 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15656" class="LineNr">15656 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: float\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 y: int\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">" x <- convert y\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) @@ -14186,19 +14186,19 @@ if ('onhashchange' in window) { <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="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-int-to-int</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 int to int"</span> <span class="Constant">"F - <a href='mu.subx.html#L15639'>test-convert-int-to-int</a>: <a href='114error.subx.html#L9'>error</a> message"</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#L15638'>test-convert-to-non-register</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: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L15638'>test-convert-to-non-register</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-int-to-int</a>: exit status"</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#L15638'>test-convert-to-non-register</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="subxTest">test-convert-float-to-float</span>: +<span id="L15684" class="LineNr">15684 </span><span class="subxTest">test-convert-invalid-inout-type</span>: <span id="L15685" class="LineNr">15685 </span> <span class="subxS1Comment"># . prologue</span> <span id="L15686" class="LineNr">15686 </span> 55/push-ebp <span id="L15687" class="LineNr">15687 </span> 89/<- %ebp 4/r32/esp @@ -14216,8 +14216,8 @@ if ('onhashchange' in window) { <span id="L15699" class="LineNr">15699 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) <span id="L15700" class="LineNr">15700 </span> <span class="subxComment">#</span> <span id="L15701" class="LineNr">15701 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15702" class="LineNr">15702 </span> (<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="L15703" class="LineNr">15703 </span> (<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="L15702" class="LineNr">15702 </span> (<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="L15703" class="LineNr">15703 </span> (<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="L15704" class="LineNr">15704 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) <span id="L15705" class="LineNr">15705 </span> <span class="subxComment"># convert</span> <span id="L15706" class="LineNr">15706 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) @@ -14226,1566 +14226,1551 @@ if ('onhashchange' in window) { <span id="L15709" class="LineNr">15709 </span> 89/<- %edx 4/r32/esp <span id="L15710" class="LineNr">15710 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L15711" class="LineNr">15711 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) -<span id="L15712" class="Folded">15712 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15712" class="Folded">15712 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L15718" class="LineNr">15718 </span> <span class="subxComment"># check output</span> -<span id="L15719" class="LineNr">15719 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15684'>test-convert-float-to-float</a>: output should be empty"</span>) -<span id="L15720" class="LineNr">15720 </span> (<a href='109stream-equal.subx.html#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#L15684'>test-convert-float-to-float</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15719" class="LineNr">15719 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15684'>test-convert-invalid-inout-type</a>: output should be empty"</span>) +<span id="L15720" class="LineNr">15720 </span> (<a href='109stream-equal.subx.html#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#L15684'>test-convert-invalid-inout-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) <span id="L15721" class="LineNr">15721 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15722" class="LineNr">15722 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15684'>test-convert-float-to-float</a>: exit status"</span>) +<span id="L15722" class="LineNr">15722 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15684'>test-convert-invalid-inout-type</a>: exit status"</span>) <span id="L15723" class="LineNr">15723 </span> <span class="subxComment"># don't restore from ebp</span> <span id="L15724" class="LineNr">15724 </span> 81 0/subop/add %esp 8/imm32 <span id="L15725" class="LineNr">15725 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L15726" class="LineNr">15726 </span> 5d/pop-to-ebp <span id="L15727" class="LineNr">15727 </span> c3/return <span id="L15728" class="LineNr">15728 </span> -<span id="L15729" class="LineNr">15729 </span><span class="subxComment">#######################################################</span> -<span id="L15730" class="LineNr">15730 </span><span class="subxComment"># Parsing</span> -<span id="L15731" class="LineNr">15731 </span><span class="subxComment">#######################################################</span> -<span id="L15732" class="LineNr">15732 </span> -<span id="L15733" class="LineNr">15733 </span>== data -<span id="L15734" class="LineNr">15734 </span> -<span id="L15735" class="LineNr">15735 </span><span class="subxComment"># Global state added to each var record when parsing a function</span> -<span id="L15736" class="LineNr">15736 </span><span class="SpecialChar">Next-block-index</span>: <span class="subxComment"># (addr int)</span> -<span id="L15737" class="LineNr">15737 </span> 1/imm32 -<span id="L15738" class="LineNr">15738 </span> -<span id="L15739" class="LineNr">15739 </span><span class="SpecialChar">Curr-block-depth</span>: <span class="subxComment"># (addr int)</span> -<span id="L15740" class="LineNr">15740 </span> 1/imm32 -<span id="L15741" class="LineNr">15741 </span> -<span id="L15742" class="LineNr">15742 </span>== code -<span id="L15743" class="LineNr">15743 </span> -<span id="L15744" class="LineNr">15744 </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="L15745" class="LineNr">15745 </span> <span class="subxComment"># pseudocode</span> -<span id="L15746" class="LineNr">15746 </span> <span class="subxComment"># var curr-function: (addr handle function) = Program->functions</span> -<span id="L15747" class="LineNr">15747 </span> <span class="subxComment"># var curr-signature: (addr handle function) = Program->signatures</span> -<span id="L15748" class="LineNr">15748 </span> <span class="subxComment"># var curr-type: (addr handle typeinfo) = Program->types</span> -<span id="L15749" class="LineNr">15749 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L15750" class="LineNr">15750 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L15751" class="LineNr">15751 </span> <span class="subxComment"># while true # line loop</span> -<span id="L15752" class="LineNr">15752 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L15753" class="LineNr">15753 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L15754" class="LineNr">15754 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> -<span id="L15755" class="LineNr">15755 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L15756" class="LineNr">15756 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L15757" class="LineNr">15757 </span> <span class="subxComment"># continue</span> -<span id="L15758" class="LineNr">15758 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#") # comment</span> -<span id="L15759" class="LineNr">15759 </span> <span class="subxComment"># continue # end of line</span> -<span id="L15760" class="LineNr">15760 </span> <span class="subxComment"># else if slice-equal?(word-slice, "fn")</span> -<span id="L15761" class="LineNr">15761 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> -<span id="L15762" class="LineNr">15762 </span> <span class="subxComment"># var vars: (stack live-var 256)</span> -<span id="L15763" class="LineNr">15763 </span> <span class="subxComment"># populate-mu-function-header(line, new-function, vars)</span> -<span id="L15764" class="LineNr">15764 </span> <span class="subxComment"># populate-mu-function-body(in, new-function, vars)</span> -<span id="L15765" class="LineNr">15765 </span> <span class="subxComment"># assert(vars->top == 0)</span> -<span id="L15766" class="LineNr">15766 </span> <span class="subxComment"># *curr-function = new-function</span> -<span id="L15767" class="LineNr">15767 </span> <span class="subxComment"># curr-function = &new-function->next</span> -<span id="L15768" class="LineNr">15768 </span> <span class="subxComment"># else if slice-equal?(word-slice, "sig")</span> -<span id="L15769" class="LineNr">15769 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> -<span id="L15770" class="LineNr">15770 </span> <span class="subxComment"># populate-mu-function-signature(line, new-function)</span> -<span id="L15771" class="LineNr">15771 </span> <span class="subxComment"># *curr-signature = new-function</span> -<span id="L15772" class="LineNr">15772 </span> <span class="subxComment"># curr-signature = &new-function->next</span> -<span id="L15773" class="LineNr">15773 </span> <span class="subxComment"># else if slice-equal?(word-slice, "type")</span> -<span id="L15774" class="LineNr">15774 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L15775" class="LineNr">15775 </span> <span class="subxComment"># type-id = pos-or-insert-slice(Type-id, word-slice)</span> -<span id="L15776" class="LineNr">15776 </span> <span class="subxComment"># var new-type: (handle typeinfo) = find-or-create-typeinfo(type-id)</span> -<span id="L15777" class="LineNr">15777 </span> <span class="subxComment"># assert(next-word(line) == "{")</span> -<span id="L15778" class="LineNr">15778 </span> <span class="subxComment"># populate-mu-type(in, new-type)</span> -<span id="L15779" class="LineNr">15779 </span> <span class="subxComment"># else</span> -<span id="L15780" class="LineNr">15780 </span> <span class="subxComment"># abort()</span> -<span id="L15781" class="LineNr">15781 </span> <span class="subxComment">#</span> -<span id="L15782" class="LineNr">15782 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15783" class="LineNr">15783 </span> 55/push-ebp -<span id="L15784" class="LineNr">15784 </span> 89/<- %ebp 4/r32/esp -<span id="L15785" class="LineNr">15785 </span> <span class="subxComment"># var curr-signature: (addr handle function) at *(ebp-4)</span> -<span id="L15786" class="LineNr">15786 </span> 68/push <a href='mu.subx.html#L249'>_Program-signatures</a>/imm32 -<span id="L15787" class="LineNr">15787 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15788" class="LineNr">15788 </span> 50/push-eax -<span id="L15789" class="LineNr">15789 </span> 51/push-ecx -<span id="L15790" class="LineNr">15790 </span> 52/push-edx -<span id="L15791" class="LineNr">15791 </span> 53/push-ebx -<span id="L15792" class="LineNr">15792 </span> 56/push-esi -<span id="L15793" class="LineNr">15793 </span> 57/push-edi -<span id="L15794" class="LineNr">15794 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L15795" class="LineNr">15795 </span> 81 5/subop/subtract %esp 0x200/imm32 -<span id="L15796" class="LineNr">15796 </span> 68/push 0x200/imm32/size -<span id="L15797" class="LineNr">15797 </span> 68/push 0/imm32/read -<span id="L15798" class="LineNr">15798 </span> 68/push 0/imm32/write -<span id="L15799" class="LineNr">15799 </span> 89/<- %ecx 4/r32/esp -<span id="L15800" class="LineNr">15800 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L15801" class="LineNr">15801 </span> 68/push 0/imm32/end -<span id="L15802" class="LineNr">15802 </span> 68/push 0/imm32/start -<span id="L15803" class="LineNr">15803 </span> 89/<- %edx 4/r32/esp -<span id="L15804" class="LineNr">15804 </span> <span class="subxComment"># var curr-function/edi: (addr handle function)</span> -<span id="L15805" class="LineNr">15805 </span> bf/copy-to-edi <a href='mu.subx.html#L241'>_Program-functions</a>/imm32 -<span id="L15806" class="LineNr">15806 </span> <span class="subxComment"># var vars/ebx: (stack live-var 256)</span> -<span id="L15807" class="LineNr">15807 </span> 81 5/subop/subtract %esp 0xc00/imm32 -<span id="L15808" class="LineNr">15808 </span> 68/push 0xc00/imm32/size -<span id="L15809" class="LineNr">15809 </span> 68/push 0/imm32/top -<span id="L15810" class="LineNr">15810 </span> 89/<- %ebx 4/r32/esp -<span id="L15811" class="LineNr">15811 </span> { -<span id="L15812" class="LineNr">15812 </span><span class="Constant">$parse-mu:line-loop</span>: -<span id="L15813" class="LineNr">15813 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L15814" class="LineNr">15814 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) -<span id="L15815" class="LineNr">15815 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L15816" class="LineNr">15816 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L15817" class="LineNr">15817 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15818" class="Folded">15818 </span><span class="Folded">+-- 6 lines: #? # dump line -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15824" class="LineNr">15824 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> %ecx %edx) -<span id="L15825" class="LineNr">15825 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> -<span id="L15826" class="LineNr">15826 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L15827" class="LineNr">15827 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15828" class="LineNr">15828 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 -<span id="L15829" class="LineNr">15829 </span> <span class="subxComment"># if (*word-slice->start == "#") continue</span> -<span id="L15830" class="LineNr">15830 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> -<span id="L15831" class="LineNr">15831 </span> 8b/-> *edx 0/r32/eax -<span id="L15832" class="LineNr">15832 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L15833" class="LineNr">15833 </span> 25/and-eax-with 0xff/imm32 -<span id="L15834" class="LineNr">15834 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L15835" class="LineNr">15835 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L15836" class="LineNr">15836 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 -<span id="L15837" class="LineNr">15837 </span> <span class="subxComment"># if (slice-equal?(word-slice, "fn")) parse a function</span> -<span id="L15838" class="LineNr">15838 </span> { -<span id="L15839" class="LineNr">15839 </span><span class="Constant">$parse-mu:fn</span>: -<span id="L15840" class="LineNr">15840 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"fn"</span>) <span class="subxComment"># => eax</span> -<span id="L15841" class="LineNr">15841 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15842" class="LineNr">15842 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15843" class="LineNr">15843 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> -<span id="L15844" class="LineNr">15844 </span> 68/push 0/imm32 -<span id="L15845" class="LineNr">15845 </span> 68/push 0/imm32 -<span id="L15846" class="LineNr">15846 </span> 89/<- %esi 4/r32/esp -<span id="L15847" class="LineNr">15847 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> -<span id="L15848" class="LineNr">15848 </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="L15849" class="LineNr">15849 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> -<span id="L15850" class="LineNr">15850 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L15851" class="LineNr">15851 </span> <span class="subxComment"># initialize vars</span> -<span id="L15852" class="LineNr">15852 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ebx) -<span id="L15853" class="LineNr">15853 </span> <span class="subxComment">#</span> -<span id="L15854" class="LineNr">15854 </span> (<a href='mu.subx.html#L15993'>populate-mu-function-header</a> %ecx %eax %ebx *(ebp+0xc) *(ebp+0x10)) -<span id="L15855" class="LineNr">15855 </span> (<a href='mu.subx.html#L18110'>populate-mu-function-body</a> *(ebp+8) %eax %ebx *(ebp+0xc) *(ebp+0x10)) -<span id="L15856" class="LineNr">15856 </span> <span class="subxComment"># *curr-function = new-function</span> -<span id="L15857" class="LineNr">15857 </span> 8b/-> *esi 0/r32/eax -<span id="L15858" class="LineNr">15858 </span> 89/<- *edi 0/r32/eax -<span id="L15859" class="LineNr">15859 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L15860" class="LineNr">15860 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L15861" class="LineNr">15861 </span> <span class="subxComment"># curr-function = &new-function->next</span> -<span id="L15862" class="LineNr">15862 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> -<span id="L15863" class="LineNr">15863 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L15864" class="LineNr">15864 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> -<span id="L15865" class="LineNr">15865 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> -<span id="L15866" class="LineNr">15866 </span> <span class="subxComment"># reclaim new-function</span> -<span id="L15867" class="LineNr">15867 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15868" class="LineNr">15868 </span> <span class="subxComment">#</span> -<span id="L15869" class="LineNr">15869 </span> e9/jump $parse-mu:line-loop/disp32 -<span id="L15870" class="LineNr">15870 </span> } -<span id="L15871" class="LineNr">15871 </span> <span class="subxComment"># if (slice-equal?(word-slice, "sig")) parse a function signature</span> -<span id="L15872" class="LineNr">15872 </span> <span class="subxComment"># Function signatures are for providing types to SubX functions.</span> -<span id="L15873" class="LineNr">15873 </span> { -<span id="L15874" class="LineNr">15874 </span><span class="Constant">$parse-mu:sig</span>: -<span id="L15875" class="LineNr">15875 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"sig"</span>) <span class="subxComment"># => eax</span> -<span id="L15876" class="LineNr">15876 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15877" class="LineNr">15877 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15878" class="LineNr">15878 </span> <span class="subxComment"># edi = curr-function</span> -<span id="L15879" class="LineNr">15879 </span> 57/push-edi -<span id="L15880" class="LineNr">15880 </span> 8b/-> *(ebp-4) 7/r32/edi -<span id="L15881" class="LineNr">15881 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> -<span id="L15882" class="LineNr">15882 </span> 68/push 0/imm32 -<span id="L15883" class="LineNr">15883 </span> 68/push 0/imm32 -<span id="L15884" class="LineNr">15884 </span> 89/<- %esi 4/r32/esp -<span id="L15885" class="LineNr">15885 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> -<span id="L15886" class="LineNr">15886 </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="L15887" class="LineNr">15887 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> -<span id="L15888" class="LineNr">15888 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L15889" class="LineNr">15889 </span> <span class="subxComment">#</span> -<span id="L15890" class="LineNr">15890 </span> (<a href='mu.subx.html#L16313'>populate-mu-function-signature</a> %ecx %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L15891" class="LineNr">15891 </span> <span class="subxComment"># *curr-signature = new-function</span> -<span id="L15892" class="LineNr">15892 </span> 8b/-> *esi 0/r32/eax -<span id="L15893" class="LineNr">15893 </span> 89/<- *edi 0/r32/eax -<span id="L15894" class="LineNr">15894 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L15895" class="LineNr">15895 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L15896" class="LineNr">15896 </span> <span class="subxComment"># curr-signature = &new-function->next</span> -<span id="L15897" class="LineNr">15897 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> -<span id="L15898" class="LineNr">15898 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L15899" class="LineNr">15899 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> -<span id="L15900" class="LineNr">15900 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> -<span id="L15901" class="LineNr">15901 </span> <span class="subxComment"># reclaim new-function</span> -<span id="L15902" class="LineNr">15902 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15903" class="LineNr">15903 </span> <span class="subxComment"># save curr-function</span> -<span id="L15904" class="LineNr">15904 </span> 89/<- *(ebp-4) 7/r32/edi -<span id="L15905" class="LineNr">15905 </span> <span class="subxComment"># restore edi</span> -<span id="L15906" class="LineNr">15906 </span> 5f/pop-to-edi -<span id="L15907" class="LineNr">15907 </span> <span class="subxComment">#</span> -<span id="L15908" class="LineNr">15908 </span> e9/jump $parse-mu:line-loop/disp32 -<span id="L15909" class="LineNr">15909 </span> } -<span id="L15910" class="LineNr">15910 </span> <span class="subxComment"># if (slice-equal?(word-slice, "type")) parse a type (struct/record) definition</span> -<span id="L15911" class="LineNr">15911 </span> { -<span id="L15912" class="LineNr">15912 </span><span class="Constant">$parse-mu:type</span>: -<span id="L15913" class="LineNr">15913 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"type"</span>) <span class="subxComment"># => eax</span> -<span id="L15914" class="LineNr">15914 </span> 3d/compare-eax-and 0/imm32 -<span id="L15915" class="LineNr">15915 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15916" class="LineNr">15916 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> %ecx %edx) -<span id="L15917" class="LineNr">15917 </span> <span class="subxComment"># var type-id/eax: int</span> -<span id="L15918" class="LineNr">15918 </span> (<a href='mu.subx.html#L17498'>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="L15919" class="LineNr">15919 </span> <span class="subxComment"># spill</span> -<span id="L15920" class="LineNr">15920 </span> 51/push-ecx -<span id="L15921" class="LineNr">15921 </span> <span class="subxComment"># var new-type/ecx: (handle typeinfo)</span> -<span id="L15922" class="LineNr">15922 </span> 68/push 0/imm32 -<span id="L15923" class="LineNr">15923 </span> 68/push 0/imm32 -<span id="L15924" class="LineNr">15924 </span> 89/<- %ecx 4/r32/esp -<span id="L15925" class="LineNr">15925 </span> (<a href='mu.subx.html#L20288'>find-or-create-typeinfo</a> %eax %ecx) -<span id="L15926" class="LineNr">15926 </span> <span class="subxComment">#</span> -<span id="L15927" class="LineNr">15927 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L15928" class="LineNr">15928 </span> <span class="subxComment"># TODO: ensure that 'line' has nothing else but '{'</span> -<span id="L15929" class="LineNr">15929 </span><span class="CommentedCode">#? (dump-typeinfos "=== aaa\n")</span> -<span id="L15930" class="LineNr">15930 </span> (<a href='mu.subx.html#L20522'>populate-mu-type</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L15931" class="LineNr">15931 </span><span class="CommentedCode">#? (dump-typeinfos "=== zzz\n")</span> -<span id="L15932" class="LineNr">15932 </span> <span class="subxComment"># reclaim new-type</span> -<span id="L15933" class="LineNr">15933 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15934" class="LineNr">15934 </span> <span class="subxComment"># restore</span> -<span id="L15935" class="LineNr">15935 </span> 59/pop-to-ecx -<span id="L15936" class="LineNr">15936 </span> e9/jump $parse-mu:line-loop/disp32 -<span id="L15937" class="LineNr">15937 </span> } -<span id="L15938" class="LineNr">15938 </span> <span class="subxComment"># otherwise abort</span> -<span id="L15939" class="LineNr">15939 </span> e9/jump $parse-mu:error1/disp32 -<span id="L15940" class="LineNr">15940 </span> } <span class="subxComment"># end line loop</span> -<span id="L15941" class="LineNr">15941 </span><span class="Constant">$parse-mu:end</span>: -<span id="L15942" class="LineNr">15942 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L15943" class="LineNr">15943 </span> 81 0/subop/add %esp 0x20c/imm32 <span class="subxComment"># line</span> -<span id="L15944" class="LineNr">15944 </span> 81 0/subop/add %esp 0xc08/imm32 <span class="subxComment"># vars</span> -<span id="L15945" class="LineNr">15945 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15946" class="LineNr">15946 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15947" class="LineNr">15947 </span> 5f/pop-to-edi -<span id="L15948" class="LineNr">15948 </span> 5e/pop-to-esi -<span id="L15949" class="LineNr">15949 </span> 5b/pop-to-ebx -<span id="L15950" class="LineNr">15950 </span> 5a/pop-to-edx -<span id="L15951" class="LineNr">15951 </span> 59/pop-to-ecx -<span id="L15952" class="LineNr">15952 </span> 58/pop-to-eax -<span id="L15953" class="LineNr">15953 </span> <span class="subxS1Comment"># . reclaim local</span> -<span id="L15954" class="LineNr">15954 </span> 81 0/subop/add %esp 4/imm32 -<span id="L15955" class="LineNr">15955 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15956" class="LineNr">15956 </span> 89/<- %esp 5/r32/ebp -<span id="L15957" class="LineNr">15957 </span> 5d/pop-to-ebp -<span id="L15958" class="LineNr">15958 </span> c3/return -<span id="L15959" class="LineNr">15959 </span> -<span id="L15960" class="LineNr">15960 </span><span class="Constant">$parse-mu:error1</span>: -<span id="L15961" class="LineNr">15961 </span> <span class="subxComment"># error("unexpected top-level command: " word-slice "\n")</span> -<span id="L15962" class="LineNr">15962 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"unexpected top-level command: "</span>) -<span id="L15963" class="LineNr">15963 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) %edx) -<span id="L15964" class="LineNr">15964 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"\n"</span>) -<span id="L15965" class="LineNr">15965 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L15966" class="LineNr">15966 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L15967" class="LineNr">15967 </span> <span class="subxComment"># never gets here</span> -<span id="L15968" class="LineNr">15968 </span> -<span id="L15969" class="LineNr">15969 </span><span class="Constant">$parse-mu:error2</span>: -<span id="L15970" class="LineNr">15970 </span> <span class="subxComment"># error(vars->top " vars not reclaimed after fn '" new-function->name "'\n")</span> -<span id="L15971" class="LineNr">15971 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) *ebx) -<span id="L15972" class="LineNr">15972 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">" vars not reclaimed after fn '"</span>) -<span id="L15973" class="LineNr">15973 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *eax) <span class="subxComment"># Function-name</span> -<span id="L15974" class="LineNr">15974 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"'\n"</span>) -<span id="L15975" class="LineNr">15975 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L15976" class="LineNr">15976 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L15977" class="LineNr">15977 </span> <span class="subxComment"># never gets here</span> -<span id="L15978" class="LineNr">15978 </span> -<span id="L15979" class="LineNr">15979 </span><span class="subxComment"># scenarios considered:</span> -<span id="L15980" class="LineNr">15980 </span><span class="subxComment"># ✗ fn foo # no block</span> -<span id="L15981" class="LineNr">15981 </span><span class="subxComment"># ✓ fn foo {</span> -<span id="L15982" class="LineNr">15982 </span><span class="subxComment"># ✗ fn foo { {</span> -<span id="L15983" class="LineNr">15983 </span><span class="subxComment"># ✗ fn foo { }</span> -<span id="L15984" class="LineNr">15984 </span><span class="subxComment"># ✗ fn foo { } {</span> -<span id="L15985" class="LineNr">15985 </span><span class="subxComment"># ✗ fn foo x {</span> -<span id="L15986" class="LineNr">15986 </span><span class="subxComment"># ✗ fn foo x: {</span> -<span id="L15987" class="LineNr">15987 </span><span class="subxComment"># ✓ fn foo x: int {</span> -<span id="L15988" class="LineNr">15988 </span><span class="subxComment"># ✓ fn foo x: int {</span> -<span id="L15989" class="LineNr">15989 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int {</span> -<span id="L15990" class="LineNr">15990 </span><span class="subxComment"># TODO:</span> -<span id="L15991" class="LineNr">15991 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> -<span id="L15992" class="LineNr">15992 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> -<span id="L15993" class="LineNr">15993 </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="L15994" class="LineNr">15994 </span> <span class="subxComment"># pseudocode:</span> -<span id="L15995" class="LineNr">15995 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L15996" class="LineNr">15996 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> -<span id="L15997" class="LineNr">15997 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L15998" class="LineNr">15998 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> -<span id="L15999" class="LineNr">15999 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> -<span id="L16000" class="LineNr">16000 </span> <span class="subxComment"># ## inouts</span> -<span id="L16001" class="LineNr">16001 </span> <span class="subxComment"># while true</span> -<span id="L16002" class="LineNr">16002 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L16003" class="LineNr">16003 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L16004" class="LineNr">16004 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> -<span id="L16005" class="LineNr">16005 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L16006" class="LineNr">16006 </span> <span class="subxComment"># assert(word-slice != '}')</span> -<span id="L16007" class="LineNr">16007 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L16008" class="LineNr">16008 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L16009" class="LineNr">16009 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> -<span id="L16010" class="LineNr">16010 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L16011" class="LineNr">16011 </span> <span class="subxComment"># push(vars, {v, false})</span> -<span id="L16012" class="LineNr">16012 </span> <span class="subxComment"># ## outputs</span> -<span id="L16013" class="LineNr">16013 </span> <span class="subxComment"># while true</span> -<span id="L16014" class="LineNr">16014 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L16015" class="LineNr">16015 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L16016" class="LineNr">16016 </span> <span class="subxComment"># if (word-slice == '{') break</span> -<span id="L16017" class="LineNr">16017 </span> <span class="subxComment"># assert(word-slice not in '}' '->')</span> -<span id="L16018" class="LineNr">16018 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L16019" class="LineNr">16019 </span> <span class="subxComment"># assert(v->register != null)</span> -<span id="L16020" class="LineNr">16020 </span> <span class="subxComment"># assert(v->name == "_")</span> -<span id="L16021" class="LineNr">16021 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L16022" class="LineNr">16022 </span> <span class="subxComment"># done:</span> -<span id="L16023" class="LineNr">16023 </span> <span class="subxComment">#</span> -<span id="L16024" class="LineNr">16024 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16025" class="LineNr">16025 </span> 55/push-ebp -<span id="L16026" class="LineNr">16026 </span> 89/<- %ebp 4/r32/esp -<span id="L16027" class="LineNr">16027 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16028" class="LineNr">16028 </span> 50/push-eax -<span id="L16029" class="LineNr">16029 </span> 51/push-ecx -<span id="L16030" class="LineNr">16030 </span> 52/push-edx -<span id="L16031" class="LineNr">16031 </span> 53/push-ebx -<span id="L16032" class="LineNr">16032 </span> 57/push-edi -<span id="L16033" class="LineNr">16033 </span> <span class="subxComment"># edi = out</span> -<span id="L16034" class="LineNr">16034 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L16035" class="LineNr">16035 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L16036" class="LineNr">16036 </span> 68/push 0/imm32/end -<span id="L16037" class="LineNr">16037 </span> 68/push 0/imm32/start -<span id="L16038" class="LineNr">16038 </span> 89/<- %ecx 4/r32/esp -<span id="L16039" class="LineNr">16039 </span> <span class="subxComment"># var v/ebx: (handle var)</span> -<span id="L16040" class="LineNr">16040 </span> 68/push 0/imm32 -<span id="L16041" class="LineNr">16041 </span> 68/push 0/imm32 -<span id="L16042" class="LineNr">16042 </span> 89/<- %ebx 4/r32/esp -<span id="L16043" class="LineNr">16043 </span> <span class="subxComment"># read function name</span> -<span id="L16044" class="LineNr">16044 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16045" class="LineNr">16045 </span> <span class="subxComment"># error checking</span> -<span id="L16046" class="LineNr">16046 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L16047" class="LineNr">16047 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <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:error1/disp32 -<span id="L16050" class="LineNr">16050 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L16051" class="LineNr">16051 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L16052" class="LineNr">16052 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16053" class="LineNr">16053 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16054" class="LineNr">16054 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L16055" class="LineNr">16055 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L16056" class="LineNr">16056 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16057" class="LineNr">16057 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16058" class="LineNr">16058 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L16059" class="LineNr">16059 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16060" class="LineNr">16060 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16061" class="LineNr">16061 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16062" class="LineNr">16062 </span> <span class="subxComment"># if word-slice already defined, abort</span> -<span id="L16063" class="LineNr">16063 </span> (<a href='mu.subx.html#L16665'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16064" class="LineNr">16064 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16065" class="LineNr">16065 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-duplicate/disp32 -<span id="L16066" class="LineNr">16066 </span> <span class="subxComment">#</span> -<span id="L16067" class="LineNr">16067 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> -<span id="L16068" class="LineNr">16068 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16069" class="LineNr">16069 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-break/disp32 -<span id="L16070" class="LineNr">16070 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> -<span id="L16071" class="LineNr">16071 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16072" class="LineNr">16072 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-loop/disp32 -<span id="L16073" class="LineNr">16073 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> -<span id="L16074" class="LineNr">16074 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16075" class="LineNr">16075 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-lookup/disp32 -<span id="L16076" class="LineNr">16076 </span> <span class="subxComment"># save function name</span> -<span id="L16077" class="LineNr">16077 </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="L16078" class="LineNr">16078 </span> <span class="subxComment"># save function inouts</span> -<span id="L16079" class="LineNr">16079 </span> { -<span id="L16080" class="LineNr">16080 </span><span class="Constant">$populate-mu-function-header:check-for-inout</span>: -<span id="L16081" class="LineNr">16081 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16082" class="LineNr">16082 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L16083" class="LineNr">16083 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16084" class="LineNr">16084 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16085" class="LineNr">16085 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16086" class="LineNr">16086 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> -<span id="L16087" class="LineNr">16087 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</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> 0f 85/jump-if-!= $populate-mu-function-header:done/disp32 -<span id="L16090" class="LineNr">16090 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L16091" class="LineNr">16091 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <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-!= <span class="Constant">break</span>/disp32 -<span id="L16094" class="LineNr">16094 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L16095" class="LineNr">16095 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16096" class="LineNr">16096 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16097" class="LineNr">16097 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16098" class="LineNr">16098 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L16099" class="LineNr">16099 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16100" class="LineNr">16100 </span> (<a href='mu.subx.html#L16973'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L16101" class="LineNr">16101 </span> <span class="subxComment"># if (v->register != null) abort</span> -<span id="L16102" class="LineNr">16102 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L16103" class="LineNr">16103 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16104" class="LineNr">16104 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L16105" class="LineNr">16105 </span> 0f 85/jump-if-!= $populate-mu-function-header:error2/disp32 -<span id="L16106" class="LineNr">16106 </span> <span class="subxComment"># if function name is not "main"</span> -<span id="L16107" class="LineNr">16107 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> -<span id="L16108" class="LineNr">16108 </span> { -<span id="L16109" class="LineNr">16109 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16110" class="LineNr">16110 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> -<span id="L16111" class="LineNr">16111 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16112" class="LineNr">16112 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16113" class="LineNr">16113 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16114" class="LineNr">16114 </span> (<a href='mu.subx.html#L16611'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L16115" class="LineNr">16115 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16116" class="LineNr">16116 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-nested-addr-inout/disp32 -<span id="L16117" class="LineNr">16117 </span> } -<span id="L16118" class="LineNr">16118 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> -<span id="L16119" class="LineNr">16119 </span> <span class="subxComment">#</span> -<span id="L16120" class="LineNr">16120 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L16121" class="LineNr">16121 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> -<span id="L16122" class="LineNr">16122 </span> (<a href='mu.subx.html#L20057'>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="L16123" class="LineNr">16123 </span> <span class="subxComment"># push(vars, {v, false})</span> -<span id="L16124" class="LineNr">16124 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *ebx) -<span id="L16125" class="LineNr">16125 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebx+4)) -<span id="L16126" class="LineNr">16126 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</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="subxComment"># save function outputs</span> -<span id="L16131" class="LineNr">16131 </span> { -<span id="L16132" class="LineNr">16132 </span><span class="Constant">$populate-mu-function-header:check-for-out</span>: -<span id="L16133" class="LineNr">16133 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16134" class="LineNr">16134 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L16135" class="LineNr">16135 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16136" class="LineNr">16136 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16137" class="LineNr">16137 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16138" class="LineNr">16138 </span> <span class="subxComment"># if (word-slice == '{') break</span> -<span id="L16139" class="LineNr">16139 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L16140" class="LineNr">16140 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16141" class="LineNr">16141 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L16142" class="LineNr">16142 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L16143" class="LineNr">16143 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <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:error1/disp32 -<span id="L16146" class="LineNr">16146 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L16147" class="LineNr">16147 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16148" class="LineNr">16148 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16149" class="LineNr">16149 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L16150" class="LineNr">16150 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L16151" class="LineNr">16151 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16152" class="LineNr">16152 </span> (<a href='mu.subx.html#L16973'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L16153" class="LineNr">16153 </span> <span class="subxComment"># assert(var->register != null)</span> -<span id="L16154" class="LineNr">16154 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L16155" class="LineNr">16155 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16156" class="LineNr">16156 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L16157" class="LineNr">16157 </span> 0f 84/jump-if-= $populate-mu-function-header:error3/disp32 -<span id="L16158" class="LineNr">16158 </span> <span class="subxComment"># if (var->name != "_") abort</span> -<span id="L16159" class="LineNr">16159 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16160" class="LineNr">16160 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> -<span id="L16161" class="LineNr">16161 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16162" class="LineNr">16162 </span> 0f 84/jump-if-= $populate-mu-function-header:error4/disp32 -<span id="L16163" class="LineNr">16163 </span> <span class="subxComment"># if v->type is an addr, abort</span> -<span id="L16164" class="LineNr">16164 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16165" class="LineNr">16165 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16166" class="LineNr">16166 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L16167" class="LineNr">16167 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16168" class="LineNr">16168 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-addr-output/disp32 -<span id="L16169" class="LineNr">16169 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L16170" class="LineNr">16170 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> -<span id="L16171" class="LineNr">16171 </span> (<a href='mu.subx.html#L20057'>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="L16172" class="LineNr">16172 </span> <span class="subxComment">#</span> -<span id="L16173" class="LineNr">16173 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L16174" class="LineNr">16174 </span> } -<span id="L16175" class="LineNr">16175 </span><span class="Constant">$populate-mu-function-header:done</span>: -<span id="L16176" class="LineNr">16176 </span> (<a href='mu.subx.html#L18422'>check-no-tokens-left</a> *(ebp+8)) -<span id="L16177" class="LineNr">16177 </span><span class="Constant">$populate-mu-function-header:end</span>: -<span id="L16178" class="LineNr">16178 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L16179" class="LineNr">16179 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L16180" class="LineNr">16180 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16181" class="LineNr">16181 </span> 5f/pop-to-edi -<span id="L16182" class="LineNr">16182 </span> 5b/pop-to-ebx -<span id="L16183" class="LineNr">16183 </span> 5a/pop-to-edx -<span id="L16184" class="LineNr">16184 </span> 59/pop-to-ecx -<span id="L16185" class="LineNr">16185 </span> 58/pop-to-eax -<span id="L16186" class="LineNr">16186 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16187" class="LineNr">16187 </span> 89/<- %esp 5/r32/ebp -<span id="L16188" class="LineNr">16188 </span> 5d/pop-to-ebp -<span id="L16189" class="LineNr">16189 </span> c3/return -<span id="L16190" class="LineNr">16190 </span> -<span id="L16191" class="LineNr">16191 </span><span class="Constant">$populate-mu-function-header:error1</span>: -<span id="L16192" class="LineNr">16192 </span> <span class="subxComment"># error("function header not in form 'fn <name> {'")</span> -<span id="L16193" class="LineNr">16193 </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="L16194" class="LineNr">16194 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16195" class="LineNr">16195 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L16196" class="LineNr">16196 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) -<span id="L16197" class="LineNr">16197 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L16198" class="LineNr">16198 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16199" class="LineNr">16199 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16200" class="LineNr">16200 </span> <span class="subxComment"># never gets here</span> -<span id="L16201" class="LineNr">16201 </span> -<span id="L16202" class="LineNr">16202 </span><span class="Constant">$populate-mu-function-header:error2</span>: -<span id="L16203" class="LineNr">16203 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> -<span id="L16204" class="LineNr">16204 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16205" class="LineNr">16205 </span> 50/push-eax -<span id="L16206" class="LineNr">16206 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16207" class="LineNr">16207 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16208" class="LineNr">16208 </span> 58/pop-to-eax -<span id="L16209" class="LineNr">16209 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function inout '"</span>) -<span id="L16210" class="LineNr">16210 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16211" class="LineNr">16211 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16212" class="LineNr">16212 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' cannot be in a register"</span>) -<span id="L16213" class="LineNr">16213 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16214" class="LineNr">16214 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16215" class="LineNr">16215 </span> <span class="subxComment"># never gets here</span> -<span id="L16216" class="LineNr">16216 </span> -<span id="L16217" class="LineNr">16217 </span><span class="Constant">$populate-mu-function-header:error3</span>: -<span id="L16218" class="LineNr">16218 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> -<span id="L16219" class="LineNr">16219 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16220" class="LineNr">16220 </span> 50/push-eax -<span id="L16221" class="LineNr">16221 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16222" class="LineNr">16222 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16223" class="LineNr">16223 </span> 58/pop-to-eax -<span id="L16224" class="LineNr">16224 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function output '"</span>) -<span id="L16225" class="LineNr">16225 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16226" class="LineNr">16226 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16227" class="LineNr">16227 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16228" class="LineNr">16228 </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="L16229" class="LineNr">16229 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L16230" class="LineNr">16230 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) -<span id="L16231" class="LineNr">16231 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L16232" class="LineNr">16232 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16233" class="LineNr">16233 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16234" class="LineNr">16234 </span> <span class="subxComment"># never gets here</span> -<span id="L16235" class="LineNr">16235 </span> -<span id="L16236" class="LineNr">16236 </span><span class="Constant">$populate-mu-function-header:error4</span>: -<span id="L16237" class="LineNr">16237 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> -<span id="L16238" class="LineNr">16238 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16239" class="LineNr">16239 </span> 50/push-eax -<span id="L16240" class="LineNr">16240 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16241" class="LineNr">16241 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16242" class="LineNr">16242 </span> 58/pop-to-eax -<span id="L16243" class="LineNr">16243 </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="L16244" class="LineNr">16244 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16245" class="LineNr">16245 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16246" class="LineNr">16246 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16247" class="LineNr">16247 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' in the header to '_'\n"</span>) -<span id="L16248" class="LineNr">16248 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16249" class="LineNr">16249 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16250" class="LineNr">16250 </span> <span class="subxComment"># never gets here</span> -<span id="L16251" class="LineNr">16251 </span> -<span id="L16252" class="LineNr">16252 </span><span class="Constant">$populate-mu-function-header:error-duplicate</span>: -<span id="L16253" class="LineNr">16253 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16254" class="LineNr">16254 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) -<span id="L16255" class="LineNr">16255 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">" defined more than once\n"</span>) -<span id="L16256" class="LineNr">16256 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16257" class="LineNr">16257 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16258" class="LineNr">16258 </span> <span class="subxComment"># never gets here</span> -<span id="L16259" class="LineNr">16259 </span> -<span id="L16260" class="LineNr">16260 </span><span class="Constant">$populate-mu-function-header:error-break</span>: -<span id="L16261" class="LineNr">16261 </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="L16262" class="LineNr">16262 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16263" class="LineNr">16263 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16264" class="LineNr">16264 </span> <span class="subxComment"># never gets here</span> -<span id="L16265" class="LineNr">16265 </span> -<span id="L16266" class="LineNr">16266 </span><span class="Constant">$populate-mu-function-header:error-loop</span>: -<span id="L16267" class="LineNr">16267 </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="L16268" class="LineNr">16268 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16269" class="LineNr">16269 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16270" class="LineNr">16270 </span> <span class="subxComment"># never gets here</span> -<span id="L16271" class="LineNr">16271 </span> -<span id="L16272" class="LineNr">16272 </span><span class="Constant">$populate-mu-function-header:error-lookup</span>: -<span id="L16273" class="LineNr">16273 </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="L16274" class="LineNr">16274 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16275" class="LineNr">16275 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16276" class="LineNr">16276 </span> <span class="subxComment"># never gets here</span> -<span id="L16277" class="LineNr">16277 </span> -<span id="L16278" class="LineNr">16278 </span><span class="Constant">$populate-mu-function-header:error-addr-output</span>: -<span id="L16279" class="LineNr">16279 </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="L16280" class="LineNr">16280 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16281" class="LineNr">16281 </span> 50/push-eax -<span id="L16282" class="LineNr">16282 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16283" class="LineNr">16283 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16284" class="LineNr">16284 </span> 58/pop-to-eax -<span id="L16285" class="LineNr">16285 </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="L16286" class="LineNr">16286 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16287" class="LineNr">16287 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16288" class="LineNr">16288 </span> <span class="subxComment"># never gets here</span> -<span id="L16289" class="LineNr">16289 </span> -<span id="L16290" class="LineNr">16290 </span><span class="Constant">$populate-mu-function-header:error-nested-addr-inout</span>: -<span id="L16291" class="LineNr">16291 </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="L16292" class="LineNr">16292 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16293" class="LineNr">16293 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16294" class="LineNr">16294 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16295" class="LineNr">16295 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": inout '"</span>) -<span id="L16296" class="LineNr">16296 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16297" class="LineNr">16297 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16298" class="LineNr">16298 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16299" class="LineNr">16299 </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="L16300" class="LineNr">16300 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16301" class="LineNr">16301 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16302" class="LineNr">16302 </span> <span class="subxComment"># never gets here</span> -<span id="L16303" class="LineNr">16303 </span> -<span id="L16304" class="LineNr">16304 </span><span class="subxComment"># scenarios considered:</span> -<span id="L16305" class="LineNr">16305 </span><span class="subxComment"># ✓ fn foo</span> -<span id="L16306" class="LineNr">16306 </span><span class="subxComment"># ✗ fn foo {</span> -<span id="L16307" class="LineNr">16307 </span><span class="subxComment"># ✓ fn foo x</span> -<span id="L16308" class="LineNr">16308 </span><span class="subxComment"># ✓ fn foo x: int</span> -<span id="L16309" class="LineNr">16309 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int</span> -<span id="L16310" class="LineNr">16310 </span><span class="subxComment"># TODO:</span> -<span id="L16311" class="LineNr">16311 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> -<span id="L16312" class="LineNr">16312 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> -<span id="L16313" class="LineNr">16313 </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="L16314" class="LineNr">16314 </span> <span class="subxComment"># pseudocode:</span> -<span id="L16315" class="LineNr">16315 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L16316" class="LineNr">16316 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> -<span id="L16317" class="LineNr">16317 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> -<span id="L16318" class="LineNr">16318 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> -<span id="L16319" class="LineNr">16319 </span> <span class="subxComment"># ## inouts</span> -<span id="L16320" class="LineNr">16320 </span> <span class="subxComment"># while true</span> -<span id="L16321" class="LineNr">16321 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L16322" class="LineNr">16322 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L16323" class="LineNr">16323 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L16324" class="LineNr">16324 </span> <span class="subxComment"># assert(word-slice not in '{' '}')</span> -<span id="L16325" class="LineNr">16325 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L16326" class="LineNr">16326 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L16327" class="LineNr">16327 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> -<span id="L16328" class="LineNr">16328 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L16329" class="LineNr">16329 </span> <span class="subxComment"># ## outputs</span> -<span id="L16330" class="LineNr">16330 </span> <span class="subxComment"># while true</span> -<span id="L16331" class="LineNr">16331 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L16332" class="LineNr">16332 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L16333" class="LineNr">16333 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> -<span id="L16334" class="LineNr">16334 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L16335" class="LineNr">16335 </span> <span class="subxComment"># assert(v->register != null)</span> -<span id="L16336" class="LineNr">16336 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L16337" class="LineNr">16337 </span> <span class="subxComment">#</span> -<span id="L16338" class="LineNr">16338 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16339" class="LineNr">16339 </span> 55/push-ebp -<span id="L16340" class="LineNr">16340 </span> 89/<- %ebp 4/r32/esp -<span id="L16341" class="LineNr">16341 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16342" class="LineNr">16342 </span> 50/push-eax -<span id="L16343" class="LineNr">16343 </span> 51/push-ecx -<span id="L16344" class="LineNr">16344 </span> 52/push-edx -<span id="L16345" class="LineNr">16345 </span> 53/push-ebx -<span id="L16346" class="LineNr">16346 </span> 57/push-edi -<span id="L16347" class="LineNr">16347 </span> <span class="subxComment"># edi = out</span> -<span id="L16348" class="LineNr">16348 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L16349" class="LineNr">16349 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L16350" class="LineNr">16350 </span> 68/push 0/imm32/end -<span id="L16351" class="LineNr">16351 </span> 68/push 0/imm32/start -<span id="L16352" class="LineNr">16352 </span> 89/<- %ecx 4/r32/esp -<span id="L16353" class="LineNr">16353 </span> <span class="subxComment"># var v/ebx: (handle var)</span> -<span id="L16354" class="LineNr">16354 </span> 68/push 0/imm32 -<span id="L16355" class="LineNr">16355 </span> 68/push 0/imm32 -<span id="L16356" class="LineNr">16356 </span> 89/<- %ebx 4/r32/esp -<span id="L16357" class="LineNr">16357 </span> <span class="subxComment"># read function name</span> -<span id="L16358" class="LineNr">16358 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16359" class="LineNr">16359 </span> <span class="subxComment"># error checking</span> -<span id="L16360" class="LineNr">16360 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L16361" class="LineNr">16361 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L16362" class="LineNr">16362 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16363" class="LineNr">16363 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16364" class="LineNr">16364 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L16365" class="LineNr">16365 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L16366" class="LineNr">16366 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16367" class="LineNr">16367 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16368" class="LineNr">16368 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L16369" class="LineNr">16369 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16370" class="LineNr">16370 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16371" class="LineNr">16371 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16372" class="LineNr">16372 </span> <span class="subxComment"># if word-slice already defined, abort</span> -<span id="L16373" class="LineNr">16373 </span> (<a href='mu.subx.html#L16665'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16374" class="LineNr">16374 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16375" class="LineNr">16375 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-duplicate/disp32 -<span id="L16376" class="LineNr">16376 </span> <span class="subxComment">#</span> -<span id="L16377" class="LineNr">16377 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> -<span id="L16378" class="LineNr">16378 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16379" class="LineNr">16379 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-break/disp32 -<span id="L16380" class="LineNr">16380 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> -<span id="L16381" class="LineNr">16381 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16382" class="LineNr">16382 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-loop/disp32 -<span id="L16383" class="LineNr">16383 </span> <span class="subxComment"># save function name</span> -<span id="L16384" class="LineNr">16384 </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="L16385" class="LineNr">16385 </span> <span class="subxComment"># save function inouts</span> -<span id="L16386" class="LineNr">16386 </span> { -<span id="L16387" class="LineNr">16387 </span><span class="Constant">$populate-mu-function-signature:check-for-inout</span>: -<span id="L16388" class="LineNr">16388 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16389" class="LineNr">16389 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16390" class="LineNr">16390 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16391" class="LineNr">16391 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L16392" class="LineNr">16392 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L16393" class="LineNr">16393 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</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> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L16396" class="LineNr">16396 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L16397" class="LineNr">16397 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <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:error1/disp32 -<span id="L16400" class="LineNr">16400 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L16401" class="LineNr">16401 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16402" class="LineNr">16402 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16403" class="LineNr">16403 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16404" class="LineNr">16404 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L16405" class="LineNr">16405 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16406" class="LineNr">16406 </span> (<a href='mu.subx.html#L16973'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) -<span id="L16407" class="LineNr">16407 </span> <span class="subxComment"># if (v->register != null) abort</span> -<span id="L16408" class="LineNr">16408 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L16409" class="LineNr">16409 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16410" class="LineNr">16410 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L16411" class="LineNr">16411 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 -<span id="L16412" class="LineNr">16412 </span> <span class="subxComment"># if function name is not "main"</span> -<span id="L16413" class="LineNr">16413 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> -<span id="L16414" class="LineNr">16414 </span> { -<span id="L16415" class="LineNr">16415 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16416" class="LineNr">16416 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> -<span id="L16417" class="LineNr">16417 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16418" class="LineNr">16418 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16419" class="LineNr">16419 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16420" class="LineNr">16420 </span> (<a href='mu.subx.html#L16611'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L16421" class="LineNr">16421 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16422" class="LineNr">16422 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-nested-addr-inout/disp32 -<span id="L16423" class="LineNr">16423 </span> } -<span id="L16424" class="LineNr">16424 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L16425" class="LineNr">16425 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L16426" class="LineNr">16426 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16427" class="LineNr">16427 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L16428" class="LineNr">16428 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 -<span id="L16429" class="LineNr">16429 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> -<span id="L16430" class="LineNr">16430 </span> <span class="subxComment">#</span> -<span id="L16431" class="LineNr">16431 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L16432" class="LineNr">16432 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> -<span id="L16433" class="LineNr">16433 </span> (<a href='mu.subx.html#L20057'>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="L16434" class="LineNr">16434 </span> <span class="subxComment">#</span> -<span id="L16435" class="LineNr">16435 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L16436" class="LineNr">16436 </span> } -<span id="L16437" class="LineNr">16437 </span> <span class="subxComment"># save function outputs</span> -<span id="L16438" class="LineNr">16438 </span> { -<span id="L16439" class="LineNr">16439 </span><span class="Constant">$populate-mu-function-signature:check-for-out</span>: -<span id="L16440" class="LineNr">16440 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16441" class="LineNr">16441 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16442" class="LineNr">16442 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16443" class="LineNr">16443 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L16444" class="LineNr">16444 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L16445" class="LineNr">16445 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L16446" class="LineNr">16446 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16447" class="LineNr">16447 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16448" class="LineNr">16448 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L16449" class="LineNr">16449 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L16450" class="LineNr">16450 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16451" class="LineNr">16451 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16452" class="LineNr">16452 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L16453" class="LineNr">16453 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16454" class="LineNr">16454 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16455" class="LineNr">16455 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16456" class="LineNr">16456 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L16457" class="LineNr">16457 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16458" class="LineNr">16458 </span> (<a href='mu.subx.html#L16973'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) -<span id="L16459" class="LineNr">16459 </span> <span class="subxComment"># assert(var->register != null)</span> -<span id="L16460" class="LineNr">16460 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L16461" class="LineNr">16461 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16462" class="LineNr">16462 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L16463" class="LineNr">16463 </span> 0f 84/jump-if-= $populate-mu-function-signature:error3/disp32 -<span id="L16464" class="LineNr">16464 </span> <span class="subxComment"># if (var->name != "_") abort</span> -<span id="L16465" class="LineNr">16465 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16466" class="LineNr">16466 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> -<span id="L16467" class="LineNr">16467 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16468" class="LineNr">16468 </span> 0f 84/jump-if-= $populate-mu-function-signature:error4/disp32 -<span id="L16469" class="LineNr">16469 </span> <span class="subxComment"># if function name is not "lookup"</span> -<span id="L16470" class="LineNr">16470 </span> <span class="subxComment"># and v->type is an addr, abort</span> -<span id="L16471" class="LineNr">16471 </span> { -<span id="L16472" class="LineNr">16472 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16473" class="LineNr">16473 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> -<span id="L16474" class="LineNr">16474 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16475" class="LineNr">16475 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16476" class="LineNr">16476 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16477" class="LineNr">16477 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16478" class="LineNr">16478 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L16479" class="LineNr">16479 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16480" class="LineNr">16480 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-addr-output/disp32 -<span id="L16481" class="LineNr">16481 </span> } -<span id="L16482" class="LineNr">16482 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L16483" class="LineNr">16483 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> -<span id="L16484" class="LineNr">16484 </span> (<a href='mu.subx.html#L20057'>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="L16485" class="LineNr">16485 </span> <span class="subxComment">#</span> -<span id="L16486" class="LineNr">16486 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L16487" class="LineNr">16487 </span> } -<span id="L16488" class="LineNr">16488 </span><span class="Constant">$populate-mu-function-signature:done</span>: -<span id="L16489" class="LineNr">16489 </span> (<a href='mu.subx.html#L18422'>check-no-tokens-left</a> *(ebp+8)) -<span id="L16490" class="LineNr">16490 </span><span class="Constant">$populate-mu-function-signature:end</span>: -<span id="L16491" class="LineNr">16491 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L16492" class="LineNr">16492 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L16493" class="LineNr">16493 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16494" class="LineNr">16494 </span> 5f/pop-to-edi -<span id="L16495" class="LineNr">16495 </span> 5b/pop-to-ebx -<span id="L16496" class="LineNr">16496 </span> 5a/pop-to-edx -<span id="L16497" class="LineNr">16497 </span> 59/pop-to-ecx -<span id="L16498" class="LineNr">16498 </span> 58/pop-to-eax -<span id="L16499" class="LineNr">16499 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16500" class="LineNr">16500 </span> 89/<- %esp 5/r32/ebp -<span id="L16501" class="LineNr">16501 </span> 5d/pop-to-ebp -<span id="L16502" class="LineNr">16502 </span> c3/return -<span id="L16503" class="LineNr">16503 </span> -<span id="L16504" class="LineNr">16504 </span><span class="Constant">$populate-mu-function-signature:error1</span>: -<span id="L16505" class="LineNr">16505 </span> <span class="subxComment"># error("function signature not in form 'fn <name> {'")</span> -<span id="L16506" class="LineNr">16506 </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="L16507" class="LineNr">16507 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16508" class="LineNr">16508 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L16509" class="LineNr">16509 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) -<span id="L16510" class="LineNr">16510 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L16511" class="LineNr">16511 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16512" class="LineNr">16512 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16513" class="LineNr">16513 </span> <span class="subxComment"># never gets here</span> -<span id="L16514" class="LineNr">16514 </span> -<span id="L16515" class="LineNr">16515 </span><span class="Constant">$populate-mu-function-signature:error2</span>: -<span id="L16516" class="LineNr">16516 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> -<span id="L16517" class="LineNr">16517 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16518" class="LineNr">16518 </span> 50/push-eax -<span id="L16519" class="LineNr">16519 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16520" class="LineNr">16520 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16521" class="LineNr">16521 </span> 58/pop-to-eax -<span id="L16522" class="LineNr">16522 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function inout '"</span>) -<span id="L16523" class="LineNr">16523 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16524" class="LineNr">16524 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16525" class="LineNr">16525 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot be in a register"</span>) -<span id="L16526" class="LineNr">16526 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16527" class="LineNr">16527 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16528" class="LineNr">16528 </span> <span class="subxComment"># never gets here</span> -<span id="L16529" class="LineNr">16529 </span> -<span id="L16530" class="LineNr">16530 </span><span class="Constant">$populate-mu-function-signature:error3</span>: -<span id="L16531" class="LineNr">16531 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> -<span id="L16532" class="LineNr">16532 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16533" class="LineNr">16533 </span> 50/push-eax -<span id="L16534" class="LineNr">16534 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16535" class="LineNr">16535 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16536" class="LineNr">16536 </span> 58/pop-to-eax -<span id="L16537" class="LineNr">16537 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function output '"</span>) -<span id="L16538" class="LineNr">16538 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16539" class="LineNr">16539 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16540" class="LineNr">16540 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16541" class="LineNr">16541 </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="L16542" class="LineNr">16542 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L16543" class="LineNr">16543 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) -<span id="L16544" class="LineNr">16544 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L16545" class="LineNr">16545 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16546" class="LineNr">16546 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16547" class="LineNr">16547 </span> <span class="subxComment"># never gets here</span> -<span id="L16548" class="LineNr">16548 </span> -<span id="L16549" class="LineNr">16549 </span><span class="Constant">$populate-mu-function-signature:error4</span>: -<span id="L16550" class="LineNr">16550 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> -<span id="L16551" class="LineNr">16551 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16552" class="LineNr">16552 </span> 50/push-eax -<span id="L16553" class="LineNr">16553 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16554" class="LineNr">16554 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16555" class="LineNr">16555 </span> 58/pop-to-eax -<span id="L16556" class="LineNr">16556 </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="L16557" class="LineNr">16557 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16558" class="LineNr">16558 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16559" class="LineNr">16559 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16560" class="LineNr">16560 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' in the header to '_'\n"</span>) -<span id="L16561" class="LineNr">16561 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16562" class="LineNr">16562 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16563" class="LineNr">16563 </span> <span class="subxComment"># never gets here</span> -<span id="L16564" class="LineNr">16564 </span> -<span id="L16565" class="LineNr">16565 </span><span class="Constant">$populate-mu-function-signature:error-duplicate</span>: -<span id="L16566" class="LineNr">16566 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16567" class="LineNr">16567 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x10) %ecx) -<span id="L16568" class="LineNr">16568 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">" defined more than once\n"</span>) -<span id="L16569" class="LineNr">16569 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16570" class="LineNr">16570 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16571" class="LineNr">16571 </span> <span class="subxComment"># never gets here</span> -<span id="L16572" class="LineNr">16572 </span> -<span id="L16573" class="LineNr">16573 </span><span class="Constant">$populate-mu-function-signature:error-break</span>: -<span id="L16574" class="LineNr">16574 </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="L16575" class="LineNr">16575 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16576" class="LineNr">16576 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16577" class="LineNr">16577 </span> <span class="subxComment"># never gets here</span> -<span id="L16578" class="LineNr">16578 </span> -<span id="L16579" class="LineNr">16579 </span><span class="Constant">$populate-mu-function-signature:error-loop</span>: -<span id="L16580" class="LineNr">16580 </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="L16581" class="LineNr">16581 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16582" class="LineNr">16582 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16583" class="LineNr">16583 </span> <span class="subxComment"># never gets here</span> -<span id="L16584" class="LineNr">16584 </span> -<span id="L16585" class="LineNr">16585 </span><span class="Constant">$populate-mu-function-signature:error-addr-output</span>: -<span id="L16586" class="LineNr">16586 </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="L16587" class="LineNr">16587 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16588" class="LineNr">16588 </span> 50/push-eax -<span id="L16589" class="LineNr">16589 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16590" class="LineNr">16590 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16591" class="LineNr">16591 </span> 58/pop-to-eax -<span id="L16592" class="LineNr">16592 </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="L16593" class="LineNr">16593 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16594" class="LineNr">16594 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16595" class="LineNr">16595 </span> <span class="subxComment"># never gets here</span> -<span id="L16596" class="LineNr">16596 </span> -<span id="L16597" class="LineNr">16597 </span><span class="Constant">$populate-mu-function-signature:error-nested-addr-inout</span>: -<span id="L16598" class="LineNr">16598 </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="L16599" class="LineNr">16599 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16600" class="LineNr">16600 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16601" class="LineNr">16601 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16602" class="LineNr">16602 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": inout '"</span>) -<span id="L16603" class="LineNr">16603 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16604" class="LineNr">16604 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16605" class="LineNr">16605 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16606" class="LineNr">16606 </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="L16607" class="LineNr">16607 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16608" class="LineNr">16608 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16609" class="LineNr">16609 </span> <span class="subxComment"># never gets here</span> -<span id="L16610" class="LineNr">16610 </span> -<span id="L16611" class="LineNr">16611 </span><span class="subxFunction">addr-payload-contains-addr?</span>: <span class="subxComment"># v: (addr var) -> result/eax: boolean</span> -<span id="L16612" class="LineNr">16612 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16613" class="LineNr">16613 </span> 55/push-ebp -<span id="L16614" class="LineNr">16614 </span> 89/<- %ebp 4/r32/esp -<span id="L16615" class="LineNr">16615 </span> <span class="subxComment"># var t/eax: (addr type-tree) = v->type</span> -<span id="L16616" class="LineNr">16616 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L16617" class="LineNr">16617 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16618" class="LineNr">16618 </span> <span class="subxComment"># if t->right contains addr, return true</span> -<span id="L16619" class="LineNr">16619 </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="L16620" class="LineNr">16620 </span> (<a href='mu.subx.html#L16628'>type-tree-contains?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L16621" class="LineNr">16621 </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="L16622" class="LineNr">16622 </span><span class="Constant">$addr-payload-contains-addr?:end</span>: -<span id="L16623" class="LineNr">16623 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16624" class="LineNr">16624 </span> 89/<- %esp 5/r32/ebp -<span id="L16625" class="LineNr">16625 </span> 5d/pop-to-ebp -<span id="L16626" class="LineNr">16626 </span> c3/return -<span id="L16627" class="LineNr">16627 </span> -<span id="L16628" class="LineNr">16628 </span><span class="subxFunction">type-tree-contains?</span>: <span class="subxComment"># t: (addr type-tree), n: type-id -> result/eax: boolean</span> -<span id="L16629" class="LineNr">16629 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16630" class="LineNr">16630 </span> 55/push-ebp -<span id="L16631" class="LineNr">16631 </span> 89/<- %ebp 4/r32/esp -<span id="L16632" class="LineNr">16632 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16633" class="LineNr">16633 </span> 51/push-ecx -<span id="L16634" class="LineNr">16634 </span> <span class="subxComment"># if t is null, return false</span> -<span id="L16635" class="LineNr">16635 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L16636" class="LineNr">16636 </span> 3d/compare-eax-and 0/imm32 -<span id="L16637" class="LineNr">16637 </span> 0f 84/jump-if-= $type-tree-contains?:end/disp32 <span class="subxComment"># eax changes type</span> -<span id="L16638" class="LineNr">16638 </span> <span class="subxComment"># if t is an atom, return (t->value == n)</span> -<span id="L16639" class="LineNr">16639 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L16640" class="LineNr">16640 </span> { -<span id="L16641" class="LineNr">16641 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16642" class="LineNr">16642 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L16643" class="LineNr">16643 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> -<span id="L16644" class="LineNr">16644 </span> 0f 94/set-if-= %al -<span id="L16645" class="LineNr">16645 </span> 25/and-eax-with 0xff/imm32 -<span id="L16646" class="LineNr">16646 </span> eb/jump $type-tree-contains?:end/disp8 -<span id="L16647" class="LineNr">16647 </span> } -<span id="L16648" class="LineNr">16648 </span> <span class="subxComment"># if t->left contains n, return true</span> -<span id="L16649" class="LineNr">16649 </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="L16650" class="LineNr">16650 </span> (<a href='mu.subx.html#L16628'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L16651" class="LineNr">16651 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16652" class="LineNr">16652 </span> 75/jump-if-!= $type-tree-contains?:end/disp8 -<span id="L16653" class="LineNr">16653 </span> <span class="subxComment"># otherwise return whether t->right contains n</span> -<span id="L16654" class="LineNr">16654 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L16655" class="LineNr">16655 </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="L16656" class="LineNr">16656 </span> (<a href='mu.subx.html#L16628'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L16657" class="LineNr">16657 </span><span class="Constant">$type-tree-contains?:end</span>: -<span id="L16658" class="LineNr">16658 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16659" class="LineNr">16659 </span> 59/pop-to-ecx -<span id="L16660" class="LineNr">16660 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16661" class="LineNr">16661 </span> 89/<- %esp 5/r32/ebp -<span id="L16662" class="LineNr">16662 </span> 5d/pop-to-ebp -<span id="L16663" class="LineNr">16663 </span> c3/return +<span id="L15729" class="LineNr">15729 </span><span class="subxTest">test-convert-invalid-output-type</span>: +<span id="L15730" class="LineNr">15730 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15731" class="LineNr">15731 </span> 55/push-ebp +<span id="L15732" class="LineNr">15732 </span> 89/<- %ebp 4/r32/esp +<span id="L15733" class="LineNr">15733 </span> <span class="subxComment"># setup</span> +<span id="L15734" class="LineNr">15734 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15735" class="LineNr">15735 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15736" class="LineNr">15736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15737" class="LineNr">15737 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15738" class="LineNr">15738 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15739" class="LineNr">15739 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15740" class="LineNr">15740 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15741" class="LineNr">15741 </span> 68/push 0/imm32 +<span id="L15742" class="LineNr">15742 </span> 68/push 0/imm32 +<span id="L15743" class="LineNr">15743 </span> 89/<- %edx 4/r32/esp +<span id="L15744" class="LineNr">15744 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15745" class="LineNr">15745 </span> <span class="subxComment">#</span> +<span id="L15746" class="LineNr">15746 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15747" class="LineNr">15747 </span> (<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="L15748" class="LineNr">15748 </span> (<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="L15749" class="LineNr">15749 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15750" class="LineNr">15750 </span> <span class="subxComment"># convert</span> +<span id="L15751" class="LineNr">15751 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15752" class="LineNr">15752 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15753" class="LineNr">15753 </span> <span class="subxComment"># restore ed</span> +<span id="L15754" class="LineNr">15754 </span> 89/<- %edx 4/r32/esp +<span id="L15755" class="LineNr">15755 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15756" class="LineNr">15756 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15757" class="Folded">15757 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15763" class="LineNr">15763 </span> <span class="subxComment"># check output</span> +<span id="L15764" class="LineNr">15764 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15729'>test-convert-invalid-output-type</a>: output should be empty"</span>) +<span id="L15765" class="LineNr">15765 </span> (<a href='109stream-equal.subx.html#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#L15729'>test-convert-invalid-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15766" class="LineNr">15766 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15767" class="LineNr">15767 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15729'>test-convert-invalid-output-type</a>: exit status"</span>) +<span id="L15768" class="LineNr">15768 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15769" class="LineNr">15769 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15770" class="LineNr">15770 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15771" class="LineNr">15771 </span> 5d/pop-to-ebp +<span id="L15772" class="LineNr">15772 </span> c3/return +<span id="L15773" class="LineNr">15773 </span> +<span id="L15774" class="LineNr">15774 </span><span class="subxTest">test-convert-int-to-int</span>: +<span id="L15775" class="LineNr">15775 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15776" class="LineNr">15776 </span> 55/push-ebp +<span id="L15777" class="LineNr">15777 </span> 89/<- %ebp 4/r32/esp +<span id="L15778" class="LineNr">15778 </span> <span class="subxComment"># setup</span> +<span id="L15779" class="LineNr">15779 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15780" class="LineNr">15780 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15781" class="LineNr">15781 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15782" class="LineNr">15782 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15783" class="LineNr">15783 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15784" class="LineNr">15784 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15785" class="LineNr">15785 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15786" class="LineNr">15786 </span> 68/push 0/imm32 +<span id="L15787" class="LineNr">15787 </span> 68/push 0/imm32 +<span id="L15788" class="LineNr">15788 </span> 89/<- %edx 4/r32/esp +<span id="L15789" class="LineNr">15789 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15790" class="LineNr">15790 </span> <span class="subxComment">#</span> +<span id="L15791" class="LineNr">15791 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15792" class="LineNr">15792 </span> (<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="L15793" class="LineNr">15793 </span> (<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="L15794" class="LineNr">15794 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15795" class="LineNr">15795 </span> <span class="subxComment"># convert</span> +<span id="L15796" class="LineNr">15796 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15797" class="LineNr">15797 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15798" class="LineNr">15798 </span> <span class="subxComment"># restore ed</span> +<span id="L15799" class="LineNr">15799 </span> 89/<- %edx 4/r32/esp +<span id="L15800" class="LineNr">15800 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15801" class="LineNr">15801 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15802" class="Folded">15802 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15808" class="LineNr">15808 </span> <span class="subxComment"># check output</span> +<span id="L15809" class="LineNr">15809 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15774'>test-convert-int-to-int</a>: output should be empty"</span>) +<span id="L15810" class="LineNr">15810 </span> (<a href='109stream-equal.subx.html#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#L15774'>test-convert-int-to-int</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15811" class="LineNr">15811 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15812" class="LineNr">15812 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15774'>test-convert-int-to-int</a>: exit status"</span>) +<span id="L15813" class="LineNr">15813 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15814" class="LineNr">15814 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15815" class="LineNr">15815 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15816" class="LineNr">15816 </span> 5d/pop-to-ebp +<span id="L15817" class="LineNr">15817 </span> c3/return +<span id="L15818" class="LineNr">15818 </span> +<span id="L15819" class="LineNr">15819 </span><span class="subxTest">test-convert-float-to-float</span>: +<span id="L15820" class="LineNr">15820 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15821" class="LineNr">15821 </span> 55/push-ebp +<span id="L15822" class="LineNr">15822 </span> 89/<- %ebp 4/r32/esp +<span id="L15823" class="LineNr">15823 </span> <span class="subxComment"># setup</span> +<span id="L15824" class="LineNr">15824 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15825" class="LineNr">15825 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15826" class="LineNr">15826 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15827" class="LineNr">15827 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15828" class="LineNr">15828 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15829" class="LineNr">15829 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15830" class="LineNr">15830 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15831" class="LineNr">15831 </span> 68/push 0/imm32 +<span id="L15832" class="LineNr">15832 </span> 68/push 0/imm32 +<span id="L15833" class="LineNr">15833 </span> 89/<- %edx 4/r32/esp +<span id="L15834" class="LineNr">15834 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15835" class="LineNr">15835 </span> <span class="subxComment">#</span> +<span id="L15836" class="LineNr">15836 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15837" class="LineNr">15837 </span> (<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="L15838" class="LineNr">15838 </span> (<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="L15839" class="LineNr">15839 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15840" class="LineNr">15840 </span> <span class="subxComment"># convert</span> +<span id="L15841" class="LineNr">15841 </span> (<a href='mu.subx.html#L509'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15842" class="LineNr">15842 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15843" class="LineNr">15843 </span> <span class="subxComment"># restore ed</span> +<span id="L15844" class="LineNr">15844 </span> 89/<- %edx 4/r32/esp +<span id="L15845" class="LineNr">15845 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15846" class="LineNr">15846 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15847" class="Folded">15847 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15853" class="LineNr">15853 </span> <span class="subxComment"># check output</span> +<span id="L15854" class="LineNr">15854 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15819'>test-convert-float-to-float</a>: output should be empty"</span>) +<span id="L15855" class="LineNr">15855 </span> (<a href='109stream-equal.subx.html#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#L15819'>test-convert-float-to-float</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15856" class="LineNr">15856 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15857" class="LineNr">15857 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15819'>test-convert-float-to-float</a>: exit status"</span>) +<span id="L15858" class="LineNr">15858 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15859" class="LineNr">15859 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15860" class="LineNr">15860 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15861" class="LineNr">15861 </span> 5d/pop-to-ebp +<span id="L15862" class="LineNr">15862 </span> c3/return +<span id="L15863" class="LineNr">15863 </span> +<span id="L15864" class="LineNr">15864 </span><span class="subxComment">#######################################################</span> +<span id="L15865" class="LineNr">15865 </span><span class="subxComment"># Parsing</span> +<span id="L15866" class="LineNr">15866 </span><span class="subxComment">#######################################################</span> +<span id="L15867" class="LineNr">15867 </span> +<span id="L15868" class="LineNr">15868 </span>== data +<span id="L15869" class="LineNr">15869 </span> +<span id="L15870" class="LineNr">15870 </span><span class="subxComment"># Global state added to each var record when parsing a function</span> +<span id="L15871" class="LineNr">15871 </span><span class="SpecialChar">Next-block-index</span>: <span class="subxComment"># (addr int)</span> +<span id="L15872" class="LineNr">15872 </span> 1/imm32 +<span id="L15873" class="LineNr">15873 </span> +<span id="L15874" class="LineNr">15874 </span><span class="SpecialChar">Curr-block-depth</span>: <span class="subxComment"># (addr int)</span> +<span id="L15875" class="LineNr">15875 </span> 1/imm32 +<span id="L15876" class="LineNr">15876 </span> +<span id="L15877" class="LineNr">15877 </span>== code +<span id="L15878" class="LineNr">15878 </span> +<span id="L15879" class="LineNr">15879 </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="L15880" class="LineNr">15880 </span> <span class="subxComment"># pseudocode</span> +<span id="L15881" class="LineNr">15881 </span> <span class="subxComment"># var curr-function: (addr handle function) = Program->functions</span> +<span id="L15882" class="LineNr">15882 </span> <span class="subxComment"># var curr-signature: (addr handle function) = Program->signatures</span> +<span id="L15883" class="LineNr">15883 </span> <span class="subxComment"># var curr-type: (addr handle typeinfo) = Program->types</span> +<span id="L15884" class="LineNr">15884 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L15885" class="LineNr">15885 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L15886" class="LineNr">15886 </span> <span class="subxComment"># while true # line loop</span> +<span id="L15887" class="LineNr">15887 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L15888" class="LineNr">15888 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L15889" class="LineNr">15889 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L15890" class="LineNr">15890 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L15891" class="LineNr">15891 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L15892" class="LineNr">15892 </span> <span class="subxComment"># continue</span> +<span id="L15893" class="LineNr">15893 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L15894" class="LineNr">15894 </span> <span class="subxComment"># continue # end of line</span> +<span id="L15895" class="LineNr">15895 </span> <span class="subxComment"># else if slice-equal?(word-slice, "fn")</span> +<span id="L15896" class="LineNr">15896 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> +<span id="L15897" class="LineNr">15897 </span> <span class="subxComment"># var vars: (stack live-var 256)</span> +<span id="L15898" class="LineNr">15898 </span> <span class="subxComment"># populate-mu-function-header(line, new-function, vars)</span> +<span id="L15899" class="LineNr">15899 </span> <span class="subxComment"># populate-mu-function-body(in, new-function, vars)</span> +<span id="L15900" class="LineNr">15900 </span> <span class="subxComment"># assert(vars->top == 0)</span> +<span id="L15901" class="LineNr">15901 </span> <span class="subxComment"># *curr-function = new-function</span> +<span id="L15902" class="LineNr">15902 </span> <span class="subxComment"># curr-function = &new-function->next</span> +<span id="L15903" class="LineNr">15903 </span> <span class="subxComment"># else if slice-equal?(word-slice, "sig")</span> +<span id="L15904" class="LineNr">15904 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> +<span id="L15905" class="LineNr">15905 </span> <span class="subxComment"># populate-mu-function-signature(line, new-function)</span> +<span id="L15906" class="LineNr">15906 </span> <span class="subxComment"># *curr-signature = new-function</span> +<span id="L15907" class="LineNr">15907 </span> <span class="subxComment"># curr-signature = &new-function->next</span> +<span id="L15908" class="LineNr">15908 </span> <span class="subxComment"># else if slice-equal?(word-slice, "type")</span> +<span id="L15909" class="LineNr">15909 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L15910" class="LineNr">15910 </span> <span class="subxComment"># type-id = pos-or-insert-slice(Type-id, word-slice)</span> +<span id="L15911" class="LineNr">15911 </span> <span class="subxComment"># var new-type: (handle typeinfo) = find-or-create-typeinfo(type-id)</span> +<span id="L15912" class="LineNr">15912 </span> <span class="subxComment"># assert(next-word(line) == "{")</span> +<span id="L15913" class="LineNr">15913 </span> <span class="subxComment"># populate-mu-type(in, new-type)</span> +<span id="L15914" class="LineNr">15914 </span> <span class="subxComment"># else</span> +<span id="L15915" class="LineNr">15915 </span> <span class="subxComment"># abort()</span> +<span id="L15916" class="LineNr">15916 </span> <span class="subxComment">#</span> +<span id="L15917" class="LineNr">15917 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15918" class="LineNr">15918 </span> 55/push-ebp +<span id="L15919" class="LineNr">15919 </span> 89/<- %ebp 4/r32/esp +<span id="L15920" class="LineNr">15920 </span> <span class="subxComment"># var curr-signature: (addr handle function) at *(ebp-4)</span> +<span id="L15921" class="LineNr">15921 </span> 68/push <a href='mu.subx.html#L249'>_Program-signatures</a>/imm32 +<span id="L15922" class="LineNr">15922 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15923" class="LineNr">15923 </span> 50/push-eax +<span id="L15924" class="LineNr">15924 </span> 51/push-ecx +<span id="L15925" class="LineNr">15925 </span> 52/push-edx +<span id="L15926" class="LineNr">15926 </span> 53/push-ebx +<span id="L15927" class="LineNr">15927 </span> 56/push-esi +<span id="L15928" class="LineNr">15928 </span> 57/push-edi +<span id="L15929" class="LineNr">15929 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L15930" class="LineNr">15930 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L15931" class="LineNr">15931 </span> 68/push 0x200/imm32/size +<span id="L15932" class="LineNr">15932 </span> 68/push 0/imm32/read +<span id="L15933" class="LineNr">15933 </span> 68/push 0/imm32/write +<span id="L15934" class="LineNr">15934 </span> 89/<- %ecx 4/r32/esp +<span id="L15935" class="LineNr">15935 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L15936" class="LineNr">15936 </span> 68/push 0/imm32/end +<span id="L15937" class="LineNr">15937 </span> 68/push 0/imm32/start +<span id="L15938" class="LineNr">15938 </span> 89/<- %edx 4/r32/esp +<span id="L15939" class="LineNr">15939 </span> <span class="subxComment"># var curr-function/edi: (addr handle function)</span> +<span id="L15940" class="LineNr">15940 </span> bf/copy-to-edi <a href='mu.subx.html#L241'>_Program-functions</a>/imm32 +<span id="L15941" class="LineNr">15941 </span> <span class="subxComment"># var vars/ebx: (stack live-var 256)</span> +<span id="L15942" class="LineNr">15942 </span> 81 5/subop/subtract %esp 0xc00/imm32 +<span id="L15943" class="LineNr">15943 </span> 68/push 0xc00/imm32/size +<span id="L15944" class="LineNr">15944 </span> 68/push 0/imm32/top +<span id="L15945" class="LineNr">15945 </span> 89/<- %ebx 4/r32/esp +<span id="L15946" class="LineNr">15946 </span> { +<span id="L15947" class="LineNr">15947 </span><span class="Constant">$parse-mu:line-loop</span>: +<span id="L15948" class="LineNr">15948 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L15949" class="LineNr">15949 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L15950" class="LineNr">15950 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L15951" class="LineNr">15951 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L15952" class="LineNr">15952 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L15953" class="Folded">15953 </span><span class="Folded">+-- 6 lines: #? # dump line ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15959" class="LineNr">15959 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> %ecx %edx) +<span id="L15960" class="LineNr">15960 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> +<span id="L15961" class="LineNr">15961 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L15962" class="LineNr">15962 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15963" class="LineNr">15963 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 +<span id="L15964" class="LineNr">15964 </span> <span class="subxComment"># if (*word-slice->start == "#") continue</span> +<span id="L15965" class="LineNr">15965 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> +<span id="L15966" class="LineNr">15966 </span> 8b/-> *edx 0/r32/eax +<span id="L15967" class="LineNr">15967 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L15968" class="LineNr">15968 </span> 25/and-eax-with 0xff/imm32 +<span id="L15969" class="LineNr">15969 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L15970" class="LineNr">15970 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L15971" class="LineNr">15971 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 +<span id="L15972" class="LineNr">15972 </span> <span class="subxComment"># if (slice-equal?(word-slice, "fn")) parse a function</span> +<span id="L15973" class="LineNr">15973 </span> { +<span id="L15974" class="LineNr">15974 </span><span class="Constant">$parse-mu:fn</span>: +<span id="L15975" class="LineNr">15975 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"fn"</span>) <span class="subxComment"># => eax</span> +<span id="L15976" class="LineNr">15976 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15977" class="LineNr">15977 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L15978" class="LineNr">15978 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> +<span id="L15979" class="LineNr">15979 </span> 68/push 0/imm32 +<span id="L15980" class="LineNr">15980 </span> 68/push 0/imm32 +<span id="L15981" class="LineNr">15981 </span> 89/<- %esi 4/r32/esp +<span id="L15982" class="LineNr">15982 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> +<span id="L15983" class="LineNr">15983 </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="L15984" class="LineNr">15984 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> +<span id="L15985" class="LineNr">15985 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L15986" class="LineNr">15986 </span> <span class="subxComment"># initialize vars</span> +<span id="L15987" class="LineNr">15987 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ebx) +<span id="L15988" class="LineNr">15988 </span> <span class="subxComment">#</span> +<span id="L15989" class="LineNr">15989 </span> (<a href='mu.subx.html#L16128'>populate-mu-function-header</a> %ecx %eax %ebx *(ebp+0xc) *(ebp+0x10)) +<span id="L15990" class="LineNr">15990 </span> (<a href='mu.subx.html#L18245'>populate-mu-function-body</a> *(ebp+8) %eax %ebx *(ebp+0xc) *(ebp+0x10)) +<span id="L15991" class="LineNr">15991 </span> <span class="subxComment"># *curr-function = new-function</span> +<span id="L15992" class="LineNr">15992 </span> 8b/-> *esi 0/r32/eax +<span id="L15993" class="LineNr">15993 </span> 89/<- *edi 0/r32/eax +<span id="L15994" class="LineNr">15994 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L15995" class="LineNr">15995 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L15996" class="LineNr">15996 </span> <span class="subxComment"># curr-function = &new-function->next</span> +<span id="L15997" class="LineNr">15997 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> +<span id="L15998" class="LineNr">15998 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L15999" class="LineNr">15999 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> +<span id="L16000" class="LineNr">16000 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> +<span id="L16001" class="LineNr">16001 </span> <span class="subxComment"># reclaim new-function</span> +<span id="L16002" class="LineNr">16002 </span> 81 0/subop/add %esp 8/imm32 +<span id="L16003" class="LineNr">16003 </span> <span class="subxComment">#</span> +<span id="L16004" class="LineNr">16004 </span> e9/jump $parse-mu:line-loop/disp32 +<span id="L16005" class="LineNr">16005 </span> } +<span id="L16006" class="LineNr">16006 </span> <span class="subxComment"># if (slice-equal?(word-slice, "sig")) parse a function signature</span> +<span id="L16007" class="LineNr">16007 </span> <span class="subxComment"># Function signatures are for providing types to SubX functions.</span> +<span id="L16008" class="LineNr">16008 </span> { +<span id="L16009" class="LineNr">16009 </span><span class="Constant">$parse-mu:sig</span>: +<span id="L16010" class="LineNr">16010 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"sig"</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 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16013" class="LineNr">16013 </span> <span class="subxComment"># edi = curr-function</span> +<span id="L16014" class="LineNr">16014 </span> 57/push-edi +<span id="L16015" class="LineNr">16015 </span> 8b/-> *(ebp-4) 7/r32/edi +<span id="L16016" class="LineNr">16016 </span> <span class="subxComment"># var new-function/esi: (handle function)</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/<- %esi 4/r32/esp +<span id="L16020" class="LineNr">16020 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> +<span id="L16021" class="LineNr">16021 </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="L16022" class="LineNr">16022 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> +<span id="L16023" class="LineNr">16023 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L16024" class="LineNr">16024 </span> <span class="subxComment">#</span> +<span id="L16025" class="LineNr">16025 </span> (<a href='mu.subx.html#L16448'>populate-mu-function-signature</a> %ecx %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L16026" class="LineNr">16026 </span> <span class="subxComment"># *curr-signature = new-function</span> +<span id="L16027" class="LineNr">16027 </span> 8b/-> *esi 0/r32/eax +<span id="L16028" class="LineNr">16028 </span> 89/<- *edi 0/r32/eax +<span id="L16029" class="LineNr">16029 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L16030" class="LineNr">16030 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L16031" class="LineNr">16031 </span> <span class="subxComment"># curr-signature = &new-function->next</span> +<span id="L16032" class="LineNr">16032 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> +<span id="L16033" class="LineNr">16033 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L16034" class="LineNr">16034 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> +<span id="L16035" class="LineNr">16035 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> +<span id="L16036" class="LineNr">16036 </span> <span class="subxComment"># reclaim new-function</span> +<span id="L16037" class="LineNr">16037 </span> 81 0/subop/add %esp 8/imm32 +<span id="L16038" class="LineNr">16038 </span> <span class="subxComment"># save curr-function</span> +<span id="L16039" class="LineNr">16039 </span> 89/<- *(ebp-4) 7/r32/edi +<span id="L16040" class="LineNr">16040 </span> <span class="subxComment"># restore edi</span> +<span id="L16041" class="LineNr">16041 </span> 5f/pop-to-edi +<span id="L16042" class="LineNr">16042 </span> <span class="subxComment">#</span> +<span id="L16043" class="LineNr">16043 </span> e9/jump $parse-mu:line-loop/disp32 +<span id="L16044" class="LineNr">16044 </span> } +<span id="L16045" class="LineNr">16045 </span> <span class="subxComment"># if (slice-equal?(word-slice, "type")) parse a type (struct/record) definition</span> +<span id="L16046" class="LineNr">16046 </span> { +<span id="L16047" class="LineNr">16047 </span><span class="Constant">$parse-mu:type</span>: +<span id="L16048" class="LineNr">16048 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"type"</span>) <span class="subxComment"># => eax</span> +<span id="L16049" class="LineNr">16049 </span> 3d/compare-eax-and 0/imm32 +<span id="L16050" class="LineNr">16050 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16051" class="LineNr">16051 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> %ecx %edx) +<span id="L16052" class="LineNr">16052 </span> <span class="subxComment"># var type-id/eax: int</span> +<span id="L16053" class="LineNr">16053 </span> (<a href='mu.subx.html#L17633'>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="L16054" class="LineNr">16054 </span> <span class="subxComment"># spill</span> +<span id="L16055" class="LineNr">16055 </span> 51/push-ecx +<span id="L16056" class="LineNr">16056 </span> <span class="subxComment"># var new-type/ecx: (handle typeinfo)</span> +<span id="L16057" class="LineNr">16057 </span> 68/push 0/imm32 +<span id="L16058" class="LineNr">16058 </span> 68/push 0/imm32 +<span id="L16059" class="LineNr">16059 </span> 89/<- %ecx 4/r32/esp +<span id="L16060" class="LineNr">16060 </span> (<a href='mu.subx.html#L20463'>find-or-create-typeinfo</a> %eax %ecx) +<span id="L16061" class="LineNr">16061 </span> <span class="subxComment">#</span> +<span id="L16062" class="LineNr">16062 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L16063" class="LineNr">16063 </span> <span class="subxComment"># TODO: ensure that 'line' has nothing else but '{'</span> +<span id="L16064" class="LineNr">16064 </span><span class="CommentedCode">#? (dump-typeinfos "=== aaa\n")</span> +<span id="L16065" class="LineNr">16065 </span> (<a href='mu.subx.html#L20697'>populate-mu-type</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L16066" class="LineNr">16066 </span><span class="CommentedCode">#? (dump-typeinfos "=== zzz\n")</span> +<span id="L16067" class="LineNr">16067 </span> <span class="subxComment"># reclaim new-type</span> +<span id="L16068" class="LineNr">16068 </span> 81 0/subop/add %esp 8/imm32 +<span id="L16069" class="LineNr">16069 </span> <span class="subxComment"># restore</span> +<span id="L16070" class="LineNr">16070 </span> 59/pop-to-ecx +<span id="L16071" class="LineNr">16071 </span> e9/jump $parse-mu:line-loop/disp32 +<span id="L16072" class="LineNr">16072 </span> } +<span id="L16073" class="LineNr">16073 </span> <span class="subxComment"># otherwise abort</span> +<span id="L16074" class="LineNr">16074 </span> e9/jump $parse-mu:error1/disp32 +<span id="L16075" class="LineNr">16075 </span> } <span class="subxComment"># end line loop</span> +<span id="L16076" class="LineNr">16076 </span><span class="Constant">$parse-mu:end</span>: +<span id="L16077" class="LineNr">16077 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L16078" class="LineNr">16078 </span> 81 0/subop/add %esp 0x20c/imm32 <span class="subxComment"># line</span> +<span id="L16079" class="LineNr">16079 </span> 81 0/subop/add %esp 0xc08/imm32 <span class="subxComment"># vars</span> +<span id="L16080" class="LineNr">16080 </span> 81 0/subop/add %esp 8/imm32 +<span id="L16081" class="LineNr">16081 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16082" class="LineNr">16082 </span> 5f/pop-to-edi +<span id="L16083" class="LineNr">16083 </span> 5e/pop-to-esi +<span id="L16084" class="LineNr">16084 </span> 5b/pop-to-ebx +<span id="L16085" class="LineNr">16085 </span> 5a/pop-to-edx +<span id="L16086" class="LineNr">16086 </span> 59/pop-to-ecx +<span id="L16087" class="LineNr">16087 </span> 58/pop-to-eax +<span id="L16088" class="LineNr">16088 </span> <span class="subxS1Comment"># . reclaim local</span> +<span id="L16089" class="LineNr">16089 </span> 81 0/subop/add %esp 4/imm32 +<span id="L16090" class="LineNr">16090 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16091" class="LineNr">16091 </span> 89/<- %esp 5/r32/ebp +<span id="L16092" class="LineNr">16092 </span> 5d/pop-to-ebp +<span id="L16093" class="LineNr">16093 </span> c3/return +<span id="L16094" class="LineNr">16094 </span> +<span id="L16095" class="LineNr">16095 </span><span class="Constant">$parse-mu:error1</span>: +<span id="L16096" class="LineNr">16096 </span> <span class="subxComment"># error("unexpected top-level command: " word-slice "\n")</span> +<span id="L16097" class="LineNr">16097 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"unexpected top-level command: "</span>) +<span id="L16098" class="LineNr">16098 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) %edx) +<span id="L16099" class="LineNr">16099 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"\n"</span>) +<span id="L16100" class="LineNr">16100 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L16101" class="LineNr">16101 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L16102" class="LineNr">16102 </span> <span class="subxComment"># never gets here</span> +<span id="L16103" class="LineNr">16103 </span> +<span id="L16104" class="LineNr">16104 </span><span class="Constant">$parse-mu:error2</span>: +<span id="L16105" class="LineNr">16105 </span> <span class="subxComment"># error(vars->top " vars not reclaimed after fn '" new-function->name "'\n")</span> +<span id="L16106" class="LineNr">16106 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) *ebx) +<span id="L16107" class="LineNr">16107 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">" vars not reclaimed after fn '"</span>) +<span id="L16108" class="LineNr">16108 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *eax) <span class="subxComment"># Function-name</span> +<span id="L16109" class="LineNr">16109 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"'\n"</span>) +<span id="L16110" class="LineNr">16110 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L16111" class="LineNr">16111 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L16112" class="LineNr">16112 </span> <span class="subxComment"># never gets here</span> +<span id="L16113" class="LineNr">16113 </span> +<span id="L16114" class="LineNr">16114 </span><span class="subxComment"># scenarios considered:</span> +<span id="L16115" class="LineNr">16115 </span><span class="subxComment"># ✗ fn foo # no block</span> +<span id="L16116" class="LineNr">16116 </span><span class="subxComment"># ✓ fn foo {</span> +<span id="L16117" class="LineNr">16117 </span><span class="subxComment"># ✗ fn foo { {</span> +<span id="L16118" class="LineNr">16118 </span><span class="subxComment"># ✗ fn foo { }</span> +<span id="L16119" class="LineNr">16119 </span><span class="subxComment"># ✗ fn foo { } {</span> +<span id="L16120" class="LineNr">16120 </span><span class="subxComment"># ✗ fn foo x {</span> +<span id="L16121" class="LineNr">16121 </span><span class="subxComment"># ✗ fn foo x: {</span> +<span id="L16122" class="LineNr">16122 </span><span class="subxComment"># ✓ fn foo x: int {</span> +<span id="L16123" class="LineNr">16123 </span><span class="subxComment"># ✓ fn foo x: int {</span> +<span id="L16124" class="LineNr">16124 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int {</span> +<span id="L16125" class="LineNr">16125 </span><span class="subxComment"># TODO:</span> +<span id="L16126" class="LineNr">16126 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> +<span id="L16127" class="LineNr">16127 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> +<span id="L16128" class="LineNr">16128 </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="L16129" class="LineNr">16129 </span> <span class="subxComment"># pseudocode:</span> +<span id="L16130" class="LineNr">16130 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L16131" class="LineNr">16131 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> +<span id="L16132" class="LineNr">16132 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L16133" class="LineNr">16133 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> +<span id="L16134" class="LineNr">16134 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> +<span id="L16135" class="LineNr">16135 </span> <span class="subxComment"># ## inouts</span> +<span id="L16136" class="LineNr">16136 </span> <span class="subxComment"># while true</span> +<span id="L16137" class="LineNr">16137 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L16138" class="LineNr">16138 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L16139" class="LineNr">16139 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> +<span id="L16140" class="LineNr">16140 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L16141" class="LineNr">16141 </span> <span class="subxComment"># assert(word-slice != '}')</span> +<span id="L16142" class="LineNr">16142 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L16143" class="LineNr">16143 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L16144" class="LineNr">16144 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> +<span id="L16145" class="LineNr">16145 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L16146" class="LineNr">16146 </span> <span class="subxComment"># push(vars, {v, false})</span> +<span id="L16147" class="LineNr">16147 </span> <span class="subxComment"># ## outputs</span> +<span id="L16148" class="LineNr">16148 </span> <span class="subxComment"># while true</span> +<span id="L16149" class="LineNr">16149 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L16150" class="LineNr">16150 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L16151" class="LineNr">16151 </span> <span class="subxComment"># if (word-slice == '{') break</span> +<span id="L16152" class="LineNr">16152 </span> <span class="subxComment"># assert(word-slice not in '}' '->')</span> +<span id="L16153" class="LineNr">16153 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L16154" class="LineNr">16154 </span> <span class="subxComment"># assert(v->register != null)</span> +<span id="L16155" class="LineNr">16155 </span> <span class="subxComment"># assert(v->name == "_")</span> +<span id="L16156" class="LineNr">16156 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L16157" class="LineNr">16157 </span> <span class="subxComment"># done:</span> +<span id="L16158" class="LineNr">16158 </span> <span class="subxComment">#</span> +<span id="L16159" class="LineNr">16159 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16160" class="LineNr">16160 </span> 55/push-ebp +<span id="L16161" class="LineNr">16161 </span> 89/<- %ebp 4/r32/esp +<span id="L16162" class="LineNr">16162 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16163" class="LineNr">16163 </span> 50/push-eax +<span id="L16164" class="LineNr">16164 </span> 51/push-ecx +<span id="L16165" class="LineNr">16165 </span> 52/push-edx +<span id="L16166" class="LineNr">16166 </span> 53/push-ebx +<span id="L16167" class="LineNr">16167 </span> 57/push-edi +<span id="L16168" class="LineNr">16168 </span> <span class="subxComment"># edi = out</span> +<span id="L16169" class="LineNr">16169 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L16170" class="LineNr">16170 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L16171" class="LineNr">16171 </span> 68/push 0/imm32/end +<span id="L16172" class="LineNr">16172 </span> 68/push 0/imm32/start +<span id="L16173" class="LineNr">16173 </span> 89/<- %ecx 4/r32/esp +<span id="L16174" class="LineNr">16174 </span> <span class="subxComment"># var v/ebx: (handle var)</span> +<span id="L16175" class="LineNr">16175 </span> 68/push 0/imm32 +<span id="L16176" class="LineNr">16176 </span> 68/push 0/imm32 +<span id="L16177" class="LineNr">16177 </span> 89/<- %ebx 4/r32/esp +<span id="L16178" class="LineNr">16178 </span> <span class="subxComment"># read function name</span> +<span id="L16179" class="LineNr">16179 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16180" class="LineNr">16180 </span> <span class="subxComment"># error checking</span> +<span id="L16181" class="LineNr">16181 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L16182" class="LineNr">16182 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16183" class="LineNr">16183 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16184" class="LineNr">16184 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16185" class="LineNr">16185 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L16186" class="LineNr">16186 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16187" class="LineNr">16187 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16188" class="LineNr">16188 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16189" class="LineNr">16189 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L16190" class="LineNr">16190 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16191" class="LineNr">16191 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16192" class="LineNr">16192 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16193" class="LineNr">16193 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16194" class="LineNr">16194 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16195" class="LineNr">16195 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16196" class="LineNr">16196 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16197" class="LineNr">16197 </span> <span class="subxComment"># if word-slice already defined, abort</span> +<span id="L16198" class="LineNr">16198 </span> (<a href='mu.subx.html#L16800'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16199" class="LineNr">16199 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16200" class="LineNr">16200 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-duplicate/disp32 +<span id="L16201" class="LineNr">16201 </span> <span class="subxComment">#</span> +<span id="L16202" class="LineNr">16202 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> +<span id="L16203" class="LineNr">16203 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16204" class="LineNr">16204 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-break/disp32 +<span id="L16205" class="LineNr">16205 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> +<span id="L16206" class="LineNr">16206 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16207" class="LineNr">16207 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-loop/disp32 +<span id="L16208" class="LineNr">16208 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> +<span id="L16209" class="LineNr">16209 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16210" class="LineNr">16210 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-lookup/disp32 +<span id="L16211" class="LineNr">16211 </span> <span class="subxComment"># save function name</span> +<span id="L16212" class="LineNr">16212 </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="L16213" class="LineNr">16213 </span> <span class="subxComment"># save function inouts</span> +<span id="L16214" class="LineNr">16214 </span> { +<span id="L16215" class="LineNr">16215 </span><span class="Constant">$populate-mu-function-header:check-for-inout</span>: +<span id="L16216" class="LineNr">16216 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16217" class="LineNr">16217 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L16218" class="LineNr">16218 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16219" class="LineNr">16219 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16220" class="LineNr">16220 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16221" class="LineNr">16221 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> +<span id="L16222" class="LineNr">16222 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16223" class="LineNr">16223 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16224" class="LineNr">16224 </span> 0f 85/jump-if-!= $populate-mu-function-header:done/disp32 +<span id="L16225" class="LineNr">16225 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L16226" class="LineNr">16226 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16227" class="LineNr">16227 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16228" class="LineNr">16228 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16229" class="LineNr">16229 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16230" class="LineNr">16230 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16231" class="LineNr">16231 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16232" class="LineNr">16232 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16233" class="LineNr">16233 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L16234" class="LineNr">16234 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16235" class="LineNr">16235 </span> (<a href='mu.subx.html#L17108'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L16236" class="LineNr">16236 </span> <span class="subxComment"># if (v->register != null) abort</span> +<span id="L16237" class="LineNr">16237 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L16238" class="LineNr">16238 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16239" class="LineNr">16239 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16240" class="LineNr">16240 </span> 0f 85/jump-if-!= $populate-mu-function-header:error2/disp32 +<span id="L16241" class="LineNr">16241 </span> <span class="subxComment"># if function name is not "main"</span> +<span id="L16242" class="LineNr">16242 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> +<span id="L16243" class="LineNr">16243 </span> { +<span id="L16244" class="LineNr">16244 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16245" class="LineNr">16245 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> +<span id="L16246" class="LineNr">16246 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16247" class="LineNr">16247 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16248" class="LineNr">16248 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16249" class="LineNr">16249 </span> (<a href='mu.subx.html#L16746'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16250" class="LineNr">16250 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16251" class="LineNr">16251 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-nested-addr-inout/disp32 +<span id="L16252" class="LineNr">16252 </span> } +<span id="L16253" class="LineNr">16253 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> +<span id="L16254" class="LineNr">16254 </span> <span class="subxComment">#</span> +<span id="L16255" class="LineNr">16255 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L16256" class="LineNr">16256 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> +<span id="L16257" class="LineNr">16257 </span> (<a href='mu.subx.html#L20232'>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="L16258" class="LineNr">16258 </span> <span class="subxComment"># push(vars, {v, false})</span> +<span id="L16259" class="LineNr">16259 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *ebx) +<span id="L16260" class="LineNr">16260 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebx+4)) +<span id="L16261" class="LineNr">16261 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> +<span id="L16262" class="LineNr">16262 </span> <span class="subxComment">#</span> +<span id="L16263" class="LineNr">16263 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16264" class="LineNr">16264 </span> } +<span id="L16265" class="LineNr">16265 </span> <span class="subxComment"># save function outputs</span> +<span id="L16266" class="LineNr">16266 </span> { +<span id="L16267" class="LineNr">16267 </span><span class="Constant">$populate-mu-function-header:check-for-out</span>: +<span id="L16268" class="LineNr">16268 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16269" class="LineNr">16269 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L16270" class="LineNr">16270 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16271" class="LineNr">16271 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16272" class="LineNr">16272 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16273" class="LineNr">16273 </span> <span class="subxComment"># if (word-slice == '{') break</span> +<span id="L16274" class="LineNr">16274 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16275" class="LineNr">16275 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16276" class="LineNr">16276 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16277" class="LineNr">16277 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L16278" class="LineNr">16278 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16279" class="LineNr">16279 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16280" class="LineNr">16280 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16281" class="LineNr">16281 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16282" class="LineNr">16282 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16283" class="LineNr">16283 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16284" class="LineNr">16284 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16285" class="LineNr">16285 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L16286" class="LineNr">16286 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16287" class="LineNr">16287 </span> (<a href='mu.subx.html#L17108'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L16288" class="LineNr">16288 </span> <span class="subxComment"># assert(var->register != null)</span> +<span id="L16289" class="LineNr">16289 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L16290" class="LineNr">16290 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16291" class="LineNr">16291 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16292" class="LineNr">16292 </span> 0f 84/jump-if-= $populate-mu-function-header:error3/disp32 +<span id="L16293" class="LineNr">16293 </span> <span class="subxComment"># if (var->name != "_") abort</span> +<span id="L16294" class="LineNr">16294 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16295" class="LineNr">16295 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> +<span id="L16296" class="LineNr">16296 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16297" class="LineNr">16297 </span> 0f 84/jump-if-= $populate-mu-function-header:error4/disp32 +<span id="L16298" class="LineNr">16298 </span> <span class="subxComment"># if v->type is an addr, abort</span> +<span id="L16299" class="LineNr">16299 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16300" class="LineNr">16300 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16301" class="LineNr">16301 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16302" class="LineNr">16302 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16303" class="LineNr">16303 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-addr-output/disp32 +<span id="L16304" class="LineNr">16304 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L16305" class="LineNr">16305 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> +<span id="L16306" class="LineNr">16306 </span> (<a href='mu.subx.html#L20232'>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="L16307" class="LineNr">16307 </span> <span class="subxComment">#</span> +<span id="L16308" class="LineNr">16308 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16309" class="LineNr">16309 </span> } +<span id="L16310" class="LineNr">16310 </span><span class="Constant">$populate-mu-function-header:done</span>: +<span id="L16311" class="LineNr">16311 </span> (<a href='mu.subx.html#L18597'>check-no-tokens-left</a> *(ebp+8)) +<span id="L16312" class="LineNr">16312 </span><span class="Constant">$populate-mu-function-header:end</span>: +<span id="L16313" class="LineNr">16313 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L16314" class="LineNr">16314 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L16315" class="LineNr">16315 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16316" class="LineNr">16316 </span> 5f/pop-to-edi +<span id="L16317" class="LineNr">16317 </span> 5b/pop-to-ebx +<span id="L16318" class="LineNr">16318 </span> 5a/pop-to-edx +<span id="L16319" class="LineNr">16319 </span> 59/pop-to-ecx +<span id="L16320" class="LineNr">16320 </span> 58/pop-to-eax +<span id="L16321" class="LineNr">16321 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16322" class="LineNr">16322 </span> 89/<- %esp 5/r32/ebp +<span id="L16323" class="LineNr">16323 </span> 5d/pop-to-ebp +<span id="L16324" class="LineNr">16324 </span> c3/return +<span id="L16325" class="LineNr">16325 </span> +<span id="L16326" class="LineNr">16326 </span><span class="Constant">$populate-mu-function-header:error1</span>: +<span id="L16327" class="LineNr">16327 </span> <span class="subxComment"># error("function header not in form 'fn <name> {'")</span> +<span id="L16328" class="LineNr">16328 </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="L16329" class="LineNr">16329 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16330" class="LineNr">16330 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L16331" class="LineNr">16331 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) +<span id="L16332" class="LineNr">16332 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L16333" class="LineNr">16333 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16334" class="LineNr">16334 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16335" class="LineNr">16335 </span> <span class="subxComment"># never gets here</span> +<span id="L16336" class="LineNr">16336 </span> +<span id="L16337" class="LineNr">16337 </span><span class="Constant">$populate-mu-function-header:error2</span>: +<span id="L16338" class="LineNr">16338 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> +<span id="L16339" class="LineNr">16339 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16340" class="LineNr">16340 </span> 50/push-eax +<span id="L16341" class="LineNr">16341 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16342" class="LineNr">16342 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16343" class="LineNr">16343 </span> 58/pop-to-eax +<span id="L16344" class="LineNr">16344 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function inout '"</span>) +<span id="L16345" class="LineNr">16345 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16346" class="LineNr">16346 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16347" class="LineNr">16347 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' cannot be in a register"</span>) +<span id="L16348" class="LineNr">16348 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16349" class="LineNr">16349 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16350" class="LineNr">16350 </span> <span class="subxComment"># never gets here</span> +<span id="L16351" class="LineNr">16351 </span> +<span id="L16352" class="LineNr">16352 </span><span class="Constant">$populate-mu-function-header:error3</span>: +<span id="L16353" class="LineNr">16353 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> +<span id="L16354" class="LineNr">16354 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16355" class="LineNr">16355 </span> 50/push-eax +<span id="L16356" class="LineNr">16356 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16357" class="LineNr">16357 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16358" class="LineNr">16358 </span> 58/pop-to-eax +<span id="L16359" class="LineNr">16359 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function output '"</span>) +<span id="L16360" class="LineNr">16360 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16361" class="LineNr">16361 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16362" class="LineNr">16362 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16363" class="LineNr">16363 </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="L16364" class="LineNr">16364 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L16365" class="LineNr">16365 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) +<span id="L16366" class="LineNr">16366 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L16367" class="LineNr">16367 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16368" class="LineNr">16368 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16369" class="LineNr">16369 </span> <span class="subxComment"># never gets here</span> +<span id="L16370" class="LineNr">16370 </span> +<span id="L16371" class="LineNr">16371 </span><span class="Constant">$populate-mu-function-header:error4</span>: +<span id="L16372" class="LineNr">16372 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> +<span id="L16373" class="LineNr">16373 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16374" class="LineNr">16374 </span> 50/push-eax +<span id="L16375" class="LineNr">16375 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16376" class="LineNr">16376 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16377" class="LineNr">16377 </span> 58/pop-to-eax +<span id="L16378" class="LineNr">16378 </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="L16379" class="LineNr">16379 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16380" class="LineNr">16380 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16381" class="LineNr">16381 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16382" class="LineNr">16382 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' in the header to '_'\n"</span>) +<span id="L16383" class="LineNr">16383 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16384" class="LineNr">16384 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16385" class="LineNr">16385 </span> <span class="subxComment"># never gets here</span> +<span id="L16386" class="LineNr">16386 </span> +<span id="L16387" class="LineNr">16387 </span><span class="Constant">$populate-mu-function-header:error-duplicate</span>: +<span id="L16388" class="LineNr">16388 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16389" class="LineNr">16389 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) +<span id="L16390" class="LineNr">16390 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">" defined more than once\n"</span>) +<span id="L16391" class="LineNr">16391 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16392" class="LineNr">16392 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16393" class="LineNr">16393 </span> <span class="subxComment"># never gets here</span> +<span id="L16394" class="LineNr">16394 </span> +<span id="L16395" class="LineNr">16395 </span><span class="Constant">$populate-mu-function-header:error-break</span>: +<span id="L16396" class="LineNr">16396 </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="L16397" class="LineNr">16397 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16398" class="LineNr">16398 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16399" class="LineNr">16399 </span> <span class="subxComment"># never gets here</span> +<span id="L16400" class="LineNr">16400 </span> +<span id="L16401" class="LineNr">16401 </span><span class="Constant">$populate-mu-function-header:error-loop</span>: +<span id="L16402" class="LineNr">16402 </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="L16403" class="LineNr">16403 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16404" class="LineNr">16404 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16405" class="LineNr">16405 </span> <span class="subxComment"># never gets here</span> +<span id="L16406" class="LineNr">16406 </span> +<span id="L16407" class="LineNr">16407 </span><span class="Constant">$populate-mu-function-header:error-lookup</span>: +<span id="L16408" class="LineNr">16408 </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="L16409" class="LineNr">16409 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16410" class="LineNr">16410 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16411" class="LineNr">16411 </span> <span class="subxComment"># never gets here</span> +<span id="L16412" class="LineNr">16412 </span> +<span id="L16413" class="LineNr">16413 </span><span class="Constant">$populate-mu-function-header:error-addr-output</span>: +<span id="L16414" class="LineNr">16414 </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="L16415" class="LineNr">16415 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16416" class="LineNr">16416 </span> 50/push-eax +<span id="L16417" class="LineNr">16417 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16418" class="LineNr">16418 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16419" class="LineNr">16419 </span> 58/pop-to-eax +<span id="L16420" class="LineNr">16420 </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="L16421" class="LineNr">16421 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16422" class="LineNr">16422 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16423" class="LineNr">16423 </span> <span class="subxComment"># never gets here</span> +<span id="L16424" class="LineNr">16424 </span> +<span id="L16425" class="LineNr">16425 </span><span class="Constant">$populate-mu-function-header:error-nested-addr-inout</span>: +<span id="L16426" class="LineNr">16426 </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="L16427" class="LineNr">16427 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16428" class="LineNr">16428 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16429" class="LineNr">16429 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16430" class="LineNr">16430 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": inout '"</span>) +<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 *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16433" class="LineNr">16433 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16434" class="LineNr">16434 </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="L16435" class="LineNr">16435 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16436" class="LineNr">16436 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16437" class="LineNr">16437 </span> <span class="subxComment"># never gets here</span> +<span id="L16438" class="LineNr">16438 </span> +<span id="L16439" class="LineNr">16439 </span><span class="subxComment"># scenarios considered:</span> +<span id="L16440" class="LineNr">16440 </span><span class="subxComment"># ✓ fn foo</span> +<span id="L16441" class="LineNr">16441 </span><span class="subxComment"># ✗ fn foo {</span> +<span id="L16442" class="LineNr">16442 </span><span class="subxComment"># ✓ fn foo x</span> +<span id="L16443" class="LineNr">16443 </span><span class="subxComment"># ✓ fn foo x: int</span> +<span id="L16444" class="LineNr">16444 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int</span> +<span id="L16445" class="LineNr">16445 </span><span class="subxComment"># TODO:</span> +<span id="L16446" class="LineNr">16446 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> +<span id="L16447" class="LineNr">16447 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> +<span id="L16448" class="LineNr">16448 </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="L16449" class="LineNr">16449 </span> <span class="subxComment"># pseudocode:</span> +<span id="L16450" class="LineNr">16450 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L16451" class="LineNr">16451 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> +<span id="L16452" class="LineNr">16452 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> +<span id="L16453" class="LineNr">16453 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> +<span id="L16454" class="LineNr">16454 </span> <span class="subxComment"># ## inouts</span> +<span id="L16455" class="LineNr">16455 </span> <span class="subxComment"># while true</span> +<span id="L16456" class="LineNr">16456 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L16457" class="LineNr">16457 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L16458" class="LineNr">16458 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L16459" class="LineNr">16459 </span> <span class="subxComment"># assert(word-slice not in '{' '}')</span> +<span id="L16460" class="LineNr">16460 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L16461" class="LineNr">16461 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L16462" class="LineNr">16462 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> +<span id="L16463" class="LineNr">16463 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L16464" class="LineNr">16464 </span> <span class="subxComment"># ## outputs</span> +<span id="L16465" class="LineNr">16465 </span> <span class="subxComment"># while true</span> +<span id="L16466" class="LineNr">16466 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L16467" class="LineNr">16467 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L16468" class="LineNr">16468 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> +<span id="L16469" class="LineNr">16469 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L16470" class="LineNr">16470 </span> <span class="subxComment"># assert(v->register != null)</span> +<span id="L16471" class="LineNr">16471 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L16472" class="LineNr">16472 </span> <span class="subxComment">#</span> +<span id="L16473" class="LineNr">16473 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16474" class="LineNr">16474 </span> 55/push-ebp +<span id="L16475" class="LineNr">16475 </span> 89/<- %ebp 4/r32/esp +<span id="L16476" class="LineNr">16476 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16477" class="LineNr">16477 </span> 50/push-eax +<span id="L16478" class="LineNr">16478 </span> 51/push-ecx +<span id="L16479" class="LineNr">16479 </span> 52/push-edx +<span id="L16480" class="LineNr">16480 </span> 53/push-ebx +<span id="L16481" class="LineNr">16481 </span> 57/push-edi +<span id="L16482" class="LineNr">16482 </span> <span class="subxComment"># edi = out</span> +<span id="L16483" class="LineNr">16483 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L16484" class="LineNr">16484 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L16485" class="LineNr">16485 </span> 68/push 0/imm32/end +<span id="L16486" class="LineNr">16486 </span> 68/push 0/imm32/start +<span id="L16487" class="LineNr">16487 </span> 89/<- %ecx 4/r32/esp +<span id="L16488" class="LineNr">16488 </span> <span class="subxComment"># var v/ebx: (handle var)</span> +<span id="L16489" class="LineNr">16489 </span> 68/push 0/imm32 +<span id="L16490" class="LineNr">16490 </span> 68/push 0/imm32 +<span id="L16491" class="LineNr">16491 </span> 89/<- %ebx 4/r32/esp +<span id="L16492" class="LineNr">16492 </span> <span class="subxComment"># read function name</span> +<span id="L16493" class="LineNr">16493 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16494" class="LineNr">16494 </span> <span class="subxComment"># error checking</span> +<span id="L16495" class="LineNr">16495 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L16496" class="LineNr">16496 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16497" class="LineNr">16497 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16498" class="LineNr">16498 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16499" class="LineNr">16499 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L16500" class="LineNr">16500 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16501" class="LineNr">16501 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16502" class="LineNr">16502 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16503" class="LineNr">16503 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16504" class="LineNr">16504 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16505" class="LineNr">16505 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16506" class="LineNr">16506 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16507" class="LineNr">16507 </span> <span class="subxComment"># if word-slice already defined, abort</span> +<span id="L16508" class="LineNr">16508 </span> (<a href='mu.subx.html#L16800'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16509" class="LineNr">16509 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16510" class="LineNr">16510 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-duplicate/disp32 +<span id="L16511" class="LineNr">16511 </span> <span class="subxComment">#</span> +<span id="L16512" class="LineNr">16512 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> +<span id="L16513" class="LineNr">16513 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16514" class="LineNr">16514 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-break/disp32 +<span id="L16515" class="LineNr">16515 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> +<span id="L16516" class="LineNr">16516 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16517" class="LineNr">16517 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-loop/disp32 +<span id="L16518" class="LineNr">16518 </span> <span class="subxComment"># save function name</span> +<span id="L16519" class="LineNr">16519 </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="L16520" class="LineNr">16520 </span> <span class="subxComment"># save function inouts</span> +<span id="L16521" class="LineNr">16521 </span> { +<span id="L16522" class="LineNr">16522 </span><span class="Constant">$populate-mu-function-signature:check-for-inout</span>: +<span id="L16523" class="LineNr">16523 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16524" class="LineNr">16524 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16525" class="LineNr">16525 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16526" class="LineNr">16526 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16527" class="LineNr">16527 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L16528" class="LineNr">16528 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16529" class="LineNr">16529 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16530" class="LineNr">16530 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16531" class="LineNr">16531 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L16532" class="LineNr">16532 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16533" class="LineNr">16533 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16534" class="LineNr">16534 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16535" class="LineNr">16535 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16536" class="LineNr">16536 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16537" class="LineNr">16537 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16538" class="LineNr">16538 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16539" class="LineNr">16539 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L16540" class="LineNr">16540 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16541" class="LineNr">16541 </span> (<a href='mu.subx.html#L17108'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) +<span id="L16542" class="LineNr">16542 </span> <span class="subxComment"># if (v->register != null) abort</span> +<span id="L16543" class="LineNr">16543 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L16544" class="LineNr">16544 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16545" class="LineNr">16545 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16546" class="LineNr">16546 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 +<span id="L16547" class="LineNr">16547 </span> <span class="subxComment"># if function name is not "main"</span> +<span id="L16548" class="LineNr">16548 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> +<span id="L16549" class="LineNr">16549 </span> { +<span id="L16550" class="LineNr">16550 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16551" class="LineNr">16551 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> +<span id="L16552" class="LineNr">16552 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16553" class="LineNr">16553 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16554" class="LineNr">16554 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16555" class="LineNr">16555 </span> (<a href='mu.subx.html#L16746'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16556" class="LineNr">16556 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16557" class="LineNr">16557 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-nested-addr-inout/disp32 +<span id="L16558" class="LineNr">16558 </span> } +<span id="L16559" class="LineNr">16559 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L16560" class="LineNr">16560 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L16561" class="LineNr">16561 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16562" class="LineNr">16562 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16563" class="LineNr">16563 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 +<span id="L16564" class="LineNr">16564 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> +<span id="L16565" class="LineNr">16565 </span> <span class="subxComment">#</span> +<span id="L16566" class="LineNr">16566 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L16567" class="LineNr">16567 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> +<span id="L16568" class="LineNr">16568 </span> (<a href='mu.subx.html#L20232'>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="L16569" class="LineNr">16569 </span> <span class="subxComment">#</span> +<span id="L16570" class="LineNr">16570 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16571" class="LineNr">16571 </span> } +<span id="L16572" class="LineNr">16572 </span> <span class="subxComment"># save function outputs</span> +<span id="L16573" class="LineNr">16573 </span> { +<span id="L16574" class="LineNr">16574 </span><span class="Constant">$populate-mu-function-signature:check-for-out</span>: +<span id="L16575" class="LineNr">16575 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16576" class="LineNr">16576 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16577" class="LineNr">16577 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16578" class="LineNr">16578 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16579" class="LineNr">16579 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L16580" class="LineNr">16580 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16581" class="LineNr">16581 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16582" class="LineNr">16582 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16583" class="LineNr">16583 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L16584" class="LineNr">16584 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16585" class="LineNr">16585 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16586" class="LineNr">16586 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16587" class="LineNr">16587 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16588" class="LineNr">16588 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16589" class="LineNr">16589 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16590" class="LineNr">16590 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16591" class="LineNr">16591 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L16592" class="LineNr">16592 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16593" class="LineNr">16593 </span> (<a href='mu.subx.html#L17108'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) +<span id="L16594" class="LineNr">16594 </span> <span class="subxComment"># assert(var->register != null)</span> +<span id="L16595" class="LineNr">16595 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L16596" class="LineNr">16596 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16597" class="LineNr">16597 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16598" class="LineNr">16598 </span> 0f 84/jump-if-= $populate-mu-function-signature:error3/disp32 +<span id="L16599" class="LineNr">16599 </span> <span class="subxComment"># if (var->name != "_") abort</span> +<span id="L16600" class="LineNr">16600 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16601" class="LineNr">16601 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> +<span id="L16602" class="LineNr">16602 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16603" class="LineNr">16603 </span> 0f 84/jump-if-= $populate-mu-function-signature:error4/disp32 +<span id="L16604" class="LineNr">16604 </span> <span class="subxComment"># if function name is not "lookup"</span> +<span id="L16605" class="LineNr">16605 </span> <span class="subxComment"># and v->type is an addr, abort</span> +<span id="L16606" class="LineNr">16606 </span> { +<span id="L16607" class="LineNr">16607 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16608" class="LineNr">16608 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> +<span id="L16609" class="LineNr">16609 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16610" class="LineNr">16610 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16611" class="LineNr">16611 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16612" class="LineNr">16612 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16613" class="LineNr">16613 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16614" class="LineNr">16614 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16615" class="LineNr">16615 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-addr-output/disp32 +<span id="L16616" class="LineNr">16616 </span> } +<span id="L16617" class="LineNr">16617 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L16618" class="LineNr">16618 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> +<span id="L16619" class="LineNr">16619 </span> (<a href='mu.subx.html#L20232'>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="L16620" class="LineNr">16620 </span> <span class="subxComment">#</span> +<span id="L16621" class="LineNr">16621 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16622" class="LineNr">16622 </span> } +<span id="L16623" class="LineNr">16623 </span><span class="Constant">$populate-mu-function-signature:done</span>: +<span id="L16624" class="LineNr">16624 </span> (<a href='mu.subx.html#L18597'>check-no-tokens-left</a> *(ebp+8)) +<span id="L16625" class="LineNr">16625 </span><span class="Constant">$populate-mu-function-signature:end</span>: +<span id="L16626" class="LineNr">16626 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L16627" class="LineNr">16627 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L16628" class="LineNr">16628 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16629" class="LineNr">16629 </span> 5f/pop-to-edi +<span id="L16630" class="LineNr">16630 </span> 5b/pop-to-ebx +<span id="L16631" class="LineNr">16631 </span> 5a/pop-to-edx +<span id="L16632" class="LineNr">16632 </span> 59/pop-to-ecx +<span id="L16633" class="LineNr">16633 </span> 58/pop-to-eax +<span id="L16634" class="LineNr">16634 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16635" class="LineNr">16635 </span> 89/<- %esp 5/r32/ebp +<span id="L16636" class="LineNr">16636 </span> 5d/pop-to-ebp +<span id="L16637" class="LineNr">16637 </span> c3/return +<span id="L16638" class="LineNr">16638 </span> +<span id="L16639" class="LineNr">16639 </span><span class="Constant">$populate-mu-function-signature:error1</span>: +<span id="L16640" class="LineNr">16640 </span> <span class="subxComment"># error("function signature not in form 'fn <name> {'")</span> +<span id="L16641" class="LineNr">16641 </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="L16642" class="LineNr">16642 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16643" class="LineNr">16643 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L16644" class="LineNr">16644 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) +<span id="L16645" class="LineNr">16645 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L16646" class="LineNr">16646 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16647" class="LineNr">16647 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16648" class="LineNr">16648 </span> <span class="subxComment"># never gets here</span> +<span id="L16649" class="LineNr">16649 </span> +<span id="L16650" class="LineNr">16650 </span><span class="Constant">$populate-mu-function-signature:error2</span>: +<span id="L16651" class="LineNr">16651 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> +<span id="L16652" class="LineNr">16652 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16653" class="LineNr">16653 </span> 50/push-eax +<span id="L16654" class="LineNr">16654 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16655" class="LineNr">16655 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16656" class="LineNr">16656 </span> 58/pop-to-eax +<span id="L16657" class="LineNr">16657 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function inout '"</span>) +<span id="L16658" class="LineNr">16658 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16659" class="LineNr">16659 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16660" class="LineNr">16660 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot be in a register"</span>) +<span id="L16661" class="LineNr">16661 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16662" class="LineNr">16662 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16663" class="LineNr">16663 </span> <span class="subxComment"># never gets here</span> <span id="L16664" class="LineNr">16664 </span> -<span id="L16665" class="LineNr">16665 </span><span class="subxFunction">function-exists?</span>: <span class="subxComment"># s: (addr slice) -> result/eax: boolean</span> -<span id="L16666" class="LineNr">16666 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16667" class="LineNr">16667 </span> 55/push-ebp -<span id="L16668" class="LineNr">16668 </span> 89/<- %ebp 4/r32/esp -<span id="L16669" class="LineNr">16669 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16670" class="LineNr">16670 </span> 51/push-ecx -<span id="L16671" class="LineNr">16671 </span> <span class="subxComment"># var curr/ecx: (addr function) = functions</span> -<span id="L16672" class="LineNr">16672 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L16673" class="LineNr">16673 </span> 89/<- %ecx 0/r32/eax -<span id="L16674" class="LineNr">16674 </span> { -<span id="L16675" class="LineNr">16675 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L16676" class="LineNr">16676 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L16677" class="LineNr">16677 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16678" class="LineNr">16678 </span> <span class="subxComment"># if (curr->name == s) return true</span> -<span id="L16679" class="LineNr">16679 </span> { -<span id="L16680" class="LineNr">16680 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16681" class="LineNr">16681 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> -<span id="L16682" class="LineNr">16682 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16683" class="LineNr">16683 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16684" class="LineNr">16684 </span> b8/copy-to-eax 1/imm32/true -<span id="L16685" class="LineNr">16685 </span> e9/jump $function-exists?:end/disp32 -<span id="L16686" class="LineNr">16686 </span> } -<span id="L16687" class="LineNr">16687 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L16688" class="LineNr">16688 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L16689" class="LineNr">16689 </span> 89/<- %ecx 0/r32/eax -<span id="L16690" class="LineNr">16690 </span> <span class="subxComment">#</span> -<span id="L16691" class="LineNr">16691 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L16692" class="LineNr">16692 </span> } -<span id="L16693" class="LineNr">16693 </span> <span class="subxComment"># var curr/ecx: (addr function) = signatures</span> -<span id="L16694" class="LineNr">16694 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> -<span id="L16695" class="LineNr">16695 </span> 89/<- %ecx 0/r32/eax -<span id="L16696" class="LineNr">16696 </span> { -<span id="L16697" class="LineNr">16697 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L16698" class="LineNr">16698 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L16699" class="LineNr">16699 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16700" class="LineNr">16700 </span> <span class="subxComment"># if (curr->name == s) return true</span> -<span id="L16701" class="LineNr">16701 </span> { -<span id="L16702" class="LineNr">16702 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16703" class="LineNr">16703 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> -<span id="L16704" class="LineNr">16704 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16705" class="LineNr">16705 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16706" class="LineNr">16706 </span> b8/copy-to-eax 1/imm32/true -<span id="L16707" class="LineNr">16707 </span> eb/jump $function-exists?:end/disp8 -<span id="L16708" class="LineNr">16708 </span> } -<span id="L16709" class="LineNr">16709 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L16710" class="LineNr">16710 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L16711" class="LineNr">16711 </span> 89/<- %ecx 0/r32/eax -<span id="L16712" class="LineNr">16712 </span> <span class="subxComment">#</span> -<span id="L16713" class="LineNr">16713 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L16714" class="LineNr">16714 </span> } -<span id="L16715" class="LineNr">16715 </span> <span class="subxComment"># return false</span> -<span id="L16716" class="LineNr">16716 </span> b8/copy-to-eax 0/imm32/false -<span id="L16717" class="LineNr">16717 </span><span class="Constant">$function-exists?:end</span>: -<span id="L16718" class="LineNr">16718 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16719" class="LineNr">16719 </span> 59/pop-to-ecx -<span id="L16720" class="LineNr">16720 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16721" class="LineNr">16721 </span> 89/<- %esp 5/r32/ebp -<span id="L16722" class="LineNr">16722 </span> 5d/pop-to-ebp -<span id="L16723" class="LineNr">16723 </span> c3/return -<span id="L16724" class="LineNr">16724 </span> -<span id="L16725" class="LineNr">16725 </span><span class="subxTest">test-function-header-with-arg</span>: -<span id="L16726" class="LineNr">16726 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16727" class="LineNr">16727 </span> 55/push-ebp -<span id="L16728" class="LineNr">16728 </span> 89/<- %ebp 4/r32/esp -<span id="L16729" class="LineNr">16729 </span> <span class="subxComment"># setup</span> -<span id="L16730" class="LineNr">16730 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L16731" class="LineNr">16731 </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="L16732" class="LineNr">16732 </span> c7 0/subop/copy *_Program-functions 0/imm32 -<span id="L16733" class="LineNr">16733 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 -<span id="L16734" class="LineNr">16734 </span> c7 0/subop/copy *_Program-types 0/imm32 -<span id="L16735" class="LineNr">16735 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 -<span id="L16736" class="LineNr">16736 </span> c7 0/subop/copy *_Program-signatures 0/imm32 -<span id="L16737" class="LineNr">16737 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 -<span id="L16738" class="LineNr">16738 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L16739" class="LineNr">16739 </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="L16740" class="LineNr">16740 </span> <span class="subxComment"># var result/ecx: function</span> -<span id="L16741" class="LineNr">16741 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp -<span id="L16742" class="LineNr">16742 </span> 89/<- %ecx 4/r32/esp -<span id="L16743" class="LineNr">16743 </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="L16744" class="LineNr">16744 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> -<span id="L16745" class="LineNr">16745 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L16746" class="LineNr">16746 </span> 68/push 0xc0/imm32/size -<span id="L16747" class="LineNr">16747 </span> 68/push 0/imm32/top -<span id="L16748" class="LineNr">16748 </span> 89/<- %ebx 4/r32/esp -<span id="L16749" class="LineNr">16749 </span> <span class="subxComment"># convert</span> -<span id="L16750" class="LineNr">16750 </span> (<a href='mu.subx.html#L15993'>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="L16751" class="LineNr">16751 </span> <span class="subxComment"># check result->name</span> -<span id="L16752" class="LineNr">16752 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16753" class="LineNr">16753 </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#L16725'>test-function-header-with-arg</a>/name"</span>) -<span id="L16754" class="LineNr">16754 </span> <span class="subxComment"># var v/edx: (addr var) = result->inouts->value</span> -<span id="L16755" class="LineNr">16755 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L16756" class="LineNr">16756 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16757" class="LineNr">16757 </span> 89/<- %edx 0/r32/eax -<span id="L16758" class="LineNr">16758 </span> <span class="subxComment"># check v->name</span> -<span id="L16759" class="LineNr">16759 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16760" class="LineNr">16760 </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#L16725'>test-function-header-with-arg</a>/inout:0"</span>) -<span id="L16761" class="LineNr">16761 </span> <span class="subxComment"># check v->type</span> -<span id="L16762" class="LineNr">16762 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16763" class="LineNr">16763 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16725'>test-function-header-with-arg</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16764" class="LineNr">16764 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16725'>test-function-header-with-arg</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16765" class="LineNr">16765 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16725'>test-function-header-with-arg</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16766" class="LineNr">16766 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16767" class="LineNr">16767 </span> 89/<- %esp 5/r32/ebp -<span id="L16768" class="LineNr">16768 </span> 5d/pop-to-ebp -<span id="L16769" class="LineNr">16769 </span> c3/return -<span id="L16770" class="LineNr">16770 </span> -<span id="L16771" class="LineNr">16771 </span><span class="subxTest">test-function-header-with-multiple-args</span>: -<span id="L16772" class="LineNr">16772 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16773" class="LineNr">16773 </span> 55/push-ebp -<span id="L16774" class="LineNr">16774 </span> 89/<- %ebp 4/r32/esp -<span id="L16775" class="LineNr">16775 </span> <span class="subxComment"># setup</span> -<span id="L16776" class="LineNr">16776 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L16777" class="LineNr">16777 </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="L16778" class="LineNr">16778 </span> c7 0/subop/copy *_Program-functions 0/imm32 -<span id="L16779" class="LineNr">16779 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 -<span id="L16780" class="LineNr">16780 </span> c7 0/subop/copy *_Program-types 0/imm32 -<span id="L16781" class="LineNr">16781 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 -<span id="L16782" class="LineNr">16782 </span> c7 0/subop/copy *_Program-signatures 0/imm32 -<span id="L16783" class="LineNr">16783 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 -<span id="L16784" class="LineNr">16784 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L16785" class="LineNr">16785 </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="L16786" class="LineNr">16786 </span> <span class="subxComment"># result/ecx: function</span> -<span id="L16787" class="LineNr">16787 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp -<span id="L16788" class="LineNr">16788 </span> 89/<- %ecx 4/r32/esp -<span id="L16789" class="LineNr">16789 </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="L16790" class="LineNr">16790 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> -<span id="L16791" class="LineNr">16791 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L16792" class="LineNr">16792 </span> 68/push 0xc0/imm32/size -<span id="L16793" class="LineNr">16793 </span> 68/push 0/imm32/top -<span id="L16794" class="LineNr">16794 </span> 89/<- %ebx 4/r32/esp -<span id="L16795" class="LineNr">16795 </span> <span class="subxComment"># convert</span> -<span id="L16796" class="LineNr">16796 </span> (<a href='mu.subx.html#L15993'>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="L16797" class="LineNr">16797 </span> <span class="subxComment"># check result->name</span> -<span id="L16798" class="LineNr">16798 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16799" class="LineNr">16799 </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#L16771'>test-function-header-with-multiple-args</a>/name"</span>) -<span id="L16800" class="LineNr">16800 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> -<span id="L16801" class="LineNr">16801 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L16802" class="LineNr">16802 </span> 89/<- %edx 0/r32/eax -<span id="L16803" class="LineNr">16803 </span><span class="Constant">$test-function-header-with-multiple-args:inout0</span>: -<span id="L16804" class="LineNr">16804 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> -<span id="L16805" class="LineNr">16805 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16806" class="LineNr">16806 </span> 89/<- %ebx 0/r32/eax -<span id="L16807" class="LineNr">16807 </span> <span class="subxComment"># check v->name</span> -<span id="L16808" class="LineNr">16808 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16809" class="LineNr">16809 </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#L16771'>test-function-header-with-multiple-args</a>/inout:0"</span>) <span class="subxComment"># Var-name</span> -<span id="L16810" class="LineNr">16810 </span> <span class="subxComment"># check v->type</span> -<span id="L16811" class="LineNr">16811 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16812" class="LineNr">16812 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16771'>test-function-header-with-multiple-args</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16813" class="LineNr">16813 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16771'>test-function-header-with-multiple-args</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16814" class="LineNr">16814 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16771'>test-function-header-with-multiple-args</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16815" class="LineNr">16815 </span><span class="Constant">$test-function-header-with-multiple-args:inout1</span>: -<span id="L16816" class="LineNr">16816 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L16817" class="LineNr">16817 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16818" class="LineNr">16818 </span> 89/<- %edx 0/r32/eax -<span id="L16819" class="LineNr">16819 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L16820" class="LineNr">16820 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16821" class="LineNr">16821 </span> 89/<- %ebx 0/r32/eax -<span id="L16822" class="LineNr">16822 </span> <span class="subxComment"># check v->name</span> -<span id="L16823" class="LineNr">16823 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16824" class="LineNr">16824 </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#L16771'>test-function-header-with-multiple-args</a>/inout:1"</span>) <span class="subxComment"># Var-name</span> -<span id="L16825" class="LineNr">16825 </span> <span class="subxComment"># check v->type</span> -<span id="L16826" class="LineNr">16826 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16827" class="LineNr">16827 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16771'>test-function-header-with-multiple-args</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16828" class="LineNr">16828 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16771'>test-function-header-with-multiple-args</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16829" class="LineNr">16829 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16771'>test-function-header-with-multiple-args</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16830" class="LineNr">16830 </span><span class="Constant">$test-function-header-with-multiple-args:inout2</span>: -<span id="L16831" class="LineNr">16831 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L16832" class="LineNr">16832 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16833" class="LineNr">16833 </span> 89/<- %edx 0/r32/eax -<span id="L16834" class="LineNr">16834 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L16835" class="LineNr">16835 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16836" class="LineNr">16836 </span> 89/<- %ebx 0/r32/eax -<span id="L16837" class="LineNr">16837 </span> <span class="subxComment"># check v->name</span> -<span id="L16838" class="LineNr">16838 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16839" class="LineNr">16839 </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#L16771'>test-function-header-with-multiple-args</a>/inout:2"</span>) <span class="subxComment"># Var-name</span> -<span id="L16840" class="LineNr">16840 </span> <span class="subxComment"># check v->type</span> -<span id="L16841" class="LineNr">16841 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16842" class="LineNr">16842 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16771'>test-function-header-with-multiple-args</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16843" class="LineNr">16843 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16771'>test-function-header-with-multiple-args</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16844" class="LineNr">16844 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16771'>test-function-header-with-multiple-args</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16845" class="LineNr">16845 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16846" class="LineNr">16846 </span> 89/<- %esp 5/r32/ebp -<span id="L16847" class="LineNr">16847 </span> 5d/pop-to-ebp -<span id="L16848" class="LineNr">16848 </span> c3/return -<span id="L16849" class="LineNr">16849 </span> -<span id="L16850" class="LineNr">16850 </span><span class="subxTest">test-function-header-with-multiple-args-and-outputs</span>: -<span id="L16851" class="LineNr">16851 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16852" class="LineNr">16852 </span> 55/push-ebp -<span id="L16853" class="LineNr">16853 </span> 89/<- %ebp 4/r32/esp -<span id="L16854" class="LineNr">16854 </span> <span class="subxComment"># setup</span> -<span id="L16855" class="LineNr">16855 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L16856" class="LineNr">16856 </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="L16857" class="LineNr">16857 </span> c7 0/subop/copy *_Program-functions 0/imm32 -<span id="L16858" class="LineNr">16858 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 -<span id="L16859" class="LineNr">16859 </span> c7 0/subop/copy *_Program-types 0/imm32 -<span id="L16860" class="LineNr">16860 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 -<span id="L16861" class="LineNr">16861 </span> c7 0/subop/copy *_Program-signatures 0/imm32 -<span id="L16862" class="LineNr">16862 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 -<span id="L16863" class="LineNr">16863 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L16864" class="LineNr">16864 </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="L16865" class="LineNr">16865 </span> <span class="subxComment"># result/ecx: function</span> -<span id="L16866" class="LineNr">16866 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp -<span id="L16867" class="LineNr">16867 </span> 89/<- %ecx 4/r32/esp -<span id="L16868" class="LineNr">16868 </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="L16869" class="LineNr">16869 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> -<span id="L16870" class="LineNr">16870 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L16871" class="LineNr">16871 </span> 68/push 0xc0/imm32/size -<span id="L16872" class="LineNr">16872 </span> 68/push 0/imm32/top -<span id="L16873" class="LineNr">16873 </span> 89/<- %ebx 4/r32/esp -<span id="L16874" class="LineNr">16874 </span> <span class="subxComment"># convert</span> -<span id="L16875" class="LineNr">16875 </span> (<a href='mu.subx.html#L15993'>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="L16876" class="LineNr">16876 </span> <span class="subxComment"># check result->name</span> -<span id="L16877" class="LineNr">16877 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16878" class="LineNr">16878 </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#L16850'>test-function-header-with-multiple-args-and-outputs</a>/name"</span>) -<span id="L16879" class="LineNr">16879 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> -<span id="L16880" class="LineNr">16880 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L16881" class="LineNr">16881 </span> 89/<- %edx 0/r32/eax -<span id="L16882" class="LineNr">16882 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout0</span>: -<span id="L16883" class="LineNr">16883 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->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">"a"</span> <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/inout:0"</span>) -<span id="L16889" class="LineNr">16889 </span> <span class="subxComment"># check v->type</span> -<span id="L16890" class="LineNr">16890 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16891" class="LineNr">16891 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16892" class="LineNr">16892 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16893" class="LineNr">16893 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16894" class="LineNr">16894 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout1</span>: -<span id="L16895" class="LineNr">16895 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L16896" class="LineNr">16896 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16897" class="LineNr">16897 </span> 89/<- %edx 0/r32/eax -<span id="L16898" class="LineNr">16898 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L16899" class="LineNr">16899 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16900" class="LineNr">16900 </span> 89/<- %ebx 0/r32/eax -<span id="L16901" class="LineNr">16901 </span> <span class="subxComment"># check v->name</span> -<span id="L16902" class="LineNr">16902 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16903" class="LineNr">16903 </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#L16850'>test-function-header-with-multiple-args-and-outputs</a>/inout:1"</span>) -<span id="L16904" class="LineNr">16904 </span> <span class="subxComment"># check v->type</span> -<span id="L16905" class="LineNr">16905 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16906" class="LineNr">16906 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16907" class="LineNr">16907 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16908" class="LineNr">16908 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16909" class="LineNr">16909 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout2</span>: -<span id="L16910" class="LineNr">16910 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L16911" class="LineNr">16911 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16912" class="LineNr">16912 </span> 89/<- %edx 0/r32/eax -<span id="L16913" class="LineNr">16913 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L16914" class="LineNr">16914 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16915" class="LineNr">16915 </span> 89/<- %ebx 0/r32/eax -<span id="L16916" class="LineNr">16916 </span> <span class="subxComment"># check v->name</span> -<span id="L16917" class="LineNr">16917 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16918" class="LineNr">16918 </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#L16850'>test-function-header-with-multiple-args-and-outputs</a>/inout:2"</span>) -<span id="L16919" class="LineNr">16919 </span> <span class="subxComment"># check v->type</span> -<span id="L16920" class="LineNr">16920 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16921" class="LineNr">16921 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16922" class="LineNr">16922 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16923" class="LineNr">16923 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16924" class="LineNr">16924 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out0</span>: -<span id="L16925" class="LineNr">16925 </span> <span class="subxComment"># var outputs/edx: (addr list var) = lookup(result->outputs)</span> -<span id="L16926" class="LineNr">16926 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L16927" class="LineNr">16927 </span> 89/<- %edx 0/r32/eax -<span id="L16928" class="LineNr">16928 </span> <span class="subxComment"># v = lookup(outputs->value)</span> -<span id="L16929" class="LineNr">16929 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16930" class="LineNr">16930 </span> 89/<- %ebx 0/r32/eax -<span id="L16931" class="LineNr">16931 </span> <span class="subxComment"># check v->name</span> -<span id="L16932" class="LineNr">16932 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16933" class="LineNr">16933 </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#L16850'>test-function-header-with-multiple-args-and-outputs</a>/output:0"</span>) -<span id="L16934" class="LineNr">16934 </span> <span class="subxComment"># check v->register</span> -<span id="L16935" class="LineNr">16935 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16936" class="LineNr">16936 </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#L16850'>test-function-header-with-multiple-args-and-outputs</a>/output:0/register"</span>) -<span id="L16937" class="LineNr">16937 </span> <span class="subxComment"># check v->type</span> -<span id="L16938" class="LineNr">16938 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16939" class="LineNr">16939 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16940" class="LineNr">16940 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16941" class="LineNr">16941 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16942" class="LineNr">16942 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out1</span>: -<span id="L16943" class="LineNr">16943 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> -<span id="L16944" class="LineNr">16944 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16945" class="LineNr">16945 </span> 89/<- %edx 0/r32/eax -<span id="L16946" class="LineNr">16946 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L16947" class="LineNr">16947 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16948" class="LineNr">16948 </span> 89/<- %ebx 0/r32/eax -<span id="L16949" class="LineNr">16949 </span> <span class="subxComment"># check v->name</span> -<span id="L16950" class="LineNr">16950 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16951" class="LineNr">16951 </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#L16850'>test-function-header-with-multiple-args-and-outputs</a>/output:1"</span>) -<span id="L16952" class="LineNr">16952 </span> <span class="subxComment"># check v->register</span> -<span id="L16953" class="LineNr">16953 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16954" class="LineNr">16954 </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#L16850'>test-function-header-with-multiple-args-and-outputs</a>/output:1/register"</span>) -<span id="L16955" class="LineNr">16955 </span> <span class="subxComment"># check v->type</span> -<span id="L16956" class="LineNr">16956 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16957" class="LineNr">16957 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16958" class="LineNr">16958 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16959" class="LineNr">16959 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0c) 0 <span class="Constant">"F - <a href='mu.subx.html#L16850'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16960" class="LineNr">16960 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16961" class="LineNr">16961 </span> 89/<- %esp 5/r32/ebp -<span id="L16962" class="LineNr">16962 </span> 5d/pop-to-ebp -<span id="L16963" class="LineNr">16963 </span> c3/return -<span id="L16964" class="LineNr">16964 </span> -<span id="L16965" class="LineNr">16965 </span><span class="subxComment"># format for variables with types</span> -<span id="L16966" class="LineNr">16966 </span><span class="subxComment"># x: int</span> -<span id="L16967" class="LineNr">16967 </span><span class="subxComment"># x: int,</span> -<span id="L16968" class="LineNr">16968 </span><span class="subxComment"># x/eax: int</span> -<span id="L16969" class="LineNr">16969 </span><span class="subxComment"># x/eax: int,</span> -<span id="L16970" class="LineNr">16970 </span><span class="subxComment"># ignores at most one trailing comma</span> -<span id="L16971" class="LineNr">16971 </span><span class="subxComment"># does not support other, non-register metadata</span> -<span id="L16972" class="LineNr">16972 </span><span class="subxComment"># WARNING: modifies name</span> -<span id="L16973" class="LineNr">16973 </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="L16974" class="LineNr">16974 </span> <span class="subxComment"># pseudocode:</span> -<span id="L16975" class="LineNr">16975 </span> <span class="subxComment"># var s: slice</span> -<span id="L16976" class="LineNr">16976 </span> <span class="subxComment"># if (!slice-ends-with(name, ":"))</span> -<span id="L16977" class="LineNr">16977 </span> <span class="subxComment"># abort</span> -<span id="L16978" class="LineNr">16978 </span> <span class="subxComment"># --name->end to skip ':'</span> -<span id="L16979" class="LineNr">16979 </span> <span class="subxComment"># next-token-from-slice(name->start, name->end, '/', s)</span> -<span id="L16980" class="LineNr">16980 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> -<span id="L16981" class="LineNr">16981 </span> <span class="subxComment"># ## register</span> -<span id="L16982" class="LineNr">16982 </span> <span class="subxComment"># next-token-from-slice(s->end, name->end, '/', s)</span> -<span id="L16983" class="LineNr">16983 </span> <span class="subxComment"># if (!slice-empty?(s))</span> -<span id="L16984" class="LineNr">16984 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> -<span id="L16985" class="LineNr">16985 </span> <span class="subxComment"># ## type</span> -<span id="L16986" class="LineNr">16986 </span> <span class="subxComment"># var type: (handle type-tree) = parse-type(first-line)</span> -<span id="L16987" class="LineNr">16987 </span> <span class="subxComment"># out->type = type</span> -<span id="L16988" class="LineNr">16988 </span> <span class="subxComment">#</span> -<span id="L16989" class="LineNr">16989 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16990" class="LineNr">16990 </span> 55/push-ebp -<span id="L16991" class="LineNr">16991 </span> 89/<- %ebp 4/r32/esp -<span id="L16992" class="LineNr">16992 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16993" class="LineNr">16993 </span> 50/push-eax -<span id="L16994" class="LineNr">16994 </span> 51/push-ecx -<span id="L16995" class="LineNr">16995 </span> 52/push-edx -<span id="L16996" class="LineNr">16996 </span> 53/push-ebx -<span id="L16997" class="LineNr">16997 </span> 56/push-esi -<span id="L16998" class="LineNr">16998 </span> 57/push-edi -<span id="L16999" class="LineNr">16999 </span> <span class="subxComment"># esi = name</span> -<span id="L17000" class="LineNr">17000 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L17001" class="LineNr">17001 </span> <span class="subxComment"># if (!slice-ends-with?(name, ":")) abort</span> -<span id="L17002" class="LineNr">17002 </span> 8b/-> *(esi+4) 1/r32/ecx <span class="subxComment"># Slice-end</span> -<span id="L17003" class="LineNr">17003 </span> 49/decrement-ecx -<span id="L17004" class="LineNr">17004 </span> 8a/copy-byte *ecx 1/r32/CL -<span id="L17005" class="LineNr">17005 </span> 81 4/subop/and %ecx 0xff/imm32 -<span id="L17006" class="LineNr">17006 </span> 81 7/subop/compare %ecx 0x3a/imm32/colon -<span id="L17007" class="LineNr">17007 </span> 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 -<span id="L17008" class="LineNr">17008 </span> <span class="subxComment"># --name->end to skip ':'</span> -<span id="L17009" class="LineNr">17009 </span> ff 1/subop/decrement *(esi+4) -<span id="L17010" class="LineNr">17010 </span> <span class="subxComment"># var s/ecx: slice</span> -<span id="L17011" class="LineNr">17011 </span> 68/push 0/imm32/end -<span id="L17012" class="LineNr">17012 </span> 68/push 0/imm32/start -<span id="L17013" class="LineNr">17013 </span> 89/<- %ecx 4/r32/esp -<span id="L17014" class="LineNr">17014 </span><span class="Constant">$parse-var-with-type:parse-name</span>: -<span id="L17015" class="LineNr">17015 </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="L17016" class="LineNr">17016 </span><span class="Constant">$parse-var-with-type:create-var</span>: -<span id="L17017" class="LineNr">17017 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> -<span id="L17018" class="LineNr">17018 </span> (<a href='mu.subx.html#L19980'>new-var-from-slice</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0x10)) -<span id="L17019" class="LineNr">17019 </span> <span class="subxComment"># save out->register</span> -<span id="L17020" class="LineNr">17020 </span><span class="Constant">$parse-var-with-type:save-register</span>: -<span id="L17021" class="LineNr">17021 </span> <span class="subxS1Comment"># . var out-addr/edi: (addr var) = lookup(*out)</span> -<span id="L17022" class="LineNr">17022 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L17023" class="LineNr">17023 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L17024" class="LineNr">17024 </span> 89/<- %edi 0/r32/eax -<span id="L17025" class="LineNr">17025 </span> <span class="subxS1Comment"># . s = next-token(...)</span> -<span id="L17026" class="LineNr">17026 </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="L17027" class="LineNr">17027 </span> <span class="subxS1Comment"># . if (!slice-empty?(s)) out->register = slice-to-string(s)</span> -<span id="L17028" class="LineNr">17028 </span> { -<span id="L17029" class="LineNr">17029 </span><span class="Constant">$parse-var-with-type:write-register</span>: -<span id="L17030" class="LineNr">17030 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L17031" class="LineNr">17031 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17032" class="LineNr">17032 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17033" class="LineNr">17033 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> -<span id="L17034" class="LineNr">17034 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Var-register</span> -<span id="L17035" class="LineNr">17035 </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="L17036" class="LineNr">17036 </span> } -<span id="L17037" class="LineNr">17037 </span><span class="Constant">$parse-var-with-type:save-type</span>: -<span id="L17038" class="LineNr">17038 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L17039" class="LineNr">17039 </span> (<a href='mu.subx.html#L17127'>parse-type</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L17040" class="LineNr">17040 </span><span class="Constant">$parse-var-with-type:check-register</span>: -<span id="L17041" class="LineNr">17041 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17042" class="LineNr">17042 </span> 3d/compare-eax-and 0/imm32 -<span id="L17043" class="LineNr">17043 </span> 74/jump-if-= $parse-var-with-type:end/disp8 -<span id="L17044" class="LineNr">17044 </span> (<a href='mu.subx.html#L17112'>float-register?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L17045" class="LineNr">17045 </span> { -<span id="L17046" class="LineNr">17046 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17047" class="LineNr">17047 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17048" class="LineNr">17048 </span> <span class="subxComment"># var is in a float register; ensure type is float</span> -<span id="L17049" class="LineNr">17049 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17050" class="LineNr">17050 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => eax</span> -<span id="L17051" class="LineNr">17051 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17052" class="LineNr">17052 </span> 0f 84/jump-if-= $parse-var-with-type:error-non-float-in-floating-point-register/disp32 -<span id="L17053" class="LineNr">17053 </span> eb/jump $parse-var-with-type:end/disp8 -<span id="L17054" class="LineNr">17054 </span> } -<span id="L17055" class="LineNr">17055 </span> <span class="subxComment"># var is not in a float register; ensure type is not float</span> -<span id="L17056" class="LineNr">17056 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17057" class="LineNr">17057 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => eax</span> -<span id="L17058" class="LineNr">17058 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17059" class="LineNr">17059 </span> 0f 85/jump-if-!= $parse-var-with-type:error-float-in-integer-register/disp32 -<span id="L17060" class="LineNr">17060 </span><span class="Constant">$parse-var-with-type:end</span>: -<span id="L17061" class="LineNr">17061 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17062" class="LineNr">17062 </span> 81 0/subop/add %esp 8/imm32 -<span id="L17063" class="LineNr">17063 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17064" class="LineNr">17064 </span> 5f/pop-to-edi -<span id="L17065" class="LineNr">17065 </span> 5e/pop-to-esi -<span id="L17066" class="LineNr">17066 </span> 5b/pop-to-ebx -<span id="L17067" class="LineNr">17067 </span> 5a/pop-to-edx -<span id="L17068" class="LineNr">17068 </span> 59/pop-to-ecx -<span id="L17069" class="LineNr">17069 </span> 58/pop-to-eax -<span id="L17070" class="LineNr">17070 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17071" class="LineNr">17071 </span> 89/<- %esp 5/r32/ebp -<span id="L17072" class="LineNr">17072 </span> 5d/pop-to-ebp -<span id="L17073" class="LineNr">17073 </span> c3/return -<span id="L17074" class="LineNr">17074 </span> -<span id="L17075" class="LineNr">17075 </span><span class="Constant">$parse-var-with-type:abort</span>: -<span id="L17076" class="LineNr">17076 </span> <span class="subxComment"># error("fn " fn ": var should have form 'name: type' in '" line "'\n")</span> -<span id="L17077" class="LineNr">17077 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17078" class="LineNr">17078 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) -<span id="L17079" class="LineNr">17079 </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="L17080" class="LineNr">17080 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17081" class="LineNr">17081 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L17082" class="LineNr">17082 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) -<span id="L17083" class="LineNr">17083 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L17084" class="LineNr">17084 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17085" class="LineNr">17085 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17086" class="LineNr">17086 </span> <span class="subxComment"># never gets here</span> -<span id="L17087" class="LineNr">17087 </span> -<span id="L17088" class="LineNr">17088 </span><span class="Constant">$parse-var-with-type:error-float-in-integer-register</span>: -<span id="L17089" class="LineNr">17089 </span> <span class="subxComment"># error("fn " fn ": float var '" var "' should be in a floating-point register\n")</span> -<span id="L17090" class="LineNr">17090 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17091" class="LineNr">17091 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) -<span id="L17092" class="LineNr">17092 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": float var '"</span>) -<span id="L17093" class="LineNr">17093 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17094" class="LineNr">17094 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17095" class="LineNr">17095 </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="L17096" class="LineNr">17096 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17097" class="LineNr">17097 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17098" class="LineNr">17098 </span> <span class="subxComment"># never gets here</span> +<span id="L16665" class="LineNr">16665 </span><span class="Constant">$populate-mu-function-signature:error3</span>: +<span id="L16666" class="LineNr">16666 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> +<span id="L16667" class="LineNr">16667 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16668" class="LineNr">16668 </span> 50/push-eax +<span id="L16669" class="LineNr">16669 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16670" class="LineNr">16670 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16671" class="LineNr">16671 </span> 58/pop-to-eax +<span id="L16672" class="LineNr">16672 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function output '"</span>) +<span id="L16673" class="LineNr">16673 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16674" class="LineNr">16674 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16675" class="LineNr">16675 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16676" class="LineNr">16676 </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="L16677" class="LineNr">16677 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L16678" class="LineNr">16678 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) +<span id="L16679" class="LineNr">16679 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L16680" class="LineNr">16680 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16681" class="LineNr">16681 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16682" class="LineNr">16682 </span> <span class="subxComment"># never gets here</span> +<span id="L16683" class="LineNr">16683 </span> +<span id="L16684" class="LineNr">16684 </span><span class="Constant">$populate-mu-function-signature:error4</span>: +<span id="L16685" class="LineNr">16685 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> +<span id="L16686" class="LineNr">16686 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16687" class="LineNr">16687 </span> 50/push-eax +<span id="L16688" class="LineNr">16688 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16689" class="LineNr">16689 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16690" class="LineNr">16690 </span> 58/pop-to-eax +<span id="L16691" class="LineNr">16691 </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="L16692" class="LineNr">16692 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16693" class="LineNr">16693 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16694" class="LineNr">16694 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16695" class="LineNr">16695 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' in the header to '_'\n"</span>) +<span id="L16696" class="LineNr">16696 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16697" class="LineNr">16697 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16698" class="LineNr">16698 </span> <span class="subxComment"># never gets here</span> +<span id="L16699" class="LineNr">16699 </span> +<span id="L16700" class="LineNr">16700 </span><span class="Constant">$populate-mu-function-signature:error-duplicate</span>: +<span id="L16701" class="LineNr">16701 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16702" class="LineNr">16702 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x10) %ecx) +<span id="L16703" class="LineNr">16703 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">" defined more than once\n"</span>) +<span id="L16704" class="LineNr">16704 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16705" class="LineNr">16705 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16706" class="LineNr">16706 </span> <span class="subxComment"># never gets here</span> +<span id="L16707" class="LineNr">16707 </span> +<span id="L16708" class="LineNr">16708 </span><span class="Constant">$populate-mu-function-signature:error-break</span>: +<span id="L16709" class="LineNr">16709 </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="L16710" class="LineNr">16710 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16711" class="LineNr">16711 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16712" class="LineNr">16712 </span> <span class="subxComment"># never gets here</span> +<span id="L16713" class="LineNr">16713 </span> +<span id="L16714" class="LineNr">16714 </span><span class="Constant">$populate-mu-function-signature:error-loop</span>: +<span id="L16715" class="LineNr">16715 </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="L16716" class="LineNr">16716 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16717" class="LineNr">16717 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16718" class="LineNr">16718 </span> <span class="subxComment"># never gets here</span> +<span id="L16719" class="LineNr">16719 </span> +<span id="L16720" class="LineNr">16720 </span><span class="Constant">$populate-mu-function-signature:error-addr-output</span>: +<span id="L16721" class="LineNr">16721 </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="L16722" class="LineNr">16722 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16723" class="LineNr">16723 </span> 50/push-eax +<span id="L16724" class="LineNr">16724 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16725" class="LineNr">16725 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16726" class="LineNr">16726 </span> 58/pop-to-eax +<span id="L16727" class="LineNr">16727 </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="L16728" class="LineNr">16728 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16729" class="LineNr">16729 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16730" class="LineNr">16730 </span> <span class="subxComment"># never gets here</span> +<span id="L16731" class="LineNr">16731 </span> +<span id="L16732" class="LineNr">16732 </span><span class="Constant">$populate-mu-function-signature:error-nested-addr-inout</span>: +<span id="L16733" class="LineNr">16733 </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="L16734" class="LineNr">16734 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16735" class="LineNr">16735 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16736" class="LineNr">16736 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16737" class="LineNr">16737 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": inout '"</span>) +<span id="L16738" class="LineNr">16738 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16739" class="LineNr">16739 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16740" class="LineNr">16740 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16741" class="LineNr">16741 </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="L16742" class="LineNr">16742 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16743" class="LineNr">16743 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16744" class="LineNr">16744 </span> <span class="subxComment"># never gets here</span> +<span id="L16745" class="LineNr">16745 </span> +<span id="L16746" class="LineNr">16746 </span><span class="subxFunction">addr-payload-contains-addr?</span>: <span class="subxComment"># v: (addr var) -> result/eax: boolean</span> +<span id="L16747" class="LineNr">16747 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16748" class="LineNr">16748 </span> 55/push-ebp +<span id="L16749" class="LineNr">16749 </span> 89/<- %ebp 4/r32/esp +<span id="L16750" class="LineNr">16750 </span> <span class="subxComment"># var t/eax: (addr type-tree) = v->type</span> +<span id="L16751" class="LineNr">16751 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L16752" class="LineNr">16752 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16753" class="LineNr">16753 </span> <span class="subxComment"># if t->right contains addr, return true</span> +<span id="L16754" class="LineNr">16754 </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="L16755" class="LineNr">16755 </span> (<a href='mu.subx.html#L16763'>type-tree-contains?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L16756" class="LineNr">16756 </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="L16757" class="LineNr">16757 </span><span class="Constant">$addr-payload-contains-addr?:end</span>: +<span id="L16758" class="LineNr">16758 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16759" class="LineNr">16759 </span> 89/<- %esp 5/r32/ebp +<span id="L16760" class="LineNr">16760 </span> 5d/pop-to-ebp +<span id="L16761" class="LineNr">16761 </span> c3/return +<span id="L16762" class="LineNr">16762 </span> +<span id="L16763" class="LineNr">16763 </span><span class="subxFunction">type-tree-contains?</span>: <span class="subxComment"># t: (addr type-tree), n: type-id -> result/eax: boolean</span> +<span id="L16764" class="LineNr">16764 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16765" class="LineNr">16765 </span> 55/push-ebp +<span id="L16766" class="LineNr">16766 </span> 89/<- %ebp 4/r32/esp +<span id="L16767" class="LineNr">16767 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16768" class="LineNr">16768 </span> 51/push-ecx +<span id="L16769" class="LineNr">16769 </span> <span class="subxComment"># if t is null, return false</span> +<span id="L16770" class="LineNr">16770 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L16771" class="LineNr">16771 </span> 3d/compare-eax-and 0/imm32 +<span id="L16772" class="LineNr">16772 </span> 0f 84/jump-if-= $type-tree-contains?:end/disp32 <span class="subxComment"># eax changes type</span> +<span id="L16773" class="LineNr">16773 </span> <span class="subxComment"># if t is an atom, return (t->value == n)</span> +<span id="L16774" class="LineNr">16774 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L16775" class="LineNr">16775 </span> { +<span id="L16776" class="LineNr">16776 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16777" class="LineNr">16777 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L16778" class="LineNr">16778 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> +<span id="L16779" class="LineNr">16779 </span> 0f 94/set-if-= %al +<span id="L16780" class="LineNr">16780 </span> 25/and-eax-with 0xff/imm32 +<span id="L16781" class="LineNr">16781 </span> eb/jump $type-tree-contains?:end/disp8 +<span id="L16782" class="LineNr">16782 </span> } +<span id="L16783" class="LineNr">16783 </span> <span class="subxComment"># if t->left contains n, return true</span> +<span id="L16784" class="LineNr">16784 </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="L16785" class="LineNr">16785 </span> (<a href='mu.subx.html#L16763'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L16786" class="LineNr">16786 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16787" class="LineNr">16787 </span> 75/jump-if-!= $type-tree-contains?:end/disp8 +<span id="L16788" class="LineNr">16788 </span> <span class="subxComment"># otherwise return whether t->right contains n</span> +<span id="L16789" class="LineNr">16789 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L16790" class="LineNr">16790 </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="L16791" class="LineNr">16791 </span> (<a href='mu.subx.html#L16763'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L16792" class="LineNr">16792 </span><span class="Constant">$type-tree-contains?:end</span>: +<span id="L16793" class="LineNr">16793 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16794" class="LineNr">16794 </span> 59/pop-to-ecx +<span id="L16795" class="LineNr">16795 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16796" class="LineNr">16796 </span> 89/<- %esp 5/r32/ebp +<span id="L16797" class="LineNr">16797 </span> 5d/pop-to-ebp +<span id="L16798" class="LineNr">16798 </span> c3/return +<span id="L16799" class="LineNr">16799 </span> +<span id="L16800" class="LineNr">16800 </span><span class="subxFunction">function-exists?</span>: <span class="subxComment"># s: (addr slice) -> result/eax: boolean</span> +<span id="L16801" class="LineNr">16801 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16802" class="LineNr">16802 </span> 55/push-ebp +<span id="L16803" class="LineNr">16803 </span> 89/<- %ebp 4/r32/esp +<span id="L16804" class="LineNr">16804 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16805" class="LineNr">16805 </span> 51/push-ecx +<span id="L16806" class="LineNr">16806 </span> <span class="subxComment"># var curr/ecx: (addr function) = functions</span> +<span id="L16807" class="LineNr">16807 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L16808" class="LineNr">16808 </span> 89/<- %ecx 0/r32/eax +<span id="L16809" class="LineNr">16809 </span> { +<span id="L16810" class="LineNr">16810 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L16811" class="LineNr">16811 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L16812" class="LineNr">16812 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16813" class="LineNr">16813 </span> <span class="subxComment"># if (curr->name == s) return true</span> +<span id="L16814" class="LineNr">16814 </span> { +<span id="L16815" class="LineNr">16815 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16816" class="LineNr">16816 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> +<span id="L16817" class="LineNr">16817 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16818" class="LineNr">16818 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16819" class="LineNr">16819 </span> b8/copy-to-eax 1/imm32/true +<span id="L16820" class="LineNr">16820 </span> e9/jump $function-exists?:end/disp32 +<span id="L16821" class="LineNr">16821 </span> } +<span id="L16822" class="LineNr">16822 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L16823" class="LineNr">16823 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L16824" class="LineNr">16824 </span> 89/<- %ecx 0/r32/eax +<span id="L16825" class="LineNr">16825 </span> <span class="subxComment">#</span> +<span id="L16826" class="LineNr">16826 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L16827" class="LineNr">16827 </span> } +<span id="L16828" class="LineNr">16828 </span> <span class="subxComment"># var curr/ecx: (addr function) = signatures</span> +<span id="L16829" class="LineNr">16829 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> +<span id="L16830" class="LineNr">16830 </span> 89/<- %ecx 0/r32/eax +<span id="L16831" class="LineNr">16831 </span> { +<span id="L16832" class="LineNr">16832 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L16833" class="LineNr">16833 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L16834" class="LineNr">16834 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16835" class="LineNr">16835 </span> <span class="subxComment"># if (curr->name == s) return true</span> +<span id="L16836" class="LineNr">16836 </span> { +<span id="L16837" class="LineNr">16837 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16838" class="LineNr">16838 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> +<span id="L16839" class="LineNr">16839 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16840" class="LineNr">16840 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16841" class="LineNr">16841 </span> b8/copy-to-eax 1/imm32/true +<span id="L16842" class="LineNr">16842 </span> eb/jump $function-exists?:end/disp8 +<span id="L16843" class="LineNr">16843 </span> } +<span id="L16844" class="LineNr">16844 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L16845" class="LineNr">16845 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L16846" class="LineNr">16846 </span> 89/<- %ecx 0/r32/eax +<span id="L16847" class="LineNr">16847 </span> <span class="subxComment">#</span> +<span id="L16848" class="LineNr">16848 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L16849" class="LineNr">16849 </span> } +<span id="L16850" class="LineNr">16850 </span> <span class="subxComment"># return false</span> +<span id="L16851" class="LineNr">16851 </span> b8/copy-to-eax 0/imm32/false +<span id="L16852" class="LineNr">16852 </span><span class="Constant">$function-exists?:end</span>: +<span id="L16853" class="LineNr">16853 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16854" class="LineNr">16854 </span> 59/pop-to-ecx +<span id="L16855" class="LineNr">16855 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16856" class="LineNr">16856 </span> 89/<- %esp 5/r32/ebp +<span id="L16857" class="LineNr">16857 </span> 5d/pop-to-ebp +<span id="L16858" class="LineNr">16858 </span> c3/return +<span id="L16859" class="LineNr">16859 </span> +<span id="L16860" class="LineNr">16860 </span><span class="subxTest">test-function-header-with-arg</span>: +<span id="L16861" class="LineNr">16861 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16862" class="LineNr">16862 </span> 55/push-ebp +<span id="L16863" class="LineNr">16863 </span> 89/<- %ebp 4/r32/esp +<span id="L16864" class="LineNr">16864 </span> <span class="subxComment"># setup</span> +<span id="L16865" class="LineNr">16865 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L16866" class="LineNr">16866 </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="L16867" class="LineNr">16867 </span> c7 0/subop/copy *_Program-functions 0/imm32 +<span id="L16868" class="LineNr">16868 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 +<span id="L16869" class="LineNr">16869 </span> c7 0/subop/copy *_Program-types 0/imm32 +<span id="L16870" class="LineNr">16870 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 +<span id="L16871" class="LineNr">16871 </span> c7 0/subop/copy *_Program-signatures 0/imm32 +<span id="L16872" class="LineNr">16872 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 +<span id="L16873" class="LineNr">16873 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L16874" class="LineNr">16874 </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="L16875" class="LineNr">16875 </span> <span class="subxComment"># var result/ecx: function</span> +<span id="L16876" class="LineNr">16876 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp +<span id="L16877" class="LineNr">16877 </span> 89/<- %ecx 4/r32/esp +<span id="L16878" class="LineNr">16878 </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="L16879" class="LineNr">16879 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> +<span id="L16880" class="LineNr">16880 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L16881" class="LineNr">16881 </span> 68/push 0xc0/imm32/size +<span id="L16882" class="LineNr">16882 </span> 68/push 0/imm32/top +<span id="L16883" class="LineNr">16883 </span> 89/<- %ebx 4/r32/esp +<span id="L16884" class="LineNr">16884 </span> <span class="subxComment"># convert</span> +<span id="L16885" class="LineNr">16885 </span> (<a href='mu.subx.html#L16128'>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="L16886" class="LineNr">16886 </span> <span class="subxComment"># check result->name</span> +<span id="L16887" class="LineNr">16887 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-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">"foo"</span> <span class="Constant">"F - <a href='mu.subx.html#L16860'>test-function-header-with-arg</a>/name"</span>) +<span id="L16889" class="LineNr">16889 </span> <span class="subxComment"># var v/edx: (addr var) = result->inouts->value</span> +<span id="L16890" class="LineNr">16890 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L16891" class="LineNr">16891 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16892" class="LineNr">16892 </span> 89/<- %edx 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> *edx *(edx+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">"n"</span> <span class="Constant">"F - <a href='mu.subx.html#L16860'>test-function-header-with-arg</a>/inout:0"</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> *(edx+8) *(edx+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#L16860'>test-function-header-with-arg</a>/inout:0/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#L16860'>test-function-header-with-arg</a>/inout:0/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#L16860'>test-function-header-with-arg</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16901" class="LineNr">16901 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16902" class="LineNr">16902 </span> 89/<- %esp 5/r32/ebp +<span id="L16903" class="LineNr">16903 </span> 5d/pop-to-ebp +<span id="L16904" class="LineNr">16904 </span> c3/return +<span id="L16905" class="LineNr">16905 </span> +<span id="L16906" class="LineNr">16906 </span><span class="subxTest">test-function-header-with-multiple-args</span>: +<span id="L16907" class="LineNr">16907 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16908" class="LineNr">16908 </span> 55/push-ebp +<span id="L16909" class="LineNr">16909 </span> 89/<- %ebp 4/r32/esp +<span id="L16910" class="LineNr">16910 </span> <span class="subxComment"># setup</span> +<span id="L16911" class="LineNr">16911 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L16912" class="LineNr">16912 </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="L16913" class="LineNr">16913 </span> c7 0/subop/copy *_Program-functions 0/imm32 +<span id="L16914" class="LineNr">16914 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 +<span id="L16915" class="LineNr">16915 </span> c7 0/subop/copy *_Program-types 0/imm32 +<span id="L16916" class="LineNr">16916 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 +<span id="L16917" class="LineNr">16917 </span> c7 0/subop/copy *_Program-signatures 0/imm32 +<span id="L16918" class="LineNr">16918 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 +<span id="L16919" class="LineNr">16919 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L16920" class="LineNr">16920 </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="L16921" class="LineNr">16921 </span> <span class="subxComment"># result/ecx: function</span> +<span id="L16922" class="LineNr">16922 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp +<span id="L16923" class="LineNr">16923 </span> 89/<- %ecx 4/r32/esp +<span id="L16924" class="LineNr">16924 </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="L16925" class="LineNr">16925 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> +<span id="L16926" class="LineNr">16926 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L16927" class="LineNr">16927 </span> 68/push 0xc0/imm32/size +<span id="L16928" class="LineNr">16928 </span> 68/push 0/imm32/top +<span id="L16929" class="LineNr">16929 </span> 89/<- %ebx 4/r32/esp +<span id="L16930" class="LineNr">16930 </span> <span class="subxComment"># convert</span> +<span id="L16931" class="LineNr">16931 </span> (<a href='mu.subx.html#L16128'>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="L16932" class="LineNr">16932 </span> <span class="subxComment"># check result->name</span> +<span id="L16933" class="LineNr">16933 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16934" class="LineNr">16934 </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#L16906'>test-function-header-with-multiple-args</a>/name"</span>) +<span id="L16935" class="LineNr">16935 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> +<span id="L16936" class="LineNr">16936 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L16937" class="LineNr">16937 </span> 89/<- %edx 0/r32/eax +<span id="L16938" class="LineNr">16938 </span><span class="Constant">$test-function-header-with-multiple-args:inout0</span>: +<span id="L16939" class="LineNr">16939 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> +<span id="L16940" class="LineNr">16940 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16941" class="LineNr">16941 </span> 89/<- %ebx 0/r32/eax +<span id="L16942" class="LineNr">16942 </span> <span class="subxComment"># check v->name</span> +<span id="L16943" class="LineNr">16943 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16944" class="LineNr">16944 </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#L16906'>test-function-header-with-multiple-args</a>/inout:0"</span>) <span class="subxComment"># Var-name</span> +<span id="L16945" class="LineNr">16945 </span> <span class="subxComment"># check v->type</span> +<span id="L16946" class="LineNr">16946 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16947" class="LineNr">16947 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16906'>test-function-header-with-multiple-args</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16948" class="LineNr">16948 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16906'>test-function-header-with-multiple-args</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16949" class="LineNr">16949 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16906'>test-function-header-with-multiple-args</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16950" class="LineNr">16950 </span><span class="Constant">$test-function-header-with-multiple-args:inout1</span>: +<span id="L16951" class="LineNr">16951 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L16952" class="LineNr">16952 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L16953" class="LineNr">16953 </span> 89/<- %edx 0/r32/eax +<span id="L16954" class="LineNr">16954 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L16955" class="LineNr">16955 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16956" class="LineNr">16956 </span> 89/<- %ebx 0/r32/eax +<span id="L16957" class="LineNr">16957 </span> <span class="subxComment"># check v->name</span> +<span id="L16958" class="LineNr">16958 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16959" class="LineNr">16959 </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#L16906'>test-function-header-with-multiple-args</a>/inout:1"</span>) <span class="subxComment"># Var-name</span> +<span id="L16960" class="LineNr">16960 </span> <span class="subxComment"># check v->type</span> +<span id="L16961" class="LineNr">16961 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16962" class="LineNr">16962 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16906'>test-function-header-with-multiple-args</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16963" class="LineNr">16963 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16906'>test-function-header-with-multiple-args</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16964" class="LineNr">16964 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16906'>test-function-header-with-multiple-args</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16965" class="LineNr">16965 </span><span class="Constant">$test-function-header-with-multiple-args:inout2</span>: +<span id="L16966" class="LineNr">16966 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L16967" class="LineNr">16967 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L16968" class="LineNr">16968 </span> 89/<- %edx 0/r32/eax +<span id="L16969" class="LineNr">16969 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L16970" class="LineNr">16970 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16971" class="LineNr">16971 </span> 89/<- %ebx 0/r32/eax +<span id="L16972" class="LineNr">16972 </span> <span class="subxComment"># check v->name</span> +<span id="L16973" class="LineNr">16973 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16974" class="LineNr">16974 </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#L16906'>test-function-header-with-multiple-args</a>/inout:2"</span>) <span class="subxComment"># Var-name</span> +<span id="L16975" class="LineNr">16975 </span> <span class="subxComment"># check v->type</span> +<span id="L16976" class="LineNr">16976 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16977" class="LineNr">16977 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16906'>test-function-header-with-multiple-args</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16978" class="LineNr">16978 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16906'>test-function-header-with-multiple-args</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16979" class="LineNr">16979 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16906'>test-function-header-with-multiple-args</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16980" class="LineNr">16980 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16981" class="LineNr">16981 </span> 89/<- %esp 5/r32/ebp +<span id="L16982" class="LineNr">16982 </span> 5d/pop-to-ebp +<span id="L16983" class="LineNr">16983 </span> c3/return +<span id="L16984" class="LineNr">16984 </span> +<span id="L16985" class="LineNr">16985 </span><span class="subxTest">test-function-header-with-multiple-args-and-outputs</span>: +<span id="L16986" class="LineNr">16986 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16987" class="LineNr">16987 </span> 55/push-ebp +<span id="L16988" class="LineNr">16988 </span> 89/<- %ebp 4/r32/esp +<span id="L16989" class="LineNr">16989 </span> <span class="subxComment"># setup</span> +<span id="L16990" class="LineNr">16990 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L16991" class="LineNr">16991 </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="L16992" class="LineNr">16992 </span> c7 0/subop/copy *_Program-functions 0/imm32 +<span id="L16993" class="LineNr">16993 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 +<span id="L16994" class="LineNr">16994 </span> c7 0/subop/copy *_Program-types 0/imm32 +<span id="L16995" class="LineNr">16995 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 +<span id="L16996" class="LineNr">16996 </span> c7 0/subop/copy *_Program-signatures 0/imm32 +<span id="L16997" class="LineNr">16997 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 +<span id="L16998" class="LineNr">16998 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L16999" class="LineNr">16999 </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="L17000" class="LineNr">17000 </span> <span class="subxComment"># result/ecx: function</span> +<span id="L17001" class="LineNr">17001 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp +<span id="L17002" class="LineNr">17002 </span> 89/<- %ecx 4/r32/esp +<span id="L17003" class="LineNr">17003 </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="L17004" class="LineNr">17004 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> +<span id="L17005" class="LineNr">17005 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L17006" class="LineNr">17006 </span> 68/push 0xc0/imm32/size +<span id="L17007" class="LineNr">17007 </span> 68/push 0/imm32/top +<span id="L17008" class="LineNr">17008 </span> 89/<- %ebx 4/r32/esp +<span id="L17009" class="LineNr">17009 </span> <span class="subxComment"># convert</span> +<span id="L17010" class="LineNr">17010 </span> (<a href='mu.subx.html#L16128'>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="L17011" class="LineNr">17011 </span> <span class="subxComment"># check result->name</span> +<span id="L17012" class="LineNr">17012 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L17013" class="LineNr">17013 </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#L16985'>test-function-header-with-multiple-args-and-outputs</a>/name"</span>) +<span id="L17014" class="LineNr">17014 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> +<span id="L17015" class="LineNr">17015 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L17016" class="LineNr">17016 </span> 89/<- %edx 0/r32/eax +<span id="L17017" class="LineNr">17017 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout0</span>: +<span id="L17018" class="LineNr">17018 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> +<span id="L17019" class="LineNr">17019 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L17020" class="LineNr">17020 </span> 89/<- %ebx 0/r32/eax +<span id="L17021" class="LineNr">17021 </span> <span class="subxComment"># check v->name</span> +<span id="L17022" class="LineNr">17022 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17023" class="LineNr">17023 </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#L16985'>test-function-header-with-multiple-args-and-outputs</a>/inout:0"</span>) +<span id="L17024" class="LineNr">17024 </span> <span class="subxComment"># check v->type</span> +<span id="L17025" class="LineNr">17025 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17026" class="LineNr">17026 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16985'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17027" class="LineNr">17027 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16985'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17028" class="LineNr">17028 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16985'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17029" class="LineNr">17029 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout1</span>: +<span id="L17030" class="LineNr">17030 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L17031" class="LineNr">17031 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L17032" class="LineNr">17032 </span> 89/<- %edx 0/r32/eax +<span id="L17033" class="LineNr">17033 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L17034" class="LineNr">17034 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L17035" class="LineNr">17035 </span> 89/<- %ebx 0/r32/eax +<span id="L17036" class="LineNr">17036 </span> <span class="subxComment"># check v->name</span> +<span id="L17037" class="LineNr">17037 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17038" class="LineNr">17038 </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#L16985'>test-function-header-with-multiple-args-and-outputs</a>/inout:1"</span>) +<span id="L17039" class="LineNr">17039 </span> <span class="subxComment"># check v->type</span> +<span id="L17040" class="LineNr">17040 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17041" class="LineNr">17041 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16985'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17042" class="LineNr">17042 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16985'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17043" class="LineNr">17043 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16985'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17044" class="LineNr">17044 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout2</span>: +<span id="L17045" class="LineNr">17045 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L17046" class="LineNr">17046 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L17047" class="LineNr">17047 </span> 89/<- %edx 0/r32/eax +<span id="L17048" class="LineNr">17048 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L17049" class="LineNr">17049 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L17050" class="LineNr">17050 </span> 89/<- %ebx 0/r32/eax +<span id="L17051" class="LineNr">17051 </span> <span class="subxComment"># check v->name</span> +<span id="L17052" class="LineNr">17052 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17053" class="LineNr">17053 </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#L16985'>test-function-header-with-multiple-args-and-outputs</a>/inout:2"</span>) +<span id="L17054" class="LineNr">17054 </span> <span class="subxComment"># check v->type</span> +<span id="L17055" class="LineNr">17055 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17056" class="LineNr">17056 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16985'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17057" class="LineNr">17057 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16985'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17058" class="LineNr">17058 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16985'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17059" class="LineNr">17059 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out0</span>: +<span id="L17060" class="LineNr">17060 </span> <span class="subxComment"># var outputs/edx: (addr list var) = lookup(result->outputs)</span> +<span id="L17061" class="LineNr">17061 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L17062" class="LineNr">17062 </span> 89/<- %edx 0/r32/eax +<span id="L17063" class="LineNr">17063 </span> <span class="subxComment"># v = lookup(outputs->value)</span> +<span id="L17064" class="LineNr">17064 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L17065" class="LineNr">17065 </span> 89/<- %ebx 0/r32/eax +<span id="L17066" class="LineNr">17066 </span> <span class="subxComment"># check v->name</span> +<span id="L17067" class="LineNr">17067 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17068" class="LineNr">17068 </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#L16985'>test-function-header-with-multiple-args-and-outputs</a>/output:0"</span>) +<span id="L17069" class="LineNr">17069 </span> <span class="subxComment"># check v->register</span> +<span id="L17070" class="LineNr">17070 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17071" class="LineNr">17071 </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#L16985'>test-function-header-with-multiple-args-and-outputs</a>/output:0/register"</span>) +<span id="L17072" class="LineNr">17072 </span> <span class="subxComment"># check v->type</span> +<span id="L17073" class="LineNr">17073 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17074" class="LineNr">17074 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16985'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17075" class="LineNr">17075 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16985'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17076" class="LineNr">17076 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16985'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17077" class="LineNr">17077 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out1</span>: +<span id="L17078" class="LineNr">17078 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> +<span id="L17079" class="LineNr">17079 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L17080" class="LineNr">17080 </span> 89/<- %edx 0/r32/eax +<span id="L17081" class="LineNr">17081 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L17082" class="LineNr">17082 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L17083" class="LineNr">17083 </span> 89/<- %ebx 0/r32/eax +<span id="L17084" class="LineNr">17084 </span> <span class="subxComment"># check v->name</span> +<span id="L17085" class="LineNr">17085 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17086" class="LineNr">17086 </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#L16985'>test-function-header-with-multiple-args-and-outputs</a>/output:1"</span>) +<span id="L17087" class="LineNr">17087 </span> <span class="subxComment"># check v->register</span> +<span id="L17088" class="LineNr">17088 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17089" class="LineNr">17089 </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#L16985'>test-function-header-with-multiple-args-and-outputs</a>/output:1/register"</span>) +<span id="L17090" class="LineNr">17090 </span> <span class="subxComment"># check v->type</span> +<span id="L17091" class="LineNr">17091 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17092" class="LineNr">17092 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16985'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17093" class="LineNr">17093 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16985'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17094" class="LineNr">17094 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0c) 0 <span class="Constant">"F - <a href='mu.subx.html#L16985'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17095" class="LineNr">17095 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17096" class="LineNr">17096 </span> 89/<- %esp 5/r32/ebp +<span id="L17097" class="LineNr">17097 </span> 5d/pop-to-ebp +<span id="L17098" class="LineNr">17098 </span> c3/return <span id="L17099" class="LineNr">17099 </span> -<span id="L17100" class="LineNr">17100 </span><span class="Constant">$parse-var-with-type:error-non-float-in-floating-point-register</span>: -<span id="L17101" class="LineNr">17101 </span> <span class="subxComment"># error("fn " fn ": non-float var '" var "' should be in an integer register\n")</span> -<span id="L17102" class="LineNr">17102 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17103" class="LineNr">17103 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) -<span id="L17104" class="LineNr">17104 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": non-float var '"</span>) -<span id="L17105" class="LineNr">17105 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17106" class="LineNr">17106 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17107" class="LineNr">17107 </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="L17108" class="LineNr">17108 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17109" class="LineNr">17109 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17110" class="LineNr">17110 </span> <span class="subxComment"># never gets here</span> -<span id="L17111" class="LineNr">17111 </span> -<span id="L17112" class="LineNr">17112 </span><span class="subxFunction">float-register?</span>: <span class="subxComment"># r: (addr array byte) -> result/eax: boolean</span> -<span id="L17113" class="LineNr">17113 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17114" class="LineNr">17114 </span> 55/push-ebp -<span id="L17115" class="LineNr">17115 </span> 89/<- %ebp 4/r32/esp -<span id="L17116" class="LineNr">17116 </span> <span class="subxComment">#</span> -<span id="L17117" class="LineNr">17117 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19447'>Mu-registers-unique</a></span> *(ebp+8) 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> -<span id="L17118" class="LineNr">17118 </span> 81 7/subop/compare *eax 8/imm32/start-of-floating-point-registers -<span id="L17119" class="LineNr">17119 </span> 0f 9d/set-if->= %al -<span id="L17120" class="LineNr">17120 </span> 25/and-eax-with 0xff/imm32 -<span id="L17121" class="LineNr">17121 </span><span class="Constant">$float-register?:end</span>: -<span id="L17122" class="LineNr">17122 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17123" class="LineNr">17123 </span> 89/<- %esp 5/r32/ebp -<span id="L17124" class="LineNr">17124 </span> 5d/pop-to-ebp -<span id="L17125" class="LineNr">17125 </span> c3/return -<span id="L17126" class="LineNr">17126 </span> -<span id="L17127" class="LineNr">17127 </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="L17128" class="LineNr">17128 </span> <span class="subxComment"># pseudocode:</span> -<span id="L17129" class="LineNr">17129 </span> <span class="subxComment"># var s: slice = next-mu-token(in)</span> -<span id="L17130" class="LineNr">17130 </span> <span class="subxComment"># assert s != ""</span> -<span id="L17131" class="LineNr">17131 </span> <span class="subxComment"># assert s != "->"</span> -<span id="L17132" class="LineNr">17132 </span> <span class="subxComment"># assert s != "{"</span> -<span id="L17133" class="LineNr">17133 </span> <span class="subxComment"># assert s != "}"</span> -<span id="L17134" class="LineNr">17134 </span> <span class="subxComment"># if s == ")"</span> -<span id="L17135" class="LineNr">17135 </span> <span class="subxComment"># return</span> -<span id="L17136" class="LineNr">17136 </span> <span class="subxComment"># out = allocate(Type-tree)</span> -<span id="L17137" class="LineNr">17137 </span> <span class="subxComment"># if s != "("</span> -<span id="L17138" class="LineNr">17138 </span> <span class="subxComment"># HACK: if s is an int, parse and return it</span> -<span id="L17139" class="LineNr">17139 </span> <span class="subxComment"># out->is-atom? = true</span> -<span id="L17140" class="LineNr">17140 </span> <span class="subxComment"># if (s[0] == "_")</span> -<span id="L17141" class="LineNr">17141 </span> <span class="subxComment"># out->value = type-parameter</span> -<span id="L17142" class="LineNr">17142 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> -<span id="L17143" class="LineNr">17143 </span> <span class="subxComment"># else</span> -<span id="L17144" class="LineNr">17144 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> -<span id="L17145" class="LineNr">17145 </span> <span class="subxComment"># return</span> -<span id="L17146" class="LineNr">17146 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> -<span id="L17147" class="LineNr">17147 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L17148" class="LineNr">17148 </span> <span class="subxComment">#</span> -<span id="L17149" class="LineNr">17149 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17150" class="LineNr">17150 </span> 55/push-ebp -<span id="L17151" class="LineNr">17151 </span> 89/<- %ebp 4/r32/esp -<span id="L17152" class="LineNr">17152 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17153" class="LineNr">17153 </span> 50/push-eax -<span id="L17154" class="LineNr">17154 </span> 51/push-ecx -<span id="L17155" class="LineNr">17155 </span> 52/push-edx -<span id="L17156" class="LineNr">17156 </span> <span class="subxComment"># clear out</span> -<span id="L17157" class="LineNr">17157 </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="L17158" class="LineNr">17158 </span> <span class="subxComment"># var s/ecx: slice</span> -<span id="L17159" class="LineNr">17159 </span> 68/push 0/imm32 -<span id="L17160" class="LineNr">17160 </span> 68/push 0/imm32 -<span id="L17161" class="LineNr">17161 </span> 89/<- %ecx 4/r32/esp -<span id="L17162" class="LineNr">17162 </span> <span class="subxComment"># s = next-mu-token(in)</span> -<span id="L17163" class="LineNr">17163 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> *(ebp+0xc) %ecx) -<span id="L17164" class="LineNr">17164 </span><span class="CommentedCode">#? (write-buffered Stderr "tok: ")</span> -<span id="L17165" class="LineNr">17165 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> -<span id="L17166" class="LineNr">17166 </span><span class="CommentedCode">#? (write-buffered Stderr "$\n")</span> -<span id="L17167" class="LineNr">17167 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L17168" class="LineNr">17168 </span> <span class="subxComment"># assert s != ""</span> -<span id="L17169" class="LineNr">17169 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">""</span>) <span class="subxComment"># => eax</span> -<span id="L17170" class="LineNr">17170 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17171" class="LineNr">17171 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L17172" class="LineNr">17172 </span> <span class="subxComment"># assert s != "{"</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-!= $parse-type:abort/disp32 -<span id="L17176" class="LineNr">17176 </span> <span class="subxComment"># assert s != "}"</span> -<span id="L17177" class="LineNr">17177 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L17178" class="LineNr">17178 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17179" class="LineNr">17179 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L17180" class="LineNr">17180 </span> <span class="subxComment"># assert s != "->"</span> -<span id="L17181" class="LineNr">17181 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L17182" class="LineNr">17182 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17183" class="LineNr">17183 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L17184" class="LineNr">17184 </span> <span class="subxComment"># if (s == ")") return</span> -<span id="L17185" class="LineNr">17185 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">")"</span>) <span class="subxComment"># => eax</span> -<span id="L17186" class="LineNr">17186 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17187" class="LineNr">17187 </span> 0f 85/jump-if-!= $parse-type:end/disp32 -<span id="L17188" class="LineNr">17188 </span> <span class="subxComment"># out = new tree</span> -<span id="L17189" class="LineNr">17189 </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="L17190" class="LineNr">17190 </span> <span class="subxComment"># var out-addr/edx: (addr type-tree) = lookup(*out)</span> -<span id="L17191" class="LineNr">17191 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L17192" class="LineNr">17192 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17193" class="LineNr">17193 </span> 89/<- %edx 0/r32/eax -<span id="L17194" class="LineNr">17194 </span> { -<span id="L17195" class="LineNr">17195 </span> <span class="subxComment"># if (s != "(") break</span> -<span id="L17196" class="LineNr">17196 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"("</span>) <span class="subxComment"># => eax</span> -<span id="L17197" class="LineNr">17197 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17198" class="LineNr">17198 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L17199" class="LineNr">17199 </span> <span class="subxComment"># if s is a number, store it in the type's size field</span> -<span id="L17200" class="LineNr">17200 </span> { -<span id="L17201" class="LineNr">17201 </span><span class="Constant">$parse-type:check-for-int</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"># TODO: raise an error on `var x: (array int a)`</span> -<span id="L17207" class="LineNr">17207 </span> (<a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L17208" class="LineNr">17208 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17209" class="LineNr">17209 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17210" class="LineNr">17210 </span><span class="Constant">$parse-type:int</span>: -<span id="L17211" class="LineNr">17211 </span> <span class="subxComment"># strip out metadata</span> -<span id="L17212" class="LineNr">17212 </span> (<a href='124next-token.subx.html#L163'>next-token-from-slice</a> *ecx *(ecx+4) 0x2f %ecx) -<span id="L17213" class="LineNr">17213 </span> <span class="subxComment">#</span> -<span id="L17214" class="LineNr">17214 </span> (<a href='mu.subx.html#L19842'>check-mu-hex-int</a> %ecx *(ebp+0x14) *(ebp+0x18)) -<span id="L17215" class="LineNr">17215 </span> (<a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L17216" class="LineNr">17216 </span> c7 0/subop/copy *(edx+4) 9/imm32/type-id-array-capacity <span class="subxComment"># Type-tree-value</span> -<span id="L17217" class="LineNr">17217 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-value-size</span> -<span id="L17218" class="LineNr">17218 </span> e9/jump $parse-type:end/disp32 -<span id="L17219" class="LineNr">17219 </span> } -<span id="L17220" class="LineNr">17220 </span><span class="Constant">$parse-type:atom</span>: -<span id="L17221" class="LineNr">17221 </span> <span class="subxComment"># out->is-atom? = true</span> -<span id="L17222" class="LineNr">17222 </span> c7 0/subop/copy *edx 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17223" class="LineNr">17223 </span> { -<span id="L17224" class="LineNr">17224 </span><span class="Constant">$parse-type:check-for-type-parameter</span>: -<span id="L17225" class="LineNr">17225 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> -<span id="L17226" class="LineNr">17226 </span> 8b/-> *ecx 0/r32/eax -<span id="L17227" class="LineNr">17227 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L17228" class="LineNr">17228 </span> 25/and-eax-with 0xff/imm32 -<span id="L17229" class="LineNr">17229 </span> <span class="subxComment"># if (tmp != '_') break</span> -<span id="L17230" class="LineNr">17230 </span> 3d/compare-eax-and 0x5f/imm32/_ -<span id="L17231" class="LineNr">17231 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17232" class="LineNr">17232 </span><span class="Constant">$parse-type:type-parameter</span>: -<span id="L17233" class="LineNr">17233 </span> <span class="subxComment"># out->value = type-parameter</span> -<span id="L17234" class="LineNr">17234 </span> c7 0/subop/copy *(edx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> -<span id="L17235" class="LineNr">17235 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> -<span id="L17236" class="LineNr">17236 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-parameter-name</span> -<span id="L17237" class="LineNr">17237 </span> (<a href='123slice.subx.html#L1043'>slice-to-string</a> *(ebp+8) %ecx %eax) -<span id="L17238" class="LineNr">17238 </span> e9/jump $parse-type:end/disp32 -<span id="L17239" class="LineNr">17239 </span> } -<span id="L17240" class="LineNr">17240 </span><span class="Constant">$parse-type:non-type-parameter</span>: -<span id="L17241" class="LineNr">17241 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> -<span id="L17242" class="LineNr">17242 </span> (<a href='mu.subx.html#L17498'>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="L17243" class="LineNr">17243 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L17244" class="LineNr">17244 </span> e9/jump $parse-type:end/disp32 -<span id="L17245" class="LineNr">17245 </span> } -<span id="L17246" class="LineNr">17246 </span><span class="Constant">$parse-type:non-atom</span>: -<span id="L17247" class="LineNr">17247 </span> <span class="subxComment"># otherwise s == "("</span> -<span id="L17248" class="LineNr">17248 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> -<span id="L17249" class="LineNr">17249 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> -<span id="L17250" class="LineNr">17250 </span> (<a href='mu.subx.html#L17127'>parse-type</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L17251" class="LineNr">17251 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L17252" class="LineNr">17252 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> -<span id="L17253" class="LineNr">17253 </span> (<a href='mu.subx.html#L17275'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L17254" class="LineNr">17254 </span><span class="Constant">$parse-type:end</span>: -<span id="L17255" class="LineNr">17255 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17256" class="LineNr">17256 </span> 81 0/subop/add %esp 8/imm32 -<span id="L17257" class="LineNr">17257 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17258" class="LineNr">17258 </span> 5a/pop-to-edx -<span id="L17259" class="LineNr">17259 </span> 59/pop-to-ecx -<span id="L17260" class="LineNr">17260 </span> 58/pop-to-eax -<span id="L17261" class="LineNr">17261 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17262" class="LineNr">17262 </span> 89/<- %esp 5/r32/ebp -<span id="L17263" class="LineNr">17263 </span> 5d/pop-to-ebp -<span id="L17264" class="LineNr">17264 </span> c3/return -<span id="L17265" class="LineNr">17265 </span> -<span id="L17266" class="LineNr">17266 </span><span class="Constant">$parse-type:abort</span>: -<span id="L17267" class="LineNr">17267 </span> <span class="subxComment"># error("unexpected token when parsing type: '" s "'\n")</span> -<span id="L17268" class="LineNr">17268 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"unexpected token when parsing type: '"</span>) -<span id="L17269" class="LineNr">17269 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) -<span id="L17270" class="LineNr">17270 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L17271" class="LineNr">17271 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L17272" class="LineNr">17272 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L17273" class="LineNr">17273 </span> <span class="subxComment"># never gets here</span> -<span id="L17274" class="LineNr">17274 </span> -<span id="L17275" class="LineNr">17275 </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="L17276" class="LineNr">17276 </span> <span class="subxComment"># pseudocode:</span> -<span id="L17277" class="LineNr">17277 </span> <span class="subxComment"># var tmp: (handle type-tree) = parse-type(ad, in)</span> -<span id="L17278" class="LineNr">17278 </span> <span class="subxComment"># if tmp == 0</span> -<span id="L17279" class="LineNr">17279 </span> <span class="subxComment"># return 0</span> -<span id="L17280" class="LineNr">17280 </span> <span class="subxComment"># out = allocate(Type-tree)</span> -<span id="L17281" class="LineNr">17281 </span> <span class="subxComment"># out->left = tmp</span> +<span id="L17100" class="LineNr">17100 </span><span class="subxComment"># format for variables with types</span> +<span id="L17101" class="LineNr">17101 </span><span class="subxComment"># x: int</span> +<span id="L17102" class="LineNr">17102 </span><span class="subxComment"># x: int,</span> +<span id="L17103" class="LineNr">17103 </span><span class="subxComment"># x/eax: int</span> +<span id="L17104" class="LineNr">17104 </span><span class="subxComment"># x/eax: int,</span> +<span id="L17105" class="LineNr">17105 </span><span class="subxComment"># ignores at most one trailing comma</span> +<span id="L17106" class="LineNr">17106 </span><span class="subxComment"># does not support other, non-register metadata</span> +<span id="L17107" class="LineNr">17107 </span><span class="subxComment"># WARNING: modifies name</span> +<span id="L17108" class="LineNr">17108 </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="L17109" class="LineNr">17109 </span> <span class="subxComment"># pseudocode:</span> +<span id="L17110" class="LineNr">17110 </span> <span class="subxComment"># var s: slice</span> +<span id="L17111" class="LineNr">17111 </span> <span class="subxComment"># if (!slice-ends-with(name, ":"))</span> +<span id="L17112" class="LineNr">17112 </span> <span class="subxComment"># abort</span> +<span id="L17113" class="LineNr">17113 </span> <span class="subxComment"># --name->end to skip ':'</span> +<span id="L17114" class="LineNr">17114 </span> <span class="subxComment"># next-token-from-slice(name->start, name->end, '/', s)</span> +<span id="L17115" class="LineNr">17115 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> +<span id="L17116" class="LineNr">17116 </span> <span class="subxComment"># ## register</span> +<span id="L17117" class="LineNr">17117 </span> <span class="subxComment"># next-token-from-slice(s->end, name->end, '/', s)</span> +<span id="L17118" class="LineNr">17118 </span> <span class="subxComment"># if (!slice-empty?(s))</span> +<span id="L17119" class="LineNr">17119 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> +<span id="L17120" class="LineNr">17120 </span> <span class="subxComment"># ## type</span> +<span id="L17121" class="LineNr">17121 </span> <span class="subxComment"># var type: (handle type-tree) = parse-type(first-line)</span> +<span id="L17122" class="LineNr">17122 </span> <span class="subxComment"># out->type = type</span> +<span id="L17123" class="LineNr">17123 </span> <span class="subxComment">#</span> +<span id="L17124" class="LineNr">17124 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17125" class="LineNr">17125 </span> 55/push-ebp +<span id="L17126" class="LineNr">17126 </span> 89/<- %ebp 4/r32/esp +<span id="L17127" class="LineNr">17127 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17128" class="LineNr">17128 </span> 50/push-eax +<span id="L17129" class="LineNr">17129 </span> 51/push-ecx +<span id="L17130" class="LineNr">17130 </span> 52/push-edx +<span id="L17131" class="LineNr">17131 </span> 53/push-ebx +<span id="L17132" class="LineNr">17132 </span> 56/push-esi +<span id="L17133" class="LineNr">17133 </span> 57/push-edi +<span id="L17134" class="LineNr">17134 </span> <span class="subxComment"># esi = name</span> +<span id="L17135" class="LineNr">17135 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L17136" class="LineNr">17136 </span> <span class="subxComment"># if (!slice-ends-with?(name, ":")) abort</span> +<span id="L17137" class="LineNr">17137 </span> 8b/-> *(esi+4) 1/r32/ecx <span class="subxComment"># Slice-end</span> +<span id="L17138" class="LineNr">17138 </span> 49/decrement-ecx +<span id="L17139" class="LineNr">17139 </span> 8a/copy-byte *ecx 1/r32/CL +<span id="L17140" class="LineNr">17140 </span> 81 4/subop/and %ecx 0xff/imm32 +<span id="L17141" class="LineNr">17141 </span> 81 7/subop/compare %ecx 0x3a/imm32/colon +<span id="L17142" class="LineNr">17142 </span> 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 +<span id="L17143" class="LineNr">17143 </span> <span class="subxComment"># --name->end to skip ':'</span> +<span id="L17144" class="LineNr">17144 </span> ff 1/subop/decrement *(esi+4) +<span id="L17145" class="LineNr">17145 </span> <span class="subxComment"># var s/ecx: slice</span> +<span id="L17146" class="LineNr">17146 </span> 68/push 0/imm32/end +<span id="L17147" class="LineNr">17147 </span> 68/push 0/imm32/start +<span id="L17148" class="LineNr">17148 </span> 89/<- %ecx 4/r32/esp +<span id="L17149" class="LineNr">17149 </span><span class="Constant">$parse-var-with-type:parse-name</span>: +<span id="L17150" class="LineNr">17150 </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="L17151" class="LineNr">17151 </span><span class="Constant">$parse-var-with-type:create-var</span>: +<span id="L17152" class="LineNr">17152 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> +<span id="L17153" class="LineNr">17153 </span> (<a href='mu.subx.html#L20155'>new-var-from-slice</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0x10)) +<span id="L17154" class="LineNr">17154 </span> <span class="subxComment"># save out->register</span> +<span id="L17155" class="LineNr">17155 </span><span class="Constant">$parse-var-with-type:save-register</span>: +<span id="L17156" class="LineNr">17156 </span> <span class="subxS1Comment"># . var out-addr/edi: (addr var) = lookup(*out)</span> +<span id="L17157" class="LineNr">17157 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L17158" class="LineNr">17158 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L17159" class="LineNr">17159 </span> 89/<- %edi 0/r32/eax +<span id="L17160" class="LineNr">17160 </span> <span class="subxS1Comment"># . s = next-token(...)</span> +<span id="L17161" class="LineNr">17161 </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="L17162" class="LineNr">17162 </span> <span class="subxS1Comment"># . if (!slice-empty?(s)) out->register = slice-to-string(s)</span> +<span id="L17163" class="LineNr">17163 </span> { +<span id="L17164" class="LineNr">17164 </span><span class="Constant">$parse-var-with-type:write-register</span>: +<span id="L17165" class="LineNr">17165 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L17166" class="LineNr">17166 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17167" class="LineNr">17167 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17168" class="LineNr">17168 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> +<span id="L17169" class="LineNr">17169 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Var-register</span> +<span id="L17170" class="LineNr">17170 </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="L17171" class="LineNr">17171 </span> } +<span id="L17172" class="LineNr">17172 </span><span class="Constant">$parse-var-with-type:save-type</span>: +<span id="L17173" class="LineNr">17173 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L17174" class="LineNr">17174 </span> (<a href='mu.subx.html#L17262'>parse-type</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L17175" class="LineNr">17175 </span><span class="Constant">$parse-var-with-type:check-register</span>: +<span id="L17176" class="LineNr">17176 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17177" class="LineNr">17177 </span> 3d/compare-eax-and 0/imm32 +<span id="L17178" class="LineNr">17178 </span> 74/jump-if-= $parse-var-with-type:end/disp8 +<span id="L17179" class="LineNr">17179 </span> (<a href='mu.subx.html#L17247'>float-register?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L17180" class="LineNr">17180 </span> { +<span id="L17181" class="LineNr">17181 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17182" class="LineNr">17182 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17183" class="LineNr">17183 </span> <span class="subxComment"># var is in a float register; ensure type is float</span> +<span id="L17184" class="LineNr">17184 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17185" class="LineNr">17185 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => eax</span> +<span id="L17186" class="LineNr">17186 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17187" class="LineNr">17187 </span> 0f 84/jump-if-= $parse-var-with-type:error-non-float-in-floating-point-register/disp32 +<span id="L17188" class="LineNr">17188 </span> eb/jump $parse-var-with-type:end/disp8 +<span id="L17189" class="LineNr">17189 </span> } +<span id="L17190" class="LineNr">17190 </span> <span class="subxComment"># var is not in a float register; ensure type is not float</span> +<span id="L17191" class="LineNr">17191 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17192" class="LineNr">17192 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => eax</span> +<span id="L17193" class="LineNr">17193 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17194" class="LineNr">17194 </span> 0f 85/jump-if-!= $parse-var-with-type:error-float-in-integer-register/disp32 +<span id="L17195" class="LineNr">17195 </span><span class="Constant">$parse-var-with-type:end</span>: +<span id="L17196" class="LineNr">17196 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17197" class="LineNr">17197 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17198" class="LineNr">17198 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17199" class="LineNr">17199 </span> 5f/pop-to-edi +<span id="L17200" class="LineNr">17200 </span> 5e/pop-to-esi +<span id="L17201" class="LineNr">17201 </span> 5b/pop-to-ebx +<span id="L17202" class="LineNr">17202 </span> 5a/pop-to-edx +<span id="L17203" class="LineNr">17203 </span> 59/pop-to-ecx +<span id="L17204" class="LineNr">17204 </span> 58/pop-to-eax +<span id="L17205" class="LineNr">17205 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17206" class="LineNr">17206 </span> 89/<- %esp 5/r32/ebp +<span id="L17207" class="LineNr">17207 </span> 5d/pop-to-ebp +<span id="L17208" class="LineNr">17208 </span> c3/return +<span id="L17209" class="LineNr">17209 </span> +<span id="L17210" class="LineNr">17210 </span><span class="Constant">$parse-var-with-type:abort</span>: +<span id="L17211" class="LineNr">17211 </span> <span class="subxComment"># error("fn " fn ": var should have form 'name: type' in '" line "'\n")</span> +<span id="L17212" class="LineNr">17212 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17213" class="LineNr">17213 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) +<span id="L17214" class="LineNr">17214 </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="L17215" class="LineNr">17215 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17216" class="LineNr">17216 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L17217" class="LineNr">17217 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) +<span id="L17218" class="LineNr">17218 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L17219" class="LineNr">17219 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17220" class="LineNr">17220 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17221" class="LineNr">17221 </span> <span class="subxComment"># never gets here</span> +<span id="L17222" class="LineNr">17222 </span> +<span id="L17223" class="LineNr">17223 </span><span class="Constant">$parse-var-with-type:error-float-in-integer-register</span>: +<span id="L17224" class="LineNr">17224 </span> <span class="subxComment"># error("fn " fn ": float var '" var "' should be in a floating-point register\n")</span> +<span id="L17225" class="LineNr">17225 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17226" class="LineNr">17226 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) +<span id="L17227" class="LineNr">17227 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": float var '"</span>) +<span id="L17228" class="LineNr">17228 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17229" class="LineNr">17229 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17230" class="LineNr">17230 </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="L17231" class="LineNr">17231 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17232" class="LineNr">17232 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17233" class="LineNr">17233 </span> <span class="subxComment"># never gets here</span> +<span id="L17234" class="LineNr">17234 </span> +<span id="L17235" class="LineNr">17235 </span><span class="Constant">$parse-var-with-type:error-non-float-in-floating-point-register</span>: +<span id="L17236" class="LineNr">17236 </span> <span class="subxComment"># error("fn " fn ": non-float var '" var "' should be in an integer register\n")</span> +<span id="L17237" class="LineNr">17237 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17238" class="LineNr">17238 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) +<span id="L17239" class="LineNr">17239 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": non-float var '"</span>) +<span id="L17240" class="LineNr">17240 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17241" class="LineNr">17241 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17242" class="LineNr">17242 </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="L17243" class="LineNr">17243 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17244" class="LineNr">17244 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17245" class="LineNr">17245 </span> <span class="subxComment"># never gets here</span> +<span id="L17246" class="LineNr">17246 </span> +<span id="L17247" class="LineNr">17247 </span><span class="subxFunction">float-register?</span>: <span class="subxComment"># r: (addr array byte) -> result/eax: boolean</span> +<span id="L17248" class="LineNr">17248 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17249" class="LineNr">17249 </span> 55/push-ebp +<span id="L17250" class="LineNr">17250 </span> 89/<- %ebp 4/r32/esp +<span id="L17251" class="LineNr">17251 </span> <span class="subxComment">#</span> +<span id="L17252" class="LineNr">17252 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19622'>Mu-registers-unique</a></span> *(ebp+8) 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> +<span id="L17253" class="LineNr">17253 </span> 81 7/subop/compare *eax 8/imm32/start-of-floating-point-registers +<span id="L17254" class="LineNr">17254 </span> 0f 9d/set-if->= %al +<span id="L17255" class="LineNr">17255 </span> 25/and-eax-with 0xff/imm32 +<span id="L17256" class="LineNr">17256 </span><span class="Constant">$float-register?:end</span>: +<span id="L17257" class="LineNr">17257 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17258" class="LineNr">17258 </span> 89/<- %esp 5/r32/ebp +<span id="L17259" class="LineNr">17259 </span> 5d/pop-to-ebp +<span id="L17260" class="LineNr">17260 </span> c3/return +<span id="L17261" class="LineNr">17261 </span> +<span id="L17262" class="LineNr">17262 </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="L17263" class="LineNr">17263 </span> <span class="subxComment"># pseudocode:</span> +<span id="L17264" class="LineNr">17264 </span> <span class="subxComment"># var s: slice = next-mu-token(in)</span> +<span id="L17265" class="LineNr">17265 </span> <span class="subxComment"># assert s != ""</span> +<span id="L17266" class="LineNr">17266 </span> <span class="subxComment"># assert s != "->"</span> +<span id="L17267" class="LineNr">17267 </span> <span class="subxComment"># assert s != "{"</span> +<span id="L17268" class="LineNr">17268 </span> <span class="subxComment"># assert s != "}"</span> +<span id="L17269" class="LineNr">17269 </span> <span class="subxComment"># if s == ")"</span> +<span id="L17270" class="LineNr">17270 </span> <span class="subxComment"># return</span> +<span id="L17271" class="LineNr">17271 </span> <span class="subxComment"># out = allocate(Type-tree)</span> +<span id="L17272" class="LineNr">17272 </span> <span class="subxComment"># if s != "("</span> +<span id="L17273" class="LineNr">17273 </span> <span class="subxComment"># HACK: if s is an int, parse and return it</span> +<span id="L17274" class="LineNr">17274 </span> <span class="subxComment"># out->is-atom? = true</span> +<span id="L17275" class="LineNr">17275 </span> <span class="subxComment"># if (s[0] == "_")</span> +<span id="L17276" class="LineNr">17276 </span> <span class="subxComment"># out->value = type-parameter</span> +<span id="L17277" class="LineNr">17277 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> +<span id="L17278" class="LineNr">17278 </span> <span class="subxComment"># else</span> +<span id="L17279" class="LineNr">17279 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> +<span id="L17280" class="LineNr">17280 </span> <span class="subxComment"># return</span> +<span id="L17281" class="LineNr">17281 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> <span id="L17282" class="LineNr">17282 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> <span id="L17283" class="LineNr">17283 </span> <span class="subxComment">#</span> <span id="L17284" class="LineNr">17284 </span> <span class="subxS1Comment"># . prologue</span> @@ -15795,10493 +15780,10493 @@ if ('onhashchange' in window) { <span id="L17288" class="LineNr">17288 </span> 50/push-eax <span id="L17289" class="LineNr">17289 </span> 51/push-ecx <span id="L17290" class="LineNr">17290 </span> 52/push-edx -<span id="L17291" class="LineNr">17291 </span> <span class="subxComment">#</span> +<span id="L17291" class="LineNr">17291 </span> <span class="subxComment"># clear out</span> <span id="L17292" class="LineNr">17292 </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="L17293" class="LineNr">17293 </span> <span class="subxComment"># var tmp/ecx: (handle type-tree)</span> +<span id="L17293" class="LineNr">17293 </span> <span class="subxComment"># var s/ecx: slice</span> <span id="L17294" class="LineNr">17294 </span> 68/push 0/imm32 <span id="L17295" class="LineNr">17295 </span> 68/push 0/imm32 <span id="L17296" class="LineNr">17296 </span> 89/<- %ecx 4/r32/esp -<span id="L17297" class="LineNr">17297 </span> <span class="subxComment"># tmp = parse-type(ad, in)</span> -<span id="L17298" class="LineNr">17298 </span> (<a href='mu.subx.html#L17127'>parse-type</a> *(ebp+8) *(ebp+0xc) %ecx *(ebp+0x14) *(ebp+0x18)) -<span id="L17299" class="LineNr">17299 </span> <span class="subxComment"># if (tmp == 0) return</span> -<span id="L17300" class="LineNr">17300 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L17301" class="LineNr">17301 </span> 74/jump-if-= $parse-type-tree:end/disp8 -<span id="L17302" class="LineNr">17302 </span> <span class="subxComment"># out = new tree</span> -<span id="L17303" class="LineNr">17303 </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="L17304" class="LineNr">17304 </span> <span class="subxComment"># var out-addr/edx: (addr tree) = lookup(*out)</span> -<span id="L17305" class="LineNr">17305 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L17306" class="LineNr">17306 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17307" class="LineNr">17307 </span> 89/<- %edx 0/r32/eax -<span id="L17308" class="LineNr">17308 </span> <span class="subxComment"># out->left = tmp</span> -<span id="L17309" class="LineNr">17309 </span> 8b/-> *ecx 0/r32/eax -<span id="L17310" class="LineNr">17310 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> -<span id="L17311" class="LineNr">17311 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L17312" class="LineNr">17312 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-left</span> -<span id="L17313" class="LineNr">17313 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L17314" class="LineNr">17314 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> -<span id="L17315" class="LineNr">17315 </span> (<a href='mu.subx.html#L17275'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L17316" class="LineNr">17316 </span><span class="Constant">$parse-type-tree:end</span>: -<span id="L17317" class="LineNr">17317 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17318" class="LineNr">17318 </span> 81 0/subop/add %esp 8/imm32 -<span id="L17319" class="LineNr">17319 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17320" class="LineNr">17320 </span> 5a/pop-to-edx -<span id="L17321" class="LineNr">17321 </span> 59/pop-to-ecx -<span id="L17322" class="LineNr">17322 </span> 58/pop-to-eax -<span id="L17323" class="LineNr">17323 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17324" class="LineNr">17324 </span> 89/<- %esp 5/r32/ebp -<span id="L17325" class="LineNr">17325 </span> 5d/pop-to-ebp -<span id="L17326" class="LineNr">17326 </span> c3/return -<span id="L17327" class="LineNr">17327 </span> -<span id="L17328" class="LineNr">17328 </span><span class="subxFunction">next-mu-token</span>: <span class="subxComment"># in: (addr stream byte), out: (addr slice)</span> -<span id="L17329" class="LineNr">17329 </span> <span class="subxComment"># pseudocode:</span> -<span id="L17330" class="LineNr">17330 </span> <span class="subxComment"># start:</span> -<span id="L17331" class="LineNr">17331 </span> <span class="subxComment"># skip-chars-matching-whitespace(in)</span> -<span id="L17332" class="LineNr">17332 </span> <span class="subxComment"># if in->read >= in->write # end of in</span> -<span id="L17333" class="LineNr">17333 </span> <span class="subxComment"># out = {0, 0}</span> -<span id="L17334" class="LineNr">17334 </span> <span class="subxComment"># return</span> -<span id="L17335" class="LineNr">17335 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> -<span id="L17336" class="LineNr">17336 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> -<span id="L17337" class="LineNr">17337 </span> <span class="subxComment"># if curr->byte == ',' # comment token</span> -<span id="L17338" class="LineNr">17338 </span> <span class="subxComment"># ++in->read</span> -<span id="L17339" class="LineNr">17339 </span> <span class="subxComment"># goto start</span> -<span id="L17340" class="LineNr">17340 </span> <span class="subxComment"># if curr-byte == '#' # comment</span> -<span id="L17341" class="LineNr">17341 </span> <span class="subxComment"># goto done # treat as eof</span> -<span id="L17342" class="LineNr">17342 </span> <span class="subxComment"># if curr-byte == '"' # string literal</span> -<span id="L17343" class="LineNr">17343 </span> <span class="subxComment"># skip-string(in)</span> -<span id="L17344" class="LineNr">17344 </span> <span class="subxComment"># goto done # no metadata</span> -<span id="L17345" class="LineNr">17345 </span> <span class="subxComment"># if curr-byte == '('</span> -<span id="L17346" class="LineNr">17346 </span> <span class="subxComment"># ++in->read</span> -<span id="L17347" class="LineNr">17347 </span> <span class="subxComment"># goto done</span> -<span id="L17348" class="LineNr">17348 </span> <span class="subxComment"># if curr-byte == ')'</span> -<span id="L17349" class="LineNr">17349 </span> <span class="subxComment"># ++in->read</span> -<span id="L17350" class="LineNr">17350 </span> <span class="subxComment"># goto done</span> -<span id="L17351" class="LineNr">17351 </span> <span class="subxComment"># # read a word</span> -<span id="L17352" class="LineNr">17352 </span> <span class="subxComment"># while true</span> -<span id="L17353" class="LineNr">17353 </span> <span class="subxComment"># if in->read >= in->write</span> -<span id="L17354" class="LineNr">17354 </span> <span class="subxComment"># break</span> -<span id="L17355" class="LineNr">17355 </span> <span class="subxComment"># curr-byte = in->data[in->read]</span> -<span id="L17356" class="LineNr">17356 </span> <span class="subxComment"># if curr-byte == ' '</span> -<span id="L17357" class="LineNr">17357 </span> <span class="subxComment"># break</span> -<span id="L17358" class="LineNr">17358 </span> <span class="subxComment"># if curr-byte == '\r'</span> -<span id="L17359" class="LineNr">17359 </span> <span class="subxComment"># break</span> -<span id="L17360" class="LineNr">17360 </span> <span class="subxComment"># if curr-byte == '\n'</span> -<span id="L17361" class="LineNr">17361 </span> <span class="subxComment"># break</span> -<span id="L17362" class="LineNr">17362 </span> <span class="subxComment"># if curr-byte == '('</span> -<span id="L17363" class="LineNr">17363 </span> <span class="subxComment"># break</span> -<span id="L17364" class="LineNr">17364 </span> <span class="subxComment"># if curr-byte == ')'</span> -<span id="L17365" class="LineNr">17365 </span> <span class="subxComment"># break</span> -<span id="L17366" class="LineNr">17366 </span> <span class="subxComment"># if curr-byte == ','</span> -<span id="L17367" class="LineNr">17367 </span> <span class="subxComment"># break</span> -<span id="L17368" class="LineNr">17368 </span> <span class="subxComment"># ++in->read</span> -<span id="L17369" class="LineNr">17369 </span> <span class="subxComment"># done:</span> -<span id="L17370" class="LineNr">17370 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> -<span id="L17371" class="LineNr">17371 </span> <span class="subxComment">#</span> -<span id="L17372" class="LineNr">17372 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17373" class="LineNr">17373 </span> 55/push-ebp -<span id="L17374" class="LineNr">17374 </span> 89/<- %ebp 4/r32/esp -<span id="L17375" class="LineNr">17375 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17376" class="LineNr">17376 </span> 50/push-eax -<span id="L17377" class="LineNr">17377 </span> 51/push-ecx -<span id="L17378" class="LineNr">17378 </span> 56/push-esi -<span id="L17379" class="LineNr">17379 </span> 57/push-edi -<span id="L17380" class="LineNr">17380 </span> <span class="subxComment"># esi = in</span> -<span id="L17381" class="LineNr">17381 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L17382" class="LineNr">17382 </span> <span class="subxComment"># edi = out</span> -<span id="L17383" class="LineNr">17383 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L17384" class="LineNr">17384 </span><span class="Constant">$next-mu-token:start</span>: -<span id="L17385" class="LineNr">17385 </span> (<a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> %esi) -<span id="L17386" class="LineNr">17386 </span><span class="Constant">$next-mu-token:check0</span>: -<span id="L17387" class="LineNr">17387 </span> <span class="subxComment"># if (in->read >= in->write) return out = {0, 0}</span> -<span id="L17388" class="LineNr">17388 </span> <span class="subxS1Comment"># . ecx = in->read</span> -<span id="L17389" class="LineNr">17389 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L17390" class="LineNr">17390 </span> <span class="subxS1Comment"># . if (ecx >= in->write) return out = {0, 0}</span> -<span id="L17391" class="LineNr">17391 </span> 3b/compare<- *esi 1/r32/ecx -<span id="L17392" class="LineNr">17392 </span> c7 0/subop/copy *edi 0/imm32 -<span id="L17393" class="LineNr">17393 </span> c7 0/subop/copy *(edi+4) 0/imm32 -<span id="L17394" class="LineNr">17394 </span> 0f 8d/jump-if->= $next-mu-token:end/disp32 -<span id="L17395" class="LineNr">17395 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> -<span id="L17396" class="LineNr">17396 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax -<span id="L17397" class="LineNr">17397 </span> 89/<- *edi 0/r32/eax -<span id="L17398" class="LineNr">17398 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> -<span id="L17399" class="LineNr">17399 </span> 31/xor-with %eax 0/r32/eax -<span id="L17400" class="LineNr">17400 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL -<span id="L17401" class="LineNr">17401 </span> { -<span id="L17402" class="LineNr">17402 </span><span class="Constant">$next-mu-token:check-for-comma</span>: -<span id="L17403" class="LineNr">17403 </span> <span class="subxComment"># if (curr-byte != ',') break</span> -<span id="L17404" class="LineNr">17404 </span> 3d/compare-eax-and 0x2c/imm32/comma -<span id="L17405" class="LineNr">17405 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17406" class="LineNr">17406 </span> <span class="subxComment"># ++in->read</span> -<span id="L17407" class="LineNr">17407 </span> ff 0/subop/increment *(esi+4) -<span id="L17408" class="LineNr">17408 </span> <span class="subxComment"># restart</span> -<span id="L17409" class="LineNr">17409 </span> e9/jump $next-mu-token:start/disp32 -<span id="L17410" class="LineNr">17410 </span> } -<span id="L17411" class="LineNr">17411 </span> { -<span id="L17412" class="LineNr">17412 </span><span class="Constant">$next-mu-token:check-for-comment</span>: -<span id="L17413" class="LineNr">17413 </span> <span class="subxComment"># if (curr-byte != '#') break</span> -<span id="L17414" class="LineNr">17414 </span> 3d/compare-eax-and 0x23/imm32/pound -<span id="L17415" class="LineNr">17415 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17416" class="LineNr">17416 </span> <span class="subxComment"># return eof</span> -<span id="L17417" class="LineNr">17417 </span> e9/jump $next-mu-token:done/disp32 -<span id="L17418" class="LineNr">17418 </span> } -<span id="L17419" class="LineNr">17419 </span> { -<span id="L17420" class="LineNr">17420 </span><span class="Constant">$next-mu-token:check-for-string-literal</span>: -<span id="L17421" class="LineNr">17421 </span> <span class="subxComment"># if (curr-byte != '"') break</span> -<span id="L17422" class="LineNr">17422 </span> 3d/compare-eax-and 0x22/imm32/dquote -<span id="L17423" class="LineNr">17423 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17424" class="LineNr">17424 </span> (<a href='124next-token.subx.html#L1171'>skip-string</a> %esi) -<span id="L17425" class="LineNr">17425 </span> <span class="subxComment"># return</span> -<span id="L17426" class="LineNr">17426 </span> e9/jump $next-mu-token:done/disp32 -<span id="L17427" class="LineNr">17427 </span> } -<span id="L17428" class="LineNr">17428 </span> { -<span id="L17429" class="LineNr">17429 </span><span class="Constant">$next-mu-token:check-for-open-paren</span>: -<span id="L17430" class="LineNr">17430 </span> <span class="subxComment"># if (curr-byte != '(') break</span> -<span id="L17431" class="LineNr">17431 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L17432" class="LineNr">17432 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17433" class="LineNr">17433 </span> <span class="subxComment"># ++in->read</span> -<span id="L17434" class="LineNr">17434 </span> ff 0/subop/increment *(esi+4) -<span id="L17435" class="LineNr">17435 </span> <span class="subxComment"># return</span> -<span id="L17436" class="LineNr">17436 </span> e9/jump $next-mu-token:done/disp32 -<span id="L17437" class="LineNr">17437 </span> } -<span id="L17438" class="LineNr">17438 </span> { -<span id="L17439" class="LineNr">17439 </span><span class="Constant">$next-mu-token:check-for-close-paren</span>: -<span id="L17440" class="LineNr">17440 </span> <span class="subxComment"># if (curr-byte != ')') break</span> -<span id="L17441" class="LineNr">17441 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L17442" class="LineNr">17442 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17443" class="LineNr">17443 </span> <span class="subxComment"># ++in->read</span> -<span id="L17444" class="LineNr">17444 </span> ff 0/subop/increment *(esi+4) -<span id="L17445" class="LineNr">17445 </span> <span class="subxComment"># return</span> -<span id="L17446" class="LineNr">17446 </span> e9/jump $next-mu-token:done/disp32 -<span id="L17447" class="LineNr">17447 </span> } -<span id="L17448" class="LineNr">17448 </span> { -<span id="L17449" class="LineNr">17449 </span><span class="Constant">$next-mu-token:regular-word-without-metadata</span>: -<span id="L17450" class="LineNr">17450 </span> <span class="subxComment"># if (in->read >= in->write) break</span> -<span id="L17451" class="LineNr">17451 </span> <span class="subxS1Comment"># . ecx = in->read</span> -<span id="L17452" class="LineNr">17452 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L17453" class="LineNr">17453 </span> <span class="subxS1Comment"># . if (ecx >= in->write) break</span> -<span id="L17454" class="LineNr">17454 </span> 3b/compare<- *esi 1/r32/ecx -<span id="L17455" class="LineNr">17455 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L17456" class="LineNr">17456 </span> <span class="subxComment"># var c/eax: byte = in->data[in->read]</span> -<span id="L17457" class="LineNr">17457 </span> 31/xor-with %eax 0/r32/eax -<span id="L17458" class="LineNr">17458 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL -<span id="L17459" class="LineNr">17459 </span> <span class="subxComment"># if (c == ' ') break</span> -<span id="L17460" class="LineNr">17460 </span> 3d/compare-eax-and 0x20/imm32/space -<span id="L17461" class="LineNr">17461 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17462" class="LineNr">17462 </span> <span class="subxComment"># if (c == '\r') break</span> -<span id="L17463" class="LineNr">17463 </span> 3d/compare-eax-and 0xd/imm32/carriage-return -<span id="L17464" class="LineNr">17464 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17465" class="LineNr">17465 </span> <span class="subxComment"># if (c == '\n') break</span> -<span id="L17466" class="LineNr">17466 </span> 3d/compare-eax-and 0xa/imm32/newline -<span id="L17467" class="LineNr">17467 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17468" class="LineNr">17468 </span> <span class="subxComment"># if (c == '(') break</span> -<span id="L17469" class="LineNr">17469 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L17470" class="LineNr">17470 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17471" class="LineNr">17471 </span> <span class="subxComment"># if (c == ')') break</span> -<span id="L17472" class="LineNr">17472 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L17473" class="LineNr">17473 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17474" class="LineNr">17474 </span> <span class="subxComment"># if (c == ',') break</span> -<span id="L17475" class="LineNr">17475 </span> 3d/compare-eax-and 0x2c/imm32/comma -<span id="L17476" class="LineNr">17476 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17477" class="LineNr">17477 </span> <span class="subxComment"># ++in->read</span> -<span id="L17478" class="LineNr">17478 </span> ff 0/subop/increment *(esi+4) -<span id="L17479" class="LineNr">17479 </span> <span class="subxComment">#</span> -<span id="L17480" class="LineNr">17480 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L17481" class="LineNr">17481 </span> } -<span id="L17482" class="LineNr">17482 </span><span class="Constant">$next-mu-token:done</span>: -<span id="L17483" class="LineNr">17483 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> -<span id="L17484" class="LineNr">17484 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L17485" class="LineNr">17485 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax -<span id="L17486" class="LineNr">17486 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L17487" class="LineNr">17487 </span><span class="Constant">$next-mu-token:end</span>: -<span id="L17488" class="LineNr">17488 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17489" class="LineNr">17489 </span> 5f/pop-to-edi -<span id="L17490" class="LineNr">17490 </span> 5e/pop-to-esi -<span id="L17491" class="LineNr">17491 </span> 59/pop-to-ecx -<span id="L17492" class="LineNr">17492 </span> 58/pop-to-eax -<span id="L17493" class="LineNr">17493 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17494" class="LineNr">17494 </span> 89/<- %esp 5/r32/ebp -<span id="L17495" class="LineNr">17495 </span> 5d/pop-to-ebp -<span id="L17496" class="LineNr">17496 </span> c3/return -<span id="L17497" class="LineNr">17497 </span> -<span id="L17498" class="LineNr">17498 </span><span class="subxFunction">pos-or-insert-slice</span>: <span class="subxComment"># arr: (addr stream (addr array byte)), s: (addr slice) -> index/eax: int</span> -<span id="L17499" class="LineNr">17499 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17500" class="LineNr">17500 </span> 55/push-ebp -<span id="L17501" class="LineNr">17501 </span> 89/<- %ebp 4/r32/esp -<span id="L17502" class="LineNr">17502 </span> <span class="subxComment"># if (pos-slice(arr, s) != -1) return it</span> -<span id="L17503" class="LineNr">17503 </span> (<a href='mu.subx.html#L17526'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L17504" class="LineNr">17504 </span> 3d/compare-eax-and -1/imm32 -<span id="L17505" class="LineNr">17505 </span> 75/jump-if-!= $pos-or-insert-slice:end/disp8 -<span id="L17506" class="LineNr">17506 </span><span class="Constant">$pos-or-insert-slice:insert</span>: -<span id="L17507" class="LineNr">17507 </span> <span class="subxComment"># var s2/eax: (handle array byte)</span> -<span id="L17508" class="LineNr">17508 </span> 68/push 0/imm32 -<span id="L17509" class="LineNr">17509 </span> 68/push 0/imm32 -<span id="L17510" class="LineNr">17510 </span> 89/<- %eax 4/r32/esp -<span id="L17511" class="LineNr">17511 </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="L17512" class="LineNr">17512 </span> <span class="subxComment"># throw away alloc-id</span> -<span id="L17513" class="LineNr">17513 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L17514" class="LineNr">17514 </span> (<a href='202write-int.subx.html#L8'>write-int</a> *(ebp+8) %eax) -<span id="L17515" class="LineNr">17515 </span> (<a href='mu.subx.html#L17526'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L17516" class="LineNr">17516 </span><span class="Constant">$pos-or-insert-slice:end</span>: -<span id="L17517" class="LineNr">17517 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17518" class="LineNr">17518 </span> 81 0/subop/add %esp 8/imm32 -<span id="L17519" class="LineNr">17519 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17520" class="LineNr">17520 </span> 89/<- %esp 5/r32/ebp -<span id="L17521" class="LineNr">17521 </span> 5d/pop-to-ebp -<span id="L17522" class="LineNr">17522 </span> c3/return -<span id="L17523" class="LineNr">17523 </span> -<span id="L17524" class="LineNr">17524 </span><span class="subxComment"># return the index in an array of strings matching 's', -1 if not found</span> -<span id="L17525" class="LineNr">17525 </span><span class="subxComment"># index is denominated in elements, not bytes</span> -<span id="L17526" class="LineNr">17526 </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="L17527" class="LineNr">17527 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17528" class="LineNr">17528 </span> 55/push-ebp -<span id="L17529" class="LineNr">17529 </span> 89/<- %ebp 4/r32/esp -<span id="L17530" class="LineNr">17530 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17531" class="LineNr">17531 </span> 51/push-ecx -<span id="L17532" class="LineNr">17532 </span> 52/push-edx -<span id="L17533" class="LineNr">17533 </span> 53/push-ebx -<span id="L17534" class="LineNr">17534 </span> 56/push-esi -<span id="L17535" class="LineNr">17535 </span><span class="CommentedCode">#? (write-buffered Stderr "pos-slice: ")</span> -<span id="L17536" class="LineNr">17536 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> -<span id="L17537" class="LineNr">17537 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> -<span id="L17538" class="LineNr">17538 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L17539" class="LineNr">17539 </span> <span class="subxComment"># esi = arr</span> -<span id="L17540" class="LineNr">17540 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L17541" class="LineNr">17541 </span> <span class="subxComment"># var index/ecx: int = 0</span> -<span id="L17542" class="LineNr">17542 </span> b9/copy-to-ecx 0/imm32 -<span id="L17543" class="LineNr">17543 </span> <span class="subxComment"># var curr/edx: (addr (addr array byte)) = arr->data</span> -<span id="L17544" class="LineNr">17544 </span> 8d/copy-address *(esi+0xc) 2/r32/edx -<span id="L17545" class="LineNr">17545 </span> <span class="subxComment"># var max/ebx: (addr (addr array byte)) = &arr->data[arr->write]</span> -<span id="L17546" class="LineNr">17546 </span> 8b/-> *esi 3/r32/ebx -<span id="L17547" class="LineNr">17547 </span> 8d/copy-address *(esi+ebx+0xc) 3/r32/ebx -<span id="L17548" class="LineNr">17548 </span> { -<span id="L17549" class="LineNr">17549 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> -<span id="L17550" class="LineNr">17550 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> -<span id="L17551" class="LineNr">17551 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> -<span id="L17552" class="LineNr">17552 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L17553" class="LineNr">17553 </span> <span class="subxComment"># if (curr >= max) return -1</span> -<span id="L17554" class="LineNr">17554 </span> 39/compare %edx 3/r32/ebx -<span id="L17555" class="LineNr">17555 </span> b8/copy-to-eax -1/imm32 -<span id="L17556" class="LineNr">17556 </span> 73/jump-if-addr>= $pos-slice:end/disp8 -<span id="L17557" class="LineNr">17557 </span> <span class="subxComment"># if (slice-equal?(s, *curr)) break</span> -<span id="L17558" class="LineNr">17558 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+0xc) *edx) <span class="subxComment"># => eax</span> -<span id="L17559" class="LineNr">17559 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17560" class="LineNr">17560 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17561" class="LineNr">17561 </span> <span class="subxComment"># ++index</span> -<span id="L17562" class="LineNr">17562 </span> 41/increment-ecx -<span id="L17563" class="LineNr">17563 </span> <span class="subxComment"># curr += 4</span> -<span id="L17564" class="LineNr">17564 </span> 81 0/subop/add %edx 4/imm32 -<span id="L17565" class="LineNr">17565 </span> <span class="subxComment">#</span> -<span id="L17566" class="LineNr">17566 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L17567" class="LineNr">17567 </span> } -<span id="L17568" class="LineNr">17568 </span> <span class="subxComment"># return index</span> -<span id="L17569" class="LineNr">17569 </span> 89/<- %eax 1/r32/ecx -<span id="L17570" class="LineNr">17570 </span><span class="Constant">$pos-slice:end</span>: -<span id="L17571" class="LineNr">17571 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> -<span id="L17572" class="LineNr">17572 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L17573" class="LineNr">17573 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> -<span id="L17574" class="LineNr">17574 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17575" class="LineNr">17575 </span> 5e/pop-to-esi -<span id="L17576" class="LineNr">17576 </span> 5b/pop-to-ebx -<span id="L17577" class="LineNr">17577 </span> 5a/pop-to-edx -<span id="L17578" class="LineNr">17578 </span> 59/pop-to-ecx -<span id="L17579" class="LineNr">17579 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17580" class="LineNr">17580 </span> 89/<- %esp 5/r32/ebp -<span id="L17581" class="LineNr">17581 </span> 5d/pop-to-ebp -<span id="L17582" class="LineNr">17582 </span> c3/return -<span id="L17583" class="LineNr">17583 </span> -<span id="L17584" class="LineNr">17584 </span><span class="subxTest">test-parse-var-with-type</span>: -<span id="L17585" class="LineNr">17585 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17586" class="LineNr">17586 </span> 55/push-ebp -<span id="L17587" class="LineNr">17587 </span> 89/<- %ebp 4/r32/esp -<span id="L17588" class="LineNr">17588 </span> <span class="subxComment"># setup</span> -<span id="L17589" class="LineNr">17589 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17590" class="LineNr">17590 </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="L17591" class="LineNr">17591 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> -<span id="L17592" class="LineNr">17592 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 -<span id="L17593" class="LineNr">17593 </span> 8b/-> *eax 1/r32/ecx -<span id="L17594" class="LineNr">17594 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17595" class="LineNr">17595 </span> 05/add-to-eax 4/imm32 -<span id="L17596" class="LineNr">17596 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17597" class="LineNr">17597 </span> 51/push-ecx -<span id="L17598" class="LineNr">17598 </span> 50/push-eax -<span id="L17599" class="LineNr">17599 </span> 89/<- %ecx 4/r32/esp -<span id="L17600" class="LineNr">17600 </span> <span class="subxComment"># _test-input-stream contains "int"</span> -<span id="L17601" class="LineNr">17601 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17602" class="LineNr">17602 </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="L17603" class="LineNr">17603 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L17604" class="LineNr">17604 </span> 68/push 0/imm32 -<span id="L17605" class="LineNr">17605 </span> 68/push 0/imm32 -<span id="L17606" class="LineNr">17606 </span> 89/<- %edx 4/r32/esp -<span id="L17607" class="LineNr">17607 </span> <span class="subxComment">#</span> -<span id="L17608" class="LineNr">17608 </span> (<a href='mu.subx.html#L16973'>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="L17609" class="LineNr">17609 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L17610" class="LineNr">17610 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17611" class="LineNr">17611 </span> 89/<- %edx 0/r32/eax -<span id="L17612" class="LineNr">17612 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L17613" class="LineNr">17613 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17614" class="LineNr">17614 </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#L17584'>test-parse-var-with-type</a>/name"</span>) -<span id="L17615" class="LineNr">17615 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L17616" class="LineNr">17616 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17617" class="LineNr">17617 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17584'>test-parse-var-with-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17618" class="LineNr">17618 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17584'>test-parse-var-with-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L17619" class="LineNr">17619 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17584'>test-parse-var-with-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17620" class="LineNr">17620 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17621" class="LineNr">17621 </span> 89/<- %esp 5/r32/ebp -<span id="L17622" class="LineNr">17622 </span> 5d/pop-to-ebp -<span id="L17623" class="LineNr">17623 </span> c3/return -<span id="L17624" class="LineNr">17624 </span> -<span id="L17625" class="LineNr">17625 </span><span class="subxTest">test-parse-var-with-type-and-register</span>: -<span id="L17626" class="LineNr">17626 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17627" class="LineNr">17627 </span> 55/push-ebp -<span id="L17628" class="LineNr">17628 </span> 89/<- %ebp 4/r32/esp -<span id="L17629" class="LineNr">17629 </span> <span class="subxComment"># setup</span> -<span id="L17630" class="LineNr">17630 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17631" class="LineNr">17631 </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="L17632" class="LineNr">17632 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> -<span id="L17633" class="LineNr">17633 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 -<span id="L17634" class="LineNr">17634 </span> 8b/-> *eax 1/r32/ecx -<span id="L17635" class="LineNr">17635 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17636" class="LineNr">17636 </span> 05/add-to-eax 4/imm32 -<span id="L17637" class="LineNr">17637 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17638" class="LineNr">17638 </span> 51/push-ecx -<span id="L17639" class="LineNr">17639 </span> 50/push-eax -<span id="L17640" class="LineNr">17640 </span> 89/<- %ecx 4/r32/esp -<span id="L17641" class="LineNr">17641 </span> <span class="subxComment"># _test-input-stream contains "int"</span> -<span id="L17642" class="LineNr">17642 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17643" class="LineNr">17643 </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="L17644" class="LineNr">17644 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L17645" class="LineNr">17645 </span> 68/push 0/imm32 -<span id="L17646" class="LineNr">17646 </span> 68/push 0/imm32 -<span id="L17647" class="LineNr">17647 </span> 89/<- %edx 4/r32/esp -<span id="L17648" class="LineNr">17648 </span> <span class="subxComment">#</span> -<span id="L17649" class="LineNr">17649 </span> (<a href='mu.subx.html#L16973'>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="L17650" class="LineNr">17650 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L17651" class="LineNr">17651 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17652" class="LineNr">17652 </span> 89/<- %edx 0/r32/eax -<span id="L17653" class="LineNr">17653 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L17654" class="LineNr">17654 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17655" class="LineNr">17655 </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#L17625'>test-parse-var-with-type-and-register</a>/name"</span>) -<span id="L17656" class="LineNr">17656 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L17657" class="LineNr">17657 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17658" class="LineNr">17658 </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#L17625'>test-parse-var-with-type-and-register</a>/register"</span>) -<span id="L17659" class="LineNr">17659 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L17660" class="LineNr">17660 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17661" class="LineNr">17661 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17625'>test-parse-var-with-type-and-register</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17662" class="LineNr">17662 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17625'>test-parse-var-with-type-and-register</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> -<span id="L17663" class="LineNr">17663 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17625'>test-parse-var-with-type-and-register</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17664" class="LineNr">17664 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17665" class="LineNr">17665 </span> 89/<- %esp 5/r32/ebp -<span id="L17666" class="LineNr">17666 </span> 5d/pop-to-ebp -<span id="L17667" class="LineNr">17667 </span> c3/return -<span id="L17668" class="LineNr">17668 </span> -<span id="L17669" class="LineNr">17669 </span><span class="subxTest">test-parse-var-with-trailing-characters</span>: -<span id="L17670" class="LineNr">17670 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17671" class="LineNr">17671 </span> 55/push-ebp -<span id="L17672" class="LineNr">17672 </span> 89/<- %ebp 4/r32/esp -<span id="L17673" class="LineNr">17673 </span> <span class="subxComment"># setup</span> -<span id="L17674" class="LineNr">17674 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17675" class="LineNr">17675 </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="L17676" class="LineNr">17676 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> -<span id="L17677" class="LineNr">17677 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 -<span id="L17678" class="LineNr">17678 </span> 8b/-> *eax 1/r32/ecx -<span id="L17679" class="LineNr">17679 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17680" class="LineNr">17680 </span> 05/add-to-eax 4/imm32 -<span id="L17681" class="LineNr">17681 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17682" class="LineNr">17682 </span> 51/push-ecx -<span id="L17683" class="LineNr">17683 </span> 50/push-eax -<span id="L17684" class="LineNr">17684 </span> 89/<- %ecx 4/r32/esp -<span id="L17685" class="LineNr">17685 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> -<span id="L17686" class="LineNr">17686 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17687" class="LineNr">17687 </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="L17688" class="LineNr">17688 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L17689" class="LineNr">17689 </span> 68/push 0/imm32 -<span id="L17690" class="LineNr">17690 </span> 68/push 0/imm32 -<span id="L17691" class="LineNr">17691 </span> 89/<- %edx 4/r32/esp -<span id="L17692" class="LineNr">17692 </span> <span class="subxComment">#</span> -<span id="L17693" class="LineNr">17693 </span> (<a href='mu.subx.html#L16973'>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="L17694" class="LineNr">17694 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L17695" class="LineNr">17695 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17696" class="LineNr">17696 </span> 89/<- %edx 0/r32/eax -<span id="L17697" class="LineNr">17697 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L17698" class="LineNr">17698 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17699" class="LineNr">17699 </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#L17669'>test-parse-var-with-trailing-characters</a>/name"</span>) -<span id="L17700" class="LineNr">17700 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L17701" class="LineNr">17701 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L17669'>test-parse-var-with-trailing-characters</a>/register"</span>) <span class="subxComment"># Var-register</span> -<span id="L17702" class="LineNr">17702 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L17703" class="LineNr">17703 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17704" class="LineNr">17704 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17669'>test-parse-var-with-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17705" class="LineNr">17705 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17669'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> -<span id="L17706" class="LineNr">17706 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17669'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17707" class="LineNr">17707 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17708" class="LineNr">17708 </span> 89/<- %esp 5/r32/ebp -<span id="L17709" class="LineNr">17709 </span> 5d/pop-to-ebp -<span id="L17710" class="LineNr">17710 </span> c3/return -<span id="L17711" class="LineNr">17711 </span> -<span id="L17712" class="LineNr">17712 </span><span class="subxTest">test-parse-var-with-register-and-trailing-characters</span>: -<span id="L17713" class="LineNr">17713 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17714" class="LineNr">17714 </span> 55/push-ebp -<span id="L17715" class="LineNr">17715 </span> 89/<- %ebp 4/r32/esp -<span id="L17716" class="LineNr">17716 </span> <span class="subxComment"># setup</span> -<span id="L17717" class="LineNr">17717 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17718" class="LineNr">17718 </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="L17719" class="LineNr">17719 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> -<span id="L17720" class="LineNr">17720 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 -<span id="L17721" class="LineNr">17721 </span> 8b/-> *eax 1/r32/ecx -<span id="L17722" class="LineNr">17722 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17723" class="LineNr">17723 </span> 05/add-to-eax 4/imm32 -<span id="L17724" class="LineNr">17724 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17725" class="LineNr">17725 </span> 51/push-ecx -<span id="L17726" class="LineNr">17726 </span> 50/push-eax -<span id="L17727" class="LineNr">17727 </span> 89/<- %ecx 4/r32/esp -<span id="L17728" class="LineNr">17728 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> -<span id="L17729" class="LineNr">17729 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17730" class="LineNr">17730 </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="L17731" class="LineNr">17731 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L17732" class="LineNr">17732 </span> 68/push 0/imm32 -<span id="L17733" class="LineNr">17733 </span> 68/push 0/imm32 -<span id="L17734" class="LineNr">17734 </span> 89/<- %edx 4/r32/esp -<span id="L17735" class="LineNr">17735 </span> <span class="subxComment">#</span> -<span id="L17736" class="LineNr">17736 </span> (<a href='mu.subx.html#L16973'>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="L17737" class="LineNr">17737 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L17738" class="LineNr">17738 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17739" class="LineNr">17739 </span> 89/<- %edx 0/r32/eax -<span id="L17740" class="LineNr">17740 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L17741" class="LineNr">17741 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17742" class="LineNr">17742 </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#L17712'>test-parse-var-with-register-and-trailing-characters</a>/name"</span>) -<span id="L17743" class="LineNr">17743 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L17744" class="LineNr">17744 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17745" class="LineNr">17745 </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#L17712'>test-parse-var-with-register-and-trailing-characters</a>/register"</span>) -<span id="L17746" class="LineNr">17746 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L17747" class="LineNr">17747 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17748" class="LineNr">17748 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17712'>test-parse-var-with-register-and-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17749" class="LineNr">17749 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17712'>test-parse-var-with-register-and-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> -<span id="L17750" class="LineNr">17750 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17712'>test-parse-var-with-register-and-trailing-characters</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17751" class="LineNr">17751 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17752" class="LineNr">17752 </span> 89/<- %esp 5/r32/ebp -<span id="L17753" class="LineNr">17753 </span> 5d/pop-to-ebp -<span id="L17754" class="LineNr">17754 </span> c3/return -<span id="L17755" class="LineNr">17755 </span> -<span id="L17756" class="LineNr">17756 </span><span class="subxTest">test-parse-var-with-compound-type</span>: -<span id="L17757" class="LineNr">17757 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17758" class="LineNr">17758 </span> 55/push-ebp -<span id="L17759" class="LineNr">17759 </span> 89/<- %ebp 4/r32/esp -<span id="L17760" class="LineNr">17760 </span> <span class="subxComment"># setup</span> -<span id="L17761" class="LineNr">17761 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17762" class="LineNr">17762 </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="L17763" class="LineNr">17763 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> -<span id="L17764" class="LineNr">17764 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 -<span id="L17765" class="LineNr">17765 </span> 8b/-> *eax 1/r32/ecx -<span id="L17766" class="LineNr">17766 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17767" class="LineNr">17767 </span> 05/add-to-eax 4/imm32 -<span id="L17768" class="LineNr">17768 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17769" class="LineNr">17769 </span> 51/push-ecx -<span id="L17770" class="LineNr">17770 </span> 50/push-eax -<span id="L17771" class="LineNr">17771 </span> 89/<- %ecx 4/r32/esp -<span id="L17772" class="LineNr">17772 </span> <span class="subxComment"># _test-input-stream contains "(addr int)"</span> -<span id="L17773" class="LineNr">17773 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17774" class="LineNr">17774 </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="L17775" class="LineNr">17775 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L17776" class="LineNr">17776 </span> 68/push 0/imm32 -<span id="L17777" class="LineNr">17777 </span> 68/push 0/imm32 -<span id="L17778" class="LineNr">17778 </span> 89/<- %edx 4/r32/esp -<span id="L17779" class="LineNr">17779 </span> <span class="subxComment">#</span> -<span id="L17780" class="LineNr">17780 </span> (<a href='mu.subx.html#L16973'>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="L17781" class="LineNr">17781 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L17782" class="LineNr">17782 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17783" class="LineNr">17783 </span> 89/<- %edx 0/r32/eax -<span id="L17784" class="LineNr">17784 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L17785" class="LineNr">17785 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17786" class="LineNr">17786 </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#L17756'>test-parse-var-with-compound-type</a>/name"</span>) -<span id="L17787" class="LineNr">17787 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L17788" class="LineNr">17788 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L17756'>test-parse-var-with-compound-type</a>/register"</span>) <span class="subxComment"># Var-register</span> -<span id="L17789" class="LineNr">17789 </span> <span class="subxH1Comment"># - check v-addr->type</span> -<span id="L17790" class="LineNr">17790 </span> <span class="subxComment"># var type/edx: (addr type-tree) = var->type</span> -<span id="L17791" class="LineNr">17791 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17792" class="LineNr">17792 </span> 89/<- %edx 0/r32/eax -<span id="L17793" class="LineNr">17793 </span> <span class="subxComment"># type is a non-atom</span> -<span id="L17794" class="LineNr">17794 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *edx 0 <span class="Constant">"F - <a href='mu.subx.html#L17756'>test-parse-var-with-compound-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17795" class="LineNr">17795 </span> <span class="subxComment"># type->left == atom(addr)</span> -<span id="L17796" class="LineNr">17796 </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="L17797" class="LineNr">17797 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17756'>test-parse-var-with-compound-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17798" class="LineNr">17798 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L17756'>test-parse-var-with-compound-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L17799" class="LineNr">17799 </span> <span class="subxComment"># type->right->left == atom(int)</span> -<span id="L17800" class="LineNr">17800 </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="L17801" class="LineNr">17801 </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="L17802" class="LineNr">17802 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17756'>test-parse-var-with-compound-type</a>/type:3"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17803" class="LineNr">17803 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17756'>test-parse-var-with-compound-type</a>/type:4"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L17804" class="LineNr">17804 </span> <span class="subxComment"># type->right->right == null</span> -<span id="L17805" class="LineNr">17805 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17756'>test-parse-var-with-compound-type</a>/type:5"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17806" class="LineNr">17806 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17807" class="LineNr">17807 </span> 89/<- %esp 5/r32/ebp -<span id="L17808" class="LineNr">17808 </span> 5d/pop-to-ebp -<span id="L17809" class="LineNr">17809 </span> c3/return -<span id="L17810" class="LineNr">17810 </span> -<span id="L17811" class="LineNr">17811 </span><span class="subxComment"># identifier starts with a letter or '$' or '_'</span> -<span id="L17812" class="LineNr">17812 </span><span class="subxComment"># no constraints at the moment on later letters</span> -<span id="L17813" class="LineNr">17813 </span><span class="subxComment"># all we really want to do so far is exclude '{', '}' and '->'</span> -<span id="L17814" class="LineNr">17814 </span><span class="subxFunction">identifier?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> -<span id="L17815" class="LineNr">17815 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17816" class="LineNr">17816 </span> 55/push-ebp -<span id="L17817" class="LineNr">17817 </span> 89/<- %ebp 4/r32/esp -<span id="L17818" class="LineNr">17818 </span> <span class="subxComment"># if (slice-empty?(in)) return false</span> -<span id="L17819" class="LineNr">17819 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L17820" class="LineNr">17820 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17821" class="LineNr">17821 </span> 75/jump-if-!= $identifier?:false/disp8 -<span id="L17822" class="LineNr">17822 </span> <span class="subxComment"># var c/eax: byte = *in->start</span> -<span id="L17823" class="LineNr">17823 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L17824" class="LineNr">17824 </span> 8b/-> *eax 0/r32/eax -<span id="L17825" class="LineNr">17825 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L17826" class="LineNr">17826 </span> 25/and-eax-with 0xff/imm32 -<span id="L17827" class="LineNr">17827 </span> <span class="subxComment"># if (c == '$') return true</span> -<span id="L17828" class="LineNr">17828 </span> 3d/compare-eax-and 0x24/imm32/$ -<span id="L17829" class="LineNr">17829 </span> 74/jump-if-= $identifier?:true/disp8 -<span id="L17830" class="LineNr">17830 </span> <span class="subxComment"># if (c == '_') return true</span> -<span id="L17831" class="LineNr">17831 </span> 3d/compare-eax-and 0x5f/imm32/_ -<span id="L17832" class="LineNr">17832 </span> 74/jump-if-= $identifier?:true/disp8 -<span id="L17833" class="LineNr">17833 </span> <span class="subxComment"># drop case</span> -<span id="L17834" class="LineNr">17834 </span> 25/and-eax-with 0x5f/imm32 -<span id="L17835" class="LineNr">17835 </span> <span class="subxComment"># if (c < 'A') return false</span> -<span id="L17836" class="LineNr">17836 </span> 3d/compare-eax-and 0x41/imm32/A -<span id="L17837" class="LineNr">17837 </span> 7c/jump-if-< $identifier?:false/disp8 -<span id="L17838" class="LineNr">17838 </span> <span class="subxComment"># if (c > 'Z') return false</span> -<span id="L17839" class="LineNr">17839 </span> 3d/compare-eax-and 0x5a/imm32/Z -<span id="L17840" class="LineNr">17840 </span> 7f/jump-if-> $identifier?:false/disp8 -<span id="L17841" class="LineNr">17841 </span> <span class="subxComment"># otherwise return true</span> -<span id="L17842" class="LineNr">17842 </span><span class="Constant">$identifier?:true</span>: -<span id="L17843" class="LineNr">17843 </span> b8/copy-to-eax 1/imm32/true -<span id="L17844" class="LineNr">17844 </span> eb/jump $identifier?:end/disp8 -<span id="L17845" class="LineNr">17845 </span><span class="Constant">$identifier?:false</span>: -<span id="L17846" class="LineNr">17846 </span> b8/copy-to-eax 0/imm32/false -<span id="L17847" class="LineNr">17847 </span><span class="Constant">$identifier?:end</span>: -<span id="L17848" class="LineNr">17848 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17849" class="LineNr">17849 </span> 89/<- %esp 5/r32/ebp -<span id="L17850" class="LineNr">17850 </span> 5d/pop-to-ebp -<span id="L17851" class="LineNr">17851 </span> c3/return -<span id="L17852" class="LineNr">17852 </span> -<span id="L17853" class="LineNr">17853 </span><span class="subxTest">test-is-identifier-dollar</span>: -<span id="L17854" class="LineNr">17854 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17855" class="LineNr">17855 </span> 55/push-ebp -<span id="L17856" class="LineNr">17856 </span> 89/<- %ebp 4/r32/esp -<span id="L17857" class="LineNr">17857 </span> <span class="subxComment"># (eax..ecx) = "$a"</span> -<span id="L17858" class="LineNr">17858 </span> b8/copy-to-eax <span class="Constant">"$a"</span>/imm32 -<span id="L17859" class="LineNr">17859 </span> 8b/-> *eax 1/r32/ecx -<span id="L17860" class="LineNr">17860 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17861" class="LineNr">17861 </span> 05/add-to-eax 4/imm32 -<span id="L17862" class="LineNr">17862 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17863" class="LineNr">17863 </span> 51/push-ecx -<span id="L17864" class="LineNr">17864 </span> 50/push-eax -<span id="L17865" class="LineNr">17865 </span> 89/<- %ecx 4/r32/esp -<span id="L17866" class="LineNr">17866 </span> <span class="subxComment">#</span> -<span id="L17867" class="LineNr">17867 </span> (<a href='mu.subx.html#L17814'>identifier?</a> %ecx) -<span id="L17868" class="LineNr">17868 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-dollar"</span>) -<span id="L17869" class="LineNr">17869 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17870" class="LineNr">17870 </span> 89/<- %esp 5/r32/ebp -<span id="L17871" class="LineNr">17871 </span> 5d/pop-to-ebp -<span id="L17872" class="LineNr">17872 </span> c3/return -<span id="L17873" class="LineNr">17873 </span> -<span id="L17874" class="LineNr">17874 </span><span class="subxTest">test-is-identifier-underscore</span>: -<span id="L17875" class="LineNr">17875 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17876" class="LineNr">17876 </span> 55/push-ebp -<span id="L17877" class="LineNr">17877 </span> 89/<- %ebp 4/r32/esp -<span id="L17878" class="LineNr">17878 </span> <span class="subxComment"># (eax..ecx) = "_a"</span> -<span id="L17879" class="LineNr">17879 </span> b8/copy-to-eax <span class="Constant">"_a"</span>/imm32 -<span id="L17880" class="LineNr">17880 </span> 8b/-> *eax 1/r32/ecx -<span id="L17881" class="LineNr">17881 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17882" class="LineNr">17882 </span> 05/add-to-eax 4/imm32 -<span id="L17883" class="LineNr">17883 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17884" class="LineNr">17884 </span> 51/push-ecx -<span id="L17885" class="LineNr">17885 </span> 50/push-eax -<span id="L17886" class="LineNr">17886 </span> 89/<- %ecx 4/r32/esp -<span id="L17887" class="LineNr">17887 </span> <span class="subxComment">#</span> -<span id="L17888" class="LineNr">17888 </span> (<a href='mu.subx.html#L17814'>identifier?</a> %ecx) -<span id="L17889" class="LineNr">17889 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-underscore"</span>) -<span id="L17890" class="LineNr">17890 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17891" class="LineNr">17891 </span> 89/<- %esp 5/r32/ebp -<span id="L17892" class="LineNr">17892 </span> 5d/pop-to-ebp -<span id="L17893" class="LineNr">17893 </span> c3/return -<span id="L17894" class="LineNr">17894 </span> -<span id="L17895" class="LineNr">17895 </span><span class="subxTest">test-is-identifier-a</span>: -<span id="L17896" class="LineNr">17896 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17897" class="LineNr">17897 </span> 55/push-ebp -<span id="L17898" class="LineNr">17898 </span> 89/<- %ebp 4/r32/esp -<span id="L17899" class="LineNr">17899 </span> <span class="subxComment"># (eax..ecx) = "a$"</span> -<span id="L17900" class="LineNr">17900 </span> b8/copy-to-eax <span class="Constant">"a$"</span>/imm32 -<span id="L17901" class="LineNr">17901 </span> 8b/-> *eax 1/r32/ecx -<span id="L17902" class="LineNr">17902 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17903" class="LineNr">17903 </span> 05/add-to-eax 4/imm32 -<span id="L17904" class="LineNr">17904 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17905" class="LineNr">17905 </span> 51/push-ecx -<span id="L17906" class="LineNr">17906 </span> 50/push-eax -<span id="L17907" class="LineNr">17907 </span> 89/<- %ecx 4/r32/esp -<span id="L17908" class="LineNr">17908 </span> <span class="subxComment">#</span> -<span id="L17909" class="LineNr">17909 </span> (<a href='mu.subx.html#L17814'>identifier?</a> %ecx) -<span id="L17910" class="LineNr">17910 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-a"</span>) -<span id="L17911" class="LineNr">17911 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17912" class="LineNr">17912 </span> 89/<- %esp 5/r32/ebp -<span id="L17913" class="LineNr">17913 </span> 5d/pop-to-ebp -<span id="L17914" class="LineNr">17914 </span> c3/return -<span id="L17915" class="LineNr">17915 </span> -<span id="L17916" class="LineNr">17916 </span><span class="subxTest">test-is-identifier-z</span>: -<span id="L17917" class="LineNr">17917 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17918" class="LineNr">17918 </span> 55/push-ebp -<span id="L17919" class="LineNr">17919 </span> 89/<- %ebp 4/r32/esp -<span id="L17920" class="LineNr">17920 </span> <span class="subxComment"># (eax..ecx) = "z$"</span> -<span id="L17921" class="LineNr">17921 </span> b8/copy-to-eax <span class="Constant">"z$"</span>/imm32 -<span id="L17922" class="LineNr">17922 </span> 8b/-> *eax 1/r32/ecx -<span id="L17923" class="LineNr">17923 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17924" class="LineNr">17924 </span> 05/add-to-eax 4/imm32 -<span id="L17925" class="LineNr">17925 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17926" class="LineNr">17926 </span> 51/push-ecx -<span id="L17927" class="LineNr">17927 </span> 50/push-eax -<span id="L17928" class="LineNr">17928 </span> 89/<- %ecx 4/r32/esp -<span id="L17929" class="LineNr">17929 </span> <span class="subxComment">#</span> -<span id="L17930" class="LineNr">17930 </span> (<a href='mu.subx.html#L17814'>identifier?</a> %ecx) -<span id="L17931" class="LineNr">17931 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-z"</span>) -<span id="L17932" class="LineNr">17932 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17933" class="LineNr">17933 </span> 89/<- %esp 5/r32/ebp -<span id="L17934" class="LineNr">17934 </span> 5d/pop-to-ebp -<span id="L17935" class="LineNr">17935 </span> c3/return -<span id="L17936" class="LineNr">17936 </span> -<span id="L17937" class="LineNr">17937 </span><span class="subxTest">test-is-identifier-A</span>: -<span id="L17938" class="LineNr">17938 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17939" class="LineNr">17939 </span> 55/push-ebp -<span id="L17940" class="LineNr">17940 </span> 89/<- %ebp 4/r32/esp -<span id="L17941" class="LineNr">17941 </span> <span class="subxComment"># (eax..ecx) = "A$"</span> -<span id="L17942" class="LineNr">17942 </span> b8/copy-to-eax <span class="Constant">"A$"</span>/imm32 -<span id="L17943" class="LineNr">17943 </span> 8b/-> *eax 1/r32/ecx -<span id="L17944" class="LineNr">17944 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17945" class="LineNr">17945 </span> 05/add-to-eax 4/imm32 -<span id="L17946" class="LineNr">17946 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17947" class="LineNr">17947 </span> 51/push-ecx -<span id="L17948" class="LineNr">17948 </span> 50/push-eax -<span id="L17949" class="LineNr">17949 </span> 89/<- %ecx 4/r32/esp -<span id="L17950" class="LineNr">17950 </span> <span class="subxComment">#</span> -<span id="L17951" class="LineNr">17951 </span> (<a href='mu.subx.html#L17814'>identifier?</a> %ecx) -<span id="L17952" class="LineNr">17952 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-A"</span>) -<span id="L17953" class="LineNr">17953 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17954" class="LineNr">17954 </span> 89/<- %esp 5/r32/ebp -<span id="L17955" class="LineNr">17955 </span> 5d/pop-to-ebp -<span id="L17956" class="LineNr">17956 </span> c3/return -<span id="L17957" class="LineNr">17957 </span> -<span id="L17958" class="LineNr">17958 </span><span class="subxTest">test-is-identifier-Z</span>: -<span id="L17959" class="LineNr">17959 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17960" class="LineNr">17960 </span> 55/push-ebp -<span id="L17961" class="LineNr">17961 </span> 89/<- %ebp 4/r32/esp -<span id="L17962" class="LineNr">17962 </span> <span class="subxComment"># (eax..ecx) = "Z$"</span> -<span id="L17963" class="LineNr">17963 </span> b8/copy-to-eax <span class="Constant">"Z$"</span>/imm32 -<span id="L17964" class="LineNr">17964 </span> 8b/-> *eax 1/r32/ecx -<span id="L17965" class="LineNr">17965 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17966" class="LineNr">17966 </span> 05/add-to-eax 4/imm32 -<span id="L17967" class="LineNr">17967 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17968" class="LineNr">17968 </span> 51/push-ecx -<span id="L17969" class="LineNr">17969 </span> 50/push-eax -<span id="L17970" class="LineNr">17970 </span> 89/<- %ecx 4/r32/esp -<span id="L17971" class="LineNr">17971 </span> <span class="subxComment">#</span> -<span id="L17972" class="LineNr">17972 </span> (<a href='mu.subx.html#L17814'>identifier?</a> %ecx) -<span id="L17973" class="LineNr">17973 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-Z"</span>) -<span id="L17974" class="LineNr">17974 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17975" class="LineNr">17975 </span> 89/<- %esp 5/r32/ebp -<span id="L17976" class="LineNr">17976 </span> 5d/pop-to-ebp -<span id="L17977" class="LineNr">17977 </span> c3/return -<span id="L17978" class="LineNr">17978 </span> -<span id="L17979" class="LineNr">17979 </span><span class="subxTest">test-is-identifier-at</span>: -<span id="L17980" class="LineNr">17980 </span> <span class="subxComment"># character before 'A' is invalid</span> -<span id="L17981" class="LineNr">17981 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17982" class="LineNr">17982 </span> 55/push-ebp -<span id="L17983" class="LineNr">17983 </span> 89/<- %ebp 4/r32/esp -<span id="L17984" class="LineNr">17984 </span> <span class="subxComment"># (eax..ecx) = "@a"</span> -<span id="L17985" class="LineNr">17985 </span> b8/copy-to-eax <span class="Constant">"@a"</span>/imm32 -<span id="L17986" class="LineNr">17986 </span> 8b/-> *eax 1/r32/ecx -<span id="L17987" class="LineNr">17987 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17988" class="LineNr">17988 </span> 05/add-to-eax 4/imm32 -<span id="L17989" class="LineNr">17989 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17990" class="LineNr">17990 </span> 51/push-ecx -<span id="L17991" class="LineNr">17991 </span> 50/push-eax -<span id="L17992" class="LineNr">17992 </span> 89/<- %ecx 4/r32/esp -<span id="L17993" class="LineNr">17993 </span> <span class="subxComment">#</span> -<span id="L17994" class="LineNr">17994 </span> (<a href='mu.subx.html#L17814'>identifier?</a> %ecx) -<span id="L17995" class="LineNr">17995 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) -<span id="L17996" class="LineNr">17996 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17997" class="LineNr">17997 </span> 89/<- %esp 5/r32/ebp -<span id="L17998" class="LineNr">17998 </span> 5d/pop-to-ebp -<span id="L17999" class="LineNr">17999 </span> c3/return -<span id="L18000" class="LineNr">18000 </span> -<span id="L18001" class="LineNr">18001 </span><span class="subxTest">test-is-identifier-square-bracket</span>: -<span id="L18002" class="LineNr">18002 </span> <span class="subxComment"># character after 'Z' is invalid</span> -<span id="L18003" class="LineNr">18003 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18004" class="LineNr">18004 </span> 55/push-ebp -<span id="L18005" class="LineNr">18005 </span> 89/<- %ebp 4/r32/esp -<span id="L18006" class="LineNr">18006 </span> <span class="subxComment"># (eax..ecx) = "[a"</span> -<span id="L18007" class="LineNr">18007 </span> b8/copy-to-eax <span class="Constant">"[a"</span>/imm32 -<span id="L18008" class="LineNr">18008 </span> 8b/-> *eax 1/r32/ecx -<span id="L18009" class="LineNr">18009 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L18010" class="LineNr">18010 </span> 05/add-to-eax 4/imm32 -<span id="L18011" class="LineNr">18011 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L18012" class="LineNr">18012 </span> 51/push-ecx -<span id="L18013" class="LineNr">18013 </span> 50/push-eax -<span id="L18014" class="LineNr">18014 </span> 89/<- %ecx 4/r32/esp -<span id="L18015" class="LineNr">18015 </span> <span class="subxComment">#</span> -<span id="L18016" class="LineNr">18016 </span> (<a href='mu.subx.html#L17814'>identifier?</a> %ecx) -<span id="L18017" class="LineNr">18017 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) -<span id="L18018" class="LineNr">18018 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18019" class="LineNr">18019 </span> 89/<- %esp 5/r32/ebp -<span id="L18020" class="LineNr">18020 </span> 5d/pop-to-ebp -<span id="L18021" class="LineNr">18021 </span> c3/return -<span id="L18022" class="LineNr">18022 </span> -<span id="L18023" class="LineNr">18023 </span><span class="subxTest">test-is-identifier-backtick</span>: -<span id="L18024" class="LineNr">18024 </span> <span class="subxComment"># character before 'a' is invalid</span> -<span id="L18025" class="LineNr">18025 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18026" class="LineNr">18026 </span> 55/push-ebp -<span id="L18027" class="LineNr">18027 </span> 89/<- %ebp 4/r32/esp -<span id="L18028" class="LineNr">18028 </span> <span class="subxComment"># (eax..ecx) = "`a"</span> -<span id="L18029" class="LineNr">18029 </span> b8/copy-to-eax <span class="Constant">"`a"</span>/imm32 -<span id="L18030" class="LineNr">18030 </span> 8b/-> *eax 1/r32/ecx -<span id="L18031" class="LineNr">18031 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L18032" class="LineNr">18032 </span> 05/add-to-eax 4/imm32 -<span id="L18033" class="LineNr">18033 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L18034" class="LineNr">18034 </span> 51/push-ecx -<span id="L18035" class="LineNr">18035 </span> 50/push-eax -<span id="L18036" class="LineNr">18036 </span> 89/<- %ecx 4/r32/esp -<span id="L18037" class="LineNr">18037 </span> <span class="subxComment">#</span> -<span id="L18038" class="LineNr">18038 </span> (<a href='mu.subx.html#L17814'>identifier?</a> %ecx) -<span id="L18039" class="LineNr">18039 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-backtick"</span>) -<span id="L18040" class="LineNr">18040 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18041" class="LineNr">18041 </span> 89/<- %esp 5/r32/ebp -<span id="L18042" class="LineNr">18042 </span> 5d/pop-to-ebp -<span id="L18043" class="LineNr">18043 </span> c3/return -<span id="L18044" class="LineNr">18044 </span> -<span id="L18045" class="LineNr">18045 </span><span class="subxTest">test-is-identifier-curly-brace-open</span>: -<span id="L18046" class="LineNr">18046 </span> <span class="subxComment"># character after 'z' is invalid; also used for blocks</span> -<span id="L18047" class="LineNr">18047 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18048" class="LineNr">18048 </span> 55/push-ebp -<span id="L18049" class="LineNr">18049 </span> 89/<- %ebp 4/r32/esp -<span id="L18050" class="LineNr">18050 </span> <span class="subxComment"># (eax..ecx) = "{a"</span> -<span id="L18051" class="LineNr">18051 </span> b8/copy-to-eax <span class="Constant">"{a"</span>/imm32 -<span id="L18052" class="LineNr">18052 </span> 8b/-> *eax 1/r32/ecx -<span id="L18053" class="LineNr">18053 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L18054" class="LineNr">18054 </span> 05/add-to-eax 4/imm32 -<span id="L18055" class="LineNr">18055 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L18056" class="LineNr">18056 </span> 51/push-ecx -<span id="L18057" class="LineNr">18057 </span> 50/push-eax -<span id="L18058" class="LineNr">18058 </span> 89/<- %ecx 4/r32/esp -<span id="L18059" class="LineNr">18059 </span> <span class="subxComment">#</span> -<span id="L18060" class="LineNr">18060 </span> (<a href='mu.subx.html#L17814'>identifier?</a> %ecx) -<span id="L18061" class="LineNr">18061 </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="L18062" class="LineNr">18062 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18063" class="LineNr">18063 </span> 89/<- %esp 5/r32/ebp -<span id="L18064" class="LineNr">18064 </span> 5d/pop-to-ebp -<span id="L18065" class="LineNr">18065 </span> c3/return -<span id="L18066" class="LineNr">18066 </span> -<span id="L18067" class="LineNr">18067 </span><span class="subxTest">test-is-identifier-curly-brace-close</span>: -<span id="L18068" class="LineNr">18068 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18069" class="LineNr">18069 </span> 55/push-ebp -<span id="L18070" class="LineNr">18070 </span> 89/<- %ebp 4/r32/esp -<span id="L18071" class="LineNr">18071 </span> <span class="subxComment"># (eax..ecx) = "}a"</span> -<span id="L18072" class="LineNr">18072 </span> b8/copy-to-eax <span class="Constant">"}a"</span>/imm32 -<span id="L18073" class="LineNr">18073 </span> 8b/-> *eax 1/r32/ecx -<span id="L18074" class="LineNr">18074 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L18075" class="LineNr">18075 </span> 05/add-to-eax 4/imm32 -<span id="L18076" class="LineNr">18076 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L18077" class="LineNr">18077 </span> 51/push-ecx -<span id="L18078" class="LineNr">18078 </span> 50/push-eax -<span id="L18079" class="LineNr">18079 </span> 89/<- %ecx 4/r32/esp -<span id="L18080" class="LineNr">18080 </span> <span class="subxComment">#</span> -<span id="L18081" class="LineNr">18081 </span> (<a href='mu.subx.html#L17814'>identifier?</a> %ecx) -<span id="L18082" class="LineNr">18082 </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="L18083" class="LineNr">18083 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18084" class="LineNr">18084 </span> 89/<- %esp 5/r32/ebp -<span id="L18085" class="LineNr">18085 </span> 5d/pop-to-ebp -<span id="L18086" class="LineNr">18086 </span> c3/return -<span id="L18087" class="LineNr">18087 </span> -<span id="L18088" class="LineNr">18088 </span><span class="subxTest">test-is-identifier-hyphen</span>: -<span id="L18089" class="LineNr">18089 </span> <span class="subxComment"># disallow leading '-' since '->' has special meaning</span> -<span id="L18090" class="LineNr">18090 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18091" class="LineNr">18091 </span> 55/push-ebp -<span id="L18092" class="LineNr">18092 </span> 89/<- %ebp 4/r32/esp -<span id="L18093" class="LineNr">18093 </span> <span class="subxComment"># (eax..ecx) = "-a"</span> -<span id="L18094" class="LineNr">18094 </span> b8/copy-to-eax <span class="Constant">"-a"</span>/imm32 -<span id="L18095" class="LineNr">18095 </span> 8b/-> *eax 1/r32/ecx -<span id="L18096" class="LineNr">18096 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L18097" class="LineNr">18097 </span> 05/add-to-eax 4/imm32 -<span id="L18098" class="LineNr">18098 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L18099" class="LineNr">18099 </span> 51/push-ecx -<span id="L18100" class="LineNr">18100 </span> 50/push-eax -<span id="L18101" class="LineNr">18101 </span> 89/<- %ecx 4/r32/esp -<span id="L18102" class="LineNr">18102 </span> <span class="subxComment">#</span> -<span id="L18103" class="LineNr">18103 </span> (<a href='mu.subx.html#L17814'>identifier?</a> %ecx) -<span id="L18104" class="LineNr">18104 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-hyphen"</span>) -<span id="L18105" class="LineNr">18105 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18106" class="LineNr">18106 </span> 89/<- %esp 5/r32/ebp -<span id="L18107" class="LineNr">18107 </span> 5d/pop-to-ebp -<span id="L18108" class="LineNr">18108 </span> c3/return -<span id="L18109" class="LineNr">18109 </span> -<span id="L18110" class="LineNr">18110 </span><span class="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="L18111" class="LineNr">18111 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18112" class="LineNr">18112 </span> 55/push-ebp -<span id="L18113" class="LineNr">18113 </span> 89/<- %ebp 4/r32/esp -<span id="L18114" class="LineNr">18114 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18115" class="LineNr">18115 </span> 50/push-eax -<span id="L18116" class="LineNr">18116 </span> 56/push-esi -<span id="L18117" class="LineNr">18117 </span> 57/push-edi -<span id="L18118" class="LineNr">18118 </span> <span class="subxComment"># esi = in</span> -<span id="L18119" class="LineNr">18119 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L18120" class="LineNr">18120 </span> <span class="subxComment"># edi = out</span> -<span id="L18121" class="LineNr">18121 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L18122" class="LineNr">18122 </span> <span class="subxComment"># initialize some global state</span> -<span id="L18123" class="LineNr">18123 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 1/imm32 -<span id="L18124" class="LineNr">18124 </span> <span class="subxComment"># parse-mu-block(in, vars, out, out->body)</span> -<span id="L18125" class="LineNr">18125 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Function-body</span> -<span id="L18126" class="LineNr">18126 </span> (<a href='mu.subx.html#L18138'>parse-mu-block</a> %esi *(ebp+0x10) %edi %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L18127" class="LineNr">18127 </span><span class="Constant">$populate-mu-function-body:end</span>: -<span id="L18128" class="LineNr">18128 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18129" class="LineNr">18129 </span> 5f/pop-to-edi -<span id="L18130" class="LineNr">18130 </span> 5e/pop-to-esi -<span id="L18131" class="LineNr">18131 </span> 58/pop-to-eax -<span id="L18132" class="LineNr">18132 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18133" class="LineNr">18133 </span> 89/<- %esp 5/r32/ebp -<span id="L18134" class="LineNr">18134 </span> 5d/pop-to-ebp -<span id="L18135" class="LineNr">18135 </span> c3/return -<span id="L18136" class="LineNr">18136 </span> -<span id="L18137" class="LineNr">18137 </span><span class="subxComment"># parses a block, assuming that the leading '{' has already been read by the caller</span> -<span id="L18138" class="LineNr">18138 </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="L18139" class="LineNr">18139 </span> <span class="subxComment"># pseudocode:</span> -<span id="L18140" class="LineNr">18140 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L18141" class="LineNr">18141 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L18142" class="LineNr">18142 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> -<span id="L18143" class="LineNr">18143 </span> <span class="subxComment"># var out-addr: (addr block) = lookup(*out)</span> -<span id="L18144" class="LineNr">18144 </span> <span class="subxComment"># out-addr->tag = 0/block</span> -<span id="L18145" class="LineNr">18145 </span> <span class="subxComment"># out-addr->var = some unique name</span> -<span id="L18146" class="LineNr">18146 </span> <span class="subxComment"># push(vars, {out-addr->var, false})</span> -<span id="L18147" class="LineNr">18147 </span> <span class="subxComment"># while true # line loop</span> -<span id="L18148" class="LineNr">18148 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L18149" class="LineNr">18149 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L18150" class="LineNr">18150 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> -<span id="L18151" class="LineNr">18151 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L18152" class="LineNr">18152 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L18153" class="LineNr">18153 </span> <span class="subxComment"># continue</span> -<span id="L18154" class="LineNr">18154 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#")</span> -<span id="L18155" class="LineNr">18155 </span> <span class="subxComment"># continue</span> -<span id="L18156" class="LineNr">18156 </span> <span class="subxComment"># else if slice-equal?(word-slice, "{")</span> -<span id="L18157" class="LineNr">18157 </span> <span class="subxComment"># assert(no-tokens-in(line))</span> -<span id="L18158" class="LineNr">18158 </span> <span class="subxComment"># block = parse-mu-block(in, vars, fn)</span> -<span id="L18159" class="LineNr">18159 </span> <span class="subxComment"># append-to-block(out-addr, block)</span> -<span id="L18160" class="LineNr">18160 </span> <span class="subxComment"># else if slice-equal?(word-slice, "}")</span> -<span id="L18161" class="LineNr">18161 </span> <span class="subxComment"># break</span> -<span id="L18162" class="LineNr">18162 </span> <span class="subxComment"># else if slice-ends-with?(word-slice, ":")</span> -<span id="L18163" class="LineNr">18163 </span> <span class="subxComment"># # TODO: error-check the rest of 'line'</span> -<span id="L18164" class="LineNr">18164 </span> <span class="subxComment"># --word-slice->end to skip ':'</span> -<span id="L18165" class="LineNr">18165 </span> <span class="subxComment"># named-block = parse-mu-named-block(word-slice, in, vars, fn)</span> -<span id="L18166" class="LineNr">18166 </span> <span class="subxComment"># append-to-block(out-addr, named-block)</span> -<span id="L18167" class="LineNr">18167 </span> <span class="subxComment"># else if slice-equal?(word-slice, "var")</span> -<span id="L18168" class="LineNr">18168 </span> <span class="subxComment"># var-def = parse-mu-var-def(line, vars, fn)</span> -<span id="L18169" class="LineNr">18169 </span> <span class="subxComment"># append-to-block(out-addr, var-def)</span> -<span id="L18170" class="LineNr">18170 </span> <span class="subxComment"># else</span> -<span id="L18171" class="LineNr">18171 </span> <span class="subxComment"># stmt = parse-mu-stmt(line, vars, fn)</span> -<span id="L18172" class="LineNr">18172 </span> <span class="subxComment"># append-to-block(out-addr, stmt)</span> -<span id="L18173" class="LineNr">18173 </span> <span class="subxComment"># pop(vars)</span> -<span id="L18174" class="LineNr">18174 </span> <span class="subxComment">#</span> -<span id="L18175" class="LineNr">18175 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18176" class="LineNr">18176 </span> 55/push-ebp -<span id="L18177" class="LineNr">18177 </span> 89/<- %ebp 4/r32/esp -<span id="L18178" class="LineNr">18178 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18179" class="LineNr">18179 </span> 50/push-eax -<span id="L18180" class="LineNr">18180 </span> 51/push-ecx -<span id="L18181" class="LineNr">18181 </span> 52/push-edx -<span id="L18182" class="LineNr">18182 </span> 53/push-ebx -<span id="L18183" class="LineNr">18183 </span> 57/push-edi -<span id="L18184" class="LineNr">18184 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L18185" class="LineNr">18185 </span> 81 5/subop/subtract %esp 0x200/imm32 -<span id="L18186" class="LineNr">18186 </span> 68/push 0x200/imm32/size -<span id="L18187" class="LineNr">18187 </span> 68/push 0/imm32/read -<span id="L18188" class="LineNr">18188 </span> 68/push 0/imm32/write -<span id="L18189" class="LineNr">18189 </span> 89/<- %ecx 4/r32/esp -<span id="L18190" class="LineNr">18190 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L18191" class="LineNr">18191 </span> 68/push 0/imm32/end -<span id="L18192" class="LineNr">18192 </span> 68/push 0/imm32/start -<span id="L18193" class="LineNr">18193 </span> 89/<- %edx 4/r32/esp -<span id="L18194" class="LineNr">18194 </span> <span class="subxComment"># allocate into out</span> -<span id="L18195" class="LineNr">18195 </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="L18196" class="LineNr">18196 </span> <span class="subxComment"># var out-addr/edi: (addr block) = lookup(*out)</span> -<span id="L18197" class="LineNr">18197 </span> 8b/-> *(ebp+0x14) 7/r32/edi -<span id="L18198" class="LineNr">18198 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18199" class="LineNr">18199 </span> 89/<- %edi 0/r32/eax -<span id="L18200" class="LineNr">18200 </span> <span class="subxComment"># out-addr->tag is 0 (block) by default</span> -<span id="L18201" class="LineNr">18201 </span> <span class="subxComment"># set out-addr->var</span> -<span id="L18202" class="LineNr">18202 </span> 8d/copy-address *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> -<span id="L18203" class="LineNr">18203 </span> (<a href='mu.subx.html#L18358'>new-block-name</a> *(ebp+0x10) %eax) -<span id="L18204" class="LineNr">18204 </span> <span class="subxComment"># push(vars, out-addr->var)</span> -<span id="L18205" class="LineNr">18205 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0xc)) <span class="subxComment"># Block-var</span> -<span id="L18206" class="LineNr">18206 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0x10)) <span class="subxComment"># Block-var</span> -<span id="L18207" class="LineNr">18207 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) 0) <span class="subxComment"># false</span> -<span id="L18208" class="LineNr">18208 </span> <span class="subxComment"># increment *Curr-block-depth</span> -<span id="L18209" class="LineNr">18209 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> -<span id="L18210" class="LineNr">18210 </span> { -<span id="L18211" class="LineNr">18211 </span><span class="Constant">$parse-mu-block:line-loop</span>: -<span id="L18212" class="LineNr">18212 </span> <span class="subxComment"># line = read-line-buffered(in)</span> -<span id="L18213" class="LineNr">18213 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L18214" class="LineNr">18214 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) -<span id="L18215" class="LineNr">18215 </span><span class="CommentedCode">#? (write-buffered Stderr "line: ")</span> -<span id="L18216" class="LineNr">18216 </span><span class="CommentedCode">#? (write-stream-data Stderr %ecx)</span> -<span id="L18217" class="LineNr">18217 </span><span class="CommentedCode">#? #? (write-buffered Stderr Newline) # line has its own newline</span> -<span id="L18218" class="LineNr">18218 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18219" class="LineNr">18219 </span><span class="CommentedCode">#? (rewind-stream %ecx)</span> -<span id="L18220" class="LineNr">18220 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L18221" class="LineNr">18221 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L18222" class="LineNr">18222 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L18223" class="LineNr">18223 </span><span class="CommentedCode">#? (write-buffered Stderr "vars:\n")</span> -<span id="L18224" class="LineNr">18224 </span><span class="CommentedCode">#? (dump-vars *(ebp+0xc))</span> -<span id="L18225" class="LineNr">18225 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L18226" class="LineNr">18226 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> %ecx %edx) -<span id="L18227" class="LineNr">18227 </span><span class="CommentedCode">#? (write-buffered Stderr "word: ")</span> -<span id="L18228" class="LineNr">18228 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %edx)</span> -<span id="L18229" class="LineNr">18229 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L18230" class="LineNr">18230 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18231" class="LineNr">18231 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> -<span id="L18232" class="LineNr">18232 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edx) -<span id="L18233" class="LineNr">18233 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18234" class="LineNr">18234 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 -<span id="L18235" class="LineNr">18235 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, '#') continue</span> -<span id="L18236" class="LineNr">18236 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> -<span id="L18237" class="LineNr">18237 </span> 8b/-> *edx 0/r32/eax -<span id="L18238" class="LineNr">18238 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18239" class="LineNr">18239 </span> 25/and-eax-with 0xff/imm32 -<span id="L18240" class="LineNr">18240 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L18241" class="LineNr">18241 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L18242" class="LineNr">18242 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 -<span id="L18243" class="LineNr">18243 </span> <span class="subxComment"># if slice-equal?(word-slice, "{")</span> -<span id="L18244" class="LineNr">18244 </span> { -<span id="L18245" class="LineNr">18245 </span><span class="Constant">$parse-mu-block:check-for-block</span>: -<span id="L18246" class="LineNr">18246 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"{"</span>) -<span id="L18247" class="LineNr">18247 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18248" class="LineNr">18248 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18249" class="LineNr">18249 </span> (<a href='mu.subx.html#L18422'>check-no-tokens-left</a> %ecx) -<span id="L18250" class="LineNr">18250 </span> <span class="subxComment"># parse new block and append</span> -<span id="L18251" class="LineNr">18251 </span> <span class="subxS1Comment"># . var tmp/eax: (handle block)</span> -<span id="L18252" class="LineNr">18252 </span> 68/push 0/imm32 -<span id="L18253" class="LineNr">18253 </span> 68/push 0/imm32 -<span id="L18254" class="LineNr">18254 </span> 89/<- %eax 4/r32/esp -<span id="L18255" class="LineNr">18255 </span> <span class="subxS1Comment"># .</span> -<span id="L18256" class="LineNr">18256 </span> (<a href='mu.subx.html#L18138'>parse-mu-block</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L18257" class="LineNr">18257 </span> (<a href='mu.subx.html#L20173'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L18258" class="LineNr">18258 </span> <span class="subxS1Comment"># . reclaim tmp</span> -<span id="L18259" class="LineNr">18259 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18260" class="LineNr">18260 </span> <span class="subxS1Comment"># .</span> -<span id="L18261" class="LineNr">18261 </span> e9/jump $parse-mu-block:line-loop/disp32 -<span id="L18262" class="LineNr">18262 </span> } -<span id="L18263" class="LineNr">18263 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> -<span id="L18264" class="LineNr">18264 </span><span class="Constant">$parse-mu-block:check-for-end</span>: -<span id="L18265" class="LineNr">18265 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) -<span id="L18266" class="LineNr">18266 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18267" class="LineNr">18267 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18268" class="LineNr">18268 </span> <span class="subxComment"># if slice-ends-with?(word-slice, ":") parse named block and append</span> -<span id="L18269" class="LineNr">18269 </span> { -<span id="L18270" class="LineNr">18270 </span><span class="Constant">$parse-mu-block:check-for-named-block</span>: -<span id="L18271" class="LineNr">18271 </span> <span class="subxS1Comment"># . eax = *(word-slice->end-1)</span> -<span id="L18272" class="LineNr">18272 </span> 8b/-> *(edx+4) 0/r32/eax -<span id="L18273" class="LineNr">18273 </span> 48/decrement-eax -<span id="L18274" class="LineNr">18274 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18275" class="LineNr">18275 </span> 25/and-eax-with 0xff/imm32 -<span id="L18276" class="LineNr">18276 </span> <span class="subxS1Comment"># . if (eax != ':') break</span> -<span id="L18277" class="LineNr">18277 </span> 3d/compare-eax-and 0x3a/imm32/colon -<span id="L18278" class="LineNr">18278 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18279" class="LineNr">18279 </span> <span class="subxComment"># TODO: error-check the rest of 'line'</span> -<span id="L18280" class="LineNr">18280 </span> <span class="subxComment">#</span> -<span id="L18281" class="LineNr">18281 </span> <span class="subxComment"># skip ':'</span> -<span id="L18282" class="LineNr">18282 </span> ff 1/subop/decrement *(edx+4) <span class="subxComment"># Slice-end</span> -<span id="L18283" class="LineNr">18283 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> -<span id="L18284" class="LineNr">18284 </span> 68/push 0/imm32 -<span id="L18285" class="LineNr">18285 </span> 68/push 0/imm32 -<span id="L18286" class="LineNr">18286 </span> 89/<- %eax 4/r32/esp -<span id="L18287" class="LineNr">18287 </span> <span class="subxComment">#</span> -<span id="L18288" class="LineNr">18288 </span> (<a href='mu.subx.html#L18468'>parse-mu-named-block</a> %edx *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L18289" class="LineNr">18289 </span> (<a href='mu.subx.html#L20173'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L18290" class="LineNr">18290 </span> <span class="subxComment"># reclaim tmp</span> -<span id="L18291" class="LineNr">18291 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18292" class="LineNr">18292 </span> <span class="subxComment">#</span> -<span id="L18293" class="LineNr">18293 </span> e9/jump $parse-mu-block:line-loop/disp32 -<span id="L18294" class="LineNr">18294 </span> } -<span id="L18295" class="LineNr">18295 </span> <span class="subxComment"># if slice-equal?(word-slice, "var")</span> -<span id="L18296" class="LineNr">18296 </span> { -<span id="L18297" class="LineNr">18297 </span><span class="Constant">$parse-mu-block:check-for-var</span>: -<span id="L18298" class="LineNr">18298 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"var"</span>) -<span id="L18299" class="LineNr">18299 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18300" class="LineNr">18300 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18301" class="LineNr">18301 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> -<span id="L18302" class="LineNr">18302 </span> 68/push 0/imm32 -<span id="L18303" class="LineNr">18303 </span> 68/push 0/imm32 -<span id="L18304" class="LineNr">18304 </span> 89/<- %eax 4/r32/esp -<span id="L18305" class="LineNr">18305 </span> <span class="subxComment">#</span> -<span id="L18306" class="LineNr">18306 </span> (<a href='mu.subx.html#L18524'>parse-mu-var-def</a> %ecx *(ebp+0xc) %eax *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18307" class="LineNr">18307 </span> (<a href='mu.subx.html#L20173'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L18308" class="LineNr">18308 </span> <span class="subxComment"># reclaim tmp</span> -<span id="L18309" class="LineNr">18309 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18310" class="LineNr">18310 </span> <span class="subxComment">#</span> -<span id="L18311" class="LineNr">18311 </span> e9/jump $parse-mu-block:line-loop/disp32 -<span id="L18312" class="LineNr">18312 </span> } -<span id="L18313" class="LineNr">18313 </span><span class="Constant">$parse-mu-block:regular-stmt</span>: -<span id="L18314" class="LineNr">18314 </span> <span class="subxComment"># otherwise</span> -<span id="L18315" class="LineNr">18315 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> -<span id="L18316" class="LineNr">18316 </span> 68/push 0/imm32 -<span id="L18317" class="LineNr">18317 </span> 68/push 0/imm32 -<span id="L18318" class="LineNr">18318 </span> 89/<- %eax 4/r32/esp -<span id="L18319" class="LineNr">18319 </span> <span class="subxComment">#</span> -<span id="L18320" class="LineNr">18320 </span> (<a href='mu.subx.html#L18788'>parse-mu-stmt</a> %ecx *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L18321" class="LineNr">18321 </span> (<a href='mu.subx.html#L20173'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L18322" class="LineNr">18322 </span> <span class="subxComment"># reclaim tmp</span> -<span id="L18323" class="LineNr">18323 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18324" class="LineNr">18324 </span> <span class="subxComment">#</span> -<span id="L18325" class="LineNr">18325 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L18326" class="LineNr">18326 </span> } <span class="subxComment"># end line loop</span> -<span id="L18327" class="LineNr">18327 </span> (<a href='mu.subx.html#L28465'>clean-up-blocks</a> *(ebp+0xc) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> *(ebp+0x10)) -<span id="L18328" class="LineNr">18328 </span> <span class="subxComment"># decrement *Curr-block-depth</span> -<span id="L18329" class="LineNr">18329 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> -<span id="L18330" class="LineNr">18330 </span> <span class="subxComment"># pop(vars)</span> -<span id="L18331" class="LineNr">18331 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L18332" class="LineNr">18332 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L18333" class="LineNr">18333 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L18334" class="LineNr">18334 </span><span class="Constant">$parse-mu-block:end</span>: -<span id="L18335" class="LineNr">18335 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18336" class="LineNr">18336 </span> 81 0/subop/add %esp 0x214/imm32 -<span id="L18337" class="LineNr">18337 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18338" class="LineNr">18338 </span> 5f/pop-to-edi -<span id="L18339" class="LineNr">18339 </span> 5b/pop-to-ebx -<span id="L18340" class="LineNr">18340 </span> 5a/pop-to-edx -<span id="L18341" class="LineNr">18341 </span> 59/pop-to-ecx -<span id="L18342" class="LineNr">18342 </span> 58/pop-to-eax -<span id="L18343" class="LineNr">18343 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18344" class="LineNr">18344 </span> 89/<- %esp 5/r32/ebp -<span id="L18345" class="LineNr">18345 </span> 5d/pop-to-ebp -<span id="L18346" class="LineNr">18346 </span> c3/return -<span id="L18347" class="LineNr">18347 </span> -<span id="L18348" class="LineNr">18348 </span><span class="Constant">$parse-mu-block:abort</span>: -<span id="L18349" class="LineNr">18349 </span> <span class="subxComment"># error("'{' or '}' should be on its own line, but got '")</span> -<span id="L18350" class="LineNr">18350 </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="L18351" class="LineNr">18351 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> %ecx) -<span id="L18352" class="LineNr">18352 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) %ecx) -<span id="L18353" class="LineNr">18353 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L18354" class="LineNr">18354 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18355" class="LineNr">18355 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18356" class="LineNr">18356 </span> <span class="subxComment"># never gets here</span> -<span id="L18357" class="LineNr">18357 </span> -<span id="L18358" class="LineNr">18358 </span><span class="subxFunction">new-block-name</span>: <span class="subxComment"># fn: (addr function), out: (addr handle var)</span> -<span id="L18359" class="LineNr">18359 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18360" class="LineNr">18360 </span> 55/push-ebp -<span id="L18361" class="LineNr">18361 </span> 89/<- %ebp 4/r32/esp -<span id="L18362" class="LineNr">18362 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18363" class="LineNr">18363 </span> 50/push-eax -<span id="L18364" class="LineNr">18364 </span> 51/push-ecx -<span id="L18365" class="LineNr">18365 </span> 52/push-edx -<span id="L18366" class="LineNr">18366 </span> <span class="subxComment"># var n/ecx: int = len(fn->name) + 10 for an int + 2 for '$:'</span> -<span id="L18367" class="LineNr">18367 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L18368" class="LineNr">18368 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18369" class="LineNr">18369 </span> 8b/-> *eax 0/r32/eax <span class="subxComment"># String-size</span> -<span id="L18370" class="LineNr">18370 </span> 05/add-to-eax 0xd/imm32 <span class="subxComment"># 10 + 2 for '$:'</span> -<span id="L18371" class="LineNr">18371 </span> 89/<- %ecx 0/r32/eax -<span id="L18372" class="LineNr">18372 </span> <span class="subxComment"># var name/edx: (stream byte n)</span> -<span id="L18373" class="LineNr">18373 </span> 29/subtract-from %esp 1/r32/ecx -<span id="L18374" class="LineNr">18374 </span> ff 6/subop/push %ecx -<span id="L18375" class="LineNr">18375 </span> 68/push 0/imm32/read -<span id="L18376" class="LineNr">18376 </span> 68/push 0/imm32/write -<span id="L18377" class="LineNr">18377 </span> 89/<- %edx 4/r32/esp -<span id="L18378" class="LineNr">18378 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %edx) -<span id="L18379" class="LineNr">18379 </span> <span class="subxComment"># eax = fn->name</span> -<span id="L18380" class="LineNr">18380 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L18381" class="LineNr">18381 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18382" class="LineNr">18382 </span> <span class="subxComment"># construct result using Next-block-index (and increment it)</span> -<span id="L18383" class="LineNr">18383 </span> (<a href='108write.subx.html#L24'>write</a> %edx <span class="Constant">"$"</span>) -<span id="L18384" class="LineNr">18384 </span> (<a href='108write.subx.html#L24'>write</a> %edx %eax) -<span id="L18385" class="LineNr">18385 </span> (<a href='108write.subx.html#L24'>write</a> %edx <span class="Constant">":"</span>) -<span id="L18386" class="LineNr">18386 </span> (<a href='117write-int-hex.subx.html#L178'>write-int32-hex</a> %edx *<span class="SpecialChar"><a href='mu.subx.html#L15736'>Next-block-index</a></span>) -<span id="L18387" class="LineNr">18387 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15736'>Next-block-index</a></span> -<span id="L18388" class="LineNr">18388 </span> <span class="subxComment"># var s/eax: slice = {name->data, name->data + name->write} (clobbering edx)</span> -<span id="L18389" class="LineNr">18389 </span> <span class="subxS1Comment"># . eax = name->write</span> -<span id="L18390" class="LineNr">18390 </span> 8b/-> *edx 0/r32/eax -<span id="L18391" class="LineNr">18391 </span> <span class="subxS1Comment"># . edx = name->data</span> -<span id="L18392" class="LineNr">18392 </span> 8d/copy-address *(edx+0xc) 2/r32/edx -<span id="L18393" class="LineNr">18393 </span> <span class="subxS1Comment"># . eax = name->write + name->data</span> -<span id="L18394" class="LineNr">18394 </span> 01/add-to %eax 2/r32/edx -<span id="L18395" class="LineNr">18395 </span> <span class="subxS1Comment"># . push {edx, eax}</span> -<span id="L18396" class="LineNr">18396 </span> ff 6/subop/push %eax -<span id="L18397" class="LineNr">18397 </span> ff 6/subop/push %edx -<span id="L18398" class="LineNr">18398 </span> 89/<- %eax 4/r32/esp -<span id="L18399" class="LineNr">18399 </span> <span class="subxComment"># out = new literal(s)</span> -<span id="L18400" class="LineNr">18400 </span> (<a href='mu.subx.html#L19900'>new-literal</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %eax *(ebp+0xc)) -<span id="L18401" class="LineNr">18401 </span><span class="CommentedCode">#? 8b/-> *(ebp+0xc) 0/r32/eax</span> -<span id="L18402" class="LineNr">18402 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid in caller after new-literal: ")</span> -<span id="L18403" class="LineNr">18403 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(eax+8))</span> -<span id="L18404" class="LineNr">18404 </span><span class="CommentedCode">#? (write-buffered Stderr " for var ")</span> -<span id="L18405" class="LineNr">18405 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L18406" class="LineNr">18406 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L18407" class="LineNr">18407 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18408" class="LineNr">18408 </span><span class="Constant">$new-block-name:end</span>: -<span id="L18409" class="LineNr">18409 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18410" class="LineNr">18410 </span> 81 0/subop/add %ecx 0xc/imm32 <span class="subxComment"># name.{read/write/len}</span> -<span id="L18411" class="LineNr">18411 </span> 81 0/subop/add %ecx 8/imm32 <span class="subxComment"># slice</span> -<span id="L18412" class="LineNr">18412 </span> 01/add-to %esp 1/r32/ecx -<span id="L18413" class="LineNr">18413 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18414" class="LineNr">18414 </span> 5a/pop-to-edx -<span id="L18415" class="LineNr">18415 </span> 59/pop-to-ecx -<span id="L18416" class="LineNr">18416 </span> 58/pop-to-eax -<span id="L18417" class="LineNr">18417 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18418" class="LineNr">18418 </span> 89/<- %esp 5/r32/ebp -<span id="L18419" class="LineNr">18419 </span> 5d/pop-to-ebp -<span id="L18420" class="LineNr">18420 </span> c3/return -<span id="L18421" class="LineNr">18421 </span> -<span id="L18422" class="LineNr">18422 </span><span class="subxFunction">check-no-tokens-left</span>: <span class="subxComment"># line: (addr stream byte)</span> -<span id="L18423" class="LineNr">18423 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18424" class="LineNr">18424 </span> 55/push-ebp -<span id="L18425" class="LineNr">18425 </span> 89/<- %ebp 4/r32/esp -<span id="L18426" class="LineNr">18426 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18427" class="LineNr">18427 </span> 50/push-eax -<span id="L18428" class="LineNr">18428 </span> 51/push-ecx -<span id="L18429" class="LineNr">18429 </span> <span class="subxComment"># var s/ecx: slice</span> -<span id="L18430" class="LineNr">18430 </span> 68/push 0/imm32/end -<span id="L18431" class="LineNr">18431 </span> 68/push 0/imm32/start -<span id="L18432" class="LineNr">18432 </span> 89/<- %ecx 4/r32/esp -<span id="L18433" class="LineNr">18433 </span> <span class="subxComment">#</span> -<span id="L18434" class="LineNr">18434 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18435" class="LineNr">18435 </span> <span class="subxComment"># if slice-empty?(s) return</span> -<span id="L18436" class="LineNr">18436 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) -<span id="L18437" class="LineNr">18437 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18438" class="LineNr">18438 </span> 75/jump-if-!= $check-no-tokens-left:end/disp8 -<span id="L18439" class="LineNr">18439 </span> <span class="subxComment"># if (slice-starts-with?(s, '#') return</span> -<span id="L18440" class="LineNr">18440 </span> <span class="subxS1Comment"># . eax = *s->start</span> -<span id="L18441" class="LineNr">18441 </span> 8b/-> *edx 0/r32/eax -<span id="L18442" class="LineNr">18442 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18443" class="LineNr">18443 </span> 25/and-eax-with 0xff/imm32 -<span id="L18444" class="LineNr">18444 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L18445" class="LineNr">18445 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L18446" class="LineNr">18446 </span> 74/jump-if-= $check-no-tokens-left:end/disp8 -<span id="L18447" class="LineNr">18447 </span> <span class="subxComment"># abort</span> -<span id="L18448" class="LineNr">18448 </span> (<a 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="L18449" class="LineNr">18449 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> %ecx) -<span id="L18450" class="LineNr">18450 </span> (<a href='113write-stream.subx.html#L17'>write-stream</a> 2 %ecx) -<span id="L18451" class="LineNr">18451 </span> (<a 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="L18452" class="LineNr">18452 </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="L18453" class="LineNr">18453 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L18454" class="LineNr">18454 </span> bb/copy-to-ebx 1/imm32 -<span id="L18455" class="LineNr">18455 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L18456" class="LineNr">18456 </span> <span class="subxComment"># never gets here</span> -<span id="L18457" class="LineNr">18457 </span><span class="Constant">$check-no-tokens-left:end</span>: -<span id="L18458" class="LineNr">18458 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18459" class="LineNr">18459 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18460" class="LineNr">18460 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18461" class="LineNr">18461 </span> 59/pop-to-ecx -<span id="L18462" class="LineNr">18462 </span> 58/pop-to-eax -<span id="L18463" class="LineNr">18463 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18464" class="LineNr">18464 </span> 89/<- %esp 5/r32/ebp -<span id="L18465" class="LineNr">18465 </span> 5d/pop-to-ebp -<span id="L18466" class="LineNr">18466 </span> c3/return -<span id="L18467" class="LineNr">18467 </span> -<span id="L18468" class="LineNr">18468 </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="L18469" class="LineNr">18469 </span> <span class="subxComment"># pseudocode:</span> -<span id="L18470" class="LineNr">18470 </span> <span class="subxComment"># var v: (handle var)</span> -<span id="L18471" class="LineNr">18471 </span> <span class="subxComment"># new-literal(name, v)</span> -<span id="L18472" class="LineNr">18472 </span> <span class="subxComment"># push(vars, {v, false})</span> -<span id="L18473" class="LineNr">18473 </span> <span class="subxComment"># parse-mu-block(in, vars, fn, out)</span> -<span id="L18474" class="LineNr">18474 </span> <span class="subxComment"># pop(vars)</span> -<span id="L18475" class="LineNr">18475 </span> <span class="subxComment"># out->tag = block</span> -<span id="L18476" class="LineNr">18476 </span> <span class="subxComment"># out->var = v</span> -<span id="L18477" class="LineNr">18477 </span> <span class="subxComment">#</span> -<span id="L18478" class="LineNr">18478 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18479" class="LineNr">18479 </span> 55/push-ebp -<span id="L18480" class="LineNr">18480 </span> 89/<- %ebp 4/r32/esp -<span id="L18481" class="LineNr">18481 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18482" class="LineNr">18482 </span> 50/push-eax -<span id="L18483" class="LineNr">18483 </span> 51/push-ecx -<span id="L18484" class="LineNr">18484 </span> 57/push-edi -<span id="L18485" class="LineNr">18485 </span> <span class="subxComment"># var v/ecx: (handle var)</span> -<span id="L18486" class="LineNr">18486 </span> 68/push 0/imm32 -<span id="L18487" class="LineNr">18487 </span> 68/push 0/imm32 -<span id="L18488" class="LineNr">18488 </span> 89/<- %ecx 4/r32/esp -<span id="L18489" class="LineNr">18489 </span> <span class="subxComment">#</span> -<span id="L18490" class="LineNr">18490 </span> (<a href='mu.subx.html#L19900'>new-literal</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) %ecx) -<span id="L18491" class="LineNr">18491 </span> <span class="subxComment"># push(vars, v)</span> -<span id="L18492" class="LineNr">18492 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *ecx) -<span id="L18493" class="LineNr">18493 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) -<span id="L18494" class="LineNr">18494 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> -<span id="L18495" class="LineNr">18495 </span> <span class="subxComment">#</span> -<span id="L18496" class="LineNr">18496 </span> (<a href='mu.subx.html#L18138'>parse-mu-block</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c) *(ebp+0x20)) -<span id="L18497" class="LineNr">18497 </span> <span class="subxComment"># pop v off vars</span> -<span id="L18498" class="LineNr">18498 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L18499" class="LineNr">18499 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L18500" class="LineNr">18500 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L18501" class="LineNr">18501 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> -<span id="L18502" class="LineNr">18502 </span> 8b/-> *(ebp+0x18) 7/r32/edi -<span id="L18503" class="LineNr">18503 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18504" class="LineNr">18504 </span> 89/<- %edi 0/r32/eax -<span id="L18505" class="LineNr">18505 </span> <span class="subxComment"># out-addr->tag = named-block</span> -<span id="L18506" class="LineNr">18506 </span> c7 0/subop/copy *edi 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L18507" class="LineNr">18507 </span> <span class="subxComment"># out-addr->var = v</span> -<span id="L18508" class="LineNr">18508 </span> 8b/-> *ecx 0/r32/eax -<span id="L18509" class="LineNr">18509 </span> 89/<- *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> -<span id="L18510" class="LineNr">18510 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L18511" class="LineNr">18511 </span> 89/<- *(edi+0x10) 0/r32/eax <span class="subxComment"># Block-var</span> -<span id="L18512" class="LineNr">18512 </span><span class="Constant">$parse-mu-named-block:end</span>: -<span id="L18513" class="LineNr">18513 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18514" class="LineNr">18514 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18515" class="LineNr">18515 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18516" class="LineNr">18516 </span> 5f/pop-to-edi -<span id="L18517" class="LineNr">18517 </span> 59/pop-to-ecx -<span id="L18518" class="LineNr">18518 </span> 58/pop-to-eax -<span id="L18519" class="LineNr">18519 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18520" class="LineNr">18520 </span> 89/<- %esp 5/r32/ebp -<span id="L18521" class="LineNr">18521 </span> 5d/pop-to-ebp -<span id="L18522" class="LineNr">18522 </span> c3/return -<span id="L18523" class="LineNr">18523 </span> -<span id="L18524" class="LineNr">18524 </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="L18525" class="LineNr">18525 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18526" class="LineNr">18526 </span> 55/push-ebp -<span id="L18527" class="LineNr">18527 </span> 89/<- %ebp 4/r32/esp -<span id="L18528" class="LineNr">18528 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18529" class="LineNr">18529 </span> 50/push-eax -<span id="L18530" class="LineNr">18530 </span> 51/push-ecx -<span id="L18531" class="LineNr">18531 </span> 52/push-edx -<span id="L18532" class="LineNr">18532 </span> 56/push-esi -<span id="L18533" class="LineNr">18533 </span> 57/push-edi -<span id="L18534" class="LineNr">18534 </span> <span class="subxComment"># edi = out</span> -<span id="L18535" class="LineNr">18535 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L18536" class="LineNr">18536 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L18537" class="LineNr">18537 </span> 68/push 0/imm32/end -<span id="L18538" class="LineNr">18538 </span> 68/push 0/imm32/start -<span id="L18539" class="LineNr">18539 </span> 89/<- %ecx 4/r32/esp -<span id="L18540" class="LineNr">18540 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L18541" class="LineNr">18541 </span> 68/push 0/imm32 -<span id="L18542" class="LineNr">18542 </span> 68/push 0/imm32 -<span id="L18543" class="LineNr">18543 </span> 89/<- %edx 4/r32/esp -<span id="L18544" class="LineNr">18544 </span> <span class="subxComment"># v = parse-var-with-type(next-mu-token(line))</span> -<span id="L18545" class="LineNr">18545 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18546" class="LineNr">18546 </span> { -<span id="L18547" class="LineNr">18547 </span> <span class="subxComment"># just for tests, support null fn</span> -<span id="L18548" class="LineNr">18548 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18549" class="LineNr">18549 </span> 3d/compare-eax-and 0/imm32 -<span id="L18550" class="LineNr">18550 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18551" class="LineNr">18551 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18552" class="LineNr">18552 </span> } -<span id="L18553" class="LineNr">18553 </span> (<a href='mu.subx.html#L16973'>parse-var-with-type</a> %ecx *(ebp+8) %edx %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L18554" class="LineNr">18554 </span> <span class="subxComment"># var v-addr/esi: (addr var)</span> -<span id="L18555" class="LineNr">18555 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L18556" class="LineNr">18556 </span> 89/<- %esi 0/r32/eax -<span id="L18557" class="LineNr">18557 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> -<span id="L18558" class="LineNr">18558 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/r32/eax -<span id="L18559" class="LineNr">18559 </span> 89/<- *(esi+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L18560" class="LineNr">18560 </span> <span class="subxComment"># either v has no register and there's no more to this line</span> -<span id="L18561" class="LineNr">18561 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 -<span id="L18562" class="LineNr">18562 </span> { -<span id="L18563" class="LineNr">18563 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L18564" class="LineNr">18564 </span> <span class="subxComment"># if v-addr->type == byte, abort</span> -<span id="L18565" class="LineNr">18565 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18566" class="LineNr">18566 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L18567" class="LineNr">18567 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18568" class="LineNr">18568 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-on-stack/disp32 -<span id="L18569" class="LineNr">18569 </span> <span class="subxComment"># ensure that there's nothing else on this line</span> -<span id="L18570" class="LineNr">18570 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18571" class="LineNr">18571 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L18572" class="LineNr">18572 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18573" class="LineNr">18573 </span> 0f 84/jump-if-= $parse-mu-var-def:error2/disp32 -<span id="L18574" class="LineNr">18574 </span> <span class="subxComment">#</span> -<span id="L18575" class="LineNr">18575 </span> (<a href='mu.subx.html#L20004'>new-var-def</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) -<span id="L18576" class="LineNr">18576 </span> e9/jump $parse-mu-var-def:update-vars/disp32 -<span id="L18577" class="LineNr">18577 </span> } -<span id="L18578" class="LineNr">18578 </span> <span class="subxComment"># or v has a register and there's more to this line</span> -<span id="L18579" class="LineNr">18579 </span> { -<span id="L18580" class="LineNr">18580 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L18581" class="LineNr">18581 </span> <span class="subxComment"># if v-addr->type == byte, check for unsupported registers</span> -<span id="L18582" class="LineNr">18582 </span> { -<span id="L18583" class="LineNr">18583 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18584" class="LineNr">18584 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L18585" class="LineNr">18585 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18586" class="LineNr">18586 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18587" class="LineNr">18587 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> -<span id="L18588" class="LineNr">18588 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"esi"</span>) <span class="subxComment"># => eax</span> -<span id="L18589" class="LineNr">18589 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18590" class="LineNr">18590 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 -<span id="L18591" class="LineNr">18591 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> -<span id="L18592" class="LineNr">18592 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"edi"</span>) <span class="subxComment"># => eax</span> -<span id="L18593" class="LineNr">18593 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18594" class="LineNr">18594 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 -<span id="L18595" class="LineNr">18595 </span> } -<span id="L18596" class="LineNr">18596 </span> <span class="subxComment"># TODO: vars of type 'byte' should only be initialized by clearing to 0</span> -<span id="L18597" class="LineNr">18597 </span> <span class="subxComment"># ensure that the next word is '<-'</span> -<span id="L18598" class="LineNr">18598 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18599" class="LineNr">18599 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> -<span id="L18600" class="LineNr">18600 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18601" class="LineNr">18601 </span> 0f 84/jump-if-= $parse-mu-var-def:error1/disp32 -<span id="L18602" class="LineNr">18602 </span> <span class="subxComment">#</span> -<span id="L18603" class="LineNr">18603 </span> (<a href='mu.subx.html#L20032'>new-reg-var-def</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) -<span id="L18604" class="LineNr">18604 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18605" class="LineNr">18605 </span> (<a href='mu.subx.html#L18905'>add-operation-and-inputs-to-stmt</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18606" class="LineNr">18606 </span> } -<span id="L18607" class="LineNr">18607 </span><span class="Constant">$parse-mu-var-def:update-vars</span>: -<span id="L18608" class="LineNr">18608 </span> <span class="subxComment"># push 'v' at end of function</span> -<span id="L18609" class="LineNr">18609 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *edx) -<span id="L18610" class="LineNr">18610 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edx+4)) -<span id="L18611" class="LineNr">18611 </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="L18612" class="LineNr">18612 </span><span class="Constant">$parse-mu-var-def:end</span>: -<span id="L18613" class="LineNr">18613 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18614" class="LineNr">18614 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L18615" class="LineNr">18615 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18616" class="LineNr">18616 </span> 5f/pop-to-edi -<span id="L18617" class="LineNr">18617 </span> 5e/pop-to-esi -<span id="L18618" class="LineNr">18618 </span> 5a/pop-to-edx -<span id="L18619" class="LineNr">18619 </span> 59/pop-to-ecx -<span id="L18620" class="LineNr">18620 </span> 58/pop-to-eax -<span id="L18621" class="LineNr">18621 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18622" class="LineNr">18622 </span> 89/<- %esp 5/r32/ebp -<span id="L18623" class="LineNr">18623 </span> 5d/pop-to-ebp -<span id="L18624" class="LineNr">18624 </span> c3/return -<span id="L18625" class="LineNr">18625 </span> -<span id="L18626" class="LineNr">18626 </span><span class="Constant">$parse-mu-var-def:error1</span>: -<span id="L18627" class="LineNr">18627 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L18628" class="LineNr">18628 </span> <span class="subxComment"># error("register variable requires a valid instruction to initialize but got '" line "'\n")</span> -<span id="L18629" class="LineNr">18629 </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="L18630" class="LineNr">18630 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18631" class="LineNr">18631 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+8)) -<span id="L18632" class="LineNr">18632 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L18633" class="LineNr">18633 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18634" class="LineNr">18634 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18635" class="LineNr">18635 </span> <span class="subxComment"># never gets here</span> -<span id="L18636" class="LineNr">18636 </span> -<span id="L18637" class="LineNr">18637 </span><span class="Constant">$parse-mu-var-def:error2</span>: -<span id="L18638" class="LineNr">18638 </span> <span class="subxComment"># error("fn " fn ": var " var ": variables on the stack can't take an initializer\n")</span> -<span id="L18639" class="LineNr">18639 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18640" class="LineNr">18640 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18641" class="LineNr">18641 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18642" class="LineNr">18642 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18643" class="LineNr">18643 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var "</span>) -<span id="L18644" class="LineNr">18644 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> -<span id="L18645" class="LineNr">18645 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L18646" class="LineNr">18646 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18647" class="LineNr">18647 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18648" class="LineNr">18648 </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="L18649" class="LineNr">18649 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18650" class="LineNr">18650 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18651" class="LineNr">18651 </span> <span class="subxComment"># never gets here</span> -<span id="L18652" class="LineNr">18652 </span> -<span id="L18653" class="LineNr">18653 </span><span class="Constant">$parse-mu-var-def:error-byte-on-stack</span>: -<span id="L18654" class="LineNr">18654 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be on the stack\n")</span> -<span id="L18655" class="LineNr">18655 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18656" class="LineNr">18656 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18657" class="LineNr">18657 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18658" class="LineNr">18658 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18659" class="LineNr">18659 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) -<span id="L18660" class="LineNr">18660 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> -<span id="L18661" class="LineNr">18661 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L18662" class="LineNr">18662 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18663" class="LineNr">18663 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18664" class="LineNr">18664 </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="L18665" class="LineNr">18665 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18666" class="LineNr">18666 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18667" class="LineNr">18667 </span> <span class="subxComment"># never gets here</span> -<span id="L18668" class="LineNr">18668 </span> -<span id="L18669" class="LineNr">18669 </span><span class="Constant">$parse-mu-var-def:error-byte-registers</span>: -<span id="L18670" class="LineNr">18670 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be in esi or edi\n")</span> -<span id="L18671" class="LineNr">18671 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18672" class="LineNr">18672 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18673" class="LineNr">18673 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18674" class="LineNr">18674 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18675" class="LineNr">18675 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) -<span id="L18676" class="LineNr">18676 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> -<span id="L18677" class="LineNr">18677 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L18678" class="LineNr">18678 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18679" class="LineNr">18679 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18680" class="LineNr">18680 </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="L18681" class="LineNr">18681 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18682" class="LineNr">18682 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18683" class="LineNr">18683 </span> <span class="subxComment"># never gets here</span> -<span id="L18684" class="LineNr">18684 </span> -<span id="L18685" class="LineNr">18685 </span><span class="subxTest">test-parse-mu-var-def</span>: -<span id="L18686" class="LineNr">18686 </span> <span class="subxComment"># 'var n: int'</span> -<span id="L18687" class="LineNr">18687 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18688" class="LineNr">18688 </span> 55/push-ebp -<span id="L18689" class="LineNr">18689 </span> 89/<- %ebp 4/r32/esp -<span id="L18690" class="LineNr">18690 </span> <span class="subxComment"># setup</span> -<span id="L18691" class="LineNr">18691 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L18692" class="LineNr">18692 </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="L18693" class="LineNr">18693 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L18694" class="LineNr">18694 </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="L18695" class="LineNr">18695 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 1/imm32 -<span id="L18696" class="LineNr">18696 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> -<span id="L18697" class="LineNr">18697 </span> 68/push 0/imm32 -<span id="L18698" class="LineNr">18698 </span> 68/push 0/imm32 -<span id="L18699" class="LineNr">18699 </span> 89/<- %esi 4/r32/esp -<span id="L18700" class="LineNr">18700 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L18701" class="LineNr">18701 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L18702" class="LineNr">18702 </span> 68/push 0xc0/imm32/size -<span id="L18703" class="LineNr">18703 </span> 68/push 0/imm32/top -<span id="L18704" class="LineNr">18704 </span> 89/<- %ecx 4/r32/esp -<span id="L18705" class="LineNr">18705 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L18706" class="LineNr">18706 </span> <span class="subxComment"># convert</span> -<span id="L18707" class="LineNr">18707 </span> (<a href='mu.subx.html#L18524'>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="L18708" class="LineNr">18708 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> -<span id="L18709" class="LineNr">18709 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L18710" class="LineNr">18710 </span> 89/<- %esi 0/r32/eax -<span id="L18711" class="LineNr">18711 </span> <span class="subxComment">#</span> -<span id="L18712" class="LineNr">18712 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *esi 2 <span class="Constant">"F - <a href='mu.subx.html#L18685'>test-parse-mu-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is var-def</span> -<span id="L18713" class="LineNr">18713 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->var)</span> -<span id="L18714" class="LineNr">18714 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> -<span id="L18715" class="LineNr">18715 </span> 89/<- %ecx 0/r32/eax -<span id="L18716" class="LineNr">18716 </span> <span class="subxComment"># v->name</span> -<span id="L18717" class="LineNr">18717 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18718" class="LineNr">18718 </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#L18685'>test-parse-mu-var-def</a>/var-name"</span>) -<span id="L18719" class="LineNr">18719 </span> <span class="subxComment"># v->register</span> -<span id="L18720" class="LineNr">18720 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L18685'>test-parse-mu-var-def</a>/var-register"</span>) <span class="subxComment"># Var-register</span> -<span id="L18721" class="LineNr">18721 </span> <span class="subxComment"># v->block-depth</span> -<span id="L18722" class="LineNr">18722 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L18685'>test-parse-mu-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> -<span id="L18723" class="LineNr">18723 </span> <span class="subxComment"># v->type == int</span> -<span id="L18724" class="LineNr">18724 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18725" class="LineNr">18725 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L18685'>test-parse-mu-var-def</a>/var-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L18726" class="LineNr">18726 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L18685'>test-parse-mu-var-def</a>/var-type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L18727" class="LineNr">18727 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L18685'>test-parse-mu-var-def</a>/var-type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L18728" class="LineNr">18728 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18729" class="LineNr">18729 </span> 89/<- %esp 5/r32/ebp -<span id="L18730" class="LineNr">18730 </span> 5d/pop-to-ebp -<span id="L18731" class="LineNr">18731 </span> c3/return -<span id="L18732" class="LineNr">18732 </span> -<span id="L18733" class="LineNr">18733 </span><span class="subxTest">test-parse-mu-reg-var-def</span>: -<span id="L18734" class="LineNr">18734 </span> <span class="subxComment"># 'var n/eax: int <- copy 0'</span> -<span id="L18735" class="LineNr">18735 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18736" class="LineNr">18736 </span> 55/push-ebp -<span id="L18737" class="LineNr">18737 </span> 89/<- %ebp 4/r32/esp -<span id="L18738" class="LineNr">18738 </span> <span class="subxComment"># setup</span> -<span id="L18739" class="LineNr">18739 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L18740" class="LineNr">18740 </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="L18741" class="LineNr">18741 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L18742" class="LineNr">18742 </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="L18743" class="LineNr">18743 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 1/imm32 -<span id="L18744" class="LineNr">18744 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> -<span id="L18745" class="LineNr">18745 </span> 68/push 0/imm32 -<span id="L18746" class="LineNr">18746 </span> 68/push 0/imm32 -<span id="L18747" class="LineNr">18747 </span> 89/<- %esi 4/r32/esp -<span id="L18748" class="LineNr">18748 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L18749" class="LineNr">18749 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L18750" class="LineNr">18750 </span> 68/push 0xc0/imm32/size -<span id="L18751" class="LineNr">18751 </span> 68/push 0/imm32/top -<span id="L18752" class="LineNr">18752 </span> 89/<- %ecx 4/r32/esp -<span id="L18753" class="LineNr">18753 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L18754" class="LineNr">18754 </span> <span class="subxComment"># convert</span> -<span id="L18755" class="LineNr">18755 </span> (<a href='mu.subx.html#L18524'>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="L18756" class="LineNr">18756 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> -<span id="L18757" class="LineNr">18757 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L18758" class="LineNr">18758 </span> 89/<- %esi 0/r32/eax -<span id="L18759" class="LineNr">18759 </span> <span class="subxComment">#</span> -<span id="L18760" class="LineNr">18760 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *esi 3 <span class="Constant">"F - <a href='mu.subx.html#L18733'>test-parse-mu-reg-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is reg-var-def</span> -<span id="L18761" class="LineNr">18761 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->outputs->value)</span> -<span id="L18762" class="LineNr">18762 </span> <span class="subxS1Comment"># . eax: (addr stmt-var) = lookup(out->outputs)</span> -<span id="L18763" class="LineNr">18763 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> -<span id="L18764" class="LineNr">18764 </span> <span class="subxS1Comment"># .</span> -<span id="L18765" class="LineNr">18765 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+8) 0 <span class="Constant">"F - <a href='mu.subx.html#L18733'>test-parse-mu-reg-var-def</a>/single-output"</span>) <span class="subxComment"># Stmt-var-next</span> -<span id="L18766" class="LineNr">18766 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(eax->value)</span> -<span id="L18767" class="LineNr">18767 </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="L18768" class="LineNr">18768 </span> <span class="subxS1Comment"># . ecx = eax</span> -<span id="L18769" class="LineNr">18769 </span> 89/<- %ecx 0/r32/eax -<span id="L18770" class="LineNr">18770 </span> <span class="subxComment"># v->name</span> -<span id="L18771" class="LineNr">18771 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18772" class="LineNr">18772 </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#L18733'>test-parse-mu-reg-var-def</a>/output-name"</span>) <span class="subxComment"># Var-name</span> -<span id="L18773" class="LineNr">18773 </span> <span class="subxComment"># v->register</span> -<span id="L18774" class="LineNr">18774 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L18775" class="LineNr">18775 </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#L18733'>test-parse-mu-reg-var-def</a>/output-register"</span>) -<span id="L18776" class="LineNr">18776 </span> <span class="subxComment"># v->block-depth</span> -<span id="L18777" class="LineNr">18777 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L18733'>test-parse-mu-reg-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> -<span id="L18778" class="LineNr">18778 </span> <span class="subxComment"># v->type == int</span> -<span id="L18779" class="LineNr">18779 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18780" class="LineNr">18780 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L18733'>test-parse-mu-reg-var-def</a>/output-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L18781" class="LineNr">18781 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L18733'>test-parse-mu-reg-var-def</a>/output-type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L18782" class="LineNr">18782 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L18733'>test-parse-mu-reg-var-def</a>/output-type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L18783" class="LineNr">18783 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18784" class="LineNr">18784 </span> 89/<- %esp 5/r32/ebp -<span id="L18785" class="LineNr">18785 </span> 5d/pop-to-ebp -<span id="L18786" class="LineNr">18786 </span> c3/return -<span id="L18787" class="LineNr">18787 </span> -<span id="L18788" class="LineNr">18788 </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="L18789" class="LineNr">18789 </span> <span class="subxComment"># pseudocode:</span> -<span id="L18790" class="LineNr">18790 </span> <span class="subxComment"># var name: slice</span> -<span id="L18791" class="LineNr">18791 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> -<span id="L18792" class="LineNr">18792 </span> <span class="subxComment"># var out-addr: (addr stmt) = lookup(*out)</span> -<span id="L18793" class="LineNr">18793 </span> <span class="subxComment"># out-addr->tag = stmt</span> -<span id="L18794" class="LineNr">18794 </span> <span class="subxComment"># if stmt-has-outputs?(line)</span> -<span id="L18795" class="LineNr">18795 </span> <span class="subxComment"># while true</span> -<span id="L18796" class="LineNr">18796 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L18797" class="LineNr">18797 </span> <span class="subxComment"># if (name == '<-') break</span> -<span id="L18798" class="LineNr">18798 </span> <span class="subxComment"># assert(identifier?(name))</span> -<span id="L18799" class="LineNr">18799 </span> <span class="subxComment"># var v: (handle var) = lookup-var(name, vars)</span> -<span id="L18800" class="LineNr">18800 </span> <span class="subxComment"># out-addr->outputs = append(v, out-addr->outputs)</span> -<span id="L18801" class="LineNr">18801 </span> <span class="subxComment"># add-operation-and-inputs-to-stmt(out-addr, line, vars)</span> -<span id="L18802" class="LineNr">18802 </span> <span class="subxComment">#</span> -<span id="L18803" class="LineNr">18803 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18804" class="LineNr">18804 </span> 55/push-ebp -<span id="L18805" class="LineNr">18805 </span> 89/<- %ebp 4/r32/esp -<span id="L18806" class="LineNr">18806 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18807" class="LineNr">18807 </span> 50/push-eax -<span id="L18808" class="LineNr">18808 </span> 51/push-ecx -<span id="L18809" class="LineNr">18809 </span> 52/push-edx -<span id="L18810" class="LineNr">18810 </span> 53/push-ebx -<span id="L18811" class="LineNr">18811 </span> 57/push-edi -<span id="L18812" class="LineNr">18812 </span> <span class="subxComment"># var name/ecx: slice</span> -<span id="L18813" class="LineNr">18813 </span> 68/push 0/imm32/end -<span id="L18814" class="LineNr">18814 </span> 68/push 0/imm32/start -<span id="L18815" class="LineNr">18815 </span> 89/<- %ecx 4/r32/esp -<span id="L18816" class="LineNr">18816 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> -<span id="L18817" class="LineNr">18817 </span> ba/copy-to-edx 0/imm32/false -<span id="L18818" class="LineNr">18818 </span> <span class="subxComment"># var v: (handle var)</span> -<span id="L18819" class="LineNr">18819 </span> 68/push 0/imm32 -<span id="L18820" class="LineNr">18820 </span> 68/push 0/imm32 -<span id="L18821" class="LineNr">18821 </span> 89/<- %ebx 4/r32/esp -<span id="L18822" class="LineNr">18822 </span> <span class="subxComment">#</span> -<span id="L18823" class="LineNr">18823 </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="L18824" class="LineNr">18824 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> -<span id="L18825" class="LineNr">18825 </span> 8b/-> *(ebp+0x14) 7/r32/edi -<span id="L18826" class="LineNr">18826 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18827" class="LineNr">18827 </span> 89/<- %edi 0/r32/eax -<span id="L18828" class="LineNr">18828 </span> <span class="subxComment"># out-addr->tag = 1/stmt</span> -<span id="L18829" class="LineNr">18829 </span> c7 0/subop/copy *edi 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L18830" class="LineNr">18830 </span> { -<span id="L18831" class="LineNr">18831 </span> (<a href='mu.subx.html#L19069'>stmt-has-outputs?</a> *(ebp+8)) -<span id="L18832" class="LineNr">18832 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18833" class="LineNr">18833 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L18834" class="LineNr">18834 </span> { -<span id="L18835" class="LineNr">18835 </span><span class="Constant">$parse-mu-stmt:read-outputs</span>: -<span id="L18836" class="LineNr">18836 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L18837" class="LineNr">18837 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18838" class="LineNr">18838 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L18839" class="LineNr">18839 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L18840" class="LineNr">18840 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18841" class="LineNr">18841 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18842" class="LineNr">18842 </span> <span class="subxComment"># if (name == "<-") break</span> -<span id="L18843" class="LineNr">18843 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> -<span id="L18844" class="LineNr">18844 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18845" class="LineNr">18845 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18846" class="LineNr">18846 </span> <span class="subxComment"># if slice-starts-with?(name, "*") abort</span> -<span id="L18847" class="LineNr">18847 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> -<span id="L18848" class="LineNr">18848 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18849" class="LineNr">18849 </span> 25/and-eax-with 0xff/imm32 -<span id="L18850" class="LineNr">18850 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L18851" class="LineNr">18851 </span> 0f 84/jump-if-= $parse-mu-stmt:error-output-dereferenced/disp32 -<span id="L18852" class="LineNr">18852 </span> <span class="subxComment"># assert(identifier?(name))</span> -<span id="L18853" class="LineNr">18853 </span> (<a href='mu.subx.html#L17814'>identifier?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L18854" class="LineNr">18854 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18855" class="LineNr">18855 </span> 0f 84/jump-if-= $parse-mu-stmt:abort/disp32 -<span id="L18856" class="LineNr">18856 </span> <span class="subxComment">#</span> -<span id="L18857" class="LineNr">18857 </span> (<a href='mu.subx.html#L19180'>lookup-var</a> %ecx *(ebp+0xc) %ebx *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18858" class="LineNr">18858 </span> 8d/copy-address *(edi+0x14) 0/r32/eax <span class="subxComment"># Stmt1-outputs</span> -<span id="L18859" class="LineNr">18859 </span> (<a href='mu.subx.html#L20115'>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="L18860" class="LineNr">18860 </span> <span class="subxComment">#</span> -<span id="L18861" class="LineNr">18861 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L18862" class="LineNr">18862 </span> } -<span id="L18863" class="LineNr">18863 </span> } -<span id="L18864" class="LineNr">18864 </span> (<a href='mu.subx.html#L18905'>add-operation-and-inputs-to-stmt</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18865" class="LineNr">18865 </span><span class="Constant">$parse-mu-stmt:end</span>: -<span id="L18866" class="LineNr">18866 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18867" class="LineNr">18867 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L18868" class="LineNr">18868 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18869" class="LineNr">18869 </span> 5f/pop-to-edi -<span id="L18870" class="LineNr">18870 </span> 5b/pop-to-ebx -<span id="L18871" class="LineNr">18871 </span> 5a/pop-to-edx -<span id="L18872" class="LineNr">18872 </span> 59/pop-to-ecx -<span id="L18873" class="LineNr">18873 </span> 58/pop-to-eax -<span id="L18874" class="LineNr">18874 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18875" class="LineNr">18875 </span> 89/<- %esp 5/r32/ebp -<span id="L18876" class="LineNr">18876 </span> 5d/pop-to-ebp -<span id="L18877" class="LineNr">18877 </span> c3/return -<span id="L18878" class="LineNr">18878 </span> -<span id="L18879" class="LineNr">18879 </span><span class="Constant">$parse-mu-stmt:abort</span>: -<span id="L18880" class="LineNr">18880 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> -<span id="L18881" class="LineNr">18881 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18882" class="LineNr">18882 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L18883" class="LineNr">18883 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18884" class="LineNr">18884 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18885" class="LineNr">18885 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier '"</span>) -<span id="L18886" class="LineNr">18886 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) -<span id="L18887" class="LineNr">18887 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L18888" class="LineNr">18888 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18889" class="LineNr">18889 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18890" class="LineNr">18890 </span> <span class="subxComment"># never gets here</span> -<span id="L18891" class="LineNr">18891 </span> -<span id="L18892" class="LineNr">18892 </span><span class="Constant">$parse-mu-stmt:error-output-dereferenced</span>: -<span id="L18893" class="LineNr">18893 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> -<span id="L18894" class="LineNr">18894 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18895" class="LineNr">18895 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L18896" class="LineNr">18896 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18897" class="LineNr">18897 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18898" class="LineNr">18898 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": output '"</span>) -<span id="L18899" class="LineNr">18899 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) -<span id="L18900" class="LineNr">18900 </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="L18901" class="LineNr">18901 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18902" class="LineNr">18902 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18903" class="LineNr">18903 </span> <span class="subxComment"># never gets here</span> -<span id="L18904" class="LineNr">18904 </span> -<span id="L18905" class="LineNr">18905 </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="L18906" class="LineNr">18906 </span> <span class="subxComment"># pseudocode:</span> -<span id="L18907" class="LineNr">18907 </span> <span class="subxComment"># stmt->name = slice-to-string(next-mu-token(line))</span> -<span id="L18908" class="LineNr">18908 </span> <span class="subxComment"># while true</span> -<span id="L18909" class="LineNr">18909 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L18910" class="LineNr">18910 </span> <span class="subxComment"># v = lookup-var-or-literal(name)</span> -<span id="L18911" class="LineNr">18911 </span> <span class="subxComment"># stmt->inouts = append(v, stmt->inouts)</span> -<span id="L18912" class="LineNr">18912 </span> <span class="subxComment">#</span> -<span id="L18913" class="LineNr">18913 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18914" class="LineNr">18914 </span> 55/push-ebp -<span id="L18915" class="LineNr">18915 </span> 89/<- %ebp 4/r32/esp -<span id="L18916" class="LineNr">18916 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18917" class="LineNr">18917 </span> 50/push-eax -<span id="L18918" class="LineNr">18918 </span> 51/push-ecx -<span id="L18919" class="LineNr">18919 </span> 52/push-edx -<span id="L18920" class="LineNr">18920 </span> 53/push-ebx -<span id="L18921" class="LineNr">18921 </span> 56/push-esi -<span id="L18922" class="LineNr">18922 </span> 57/push-edi -<span id="L18923" class="LineNr">18923 </span> <span class="subxComment"># edi = stmt</span> -<span id="L18924" class="LineNr">18924 </span> 8b/-> *(ebp+8) 7/r32/edi -<span id="L18925" class="LineNr">18925 </span> <span class="subxComment"># var name/ecx: slice</span> -<span id="L18926" class="LineNr">18926 </span> 68/push 0/imm32/end -<span id="L18927" class="LineNr">18927 </span> 68/push 0/imm32/start -<span id="L18928" class="LineNr">18928 </span> 89/<- %ecx 4/r32/esp -<span id="L18929" class="LineNr">18929 </span> <span class="subxComment"># var is-deref?/edx: boolean = 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"># var v/esi: (handle var)</span> -<span id="L18932" class="LineNr">18932 </span> 68/push 0/imm32 -<span id="L18933" class="LineNr">18933 </span> 68/push 0/imm32 -<span id="L18934" class="LineNr">18934 </span> 89/<- %esi 4/r32/esp -<span id="L18935" class="LineNr">18935 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-operation</span>: -<span id="L18936" class="LineNr">18936 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> *(ebp+0xc) %ecx) -<span id="L18937" class="LineNr">18937 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation or Regvardef-operationStmt1-operation or Regvardef-operation</span> -<span id="L18938" class="LineNr">18938 </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="L18939" class="LineNr">18939 </span> <span class="subxComment"># var is-get?/ebx: boolean = (name == "get")</span> -<span id="L18940" class="LineNr">18940 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L18941" class="LineNr">18941 </span> 89/<- %ebx 0/r32/eax -<span id="L18942" class="LineNr">18942 </span> { -<span id="L18943" class="LineNr">18943 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-inouts</span>: -<span id="L18944" class="LineNr">18944 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L18945" class="LineNr">18945 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> *(ebp+0xc) %ecx) -<span id="L18946" class="LineNr">18946 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L18947" class="LineNr">18947 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L18948" class="LineNr">18948 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18949" class="LineNr">18949 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18950" class="LineNr">18950 </span> <span class="subxComment"># if (name == "<-") abort</span> -<span id="L18951" class="LineNr">18951 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) -<span id="L18952" class="LineNr">18952 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18953" class="LineNr">18953 </span> 0f 85/jump-if-!= $add-operation-and-inputs-to-stmt:abort/disp32 -<span id="L18954" class="LineNr">18954 </span> <span class="subxComment"># if (get? && second operand) lookup or create offset</span> -<span id="L18955" class="LineNr">18955 </span> { -<span id="L18956" class="LineNr">18956 </span> 81 7/subop/compare %ebx 0/imm32/false -<span id="L18957" class="LineNr">18957 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18958" class="LineNr">18958 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L18959" class="LineNr">18959 </span> 3d/compare-eax-and 0/imm32 -<span id="L18960" class="LineNr">18960 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18961" class="LineNr">18961 </span> (<a href='mu.subx.html#L20200'>lookup-or-create-constant</a> %eax %ecx %esi) -<span id="L18962" class="LineNr">18962 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> -<span id="L18963" class="LineNr">18963 </span><span class="CommentedCode">#? (write-buffered Stderr "creating new output var ")</span> -<span id="L18964" class="LineNr">18964 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L18965" class="LineNr">18965 </span><span class="CommentedCode">#? (write-buffered Stderr " for field called ")</span> -<span id="L18966" class="LineNr">18966 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> -<span id="L18967" class="LineNr">18967 </span><span class="CommentedCode">#? (write-buffered Stderr "; var name ")</span> -<span id="L18968" class="LineNr">18968 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> -<span id="L18969" class="LineNr">18969 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L18970" class="LineNr">18970 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L18971" class="LineNr">18971 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18972" class="LineNr">18972 </span> e9/jump $add-operation-and-inputs-to-stmt:save-var/disp32 -<span id="L18973" class="LineNr">18973 </span> } -<span id="L18974" class="LineNr">18974 </span> <span class="subxComment"># is-deref? = false</span> -<span id="L18975" class="LineNr">18975 </span> ba/copy-to-edx 0/imm32/false -<span id="L18976" class="LineNr">18976 </span> <span class="subxComment"># if (slice-starts-with?(name, '*')) ++name->start and set is-deref?</span> -<span id="L18977" class="LineNr">18977 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> -<span id="L18978" class="LineNr">18978 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18979" class="LineNr">18979 </span> 25/and-eax-with 0xff/imm32 -<span id="L18980" class="LineNr">18980 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L18981" class="LineNr">18981 </span> { -<span id="L18982" class="LineNr">18982 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L18983" class="LineNr">18983 </span><span class="Constant">$add-operation-and-inputs-to-stmt:inout-is-deref</span>: -<span id="L18984" class="LineNr">18984 </span> ff 0/subop/increment *ecx -<span id="L18985" class="LineNr">18985 </span> ba/copy-to-edx 1/imm32/true -<span id="L18986" class="LineNr">18986 </span> } -<span id="L18987" class="LineNr">18987 </span> (<a href='mu.subx.html#L19117'>lookup-var-or-literal</a> %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18988" class="LineNr">18988 </span> <span class="subxComment"># if (deref?) some additional checks</span> -<span id="L18989" class="LineNr">18989 </span> 81 7/subop/compare %edx 0/imm32/false -<span id="L18990" class="LineNr">18990 </span> { -<span id="L18991" class="LineNr">18991 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18992" class="LineNr">18992 </span> <span class="subxComment"># if var is not in register, abort</span> -<span id="L18993" class="LineNr">18993 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L18994" class="LineNr">18994 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L18995" class="LineNr">18995 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-on-stack/disp32 -<span id="L18996" class="LineNr">18996 </span> <span class="subxComment"># if var is not an address, abort</span> -<span id="L18997" class="LineNr">18997 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18998" class="LineNr">18998 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L18999" class="LineNr">18999 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19000" class="LineNr">19000 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-non-addr/disp32 -<span id="L19001" class="LineNr">19001 </span> } -<span id="L19002" class="LineNr">19002 </span><span class="Constant">$add-operation-and-inputs-to-stmt:save-var</span>: -<span id="L19003" class="LineNr">19003 </span> 8d/copy-address *(edi+0xc) 0/r32/eax -<span id="L19004" class="LineNr">19004 </span> (<a href='mu.subx.html#L20115'>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="L19005" class="LineNr">19005 </span> <span class="subxComment">#</span> -<span id="L19006" class="LineNr">19006 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L19007" class="LineNr">19007 </span> } -<span id="L19008" class="LineNr">19008 </span><span class="Constant">$add-operation-and-inputs-to-stmt:end</span>: -<span id="L19009" class="LineNr">19009 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19010" class="LineNr">19010 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L19011" class="LineNr">19011 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19012" class="LineNr">19012 </span> 5f/pop-to-edi -<span id="L19013" class="LineNr">19013 </span> 5e/pop-to-esi -<span id="L19014" class="LineNr">19014 </span> 5b/pop-to-ebx -<span id="L19015" class="LineNr">19015 </span> 5a/pop-to-edx -<span id="L19016" class="LineNr">19016 </span> 59/pop-to-ecx -<span id="L19017" class="LineNr">19017 </span> 58/pop-to-eax -<span id="L19018" class="LineNr">19018 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19019" class="LineNr">19019 </span> 89/<- %esp 5/r32/ebp -<span id="L19020" class="LineNr">19020 </span> 5d/pop-to-ebp -<span id="L19021" class="LineNr">19021 </span> c3/return -<span id="L19022" class="LineNr">19022 </span> -<span id="L19023" class="LineNr">19023 </span><span class="Constant">$add-operation-and-inputs-to-stmt:abort</span>: -<span id="L19024" class="LineNr">19024 </span> <span class="subxComment"># error("fn ___: invalid identifier in '" line "'\n")</span> -<span id="L19025" class="LineNr">19025 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19026" class="LineNr">19026 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19027" class="LineNr">19027 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19028" class="LineNr">19028 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19029" class="LineNr">19029 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L19030" class="LineNr">19030 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier in '"</span>) -<span id="L19031" class="LineNr">19031 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) -<span id="L19032" class="LineNr">19032 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L19033" class="LineNr">19033 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19034" class="LineNr">19034 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L19035" class="LineNr">19035 </span> <span class="subxComment"># never gets here</span> -<span id="L19036" class="LineNr">19036 </span> -<span id="L19037" class="LineNr">19037 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-on-stack</span>: -<span id="L19038" class="LineNr">19038 </span> <span class="subxComment"># error("fn ___: cannot dereference var ___ on stack\n")</span> -<span id="L19039" class="LineNr">19039 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19040" class="LineNr">19040 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19041" class="LineNr">19041 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19042" class="LineNr">19042 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19043" class="LineNr">19043 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L19044" class="LineNr">19044 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference var '"</span>) -<span id="L19045" class="LineNr">19045 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L19046" class="LineNr">19046 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19047" class="LineNr">19047 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19048" class="LineNr">19048 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' on stack\n"</span>) -<span id="L19049" class="LineNr">19049 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19050" class="LineNr">19050 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L19051" class="LineNr">19051 </span> <span class="subxComment"># never gets here</span> -<span id="L19052" class="LineNr">19052 </span> -<span id="L19053" class="LineNr">19053 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-non-addr</span>: -<span id="L19054" class="LineNr">19054 </span> <span class="subxComment"># error("fn ___: cannot dereference non-addr var ___\n")</span> -<span id="L19055" class="LineNr">19055 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19056" class="LineNr">19056 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19057" class="LineNr">19057 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19058" class="LineNr">19058 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19059" class="LineNr">19059 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L19060" class="LineNr">19060 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference non-addr var '"</span>) -<span id="L19061" class="LineNr">19061 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L19062" class="LineNr">19062 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19063" class="LineNr">19063 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19064" class="LineNr">19064 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L19065" class="LineNr">19065 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19066" class="LineNr">19066 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L19067" class="LineNr">19067 </span> <span class="subxComment"># never gets here</span> -<span id="L19068" class="LineNr">19068 </span> -<span id="L19069" class="LineNr">19069 </span><span class="subxFunction">stmt-has-outputs?</span>: <span class="subxComment"># line: (addr stream byte) -> result/eax: boolean</span> -<span id="L19070" class="LineNr">19070 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19071" class="LineNr">19071 </span> 55/push-ebp -<span id="L19072" class="LineNr">19072 </span> 89/<- %ebp 4/r32/esp -<span id="L19073" class="LineNr">19073 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19074" class="LineNr">19074 </span> 51/push-ecx -<span id="L19075" class="LineNr">19075 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L19076" class="LineNr">19076 </span> 68/push 0/imm32/end -<span id="L19077" class="LineNr">19077 </span> 68/push 0/imm32/start -<span id="L19078" class="LineNr">19078 </span> 89/<- %ecx 4/r32/esp -<span id="L19079" class="LineNr">19079 </span> <span class="subxComment"># result = false</span> -<span id="L19080" class="LineNr">19080 </span> b8/copy-to-eax 0/imm32/false -<span id="L19081" class="LineNr">19081 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L19082" class="LineNr">19082 </span> { -<span id="L19083" class="LineNr">19083 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L19084" class="LineNr">19084 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L19085" class="LineNr">19085 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) -<span id="L19086" class="LineNr">19086 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19087" class="LineNr">19087 </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="L19088" class="LineNr">19088 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L19089" class="LineNr">19089 </span> <span class="subxComment"># if slice-starts-with?(word-slice, '#') break</span> -<span id="L19090" class="LineNr">19090 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> -<span id="L19091" class="LineNr">19091 </span> 8b/-> *ecx 0/r32/eax -<span id="L19092" class="LineNr">19092 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L19093" class="LineNr">19093 </span> 25/and-eax-with 0xff/imm32 -<span id="L19094" class="LineNr">19094 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> -<span id="L19095" class="LineNr">19095 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L19096" class="LineNr">19096 </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="L19097" class="LineNr">19097 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L19098" class="LineNr">19098 </span> <span class="subxComment"># if slice-equal?(word-slice, '<-') return true</span> -<span id="L19099" class="LineNr">19099 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) -<span id="L19100" class="LineNr">19100 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19101" class="LineNr">19101 </span> 74/jump-if-= <span class="Constant">loop</span>/disp8 -<span id="L19102" class="LineNr">19102 </span> b8/copy-to-eax 1/imm32/true -<span id="L19103" class="LineNr">19103 </span> } -<span id="L19104" class="LineNr">19104 </span><span class="Constant">$stmt-has-outputs:end</span>: -<span id="L19105" class="LineNr">19105 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L19106" class="LineNr">19106 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19107" class="LineNr">19107 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19108" class="LineNr">19108 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19109" class="LineNr">19109 </span> 59/pop-to-ecx -<span id="L19110" class="LineNr">19110 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19111" class="LineNr">19111 </span> 89/<- %esp 5/r32/ebp -<span id="L19112" class="LineNr">19112 </span> 5d/pop-to-ebp -<span id="L19113" class="LineNr">19113 </span> c3/return -<span id="L19114" class="LineNr">19114 </span> -<span id="L19115" class="LineNr">19115 </span><span class="subxComment"># if 'name' starts with a digit, create a new literal var for it</span> -<span id="L19116" class="LineNr">19116 </span><span class="subxComment"># otherwise return first 'name' from the top (back) of 'vars' and abort if not found</span> -<span id="L19117" class="LineNr">19117 </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="L19118" class="LineNr">19118 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19119" class="LineNr">19119 </span> 55/push-ebp -<span id="L19120" class="LineNr">19120 </span> 89/<- %ebp 4/r32/esp -<span id="L19121" class="LineNr">19121 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19122" class="LineNr">19122 </span> 50/push-eax -<span id="L19123" class="LineNr">19123 </span> 51/push-ecx -<span id="L19124" class="LineNr">19124 </span> 56/push-esi -<span id="L19125" class="LineNr">19125 </span> <span class="subxComment"># esi = name</span> -<span id="L19126" class="LineNr">19126 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L19127" class="LineNr">19127 </span> <span class="subxComment"># if slice-empty?(name) abort</span> -<span id="L19128" class="LineNr">19128 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %esi) <span class="subxComment"># => eax</span> -<span id="L19129" class="LineNr">19129 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19130" class="LineNr">19130 </span> 0f 85/jump-if-!= $lookup-var-or-literal:abort/disp32 -<span id="L19131" class="LineNr">19131 </span> <span class="subxComment"># var c/ecx: byte = *name->start</span> -<span id="L19132" class="LineNr">19132 </span> 8b/-> *esi 1/r32/ecx -<span id="L19133" class="LineNr">19133 </span> 8a/copy-byte *ecx 1/r32/CL -<span id="L19134" class="LineNr">19134 </span> 81 4/subop/and %ecx 0xff/imm32 -<span id="L19135" class="LineNr">19135 </span> <span class="subxComment"># if (decimal-digit?(c) || c == '-') return new var(name)</span> -<span id="L19136" class="LineNr">19136 </span> { -<span id="L19137" class="LineNr">19137 </span> 81 7/subop/compare %ecx 0x2d/imm32/dash -<span id="L19138" class="LineNr">19138 </span> 74/jump-if-= $lookup-var-or-literal:literal/disp8 -<span id="L19139" class="LineNr">19139 </span> (<a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L19140" class="LineNr">19140 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19141" class="LineNr">19141 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19142" class="LineNr">19142 </span><span class="Constant">$lookup-var-or-literal:literal</span>: -<span id="L19143" class="LineNr">19143 </span> (<a href='mu.subx.html#L19787'>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="L19144" class="LineNr">19144 </span> eb/jump $lookup-var-or-literal:end/disp8 -<span id="L19145" class="LineNr">19145 </span> } -<span id="L19146" class="LineNr">19146 </span> <span class="subxComment"># else if (c == '"') return new var(name)</span> -<span id="L19147" class="LineNr">19147 </span> { -<span id="L19148" class="LineNr">19148 </span> 81 7/subop/compare %ecx 0x22/imm32/dquote -<span id="L19149" class="LineNr">19149 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L19150" class="LineNr">19150 </span><span class="Constant">$lookup-var-or-literal:literal-string</span>: -<span id="L19151" class="LineNr">19151 </span> (<a href='mu.subx.html#L19939'>new-literal-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %esi *(ebp+0x10)) -<span id="L19152" class="LineNr">19152 </span> eb/jump $lookup-var-or-literal:end/disp8 -<span id="L19153" class="LineNr">19153 </span> } -<span id="L19154" class="LineNr">19154 </span> <span class="subxComment"># otherwise return lookup-var(name, vars)</span> -<span id="L19155" class="LineNr">19155 </span> { -<span id="L19156" class="LineNr">19156 </span><span class="Constant">$lookup-var-or-literal:var</span>: -<span id="L19157" class="LineNr">19157 </span> (<a href='mu.subx.html#L19180'>lookup-var</a> %esi *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L19158" class="LineNr">19158 </span> } -<span id="L19159" class="LineNr">19159 </span><span class="Constant">$lookup-var-or-literal:end</span>: -<span id="L19160" class="LineNr">19160 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19161" class="LineNr">19161 </span> 5e/pop-to-esi -<span id="L19162" class="LineNr">19162 </span> 59/pop-to-ecx -<span id="L19163" class="LineNr">19163 </span> 58/pop-to-eax -<span id="L19164" class="LineNr">19164 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19165" class="LineNr">19165 </span> 89/<- %esp 5/r32/ebp -<span id="L19166" class="LineNr">19166 </span> 5d/pop-to-ebp -<span id="L19167" class="LineNr">19167 </span> c3/return -<span id="L19168" class="LineNr">19168 </span> -<span id="L19169" class="LineNr">19169 </span><span class="Constant">$lookup-var-or-literal:abort</span>: -<span id="L19170" class="LineNr">19170 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19171" class="LineNr">19171 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19172" class="LineNr">19172 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19173" class="LineNr">19173 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19174" class="LineNr">19174 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": empty variable!"</span>) -<span id="L19175" class="LineNr">19175 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19176" class="LineNr">19176 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L19177" class="LineNr">19177 </span> <span class="subxComment"># never gets here</span> -<span id="L19178" class="LineNr">19178 </span> -<span id="L19179" class="LineNr">19179 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars' and abort if not found</span> -<span id="L19180" class="LineNr">19180 </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="L19181" class="LineNr">19181 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19182" class="LineNr">19182 </span> 55/push-ebp -<span id="L19183" class="LineNr">19183 </span> 89/<- %ebp 4/r32/esp -<span id="L19184" class="LineNr">19184 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19185" class="LineNr">19185 </span> 50/push-eax -<span id="L19186" class="LineNr">19186 </span> <span class="subxComment">#</span> -<span id="L19187" class="LineNr">19187 </span> (<a href='mu.subx.html#L19214'>lookup-var-helper</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L19188" class="LineNr">19188 </span> <span class="subxComment"># if (*out == 0) abort</span> -<span id="L19189" class="LineNr">19189 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L19190" class="LineNr">19190 </span> 81 7/subop/compare *eax 0/imm32 -<span id="L19191" class="LineNr">19191 </span> 74/jump-if-= $lookup-var:abort/disp8 -<span id="L19192" class="LineNr">19192 </span><span class="Constant">$lookup-var:end</span>: -<span id="L19193" class="LineNr">19193 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19194" class="LineNr">19194 </span> 58/pop-to-eax -<span id="L19195" class="LineNr">19195 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19196" class="LineNr">19196 </span> 89/<- %esp 5/r32/ebp -<span id="L19197" class="LineNr">19197 </span> 5d/pop-to-ebp -<span id="L19198" class="LineNr">19198 </span> c3/return -<span id="L19199" class="LineNr">19199 </span> -<span id="L19200" class="LineNr">19200 </span><span class="Constant">$lookup-var:abort</span>: -<span id="L19201" class="LineNr">19201 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19202" class="LineNr">19202 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19203" class="LineNr">19203 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19204" class="LineNr">19204 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19205" class="LineNr">19205 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": unknown variable '"</span>) -<span id="L19206" class="LineNr">19206 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L17297" class="LineNr">17297 </span> <span class="subxComment"># s = next-mu-token(in)</span> +<span id="L17298" class="LineNr">17298 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+0xc) %ecx) +<span id="L17299" class="LineNr">17299 </span><span class="CommentedCode">#? (write-buffered Stderr "tok: ")</span> +<span id="L17300" class="LineNr">17300 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> +<span id="L17301" class="LineNr">17301 </span><span class="CommentedCode">#? (write-buffered Stderr "$\n")</span> +<span id="L17302" class="LineNr">17302 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L17303" class="LineNr">17303 </span> <span class="subxComment"># assert s != ""</span> +<span id="L17304" class="LineNr">17304 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">""</span>) <span class="subxComment"># => eax</span> +<span id="L17305" class="LineNr">17305 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17306" class="LineNr">17306 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L17307" class="LineNr">17307 </span> <span class="subxComment"># assert s != "{"</span> +<span id="L17308" class="LineNr">17308 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L17309" class="LineNr">17309 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17310" class="LineNr">17310 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L17311" class="LineNr">17311 </span> <span class="subxComment"># assert s != "}"</span> +<span id="L17312" class="LineNr">17312 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L17313" class="LineNr">17313 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17314" class="LineNr">17314 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L17315" class="LineNr">17315 </span> <span class="subxComment"># assert s != "->"</span> +<span id="L17316" class="LineNr">17316 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L17317" class="LineNr">17317 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17318" class="LineNr">17318 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L17319" class="LineNr">17319 </span> <span class="subxComment"># if (s == ")") return</span> +<span id="L17320" class="LineNr">17320 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">")"</span>) <span class="subxComment"># => eax</span> +<span id="L17321" class="LineNr">17321 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17322" class="LineNr">17322 </span> 0f 85/jump-if-!= $parse-type:end/disp32 +<span id="L17323" class="LineNr">17323 </span> <span class="subxComment"># out = new tree</span> +<span id="L17324" class="LineNr">17324 </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="L17325" class="LineNr">17325 </span> <span class="subxComment"># var out-addr/edx: (addr type-tree) = lookup(*out)</span> +<span id="L17326" class="LineNr">17326 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L17327" class="LineNr">17327 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17328" class="LineNr">17328 </span> 89/<- %edx 0/r32/eax +<span id="L17329" class="LineNr">17329 </span> { +<span id="L17330" class="LineNr">17330 </span> <span class="subxComment"># if (s != "(") break</span> +<span id="L17331" class="LineNr">17331 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"("</span>) <span class="subxComment"># => eax</span> +<span id="L17332" class="LineNr">17332 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17333" class="LineNr">17333 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L17334" class="LineNr">17334 </span> <span class="subxComment"># if s is a number, store it in the type's size field</span> +<span id="L17335" class="LineNr">17335 </span> { +<span id="L17336" class="LineNr">17336 </span><span class="Constant">$parse-type:check-for-int</span>: +<span id="L17337" class="LineNr">17337 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> +<span id="L17338" class="LineNr">17338 </span> 8b/-> *ecx 0/r32/eax +<span id="L17339" class="LineNr">17339 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L17340" class="LineNr">17340 </span> 25/and-eax-with 0xff/imm32 +<span id="L17341" class="LineNr">17341 </span> <span class="subxComment"># TODO: raise an error on `var x: (array int a)`</span> +<span id="L17342" class="LineNr">17342 </span> (<a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L17343" class="LineNr">17343 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17344" class="LineNr">17344 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17345" class="LineNr">17345 </span><span class="Constant">$parse-type:int</span>: +<span id="L17346" class="LineNr">17346 </span> <span class="subxComment"># strip out metadata</span> +<span id="L17347" class="LineNr">17347 </span> (<a href='124next-token.subx.html#L163'>next-token-from-slice</a> *ecx *(ecx+4) 0x2f %ecx) +<span id="L17348" class="LineNr">17348 </span> <span class="subxComment">#</span> +<span id="L17349" class="LineNr">17349 </span> (<a href='mu.subx.html#L20017'>check-mu-hex-int</a> %ecx *(ebp+0x14) *(ebp+0x18)) +<span id="L17350" class="LineNr">17350 </span> (<a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L17351" class="LineNr">17351 </span> c7 0/subop/copy *(edx+4) 9/imm32/type-id-array-capacity <span class="subxComment"># Type-tree-value</span> +<span id="L17352" class="LineNr">17352 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-value-size</span> +<span id="L17353" class="LineNr">17353 </span> e9/jump $parse-type:end/disp32 +<span id="L17354" class="LineNr">17354 </span> } +<span id="L17355" class="LineNr">17355 </span><span class="Constant">$parse-type:atom</span>: +<span id="L17356" class="LineNr">17356 </span> <span class="subxComment"># out->is-atom? = true</span> +<span id="L17357" class="LineNr">17357 </span> c7 0/subop/copy *edx 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17358" class="LineNr">17358 </span> { +<span id="L17359" class="LineNr">17359 </span><span class="Constant">$parse-type:check-for-type-parameter</span>: +<span id="L17360" class="LineNr">17360 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> +<span id="L17361" class="LineNr">17361 </span> 8b/-> *ecx 0/r32/eax +<span id="L17362" class="LineNr">17362 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L17363" class="LineNr">17363 </span> 25/and-eax-with 0xff/imm32 +<span id="L17364" class="LineNr">17364 </span> <span class="subxComment"># if (tmp != '_') break</span> +<span id="L17365" class="LineNr">17365 </span> 3d/compare-eax-and 0x5f/imm32/_ +<span id="L17366" class="LineNr">17366 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17367" class="LineNr">17367 </span><span class="Constant">$parse-type:type-parameter</span>: +<span id="L17368" class="LineNr">17368 </span> <span class="subxComment"># out->value = type-parameter</span> +<span id="L17369" class="LineNr">17369 </span> c7 0/subop/copy *(edx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> +<span id="L17370" class="LineNr">17370 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> +<span id="L17371" class="LineNr">17371 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-parameter-name</span> +<span id="L17372" class="LineNr">17372 </span> (<a href='123slice.subx.html#L1043'>slice-to-string</a> *(ebp+8) %ecx %eax) +<span id="L17373" class="LineNr">17373 </span> e9/jump $parse-type:end/disp32 +<span id="L17374" class="LineNr">17374 </span> } +<span id="L17375" class="LineNr">17375 </span><span class="Constant">$parse-type:non-type-parameter</span>: +<span id="L17376" class="LineNr">17376 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> +<span id="L17377" class="LineNr">17377 </span> (<a href='mu.subx.html#L17633'>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="L17378" class="LineNr">17378 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L17379" class="LineNr">17379 </span> e9/jump $parse-type:end/disp32 +<span id="L17380" class="LineNr">17380 </span> } +<span id="L17381" class="LineNr">17381 </span><span class="Constant">$parse-type:non-atom</span>: +<span id="L17382" class="LineNr">17382 </span> <span class="subxComment"># otherwise s == "("</span> +<span id="L17383" class="LineNr">17383 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> +<span id="L17384" class="LineNr">17384 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> +<span id="L17385" class="LineNr">17385 </span> (<a href='mu.subx.html#L17262'>parse-type</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L17386" class="LineNr">17386 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L17387" class="LineNr">17387 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> +<span id="L17388" class="LineNr">17388 </span> (<a href='mu.subx.html#L17410'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L17389" class="LineNr">17389 </span><span class="Constant">$parse-type:end</span>: +<span id="L17390" class="LineNr">17390 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17391" class="LineNr">17391 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17392" class="LineNr">17392 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17393" class="LineNr">17393 </span> 5a/pop-to-edx +<span id="L17394" class="LineNr">17394 </span> 59/pop-to-ecx +<span id="L17395" class="LineNr">17395 </span> 58/pop-to-eax +<span id="L17396" class="LineNr">17396 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17397" class="LineNr">17397 </span> 89/<- %esp 5/r32/ebp +<span id="L17398" class="LineNr">17398 </span> 5d/pop-to-ebp +<span id="L17399" class="LineNr">17399 </span> c3/return +<span id="L17400" class="LineNr">17400 </span> +<span id="L17401" class="LineNr">17401 </span><span class="Constant">$parse-type:abort</span>: +<span id="L17402" class="LineNr">17402 </span> <span class="subxComment"># error("unexpected token when parsing type: '" s "'\n")</span> +<span id="L17403" class="LineNr">17403 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"unexpected token when parsing type: '"</span>) +<span id="L17404" class="LineNr">17404 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) +<span id="L17405" class="LineNr">17405 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L17406" class="LineNr">17406 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L17407" class="LineNr">17407 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L17408" class="LineNr">17408 </span> <span class="subxComment"># never gets here</span> +<span id="L17409" class="LineNr">17409 </span> +<span id="L17410" class="LineNr">17410 </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="L17411" class="LineNr">17411 </span> <span class="subxComment"># pseudocode:</span> +<span id="L17412" class="LineNr">17412 </span> <span class="subxComment"># var tmp: (handle type-tree) = parse-type(ad, in)</span> +<span id="L17413" class="LineNr">17413 </span> <span class="subxComment"># if tmp == 0</span> +<span id="L17414" class="LineNr">17414 </span> <span class="subxComment"># return 0</span> +<span id="L17415" class="LineNr">17415 </span> <span class="subxComment"># out = allocate(Type-tree)</span> +<span id="L17416" class="LineNr">17416 </span> <span class="subxComment"># out->left = tmp</span> +<span id="L17417" class="LineNr">17417 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L17418" class="LineNr">17418 </span> <span class="subxComment">#</span> +<span id="L17419" class="LineNr">17419 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17420" class="LineNr">17420 </span> 55/push-ebp +<span id="L17421" class="LineNr">17421 </span> 89/<- %ebp 4/r32/esp +<span id="L17422" class="LineNr">17422 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17423" class="LineNr">17423 </span> 50/push-eax +<span id="L17424" class="LineNr">17424 </span> 51/push-ecx +<span id="L17425" class="LineNr">17425 </span> 52/push-edx +<span id="L17426" class="LineNr">17426 </span> <span class="subxComment">#</span> +<span id="L17427" class="LineNr">17427 </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="L17428" class="LineNr">17428 </span> <span class="subxComment"># var tmp/ecx: (handle type-tree)</span> +<span id="L17429" class="LineNr">17429 </span> 68/push 0/imm32 +<span id="L17430" class="LineNr">17430 </span> 68/push 0/imm32 +<span id="L17431" class="LineNr">17431 </span> 89/<- %ecx 4/r32/esp +<span id="L17432" class="LineNr">17432 </span> <span class="subxComment"># tmp = parse-type(ad, in)</span> +<span id="L17433" class="LineNr">17433 </span> (<a href='mu.subx.html#L17262'>parse-type</a> *(ebp+8) *(ebp+0xc) %ecx *(ebp+0x14) *(ebp+0x18)) +<span id="L17434" class="LineNr">17434 </span> <span class="subxComment"># if (tmp == 0) return</span> +<span id="L17435" class="LineNr">17435 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L17436" class="LineNr">17436 </span> 74/jump-if-= $parse-type-tree:end/disp8 +<span id="L17437" class="LineNr">17437 </span> <span class="subxComment"># out = new tree</span> +<span id="L17438" class="LineNr">17438 </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="L17439" class="LineNr">17439 </span> <span class="subxComment"># var out-addr/edx: (addr tree) = lookup(*out)</span> +<span id="L17440" class="LineNr">17440 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L17441" class="LineNr">17441 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17442" class="LineNr">17442 </span> 89/<- %edx 0/r32/eax +<span id="L17443" class="LineNr">17443 </span> <span class="subxComment"># out->left = tmp</span> +<span id="L17444" class="LineNr">17444 </span> 8b/-> *ecx 0/r32/eax +<span id="L17445" class="LineNr">17445 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> +<span id="L17446" class="LineNr">17446 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L17447" class="LineNr">17447 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-left</span> +<span id="L17448" class="LineNr">17448 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L17449" class="LineNr">17449 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> +<span id="L17450" class="LineNr">17450 </span> (<a href='mu.subx.html#L17410'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L17451" class="LineNr">17451 </span><span class="Constant">$parse-type-tree:end</span>: +<span id="L17452" class="LineNr">17452 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17453" class="LineNr">17453 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17454" class="LineNr">17454 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17455" class="LineNr">17455 </span> 5a/pop-to-edx +<span id="L17456" class="LineNr">17456 </span> 59/pop-to-ecx +<span id="L17457" class="LineNr">17457 </span> 58/pop-to-eax +<span id="L17458" class="LineNr">17458 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17459" class="LineNr">17459 </span> 89/<- %esp 5/r32/ebp +<span id="L17460" class="LineNr">17460 </span> 5d/pop-to-ebp +<span id="L17461" class="LineNr">17461 </span> c3/return +<span id="L17462" class="LineNr">17462 </span> +<span id="L17463" class="LineNr">17463 </span><span class="subxFunction">next-mu-token</span>: <span class="subxComment"># in: (addr stream byte), out: (addr slice)</span> +<span id="L17464" class="LineNr">17464 </span> <span class="subxComment"># pseudocode:</span> +<span id="L17465" class="LineNr">17465 </span> <span class="subxComment"># start:</span> +<span id="L17466" class="LineNr">17466 </span> <span class="subxComment"># skip-chars-matching-whitespace(in)</span> +<span id="L17467" class="LineNr">17467 </span> <span class="subxComment"># if in->read >= in->write # end of in</span> +<span id="L17468" class="LineNr">17468 </span> <span class="subxComment"># out = {0, 0}</span> +<span id="L17469" class="LineNr">17469 </span> <span class="subxComment"># return</span> +<span id="L17470" class="LineNr">17470 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> +<span id="L17471" class="LineNr">17471 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> +<span id="L17472" class="LineNr">17472 </span> <span class="subxComment"># if curr->byte == ',' # comment token</span> +<span id="L17473" class="LineNr">17473 </span> <span class="subxComment"># ++in->read</span> +<span id="L17474" class="LineNr">17474 </span> <span class="subxComment"># goto start</span> +<span id="L17475" class="LineNr">17475 </span> <span class="subxComment"># if curr-byte == '#' # comment</span> +<span id="L17476" class="LineNr">17476 </span> <span class="subxComment"># goto done # treat as eof</span> +<span id="L17477" class="LineNr">17477 </span> <span class="subxComment"># if curr-byte == '"' # string literal</span> +<span id="L17478" class="LineNr">17478 </span> <span class="subxComment"># skip-string(in)</span> +<span id="L17479" class="LineNr">17479 </span> <span class="subxComment"># goto done # no metadata</span> +<span id="L17480" class="LineNr">17480 </span> <span class="subxComment"># if curr-byte == '('</span> +<span id="L17481" class="LineNr">17481 </span> <span class="subxComment"># ++in->read</span> +<span id="L17482" class="LineNr">17482 </span> <span class="subxComment"># goto done</span> +<span id="L17483" class="LineNr">17483 </span> <span class="subxComment"># if curr-byte == ')'</span> +<span id="L17484" class="LineNr">17484 </span> <span class="subxComment"># ++in->read</span> +<span id="L17485" class="LineNr">17485 </span> <span class="subxComment"># goto done</span> +<span id="L17486" class="LineNr">17486 </span> <span class="subxComment"># # read a word</span> +<span id="L17487" class="LineNr">17487 </span> <span class="subxComment"># while true</span> +<span id="L17488" class="LineNr">17488 </span> <span class="subxComment"># if in->read >= in->write</span> +<span id="L17489" class="LineNr">17489 </span> <span class="subxComment"># break</span> +<span id="L17490" class="LineNr">17490 </span> <span class="subxComment"># curr-byte = in->data[in->read]</span> +<span id="L17491" class="LineNr">17491 </span> <span class="subxComment"># if curr-byte == ' '</span> +<span id="L17492" class="LineNr">17492 </span> <span class="subxComment"># break</span> +<span id="L17493" class="LineNr">17493 </span> <span class="subxComment"># if curr-byte == '\r'</span> +<span id="L17494" class="LineNr">17494 </span> <span class="subxComment"># break</span> +<span id="L17495" class="LineNr">17495 </span> <span class="subxComment"># if curr-byte == '\n'</span> +<span id="L17496" class="LineNr">17496 </span> <span class="subxComment"># break</span> +<span id="L17497" class="LineNr">17497 </span> <span class="subxComment"># if curr-byte == '('</span> +<span id="L17498" class="LineNr">17498 </span> <span class="subxComment"># break</span> +<span id="L17499" class="LineNr">17499 </span> <span class="subxComment"># if curr-byte == ')'</span> +<span id="L17500" class="LineNr">17500 </span> <span class="subxComment"># break</span> +<span id="L17501" class="LineNr">17501 </span> <span class="subxComment"># if curr-byte == ','</span> +<span id="L17502" class="LineNr">17502 </span> <span class="subxComment"># break</span> +<span id="L17503" class="LineNr">17503 </span> <span class="subxComment"># ++in->read</span> +<span id="L17504" class="LineNr">17504 </span> <span class="subxComment"># done:</span> +<span id="L17505" class="LineNr">17505 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> +<span id="L17506" class="LineNr">17506 </span> <span class="subxComment">#</span> +<span id="L17507" class="LineNr">17507 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17508" class="LineNr">17508 </span> 55/push-ebp +<span id="L17509" class="LineNr">17509 </span> 89/<- %ebp 4/r32/esp +<span id="L17510" class="LineNr">17510 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17511" class="LineNr">17511 </span> 50/push-eax +<span id="L17512" class="LineNr">17512 </span> 51/push-ecx +<span id="L17513" class="LineNr">17513 </span> 56/push-esi +<span id="L17514" class="LineNr">17514 </span> 57/push-edi +<span id="L17515" class="LineNr">17515 </span> <span class="subxComment"># esi = in</span> +<span id="L17516" class="LineNr">17516 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L17517" class="LineNr">17517 </span> <span class="subxComment"># edi = out</span> +<span id="L17518" class="LineNr">17518 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L17519" class="LineNr">17519 </span><span class="Constant">$next-mu-token:start</span>: +<span id="L17520" class="LineNr">17520 </span> (<a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> %esi) +<span id="L17521" class="LineNr">17521 </span><span class="Constant">$next-mu-token:check0</span>: +<span id="L17522" class="LineNr">17522 </span> <span class="subxComment"># if (in->read >= in->write) return out = {0, 0}</span> +<span id="L17523" class="LineNr">17523 </span> <span class="subxS1Comment"># . ecx = in->read</span> +<span id="L17524" class="LineNr">17524 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L17525" class="LineNr">17525 </span> <span class="subxS1Comment"># . if (ecx >= in->write) return out = {0, 0}</span> +<span id="L17526" class="LineNr">17526 </span> 3b/compare<- *esi 1/r32/ecx +<span id="L17527" class="LineNr">17527 </span> c7 0/subop/copy *edi 0/imm32 +<span id="L17528" class="LineNr">17528 </span> c7 0/subop/copy *(edi+4) 0/imm32 +<span id="L17529" class="LineNr">17529 </span> 0f 8d/jump-if->= $next-mu-token:end/disp32 +<span id="L17530" class="LineNr">17530 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> +<span id="L17531" class="LineNr">17531 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax +<span id="L17532" class="LineNr">17532 </span> 89/<- *edi 0/r32/eax +<span id="L17533" class="LineNr">17533 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> +<span id="L17534" class="LineNr">17534 </span> 31/xor-with %eax 0/r32/eax +<span id="L17535" class="LineNr">17535 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL +<span id="L17536" class="LineNr">17536 </span> { +<span id="L17537" class="LineNr">17537 </span><span class="Constant">$next-mu-token:check-for-comma</span>: +<span id="L17538" class="LineNr">17538 </span> <span class="subxComment"># if (curr-byte != ',') break</span> +<span id="L17539" class="LineNr">17539 </span> 3d/compare-eax-and 0x2c/imm32/comma +<span id="L17540" class="LineNr">17540 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17541" class="LineNr">17541 </span> <span class="subxComment"># ++in->read</span> +<span id="L17542" class="LineNr">17542 </span> ff 0/subop/increment *(esi+4) +<span id="L17543" class="LineNr">17543 </span> <span class="subxComment"># restart</span> +<span id="L17544" class="LineNr">17544 </span> e9/jump $next-mu-token:start/disp32 +<span id="L17545" class="LineNr">17545 </span> } +<span id="L17546" class="LineNr">17546 </span> { +<span id="L17547" class="LineNr">17547 </span><span class="Constant">$next-mu-token:check-for-comment</span>: +<span id="L17548" class="LineNr">17548 </span> <span class="subxComment"># if (curr-byte != '#') break</span> +<span id="L17549" class="LineNr">17549 </span> 3d/compare-eax-and 0x23/imm32/pound +<span id="L17550" class="LineNr">17550 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17551" class="LineNr">17551 </span> <span class="subxComment"># return eof</span> +<span id="L17552" class="LineNr">17552 </span> e9/jump $next-mu-token:done/disp32 +<span id="L17553" class="LineNr">17553 </span> } +<span id="L17554" class="LineNr">17554 </span> { +<span id="L17555" class="LineNr">17555 </span><span class="Constant">$next-mu-token:check-for-string-literal</span>: +<span id="L17556" class="LineNr">17556 </span> <span class="subxComment"># if (curr-byte != '"') break</span> +<span id="L17557" class="LineNr">17557 </span> 3d/compare-eax-and 0x22/imm32/dquote +<span id="L17558" class="LineNr">17558 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17559" class="LineNr">17559 </span> (<a href='124next-token.subx.html#L1171'>skip-string</a> %esi) +<span id="L17560" class="LineNr">17560 </span> <span class="subxComment"># return</span> +<span id="L17561" class="LineNr">17561 </span> e9/jump $next-mu-token:done/disp32 +<span id="L17562" class="LineNr">17562 </span> } +<span id="L17563" class="LineNr">17563 </span> { +<span id="L17564" class="LineNr">17564 </span><span class="Constant">$next-mu-token:check-for-open-paren</span>: +<span id="L17565" class="LineNr">17565 </span> <span class="subxComment"># if (curr-byte != '(') break</span> +<span id="L17566" class="LineNr">17566 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L17567" class="LineNr">17567 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17568" class="LineNr">17568 </span> <span class="subxComment"># ++in->read</span> +<span id="L17569" class="LineNr">17569 </span> ff 0/subop/increment *(esi+4) +<span id="L17570" class="LineNr">17570 </span> <span class="subxComment"># return</span> +<span id="L17571" class="LineNr">17571 </span> e9/jump $next-mu-token:done/disp32 +<span id="L17572" class="LineNr">17572 </span> } +<span id="L17573" class="LineNr">17573 </span> { +<span id="L17574" class="LineNr">17574 </span><span class="Constant">$next-mu-token:check-for-close-paren</span>: +<span id="L17575" class="LineNr">17575 </span> <span class="subxComment"># if (curr-byte != ')') break</span> +<span id="L17576" class="LineNr">17576 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L17577" class="LineNr">17577 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17578" class="LineNr">17578 </span> <span class="subxComment"># ++in->read</span> +<span id="L17579" class="LineNr">17579 </span> ff 0/subop/increment *(esi+4) +<span id="L17580" class="LineNr">17580 </span> <span class="subxComment"># return</span> +<span id="L17581" class="LineNr">17581 </span> e9/jump $next-mu-token:done/disp32 +<span id="L17582" class="LineNr">17582 </span> } +<span id="L17583" class="LineNr">17583 </span> { +<span id="L17584" class="LineNr">17584 </span><span class="Constant">$next-mu-token:regular-word-without-metadata</span>: +<span id="L17585" class="LineNr">17585 </span> <span class="subxComment"># if (in->read >= in->write) break</span> +<span id="L17586" class="LineNr">17586 </span> <span class="subxS1Comment"># . ecx = in->read</span> +<span id="L17587" class="LineNr">17587 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L17588" class="LineNr">17588 </span> <span class="subxS1Comment"># . if (ecx >= in->write) break</span> +<span id="L17589" class="LineNr">17589 </span> 3b/compare<- *esi 1/r32/ecx +<span id="L17590" class="LineNr">17590 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L17591" class="LineNr">17591 </span> <span class="subxComment"># var c/eax: byte = in->data[in->read]</span> +<span id="L17592" class="LineNr">17592 </span> 31/xor-with %eax 0/r32/eax +<span id="L17593" class="LineNr">17593 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL +<span id="L17594" class="LineNr">17594 </span> <span class="subxComment"># if (c == ' ') break</span> +<span id="L17595" class="LineNr">17595 </span> 3d/compare-eax-and 0x20/imm32/space +<span id="L17596" class="LineNr">17596 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17597" class="LineNr">17597 </span> <span class="subxComment"># if (c == '\r') break</span> +<span id="L17598" class="LineNr">17598 </span> 3d/compare-eax-and 0xd/imm32/carriage-return +<span id="L17599" class="LineNr">17599 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17600" class="LineNr">17600 </span> <span class="subxComment"># if (c == '\n') break</span> +<span id="L17601" class="LineNr">17601 </span> 3d/compare-eax-and 0xa/imm32/newline +<span id="L17602" class="LineNr">17602 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17603" class="LineNr">17603 </span> <span class="subxComment"># if (c == '(') break</span> +<span id="L17604" class="LineNr">17604 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L17605" class="LineNr">17605 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17606" class="LineNr">17606 </span> <span class="subxComment"># if (c == ')') break</span> +<span id="L17607" class="LineNr">17607 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L17608" class="LineNr">17608 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17609" class="LineNr">17609 </span> <span class="subxComment"># if (c == ',') break</span> +<span id="L17610" class="LineNr">17610 </span> 3d/compare-eax-and 0x2c/imm32/comma +<span id="L17611" class="LineNr">17611 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17612" class="LineNr">17612 </span> <span class="subxComment"># ++in->read</span> +<span id="L17613" class="LineNr">17613 </span> ff 0/subop/increment *(esi+4) +<span id="L17614" class="LineNr">17614 </span> <span class="subxComment">#</span> +<span id="L17615" class="LineNr">17615 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L17616" class="LineNr">17616 </span> } +<span id="L17617" class="LineNr">17617 </span><span class="Constant">$next-mu-token:done</span>: +<span id="L17618" class="LineNr">17618 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> +<span id="L17619" class="LineNr">17619 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L17620" class="LineNr">17620 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax +<span id="L17621" class="LineNr">17621 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L17622" class="LineNr">17622 </span><span class="Constant">$next-mu-token:end</span>: +<span id="L17623" class="LineNr">17623 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17624" class="LineNr">17624 </span> 5f/pop-to-edi +<span id="L17625" class="LineNr">17625 </span> 5e/pop-to-esi +<span id="L17626" class="LineNr">17626 </span> 59/pop-to-ecx +<span id="L17627" class="LineNr">17627 </span> 58/pop-to-eax +<span id="L17628" class="LineNr">17628 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17629" class="LineNr">17629 </span> 89/<- %esp 5/r32/ebp +<span id="L17630" class="LineNr">17630 </span> 5d/pop-to-ebp +<span id="L17631" class="LineNr">17631 </span> c3/return +<span id="L17632" class="LineNr">17632 </span> +<span id="L17633" class="LineNr">17633 </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="L17634" class="LineNr">17634 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17635" class="LineNr">17635 </span> 55/push-ebp +<span id="L17636" class="LineNr">17636 </span> 89/<- %ebp 4/r32/esp +<span id="L17637" class="LineNr">17637 </span> <span class="subxComment"># if (pos-slice(arr, s) != -1) return it</span> +<span id="L17638" class="LineNr">17638 </span> (<a href='mu.subx.html#L17661'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L17639" class="LineNr">17639 </span> 3d/compare-eax-and -1/imm32 +<span id="L17640" class="LineNr">17640 </span> 75/jump-if-!= $pos-or-insert-slice:end/disp8 +<span id="L17641" class="LineNr">17641 </span><span class="Constant">$pos-or-insert-slice:insert</span>: +<span id="L17642" class="LineNr">17642 </span> <span class="subxComment"># var s2/eax: (handle array byte)</span> +<span id="L17643" class="LineNr">17643 </span> 68/push 0/imm32 +<span id="L17644" class="LineNr">17644 </span> 68/push 0/imm32 +<span id="L17645" class="LineNr">17645 </span> 89/<- %eax 4/r32/esp +<span id="L17646" class="LineNr">17646 </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="L17647" class="LineNr">17647 </span> <span class="subxComment"># throw away alloc-id</span> +<span id="L17648" class="LineNr">17648 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L17649" class="LineNr">17649 </span> (<a href='202write-int.subx.html#L8'>write-int</a> *(ebp+8) %eax) +<span id="L17650" class="LineNr">17650 </span> (<a href='mu.subx.html#L17661'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L17651" class="LineNr">17651 </span><span class="Constant">$pos-or-insert-slice:end</span>: +<span id="L17652" class="LineNr">17652 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17653" class="LineNr">17653 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17654" class="LineNr">17654 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17655" class="LineNr">17655 </span> 89/<- %esp 5/r32/ebp +<span id="L17656" class="LineNr">17656 </span> 5d/pop-to-ebp +<span id="L17657" class="LineNr">17657 </span> c3/return +<span id="L17658" class="LineNr">17658 </span> +<span id="L17659" class="LineNr">17659 </span><span class="subxComment"># return the index in an array of strings matching 's', -1 if not found</span> +<span id="L17660" class="LineNr">17660 </span><span class="subxComment"># index is denominated in elements, not bytes</span> +<span id="L17661" class="LineNr">17661 </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="L17662" class="LineNr">17662 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17663" class="LineNr">17663 </span> 55/push-ebp +<span id="L17664" class="LineNr">17664 </span> 89/<- %ebp 4/r32/esp +<span id="L17665" class="LineNr">17665 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17666" class="LineNr">17666 </span> 51/push-ecx +<span id="L17667" class="LineNr">17667 </span> 52/push-edx +<span id="L17668" class="LineNr">17668 </span> 53/push-ebx +<span id="L17669" class="LineNr">17669 </span> 56/push-esi +<span id="L17670" class="LineNr">17670 </span><span class="CommentedCode">#? (write-buffered Stderr "pos-slice: ")</span> +<span id="L17671" class="LineNr">17671 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> +<span id="L17672" class="LineNr">17672 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> +<span id="L17673" class="LineNr">17673 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L17674" class="LineNr">17674 </span> <span class="subxComment"># esi = arr</span> +<span id="L17675" class="LineNr">17675 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L17676" class="LineNr">17676 </span> <span class="subxComment"># var index/ecx: int = 0</span> +<span id="L17677" class="LineNr">17677 </span> b9/copy-to-ecx 0/imm32 +<span id="L17678" class="LineNr">17678 </span> <span class="subxComment"># var curr/edx: (addr (addr array byte)) = arr->data</span> +<span id="L17679" class="LineNr">17679 </span> 8d/copy-address *(esi+0xc) 2/r32/edx +<span id="L17680" class="LineNr">17680 </span> <span class="subxComment"># var max/ebx: (addr (addr array byte)) = &arr->data[arr->write]</span> +<span id="L17681" class="LineNr">17681 </span> 8b/-> *esi 3/r32/ebx +<span id="L17682" class="LineNr">17682 </span> 8d/copy-address *(esi+ebx+0xc) 3/r32/ebx +<span id="L17683" class="LineNr">17683 </span> { +<span id="L17684" class="LineNr">17684 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> +<span id="L17685" class="LineNr">17685 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> +<span id="L17686" class="LineNr">17686 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> +<span id="L17687" class="LineNr">17687 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L17688" class="LineNr">17688 </span> <span class="subxComment"># if (curr >= max) return -1</span> +<span id="L17689" class="LineNr">17689 </span> 39/compare %edx 3/r32/ebx +<span id="L17690" class="LineNr">17690 </span> b8/copy-to-eax -1/imm32 +<span id="L17691" class="LineNr">17691 </span> 73/jump-if-addr>= $pos-slice:end/disp8 +<span id="L17692" class="LineNr">17692 </span> <span class="subxComment"># if (slice-equal?(s, *curr)) break</span> +<span id="L17693" class="LineNr">17693 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+0xc) *edx) <span class="subxComment"># => eax</span> +<span id="L17694" class="LineNr">17694 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17695" class="LineNr">17695 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17696" class="LineNr">17696 </span> <span class="subxComment"># ++index</span> +<span id="L17697" class="LineNr">17697 </span> 41/increment-ecx +<span id="L17698" class="LineNr">17698 </span> <span class="subxComment"># curr += 4</span> +<span id="L17699" class="LineNr">17699 </span> 81 0/subop/add %edx 4/imm32 +<span id="L17700" class="LineNr">17700 </span> <span class="subxComment">#</span> +<span id="L17701" class="LineNr">17701 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L17702" class="LineNr">17702 </span> } +<span id="L17703" class="LineNr">17703 </span> <span class="subxComment"># return index</span> +<span id="L17704" class="LineNr">17704 </span> 89/<- %eax 1/r32/ecx +<span id="L17705" class="LineNr">17705 </span><span class="Constant">$pos-slice:end</span>: +<span id="L17706" class="LineNr">17706 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> +<span id="L17707" class="LineNr">17707 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L17708" class="LineNr">17708 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> +<span id="L17709" class="LineNr">17709 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17710" class="LineNr">17710 </span> 5e/pop-to-esi +<span id="L17711" class="LineNr">17711 </span> 5b/pop-to-ebx +<span id="L17712" class="LineNr">17712 </span> 5a/pop-to-edx +<span id="L17713" class="LineNr">17713 </span> 59/pop-to-ecx +<span id="L17714" class="LineNr">17714 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17715" class="LineNr">17715 </span> 89/<- %esp 5/r32/ebp +<span id="L17716" class="LineNr">17716 </span> 5d/pop-to-ebp +<span id="L17717" class="LineNr">17717 </span> c3/return +<span id="L17718" class="LineNr">17718 </span> +<span id="L17719" class="LineNr">17719 </span><span class="subxTest">test-parse-var-with-type</span>: +<span id="L17720" class="LineNr">17720 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17721" class="LineNr">17721 </span> 55/push-ebp +<span id="L17722" class="LineNr">17722 </span> 89/<- %ebp 4/r32/esp +<span id="L17723" class="LineNr">17723 </span> <span class="subxComment"># setup</span> +<span id="L17724" class="LineNr">17724 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17725" class="LineNr">17725 </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="L17726" class="LineNr">17726 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> +<span id="L17727" class="LineNr">17727 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 +<span id="L17728" class="LineNr">17728 </span> 8b/-> *eax 1/r32/ecx +<span id="L17729" class="LineNr">17729 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17730" class="LineNr">17730 </span> 05/add-to-eax 4/imm32 +<span id="L17731" class="LineNr">17731 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17732" class="LineNr">17732 </span> 51/push-ecx +<span id="L17733" class="LineNr">17733 </span> 50/push-eax +<span id="L17734" class="LineNr">17734 </span> 89/<- %ecx 4/r32/esp +<span id="L17735" class="LineNr">17735 </span> <span class="subxComment"># _test-input-stream contains "int"</span> +<span id="L17736" class="LineNr">17736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17737" class="LineNr">17737 </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="L17738" class="LineNr">17738 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17739" class="LineNr">17739 </span> 68/push 0/imm32 +<span id="L17740" class="LineNr">17740 </span> 68/push 0/imm32 +<span id="L17741" class="LineNr">17741 </span> 89/<- %edx 4/r32/esp +<span id="L17742" class="LineNr">17742 </span> <span class="subxComment">#</span> +<span id="L17743" class="LineNr">17743 </span> (<a href='mu.subx.html#L17108'>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="L17744" class="LineNr">17744 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L17745" class="LineNr">17745 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17746" class="LineNr">17746 </span> 89/<- %edx 0/r32/eax +<span id="L17747" class="LineNr">17747 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L17748" class="LineNr">17748 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17749" class="LineNr">17749 </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#L17719'>test-parse-var-with-type</a>/name"</span>) +<span id="L17750" class="LineNr">17750 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L17751" class="LineNr">17751 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => 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#L17719'>test-parse-var-with-type</a>/type:0"</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) 1 <span class="Constant">"F - <a href='mu.subx.html#L17719'>test-parse-var-with-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17754" class="LineNr">17754 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17719'>test-parse-var-with-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17755" class="LineNr">17755 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17756" class="LineNr">17756 </span> 89/<- %esp 5/r32/ebp +<span id="L17757" class="LineNr">17757 </span> 5d/pop-to-ebp +<span id="L17758" class="LineNr">17758 </span> c3/return +<span id="L17759" class="LineNr">17759 </span> +<span id="L17760" class="LineNr">17760 </span><span class="subxTest">test-parse-var-with-type-and-register</span>: +<span id="L17761" class="LineNr">17761 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17762" class="LineNr">17762 </span> 55/push-ebp +<span id="L17763" class="LineNr">17763 </span> 89/<- %ebp 4/r32/esp +<span id="L17764" class="LineNr">17764 </span> <span class="subxComment"># setup</span> +<span id="L17765" class="LineNr">17765 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17766" class="LineNr">17766 </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="L17767" class="LineNr">17767 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> +<span id="L17768" class="LineNr">17768 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 +<span id="L17769" class="LineNr">17769 </span> 8b/-> *eax 1/r32/ecx +<span id="L17770" class="LineNr">17770 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17771" class="LineNr">17771 </span> 05/add-to-eax 4/imm32 +<span id="L17772" class="LineNr">17772 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17773" class="LineNr">17773 </span> 51/push-ecx +<span id="L17774" class="LineNr">17774 </span> 50/push-eax +<span id="L17775" class="LineNr">17775 </span> 89/<- %ecx 4/r32/esp +<span id="L17776" class="LineNr">17776 </span> <span class="subxComment"># _test-input-stream contains "int"</span> +<span id="L17777" class="LineNr">17777 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17778" class="LineNr">17778 </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="L17779" class="LineNr">17779 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17780" class="LineNr">17780 </span> 68/push 0/imm32 +<span id="L17781" class="LineNr">17781 </span> 68/push 0/imm32 +<span id="L17782" class="LineNr">17782 </span> 89/<- %edx 4/r32/esp +<span id="L17783" class="LineNr">17783 </span> <span class="subxComment">#</span> +<span id="L17784" class="LineNr">17784 </span> (<a href='mu.subx.html#L17108'>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="L17785" class="LineNr">17785 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L17786" class="LineNr">17786 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17787" class="LineNr">17787 </span> 89/<- %edx 0/r32/eax +<span id="L17788" class="LineNr">17788 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L17789" class="LineNr">17789 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17790" class="LineNr">17790 </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#L17760'>test-parse-var-with-type-and-register</a>/name"</span>) +<span id="L17791" class="LineNr">17791 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L17792" class="LineNr">17792 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17793" class="LineNr">17793 </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#L17760'>test-parse-var-with-type-and-register</a>/register"</span>) +<span id="L17794" class="LineNr">17794 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L17795" class="LineNr">17795 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17796" class="LineNr">17796 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17760'>test-parse-var-with-type-and-register</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17797" class="LineNr">17797 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17760'>test-parse-var-with-type-and-register</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> +<span id="L17798" class="LineNr">17798 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17760'>test-parse-var-with-type-and-register</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17799" class="LineNr">17799 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17800" class="LineNr">17800 </span> 89/<- %esp 5/r32/ebp +<span id="L17801" class="LineNr">17801 </span> 5d/pop-to-ebp +<span id="L17802" class="LineNr">17802 </span> c3/return +<span id="L17803" class="LineNr">17803 </span> +<span id="L17804" class="LineNr">17804 </span><span class="subxTest">test-parse-var-with-trailing-characters</span>: +<span id="L17805" class="LineNr">17805 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17806" class="LineNr">17806 </span> 55/push-ebp +<span id="L17807" class="LineNr">17807 </span> 89/<- %ebp 4/r32/esp +<span id="L17808" class="LineNr">17808 </span> <span class="subxComment"># setup</span> +<span id="L17809" class="LineNr">17809 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17810" class="LineNr">17810 </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="L17811" class="LineNr">17811 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> +<span id="L17812" class="LineNr">17812 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 +<span id="L17813" class="LineNr">17813 </span> 8b/-> *eax 1/r32/ecx +<span id="L17814" class="LineNr">17814 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17815" class="LineNr">17815 </span> 05/add-to-eax 4/imm32 +<span id="L17816" class="LineNr">17816 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17817" class="LineNr">17817 </span> 51/push-ecx +<span id="L17818" class="LineNr">17818 </span> 50/push-eax +<span id="L17819" class="LineNr">17819 </span> 89/<- %ecx 4/r32/esp +<span id="L17820" class="LineNr">17820 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> +<span id="L17821" class="LineNr">17821 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17822" class="LineNr">17822 </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="L17823" class="LineNr">17823 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17824" class="LineNr">17824 </span> 68/push 0/imm32 +<span id="L17825" class="LineNr">17825 </span> 68/push 0/imm32 +<span id="L17826" class="LineNr">17826 </span> 89/<- %edx 4/r32/esp +<span id="L17827" class="LineNr">17827 </span> <span class="subxComment">#</span> +<span id="L17828" class="LineNr">17828 </span> (<a href='mu.subx.html#L17108'>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="L17829" class="LineNr">17829 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L17830" class="LineNr">17830 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17831" class="LineNr">17831 </span> 89/<- %edx 0/r32/eax +<span id="L17832" class="LineNr">17832 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L17833" class="LineNr">17833 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17834" class="LineNr">17834 </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#L17804'>test-parse-var-with-trailing-characters</a>/name"</span>) +<span id="L17835" class="LineNr">17835 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L17836" class="LineNr">17836 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L17804'>test-parse-var-with-trailing-characters</a>/register"</span>) <span class="subxComment"># Var-register</span> +<span id="L17837" class="LineNr">17837 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L17838" class="LineNr">17838 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17839" class="LineNr">17839 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17804'>test-parse-var-with-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17840" class="LineNr">17840 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17804'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> +<span id="L17841" class="LineNr">17841 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17804'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17842" class="LineNr">17842 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17843" class="LineNr">17843 </span> 89/<- %esp 5/r32/ebp +<span id="L17844" class="LineNr">17844 </span> 5d/pop-to-ebp +<span id="L17845" class="LineNr">17845 </span> c3/return +<span id="L17846" class="LineNr">17846 </span> +<span id="L17847" class="LineNr">17847 </span><span class="subxTest">test-parse-var-with-register-and-trailing-characters</span>: +<span id="L17848" class="LineNr">17848 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17849" class="LineNr">17849 </span> 55/push-ebp +<span id="L17850" class="LineNr">17850 </span> 89/<- %ebp 4/r32/esp +<span id="L17851" class="LineNr">17851 </span> <span class="subxComment"># setup</span> +<span id="L17852" class="LineNr">17852 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17853" class="LineNr">17853 </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="L17854" class="LineNr">17854 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> +<span id="L17855" class="LineNr">17855 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</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"># _test-input-stream contains "int,"</span> +<span id="L17864" class="LineNr">17864 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17865" class="LineNr">17865 </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="L17866" class="LineNr">17866 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17867" class="LineNr">17867 </span> 68/push 0/imm32 +<span id="L17868" class="LineNr">17868 </span> 68/push 0/imm32 +<span id="L17869" class="LineNr">17869 </span> 89/<- %edx 4/r32/esp +<span id="L17870" class="LineNr">17870 </span> <span class="subxComment">#</span> +<span id="L17871" class="LineNr">17871 </span> (<a href='mu.subx.html#L17108'>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="L17872" class="LineNr">17872 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L17873" class="LineNr">17873 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17874" class="LineNr">17874 </span> 89/<- %edx 0/r32/eax +<span id="L17875" class="LineNr">17875 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L17876" class="LineNr">17876 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17877" class="LineNr">17877 </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#L17847'>test-parse-var-with-register-and-trailing-characters</a>/name"</span>) +<span id="L17878" class="LineNr">17878 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L17879" class="LineNr">17879 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17880" class="LineNr">17880 </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#L17847'>test-parse-var-with-register-and-trailing-characters</a>/register"</span>) +<span id="L17881" class="LineNr">17881 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L17882" class="LineNr">17882 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17883" class="LineNr">17883 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17847'>test-parse-var-with-register-and-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17884" class="LineNr">17884 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17847'>test-parse-var-with-register-and-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> +<span id="L17885" class="LineNr">17885 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17847'>test-parse-var-with-register-and-trailing-characters</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17886" class="LineNr">17886 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17887" class="LineNr">17887 </span> 89/<- %esp 5/r32/ebp +<span id="L17888" class="LineNr">17888 </span> 5d/pop-to-ebp +<span id="L17889" class="LineNr">17889 </span> c3/return +<span id="L17890" class="LineNr">17890 </span> +<span id="L17891" class="LineNr">17891 </span><span class="subxTest">test-parse-var-with-compound-type</span>: +<span id="L17892" class="LineNr">17892 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17893" class="LineNr">17893 </span> 55/push-ebp +<span id="L17894" class="LineNr">17894 </span> 89/<- %ebp 4/r32/esp +<span id="L17895" class="LineNr">17895 </span> <span class="subxComment"># setup</span> +<span id="L17896" class="LineNr">17896 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17897" class="LineNr">17897 </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="L17898" class="LineNr">17898 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> +<span id="L17899" class="LineNr">17899 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 +<span id="L17900" class="LineNr">17900 </span> 8b/-> *eax 1/r32/ecx +<span id="L17901" class="LineNr">17901 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17902" class="LineNr">17902 </span> 05/add-to-eax 4/imm32 +<span id="L17903" class="LineNr">17903 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17904" class="LineNr">17904 </span> 51/push-ecx +<span id="L17905" class="LineNr">17905 </span> 50/push-eax +<span id="L17906" class="LineNr">17906 </span> 89/<- %ecx 4/r32/esp +<span id="L17907" class="LineNr">17907 </span> <span class="subxComment"># _test-input-stream contains "(addr int)"</span> +<span id="L17908" class="LineNr">17908 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17909" class="LineNr">17909 </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="L17910" class="LineNr">17910 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17911" class="LineNr">17911 </span> 68/push 0/imm32 +<span id="L17912" class="LineNr">17912 </span> 68/push 0/imm32 +<span id="L17913" class="LineNr">17913 </span> 89/<- %edx 4/r32/esp +<span id="L17914" class="LineNr">17914 </span> <span class="subxComment">#</span> +<span id="L17915" class="LineNr">17915 </span> (<a href='mu.subx.html#L17108'>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="L17916" class="LineNr">17916 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L17917" class="LineNr">17917 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17918" class="LineNr">17918 </span> 89/<- %edx 0/r32/eax +<span id="L17919" class="LineNr">17919 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L17920" class="LineNr">17920 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17921" class="LineNr">17921 </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#L17891'>test-parse-var-with-compound-type</a>/name"</span>) +<span id="L17922" class="LineNr">17922 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L17923" class="LineNr">17923 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L17891'>test-parse-var-with-compound-type</a>/register"</span>) <span class="subxComment"># Var-register</span> +<span id="L17924" class="LineNr">17924 </span> <span class="subxH1Comment"># - check v-addr->type</span> +<span id="L17925" class="LineNr">17925 </span> <span class="subxComment"># var type/edx: (addr type-tree) = var->type</span> +<span id="L17926" class="LineNr">17926 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17927" class="LineNr">17927 </span> 89/<- %edx 0/r32/eax +<span id="L17928" class="LineNr">17928 </span> <span class="subxComment"># type is a non-atom</span> +<span id="L17929" class="LineNr">17929 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *edx 0 <span class="Constant">"F - <a href='mu.subx.html#L17891'>test-parse-var-with-compound-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17930" class="LineNr">17930 </span> <span class="subxComment"># type->left == atom(addr)</span> +<span id="L17931" class="LineNr">17931 </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="L17932" class="LineNr">17932 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17891'>test-parse-var-with-compound-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17933" class="LineNr">17933 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L17891'>test-parse-var-with-compound-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17934" class="LineNr">17934 </span> <span class="subxComment"># type->right->left == atom(int)</span> +<span id="L17935" class="LineNr">17935 </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="L17936" class="LineNr">17936 </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="L17937" class="LineNr">17937 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17891'>test-parse-var-with-compound-type</a>/type:3"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17938" class="LineNr">17938 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17891'>test-parse-var-with-compound-type</a>/type:4"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17939" class="LineNr">17939 </span> <span class="subxComment"># type->right->right == null</span> +<span id="L17940" class="LineNr">17940 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17891'>test-parse-var-with-compound-type</a>/type:5"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17941" class="LineNr">17941 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17942" class="LineNr">17942 </span> 89/<- %esp 5/r32/ebp +<span id="L17943" class="LineNr">17943 </span> 5d/pop-to-ebp +<span id="L17944" class="LineNr">17944 </span> c3/return +<span id="L17945" class="LineNr">17945 </span> +<span id="L17946" class="LineNr">17946 </span><span class="subxComment"># identifier starts with a letter or '$' or '_'</span> +<span id="L17947" class="LineNr">17947 </span><span class="subxComment"># no constraints at the moment on later letters</span> +<span id="L17948" class="LineNr">17948 </span><span class="subxComment"># all we really want to do so far is exclude '{', '}' and '->'</span> +<span id="L17949" class="LineNr">17949 </span><span class="subxFunction">identifier?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> +<span id="L17950" class="LineNr">17950 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17951" class="LineNr">17951 </span> 55/push-ebp +<span id="L17952" class="LineNr">17952 </span> 89/<- %ebp 4/r32/esp +<span id="L17953" class="LineNr">17953 </span> <span class="subxComment"># if (slice-empty?(in)) return false</span> +<span id="L17954" class="LineNr">17954 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L17955" class="LineNr">17955 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17956" class="LineNr">17956 </span> 75/jump-if-!= $identifier?:false/disp8 +<span id="L17957" class="LineNr">17957 </span> <span class="subxComment"># var c/eax: byte = *in->start</span> +<span id="L17958" class="LineNr">17958 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L17959" class="LineNr">17959 </span> 8b/-> *eax 0/r32/eax +<span id="L17960" class="LineNr">17960 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L17961" class="LineNr">17961 </span> 25/and-eax-with 0xff/imm32 +<span id="L17962" class="LineNr">17962 </span> <span class="subxComment"># if (c == '$') return true</span> +<span id="L17963" class="LineNr">17963 </span> 3d/compare-eax-and 0x24/imm32/$ +<span id="L17964" class="LineNr">17964 </span> 74/jump-if-= $identifier?:true/disp8 +<span id="L17965" class="LineNr">17965 </span> <span class="subxComment"># if (c == '_') return true</span> +<span id="L17966" class="LineNr">17966 </span> 3d/compare-eax-and 0x5f/imm32/_ +<span id="L17967" class="LineNr">17967 </span> 74/jump-if-= $identifier?:true/disp8 +<span id="L17968" class="LineNr">17968 </span> <span class="subxComment"># drop case</span> +<span id="L17969" class="LineNr">17969 </span> 25/and-eax-with 0x5f/imm32 +<span id="L17970" class="LineNr">17970 </span> <span class="subxComment"># if (c < 'A') return false</span> +<span id="L17971" class="LineNr">17971 </span> 3d/compare-eax-and 0x41/imm32/A +<span id="L17972" class="LineNr">17972 </span> 7c/jump-if-< $identifier?:false/disp8 +<span id="L17973" class="LineNr">17973 </span> <span class="subxComment"># if (c > 'Z') return false</span> +<span id="L17974" class="LineNr">17974 </span> 3d/compare-eax-and 0x5a/imm32/Z +<span id="L17975" class="LineNr">17975 </span> 7f/jump-if-> $identifier?:false/disp8 +<span id="L17976" class="LineNr">17976 </span> <span class="subxComment"># otherwise return true</span> +<span id="L17977" class="LineNr">17977 </span><span class="Constant">$identifier?:true</span>: +<span id="L17978" class="LineNr">17978 </span> b8/copy-to-eax 1/imm32/true +<span id="L17979" class="LineNr">17979 </span> eb/jump $identifier?:end/disp8 +<span id="L17980" class="LineNr">17980 </span><span class="Constant">$identifier?:false</span>: +<span id="L17981" class="LineNr">17981 </span> b8/copy-to-eax 0/imm32/false +<span id="L17982" class="LineNr">17982 </span><span class="Constant">$identifier?:end</span>: +<span id="L17983" class="LineNr">17983 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17984" class="LineNr">17984 </span> 89/<- %esp 5/r32/ebp +<span id="L17985" class="LineNr">17985 </span> 5d/pop-to-ebp +<span id="L17986" class="LineNr">17986 </span> c3/return +<span id="L17987" class="LineNr">17987 </span> +<span id="L17988" class="LineNr">17988 </span><span class="subxTest">test-is-identifier-dollar</span>: +<span id="L17989" class="LineNr">17989 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17990" class="LineNr">17990 </span> 55/push-ebp +<span id="L17991" class="LineNr">17991 </span> 89/<- %ebp 4/r32/esp +<span id="L17992" class="LineNr">17992 </span> <span class="subxComment"># (eax..ecx) = "$a"</span> +<span id="L17993" class="LineNr">17993 </span> b8/copy-to-eax <span class="Constant">"$a"</span>/imm32 +<span id="L17994" class="LineNr">17994 </span> 8b/-> *eax 1/r32/ecx +<span id="L17995" class="LineNr">17995 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17996" class="LineNr">17996 </span> 05/add-to-eax 4/imm32 +<span id="L17997" class="LineNr">17997 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17998" class="LineNr">17998 </span> 51/push-ecx +<span id="L17999" class="LineNr">17999 </span> 50/push-eax +<span id="L18000" class="LineNr">18000 </span> 89/<- %ecx 4/r32/esp +<span id="L18001" class="LineNr">18001 </span> <span class="subxComment">#</span> +<span id="L18002" class="LineNr">18002 </span> (<a href='mu.subx.html#L17949'>identifier?</a> %ecx) +<span id="L18003" class="LineNr">18003 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-dollar"</span>) +<span id="L18004" class="LineNr">18004 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18005" class="LineNr">18005 </span> 89/<- %esp 5/r32/ebp +<span id="L18006" class="LineNr">18006 </span> 5d/pop-to-ebp +<span id="L18007" class="LineNr">18007 </span> c3/return +<span id="L18008" class="LineNr">18008 </span> +<span id="L18009" class="LineNr">18009 </span><span class="subxTest">test-is-identifier-underscore</span>: +<span id="L18010" class="LineNr">18010 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18011" class="LineNr">18011 </span> 55/push-ebp +<span id="L18012" class="LineNr">18012 </span> 89/<- %ebp 4/r32/esp +<span id="L18013" class="LineNr">18013 </span> <span class="subxComment"># (eax..ecx) = "_a"</span> +<span id="L18014" class="LineNr">18014 </span> b8/copy-to-eax <span class="Constant">"_a"</span>/imm32 +<span id="L18015" class="LineNr">18015 </span> 8b/-> *eax 1/r32/ecx +<span id="L18016" class="LineNr">18016 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18017" class="LineNr">18017 </span> 05/add-to-eax 4/imm32 +<span id="L18018" class="LineNr">18018 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18019" class="LineNr">18019 </span> 51/push-ecx +<span id="L18020" class="LineNr">18020 </span> 50/push-eax +<span id="L18021" class="LineNr">18021 </span> 89/<- %ecx 4/r32/esp +<span id="L18022" class="LineNr">18022 </span> <span class="subxComment">#</span> +<span id="L18023" class="LineNr">18023 </span> (<a href='mu.subx.html#L17949'>identifier?</a> %ecx) +<span id="L18024" class="LineNr">18024 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-underscore"</span>) +<span id="L18025" class="LineNr">18025 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18026" class="LineNr">18026 </span> 89/<- %esp 5/r32/ebp +<span id="L18027" class="LineNr">18027 </span> 5d/pop-to-ebp +<span id="L18028" class="LineNr">18028 </span> c3/return +<span id="L18029" class="LineNr">18029 </span> +<span id="L18030" class="LineNr">18030 </span><span class="subxTest">test-is-identifier-a</span>: +<span id="L18031" class="LineNr">18031 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18032" class="LineNr">18032 </span> 55/push-ebp +<span id="L18033" class="LineNr">18033 </span> 89/<- %ebp 4/r32/esp +<span id="L18034" class="LineNr">18034 </span> <span class="subxComment"># (eax..ecx) = "a$"</span> +<span id="L18035" class="LineNr">18035 </span> b8/copy-to-eax <span class="Constant">"a$"</span>/imm32 +<span id="L18036" class="LineNr">18036 </span> 8b/-> *eax 1/r32/ecx +<span id="L18037" class="LineNr">18037 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18038" class="LineNr">18038 </span> 05/add-to-eax 4/imm32 +<span id="L18039" class="LineNr">18039 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18040" class="LineNr">18040 </span> 51/push-ecx +<span id="L18041" class="LineNr">18041 </span> 50/push-eax +<span id="L18042" class="LineNr">18042 </span> 89/<- %ecx 4/r32/esp +<span id="L18043" class="LineNr">18043 </span> <span class="subxComment">#</span> +<span id="L18044" class="LineNr">18044 </span> (<a href='mu.subx.html#L17949'>identifier?</a> %ecx) +<span id="L18045" class="LineNr">18045 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-a"</span>) +<span id="L18046" class="LineNr">18046 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18047" class="LineNr">18047 </span> 89/<- %esp 5/r32/ebp +<span id="L18048" class="LineNr">18048 </span> 5d/pop-to-ebp +<span id="L18049" class="LineNr">18049 </span> c3/return +<span id="L18050" class="LineNr">18050 </span> +<span id="L18051" class="LineNr">18051 </span><span class="subxTest">test-is-identifier-z</span>: +<span id="L18052" class="LineNr">18052 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18053" class="LineNr">18053 </span> 55/push-ebp +<span id="L18054" class="LineNr">18054 </span> 89/<- %ebp 4/r32/esp +<span id="L18055" class="LineNr">18055 </span> <span class="subxComment"># (eax..ecx) = "z$"</span> +<span id="L18056" class="LineNr">18056 </span> b8/copy-to-eax <span class="Constant">"z$"</span>/imm32 +<span id="L18057" class="LineNr">18057 </span> 8b/-> *eax 1/r32/ecx +<span id="L18058" class="LineNr">18058 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18059" class="LineNr">18059 </span> 05/add-to-eax 4/imm32 +<span id="L18060" class="LineNr">18060 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18061" class="LineNr">18061 </span> 51/push-ecx +<span id="L18062" class="LineNr">18062 </span> 50/push-eax +<span id="L18063" class="LineNr">18063 </span> 89/<- %ecx 4/r32/esp +<span id="L18064" class="LineNr">18064 </span> <span class="subxComment">#</span> +<span id="L18065" class="LineNr">18065 </span> (<a href='mu.subx.html#L17949'>identifier?</a> %ecx) +<span id="L18066" class="LineNr">18066 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-z"</span>) +<span id="L18067" class="LineNr">18067 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18068" class="LineNr">18068 </span> 89/<- %esp 5/r32/ebp +<span id="L18069" class="LineNr">18069 </span> 5d/pop-to-ebp +<span id="L18070" class="LineNr">18070 </span> c3/return +<span id="L18071" class="LineNr">18071 </span> +<span id="L18072" class="LineNr">18072 </span><span class="subxTest">test-is-identifier-A</span>: +<span id="L18073" class="LineNr">18073 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18074" class="LineNr">18074 </span> 55/push-ebp +<span id="L18075" class="LineNr">18075 </span> 89/<- %ebp 4/r32/esp +<span id="L18076" class="LineNr">18076 </span> <span class="subxComment"># (eax..ecx) = "A$"</span> +<span id="L18077" class="LineNr">18077 </span> b8/copy-to-eax <span class="Constant">"A$"</span>/imm32 +<span id="L18078" class="LineNr">18078 </span> 8b/-> *eax 1/r32/ecx +<span id="L18079" class="LineNr">18079 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18080" class="LineNr">18080 </span> 05/add-to-eax 4/imm32 +<span id="L18081" class="LineNr">18081 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18082" class="LineNr">18082 </span> 51/push-ecx +<span id="L18083" class="LineNr">18083 </span> 50/push-eax +<span id="L18084" class="LineNr">18084 </span> 89/<- %ecx 4/r32/esp +<span id="L18085" class="LineNr">18085 </span> <span class="subxComment">#</span> +<span id="L18086" class="LineNr">18086 </span> (<a href='mu.subx.html#L17949'>identifier?</a> %ecx) +<span id="L18087" class="LineNr">18087 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-A"</span>) +<span id="L18088" class="LineNr">18088 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18089" class="LineNr">18089 </span> 89/<- %esp 5/r32/ebp +<span id="L18090" class="LineNr">18090 </span> 5d/pop-to-ebp +<span id="L18091" class="LineNr">18091 </span> c3/return +<span id="L18092" class="LineNr">18092 </span> +<span id="L18093" class="LineNr">18093 </span><span class="subxTest">test-is-identifier-Z</span>: +<span id="L18094" class="LineNr">18094 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18095" class="LineNr">18095 </span> 55/push-ebp +<span id="L18096" class="LineNr">18096 </span> 89/<- %ebp 4/r32/esp +<span id="L18097" class="LineNr">18097 </span> <span class="subxComment"># (eax..ecx) = "Z$"</span> +<span id="L18098" class="LineNr">18098 </span> b8/copy-to-eax <span class="Constant">"Z$"</span>/imm32 +<span id="L18099" class="LineNr">18099 </span> 8b/-> *eax 1/r32/ecx +<span id="L18100" class="LineNr">18100 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18101" class="LineNr">18101 </span> 05/add-to-eax 4/imm32 +<span id="L18102" class="LineNr">18102 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18103" class="LineNr">18103 </span> 51/push-ecx +<span id="L18104" class="LineNr">18104 </span> 50/push-eax +<span id="L18105" class="LineNr">18105 </span> 89/<- %ecx 4/r32/esp +<span id="L18106" class="LineNr">18106 </span> <span class="subxComment">#</span> +<span id="L18107" class="LineNr">18107 </span> (<a href='mu.subx.html#L17949'>identifier?</a> %ecx) +<span id="L18108" class="LineNr">18108 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-Z"</span>) +<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="subxTest">test-is-identifier-at</span>: +<span id="L18115" class="LineNr">18115 </span> <span class="subxComment"># character before 'A' is invalid</span> +<span id="L18116" class="LineNr">18116 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18117" class="LineNr">18117 </span> 55/push-ebp +<span id="L18118" class="LineNr">18118 </span> 89/<- %ebp 4/r32/esp +<span id="L18119" class="LineNr">18119 </span> <span class="subxComment"># (eax..ecx) = "@a"</span> +<span id="L18120" class="LineNr">18120 </span> b8/copy-to-eax <span class="Constant">"@a"</span>/imm32 +<span id="L18121" class="LineNr">18121 </span> 8b/-> *eax 1/r32/ecx +<span id="L18122" class="LineNr">18122 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18123" class="LineNr">18123 </span> 05/add-to-eax 4/imm32 +<span id="L18124" class="LineNr">18124 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18125" class="LineNr">18125 </span> 51/push-ecx +<span id="L18126" class="LineNr">18126 </span> 50/push-eax +<span id="L18127" class="LineNr">18127 </span> 89/<- %ecx 4/r32/esp +<span id="L18128" class="LineNr">18128 </span> <span class="subxComment">#</span> +<span id="L18129" class="LineNr">18129 </span> (<a href='mu.subx.html#L17949'>identifier?</a> %ecx) +<span id="L18130" class="LineNr">18130 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) +<span id="L18131" class="LineNr">18131 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18132" class="LineNr">18132 </span> 89/<- %esp 5/r32/ebp +<span id="L18133" class="LineNr">18133 </span> 5d/pop-to-ebp +<span id="L18134" class="LineNr">18134 </span> c3/return +<span id="L18135" class="LineNr">18135 </span> +<span id="L18136" class="LineNr">18136 </span><span class="subxTest">test-is-identifier-square-bracket</span>: +<span id="L18137" class="LineNr">18137 </span> <span class="subxComment"># character after 'Z' is invalid</span> +<span id="L18138" class="LineNr">18138 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18139" class="LineNr">18139 </span> 55/push-ebp +<span id="L18140" class="LineNr">18140 </span> 89/<- %ebp 4/r32/esp +<span id="L18141" class="LineNr">18141 </span> <span class="subxComment"># (eax..ecx) = "[a"</span> +<span id="L18142" class="LineNr">18142 </span> b8/copy-to-eax <span class="Constant">"[a"</span>/imm32 +<span id="L18143" class="LineNr">18143 </span> 8b/-> *eax 1/r32/ecx +<span id="L18144" class="LineNr">18144 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18145" class="LineNr">18145 </span> 05/add-to-eax 4/imm32 +<span id="L18146" class="LineNr">18146 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18147" class="LineNr">18147 </span> 51/push-ecx +<span id="L18148" class="LineNr">18148 </span> 50/push-eax +<span id="L18149" class="LineNr">18149 </span> 89/<- %ecx 4/r32/esp +<span id="L18150" class="LineNr">18150 </span> <span class="subxComment">#</span> +<span id="L18151" class="LineNr">18151 </span> (<a href='mu.subx.html#L17949'>identifier?</a> %ecx) +<span id="L18152" class="LineNr">18152 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) +<span id="L18153" class="LineNr">18153 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18154" class="LineNr">18154 </span> 89/<- %esp 5/r32/ebp +<span id="L18155" class="LineNr">18155 </span> 5d/pop-to-ebp +<span id="L18156" class="LineNr">18156 </span> c3/return +<span id="L18157" class="LineNr">18157 </span> +<span id="L18158" class="LineNr">18158 </span><span class="subxTest">test-is-identifier-backtick</span>: +<span id="L18159" class="LineNr">18159 </span> <span class="subxComment"># character before 'a' is invalid</span> +<span id="L18160" class="LineNr">18160 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18161" class="LineNr">18161 </span> 55/push-ebp +<span id="L18162" class="LineNr">18162 </span> 89/<- %ebp 4/r32/esp +<span id="L18163" class="LineNr">18163 </span> <span class="subxComment"># (eax..ecx) = "`a"</span> +<span id="L18164" class="LineNr">18164 </span> b8/copy-to-eax <span class="Constant">"`a"</span>/imm32 +<span id="L18165" class="LineNr">18165 </span> 8b/-> *eax 1/r32/ecx +<span id="L18166" class="LineNr">18166 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18167" class="LineNr">18167 </span> 05/add-to-eax 4/imm32 +<span id="L18168" class="LineNr">18168 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18169" class="LineNr">18169 </span> 51/push-ecx +<span id="L18170" class="LineNr">18170 </span> 50/push-eax +<span id="L18171" class="LineNr">18171 </span> 89/<- %ecx 4/r32/esp +<span id="L18172" class="LineNr">18172 </span> <span class="subxComment">#</span> +<span id="L18173" class="LineNr">18173 </span> (<a href='mu.subx.html#L17949'>identifier?</a> %ecx) +<span id="L18174" class="LineNr">18174 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-backtick"</span>) +<span id="L18175" class="LineNr">18175 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18176" class="LineNr">18176 </span> 89/<- %esp 5/r32/ebp +<span id="L18177" class="LineNr">18177 </span> 5d/pop-to-ebp +<span id="L18178" class="LineNr">18178 </span> c3/return +<span id="L18179" class="LineNr">18179 </span> +<span id="L18180" class="LineNr">18180 </span><span class="subxTest">test-is-identifier-curly-brace-open</span>: +<span id="L18181" class="LineNr">18181 </span> <span class="subxComment"># character after 'z' is invalid; also used for blocks</span> +<span id="L18182" class="LineNr">18182 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18183" class="LineNr">18183 </span> 55/push-ebp +<span id="L18184" class="LineNr">18184 </span> 89/<- %ebp 4/r32/esp +<span id="L18185" class="LineNr">18185 </span> <span class="subxComment"># (eax..ecx) = "{a"</span> +<span id="L18186" class="LineNr">18186 </span> b8/copy-to-eax <span class="Constant">"{a"</span>/imm32 +<span id="L18187" class="LineNr">18187 </span> 8b/-> *eax 1/r32/ecx +<span id="L18188" class="LineNr">18188 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18189" class="LineNr">18189 </span> 05/add-to-eax 4/imm32 +<span id="L18190" class="LineNr">18190 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18191" class="LineNr">18191 </span> 51/push-ecx +<span id="L18192" class="LineNr">18192 </span> 50/push-eax +<span id="L18193" class="LineNr">18193 </span> 89/<- %ecx 4/r32/esp +<span id="L18194" class="LineNr">18194 </span> <span class="subxComment">#</span> +<span id="L18195" class="LineNr">18195 </span> (<a href='mu.subx.html#L17949'>identifier?</a> %ecx) +<span id="L18196" class="LineNr">18196 </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="L18197" class="LineNr">18197 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18198" class="LineNr">18198 </span> 89/<- %esp 5/r32/ebp +<span id="L18199" class="LineNr">18199 </span> 5d/pop-to-ebp +<span id="L18200" class="LineNr">18200 </span> c3/return +<span id="L18201" class="LineNr">18201 </span> +<span id="L18202" class="LineNr">18202 </span><span class="subxTest">test-is-identifier-curly-brace-close</span>: +<span id="L18203" class="LineNr">18203 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18204" class="LineNr">18204 </span> 55/push-ebp +<span id="L18205" class="LineNr">18205 </span> 89/<- %ebp 4/r32/esp +<span id="L18206" class="LineNr">18206 </span> <span class="subxComment"># (eax..ecx) = "}a"</span> +<span id="L18207" class="LineNr">18207 </span> b8/copy-to-eax <span class="Constant">"}a"</span>/imm32 +<span id="L18208" class="LineNr">18208 </span> 8b/-> *eax 1/r32/ecx +<span id="L18209" class="LineNr">18209 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18210" class="LineNr">18210 </span> 05/add-to-eax 4/imm32 +<span id="L18211" class="LineNr">18211 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18212" class="LineNr">18212 </span> 51/push-ecx +<span id="L18213" class="LineNr">18213 </span> 50/push-eax +<span id="L18214" class="LineNr">18214 </span> 89/<- %ecx 4/r32/esp +<span id="L18215" class="LineNr">18215 </span> <span class="subxComment">#</span> +<span id="L18216" class="LineNr">18216 </span> (<a href='mu.subx.html#L17949'>identifier?</a> %ecx) +<span id="L18217" class="LineNr">18217 </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="L18218" class="LineNr">18218 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18219" class="LineNr">18219 </span> 89/<- %esp 5/r32/ebp +<span id="L18220" class="LineNr">18220 </span> 5d/pop-to-ebp +<span id="L18221" class="LineNr">18221 </span> c3/return +<span id="L18222" class="LineNr">18222 </span> +<span id="L18223" class="LineNr">18223 </span><span class="subxTest">test-is-identifier-hyphen</span>: +<span id="L18224" class="LineNr">18224 </span> <span class="subxComment"># disallow leading '-' since '->' has special meaning</span> +<span id="L18225" class="LineNr">18225 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18226" class="LineNr">18226 </span> 55/push-ebp +<span id="L18227" class="LineNr">18227 </span> 89/<- %ebp 4/r32/esp +<span id="L18228" class="LineNr">18228 </span> <span class="subxComment"># (eax..ecx) = "-a"</span> +<span id="L18229" class="LineNr">18229 </span> b8/copy-to-eax <span class="Constant">"-a"</span>/imm32 +<span id="L18230" class="LineNr">18230 </span> 8b/-> *eax 1/r32/ecx +<span id="L18231" class="LineNr">18231 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18232" class="LineNr">18232 </span> 05/add-to-eax 4/imm32 +<span id="L18233" class="LineNr">18233 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18234" class="LineNr">18234 </span> 51/push-ecx +<span id="L18235" class="LineNr">18235 </span> 50/push-eax +<span id="L18236" class="LineNr">18236 </span> 89/<- %ecx 4/r32/esp +<span id="L18237" class="LineNr">18237 </span> <span class="subxComment">#</span> +<span id="L18238" class="LineNr">18238 </span> (<a href='mu.subx.html#L17949'>identifier?</a> %ecx) +<span id="L18239" class="LineNr">18239 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-hyphen"</span>) +<span id="L18240" class="LineNr">18240 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18241" class="LineNr">18241 </span> 89/<- %esp 5/r32/ebp +<span id="L18242" class="LineNr">18242 </span> 5d/pop-to-ebp +<span id="L18243" class="LineNr">18243 </span> c3/return +<span id="L18244" class="LineNr">18244 </span> +<span id="L18245" class="LineNr">18245 </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="L18246" class="LineNr">18246 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18247" class="LineNr">18247 </span> 55/push-ebp +<span id="L18248" class="LineNr">18248 </span> 89/<- %ebp 4/r32/esp +<span id="L18249" class="LineNr">18249 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18250" class="LineNr">18250 </span> 50/push-eax +<span id="L18251" class="LineNr">18251 </span> 56/push-esi +<span id="L18252" class="LineNr">18252 </span> 57/push-edi +<span id="L18253" class="LineNr">18253 </span> <span class="subxComment"># esi = in</span> +<span id="L18254" class="LineNr">18254 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L18255" class="LineNr">18255 </span> <span class="subxComment"># edi = out</span> +<span id="L18256" class="LineNr">18256 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L18257" class="LineNr">18257 </span> <span class="subxComment"># initialize some global state</span> +<span id="L18258" class="LineNr">18258 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 1/imm32 +<span id="L18259" class="LineNr">18259 </span> <span class="subxComment"># parse-mu-block(in, vars, out, out->body)</span> +<span id="L18260" class="LineNr">18260 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Function-body</span> +<span id="L18261" class="LineNr">18261 </span> (<a href='mu.subx.html#L18273'>parse-mu-block</a> %esi *(ebp+0x10) %edi %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L18262" class="LineNr">18262 </span><span class="Constant">$populate-mu-function-body:end</span>: +<span id="L18263" class="LineNr">18263 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18264" class="LineNr">18264 </span> 5f/pop-to-edi +<span id="L18265" class="LineNr">18265 </span> 5e/pop-to-esi +<span id="L18266" class="LineNr">18266 </span> 58/pop-to-eax +<span id="L18267" class="LineNr">18267 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18268" class="LineNr">18268 </span> 89/<- %esp 5/r32/ebp +<span id="L18269" class="LineNr">18269 </span> 5d/pop-to-ebp +<span id="L18270" class="LineNr">18270 </span> c3/return +<span id="L18271" class="LineNr">18271 </span> +<span id="L18272" class="LineNr">18272 </span><span class="subxComment"># parses a block, assuming that the leading '{' has already been read by the caller</span> +<span id="L18273" class="LineNr">18273 </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="L18274" class="LineNr">18274 </span> <span class="subxComment"># pseudocode:</span> +<span id="L18275" class="LineNr">18275 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L18276" class="LineNr">18276 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L18277" class="LineNr">18277 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> +<span id="L18278" class="LineNr">18278 </span> <span class="subxComment"># var out-addr: (addr block) = lookup(*out)</span> +<span id="L18279" class="LineNr">18279 </span> <span class="subxComment"># out-addr->tag = 0/block</span> +<span id="L18280" class="LineNr">18280 </span> <span class="subxComment"># out-addr->var = some unique name</span> +<span id="L18281" class="LineNr">18281 </span> <span class="subxComment"># push(vars, {out-addr->var, false})</span> +<span id="L18282" class="LineNr">18282 </span> <span class="subxComment"># while true # line loop</span> +<span id="L18283" class="LineNr">18283 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L18284" class="LineNr">18284 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L18285" class="LineNr">18285 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L18286" class="LineNr">18286 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L18287" class="LineNr">18287 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L18288" class="LineNr">18288 </span> <span class="subxComment"># continue</span> +<span id="L18289" class="LineNr">18289 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#")</span> +<span id="L18290" class="LineNr">18290 </span> <span class="subxComment"># continue</span> +<span id="L18291" class="LineNr">18291 </span> <span class="subxComment"># else if slice-equal?(word-slice, "{")</span> +<span id="L18292" class="LineNr">18292 </span> <span class="subxComment"># assert(no-tokens-in(line))</span> +<span id="L18293" class="LineNr">18293 </span> <span class="subxComment"># block = parse-mu-block(in, vars, fn)</span> +<span id="L18294" class="LineNr">18294 </span> <span class="subxComment"># append-to-block(out-addr, block)</span> +<span id="L18295" class="LineNr">18295 </span> <span class="subxComment"># else if slice-equal?(word-slice, "}")</span> +<span id="L18296" class="LineNr">18296 </span> <span class="subxComment"># break</span> +<span id="L18297" class="LineNr">18297 </span> <span class="subxComment"># else if slice-ends-with?(word-slice, ":")</span> +<span id="L18298" class="LineNr">18298 </span> <span class="subxComment"># if !slice-equal?(next-mu-token(line), "{")</span> +<span id="L18299" class="LineNr">18299 </span> <span class="subxComment"># abort</span> +<span id="L18300" class="LineNr">18300 </span> <span class="subxComment"># --word-slice->end to skip ':'</span> +<span id="L18301" class="LineNr">18301 </span> <span class="subxComment"># named-block = parse-mu-named-block(word-slice, in, vars, fn)</span> +<span id="L18302" class="LineNr">18302 </span> <span class="subxComment"># append-to-block(out-addr, named-block)</span> +<span id="L18303" class="LineNr">18303 </span> <span class="subxComment"># else if slice-equal?(word-slice, "var")</span> +<span id="L18304" class="LineNr">18304 </span> <span class="subxComment"># var-def = parse-mu-var-def(line, vars, fn)</span> +<span id="L18305" class="LineNr">18305 </span> <span class="subxComment"># append-to-block(out-addr, var-def)</span> +<span id="L18306" class="LineNr">18306 </span> <span class="subxComment"># else</span> +<span id="L18307" class="LineNr">18307 </span> <span class="subxComment"># stmt = parse-mu-stmt(line, vars, fn)</span> +<span id="L18308" class="LineNr">18308 </span> <span class="subxComment"># append-to-block(out-addr, stmt)</span> +<span id="L18309" class="LineNr">18309 </span> <span class="subxComment"># pop(vars)</span> +<span id="L18310" class="LineNr">18310 </span> <span class="subxComment">#</span> +<span id="L18311" class="LineNr">18311 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18312" class="LineNr">18312 </span> 55/push-ebp +<span id="L18313" class="LineNr">18313 </span> 89/<- %ebp 4/r32/esp +<span id="L18314" class="LineNr">18314 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18315" class="LineNr">18315 </span> 50/push-eax +<span id="L18316" class="LineNr">18316 </span> 51/push-ecx +<span id="L18317" class="LineNr">18317 </span> 52/push-edx +<span id="L18318" class="LineNr">18318 </span> 53/push-ebx +<span id="L18319" class="LineNr">18319 </span> 57/push-edi +<span id="L18320" class="LineNr">18320 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L18321" class="LineNr">18321 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L18322" class="LineNr">18322 </span> 68/push 0x200/imm32/size +<span id="L18323" class="LineNr">18323 </span> 68/push 0/imm32/read +<span id="L18324" class="LineNr">18324 </span> 68/push 0/imm32/write +<span id="L18325" class="LineNr">18325 </span> 89/<- %ecx 4/r32/esp +<span id="L18326" class="LineNr">18326 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L18327" class="LineNr">18327 </span> 68/push 0/imm32/end +<span id="L18328" class="LineNr">18328 </span> 68/push 0/imm32/start +<span id="L18329" class="LineNr">18329 </span> 89/<- %edx 4/r32/esp +<span id="L18330" class="LineNr">18330 </span> <span class="subxComment"># allocate into out</span> +<span id="L18331" class="LineNr">18331 </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="L18332" class="LineNr">18332 </span> <span class="subxComment"># var out-addr/edi: (addr block) = lookup(*out)</span> +<span id="L18333" class="LineNr">18333 </span> 8b/-> *(ebp+0x14) 7/r32/edi +<span id="L18334" class="LineNr">18334 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L18335" class="LineNr">18335 </span> 89/<- %edi 0/r32/eax +<span id="L18336" class="LineNr">18336 </span> <span class="subxComment"># out-addr->tag is 0 (block) by default</span> +<span id="L18337" class="LineNr">18337 </span> <span class="subxComment"># set out-addr->var</span> +<span id="L18338" class="LineNr">18338 </span> 8d/copy-address *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> +<span id="L18339" class="LineNr">18339 </span> (<a href='mu.subx.html#L18533'>new-block-name</a> *(ebp+0x10) %eax) +<span id="L18340" class="LineNr">18340 </span> <span class="subxComment"># push(vars, out-addr->var)</span> +<span id="L18341" class="LineNr">18341 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0xc)) <span class="subxComment"># Block-var</span> +<span id="L18342" class="LineNr">18342 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0x10)) <span class="subxComment"># Block-var</span> +<span id="L18343" class="LineNr">18343 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) 0) <span class="subxComment"># false</span> +<span id="L18344" class="LineNr">18344 </span> <span class="subxComment"># increment *Curr-block-depth</span> +<span id="L18345" class="LineNr">18345 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> +<span id="L18346" class="LineNr">18346 </span> { +<span id="L18347" class="LineNr">18347 </span><span class="Constant">$parse-mu-block:line-loop</span>: +<span id="L18348" class="LineNr">18348 </span> <span class="subxComment"># line = read-line-buffered(in)</span> +<span id="L18349" class="LineNr">18349 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L18350" class="LineNr">18350 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L18351" class="LineNr">18351 </span><span class="CommentedCode">#? (write-buffered Stderr "line: ")</span> +<span id="L18352" class="LineNr">18352 </span><span class="CommentedCode">#? (write-stream-data Stderr %ecx)</span> +<span id="L18353" class="LineNr">18353 </span><span class="CommentedCode">#? #? (write-buffered Stderr Newline) # line has its own newline</span> +<span id="L18354" class="LineNr">18354 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L18355" class="LineNr">18355 </span><span class="CommentedCode">#? (rewind-stream %ecx)</span> +<span id="L18356" class="LineNr">18356 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L18357" class="LineNr">18357 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L18358" class="LineNr">18358 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L18359" class="LineNr">18359 </span><span class="CommentedCode">#? (write-buffered Stderr "vars:\n")</span> +<span id="L18360" class="LineNr">18360 </span><span class="CommentedCode">#? (dump-vars *(ebp+0xc))</span> +<span id="L18361" class="LineNr">18361 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L18362" class="LineNr">18362 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> %ecx %edx) +<span id="L18363" class="LineNr">18363 </span><span class="CommentedCode">#? (write-buffered Stderr "word: ")</span> +<span id="L18364" class="LineNr">18364 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %edx)</span> +<span id="L18365" class="LineNr">18365 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L18366" class="LineNr">18366 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L18367" class="LineNr">18367 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> +<span id="L18368" class="LineNr">18368 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edx) +<span id="L18369" class="LineNr">18369 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18370" class="LineNr">18370 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 +<span id="L18371" class="LineNr">18371 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, '#') continue</span> +<span id="L18372" class="LineNr">18372 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> +<span id="L18373" class="LineNr">18373 </span> 8b/-> *edx 0/r32/eax +<span id="L18374" class="LineNr">18374 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L18375" class="LineNr">18375 </span> 25/and-eax-with 0xff/imm32 +<span id="L18376" class="LineNr">18376 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L18377" class="LineNr">18377 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L18378" class="LineNr">18378 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 +<span id="L18379" class="LineNr">18379 </span> <span class="subxComment"># if slice-equal?(word-slice, "{")</span> +<span id="L18380" class="LineNr">18380 </span> { +<span id="L18381" class="LineNr">18381 </span><span class="Constant">$parse-mu-block:check-for-block</span>: +<span id="L18382" class="LineNr">18382 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"{"</span>) +<span id="L18383" class="LineNr">18383 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18384" class="LineNr">18384 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18385" class="LineNr">18385 </span> (<a href='mu.subx.html#L18597'>check-no-tokens-left</a> %ecx) +<span id="L18386" class="LineNr">18386 </span> <span class="subxComment"># parse new block and append</span> +<span id="L18387" class="LineNr">18387 </span> <span class="subxS1Comment"># . var tmp/eax: (handle block)</span> +<span id="L18388" class="LineNr">18388 </span> 68/push 0/imm32 +<span id="L18389" class="LineNr">18389 </span> 68/push 0/imm32 +<span id="L18390" class="LineNr">18390 </span> 89/<- %eax 4/r32/esp +<span id="L18391" class="LineNr">18391 </span> <span class="subxS1Comment"># .</span> +<span id="L18392" class="LineNr">18392 </span> (<a href='mu.subx.html#L18273'>parse-mu-block</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L18393" class="LineNr">18393 </span> (<a href='mu.subx.html#L20348'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L18394" class="LineNr">18394 </span> <span class="subxS1Comment"># . reclaim tmp</span> +<span id="L18395" class="LineNr">18395 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18396" class="LineNr">18396 </span> <span class="subxS1Comment"># .</span> +<span id="L18397" class="LineNr">18397 </span> e9/jump $parse-mu-block:line-loop/disp32 +<span id="L18398" class="LineNr">18398 </span> } +<span id="L18399" class="LineNr">18399 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> +<span id="L18400" class="LineNr">18400 </span><span class="Constant">$parse-mu-block:check-for-end</span>: +<span id="L18401" class="LineNr">18401 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) +<span id="L18402" class="LineNr">18402 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18403" class="LineNr">18403 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L18404" class="LineNr">18404 </span> <span class="subxComment"># if slice-ends-with?(word-slice, ":") parse named block and append</span> +<span id="L18405" class="LineNr">18405 </span> { +<span id="L18406" class="LineNr">18406 </span><span class="Constant">$parse-mu-block:check-for-named-block</span>: +<span id="L18407" class="LineNr">18407 </span> <span class="subxS1Comment"># . eax = *(word-slice->end-1)</span> +<span id="L18408" class="LineNr">18408 </span> 8b/-> *(edx+4) 0/r32/eax +<span id="L18409" class="LineNr">18409 </span> 48/decrement-eax +<span id="L18410" class="LineNr">18410 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L18411" class="LineNr">18411 </span> 25/and-eax-with 0xff/imm32 +<span id="L18412" class="LineNr">18412 </span> <span class="subxS1Comment"># . if (eax != ':') break</span> +<span id="L18413" class="LineNr">18413 </span> 3d/compare-eax-and 0x3a/imm32/colon +<span id="L18414" class="LineNr">18414 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L18415" class="LineNr">18415 </span> <span class="subxComment"># if next-mu-token(line) != "{", abort</span> +<span id="L18416" class="LineNr">18416 </span> (<a href='mu.subx.html#L18494'>check-next-token-is-open-curly</a> %ecx *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18417" class="LineNr">18417 </span> <span class="subxComment"># skip ':'</span> +<span id="L18418" class="LineNr">18418 </span> ff 1/subop/decrement *(edx+4) <span class="subxComment"># Slice-end</span> +<span id="L18419" class="LineNr">18419 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> +<span id="L18420" class="LineNr">18420 </span> 68/push 0/imm32 +<span id="L18421" class="LineNr">18421 </span> 68/push 0/imm32 +<span id="L18422" class="LineNr">18422 </span> 89/<- %eax 4/r32/esp +<span id="L18423" class="LineNr">18423 </span> <span class="subxComment">#</span> +<span id="L18424" class="LineNr">18424 </span> (<a href='mu.subx.html#L18643'>parse-mu-named-block</a> %edx *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L18425" class="LineNr">18425 </span> (<a href='mu.subx.html#L20348'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L18426" class="LineNr">18426 </span> <span class="subxComment"># reclaim tmp</span> +<span id="L18427" class="LineNr">18427 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18428" class="LineNr">18428 </span> <span class="subxComment">#</span> +<span id="L18429" class="LineNr">18429 </span> e9/jump $parse-mu-block:line-loop/disp32 +<span id="L18430" class="LineNr">18430 </span> } +<span id="L18431" class="LineNr">18431 </span> <span class="subxComment"># if slice-equal?(word-slice, "var")</span> +<span id="L18432" class="LineNr">18432 </span> { +<span id="L18433" class="LineNr">18433 </span><span class="Constant">$parse-mu-block:check-for-var</span>: +<span id="L18434" class="LineNr">18434 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"var"</span>) +<span id="L18435" class="LineNr">18435 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18436" class="LineNr">18436 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18437" class="LineNr">18437 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> +<span id="L18438" class="LineNr">18438 </span> 68/push 0/imm32 +<span id="L18439" class="LineNr">18439 </span> 68/push 0/imm32 +<span id="L18440" class="LineNr">18440 </span> 89/<- %eax 4/r32/esp +<span id="L18441" class="LineNr">18441 </span> <span class="subxComment">#</span> +<span id="L18442" class="LineNr">18442 </span> (<a href='mu.subx.html#L18699'>parse-mu-var-def</a> %ecx *(ebp+0xc) %eax *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18443" class="LineNr">18443 </span> (<a href='mu.subx.html#L20348'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L18444" class="LineNr">18444 </span> <span class="subxComment"># reclaim tmp</span> +<span id="L18445" class="LineNr">18445 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18446" class="LineNr">18446 </span> <span class="subxComment">#</span> +<span id="L18447" class="LineNr">18447 </span> e9/jump $parse-mu-block:line-loop/disp32 +<span id="L18448" class="LineNr">18448 </span> } +<span id="L18449" class="LineNr">18449 </span><span class="Constant">$parse-mu-block:regular-stmt</span>: +<span id="L18450" class="LineNr">18450 </span> <span class="subxComment"># otherwise</span> +<span id="L18451" class="LineNr">18451 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> +<span id="L18452" class="LineNr">18452 </span> 68/push 0/imm32 +<span id="L18453" class="LineNr">18453 </span> 68/push 0/imm32 +<span id="L18454" class="LineNr">18454 </span> 89/<- %eax 4/r32/esp +<span id="L18455" class="LineNr">18455 </span> <span class="subxComment">#</span> +<span id="L18456" class="LineNr">18456 </span> (<a href='mu.subx.html#L18963'>parse-mu-stmt</a> %ecx *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L18457" class="LineNr">18457 </span> (<a href='mu.subx.html#L20348'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L18458" class="LineNr">18458 </span> <span class="subxComment"># reclaim tmp</span> +<span id="L18459" class="LineNr">18459 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18460" class="LineNr">18460 </span> <span class="subxComment">#</span> +<span id="L18461" class="LineNr">18461 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L18462" class="LineNr">18462 </span> } <span class="subxComment"># end line loop</span> +<span id="L18463" class="LineNr">18463 </span> (<a href='mu.subx.html#L28640'>clean-up-blocks</a> *(ebp+0xc) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> *(ebp+0x10)) +<span id="L18464" class="LineNr">18464 </span> <span class="subxComment"># decrement *Curr-block-depth</span> +<span id="L18465" class="LineNr">18465 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> +<span id="L18466" class="LineNr">18466 </span> <span class="subxComment"># pop(vars)</span> +<span id="L18467" class="LineNr">18467 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L18468" class="LineNr">18468 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L18469" class="LineNr">18469 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L18470" class="LineNr">18470 </span><span class="Constant">$parse-mu-block:end</span>: +<span id="L18471" class="LineNr">18471 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18472" class="LineNr">18472 </span> 81 0/subop/add %esp 0x214/imm32 +<span id="L18473" class="LineNr">18473 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18474" class="LineNr">18474 </span> 5f/pop-to-edi +<span id="L18475" class="LineNr">18475 </span> 5b/pop-to-ebx +<span id="L18476" class="LineNr">18476 </span> 5a/pop-to-edx +<span id="L18477" class="LineNr">18477 </span> 59/pop-to-ecx +<span id="L18478" class="LineNr">18478 </span> 58/pop-to-eax +<span id="L18479" class="LineNr">18479 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18480" class="LineNr">18480 </span> 89/<- %esp 5/r32/ebp +<span id="L18481" class="LineNr">18481 </span> 5d/pop-to-ebp +<span id="L18482" class="LineNr">18482 </span> c3/return +<span id="L18483" class="LineNr">18483 </span> +<span id="L18484" class="LineNr">18484 </span><span class="Constant">$parse-mu-block:abort</span>: +<span id="L18485" class="LineNr">18485 </span> <span class="subxComment"># error("'{' or '}' should be on its own line, but got '")</span> +<span id="L18486" class="LineNr">18486 </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="L18487" class="LineNr">18487 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> %ecx) +<span id="L18488" class="LineNr">18488 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) %ecx) +<span id="L18489" class="LineNr">18489 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L18490" class="LineNr">18490 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18491" class="LineNr">18491 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18492" class="LineNr">18492 </span> <span class="subxComment"># never gets here</span> +<span id="L18493" class="LineNr">18493 </span> +<span id="L18494" class="LineNr">18494 </span><span class="subxFunction">check-next-token-is-open-curly</span>: <span class="subxComment"># line: (addr stream byte), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L18495" class="LineNr">18495 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18496" class="LineNr">18496 </span> 55/push-ebp +<span id="L18497" class="LineNr">18497 </span> 89/<- %ebp 4/r32/esp +<span id="L18498" class="LineNr">18498 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18499" class="LineNr">18499 </span> 50/push-eax +<span id="L18500" class="LineNr">18500 </span> 52/push-edx +<span id="L18501" class="LineNr">18501 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L18502" class="LineNr">18502 </span> 68/push 0/imm32/end +<span id="L18503" class="LineNr">18503 </span> 68/push 0/imm32/start +<span id="L18504" class="LineNr">18504 </span> 89/<- %edx 4/r32/esp +<span id="L18505" class="LineNr">18505 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L18506" class="LineNr">18506 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+8) %edx) +<span id="L18507" class="LineNr">18507 </span> <span class="subxComment"># if !slice-equal?(word-slice, "{") abort</span> +<span id="L18508" class="LineNr">18508 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L18509" class="LineNr">18509 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18510" class="LineNr">18510 </span> 0f 84/jump-if-= $check-next-token-is-open-curly:abort/disp32 +<span id="L18511" class="LineNr">18511 </span><span class="Constant">$check-next-token-is-open-curly:end</span>: +<span id="L18512" class="LineNr">18512 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18513" class="LineNr">18513 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18514" class="LineNr">18514 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18515" class="LineNr">18515 </span> 5a/pop-to-edx +<span id="L18516" class="LineNr">18516 </span> 58/pop-to-eax +<span id="L18517" class="LineNr">18517 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18518" class="LineNr">18518 </span> 89/<- %esp 5/r32/ebp +<span id="L18519" class="LineNr">18519 </span> 5d/pop-to-ebp +<span id="L18520" class="LineNr">18520 </span> c3/return +<span id="L18521" class="LineNr">18521 </span> +<span id="L18522" class="LineNr">18522 </span><span class="Constant">$check-next-token-is-open-curly:abort</span>: +<span id="L18523" class="LineNr">18523 </span> <span class="subxComment"># error("fn " fn ": unexpected ':'; did you forget a 'var'?")</span> +<span id="L18524" class="LineNr">18524 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L18525" class="LineNr">18525 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L18526" class="LineNr">18526 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18527" class="LineNr">18527 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L18528" class="LineNr">18528 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": unexpected ':'; did you forget a 'var'?\n"</span>) +<span id="L18529" class="LineNr">18529 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L18530" class="LineNr">18530 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L18531" class="LineNr">18531 </span> <span class="subxComment"># never gets here</span> +<span id="L18532" class="LineNr">18532 </span> +<span id="L18533" class="LineNr">18533 </span><span class="subxFunction">new-block-name</span>: <span class="subxComment"># fn: (addr function), out: (addr handle var)</span> +<span id="L18534" class="LineNr">18534 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18535" class="LineNr">18535 </span> 55/push-ebp +<span id="L18536" class="LineNr">18536 </span> 89/<- %ebp 4/r32/esp +<span id="L18537" class="LineNr">18537 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18538" class="LineNr">18538 </span> 50/push-eax +<span id="L18539" class="LineNr">18539 </span> 51/push-ecx +<span id="L18540" class="LineNr">18540 </span> 52/push-edx +<span id="L18541" class="LineNr">18541 </span> <span class="subxComment"># var n/ecx: int = len(fn->name) + 10 for an int + 2 for '$:'</span> +<span id="L18542" class="LineNr">18542 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L18543" class="LineNr">18543 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18544" class="LineNr">18544 </span> 8b/-> *eax 0/r32/eax <span class="subxComment"># String-size</span> +<span id="L18545" class="LineNr">18545 </span> 05/add-to-eax 0xd/imm32 <span class="subxComment"># 10 + 2 for '$:'</span> +<span id="L18546" class="LineNr">18546 </span> 89/<- %ecx 0/r32/eax +<span id="L18547" class="LineNr">18547 </span> <span class="subxComment"># var name/edx: (stream byte n)</span> +<span id="L18548" class="LineNr">18548 </span> 29/subtract-from %esp 1/r32/ecx +<span id="L18549" class="LineNr">18549 </span> ff 6/subop/push %ecx +<span id="L18550" class="LineNr">18550 </span> 68/push 0/imm32/read +<span id="L18551" class="LineNr">18551 </span> 68/push 0/imm32/write +<span id="L18552" class="LineNr">18552 </span> 89/<- %edx 4/r32/esp +<span id="L18553" class="LineNr">18553 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %edx) +<span id="L18554" class="LineNr">18554 </span> <span class="subxComment"># eax = fn->name</span> +<span id="L18555" class="LineNr">18555 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L18556" class="LineNr">18556 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18557" class="LineNr">18557 </span> <span class="subxComment"># construct result using Next-block-index (and increment it)</span> +<span id="L18558" class="LineNr">18558 </span> (<a href='108write.subx.html#L24'>write</a> %edx <span class="Constant">"$"</span>) +<span id="L18559" class="LineNr">18559 </span> (<a href='108write.subx.html#L24'>write</a> %edx %eax) +<span id="L18560" class="LineNr">18560 </span> (<a href='108write.subx.html#L24'>write</a> %edx <span class="Constant">":"</span>) +<span id="L18561" class="LineNr">18561 </span> (<a href='117write-int-hex.subx.html#L178'>write-int32-hex</a> %edx *<span class="SpecialChar"><a href='mu.subx.html#L15871'>Next-block-index</a></span>) +<span id="L18562" class="LineNr">18562 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15871'>Next-block-index</a></span> +<span id="L18563" class="LineNr">18563 </span> <span class="subxComment"># var s/eax: slice = {name->data, name->data + name->write} (clobbering edx)</span> +<span id="L18564" class="LineNr">18564 </span> <span class="subxS1Comment"># . eax = name->write</span> +<span id="L18565" class="LineNr">18565 </span> 8b/-> *edx 0/r32/eax +<span id="L18566" class="LineNr">18566 </span> <span class="subxS1Comment"># . edx = name->data</span> +<span id="L18567" class="LineNr">18567 </span> 8d/copy-address *(edx+0xc) 2/r32/edx +<span id="L18568" class="LineNr">18568 </span> <span class="subxS1Comment"># . eax = name->write + name->data</span> +<span id="L18569" class="LineNr">18569 </span> 01/add-to %eax 2/r32/edx +<span id="L18570" class="LineNr">18570 </span> <span class="subxS1Comment"># . push {edx, eax}</span> +<span id="L18571" class="LineNr">18571 </span> ff 6/subop/push %eax +<span id="L18572" class="LineNr">18572 </span> ff 6/subop/push %edx +<span id="L18573" class="LineNr">18573 </span> 89/<- %eax 4/r32/esp +<span id="L18574" class="LineNr">18574 </span> <span class="subxComment"># out = new literal(s)</span> +<span id="L18575" class="LineNr">18575 </span> (<a href='mu.subx.html#L20075'>new-literal</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %eax *(ebp+0xc)) +<span id="L18576" class="LineNr">18576 </span><span class="CommentedCode">#? 8b/-> *(ebp+0xc) 0/r32/eax</span> +<span id="L18577" class="LineNr">18577 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid in caller after new-literal: ")</span> +<span id="L18578" class="LineNr">18578 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(eax+8))</span> +<span id="L18579" class="LineNr">18579 </span><span class="CommentedCode">#? (write-buffered Stderr " for var ")</span> +<span id="L18580" class="LineNr">18580 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L18581" class="LineNr">18581 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L18582" class="LineNr">18582 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L18583" class="LineNr">18583 </span><span class="Constant">$new-block-name:end</span>: +<span id="L18584" class="LineNr">18584 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18585" class="LineNr">18585 </span> 81 0/subop/add %ecx 0xc/imm32 <span class="subxComment"># name.{read/write/len}</span> +<span id="L18586" class="LineNr">18586 </span> 81 0/subop/add %ecx 8/imm32 <span class="subxComment"># slice</span> +<span id="L18587" class="LineNr">18587 </span> 01/add-to %esp 1/r32/ecx +<span id="L18588" class="LineNr">18588 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18589" class="LineNr">18589 </span> 5a/pop-to-edx +<span id="L18590" class="LineNr">18590 </span> 59/pop-to-ecx +<span id="L18591" class="LineNr">18591 </span> 58/pop-to-eax +<span id="L18592" class="LineNr">18592 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18593" class="LineNr">18593 </span> 89/<- %esp 5/r32/ebp +<span id="L18594" class="LineNr">18594 </span> 5d/pop-to-ebp +<span id="L18595" class="LineNr">18595 </span> c3/return +<span id="L18596" class="LineNr">18596 </span> +<span id="L18597" class="LineNr">18597 </span><span class="subxFunction">check-no-tokens-left</span>: <span class="subxComment"># line: (addr stream byte)</span> +<span id="L18598" class="LineNr">18598 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18599" class="LineNr">18599 </span> 55/push-ebp +<span id="L18600" class="LineNr">18600 </span> 89/<- %ebp 4/r32/esp +<span id="L18601" class="LineNr">18601 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18602" class="LineNr">18602 </span> 50/push-eax +<span id="L18603" class="LineNr">18603 </span> 51/push-ecx +<span id="L18604" class="LineNr">18604 </span> <span class="subxComment"># var s/ecx: slice</span> +<span id="L18605" class="LineNr">18605 </span> 68/push 0/imm32/end +<span id="L18606" class="LineNr">18606 </span> 68/push 0/imm32/start +<span id="L18607" class="LineNr">18607 </span> 89/<- %ecx 4/r32/esp +<span id="L18608" class="LineNr">18608 </span> <span class="subxComment">#</span> +<span id="L18609" class="LineNr">18609 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L18610" class="LineNr">18610 </span> <span class="subxComment"># if slice-empty?(s) return</span> +<span id="L18611" class="LineNr">18611 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) +<span id="L18612" class="LineNr">18612 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18613" class="LineNr">18613 </span> 75/jump-if-!= $check-no-tokens-left:end/disp8 +<span id="L18614" class="LineNr">18614 </span> <span class="subxComment"># if (slice-starts-with?(s, '#') return</span> +<span id="L18615" class="LineNr">18615 </span> <span class="subxS1Comment"># . eax = *s->start</span> +<span id="L18616" class="LineNr">18616 </span> 8b/-> *edx 0/r32/eax +<span id="L18617" class="LineNr">18617 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L18618" class="LineNr">18618 </span> 25/and-eax-with 0xff/imm32 +<span id="L18619" class="LineNr">18619 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L18620" class="LineNr">18620 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L18621" class="LineNr">18621 </span> 74/jump-if-= $check-no-tokens-left:end/disp8 +<span id="L18622" class="LineNr">18622 </span> <span class="subxComment"># abort</span> +<span id="L18623" class="LineNr">18623 </span> (<a 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="L18624" class="LineNr">18624 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> %ecx) +<span id="L18625" class="LineNr">18625 </span> (<a href='113write-stream.subx.html#L17'>write-stream</a> 2 %ecx) +<span id="L18626" class="LineNr">18626 </span> (<a 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="L18627" class="LineNr">18627 </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="L18628" class="LineNr">18628 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> +<span id="L18629" class="LineNr">18629 </span> bb/copy-to-ebx 1/imm32 +<span id="L18630" class="LineNr">18630 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L18631" class="LineNr">18631 </span> <span class="subxComment"># never gets here</span> +<span id="L18632" class="LineNr">18632 </span><span class="Constant">$check-no-tokens-left:end</span>: +<span id="L18633" class="LineNr">18633 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18634" class="LineNr">18634 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18635" class="LineNr">18635 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18636" class="LineNr">18636 </span> 59/pop-to-ecx +<span id="L18637" class="LineNr">18637 </span> 58/pop-to-eax +<span id="L18638" class="LineNr">18638 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18639" class="LineNr">18639 </span> 89/<- %esp 5/r32/ebp +<span id="L18640" class="LineNr">18640 </span> 5d/pop-to-ebp +<span id="L18641" class="LineNr">18641 </span> c3/return +<span id="L18642" class="LineNr">18642 </span> +<span id="L18643" class="LineNr">18643 </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="L18644" class="LineNr">18644 </span> <span class="subxComment"># pseudocode:</span> +<span id="L18645" class="LineNr">18645 </span> <span class="subxComment"># var v: (handle var)</span> +<span id="L18646" class="LineNr">18646 </span> <span class="subxComment"># new-literal(name, v)</span> +<span id="L18647" class="LineNr">18647 </span> <span class="subxComment"># push(vars, {v, false})</span> +<span id="L18648" class="LineNr">18648 </span> <span class="subxComment"># parse-mu-block(in, vars, fn, out)</span> +<span id="L18649" class="LineNr">18649 </span> <span class="subxComment"># pop(vars)</span> +<span id="L18650" class="LineNr">18650 </span> <span class="subxComment"># out->tag = block</span> +<span id="L18651" class="LineNr">18651 </span> <span class="subxComment"># out->var = v</span> +<span id="L18652" class="LineNr">18652 </span> <span class="subxComment">#</span> +<span id="L18653" class="LineNr">18653 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18654" class="LineNr">18654 </span> 55/push-ebp +<span id="L18655" class="LineNr">18655 </span> 89/<- %ebp 4/r32/esp +<span id="L18656" class="LineNr">18656 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18657" class="LineNr">18657 </span> 50/push-eax +<span id="L18658" class="LineNr">18658 </span> 51/push-ecx +<span id="L18659" class="LineNr">18659 </span> 57/push-edi +<span id="L18660" class="LineNr">18660 </span> <span class="subxComment"># var v/ecx: (handle var)</span> +<span id="L18661" class="LineNr">18661 </span> 68/push 0/imm32 +<span id="L18662" class="LineNr">18662 </span> 68/push 0/imm32 +<span id="L18663" class="LineNr">18663 </span> 89/<- %ecx 4/r32/esp +<span id="L18664" class="LineNr">18664 </span> <span class="subxComment">#</span> +<span id="L18665" class="LineNr">18665 </span> (<a href='mu.subx.html#L20075'>new-literal</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) %ecx) +<span id="L18666" class="LineNr">18666 </span> <span class="subxComment"># push(vars, v)</span> +<span id="L18667" class="LineNr">18667 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *ecx) +<span id="L18668" class="LineNr">18668 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) +<span id="L18669" class="LineNr">18669 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> +<span id="L18670" class="LineNr">18670 </span> <span class="subxComment">#</span> +<span id="L18671" class="LineNr">18671 </span> (<a href='mu.subx.html#L18273'>parse-mu-block</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c) *(ebp+0x20)) +<span id="L18672" class="LineNr">18672 </span> <span class="subxComment"># pop v off vars</span> +<span id="L18673" class="LineNr">18673 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L18674" class="LineNr">18674 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L18675" class="LineNr">18675 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L18676" class="LineNr">18676 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> +<span id="L18677" class="LineNr">18677 </span> 8b/-> *(ebp+0x18) 7/r32/edi +<span id="L18678" class="LineNr">18678 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L18679" class="LineNr">18679 </span> 89/<- %edi 0/r32/eax +<span id="L18680" class="LineNr">18680 </span> <span class="subxComment"># out-addr->tag = named-block</span> +<span id="L18681" class="LineNr">18681 </span> c7 0/subop/copy *edi 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L18682" class="LineNr">18682 </span> <span class="subxComment"># out-addr->var = v</span> +<span id="L18683" class="LineNr">18683 </span> 8b/-> *ecx 0/r32/eax +<span id="L18684" class="LineNr">18684 </span> 89/<- *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> +<span id="L18685" class="LineNr">18685 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L18686" class="LineNr">18686 </span> 89/<- *(edi+0x10) 0/r32/eax <span class="subxComment"># Block-var</span> +<span id="L18687" class="LineNr">18687 </span><span class="Constant">$parse-mu-named-block:end</span>: +<span id="L18688" class="LineNr">18688 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18689" class="LineNr">18689 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18690" class="LineNr">18690 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18691" class="LineNr">18691 </span> 5f/pop-to-edi +<span id="L18692" class="LineNr">18692 </span> 59/pop-to-ecx +<span id="L18693" class="LineNr">18693 </span> 58/pop-to-eax +<span id="L18694" class="LineNr">18694 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18695" class="LineNr">18695 </span> 89/<- %esp 5/r32/ebp +<span id="L18696" class="LineNr">18696 </span> 5d/pop-to-ebp +<span id="L18697" class="LineNr">18697 </span> c3/return +<span id="L18698" class="LineNr">18698 </span> +<span id="L18699" class="LineNr">18699 </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="L18700" class="LineNr">18700 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18701" class="LineNr">18701 </span> 55/push-ebp +<span id="L18702" class="LineNr">18702 </span> 89/<- %ebp 4/r32/esp +<span id="L18703" class="LineNr">18703 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18704" class="LineNr">18704 </span> 50/push-eax +<span id="L18705" class="LineNr">18705 </span> 51/push-ecx +<span id="L18706" class="LineNr">18706 </span> 52/push-edx +<span id="L18707" class="LineNr">18707 </span> 56/push-esi +<span id="L18708" class="LineNr">18708 </span> 57/push-edi +<span id="L18709" class="LineNr">18709 </span> <span class="subxComment"># edi = out</span> +<span id="L18710" class="LineNr">18710 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L18711" class="LineNr">18711 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L18712" class="LineNr">18712 </span> 68/push 0/imm32/end +<span id="L18713" class="LineNr">18713 </span> 68/push 0/imm32/start +<span id="L18714" class="LineNr">18714 </span> 89/<- %ecx 4/r32/esp +<span id="L18715" class="LineNr">18715 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L18716" class="LineNr">18716 </span> 68/push 0/imm32 +<span id="L18717" class="LineNr">18717 </span> 68/push 0/imm32 +<span id="L18718" class="LineNr">18718 </span> 89/<- %edx 4/r32/esp +<span id="L18719" class="LineNr">18719 </span> <span class="subxComment"># v = parse-var-with-type(next-mu-token(line))</span> +<span id="L18720" class="LineNr">18720 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L18721" class="LineNr">18721 </span> { +<span id="L18722" class="LineNr">18722 </span> <span class="subxComment"># just for tests, support null fn</span> +<span id="L18723" class="LineNr">18723 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18724" class="LineNr">18724 </span> 3d/compare-eax-and 0/imm32 +<span id="L18725" class="LineNr">18725 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18726" class="LineNr">18726 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18727" class="LineNr">18727 </span> } +<span id="L18728" class="LineNr">18728 </span> (<a href='mu.subx.html#L17108'>parse-var-with-type</a> %ecx *(ebp+8) %edx %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L18729" class="LineNr">18729 </span> <span class="subxComment"># var v-addr/esi: (addr var)</span> +<span id="L18730" class="LineNr">18730 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L18731" class="LineNr">18731 </span> 89/<- %esi 0/r32/eax +<span id="L18732" class="LineNr">18732 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> +<span id="L18733" class="LineNr">18733 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/r32/eax +<span id="L18734" class="LineNr">18734 </span> 89/<- *(esi+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L18735" class="LineNr">18735 </span> <span class="subxComment"># either v has no register and there's no more to this line</span> +<span id="L18736" class="LineNr">18736 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 +<span id="L18737" class="LineNr">18737 </span> { +<span id="L18738" class="LineNr">18738 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L18739" class="LineNr">18739 </span> <span class="subxComment"># if v-addr->type == byte, abort</span> +<span id="L18740" class="LineNr">18740 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18741" class="LineNr">18741 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L18742" class="LineNr">18742 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18743" class="LineNr">18743 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-on-stack/disp32 +<span id="L18744" class="LineNr">18744 </span> <span class="subxComment"># ensure that there's nothing else on this line</span> +<span id="L18745" class="LineNr">18745 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L18746" class="LineNr">18746 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L18747" class="LineNr">18747 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18748" class="LineNr">18748 </span> 0f 84/jump-if-= $parse-mu-var-def:error2/disp32 +<span id="L18749" class="LineNr">18749 </span> <span class="subxComment">#</span> +<span id="L18750" class="LineNr">18750 </span> (<a href='mu.subx.html#L20179'>new-var-def</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) +<span id="L18751" class="LineNr">18751 </span> e9/jump $parse-mu-var-def:update-vars/disp32 +<span id="L18752" class="LineNr">18752 </span> } +<span id="L18753" class="LineNr">18753 </span> <span class="subxComment"># or v has a register and there's more to this line</span> +<span id="L18754" class="LineNr">18754 </span> { +<span id="L18755" class="LineNr">18755 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L18756" class="LineNr">18756 </span> <span class="subxComment"># if v-addr->type == byte, check for unsupported registers</span> +<span id="L18757" class="LineNr">18757 </span> { +<span id="L18758" class="LineNr">18758 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18759" class="LineNr">18759 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L18760" class="LineNr">18760 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18761" class="LineNr">18761 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18762" class="LineNr">18762 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> +<span id="L18763" class="LineNr">18763 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"esi"</span>) <span class="subxComment"># => eax</span> +<span id="L18764" class="LineNr">18764 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18765" class="LineNr">18765 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 +<span id="L18766" class="LineNr">18766 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> +<span id="L18767" class="LineNr">18767 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"edi"</span>) <span class="subxComment"># => eax</span> +<span id="L18768" class="LineNr">18768 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18769" class="LineNr">18769 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 +<span id="L18770" class="LineNr">18770 </span> } +<span id="L18771" class="LineNr">18771 </span> <span class="subxComment"># TODO: vars of type 'byte' should only be initialized by clearing to 0</span> +<span id="L18772" class="LineNr">18772 </span> <span class="subxComment"># ensure that the next word is '<-'</span> +<span id="L18773" class="LineNr">18773 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L18774" class="LineNr">18774 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> +<span id="L18775" class="LineNr">18775 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18776" class="LineNr">18776 </span> 0f 84/jump-if-= $parse-mu-var-def:error1/disp32 +<span id="L18777" class="LineNr">18777 </span> <span class="subxComment">#</span> +<span id="L18778" class="LineNr">18778 </span> (<a href='mu.subx.html#L20207'>new-reg-var-def</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) +<span id="L18779" class="LineNr">18779 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L18780" class="LineNr">18780 </span> (<a href='mu.subx.html#L19080'>add-operation-and-inputs-to-stmt</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18781" class="LineNr">18781 </span> } +<span id="L18782" class="LineNr">18782 </span><span class="Constant">$parse-mu-var-def:update-vars</span>: +<span id="L18783" class="LineNr">18783 </span> <span class="subxComment"># push 'v' at end of function</span> +<span id="L18784" class="LineNr">18784 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *edx) +<span id="L18785" class="LineNr">18785 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edx+4)) +<span id="L18786" class="LineNr">18786 </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="L18787" class="LineNr">18787 </span><span class="Constant">$parse-mu-var-def:end</span>: +<span id="L18788" class="LineNr">18788 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18789" class="LineNr">18789 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L18790" class="LineNr">18790 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18791" class="LineNr">18791 </span> 5f/pop-to-edi +<span id="L18792" class="LineNr">18792 </span> 5e/pop-to-esi +<span id="L18793" class="LineNr">18793 </span> 5a/pop-to-edx +<span id="L18794" class="LineNr">18794 </span> 59/pop-to-ecx +<span id="L18795" class="LineNr">18795 </span> 58/pop-to-eax +<span id="L18796" class="LineNr">18796 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18797" class="LineNr">18797 </span> 89/<- %esp 5/r32/ebp +<span id="L18798" class="LineNr">18798 </span> 5d/pop-to-ebp +<span id="L18799" class="LineNr">18799 </span> c3/return +<span id="L18800" class="LineNr">18800 </span> +<span id="L18801" class="LineNr">18801 </span><span class="Constant">$parse-mu-var-def:error1</span>: +<span id="L18802" class="LineNr">18802 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L18803" class="LineNr">18803 </span> <span class="subxComment"># error("register variable requires a valid instruction to initialize but got '" line "'\n")</span> +<span id="L18804" class="LineNr">18804 </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="L18805" class="LineNr">18805 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18806" class="LineNr">18806 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+8)) +<span id="L18807" class="LineNr">18807 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L18808" class="LineNr">18808 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18809" class="LineNr">18809 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18810" class="LineNr">18810 </span> <span class="subxComment"># never gets here</span> +<span id="L18811" class="LineNr">18811 </span> +<span id="L18812" class="LineNr">18812 </span><span class="Constant">$parse-mu-var-def:error2</span>: +<span id="L18813" class="LineNr">18813 </span> <span class="subxComment"># error("fn " fn ": var " var ": variables on the stack can't take an initializer\n")</span> +<span id="L18814" class="LineNr">18814 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18815" class="LineNr">18815 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18816" class="LineNr">18816 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18817" class="LineNr">18817 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18818" class="LineNr">18818 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var "</span>) +<span id="L18819" class="LineNr">18819 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> +<span id="L18820" class="LineNr">18820 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L18821" class="LineNr">18821 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18822" class="LineNr">18822 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18823" class="LineNr">18823 </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="L18824" class="LineNr">18824 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18825" class="LineNr">18825 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18826" class="LineNr">18826 </span> <span class="subxComment"># never gets here</span> +<span id="L18827" class="LineNr">18827 </span> +<span id="L18828" class="LineNr">18828 </span><span class="Constant">$parse-mu-var-def:error-byte-on-stack</span>: +<span id="L18829" class="LineNr">18829 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be on the stack\n")</span> +<span id="L18830" class="LineNr">18830 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18831" class="LineNr">18831 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18832" class="LineNr">18832 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18833" class="LineNr">18833 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18834" class="LineNr">18834 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) +<span id="L18835" class="LineNr">18835 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> +<span id="L18836" class="LineNr">18836 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L18837" class="LineNr">18837 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18838" class="LineNr">18838 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18839" class="LineNr">18839 </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="L18840" class="LineNr">18840 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18841" class="LineNr">18841 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18842" class="LineNr">18842 </span> <span class="subxComment"># never gets here</span> +<span id="L18843" class="LineNr">18843 </span> +<span id="L18844" class="LineNr">18844 </span><span class="Constant">$parse-mu-var-def:error-byte-registers</span>: +<span id="L18845" class="LineNr">18845 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be in esi or edi\n")</span> +<span id="L18846" class="LineNr">18846 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18847" class="LineNr">18847 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18848" class="LineNr">18848 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18849" class="LineNr">18849 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18850" class="LineNr">18850 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) +<span id="L18851" class="LineNr">18851 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> +<span id="L18852" class="LineNr">18852 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L18853" class="LineNr">18853 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18854" class="LineNr">18854 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18855" class="LineNr">18855 </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="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="subxTest">test-parse-mu-var-def</span>: +<span id="L18861" class="LineNr">18861 </span> <span class="subxComment"># 'var n: int'</span> +<span id="L18862" class="LineNr">18862 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18863" class="LineNr">18863 </span> 55/push-ebp +<span id="L18864" class="LineNr">18864 </span> 89/<- %ebp 4/r32/esp +<span id="L18865" class="LineNr">18865 </span> <span class="subxComment"># setup</span> +<span id="L18866" class="LineNr">18866 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L18867" class="LineNr">18867 </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="L18868" class="LineNr">18868 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L18869" class="LineNr">18869 </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="L18870" class="LineNr">18870 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 1/imm32 +<span id="L18871" class="LineNr">18871 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> +<span id="L18872" class="LineNr">18872 </span> 68/push 0/imm32 +<span id="L18873" class="LineNr">18873 </span> 68/push 0/imm32 +<span id="L18874" class="LineNr">18874 </span> 89/<- %esi 4/r32/esp +<span id="L18875" class="LineNr">18875 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L18876" class="LineNr">18876 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L18877" class="LineNr">18877 </span> 68/push 0xc0/imm32/size +<span id="L18878" class="LineNr">18878 </span> 68/push 0/imm32/top +<span id="L18879" class="LineNr">18879 </span> 89/<- %ecx 4/r32/esp +<span id="L18880" class="LineNr">18880 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L18881" class="LineNr">18881 </span> <span class="subxComment"># convert</span> +<span id="L18882" class="LineNr">18882 </span> (<a href='mu.subx.html#L18699'>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="L18883" class="LineNr">18883 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> +<span id="L18884" class="LineNr">18884 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L18885" class="LineNr">18885 </span> 89/<- %esi 0/r32/eax +<span id="L18886" class="LineNr">18886 </span> <span class="subxComment">#</span> +<span id="L18887" class="LineNr">18887 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *esi 2 <span class="Constant">"F - <a href='mu.subx.html#L18860'>test-parse-mu-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is var-def</span> +<span id="L18888" class="LineNr">18888 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->var)</span> +<span id="L18889" class="LineNr">18889 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> +<span id="L18890" class="LineNr">18890 </span> 89/<- %ecx 0/r32/eax +<span id="L18891" class="LineNr">18891 </span> <span class="subxComment"># v->name</span> +<span id="L18892" class="LineNr">18892 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18893" class="LineNr">18893 </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#L18860'>test-parse-mu-var-def</a>/var-name"</span>) +<span id="L18894" class="LineNr">18894 </span> <span class="subxComment"># v->register</span> +<span id="L18895" class="LineNr">18895 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L18860'>test-parse-mu-var-def</a>/var-register"</span>) <span class="subxComment"># Var-register</span> +<span id="L18896" class="LineNr">18896 </span> <span class="subxComment"># v->block-depth</span> +<span id="L18897" class="LineNr">18897 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L18860'>test-parse-mu-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> +<span id="L18898" class="LineNr">18898 </span> <span class="subxComment"># v->type == int</span> +<span id="L18899" class="LineNr">18899 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18900" class="LineNr">18900 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L18860'>test-parse-mu-var-def</a>/var-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L18901" class="LineNr">18901 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L18860'>test-parse-mu-var-def</a>/var-type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L18902" class="LineNr">18902 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L18860'>test-parse-mu-var-def</a>/var-type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L18903" class="LineNr">18903 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18904" class="LineNr">18904 </span> 89/<- %esp 5/r32/ebp +<span id="L18905" class="LineNr">18905 </span> 5d/pop-to-ebp +<span id="L18906" class="LineNr">18906 </span> c3/return +<span id="L18907" class="LineNr">18907 </span> +<span id="L18908" class="LineNr">18908 </span><span class="subxTest">test-parse-mu-reg-var-def</span>: +<span id="L18909" class="LineNr">18909 </span> <span class="subxComment"># 'var n/eax: int <- copy 0'</span> +<span id="L18910" class="LineNr">18910 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18911" class="LineNr">18911 </span> 55/push-ebp +<span id="L18912" class="LineNr">18912 </span> 89/<- %ebp 4/r32/esp +<span id="L18913" class="LineNr">18913 </span> <span class="subxComment"># setup</span> +<span id="L18914" class="LineNr">18914 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L18915" class="LineNr">18915 </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="L18916" class="LineNr">18916 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L18917" class="LineNr">18917 </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="L18918" class="LineNr">18918 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 1/imm32 +<span id="L18919" class="LineNr">18919 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> +<span id="L18920" class="LineNr">18920 </span> 68/push 0/imm32 +<span id="L18921" class="LineNr">18921 </span> 68/push 0/imm32 +<span id="L18922" class="LineNr">18922 </span> 89/<- %esi 4/r32/esp +<span id="L18923" class="LineNr">18923 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L18924" class="LineNr">18924 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L18925" class="LineNr">18925 </span> 68/push 0xc0/imm32/size +<span id="L18926" class="LineNr">18926 </span> 68/push 0/imm32/top +<span id="L18927" class="LineNr">18927 </span> 89/<- %ecx 4/r32/esp +<span id="L18928" class="LineNr">18928 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L18929" class="LineNr">18929 </span> <span class="subxComment"># convert</span> +<span id="L18930" class="LineNr">18930 </span> (<a href='mu.subx.html#L18699'>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="L18931" class="LineNr">18931 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> +<span id="L18932" class="LineNr">18932 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L18933" class="LineNr">18933 </span> 89/<- %esi 0/r32/eax +<span id="L18934" class="LineNr">18934 </span> <span class="subxComment">#</span> +<span id="L18935" class="LineNr">18935 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *esi 3 <span class="Constant">"F - <a href='mu.subx.html#L18908'>test-parse-mu-reg-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is reg-var-def</span> +<span id="L18936" class="LineNr">18936 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->outputs->value)</span> +<span id="L18937" class="LineNr">18937 </span> <span class="subxS1Comment"># . eax: (addr stmt-var) = lookup(out->outputs)</span> +<span id="L18938" class="LineNr">18938 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> +<span id="L18939" class="LineNr">18939 </span> <span class="subxS1Comment"># .</span> +<span id="L18940" class="LineNr">18940 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+8) 0 <span class="Constant">"F - <a href='mu.subx.html#L18908'>test-parse-mu-reg-var-def</a>/single-output"</span>) <span class="subxComment"># Stmt-var-next</span> +<span id="L18941" class="LineNr">18941 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(eax->value)</span> +<span id="L18942" class="LineNr">18942 </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="L18943" class="LineNr">18943 </span> <span class="subxS1Comment"># . ecx = eax</span> +<span id="L18944" class="LineNr">18944 </span> 89/<- %ecx 0/r32/eax +<span id="L18945" class="LineNr">18945 </span> <span class="subxComment"># v->name</span> +<span id="L18946" class="LineNr">18946 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18947" class="LineNr">18947 </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#L18908'>test-parse-mu-reg-var-def</a>/output-name"</span>) <span class="subxComment"># Var-name</span> +<span id="L18948" class="LineNr">18948 </span> <span class="subxComment"># v->register</span> +<span id="L18949" class="LineNr">18949 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L18950" class="LineNr">18950 </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#L18908'>test-parse-mu-reg-var-def</a>/output-register"</span>) +<span id="L18951" class="LineNr">18951 </span> <span class="subxComment"># v->block-depth</span> +<span id="L18952" class="LineNr">18952 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L18908'>test-parse-mu-reg-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> +<span id="L18953" class="LineNr">18953 </span> <span class="subxComment"># v->type == int</span> +<span id="L18954" class="LineNr">18954 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18955" class="LineNr">18955 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L18908'>test-parse-mu-reg-var-def</a>/output-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L18956" class="LineNr">18956 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L18908'>test-parse-mu-reg-var-def</a>/output-type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L18957" class="LineNr">18957 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L18908'>test-parse-mu-reg-var-def</a>/output-type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L18958" class="LineNr">18958 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18959" class="LineNr">18959 </span> 89/<- %esp 5/r32/ebp +<span id="L18960" class="LineNr">18960 </span> 5d/pop-to-ebp +<span id="L18961" class="LineNr">18961 </span> c3/return +<span id="L18962" class="LineNr">18962 </span> +<span id="L18963" class="LineNr">18963 </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="L18964" class="LineNr">18964 </span> <span class="subxComment"># pseudocode:</span> +<span id="L18965" class="LineNr">18965 </span> <span class="subxComment"># var name: slice</span> +<span id="L18966" class="LineNr">18966 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> +<span id="L18967" class="LineNr">18967 </span> <span class="subxComment"># var out-addr: (addr stmt) = lookup(*out)</span> +<span id="L18968" class="LineNr">18968 </span> <span class="subxComment"># out-addr->tag = stmt</span> +<span id="L18969" class="LineNr">18969 </span> <span class="subxComment"># if stmt-has-outputs?(line)</span> +<span id="L18970" class="LineNr">18970 </span> <span class="subxComment"># while true</span> +<span id="L18971" class="LineNr">18971 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L18972" class="LineNr">18972 </span> <span class="subxComment"># if (name == '<-') break</span> +<span id="L18973" class="LineNr">18973 </span> <span class="subxComment"># assert(identifier?(name))</span> +<span id="L18974" class="LineNr">18974 </span> <span class="subxComment"># var v: (handle var) = lookup-var(name, vars)</span> +<span id="L18975" class="LineNr">18975 </span> <span class="subxComment"># out-addr->outputs = append(v, out-addr->outputs)</span> +<span id="L18976" class="LineNr">18976 </span> <span class="subxComment"># add-operation-and-inputs-to-stmt(out-addr, line, vars)</span> +<span id="L18977" class="LineNr">18977 </span> <span class="subxComment">#</span> +<span id="L18978" class="LineNr">18978 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18979" class="LineNr">18979 </span> 55/push-ebp +<span id="L18980" class="LineNr">18980 </span> 89/<- %ebp 4/r32/esp +<span id="L18981" class="LineNr">18981 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18982" class="LineNr">18982 </span> 50/push-eax +<span id="L18983" class="LineNr">18983 </span> 51/push-ecx +<span id="L18984" class="LineNr">18984 </span> 52/push-edx +<span id="L18985" class="LineNr">18985 </span> 53/push-ebx +<span id="L18986" class="LineNr">18986 </span> 57/push-edi +<span id="L18987" class="LineNr">18987 </span> <span class="subxComment"># var name/ecx: slice</span> +<span id="L18988" class="LineNr">18988 </span> 68/push 0/imm32/end +<span id="L18989" class="LineNr">18989 </span> 68/push 0/imm32/start +<span id="L18990" class="LineNr">18990 </span> 89/<- %ecx 4/r32/esp +<span id="L18991" class="LineNr">18991 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> +<span id="L18992" class="LineNr">18992 </span> ba/copy-to-edx 0/imm32/false +<span id="L18993" class="LineNr">18993 </span> <span class="subxComment"># var v: (handle var)</span> +<span id="L18994" class="LineNr">18994 </span> 68/push 0/imm32 +<span id="L18995" class="LineNr">18995 </span> 68/push 0/imm32 +<span id="L18996" class="LineNr">18996 </span> 89/<- %ebx 4/r32/esp +<span id="L18997" class="LineNr">18997 </span> <span class="subxComment">#</span> +<span id="L18998" class="LineNr">18998 </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="L18999" class="LineNr">18999 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> +<span id="L19000" class="LineNr">19000 </span> 8b/-> *(ebp+0x14) 7/r32/edi +<span id="L19001" class="LineNr">19001 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L19002" class="LineNr">19002 </span> 89/<- %edi 0/r32/eax +<span id="L19003" class="LineNr">19003 </span> <span class="subxComment"># out-addr->tag = 1/stmt</span> +<span id="L19004" class="LineNr">19004 </span> c7 0/subop/copy *edi 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L19005" class="LineNr">19005 </span> { +<span id="L19006" class="LineNr">19006 </span> (<a href='mu.subx.html#L19244'>stmt-has-outputs?</a> *(ebp+8)) +<span id="L19007" class="LineNr">19007 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19008" class="LineNr">19008 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L19009" class="LineNr">19009 </span> { +<span id="L19010" class="LineNr">19010 </span><span class="Constant">$parse-mu-stmt:read-outputs</span>: +<span id="L19011" class="LineNr">19011 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L19012" class="LineNr">19012 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L19013" class="LineNr">19013 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L19014" class="LineNr">19014 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L19015" class="LineNr">19015 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19016" class="LineNr">19016 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L19017" class="LineNr">19017 </span> <span class="subxComment"># if (name == "<-") break</span> +<span id="L19018" class="LineNr">19018 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> +<span id="L19019" class="LineNr">19019 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19020" class="LineNr">19020 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L19021" class="LineNr">19021 </span> <span class="subxComment"># if slice-starts-with?(name, "*") abort</span> +<span id="L19022" class="LineNr">19022 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> +<span id="L19023" class="LineNr">19023 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L19024" class="LineNr">19024 </span> 25/and-eax-with 0xff/imm32 +<span id="L19025" class="LineNr">19025 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L19026" class="LineNr">19026 </span> 0f 84/jump-if-= $parse-mu-stmt:error-output-dereferenced/disp32 +<span id="L19027" class="LineNr">19027 </span> <span class="subxComment"># assert(identifier?(name))</span> +<span id="L19028" class="LineNr">19028 </span> (<a href='mu.subx.html#L17949'>identifier?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L19029" class="LineNr">19029 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19030" class="LineNr">19030 </span> 0f 84/jump-if-= $parse-mu-stmt:abort/disp32 +<span id="L19031" class="LineNr">19031 </span> <span class="subxComment">#</span> +<span id="L19032" class="LineNr">19032 </span> (<a href='mu.subx.html#L19355'>lookup-var</a> %ecx *(ebp+0xc) %ebx *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) +<span id="L19033" class="LineNr">19033 </span> 8d/copy-address *(edi+0x14) 0/r32/eax <span class="subxComment"># Stmt1-outputs</span> +<span id="L19034" class="LineNr">19034 </span> (<a href='mu.subx.html#L20290'>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="L19035" class="LineNr">19035 </span> <span class="subxComment">#</span> +<span id="L19036" class="LineNr">19036 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L19037" class="LineNr">19037 </span> } +<span id="L19038" class="LineNr">19038 </span> } +<span id="L19039" class="LineNr">19039 </span> (<a href='mu.subx.html#L19080'>add-operation-and-inputs-to-stmt</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) +<span id="L19040" class="LineNr">19040 </span><span class="Constant">$parse-mu-stmt:end</span>: +<span id="L19041" class="LineNr">19041 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19042" class="LineNr">19042 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L19043" class="LineNr">19043 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19044" class="LineNr">19044 </span> 5f/pop-to-edi +<span id="L19045" class="LineNr">19045 </span> 5b/pop-to-ebx +<span id="L19046" class="LineNr">19046 </span> 5a/pop-to-edx +<span id="L19047" class="LineNr">19047 </span> 59/pop-to-ecx +<span id="L19048" class="LineNr">19048 </span> 58/pop-to-eax +<span id="L19049" class="LineNr">19049 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19050" class="LineNr">19050 </span> 89/<- %esp 5/r32/ebp +<span id="L19051" class="LineNr">19051 </span> 5d/pop-to-ebp +<span id="L19052" class="LineNr">19052 </span> c3/return +<span id="L19053" class="LineNr">19053 </span> +<span id="L19054" class="LineNr">19054 </span><span class="Constant">$parse-mu-stmt:abort</span>: +<span id="L19055" class="LineNr">19055 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> +<span id="L19056" class="LineNr">19056 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19057" class="LineNr">19057 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L19058" class="LineNr">19058 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19059" class="LineNr">19059 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19060" class="LineNr">19060 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier '"</span>) +<span id="L19061" class="LineNr">19061 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) +<span id="L19062" class="LineNr">19062 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L19063" class="LineNr">19063 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19064" class="LineNr">19064 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19065" class="LineNr">19065 </span> <span class="subxComment"># never gets here</span> +<span id="L19066" class="LineNr">19066 </span> +<span id="L19067" class="LineNr">19067 </span><span class="Constant">$parse-mu-stmt:error-output-dereferenced</span>: +<span id="L19068" class="LineNr">19068 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> +<span id="L19069" class="LineNr">19069 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19070" class="LineNr">19070 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L19071" class="LineNr">19071 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19072" class="LineNr">19072 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19073" class="LineNr">19073 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": output '"</span>) +<span id="L19074" class="LineNr">19074 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) +<span id="L19075" class="LineNr">19075 </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="L19076" class="LineNr">19076 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19077" class="LineNr">19077 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19078" class="LineNr">19078 </span> <span class="subxComment"># never gets here</span> +<span id="L19079" class="LineNr">19079 </span> +<span id="L19080" class="LineNr">19080 </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="L19081" class="LineNr">19081 </span> <span class="subxComment"># pseudocode:</span> +<span id="L19082" class="LineNr">19082 </span> <span class="subxComment"># stmt->name = slice-to-string(next-mu-token(line))</span> +<span id="L19083" class="LineNr">19083 </span> <span class="subxComment"># while true</span> +<span id="L19084" class="LineNr">19084 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L19085" class="LineNr">19085 </span> <span class="subxComment"># v = lookup-var-or-literal(name)</span> +<span id="L19086" class="LineNr">19086 </span> <span class="subxComment"># stmt->inouts = append(v, stmt->inouts)</span> +<span id="L19087" class="LineNr">19087 </span> <span class="subxComment">#</span> +<span id="L19088" class="LineNr">19088 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19089" class="LineNr">19089 </span> 55/push-ebp +<span id="L19090" class="LineNr">19090 </span> 89/<- %ebp 4/r32/esp +<span id="L19091" class="LineNr">19091 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19092" class="LineNr">19092 </span> 50/push-eax +<span id="L19093" class="LineNr">19093 </span> 51/push-ecx +<span id="L19094" class="LineNr">19094 </span> 52/push-edx +<span id="L19095" class="LineNr">19095 </span> 53/push-ebx +<span id="L19096" class="LineNr">19096 </span> 56/push-esi +<span id="L19097" class="LineNr">19097 </span> 57/push-edi +<span id="L19098" class="LineNr">19098 </span> <span class="subxComment"># edi = stmt</span> +<span id="L19099" class="LineNr">19099 </span> 8b/-> *(ebp+8) 7/r32/edi +<span id="L19100" class="LineNr">19100 </span> <span class="subxComment"># var name/ecx: slice</span> +<span id="L19101" class="LineNr">19101 </span> 68/push 0/imm32/end +<span id="L19102" class="LineNr">19102 </span> 68/push 0/imm32/start +<span id="L19103" class="LineNr">19103 </span> 89/<- %ecx 4/r32/esp +<span id="L19104" class="LineNr">19104 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> +<span id="L19105" class="LineNr">19105 </span> ba/copy-to-edx 0/imm32/false +<span id="L19106" class="LineNr">19106 </span> <span class="subxComment"># var v/esi: (handle var)</span> +<span id="L19107" class="LineNr">19107 </span> 68/push 0/imm32 +<span id="L19108" class="LineNr">19108 </span> 68/push 0/imm32 +<span id="L19109" class="LineNr">19109 </span> 89/<- %esi 4/r32/esp +<span id="L19110" class="LineNr">19110 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-operation</span>: +<span id="L19111" class="LineNr">19111 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+0xc) %ecx) +<span id="L19112" class="LineNr">19112 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation or Regvardef-operationStmt1-operation or Regvardef-operation</span> +<span id="L19113" class="LineNr">19113 </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="L19114" class="LineNr">19114 </span> <span class="subxComment"># var is-get?/ebx: boolean = (name == "get")</span> +<span id="L19115" class="LineNr">19115 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L19116" class="LineNr">19116 </span> 89/<- %ebx 0/r32/eax +<span id="L19117" class="LineNr">19117 </span> { +<span id="L19118" class="LineNr">19118 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-inouts</span>: +<span id="L19119" class="LineNr">19119 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L19120" class="LineNr">19120 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+0xc) %ecx) +<span id="L19121" class="LineNr">19121 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L19122" class="LineNr">19122 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L19123" class="LineNr">19123 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19124" class="LineNr">19124 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L19125" class="LineNr">19125 </span> <span class="subxComment"># if (name == "<-") abort</span> +<span id="L19126" class="LineNr">19126 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) +<span id="L19127" class="LineNr">19127 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19128" class="LineNr">19128 </span> 0f 85/jump-if-!= $add-operation-and-inputs-to-stmt:abort/disp32 +<span id="L19129" class="LineNr">19129 </span> <span class="subxComment"># if (get? && second operand) lookup or create offset</span> +<span id="L19130" class="LineNr">19130 </span> { +<span id="L19131" class="LineNr">19131 </span> 81 7/subop/compare %ebx 0/imm32/false +<span id="L19132" class="LineNr">19132 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19133" class="LineNr">19133 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L19134" class="LineNr">19134 </span> 3d/compare-eax-and 0/imm32 +<span id="L19135" class="LineNr">19135 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19136" class="LineNr">19136 </span> (<a href='mu.subx.html#L20375'>lookup-or-create-constant</a> %eax %ecx %esi) +<span id="L19137" class="LineNr">19137 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> +<span id="L19138" class="LineNr">19138 </span><span class="CommentedCode">#? (write-buffered Stderr "creating new output var ")</span> +<span id="L19139" class="LineNr">19139 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L19140" class="LineNr">19140 </span><span class="CommentedCode">#? (write-buffered Stderr " for field called ")</span> +<span id="L19141" class="LineNr">19141 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> +<span id="L19142" class="LineNr">19142 </span><span class="CommentedCode">#? (write-buffered Stderr "; var name ")</span> +<span id="L19143" class="LineNr">19143 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> +<span id="L19144" class="LineNr">19144 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L19145" class="LineNr">19145 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L19146" class="LineNr">19146 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L19147" class="LineNr">19147 </span> e9/jump $add-operation-and-inputs-to-stmt:save-var/disp32 +<span id="L19148" class="LineNr">19148 </span> } +<span id="L19149" class="LineNr">19149 </span> <span class="subxComment"># is-deref? = false</span> +<span id="L19150" class="LineNr">19150 </span> ba/copy-to-edx 0/imm32/false +<span id="L19151" class="LineNr">19151 </span> <span class="subxComment"># if (slice-starts-with?(name, '*')) ++name->start and set is-deref?</span> +<span id="L19152" class="LineNr">19152 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> +<span id="L19153" class="LineNr">19153 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L19154" class="LineNr">19154 </span> 25/and-eax-with 0xff/imm32 +<span id="L19155" class="LineNr">19155 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L19156" class="LineNr">19156 </span> { +<span id="L19157" class="LineNr">19157 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L19158" class="LineNr">19158 </span><span class="Constant">$add-operation-and-inputs-to-stmt:inout-is-deref</span>: +<span id="L19159" class="LineNr">19159 </span> ff 0/subop/increment *ecx +<span id="L19160" class="LineNr">19160 </span> ba/copy-to-edx 1/imm32/true +<span id="L19161" class="LineNr">19161 </span> } +<span id="L19162" class="LineNr">19162 </span> (<a href='mu.subx.html#L19292'>lookup-var-or-literal</a> %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L19163" class="LineNr">19163 </span> <span class="subxComment"># if (deref?) some additional checks</span> +<span id="L19164" class="LineNr">19164 </span> 81 7/subop/compare %edx 0/imm32/false +<span id="L19165" class="LineNr">19165 </span> { +<span id="L19166" class="LineNr">19166 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19167" class="LineNr">19167 </span> <span class="subxComment"># if var is not in register, abort</span> +<span id="L19168" class="LineNr">19168 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L19169" class="LineNr">19169 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L19170" class="LineNr">19170 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-on-stack/disp32 +<span id="L19171" class="LineNr">19171 </span> <span class="subxComment"># if var is not an address, abort</span> +<span id="L19172" class="LineNr">19172 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L19173" class="LineNr">19173 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L19174" class="LineNr">19174 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19175" class="LineNr">19175 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-non-addr/disp32 +<span id="L19176" class="LineNr">19176 </span> } +<span id="L19177" class="LineNr">19177 </span><span class="Constant">$add-operation-and-inputs-to-stmt:save-var</span>: +<span id="L19178" class="LineNr">19178 </span> 8d/copy-address *(edi+0xc) 0/r32/eax +<span id="L19179" class="LineNr">19179 </span> (<a href='mu.subx.html#L20290'>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="L19180" class="LineNr">19180 </span> <span class="subxComment">#</span> +<span id="L19181" class="LineNr">19181 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L19182" class="LineNr">19182 </span> } +<span id="L19183" class="LineNr">19183 </span><span class="Constant">$add-operation-and-inputs-to-stmt:end</span>: +<span id="L19184" class="LineNr">19184 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19185" class="LineNr">19185 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L19186" class="LineNr">19186 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19187" class="LineNr">19187 </span> 5f/pop-to-edi +<span id="L19188" class="LineNr">19188 </span> 5e/pop-to-esi +<span id="L19189" class="LineNr">19189 </span> 5b/pop-to-ebx +<span id="L19190" class="LineNr">19190 </span> 5a/pop-to-edx +<span id="L19191" class="LineNr">19191 </span> 59/pop-to-ecx +<span id="L19192" class="LineNr">19192 </span> 58/pop-to-eax +<span id="L19193" class="LineNr">19193 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19194" class="LineNr">19194 </span> 89/<- %esp 5/r32/ebp +<span id="L19195" class="LineNr">19195 </span> 5d/pop-to-ebp +<span id="L19196" class="LineNr">19196 </span> c3/return +<span id="L19197" class="LineNr">19197 </span> +<span id="L19198" class="LineNr">19198 </span><span class="Constant">$add-operation-and-inputs-to-stmt:abort</span>: +<span id="L19199" class="LineNr">19199 </span> <span class="subxComment"># error("fn ___: invalid identifier in '" line "'\n")</span> +<span id="L19200" class="LineNr">19200 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19201" class="LineNr">19201 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19202" class="LineNr">19202 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19203" class="LineNr">19203 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19204" class="LineNr">19204 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L19205" class="LineNr">19205 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier in '"</span>) +<span id="L19206" class="LineNr">19206 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) <span id="L19207" class="LineNr">19207 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) <span id="L19208" class="LineNr">19208 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) <span id="L19209" class="LineNr">19209 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) <span id="L19210" class="LineNr">19210 </span> <span class="subxComment"># never gets here</span> <span id="L19211" class="LineNr">19211 </span> -<span id="L19212" class="LineNr">19212 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars', and 0/null if not found</span> -<span id="L19213" class="LineNr">19213 </span><span class="subxComment"># ensure that 'name' if in a register is the topmost variable in that register</span> -<span id="L19214" class="LineNr">19214 </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="L19215" class="LineNr">19215 </span> <span class="subxComment"># pseudocode:</span> -<span id="L19216" class="LineNr">19216 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19217" class="LineNr">19217 </span> <span class="subxComment"># var min = vars->data</span> -<span id="L19218" class="LineNr">19218 </span> <span class="subxComment"># while curr >= min</span> -<span id="L19219" class="LineNr">19219 </span> <span class="subxComment"># var v: (handle var) = *curr</span> -<span id="L19220" class="LineNr">19220 </span> <span class="subxComment"># if v->name == name</span> -<span id="L19221" class="LineNr">19221 </span> <span class="subxComment"># return</span> -<span id="L19222" class="LineNr">19222 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19223" class="LineNr">19223 </span> <span class="subxComment">#</span> -<span id="L19224" class="LineNr">19224 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19225" class="LineNr">19225 </span> 55/push-ebp -<span id="L19226" class="LineNr">19226 </span> 89/<- %ebp 4/r32/esp -<span id="L19227" class="LineNr">19227 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19228" class="LineNr">19228 </span> 50/push-eax -<span id="L19229" class="LineNr">19229 </span> 51/push-ecx -<span id="L19230" class="LineNr">19230 </span> 52/push-edx -<span id="L19231" class="LineNr">19231 </span> 53/push-ebx -<span id="L19232" class="LineNr">19232 </span> 56/push-esi -<span id="L19233" class="LineNr">19233 </span> 57/push-edi -<span id="L19234" class="LineNr">19234 </span> <span class="subxComment"># clear out</span> -<span id="L19235" class="LineNr">19235 </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="L19236" class="LineNr">19236 </span> <span class="subxComment"># esi = vars</span> -<span id="L19237" class="LineNr">19237 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L19238" class="LineNr">19238 </span> <span class="subxComment"># ebx = vars->top</span> -<span id="L19239" class="LineNr">19239 </span> 8b/-> *esi 3/r32/ebx -<span id="L19240" class="LineNr">19240 </span> <span class="subxComment"># if (vars->top > vars->size) abort</span> -<span id="L19241" class="LineNr">19241 </span> 3b/compare<- *(esi+4) 0/r32/eax -<span id="L19242" class="LineNr">19242 </span> 0f 8f/jump-if-> $lookup-var-helper:error1/disp32 -<span id="L19243" class="LineNr">19243 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> -<span id="L19244" class="LineNr">19244 </span> 8d/copy-address *(esi+8) 2/r32/edx -<span id="L19245" class="LineNr">19245 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19246" class="LineNr">19246 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> -<span id="L19247" class="LineNr">19247 </span> <span class="subxComment"># var var-in-reg/edi: 16 addrs</span> -<span id="L19248" class="LineNr">19248 </span> 68/push 0/imm32 -<span id="L19249" class="LineNr">19249 </span> 68/push 0/imm32 -<span id="L19250" class="LineNr">19250 </span> 68/push 0/imm32 -<span id="L19251" class="LineNr">19251 </span> 68/push 0/imm32 -<span id="L19252" class="LineNr">19252 </span> 68/push 0/imm32 -<span id="L19253" class="LineNr">19253 </span> 68/push 0/imm32 -<span id="L19254" class="LineNr">19254 </span> 68/push 0/imm32 -<span id="L19255" class="LineNr">19255 </span> 68/push 0/imm32 -<span id="L19256" class="LineNr">19256 </span> 68/push 0/imm32 -<span id="L19257" class="LineNr">19257 </span> 68/push 0/imm32 -<span id="L19258" class="LineNr">19258 </span> 68/push 0/imm32 -<span id="L19259" class="LineNr">19259 </span> 68/push 0/imm32 -<span id="L19260" class="LineNr">19260 </span> 68/push 0/imm32 -<span id="L19261" class="LineNr">19261 </span> 68/push 0/imm32 -<span id="L19262" class="LineNr">19262 </span> 68/push 0/imm32 -<span id="L19263" class="LineNr">19263 </span> 68/push 0/imm32 -<span id="L19264" class="LineNr">19264 </span> 89/<- %edi 4/r32/esp -<span id="L19265" class="LineNr">19265 </span> { -<span id="L19266" class="LineNr">19266 </span><span class="Constant">$lookup-var-helper:loop</span>: -<span id="L19267" class="LineNr">19267 </span> <span class="subxComment"># if (curr < min) return</span> -<span id="L19268" class="LineNr">19268 </span> 39/compare %ebx 2/r32/edx -<span id="L19269" class="LineNr">19269 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L19270" class="LineNr">19270 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(*curr)</span> -<span id="L19271" class="LineNr">19271 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L19272" class="LineNr">19272 </span> 89/<- %ecx 0/r32/eax -<span id="L19273" class="LineNr">19273 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> -<span id="L19274" class="LineNr">19274 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19275" class="LineNr">19275 </span> <span class="subxComment"># if (vn == name) return curr</span> -<span id="L19276" class="LineNr">19276 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> -<span id="L19277" class="LineNr">19277 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19278" class="LineNr">19278 </span> { -<span id="L19279" class="LineNr">19279 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19280" class="LineNr">19280 </span><span class="Constant">$lookup-var-helper:found</span>: -<span id="L19281" class="LineNr">19281 </span> <span class="subxComment"># var vr/eax: (addr array byte) = lookup(v->register)</span> -<span id="L19282" class="LineNr">19282 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L19283" class="LineNr">19283 </span> 3d/compare-eax-and 0/imm32 -<span id="L19284" class="LineNr">19284 </span> { -<span id="L19285" class="LineNr">19285 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19286" class="LineNr">19286 </span><span class="Constant">$lookup-var-helper:found-register</span>: -<span id="L19287" class="LineNr">19287 </span> <span class="subxComment"># var reg/eax: int = get(Registers, vr)</span> -<span id="L19288" class="LineNr">19288 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19447'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> -<span id="L19289" class="LineNr">19289 </span> 8b/-> *eax 0/r32/eax -<span id="L19290" class="LineNr">19290 </span> <span class="subxComment"># if (var-in-reg[reg]) error</span> -<span id="L19291" class="LineNr">19291 </span> 8b/-> *(edi+eax<<2) 0/r32/eax -<span id="L19292" class="LineNr">19292 </span> 3d/compare-eax-and 0/imm32 -<span id="L19293" class="LineNr">19293 </span> 0f 85/jump-if-!= $lookup-var-helper:error2/disp32 -<span id="L19294" class="LineNr">19294 </span> } -<span id="L19295" class="LineNr">19295 </span><span class="Constant">$lookup-var-helper:return</span>: -<span id="L19296" class="LineNr">19296 </span> <span class="subxComment"># esi = out</span> -<span id="L19297" class="LineNr">19297 </span> 8b/-> *(ebp+0x10) 6/r32/esi -<span id="L19298" class="LineNr">19298 </span> <span class="subxComment"># *out = *curr</span> -<span id="L19299" class="LineNr">19299 </span> 8b/-> *ebx 0/r32/eax -<span id="L19300" class="LineNr">19300 </span> 89/<- *esi 0/r32/eax -<span id="L19301" class="LineNr">19301 </span> 8b/-> *(ebx+4) 0/r32/eax -<span id="L19302" class="LineNr">19302 </span> 89/<- *(esi+4) 0/r32/eax -<span id="L19303" class="LineNr">19303 </span> <span class="subxComment"># return</span> -<span id="L19304" class="LineNr">19304 </span> eb/jump $lookup-var-helper:end/disp8 -<span id="L19305" class="LineNr">19305 </span> } -<span id="L19306" class="LineNr">19306 </span> <span class="subxComment"># 'name' not yet found; update var-in-reg if v in register</span> -<span id="L19307" class="LineNr">19307 </span> <span class="subxS1Comment"># . var vr/eax: (addr array byte) = lookup(v->register)</span> -<span id="L19308" class="LineNr">19308 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L19309" class="LineNr">19309 </span> <span class="subxS1Comment"># . if (vr == 0) continue</span> -<span id="L19310" class="LineNr">19310 </span> 3d/compare-eax-and 0/imm32 -<span id="L19311" class="LineNr">19311 </span> 74/jump-if-= $lookup-var-helper:continue/disp8 -<span id="L19312" class="LineNr">19312 </span> <span class="subxS1Comment"># . var reg/eax: int = get(Registers, vr)</span> -<span id="L19313" class="LineNr">19313 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19447'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> -<span id="L19314" class="LineNr">19314 </span> 8b/-> *eax 0/r32/eax -<span id="L19315" class="LineNr">19315 </span> <span class="subxS1Comment"># . var-in-reg[reg] = v</span> -<span id="L19316" class="LineNr">19316 </span> 89/<- *(edi+eax<<2) 1/r32/ecx -<span id="L19317" class="LineNr">19317 </span><span class="Constant">$lookup-var-helper:continue</span>: -<span id="L19318" class="LineNr">19318 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19319" class="LineNr">19319 </span> 81 5/subop/subtract %ebx 0xc/imm32 -<span id="L19320" class="LineNr">19320 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L19321" class="LineNr">19321 </span> } -<span id="L19322" class="LineNr">19322 </span><span class="Constant">$lookup-var-helper:end</span>: -<span id="L19323" class="LineNr">19323 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19324" class="LineNr">19324 </span> 81 0/subop/add %esp 0x40/imm32 -<span id="L19325" class="LineNr">19325 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19326" class="LineNr">19326 </span> 5f/pop-to-edi -<span id="L19327" class="LineNr">19327 </span> 5e/pop-to-esi -<span id="L19328" class="LineNr">19328 </span> 5b/pop-to-ebx -<span id="L19329" class="LineNr">19329 </span> 5a/pop-to-edx -<span id="L19330" class="LineNr">19330 </span> 59/pop-to-ecx -<span id="L19331" class="LineNr">19331 </span> 58/pop-to-eax -<span id="L19332" class="LineNr">19332 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19333" class="LineNr">19333 </span> 89/<- %esp 5/r32/ebp -<span id="L19334" class="LineNr">19334 </span> 5d/pop-to-ebp -<span id="L19335" class="LineNr">19335 </span> c3/return -<span id="L19336" class="LineNr">19336 </span> -<span id="L19337" class="LineNr">19337 </span><span class="Constant">$lookup-var-helper:error1</span>: -<span id="L19338" class="LineNr">19338 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19339" class="LineNr">19339 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19340" class="LineNr">19340 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19341" class="LineNr">19341 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19342" class="LineNr">19342 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": malformed stack when looking up '"</span>) -<span id="L19343" class="LineNr">19343 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) -<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="Constant">$lookup-var-helper:error2</span>: -<span id="L19350" class="LineNr">19350 </span> <span class="subxComment"># eax contains the conflicting var at this point</span> -<span id="L19351" class="LineNr">19351 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19352" class="LineNr">19352 </span> 50/push-eax -<span id="L19353" class="LineNr">19353 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19354" class="LineNr">19354 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19355" class="LineNr">19355 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19356" class="LineNr">19356 </span> 58/pop-eax -<span id="L19357" class="LineNr">19357 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": register "</span>) -<span id="L19358" class="LineNr">19358 </span> 50/push-eax -<span id="L19359" class="LineNr">19359 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L19360" class="LineNr">19360 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19361" class="LineNr">19361 </span> 58/pop-to-eax -<span id="L19362" class="LineNr">19362 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">" reads var '"</span>) -<span id="L19363" class="LineNr">19363 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) -<span id="L19364" class="LineNr">19364 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' after writing var '"</span>) -<span id="L19365" class="LineNr">19365 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19366" class="LineNr">19366 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19367" class="LineNr">19367 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L19368" class="LineNr">19368 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19369" class="LineNr">19369 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L19370" class="LineNr">19370 </span> <span class="subxComment"># never gets here</span> -<span id="L19371" class="LineNr">19371 </span> -<span id="L19372" class="LineNr">19372 </span><span class="subxFunction">dump-vars</span>: <span class="subxComment"># vars: (addr stack live-var)</span> -<span id="L19373" class="LineNr">19373 </span> <span class="subxComment"># pseudocode:</span> -<span id="L19374" class="LineNr">19374 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19375" class="LineNr">19375 </span> <span class="subxComment"># var min = vars->data</span> -<span id="L19376" class="LineNr">19376 </span> <span class="subxComment"># while curr >= min</span> -<span id="L19377" class="LineNr">19377 </span> <span class="subxComment"># var v: (handle var) = *curr</span> -<span id="L19378" class="LineNr">19378 </span> <span class="subxComment"># print v</span> -<span id="L19379" class="LineNr">19379 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19380" class="LineNr">19380 </span> <span class="subxComment">#</span> -<span id="L19381" class="LineNr">19381 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19382" class="LineNr">19382 </span> 55/push-ebp -<span id="L19383" class="LineNr">19383 </span> 89/<- %ebp 4/r32/esp -<span id="L19384" class="LineNr">19384 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19385" class="LineNr">19385 </span> 52/push-edx -<span id="L19386" class="LineNr">19386 </span> 53/push-ebx -<span id="L19387" class="LineNr">19387 </span> 56/push-esi -<span id="L19388" class="LineNr">19388 </span> <span class="subxComment"># esi = vars</span> -<span id="L19389" class="LineNr">19389 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L19390" class="LineNr">19390 </span> <span class="subxComment"># ebx = vars->top</span> -<span id="L19391" class="LineNr">19391 </span> 8b/-> *esi 3/r32/ebx -<span id="L19392" class="LineNr">19392 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> -<span id="L19393" class="LineNr">19393 </span> 8d/copy-address *(esi+8) 2/r32/edx -<span id="L19394" class="LineNr">19394 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19395" class="LineNr">19395 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> -<span id="L19396" class="LineNr">19396 </span> { -<span id="L19397" class="LineNr">19397 </span><span class="Constant">$dump-vars:loop</span>: -<span id="L19398" class="LineNr">19398 </span> <span class="subxComment"># if (curr < min) return</span> -<span id="L19399" class="LineNr">19399 </span> 39/compare %ebx 2/r32/edx -<span id="L19400" class="LineNr">19400 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L19401" class="LineNr">19401 </span> <span class="subxComment">#</span> -<span id="L19402" class="LineNr">19402 </span> (<a 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="L19403" class="LineNr">19403 </span> (<a href='mu.subx.html#L21242'>dump-var</a> 2 %ebx) -<span id="L19404" class="LineNr">19404 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19405" class="LineNr">19405 </span> 81 5/subop/subtract %ebx 0xc/imm32 -<span id="L19406" class="LineNr">19406 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L19407" class="LineNr">19407 </span> } -<span id="L19408" class="LineNr">19408 </span><span class="Constant">$dump-vars:end</span>: -<span id="L19409" class="LineNr">19409 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19410" class="LineNr">19410 </span> 5e/pop-to-esi -<span id="L19411" class="LineNr">19411 </span> 5b/pop-to-ebx -<span id="L19412" class="LineNr">19412 </span> 5a/pop-to-edx -<span id="L19413" class="LineNr">19413 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19414" class="LineNr">19414 </span> 89/<- %esp 5/r32/ebp -<span id="L19415" class="LineNr">19415 </span> 5d/pop-to-ebp -<span id="L19416" class="LineNr">19416 </span> c3/return -<span id="L19417" class="LineNr">19417 </span> -<span id="L19418" class="LineNr">19418 </span>== data -<span id="L19419" class="LineNr">19419 </span><span class="subxComment"># Like Registers, but no esp or ebp</span> -<span id="L19420" class="LineNr">19420 </span><span class="SpecialChar">Mu-registers</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> -<span id="L19421" class="LineNr">19421 </span> <span class="subxComment"># a table is a stream</span> -<span id="L19422" class="LineNr">19422 </span> 0xa8/imm32/write -<span id="L19423" class="LineNr">19423 </span> 0/imm32/read -<span id="L19424" class="LineNr">19424 </span> 0xa8/imm32/length -<span id="L19425" class="LineNr">19425 </span> <span class="subxComment"># data</span> -<span id="L19426" class="LineNr">19426 </span> <span class="subxComment"># general-purpose registers</span> -<span id="L19427" class="LineNr">19427 </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="L19428" class="LineNr">19428 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 -<span id="L19429" class="LineNr">19429 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 -<span id="L19430" class="LineNr">19430 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 -<span id="L19431" class="LineNr">19431 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 -<span id="L19432" class="LineNr">19432 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 -<span id="L19433" class="LineNr">19433 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 -<span id="L19434" class="LineNr">19434 </span> <span class="subxComment"># floating-point registers</span> -<span id="L19435" class="LineNr">19435 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 0/imm32 -<span id="L19436" class="LineNr">19436 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 1/imm32 -<span id="L19437" class="LineNr">19437 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 2/imm32 -<span id="L19438" class="LineNr">19438 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 3/imm32 -<span id="L19439" class="LineNr">19439 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 4/imm32 -<span id="L19440" class="LineNr">19440 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 5/imm32 -<span id="L19441" class="LineNr">19441 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 6/imm32 -<span id="L19442" class="LineNr">19442 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 7/imm32 -<span id="L19443" class="LineNr">19443 </span> -<span id="L19444" class="LineNr">19444 </span><span class="subxComment"># Like Mu-registers, but with unique codes for integer and floating-point</span> -<span id="L19445" class="LineNr">19445 </span><span class="subxComment"># registers.</span> -<span id="L19446" class="LineNr">19446 </span><span class="subxComment"># Don't use this for code-generation, only for checking.</span> -<span id="L19447" class="LineNr">19447 </span><span class="SpecialChar">Mu-registers-unique</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> -<span id="L19448" class="LineNr">19448 </span> <span class="subxComment"># a table is a stream</span> -<span id="L19449" class="LineNr">19449 </span> 0xa8/imm32/write -<span id="L19450" class="LineNr">19450 </span> 0/imm32/read -<span id="L19451" class="LineNr">19451 </span> 0xa8/imm32/length -<span id="L19452" class="LineNr">19452 </span> <span class="subxComment"># data</span> -<span id="L19453" class="LineNr">19453 </span> <span class="subxComment"># general-purpose registers</span> -<span id="L19454" class="LineNr">19454 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 -<span id="L19455" class="LineNr">19455 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 -<span id="L19456" class="LineNr">19456 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 -<span id="L19457" class="LineNr">19457 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 -<span id="L19458" class="LineNr">19458 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 -<span id="L19459" class="LineNr">19459 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 -<span id="L19460" class="LineNr">19460 </span> <span class="subxComment"># floating-point registers</span> -<span id="L19461" class="LineNr">19461 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 8/imm32 -<span id="L19462" class="LineNr">19462 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 9/imm32 -<span id="L19463" class="LineNr">19463 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 0xa/imm32 -<span id="L19464" class="LineNr">19464 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 0xb/imm32 -<span id="L19465" class="LineNr">19465 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 0xc/imm32 -<span id="L19466" class="LineNr">19466 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 0xd/imm32 -<span id="L19467" class="LineNr">19467 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 0xe/imm32 -<span id="L19468" class="LineNr">19468 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 0xf/imm32 -<span id="L19469" class="LineNr">19469 </span> -<span id="L19470" class="LineNr">19470 </span><span class="Constant">$Mu-register-eax</span>: -<span id="L19471" class="LineNr">19471 </span> 0x11/imm32/alloc-id -<span id="L19472" class="LineNr">19472 </span> 3/imm32/size -<span id="L19473" class="LineNr">19473 </span> 0x65/e 0x61/a 0x78/x -<span id="L19474" class="LineNr">19474 </span> -<span id="L19475" class="LineNr">19475 </span><span class="Constant">$Mu-register-ecx</span>: -<span id="L19476" class="LineNr">19476 </span> 0x11/imm32/alloc-id -<span id="L19477" class="LineNr">19477 </span> 3/imm32/size -<span id="L19478" class="LineNr">19478 </span> 0x65/e 0x63/c 0x78/x -<span id="L19479" class="LineNr">19479 </span> -<span id="L19480" class="LineNr">19480 </span><span class="Constant">$Mu-register-edx</span>: -<span id="L19481" class="LineNr">19481 </span> 0x11/imm32/alloc-id -<span id="L19482" class="LineNr">19482 </span> 3/imm32/size -<span id="L19483" class="LineNr">19483 </span> 0x65/e 0x64/d 0x78/x -<span id="L19484" class="LineNr">19484 </span> -<span id="L19485" class="LineNr">19485 </span><span class="Constant">$Mu-register-ebx</span>: -<span id="L19486" class="LineNr">19486 </span> 0x11/imm32/alloc-id -<span id="L19487" class="LineNr">19487 </span> 3/imm32/size -<span id="L19488" class="LineNr">19488 </span> 0x65/e 0x62/b 0x78/x -<span id="L19489" class="LineNr">19489 </span> -<span id="L19490" class="LineNr">19490 </span><span class="Constant">$Mu-register-esi</span>: -<span id="L19491" class="LineNr">19491 </span> 0x11/imm32/alloc-id -<span id="L19492" class="LineNr">19492 </span> 3/imm32/size -<span id="L19493" class="LineNr">19493 </span> 0x65/e 0x73/s 0x69/i -<span id="L19494" class="LineNr">19494 </span> -<span id="L19495" class="LineNr">19495 </span><span class="Constant">$Mu-register-edi</span>: -<span id="L19496" class="LineNr">19496 </span> 0x11/imm32/alloc-id -<span id="L19497" class="LineNr">19497 </span> 3/imm32/size -<span id="L19498" class="LineNr">19498 </span> 0x65/e 0x64/d 0x69/i -<span id="L19499" class="LineNr">19499 </span> -<span id="L19500" class="LineNr">19500 </span><span class="Constant">$Mu-register-xmm0</span>: -<span id="L19501" class="LineNr">19501 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19502" class="LineNr">19502 </span> <span class="subxComment"># "xmm0"</span> -<span id="L19503" class="LineNr">19503 </span> 0x4/imm32/size -<span id="L19504" class="LineNr">19504 </span> 0x78/x 0x6d/m 0x6d/m 0x30/0 -<span id="L19505" class="LineNr">19505 </span> -<span id="L19506" class="LineNr">19506 </span><span class="Constant">$Mu-register-xmm1</span>: -<span id="L19507" class="LineNr">19507 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19508" class="LineNr">19508 </span> <span class="subxComment"># "xmm1"</span> -<span id="L19509" class="LineNr">19509 </span> 0x4/imm32/size -<span id="L19510" class="LineNr">19510 </span> 0x78/x 0x6d/m 0x6d/m 0x31/1 +<span id="L19212" class="LineNr">19212 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-on-stack</span>: +<span id="L19213" class="LineNr">19213 </span> <span class="subxComment"># error("fn ___: cannot dereference var ___ on stack\n")</span> +<span id="L19214" class="LineNr">19214 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19215" class="LineNr">19215 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19216" class="LineNr">19216 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19217" class="LineNr">19217 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19218" class="LineNr">19218 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L19219" class="LineNr">19219 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference var '"</span>) +<span id="L19220" class="LineNr">19220 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L19221" class="LineNr">19221 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19222" class="LineNr">19222 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19223" class="LineNr">19223 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' on stack\n"</span>) +<span id="L19224" class="LineNr">19224 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19225" class="LineNr">19225 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19226" class="LineNr">19226 </span> <span class="subxComment"># never gets here</span> +<span id="L19227" class="LineNr">19227 </span> +<span id="L19228" class="LineNr">19228 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-non-addr</span>: +<span id="L19229" class="LineNr">19229 </span> <span class="subxComment"># error("fn ___: cannot dereference non-addr var ___\n")</span> +<span id="L19230" class="LineNr">19230 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19231" class="LineNr">19231 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19232" class="LineNr">19232 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19233" class="LineNr">19233 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19234" class="LineNr">19234 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L19235" class="LineNr">19235 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference non-addr var '"</span>) +<span id="L19236" class="LineNr">19236 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L19237" class="LineNr">19237 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19238" class="LineNr">19238 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19239" class="LineNr">19239 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L19240" class="LineNr">19240 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19241" class="LineNr">19241 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19242" class="LineNr">19242 </span> <span class="subxComment"># never gets here</span> +<span id="L19243" class="LineNr">19243 </span> +<span id="L19244" class="LineNr">19244 </span><span class="subxFunction">stmt-has-outputs?</span>: <span class="subxComment"># line: (addr stream byte) -> result/eax: boolean</span> +<span id="L19245" class="LineNr">19245 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19246" class="LineNr">19246 </span> 55/push-ebp +<span id="L19247" class="LineNr">19247 </span> 89/<- %ebp 4/r32/esp +<span id="L19248" class="LineNr">19248 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19249" class="LineNr">19249 </span> 51/push-ecx +<span id="L19250" class="LineNr">19250 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L19251" class="LineNr">19251 </span> 68/push 0/imm32/end +<span id="L19252" class="LineNr">19252 </span> 68/push 0/imm32/start +<span id="L19253" class="LineNr">19253 </span> 89/<- %ecx 4/r32/esp +<span id="L19254" class="LineNr">19254 </span> <span class="subxComment"># result = false</span> +<span id="L19255" class="LineNr">19255 </span> b8/copy-to-eax 0/imm32/false +<span id="L19256" class="LineNr">19256 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L19257" class="LineNr">19257 </span> { +<span id="L19258" class="LineNr">19258 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L19259" class="LineNr">19259 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L19260" class="LineNr">19260 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) +<span id="L19261" class="LineNr">19261 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19262" class="LineNr">19262 </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="L19263" class="LineNr">19263 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L19264" class="LineNr">19264 </span> <span class="subxComment"># if slice-starts-with?(word-slice, '#') break</span> +<span id="L19265" class="LineNr">19265 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> +<span id="L19266" class="LineNr">19266 </span> 8b/-> *ecx 0/r32/eax +<span id="L19267" class="LineNr">19267 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L19268" class="LineNr">19268 </span> 25/and-eax-with 0xff/imm32 +<span id="L19269" class="LineNr">19269 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> +<span id="L19270" class="LineNr">19270 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L19271" class="LineNr">19271 </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="L19272" class="LineNr">19272 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L19273" class="LineNr">19273 </span> <span class="subxComment"># if slice-equal?(word-slice, '<-') return true</span> +<span id="L19274" class="LineNr">19274 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) +<span id="L19275" class="LineNr">19275 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19276" class="LineNr">19276 </span> 74/jump-if-= <span class="Constant">loop</span>/disp8 +<span id="L19277" class="LineNr">19277 </span> b8/copy-to-eax 1/imm32/true +<span id="L19278" class="LineNr">19278 </span> } +<span id="L19279" class="LineNr">19279 </span><span class="Constant">$stmt-has-outputs:end</span>: +<span id="L19280" class="LineNr">19280 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L19281" class="LineNr">19281 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19282" class="LineNr">19282 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19283" class="LineNr">19283 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19284" class="LineNr">19284 </span> 59/pop-to-ecx +<span id="L19285" class="LineNr">19285 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19286" class="LineNr">19286 </span> 89/<- %esp 5/r32/ebp +<span id="L19287" class="LineNr">19287 </span> 5d/pop-to-ebp +<span id="L19288" class="LineNr">19288 </span> c3/return +<span id="L19289" class="LineNr">19289 </span> +<span id="L19290" class="LineNr">19290 </span><span class="subxComment"># if 'name' starts with a digit, create a new literal var for it</span> +<span id="L19291" class="LineNr">19291 </span><span class="subxComment"># otherwise return first 'name' from the top (back) of 'vars' and abort if not found</span> +<span id="L19292" class="LineNr">19292 </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="L19293" class="LineNr">19293 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19294" class="LineNr">19294 </span> 55/push-ebp +<span id="L19295" class="LineNr">19295 </span> 89/<- %ebp 4/r32/esp +<span id="L19296" class="LineNr">19296 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19297" class="LineNr">19297 </span> 50/push-eax +<span id="L19298" class="LineNr">19298 </span> 51/push-ecx +<span id="L19299" class="LineNr">19299 </span> 56/push-esi +<span id="L19300" class="LineNr">19300 </span> <span class="subxComment"># esi = name</span> +<span id="L19301" class="LineNr">19301 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L19302" class="LineNr">19302 </span> <span class="subxComment"># if slice-empty?(name) abort</span> +<span id="L19303" class="LineNr">19303 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %esi) <span class="subxComment"># => eax</span> +<span id="L19304" class="LineNr">19304 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19305" class="LineNr">19305 </span> 0f 85/jump-if-!= $lookup-var-or-literal:abort/disp32 +<span id="L19306" class="LineNr">19306 </span> <span class="subxComment"># var c/ecx: byte = *name->start</span> +<span id="L19307" class="LineNr">19307 </span> 8b/-> *esi 1/r32/ecx +<span id="L19308" class="LineNr">19308 </span> 8a/copy-byte *ecx 1/r32/CL +<span id="L19309" class="LineNr">19309 </span> 81 4/subop/and %ecx 0xff/imm32 +<span id="L19310" class="LineNr">19310 </span> <span class="subxComment"># if (decimal-digit?(c) || c == '-') return new var(name)</span> +<span id="L19311" class="LineNr">19311 </span> { +<span id="L19312" class="LineNr">19312 </span> 81 7/subop/compare %ecx 0x2d/imm32/dash +<span id="L19313" class="LineNr">19313 </span> 74/jump-if-= $lookup-var-or-literal:literal/disp8 +<span id="L19314" class="LineNr">19314 </span> (<a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L19315" class="LineNr">19315 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19316" class="LineNr">19316 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19317" class="LineNr">19317 </span><span class="Constant">$lookup-var-or-literal:literal</span>: +<span id="L19318" class="LineNr">19318 </span> (<a href='mu.subx.html#L19962'>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="L19319" class="LineNr">19319 </span> eb/jump $lookup-var-or-literal:end/disp8 +<span id="L19320" class="LineNr">19320 </span> } +<span id="L19321" class="LineNr">19321 </span> <span class="subxComment"># else if (c == '"') return new var(name)</span> +<span id="L19322" class="LineNr">19322 </span> { +<span id="L19323" class="LineNr">19323 </span> 81 7/subop/compare %ecx 0x22/imm32/dquote +<span id="L19324" class="LineNr">19324 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L19325" class="LineNr">19325 </span><span class="Constant">$lookup-var-or-literal:literal-string</span>: +<span id="L19326" class="LineNr">19326 </span> (<a href='mu.subx.html#L20114'>new-literal-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %esi *(ebp+0x10)) +<span id="L19327" class="LineNr">19327 </span> eb/jump $lookup-var-or-literal:end/disp8 +<span id="L19328" class="LineNr">19328 </span> } +<span id="L19329" class="LineNr">19329 </span> <span class="subxComment"># otherwise return lookup-var(name, vars)</span> +<span id="L19330" class="LineNr">19330 </span> { +<span id="L19331" class="LineNr">19331 </span><span class="Constant">$lookup-var-or-literal:var</span>: +<span id="L19332" class="LineNr">19332 </span> (<a href='mu.subx.html#L19355'>lookup-var</a> %esi *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L19333" class="LineNr">19333 </span> } +<span id="L19334" class="LineNr">19334 </span><span class="Constant">$lookup-var-or-literal:end</span>: +<span id="L19335" class="LineNr">19335 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19336" class="LineNr">19336 </span> 5e/pop-to-esi +<span id="L19337" class="LineNr">19337 </span> 59/pop-to-ecx +<span id="L19338" class="LineNr">19338 </span> 58/pop-to-eax +<span id="L19339" class="LineNr">19339 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19340" class="LineNr">19340 </span> 89/<- %esp 5/r32/ebp +<span id="L19341" class="LineNr">19341 </span> 5d/pop-to-ebp +<span id="L19342" class="LineNr">19342 </span> c3/return +<span id="L19343" class="LineNr">19343 </span> +<span id="L19344" class="LineNr">19344 </span><span class="Constant">$lookup-var-or-literal:abort</span>: +<span id="L19345" class="LineNr">19345 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19346" class="LineNr">19346 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19347" class="LineNr">19347 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19348" class="LineNr">19348 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19349" class="LineNr">19349 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": empty variable!"</span>) +<span id="L19350" class="LineNr">19350 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19351" class="LineNr">19351 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19352" class="LineNr">19352 </span> <span class="subxComment"># never gets here</span> +<span id="L19353" class="LineNr">19353 </span> +<span id="L19354" class="LineNr">19354 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars' and abort if not found</span> +<span id="L19355" class="LineNr">19355 </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="L19356" class="LineNr">19356 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19357" class="LineNr">19357 </span> 55/push-ebp +<span id="L19358" class="LineNr">19358 </span> 89/<- %ebp 4/r32/esp +<span id="L19359" class="LineNr">19359 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19360" class="LineNr">19360 </span> 50/push-eax +<span id="L19361" class="LineNr">19361 </span> <span class="subxComment">#</span> +<span id="L19362" class="LineNr">19362 </span> (<a href='mu.subx.html#L19389'>lookup-var-helper</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L19363" class="LineNr">19363 </span> <span class="subxComment"># if (*out == 0) abort</span> +<span id="L19364" class="LineNr">19364 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L19365" class="LineNr">19365 </span> 81 7/subop/compare *eax 0/imm32 +<span id="L19366" class="LineNr">19366 </span> 74/jump-if-= $lookup-var:abort/disp8 +<span id="L19367" class="LineNr">19367 </span><span class="Constant">$lookup-var:end</span>: +<span id="L19368" class="LineNr">19368 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19369" class="LineNr">19369 </span> 58/pop-to-eax +<span id="L19370" class="LineNr">19370 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19371" class="LineNr">19371 </span> 89/<- %esp 5/r32/ebp +<span id="L19372" class="LineNr">19372 </span> 5d/pop-to-ebp +<span id="L19373" class="LineNr">19373 </span> c3/return +<span id="L19374" class="LineNr">19374 </span> +<span id="L19375" class="LineNr">19375 </span><span class="Constant">$lookup-var:abort</span>: +<span id="L19376" class="LineNr">19376 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19377" class="LineNr">19377 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19378" class="LineNr">19378 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19379" class="LineNr">19379 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19380" class="LineNr">19380 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": unknown variable '"</span>) +<span id="L19381" class="LineNr">19381 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L19382" class="LineNr">19382 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L19383" class="LineNr">19383 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19384" class="LineNr">19384 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19385" class="LineNr">19385 </span> <span class="subxComment"># never gets here</span> +<span id="L19386" class="LineNr">19386 </span> +<span id="L19387" class="LineNr">19387 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars', and 0/null if not found</span> +<span id="L19388" class="LineNr">19388 </span><span class="subxComment"># ensure that 'name' if in a register is the topmost variable in that register</span> +<span id="L19389" class="LineNr">19389 </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="L19390" class="LineNr">19390 </span> <span class="subxComment"># pseudocode:</span> +<span id="L19391" class="LineNr">19391 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19392" class="LineNr">19392 </span> <span class="subxComment"># var min = vars->data</span> +<span id="L19393" class="LineNr">19393 </span> <span class="subxComment"># while curr >= min</span> +<span id="L19394" class="LineNr">19394 </span> <span class="subxComment"># var v: (handle var) = *curr</span> +<span id="L19395" class="LineNr">19395 </span> <span class="subxComment"># if v->name == name</span> +<span id="L19396" class="LineNr">19396 </span> <span class="subxComment"># return</span> +<span id="L19397" class="LineNr">19397 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19398" class="LineNr">19398 </span> <span class="subxComment">#</span> +<span id="L19399" class="LineNr">19399 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19400" class="LineNr">19400 </span> 55/push-ebp +<span id="L19401" class="LineNr">19401 </span> 89/<- %ebp 4/r32/esp +<span id="L19402" class="LineNr">19402 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19403" class="LineNr">19403 </span> 50/push-eax +<span id="L19404" class="LineNr">19404 </span> 51/push-ecx +<span id="L19405" class="LineNr">19405 </span> 52/push-edx +<span id="L19406" class="LineNr">19406 </span> 53/push-ebx +<span id="L19407" class="LineNr">19407 </span> 56/push-esi +<span id="L19408" class="LineNr">19408 </span> 57/push-edi +<span id="L19409" class="LineNr">19409 </span> <span class="subxComment"># clear out</span> +<span id="L19410" class="LineNr">19410 </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="L19411" class="LineNr">19411 </span> <span class="subxComment"># esi = vars</span> +<span id="L19412" class="LineNr">19412 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L19413" class="LineNr">19413 </span> <span class="subxComment"># ebx = vars->top</span> +<span id="L19414" class="LineNr">19414 </span> 8b/-> *esi 3/r32/ebx +<span id="L19415" class="LineNr">19415 </span> <span class="subxComment"># if (vars->top > vars->size) abort</span> +<span id="L19416" class="LineNr">19416 </span> 3b/compare<- *(esi+4) 0/r32/eax +<span id="L19417" class="LineNr">19417 </span> 0f 8f/jump-if-> $lookup-var-helper:error1/disp32 +<span id="L19418" class="LineNr">19418 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> +<span id="L19419" class="LineNr">19419 </span> 8d/copy-address *(esi+8) 2/r32/edx +<span id="L19420" class="LineNr">19420 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19421" class="LineNr">19421 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> +<span id="L19422" class="LineNr">19422 </span> <span class="subxComment"># var var-in-reg/edi: 16 addrs</span> +<span id="L19423" class="LineNr">19423 </span> 68/push 0/imm32 +<span id="L19424" class="LineNr">19424 </span> 68/push 0/imm32 +<span id="L19425" class="LineNr">19425 </span> 68/push 0/imm32 +<span id="L19426" class="LineNr">19426 </span> 68/push 0/imm32 +<span id="L19427" class="LineNr">19427 </span> 68/push 0/imm32 +<span id="L19428" class="LineNr">19428 </span> 68/push 0/imm32 +<span id="L19429" class="LineNr">19429 </span> 68/push 0/imm32 +<span id="L19430" class="LineNr">19430 </span> 68/push 0/imm32 +<span id="L19431" class="LineNr">19431 </span> 68/push 0/imm32 +<span id="L19432" class="LineNr">19432 </span> 68/push 0/imm32 +<span id="L19433" class="LineNr">19433 </span> 68/push 0/imm32 +<span id="L19434" class="LineNr">19434 </span> 68/push 0/imm32 +<span id="L19435" class="LineNr">19435 </span> 68/push 0/imm32 +<span id="L19436" class="LineNr">19436 </span> 68/push 0/imm32 +<span id="L19437" class="LineNr">19437 </span> 68/push 0/imm32 +<span id="L19438" class="LineNr">19438 </span> 68/push 0/imm32 +<span id="L19439" class="LineNr">19439 </span> 89/<- %edi 4/r32/esp +<span id="L19440" class="LineNr">19440 </span> { +<span id="L19441" class="LineNr">19441 </span><span class="Constant">$lookup-var-helper:loop</span>: +<span id="L19442" class="LineNr">19442 </span> <span class="subxComment"># if (curr < min) return</span> +<span id="L19443" class="LineNr">19443 </span> 39/compare %ebx 2/r32/edx +<span id="L19444" class="LineNr">19444 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L19445" class="LineNr">19445 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(*curr)</span> +<span id="L19446" class="LineNr">19446 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L19447" class="LineNr">19447 </span> 89/<- %ecx 0/r32/eax +<span id="L19448" class="LineNr">19448 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> +<span id="L19449" class="LineNr">19449 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19450" class="LineNr">19450 </span> <span class="subxComment"># if (vn == name) return curr</span> +<span id="L19451" class="LineNr">19451 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> +<span id="L19452" class="LineNr">19452 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19453" class="LineNr">19453 </span> { +<span id="L19454" class="LineNr">19454 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19455" class="LineNr">19455 </span><span class="Constant">$lookup-var-helper:found</span>: +<span id="L19456" class="LineNr">19456 </span> <span class="subxComment"># var vr/eax: (addr array byte) = lookup(v->register)</span> +<span id="L19457" class="LineNr">19457 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L19458" class="LineNr">19458 </span> 3d/compare-eax-and 0/imm32 +<span id="L19459" class="LineNr">19459 </span> { +<span id="L19460" class="LineNr">19460 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19461" class="LineNr">19461 </span><span class="Constant">$lookup-var-helper:found-register</span>: +<span id="L19462" class="LineNr">19462 </span> <span class="subxComment"># var reg/eax: int = get(Registers, vr)</span> +<span id="L19463" class="LineNr">19463 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19622'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> +<span id="L19464" class="LineNr">19464 </span> 8b/-> *eax 0/r32/eax +<span id="L19465" class="LineNr">19465 </span> <span class="subxComment"># if (var-in-reg[reg]) error</span> +<span id="L19466" class="LineNr">19466 </span> 8b/-> *(edi+eax<<2) 0/r32/eax +<span id="L19467" class="LineNr">19467 </span> 3d/compare-eax-and 0/imm32 +<span id="L19468" class="LineNr">19468 </span> 0f 85/jump-if-!= $lookup-var-helper:error2/disp32 +<span id="L19469" class="LineNr">19469 </span> } +<span id="L19470" class="LineNr">19470 </span><span class="Constant">$lookup-var-helper:return</span>: +<span id="L19471" class="LineNr">19471 </span> <span class="subxComment"># esi = out</span> +<span id="L19472" class="LineNr">19472 </span> 8b/-> *(ebp+0x10) 6/r32/esi +<span id="L19473" class="LineNr">19473 </span> <span class="subxComment"># *out = *curr</span> +<span id="L19474" class="LineNr">19474 </span> 8b/-> *ebx 0/r32/eax +<span id="L19475" class="LineNr">19475 </span> 89/<- *esi 0/r32/eax +<span id="L19476" class="LineNr">19476 </span> 8b/-> *(ebx+4) 0/r32/eax +<span id="L19477" class="LineNr">19477 </span> 89/<- *(esi+4) 0/r32/eax +<span id="L19478" class="LineNr">19478 </span> <span class="subxComment"># return</span> +<span id="L19479" class="LineNr">19479 </span> eb/jump $lookup-var-helper:end/disp8 +<span id="L19480" class="LineNr">19480 </span> } +<span id="L19481" class="LineNr">19481 </span> <span class="subxComment"># 'name' not yet found; update var-in-reg if v in register</span> +<span id="L19482" class="LineNr">19482 </span> <span class="subxS1Comment"># . var vr/eax: (addr array byte) = lookup(v->register)</span> +<span id="L19483" class="LineNr">19483 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L19484" class="LineNr">19484 </span> <span class="subxS1Comment"># . if (vr == 0) continue</span> +<span id="L19485" class="LineNr">19485 </span> 3d/compare-eax-and 0/imm32 +<span id="L19486" class="LineNr">19486 </span> 74/jump-if-= $lookup-var-helper:continue/disp8 +<span id="L19487" class="LineNr">19487 </span> <span class="subxS1Comment"># . var reg/eax: int = get(Registers, vr)</span> +<span id="L19488" class="LineNr">19488 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19622'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> +<span id="L19489" class="LineNr">19489 </span> 8b/-> *eax 0/r32/eax +<span id="L19490" class="LineNr">19490 </span> <span class="subxS1Comment"># . var-in-reg[reg] = v</span> +<span id="L19491" class="LineNr">19491 </span> 89/<- *(edi+eax<<2) 1/r32/ecx +<span id="L19492" class="LineNr">19492 </span><span class="Constant">$lookup-var-helper:continue</span>: +<span id="L19493" class="LineNr">19493 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19494" class="LineNr">19494 </span> 81 5/subop/subtract %ebx 0xc/imm32 +<span id="L19495" class="LineNr">19495 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L19496" class="LineNr">19496 </span> } +<span id="L19497" class="LineNr">19497 </span><span class="Constant">$lookup-var-helper:end</span>: +<span id="L19498" class="LineNr">19498 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19499" class="LineNr">19499 </span> 81 0/subop/add %esp 0x40/imm32 +<span id="L19500" class="LineNr">19500 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19501" class="LineNr">19501 </span> 5f/pop-to-edi +<span id="L19502" class="LineNr">19502 </span> 5e/pop-to-esi +<span id="L19503" class="LineNr">19503 </span> 5b/pop-to-ebx +<span id="L19504" class="LineNr">19504 </span> 5a/pop-to-edx +<span id="L19505" class="LineNr">19505 </span> 59/pop-to-ecx +<span id="L19506" class="LineNr">19506 </span> 58/pop-to-eax +<span id="L19507" class="LineNr">19507 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19508" class="LineNr">19508 </span> 89/<- %esp 5/r32/ebp +<span id="L19509" class="LineNr">19509 </span> 5d/pop-to-ebp +<span id="L19510" class="LineNr">19510 </span> c3/return <span id="L19511" class="LineNr">19511 </span> -<span id="L19512" class="LineNr">19512 </span><span class="Constant">$Mu-register-xmm2</span>: -<span id="L19513" class="LineNr">19513 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19514" class="LineNr">19514 </span> <span class="subxComment"># "xmm2"</span> -<span id="L19515" class="LineNr">19515 </span> 0x4/imm32/size -<span id="L19516" class="LineNr">19516 </span> 0x78/x 0x6d/m 0x6d/m 0x32/2 -<span id="L19517" class="LineNr">19517 </span> -<span id="L19518" class="LineNr">19518 </span><span class="Constant">$Mu-register-xmm3</span>: -<span id="L19519" class="LineNr">19519 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19520" class="LineNr">19520 </span> <span class="subxComment"># "xmm3"</span> -<span id="L19521" class="LineNr">19521 </span> 0x4/imm32/size -<span id="L19522" class="LineNr">19522 </span> 0x78/x 0x6d/m 0x6d/m 0x33/3 +<span id="L19512" class="LineNr">19512 </span><span class="Constant">$lookup-var-helper:error1</span>: +<span id="L19513" class="LineNr">19513 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19514" class="LineNr">19514 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19515" class="LineNr">19515 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19516" class="LineNr">19516 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19517" class="LineNr">19517 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": malformed stack when looking up '"</span>) +<span id="L19518" class="LineNr">19518 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L19519" class="LineNr">19519 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L19520" class="LineNr">19520 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19521" class="LineNr">19521 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19522" class="LineNr">19522 </span> <span class="subxComment"># never gets here</span> <span id="L19523" class="LineNr">19523 </span> -<span id="L19524" class="LineNr">19524 </span><span class="Constant">$Mu-register-xmm4</span>: -<span id="L19525" class="LineNr">19525 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19526" class="LineNr">19526 </span> <span class="subxComment"># "xmm4"</span> -<span id="L19527" class="LineNr">19527 </span> 0x4/imm32/size -<span id="L19528" class="LineNr">19528 </span> 0x78/x 0x6d/m 0x6d/m 0x34/4 -<span id="L19529" class="LineNr">19529 </span> -<span id="L19530" class="LineNr">19530 </span><span class="Constant">$Mu-register-xmm5</span>: -<span id="L19531" class="LineNr">19531 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19532" class="LineNr">19532 </span> <span class="subxComment"># "xmm5"</span> -<span id="L19533" class="LineNr">19533 </span> 0x4/imm32/size -<span id="L19534" class="LineNr">19534 </span> 0x78/x 0x6d/m 0x6d/m 0x35/5 -<span id="L19535" class="LineNr">19535 </span> -<span id="L19536" class="LineNr">19536 </span><span class="Constant">$Mu-register-xmm6</span>: -<span id="L19537" class="LineNr">19537 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19538" class="LineNr">19538 </span> <span class="subxComment"># "xmm6"</span> -<span id="L19539" class="LineNr">19539 </span> 0x4/imm32/size -<span id="L19540" class="LineNr">19540 </span> 0x78/x 0x6d/m 0x6d/m 0x36/6 -<span id="L19541" class="LineNr">19541 </span> -<span id="L19542" class="LineNr">19542 </span><span class="Constant">$Mu-register-xmm7</span>: -<span id="L19543" class="LineNr">19543 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19544" class="LineNr">19544 </span> <span class="subxComment"># "xmm7"</span> -<span id="L19545" class="LineNr">19545 </span> 0x4/imm32/size -<span id="L19546" class="LineNr">19546 </span> 0x78/x 0x6d/m 0x6d/m 0x37/7 -<span id="L19547" class="LineNr">19547 </span> -<span id="L19548" class="LineNr">19548 </span>== code -<span id="L19549" class="LineNr">19549 </span> -<span id="L19550" class="LineNr">19550 </span><span class="subxComment"># push 'out' to 'vars' if not already there; it's assumed to be a fn output</span> -<span id="L19551" class="LineNr">19551 </span><span class="subxFunction">maybe-define-var</span>: <span class="subxComment"># out: (handle var), vars: (addr stack live-var)</span> -<span id="L19552" class="LineNr">19552 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19553" class="LineNr">19553 </span> 55/push-ebp -<span id="L19554" class="LineNr">19554 </span> 89/<- %ebp 4/r32/esp -<span id="L19555" class="LineNr">19555 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19556" class="LineNr">19556 </span> 50/push-eax -<span id="L19557" class="LineNr">19557 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> -<span id="L19558" class="LineNr">19558 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L19559" class="LineNr">19559 </span> <span class="subxComment">#</span> -<span id="L19560" class="LineNr">19560 </span> (<a href='mu.subx.html#L19576'>binding-exists?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L19561" class="LineNr">19561 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19562" class="LineNr">19562 </span> 75/jump-if-!= $maybe-define-var:end/disp8 -<span id="L19563" class="LineNr">19563 </span> <span class="subxComment"># otherwise update vars</span> -<span id="L19564" class="LineNr">19564 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+8)) -<span id="L19565" class="LineNr">19565 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+0xc)) -<span id="L19566" class="LineNr">19566 </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="L19567" class="LineNr">19567 </span><span class="Constant">$maybe-define-var:end</span>: -<span id="L19568" class="LineNr">19568 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19569" class="LineNr">19569 </span> 58/pop-to-eax -<span id="L19570" class="LineNr">19570 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19571" class="LineNr">19571 </span> 89/<- %esp 5/r32/ebp -<span id="L19572" class="LineNr">19572 </span> 5d/pop-to-ebp -<span id="L19573" class="LineNr">19573 </span> c3/return -<span id="L19574" class="LineNr">19574 </span> -<span id="L19575" class="LineNr">19575 </span><span class="subxComment"># simpler version of lookup-var-helper</span> -<span id="L19576" class="LineNr">19576 </span><span class="subxFunction">binding-exists?</span>: <span class="subxComment"># target: (addr var), vars: (addr stack live-var) -> result/eax: boolean</span> -<span id="L19577" class="LineNr">19577 </span> <span class="subxComment"># pseudocode:</span> -<span id="L19578" class="LineNr">19578 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19579" class="LineNr">19579 </span> <span class="subxComment"># var min = vars->data</span> -<span id="L19580" class="LineNr">19580 </span> <span class="subxComment"># while curr >= min</span> -<span id="L19581" class="LineNr">19581 </span> <span class="subxComment"># var v: (handle var) = *curr</span> -<span id="L19582" class="LineNr">19582 </span> <span class="subxComment"># if v->name == target->name</span> -<span id="L19583" class="LineNr">19583 </span> <span class="subxComment"># return true</span> -<span id="L19584" class="LineNr">19584 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19585" class="LineNr">19585 </span> <span class="subxComment"># return false</span> -<span id="L19586" class="LineNr">19586 </span> <span class="subxComment">#</span> -<span id="L19587" class="LineNr">19587 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19588" class="LineNr">19588 </span> 55/push-ebp -<span id="L19589" class="LineNr">19589 </span> 89/<- %ebp 4/r32/esp -<span id="L19590" class="LineNr">19590 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19591" class="LineNr">19591 </span> 51/push-ecx -<span id="L19592" class="LineNr">19592 </span> 52/push-edx -<span id="L19593" class="LineNr">19593 </span> 56/push-esi -<span id="L19594" class="LineNr">19594 </span> <span class="subxComment"># var target-name/ecx: (addr array byte) = lookup(target->name)</span> -<span id="L19595" class="LineNr">19595 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L19596" class="LineNr">19596 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19597" class="LineNr">19597 </span> 89/<- %ecx 0/r32/eax -<span id="L19598" class="LineNr">19598 </span> <span class="subxComment"># esi = vars</span> -<span id="L19599" class="LineNr">19599 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L19600" class="LineNr">19600 </span> <span class="subxComment"># eax = vars->top</span> -<span id="L19601" class="LineNr">19601 </span> 8b/-> *esi 0/r32/eax -<span id="L19602" class="LineNr">19602 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> -<span id="L19603" class="LineNr">19603 </span> 8d/copy-address *(esi+8) 2/r32/edx -<span id="L19604" class="LineNr">19604 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19605" class="LineNr">19605 </span> 8d/copy-address *(esi+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->type - 12</span> -<span id="L19606" class="LineNr">19606 </span> { -<span id="L19607" class="LineNr">19607 </span><span class="Constant">$binding-exists?:loop</span>: -<span id="L19608" class="LineNr">19608 </span> <span class="subxComment"># if (curr < min) return</span> -<span id="L19609" class="LineNr">19609 </span> 39/compare %esi 2/r32/edx -<span id="L19610" class="LineNr">19610 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L19611" class="LineNr">19611 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(*curr)</span> -<span id="L19612" class="LineNr">19612 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L19613" class="LineNr">19613 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> -<span id="L19614" class="LineNr">19614 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19615" class="LineNr">19615 </span> <span class="subxComment"># if (vn == target-name) return true</span> -<span id="L19616" class="LineNr">19616 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> -<span id="L19617" class="LineNr">19617 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19618" class="LineNr">19618 </span> 75/jump-if-!= $binding-exists?:end/disp8 <span class="subxComment"># eax already contains true</span> -<span id="L19619" class="LineNr">19619 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19620" class="LineNr">19620 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L19621" class="LineNr">19621 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L19622" class="LineNr">19622 </span> } -<span id="L19623" class="LineNr">19623 </span> b8/copy-to-eax 0/imm32/false -<span id="L19624" class="LineNr">19624 </span><span class="Constant">$binding-exists?:end</span>: -<span id="L19625" class="LineNr">19625 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19626" class="LineNr">19626 </span> 5e/pop-to-esi -<span id="L19627" class="LineNr">19627 </span> 5a/pop-to-edx -<span id="L19628" class="LineNr">19628 </span> 59/pop-to-ecx -<span id="L19629" class="LineNr">19629 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19630" class="LineNr">19630 </span> 89/<- %esp 5/r32/ebp -<span id="L19631" class="LineNr">19631 </span> 5d/pop-to-ebp -<span id="L19632" class="LineNr">19632 </span> c3/return -<span id="L19633" class="LineNr">19633 </span> -<span id="L19634" class="LineNr">19634 </span><span class="subxTest">test-parse-mu-stmt</span>: -<span id="L19635" class="LineNr">19635 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19636" class="LineNr">19636 </span> 55/push-ebp -<span id="L19637" class="LineNr">19637 </span> 89/<- %ebp 4/r32/esp -<span id="L19638" class="LineNr">19638 </span> <span class="subxComment"># setup</span> -<span id="L19639" class="LineNr">19639 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L19640" class="LineNr">19640 </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="L19641" class="LineNr">19641 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L19642" class="LineNr">19642 </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="L19643" class="LineNr">19643 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L19644" class="LineNr">19644 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L19645" class="LineNr">19645 </span> 68/push 0xc0/imm32/size -<span id="L19646" class="LineNr">19646 </span> 68/push 0/imm32/top -<span id="L19647" class="LineNr">19647 </span> 89/<- %ecx 4/r32/esp -<span id="L19648" class="LineNr">19648 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L19649" class="LineNr">19649 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L19650" class="LineNr">19650 </span> 68/push 0/imm32 -<span id="L19651" class="LineNr">19651 </span> 68/push 0/imm32 -<span id="L19652" class="LineNr">19652 </span> 89/<- %edx 4/r32/esp -<span id="L19653" class="LineNr">19653 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> -<span id="L19654" class="LineNr">19654 </span> 68/push 0/imm32 -<span id="L19655" class="LineNr">19655 </span> 68/push 0/imm32 -<span id="L19656" class="LineNr">19656 </span> 89/<- %eax 4/r32/esp -<span id="L19657" class="LineNr">19657 </span> <span class="subxComment"># v = new var("n")</span> -<span id="L19658" class="LineNr">19658 </span> (<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="L19659" class="LineNr">19659 </span> (<a href='mu.subx.html#L19750'>new-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) -<span id="L19660" class="LineNr">19660 </span> <span class="subxComment">#</span> -<span id="L19661" class="LineNr">19661 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *edx) -<span id="L19662" class="LineNr">19662 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *(edx+4)) -<span id="L19663" class="LineNr">19663 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx 0) -<span id="L19664" class="LineNr">19664 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> -<span id="L19665" class="LineNr">19665 </span> 68/push 0/imm32 -<span id="L19666" class="LineNr">19666 </span> 68/push 0/imm32 -<span id="L19667" class="LineNr">19667 </span> 89/<- %eax 4/r32/esp -<span id="L19668" class="LineNr">19668 </span> <span class="subxComment"># convert</span> -<span id="L19669" class="LineNr">19669 </span> (<a href='mu.subx.html#L18788'>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="L19670" class="LineNr">19670 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> -<span id="L19671" class="LineNr">19671 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L19672" class="LineNr">19672 </span> 89/<- %edx 0/r32/eax -<span id="L19673" class="LineNr">19673 </span> <span class="subxComment"># out->tag</span> -<span id="L19674" class="LineNr">19674 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L19634'>test-parse-mu-stmt</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> -<span id="L19675" class="LineNr">19675 </span> <span class="subxComment"># out->operation</span> -<span id="L19676" class="LineNr">19676 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L19677" class="LineNr">19677 </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#L19634'>test-parse-mu-stmt</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> -<span id="L19678" class="LineNr">19678 </span> <span class="subxComment"># out->inouts->value->name</span> -<span id="L19679" class="LineNr">19679 </span> <span class="subxS1Comment"># . eax = out->inouts</span> -<span id="L19680" class="LineNr">19680 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L19681" class="LineNr">19681 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> -<span id="L19682" class="LineNr">19682 </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="L19683" class="LineNr">19683 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> -<span id="L19684" class="LineNr">19684 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19685" class="LineNr">19685 </span> <span class="subxS1Comment"># .</span> -<span id="L19686" class="LineNr">19686 </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#L19634'>test-parse-mu-stmt</a>/inout:0"</span>) -<span id="L19687" class="LineNr">19687 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19688" class="LineNr">19688 </span> 89/<- %esp 5/r32/ebp -<span id="L19689" class="LineNr">19689 </span> 5d/pop-to-ebp -<span id="L19690" class="LineNr">19690 </span> c3/return -<span id="L19691" class="LineNr">19691 </span> -<span id="L19692" class="LineNr">19692 </span><span class="subxTest">test-parse-mu-stmt-with-comma</span>: -<span id="L19693" class="LineNr">19693 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19694" class="LineNr">19694 </span> 55/push-ebp -<span id="L19695" class="LineNr">19695 </span> 89/<- %ebp 4/r32/esp -<span id="L19696" class="LineNr">19696 </span> <span class="subxComment"># setup</span> -<span id="L19697" class="LineNr">19697 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L19698" class="LineNr">19698 </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="L19699" class="LineNr">19699 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L19700" class="LineNr">19700 </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="L19701" class="LineNr">19701 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L19702" class="LineNr">19702 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L19703" class="LineNr">19703 </span> 68/push 0xc0/imm32/size -<span id="L19704" class="LineNr">19704 </span> 68/push 0/imm32/top -<span id="L19705" class="LineNr">19705 </span> 89/<- %ecx 4/r32/esp -<span id="L19706" class="LineNr">19706 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L19707" class="LineNr">19707 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L19708" class="LineNr">19708 </span> 68/push 0/imm32 -<span id="L19709" class="LineNr">19709 </span> 68/push 0/imm32 -<span id="L19710" class="LineNr">19710 </span> 89/<- %edx 4/r32/esp -<span id="L19711" class="LineNr">19711 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> -<span id="L19712" class="LineNr">19712 </span> 68/push 0/imm32 -<span id="L19713" class="LineNr">19713 </span> 68/push 0/imm32 -<span id="L19714" class="LineNr">19714 </span> 89/<- %eax 4/r32/esp -<span id="L19715" class="LineNr">19715 </span> <span class="subxComment"># v = new var("n")</span> -<span id="L19716" class="LineNr">19716 </span> (<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="L19717" class="LineNr">19717 </span> (<a href='mu.subx.html#L19750'>new-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) -<span id="L19718" class="LineNr">19718 </span> <span class="subxComment">#</span> -<span id="L19719" class="LineNr">19719 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *edx) -<span id="L19720" class="LineNr">19720 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *(edx+4)) -<span id="L19721" class="LineNr">19721 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx 0) -<span id="L19722" class="LineNr">19722 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> -<span id="L19723" class="LineNr">19723 </span> 68/push 0/imm32 -<span id="L19724" class="LineNr">19724 </span> 68/push 0/imm32 -<span id="L19725" class="LineNr">19725 </span> 89/<- %eax 4/r32/esp -<span id="L19726" class="LineNr">19726 </span> <span class="subxComment"># convert</span> -<span id="L19727" class="LineNr">19727 </span> (<a href='mu.subx.html#L18788'>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="L19728" class="LineNr">19728 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> -<span id="L19729" class="LineNr">19729 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L19730" class="LineNr">19730 </span> 89/<- %edx 0/r32/eax -<span id="L19731" class="LineNr">19731 </span> <span class="subxComment"># out->tag</span> -<span id="L19732" class="LineNr">19732 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L19692'>test-parse-mu-stmt-with-comma</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> -<span id="L19733" class="LineNr">19733 </span> <span class="subxComment"># out->operation</span> -<span id="L19734" class="LineNr">19734 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L19735" class="LineNr">19735 </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#L19692'>test-parse-mu-stmt-with-comma</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> -<span id="L19736" class="LineNr">19736 </span> <span class="subxComment"># out->inouts->value->name</span> -<span id="L19737" class="LineNr">19737 </span> <span class="subxS1Comment"># . eax = out->inouts</span> -<span id="L19738" class="LineNr">19738 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L19739" class="LineNr">19739 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> -<span id="L19740" class="LineNr">19740 </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="L19741" class="LineNr">19741 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> -<span id="L19742" class="LineNr">19742 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19743" class="LineNr">19743 </span> <span class="subxS1Comment"># .</span> -<span id="L19744" class="LineNr">19744 </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#L19692'>test-parse-mu-stmt-with-comma</a>/inout:0"</span>) +<span id="L19524" class="LineNr">19524 </span><span class="Constant">$lookup-var-helper:error2</span>: +<span id="L19525" class="LineNr">19525 </span> <span class="subxComment"># eax contains the conflicting var at this point</span> +<span id="L19526" class="LineNr">19526 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19527" class="LineNr">19527 </span> 50/push-eax +<span id="L19528" class="LineNr">19528 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19529" class="LineNr">19529 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19530" class="LineNr">19530 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19531" class="LineNr">19531 </span> 58/pop-eax +<span id="L19532" class="LineNr">19532 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": register "</span>) +<span id="L19533" class="LineNr">19533 </span> 50/push-eax +<span id="L19534" class="LineNr">19534 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L19535" class="LineNr">19535 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19536" class="LineNr">19536 </span> 58/pop-to-eax +<span id="L19537" class="LineNr">19537 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">" reads var '"</span>) +<span id="L19538" class="LineNr">19538 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L19539" class="LineNr">19539 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' after writing var '"</span>) +<span id="L19540" class="LineNr">19540 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19541" class="LineNr">19541 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19542" class="LineNr">19542 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L19543" class="LineNr">19543 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19544" class="LineNr">19544 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19545" class="LineNr">19545 </span> <span class="subxComment"># never gets here</span> +<span id="L19546" class="LineNr">19546 </span> +<span id="L19547" class="LineNr">19547 </span><span class="subxFunction">dump-vars</span>: <span class="subxComment"># vars: (addr stack live-var)</span> +<span id="L19548" class="LineNr">19548 </span> <span class="subxComment"># pseudocode:</span> +<span id="L19549" class="LineNr">19549 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19550" class="LineNr">19550 </span> <span class="subxComment"># var min = vars->data</span> +<span id="L19551" class="LineNr">19551 </span> <span class="subxComment"># while curr >= min</span> +<span id="L19552" class="LineNr">19552 </span> <span class="subxComment"># var v: (handle var) = *curr</span> +<span id="L19553" class="LineNr">19553 </span> <span class="subxComment"># print v</span> +<span id="L19554" class="LineNr">19554 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19555" class="LineNr">19555 </span> <span class="subxComment">#</span> +<span id="L19556" class="LineNr">19556 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19557" class="LineNr">19557 </span> 55/push-ebp +<span id="L19558" class="LineNr">19558 </span> 89/<- %ebp 4/r32/esp +<span id="L19559" class="LineNr">19559 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19560" class="LineNr">19560 </span> 52/push-edx +<span id="L19561" class="LineNr">19561 </span> 53/push-ebx +<span id="L19562" class="LineNr">19562 </span> 56/push-esi +<span id="L19563" class="LineNr">19563 </span> <span class="subxComment"># esi = vars</span> +<span id="L19564" class="LineNr">19564 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L19565" class="LineNr">19565 </span> <span class="subxComment"># ebx = vars->top</span> +<span id="L19566" class="LineNr">19566 </span> 8b/-> *esi 3/r32/ebx +<span id="L19567" class="LineNr">19567 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> +<span id="L19568" class="LineNr">19568 </span> 8d/copy-address *(esi+8) 2/r32/edx +<span id="L19569" class="LineNr">19569 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19570" class="LineNr">19570 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> +<span id="L19571" class="LineNr">19571 </span> { +<span id="L19572" class="LineNr">19572 </span><span class="Constant">$dump-vars:loop</span>: +<span id="L19573" class="LineNr">19573 </span> <span class="subxComment"># if (curr < min) return</span> +<span id="L19574" class="LineNr">19574 </span> 39/compare %ebx 2/r32/edx +<span id="L19575" class="LineNr">19575 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L19576" class="LineNr">19576 </span> <span class="subxComment">#</span> +<span id="L19577" class="LineNr">19577 </span> (<a 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="L19578" class="LineNr">19578 </span> (<a href='mu.subx.html#L21417'>dump-var</a> 2 %ebx) +<span id="L19579" class="LineNr">19579 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19580" class="LineNr">19580 </span> 81 5/subop/subtract %ebx 0xc/imm32 +<span id="L19581" class="LineNr">19581 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L19582" class="LineNr">19582 </span> } +<span id="L19583" class="LineNr">19583 </span><span class="Constant">$dump-vars:end</span>: +<span id="L19584" class="LineNr">19584 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19585" class="LineNr">19585 </span> 5e/pop-to-esi +<span id="L19586" class="LineNr">19586 </span> 5b/pop-to-ebx +<span id="L19587" class="LineNr">19587 </span> 5a/pop-to-edx +<span id="L19588" class="LineNr">19588 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19589" class="LineNr">19589 </span> 89/<- %esp 5/r32/ebp +<span id="L19590" class="LineNr">19590 </span> 5d/pop-to-ebp +<span id="L19591" class="LineNr">19591 </span> c3/return +<span id="L19592" class="LineNr">19592 </span> +<span id="L19593" class="LineNr">19593 </span>== data +<span id="L19594" class="LineNr">19594 </span><span class="subxComment"># Like Registers, but no esp or ebp</span> +<span id="L19595" class="LineNr">19595 </span><span class="SpecialChar">Mu-registers</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> +<span id="L19596" class="LineNr">19596 </span> <span class="subxComment"># a table is a stream</span> +<span id="L19597" class="LineNr">19597 </span> 0xa8/imm32/write +<span id="L19598" class="LineNr">19598 </span> 0/imm32/read +<span id="L19599" class="LineNr">19599 </span> 0xa8/imm32/length +<span id="L19600" class="LineNr">19600 </span> <span class="subxComment"># data</span> +<span id="L19601" class="LineNr">19601 </span> <span class="subxComment"># general-purpose registers</span> +<span id="L19602" class="LineNr">19602 </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="L19603" class="LineNr">19603 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 +<span id="L19604" class="LineNr">19604 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 +<span id="L19605" class="LineNr">19605 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 +<span id="L19606" class="LineNr">19606 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 +<span id="L19607" class="LineNr">19607 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 +<span id="L19608" class="LineNr">19608 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 +<span id="L19609" class="LineNr">19609 </span> <span class="subxComment"># floating-point registers</span> +<span id="L19610" class="LineNr">19610 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 0/imm32 +<span id="L19611" class="LineNr">19611 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 1/imm32 +<span id="L19612" class="LineNr">19612 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 2/imm32 +<span id="L19613" class="LineNr">19613 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 3/imm32 +<span id="L19614" class="LineNr">19614 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 4/imm32 +<span id="L19615" class="LineNr">19615 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 5/imm32 +<span id="L19616" class="LineNr">19616 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 6/imm32 +<span id="L19617" class="LineNr">19617 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 7/imm32 +<span id="L19618" class="LineNr">19618 </span> +<span id="L19619" class="LineNr">19619 </span><span class="subxComment"># Like Mu-registers, but with unique codes for integer and floating-point</span> +<span id="L19620" class="LineNr">19620 </span><span class="subxComment"># registers.</span> +<span id="L19621" class="LineNr">19621 </span><span class="subxComment"># Don't use this for code-generation, only for checking.</span> +<span id="L19622" class="LineNr">19622 </span><span class="SpecialChar">Mu-registers-unique</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> +<span id="L19623" class="LineNr">19623 </span> <span class="subxComment"># a table is a stream</span> +<span id="L19624" class="LineNr">19624 </span> 0xa8/imm32/write +<span id="L19625" class="LineNr">19625 </span> 0/imm32/read +<span id="L19626" class="LineNr">19626 </span> 0xa8/imm32/length +<span id="L19627" class="LineNr">19627 </span> <span class="subxComment"># data</span> +<span id="L19628" class="LineNr">19628 </span> <span class="subxComment"># general-purpose registers</span> +<span id="L19629" class="LineNr">19629 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 +<span id="L19630" class="LineNr">19630 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 +<span id="L19631" class="LineNr">19631 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 +<span id="L19632" class="LineNr">19632 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 +<span id="L19633" class="LineNr">19633 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 +<span id="L19634" class="LineNr">19634 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 +<span id="L19635" class="LineNr">19635 </span> <span class="subxComment"># floating-point registers</span> +<span id="L19636" class="LineNr">19636 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 8/imm32 +<span id="L19637" class="LineNr">19637 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 9/imm32 +<span id="L19638" class="LineNr">19638 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 0xa/imm32 +<span id="L19639" class="LineNr">19639 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 0xb/imm32 +<span id="L19640" class="LineNr">19640 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 0xc/imm32 +<span id="L19641" class="LineNr">19641 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 0xd/imm32 +<span id="L19642" class="LineNr">19642 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 0xe/imm32 +<span id="L19643" class="LineNr">19643 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 0xf/imm32 +<span id="L19644" class="LineNr">19644 </span> +<span id="L19645" class="LineNr">19645 </span><span class="Constant">$Mu-register-eax</span>: +<span id="L19646" class="LineNr">19646 </span> 0x11/imm32/alloc-id +<span id="L19647" class="LineNr">19647 </span> 3/imm32/size +<span id="L19648" class="LineNr">19648 </span> 0x65/e 0x61/a 0x78/x +<span id="L19649" class="LineNr">19649 </span> +<span id="L19650" class="LineNr">19650 </span><span class="Constant">$Mu-register-ecx</span>: +<span id="L19651" class="LineNr">19651 </span> 0x11/imm32/alloc-id +<span id="L19652" class="LineNr">19652 </span> 3/imm32/size +<span id="L19653" class="LineNr">19653 </span> 0x65/e 0x63/c 0x78/x +<span id="L19654" class="LineNr">19654 </span> +<span id="L19655" class="LineNr">19655 </span><span class="Constant">$Mu-register-edx</span>: +<span id="L19656" class="LineNr">19656 </span> 0x11/imm32/alloc-id +<span id="L19657" class="LineNr">19657 </span> 3/imm32/size +<span id="L19658" class="LineNr">19658 </span> 0x65/e 0x64/d 0x78/x +<span id="L19659" class="LineNr">19659 </span> +<span id="L19660" class="LineNr">19660 </span><span class="Constant">$Mu-register-ebx</span>: +<span id="L19661" class="LineNr">19661 </span> 0x11/imm32/alloc-id +<span id="L19662" class="LineNr">19662 </span> 3/imm32/size +<span id="L19663" class="LineNr">19663 </span> 0x65/e 0x62/b 0x78/x +<span id="L19664" class="LineNr">19664 </span> +<span id="L19665" class="LineNr">19665 </span><span class="Constant">$Mu-register-esi</span>: +<span id="L19666" class="LineNr">19666 </span> 0x11/imm32/alloc-id +<span id="L19667" class="LineNr">19667 </span> 3/imm32/size +<span id="L19668" class="LineNr">19668 </span> 0x65/e 0x73/s 0x69/i +<span id="L19669" class="LineNr">19669 </span> +<span id="L19670" class="LineNr">19670 </span><span class="Constant">$Mu-register-edi</span>: +<span id="L19671" class="LineNr">19671 </span> 0x11/imm32/alloc-id +<span id="L19672" class="LineNr">19672 </span> 3/imm32/size +<span id="L19673" class="LineNr">19673 </span> 0x65/e 0x64/d 0x69/i +<span id="L19674" class="LineNr">19674 </span> +<span id="L19675" class="LineNr">19675 </span><span class="Constant">$Mu-register-xmm0</span>: +<span id="L19676" class="LineNr">19676 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19677" class="LineNr">19677 </span> <span class="subxComment"># "xmm0"</span> +<span id="L19678" class="LineNr">19678 </span> 0x4/imm32/size +<span id="L19679" class="LineNr">19679 </span> 0x78/x 0x6d/m 0x6d/m 0x30/0 +<span id="L19680" class="LineNr">19680 </span> +<span id="L19681" class="LineNr">19681 </span><span class="Constant">$Mu-register-xmm1</span>: +<span id="L19682" class="LineNr">19682 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19683" class="LineNr">19683 </span> <span class="subxComment"># "xmm1"</span> +<span id="L19684" class="LineNr">19684 </span> 0x4/imm32/size +<span id="L19685" class="LineNr">19685 </span> 0x78/x 0x6d/m 0x6d/m 0x31/1 +<span id="L19686" class="LineNr">19686 </span> +<span id="L19687" class="LineNr">19687 </span><span class="Constant">$Mu-register-xmm2</span>: +<span id="L19688" class="LineNr">19688 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19689" class="LineNr">19689 </span> <span class="subxComment"># "xmm2"</span> +<span id="L19690" class="LineNr">19690 </span> 0x4/imm32/size +<span id="L19691" class="LineNr">19691 </span> 0x78/x 0x6d/m 0x6d/m 0x32/2 +<span id="L19692" class="LineNr">19692 </span> +<span id="L19693" class="LineNr">19693 </span><span class="Constant">$Mu-register-xmm3</span>: +<span id="L19694" class="LineNr">19694 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19695" class="LineNr">19695 </span> <span class="subxComment"># "xmm3"</span> +<span id="L19696" class="LineNr">19696 </span> 0x4/imm32/size +<span id="L19697" class="LineNr">19697 </span> 0x78/x 0x6d/m 0x6d/m 0x33/3 +<span id="L19698" class="LineNr">19698 </span> +<span id="L19699" class="LineNr">19699 </span><span class="Constant">$Mu-register-xmm4</span>: +<span id="L19700" class="LineNr">19700 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19701" class="LineNr">19701 </span> <span class="subxComment"># "xmm4"</span> +<span id="L19702" class="LineNr">19702 </span> 0x4/imm32/size +<span id="L19703" class="LineNr">19703 </span> 0x78/x 0x6d/m 0x6d/m 0x34/4 +<span id="L19704" class="LineNr">19704 </span> +<span id="L19705" class="LineNr">19705 </span><span class="Constant">$Mu-register-xmm5</span>: +<span id="L19706" class="LineNr">19706 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19707" class="LineNr">19707 </span> <span class="subxComment"># "xmm5"</span> +<span id="L19708" class="LineNr">19708 </span> 0x4/imm32/size +<span id="L19709" class="LineNr">19709 </span> 0x78/x 0x6d/m 0x6d/m 0x35/5 +<span id="L19710" class="LineNr">19710 </span> +<span id="L19711" class="LineNr">19711 </span><span class="Constant">$Mu-register-xmm6</span>: +<span id="L19712" class="LineNr">19712 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19713" class="LineNr">19713 </span> <span class="subxComment"># "xmm6"</span> +<span id="L19714" class="LineNr">19714 </span> 0x4/imm32/size +<span id="L19715" class="LineNr">19715 </span> 0x78/x 0x6d/m 0x6d/m 0x36/6 +<span id="L19716" class="LineNr">19716 </span> +<span id="L19717" class="LineNr">19717 </span><span class="Constant">$Mu-register-xmm7</span>: +<span id="L19718" class="LineNr">19718 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19719" class="LineNr">19719 </span> <span class="subxComment"># "xmm7"</span> +<span id="L19720" class="LineNr">19720 </span> 0x4/imm32/size +<span id="L19721" class="LineNr">19721 </span> 0x78/x 0x6d/m 0x6d/m 0x37/7 +<span id="L19722" class="LineNr">19722 </span> +<span id="L19723" class="LineNr">19723 </span>== code +<span id="L19724" class="LineNr">19724 </span> +<span id="L19725" class="LineNr">19725 </span><span class="subxComment"># push 'out' to 'vars' if not already there; it's assumed to be a fn output</span> +<span id="L19726" class="LineNr">19726 </span><span class="subxFunction">maybe-define-var</span>: <span class="subxComment"># out: (handle var), vars: (addr stack live-var)</span> +<span id="L19727" class="LineNr">19727 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19728" class="LineNr">19728 </span> 55/push-ebp +<span id="L19729" class="LineNr">19729 </span> 89/<- %ebp 4/r32/esp +<span id="L19730" class="LineNr">19730 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19731" class="LineNr">19731 </span> 50/push-eax +<span id="L19732" class="LineNr">19732 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> +<span id="L19733" class="LineNr">19733 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L19734" class="LineNr">19734 </span> <span class="subxComment">#</span> +<span id="L19735" class="LineNr">19735 </span> (<a href='mu.subx.html#L19751'>binding-exists?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L19736" class="LineNr">19736 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19737" class="LineNr">19737 </span> 75/jump-if-!= $maybe-define-var:end/disp8 +<span id="L19738" class="LineNr">19738 </span> <span class="subxComment"># otherwise update vars</span> +<span id="L19739" class="LineNr">19739 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+8)) +<span id="L19740" class="LineNr">19740 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+0xc)) +<span id="L19741" class="LineNr">19741 </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="L19742" class="LineNr">19742 </span><span class="Constant">$maybe-define-var:end</span>: +<span id="L19743" class="LineNr">19743 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19744" class="LineNr">19744 </span> 58/pop-to-eax <span id="L19745" class="LineNr">19745 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L19746" class="LineNr">19746 </span> 89/<- %esp 5/r32/ebp <span id="L19747" class="LineNr">19747 </span> 5d/pop-to-ebp <span id="L19748" class="LineNr">19748 </span> c3/return <span id="L19749" class="LineNr">19749 </span> -<span id="L19750" class="LineNr">19750 </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="L19751" class="LineNr">19751 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19752" class="LineNr">19752 </span> 55/push-ebp -<span id="L19753" class="LineNr">19753 </span> 89/<- %ebp 4/r32/esp -<span id="L19754" class="LineNr">19754 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19755" class="LineNr">19755 </span> 50/push-eax -<span id="L19756" class="LineNr">19756 </span> 51/push-ecx -<span id="L19757" class="LineNr">19757 </span> <span class="subxComment"># ecx = out</span> -<span id="L19758" class="LineNr">19758 </span> 8b/-> *(ebp+0x14) 1/r32/ecx -<span id="L19759" class="LineNr">19759 </span> <span class="subxComment">#</span> -<span id="L19760" class="LineNr">19760 </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="L19761" class="LineNr">19761 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> -<span id="L19762" class="LineNr">19762 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L19763" class="LineNr">19763 </span> <span class="subxComment"># out-addr->name = name</span> -<span id="L19764" class="LineNr">19764 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L19765" class="LineNr">19765 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Var-name</span> -<span id="L19766" class="LineNr">19766 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L19767" class="LineNr">19767 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Var-name</span> -<span id="L19768" class="LineNr">19768 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> -<span id="L19769" class="LineNr">19769 </span><span class="CommentedCode">#? (lookup *(ebp+0xc) *(ebp+0x10))</span> -<span id="L19770" class="LineNr">19770 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L19771" class="LineNr">19771 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> -<span id="L19772" class="LineNr">19772 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x14) 1/r32/ecx</span> -<span id="L19773" class="LineNr">19773 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4)) # => eax</span> -<span id="L19774" class="LineNr">19774 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L19775" class="LineNr">19775 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L19776" class="LineNr">19776 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L19777" class="LineNr">19777 </span><span class="Constant">$new-var:end</span>: -<span id="L19778" class="LineNr">19778 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19779" class="LineNr">19779 </span> 59/pop-to-ecx -<span id="L19780" class="LineNr">19780 </span> 58/pop-to-eax -<span id="L19781" class="LineNr">19781 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19782" class="LineNr">19782 </span> 89/<- %esp 5/r32/ebp -<span id="L19783" class="LineNr">19783 </span> 5d/pop-to-ebp -<span id="L19784" class="LineNr">19784 </span> c3/return -<span id="L19785" class="LineNr">19785 </span> -<span id="L19786" class="LineNr">19786 </span><span class="subxComment"># WARNING: modifies name</span> -<span id="L19787" class="LineNr">19787 </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="L19788" class="LineNr">19788 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19789" class="LineNr">19789 </span> 55/push-ebp -<span id="L19790" class="LineNr">19790 </span> 89/<- %ebp 4/r32/esp -<span id="L19791" class="LineNr">19791 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19792" class="LineNr">19792 </span> 50/push-eax -<span id="L19793" class="LineNr">19793 </span> 51/push-ecx -<span id="L19794" class="LineNr">19794 </span> <span class="subxComment"># first strip out metadata</span> -<span id="L19795" class="LineNr">19795 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L19796" class="LineNr">19796 </span> (<a href='124next-token.subx.html#L163'>next-token-from-slice</a> *ecx *(ecx+4) 0x2f *(ebp+0xc)) -<span id="L19797" class="LineNr">19797 </span> <span class="subxComment"># if (!is-hex-int?(name)) abort</span> -<span id="L19798" class="LineNr">19798 </span> (<a href='118parse-hex-int.subx.html#L9'>hex-int?</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L19799" class="LineNr">19799 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19800" class="LineNr">19800 </span> 0f 84/jump-if-= $new-literal-integer:abort/disp32 -<span id="L19801" class="LineNr">19801 </span> <span class="subxComment"># a little more error-checking</span> -<span id="L19802" class="LineNr">19802 </span> (<a href='mu.subx.html#L19842'>check-mu-hex-int</a> *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L19803" class="LineNr">19803 </span> <span class="subxComment"># out = new var(s)</span> -<span id="L19804" class="LineNr">19804 </span> (<a href='mu.subx.html#L19980'>new-var-from-slice</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) -<span id="L19805" class="LineNr">19805 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> -<span id="L19806" class="LineNr">19806 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L19807" class="LineNr">19807 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L19808" class="LineNr">19808 </span> 89/<- %ecx 0/r32/eax -<span id="L19809" class="LineNr">19809 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> -<span id="L19810" class="LineNr">19810 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/r32/eax -<span id="L19811" class="LineNr">19811 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L19812" class="LineNr">19812 </span> <span class="subxComment"># out-addr->type = new tree()</span> -<span id="L19813" class="LineNr">19813 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L19814" class="LineNr">19814 </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="L19815" class="LineNr">19815 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L19816" class="LineNr">19816 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L19817" class="LineNr">19817 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> -<span id="L19818" class="LineNr">19818 </span><span class="Constant">$new-literal-integer:end</span>: -<span id="L19819" class="LineNr">19819 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19820" class="LineNr">19820 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19821" class="LineNr">19821 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19822" class="LineNr">19822 </span> 59/pop-to-ecx -<span id="L19823" class="LineNr">19823 </span> 58/pop-to-eax -<span id="L19824" class="LineNr">19824 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19825" class="LineNr">19825 </span> 89/<- %esp 5/r32/ebp -<span id="L19826" class="LineNr">19826 </span> 5d/pop-to-ebp -<span id="L19827" class="LineNr">19827 </span> c3/return -<span id="L19828" class="LineNr">19828 </span> -<span id="L19829" class="LineNr">19829 </span><span class="Constant">$new-literal-integer:abort</span>: -<span id="L19830" class="LineNr">19830 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19831" class="LineNr">19831 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19832" class="LineNr">19832 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19833" class="LineNr">19833 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19834" class="LineNr">19834 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": variable '"</span>) -<span id="L19835" class="LineNr">19835 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+0xc)) -<span id="L19836" class="LineNr">19836 </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="L19837" class="LineNr">19837 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19838" class="LineNr">19838 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L19839" class="LineNr">19839 </span> <span class="subxComment"># never gets here</span> -<span id="L19840" class="LineNr">19840 </span> -<span id="L19841" class="LineNr">19841 </span><span class="subxComment"># precondition: name is a valid hex integer; require a '0x' prefix</span> -<span id="L19842" class="LineNr">19842 </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="L19843" class="LineNr">19843 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19844" class="LineNr">19844 </span> 55/push-ebp -<span id="L19845" class="LineNr">19845 </span> 89/<- %ebp 4/r32/esp -<span id="L19846" class="LineNr">19846 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19847" class="LineNr">19847 </span> 50/push-eax -<span id="L19848" class="LineNr">19848 </span> 51/push-ecx -<span id="L19849" class="LineNr">19849 </span> 52/push-edx -<span id="L19850" class="LineNr">19850 </span> <span class="subxComment"># ecx = name</span> -<span id="L19851" class="LineNr">19851 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L19852" class="LineNr">19852 </span> <span class="subxComment"># var start/edx: (addr byte) = name->start</span> -<span id="L19853" class="LineNr">19853 </span> 8b/-> *ecx 2/r32/edx -<span id="L19854" class="LineNr">19854 </span> <span class="subxComment"># if (*start == '-') ++start</span> -<span id="L19855" class="LineNr">19855 </span> b8/copy-to-eax 0/imm32 -<span id="L19856" class="LineNr">19856 </span> 8a/copy-byte *edx 0/r32/AL -<span id="L19857" class="LineNr">19857 </span> 3d/compare-eax-and 0x2d/imm32/dash -<span id="L19858" class="LineNr">19858 </span> { -<span id="L19859" class="LineNr">19859 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L19860" class="LineNr">19860 </span> 42/increment-edx -<span id="L19861" class="LineNr">19861 </span> } -<span id="L19862" class="LineNr">19862 </span> <span class="subxComment"># var end/ecx: (addr byte) = name->end</span> -<span id="L19863" class="LineNr">19863 </span> 8b/-> *(ecx+4) 1/r32/ecx -<span id="L19864" class="LineNr">19864 </span> <span class="subxComment"># var len/eax: int = name->end - name->start</span> -<span id="L19865" class="LineNr">19865 </span> 89/<- %eax 1/r32/ecx -<span id="L19866" class="LineNr">19866 </span> 29/subtract-from %eax 2/r32/edx -<span id="L19867" class="LineNr">19867 </span> <span class="subxComment"># if (len <= 1) return</span> -<span id="L19868" class="LineNr">19868 </span> 3d/compare-eax-with 1/imm32 -<span id="L19869" class="LineNr">19869 </span> 0f 8e/jump-if-<= $check-mu-hex-int:end/disp32 -<span id="L19870" class="LineNr">19870 </span><span class="Constant">$check-mu-hex-int:length->-1</span>: -<span id="L19871" class="LineNr">19871 </span> <span class="subxComment"># if slice-starts-with?({start, end}, "0x") return</span> -<span id="L19872" class="LineNr">19872 </span> <span class="subxS1Comment"># . var tmp = {start, end}</span> -<span id="L19873" class="LineNr">19873 </span> 51/push-ecx -<span id="L19874" class="LineNr">19874 </span> 52/push-edx -<span id="L19875" class="LineNr">19875 </span> 89/<- %eax 4/r32/esp -<span id="L19876" class="LineNr">19876 </span> <span class="subxS1Comment"># .</span> -<span id="L19877" class="LineNr">19877 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %eax <span class="Constant">"0x"</span>) <span class="subxComment"># => eax</span> -<span id="L19878" class="LineNr">19878 </span> <span class="subxS1Comment"># . reclaim tmp</span> -<span id="L19879" class="LineNr">19879 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19880" class="LineNr">19880 </span> <span class="subxS1Comment"># .</span> -<span id="L19881" class="LineNr">19881 </span> 3d/compare-eax-with 0/imm32/false -<span id="L19882" class="LineNr">19882 </span> 75/jump-if-!= $check-mu-hex-int:end/disp8 -<span id="L19883" class="LineNr">19883 </span><span class="Constant">$check-mu-hex-int:abort</span>: -<span id="L19884" class="LineNr">19884 </span> <span class="subxComment"># otherwise abort</span> -<span id="L19885" class="LineNr">19885 </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="L19886" class="LineNr">19886 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *(ebp+8)) -<span id="L19887" class="LineNr">19887 </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="L19888" class="LineNr">19888 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L19889" class="LineNr">19889 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L19890" class="LineNr">19890 </span><span class="Constant">$check-mu-hex-int:end</span>: -<span id="L19891" class="LineNr">19891 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19892" class="LineNr">19892 </span> 5a/pop-to-edx -<span id="L19893" class="LineNr">19893 </span> 59/pop-to-ecx -<span id="L19894" class="LineNr">19894 </span> 58/pop-to-eax -<span id="L19895" class="LineNr">19895 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19896" class="LineNr">19896 </span> 89/<- %esp 5/r32/ebp -<span id="L19897" class="LineNr">19897 </span> 5d/pop-to-ebp -<span id="L19898" class="LineNr">19898 </span> c3/return -<span id="L19899" class="LineNr">19899 </span> -<span id="L19900" class="LineNr">19900 </span><span class="subxFunction">new-literal</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var)</span> -<span id="L19901" class="LineNr">19901 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19902" class="LineNr">19902 </span> 55/push-ebp -<span id="L19903" class="LineNr">19903 </span> 89/<- %ebp 4/r32/esp -<span id="L19904" class="LineNr">19904 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19905" class="LineNr">19905 </span> 50/push-eax -<span id="L19906" class="LineNr">19906 </span> 51/push-ecx -<span id="L19907" class="LineNr">19907 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> -<span id="L19908" class="LineNr">19908 </span> 68/push 0/imm32 -<span id="L19909" class="LineNr">19909 </span> 68/push 0/imm32 -<span id="L19910" class="LineNr">19910 </span> 89/<- %ecx 4/r32/esp -<span id="L19911" class="LineNr">19911 </span> <span class="subxComment"># s = slice-to-string(name)</span> -<span id="L19912" class="LineNr">19912 </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="L19913" class="LineNr">19913 </span> <span class="subxComment"># allocate to out</span> -<span id="L19914" class="LineNr">19914 </span> (<a href='mu.subx.html#L19750'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) -<span id="L19915" class="LineNr">19915 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> -<span id="L19916" class="LineNr">19916 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L19917" class="LineNr">19917 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L19918" class="LineNr">19918 </span> 89/<- %ecx 0/r32/eax -<span id="L19919" class="LineNr">19919 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> -<span id="L19920" class="LineNr">19920 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/r32/eax -<span id="L19921" class="LineNr">19921 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L19922" class="LineNr">19922 </span> <span class="subxComment"># out-addr->type/eax = new type</span> -<span id="L19923" class="LineNr">19923 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L19924" class="LineNr">19924 </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="L19925" class="LineNr">19925 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L19926" class="LineNr">19926 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> -<span id="L19927" class="LineNr">19927 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L19928" class="LineNr">19928 </span><span class="Constant">$new-literal:end</span>: -<span id="L19929" class="LineNr">19929 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19930" class="LineNr">19930 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19931" class="LineNr">19931 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19932" class="LineNr">19932 </span> 59/pop-to-ecx -<span id="L19933" class="LineNr">19933 </span> 58/pop-to-eax -<span id="L19934" class="LineNr">19934 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19935" class="LineNr">19935 </span> 89/<- %esp 5/r32/ebp -<span id="L19936" class="LineNr">19936 </span> 5d/pop-to-ebp -<span id="L19937" class="LineNr">19937 </span> c3/return -<span id="L19938" class="LineNr">19938 </span> -<span id="L19939" class="LineNr">19939 </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="L19940" class="LineNr">19940 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19941" class="LineNr">19941 </span> 55/push-ebp -<span id="L19942" class="LineNr">19942 </span> 89/<- %ebp 4/r32/esp -<span id="L19943" class="LineNr">19943 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19944" class="LineNr">19944 </span> 50/push-eax -<span id="L19945" class="LineNr">19945 </span> 51/push-ecx -<span id="L19946" class="LineNr">19946 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> -<span id="L19947" class="LineNr">19947 </span> 68/push 0/imm32 -<span id="L19948" class="LineNr">19948 </span> 68/push 0/imm32 -<span id="L19949" class="LineNr">19949 </span> 89/<- %ecx 4/r32/esp -<span id="L19950" class="LineNr">19950 </span> <span class="subxComment"># s = slice-to-string(name)</span> -<span id="L19951" class="LineNr">19951 </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="L19952" class="LineNr">19952 </span> <span class="subxComment"># allocate to out</span> -<span id="L19953" class="LineNr">19953 </span> (<a href='mu.subx.html#L19750'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) -<span id="L19954" class="LineNr">19954 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> -<span id="L19955" class="LineNr">19955 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L19956" class="LineNr">19956 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L19957" class="LineNr">19957 </span> 89/<- %ecx 0/r32/eax -<span id="L19958" class="LineNr">19958 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> -<span id="L19959" class="LineNr">19959 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/r32/eax -<span id="L19960" class="LineNr">19960 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L19961" class="LineNr">19961 </span> <span class="subxComment"># out-addr->type/eax = new type</span> -<span id="L19962" class="LineNr">19962 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L19963" class="LineNr">19963 </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="L19964" class="LineNr">19964 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L19965" class="LineNr">19965 </span> <span class="subxComment"># out-addr->type->value = literal-string</span> -<span id="L19966" class="LineNr">19966 </span> c7 0/subop/copy *(eax+4) 0x10/imm32/type-id-string-literal <span class="subxComment"># Type-tree-value</span> -<span id="L19967" class="LineNr">19967 </span> <span class="subxComment"># out-addr->type->is-atom? = true</span> -<span id="L19968" class="LineNr">19968 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L19969" class="LineNr">19969 </span><span class="Constant">$new-literal-string:end</span>: -<span id="L19970" class="LineNr">19970 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19971" class="LineNr">19971 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19972" class="LineNr">19972 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19973" class="LineNr">19973 </span> 59/pop-to-ecx -<span id="L19974" class="LineNr">19974 </span> 58/pop-to-eax -<span id="L19975" class="LineNr">19975 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19976" class="LineNr">19976 </span> 89/<- %esp 5/r32/ebp -<span id="L19977" class="LineNr">19977 </span> 5d/pop-to-ebp -<span id="L19978" class="LineNr">19978 </span> c3/return -<span id="L19979" class="LineNr">19979 </span> -<span id="L19980" class="LineNr">19980 </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="L19981" class="LineNr">19981 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19982" class="LineNr">19982 </span> 55/push-ebp -<span id="L19983" class="LineNr">19983 </span> 89/<- %ebp 4/r32/esp -<span id="L19984" class="LineNr">19984 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19985" class="LineNr">19985 </span> 51/push-ecx -<span id="L19986" class="LineNr">19986 </span> <span class="subxComment"># var tmp/ecx: (handle array byte)</span> -<span id="L19987" class="LineNr">19987 </span> 68/push 0/imm32 -<span id="L19988" class="LineNr">19988 </span> 68/push 0/imm32 -<span id="L19989" class="LineNr">19989 </span> 89/<- %ecx 4/r32/esp -<span id="L19990" class="LineNr">19990 </span> <span class="subxComment"># tmp = slice-to-string(name)</span> -<span id="L19991" class="LineNr">19991 </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="L19992" class="LineNr">19992 </span> <span class="subxComment"># out = new-var(tmp)</span> -<span id="L19993" class="LineNr">19993 </span> (<a href='mu.subx.html#L19750'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) -<span id="L19994" class="LineNr">19994 </span><span class="Constant">$new-var-from-slice:end</span>: -<span id="L19995" class="LineNr">19995 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19996" class="LineNr">19996 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19997" class="LineNr">19997 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19998" class="LineNr">19998 </span> 59/pop-to-ecx +<span id="L19750" class="LineNr">19750 </span><span class="subxComment"># simpler version of lookup-var-helper</span> +<span id="L19751" class="LineNr">19751 </span><span class="subxFunction">binding-exists?</span>: <span class="subxComment"># target: (addr var), vars: (addr stack live-var) -> result/eax: boolean</span> +<span id="L19752" class="LineNr">19752 </span> <span class="subxComment"># pseudocode:</span> +<span id="L19753" class="LineNr">19753 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19754" class="LineNr">19754 </span> <span class="subxComment"># var min = vars->data</span> +<span id="L19755" class="LineNr">19755 </span> <span class="subxComment"># while curr >= min</span> +<span id="L19756" class="LineNr">19756 </span> <span class="subxComment"># var v: (handle var) = *curr</span> +<span id="L19757" class="LineNr">19757 </span> <span class="subxComment"># if v->name == target->name</span> +<span id="L19758" class="LineNr">19758 </span> <span class="subxComment"># return true</span> +<span id="L19759" class="LineNr">19759 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19760" class="LineNr">19760 </span> <span class="subxComment"># return false</span> +<span id="L19761" class="LineNr">19761 </span> <span class="subxComment">#</span> +<span id="L19762" class="LineNr">19762 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19763" class="LineNr">19763 </span> 55/push-ebp +<span id="L19764" class="LineNr">19764 </span> 89/<- %ebp 4/r32/esp +<span id="L19765" class="LineNr">19765 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19766" class="LineNr">19766 </span> 51/push-ecx +<span id="L19767" class="LineNr">19767 </span> 52/push-edx +<span id="L19768" class="LineNr">19768 </span> 56/push-esi +<span id="L19769" class="LineNr">19769 </span> <span class="subxComment"># var target-name/ecx: (addr array byte) = lookup(target->name)</span> +<span id="L19770" class="LineNr">19770 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L19771" class="LineNr">19771 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19772" class="LineNr">19772 </span> 89/<- %ecx 0/r32/eax +<span id="L19773" class="LineNr">19773 </span> <span class="subxComment"># esi = vars</span> +<span id="L19774" class="LineNr">19774 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L19775" class="LineNr">19775 </span> <span class="subxComment"># eax = vars->top</span> +<span id="L19776" class="LineNr">19776 </span> 8b/-> *esi 0/r32/eax +<span id="L19777" class="LineNr">19777 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> +<span id="L19778" class="LineNr">19778 </span> 8d/copy-address *(esi+8) 2/r32/edx +<span id="L19779" class="LineNr">19779 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19780" class="LineNr">19780 </span> 8d/copy-address *(esi+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->type - 12</span> +<span id="L19781" class="LineNr">19781 </span> { +<span id="L19782" class="LineNr">19782 </span><span class="Constant">$binding-exists?:loop</span>: +<span id="L19783" class="LineNr">19783 </span> <span class="subxComment"># if (curr < min) return</span> +<span id="L19784" class="LineNr">19784 </span> 39/compare %esi 2/r32/edx +<span id="L19785" class="LineNr">19785 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L19786" class="LineNr">19786 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(*curr)</span> +<span id="L19787" class="LineNr">19787 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L19788" class="LineNr">19788 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> +<span id="L19789" class="LineNr">19789 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19790" class="LineNr">19790 </span> <span class="subxComment"># if (vn == target-name) return true</span> +<span id="L19791" class="LineNr">19791 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> +<span id="L19792" class="LineNr">19792 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19793" class="LineNr">19793 </span> 75/jump-if-!= $binding-exists?:end/disp8 <span class="subxComment"># eax already contains true</span> +<span id="L19794" class="LineNr">19794 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19795" class="LineNr">19795 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L19796" class="LineNr">19796 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L19797" class="LineNr">19797 </span> } +<span id="L19798" class="LineNr">19798 </span> b8/copy-to-eax 0/imm32/false +<span id="L19799" class="LineNr">19799 </span><span class="Constant">$binding-exists?:end</span>: +<span id="L19800" class="LineNr">19800 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19801" class="LineNr">19801 </span> 5e/pop-to-esi +<span id="L19802" class="LineNr">19802 </span> 5a/pop-to-edx +<span id="L19803" class="LineNr">19803 </span> 59/pop-to-ecx +<span id="L19804" class="LineNr">19804 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19805" class="LineNr">19805 </span> 89/<- %esp 5/r32/ebp +<span id="L19806" class="LineNr">19806 </span> 5d/pop-to-ebp +<span id="L19807" class="LineNr">19807 </span> c3/return +<span id="L19808" class="LineNr">19808 </span> +<span id="L19809" class="LineNr">19809 </span><span class="subxTest">test-parse-mu-stmt</span>: +<span id="L19810" class="LineNr">19810 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19811" class="LineNr">19811 </span> 55/push-ebp +<span id="L19812" class="LineNr">19812 </span> 89/<- %ebp 4/r32/esp +<span id="L19813" class="LineNr">19813 </span> <span class="subxComment"># setup</span> +<span id="L19814" class="LineNr">19814 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L19815" class="LineNr">19815 </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="L19816" class="LineNr">19816 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L19817" class="LineNr">19817 </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="L19818" class="LineNr">19818 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L19819" class="LineNr">19819 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L19820" class="LineNr">19820 </span> 68/push 0xc0/imm32/size +<span id="L19821" class="LineNr">19821 </span> 68/push 0/imm32/top +<span id="L19822" class="LineNr">19822 </span> 89/<- %ecx 4/r32/esp +<span id="L19823" class="LineNr">19823 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L19824" class="LineNr">19824 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L19825" class="LineNr">19825 </span> 68/push 0/imm32 +<span id="L19826" class="LineNr">19826 </span> 68/push 0/imm32 +<span id="L19827" class="LineNr">19827 </span> 89/<- %edx 4/r32/esp +<span id="L19828" class="LineNr">19828 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> +<span id="L19829" class="LineNr">19829 </span> 68/push 0/imm32 +<span id="L19830" class="LineNr">19830 </span> 68/push 0/imm32 +<span id="L19831" class="LineNr">19831 </span> 89/<- %eax 4/r32/esp +<span id="L19832" class="LineNr">19832 </span> <span class="subxComment"># v = new var("n")</span> +<span id="L19833" class="LineNr">19833 </span> (<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="L19834" class="LineNr">19834 </span> (<a href='mu.subx.html#L19925'>new-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) +<span id="L19835" class="LineNr">19835 </span> <span class="subxComment">#</span> +<span id="L19836" class="LineNr">19836 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *edx) +<span id="L19837" class="LineNr">19837 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *(edx+4)) +<span id="L19838" class="LineNr">19838 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx 0) +<span id="L19839" class="LineNr">19839 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> +<span id="L19840" class="LineNr">19840 </span> 68/push 0/imm32 +<span id="L19841" class="LineNr">19841 </span> 68/push 0/imm32 +<span id="L19842" class="LineNr">19842 </span> 89/<- %eax 4/r32/esp +<span id="L19843" class="LineNr">19843 </span> <span class="subxComment"># convert</span> +<span id="L19844" class="LineNr">19844 </span> (<a href='mu.subx.html#L18963'>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="L19845" class="LineNr">19845 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> +<span id="L19846" class="LineNr">19846 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L19847" class="LineNr">19847 </span> 89/<- %edx 0/r32/eax +<span id="L19848" class="LineNr">19848 </span> <span class="subxComment"># out->tag</span> +<span id="L19849" class="LineNr">19849 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L19809'>test-parse-mu-stmt</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> +<span id="L19850" class="LineNr">19850 </span> <span class="subxComment"># out->operation</span> +<span id="L19851" class="LineNr">19851 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L19852" class="LineNr">19852 </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#L19809'>test-parse-mu-stmt</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> +<span id="L19853" class="LineNr">19853 </span> <span class="subxComment"># out->inouts->value->name</span> +<span id="L19854" class="LineNr">19854 </span> <span class="subxS1Comment"># . eax = out->inouts</span> +<span id="L19855" class="LineNr">19855 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L19856" class="LineNr">19856 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> +<span id="L19857" class="LineNr">19857 </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="L19858" class="LineNr">19858 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> +<span id="L19859" class="LineNr">19859 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19860" class="LineNr">19860 </span> <span class="subxS1Comment"># .</span> +<span id="L19861" class="LineNr">19861 </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#L19809'>test-parse-mu-stmt</a>/inout:0"</span>) +<span id="L19862" class="LineNr">19862 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19863" class="LineNr">19863 </span> 89/<- %esp 5/r32/ebp +<span id="L19864" class="LineNr">19864 </span> 5d/pop-to-ebp +<span id="L19865" class="LineNr">19865 </span> c3/return +<span id="L19866" class="LineNr">19866 </span> +<span id="L19867" class="LineNr">19867 </span><span class="subxTest">test-parse-mu-stmt-with-comma</span>: +<span id="L19868" class="LineNr">19868 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19869" class="LineNr">19869 </span> 55/push-ebp +<span id="L19870" class="LineNr">19870 </span> 89/<- %ebp 4/r32/esp +<span id="L19871" class="LineNr">19871 </span> <span class="subxComment"># setup</span> +<span id="L19872" class="LineNr">19872 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L19873" class="LineNr">19873 </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="L19874" class="LineNr">19874 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L19875" class="LineNr">19875 </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="L19876" class="LineNr">19876 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L19877" class="LineNr">19877 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L19878" class="LineNr">19878 </span> 68/push 0xc0/imm32/size +<span id="L19879" class="LineNr">19879 </span> 68/push 0/imm32/top +<span id="L19880" class="LineNr">19880 </span> 89/<- %ecx 4/r32/esp +<span id="L19881" class="LineNr">19881 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L19882" class="LineNr">19882 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L19883" class="LineNr">19883 </span> 68/push 0/imm32 +<span id="L19884" class="LineNr">19884 </span> 68/push 0/imm32 +<span id="L19885" class="LineNr">19885 </span> 89/<- %edx 4/r32/esp +<span id="L19886" class="LineNr">19886 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> +<span id="L19887" class="LineNr">19887 </span> 68/push 0/imm32 +<span id="L19888" class="LineNr">19888 </span> 68/push 0/imm32 +<span id="L19889" class="LineNr">19889 </span> 89/<- %eax 4/r32/esp +<span id="L19890" class="LineNr">19890 </span> <span class="subxComment"># v = new var("n")</span> +<span id="L19891" class="LineNr">19891 </span> (<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="L19892" class="LineNr">19892 </span> (<a href='mu.subx.html#L19925'>new-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) +<span id="L19893" class="LineNr">19893 </span> <span class="subxComment">#</span> +<span id="L19894" class="LineNr">19894 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *edx) +<span id="L19895" class="LineNr">19895 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *(edx+4)) +<span id="L19896" class="LineNr">19896 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx 0) +<span id="L19897" class="LineNr">19897 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> +<span id="L19898" class="LineNr">19898 </span> 68/push 0/imm32 +<span id="L19899" class="LineNr">19899 </span> 68/push 0/imm32 +<span id="L19900" class="LineNr">19900 </span> 89/<- %eax 4/r32/esp +<span id="L19901" class="LineNr">19901 </span> <span class="subxComment"># convert</span> +<span id="L19902" class="LineNr">19902 </span> (<a href='mu.subx.html#L18963'>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="L19903" class="LineNr">19903 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> +<span id="L19904" class="LineNr">19904 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L19905" class="LineNr">19905 </span> 89/<- %edx 0/r32/eax +<span id="L19906" class="LineNr">19906 </span> <span class="subxComment"># out->tag</span> +<span id="L19907" class="LineNr">19907 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L19867'>test-parse-mu-stmt-with-comma</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> +<span id="L19908" class="LineNr">19908 </span> <span class="subxComment"># out->operation</span> +<span id="L19909" class="LineNr">19909 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L19910" class="LineNr">19910 </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#L19867'>test-parse-mu-stmt-with-comma</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> +<span id="L19911" class="LineNr">19911 </span> <span class="subxComment"># out->inouts->value->name</span> +<span id="L19912" class="LineNr">19912 </span> <span class="subxS1Comment"># . eax = out->inouts</span> +<span id="L19913" class="LineNr">19913 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L19914" class="LineNr">19914 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> +<span id="L19915" class="LineNr">19915 </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="L19916" class="LineNr">19916 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> +<span id="L19917" class="LineNr">19917 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19918" class="LineNr">19918 </span> <span class="subxS1Comment"># .</span> +<span id="L19919" class="LineNr">19919 </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#L19867'>test-parse-mu-stmt-with-comma</a>/inout:0"</span>) +<span id="L19920" class="LineNr">19920 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19921" class="LineNr">19921 </span> 89/<- %esp 5/r32/ebp +<span id="L19922" class="LineNr">19922 </span> 5d/pop-to-ebp +<span id="L19923" class="LineNr">19923 </span> c3/return +<span id="L19924" class="LineNr">19924 </span> +<span id="L19925" class="LineNr">19925 </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="L19926" class="LineNr">19926 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19927" class="LineNr">19927 </span> 55/push-ebp +<span id="L19928" class="LineNr">19928 </span> 89/<- %ebp 4/r32/esp +<span id="L19929" class="LineNr">19929 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19930" class="LineNr">19930 </span> 50/push-eax +<span id="L19931" class="LineNr">19931 </span> 51/push-ecx +<span id="L19932" class="LineNr">19932 </span> <span class="subxComment"># ecx = out</span> +<span id="L19933" class="LineNr">19933 </span> 8b/-> *(ebp+0x14) 1/r32/ecx +<span id="L19934" class="LineNr">19934 </span> <span class="subxComment">#</span> +<span id="L19935" class="LineNr">19935 </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="L19936" class="LineNr">19936 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> +<span id="L19937" class="LineNr">19937 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L19938" class="LineNr">19938 </span> <span class="subxComment"># out-addr->name = name</span> +<span id="L19939" class="LineNr">19939 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L19940" class="LineNr">19940 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Var-name</span> +<span id="L19941" class="LineNr">19941 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L19942" class="LineNr">19942 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Var-name</span> +<span id="L19943" class="LineNr">19943 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> +<span id="L19944" class="LineNr">19944 </span><span class="CommentedCode">#? (lookup *(ebp+0xc) *(ebp+0x10))</span> +<span id="L19945" class="LineNr">19945 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L19946" class="LineNr">19946 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> +<span id="L19947" class="LineNr">19947 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x14) 1/r32/ecx</span> +<span id="L19948" class="LineNr">19948 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4)) # => eax</span> +<span id="L19949" class="LineNr">19949 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L19950" class="LineNr">19950 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L19951" class="LineNr">19951 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L19952" class="LineNr">19952 </span><span class="Constant">$new-var:end</span>: +<span id="L19953" class="LineNr">19953 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19954" class="LineNr">19954 </span> 59/pop-to-ecx +<span id="L19955" class="LineNr">19955 </span> 58/pop-to-eax +<span id="L19956" class="LineNr">19956 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19957" class="LineNr">19957 </span> 89/<- %esp 5/r32/ebp +<span id="L19958" class="LineNr">19958 </span> 5d/pop-to-ebp +<span id="L19959" class="LineNr">19959 </span> c3/return +<span id="L19960" class="LineNr">19960 </span> +<span id="L19961" class="LineNr">19961 </span><span class="subxComment"># WARNING: modifies name</span> +<span id="L19962" class="LineNr">19962 </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="L19963" class="LineNr">19963 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19964" class="LineNr">19964 </span> 55/push-ebp +<span id="L19965" class="LineNr">19965 </span> 89/<- %ebp 4/r32/esp +<span id="L19966" class="LineNr">19966 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19967" class="LineNr">19967 </span> 50/push-eax +<span id="L19968" class="LineNr">19968 </span> 51/push-ecx +<span id="L19969" class="LineNr">19969 </span> <span class="subxComment"># first strip out metadata</span> +<span id="L19970" class="LineNr">19970 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L19971" class="LineNr">19971 </span> (<a href='124next-token.subx.html#L163'>next-token-from-slice</a> *ecx *(ecx+4) 0x2f *(ebp+0xc)) +<span id="L19972" class="LineNr">19972 </span> <span class="subxComment"># if (!is-hex-int?(name)) abort</span> +<span id="L19973" class="LineNr">19973 </span> (<a href='118parse-hex-int.subx.html#L9'>hex-int?</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L19974" class="LineNr">19974 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19975" class="LineNr">19975 </span> 0f 84/jump-if-= $new-literal-integer:abort/disp32 +<span id="L19976" class="LineNr">19976 </span> <span class="subxComment"># a little more error-checking</span> +<span id="L19977" class="LineNr">19977 </span> (<a href='mu.subx.html#L20017'>check-mu-hex-int</a> *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L19978" class="LineNr">19978 </span> <span class="subxComment"># out = new var(s)</span> +<span id="L19979" class="LineNr">19979 </span> (<a href='mu.subx.html#L20155'>new-var-from-slice</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) +<span id="L19980" class="LineNr">19980 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> +<span id="L19981" class="LineNr">19981 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L19982" class="LineNr">19982 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L19983" class="LineNr">19983 </span> 89/<- %ecx 0/r32/eax +<span id="L19984" class="LineNr">19984 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> +<span id="L19985" class="LineNr">19985 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/r32/eax +<span id="L19986" class="LineNr">19986 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L19987" class="LineNr">19987 </span> <span class="subxComment"># out-addr->type = new tree()</span> +<span id="L19988" class="LineNr">19988 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</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#L389'>Type-tree-size</a></span> %eax) +<span id="L19990" class="LineNr">19990 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L19991" class="LineNr">19991 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L19992" class="LineNr">19992 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> +<span id="L19993" class="LineNr">19993 </span><span class="Constant">$new-literal-integer:end</span>: +<span id="L19994" class="LineNr">19994 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19995" class="LineNr">19995 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19996" class="LineNr">19996 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19997" class="LineNr">19997 </span> 59/pop-to-ecx +<span id="L19998" class="LineNr">19998 </span> 58/pop-to-eax <span id="L19999" class="LineNr">19999 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L20000" class="LineNr">20000 </span> 89/<- %esp 5/r32/ebp <span id="L20001" class="LineNr">20001 </span> 5d/pop-to-ebp <span id="L20002" class="LineNr">20002 </span> c3/return <span id="L20003" class="LineNr">20003 </span> -<span id="L20004" class="LineNr">20004 </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="L20005" class="LineNr">20005 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20006" class="LineNr">20006 </span> 55/push-ebp -<span id="L20007" class="LineNr">20007 </span> 89/<- %ebp 4/r32/esp -<span id="L20008" class="LineNr">20008 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20009" class="LineNr">20009 </span> 50/push-eax -<span id="L20010" class="LineNr">20010 </span> 51/push-ecx -<span id="L20011" class="LineNr">20011 </span> <span class="subxComment">#</span> -<span id="L20012" class="LineNr">20012 </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="L20013" class="LineNr">20013 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> -<span id="L20014" class="LineNr">20014 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L20015" class="LineNr">20015 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L20016" class="LineNr">20016 </span> <span class="subxComment"># out-addr->tag = stmt</span> -<span id="L20017" class="LineNr">20017 </span> c7 0/subop/copy *eax 2/imm32/tag/var-on-stack <span class="subxComment"># Stmt-tag</span> -<span id="L20018" class="LineNr">20018 </span> <span class="subxComment"># result->var = var</span> -<span id="L20019" class="LineNr">20019 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L20020" class="LineNr">20020 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Vardef-var</span> -<span id="L20021" class="LineNr">20021 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L20022" class="LineNr">20022 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Vardef-var</span> -<span id="L20023" class="LineNr">20023 </span><span class="Constant">$new-var-def:end</span>: -<span id="L20024" class="LineNr">20024 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20025" class="LineNr">20025 </span> 59/pop-to-ecx -<span id="L20026" class="LineNr">20026 </span> 58/pop-to-eax -<span id="L20027" class="LineNr">20027 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20028" class="LineNr">20028 </span> 89/<- %esp 5/r32/ebp -<span id="L20029" class="LineNr">20029 </span> 5d/pop-to-ebp -<span id="L20030" class="LineNr">20030 </span> c3/return -<span id="L20031" class="LineNr">20031 </span> -<span id="L20032" class="LineNr">20032 </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="L20033" class="LineNr">20033 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20034" class="LineNr">20034 </span> 55/push-ebp -<span id="L20035" class="LineNr">20035 </span> 89/<- %ebp 4/r32/esp -<span id="L20036" class="LineNr">20036 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20037" class="LineNr">20037 </span> 50/push-eax -<span id="L20038" class="LineNr">20038 </span> <span class="subxComment"># eax = out</span> -<span id="L20039" class="LineNr">20039 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L20040" class="LineNr">20040 </span> <span class="subxComment">#</span> -<span id="L20041" class="LineNr">20041 </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="L20042" class="LineNr">20042 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> -<span id="L20043" class="LineNr">20043 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L20044" class="LineNr">20044 </span> <span class="subxComment"># set tag</span> -<span id="L20045" class="LineNr">20045 </span> c7 0/subop/copy *eax 3/imm32/tag/var-in-register <span class="subxComment"># Stmt-tag</span> -<span id="L20046" class="LineNr">20046 </span> <span class="subxComment"># set output</span> -<span id="L20047" class="LineNr">20047 </span> 8d/copy-address *(eax+0x14) 0/r32/eax <span class="subxComment"># Regvardef-outputs</span> -<span id="L20048" class="LineNr">20048 </span> (<a href='mu.subx.html#L20115'>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="L20049" class="LineNr">20049 </span><span class="Constant">$new-reg-var-def:end</span>: -<span id="L20050" class="LineNr">20050 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20051" class="LineNr">20051 </span> 58/pop-to-eax -<span id="L20052" class="LineNr">20052 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20053" class="LineNr">20053 </span> 89/<- %esp 5/r32/ebp -<span id="L20054" class="LineNr">20054 </span> 5d/pop-to-ebp -<span id="L20055" class="LineNr">20055 </span> c3/return -<span id="L20056" class="LineNr">20056 </span> -<span id="L20057" class="LineNr">20057 </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="L20058" class="LineNr">20058 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20059" class="LineNr">20059 </span> 55/push-ebp -<span id="L20060" class="LineNr">20060 </span> 89/<- %ebp 4/r32/esp -<span id="L20061" class="LineNr">20061 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20062" class="LineNr">20062 </span> 50/push-eax -<span id="L20063" class="LineNr">20063 </span> 51/push-ecx -<span id="L20064" class="LineNr">20064 </span> 57/push-edi -<span id="L20065" class="LineNr">20065 </span> <span class="subxComment"># edi = out</span> -<span id="L20066" class="LineNr">20066 </span> 8b/-> *(ebp+0x1c) 7/r32/edi -<span id="L20067" class="LineNr">20067 </span> <span class="subxComment"># *out = new list</span> -<span id="L20068" class="LineNr">20068 </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="L20069" class="LineNr">20069 </span> <span class="subxComment"># var out-addr/edi: (addr list _type) = lookup(*out)</span> -<span id="L20070" class="LineNr">20070 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L20071" class="LineNr">20071 </span> 89/<- %edi 0/r32/eax -<span id="L20072" class="LineNr">20072 </span> <span class="subxComment"># out-addr->value = value</span> -<span id="L20073" class="LineNr">20073 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20074" class="LineNr">20074 </span> 89/<- *edi 0/r32/eax <span class="subxComment"># List-value</span> -<span id="L20075" class="LineNr">20075 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L20076" class="LineNr">20076 </span> 89/<- *(edi+4) 0/r32/eax <span class="subxComment"># List-value</span> -<span id="L20077" class="LineNr">20077 </span> <span class="subxComment"># if (list == null) return</span> -<span id="L20078" class="LineNr">20078 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32 -<span id="L20079" class="LineNr">20079 </span> 74/jump-if-= $append-list:end/disp8 -<span id="L20080" class="LineNr">20080 </span> <span class="subxComment"># otherwise append</span> -<span id="L20081" class="LineNr">20081 </span><span class="Constant">$append-list:non-empty-list</span>: -<span id="L20082" class="LineNr">20082 </span> <span class="subxComment"># var curr/eax: (addr list _type) = lookup(list)</span> -<span id="L20083" class="LineNr">20083 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L20084" class="LineNr">20084 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> -<span id="L20085" class="LineNr">20085 </span> { -<span id="L20086" class="LineNr">20086 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># List-next</span> -<span id="L20087" class="LineNr">20087 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20088" class="LineNr">20088 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L20089" class="LineNr">20089 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># List-next, List-next => eax</span> -<span id="L20090" class="LineNr">20090 </span> <span class="subxComment">#</span> -<span id="L20091" class="LineNr">20091 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20092" class="LineNr">20092 </span> } -<span id="L20093" class="LineNr">20093 </span> <span class="subxComment"># edi = out</span> -<span id="L20094" class="LineNr">20094 </span> 8b/-> *(ebp+0x1c) 7/r32/edi -<span id="L20095" class="LineNr">20095 </span> <span class="subxComment"># curr->next = out</span> -<span id="L20096" class="LineNr">20096 </span> 8b/-> *edi 1/r32/ecx -<span id="L20097" class="LineNr">20097 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># List-next</span> -<span id="L20098" class="LineNr">20098 </span> 8b/-> *(edi+4) 1/r32/ecx -<span id="L20099" class="LineNr">20099 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># List-next</span> -<span id="L20100" class="LineNr">20100 </span> <span class="subxComment"># out = list</span> -<span id="L20101" class="LineNr">20101 </span> 8b/-> *(ebp+0x14) 1/r32/ecx -<span id="L20102" class="LineNr">20102 </span> 89/<- *edi 1/r32/ecx -<span id="L20103" class="LineNr">20103 </span> 8b/-> *(ebp+0x18) 1/r32/ecx -<span id="L20104" class="LineNr">20104 </span> 89/<- *(edi+4) 1/r32/ecx -<span id="L20105" class="LineNr">20105 </span><span class="Constant">$append-list:end</span>: +<span id="L20004" class="LineNr">20004 </span><span class="Constant">$new-literal-integer:abort</span>: +<span id="L20005" class="LineNr">20005 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L20006" class="LineNr">20006 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L20007" class="LineNr">20007 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L20008" class="LineNr">20008 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L20009" class="LineNr">20009 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": variable '"</span>) +<span id="L20010" class="LineNr">20010 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+0xc)) +<span id="L20011" class="LineNr">20011 </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="L20012" class="LineNr">20012 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L20013" class="LineNr">20013 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L20014" class="LineNr">20014 </span> <span class="subxComment"># never gets here</span> +<span id="L20015" class="LineNr">20015 </span> +<span id="L20016" class="LineNr">20016 </span><span class="subxComment"># precondition: name is a valid hex integer; require a '0x' prefix</span> +<span id="L20017" class="LineNr">20017 </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="L20018" class="LineNr">20018 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20019" class="LineNr">20019 </span> 55/push-ebp +<span id="L20020" class="LineNr">20020 </span> 89/<- %ebp 4/r32/esp +<span id="L20021" class="LineNr">20021 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20022" class="LineNr">20022 </span> 50/push-eax +<span id="L20023" class="LineNr">20023 </span> 51/push-ecx +<span id="L20024" class="LineNr">20024 </span> 52/push-edx +<span id="L20025" class="LineNr">20025 </span> <span class="subxComment"># ecx = name</span> +<span id="L20026" class="LineNr">20026 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L20027" class="LineNr">20027 </span> <span class="subxComment"># var start/edx: (addr byte) = name->start</span> +<span id="L20028" class="LineNr">20028 </span> 8b/-> *ecx 2/r32/edx +<span id="L20029" class="LineNr">20029 </span> <span class="subxComment"># if (*start == '-') ++start</span> +<span id="L20030" class="LineNr">20030 </span> b8/copy-to-eax 0/imm32 +<span id="L20031" class="LineNr">20031 </span> 8a/copy-byte *edx 0/r32/AL +<span id="L20032" class="LineNr">20032 </span> 3d/compare-eax-and 0x2d/imm32/dash +<span id="L20033" class="LineNr">20033 </span> { +<span id="L20034" class="LineNr">20034 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20035" class="LineNr">20035 </span> 42/increment-edx +<span id="L20036" class="LineNr">20036 </span> } +<span id="L20037" class="LineNr">20037 </span> <span class="subxComment"># var end/ecx: (addr byte) = name->end</span> +<span id="L20038" class="LineNr">20038 </span> 8b/-> *(ecx+4) 1/r32/ecx +<span id="L20039" class="LineNr">20039 </span> <span class="subxComment"># var len/eax: int = name->end - name->start</span> +<span id="L20040" class="LineNr">20040 </span> 89/<- %eax 1/r32/ecx +<span id="L20041" class="LineNr">20041 </span> 29/subtract-from %eax 2/r32/edx +<span id="L20042" class="LineNr">20042 </span> <span class="subxComment"># if (len <= 1) return</span> +<span id="L20043" class="LineNr">20043 </span> 3d/compare-eax-with 1/imm32 +<span id="L20044" class="LineNr">20044 </span> 0f 8e/jump-if-<= $check-mu-hex-int:end/disp32 +<span id="L20045" class="LineNr">20045 </span><span class="Constant">$check-mu-hex-int:length->-1</span>: +<span id="L20046" class="LineNr">20046 </span> <span class="subxComment"># if slice-starts-with?({start, end}, "0x") return</span> +<span id="L20047" class="LineNr">20047 </span> <span class="subxS1Comment"># . var tmp = {start, end}</span> +<span id="L20048" class="LineNr">20048 </span> 51/push-ecx +<span id="L20049" class="LineNr">20049 </span> 52/push-edx +<span id="L20050" class="LineNr">20050 </span> 89/<- %eax 4/r32/esp +<span id="L20051" class="LineNr">20051 </span> <span class="subxS1Comment"># .</span> +<span id="L20052" class="LineNr">20052 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %eax <span class="Constant">"0x"</span>) <span class="subxComment"># => eax</span> +<span id="L20053" class="LineNr">20053 </span> <span class="subxS1Comment"># . reclaim tmp</span> +<span id="L20054" class="LineNr">20054 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20055" class="LineNr">20055 </span> <span class="subxS1Comment"># .</span> +<span id="L20056" class="LineNr">20056 </span> 3d/compare-eax-with 0/imm32/false +<span id="L20057" class="LineNr">20057 </span> 75/jump-if-!= $check-mu-hex-int:end/disp8 +<span id="L20058" class="LineNr">20058 </span><span class="Constant">$check-mu-hex-int:abort</span>: +<span id="L20059" class="LineNr">20059 </span> <span class="subxComment"># otherwise abort</span> +<span id="L20060" class="LineNr">20060 </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="L20061" class="LineNr">20061 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *(ebp+8)) +<span id="L20062" class="LineNr">20062 </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="L20063" class="LineNr">20063 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L20064" class="LineNr">20064 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L20065" class="LineNr">20065 </span><span class="Constant">$check-mu-hex-int:end</span>: +<span id="L20066" class="LineNr">20066 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20067" class="LineNr">20067 </span> 5a/pop-to-edx +<span id="L20068" class="LineNr">20068 </span> 59/pop-to-ecx +<span id="L20069" class="LineNr">20069 </span> 58/pop-to-eax +<span id="L20070" class="LineNr">20070 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20071" class="LineNr">20071 </span> 89/<- %esp 5/r32/ebp +<span id="L20072" class="LineNr">20072 </span> 5d/pop-to-ebp +<span id="L20073" class="LineNr">20073 </span> c3/return +<span id="L20074" class="LineNr">20074 </span> +<span id="L20075" class="LineNr">20075 </span><span class="subxFunction">new-literal</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var)</span> +<span id="L20076" class="LineNr">20076 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20077" class="LineNr">20077 </span> 55/push-ebp +<span id="L20078" class="LineNr">20078 </span> 89/<- %ebp 4/r32/esp +<span id="L20079" class="LineNr">20079 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20080" class="LineNr">20080 </span> 50/push-eax +<span id="L20081" class="LineNr">20081 </span> 51/push-ecx +<span id="L20082" class="LineNr">20082 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> +<span id="L20083" class="LineNr">20083 </span> 68/push 0/imm32 +<span id="L20084" class="LineNr">20084 </span> 68/push 0/imm32 +<span id="L20085" class="LineNr">20085 </span> 89/<- %ecx 4/r32/esp +<span id="L20086" class="LineNr">20086 </span> <span class="subxComment"># s = slice-to-string(name)</span> +<span id="L20087" class="LineNr">20087 </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="L20088" class="LineNr">20088 </span> <span class="subxComment"># allocate to out</span> +<span id="L20089" class="LineNr">20089 </span> (<a href='mu.subx.html#L19925'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) +<span id="L20090" class="LineNr">20090 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> +<span id="L20091" class="LineNr">20091 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L20092" class="LineNr">20092 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L20093" class="LineNr">20093 </span> 89/<- %ecx 0/r32/eax +<span id="L20094" class="LineNr">20094 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> +<span id="L20095" class="LineNr">20095 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/r32/eax +<span id="L20096" class="LineNr">20096 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L20097" class="LineNr">20097 </span> <span class="subxComment"># out-addr->type/eax = new type</span> +<span id="L20098" class="LineNr">20098 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L20099" class="LineNr">20099 </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="L20100" class="LineNr">20100 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20101" class="LineNr">20101 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> +<span id="L20102" class="LineNr">20102 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L20103" class="LineNr">20103 </span><span class="Constant">$new-literal:end</span>: +<span id="L20104" class="LineNr">20104 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20105" class="LineNr">20105 </span> 81 0/subop/add %esp 8/imm32 <span id="L20106" class="LineNr">20106 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20107" class="LineNr">20107 </span> 5f/pop-to-edi -<span id="L20108" class="LineNr">20108 </span> 59/pop-to-ecx -<span id="L20109" class="LineNr">20109 </span> 58/pop-to-eax -<span id="L20110" class="LineNr">20110 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20111" class="LineNr">20111 </span> 89/<- %esp 5/r32/ebp -<span id="L20112" class="LineNr">20112 </span> 5d/pop-to-ebp -<span id="L20113" class="LineNr">20113 </span> c3/return -<span id="L20114" class="LineNr">20114 </span> -<span id="L20115" class="LineNr">20115 </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="L20116" class="LineNr">20116 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20117" class="LineNr">20117 </span> 55/push-ebp -<span id="L20118" class="LineNr">20118 </span> 89/<- %ebp 4/r32/esp -<span id="L20119" class="LineNr">20119 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20120" class="LineNr">20120 </span> 50/push-eax -<span id="L20121" class="LineNr">20121 </span> 51/push-ecx -<span id="L20122" class="LineNr">20122 </span> 57/push-edi -<span id="L20123" class="LineNr">20123 </span> <span class="subxComment"># edi = out</span> -<span id="L20124" class="LineNr">20124 </span> 8b/-> *(ebp+0x20) 7/r32/edi -<span id="L20125" class="LineNr">20125 </span> <span class="subxComment"># out = new stmt-var</span> -<span id="L20126" class="LineNr">20126 </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="L20127" class="LineNr">20127 </span> <span class="subxComment"># var out-addr/ecx: (addr stmt-var) = lookup(*out)</span> -<span id="L20128" class="LineNr">20128 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L20129" class="LineNr">20129 </span> 89/<- %ecx 0/r32/eax -<span id="L20130" class="LineNr">20130 </span> <span class="subxComment"># out-addr->value = v</span> -<span id="L20131" class="LineNr">20131 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20132" class="LineNr">20132 </span> 89/<- *ecx 0/r32/eax <span class="subxComment"># Stmt-var-value</span> -<span id="L20133" class="LineNr">20133 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L20134" class="LineNr">20134 </span> 89/<- *(ecx+4) 0/r32/eax <span class="subxComment"># Stmt-var-value</span> -<span id="L20135" class="LineNr">20135 </span> <span class="subxComment"># out-addr->is-deref? = is-deref?</span> -<span id="L20136" class="LineNr">20136 </span> 8b/-> *(ebp+0x1c) 0/r32/eax -<span id="L20137" class="LineNr">20137 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L20138" class="LineNr">20138 </span> <span class="subxComment"># if (vars == null) return result</span> -<span id="L20139" class="LineNr">20139 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32/null -<span id="L20140" class="LineNr">20140 </span> 74/jump-if-= $append-stmt-var:end/disp8 -<span id="L20141" class="LineNr">20141 </span> <span class="subxComment"># otherwise append</span> -<span id="L20142" class="LineNr">20142 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(vars)</span> -<span id="L20143" class="LineNr">20143 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L20144" class="LineNr">20144 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> -<span id="L20145" class="LineNr">20145 </span> { -<span id="L20146" class="LineNr">20146 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> -<span id="L20147" class="LineNr">20147 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20148" class="LineNr">20148 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L20149" class="LineNr">20149 </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="L20150" class="LineNr">20150 </span> <span class="subxComment">#</span> -<span id="L20151" class="LineNr">20151 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20152" class="LineNr">20152 </span> } -<span id="L20153" class="LineNr">20153 </span> <span class="subxComment"># curr->next = out</span> -<span id="L20154" class="LineNr">20154 </span> 8b/-> *edi 1/r32/ecx -<span id="L20155" class="LineNr">20155 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> -<span id="L20156" class="LineNr">20156 </span> 8b/-> *(edi+4) 1/r32/ecx -<span id="L20157" class="LineNr">20157 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> -<span id="L20158" class="LineNr">20158 </span> <span class="subxComment"># out = vars</span> -<span id="L20159" class="LineNr">20159 </span> 8b/-> *(ebp+0x14) 1/r32/ecx -<span id="L20160" class="LineNr">20160 </span> 89/<- *edi 1/r32/ecx -<span id="L20161" class="LineNr">20161 </span> 8b/-> *(ebp+0x18) 1/r32/ecx -<span id="L20162" class="LineNr">20162 </span> 89/<- *(edi+4) 1/r32/ecx -<span id="L20163" class="LineNr">20163 </span><span class="Constant">$append-stmt-var:end</span>: -<span id="L20164" class="LineNr">20164 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20165" class="LineNr">20165 </span> 5f/pop-to-edi -<span id="L20166" class="LineNr">20166 </span> 59/pop-to-ecx -<span id="L20167" class="LineNr">20167 </span> 58/pop-to-eax -<span id="L20168" class="LineNr">20168 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20169" class="LineNr">20169 </span> 89/<- %esp 5/r32/ebp -<span id="L20170" class="LineNr">20170 </span> 5d/pop-to-ebp -<span id="L20171" class="LineNr">20171 </span> c3/return -<span id="L20172" class="LineNr">20172 </span> -<span id="L20173" class="LineNr">20173 </span><span class="subxFunction">append-to-block</span>: <span class="subxComment"># ad: (addr allocation-descriptor), block: (addr block), x: (handle stmt)</span> -<span id="L20174" class="LineNr">20174 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20175" class="LineNr">20175 </span> 55/push-ebp -<span id="L20176" class="LineNr">20176 </span> 89/<- %ebp 4/r32/esp -<span id="L20177" class="LineNr">20177 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20178" class="LineNr">20178 </span> 50/push-eax -<span id="L20179" class="LineNr">20179 </span> 56/push-esi -<span id="L20180" class="LineNr">20180 </span> <span class="subxComment"># esi = block</span> -<span id="L20181" class="LineNr">20181 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L20182" class="LineNr">20182 </span> <span class="subxComment"># block->stmts = append(x, block->stmts)</span> -<span id="L20183" class="LineNr">20183 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Block-stmts</span> -<span id="L20184" class="LineNr">20184 </span> (<a href='mu.subx.html#L20057'>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="L20185" class="LineNr">20185 </span><span class="Constant">$append-to-block:end</span>: -<span id="L20186" class="LineNr">20186 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20187" class="LineNr">20187 </span> 5e/pop-to-esi -<span id="L20188" class="LineNr">20188 </span> 58/pop-to-eax -<span id="L20189" class="LineNr">20189 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20190" class="LineNr">20190 </span> 89/<- %esp 5/r32/ebp -<span id="L20191" class="LineNr">20191 </span> 5d/pop-to-ebp -<span id="L20192" class="LineNr">20192 </span> c3/return -<span id="L20193" class="LineNr">20193 </span> -<span id="L20194" class="LineNr">20194 </span><span class="subxComment">## Parsing types</span> -<span id="L20195" class="LineNr">20195 </span><span class="subxComment"># We need to create metadata on user-defined types, and we need to use this</span> -<span id="L20196" class="LineNr">20196 </span><span class="subxComment"># metadata as we parse instructions.</span> -<span id="L20197" class="LineNr">20197 </span><span class="subxComment"># However, we also want to allow types to be used before their definitions.</span> -<span id="L20198" class="LineNr">20198 </span><span class="subxComment"># This means we can't ever assume any type data structures exist.</span> -<span id="L20199" class="LineNr">20199 </span> -<span id="L20200" class="LineNr">20200 </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="L20201" class="LineNr">20201 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20202" class="LineNr">20202 </span> 55/push-ebp -<span id="L20203" class="LineNr">20203 </span> 89/<- %ebp 4/r32/esp -<span id="L20204" class="LineNr">20204 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20205" class="LineNr">20205 </span> 50/push-eax -<span id="L20206" class="LineNr">20206 </span> 56/push-esi -<span id="L20207" class="LineNr">20207 </span> <span class="subxComment"># var container-type/esi: type-id</span> -<span id="L20208" class="LineNr">20208 </span> (<a href='mu.subx.html#L20251'>container-type</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L20209" class="LineNr">20209 </span> 89/<- %esi 0/r32/eax -<span id="L20210" class="LineNr">20210 </span> <span class="subxComment"># var tmp/eax: (handle typeinfo) = find-or-create-typeinfo(container-type)</span> -<span id="L20211" class="LineNr">20211 </span> 68/push 0/imm32 -<span id="L20212" class="LineNr">20212 </span> 68/push 0/imm32 -<span id="L20213" class="LineNr">20213 </span> 89/<- %eax 4/r32/esp -<span id="L20214" class="LineNr">20214 </span> (<a href='mu.subx.html#L20288'>find-or-create-typeinfo</a> %esi %eax) -<span id="L20215" class="LineNr">20215 </span> <span class="subxComment"># var tmp-addr/eax: (addr typeinfo) = lookup(tmp)</span> -<span id="L20216" class="LineNr">20216 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L20217" class="LineNr">20217 </span> <span class="subxComment"># result = find-or-create-typeinfo-output-var(typeinfo, field-name)</span> -<span id="L20218" class="LineNr">20218 </span><span class="CommentedCode">#? (write-buffered Stderr "constant: ")</span> -<span id="L20219" class="LineNr">20219 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> -<span id="L20220" class="LineNr">20220 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20221" class="LineNr">20221 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20222" class="LineNr">20222 </span> (<a href='mu.subx.html#L20404'>find-or-create-typeinfo-output-var</a> %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L20223" class="LineNr">20223 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x10) 0/r32/eax</span> -<span id="L20224" class="LineNr">20224 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> -<span id="L20225" class="LineNr">20225 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> -<span id="L20226" class="LineNr">20226 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L20227" class="LineNr">20227 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> -<span id="L20228" class="LineNr">20228 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L20229" class="LineNr">20229 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20230" class="LineNr">20230 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20231" class="LineNr">20231 </span><span class="CommentedCode">#? (write-buffered Stderr "offset: ")</span> -<span id="L20232" class="LineNr">20232 </span><span class="CommentedCode">#? 8b/-> *(eax+0x14) 0/r32/eax</span> -<span id="L20233" class="LineNr">20233 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L20234" class="LineNr">20234 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20235" class="LineNr">20235 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20236" class="LineNr">20236 </span><span class="Constant">$lookup-or-create-constant:end</span>: -<span id="L20237" class="LineNr">20237 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20238" class="LineNr">20238 </span> 81 0/subop/add %esp 8/imm32 -<span id="L20239" class="LineNr">20239 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20240" class="LineNr">20240 </span> 5e/pop-to-esi -<span id="L20241" class="LineNr">20241 </span> 58/pop-to-eax -<span id="L20242" class="LineNr">20242 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20243" class="LineNr">20243 </span> 89/<- %esp 5/r32/ebp -<span id="L20244" class="LineNr">20244 </span> 5d/pop-to-ebp -<span id="L20245" class="LineNr">20245 </span> c3/return -<span id="L20246" class="LineNr">20246 </span> -<span id="L20247" class="LineNr">20247 </span><span class="subxComment"># if addr var:</span> -<span id="L20248" class="LineNr">20248 </span><span class="subxComment"># container->var->type->right->left->value</span> -<span id="L20249" class="LineNr">20249 </span><span class="subxComment"># otherwise</span> -<span id="L20250" class="LineNr">20250 </span><span class="subxComment"># container->var->type->value</span> -<span id="L20251" class="LineNr">20251 </span><span class="subxFunction">container-type</span>: <span class="subxComment"># container: (addr stmt-var) -> result/eax: type-id</span> -<span id="L20252" class="LineNr">20252 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20253" class="LineNr">20253 </span> 55/push-ebp -<span id="L20254" class="LineNr">20254 </span> 89/<- %ebp 4/r32/esp -<span id="L20255" class="LineNr">20255 </span> <span class="subxComment">#</span> -<span id="L20256" class="LineNr">20256 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20257" class="LineNr">20257 </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="L20258" class="LineNr">20258 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20259" class="LineNr">20259 </span> { -<span id="L20260" class="LineNr">20260 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L20261" class="LineNr">20261 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20262" class="LineNr">20262 </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="L20263" class="LineNr">20263 </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="L20264" class="LineNr">20264 </span> } -<span id="L20265" class="LineNr">20265 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L20266" class="LineNr">20266 </span><span class="Constant">$container-type:end</span>: -<span id="L20267" class="LineNr">20267 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20268" class="LineNr">20268 </span> 89/<- %esp 5/r32/ebp -<span id="L20269" class="LineNr">20269 </span> 5d/pop-to-ebp -<span id="L20270" class="LineNr">20270 </span> c3/return -<span id="L20271" class="LineNr">20271 </span> -<span id="L20272" class="LineNr">20272 </span><span class="subxFunction">container?</span>: <span class="subxComment"># t: type-id -> result/eax: boolean</span> -<span id="L20273" class="LineNr">20273 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20274" class="LineNr">20274 </span> 55/push-ebp -<span id="L20275" class="LineNr">20275 </span> 89/<- %ebp 4/r32/esp -<span id="L20276" class="LineNr">20276 </span> <span class="subxComment">#</span> -<span id="L20277" class="LineNr">20277 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20278" class="LineNr">20278 </span> c1/shift 4/subop/left %eax 2/imm8 -<span id="L20279" class="LineNr">20279 </span> 3b/compare 0/r32/eax *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> -<span id="L20280" class="LineNr">20280 </span> 0f 9d/set-if->= %al -<span id="L20281" class="LineNr">20281 </span> 25/and-eax-with 0xff/imm32 -<span id="L20282" class="LineNr">20282 </span><span class="Constant">$container?:end</span>: -<span id="L20283" class="LineNr">20283 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20284" class="LineNr">20284 </span> 89/<- %esp 5/r32/ebp -<span id="L20285" class="LineNr">20285 </span> 5d/pop-to-ebp -<span id="L20286" class="LineNr">20286 </span> c3/return -<span id="L20287" class="LineNr">20287 </span> -<span id="L20288" class="LineNr">20288 </span><span class="subxFunction">find-or-create-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> -<span id="L20289" class="LineNr">20289 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20290" class="LineNr">20290 </span> 55/push-ebp -<span id="L20291" class="LineNr">20291 </span> 89/<- %ebp 4/r32/esp -<span id="L20292" class="LineNr">20292 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20293" class="LineNr">20293 </span> 50/push-eax -<span id="L20294" class="LineNr">20294 </span> 51/push-ecx -<span id="L20295" class="LineNr">20295 </span> 52/push-edx -<span id="L20296" class="LineNr">20296 </span> 57/push-edi -<span id="L20297" class="LineNr">20297 </span> <span class="subxComment"># edi = out</span> -<span id="L20298" class="LineNr">20298 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L20299" class="LineNr">20299 </span> <span class="subxComment"># var fields/ecx: (handle table (handle array byte) (handle typeinfo-entry))</span> -<span id="L20300" class="LineNr">20300 </span> 68/push 0/imm32 -<span id="L20301" class="LineNr">20301 </span> 68/push 0/imm32 -<span id="L20302" class="LineNr">20302 </span> 89/<- %ecx 4/r32/esp -<span id="L20303" class="LineNr">20303 </span> <span class="subxComment"># find-typeinfo(t, out)</span> -<span id="L20304" class="LineNr">20304 </span> (<a href='mu.subx.html#L20355'>find-typeinfo</a> *(ebp+8) %edi) -<span id="L20305" class="LineNr">20305 </span> { -<span id="L20306" class="LineNr">20306 </span> <span class="subxComment"># if (*out != 0) break</span> -<span id="L20307" class="LineNr">20307 </span> 81 7/subop/compare *edi 0/imm32 -<span id="L20308" class="LineNr">20308 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L20309" class="LineNr">20309 </span><span class="Constant">$find-or-create-typeinfo:create</span>: -<span id="L20310" class="LineNr">20310 </span> <span class="subxComment"># *out = allocate</span> -<span id="L20311" class="LineNr">20311 </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="L20312" class="LineNr">20312 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> -<span id="L20313" class="LineNr">20313 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L20314" class="LineNr">20314 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo at ")</span> -<span id="L20315" class="LineNr">20315 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L20316" class="LineNr">20316 </span><span class="CommentedCode">#? (write-buffered Stderr " for type-id ")</span> -<span id="L20317" class="LineNr">20317 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> -<span id="L20318" class="LineNr">20318 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20319" class="LineNr">20319 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20320" class="LineNr">20320 </span> <span class="subxComment"># tmp->id = t</span> -<span id="L20321" class="LineNr">20321 </span> 8b/-> *(ebp+8) 2/r32/edx -<span id="L20322" class="LineNr">20322 </span> 89/<- *eax 2/r32/edx <span class="subxComment"># Typeinfo-id</span> -<span id="L20323" class="LineNr">20323 </span> <span class="subxComment"># tmp->fields = new table</span> -<span id="L20324" class="LineNr">20324 </span> <span class="subxS1Comment"># . fields = new table</span> -<span id="L20325" class="LineNr">20325 </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="L20326" class="LineNr">20326 </span> <span class="subxS1Comment"># . tmp->fields = fields</span> -<span id="L20327" class="LineNr">20327 </span> 8b/-> *ecx 2/r32/edx -<span id="L20328" class="LineNr">20328 </span> 89/<- *(eax+4) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> -<span id="L20329" class="LineNr">20329 </span> 8b/-> *(ecx+4) 2/r32/edx -<span id="L20330" class="LineNr">20330 </span> 89/<- *(eax+8) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> -<span id="L20331" class="LineNr">20331 </span> <span class="subxComment"># tmp->next = Program->types</span> -<span id="L20332" class="LineNr">20332 </span> 8b/-> *_Program-types 1/r32/ecx -<span id="L20333" class="LineNr">20333 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> -<span id="L20334" class="LineNr">20334 </span> 8b/-> *_Program-types->payload 1/r32/ecx -<span id="L20335" class="LineNr">20335 </span> 89/<- *(eax+0x14) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> -<span id="L20336" class="LineNr">20336 </span> <span class="subxComment"># Program->types = out</span> -<span id="L20337" class="LineNr">20337 </span> 8b/-> *edi 1/r32/ecx -<span id="L20338" class="LineNr">20338 </span> 89/<- *_Program-types 1/r32/ecx -<span id="L20339" class="LineNr">20339 </span> 8b/-> *(edi+4) 1/r32/ecx -<span id="L20340" class="LineNr">20340 </span> 89/<- *_Program-types->payload 1/r32/ecx -<span id="L20341" class="LineNr">20341 </span> } -<span id="L20342" class="LineNr">20342 </span><span class="Constant">$find-or-create-typeinfo:end</span>: -<span id="L20343" class="LineNr">20343 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20344" class="LineNr">20344 </span> 81 0/subop/add %esp 8/imm32 -<span id="L20345" class="LineNr">20345 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20346" class="LineNr">20346 </span> 5f/pop-to-edi -<span id="L20347" class="LineNr">20347 </span> 5a/pop-to-edx -<span id="L20348" class="LineNr">20348 </span> 59/pop-to-ecx -<span id="L20349" class="LineNr">20349 </span> 58/pop-to-eax -<span id="L20350" class="LineNr">20350 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20351" class="LineNr">20351 </span> 89/<- %esp 5/r32/ebp -<span id="L20352" class="LineNr">20352 </span> 5d/pop-to-ebp -<span id="L20353" class="LineNr">20353 </span> c3/return -<span id="L20354" class="LineNr">20354 </span> -<span id="L20355" class="LineNr">20355 </span><span class="subxFunction">find-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> -<span id="L20356" class="LineNr">20356 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20357" class="LineNr">20357 </span> 55/push-ebp -<span id="L20358" class="LineNr">20358 </span> 89/<- %ebp 4/r32/esp -<span id="L20359" class="LineNr">20359 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20360" class="LineNr">20360 </span> 50/push-eax -<span id="L20361" class="LineNr">20361 </span> 51/push-ecx -<span id="L20362" class="LineNr">20362 </span> 52/push-edx -<span id="L20363" class="LineNr">20363 </span> 57/push-edi -<span id="L20364" class="LineNr">20364 </span> <span class="subxComment"># ecx = t</span> -<span id="L20365" class="LineNr">20365 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L20366" class="LineNr">20366 </span> <span class="subxComment"># edi = out</span> -<span id="L20367" class="LineNr">20367 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L20368" class="LineNr">20368 </span> <span class="subxComment"># *out = Program->types</span> -<span id="L20369" class="LineNr">20369 </span> 8b/-> *_Program-types 0/r32/eax -<span id="L20370" class="LineNr">20370 </span> 89/<- *edi 0/r32/eax -<span id="L20371" class="LineNr">20371 </span> 8b/-> *_Program-types->payload 0/r32/eax -<span id="L20372" class="LineNr">20372 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L20373" class="LineNr">20373 </span> { -<span id="L20374" class="LineNr">20374 </span><span class="Constant">$find-typeinfo:loop</span>: -<span id="L20375" class="LineNr">20375 </span> <span class="subxComment"># if (*out == 0) break</span> -<span id="L20376" class="LineNr">20376 </span> 81 7/subop/compare *edi 0/imm32 -<span id="L20377" class="LineNr">20377 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20378" class="LineNr">20378 </span><span class="Constant">$find-typeinfo:<a href='401test.mu.html#L3'>check</a></span>: -<span id="L20379" class="LineNr">20379 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> -<span id="L20380" class="LineNr">20380 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L20381" class="LineNr">20381 </span> <span class="subxComment"># if (tmp->id == t) break</span> -<span id="L20382" class="LineNr">20382 </span> 39/compare *eax 1/r32/ecx <span class="subxComment"># Typeinfo-id</span> -<span id="L20383" class="LineNr">20383 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20384" class="LineNr">20384 </span><span class="Constant">$find-typeinfo:continue</span>: -<span id="L20385" class="LineNr">20385 </span> <span class="subxComment"># *out = tmp->next</span> -<span id="L20386" class="LineNr">20386 </span> 8b/-> *(eax+0x10) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> -<span id="L20387" class="LineNr">20387 </span> 89/<- *edi 2/r32/edx -<span id="L20388" class="LineNr">20388 </span> 8b/-> *(eax+0x14) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> -<span id="L20389" class="LineNr">20389 </span> 89/<- *(edi+4) 2/r32/edx -<span id="L20390" class="LineNr">20390 </span> <span class="subxComment">#</span> -<span id="L20391" class="LineNr">20391 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20392" class="LineNr">20392 </span> } -<span id="L20393" class="LineNr">20393 </span><span class="Constant">$find-typeinfo:end</span>: -<span id="L20394" class="LineNr">20394 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20395" class="LineNr">20395 </span> 5f/pop-to-edi -<span id="L20396" class="LineNr">20396 </span> 5a/pop-to-edx -<span id="L20397" class="LineNr">20397 </span> 59/pop-to-ecx -<span id="L20398" class="LineNr">20398 </span> 58/pop-to-eax -<span id="L20399" class="LineNr">20399 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20400" class="LineNr">20400 </span> 89/<- %esp 5/r32/ebp -<span id="L20401" class="LineNr">20401 </span> 5d/pop-to-ebp -<span id="L20402" class="LineNr">20402 </span> c3/return -<span id="L20403" class="LineNr">20403 </span> -<span id="L20404" class="LineNr">20404 </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="L20405" class="LineNr">20405 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20406" class="LineNr">20406 </span> 55/push-ebp -<span id="L20407" class="LineNr">20407 </span> 89/<- %ebp 4/r32/esp -<span id="L20408" class="LineNr">20408 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20409" class="LineNr">20409 </span> 50/push-eax -<span id="L20410" class="LineNr">20410 </span> 52/push-edx -<span id="L20411" class="LineNr">20411 </span> 57/push-edi -<span id="L20412" class="LineNr">20412 </span> <span class="subxComment"># var dest/edi: (handle typeinfo-entry)</span> -<span id="L20413" class="LineNr">20413 </span> 68/push 0/imm32 -<span id="L20414" class="LineNr">20414 </span> 68/push 0/imm32 -<span id="L20415" class="LineNr">20415 </span> 89/<- %edi 4/r32/esp -<span id="L20416" class="LineNr">20416 </span> <span class="subxComment"># find-or-create-typeinfo-fields(T, f, dest)</span> -<span id="L20417" class="LineNr">20417 </span> (<a href='mu.subx.html#L20469'>find-or-create-typeinfo-fields</a> *(ebp+8) *(ebp+0xc) %edi) -<span id="L20418" class="LineNr">20418 </span> <span class="subxComment"># var dest-addr/edi: (addr typeinfo-entry) = lookup(dest)</span> -<span id="L20419" class="LineNr">20419 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L20420" class="LineNr">20420 </span> 89/<- %edi 0/r32/eax -<span id="L20421" class="LineNr">20421 </span> <span class="subxComment"># if dest-addr->output-var doesn't exist, create it</span> -<span id="L20422" class="LineNr">20422 </span> { -<span id="L20423" class="LineNr">20423 </span> 81 7/subop/compare *(edi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20424" class="LineNr">20424 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L20425" class="LineNr">20425 </span> <span class="subxComment"># dest-addr->output-var = new var(dummy name, type, -1 offset)</span> -<span id="L20426" class="LineNr">20426 </span> <span class="subxS1Comment"># . var name/eax: (handle array byte) = "field"</span> -<span id="L20427" class="LineNr">20427 </span> 68/push 0/imm32 -<span id="L20428" class="LineNr">20428 </span> 68/push 0/imm32 -<span id="L20429" class="LineNr">20429 </span> 89/<- %eax 4/r32/esp -<span id="L20430" class="LineNr">20430 </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="L20431" class="LineNr">20431 </span> <span class="subxS1Comment"># . new var</span> -<span id="L20432" class="LineNr">20432 </span> 8d/copy-address *(edi+0xc) 2/r32/edx -<span id="L20433" class="LineNr">20433 </span> (<a href='mu.subx.html#L19750'>new-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) -<span id="L20434" class="LineNr">20434 </span> <span class="subxS1Comment"># . reclaim name</span> -<span id="L20435" class="LineNr">20435 </span> 81 0/subop/add %esp 8/imm32 -<span id="L20436" class="LineNr">20436 </span> <span class="subxComment"># var result/edx: (addr var) = lookup(dest-addr->output-var)</span> -<span id="L20437" class="LineNr">20437 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># => eax</span> -<span id="L20438" class="LineNr">20438 </span> 89/<- %edx 0/r32/eax -<span id="L20439" class="LineNr">20439 </span> <span class="subxComment"># result->type = new constant type</span> -<span id="L20440" class="LineNr">20440 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L20441" class="LineNr">20441 </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="L20442" class="LineNr">20442 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># => eax</span> -<span id="L20443" class="LineNr">20443 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L20444" class="LineNr">20444 </span> c7 0/subop/copy *(eax+4) 6/imm32/constant <span class="subxComment"># Type-tree-value</span> -<span id="L20445" class="LineNr">20445 </span> c7 0/subop/copy *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-left</span> -<span id="L20446" class="LineNr">20446 </span> c7 0/subop/copy *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L20447" class="LineNr">20447 </span> c7 0/subop/copy *(eax+0x10) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L20448" class="LineNr">20448 </span> <span class="subxComment"># result->offset isn't filled out yet</span> -<span id="L20449" class="LineNr">20449 </span> c7 0/subop/copy *(edx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> -<span id="L20450" class="LineNr">20450 </span> } -<span id="L20451" class="LineNr">20451 </span> <span class="subxComment"># out = dest-addr->output-var</span> -<span id="L20452" class="LineNr">20452 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L20453" class="LineNr">20453 </span> 8b/-> *(edi+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20454" class="LineNr">20454 </span> 89/<- *edx 0/r32/eax -<span id="L20455" class="LineNr">20455 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20456" class="LineNr">20456 </span> 89/<- *(edx+4) 0/r32/eax -<span id="L20457" class="LineNr">20457 </span><span class="Constant">$find-or-create-typeinfo-output-var:end</span>: -<span id="L20458" class="LineNr">20458 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20459" class="LineNr">20459 </span> 81 0/subop/add %esp 8/imm32 -<span id="L20460" class="LineNr">20460 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20461" class="LineNr">20461 </span> 5f/pop-to-edi -<span id="L20462" class="LineNr">20462 </span> 5a/pop-to-edx -<span id="L20463" class="LineNr">20463 </span> 58/pop-to-eax -<span id="L20464" class="LineNr">20464 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20465" class="LineNr">20465 </span> 89/<- %esp 5/r32/ebp -<span id="L20466" class="LineNr">20466 </span> 5d/pop-to-ebp -<span id="L20467" class="LineNr">20467 </span> c3/return -<span id="L20468" class="LineNr">20468 </span> -<span id="L20469" class="LineNr">20469 </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="L20470" class="LineNr">20470 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20471" class="LineNr">20471 </span> 55/push-ebp -<span id="L20472" class="LineNr">20472 </span> 89/<- %ebp 4/r32/esp -<span id="L20473" class="LineNr">20473 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20474" class="LineNr">20474 </span> 50/push-eax -<span id="L20475" class="LineNr">20475 </span> 56/push-esi -<span id="L20476" class="LineNr">20476 </span> 57/push-edi -<span id="L20477" class="LineNr">20477 </span> <span class="subxComment"># eax = lookup(T->fields)</span> -<span id="L20478" class="LineNr">20478 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20479" class="LineNr">20479 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L20480" class="LineNr">20480 </span> <span class="subxComment"># edi = out</span> -<span id="L20481" class="LineNr">20481 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L20482" class="LineNr">20482 </span> <span class="subxComment"># var src/esi: (addr handle typeinfo-entry) = get-or-insert-slice(T->fields, f)</span> -<span id="L20483" class="LineNr">20483 </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="L20484" class="LineNr">20484 </span> 89/<- %esi 0/r32/eax -<span id="L20485" class="LineNr">20485 </span> <span class="subxComment"># if src doesn't exist, allocate it</span> -<span id="L20486" class="LineNr">20486 </span> { -<span id="L20487" class="LineNr">20487 </span> 81 7/subop/compare *esi 0/imm32 -<span id="L20488" class="LineNr">20488 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20489" class="LineNr">20489 </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="L20490" class="LineNr">20490 </span><span class="CommentedCode">#? (write-buffered Stderr "handle at ")</span> -<span id="L20491" class="LineNr">20491 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> -<span id="L20492" class="LineNr">20492 </span><span class="CommentedCode">#? (write-buffered Stderr ": ")</span> -<span id="L20493" class="LineNr">20493 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *esi)</span> -<span id="L20494" class="LineNr">20494 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> -<span id="L20495" class="LineNr">20495 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(esi+4))</span> -<span id="L20496" class="LineNr">20496 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20497" class="LineNr">20497 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20498" class="LineNr">20498 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> -<span id="L20499" class="LineNr">20499 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo fields at ")</span> -<span id="L20500" class="LineNr">20500 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> -<span id="L20501" class="LineNr">20501 </span><span class="CommentedCode">#? (write-buffered Stderr " for ")</span> -<span id="L20502" class="LineNr">20502 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> -<span id="L20503" class="LineNr">20503 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20504" class="LineNr">20504 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20505" class="LineNr">20505 </span> } -<span id="L20506" class="LineNr">20506 </span> <span class="subxComment"># *out = src</span> -<span id="L20507" class="LineNr">20507 </span> <span class="subxS1Comment"># . *edi = *src</span> -<span id="L20508" class="LineNr">20508 </span> 8b/-> *esi 0/r32/eax -<span id="L20509" class="LineNr">20509 </span> 89/<- *edi 0/r32/eax -<span id="L20510" class="LineNr">20510 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L20511" class="LineNr">20511 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L20512" class="LineNr">20512 </span><span class="Constant">$find-or-create-typeinfo-fields:end</span>: -<span id="L20513" class="LineNr">20513 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20514" class="LineNr">20514 </span> 5f/pop-to-edi -<span id="L20515" class="LineNr">20515 </span> 5e/pop-to-esi -<span id="L20516" class="LineNr">20516 </span> 58/pop-to-eax -<span id="L20517" class="LineNr">20517 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20518" class="LineNr">20518 </span> 89/<- %esp 5/r32/ebp -<span id="L20519" class="LineNr">20519 </span> 5d/pop-to-ebp -<span id="L20520" class="LineNr">20520 </span> c3/return -<span id="L20521" class="LineNr">20521 </span> -<span id="L20522" class="LineNr">20522 </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="L20523" class="LineNr">20523 </span> <span class="subxComment"># pseudocode:</span> -<span id="L20524" class="LineNr">20524 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L20525" class="LineNr">20525 </span> <span class="subxComment"># curr-index = 0</span> -<span id="L20526" class="LineNr">20526 </span> <span class="subxComment"># while true</span> -<span id="L20527" class="LineNr">20527 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L20528" class="LineNr">20528 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L20529" class="LineNr">20529 </span> <span class="subxComment"># if line->write == 0</span> -<span id="L20530" class="LineNr">20530 </span> <span class="subxComment"># abort</span> -<span id="L20531" class="LineNr">20531 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L20532" class="LineNr">20532 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L20533" class="LineNr">20533 </span> <span class="subxComment"># continue</span> -<span id="L20534" class="LineNr">20534 </span> <span class="subxComment"># if slice-equal?(word-slice, "}")</span> -<span id="L20535" class="LineNr">20535 </span> <span class="subxComment"># break</span> -<span id="L20536" class="LineNr">20536 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, line)</span> -<span id="L20537" class="LineNr">20537 </span> <span class="subxComment"># var r: (handle typeinfo-fields) = find-or-create-typeinfo-fields(t, word-slice/v->name)</span> -<span id="L20538" class="LineNr">20538 </span> <span class="subxComment"># TODO: ensure that r->first is null</span> -<span id="L20539" class="LineNr">20539 </span> <span class="subxComment"># r->index = curr-index</span> -<span id="L20540" class="LineNr">20540 </span> <span class="subxComment"># curr-index++</span> -<span id="L20541" class="LineNr">20541 </span> <span class="subxComment"># r->input-var = v</span> -<span id="L20542" class="LineNr">20542 </span> <span class="subxComment"># if r->output-var == 0</span> -<span id="L20543" class="LineNr">20543 </span> <span class="subxComment"># r->output-var = new literal</span> -<span id="L20544" class="LineNr">20544 </span> <span class="subxComment"># TODO: ensure nothing else in line</span> -<span id="L20545" class="LineNr">20545 </span> <span class="subxComment"># t->total-size-in-bytes = -2 (not yet initialized)</span> -<span id="L20546" class="LineNr">20546 </span> <span class="subxComment">#</span> -<span id="L20547" class="LineNr">20547 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20548" class="LineNr">20548 </span> 55/push-ebp -<span id="L20549" class="LineNr">20549 </span> 89/<- %ebp 4/r32/esp -<span id="L20550" class="LineNr">20550 </span> <span class="subxComment"># var curr-index: int at *(ebp-4)</span> -<span id="L20551" class="LineNr">20551 </span> 68/push 0/imm32 -<span id="L20552" class="LineNr">20552 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20553" class="LineNr">20553 </span> 50/push-eax -<span id="L20554" class="LineNr">20554 </span> 51/push-ecx -<span id="L20555" class="LineNr">20555 </span> 52/push-edx -<span id="L20556" class="LineNr">20556 </span> 53/push-ebx -<span id="L20557" class="LineNr">20557 </span> 56/push-esi -<span id="L20558" class="LineNr">20558 </span> 57/push-edi -<span id="L20559" class="LineNr">20559 </span> <span class="subxComment"># edi = t</span> -<span id="L20560" class="LineNr">20560 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L20561" class="LineNr">20561 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L20562" class="LineNr">20562 </span> 81 5/subop/subtract %esp 0x200/imm32 -<span id="L20563" class="LineNr">20563 </span> 68/push 0x200/imm32/size -<span id="L20564" class="LineNr">20564 </span> 68/push 0/imm32/read -<span id="L20565" class="LineNr">20565 </span> 68/push 0/imm32/write -<span id="L20566" class="LineNr">20566 </span> 89/<- %ecx 4/r32/esp -<span id="L20567" class="LineNr">20567 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L20568" class="LineNr">20568 </span> 68/push 0/imm32/end -<span id="L20569" class="LineNr">20569 </span> 68/push 0/imm32/start -<span id="L20570" class="LineNr">20570 </span> 89/<- %edx 4/r32/esp -<span id="L20571" class="LineNr">20571 </span> <span class="subxComment"># var v/esi: (handle var)</span> -<span id="L20572" class="LineNr">20572 </span> 68/push 0/imm32 -<span id="L20573" class="LineNr">20573 </span> 68/push 0/imm32 -<span id="L20574" class="LineNr">20574 </span> 89/<- %esi 4/r32/esp -<span id="L20575" class="LineNr">20575 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> -<span id="L20576" class="LineNr">20576 </span> 68/push 0/imm32 -<span id="L20577" class="LineNr">20577 </span> 68/push 0/imm32 -<span id="L20578" class="LineNr">20578 </span> 89/<- %ebx 4/r32/esp -<span id="L20579" class="LineNr">20579 </span> { -<span id="L20580" class="LineNr">20580 </span><span class="Constant">$populate-mu-type:line-loop</span>: -<span id="L20581" class="LineNr">20581 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L20582" class="LineNr">20582 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) -<span id="L20583" class="LineNr">20583 </span> <span class="subxComment"># if (line->write == 0) abort</span> -<span id="L20584" class="LineNr">20584 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L20585" class="LineNr">20585 </span> 0f 84/jump-if-= $populate-mu-type:error1/disp32 -<span id="L20586" class="Folded">20586 </span><span class="Folded">+-- 6 lines: #? # dump line -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L20592" class="LineNr">20592 </span> (<a href='mu.subx.html#L17328'>next-mu-token</a> %ecx %edx) -<span id="L20593" class="LineNr">20593 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> -<span id="L20594" class="LineNr">20594 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L20595" class="LineNr">20595 </span> 3d/compare-eax-and 0/imm32 -<span id="L20596" class="LineNr">20596 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 -<span id="L20597" class="LineNr">20597 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> -<span id="L20598" class="LineNr">20598 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) -<span id="L20599" class="LineNr">20599 </span> 3d/compare-eax-and 0/imm32 -<span id="L20600" class="LineNr">20600 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L20601" class="LineNr">20601 </span><span class="Constant">$populate-mu-type:parse-element</span>: -<span id="L20602" class="LineNr">20602 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L20603" class="LineNr">20603 </span> <span class="subxComment"># must do this first to strip the trailing ':' from word-slice before</span> -<span id="L20604" class="LineNr">20604 </span> <span class="subxComment"># using it in find-or-create-typeinfo-fields below</span> -<span id="L20605" class="LineNr">20605 </span> <span class="subxComment"># TODO: clean up that mutation in parse-var-with-type</span> -<span id="L20606" class="LineNr">20606 </span> (<a href='mu.subx.html#L20750'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20607" class="LineNr">20607 </span> (<a href='mu.subx.html#L16973'>parse-var-with-type</a> %edx %ecx %esi %eax *(ebp+0x10) *(ebp+0x14)) -<span id="L20608" class="LineNr">20608 </span> <span class="subxComment"># if v is an addr, abort</span> -<span id="L20609" class="LineNr">20609 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L20610" class="LineNr">20610 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20611" class="LineNr">20611 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20612" class="LineNr">20612 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20613" class="LineNr">20613 </span> 0f 85/jump-if-!= $populate-mu-type:error2/disp32 -<span id="L20614" class="LineNr">20614 </span> <span class="subxComment"># if v is an array, abort (we could support it, but initialization gets complex)</span> -<span id="L20615" class="LineNr">20615 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L20616" class="LineNr">20616 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20617" class="LineNr">20617 </span> (<a href='mu.subx.html#L36315'>mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20618" class="LineNr">20618 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20619" class="LineNr">20619 </span> 0f 85/jump-if-!= $populate-mu-type:error3/disp32 -<span id="L20620" class="LineNr">20620 </span> <span class="subxComment"># if v is a byte, abort</span> -<span id="L20621" class="LineNr">20621 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L20622" class="LineNr">20622 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20623" class="LineNr">20623 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L20624" class="LineNr">20624 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20625" class="LineNr">20625 </span> 0f 85/jump-if-!= $populate-mu-type:error4/disp32 -<span id="L20626" class="LineNr">20626 </span> <span class="subxComment"># if v is a slice, abort</span> -<span id="L20627" class="LineNr">20627 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L20628" class="LineNr">20628 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20629" class="LineNr">20629 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0xc) <span class="subxComment"># slice => eax</span> -<span id="L20630" class="LineNr">20630 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20631" class="LineNr">20631 </span> 0f 85/jump-if-!= $populate-mu-type:error5/disp32 -<span id="L20632" class="LineNr">20632 </span> <span class="subxComment"># if v is a stream, abort (we could support it, but initialization gets even more complex)</span> -<span id="L20633" class="LineNr">20633 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L20634" class="LineNr">20634 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20635" class="LineNr">20635 </span> (<a href='mu.subx.html#L36377'>mu-stream-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20636" class="LineNr">20636 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20637" class="LineNr">20637 </span> 0f 85/jump-if-!= $populate-mu-type:error6/disp32 -<span id="L20638" class="LineNr">20638 </span> <span class="subxComment"># var tmp/ecx</span> -<span id="L20639" class="LineNr">20639 </span> 51/push-ecx -<span id="L20640" class="LineNr">20640 </span><span class="Constant">$populate-mu-type:create-typeinfo-fields</span>: -<span id="L20641" class="LineNr">20641 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> -<span id="L20642" class="LineNr">20642 </span> (<a href='mu.subx.html#L20469'>find-or-create-typeinfo-fields</a> %edi %edx %ebx) -<span id="L20643" class="LineNr">20643 </span> <span class="subxComment"># r->index = curr-index</span> -<span id="L20644" class="LineNr">20644 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L20645" class="LineNr">20645 </span> 8b/-> *(ebp-4) 1/r32/ecx -<span id="L20646" class="LineNr">20646 </span><span class="CommentedCode">#? (write-buffered Stderr "saving index ")</span> -<span id="L20647" class="LineNr">20647 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> -<span id="L20648" class="LineNr">20648 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> -<span id="L20649" class="LineNr">20649 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edi)</span> -<span id="L20650" class="LineNr">20650 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20651" class="LineNr">20651 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20652" class="LineNr">20652 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-index</span> -<span id="L20653" class="LineNr">20653 </span> <span class="subxComment"># ++curr-index</span> -<span id="L20654" class="LineNr">20654 </span> ff 0/subop/increment *(ebp-4) -<span id="L20655" class="LineNr">20655 </span><span class="Constant">$populate-mu-type:set-input-type</span>: -<span id="L20656" class="LineNr">20656 </span> <span class="subxComment"># r->input-var = v</span> -<span id="L20657" class="LineNr">20657 </span> 8b/-> *esi 1/r32/ecx -<span id="L20658" class="LineNr">20658 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L20659" class="LineNr">20659 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L20660" class="LineNr">20660 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L20661" class="LineNr">20661 </span> <span class="subxComment"># restore line</span> -<span id="L20662" class="LineNr">20662 </span> 59/pop-to-ecx -<span id="L20663" class="LineNr">20663 </span> { -<span id="L20664" class="LineNr">20664 </span><span class="Constant">$populate-mu-type:create-output-type</span>: -<span id="L20665" class="LineNr">20665 </span> <span class="subxComment"># if (r->output-var == 0) create a new var with some placeholder data</span> -<span id="L20666" class="LineNr">20666 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20667" class="LineNr">20667 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20668" class="LineNr">20668 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20669" class="LineNr">20669 </span> (<a href='mu.subx.html#L19900'>new-literal</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edx %eax) -<span id="L20670" class="LineNr">20670 </span> } -<span id="L20671" class="LineNr">20671 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L20672" class="LineNr">20672 </span> } -<span id="L20673" class="LineNr">20673 </span><span class="Constant">$populate-mu-type:invalidate-total-size-in-bytes</span>: -<span id="L20674" class="LineNr">20674 </span> <span class="subxComment"># Offsets and total size may not be accurate here since we may not yet</span> -<span id="L20675" class="LineNr">20675 </span> <span class="subxComment"># have encountered the element types.</span> -<span id="L20676" class="LineNr">20676 </span> <span class="subxComment"># We'll recompute them separately after parsing the entire program.</span> -<span id="L20677" class="LineNr">20677 </span> c7 0/subop/copy *(edi+0xc) -2/imm32/uninitialized <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20678" class="LineNr">20678 </span><span class="Constant">$populate-mu-type:end</span>: -<span id="L20679" class="LineNr">20679 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20680" class="LineNr">20680 </span> 81 0/subop/add %esp 0x224/imm32 -<span id="L20681" class="LineNr">20681 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20682" class="LineNr">20682 </span> 5f/pop-to-edi -<span id="L20683" class="LineNr">20683 </span> 5e/pop-to-esi -<span id="L20684" class="LineNr">20684 </span> 5b/pop-to-ebx -<span id="L20685" class="LineNr">20685 </span> 5a/pop-to-edx -<span id="L20686" class="LineNr">20686 </span> 59/pop-to-ecx -<span id="L20687" class="LineNr">20687 </span> 58/pop-to-eax -<span id="L20688" class="LineNr">20688 </span> <span class="subxComment"># reclaim curr-index</span> -<span id="L20689" class="LineNr">20689 </span> 81 0/subop/add %esp 4/imm32 -<span id="L20690" class="LineNr">20690 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20691" class="LineNr">20691 </span> 89/<- %esp 5/r32/ebp -<span id="L20692" class="LineNr">20692 </span> 5d/pop-to-ebp -<span id="L20693" class="LineNr">20693 </span> c3/return -<span id="L20694" class="LineNr">20694 </span> -<span id="L20695" class="LineNr">20695 </span><span class="Constant">$populate-mu-type:error1</span>: -<span id="L20696" class="LineNr">20696 </span> <span class="subxComment"># error("incomplete type definition '" t->name "'\n")</span> -<span id="L20697" class="LineNr">20697 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"incomplete type definition '"</span>) -<span id="L20698" class="LineNr">20698 </span> (<a href='mu.subx.html#L20750'>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">"\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="Constant">$populate-mu-type:error2</span>: -<span id="L20706" class="LineNr">20706 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L20707" class="LineNr">20707 </span> (<a href='mu.subx.html#L20750'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20708" class="LineNr">20708 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20709" class="LineNr">20709 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'addr' elements not allowed\n"</span>) -<span id="L20710" class="LineNr">20710 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20711" class="LineNr">20711 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20712" class="LineNr">20712 </span> <span class="subxComment"># never gets here</span> -<span id="L20713" class="LineNr">20713 </span> -<span id="L20714" class="LineNr">20714 </span><span class="Constant">$populate-mu-type:error3</span>: -<span id="L20715" class="LineNr">20715 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L20716" class="LineNr">20716 </span> (<a href='mu.subx.html#L20750'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20717" class="LineNr">20717 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20718" class="LineNr">20718 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'array' elements not allowed for now\n"</span>) -<span id="L20719" class="LineNr">20719 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20720" class="LineNr">20720 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20721" class="LineNr">20721 </span> <span class="subxComment"># never gets here</span> -<span id="L20722" class="LineNr">20722 </span> -<span id="L20723" class="LineNr">20723 </span><span class="Constant">$populate-mu-type:error4</span>: -<span id="L20724" class="LineNr">20724 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L20725" class="LineNr">20725 </span> (<a href='mu.subx.html#L20750'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20726" class="LineNr">20726 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20727" class="LineNr">20727 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'byte' elements not allowed\n"</span>) -<span id="L20728" class="LineNr">20728 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20729" class="LineNr">20729 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20730" class="LineNr">20730 </span> <span class="subxComment"># never gets here</span> -<span id="L20731" class="LineNr">20731 </span> -<span id="L20732" class="LineNr">20732 </span><span class="Constant">$populate-mu-type:error5</span>: -<span id="L20733" class="LineNr">20733 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L20734" class="LineNr">20734 </span> (<a href='mu.subx.html#L20750'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20735" class="LineNr">20735 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20736" class="LineNr">20736 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'slice' elements not allowed\n"</span>) -<span id="L20737" class="LineNr">20737 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20738" class="LineNr">20738 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20739" class="LineNr">20739 </span> <span class="subxComment"># never gets here</span> -<span id="L20740" class="LineNr">20740 </span> -<span id="L20741" class="LineNr">20741 </span><span class="Constant">$populate-mu-type:error6</span>: -<span id="L20742" class="LineNr">20742 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L20743" class="LineNr">20743 </span> (<a href='mu.subx.html#L20750'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20744" class="LineNr">20744 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20745" class="LineNr">20745 </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="L20746" class="LineNr">20746 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20747" class="LineNr">20747 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20748" class="LineNr">20748 </span> <span class="subxComment"># never gets here</span> -<span id="L20749" class="LineNr">20749 </span> -<span id="L20750" class="LineNr">20750 </span><span class="subxFunction">type-name</span>: <span class="subxComment"># index: int -> result/eax: (addr array byte)</span> -<span id="L20751" class="LineNr">20751 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20752" class="LineNr">20752 </span> 55/push-ebp -<span id="L20753" class="LineNr">20753 </span> 89/<- %ebp 4/r32/esp -<span id="L20754" class="LineNr">20754 </span> <span class="subxComment">#</span> -<span id="L20755" class="LineNr">20755 </span> (index <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> *(ebp+8)) -<span id="L20756" class="LineNr">20756 </span><span class="Constant">$type-name:end</span>: -<span id="L20757" class="LineNr">20757 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20758" class="LineNr">20758 </span> 89/<- %esp 5/r32/ebp -<span id="L20759" class="LineNr">20759 </span> 5d/pop-to-ebp -<span id="L20760" class="LineNr">20760 </span> c3/return -<span id="L20761" class="LineNr">20761 </span> -<span id="L20762" class="LineNr">20762 </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="L20763" class="LineNr">20763 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20764" class="LineNr">20764 </span> 55/push-ebp -<span id="L20765" class="LineNr">20765 </span> 89/<- %ebp 4/r32/esp -<span id="L20766" class="LineNr">20766 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20767" class="LineNr">20767 </span> 56/push-esi -<span id="L20768" class="LineNr">20768 </span> <span class="subxComment"># TODO: bounds-check index</span> -<span id="L20769" class="LineNr">20769 </span> <span class="subxComment"># esi = arr</span> -<span id="L20770" class="LineNr">20770 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L20771" class="LineNr">20771 </span> <span class="subxComment"># eax = index</span> -<span id="L20772" class="LineNr">20772 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20773" class="LineNr">20773 </span> <span class="subxComment"># eax = *(arr + 12 + index)</span> -<span id="L20774" class="LineNr">20774 </span> 8b/-> *(esi+eax<<2+0xc) 0/r32/eax -<span id="L20775" class="LineNr">20775 </span><span class="Constant">$index:end</span>: -<span id="L20776" class="LineNr">20776 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20777" class="LineNr">20777 </span> 5e/pop-to-esi -<span id="L20778" class="LineNr">20778 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20779" class="LineNr">20779 </span> 89/<- %esp 5/r32/ebp -<span id="L20780" class="LineNr">20780 </span> 5d/pop-to-ebp -<span id="L20781" class="LineNr">20781 </span> c3/return -<span id="L20782" class="LineNr">20782 </span> -<span id="L20783" class="LineNr">20783 </span><span class="subxComment">#######################################################</span> -<span id="L20784" class="LineNr">20784 </span><span class="subxComment"># Compute type sizes</span> -<span id="L20785" class="LineNr">20785 </span><span class="subxComment">#######################################################</span> -<span id="L20786" class="LineNr">20786 </span> -<span id="L20787" class="LineNr">20787 </span><span class="subxComment"># Compute the sizes of all user-defined types.</span> -<span id="L20788" class="LineNr">20788 </span><span class="subxComment"># We'll need the sizes of their elements, which may be other user-defined</span> -<span id="L20789" class="LineNr">20789 </span><span class="subxComment"># types, which we will compute as needed.</span> -<span id="L20790" class="LineNr">20790 </span> -<span id="L20791" class="LineNr">20791 </span><span class="subxComment"># Initially, all user-defined types have their sizes set to -2 (invalid)</span> -<span id="L20792" class="LineNr">20792 </span><span class="subxFunction">populate-mu-type-sizes</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L20793" class="LineNr">20793 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20794" class="LineNr">20794 </span> 55/push-ebp -<span id="L20795" class="LineNr">20795 </span> 89/<- %ebp 4/r32/esp -<span id="L20796" class="LineNr">20796 </span><span class="Constant">$populate-mu-type-sizes:total-sizes</span>: -<span id="L20797" class="LineNr">20797 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> -<span id="L20798" class="LineNr">20798 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> -<span id="L20799" class="LineNr">20799 </span> { -<span id="L20800" class="LineNr">20800 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L20801" class="LineNr">20801 </span> 3d/compare-eax-and 0/imm32/null -<span id="L20802" class="LineNr">20802 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20803" class="LineNr">20803 </span> (<a href='mu.subx.html#L20829'>populate-mu-type-sizes-in-type</a> %eax *(ebp+8) *(ebp+0xc)) -<span id="L20804" class="LineNr">20804 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L20805" class="LineNr">20805 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> -<span id="L20806" class="LineNr">20806 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20807" class="LineNr">20807 </span> } -<span id="L20808" class="LineNr">20808 </span><span class="Constant">$populate-mu-type-sizes:offsets</span>: -<span id="L20809" class="LineNr">20809 </span> <span class="subxComment"># curr = *Program->types</span> -<span id="L20810" class="LineNr">20810 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> -<span id="L20811" class="LineNr">20811 </span> { -<span id="L20812" class="LineNr">20812 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L20813" class="LineNr">20813 </span> 3d/compare-eax-and 0/imm32/null -<span id="L20814" class="LineNr">20814 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20815" class="LineNr">20815 </span> (<a href='mu.subx.html#L20993'>populate-mu-type-offsets</a> %eax *(ebp+8) *(ebp+0xc)) -<span id="L20816" class="LineNr">20816 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L20817" class="LineNr">20817 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> -<span id="L20818" class="LineNr">20818 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20819" class="LineNr">20819 </span> } -<span id="L20820" class="LineNr">20820 </span><span class="Constant">$populate-mu-type-sizes:end</span>: -<span id="L20821" class="LineNr">20821 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20822" class="LineNr">20822 </span> 89/<- %esp 5/r32/ebp -<span id="L20823" class="LineNr">20823 </span> 5d/pop-to-ebp -<span id="L20824" class="LineNr">20824 </span> c3/return -<span id="L20825" class="LineNr">20825 </span> -<span id="L20826" class="LineNr">20826 </span><span class="subxComment"># compute sizes of all fields, recursing as necessary</span> -<span id="L20827" class="LineNr">20827 </span><span class="subxComment"># sum up all their sizes to arrive at total size</span> -<span id="L20828" class="LineNr">20828 </span><span class="subxComment"># fields may be out of order, but that doesn't affect the answer</span> -<span id="L20829" class="LineNr">20829 </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="L20830" class="LineNr">20830 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20831" class="LineNr">20831 </span> 55/push-ebp -<span id="L20832" class="LineNr">20832 </span> 89/<- %ebp 4/r32/esp -<span id="L20833" class="LineNr">20833 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20834" class="LineNr">20834 </span> 50/push-eax -<span id="L20835" class="LineNr">20835 </span> 51/push-ecx -<span id="L20836" class="LineNr">20836 </span> 52/push-edx -<span id="L20837" class="LineNr">20837 </span> 56/push-esi -<span id="L20838" class="LineNr">20838 </span> 57/push-edi -<span id="L20839" class="LineNr">20839 </span> <span class="subxComment"># esi = T</span> -<span id="L20840" class="LineNr">20840 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L20841" class="LineNr">20841 </span> <span class="subxComment"># if T is already computed, return</span> -<span id="L20842" class="LineNr">20842 </span> 81 7/subop/compare *(esi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20843" class="LineNr">20843 </span> 0f 8d/jump-if->= $populate-mu-type-sizes-in-type:end/disp32 -<span id="L20844" class="LineNr">20844 </span> <span class="subxComment"># if T is being computed, abort</span> -<span id="L20845" class="LineNr">20845 </span> 81 7/subop/compare *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20846" class="LineNr">20846 </span> 0f 84/jump-if-= $populate-mu-type-sizes-in-type:abort/disp32 -<span id="L20847" class="LineNr">20847 </span> <span class="subxComment"># tag T (-2 to -1) to avoid infinite recursion</span> -<span id="L20848" class="LineNr">20848 </span> c7 0/subop/copy *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20849" class="LineNr">20849 </span> <span class="subxComment"># var total-size/edi: int = 0</span> -<span id="L20850" class="LineNr">20850 </span> bf/copy-to-edi 0/imm32 -<span id="L20851" class="LineNr">20851 </span> <span class="subxH1Comment"># - for every field, if it's a user-defined type, compute its size</span> -<span id="L20852" class="LineNr">20852 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> -<span id="L20853" class="LineNr">20853 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L20854" class="LineNr">20854 </span> 89/<- %ecx 0/r32/eax -<span id="L20855" class="LineNr">20855 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> -<span id="L20856" class="LineNr">20856 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> -<span id="L20857" class="LineNr">20857 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> -<span id="L20858" class="LineNr">20858 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx -<span id="L20859" class="LineNr">20859 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> -<span id="L20860" class="LineNr">20860 </span> 8d/copy-address *(ecx+edx) 2/r32/edx -<span id="L20861" class="LineNr">20861 </span> { -<span id="L20862" class="LineNr">20862 </span><span class="Constant">$populate-mu-type-sizes-in-type:loop</span>: -<span id="L20863" class="LineNr">20863 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L20864" class="LineNr">20864 </span> 39/compare %ecx 2/r32/edx -<span id="L20865" class="LineNr">20865 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 -<span id="L20866" class="LineNr">20866 </span> <span class="subxComment"># var t/eax: (addr typeinfo-entry) = lookup(curr->value)</span> -<span id="L20867" class="LineNr">20867 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> -<span id="L20868" class="LineNr">20868 </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="L20869" class="LineNr">20869 </span> 81 7/subop/compare *eax 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L20870" class="LineNr">20870 </span> 74/jump-if-= $populate-mu-type-sizes-in-type:end/disp8 -<span id="L20871" class="LineNr">20871 </span> <span class="subxComment"># compute size of t->input-var</span> -<span id="L20872" class="LineNr">20872 </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="L20873" class="LineNr">20873 </span> (<a href='mu.subx.html#L20903'>compute-size-of-var</a> %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L20874" class="LineNr">20874 </span> <span class="subxComment"># result += eax</span> -<span id="L20875" class="LineNr">20875 </span> 01/add-to %edi 0/r32/eax -<span id="L20876" class="LineNr">20876 </span> <span class="subxComment"># curr += row-size</span> -<span id="L20877" class="LineNr">20877 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> -<span id="L20878" class="LineNr">20878 </span> <span class="subxComment">#</span> -<span id="L20879" class="LineNr">20879 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20880" class="LineNr">20880 </span> } -<span id="L20881" class="LineNr">20881 </span> <span class="subxH1Comment"># - save result</span> -<span id="L20882" class="LineNr">20882 </span> 89/<- *(esi+0xc) 7/r32/edi <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20883" class="LineNr">20883 </span><span class="Constant">$populate-mu-type-sizes-in-type:end</span>: -<span id="L20884" class="LineNr">20884 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20885" class="LineNr">20885 </span> 5f/pop-to-edi -<span id="L20886" class="LineNr">20886 </span> 5e/pop-to-esi -<span id="L20887" class="LineNr">20887 </span> 5a/pop-to-edx -<span id="L20888" class="LineNr">20888 </span> 59/pop-to-ecx -<span id="L20889" class="LineNr">20889 </span> 58/pop-to-eax -<span id="L20890" class="LineNr">20890 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20891" class="LineNr">20891 </span> 89/<- %esp 5/r32/ebp -<span id="L20892" class="LineNr">20892 </span> 5d/pop-to-ebp -<span id="L20893" class="LineNr">20893 </span> c3/return -<span id="L20894" class="LineNr">20894 </span> -<span id="L20895" class="LineNr">20895 </span><span class="Constant">$populate-mu-type-sizes-in-type:abort</span>: -<span id="L20896" class="LineNr">20896 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"cycle in type definitions\n"</span>) -<span id="L20897" class="LineNr">20897 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L20898" class="LineNr">20898 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L20899" class="LineNr">20899 </span> <span class="subxComment"># never gets here</span> -<span id="L20900" class="LineNr">20900 </span> -<span id="L20901" class="LineNr">20901 </span><span class="subxComment"># Analogous to size-of, except we need to compute what size-of can just read</span> -<span id="L20902" class="LineNr">20902 </span><span class="subxComment"># off the right data structures.</span> -<span id="L20903" class="LineNr">20903 </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="L20904" class="LineNr">20904 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20905" class="LineNr">20905 </span> 55/push-ebp -<span id="L20906" class="LineNr">20906 </span> 89/<- %ebp 4/r32/esp -<span id="L20907" class="LineNr">20907 </span> <span class="subxS1Comment"># . push registers</span> -<span id="L20908" class="LineNr">20908 </span> 51/push-ecx -<span id="L20909" class="LineNr">20909 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> -<span id="L20910" class="LineNr">20910 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L20911" class="LineNr">20911 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20912" class="LineNr">20912 </span> 89/<- %ecx 0/r32/eax -<span id="L20913" class="LineNr">20913 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> -<span id="L20914" class="LineNr">20914 </span> { -<span id="L20915" class="LineNr">20915 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L20916" class="LineNr">20916 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20917" class="LineNr">20917 </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="L20918" class="LineNr">20918 </span> 89/<- %ecx 0/r32/eax -<span id="L20919" class="LineNr">20919 </span> } -<span id="L20920" class="LineNr">20920 </span> <span class="subxComment"># TODO: ensure t is an atom</span> -<span id="L20921" class="LineNr">20921 </span> (<a href='mu.subx.html#L20930'>compute-size-of-type-id</a> *(ecx+4) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L20922" class="LineNr">20922 </span><span class="Constant">$compute-size-of-var:end</span>: -<span id="L20923" class="LineNr">20923 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20924" class="LineNr">20924 </span> 59/pop-to-ecx -<span id="L20925" class="LineNr">20925 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20926" class="LineNr">20926 </span> 89/<- %esp 5/r32/ebp -<span id="L20927" class="LineNr">20927 </span> 5d/pop-to-ebp -<span id="L20928" class="LineNr">20928 </span> c3/return -<span id="L20929" class="LineNr">20929 </span> -<span id="L20930" class="LineNr">20930 </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="L20931" class="LineNr">20931 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20932" class="LineNr">20932 </span> 55/push-ebp -<span id="L20933" class="LineNr">20933 </span> 89/<- %ebp 4/r32/esp -<span id="L20934" class="LineNr">20934 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20935" class="LineNr">20935 </span> 51/push-ecx -<span id="L20936" class="LineNr">20936 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> -<span id="L20937" class="LineNr">20937 </span> 68/push 0/imm32 -<span id="L20938" class="LineNr">20938 </span> 68/push 0/imm32 -<span id="L20939" class="LineNr">20939 </span> 89/<- %ecx 4/r32/esp -<span id="L20940" class="LineNr">20940 </span> <span class="subxComment"># eax = t</span> -<span id="L20941" class="LineNr">20941 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20942" class="LineNr">20942 </span> <span class="subxComment"># if t is a literal, return 0</span> -<span id="L20943" class="LineNr">20943 </span> 3d/compare-eax-and 0/imm32/literal -<span id="L20944" class="LineNr">20944 </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="L20945" class="LineNr">20945 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> -<span id="L20946" class="LineNr">20946 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L20947" class="LineNr">20947 </span> { -<span id="L20948" class="LineNr">20948 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20949" class="LineNr">20949 </span> b8/copy-to-eax 4/imm32 -<span id="L20950" class="LineNr">20950 </span> eb/jump $compute-size-of-type-id:end/disp8 -<span id="L20951" class="LineNr">20951 </span> } -<span id="L20952" class="LineNr">20952 </span> <span class="subxComment"># if t is a handle, return 8</span> -<span id="L20953" class="LineNr">20953 </span> 3d/compare-eax-and 4/imm32/handle -<span id="L20954" class="LineNr">20954 </span> { -<span id="L20955" class="LineNr">20955 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20956" class="LineNr">20956 </span> b8/copy-to-eax 8/imm32 -<span id="L20957" class="LineNr">20957 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L20958" class="LineNr">20958 </span> } -<span id="L20959" class="LineNr">20959 </span> <span class="subxComment"># if t is a slice, return 8</span> -<span id="L20960" class="LineNr">20960 </span> 3d/compare-eax-and 0xc/imm32/slice -<span id="L20961" class="LineNr">20961 </span> { -<span id="L20962" class="LineNr">20962 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20963" class="LineNr">20963 </span> b8/copy-to-eax 8/imm32 -<span id="L20964" class="LineNr">20964 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L20965" class="LineNr">20965 </span> } -<span id="L20966" class="LineNr">20966 </span> <span class="subxComment"># if t is a user-defined type, compute its size</span> -<span id="L20967" class="LineNr">20967 </span> <span class="subxComment"># TODO: support non-atom type</span> -<span id="L20968" class="LineNr">20968 </span> (<a href='mu.subx.html#L20355'>find-typeinfo</a> %eax %ecx) -<span id="L20969" class="LineNr">20969 </span> { -<span id="L20970" class="LineNr">20970 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L20971" class="LineNr">20971 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20972" class="LineNr">20972 </span><span class="Constant">$compute-size-of-type-id:user-defined</span>: -<span id="L20973" class="LineNr">20973 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L20974" class="LineNr">20974 </span> (<a href='mu.subx.html#L20829'>populate-mu-type-sizes-in-type</a> %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L20975" class="LineNr">20975 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20976" class="LineNr">20976 </span> eb/jump $compute-size-of-type-id:end/disp8 -<span id="L20977" class="LineNr">20977 </span> } -<span id="L20978" class="LineNr">20978 </span> <span class="subxComment"># otherwise return the word size</span> -<span id="L20979" class="LineNr">20979 </span> b8/copy-to-eax 4/imm32 -<span id="L20980" class="LineNr">20980 </span><span class="Constant">$compute-size-of-type-id:end</span>: -<span id="L20981" class="LineNr">20981 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20982" class="LineNr">20982 </span> 81 0/subop/add %esp 8/imm32 -<span id="L20983" class="LineNr">20983 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20984" class="LineNr">20984 </span> 59/pop-to-ecx -<span id="L20985" class="LineNr">20985 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20986" class="LineNr">20986 </span> 89/<- %esp 5/r32/ebp -<span id="L20987" class="LineNr">20987 </span> 5d/pop-to-ebp -<span id="L20988" class="LineNr">20988 </span> c3/return -<span id="L20989" class="LineNr">20989 </span> -<span id="L20990" class="LineNr">20990 </span><span class="subxComment"># at this point we have total sizes for all user-defined types</span> -<span id="L20991" class="LineNr">20991 </span><span class="subxComment"># compute offsets for each element</span> -<span id="L20992" class="LineNr">20992 </span><span class="subxComment"># complication: fields may be out of order</span> -<span id="L20993" class="LineNr">20993 </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="L20994" class="LineNr">20994 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20995" class="LineNr">20995 </span> 55/push-ebp -<span id="L20996" class="LineNr">20996 </span> 89/<- %ebp 4/r32/esp -<span id="L20997" class="LineNr">20997 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20998" class="LineNr">20998 </span> 50/push-eax -<span id="L20999" class="LineNr">20999 </span> 51/push-ecx -<span id="L21000" class="LineNr">21000 </span> 52/push-edx -<span id="L21001" class="LineNr">21001 </span> 53/push-ebx -<span id="L21002" class="LineNr">21002 </span> 56/push-esi -<span id="L21003" class="LineNr">21003 </span> 57/push-edi -<span id="L21004" class="LineNr">21004 </span><span class="CommentedCode">#? (dump-typeinfos "aaa\n")</span> -<span id="L21005" class="LineNr">21005 </span> <span class="subxComment"># var curr-offset/edi: int = 0</span> -<span id="L21006" class="LineNr">21006 </span> bf/copy-to-edi 0/imm32 -<span id="L21007" class="LineNr">21007 </span> <span class="subxComment"># var table/ecx: (addr table string_key (handle typeinfo-entry)) = lookup(in->fields)</span> -<span id="L21008" class="LineNr">21008 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L21009" class="LineNr">21009 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L21010" class="LineNr">21010 </span> 89/<- %ecx 0/r32/eax -<span id="L21011" class="LineNr">21011 </span> <span class="subxComment"># var num-elems/edx: int = table->write / Typeinfo-fields-row-size</span> -<span id="L21012" class="LineNr">21012 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> -<span id="L21013" class="LineNr">21013 </span> c1 5/subop/shift-right-logical %edx 4/imm8 -<span id="L21014" class="LineNr">21014 </span> <span class="subxComment"># var i/ebx: int = 0</span> -<span id="L21015" class="LineNr">21015 </span> bb/copy-to-ebx 0/imm32 -<span id="L21016" class="LineNr">21016 </span> { -<span id="L21017" class="LineNr">21017 </span><span class="Constant">$populate-mu-type-offsets:loop</span>: -<span id="L21018" class="LineNr">21018 </span> 39/compare %ebx 2/r32/edx -<span id="L21019" class="LineNr">21019 </span> 0f 8d/jump-if->= <span class="Constant">break</span>/disp32 -<span id="L21020" class="LineNr">21020 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up index ")</span> -<span id="L21021" class="LineNr">21021 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> -<span id="L21022" class="LineNr">21022 </span><span class="CommentedCode">#? (write-buffered Stderr " in ")</span> -<span id="L21023" class="LineNr">21023 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> -<span id="L21024" class="LineNr">21024 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L21025" class="LineNr">21025 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L21026" class="LineNr">21026 </span> <span class="subxComment"># var v/esi: (addr typeinfo-entry)</span> -<span id="L21027" class="LineNr">21027 </span> (<a href='mu.subx.html#L21060'>locate-typeinfo-entry-with-index</a> %ecx %ebx *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L21028" class="LineNr">21028 </span> 89/<- %esi 0/r32/eax -<span id="L21029" class="LineNr">21029 </span> <span class="subxComment"># if v is null, silently move on; we'll emit a nice error message while type-checking</span> -<span id="L21030" class="LineNr">21030 </span> 81 7/subop/compare %esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L21031" class="LineNr">21031 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 -<span id="L21032" class="LineNr">21032 </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="L21033" class="LineNr">21033 </span> 81 7/subop/compare *esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L21034" class="LineNr">21034 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 -<span id="L21035" class="LineNr">21035 </span> <span class="subxComment"># v->output-var->offset = curr-offset</span> -<span id="L21036" class="LineNr">21036 </span> <span class="subxS1Comment"># . eax: (addr var)</span> -<span id="L21037" class="LineNr">21037 </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="L21038" class="LineNr">21038 </span> 89/<- *(eax+0x14) 7/r32/edi <span class="subxComment"># Var-offset</span> -<span id="L21039" class="LineNr">21039 </span> <span class="subxComment"># curr-offset += size-of(v->input-var)</span> -<span id="L21040" class="LineNr">21040 </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="L21041" class="LineNr">21041 </span> (<a href='mu.subx.html#L26595'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L21042" class="LineNr">21042 </span> 01/add-to %edi 0/r32/eax -<span id="L21043" class="LineNr">21043 </span> <span class="subxComment"># ++i</span> -<span id="L21044" class="LineNr">21044 </span> 43/increment-ebx -<span id="L21045" class="LineNr">21045 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21046" class="LineNr">21046 </span> } -<span id="L21047" class="LineNr">21047 </span><span class="Constant">$populate-mu-type-offsets:end</span>: -<span id="L21048" class="LineNr">21048 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21049" class="LineNr">21049 </span> 5f/pop-to-edi -<span id="L21050" class="LineNr">21050 </span> 5e/pop-to-esi -<span id="L21051" class="LineNr">21051 </span> 5b/pop-to-ebx -<span id="L21052" class="LineNr">21052 </span> 5a/pop-to-edx -<span id="L21053" class="LineNr">21053 </span> 59/pop-to-ecx -<span id="L21054" class="LineNr">21054 </span> 58/pop-to-eax -<span id="L21055" class="LineNr">21055 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21056" class="LineNr">21056 </span> 89/<- %esp 5/r32/ebp -<span id="L21057" class="LineNr">21057 </span> 5d/pop-to-ebp -<span id="L21058" class="LineNr">21058 </span> c3/return -<span id="L21059" class="LineNr">21059 </span> -<span id="L21060" class="LineNr">21060 </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="L21061" class="LineNr">21061 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21062" class="LineNr">21062 </span> 55/push-ebp -<span id="L21063" class="LineNr">21063 </span> 89/<- %ebp 4/r32/esp -<span id="L21064" class="LineNr">21064 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21065" class="LineNr">21065 </span> 51/push-ecx -<span id="L21066" class="LineNr">21066 </span> 52/push-edx -<span id="L21067" class="LineNr">21067 </span> 53/push-ebx -<span id="L21068" class="LineNr">21068 </span> 56/push-esi -<span id="L21069" class="LineNr">21069 </span> 57/push-edi -<span id="L21070" class="LineNr">21070 </span> <span class="subxComment"># esi = table</span> -<span id="L21071" class="LineNr">21071 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21072" class="LineNr">21072 </span> <span class="subxComment"># var curr/ecx: (addr row (handle array byte) (handle typeinfo-entry)) = table->data</span> -<span id="L21073" class="LineNr">21073 </span> 8d/copy-address *(esi+0xc) 1/r32/ecx -<span id="L21074" class="LineNr">21074 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> -<span id="L21075" class="LineNr">21075 </span> 8b/-> *esi 2/r32/edx -<span id="L21076" class="LineNr">21076 </span> 8d/copy-address *(ecx+edx) 2/r32/edx -<span id="L21077" class="LineNr">21077 </span> { -<span id="L21078" class="LineNr">21078 </span><span class="Constant">$locate-typeinfo-entry-with-index:loop</span>: -<span id="L21079" class="LineNr">21079 </span> 39/compare %ecx 2/r32/edx -<span id="L21080" class="LineNr">21080 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 -<span id="L21081" class="LineNr">21081 </span> <span class="subxComment"># var v/eax: (addr typeinfo-entry)</span> -<span id="L21082" class="LineNr">21082 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> -<span id="L21083" class="LineNr">21083 </span> <span class="subxComment"># if (v->index == idx) return v</span> -<span id="L21084" class="LineNr">21084 </span> 8b/-> *(eax+8) 3/r32/ebx <span class="subxComment"># Typeinfo-entry-index</span> -<span id="L21085" class="LineNr">21085 </span><span class="CommentedCode">#? (write-buffered Stderr "comparing ")</span> -<span id="L21086" class="LineNr">21086 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> -<span id="L21087" class="LineNr">21087 </span><span class="CommentedCode">#? (write-buffered Stderr " and ")</span> -<span id="L21088" class="LineNr">21088 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+0xc))</span> -<span id="L21089" class="LineNr">21089 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L21090" class="LineNr">21090 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L21091" class="LineNr">21091 </span> 39/compare *(ebp+0xc) 3/r32/ebx -<span id="L21092" class="LineNr">21092 </span> 74/jump-if-= $locate-typeinfo-entry-with-index:end/disp8 -<span id="L21093" class="LineNr">21093 </span> <span class="subxComment"># curr += Typeinfo-entry-size</span> -<span id="L21094" class="LineNr">21094 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-entry-size</span> -<span id="L21095" class="LineNr">21095 </span> <span class="subxComment">#</span> -<span id="L21096" class="LineNr">21096 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L21097" class="LineNr">21097 </span> } -<span id="L21098" class="LineNr">21098 </span> <span class="subxComment"># return 0</span> -<span id="L21099" class="LineNr">21099 </span> b8/copy-to-eax 0/imm32 -<span id="L21100" class="LineNr">21100 </span><span class="Constant">$locate-typeinfo-entry-with-index:end</span>: -<span id="L21101" class="LineNr">21101 </span><span class="CommentedCode">#? (write-buffered Stderr "returning ")</span> -<span id="L21102" class="LineNr">21102 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L21103" class="LineNr">21103 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L21104" class="LineNr">21104 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L21105" class="LineNr">21105 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21106" class="LineNr">21106 </span> 5f/pop-to-edi -<span id="L21107" class="LineNr">21107 </span> 5e/pop-to-esi -<span id="L21108" class="LineNr">21108 </span> 5b/pop-to-ebx -<span id="L21109" class="LineNr">21109 </span> 5a/pop-to-edx -<span id="L21110" class="LineNr">21110 </span> 59/pop-to-ecx -<span id="L21111" class="LineNr">21111 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21112" class="LineNr">21112 </span> 89/<- %esp 5/r32/ebp -<span id="L21113" class="LineNr">21113 </span> 5d/pop-to-ebp -<span id="L21114" class="LineNr">21114 </span> c3/return -<span id="L21115" class="LineNr">21115 </span> -<span id="L21116" class="LineNr">21116 </span><span class="subxFunction">dump-typeinfos</span>: <span class="subxComment"># hdr: (addr array byte)</span> -<span id="L21117" class="LineNr">21117 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21118" class="LineNr">21118 </span> 55/push-ebp -<span id="L21119" class="LineNr">21119 </span> 89/<- %ebp 4/r32/esp -<span id="L21120" class="LineNr">21120 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21121" class="LineNr">21121 </span> 50/push-eax -<span id="L21122" class="LineNr">21122 </span> <span class="subxComment">#</span> -<span id="L21123" class="LineNr">21123 </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="L21124" class="LineNr">21124 </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="L21125" class="LineNr">21125 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> -<span id="L21126" class="LineNr">21126 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> -<span id="L21127" class="LineNr">21127 </span> { -<span id="L21128" class="LineNr">21128 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L21129" class="LineNr">21129 </span> 3d/compare-eax-and 0/imm32 -<span id="L21130" class="LineNr">21130 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21131" class="LineNr">21131 </span> (<a 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="L21132" class="LineNr">21132 </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="L21133" class="LineNr">21133 </span> (<a href='mu.subx.html#L21146'>dump-typeinfo</a> %eax) -<span id="L21134" class="LineNr">21134 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L21135" class="LineNr">21135 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> -<span id="L21136" class="LineNr">21136 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L21137" class="LineNr">21137 </span> } -<span id="L21138" class="LineNr">21138 </span><span class="Constant">$dump-typeinfos:end</span>: -<span id="L21139" class="LineNr">21139 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21140" class="LineNr">21140 </span> 58/pop-to-eax -<span id="L21141" class="LineNr">21141 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21142" class="LineNr">21142 </span> 89/<- %esp 5/r32/ebp -<span id="L21143" class="LineNr">21143 </span> 5d/pop-to-ebp -<span id="L21144" class="LineNr">21144 </span> c3/return -<span id="L21145" class="LineNr">21145 </span> -<span id="L21146" class="LineNr">21146 </span><span class="subxFunction">dump-typeinfo</span>: <span class="subxComment"># in: (addr typeinfo)</span> -<span id="L21147" class="LineNr">21147 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21148" class="LineNr">21148 </span> 55/push-ebp -<span id="L21149" class="LineNr">21149 </span> 89/<- %ebp 4/r32/esp -<span id="L21150" class="LineNr">21150 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21151" class="LineNr">21151 </span> 50/push-eax -<span id="L21152" class="LineNr">21152 </span> 51/push-ecx -<span id="L21153" class="LineNr">21153 </span> 52/push-edx -<span id="L21154" class="LineNr">21154 </span> 53/push-ebx -<span id="L21155" class="LineNr">21155 </span> 56/push-esi -<span id="L21156" class="LineNr">21156 </span> 57/push-edi -<span id="L21157" class="LineNr">21157 </span> <span class="subxComment"># esi = in</span> -<span id="L21158" class="LineNr">21158 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21159" class="LineNr">21159 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> -<span id="L21160" class="LineNr">21160 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L21161" class="LineNr">21161 </span> 89/<- %ecx 0/r32/eax -<span id="L21162" class="LineNr">21162 </span> (<a 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="L21163" class="LineNr">21163 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *esi) -<span id="L21164" class="LineNr">21164 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"\n"</span>) -<span id="L21165" class="LineNr">21165 </span> (<a 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="L21166" class="LineNr">21166 </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="L21167" class="LineNr">21167 </span> (<a 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="L21168" class="LineNr">21168 </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="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">" <a href='108write.subx.html#L24'>write</a>: "</span>) -<span id="L21170" class="LineNr">21170 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *ecx) -<span id="L21171" class="LineNr">21171 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) -<span id="L21172" class="LineNr">21172 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L21173" class="LineNr">21173 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" <a href='111read.subx.html#L48'>read</a>: "</span>) -<span id="L21174" class="LineNr">21174 </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="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="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) -<span id="L21176" class="LineNr">21176 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L21177" class="LineNr">21177 </span> (<a 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="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> *(ecx+8)) -<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> <span class="subxComment"># var table-size/edx: int = table->write</span> -<span id="L21182" class="LineNr">21182 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> -<span id="L21183" class="LineNr">21183 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> -<span id="L21184" class="LineNr">21184 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx -<span id="L21185" class="LineNr">21185 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> -<span id="L21186" class="LineNr">21186 </span> 8d/copy-address *(ecx+edx) 2/r32/edx -<span id="L21187" class="LineNr">21187 </span> { -<span id="L21188" class="LineNr">21188 </span><span class="Constant">$dump-typeinfo:loop</span>: -<span id="L21189" class="LineNr">21189 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L21190" class="LineNr">21190 </span> 39/compare %ecx 2/r32/edx -<span id="L21191" class="LineNr">21191 </span> 0f 83/jump-if-addr>= <span class="Constant">break</span>/disp32 -<span id="L21192" class="LineNr">21192 </span> (<a 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="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">" key: "</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> *ecx) -<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="Constant">","</span>) -<span id="L21196" class="LineNr">21196 </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="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">" = '"</span>) -<span id="L21198" class="LineNr">21198 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) -<span id="L21199" class="LineNr">21199 </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="L21200" class="LineNr">21200 </span> (<a 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="L21201" class="LineNr">21201 </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="L21202" class="LineNr">21202 </span> (<a 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="L21203" class="LineNr">21203 </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="L21204" class="LineNr">21204 </span> (<a 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="L21205" class="LineNr">21205 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+8)) -<span id="L21206" class="LineNr">21206 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) -<span id="L21207" class="LineNr">21207 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+0xc)) -<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">" = typeinfo-entry@"</span>) -<span id="L21209" class="LineNr">21209 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) -<span id="L21210" class="LineNr">21210 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L21211" class="LineNr">21211 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) -<span id="L21212" class="LineNr">21212 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L21213" class="LineNr">21213 </span> (<a 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="L21214" class="LineNr">21214 </span> (<a href='mu.subx.html#L21242'>dump-var</a> 5 %eax) -<span id="L21215" class="LineNr">21215 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) -<span id="L21216" class="LineNr">21216 </span> (<a 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="L21217" class="LineNr">21217 </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="L21218" class="LineNr">21218 </span> (<a 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="L21219" class="LineNr">21219 </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="L21220" class="LineNr">21220 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" output var@"</span>) -<span id="L21221" class="LineNr">21221 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L21222" class="LineNr">21222 </span> (<a href='mu.subx.html#L21242'>dump-var</a> 5 %eax) -<span id="L21223" class="LineNr">21223 </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="L21224" class="LineNr">21224 </span> <span class="subxComment"># curr += row-size</span> -<span id="L21225" class="LineNr">21225 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> -<span id="L21226" class="LineNr">21226 </span> <span class="subxComment">#</span> -<span id="L21227" class="LineNr">21227 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21228" class="LineNr">21228 </span> } -<span id="L21229" class="LineNr">21229 </span><span class="Constant">$dump-typeinfo:end</span>: -<span id="L21230" class="LineNr">21230 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21231" class="LineNr">21231 </span> 5f/pop-to-edi -<span id="L21232" class="LineNr">21232 </span> 5e/pop-to-esi -<span id="L21233" class="LineNr">21233 </span> 5b/pop-to-ebx -<span id="L21234" class="LineNr">21234 </span> 5a/pop-to-edx -<span id="L21235" class="LineNr">21235 </span> 59/pop-to-ecx -<span id="L21236" class="LineNr">21236 </span> 58/pop-to-eax -<span id="L21237" class="LineNr">21237 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21238" class="LineNr">21238 </span> 89/<- %esp 5/r32/ebp -<span id="L21239" class="LineNr">21239 </span> 5d/pop-to-ebp -<span id="L21240" class="LineNr">21240 </span> c3/return -<span id="L21241" class="LineNr">21241 </span> -<span id="L21242" class="LineNr">21242 </span><span class="subxFunction">dump-var</span>: <span class="subxComment"># indent: int, v: (addr handle var)</span> -<span id="L21243" class="LineNr">21243 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21244" class="LineNr">21244 </span> 55/push-ebp -<span id="L21245" class="LineNr">21245 </span> 89/<- %ebp 4/r32/esp -<span id="L21246" class="LineNr">21246 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21247" class="LineNr">21247 </span> 50/push-eax -<span id="L21248" class="LineNr">21248 </span> 53/push-ebx -<span id="L21249" class="LineNr">21249 </span> <span class="subxComment"># eax = v</span> -<span id="L21250" class="LineNr">21250 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21251" class="LineNr">21251 </span> <span class="subxComment">#</span> -<span id="L21252" class="LineNr">21252 </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="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> <span class="Constant">","</span>) -<span id="L21254" class="LineNr">21254 </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="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="Constant">"->"</span>) -<span id="L21256" class="LineNr">21256 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) -<span id="L21257" class="LineNr">21257 </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="L21258" class="LineNr">21258 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) -<span id="L21259" class="LineNr">21259 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L21260" class="LineNr">21260 </span> { -<span id="L21261" class="LineNr">21261 </span> 3d/compare-eax-and 0/imm32 -<span id="L21262" class="LineNr">21262 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21263" class="LineNr">21263 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L21264" class="LineNr">21264 </span> (<a 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="L21265" class="LineNr">21265 </span> 89/<- %ebx 0/r32/eax -<span id="L21266" class="LineNr">21266 </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="L21267" class="LineNr">21267 </span> (<a 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="L21268" class="LineNr">21268 </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="L21269" class="LineNr">21269 </span> (<a 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="L21270" class="LineNr">21270 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name</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> %eax) -<span id="L21272" class="LineNr">21272 </span> { -<span id="L21273" class="LineNr">21273 </span> 3d/compare-eax-and 0/imm32 -<span id="L21274" class="LineNr">21274 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21275" class="LineNr">21275 </span> (<a 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="L21276" class="LineNr">21276 </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="L21277" class="LineNr">21277 </span> } -<span id="L21278" class="LineNr">21278 </span> (<a 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="L21279" class="LineNr">21279 </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="L21280" class="LineNr">21280 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L21281" class="LineNr">21281 </span> (<a 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="L21282" class="LineNr">21282 </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="L21283" class="LineNr">21283 </span> (<a 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="L21284" class="LineNr">21284 </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="L21285" class="LineNr">21285 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L21286" class="LineNr">21286 </span> (<a 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="L21287" class="LineNr">21287 </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="L21288" class="LineNr">21288 </span> (<a 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="L21289" class="LineNr">21289 </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="L21290" class="LineNr">21290 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L21291" class="LineNr">21291 </span> (<a 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="L21292" class="LineNr">21292 </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="L21293" class="LineNr">21293 </span> (<a 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="L21294" class="LineNr">21294 </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="L21295" class="LineNr">21295 </span> (<a 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="L21296" class="LineNr">21296 </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="L21297" class="LineNr">21297 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register</span> -<span id="L21298" class="LineNr">21298 </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="L21299" class="LineNr">21299 </span> { -<span id="L21300" class="LineNr">21300 </span> 3d/compare-eax-and 0/imm32 -<span id="L21301" class="LineNr">21301 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21302" class="LineNr">21302 </span> (<a 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="L21303" class="LineNr">21303 </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="L21304" class="LineNr">21304 </span> } -<span id="L21305" class="LineNr">21305 </span> (<a 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="L21306" class="LineNr">21306 </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="L21307" class="LineNr">21307 </span> } -<span id="L21308" class="LineNr">21308 </span><span class="Constant">$dump-var:end</span>: -<span id="L21309" class="LineNr">21309 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21310" class="LineNr">21310 </span> 5b/pop-to-ebx -<span id="L21311" class="LineNr">21311 </span> 58/pop-to-eax -<span id="L21312" class="LineNr">21312 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21313" class="LineNr">21313 </span> 89/<- %esp 5/r32/ebp -<span id="L21314" class="LineNr">21314 </span> 5d/pop-to-ebp -<span id="L21315" class="LineNr">21315 </span> c3/return -<span id="L21316" class="LineNr">21316 </span> -<span id="L21317" class="LineNr">21317 </span><span class="subxComment">#######################################################</span> -<span id="L21318" class="LineNr">21318 </span><span class="subxComment"># Type-checking</span> -<span id="L21319" class="LineNr">21319 </span><span class="subxComment">#######################################################</span> +<span id="L20107" class="LineNr">20107 </span> 59/pop-to-ecx +<span id="L20108" class="LineNr">20108 </span> 58/pop-to-eax +<span id="L20109" class="LineNr">20109 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20110" class="LineNr">20110 </span> 89/<- %esp 5/r32/ebp +<span id="L20111" class="LineNr">20111 </span> 5d/pop-to-ebp +<span id="L20112" class="LineNr">20112 </span> c3/return +<span id="L20113" class="LineNr">20113 </span> +<span id="L20114" class="LineNr">20114 </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="L20115" class="LineNr">20115 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20116" class="LineNr">20116 </span> 55/push-ebp +<span id="L20117" class="LineNr">20117 </span> 89/<- %ebp 4/r32/esp +<span id="L20118" class="LineNr">20118 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20119" class="LineNr">20119 </span> 50/push-eax +<span id="L20120" class="LineNr">20120 </span> 51/push-ecx +<span id="L20121" class="LineNr">20121 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> +<span id="L20122" class="LineNr">20122 </span> 68/push 0/imm32 +<span id="L20123" class="LineNr">20123 </span> 68/push 0/imm32 +<span id="L20124" class="LineNr">20124 </span> 89/<- %ecx 4/r32/esp +<span id="L20125" class="LineNr">20125 </span> <span class="subxComment"># s = slice-to-string(name)</span> +<span id="L20126" class="LineNr">20126 </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="L20127" class="LineNr">20127 </span> <span class="subxComment"># allocate to out</span> +<span id="L20128" class="LineNr">20128 </span> (<a href='mu.subx.html#L19925'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) +<span id="L20129" class="LineNr">20129 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> +<span id="L20130" class="LineNr">20130 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L20131" class="LineNr">20131 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L20132" class="LineNr">20132 </span> 89/<- %ecx 0/r32/eax +<span id="L20133" class="LineNr">20133 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> +<span id="L20134" class="LineNr">20134 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/r32/eax +<span id="L20135" class="LineNr">20135 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L20136" class="LineNr">20136 </span> <span class="subxComment"># out-addr->type/eax = new type</span> +<span id="L20137" class="LineNr">20137 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L20138" class="LineNr">20138 </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="L20139" class="LineNr">20139 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20140" class="LineNr">20140 </span> <span class="subxComment"># out-addr->type->value = literal-string</span> +<span id="L20141" class="LineNr">20141 </span> c7 0/subop/copy *(eax+4) 0x10/imm32/type-id-string-literal <span class="subxComment"># Type-tree-value</span> +<span id="L20142" class="LineNr">20142 </span> <span class="subxComment"># out-addr->type->is-atom? = true</span> +<span id="L20143" class="LineNr">20143 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L20144" class="LineNr">20144 </span><span class="Constant">$new-literal-string:end</span>: +<span id="L20145" class="LineNr">20145 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20146" class="LineNr">20146 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20147" class="LineNr">20147 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20148" class="LineNr">20148 </span> 59/pop-to-ecx +<span id="L20149" class="LineNr">20149 </span> 58/pop-to-eax +<span id="L20150" class="LineNr">20150 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20151" class="LineNr">20151 </span> 89/<- %esp 5/r32/ebp +<span id="L20152" class="LineNr">20152 </span> 5d/pop-to-ebp +<span id="L20153" class="LineNr">20153 </span> c3/return +<span id="L20154" class="LineNr">20154 </span> +<span id="L20155" class="LineNr">20155 </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="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> 51/push-ecx +<span id="L20161" class="LineNr">20161 </span> <span class="subxComment"># var tmp/ecx: (handle array byte)</span> +<span id="L20162" class="LineNr">20162 </span> 68/push 0/imm32 +<span id="L20163" class="LineNr">20163 </span> 68/push 0/imm32 +<span id="L20164" class="LineNr">20164 </span> 89/<- %ecx 4/r32/esp +<span id="L20165" class="LineNr">20165 </span> <span class="subxComment"># tmp = slice-to-string(name)</span> +<span id="L20166" class="LineNr">20166 </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="L20167" class="LineNr">20167 </span> <span class="subxComment"># out = new-var(tmp)</span> +<span id="L20168" class="LineNr">20168 </span> (<a href='mu.subx.html#L19925'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) +<span id="L20169" class="LineNr">20169 </span><span class="Constant">$new-var-from-slice:end</span>: +<span id="L20170" class="LineNr">20170 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20171" class="LineNr">20171 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20172" class="LineNr">20172 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20173" class="LineNr">20173 </span> 59/pop-to-ecx +<span id="L20174" class="LineNr">20174 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20175" class="LineNr">20175 </span> 89/<- %esp 5/r32/ebp +<span id="L20176" class="LineNr">20176 </span> 5d/pop-to-ebp +<span id="L20177" class="LineNr">20177 </span> c3/return +<span id="L20178" class="LineNr">20178 </span> +<span id="L20179" class="LineNr">20179 </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="L20180" class="LineNr">20180 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20181" class="LineNr">20181 </span> 55/push-ebp +<span id="L20182" class="LineNr">20182 </span> 89/<- %ebp 4/r32/esp +<span id="L20183" class="LineNr">20183 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20184" class="LineNr">20184 </span> 50/push-eax +<span id="L20185" class="LineNr">20185 </span> 51/push-ecx +<span id="L20186" class="LineNr">20186 </span> <span class="subxComment">#</span> +<span id="L20187" class="LineNr">20187 </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="L20188" class="LineNr">20188 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> +<span id="L20189" class="LineNr">20189 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L20190" class="LineNr">20190 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L20191" class="LineNr">20191 </span> <span class="subxComment"># out-addr->tag = stmt</span> +<span id="L20192" class="LineNr">20192 </span> c7 0/subop/copy *eax 2/imm32/tag/var-on-stack <span class="subxComment"># Stmt-tag</span> +<span id="L20193" class="LineNr">20193 </span> <span class="subxComment"># result->var = var</span> +<span id="L20194" class="LineNr">20194 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L20195" class="LineNr">20195 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Vardef-var</span> +<span id="L20196" class="LineNr">20196 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L20197" class="LineNr">20197 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Vardef-var</span> +<span id="L20198" class="LineNr">20198 </span><span class="Constant">$new-var-def:end</span>: +<span id="L20199" class="LineNr">20199 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20200" class="LineNr">20200 </span> 59/pop-to-ecx +<span id="L20201" class="LineNr">20201 </span> 58/pop-to-eax +<span id="L20202" class="LineNr">20202 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20203" class="LineNr">20203 </span> 89/<- %esp 5/r32/ebp +<span id="L20204" class="LineNr">20204 </span> 5d/pop-to-ebp +<span id="L20205" class="LineNr">20205 </span> c3/return +<span id="L20206" class="LineNr">20206 </span> +<span id="L20207" class="LineNr">20207 </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="L20208" class="LineNr">20208 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20209" class="LineNr">20209 </span> 55/push-ebp +<span id="L20210" class="LineNr">20210 </span> 89/<- %ebp 4/r32/esp +<span id="L20211" class="LineNr">20211 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20212" class="LineNr">20212 </span> 50/push-eax +<span id="L20213" class="LineNr">20213 </span> <span class="subxComment"># eax = out</span> +<span id="L20214" class="LineNr">20214 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L20215" class="LineNr">20215 </span> <span class="subxComment">#</span> +<span id="L20216" class="LineNr">20216 </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="L20217" class="LineNr">20217 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> +<span id="L20218" class="LineNr">20218 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L20219" class="LineNr">20219 </span> <span class="subxComment"># set tag</span> +<span id="L20220" class="LineNr">20220 </span> c7 0/subop/copy *eax 3/imm32/tag/var-in-register <span class="subxComment"># Stmt-tag</span> +<span id="L20221" class="LineNr">20221 </span> <span class="subxComment"># set output</span> +<span id="L20222" class="LineNr">20222 </span> 8d/copy-address *(eax+0x14) 0/r32/eax <span class="subxComment"># Regvardef-outputs</span> +<span id="L20223" class="LineNr">20223 </span> (<a href='mu.subx.html#L20290'>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="L20224" class="LineNr">20224 </span><span class="Constant">$new-reg-var-def:end</span>: +<span id="L20225" class="LineNr">20225 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20226" class="LineNr">20226 </span> 58/pop-to-eax +<span id="L20227" class="LineNr">20227 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20228" class="LineNr">20228 </span> 89/<- %esp 5/r32/ebp +<span id="L20229" class="LineNr">20229 </span> 5d/pop-to-ebp +<span id="L20230" class="LineNr">20230 </span> c3/return +<span id="L20231" class="LineNr">20231 </span> +<span id="L20232" class="LineNr">20232 </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="L20233" class="LineNr">20233 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20234" class="LineNr">20234 </span> 55/push-ebp +<span id="L20235" class="LineNr">20235 </span> 89/<- %ebp 4/r32/esp +<span id="L20236" class="LineNr">20236 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20237" class="LineNr">20237 </span> 50/push-eax +<span id="L20238" class="LineNr">20238 </span> 51/push-ecx +<span id="L20239" class="LineNr">20239 </span> 57/push-edi +<span id="L20240" class="LineNr">20240 </span> <span class="subxComment"># edi = out</span> +<span id="L20241" class="LineNr">20241 </span> 8b/-> *(ebp+0x1c) 7/r32/edi +<span id="L20242" class="LineNr">20242 </span> <span class="subxComment"># *out = new list</span> +<span id="L20243" class="LineNr">20243 </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="L20244" class="LineNr">20244 </span> <span class="subxComment"># var out-addr/edi: (addr list _type) = lookup(*out)</span> +<span id="L20245" class="LineNr">20245 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L20246" class="LineNr">20246 </span> 89/<- %edi 0/r32/eax +<span id="L20247" class="LineNr">20247 </span> <span class="subxComment"># out-addr->value = value</span> +<span id="L20248" class="LineNr">20248 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L20249" class="LineNr">20249 </span> 89/<- *edi 0/r32/eax <span class="subxComment"># List-value</span> +<span id="L20250" class="LineNr">20250 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L20251" class="LineNr">20251 </span> 89/<- *(edi+4) 0/r32/eax <span class="subxComment"># List-value</span> +<span id="L20252" class="LineNr">20252 </span> <span class="subxComment"># if (list == null) return</span> +<span id="L20253" class="LineNr">20253 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32 +<span id="L20254" class="LineNr">20254 </span> 74/jump-if-= $append-list:end/disp8 +<span id="L20255" class="LineNr">20255 </span> <span class="subxComment"># otherwise append</span> +<span id="L20256" class="LineNr">20256 </span><span class="Constant">$append-list:non-empty-list</span>: +<span id="L20257" class="LineNr">20257 </span> <span class="subxComment"># var curr/eax: (addr list _type) = lookup(list)</span> +<span id="L20258" class="LineNr">20258 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L20259" class="LineNr">20259 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> +<span id="L20260" class="LineNr">20260 </span> { +<span id="L20261" class="LineNr">20261 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># List-next</span> +<span id="L20262" class="LineNr">20262 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20263" class="LineNr">20263 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L20264" class="LineNr">20264 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># List-next, List-next => eax</span> +<span id="L20265" class="LineNr">20265 </span> <span class="subxComment">#</span> +<span id="L20266" class="LineNr">20266 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20267" class="LineNr">20267 </span> } +<span id="L20268" class="LineNr">20268 </span> <span class="subxComment"># edi = out</span> +<span id="L20269" class="LineNr">20269 </span> 8b/-> *(ebp+0x1c) 7/r32/edi +<span id="L20270" class="LineNr">20270 </span> <span class="subxComment"># curr->next = out</span> +<span id="L20271" class="LineNr">20271 </span> 8b/-> *edi 1/r32/ecx +<span id="L20272" class="LineNr">20272 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># List-next</span> +<span id="L20273" class="LineNr">20273 </span> 8b/-> *(edi+4) 1/r32/ecx +<span id="L20274" class="LineNr">20274 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># List-next</span> +<span id="L20275" class="LineNr">20275 </span> <span class="subxComment"># out = list</span> +<span id="L20276" class="LineNr">20276 </span> 8b/-> *(ebp+0x14) 1/r32/ecx +<span id="L20277" class="LineNr">20277 </span> 89/<- *edi 1/r32/ecx +<span id="L20278" class="LineNr">20278 </span> 8b/-> *(ebp+0x18) 1/r32/ecx +<span id="L20279" class="LineNr">20279 </span> 89/<- *(edi+4) 1/r32/ecx +<span id="L20280" class="LineNr">20280 </span><span class="Constant">$append-list:end</span>: +<span id="L20281" class="LineNr">20281 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20282" class="LineNr">20282 </span> 5f/pop-to-edi +<span id="L20283" class="LineNr">20283 </span> 59/pop-to-ecx +<span id="L20284" class="LineNr">20284 </span> 58/pop-to-eax +<span id="L20285" class="LineNr">20285 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20286" class="LineNr">20286 </span> 89/<- %esp 5/r32/ebp +<span id="L20287" class="LineNr">20287 </span> 5d/pop-to-ebp +<span id="L20288" class="LineNr">20288 </span> c3/return +<span id="L20289" class="LineNr">20289 </span> +<span id="L20290" class="LineNr">20290 </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="L20291" class="LineNr">20291 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20292" class="LineNr">20292 </span> 55/push-ebp +<span id="L20293" class="LineNr">20293 </span> 89/<- %ebp 4/r32/esp +<span id="L20294" class="LineNr">20294 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20295" class="LineNr">20295 </span> 50/push-eax +<span id="L20296" class="LineNr">20296 </span> 51/push-ecx +<span id="L20297" class="LineNr">20297 </span> 57/push-edi +<span id="L20298" class="LineNr">20298 </span> <span class="subxComment"># edi = out</span> +<span id="L20299" class="LineNr">20299 </span> 8b/-> *(ebp+0x20) 7/r32/edi +<span id="L20300" class="LineNr">20300 </span> <span class="subxComment"># out = new stmt-var</span> +<span id="L20301" class="LineNr">20301 </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="L20302" class="LineNr">20302 </span> <span class="subxComment"># var out-addr/ecx: (addr stmt-var) = lookup(*out)</span> +<span id="L20303" class="LineNr">20303 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L20304" class="LineNr">20304 </span> 89/<- %ecx 0/r32/eax +<span id="L20305" class="LineNr">20305 </span> <span class="subxComment"># out-addr->value = v</span> +<span id="L20306" class="LineNr">20306 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L20307" class="LineNr">20307 </span> 89/<- *ecx 0/r32/eax <span class="subxComment"># Stmt-var-value</span> +<span id="L20308" class="LineNr">20308 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L20309" class="LineNr">20309 </span> 89/<- *(ecx+4) 0/r32/eax <span class="subxComment"># Stmt-var-value</span> +<span id="L20310" class="LineNr">20310 </span> <span class="subxComment"># out-addr->is-deref? = is-deref?</span> +<span id="L20311" class="LineNr">20311 </span> 8b/-> *(ebp+0x1c) 0/r32/eax +<span id="L20312" class="LineNr">20312 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L20313" class="LineNr">20313 </span> <span class="subxComment"># if (vars == null) return result</span> +<span id="L20314" class="LineNr">20314 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32/null +<span id="L20315" class="LineNr">20315 </span> 74/jump-if-= $append-stmt-var:end/disp8 +<span id="L20316" class="LineNr">20316 </span> <span class="subxComment"># otherwise append</span> +<span id="L20317" class="LineNr">20317 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(vars)</span> +<span id="L20318" class="LineNr">20318 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L20319" class="LineNr">20319 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> +<span id="L20320" class="LineNr">20320 </span> { +<span id="L20321" class="LineNr">20321 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> +<span id="L20322" class="LineNr">20322 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20323" class="LineNr">20323 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L20324" class="LineNr">20324 </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="L20325" class="LineNr">20325 </span> <span class="subxComment">#</span> +<span id="L20326" class="LineNr">20326 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20327" class="LineNr">20327 </span> } +<span id="L20328" class="LineNr">20328 </span> <span class="subxComment"># curr->next = out</span> +<span id="L20329" class="LineNr">20329 </span> 8b/-> *edi 1/r32/ecx +<span id="L20330" class="LineNr">20330 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> +<span id="L20331" class="LineNr">20331 </span> 8b/-> *(edi+4) 1/r32/ecx +<span id="L20332" class="LineNr">20332 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> +<span id="L20333" class="LineNr">20333 </span> <span class="subxComment"># out = vars</span> +<span id="L20334" class="LineNr">20334 </span> 8b/-> *(ebp+0x14) 1/r32/ecx +<span id="L20335" class="LineNr">20335 </span> 89/<- *edi 1/r32/ecx +<span id="L20336" class="LineNr">20336 </span> 8b/-> *(ebp+0x18) 1/r32/ecx +<span id="L20337" class="LineNr">20337 </span> 89/<- *(edi+4) 1/r32/ecx +<span id="L20338" class="LineNr">20338 </span><span class="Constant">$append-stmt-var:end</span>: +<span id="L20339" class="LineNr">20339 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20340" class="LineNr">20340 </span> 5f/pop-to-edi +<span id="L20341" class="LineNr">20341 </span> 59/pop-to-ecx +<span id="L20342" class="LineNr">20342 </span> 58/pop-to-eax +<span id="L20343" class="LineNr">20343 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20344" class="LineNr">20344 </span> 89/<- %esp 5/r32/ebp +<span id="L20345" class="LineNr">20345 </span> 5d/pop-to-ebp +<span id="L20346" class="LineNr">20346 </span> c3/return +<span id="L20347" class="LineNr">20347 </span> +<span id="L20348" class="LineNr">20348 </span><span class="subxFunction">append-to-block</span>: <span class="subxComment"># ad: (addr allocation-descriptor), block: (addr block), x: (handle stmt)</span> +<span id="L20349" class="LineNr">20349 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20350" class="LineNr">20350 </span> 55/push-ebp +<span id="L20351" class="LineNr">20351 </span> 89/<- %ebp 4/r32/esp +<span id="L20352" class="LineNr">20352 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20353" class="LineNr">20353 </span> 50/push-eax +<span id="L20354" class="LineNr">20354 </span> 56/push-esi +<span id="L20355" class="LineNr">20355 </span> <span class="subxComment"># esi = block</span> +<span id="L20356" class="LineNr">20356 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L20357" class="LineNr">20357 </span> <span class="subxComment"># block->stmts = append(x, block->stmts)</span> +<span id="L20358" class="LineNr">20358 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Block-stmts</span> +<span id="L20359" class="LineNr">20359 </span> (<a href='mu.subx.html#L20232'>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="L20360" class="LineNr">20360 </span><span class="Constant">$append-to-block:end</span>: +<span id="L20361" class="LineNr">20361 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20362" class="LineNr">20362 </span> 5e/pop-to-esi +<span id="L20363" class="LineNr">20363 </span> 58/pop-to-eax +<span id="L20364" class="LineNr">20364 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20365" class="LineNr">20365 </span> 89/<- %esp 5/r32/ebp +<span id="L20366" class="LineNr">20366 </span> 5d/pop-to-ebp +<span id="L20367" class="LineNr">20367 </span> c3/return +<span id="L20368" class="LineNr">20368 </span> +<span id="L20369" class="LineNr">20369 </span><span class="subxComment">## Parsing types</span> +<span id="L20370" class="LineNr">20370 </span><span class="subxComment"># We need to create metadata on user-defined types, and we need to use this</span> +<span id="L20371" class="LineNr">20371 </span><span class="subxComment"># metadata as we parse instructions.</span> +<span id="L20372" class="LineNr">20372 </span><span class="subxComment"># However, we also want to allow types to be used before their definitions.</span> +<span id="L20373" class="LineNr">20373 </span><span class="subxComment"># This means we can't ever assume any type data structures exist.</span> +<span id="L20374" class="LineNr">20374 </span> +<span id="L20375" class="LineNr">20375 </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="L20376" class="LineNr">20376 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20377" class="LineNr">20377 </span> 55/push-ebp +<span id="L20378" class="LineNr">20378 </span> 89/<- %ebp 4/r32/esp +<span id="L20379" class="LineNr">20379 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20380" class="LineNr">20380 </span> 50/push-eax +<span id="L20381" class="LineNr">20381 </span> 56/push-esi +<span id="L20382" class="LineNr">20382 </span> <span class="subxComment"># var container-type/esi: type-id</span> +<span id="L20383" class="LineNr">20383 </span> (<a href='mu.subx.html#L20426'>container-type</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L20384" class="LineNr">20384 </span> 89/<- %esi 0/r32/eax +<span id="L20385" class="LineNr">20385 </span> <span class="subxComment"># var tmp/eax: (handle typeinfo) = find-or-create-typeinfo(container-type)</span> +<span id="L20386" class="LineNr">20386 </span> 68/push 0/imm32 +<span id="L20387" class="LineNr">20387 </span> 68/push 0/imm32 +<span id="L20388" class="LineNr">20388 </span> 89/<- %eax 4/r32/esp +<span id="L20389" class="LineNr">20389 </span> (<a href='mu.subx.html#L20463'>find-or-create-typeinfo</a> %esi %eax) +<span id="L20390" class="LineNr">20390 </span> <span class="subxComment"># var tmp-addr/eax: (addr typeinfo) = lookup(tmp)</span> +<span id="L20391" class="LineNr">20391 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L20392" class="LineNr">20392 </span> <span class="subxComment"># result = find-or-create-typeinfo-output-var(typeinfo, field-name)</span> +<span id="L20393" class="LineNr">20393 </span><span class="CommentedCode">#? (write-buffered Stderr "constant: ")</span> +<span id="L20394" class="LineNr">20394 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> +<span id="L20395" class="LineNr">20395 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20396" class="LineNr">20396 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20397" class="LineNr">20397 </span> (<a href='mu.subx.html#L20579'>find-or-create-typeinfo-output-var</a> %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L20398" class="LineNr">20398 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x10) 0/r32/eax</span> +<span id="L20399" class="LineNr">20399 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> +<span id="L20400" class="LineNr">20400 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> +<span id="L20401" class="LineNr">20401 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L20402" class="LineNr">20402 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> +<span id="L20403" class="LineNr">20403 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L20404" class="LineNr">20404 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20405" class="LineNr">20405 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20406" class="LineNr">20406 </span><span class="CommentedCode">#? (write-buffered Stderr "offset: ")</span> +<span id="L20407" class="LineNr">20407 </span><span class="CommentedCode">#? 8b/-> *(eax+0x14) 0/r32/eax</span> +<span id="L20408" class="LineNr">20408 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L20409" class="LineNr">20409 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20410" class="LineNr">20410 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20411" class="LineNr">20411 </span><span class="Constant">$lookup-or-create-constant:end</span>: +<span id="L20412" class="LineNr">20412 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20413" class="LineNr">20413 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20414" class="LineNr">20414 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20415" class="LineNr">20415 </span> 5e/pop-to-esi +<span id="L20416" class="LineNr">20416 </span> 58/pop-to-eax +<span id="L20417" class="LineNr">20417 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20418" class="LineNr">20418 </span> 89/<- %esp 5/r32/ebp +<span id="L20419" class="LineNr">20419 </span> 5d/pop-to-ebp +<span id="L20420" class="LineNr">20420 </span> c3/return +<span id="L20421" class="LineNr">20421 </span> +<span id="L20422" class="LineNr">20422 </span><span class="subxComment"># if addr var:</span> +<span id="L20423" class="LineNr">20423 </span><span class="subxComment"># container->var->type->right->left->value</span> +<span id="L20424" class="LineNr">20424 </span><span class="subxComment"># otherwise</span> +<span id="L20425" class="LineNr">20425 </span><span class="subxComment"># container->var->type->value</span> +<span id="L20426" class="LineNr">20426 </span><span class="subxFunction">container-type</span>: <span class="subxComment"># container: (addr stmt-var) -> result/eax: type-id</span> +<span id="L20427" class="LineNr">20427 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20428" class="LineNr">20428 </span> 55/push-ebp +<span id="L20429" class="LineNr">20429 </span> 89/<- %ebp 4/r32/esp +<span id="L20430" class="LineNr">20430 </span> <span class="subxComment">#</span> +<span id="L20431" class="LineNr">20431 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20432" class="LineNr">20432 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L20433" class="LineNr">20433 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20434" class="LineNr">20434 </span> { +<span id="L20435" class="LineNr">20435 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L20436" class="LineNr">20436 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20437" class="LineNr">20437 </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="L20438" class="LineNr">20438 </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="L20439" class="LineNr">20439 </span> } +<span id="L20440" class="LineNr">20440 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L20441" class="LineNr">20441 </span><span class="Constant">$container-type:end</span>: +<span id="L20442" class="LineNr">20442 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20443" class="LineNr">20443 </span> 89/<- %esp 5/r32/ebp +<span id="L20444" class="LineNr">20444 </span> 5d/pop-to-ebp +<span id="L20445" class="LineNr">20445 </span> c3/return +<span id="L20446" class="LineNr">20446 </span> +<span id="L20447" class="LineNr">20447 </span><span class="subxFunction">container?</span>: <span class="subxComment"># t: type-id -> result/eax: boolean</span> +<span id="L20448" class="LineNr">20448 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20449" class="LineNr">20449 </span> 55/push-ebp +<span id="L20450" class="LineNr">20450 </span> 89/<- %ebp 4/r32/esp +<span id="L20451" class="LineNr">20451 </span> <span class="subxComment">#</span> +<span id="L20452" class="LineNr">20452 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20453" class="LineNr">20453 </span> c1/shift 4/subop/left %eax 2/imm8 +<span id="L20454" class="LineNr">20454 </span> 3b/compare 0/r32/eax *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> +<span id="L20455" class="LineNr">20455 </span> 0f 9d/set-if->= %al +<span id="L20456" class="LineNr">20456 </span> 25/and-eax-with 0xff/imm32 +<span id="L20457" class="LineNr">20457 </span><span class="Constant">$container?:end</span>: +<span id="L20458" class="LineNr">20458 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20459" class="LineNr">20459 </span> 89/<- %esp 5/r32/ebp +<span id="L20460" class="LineNr">20460 </span> 5d/pop-to-ebp +<span id="L20461" class="LineNr">20461 </span> c3/return +<span id="L20462" class="LineNr">20462 </span> +<span id="L20463" class="LineNr">20463 </span><span class="subxFunction">find-or-create-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> +<span id="L20464" class="LineNr">20464 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20465" class="LineNr">20465 </span> 55/push-ebp +<span id="L20466" class="LineNr">20466 </span> 89/<- %ebp 4/r32/esp +<span id="L20467" class="LineNr">20467 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20468" class="LineNr">20468 </span> 50/push-eax +<span id="L20469" class="LineNr">20469 </span> 51/push-ecx +<span id="L20470" class="LineNr">20470 </span> 52/push-edx +<span id="L20471" class="LineNr">20471 </span> 57/push-edi +<span id="L20472" class="LineNr">20472 </span> <span class="subxComment"># edi = out</span> +<span id="L20473" class="LineNr">20473 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L20474" class="LineNr">20474 </span> <span class="subxComment"># var fields/ecx: (handle table (handle array byte) (handle typeinfo-entry))</span> +<span id="L20475" class="LineNr">20475 </span> 68/push 0/imm32 +<span id="L20476" class="LineNr">20476 </span> 68/push 0/imm32 +<span id="L20477" class="LineNr">20477 </span> 89/<- %ecx 4/r32/esp +<span id="L20478" class="LineNr">20478 </span> <span class="subxComment"># find-typeinfo(t, out)</span> +<span id="L20479" class="LineNr">20479 </span> (<a href='mu.subx.html#L20530'>find-typeinfo</a> *(ebp+8) %edi) +<span id="L20480" class="LineNr">20480 </span> { +<span id="L20481" class="LineNr">20481 </span> <span class="subxComment"># if (*out != 0) break</span> +<span id="L20482" class="LineNr">20482 </span> 81 7/subop/compare *edi 0/imm32 +<span id="L20483" class="LineNr">20483 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L20484" class="LineNr">20484 </span><span class="Constant">$find-or-create-typeinfo:create</span>: +<span id="L20485" class="LineNr">20485 </span> <span class="subxComment"># *out = allocate</span> +<span id="L20486" class="LineNr">20486 </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="L20487" class="LineNr">20487 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> +<span id="L20488" class="LineNr">20488 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L20489" class="LineNr">20489 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo at ")</span> +<span id="L20490" class="LineNr">20490 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L20491" class="LineNr">20491 </span><span class="CommentedCode">#? (write-buffered Stderr " for type-id ")</span> +<span id="L20492" class="LineNr">20492 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> +<span id="L20493" class="LineNr">20493 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20494" class="LineNr">20494 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20495" class="LineNr">20495 </span> <span class="subxComment"># tmp->id = t</span> +<span id="L20496" class="LineNr">20496 </span> 8b/-> *(ebp+8) 2/r32/edx +<span id="L20497" class="LineNr">20497 </span> 89/<- *eax 2/r32/edx <span class="subxComment"># Typeinfo-id</span> +<span id="L20498" class="LineNr">20498 </span> <span class="subxComment"># tmp->fields = new table</span> +<span id="L20499" class="LineNr">20499 </span> <span class="subxS1Comment"># . fields = new table</span> +<span id="L20500" class="LineNr">20500 </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="L20501" class="LineNr">20501 </span> <span class="subxS1Comment"># . tmp->fields = fields</span> +<span id="L20502" class="LineNr">20502 </span> 8b/-> *ecx 2/r32/edx +<span id="L20503" class="LineNr">20503 </span> 89/<- *(eax+4) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> +<span id="L20504" class="LineNr">20504 </span> 8b/-> *(ecx+4) 2/r32/edx +<span id="L20505" class="LineNr">20505 </span> 89/<- *(eax+8) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> +<span id="L20506" class="LineNr">20506 </span> <span class="subxComment"># tmp->next = Program->types</span> +<span id="L20507" class="LineNr">20507 </span> 8b/-> *_Program-types 1/r32/ecx +<span id="L20508" class="LineNr">20508 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> +<span id="L20509" class="LineNr">20509 </span> 8b/-> *_Program-types->payload 1/r32/ecx +<span id="L20510" class="LineNr">20510 </span> 89/<- *(eax+0x14) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> +<span id="L20511" class="LineNr">20511 </span> <span class="subxComment"># Program->types = out</span> +<span id="L20512" class="LineNr">20512 </span> 8b/-> *edi 1/r32/ecx +<span id="L20513" class="LineNr">20513 </span> 89/<- *_Program-types 1/r32/ecx +<span id="L20514" class="LineNr">20514 </span> 8b/-> *(edi+4) 1/r32/ecx +<span id="L20515" class="LineNr">20515 </span> 89/<- *_Program-types->payload 1/r32/ecx +<span id="L20516" class="LineNr">20516 </span> } +<span id="L20517" class="LineNr">20517 </span><span class="Constant">$find-or-create-typeinfo:end</span>: +<span id="L20518" class="LineNr">20518 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20519" class="LineNr">20519 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20520" class="LineNr">20520 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20521" class="LineNr">20521 </span> 5f/pop-to-edi +<span id="L20522" class="LineNr">20522 </span> 5a/pop-to-edx +<span id="L20523" class="LineNr">20523 </span> 59/pop-to-ecx +<span id="L20524" class="LineNr">20524 </span> 58/pop-to-eax +<span id="L20525" class="LineNr">20525 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20526" class="LineNr">20526 </span> 89/<- %esp 5/r32/ebp +<span id="L20527" class="LineNr">20527 </span> 5d/pop-to-ebp +<span id="L20528" class="LineNr">20528 </span> c3/return +<span id="L20529" class="LineNr">20529 </span> +<span id="L20530" class="LineNr">20530 </span><span class="subxFunction">find-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> +<span id="L20531" class="LineNr">20531 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20532" class="LineNr">20532 </span> 55/push-ebp +<span id="L20533" class="LineNr">20533 </span> 89/<- %ebp 4/r32/esp +<span id="L20534" class="LineNr">20534 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20535" class="LineNr">20535 </span> 50/push-eax +<span id="L20536" class="LineNr">20536 </span> 51/push-ecx +<span id="L20537" class="LineNr">20537 </span> 52/push-edx +<span id="L20538" class="LineNr">20538 </span> 57/push-edi +<span id="L20539" class="LineNr">20539 </span> <span class="subxComment"># ecx = t</span> +<span id="L20540" class="LineNr">20540 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L20541" class="LineNr">20541 </span> <span class="subxComment"># edi = out</span> +<span id="L20542" class="LineNr">20542 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L20543" class="LineNr">20543 </span> <span class="subxComment"># *out = Program->types</span> +<span id="L20544" class="LineNr">20544 </span> 8b/-> *_Program-types 0/r32/eax +<span id="L20545" class="LineNr">20545 </span> 89/<- *edi 0/r32/eax +<span id="L20546" class="LineNr">20546 </span> 8b/-> *_Program-types->payload 0/r32/eax +<span id="L20547" class="LineNr">20547 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L20548" class="LineNr">20548 </span> { +<span id="L20549" class="LineNr">20549 </span><span class="Constant">$find-typeinfo:loop</span>: +<span id="L20550" class="LineNr">20550 </span> <span class="subxComment"># if (*out == 0) break</span> +<span id="L20551" class="LineNr">20551 </span> 81 7/subop/compare *edi 0/imm32 +<span id="L20552" class="LineNr">20552 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20553" class="LineNr">20553 </span><span class="Constant">$find-typeinfo:<a href='401test.mu.html#L3'>check</a></span>: +<span id="L20554" class="LineNr">20554 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> +<span id="L20555" class="LineNr">20555 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L20556" class="LineNr">20556 </span> <span class="subxComment"># if (tmp->id == t) break</span> +<span id="L20557" class="LineNr">20557 </span> 39/compare *eax 1/r32/ecx <span class="subxComment"># Typeinfo-id</span> +<span id="L20558" class="LineNr">20558 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20559" class="LineNr">20559 </span><span class="Constant">$find-typeinfo:continue</span>: +<span id="L20560" class="LineNr">20560 </span> <span class="subxComment"># *out = tmp->next</span> +<span id="L20561" class="LineNr">20561 </span> 8b/-> *(eax+0x10) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> +<span id="L20562" class="LineNr">20562 </span> 89/<- *edi 2/r32/edx +<span id="L20563" class="LineNr">20563 </span> 8b/-> *(eax+0x14) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> +<span id="L20564" class="LineNr">20564 </span> 89/<- *(edi+4) 2/r32/edx +<span id="L20565" class="LineNr">20565 </span> <span class="subxComment">#</span> +<span id="L20566" class="LineNr">20566 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20567" class="LineNr">20567 </span> } +<span id="L20568" class="LineNr">20568 </span><span class="Constant">$find-typeinfo:end</span>: +<span id="L20569" class="LineNr">20569 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20570" class="LineNr">20570 </span> 5f/pop-to-edi +<span id="L20571" class="LineNr">20571 </span> 5a/pop-to-edx +<span id="L20572" class="LineNr">20572 </span> 59/pop-to-ecx +<span id="L20573" class="LineNr">20573 </span> 58/pop-to-eax +<span id="L20574" class="LineNr">20574 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20575" class="LineNr">20575 </span> 89/<- %esp 5/r32/ebp +<span id="L20576" class="LineNr">20576 </span> 5d/pop-to-ebp +<span id="L20577" class="LineNr">20577 </span> c3/return +<span id="L20578" class="LineNr">20578 </span> +<span id="L20579" class="LineNr">20579 </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="L20580" class="LineNr">20580 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20581" class="LineNr">20581 </span> 55/push-ebp +<span id="L20582" class="LineNr">20582 </span> 89/<- %ebp 4/r32/esp +<span id="L20583" class="LineNr">20583 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20584" class="LineNr">20584 </span> 50/push-eax +<span id="L20585" class="LineNr">20585 </span> 52/push-edx +<span id="L20586" class="LineNr">20586 </span> 57/push-edi +<span id="L20587" class="LineNr">20587 </span> <span class="subxComment"># var dest/edi: (handle typeinfo-entry)</span> +<span id="L20588" class="LineNr">20588 </span> 68/push 0/imm32 +<span id="L20589" class="LineNr">20589 </span> 68/push 0/imm32 +<span id="L20590" class="LineNr">20590 </span> 89/<- %edi 4/r32/esp +<span id="L20591" class="LineNr">20591 </span> <span class="subxComment"># find-or-create-typeinfo-fields(T, f, dest)</span> +<span id="L20592" class="LineNr">20592 </span> (<a href='mu.subx.html#L20644'>find-or-create-typeinfo-fields</a> *(ebp+8) *(ebp+0xc) %edi) +<span id="L20593" class="LineNr">20593 </span> <span class="subxComment"># var dest-addr/edi: (addr typeinfo-entry) = lookup(dest)</span> +<span id="L20594" class="LineNr">20594 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L20595" class="LineNr">20595 </span> 89/<- %edi 0/r32/eax +<span id="L20596" class="LineNr">20596 </span> <span class="subxComment"># if dest-addr->output-var doesn't exist, create it</span> +<span id="L20597" class="LineNr">20597 </span> { +<span id="L20598" class="LineNr">20598 </span> 81 7/subop/compare *(edi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20599" class="LineNr">20599 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L20600" class="LineNr">20600 </span> <span class="subxComment"># dest-addr->output-var = new var(dummy name, type, -1 offset)</span> +<span id="L20601" class="LineNr">20601 </span> <span class="subxS1Comment"># . var name/eax: (handle array byte) = "field"</span> +<span id="L20602" class="LineNr">20602 </span> 68/push 0/imm32 +<span id="L20603" class="LineNr">20603 </span> 68/push 0/imm32 +<span id="L20604" class="LineNr">20604 </span> 89/<- %eax 4/r32/esp +<span id="L20605" class="LineNr">20605 </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="L20606" class="LineNr">20606 </span> <span class="subxS1Comment"># . new var</span> +<span id="L20607" class="LineNr">20607 </span> 8d/copy-address *(edi+0xc) 2/r32/edx +<span id="L20608" class="LineNr">20608 </span> (<a href='mu.subx.html#L19925'>new-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) +<span id="L20609" class="LineNr">20609 </span> <span class="subxS1Comment"># . reclaim name</span> +<span id="L20610" class="LineNr">20610 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20611" class="LineNr">20611 </span> <span class="subxComment"># var result/edx: (addr var) = lookup(dest-addr->output-var)</span> +<span id="L20612" class="LineNr">20612 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># => eax</span> +<span id="L20613" class="LineNr">20613 </span> 89/<- %edx 0/r32/eax +<span id="L20614" class="LineNr">20614 </span> <span class="subxComment"># result->type = new constant type</span> +<span id="L20615" class="LineNr">20615 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L20616" class="LineNr">20616 </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="L20617" class="LineNr">20617 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># => eax</span> +<span id="L20618" class="LineNr">20618 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L20619" class="LineNr">20619 </span> c7 0/subop/copy *(eax+4) 6/imm32/constant <span class="subxComment"># Type-tree-value</span> +<span id="L20620" class="LineNr">20620 </span> c7 0/subop/copy *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-left</span> +<span id="L20621" class="LineNr">20621 </span> c7 0/subop/copy *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L20622" class="LineNr">20622 </span> c7 0/subop/copy *(eax+0x10) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L20623" class="LineNr">20623 </span> <span class="subxComment"># result->offset isn't filled out yet</span> +<span id="L20624" class="LineNr">20624 </span> c7 0/subop/copy *(edx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> +<span id="L20625" class="LineNr">20625 </span> } +<span id="L20626" class="LineNr">20626 </span> <span class="subxComment"># out = dest-addr->output-var</span> +<span id="L20627" class="LineNr">20627 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L20628" class="LineNr">20628 </span> 8b/-> *(edi+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20629" class="LineNr">20629 </span> 89/<- *edx 0/r32/eax +<span id="L20630" class="LineNr">20630 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20631" class="LineNr">20631 </span> 89/<- *(edx+4) 0/r32/eax +<span id="L20632" class="LineNr">20632 </span><span class="Constant">$find-or-create-typeinfo-output-var:end</span>: +<span id="L20633" class="LineNr">20633 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20634" class="LineNr">20634 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20635" class="LineNr">20635 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20636" class="LineNr">20636 </span> 5f/pop-to-edi +<span id="L20637" class="LineNr">20637 </span> 5a/pop-to-edx +<span id="L20638" class="LineNr">20638 </span> 58/pop-to-eax +<span id="L20639" class="LineNr">20639 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20640" class="LineNr">20640 </span> 89/<- %esp 5/r32/ebp +<span id="L20641" class="LineNr">20641 </span> 5d/pop-to-ebp +<span id="L20642" class="LineNr">20642 </span> c3/return +<span id="L20643" class="LineNr">20643 </span> +<span id="L20644" class="LineNr">20644 </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="L20645" class="LineNr">20645 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20646" class="LineNr">20646 </span> 55/push-ebp +<span id="L20647" class="LineNr">20647 </span> 89/<- %ebp 4/r32/esp +<span id="L20648" class="LineNr">20648 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20649" class="LineNr">20649 </span> 50/push-eax +<span id="L20650" class="LineNr">20650 </span> 56/push-esi +<span id="L20651" class="LineNr">20651 </span> 57/push-edi +<span id="L20652" class="LineNr">20652 </span> <span class="subxComment"># eax = lookup(T->fields)</span> +<span id="L20653" class="LineNr">20653 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20654" class="LineNr">20654 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L20655" class="LineNr">20655 </span> <span class="subxComment"># edi = out</span> +<span id="L20656" class="LineNr">20656 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L20657" class="LineNr">20657 </span> <span class="subxComment"># var src/esi: (addr handle typeinfo-entry) = get-or-insert-slice(T->fields, f)</span> +<span id="L20658" class="LineNr">20658 </span> (<a href='131table.subx.html#L1170'>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="L20659" class="LineNr">20659 </span> 89/<- %esi 0/r32/eax +<span id="L20660" class="LineNr">20660 </span> <span class="subxComment"># if src doesn't exist, allocate it</span> +<span id="L20661" class="LineNr">20661 </span> { +<span id="L20662" class="LineNr">20662 </span> 81 7/subop/compare *esi 0/imm32 +<span id="L20663" class="LineNr">20663 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20664" class="LineNr">20664 </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="L20665" class="LineNr">20665 </span><span class="CommentedCode">#? (write-buffered Stderr "handle at ")</span> +<span id="L20666" class="LineNr">20666 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> +<span id="L20667" class="LineNr">20667 </span><span class="CommentedCode">#? (write-buffered Stderr ": ")</span> +<span id="L20668" class="LineNr">20668 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *esi)</span> +<span id="L20669" class="LineNr">20669 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> +<span id="L20670" class="LineNr">20670 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(esi+4))</span> +<span id="L20671" class="LineNr">20671 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20672" class="LineNr">20672 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20673" class="LineNr">20673 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> +<span id="L20674" class="LineNr">20674 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo fields at ")</span> +<span id="L20675" class="LineNr">20675 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> +<span id="L20676" class="LineNr">20676 </span><span class="CommentedCode">#? (write-buffered Stderr " for ")</span> +<span id="L20677" class="LineNr">20677 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> +<span id="L20678" class="LineNr">20678 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20679" class="LineNr">20679 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20680" class="LineNr">20680 </span> } +<span id="L20681" class="LineNr">20681 </span> <span class="subxComment"># *out = src</span> +<span id="L20682" class="LineNr">20682 </span> <span class="subxS1Comment"># . *edi = *src</span> +<span id="L20683" class="LineNr">20683 </span> 8b/-> *esi 0/r32/eax +<span id="L20684" class="LineNr">20684 </span> 89/<- *edi 0/r32/eax +<span id="L20685" class="LineNr">20685 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L20686" class="LineNr">20686 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L20687" class="LineNr">20687 </span><span class="Constant">$find-or-create-typeinfo-fields:end</span>: +<span id="L20688" class="LineNr">20688 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20689" class="LineNr">20689 </span> 5f/pop-to-edi +<span id="L20690" class="LineNr">20690 </span> 5e/pop-to-esi +<span id="L20691" class="LineNr">20691 </span> 58/pop-to-eax +<span id="L20692" class="LineNr">20692 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20693" class="LineNr">20693 </span> 89/<- %esp 5/r32/ebp +<span id="L20694" class="LineNr">20694 </span> 5d/pop-to-ebp +<span id="L20695" class="LineNr">20695 </span> c3/return +<span id="L20696" class="LineNr">20696 </span> +<span id="L20697" class="LineNr">20697 </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="L20698" class="LineNr">20698 </span> <span class="subxComment"># pseudocode:</span> +<span id="L20699" class="LineNr">20699 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L20700" class="LineNr">20700 </span> <span class="subxComment"># curr-index = 0</span> +<span id="L20701" class="LineNr">20701 </span> <span class="subxComment"># while true</span> +<span id="L20702" class="LineNr">20702 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L20703" class="LineNr">20703 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L20704" class="LineNr">20704 </span> <span class="subxComment"># if line->write == 0</span> +<span id="L20705" class="LineNr">20705 </span> <span class="subxComment"># abort</span> +<span id="L20706" class="LineNr">20706 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L20707" class="LineNr">20707 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L20708" class="LineNr">20708 </span> <span class="subxComment"># continue</span> +<span id="L20709" class="LineNr">20709 </span> <span class="subxComment"># if slice-equal?(word-slice, "}")</span> +<span id="L20710" class="LineNr">20710 </span> <span class="subxComment"># break</span> +<span id="L20711" class="LineNr">20711 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, line)</span> +<span id="L20712" class="LineNr">20712 </span> <span class="subxComment"># var r: (handle typeinfo-fields) = find-or-create-typeinfo-fields(t, word-slice/v->name)</span> +<span id="L20713" class="LineNr">20713 </span> <span class="subxComment"># TODO: ensure that r->first is null</span> +<span id="L20714" class="LineNr">20714 </span> <span class="subxComment"># r->index = curr-index</span> +<span id="L20715" class="LineNr">20715 </span> <span class="subxComment"># curr-index++</span> +<span id="L20716" class="LineNr">20716 </span> <span class="subxComment"># r->input-var = v</span> +<span id="L20717" class="LineNr">20717 </span> <span class="subxComment"># if r->output-var == 0</span> +<span id="L20718" class="LineNr">20718 </span> <span class="subxComment"># r->output-var = new literal</span> +<span id="L20719" class="LineNr">20719 </span> <span class="subxComment"># TODO: ensure nothing else in line</span> +<span id="L20720" class="LineNr">20720 </span> <span class="subxComment"># t->total-size-in-bytes = -2 (not yet initialized)</span> +<span id="L20721" class="LineNr">20721 </span> <span class="subxComment">#</span> +<span id="L20722" class="LineNr">20722 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20723" class="LineNr">20723 </span> 55/push-ebp +<span id="L20724" class="LineNr">20724 </span> 89/<- %ebp 4/r32/esp +<span id="L20725" class="LineNr">20725 </span> <span class="subxComment"># var curr-index: int at *(ebp-4)</span> +<span id="L20726" class="LineNr">20726 </span> 68/push 0/imm32 +<span id="L20727" class="LineNr">20727 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20728" class="LineNr">20728 </span> 50/push-eax +<span id="L20729" class="LineNr">20729 </span> 51/push-ecx +<span id="L20730" class="LineNr">20730 </span> 52/push-edx +<span id="L20731" class="LineNr">20731 </span> 53/push-ebx +<span id="L20732" class="LineNr">20732 </span> 56/push-esi +<span id="L20733" class="LineNr">20733 </span> 57/push-edi +<span id="L20734" class="LineNr">20734 </span> <span class="subxComment"># edi = t</span> +<span id="L20735" class="LineNr">20735 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L20736" class="LineNr">20736 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L20737" class="LineNr">20737 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L20738" class="LineNr">20738 </span> 68/push 0x200/imm32/size +<span id="L20739" class="LineNr">20739 </span> 68/push 0/imm32/read +<span id="L20740" class="LineNr">20740 </span> 68/push 0/imm32/write +<span id="L20741" class="LineNr">20741 </span> 89/<- %ecx 4/r32/esp +<span id="L20742" class="LineNr">20742 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L20743" class="LineNr">20743 </span> 68/push 0/imm32/end +<span id="L20744" class="LineNr">20744 </span> 68/push 0/imm32/start +<span id="L20745" class="LineNr">20745 </span> 89/<- %edx 4/r32/esp +<span id="L20746" class="LineNr">20746 </span> <span class="subxComment"># var v/esi: (handle var)</span> +<span id="L20747" class="LineNr">20747 </span> 68/push 0/imm32 +<span id="L20748" class="LineNr">20748 </span> 68/push 0/imm32 +<span id="L20749" class="LineNr">20749 </span> 89/<- %esi 4/r32/esp +<span id="L20750" class="LineNr">20750 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> +<span id="L20751" class="LineNr">20751 </span> 68/push 0/imm32 +<span id="L20752" class="LineNr">20752 </span> 68/push 0/imm32 +<span id="L20753" class="LineNr">20753 </span> 89/<- %ebx 4/r32/esp +<span id="L20754" class="LineNr">20754 </span> { +<span id="L20755" class="LineNr">20755 </span><span class="Constant">$populate-mu-type:line-loop</span>: +<span id="L20756" class="LineNr">20756 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L20757" class="LineNr">20757 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L20758" class="LineNr">20758 </span> <span class="subxComment"># if (line->write == 0) abort</span> +<span id="L20759" class="LineNr">20759 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L20760" class="LineNr">20760 </span> 0f 84/jump-if-= $populate-mu-type:error1/disp32 +<span id="L20761" class="Folded">20761 </span><span class="Folded">+-- 6 lines: #? # dump line ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L20767" class="LineNr">20767 </span> (<a href='mu.subx.html#L17463'>next-mu-token</a> %ecx %edx) +<span id="L20768" class="LineNr">20768 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> +<span id="L20769" class="LineNr">20769 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L20770" class="LineNr">20770 </span> 3d/compare-eax-and 0/imm32 +<span id="L20771" class="LineNr">20771 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 +<span id="L20772" class="LineNr">20772 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> +<span id="L20773" class="LineNr">20773 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) +<span id="L20774" class="LineNr">20774 </span> 3d/compare-eax-and 0/imm32 +<span id="L20775" class="LineNr">20775 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L20776" class="LineNr">20776 </span><span class="Constant">$populate-mu-type:parse-element</span>: +<span id="L20777" class="LineNr">20777 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L20778" class="LineNr">20778 </span> <span class="subxComment"># must do this first to strip the trailing ':' from word-slice before</span> +<span id="L20779" class="LineNr">20779 </span> <span class="subxComment"># using it in find-or-create-typeinfo-fields below</span> +<span id="L20780" class="LineNr">20780 </span> <span class="subxComment"># TODO: clean up that mutation in parse-var-with-type</span> +<span id="L20781" class="LineNr">20781 </span> (<a href='mu.subx.html#L20925'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20782" class="LineNr">20782 </span> (<a href='mu.subx.html#L17108'>parse-var-with-type</a> %edx %ecx %esi %eax *(ebp+0x10) *(ebp+0x14)) +<span id="L20783" class="LineNr">20783 </span> <span class="subxComment"># if v is an addr, abort</span> +<span id="L20784" class="LineNr">20784 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L20785" class="LineNr">20785 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20786" class="LineNr">20786 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L20787" class="LineNr">20787 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20788" class="LineNr">20788 </span> 0f 85/jump-if-!= $populate-mu-type:error2/disp32 +<span id="L20789" class="LineNr">20789 </span> <span class="subxComment"># if v is an array, abort (we could support it, but initialization gets complex)</span> +<span id="L20790" class="LineNr">20790 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L20791" class="LineNr">20791 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20792" class="LineNr">20792 </span> (<a href='mu.subx.html#L36571'>mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L20793" class="LineNr">20793 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20794" class="LineNr">20794 </span> 0f 85/jump-if-!= $populate-mu-type:error3/disp32 +<span id="L20795" class="LineNr">20795 </span> <span class="subxComment"># if v is a byte, abort</span> +<span id="L20796" class="LineNr">20796 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L20797" class="LineNr">20797 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20798" class="LineNr">20798 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L20799" class="LineNr">20799 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20800" class="LineNr">20800 </span> 0f 85/jump-if-!= $populate-mu-type:error4/disp32 +<span id="L20801" class="LineNr">20801 </span> <span class="subxComment"># if v is a slice, abort</span> +<span id="L20802" class="LineNr">20802 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L20803" class="LineNr">20803 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20804" class="LineNr">20804 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0xc) <span class="subxComment"># slice => eax</span> +<span id="L20805" class="LineNr">20805 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20806" class="LineNr">20806 </span> 0f 85/jump-if-!= $populate-mu-type:error5/disp32 +<span id="L20807" class="LineNr">20807 </span> <span class="subxComment"># if v is a stream, abort (we could support it, but initialization gets even more complex)</span> +<span id="L20808" class="LineNr">20808 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L20809" class="LineNr">20809 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20810" class="LineNr">20810 </span> (<a href='mu.subx.html#L36633'>mu-stream-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L20811" class="LineNr">20811 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20812" class="LineNr">20812 </span> 0f 85/jump-if-!= $populate-mu-type:error6/disp32 +<span id="L20813" class="LineNr">20813 </span> <span class="subxComment"># var tmp/ecx</span> +<span id="L20814" class="LineNr">20814 </span> 51/push-ecx +<span id="L20815" class="LineNr">20815 </span><span class="Constant">$populate-mu-type:create-typeinfo-fields</span>: +<span id="L20816" class="LineNr">20816 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> +<span id="L20817" class="LineNr">20817 </span> (<a href='mu.subx.html#L20644'>find-or-create-typeinfo-fields</a> %edi %edx %ebx) +<span id="L20818" class="LineNr">20818 </span> <span class="subxComment"># r->index = curr-index</span> +<span id="L20819" class="LineNr">20819 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L20820" class="LineNr">20820 </span> 8b/-> *(ebp-4) 1/r32/ecx +<span id="L20821" class="LineNr">20821 </span><span class="CommentedCode">#? (write-buffered Stderr "saving index ")</span> +<span id="L20822" class="LineNr">20822 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> +<span id="L20823" class="LineNr">20823 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> +<span id="L20824" class="LineNr">20824 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edi)</span> +<span id="L20825" class="LineNr">20825 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20826" class="LineNr">20826 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20827" class="LineNr">20827 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-index</span> +<span id="L20828" class="LineNr">20828 </span> <span class="subxComment"># ++curr-index</span> +<span id="L20829" class="LineNr">20829 </span> ff 0/subop/increment *(ebp-4) +<span id="L20830" class="LineNr">20830 </span><span class="Constant">$populate-mu-type:set-input-type</span>: +<span id="L20831" class="LineNr">20831 </span> <span class="subxComment"># r->input-var = v</span> +<span id="L20832" class="LineNr">20832 </span> 8b/-> *esi 1/r32/ecx +<span id="L20833" class="LineNr">20833 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L20834" class="LineNr">20834 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L20835" class="LineNr">20835 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L20836" class="LineNr">20836 </span> <span class="subxComment"># restore line</span> +<span id="L20837" class="LineNr">20837 </span> 59/pop-to-ecx +<span id="L20838" class="LineNr">20838 </span> { +<span id="L20839" class="LineNr">20839 </span><span class="Constant">$populate-mu-type:create-output-type</span>: +<span id="L20840" class="LineNr">20840 </span> <span class="subxComment"># if (r->output-var == 0) create a new var with some placeholder data</span> +<span id="L20841" class="LineNr">20841 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20842" class="LineNr">20842 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20843" class="LineNr">20843 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20844" class="LineNr">20844 </span> (<a href='mu.subx.html#L20075'>new-literal</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edx %eax) +<span id="L20845" class="LineNr">20845 </span> } +<span id="L20846" class="LineNr">20846 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L20847" class="LineNr">20847 </span> } +<span id="L20848" class="LineNr">20848 </span><span class="Constant">$populate-mu-type:invalidate-total-size-in-bytes</span>: +<span id="L20849" class="LineNr">20849 </span> <span class="subxComment"># Offsets and total size may not be accurate here since we may not yet</span> +<span id="L20850" class="LineNr">20850 </span> <span class="subxComment"># have encountered the element types.</span> +<span id="L20851" class="LineNr">20851 </span> <span class="subxComment"># We'll recompute them separately after parsing the entire program.</span> +<span id="L20852" class="LineNr">20852 </span> c7 0/subop/copy *(edi+0xc) -2/imm32/uninitialized <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L20853" class="LineNr">20853 </span><span class="Constant">$populate-mu-type:end</span>: +<span id="L20854" class="LineNr">20854 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20855" class="LineNr">20855 </span> 81 0/subop/add %esp 0x224/imm32 +<span id="L20856" class="LineNr">20856 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20857" class="LineNr">20857 </span> 5f/pop-to-edi +<span id="L20858" class="LineNr">20858 </span> 5e/pop-to-esi +<span id="L20859" class="LineNr">20859 </span> 5b/pop-to-ebx +<span id="L20860" class="LineNr">20860 </span> 5a/pop-to-edx +<span id="L20861" class="LineNr">20861 </span> 59/pop-to-ecx +<span id="L20862" class="LineNr">20862 </span> 58/pop-to-eax +<span id="L20863" class="LineNr">20863 </span> <span class="subxComment"># reclaim curr-index</span> +<span id="L20864" class="LineNr">20864 </span> 81 0/subop/add %esp 4/imm32 +<span id="L20865" class="LineNr">20865 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20866" class="LineNr">20866 </span> 89/<- %esp 5/r32/ebp +<span id="L20867" class="LineNr">20867 </span> 5d/pop-to-ebp +<span id="L20868" class="LineNr">20868 </span> c3/return +<span id="L20869" class="LineNr">20869 </span> +<span id="L20870" class="LineNr">20870 </span><span class="Constant">$populate-mu-type:error1</span>: +<span id="L20871" class="LineNr">20871 </span> <span class="subxComment"># error("incomplete type definition '" t->name "'\n")</span> +<span id="L20872" class="LineNr">20872 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"incomplete type definition '"</span>) +<span id="L20873" class="LineNr">20873 </span> (<a href='mu.subx.html#L20925'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20874" class="LineNr">20874 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20875" class="LineNr">20875 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"\n"</span>) +<span id="L20876" class="LineNr">20876 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20877" class="LineNr">20877 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20878" class="LineNr">20878 </span> <span class="subxComment"># never gets here</span> +<span id="L20879" class="LineNr">20879 </span> +<span id="L20880" class="LineNr">20880 </span><span class="Constant">$populate-mu-type:error2</span>: +<span id="L20881" class="LineNr">20881 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L20882" class="LineNr">20882 </span> (<a href='mu.subx.html#L20925'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20883" class="LineNr">20883 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20884" class="LineNr">20884 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'addr' elements not allowed\n"</span>) +<span id="L20885" class="LineNr">20885 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20886" class="LineNr">20886 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20887" class="LineNr">20887 </span> <span class="subxComment"># never gets here</span> +<span id="L20888" class="LineNr">20888 </span> +<span id="L20889" class="LineNr">20889 </span><span class="Constant">$populate-mu-type:error3</span>: +<span id="L20890" class="LineNr">20890 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L20891" class="LineNr">20891 </span> (<a href='mu.subx.html#L20925'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20892" class="LineNr">20892 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20893" class="LineNr">20893 </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="L20894" class="LineNr">20894 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20895" class="LineNr">20895 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20896" class="LineNr">20896 </span> <span class="subxComment"># never gets here</span> +<span id="L20897" class="LineNr">20897 </span> +<span id="L20898" class="LineNr">20898 </span><span class="Constant">$populate-mu-type:error4</span>: +<span id="L20899" class="LineNr">20899 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L20900" class="LineNr">20900 </span> (<a href='mu.subx.html#L20925'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20901" class="LineNr">20901 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20902" class="LineNr">20902 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'byte' elements not allowed\n"</span>) +<span id="L20903" class="LineNr">20903 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20904" class="LineNr">20904 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20905" class="LineNr">20905 </span> <span class="subxComment"># never gets here</span> +<span id="L20906" class="LineNr">20906 </span> +<span id="L20907" class="LineNr">20907 </span><span class="Constant">$populate-mu-type:error5</span>: +<span id="L20908" class="LineNr">20908 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L20909" class="LineNr">20909 </span> (<a href='mu.subx.html#L20925'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20910" class="LineNr">20910 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20911" class="LineNr">20911 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'slice' elements not allowed\n"</span>) +<span id="L20912" class="LineNr">20912 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20913" class="LineNr">20913 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20914" class="LineNr">20914 </span> <span class="subxComment"># never gets here</span> +<span id="L20915" class="LineNr">20915 </span> +<span id="L20916" class="LineNr">20916 </span><span class="Constant">$populate-mu-type:error6</span>: +<span id="L20917" class="LineNr">20917 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L20918" class="LineNr">20918 </span> (<a href='mu.subx.html#L20925'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20919" class="LineNr">20919 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20920" class="LineNr">20920 </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="L20921" class="LineNr">20921 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20922" class="LineNr">20922 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20923" class="LineNr">20923 </span> <span class="subxComment"># never gets here</span> +<span id="L20924" class="LineNr">20924 </span> +<span id="L20925" class="LineNr">20925 </span><span class="subxFunction">type-name</span>: <span class="subxComment"># index: int -> result/eax: (addr array byte)</span> +<span id="L20926" class="LineNr">20926 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20927" class="LineNr">20927 </span> 55/push-ebp +<span id="L20928" class="LineNr">20928 </span> 89/<- %ebp 4/r32/esp +<span id="L20929" class="LineNr">20929 </span> <span class="subxComment">#</span> +<span id="L20930" class="LineNr">20930 </span> (index <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> *(ebp+8)) +<span id="L20931" class="LineNr">20931 </span><span class="Constant">$type-name:end</span>: +<span id="L20932" class="LineNr">20932 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20933" class="LineNr">20933 </span> 89/<- %esp 5/r32/ebp +<span id="L20934" class="LineNr">20934 </span> 5d/pop-to-ebp +<span id="L20935" class="LineNr">20935 </span> c3/return +<span id="L20936" class="LineNr">20936 </span> +<span id="L20937" class="LineNr">20937 </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="L20938" class="LineNr">20938 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20939" class="LineNr">20939 </span> 55/push-ebp +<span id="L20940" class="LineNr">20940 </span> 89/<- %ebp 4/r32/esp +<span id="L20941" class="LineNr">20941 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20942" class="LineNr">20942 </span> 56/push-esi +<span id="L20943" class="LineNr">20943 </span> <span class="subxComment"># TODO: bounds-check index</span> +<span id="L20944" class="LineNr">20944 </span> <span class="subxComment"># esi = arr</span> +<span id="L20945" class="LineNr">20945 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L20946" class="LineNr">20946 </span> <span class="subxComment"># eax = index</span> +<span id="L20947" class="LineNr">20947 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L20948" class="LineNr">20948 </span> <span class="subxComment"># eax = *(arr + 12 + index)</span> +<span id="L20949" class="LineNr">20949 </span> 8b/-> *(esi+eax<<2+0xc) 0/r32/eax +<span id="L20950" class="LineNr">20950 </span><span class="Constant">$index:end</span>: +<span id="L20951" class="LineNr">20951 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20952" class="LineNr">20952 </span> 5e/pop-to-esi +<span id="L20953" class="LineNr">20953 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20954" class="LineNr">20954 </span> 89/<- %esp 5/r32/ebp +<span id="L20955" class="LineNr">20955 </span> 5d/pop-to-ebp +<span id="L20956" class="LineNr">20956 </span> c3/return +<span id="L20957" class="LineNr">20957 </span> +<span id="L20958" class="LineNr">20958 </span><span class="subxComment">#######################################################</span> +<span id="L20959" class="LineNr">20959 </span><span class="subxComment"># Compute type sizes</span> +<span id="L20960" class="LineNr">20960 </span><span class="subxComment">#######################################################</span> +<span id="L20961" class="LineNr">20961 </span> +<span id="L20962" class="LineNr">20962 </span><span class="subxComment"># Compute the sizes of all user-defined types.</span> +<span id="L20963" class="LineNr">20963 </span><span class="subxComment"># We'll need the sizes of their elements, which may be other user-defined</span> +<span id="L20964" class="LineNr">20964 </span><span class="subxComment"># types, which we will compute as needed.</span> +<span id="L20965" class="LineNr">20965 </span> +<span id="L20966" class="LineNr">20966 </span><span class="subxComment"># Initially, all user-defined types have their sizes set to -2 (invalid)</span> +<span id="L20967" class="LineNr">20967 </span><span class="subxFunction">populate-mu-type-sizes</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L20968" class="LineNr">20968 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20969" class="LineNr">20969 </span> 55/push-ebp +<span id="L20970" class="LineNr">20970 </span> 89/<- %ebp 4/r32/esp +<span id="L20971" class="LineNr">20971 </span><span class="Constant">$populate-mu-type-sizes:total-sizes</span>: +<span id="L20972" class="LineNr">20972 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> +<span id="L20973" class="LineNr">20973 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> +<span id="L20974" class="LineNr">20974 </span> { +<span id="L20975" class="LineNr">20975 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L20976" class="LineNr">20976 </span> 3d/compare-eax-and 0/imm32/null +<span id="L20977" class="LineNr">20977 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20978" class="LineNr">20978 </span> (<a href='mu.subx.html#L21004'>populate-mu-type-sizes-in-type</a> %eax *(ebp+8) *(ebp+0xc)) +<span id="L20979" class="LineNr">20979 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L20980" class="LineNr">20980 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> +<span id="L20981" class="LineNr">20981 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20982" class="LineNr">20982 </span> } +<span id="L20983" class="LineNr">20983 </span><span class="Constant">$populate-mu-type-sizes:offsets</span>: +<span id="L20984" class="LineNr">20984 </span> <span class="subxComment"># curr = *Program->types</span> +<span id="L20985" class="LineNr">20985 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> +<span id="L20986" class="LineNr">20986 </span> { +<span id="L20987" class="LineNr">20987 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L20988" class="LineNr">20988 </span> 3d/compare-eax-and 0/imm32/null +<span id="L20989" class="LineNr">20989 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20990" class="LineNr">20990 </span> (<a href='mu.subx.html#L21168'>populate-mu-type-offsets</a> %eax *(ebp+8) *(ebp+0xc)) +<span id="L20991" class="LineNr">20991 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L20992" class="LineNr">20992 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> +<span id="L20993" class="LineNr">20993 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20994" class="LineNr">20994 </span> } +<span id="L20995" class="LineNr">20995 </span><span class="Constant">$populate-mu-type-sizes:end</span>: +<span id="L20996" class="LineNr">20996 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20997" class="LineNr">20997 </span> 89/<- %esp 5/r32/ebp +<span id="L20998" class="LineNr">20998 </span> 5d/pop-to-ebp +<span id="L20999" class="LineNr">20999 </span> c3/return +<span id="L21000" class="LineNr">21000 </span> +<span id="L21001" class="LineNr">21001 </span><span class="subxComment"># compute sizes of all fields, recursing as necessary</span> +<span id="L21002" class="LineNr">21002 </span><span class="subxComment"># sum up all their sizes to arrive at total size</span> +<span id="L21003" class="LineNr">21003 </span><span class="subxComment"># fields may be out of order, but that doesn't affect the answer</span> +<span id="L21004" class="LineNr">21004 </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="L21005" class="LineNr">21005 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21006" class="LineNr">21006 </span> 55/push-ebp +<span id="L21007" class="LineNr">21007 </span> 89/<- %ebp 4/r32/esp +<span id="L21008" class="LineNr">21008 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21009" class="LineNr">21009 </span> 50/push-eax +<span id="L21010" class="LineNr">21010 </span> 51/push-ecx +<span id="L21011" class="LineNr">21011 </span> 52/push-edx +<span id="L21012" class="LineNr">21012 </span> 56/push-esi +<span id="L21013" class="LineNr">21013 </span> 57/push-edi +<span id="L21014" class="LineNr">21014 </span> <span class="subxComment"># esi = T</span> +<span id="L21015" class="LineNr">21015 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21016" class="LineNr">21016 </span> <span class="subxComment"># if T is already computed, return</span> +<span id="L21017" class="LineNr">21017 </span> 81 7/subop/compare *(esi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L21018" class="LineNr">21018 </span> 0f 8d/jump-if->= $populate-mu-type-sizes-in-type:end/disp32 +<span id="L21019" class="LineNr">21019 </span> <span class="subxComment"># if T is being computed, abort</span> +<span id="L21020" class="LineNr">21020 </span> 81 7/subop/compare *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L21021" class="LineNr">21021 </span> 0f 84/jump-if-= $populate-mu-type-sizes-in-type:abort/disp32 +<span id="L21022" class="LineNr">21022 </span> <span class="subxComment"># tag T (-2 to -1) to avoid infinite recursion</span> +<span id="L21023" class="LineNr">21023 </span> c7 0/subop/copy *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L21024" class="LineNr">21024 </span> <span class="subxComment"># var total-size/edi: int = 0</span> +<span id="L21025" class="LineNr">21025 </span> bf/copy-to-edi 0/imm32 +<span id="L21026" class="LineNr">21026 </span> <span class="subxH1Comment"># - for every field, if it's a user-defined type, compute its size</span> +<span id="L21027" class="LineNr">21027 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> +<span id="L21028" class="LineNr">21028 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L21029" class="LineNr">21029 </span> 89/<- %ecx 0/r32/eax +<span id="L21030" class="LineNr">21030 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> +<span id="L21031" class="LineNr">21031 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> +<span id="L21032" class="LineNr">21032 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> +<span id="L21033" class="LineNr">21033 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx +<span id="L21034" class="LineNr">21034 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> +<span id="L21035" class="LineNr">21035 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L21036" class="LineNr">21036 </span> { +<span id="L21037" class="LineNr">21037 </span><span class="Constant">$populate-mu-type-sizes-in-type:loop</span>: +<span id="L21038" class="LineNr">21038 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L21039" class="LineNr">21039 </span> 39/compare %ecx 2/r32/edx +<span id="L21040" class="LineNr">21040 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 +<span id="L21041" class="LineNr">21041 </span> <span class="subxComment"># var t/eax: (addr typeinfo-entry) = lookup(curr->value)</span> +<span id="L21042" class="LineNr">21042 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> +<span id="L21043" class="LineNr">21043 </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="L21044" class="LineNr">21044 </span> 81 7/subop/compare *eax 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L21045" class="LineNr">21045 </span> 74/jump-if-= $populate-mu-type-sizes-in-type:end/disp8 +<span id="L21046" class="LineNr">21046 </span> <span class="subxComment"># compute size of t->input-var</span> +<span id="L21047" class="LineNr">21047 </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="L21048" class="LineNr">21048 </span> (<a href='mu.subx.html#L21078'>compute-size-of-var</a> %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L21049" class="LineNr">21049 </span> <span class="subxComment"># result += eax</span> +<span id="L21050" class="LineNr">21050 </span> 01/add-to %edi 0/r32/eax +<span id="L21051" class="LineNr">21051 </span> <span class="subxComment"># curr += row-size</span> +<span id="L21052" class="LineNr">21052 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> +<span id="L21053" class="LineNr">21053 </span> <span class="subxComment">#</span> +<span id="L21054" class="LineNr">21054 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L21055" class="LineNr">21055 </span> } +<span id="L21056" class="LineNr">21056 </span> <span class="subxH1Comment"># - save result</span> +<span id="L21057" class="LineNr">21057 </span> 89/<- *(esi+0xc) 7/r32/edi <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L21058" class="LineNr">21058 </span><span class="Constant">$populate-mu-type-sizes-in-type:end</span>: +<span id="L21059" class="LineNr">21059 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21060" class="LineNr">21060 </span> 5f/pop-to-edi +<span id="L21061" class="LineNr">21061 </span> 5e/pop-to-esi +<span id="L21062" class="LineNr">21062 </span> 5a/pop-to-edx +<span id="L21063" class="LineNr">21063 </span> 59/pop-to-ecx +<span id="L21064" class="LineNr">21064 </span> 58/pop-to-eax +<span id="L21065" class="LineNr">21065 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21066" class="LineNr">21066 </span> 89/<- %esp 5/r32/ebp +<span id="L21067" class="LineNr">21067 </span> 5d/pop-to-ebp +<span id="L21068" class="LineNr">21068 </span> c3/return +<span id="L21069" class="LineNr">21069 </span> +<span id="L21070" class="LineNr">21070 </span><span class="Constant">$populate-mu-type-sizes-in-type:abort</span>: +<span id="L21071" class="LineNr">21071 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"cycle in type definitions\n"</span>) +<span id="L21072" class="LineNr">21072 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L21073" class="LineNr">21073 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L21074" class="LineNr">21074 </span> <span class="subxComment"># never gets here</span> +<span id="L21075" class="LineNr">21075 </span> +<span id="L21076" class="LineNr">21076 </span><span class="subxComment"># Analogous to size-of, except we need to compute what size-of can just read</span> +<span id="L21077" class="LineNr">21077 </span><span class="subxComment"># off the right data structures.</span> +<span id="L21078" class="LineNr">21078 </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="L21079" class="LineNr">21079 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21080" class="LineNr">21080 </span> 55/push-ebp +<span id="L21081" class="LineNr">21081 </span> 89/<- %ebp 4/r32/esp +<span id="L21082" class="LineNr">21082 </span> <span class="subxS1Comment"># . push registers</span> +<span id="L21083" class="LineNr">21083 </span> 51/push-ecx +<span id="L21084" class="LineNr">21084 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> +<span id="L21085" class="LineNr">21085 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L21086" class="LineNr">21086 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21087" class="LineNr">21087 </span> 89/<- %ecx 0/r32/eax +<span id="L21088" class="LineNr">21088 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> +<span id="L21089" class="LineNr">21089 </span> { +<span id="L21090" class="LineNr">21090 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L21091" class="LineNr">21091 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21092" class="LineNr">21092 </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="L21093" class="LineNr">21093 </span> 89/<- %ecx 0/r32/eax +<span id="L21094" class="LineNr">21094 </span> } +<span id="L21095" class="LineNr">21095 </span> <span class="subxComment"># TODO: ensure t is an atom</span> +<span id="L21096" class="LineNr">21096 </span> (<a href='mu.subx.html#L21105'>compute-size-of-type-id</a> *(ecx+4) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L21097" class="LineNr">21097 </span><span class="Constant">$compute-size-of-var:end</span>: +<span id="L21098" class="LineNr">21098 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21099" class="LineNr">21099 </span> 59/pop-to-ecx +<span id="L21100" class="LineNr">21100 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21101" class="LineNr">21101 </span> 89/<- %esp 5/r32/ebp +<span id="L21102" class="LineNr">21102 </span> 5d/pop-to-ebp +<span id="L21103" class="LineNr">21103 </span> c3/return +<span id="L21104" class="LineNr">21104 </span> +<span id="L21105" class="LineNr">21105 </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="L21106" class="LineNr">21106 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21107" class="LineNr">21107 </span> 55/push-ebp +<span id="L21108" class="LineNr">21108 </span> 89/<- %ebp 4/r32/esp +<span id="L21109" class="LineNr">21109 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21110" class="LineNr">21110 </span> 51/push-ecx +<span id="L21111" class="LineNr">21111 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> +<span id="L21112" class="LineNr">21112 </span> 68/push 0/imm32 +<span id="L21113" class="LineNr">21113 </span> 68/push 0/imm32 +<span id="L21114" class="LineNr">21114 </span> 89/<- %ecx 4/r32/esp +<span id="L21115" class="LineNr">21115 </span> <span class="subxComment"># eax = t</span> +<span id="L21116" class="LineNr">21116 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21117" class="LineNr">21117 </span> <span class="subxComment"># if t is a literal, return 0</span> +<span id="L21118" class="LineNr">21118 </span> 3d/compare-eax-and 0/imm32/literal +<span id="L21119" class="LineNr">21119 </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="L21120" class="LineNr">21120 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> +<span id="L21121" class="LineNr">21121 </span> 3d/compare-eax-and 8/imm32/byte +<span id="L21122" class="LineNr">21122 </span> { +<span id="L21123" class="LineNr">21123 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21124" class="LineNr">21124 </span> b8/copy-to-eax 4/imm32 +<span id="L21125" class="LineNr">21125 </span> eb/jump $compute-size-of-type-id:end/disp8 +<span id="L21126" class="LineNr">21126 </span> } +<span id="L21127" class="LineNr">21127 </span> <span class="subxComment"># if t is a handle, return 8</span> +<span id="L21128" class="LineNr">21128 </span> 3d/compare-eax-and 4/imm32/handle +<span id="L21129" class="LineNr">21129 </span> { +<span id="L21130" class="LineNr">21130 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21131" class="LineNr">21131 </span> b8/copy-to-eax 8/imm32 +<span id="L21132" class="LineNr">21132 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L21133" class="LineNr">21133 </span> } +<span id="L21134" class="LineNr">21134 </span> <span class="subxComment"># if t is a slice, return 8</span> +<span id="L21135" class="LineNr">21135 </span> 3d/compare-eax-and 0xc/imm32/slice +<span id="L21136" class="LineNr">21136 </span> { +<span id="L21137" class="LineNr">21137 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21138" class="LineNr">21138 </span> b8/copy-to-eax 8/imm32 +<span id="L21139" class="LineNr">21139 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L21140" class="LineNr">21140 </span> } +<span id="L21141" class="LineNr">21141 </span> <span class="subxComment"># if t is a user-defined type, compute its size</span> +<span id="L21142" class="LineNr">21142 </span> <span class="subxComment"># TODO: support non-atom type</span> +<span id="L21143" class="LineNr">21143 </span> (<a href='mu.subx.html#L20530'>find-typeinfo</a> %eax %ecx) +<span id="L21144" class="LineNr">21144 </span> { +<span id="L21145" class="LineNr">21145 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L21146" class="LineNr">21146 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21147" class="LineNr">21147 </span><span class="Constant">$compute-size-of-type-id:user-defined</span>: +<span id="L21148" class="LineNr">21148 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L21149" class="LineNr">21149 </span> (<a href='mu.subx.html#L21004'>populate-mu-type-sizes-in-type</a> %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L21150" class="LineNr">21150 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L21151" class="LineNr">21151 </span> eb/jump $compute-size-of-type-id:end/disp8 +<span id="L21152" class="LineNr">21152 </span> } +<span id="L21153" class="LineNr">21153 </span> <span class="subxComment"># otherwise return the word size</span> +<span id="L21154" class="LineNr">21154 </span> b8/copy-to-eax 4/imm32 +<span id="L21155" class="LineNr">21155 </span><span class="Constant">$compute-size-of-type-id:end</span>: +<span id="L21156" class="LineNr">21156 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L21157" class="LineNr">21157 </span> 81 0/subop/add %esp 8/imm32 +<span id="L21158" class="LineNr">21158 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21159" class="LineNr">21159 </span> 59/pop-to-ecx +<span id="L21160" class="LineNr">21160 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21161" class="LineNr">21161 </span> 89/<- %esp 5/r32/ebp +<span id="L21162" class="LineNr">21162 </span> 5d/pop-to-ebp +<span id="L21163" class="LineNr">21163 </span> c3/return +<span id="L21164" class="LineNr">21164 </span> +<span id="L21165" class="LineNr">21165 </span><span class="subxComment"># at this point we have total sizes for all user-defined types</span> +<span id="L21166" class="LineNr">21166 </span><span class="subxComment"># compute offsets for each element</span> +<span id="L21167" class="LineNr">21167 </span><span class="subxComment"># complication: fields may be out of order</span> +<span id="L21168" class="LineNr">21168 </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="L21169" class="LineNr">21169 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21170" class="LineNr">21170 </span> 55/push-ebp +<span id="L21171" class="LineNr">21171 </span> 89/<- %ebp 4/r32/esp +<span id="L21172" class="LineNr">21172 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21173" class="LineNr">21173 </span> 50/push-eax +<span id="L21174" class="LineNr">21174 </span> 51/push-ecx +<span id="L21175" class="LineNr">21175 </span> 52/push-edx +<span id="L21176" class="LineNr">21176 </span> 53/push-ebx +<span id="L21177" class="LineNr">21177 </span> 56/push-esi +<span id="L21178" class="LineNr">21178 </span> 57/push-edi +<span id="L21179" class="LineNr">21179 </span><span class="CommentedCode">#? (dump-typeinfos "aaa\n")</span> +<span id="L21180" class="LineNr">21180 </span> <span class="subxComment"># var curr-offset/edi: int = 0</span> +<span id="L21181" class="LineNr">21181 </span> bf/copy-to-edi 0/imm32 +<span id="L21182" class="LineNr">21182 </span> <span class="subxComment"># var table/ecx: (addr table string_key (handle typeinfo-entry)) = lookup(in->fields)</span> +<span id="L21183" class="LineNr">21183 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L21184" class="LineNr">21184 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L21185" class="LineNr">21185 </span> 89/<- %ecx 0/r32/eax +<span id="L21186" class="LineNr">21186 </span> <span class="subxComment"># var num-elems/edx: int = table->write / Typeinfo-fields-row-size</span> +<span id="L21187" class="LineNr">21187 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> +<span id="L21188" class="LineNr">21188 </span> c1 5/subop/shift-right-logical %edx 4/imm8 +<span id="L21189" class="LineNr">21189 </span> <span class="subxComment"># var i/ebx: int = 0</span> +<span id="L21190" class="LineNr">21190 </span> bb/copy-to-ebx 0/imm32 +<span id="L21191" class="LineNr">21191 </span> { +<span id="L21192" class="LineNr">21192 </span><span class="Constant">$populate-mu-type-offsets:loop</span>: +<span id="L21193" class="LineNr">21193 </span> 39/compare %ebx 2/r32/edx +<span id="L21194" class="LineNr">21194 </span> 0f 8d/jump-if->= <span class="Constant">break</span>/disp32 +<span id="L21195" class="LineNr">21195 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up index ")</span> +<span id="L21196" class="LineNr">21196 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> +<span id="L21197" class="LineNr">21197 </span><span class="CommentedCode">#? (write-buffered Stderr " in ")</span> +<span id="L21198" class="LineNr">21198 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> +<span id="L21199" class="LineNr">21199 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L21200" class="LineNr">21200 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21201" class="LineNr">21201 </span> <span class="subxComment"># var v/esi: (addr typeinfo-entry)</span> +<span id="L21202" class="LineNr">21202 </span> (<a href='mu.subx.html#L21235'>locate-typeinfo-entry-with-index</a> %ecx %ebx *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L21203" class="LineNr">21203 </span> 89/<- %esi 0/r32/eax +<span id="L21204" class="LineNr">21204 </span> <span class="subxComment"># if v is null, silently move on; we'll emit a nice error message while type-checking</span> +<span id="L21205" class="LineNr">21205 </span> 81 7/subop/compare %esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L21206" class="LineNr">21206 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 +<span id="L21207" class="LineNr">21207 </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="L21208" class="LineNr">21208 </span> 81 7/subop/compare *esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L21209" class="LineNr">21209 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 +<span id="L21210" class="LineNr">21210 </span> <span class="subxComment"># v->output-var->offset = curr-offset</span> +<span id="L21211" class="LineNr">21211 </span> <span class="subxS1Comment"># . eax: (addr var)</span> +<span id="L21212" class="LineNr">21212 </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="L21213" class="LineNr">21213 </span> 89/<- *(eax+0x14) 7/r32/edi <span class="subxComment"># Var-offset</span> +<span id="L21214" class="LineNr">21214 </span> <span class="subxComment"># curr-offset += size-of(v->input-var)</span> +<span id="L21215" class="LineNr">21215 </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="L21216" class="LineNr">21216 </span> (<a href='mu.subx.html#L26770'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L21217" class="LineNr">21217 </span> 01/add-to %edi 0/r32/eax +<span id="L21218" class="LineNr">21218 </span> <span class="subxComment"># ++i</span> +<span id="L21219" class="LineNr">21219 </span> 43/increment-ebx +<span id="L21220" class="LineNr">21220 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21221" class="LineNr">21221 </span> } +<span id="L21222" class="LineNr">21222 </span><span class="Constant">$populate-mu-type-offsets:end</span>: +<span id="L21223" class="LineNr">21223 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21224" class="LineNr">21224 </span> 5f/pop-to-edi +<span id="L21225" class="LineNr">21225 </span> 5e/pop-to-esi +<span id="L21226" class="LineNr">21226 </span> 5b/pop-to-ebx +<span id="L21227" class="LineNr">21227 </span> 5a/pop-to-edx +<span id="L21228" class="LineNr">21228 </span> 59/pop-to-ecx +<span id="L21229" class="LineNr">21229 </span> 58/pop-to-eax +<span id="L21230" class="LineNr">21230 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21231" class="LineNr">21231 </span> 89/<- %esp 5/r32/ebp +<span id="L21232" class="LineNr">21232 </span> 5d/pop-to-ebp +<span id="L21233" class="LineNr">21233 </span> c3/return +<span id="L21234" class="LineNr">21234 </span> +<span id="L21235" class="LineNr">21235 </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="L21236" class="LineNr">21236 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21237" class="LineNr">21237 </span> 55/push-ebp +<span id="L21238" class="LineNr">21238 </span> 89/<- %ebp 4/r32/esp +<span id="L21239" class="LineNr">21239 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21240" class="LineNr">21240 </span> 51/push-ecx +<span id="L21241" class="LineNr">21241 </span> 52/push-edx +<span id="L21242" class="LineNr">21242 </span> 53/push-ebx +<span id="L21243" class="LineNr">21243 </span> 56/push-esi +<span id="L21244" class="LineNr">21244 </span> 57/push-edi +<span id="L21245" class="LineNr">21245 </span> <span class="subxComment"># esi = table</span> +<span id="L21246" class="LineNr">21246 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21247" class="LineNr">21247 </span> <span class="subxComment"># var curr/ecx: (addr row (handle array byte) (handle typeinfo-entry)) = table->data</span> +<span id="L21248" class="LineNr">21248 </span> 8d/copy-address *(esi+0xc) 1/r32/ecx +<span id="L21249" class="LineNr">21249 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> +<span id="L21250" class="LineNr">21250 </span> 8b/-> *esi 2/r32/edx +<span id="L21251" class="LineNr">21251 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L21252" class="LineNr">21252 </span> { +<span id="L21253" class="LineNr">21253 </span><span class="Constant">$locate-typeinfo-entry-with-index:loop</span>: +<span id="L21254" class="LineNr">21254 </span> 39/compare %ecx 2/r32/edx +<span id="L21255" class="LineNr">21255 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 +<span id="L21256" class="LineNr">21256 </span> <span class="subxComment"># var v/eax: (addr typeinfo-entry)</span> +<span id="L21257" class="LineNr">21257 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> +<span id="L21258" class="LineNr">21258 </span> <span class="subxComment"># if (v->index == idx) return v</span> +<span id="L21259" class="LineNr">21259 </span> 8b/-> *(eax+8) 3/r32/ebx <span class="subxComment"># Typeinfo-entry-index</span> +<span id="L21260" class="LineNr">21260 </span><span class="CommentedCode">#? (write-buffered Stderr "comparing ")</span> +<span id="L21261" class="LineNr">21261 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> +<span id="L21262" class="LineNr">21262 </span><span class="CommentedCode">#? (write-buffered Stderr " and ")</span> +<span id="L21263" class="LineNr">21263 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+0xc))</span> +<span id="L21264" class="LineNr">21264 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L21265" class="LineNr">21265 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21266" class="LineNr">21266 </span> 39/compare *(ebp+0xc) 3/r32/ebx +<span id="L21267" class="LineNr">21267 </span> 74/jump-if-= $locate-typeinfo-entry-with-index:end/disp8 +<span id="L21268" class="LineNr">21268 </span> <span class="subxComment"># curr += Typeinfo-entry-size</span> +<span id="L21269" class="LineNr">21269 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-entry-size</span> +<span id="L21270" class="LineNr">21270 </span> <span class="subxComment">#</span> +<span id="L21271" class="LineNr">21271 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L21272" class="LineNr">21272 </span> } +<span id="L21273" class="LineNr">21273 </span> <span class="subxComment"># return 0</span> +<span id="L21274" class="LineNr">21274 </span> b8/copy-to-eax 0/imm32 +<span id="L21275" class="LineNr">21275 </span><span class="Constant">$locate-typeinfo-entry-with-index:end</span>: +<span id="L21276" class="LineNr">21276 </span><span class="CommentedCode">#? (write-buffered Stderr "returning ")</span> +<span id="L21277" class="LineNr">21277 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L21278" class="LineNr">21278 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L21279" class="LineNr">21279 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21280" class="LineNr">21280 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21281" class="LineNr">21281 </span> 5f/pop-to-edi +<span id="L21282" class="LineNr">21282 </span> 5e/pop-to-esi +<span id="L21283" class="LineNr">21283 </span> 5b/pop-to-ebx +<span id="L21284" class="LineNr">21284 </span> 5a/pop-to-edx +<span id="L21285" class="LineNr">21285 </span> 59/pop-to-ecx +<span id="L21286" class="LineNr">21286 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21287" class="LineNr">21287 </span> 89/<- %esp 5/r32/ebp +<span id="L21288" class="LineNr">21288 </span> 5d/pop-to-ebp +<span id="L21289" class="LineNr">21289 </span> c3/return +<span id="L21290" class="LineNr">21290 </span> +<span id="L21291" class="LineNr">21291 </span><span class="subxFunction">dump-typeinfos</span>: <span class="subxComment"># hdr: (addr array byte)</span> +<span id="L21292" class="LineNr">21292 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21293" class="LineNr">21293 </span> 55/push-ebp +<span id="L21294" class="LineNr">21294 </span> 89/<- %ebp 4/r32/esp +<span id="L21295" class="LineNr">21295 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21296" class="LineNr">21296 </span> 50/push-eax +<span id="L21297" class="LineNr">21297 </span> <span class="subxComment">#</span> +<span id="L21298" class="LineNr">21298 </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="L21299" class="LineNr">21299 </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="L21300" class="LineNr">21300 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> +<span id="L21301" class="LineNr">21301 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> +<span id="L21302" class="LineNr">21302 </span> { +<span id="L21303" class="LineNr">21303 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L21304" class="LineNr">21304 </span> 3d/compare-eax-and 0/imm32 +<span id="L21305" class="LineNr">21305 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21306" class="LineNr">21306 </span> (<a 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="L21307" class="LineNr">21307 </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="L21308" class="LineNr">21308 </span> (<a href='mu.subx.html#L21321'>dump-typeinfo</a> %eax) +<span id="L21309" class="LineNr">21309 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L21310" class="LineNr">21310 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> +<span id="L21311" class="LineNr">21311 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L21312" class="LineNr">21312 </span> } +<span id="L21313" class="LineNr">21313 </span><span class="Constant">$dump-typeinfos:end</span>: +<span id="L21314" class="LineNr">21314 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21315" class="LineNr">21315 </span> 58/pop-to-eax +<span id="L21316" class="LineNr">21316 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21317" class="LineNr">21317 </span> 89/<- %esp 5/r32/ebp +<span id="L21318" class="LineNr">21318 </span> 5d/pop-to-ebp +<span id="L21319" class="LineNr">21319 </span> c3/return <span id="L21320" class="LineNr">21320 </span> -<span id="L21321" class="LineNr">21321 </span><span class="subxFunction">check-mu-types</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L21321" class="LineNr">21321 </span><span class="subxFunction">dump-typeinfo</span>: <span class="subxComment"># in: (addr typeinfo)</span> <span id="L21322" class="LineNr">21322 </span> <span class="subxS1Comment"># . prologue</span> <span id="L21323" class="LineNr">21323 </span> 55/push-ebp <span id="L21324" class="LineNr">21324 </span> 89/<- %ebp 4/r32/esp <span id="L21325" class="LineNr">21325 </span> <span class="subxS1Comment"># . save registers</span> <span id="L21326" class="LineNr">21326 </span> 50/push-eax -<span id="L21327" class="LineNr">21327 </span> <span class="subxComment"># var curr/eax: (addr function) = lookup(Program->functions)</span> -<span id="L21328" class="LineNr">21328 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L21329" class="LineNr">21329 </span> { -<span id="L21330" class="LineNr">21330 </span><span class="Constant">$check-mu-types:loop</span>: -<span id="L21331" class="LineNr">21331 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L21332" class="LineNr">21332 </span> 3d/compare-eax-and 0/imm32 -<span id="L21333" class="LineNr">21333 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21334" class="Folded">21334 </span><span class="Folded">+-- 8 lines: #? # dump curr->name -----------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L21342" class="LineNr">21342 </span> (<a href='mu.subx.html#L21355'>check-mu-function</a> %eax *(ebp+8) *(ebp+0xc)) -<span id="L21343" class="LineNr">21343 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L21344" class="LineNr">21344 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L21345" class="LineNr">21345 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21346" class="LineNr">21346 </span> } -<span id="L21347" class="LineNr">21347 </span><span class="Constant">$check-mu-types:end</span>: -<span id="L21348" class="LineNr">21348 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21349" class="LineNr">21349 </span> 58/pop-to-eax -<span id="L21350" class="LineNr">21350 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21351" class="LineNr">21351 </span> 89/<- %esp 5/r32/ebp -<span id="L21352" class="LineNr">21352 </span> 5d/pop-to-ebp -<span id="L21353" class="LineNr">21353 </span> c3/return -<span id="L21354" class="LineNr">21354 </span> -<span id="L21355" class="LineNr">21355 </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="L21356" class="LineNr">21356 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21357" class="LineNr">21357 </span> 55/push-ebp -<span id="L21358" class="LineNr">21358 </span> 89/<- %ebp 4/r32/esp -<span id="L21359" class="LineNr">21359 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21360" class="LineNr">21360 </span> 50/push-eax -<span id="L21361" class="LineNr">21361 </span> 56/push-esi -<span id="L21362" class="LineNr">21362 </span> <span class="subxComment"># esi = f</span> -<span id="L21363" class="LineNr">21363 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21364" class="LineNr">21364 </span> <span class="subxComment"># outputs</span> -<span id="L21365" class="LineNr">21365 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x10) *(esi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L21366" class="LineNr">21366 </span> (<a href='mu.subx.html#L23398'>check-all-unique-registers</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) -<span id="L21367" class="LineNr">21367 </span> <span class="subxComment"># body</span> -<span id="L21368" class="LineNr">21368 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> -<span id="L21369" class="LineNr">21369 </span> (<a href='mu.subx.html#L21385'>check-mu-block</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10)) -<span id="L21370" class="LineNr">21370 </span> <span class="subxComment"># if function has no outputs, we're done</span> -<span id="L21371" class="LineNr">21371 </span> 81 7/subop/compare *(esi+0x10) 0/imm32 -<span id="L21372" class="LineNr">21372 </span> 74/jump-if-= $check-mu-function:end/disp8 -<span id="L21373" class="LineNr">21373 </span> <span class="subxComment"># some final checks on body</span> -<span id="L21374" class="LineNr">21374 </span> (<a href='mu.subx.html#L23611'>check-final-stmt-is-return</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) -<span id="L21375" class="LineNr">21375 </span> (<a href='mu.subx.html#L23663'>check-no-breaks</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) -<span id="L21376" class="LineNr">21376 </span><span class="Constant">$check-mu-function:end</span>: -<span id="L21377" class="LineNr">21377 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21378" class="LineNr">21378 </span> 5e/pop-to-esi -<span id="L21379" class="LineNr">21379 </span> 58/pop-to-eax -<span id="L21380" class="LineNr">21380 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21381" class="LineNr">21381 </span> 89/<- %esp 5/r32/ebp -<span id="L21382" class="LineNr">21382 </span> 5d/pop-to-ebp -<span id="L21383" class="LineNr">21383 </span> c3/return -<span id="L21384" class="LineNr">21384 </span> -<span id="L21385" class="LineNr">21385 </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="L21386" class="LineNr">21386 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21387" class="LineNr">21387 </span> 55/push-ebp -<span id="L21388" class="LineNr">21388 </span> 89/<- %ebp 4/r32/esp -<span id="L21389" class="LineNr">21389 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21390" class="LineNr">21390 </span> 50/push-eax -<span id="L21391" class="LineNr">21391 </span> <span class="subxComment"># eax = block</span> -<span id="L21392" class="LineNr">21392 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21393" class="LineNr">21393 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> -<span id="L21394" class="LineNr">21394 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L21395" class="LineNr">21395 </span> <span class="subxComment">#</span> -<span id="L21396" class="LineNr">21396 </span> { -<span id="L21397" class="LineNr">21397 </span><span class="Constant">$check-mu-block:check-empty</span>: -<span id="L21398" class="LineNr">21398 </span> 3d/compare-eax-and 0/imm32 -<span id="L21399" class="LineNr">21399 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21400" class="LineNr">21400 </span> <span class="subxComment"># emit block->statements</span> -<span id="L21401" class="LineNr">21401 </span> (<a href='mu.subx.html#L21411'>check-mu-stmt-list</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21402" class="LineNr">21402 </span> } -<span id="L21403" class="LineNr">21403 </span><span class="Constant">$check-mu-block:end</span>: -<span id="L21404" class="LineNr">21404 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21405" class="LineNr">21405 </span> 58/pop-to-eax -<span id="L21406" class="LineNr">21406 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21407" class="LineNr">21407 </span> 89/<- %esp 5/r32/ebp -<span id="L21408" class="LineNr">21408 </span> 5d/pop-to-ebp -<span id="L21409" class="LineNr">21409 </span> c3/return -<span id="L21410" class="LineNr">21410 </span> -<span id="L21411" class="LineNr">21411 </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="L21412" class="LineNr">21412 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21413" class="LineNr">21413 </span> 55/push-ebp -<span id="L21414" class="LineNr">21414 </span> 89/<- %ebp 4/r32/esp -<span id="L21415" class="LineNr">21415 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21416" class="LineNr">21416 </span> 50/push-eax -<span id="L21417" class="LineNr">21417 </span> 56/push-esi -<span id="L21418" class="LineNr">21418 </span> <span class="subxComment"># esi = stmts</span> -<span id="L21419" class="LineNr">21419 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21420" class="LineNr">21420 </span> { -<span id="L21421" class="LineNr">21421 </span><span class="Constant">$check-mu-stmt-list:loop</span>: -<span id="L21422" class="LineNr">21422 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L21423" class="LineNr">21423 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21424" class="LineNr">21424 </span> <span class="subxComment"># var curr-stmt/eax: (addr stmt) = lookup(stmts->value)</span> -<span id="L21425" class="LineNr">21425 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L21426" class="LineNr">21426 </span> { -<span id="L21427" class="LineNr">21427 </span><span class="Constant">$check-mu-stmt-list:check-for-block</span>: -<span id="L21428" class="LineNr">21428 </span> 81 7/subop/compare *eax 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L21429" class="LineNr">21429 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21430" class="LineNr">21430 </span><span class="Constant">$check-mu-stmt-list:block</span>: -<span id="L21431" class="LineNr">21431 </span> (<a href='mu.subx.html#L21385'>check-mu-block</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21432" class="LineNr">21432 </span> eb/jump $check-mu-stmt-list:continue/disp8 -<span id="L21433" class="LineNr">21433 </span> } -<span id="L21434" class="LineNr">21434 </span> { -<span id="L21435" class="LineNr">21435 </span><span class="Constant">$check-mu-stmt-list:check-for-stmt1</span>: -<span id="L21436" class="LineNr">21436 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L21437" class="LineNr">21437 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L21438" class="LineNr">21438 </span><span class="Constant">$check-mu-stmt-list:stmt1</span>: -<span id="L21439" class="LineNr">21439 </span> (<a href='mu.subx.html#L21465'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21440" class="LineNr">21440 </span> eb/jump $check-mu-stmt-list:continue/disp8 -<span id="L21441" class="LineNr">21441 </span> } -<span id="L21442" class="LineNr">21442 </span> { -<span id="L21443" class="LineNr">21443 </span><span class="Constant">$check-mu-stmt-list:check-for-reg-var-def</span>: -<span id="L21444" class="LineNr">21444 </span> 81 7/subop/compare *eax 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> -<span id="L21445" class="LineNr">21445 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L21446" class="LineNr">21446 </span><span class="Constant">$check-mu-stmt-list:reg-var-def</span>: -<span id="L21447" class="LineNr">21447 </span> (<a href='mu.subx.html#L21465'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21448" class="LineNr">21448 </span> eb/jump $check-mu-stmt-list:continue/disp8 -<span id="L21449" class="LineNr">21449 </span> } -<span id="L21450" class="LineNr">21450 </span><span class="Constant">$check-mu-stmt-list:continue</span>: -<span id="L21451" class="LineNr">21451 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> -<span id="L21452" class="LineNr">21452 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L21453" class="LineNr">21453 </span> 89/<- %esi 0/r32/eax -<span id="L21454" class="LineNr">21454 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21455" class="LineNr">21455 </span> } -<span id="L21456" class="LineNr">21456 </span><span class="Constant">$check-mu-stmt-list:end</span>: -<span id="L21457" class="LineNr">21457 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21458" class="LineNr">21458 </span> 5e/pop-to-esi -<span id="L21459" class="LineNr">21459 </span> 58/pop-to-eax -<span id="L21460" class="LineNr">21460 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21461" class="LineNr">21461 </span> 89/<- %esp 5/r32/ebp -<span id="L21462" class="LineNr">21462 </span> 5d/pop-to-ebp -<span id="L21463" class="LineNr">21463 </span> c3/return -<span id="L21464" class="LineNr">21464 </span> -<span id="L21465" class="LineNr">21465 </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="L21466" class="LineNr">21466 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21467" class="LineNr">21467 </span> 55/push-ebp -<span id="L21468" class="LineNr">21468 </span> 89/<- %ebp 4/r32/esp -<span id="L21469" class="LineNr">21469 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21470" class="LineNr">21470 </span> 50/push-eax -<span id="L21471" class="LineNr">21471 </span> <span class="subxH1Comment"># - if stmt's operation matches a primitive, check against it</span> -<span id="L21472" class="LineNr">21472 </span> (<a href='mu.subx.html#L21518'>has-primitive-name?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L21473" class="LineNr">21473 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21474" class="LineNr">21474 </span> { -<span id="L21475" class="LineNr">21475 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21476" class="LineNr">21476 </span> (<a href='mu.subx.html#L21610'>check-mu-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21477" class="LineNr">21477 </span> e9/jump $check-mu-stmt:end/disp32 -<span id="L21478" class="LineNr">21478 </span> } -<span id="L21479" class="LineNr">21479 </span> <span class="subxH1Comment"># - otherwise find a function to check against</span> -<span id="L21480" class="LineNr">21480 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->functions)</span> -<span id="L21481" class="LineNr">21481 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L21482" class="LineNr">21482 </span> (<a href='mu.subx.html#L36163'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L21483" class="LineNr">21483 </span> 3d/compare-eax-and 0/imm32 -<span id="L21484" class="LineNr">21484 </span> { -<span id="L21485" class="LineNr">21485 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21486" class="LineNr">21486 </span> (<a href='mu.subx.html#L26141'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21487" class="LineNr">21487 </span> eb/jump $check-mu-stmt:end/disp8 -<span id="L21488" class="LineNr">21488 </span> } -<span id="L21489" class="LineNr">21489 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->signatures)</span> -<span id="L21490" class="LineNr">21490 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> -<span id="L21491" class="LineNr">21491 </span> (<a href='mu.subx.html#L36163'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L21492" class="LineNr">21492 </span> 3d/compare-eax-and 0/imm32 -<span id="L21493" class="LineNr">21493 </span> { -<span id="L21494" class="LineNr">21494 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21495" class="LineNr">21495 </span> (<a href='mu.subx.html#L26141'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21496" class="LineNr">21496 </span> eb/jump $check-mu-stmt:end/disp8 -<span id="L21497" class="LineNr">21497 </span> } -<span id="L21498" class="LineNr">21498 </span> <span class="subxH1Comment"># - otherwise abort</span> -<span id="L21499" class="LineNr">21499 </span> e9/jump $check-mu-stmt:unknown-call/disp32 -<span id="L21500" class="LineNr">21500 </span><span class="Constant">$check-mu-stmt:end</span>: -<span id="L21501" class="LineNr">21501 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21502" class="LineNr">21502 </span> 58/pop-to-eax -<span id="L21503" class="LineNr">21503 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21504" class="LineNr">21504 </span> 89/<- %esp 5/r32/ebp -<span id="L21505" class="LineNr">21505 </span> 5d/pop-to-ebp -<span id="L21506" class="LineNr">21506 </span> c3/return -<span id="L21507" class="LineNr">21507 </span> -<span id="L21508" class="LineNr">21508 </span><span class="Constant">$check-mu-stmt:unknown-call</span>: -<span id="L21509" class="LineNr">21509 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"unknown function '"</span>) -<span id="L21510" class="LineNr">21510 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21511" class="LineNr">21511 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21512" class="LineNr">21512 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21513" class="LineNr">21513 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L21514" class="LineNr">21514 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21515" class="LineNr">21515 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21516" class="LineNr">21516 </span> <span class="subxComment"># never gets here</span> -<span id="L21517" class="LineNr">21517 </span> -<span id="L21518" class="LineNr">21518 </span><span class="subxFunction">has-primitive-name?</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: boolean</span> -<span id="L21519" class="LineNr">21519 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21520" class="LineNr">21520 </span> 55/push-ebp -<span id="L21521" class="LineNr">21521 </span> 89/<- %ebp 4/r32/esp -<span id="L21522" class="LineNr">21522 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21523" class="LineNr">21523 </span> 51/push-ecx -<span id="L21524" class="LineNr">21524 </span> 56/push-esi -<span id="L21525" class="LineNr">21525 </span> <span class="subxComment"># var name/esi: (addr array byte) = lookup(stmt->operation)</span> -<span id="L21526" class="LineNr">21526 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21527" class="LineNr">21527 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21528" class="LineNr">21528 </span> 89/<- %esi 0/r32/eax -<span id="L21529" class="LineNr">21529 </span> <span class="subxComment"># if (name == "return") return true</span> -<span id="L21530" class="LineNr">21530 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> -<span id="L21531" class="LineNr">21531 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21532" class="LineNr">21532 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21533" class="LineNr">21533 </span> <span class="subxComment"># if (name == "get") return true</span> -<span id="L21534" class="LineNr">21534 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L21535" class="LineNr">21535 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21536" class="LineNr">21536 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21537" class="LineNr">21537 </span> <span class="subxComment"># if (name == "index") return true</span> -<span id="L21538" class="LineNr">21538 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> -<span id="L21539" class="LineNr">21539 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21540" class="LineNr">21540 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21541" class="LineNr">21541 </span> <span class="subxComment"># if (name == "length") return true</span> -<span id="L21542" class="LineNr">21542 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> -<span id="L21543" class="LineNr">21543 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21544" class="LineNr">21544 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21545" class="LineNr">21545 </span> <span class="subxComment"># if (name == "compute-offset") return true</span> -<span id="L21546" class="LineNr">21546 </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="L21547" class="LineNr">21547 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21548" class="LineNr">21548 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21549" class="LineNr">21549 </span> <span class="subxComment"># if (name == "copy-object") return true</span> -<span id="L21550" class="LineNr">21550 </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="L21551" class="LineNr">21551 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21552" class="LineNr">21552 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21553" class="LineNr">21553 </span> <span class="subxComment"># if (name == "clear-object") return true</span> -<span id="L21554" class="LineNr">21554 </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="L21555" class="LineNr">21555 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21556" class="LineNr">21556 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21557" class="LineNr">21557 </span> <span class="subxComment"># if (name == "allocate") return true</span> -<span id="L21558" class="LineNr">21558 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> -<span id="L21559" class="LineNr">21559 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21560" class="LineNr">21560 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21561" class="LineNr">21561 </span> <span class="subxComment"># if (name == "populate") return true</span> -<span id="L21562" class="LineNr">21562 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> -<span id="L21563" class="LineNr">21563 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21564" class="LineNr">21564 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21565" class="LineNr">21565 </span> <span class="subxComment"># if (name == "populate-stream") return true</span> -<span id="L21566" class="LineNr">21566 </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="L21567" class="LineNr">21567 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21568" class="LineNr">21568 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21569" class="LineNr">21569 </span> <span class="subxComment"># if (name == "read-from-stream") return true</span> -<span id="L21570" class="LineNr">21570 </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="L21571" class="LineNr">21571 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21572" class="LineNr">21572 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21573" class="LineNr">21573 </span> <span class="subxComment"># if (name == "write-to-stream") return true</span> -<span id="L21574" class="LineNr">21574 </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="L21575" class="LineNr">21575 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21576" class="LineNr">21576 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21577" class="LineNr">21577 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = Primitives</span> -<span id="L21578" class="LineNr">21578 </span> b9/copy-to-ecx <span class="SpecialChar"><a href='mu.subx.html#L30469'>Primitives</a></span>/imm32 -<span id="L21579" class="LineNr">21579 </span> { -<span id="L21580" class="LineNr">21580 </span><span class="Constant">$has-primitive-name?:loop</span>: -<span id="L21581" class="LineNr">21581 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L21582" class="LineNr">21582 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L21583" class="LineNr">21583 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21584" class="LineNr">21584 </span> <span class="subxComment"># if (primitive->name == name) return true</span> -<span id="L21585" class="LineNr">21585 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> -<span id="L21586" class="LineNr">21586 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L21587" class="LineNr">21587 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L21588" class="LineNr">21588 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L21589" class="LineNr">21589 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi %eax) <span class="subxComment"># => eax</span> -<span id="L21590" class="LineNr">21590 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21591" class="LineNr">21591 </span> 75/jump-if-!= $has-primitive-name?:end/disp8 -<span id="L21592" class="LineNr">21592 </span><span class="Constant">$has-primitive-name?:next-primitive</span>: -<span id="L21593" class="LineNr">21593 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L21594" class="LineNr">21594 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> -<span id="L21595" class="LineNr">21595 </span> 89/<- %ecx 0/r32/eax -<span id="L21596" class="LineNr">21596 </span> <span class="subxComment">#</span> -<span id="L21597" class="LineNr">21597 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21598" class="LineNr">21598 </span> } -<span id="L21599" class="LineNr">21599 </span> <span class="subxComment"># return null</span> -<span id="L21600" class="LineNr">21600 </span> b8/copy-to-eax 0/imm32 -<span id="L21601" class="LineNr">21601 </span><span class="Constant">$has-primitive-name?:end</span>: -<span id="L21602" class="LineNr">21602 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21603" class="LineNr">21603 </span> 5e/pop-to-esi -<span id="L21604" class="LineNr">21604 </span> 59/pop-to-ecx -<span id="L21605" class="LineNr">21605 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21606" class="LineNr">21606 </span> 89/<- %esp 5/r32/ebp -<span id="L21607" class="LineNr">21607 </span> 5d/pop-to-ebp -<span id="L21608" class="LineNr">21608 </span> c3/return -<span id="L21609" class="LineNr">21609 </span> -<span id="L21610" class="LineNr">21610 </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="L21611" class="LineNr">21611 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21612" class="LineNr">21612 </span> 55/push-ebp -<span id="L21613" class="LineNr">21613 </span> 89/<- %ebp 4/r32/esp -<span id="L21614" class="LineNr">21614 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21615" class="LineNr">21615 </span> 50/push-eax -<span id="L21616" class="LineNr">21616 </span> 51/push-ecx -<span id="L21617" class="LineNr">21617 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> -<span id="L21618" class="LineNr">21618 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21619" class="LineNr">21619 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21620" class="LineNr">21620 </span> 89/<- %ecx 0/r32/eax -<span id="L21621" class="LineNr">21621 </span> <span class="subxComment"># if (op == "copy") check-mu-copy-stmt</span> -<span id="L21622" class="LineNr">21622 </span> { -<span id="L21623" class="LineNr">21623 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy"</span>) <span class="subxComment"># => eax</span> -<span id="L21624" class="LineNr">21624 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21625" class="LineNr">21625 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21626" class="LineNr">21626 </span> (<a href='mu.subx.html#L22029'>check-mu-copy-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21627" class="LineNr">21627 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21628" class="LineNr">21628 </span> } -<span id="L21629" class="LineNr">21629 </span> <span class="subxComment"># if (op == "copy-to") check-mu-copy-to-stmt</span> -<span id="L21630" class="LineNr">21630 </span> { -<span id="L21631" class="LineNr">21631 </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="L21632" class="LineNr">21632 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21633" class="LineNr">21633 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21634" class="LineNr">21634 </span> (<a href='mu.subx.html#L22248'>check-mu-copy-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21635" class="LineNr">21635 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21636" class="LineNr">21636 </span> } -<span id="L21637" class="LineNr">21637 </span> <span class="subxComment"># if (op == "copy-byte") check-mu-copy-byte-stmt</span> -<span id="L21638" class="LineNr">21638 </span> { -<span id="L21639" class="LineNr">21639 </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="L21640" class="LineNr">21640 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21641" class="LineNr">21641 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21642" class="LineNr">21642 </span> (<a href='mu.subx.html#L22449'>check-mu-copy-byte-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21643" class="LineNr">21643 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21644" class="LineNr">21644 </span> } -<span id="L21645" class="LineNr">21645 </span> <span class="subxComment"># if (op == "copy-byte-to") check-mu-copy-byte-to-stmt</span> -<span id="L21646" class="LineNr">21646 </span> { -<span id="L21647" class="LineNr">21647 </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="L21648" class="LineNr">21648 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21649" class="LineNr">21649 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21650" class="LineNr">21650 </span> (<a href='mu.subx.html#L22620'>check-mu-copy-byte-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21651" class="LineNr">21651 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21652" class="LineNr">21652 </span> } -<span id="L21653" class="LineNr">21653 </span> <span class="subxComment"># if (op == "compare") check-mu-compare-stmt</span> -<span id="L21654" class="LineNr">21654 </span> { -<span id="L21655" class="LineNr">21655 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"compare"</span>) <span class="subxComment"># => eax</span> -<span id="L21656" class="LineNr">21656 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21657" class="LineNr">21657 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21658" class="LineNr">21658 </span> (<a href='mu.subx.html#L22772'>check-mu-compare-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21659" class="LineNr">21659 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21660" class="LineNr">21660 </span> } -<span id="L21661" class="LineNr">21661 </span> <span class="subxComment"># if (op == "address") check-mu-address-stmt</span> -<span id="L21662" class="LineNr">21662 </span> { -<span id="L21663" class="LineNr">21663 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"address"</span>) <span class="subxComment"># => eax</span> -<span id="L21664" class="LineNr">21664 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21665" class="LineNr">21665 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21666" class="LineNr">21666 </span> (<a href='mu.subx.html#L22995'>check-mu-address-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21667" class="LineNr">21667 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21668" class="LineNr">21668 </span> } -<span id="L21669" class="LineNr">21669 </span> <span class="subxComment"># if (op == "return") check-mu-return-stmt</span> -<span id="L21670" class="LineNr">21670 </span> { -<span id="L21671" class="LineNr">21671 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> -<span id="L21672" class="LineNr">21672 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21673" class="LineNr">21673 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21674" class="LineNr">21674 </span> (<a href='mu.subx.html#L23239'>check-mu-return-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21675" class="LineNr">21675 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21676" class="LineNr">21676 </span> } -<span id="L21677" class="LineNr">21677 </span> <span class="subxComment"># if (op == "get") check-mu-get-stmt</span> -<span id="L21678" class="LineNr">21678 </span> { -<span id="L21679" class="LineNr">21679 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L21680" class="LineNr">21680 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21681" class="LineNr">21681 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21682" class="LineNr">21682 </span> (<a href='mu.subx.html#L23715'>check-mu-get-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21683" class="LineNr">21683 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21684" class="LineNr">21684 </span> } -<span id="L21685" class="LineNr">21685 </span> <span class="subxComment"># if (op == "index") check-mu-index-stmt</span> -<span id="L21686" class="LineNr">21686 </span> { -<span id="L21687" class="LineNr">21687 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> -<span id="L21688" class="LineNr">21688 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21689" class="LineNr">21689 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21690" class="LineNr">21690 </span> (<a href='mu.subx.html#L24010'>check-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21691" class="LineNr">21691 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21692" class="LineNr">21692 </span> } -<span id="L21693" class="LineNr">21693 </span> <span class="subxComment"># if (op == "length") check-mu-length-stmt</span> -<span id="L21694" class="LineNr">21694 </span> { -<span id="L21695" class="LineNr">21695 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> -<span id="L21696" class="LineNr">21696 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21697" class="LineNr">21697 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21698" class="LineNr">21698 </span> (<a href='mu.subx.html#L24393'>check-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21699" class="LineNr">21699 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21700" class="LineNr">21700 </span> } -<span id="L21701" class="LineNr">21701 </span> <span class="subxComment"># if (op == "compute-offset") check-mu-compute-offset-stmt</span> -<span id="L21702" class="LineNr">21702 </span> { -<span id="L21703" class="LineNr">21703 </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="L21704" class="LineNr">21704 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21705" class="LineNr">21705 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21706" class="LineNr">21706 </span> (<a href='mu.subx.html#L24683'>check-mu-compute-offset-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21707" class="LineNr">21707 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21708" class="LineNr">21708 </span> } -<span id="L21709" class="LineNr">21709 </span> <span class="subxComment"># if (op == "copy-object") check-mu-copy-object-stmt</span> -<span id="L21710" class="LineNr">21710 </span> { -<span id="L21711" class="LineNr">21711 </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="L21712" class="LineNr">21712 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21713" class="LineNr">21713 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21714" class="LineNr">21714 </span> (<a href='mu.subx.html#L24971'>check-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21715" class="LineNr">21715 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21716" class="LineNr">21716 </span> } -<span id="L21717" class="LineNr">21717 </span> <span class="subxComment"># if (op == "clear-object") check-mu-clear-object-stmt</span> -<span id="L21718" class="LineNr">21718 </span> { -<span id="L21719" class="LineNr">21719 </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="L21720" class="LineNr">21720 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21721" class="LineNr">21721 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21722" class="LineNr">21722 </span> (<a href='mu.subx.html#L25093'>check-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21723" class="LineNr">21723 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21724" class="LineNr">21724 </span> } -<span id="L21725" class="LineNr">21725 </span> <span class="subxComment"># if (op == "allocate") check-mu-allocate-stmt</span> -<span id="L21726" class="LineNr">21726 </span> { -<span id="L21727" class="LineNr">21727 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> -<span id="L21728" class="LineNr">21728 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21729" class="LineNr">21729 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21730" class="LineNr">21730 </span> (<a href='mu.subx.html#L25187'>check-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21731" class="LineNr">21731 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21732" class="LineNr">21732 </span> } -<span id="L21733" class="LineNr">21733 </span> <span class="subxComment"># if (op == "populate") check-mu-populate-stmt</span> -<span id="L21734" class="LineNr">21734 </span> { -<span id="L21735" class="LineNr">21735 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> -<span id="L21736" class="LineNr">21736 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21737" class="LineNr">21737 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21738" class="LineNr">21738 </span> (<a href='mu.subx.html#L25291'>check-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21739" class="LineNr">21739 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21740" class="LineNr">21740 </span> } -<span id="L21741" class="LineNr">21741 </span> <span class="subxComment"># if (op == "populate-stream") check-mu-populate-stream-stmt</span> -<span id="L21742" class="LineNr">21742 </span> { -<span id="L21743" class="LineNr">21743 </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="L21744" class="LineNr">21744 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21745" class="LineNr">21745 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21746" class="LineNr">21746 </span> (<a href='mu.subx.html#L25441'>check-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21747" class="LineNr">21747 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21748" class="LineNr">21748 </span> } -<span id="L21749" class="LineNr">21749 </span> <span class="subxComment"># if (op == "read-from-stream") check-mu-read-from-stream-stmt</span> -<span id="L21750" class="LineNr">21750 </span> { -<span id="L21751" class="LineNr">21751 </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="L21752" class="LineNr">21752 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21753" class="LineNr">21753 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21754" class="LineNr">21754 </span> (<a href='mu.subx.html#L25591'>check-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21755" class="LineNr">21755 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21756" class="LineNr">21756 </span> } -<span id="L21757" class="LineNr">21757 </span> <span class="subxComment"># if (op == "write-to-stream") check-mu-write-to-stream-stmt</span> -<span id="L21758" class="LineNr">21758 </span> { -<span id="L21759" class="LineNr">21759 </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="L21760" class="LineNr">21760 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21761" class="LineNr">21761 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21762" class="LineNr">21762 </span> (<a href='mu.subx.html#L25758'>check-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21763" class="LineNr">21763 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21764" class="LineNr">21764 </span> } -<span id="L21765" class="LineNr">21765 </span> <span class="subxComment"># if (op == "convert") check-mu-convert-stmt</span> -<span id="L21766" class="LineNr">21766 </span> { -<span id="L21767" class="LineNr">21767 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"convert"</span>) <span class="subxComment"># => eax</span> -<span id="L21768" class="LineNr">21768 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21769" class="LineNr">21769 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21770" class="LineNr">21770 </span> (<a href='mu.subx.html#L25925'>check-mu-convert-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21771" class="LineNr">21771 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21772" class="LineNr">21772 </span> } -<span id="L21773" class="LineNr">21773 </span> <span class="subxComment"># otherwise check-numberlike-stmt</span> -<span id="L21774" class="LineNr">21774 </span> (<a href='mu.subx.html#L21785'>check-mu-numberlike-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21775" class="LineNr">21775 </span><span class="Constant">$check-mu-primitive:end</span>: -<span id="L21776" class="LineNr">21776 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21777" class="LineNr">21777 </span> 59/pop-to-ecx -<span id="L21778" class="LineNr">21778 </span> 58/pop-to-eax -<span id="L21779" class="LineNr">21779 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21780" class="LineNr">21780 </span> 89/<- %esp 5/r32/ebp -<span id="L21781" class="LineNr">21781 </span> 5d/pop-to-ebp -<span id="L21782" class="LineNr">21782 </span> c3/return -<span id="L21783" class="LineNr">21783 </span> -<span id="L21784" class="LineNr">21784 </span><span class="subxComment"># by default, Mu primitives should only operate on 'number-like' types</span> -<span id="L21785" class="LineNr">21785 </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="L21327" class="LineNr">21327 </span> 51/push-ecx +<span id="L21328" class="LineNr">21328 </span> 52/push-edx +<span id="L21329" class="LineNr">21329 </span> 53/push-ebx +<span id="L21330" class="LineNr">21330 </span> 56/push-esi +<span id="L21331" class="LineNr">21331 </span> 57/push-edi +<span id="L21332" class="LineNr">21332 </span> <span class="subxComment"># esi = in</span> +<span id="L21333" class="LineNr">21333 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21334" class="LineNr">21334 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> +<span id="L21335" class="LineNr">21335 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L21336" class="LineNr">21336 </span> 89/<- %ecx 0/r32/eax +<span id="L21337" class="LineNr">21337 </span> (<a 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="L21338" class="LineNr">21338 </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="L21339" class="LineNr">21339 </span> (<a 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="L21340" class="LineNr">21340 </span> (<a 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="L21341" class="LineNr">21341 </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="L21342" class="LineNr">21342 </span> (<a 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="L21343" class="LineNr">21343 </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="L21344" class="LineNr">21344 </span> (<a 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="L21345" class="LineNr">21345 </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="L21346" class="LineNr">21346 </span> (<a 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="L21347" class="LineNr">21347 </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="L21348" class="LineNr">21348 </span> (<a 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="L21349" class="LineNr">21349 </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="L21350" class="LineNr">21350 </span> (<a 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="L21351" class="LineNr">21351 </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="L21352" class="LineNr">21352 </span> (<a 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="L21353" class="LineNr">21353 </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="L21354" class="LineNr">21354 </span> (<a 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="L21355" class="LineNr">21355 </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="L21356" class="LineNr">21356 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> +<span id="L21357" class="LineNr">21357 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> +<span id="L21358" class="LineNr">21358 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> +<span id="L21359" class="LineNr">21359 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx +<span id="L21360" class="LineNr">21360 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> +<span id="L21361" class="LineNr">21361 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L21362" class="LineNr">21362 </span> { +<span id="L21363" class="LineNr">21363 </span><span class="Constant">$dump-typeinfo:loop</span>: +<span id="L21364" class="LineNr">21364 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L21365" class="LineNr">21365 </span> 39/compare %ecx 2/r32/edx +<span id="L21366" class="LineNr">21366 </span> 0f 83/jump-if-addr>= <span class="Constant">break</span>/disp32 +<span id="L21367" class="LineNr">21367 </span> (<a 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="L21368" class="LineNr">21368 </span> (<a 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="L21369" class="LineNr">21369 </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="L21370" class="LineNr">21370 </span> (<a 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="L21371" class="LineNr">21371 </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="L21372" class="LineNr">21372 </span> (<a 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="L21373" class="LineNr">21373 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) +<span id="L21374" class="LineNr">21374 </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="L21375" class="LineNr">21375 </span> (<a 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="L21376" class="LineNr">21376 </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="L21377" class="LineNr">21377 </span> (<a 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="L21378" class="LineNr">21378 </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="L21379" class="LineNr">21379 </span> (<a 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="L21380" class="LineNr">21380 </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="L21381" class="LineNr">21381 </span> (<a 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="L21382" class="LineNr">21382 </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="L21383" class="LineNr">21383 </span> (<a 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="L21384" class="LineNr">21384 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) +<span id="L21385" class="LineNr">21385 </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="L21386" class="LineNr">21386 </span> (<a 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="L21387" class="LineNr">21387 </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="L21388" class="LineNr">21388 </span> (<a 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="L21389" class="LineNr">21389 </span> (<a href='mu.subx.html#L21417'>dump-var</a> 5 %eax) +<span id="L21390" class="LineNr">21390 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) +<span id="L21391" class="LineNr">21391 </span> (<a 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="L21392" class="LineNr">21392 </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="L21393" class="LineNr">21393 </span> (<a 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="L21394" class="LineNr">21394 </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="L21395" class="LineNr">21395 </span> (<a 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="L21396" class="LineNr">21396 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L21397" class="LineNr">21397 </span> (<a href='mu.subx.html#L21417'>dump-var</a> 5 %eax) +<span id="L21398" class="LineNr">21398 </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="L21399" class="LineNr">21399 </span> <span class="subxComment"># curr += row-size</span> +<span id="L21400" class="LineNr">21400 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> +<span id="L21401" class="LineNr">21401 </span> <span class="subxComment">#</span> +<span id="L21402" class="LineNr">21402 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21403" class="LineNr">21403 </span> } +<span id="L21404" class="LineNr">21404 </span><span class="Constant">$dump-typeinfo:end</span>: +<span id="L21405" class="LineNr">21405 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21406" class="LineNr">21406 </span> 5f/pop-to-edi +<span id="L21407" class="LineNr">21407 </span> 5e/pop-to-esi +<span id="L21408" class="LineNr">21408 </span> 5b/pop-to-ebx +<span id="L21409" class="LineNr">21409 </span> 5a/pop-to-edx +<span id="L21410" class="LineNr">21410 </span> 59/pop-to-ecx +<span id="L21411" class="LineNr">21411 </span> 58/pop-to-eax +<span id="L21412" class="LineNr">21412 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21413" class="LineNr">21413 </span> 89/<- %esp 5/r32/ebp +<span id="L21414" class="LineNr">21414 </span> 5d/pop-to-ebp +<span id="L21415" class="LineNr">21415 </span> c3/return +<span id="L21416" class="LineNr">21416 </span> +<span id="L21417" class="LineNr">21417 </span><span class="subxFunction">dump-var</span>: <span class="subxComment"># indent: int, v: (addr handle var)</span> +<span id="L21418" class="LineNr">21418 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21419" class="LineNr">21419 </span> 55/push-ebp +<span id="L21420" class="LineNr">21420 </span> 89/<- %ebp 4/r32/esp +<span id="L21421" class="LineNr">21421 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21422" class="LineNr">21422 </span> 50/push-eax +<span id="L21423" class="LineNr">21423 </span> 53/push-ebx +<span id="L21424" class="LineNr">21424 </span> <span class="subxComment"># eax = v</span> +<span id="L21425" class="LineNr">21425 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21426" class="LineNr">21426 </span> <span class="subxComment">#</span> +<span id="L21427" class="LineNr">21427 </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="L21428" class="LineNr">21428 </span> (<a 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="L21429" class="LineNr">21429 </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="L21430" class="LineNr">21430 </span> (<a 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="L21431" class="LineNr">21431 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) +<span id="L21432" class="LineNr">21432 </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="L21433" class="LineNr">21433 </span> (<a 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="L21434" class="LineNr">21434 </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="L21435" class="LineNr">21435 </span> { +<span id="L21436" class="LineNr">21436 </span> 3d/compare-eax-and 0/imm32 +<span id="L21437" class="LineNr">21437 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21438" class="LineNr">21438 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L21439" class="LineNr">21439 </span> (<a 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="L21440" class="LineNr">21440 </span> 89/<- %ebx 0/r32/eax +<span id="L21441" class="LineNr">21441 </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="L21442" class="LineNr">21442 </span> (<a 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="L21443" class="LineNr">21443 </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="L21444" class="LineNr">21444 </span> (<a 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="L21445" class="LineNr">21445 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name</span> +<span id="L21446" class="LineNr">21446 </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="L21447" class="LineNr">21447 </span> { +<span id="L21448" class="LineNr">21448 </span> 3d/compare-eax-and 0/imm32 +<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='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="L21451" class="LineNr">21451 </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="L21452" class="LineNr">21452 </span> } +<span id="L21453" class="LineNr">21453 </span> (<a 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="L21454" class="LineNr">21454 </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="L21455" class="LineNr">21455 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L21456" class="LineNr">21456 </span> (<a 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="L21457" class="LineNr">21457 </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="L21458" class="LineNr">21458 </span> (<a 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="L21459" class="LineNr">21459 </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="L21460" class="LineNr">21460 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L21461" class="LineNr">21461 </span> (<a 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="L21462" class="LineNr">21462 </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="L21463" class="LineNr">21463 </span> (<a 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="L21464" class="LineNr">21464 </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="L21465" class="LineNr">21465 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L21466" class="LineNr">21466 </span> (<a 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="L21467" class="LineNr">21467 </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="L21468" class="LineNr">21468 </span> (<a 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="L21469" class="LineNr">21469 </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="L21470" class="LineNr">21470 </span> (<a 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="L21471" class="LineNr">21471 </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="L21472" class="LineNr">21472 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register</span> +<span id="L21473" class="LineNr">21473 </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="L21474" class="LineNr">21474 </span> { +<span id="L21475" class="LineNr">21475 </span> 3d/compare-eax-and 0/imm32 +<span id="L21476" class="LineNr">21476 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21477" class="LineNr">21477 </span> (<a 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="L21478" class="LineNr">21478 </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="L21479" class="LineNr">21479 </span> } +<span id="L21480" class="LineNr">21480 </span> (<a 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="L21481" class="LineNr">21481 </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="L21482" class="LineNr">21482 </span> } +<span id="L21483" class="LineNr">21483 </span><span class="Constant">$dump-var:end</span>: +<span id="L21484" class="LineNr">21484 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21485" class="LineNr">21485 </span> 5b/pop-to-ebx +<span id="L21486" class="LineNr">21486 </span> 58/pop-to-eax +<span id="L21487" class="LineNr">21487 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21488" class="LineNr">21488 </span> 89/<- %esp 5/r32/ebp +<span id="L21489" class="LineNr">21489 </span> 5d/pop-to-ebp +<span id="L21490" class="LineNr">21490 </span> c3/return +<span id="L21491" class="LineNr">21491 </span> +<span id="L21492" class="LineNr">21492 </span><span class="subxComment">#######################################################</span> +<span id="L21493" class="LineNr">21493 </span><span class="subxComment"># Type-checking</span> +<span id="L21494" class="LineNr">21494 </span><span class="subxComment">#######################################################</span> +<span id="L21495" class="LineNr">21495 </span> +<span id="L21496" class="LineNr">21496 </span><span class="subxFunction">check-mu-types</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L21497" class="LineNr">21497 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21498" class="LineNr">21498 </span> 55/push-ebp +<span id="L21499" class="LineNr">21499 </span> 89/<- %ebp 4/r32/esp +<span id="L21500" class="LineNr">21500 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21501" class="LineNr">21501 </span> 50/push-eax +<span id="L21502" class="LineNr">21502 </span> <span class="subxComment"># var curr/eax: (addr function) = lookup(Program->functions)</span> +<span id="L21503" class="LineNr">21503 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L21504" class="LineNr">21504 </span> { +<span id="L21505" class="LineNr">21505 </span><span class="Constant">$check-mu-types:loop</span>: +<span id="L21506" class="LineNr">21506 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L21507" class="LineNr">21507 </span> 3d/compare-eax-and 0/imm32 +<span id="L21508" class="LineNr">21508 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21509" class="Folded">21509 </span><span class="Folded">+-- 8 lines: #? # dump curr->name ------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L21517" class="LineNr">21517 </span> (<a href='mu.subx.html#L21530'>check-mu-function</a> %eax *(ebp+8) *(ebp+0xc)) +<span id="L21518" class="LineNr">21518 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L21519" class="LineNr">21519 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L21520" class="LineNr">21520 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21521" class="LineNr">21521 </span> } +<span id="L21522" class="LineNr">21522 </span><span class="Constant">$check-mu-types:end</span>: +<span id="L21523" class="LineNr">21523 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21524" class="LineNr">21524 </span> 58/pop-to-eax +<span id="L21525" class="LineNr">21525 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21526" class="LineNr">21526 </span> 89/<- %esp 5/r32/ebp +<span id="L21527" class="LineNr">21527 </span> 5d/pop-to-ebp +<span id="L21528" class="LineNr">21528 </span> c3/return +<span id="L21529" class="LineNr">21529 </span> +<span id="L21530" class="LineNr">21530 </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="L21531" class="LineNr">21531 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21532" class="LineNr">21532 </span> 55/push-ebp +<span id="L21533" class="LineNr">21533 </span> 89/<- %ebp 4/r32/esp +<span id="L21534" class="LineNr">21534 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21535" class="LineNr">21535 </span> 50/push-eax +<span id="L21536" class="LineNr">21536 </span> 56/push-esi +<span id="L21537" class="LineNr">21537 </span> <span class="subxComment"># esi = f</span> +<span id="L21538" class="LineNr">21538 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21539" class="LineNr">21539 </span> <span class="subxComment"># outputs</span> +<span id="L21540" class="LineNr">21540 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x10) *(esi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L21541" class="LineNr">21541 </span> (<a href='mu.subx.html#L23573'>check-all-unique-registers</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) +<span id="L21542" class="LineNr">21542 </span> <span class="subxComment"># body</span> +<span id="L21543" class="LineNr">21543 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> +<span id="L21544" class="LineNr">21544 </span> (<a href='mu.subx.html#L21560'>check-mu-block</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10)) +<span id="L21545" class="LineNr">21545 </span> <span class="subxComment"># if function has no outputs, we're done</span> +<span id="L21546" class="LineNr">21546 </span> 81 7/subop/compare *(esi+0x10) 0/imm32 +<span id="L21547" class="LineNr">21547 </span> 74/jump-if-= $check-mu-function:end/disp8 +<span id="L21548" class="LineNr">21548 </span> <span class="subxComment"># some final checks on body</span> +<span id="L21549" class="LineNr">21549 </span> (<a href='mu.subx.html#L23786'>check-final-stmt-is-return</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) +<span id="L21550" class="LineNr">21550 </span> (<a href='mu.subx.html#L23838'>check-no-breaks</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) +<span id="L21551" class="LineNr">21551 </span><span class="Constant">$check-mu-function:end</span>: +<span id="L21552" class="LineNr">21552 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21553" class="LineNr">21553 </span> 5e/pop-to-esi +<span id="L21554" class="LineNr">21554 </span> 58/pop-to-eax +<span id="L21555" class="LineNr">21555 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21556" class="LineNr">21556 </span> 89/<- %esp 5/r32/ebp +<span id="L21557" class="LineNr">21557 </span> 5d/pop-to-ebp +<span id="L21558" class="LineNr">21558 </span> c3/return +<span id="L21559" class="LineNr">21559 </span> +<span id="L21560" class="LineNr">21560 </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="L21561" class="LineNr">21561 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21562" class="LineNr">21562 </span> 55/push-ebp +<span id="L21563" class="LineNr">21563 </span> 89/<- %ebp 4/r32/esp +<span id="L21564" class="LineNr">21564 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21565" class="LineNr">21565 </span> 50/push-eax +<span id="L21566" class="LineNr">21566 </span> <span class="subxComment"># eax = block</span> +<span id="L21567" class="LineNr">21567 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21568" class="LineNr">21568 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> +<span id="L21569" class="LineNr">21569 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L21570" class="LineNr">21570 </span> <span class="subxComment">#</span> +<span id="L21571" class="LineNr">21571 </span> { +<span id="L21572" class="LineNr">21572 </span><span class="Constant">$check-mu-block:check-empty</span>: +<span id="L21573" class="LineNr">21573 </span> 3d/compare-eax-and 0/imm32 +<span id="L21574" class="LineNr">21574 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21575" class="LineNr">21575 </span> <span class="subxComment"># emit block->statements</span> +<span id="L21576" class="LineNr">21576 </span> (<a href='mu.subx.html#L21586'>check-mu-stmt-list</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21577" class="LineNr">21577 </span> } +<span id="L21578" class="LineNr">21578 </span><span class="Constant">$check-mu-block:end</span>: +<span id="L21579" class="LineNr">21579 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21580" class="LineNr">21580 </span> 58/pop-to-eax +<span id="L21581" class="LineNr">21581 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21582" class="LineNr">21582 </span> 89/<- %esp 5/r32/ebp +<span id="L21583" class="LineNr">21583 </span> 5d/pop-to-ebp +<span id="L21584" class="LineNr">21584 </span> c3/return +<span id="L21585" class="LineNr">21585 </span> +<span id="L21586" class="LineNr">21586 </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="L21587" class="LineNr">21587 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21588" class="LineNr">21588 </span> 55/push-ebp +<span id="L21589" class="LineNr">21589 </span> 89/<- %ebp 4/r32/esp +<span id="L21590" class="LineNr">21590 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21591" class="LineNr">21591 </span> 50/push-eax +<span id="L21592" class="LineNr">21592 </span> 56/push-esi +<span id="L21593" class="LineNr">21593 </span> <span class="subxComment"># esi = stmts</span> +<span id="L21594" class="LineNr">21594 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21595" class="LineNr">21595 </span> { +<span id="L21596" class="LineNr">21596 </span><span class="Constant">$check-mu-stmt-list:loop</span>: +<span id="L21597" class="LineNr">21597 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L21598" class="LineNr">21598 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21599" class="LineNr">21599 </span> <span class="subxComment"># var curr-stmt/eax: (addr stmt) = lookup(stmts->value)</span> +<span id="L21600" class="LineNr">21600 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L21601" class="LineNr">21601 </span> { +<span id="L21602" class="LineNr">21602 </span><span class="Constant">$check-mu-stmt-list:check-for-block</span>: +<span id="L21603" class="LineNr">21603 </span> 81 7/subop/compare *eax 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L21604" class="LineNr">21604 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21605" class="LineNr">21605 </span><span class="Constant">$check-mu-stmt-list:block</span>: +<span id="L21606" class="LineNr">21606 </span> (<a href='mu.subx.html#L21560'>check-mu-block</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21607" class="LineNr">21607 </span> eb/jump $check-mu-stmt-list:continue/disp8 +<span id="L21608" class="LineNr">21608 </span> } +<span id="L21609" class="LineNr">21609 </span> { +<span id="L21610" class="LineNr">21610 </span><span class="Constant">$check-mu-stmt-list:check-for-stmt1</span>: +<span id="L21611" class="LineNr">21611 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L21612" class="LineNr">21612 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L21613" class="LineNr">21613 </span><span class="Constant">$check-mu-stmt-list:stmt1</span>: +<span id="L21614" class="LineNr">21614 </span> (<a href='mu.subx.html#L21640'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21615" class="LineNr">21615 </span> eb/jump $check-mu-stmt-list:continue/disp8 +<span id="L21616" class="LineNr">21616 </span> } +<span id="L21617" class="LineNr">21617 </span> { +<span id="L21618" class="LineNr">21618 </span><span class="Constant">$check-mu-stmt-list:check-for-reg-var-def</span>: +<span id="L21619" class="LineNr">21619 </span> 81 7/subop/compare *eax 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> +<span id="L21620" class="LineNr">21620 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L21621" class="LineNr">21621 </span><span class="Constant">$check-mu-stmt-list:reg-var-def</span>: +<span id="L21622" class="LineNr">21622 </span> (<a href='mu.subx.html#L21640'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21623" class="LineNr">21623 </span> eb/jump $check-mu-stmt-list:continue/disp8 +<span id="L21624" class="LineNr">21624 </span> } +<span id="L21625" class="LineNr">21625 </span><span class="Constant">$check-mu-stmt-list:continue</span>: +<span id="L21626" class="LineNr">21626 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> +<span id="L21627" class="LineNr">21627 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L21628" class="LineNr">21628 </span> 89/<- %esi 0/r32/eax +<span id="L21629" class="LineNr">21629 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21630" class="LineNr">21630 </span> } +<span id="L21631" class="LineNr">21631 </span><span class="Constant">$check-mu-stmt-list:end</span>: +<span id="L21632" class="LineNr">21632 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21633" class="LineNr">21633 </span> 5e/pop-to-esi +<span id="L21634" class="LineNr">21634 </span> 58/pop-to-eax +<span id="L21635" class="LineNr">21635 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21636" class="LineNr">21636 </span> 89/<- %esp 5/r32/ebp +<span id="L21637" class="LineNr">21637 </span> 5d/pop-to-ebp +<span id="L21638" class="LineNr">21638 </span> c3/return +<span id="L21639" class="LineNr">21639 </span> +<span id="L21640" class="LineNr">21640 </span><span class="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="L21641" class="LineNr">21641 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21642" class="LineNr">21642 </span> 55/push-ebp +<span id="L21643" class="LineNr">21643 </span> 89/<- %ebp 4/r32/esp +<span id="L21644" class="LineNr">21644 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21645" class="LineNr">21645 </span> 50/push-eax +<span id="L21646" class="LineNr">21646 </span> <span class="subxH1Comment"># - if stmt's operation matches a primitive, check against it</span> +<span id="L21647" class="LineNr">21647 </span> (<a href='mu.subx.html#L21693'>has-primitive-name?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L21648" class="LineNr">21648 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21649" class="LineNr">21649 </span> { +<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#L21785'>check-mu-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21652" class="LineNr">21652 </span> e9/jump $check-mu-stmt:end/disp32 +<span id="L21653" class="LineNr">21653 </span> } +<span id="L21654" class="LineNr">21654 </span> <span class="subxH1Comment"># - otherwise find a function to check against</span> +<span id="L21655" class="LineNr">21655 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->functions)</span> +<span id="L21656" class="LineNr">21656 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L21657" class="LineNr">21657 </span> (<a href='mu.subx.html#L36416'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L21658" class="LineNr">21658 </span> 3d/compare-eax-and 0/imm32 +<span id="L21659" class="LineNr">21659 </span> { +<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#L26316'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21662" class="LineNr">21662 </span> eb/jump $check-mu-stmt:end/disp8 +<span id="L21663" class="LineNr">21663 </span> } +<span id="L21664" class="LineNr">21664 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->signatures)</span> +<span id="L21665" class="LineNr">21665 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> +<span id="L21666" class="LineNr">21666 </span> (<a href='mu.subx.html#L36416'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L21667" class="LineNr">21667 </span> 3d/compare-eax-and 0/imm32 +<span id="L21668" class="LineNr">21668 </span> { +<span id="L21669" class="LineNr">21669 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21670" class="LineNr">21670 </span> (<a href='mu.subx.html#L26316'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21671" class="LineNr">21671 </span> eb/jump $check-mu-stmt:end/disp8 +<span id="L21672" class="LineNr">21672 </span> } +<span id="L21673" class="LineNr">21673 </span> <span class="subxH1Comment"># - otherwise abort</span> +<span id="L21674" class="LineNr">21674 </span> e9/jump $check-mu-stmt:unknown-call/disp32 +<span id="L21675" class="LineNr">21675 </span><span class="Constant">$check-mu-stmt:end</span>: +<span id="L21676" class="LineNr">21676 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21677" class="LineNr">21677 </span> 58/pop-to-eax +<span id="L21678" class="LineNr">21678 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21679" class="LineNr">21679 </span> 89/<- %esp 5/r32/ebp +<span id="L21680" class="LineNr">21680 </span> 5d/pop-to-ebp +<span id="L21681" class="LineNr">21681 </span> c3/return +<span id="L21682" class="LineNr">21682 </span> +<span id="L21683" class="LineNr">21683 </span><span class="Constant">$check-mu-stmt:unknown-call</span>: +<span id="L21684" class="LineNr">21684 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"unknown function '"</span>) +<span id="L21685" class="LineNr">21685 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21686" class="LineNr">21686 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L21687" class="LineNr">21687 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21688" class="LineNr">21688 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L21689" class="LineNr">21689 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21690" class="LineNr">21690 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21691" class="LineNr">21691 </span> <span class="subxComment"># never gets here</span> +<span id="L21692" class="LineNr">21692 </span> +<span id="L21693" class="LineNr">21693 </span><span class="subxFunction">has-primitive-name?</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: boolean</span> +<span id="L21694" class="LineNr">21694 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21695" class="LineNr">21695 </span> 55/push-ebp +<span id="L21696" class="LineNr">21696 </span> 89/<- %ebp 4/r32/esp +<span id="L21697" class="LineNr">21697 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21698" class="LineNr">21698 </span> 51/push-ecx +<span id="L21699" class="LineNr">21699 </span> 56/push-esi +<span id="L21700" class="LineNr">21700 </span> <span class="subxComment"># var name/esi: (addr array byte) = lookup(stmt->operation)</span> +<span id="L21701" class="LineNr">21701 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21702" class="LineNr">21702 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L21703" class="LineNr">21703 </span> 89/<- %esi 0/r32/eax +<span id="L21704" class="LineNr">21704 </span> <span class="subxComment"># if (name == "return") return true</span> +<span id="L21705" class="LineNr">21705 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> +<span id="L21706" class="LineNr">21706 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21707" class="LineNr">21707 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21708" class="LineNr">21708 </span> <span class="subxComment"># if (name == "get") return true</span> +<span id="L21709" class="LineNr">21709 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L21710" class="LineNr">21710 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21711" class="LineNr">21711 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21712" class="LineNr">21712 </span> <span class="subxComment"># if (name == "index") return true</span> +<span id="L21713" class="LineNr">21713 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> +<span id="L21714" class="LineNr">21714 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21715" class="LineNr">21715 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21716" class="LineNr">21716 </span> <span class="subxComment"># if (name == "length") return true</span> +<span id="L21717" class="LineNr">21717 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> +<span id="L21718" class="LineNr">21718 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21719" class="LineNr">21719 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21720" class="LineNr">21720 </span> <span class="subxComment"># if (name == "compute-offset") return true</span> +<span id="L21721" class="LineNr">21721 </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="L21722" class="LineNr">21722 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21723" class="LineNr">21723 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21724" class="LineNr">21724 </span> <span class="subxComment"># if (name == "copy-object") return true</span> +<span id="L21725" class="LineNr">21725 </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="L21726" class="LineNr">21726 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21727" class="LineNr">21727 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21728" class="LineNr">21728 </span> <span class="subxComment"># if (name == "clear-object") return true</span> +<span id="L21729" class="LineNr">21729 </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="L21730" class="LineNr">21730 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21731" class="LineNr">21731 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21732" class="LineNr">21732 </span> <span class="subxComment"># if (name == "allocate") return true</span> +<span id="L21733" class="LineNr">21733 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> +<span id="L21734" class="LineNr">21734 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21735" class="LineNr">21735 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21736" class="LineNr">21736 </span> <span class="subxComment"># if (name == "populate") return true</span> +<span id="L21737" class="LineNr">21737 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> +<span id="L21738" class="LineNr">21738 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21739" class="LineNr">21739 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21740" class="LineNr">21740 </span> <span class="subxComment"># if (name == "populate-stream") return true</span> +<span id="L21741" class="LineNr">21741 </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="L21742" class="LineNr">21742 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21743" class="LineNr">21743 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21744" class="LineNr">21744 </span> <span class="subxComment"># if (name == "read-from-stream") return true</span> +<span id="L21745" class="LineNr">21745 </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="L21746" class="LineNr">21746 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21747" class="LineNr">21747 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21748" class="LineNr">21748 </span> <span class="subxComment"># if (name == "write-to-stream") return true</span> +<span id="L21749" class="LineNr">21749 </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="L21750" class="LineNr">21750 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21751" class="LineNr">21751 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21752" class="LineNr">21752 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = Primitives</span> +<span id="L21753" class="LineNr">21753 </span> b9/copy-to-ecx <span class="SpecialChar"><a href='mu.subx.html#L30722'>Primitives</a></span>/imm32 +<span id="L21754" class="LineNr">21754 </span> { +<span id="L21755" class="LineNr">21755 </span><span class="Constant">$has-primitive-name?:loop</span>: +<span id="L21756" class="LineNr">21756 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L21757" class="LineNr">21757 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L21758" class="LineNr">21758 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21759" class="LineNr">21759 </span> <span class="subxComment"># if (primitive->name == name) return true</span> +<span id="L21760" class="LineNr">21760 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> +<span id="L21761" class="LineNr">21761 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L21762" class="LineNr">21762 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L21763" class="LineNr">21763 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21764" class="LineNr">21764 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi %eax) <span class="subxComment"># => eax</span> +<span id="L21765" class="LineNr">21765 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21766" class="LineNr">21766 </span> 75/jump-if-!= $has-primitive-name?:end/disp8 +<span id="L21767" class="LineNr">21767 </span><span class="Constant">$has-primitive-name?:next-primitive</span>: +<span id="L21768" class="LineNr">21768 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L21769" class="LineNr">21769 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> +<span id="L21770" class="LineNr">21770 </span> 89/<- %ecx 0/r32/eax +<span id="L21771" class="LineNr">21771 </span> <span class="subxComment">#</span> +<span id="L21772" class="LineNr">21772 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21773" class="LineNr">21773 </span> } +<span id="L21774" class="LineNr">21774 </span> <span class="subxComment"># return null</span> +<span id="L21775" class="LineNr">21775 </span> b8/copy-to-eax 0/imm32 +<span id="L21776" class="LineNr">21776 </span><span class="Constant">$has-primitive-name?:end</span>: +<span id="L21777" class="LineNr">21777 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21778" class="LineNr">21778 </span> 5e/pop-to-esi +<span id="L21779" class="LineNr">21779 </span> 59/pop-to-ecx +<span id="L21780" class="LineNr">21780 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21781" class="LineNr">21781 </span> 89/<- %esp 5/r32/ebp +<span id="L21782" class="LineNr">21782 </span> 5d/pop-to-ebp +<span id="L21783" class="LineNr">21783 </span> c3/return +<span id="L21784" class="LineNr">21784 </span> +<span id="L21785" class="LineNr">21785 </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="L21786" class="LineNr">21786 </span> <span class="subxS1Comment"># . prologue</span> <span id="L21787" class="LineNr">21787 </span> 55/push-ebp <span id="L21788" class="LineNr">21788 </span> 89/<- %ebp 4/r32/esp <span id="L21789" class="LineNr">21789 </span> <span class="subxS1Comment"># . save registers</span> <span id="L21790" class="LineNr">21790 </span> 50/push-eax <span id="L21791" class="LineNr">21791 </span> 51/push-ecx -<span id="L21792" class="LineNr">21792 </span> 56/push-esi -<span id="L21793" class="LineNr">21793 </span> <span class="subxComment"># esi = stmt</span> -<span id="L21794" class="LineNr">21794 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21795" class="LineNr">21795 </span> <span class="subxComment"># var gas/ecx: int = 2</span> -<span id="L21796" class="LineNr">21796 </span> b9/copy-to-ecx 2/imm32 -<span id="L21797" class="LineNr">21797 </span> <span class="subxH1Comment"># - check at most 1 output</span> -<span id="L21798" class="LineNr">21798 </span> <span class="subxComment"># var output/eax: (addr stmt-var) = stmt->outputs</span> -<span id="L21799" class="LineNr">21799 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L21800" class="LineNr">21800 </span> { -<span id="L21801" class="LineNr">21801 </span> 3d/compare-eax-and 0/imm32 -<span id="L21802" class="LineNr">21802 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21803" class="LineNr">21803 </span><span class="Constant">$check-mu-numberlike-primitive:output</span>: -<span id="L21804" class="LineNr">21804 </span> (<a href='mu.subx.html#L21925'>check-mu-numberlike-output</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21805" class="LineNr">21805 </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="L21806" class="LineNr">21806 </span> 3d/compare-eax-and 0/imm32 -<span id="L21807" class="LineNr">21807 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-outputs/disp32 -<span id="L21808" class="LineNr">21808 </span> <span class="subxComment"># check output is in a register</span> -<span id="L21809" class="LineNr">21809 </span> <span class="subxComment"># --gas</span> -<span id="L21810" class="LineNr">21810 </span> 49/decrement-ecx +<span id="L21792" class="LineNr">21792 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> +<span id="L21793" class="LineNr">21793 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21794" class="LineNr">21794 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L21795" class="LineNr">21795 </span> 89/<- %ecx 0/r32/eax +<span id="L21796" class="LineNr">21796 </span> <span class="subxComment"># if (op == "copy") check-mu-copy-stmt</span> +<span id="L21797" class="LineNr">21797 </span> { +<span id="L21798" class="LineNr">21798 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy"</span>) <span class="subxComment"># => eax</span> +<span id="L21799" class="LineNr">21799 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21800" class="LineNr">21800 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21801" class="LineNr">21801 </span> (<a href='mu.subx.html#L22204'>check-mu-copy-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21802" class="LineNr">21802 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21803" class="LineNr">21803 </span> } +<span id="L21804" class="LineNr">21804 </span> <span class="subxComment"># if (op == "copy-to") check-mu-copy-to-stmt</span> +<span id="L21805" class="LineNr">21805 </span> { +<span id="L21806" class="LineNr">21806 </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="L21807" class="LineNr">21807 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21808" class="LineNr">21808 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21809" class="LineNr">21809 </span> (<a href='mu.subx.html#L22423'>check-mu-copy-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21810" class="LineNr">21810 </span> e9/jump $check-mu-primitive:end/disp32 <span id="L21811" class="LineNr">21811 </span> } -<span id="L21812" class="LineNr">21812 </span> <span class="subxH1Comment"># - check first inout</span> -<span id="L21813" class="LineNr">21813 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L21814" class="LineNr">21814 </span> { -<span id="L21815" class="LineNr">21815 </span> 3d/compare-eax-and 0/imm32 -<span id="L21816" class="LineNr">21816 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:end/disp32 -<span id="L21817" class="LineNr">21817 </span><span class="Constant">$check-mu-numberlike-primitive:first-inout</span>: -<span id="L21818" class="LineNr">21818 </span> (<a href='mu.subx.html#L21874'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21819" class="LineNr">21819 </span> <span class="subxComment"># --gas</span> -<span id="L21820" class="LineNr">21820 </span> 49/decrement-ecx -<span id="L21821" class="LineNr">21821 </span> } -<span id="L21822" class="LineNr">21822 </span> <span class="subxH1Comment"># - check second inout</span> -<span id="L21823" class="LineNr">21823 </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="L21824" class="LineNr">21824 </span> { -<span id="L21825" class="LineNr">21825 </span> 3d/compare-eax-and 0/imm32 -<span id="L21826" class="LineNr">21826 </span> 74/jump-if-= $check-mu-numberlike-primitive:end/disp8 -<span id="L21827" class="LineNr">21827 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout</span>: -<span id="L21828" class="LineNr">21828 </span> <span class="subxComment"># is a second inout allowed?</span> -<span id="L21829" class="LineNr">21829 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L21830" class="LineNr">21830 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 -<span id="L21831" class="LineNr">21831 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout-permitted</span>: -<span id="L21832" class="LineNr">21832 </span> (<a href='mu.subx.html#L21874'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21833" class="LineNr">21833 </span> } -<span id="L21834" class="LineNr">21834 </span><span class="Constant">$check-mu-numberlike-primitive:third-inout</span>: -<span id="L21835" class="LineNr">21835 </span> <span class="subxComment"># if there's a third arg, raise an error</span> -<span id="L21836" class="LineNr">21836 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> -<span id="L21837" class="LineNr">21837 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 -<span id="L21838" class="LineNr">21838 </span><span class="Constant">$check-mu-numberlike-primitive:end</span>: -<span id="L21839" class="LineNr">21839 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21840" class="LineNr">21840 </span> 5e/pop-to-esi -<span id="L21841" class="LineNr">21841 </span> 59/pop-to-ecx -<span id="L21842" class="LineNr">21842 </span> 58/pop-to-eax -<span id="L21843" class="LineNr">21843 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21844" class="LineNr">21844 </span> 89/<- %esp 5/r32/ebp -<span id="L21845" class="LineNr">21845 </span> 5d/pop-to-ebp -<span id="L21846" class="LineNr">21846 </span> c3/return -<span id="L21847" class="LineNr">21847 </span> -<span id="L21848" class="LineNr">21848 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-inouts</span>: -<span id="L21849" class="LineNr">21849 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21850" class="LineNr">21850 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21851" class="LineNr">21851 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21852" class="LineNr">21852 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21853" class="LineNr">21853 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) -<span id="L21854" class="LineNr">21854 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21855" class="LineNr">21855 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21856" class="LineNr">21856 </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="L21857" class="LineNr">21857 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21858" class="LineNr">21858 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21859" class="LineNr">21859 </span> <span class="subxComment"># never gets here</span> -<span id="L21860" class="LineNr">21860 </span> -<span id="L21861" class="LineNr">21861 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-outputs</span>: -<span id="L21862" class="LineNr">21862 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21863" class="LineNr">21863 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21864" class="LineNr">21864 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21865" class="LineNr">21865 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21866" class="LineNr">21866 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) -<span id="L21867" class="LineNr">21867 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21868" class="LineNr">21868 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21869" class="LineNr">21869 </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="L21870" class="LineNr">21870 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21871" class="LineNr">21871 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21872" class="LineNr">21872 </span> <span class="subxComment"># never gets here</span> -<span id="L21873" class="LineNr">21873 </span> -<span id="L21874" class="LineNr">21874 </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="L21875" class="LineNr">21875 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21876" class="LineNr">21876 </span> 55/push-ebp -<span id="L21877" class="LineNr">21877 </span> 89/<- %ebp 4/r32/esp -<span id="L21878" class="LineNr">21878 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21879" class="LineNr">21879 </span> 50/push-eax -<span id="L21880" class="LineNr">21880 </span> 56/push-esi -<span id="L21881" class="LineNr">21881 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> -<span id="L21882" class="LineNr">21882 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21883" class="LineNr">21883 </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="L21884" class="LineNr">21884 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21885" class="LineNr">21885 </span> 89/<- %esi 0/r32/eax -<span id="L21886" class="LineNr">21886 </span><span class="Constant">$check-mu-numberlike-arg:check-literal</span>: -<span id="L21887" class="LineNr">21887 </span> <span class="subxComment"># if t is an int, return</span> -<span id="L21888" class="LineNr">21888 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %esi 0) <span class="subxComment"># literal => eax</span> -<span id="L21889" class="LineNr">21889 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21890" class="LineNr">21890 </span> 0f 85/jump-if-!= $check-mu-numberlike-arg:end/disp32 -<span id="L21891" class="LineNr">21891 </span><span class="Constant">$check-mu-numberlike-arg:check-addr</span>: -<span id="L21892" class="LineNr">21892 </span> <span class="subxComment"># if t is an addr and v is dereferenced, return whether t->payload is an addr</span> +<span id="L21812" class="LineNr">21812 </span> <span class="subxComment"># if (op == "copy-byte") check-mu-copy-byte-stmt</span> +<span id="L21813" class="LineNr">21813 </span> { +<span id="L21814" class="LineNr">21814 </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="L21815" class="LineNr">21815 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21816" class="LineNr">21816 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21817" class="LineNr">21817 </span> (<a href='mu.subx.html#L22624'>check-mu-copy-byte-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21818" class="LineNr">21818 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21819" class="LineNr">21819 </span> } +<span id="L21820" class="LineNr">21820 </span> <span class="subxComment"># if (op == "copy-byte-to") check-mu-copy-byte-to-stmt</span> +<span id="L21821" class="LineNr">21821 </span> { +<span id="L21822" class="LineNr">21822 </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="L21823" class="LineNr">21823 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21824" class="LineNr">21824 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21825" class="LineNr">21825 </span> (<a href='mu.subx.html#L22795'>check-mu-copy-byte-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21826" class="LineNr">21826 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21827" class="LineNr">21827 </span> } +<span id="L21828" class="LineNr">21828 </span> <span class="subxComment"># if (op == "compare") check-mu-compare-stmt</span> +<span id="L21829" class="LineNr">21829 </span> { +<span id="L21830" class="LineNr">21830 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"compare"</span>) <span class="subxComment"># => eax</span> +<span id="L21831" class="LineNr">21831 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21832" class="LineNr">21832 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21833" class="LineNr">21833 </span> (<a href='mu.subx.html#L22947'>check-mu-compare-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21834" class="LineNr">21834 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21835" class="LineNr">21835 </span> } +<span id="L21836" class="LineNr">21836 </span> <span class="subxComment"># if (op == "address") check-mu-address-stmt</span> +<span id="L21837" class="LineNr">21837 </span> { +<span id="L21838" class="LineNr">21838 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"address"</span>) <span class="subxComment"># => eax</span> +<span id="L21839" class="LineNr">21839 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21840" class="LineNr">21840 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21841" class="LineNr">21841 </span> (<a href='mu.subx.html#L23170'>check-mu-address-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21842" class="LineNr">21842 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21843" class="LineNr">21843 </span> } +<span id="L21844" class="LineNr">21844 </span> <span class="subxComment"># if (op == "return") check-mu-return-stmt</span> +<span id="L21845" class="LineNr">21845 </span> { +<span id="L21846" class="LineNr">21846 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> +<span id="L21847" class="LineNr">21847 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21848" class="LineNr">21848 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21849" class="LineNr">21849 </span> (<a href='mu.subx.html#L23414'>check-mu-return-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21850" class="LineNr">21850 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21851" class="LineNr">21851 </span> } +<span id="L21852" class="LineNr">21852 </span> <span class="subxComment"># if (op == "get") check-mu-get-stmt</span> +<span id="L21853" class="LineNr">21853 </span> { +<span id="L21854" class="LineNr">21854 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L21855" class="LineNr">21855 </span> 3d/compare-eax-and 0/imm32/false +<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='mu.subx.html#L23890'>check-mu-get-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21858" class="LineNr">21858 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21859" class="LineNr">21859 </span> } +<span id="L21860" class="LineNr">21860 </span> <span class="subxComment"># if (op == "index") check-mu-index-stmt</span> +<span id="L21861" class="LineNr">21861 </span> { +<span id="L21862" class="LineNr">21862 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> +<span id="L21863" class="LineNr">21863 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21864" class="LineNr">21864 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21865" class="LineNr">21865 </span> (<a href='mu.subx.html#L24185'>check-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21866" class="LineNr">21866 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21867" class="LineNr">21867 </span> } +<span id="L21868" class="LineNr">21868 </span> <span class="subxComment"># if (op == "length") check-mu-length-stmt</span> +<span id="L21869" class="LineNr">21869 </span> { +<span id="L21870" class="LineNr">21870 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> +<span id="L21871" class="LineNr">21871 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21872" class="LineNr">21872 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21873" class="LineNr">21873 </span> (<a href='mu.subx.html#L24568'>check-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21874" class="LineNr">21874 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21875" class="LineNr">21875 </span> } +<span id="L21876" class="LineNr">21876 </span> <span class="subxComment"># if (op == "compute-offset") check-mu-compute-offset-stmt</span> +<span id="L21877" class="LineNr">21877 </span> { +<span id="L21878" class="LineNr">21878 </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="L21879" class="LineNr">21879 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21880" class="LineNr">21880 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21881" class="LineNr">21881 </span> (<a href='mu.subx.html#L24858'>check-mu-compute-offset-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21882" class="LineNr">21882 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21883" class="LineNr">21883 </span> } +<span id="L21884" class="LineNr">21884 </span> <span class="subxComment"># if (op == "copy-object") check-mu-copy-object-stmt</span> +<span id="L21885" class="LineNr">21885 </span> { +<span id="L21886" class="LineNr">21886 </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="L21887" class="LineNr">21887 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21888" class="LineNr">21888 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21889" class="LineNr">21889 </span> (<a href='mu.subx.html#L25146'>check-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21890" class="LineNr">21890 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21891" class="LineNr">21891 </span> } +<span id="L21892" class="LineNr">21892 </span> <span class="subxComment"># if (op == "clear-object") check-mu-clear-object-stmt</span> <span id="L21893" class="LineNr">21893 </span> { -<span id="L21894" class="LineNr">21894 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> +<span id="L21894" class="LineNr">21894 </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="L21895" class="LineNr">21895 </span> 3d/compare-eax-and 0/imm32/false <span id="L21896" class="LineNr">21896 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21897" class="LineNr">21897 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21898" class="LineNr">21898 </span> 8b/-> *(eax+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L21899" class="LineNr">21899 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21900" class="LineNr">21900 </span> { -<span id="L21901" class="LineNr">21901 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21902" class="LineNr">21902 </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="L21903" class="LineNr">21903 </span> <span class="subxComment"># if t->right is null, t = t->left</span> -<span id="L21904" class="LineNr">21904 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L21905" class="LineNr">21905 </span> { -<span id="L21906" class="LineNr">21906 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21907" class="LineNr">21907 </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="L21908" class="LineNr">21908 </span> } -<span id="L21909" class="LineNr">21909 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %eax) <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> 74/jump-if-= $check-mu-numberlike-arg:end/disp8 -<span id="L21912" class="LineNr">21912 </span> } -<span id="L21913" class="LineNr">21913 </span> } -<span id="L21914" class="LineNr">21914 </span><span class="Constant">$check-mu-numberlike-arg:output-checks</span>: -<span id="L21915" class="LineNr">21915 </span> (<a href='mu.subx.html#L21925'>check-mu-numberlike-output</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) -<span id="L21916" class="LineNr">21916 </span><span class="Constant">$check-mu-numberlike-arg:end</span>: -<span id="L21917" class="LineNr">21917 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21918" class="LineNr">21918 </span> 5e/pop-to-esi -<span id="L21919" class="LineNr">21919 </span> 58/pop-to-eax -<span id="L21920" class="LineNr">21920 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21921" class="LineNr">21921 </span> 89/<- %esp 5/r32/ebp -<span id="L21922" class="LineNr">21922 </span> 5d/pop-to-ebp -<span id="L21923" class="LineNr">21923 </span> c3/return -<span id="L21924" class="LineNr">21924 </span> -<span id="L21925" class="LineNr">21925 </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="L21926" class="LineNr">21926 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21927" class="LineNr">21927 </span> 55/push-ebp -<span id="L21928" class="LineNr">21928 </span> 89/<- %ebp 4/r32/esp -<span id="L21929" class="LineNr">21929 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21930" class="LineNr">21930 </span> 50/push-eax -<span id="L21931" class="LineNr">21931 </span> <span class="subxComment">#</span> -<span id="L21932" class="LineNr">21932 </span> (<a href='mu.subx.html#L21963'>mu-numberlike-output-var?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L21933" class="LineNr">21933 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21934" class="LineNr">21934 </span> 0f 84/jump-if-= $check-mu-numberlike-output:fail/disp32 -<span id="L21935" class="LineNr">21935 </span><span class="Constant">$check-mu-numberlike-output:end</span>: -<span id="L21936" class="LineNr">21936 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21937" class="LineNr">21937 </span> 58/pop-to-eax -<span id="L21938" class="LineNr">21938 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21939" class="LineNr">21939 </span> 89/<- %esp 5/r32/ebp -<span id="L21940" class="LineNr">21940 </span> 5d/pop-to-ebp -<span id="L21941" class="LineNr">21941 </span> c3/return -<span id="L21942" class="LineNr">21942 </span> -<span id="L21943" class="LineNr">21943 </span><span class="Constant">$check-mu-numberlike-output:fail</span>: -<span id="L21944" class="LineNr">21944 </span> <span class="subxComment"># otherwise raise an error</span> -<span id="L21945" class="LineNr">21945 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L21946" class="LineNr">21946 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L21947" class="LineNr">21947 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21948" class="LineNr">21948 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L21949" class="LineNr">21949 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": stmt "</span>) -<span id="L21950" class="LineNr">21950 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21951" class="LineNr">21951 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21952" class="LineNr">21952 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L21953" class="LineNr">21953 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": '"</span>) -<span id="L21954" class="LineNr">21954 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21955" class="LineNr">21955 </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="L21956" class="LineNr">21956 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21957" class="LineNr">21957 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L21958" class="LineNr">21958 </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="L21959" class="LineNr">21959 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L21960" class="LineNr">21960 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L21961" class="LineNr">21961 </span> <span class="subxComment"># never gets here</span> -<span id="L21962" class="LineNr">21962 </span> -<span id="L21963" class="LineNr">21963 </span><span class="subxFunction">mu-numberlike-output-var?</span>: <span class="subxComment"># v: (addr stmt-var) -> result/eax: boolean</span> -<span id="L21964" class="LineNr">21964 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21965" class="LineNr">21965 </span> 55/push-ebp -<span id="L21966" class="LineNr">21966 </span> 89/<- %ebp 4/r32/esp -<span id="L21967" class="LineNr">21967 </span> <span class="subxComment">#</span> -<span id="L21968" class="LineNr">21968 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21969" class="LineNr">21969 </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="L21970" class="LineNr">21970 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21971" class="LineNr">21971 </span> (<a href='mu.subx.html#L21978'>mu-numberlike-output?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L21972" class="LineNr">21972 </span><span class="Constant">$mu-numberlike-output-var?:end</span>: -<span id="L21973" class="LineNr">21973 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21974" class="LineNr">21974 </span> 89/<- %esp 5/r32/ebp -<span id="L21975" class="LineNr">21975 </span> 5d/pop-to-ebp -<span id="L21976" class="LineNr">21976 </span> c3/return -<span id="L21977" class="LineNr">21977 </span> -<span id="L21978" class="LineNr">21978 </span><span class="subxFunction">mu-numberlike-output?</span>: <span class="subxComment"># v: (addr type-tree) -> result/eax: boolean</span> -<span id="L21979" class="LineNr">21979 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21980" class="LineNr">21980 </span> 55/push-ebp -<span id="L21981" class="LineNr">21981 </span> 89/<- %ebp 4/r32/esp -<span id="L21982" class="LineNr">21982 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21983" class="LineNr">21983 </span> 56/push-esi -<span id="L21984" class="LineNr">21984 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> -<span id="L21985" class="LineNr">21985 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21986" class="LineNr">21986 </span><span class="Constant">$mu-numberlike-output?:check-int</span>: -<span id="L21987" class="LineNr">21987 </span> <span class="subxComment"># if t is an int, return</span> -<span id="L21988" class="LineNr">21988 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %esi 1) <span class="subxComment"># int => eax</span> -<span id="L21989" class="LineNr">21989 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21990" class="LineNr">21990 </span> 0f 85/jump-if-!= $mu-numberlike-output?:return-true/disp32 -<span id="L21991" class="LineNr">21991 </span><span class="Constant">$mu-numberlike-output?:check-float</span>: -<span id="L21992" class="LineNr">21992 </span> <span class="subxComment"># if t is a float, return</span> -<span id="L21993" class="LineNr">21993 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %esi 0xf) <span class="subxComment"># float => eax</span> -<span id="L21994" class="LineNr">21994 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21995" class="LineNr">21995 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 -<span id="L21996" class="LineNr">21996 </span><span class="Constant">$mu-numberlike-output?:check-boolean</span>: -<span id="L21997" class="LineNr">21997 </span> <span class="subxComment"># if t is a boolean, return</span> -<span id="L21998" class="LineNr">21998 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %esi 5) <span class="subxComment"># boolean => eax</span> -<span id="L21999" class="LineNr">21999 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22000" class="LineNr">22000 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 -<span id="L22001" class="LineNr">22001 </span><span class="Constant">$mu-numberlike-output?:check-byte</span>: -<span id="L22002" class="LineNr">22002 </span> <span class="subxComment"># if t is a byte, return</span> -<span id="L22003" class="LineNr">22003 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %esi 8) <span class="subxComment"># byte => eax</span> -<span id="L22004" class="LineNr">22004 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22005" class="LineNr">22005 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 -<span id="L22006" class="LineNr">22006 </span><span class="Constant">$mu-numberlike-output?:check-code-point</span>: -<span id="L22007" class="LineNr">22007 </span> <span class="subxComment"># if t is a code-point, return</span> -<span id="L22008" class="LineNr">22008 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %esi 0xd) <span class="subxComment"># code-point => eax</span> -<span id="L22009" class="LineNr">22009 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22010" class="LineNr">22010 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 -<span id="L22011" class="LineNr">22011 </span><span class="Constant">$mu-numberlike-output?:check-grapheme</span>: -<span id="L22012" class="LineNr">22012 </span> <span class="subxComment"># if t is a grapheme, return</span> -<span id="L22013" class="LineNr">22013 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %esi 0xe) <span class="subxComment"># grapheme => eax</span> -<span id="L22014" class="LineNr">22014 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22015" class="LineNr">22015 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 -<span id="L22016" class="LineNr">22016 </span><span class="Constant">$mu-numberlike-output?:return-false</span>: -<span id="L22017" class="LineNr">22017 </span> b8/copy-to-eax 0/imm32/false -<span id="L22018" class="LineNr">22018 </span> eb/jump $mu-numberlike-output?:end/disp8 -<span id="L22019" class="LineNr">22019 </span><span class="Constant">$mu-numberlike-output?:return-true</span>: -<span id="L22020" class="LineNr">22020 </span> b8/copy-to-eax 1/imm32/true -<span id="L22021" class="LineNr">22021 </span><span class="Constant">$mu-numberlike-output?:end</span>: -<span id="L22022" class="LineNr">22022 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22023" class="LineNr">22023 </span> 5e/pop-to-esi -<span id="L22024" class="LineNr">22024 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22025" class="LineNr">22025 </span> 89/<- %esp 5/r32/ebp -<span id="L22026" class="LineNr">22026 </span> 5d/pop-to-ebp -<span id="L22027" class="LineNr">22027 </span> c3/return -<span id="L22028" class="LineNr">22028 </span> -<span id="L22029" class="LineNr">22029 </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="L22030" class="LineNr">22030 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22031" class="LineNr">22031 </span> 55/push-ebp -<span id="L22032" class="LineNr">22032 </span> 89/<- %ebp 4/r32/esp -<span id="L22033" class="LineNr">22033 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22034" class="LineNr">22034 </span> 50/push-eax -<span id="L22035" class="LineNr">22035 </span> 51/push-ecx -<span id="L22036" class="LineNr">22036 </span> 52/push-edx -<span id="L22037" class="LineNr">22037 </span> 56/push-esi -<span id="L22038" class="LineNr">22038 </span> 57/push-edi -<span id="L22039" class="LineNr">22039 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L22040" class="LineNr">22040 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L22041" class="LineNr">22041 </span> 68/push 0x60/imm32/size -<span id="L22042" class="LineNr">22042 </span> 68/push 0/imm32/read -<span id="L22043" class="LineNr">22043 </span> 68/push 0/imm32/write -<span id="L22044" class="LineNr">22044 </span> 89/<- %edx 4/r32/esp -<span id="L22045" class="LineNr">22045 </span><span class="Constant">$check-mu-copy-stmt:get-output</span>: -<span id="L22046" class="LineNr">22046 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22047" class="LineNr">22047 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22048" class="LineNr">22048 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> -<span id="L22049" class="LineNr">22049 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22050" class="LineNr">22050 </span> 89/<- %edi 0/r32/eax -<span id="L22051" class="LineNr">22051 </span> <span class="subxComment"># zero outputs</span> -<span id="L22052" class="LineNr">22052 </span> 3d/compare-eax-and 0/imm32 -<span id="L22053" class="LineNr">22053 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-output/disp32 -<span id="L22054" class="LineNr">22054 </span> <span class="subxComment"># > 1 output</span> -<span id="L22055" class="LineNr">22055 </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="L22056" class="LineNr">22056 </span> 3d/compare-eax-and 0/imm32 -<span id="L22057" class="LineNr">22057 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-outputs/disp32 -<span id="L22058" class="LineNr">22058 </span><span class="Constant">$check-mu-copy-stmt:get-inout</span>: -<span id="L22059" class="LineNr">22059 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> -<span id="L22060" class="LineNr">22060 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22061" class="LineNr">22061 </span> 89/<- %esi 0/r32/eax -<span id="L22062" class="LineNr">22062 </span> <span class="subxComment"># zero inouts</span> -<span id="L22063" class="LineNr">22063 </span> 3d/compare-eax-and 0/imm32 -<span id="L22064" class="LineNr">22064 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-inout/disp32 -<span id="L22065" class="LineNr">22065 </span> <span class="subxComment"># > 1 inout</span> -<span id="L22066" class="LineNr">22066 </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="L22067" class="LineNr">22067 </span> 3d/compare-eax-and 0/imm32 -<span id="L22068" class="LineNr">22068 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-inouts/disp32 -<span id="L22069" class="LineNr">22069 </span><span class="Constant">$check-mu-copy-stmt:types</span>: -<span id="L22070" class="LineNr">22070 </span> <span class="subxComment"># if inout is not a scalar, abort</span> -<span id="L22071" class="LineNr">22071 </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="L22072" class="LineNr">22072 </span> (<a href='mu.subx.html#L26595'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22073" class="LineNr">22073 </span> 3d/compare-eax-and 4/imm32 -<span id="L22074" class="LineNr">22074 </span> 0f 8f/jump-if-> $check-mu-copy-stmt:error-inout-too-large/disp32 -<span id="L22075" class="LineNr">22075 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> -<span id="L22076" class="LineNr">22076 </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="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> 89/<- %ecx 0/r32/eax -<span id="L22079" class="LineNr">22079 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> -<span id="L22080" class="LineNr">22080 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22081" class="LineNr">22081 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22082" class="LineNr">22082 </span> { -<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> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22085" class="LineNr">22085 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> -<span id="L22086" class="LineNr">22086 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22087" class="LineNr">22087 </span> { -<span id="L22088" class="LineNr">22088 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22089" class="LineNr">22089 </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="L22090" class="LineNr">22090 </span> } -<span id="L22091" class="LineNr">22091 </span> 89/<- %ecx 0/r32/eax -<span id="L22092" class="LineNr">22092 </span> } -<span id="L22093" class="LineNr">22093 </span> <span class="subxComment"># if output not in register, abort</span> -<span id="L22094" class="LineNr">22094 </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="L22095" class="LineNr">22095 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22096" class="LineNr">22096 </span> 3d/compare-eax-and 0/imm32 -<span id="L22097" class="LineNr">22097 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-output-not-in-register/disp32 -<span id="L22098" class="LineNr">22098 </span> <span class="subxComment"># var output-type/eax: (addr type-tree) = output->value->type</span> -<span id="L22099" class="LineNr">22099 </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="L22100" class="LineNr">22100 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22101" class="LineNr">22101 </span> <span class="subxComment"># if (inout-type == output-type) return</span> -<span id="L22102" class="LineNr">22102 </span> (<a href='mu.subx.html#L26439'>type-match?</a> %eax %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L22103" class="LineNr">22103 </span> 3d/compare-eax-and 0/imm32 -<span id="L22104" class="LineNr">22104 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:end/disp32 -<span id="L22105" class="LineNr">22105 </span> <span class="subxComment"># if output is an addr and inout is 0, return</span> -<span id="L22106" class="LineNr">22106 </span> { -<span id="L22107" class="LineNr">22107 </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="L22108" class="LineNr">22108 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22109" class="LineNr">22109 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22110" class="LineNr">22110 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22111" class="LineNr">22111 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22112" class="LineNr">22112 </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="L22113" class="LineNr">22113 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22114" class="LineNr">22114 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L22115" class="LineNr">22115 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22116" class="LineNr">22116 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22117" class="LineNr">22117 </span> e9/jump $check-mu-copy-stmt:end/disp32 -<span id="L22118" class="LineNr">22118 </span> } -<span id="L22119" class="LineNr">22119 </span> <span class="subxComment"># if output is an offset and inout is 0, return</span> -<span id="L22120" class="LineNr">22120 </span> { -<span id="L22121" class="LineNr">22121 </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="L22122" class="LineNr">22122 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22123" class="LineNr">22123 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L22124" class="LineNr">22124 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22125" class="LineNr">22125 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22126" class="LineNr">22126 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> -<span id="L22127" class="LineNr">22127 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22128" class="LineNr">22128 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22129" class="LineNr">22129 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22130" class="LineNr">22130 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22131" class="LineNr">22131 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L22132" class="LineNr">22132 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22133" class="LineNr">22133 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22134" class="LineNr">22134 </span> e9/jump $check-mu-copy-stmt:end/disp32 -<span id="L22135" class="LineNr">22135 </span> } -<span id="L22136" class="LineNr">22136 </span> <span class="subxComment"># if output is a byte, abort if inout is not a literal. Otherwise return.</span> -<span id="L22137" class="LineNr">22137 </span> { -<span id="L22138" class="LineNr">22138 </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="L22139" class="LineNr">22139 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22140" class="LineNr">22140 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L22141" class="LineNr">22141 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22142" class="LineNr">22142 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22143" class="LineNr">22143 </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="L22144" class="LineNr">22144 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22145" class="LineNr">22145 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> -<span id="L22146" class="LineNr">22146 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22147" class="LineNr">22147 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-non-literal-to-byte/disp32 -<span id="L22148" class="LineNr">22148 </span> eb/jump $check-mu-copy-stmt:end/disp8 -<span id="L22149" class="LineNr">22149 </span> } -<span id="L22150" class="LineNr">22150 </span> <span class="subxComment"># if output is not number-like, abort</span> -<span id="L22151" class="LineNr">22151 </span> (<a href='mu.subx.html#L21925'>check-mu-numberlike-output</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L22152" class="LineNr">22152 </span><span class="Constant">$check-mu-copy-stmt:end</span>: -<span id="L22153" class="LineNr">22153 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L22154" class="LineNr">22154 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L22155" class="LineNr">22155 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22156" class="LineNr">22156 </span> 5f/pop-to-edi -<span id="L22157" class="LineNr">22157 </span> 5e/pop-to-esi -<span id="L22158" class="LineNr">22158 </span> 5a/pop-to-edx -<span id="L22159" class="LineNr">22159 </span> 59/pop-to-ecx -<span id="L22160" class="LineNr">22160 </span> 58/pop-to-eax -<span id="L22161" class="LineNr">22161 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22162" class="LineNr">22162 </span> 89/<- %esp 5/r32/ebp -<span id="L22163" class="LineNr">22163 </span> 5d/pop-to-ebp -<span id="L22164" class="LineNr">22164 </span> c3/return -<span id="L22165" class="LineNr">22165 </span> -<span id="L22166" class="LineNr">22166 </span><span class="Constant">$check-mu-copy-stmt:error-no-inout</span>: -<span id="L22167" class="LineNr">22167 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22168" class="LineNr">22168 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22169" class="LineNr">22169 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22170" class="LineNr">22170 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22171" class="LineNr">22171 </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="L22172" class="LineNr">22172 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22173" class="LineNr">22173 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22174" class="LineNr">22174 </span> <span class="subxComment"># never gets here</span> -<span id="L22175" class="LineNr">22175 </span> -<span id="L22176" class="LineNr">22176 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-inouts</span>: -<span id="L22177" class="LineNr">22177 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22178" class="LineNr">22178 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22179" class="LineNr">22179 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22180" class="LineNr">22180 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22181" class="LineNr">22181 </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="L22182" class="LineNr">22182 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22183" class="LineNr">22183 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22184" class="LineNr">22184 </span> <span class="subxComment"># never gets here</span> -<span id="L22185" class="LineNr">22185 </span> -<span id="L22186" class="LineNr">22186 </span><span class="Constant">$check-mu-copy-stmt:error-no-output</span>: -<span id="L22187" class="LineNr">22187 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22188" class="LineNr">22188 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22189" class="LineNr">22189 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22190" class="LineNr">22190 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22191" class="LineNr">22191 </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="L22192" class="LineNr">22192 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22193" class="LineNr">22193 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22194" class="LineNr">22194 </span> <span class="subxComment"># never gets here</span> -<span id="L22195" class="LineNr">22195 </span> -<span id="L22196" class="LineNr">22196 </span><span class="Constant">$check-mu-copy-stmt:error-output-not-in-register</span>: -<span id="L22197" class="LineNr">22197 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22198" class="LineNr">22198 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22199" class="LineNr">22199 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22200" class="LineNr">22200 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22201" class="LineNr">22201 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: output '"</span>) -<span id="L22202" class="LineNr">22202 </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="L22203" class="LineNr">22203 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22204" class="LineNr">22204 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22205" class="LineNr">22205 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) -<span id="L22206" class="LineNr">22206 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22207" class="LineNr">22207 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22208" class="LineNr">22208 </span> <span class="subxComment"># never gets here</span> -<span id="L22209" class="LineNr">22209 </span> -<span id="L22210" class="LineNr">22210 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-outputs</span>: -<span id="L22211" class="LineNr">22211 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22212" class="LineNr">22212 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22213" class="LineNr">22213 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22214" class="LineNr">22214 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22215" class="LineNr">22215 </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="L22216" class="LineNr">22216 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22217" class="LineNr">22217 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22218" class="LineNr">22218 </span> <span class="subxComment"># never gets here</span> -<span id="L22219" class="LineNr">22219 </span> -<span id="L22220" class="LineNr">22220 </span><span class="Constant">$check-mu-copy-stmt:error-inout-too-large</span>: -<span id="L22221" class="LineNr">22221 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22222" class="LineNr">22222 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22223" class="LineNr">22223 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22224" class="LineNr">22224 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22225" class="LineNr">22225 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: '"</span>) -<span id="L22226" class="LineNr">22226 </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="L22227" class="LineNr">22227 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22228" class="LineNr">22228 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22229" class="LineNr">22229 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is too large to fit in a register\n"</span>) -<span id="L22230" class="LineNr">22230 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22231" class="LineNr">22231 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22232" class="LineNr">22232 </span> <span class="subxComment"># never gets here</span> -<span id="L22233" class="LineNr">22233 </span> -<span id="L22234" class="LineNr">22234 </span><span class="Constant">$check-mu-copy-stmt:error-non-literal-to-byte</span>: -<span id="L22235" class="LineNr">22235 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22236" class="LineNr">22236 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22237" class="LineNr">22237 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22238" class="LineNr">22238 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22239" class="LineNr">22239 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: cannot copy non-literal to '"</span>) -<span id="L22240" class="LineNr">22240 </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="L22241" class="LineNr">22241 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22242" class="LineNr">22242 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22243" class="LineNr">22243 </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="L22244" class="LineNr">22244 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22245" class="LineNr">22245 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22246" class="LineNr">22246 </span> <span class="subxComment"># never gets here</span> -<span id="L22247" class="LineNr">22247 </span> -<span id="L22248" class="LineNr">22248 </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="L22249" class="LineNr">22249 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22250" class="LineNr">22250 </span> 55/push-ebp -<span id="L22251" class="LineNr">22251 </span> 89/<- %ebp 4/r32/esp -<span id="L22252" class="LineNr">22252 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22253" class="LineNr">22253 </span> 50/push-eax -<span id="L22254" class="LineNr">22254 </span> 51/push-ecx -<span id="L22255" class="LineNr">22255 </span> 52/push-edx -<span id="L22256" class="LineNr">22256 </span> 53/push-ebx -<span id="L22257" class="LineNr">22257 </span> 56/push-esi -<span id="L22258" class="LineNr">22258 </span> 57/push-edi -<span id="L22259" class="LineNr">22259 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L22260" class="LineNr">22260 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L22261" class="LineNr">22261 </span> 68/push 0x60/imm32/size -<span id="L22262" class="LineNr">22262 </span> 68/push 0/imm32/read -<span id="L22263" class="LineNr">22263 </span> 68/push 0/imm32/write -<span id="L22264" class="LineNr">22264 </span> 89/<- %edx 4/r32/esp -<span id="L22265" class="LineNr">22265 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22266" class="LineNr">22266 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22267" class="LineNr">22267 </span><span class="Constant">$check-mu-copy-to-stmt:check-for-output</span>: -<span id="L22268" class="LineNr">22268 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L22269" class="LineNr">22269 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22270" class="LineNr">22270 </span> 3d/compare-eax-and 0/imm32 -<span id="L22271" class="LineNr">22271 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-too-many-outputs/disp32 -<span id="L22272" class="LineNr">22272 </span><span class="Constant">$check-mu-copy-to-stmt:get-dest</span>: -<span id="L22273" class="LineNr">22273 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L22274" class="LineNr">22274 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22275" class="LineNr">22275 </span> 89/<- %edi 0/r32/eax -<span id="L22276" class="LineNr">22276 </span> <span class="subxComment"># zero inouts</span> -<span id="L22277" class="LineNr">22277 </span> 3d/compare-eax-and 0/imm32 -<span id="L22278" class="LineNr">22278 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 -<span id="L22279" class="LineNr">22279 </span><span class="Constant">$check-mu-copy-to-stmt:get-src</span>: -<span id="L22280" class="LineNr">22280 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> -<span id="L22281" class="LineNr">22281 </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="L22282" class="LineNr">22282 </span> 89/<- %esi 0/r32/eax -<span id="L22283" class="LineNr">22283 </span> <span class="subxComment"># 1 inout</span> -<span id="L22284" class="LineNr">22284 </span> 3d/compare-eax-and 0/imm32 -<span id="L22285" class="LineNr">22285 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 -<span id="L22286" class="LineNr">22286 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L22287" class="LineNr">22287 </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="L22288" class="LineNr">22288 </span> 3d/compare-eax-and 0/imm32 -<span id="L22289" class="LineNr">22289 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 -<span id="L22290" class="LineNr">22290 </span><span class="Constant">$check-mu-copy-to-stmt:types</span>: -<span id="L22291" class="LineNr">22291 </span> <span class="subxComment"># if src is not a scalar, abort</span> -<span id="L22292" class="LineNr">22292 </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="L22293" class="LineNr">22293 </span> (<a href='mu.subx.html#L26595'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22294" class="LineNr">22294 </span> 3d/compare-eax-and 4/imm32 -<span id="L22295" class="LineNr">22295 </span> 0f 8f/jump-if-> $check-mu-copy-to-stmt:error-src-too-large/disp32 -<span id="L22296" class="LineNr">22296 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> -<span id="L22297" class="LineNr">22297 </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="L22298" class="LineNr">22298 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22299" class="LineNr">22299 </span> 89/<- %ecx 0/r32/eax -<span id="L22300" class="LineNr">22300 </span> <span class="subxComment"># if src not in register or literal, abort</span> -<span id="L22301" class="LineNr">22301 </span> <span class="subxComment"># (we can't use stack-offset because it hasn't been computed yet)</span> -<span id="L22302" class="LineNr">22302 </span> { -<span id="L22303" class="LineNr">22303 </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="L22304" class="LineNr">22304 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22305" class="LineNr">22305 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L22306" class="LineNr">22306 </span> 3d/compare-eax-and 0/imm32 -<span id="L22307" class="LineNr">22307 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22308" class="LineNr">22308 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22309" class="LineNr">22309 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22310" class="LineNr">22310 </span> 3d/compare-eax-and 0/imm32 -<span id="L22311" class="LineNr">22311 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22312" class="LineNr">22312 </span> e9/jump $check-mu-copy-to-stmt:error-src-not-literal-or-in-register/disp32 -<span id="L22313" class="LineNr">22313 </span> } -<span id="L22314" class="LineNr">22314 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> -<span id="L22315" class="LineNr">22315 </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="L22316" class="LineNr">22316 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22317" class="LineNr">22317 </span> 89/<- %ebx 0/r32/eax -<span id="L22318" class="LineNr">22318 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> -<span id="L22319" class="LineNr">22319 </span><span class="Constant">$check-mu-copy-to-stmt:check-dest-deref</span>: -<span id="L22320" class="LineNr">22320 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22321" class="LineNr">22321 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22322" class="LineNr">22322 </span> { -<span id="L22323" class="LineNr">22323 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22324" class="LineNr">22324 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22325" class="LineNr">22325 </span><span class="Constant">$check-mu-copy-to-stmt:dest-is-deref</span>: -<span id="L22326" class="LineNr">22326 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> -<span id="L22327" class="LineNr">22327 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22328" class="LineNr">22328 </span> { -<span id="L22329" class="LineNr">22329 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22330" class="LineNr">22330 </span><span class="Constant">$check-mu-copy-to-stmt:dest-is-deref2</span>: -<span id="L22331" class="LineNr">22331 </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="L22332" class="LineNr">22332 </span> } -<span id="L22333" class="LineNr">22333 </span> 89/<- %ebx 0/r32/eax -<span id="L22334" class="LineNr">22334 </span> } -<span id="L22335" class="LineNr">22335 </span> <span class="subxComment"># if dest is a byte and src is not a literal, abort</span> -<span id="L22336" class="LineNr">22336 </span> { -<span id="L22337" class="LineNr">22337 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-byte</span>: -<span id="L22338" class="LineNr">22338 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ebx 8) <span class="subxComment"># byte => eax</span> -<span id="L22339" class="LineNr">22339 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22340" class="LineNr">22340 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22341" class="LineNr">22341 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ecx 0) <span class="subxComment"># literal => eax</span> -<span id="L22342" class="LineNr">22342 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22343" class="LineNr">22343 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-non-literal-to-byte/disp32 -<span id="L22344" class="LineNr">22344 </span> } -<span id="L22345" class="LineNr">22345 </span> <span class="subxComment"># if (src-type == dest-type) return</span> -<span id="L22346" class="LineNr">22346 </span> (<a href='mu.subx.html#L26439'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L22347" class="LineNr">22347 </span> 3d/compare-eax-and 0/imm32 -<span id="L22348" class="LineNr">22348 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:end/disp32 -<span id="L22349" class="LineNr">22349 </span> <span class="subxComment"># if dest is an addr and src is 0, return</span> -<span id="L22350" class="LineNr">22350 </span> { -<span id="L22351" class="LineNr">22351 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-addr</span>: -<span id="L22352" class="LineNr">22352 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L22353" class="LineNr">22353 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22354" class="LineNr">22354 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22355" class="LineNr">22355 </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="L22356" class="LineNr">22356 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22357" class="LineNr">22357 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L22358" class="LineNr">22358 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22359" class="LineNr">22359 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22360" class="LineNr">22360 </span> e9/jump $check-mu-copy-to-stmt:end/disp32 -<span id="L22361" class="LineNr">22361 </span> } -<span id="L22362" class="LineNr">22362 </span> <span class="subxComment"># if dest is an offset and src is 0, return</span> -<span id="L22363" class="LineNr">22363 </span> { -<span id="L22364" class="LineNr">22364 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-offset</span>: -<span id="L22365" class="LineNr">22365 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L22366" class="LineNr">22366 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22367" class="LineNr">22367 </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="L22368" class="LineNr">22368 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> -<span id="L22369" class="LineNr">22369 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22370" class="LineNr">22370 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22371" class="LineNr">22371 </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="L22372" class="LineNr">22372 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22373" class="LineNr">22373 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L22374" class="LineNr">22374 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22375" class="LineNr">22375 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22376" class="LineNr">22376 </span> e9/jump $check-mu-copy-to-stmt:end/disp32 -<span id="L22377" class="LineNr">22377 </span> } -<span id="L22378" class="LineNr">22378 </span> <span class="subxComment"># if dest is not number-like, abort</span> -<span id="L22379" class="LineNr">22379 </span> (<a href='mu.subx.html#L21874'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L22380" class="LineNr">22380 </span><span class="Constant">$check-mu-copy-to-stmt:end</span>: -<span id="L22381" class="LineNr">22381 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L22382" class="LineNr">22382 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L22383" class="LineNr">22383 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22384" class="LineNr">22384 </span> 5f/pop-to-edi -<span id="L22385" class="LineNr">22385 </span> 5e/pop-to-esi -<span id="L22386" class="LineNr">22386 </span> 5b/pop-to-ebx -<span id="L22387" class="LineNr">22387 </span> 5a/pop-to-edx -<span id="L22388" class="LineNr">22388 </span> 59/pop-to-ecx -<span id="L22389" class="LineNr">22389 </span> 58/pop-to-eax -<span id="L22390" class="LineNr">22390 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22391" class="LineNr">22391 </span> 89/<- %esp 5/r32/ebp -<span id="L22392" class="LineNr">22392 </span> 5d/pop-to-ebp -<span id="L22393" class="LineNr">22393 </span> c3/return +<span id="L21897" class="LineNr">21897 </span> (<a href='mu.subx.html#L25268'>check-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21898" class="LineNr">21898 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21899" class="LineNr">21899 </span> } +<span id="L21900" class="LineNr">21900 </span> <span class="subxComment"># if (op == "allocate") check-mu-allocate-stmt</span> +<span id="L21901" class="LineNr">21901 </span> { +<span id="L21902" class="LineNr">21902 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> +<span id="L21903" class="LineNr">21903 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21904" class="LineNr">21904 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21905" class="LineNr">21905 </span> (<a href='mu.subx.html#L25362'>check-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21906" class="LineNr">21906 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21907" class="LineNr">21907 </span> } +<span id="L21908" class="LineNr">21908 </span> <span class="subxComment"># if (op == "populate") check-mu-populate-stmt</span> +<span id="L21909" class="LineNr">21909 </span> { +<span id="L21910" class="LineNr">21910 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> +<span id="L21911" class="LineNr">21911 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21912" class="LineNr">21912 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21913" class="LineNr">21913 </span> (<a href='mu.subx.html#L25466'>check-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21914" class="LineNr">21914 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21915" class="LineNr">21915 </span> } +<span id="L21916" class="LineNr">21916 </span> <span class="subxComment"># if (op == "populate-stream") check-mu-populate-stream-stmt</span> +<span id="L21917" class="LineNr">21917 </span> { +<span id="L21918" class="LineNr">21918 </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="L21919" class="LineNr">21919 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21920" class="LineNr">21920 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21921" class="LineNr">21921 </span> (<a href='mu.subx.html#L25616'>check-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21922" class="LineNr">21922 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21923" class="LineNr">21923 </span> } +<span id="L21924" class="LineNr">21924 </span> <span class="subxComment"># if (op == "read-from-stream") check-mu-read-from-stream-stmt</span> +<span id="L21925" class="LineNr">21925 </span> { +<span id="L21926" class="LineNr">21926 </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="L21927" class="LineNr">21927 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21928" class="LineNr">21928 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21929" class="LineNr">21929 </span> (<a href='mu.subx.html#L25766'>check-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21930" class="LineNr">21930 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21931" class="LineNr">21931 </span> } +<span id="L21932" class="LineNr">21932 </span> <span class="subxComment"># if (op == "write-to-stream") check-mu-write-to-stream-stmt</span> +<span id="L21933" class="LineNr">21933 </span> { +<span id="L21934" class="LineNr">21934 </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="L21935" class="LineNr">21935 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21936" class="LineNr">21936 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21937" class="LineNr">21937 </span> (<a href='mu.subx.html#L25933'>check-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21938" class="LineNr">21938 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21939" class="LineNr">21939 </span> } +<span id="L21940" class="LineNr">21940 </span> <span class="subxComment"># if (op == "convert") check-mu-convert-stmt</span> +<span id="L21941" class="LineNr">21941 </span> { +<span id="L21942" class="LineNr">21942 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"convert"</span>) <span class="subxComment"># => eax</span> +<span id="L21943" class="LineNr">21943 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21944" class="LineNr">21944 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21945" class="LineNr">21945 </span> (<a href='mu.subx.html#L26100'>check-mu-convert-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21946" class="LineNr">21946 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21947" class="LineNr">21947 </span> } +<span id="L21948" class="LineNr">21948 </span> <span class="subxComment"># otherwise check-numberlike-stmt</span> +<span id="L21949" class="LineNr">21949 </span> (<a href='mu.subx.html#L21960'>check-mu-numberlike-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21950" class="LineNr">21950 </span><span class="Constant">$check-mu-primitive:end</span>: +<span id="L21951" class="LineNr">21951 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21952" class="LineNr">21952 </span> 59/pop-to-ecx +<span id="L21953" class="LineNr">21953 </span> 58/pop-to-eax +<span id="L21954" class="LineNr">21954 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21955" class="LineNr">21955 </span> 89/<- %esp 5/r32/ebp +<span id="L21956" class="LineNr">21956 </span> 5d/pop-to-ebp +<span id="L21957" class="LineNr">21957 </span> c3/return +<span id="L21958" class="LineNr">21958 </span> +<span id="L21959" class="LineNr">21959 </span><span class="subxComment"># by default, Mu primitives should only operate on 'number-like' types</span> +<span id="L21960" class="LineNr">21960 </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="L21961" class="LineNr">21961 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21962" class="LineNr">21962 </span> 55/push-ebp +<span id="L21963" class="LineNr">21963 </span> 89/<- %ebp 4/r32/esp +<span id="L21964" class="LineNr">21964 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21965" class="LineNr">21965 </span> 50/push-eax +<span id="L21966" class="LineNr">21966 </span> 51/push-ecx +<span id="L21967" class="LineNr">21967 </span> 56/push-esi +<span id="L21968" class="LineNr">21968 </span> <span class="subxComment"># esi = stmt</span> +<span id="L21969" class="LineNr">21969 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21970" class="LineNr">21970 </span> <span class="subxComment"># var gas/ecx: int = 2</span> +<span id="L21971" class="LineNr">21971 </span> b9/copy-to-ecx 2/imm32 +<span id="L21972" class="LineNr">21972 </span> <span class="subxH1Comment"># - check at most 1 output</span> +<span id="L21973" class="LineNr">21973 </span> <span class="subxComment"># var output/eax: (addr stmt-var) = stmt->outputs</span> +<span id="L21974" class="LineNr">21974 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L21975" class="LineNr">21975 </span> { +<span id="L21976" class="LineNr">21976 </span> 3d/compare-eax-and 0/imm32 +<span id="L21977" class="LineNr">21977 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21978" class="LineNr">21978 </span><span class="Constant">$check-mu-numberlike-primitive:output</span>: +<span id="L21979" class="LineNr">21979 </span> (<a href='mu.subx.html#L22100'>check-mu-numberlike-output</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21980" class="LineNr">21980 </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="L21981" class="LineNr">21981 </span> 3d/compare-eax-and 0/imm32 +<span id="L21982" class="LineNr">21982 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-outputs/disp32 +<span id="L21983" class="LineNr">21983 </span> <span class="subxComment"># check output is in a register</span> +<span id="L21984" class="LineNr">21984 </span> <span class="subxComment"># --gas</span> +<span id="L21985" class="LineNr">21985 </span> 49/decrement-ecx +<span id="L21986" class="LineNr">21986 </span> } +<span id="L21987" class="LineNr">21987 </span> <span class="subxH1Comment"># - check first inout</span> +<span id="L21988" class="LineNr">21988 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L21989" class="LineNr">21989 </span> { +<span id="L21990" class="LineNr">21990 </span> 3d/compare-eax-and 0/imm32 +<span id="L21991" class="LineNr">21991 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:end/disp32 +<span id="L21992" class="LineNr">21992 </span><span class="Constant">$check-mu-numberlike-primitive:first-inout</span>: +<span id="L21993" class="LineNr">21993 </span> (<a href='mu.subx.html#L22049'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21994" class="LineNr">21994 </span> <span class="subxComment"># --gas</span> +<span id="L21995" class="LineNr">21995 </span> 49/decrement-ecx +<span id="L21996" class="LineNr">21996 </span> } +<span id="L21997" class="LineNr">21997 </span> <span class="subxH1Comment"># - check second inout</span> +<span id="L21998" class="LineNr">21998 </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="L21999" class="LineNr">21999 </span> { +<span id="L22000" class="LineNr">22000 </span> 3d/compare-eax-and 0/imm32 +<span id="L22001" class="LineNr">22001 </span> 74/jump-if-= $check-mu-numberlike-primitive:end/disp8 +<span id="L22002" class="LineNr">22002 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout</span>: +<span id="L22003" class="LineNr">22003 </span> <span class="subxComment"># is a second inout allowed?</span> +<span id="L22004" class="LineNr">22004 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L22005" class="LineNr">22005 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 +<span id="L22006" class="LineNr">22006 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout-permitted</span>: +<span id="L22007" class="LineNr">22007 </span> (<a href='mu.subx.html#L22049'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L22008" class="LineNr">22008 </span> } +<span id="L22009" class="LineNr">22009 </span><span class="Constant">$check-mu-numberlike-primitive:third-inout</span>: +<span id="L22010" class="LineNr">22010 </span> <span class="subxComment"># if there's a third arg, raise an error</span> +<span id="L22011" class="LineNr">22011 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> +<span id="L22012" class="LineNr">22012 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 +<span id="L22013" class="LineNr">22013 </span><span class="Constant">$check-mu-numberlike-primitive:end</span>: +<span id="L22014" class="LineNr">22014 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22015" class="LineNr">22015 </span> 5e/pop-to-esi +<span id="L22016" class="LineNr">22016 </span> 59/pop-to-ecx +<span id="L22017" class="LineNr">22017 </span> 58/pop-to-eax +<span id="L22018" class="LineNr">22018 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22019" class="LineNr">22019 </span> 89/<- %esp 5/r32/ebp +<span id="L22020" class="LineNr">22020 </span> 5d/pop-to-ebp +<span id="L22021" class="LineNr">22021 </span> c3/return +<span id="L22022" class="LineNr">22022 </span> +<span id="L22023" class="LineNr">22023 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-inouts</span>: +<span id="L22024" class="LineNr">22024 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22025" class="LineNr">22025 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22026" class="LineNr">22026 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22027" class="LineNr">22027 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22028" class="LineNr">22028 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) +<span id="L22029" class="LineNr">22029 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L22030" class="LineNr">22030 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22031" class="LineNr">22031 </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="L22032" class="LineNr">22032 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22033" class="LineNr">22033 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22034" class="LineNr">22034 </span> <span class="subxComment"># never gets here</span> +<span id="L22035" class="LineNr">22035 </span> +<span id="L22036" class="LineNr">22036 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-outputs</span>: +<span id="L22037" class="LineNr">22037 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22038" class="LineNr">22038 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22039" class="LineNr">22039 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22040" class="LineNr">22040 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22041" class="LineNr">22041 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) +<span id="L22042" class="LineNr">22042 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L22043" class="LineNr">22043 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22044" class="LineNr">22044 </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="L22045" class="LineNr">22045 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22046" class="LineNr">22046 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22047" class="LineNr">22047 </span> <span class="subxComment"># never gets here</span> +<span id="L22048" class="LineNr">22048 </span> +<span id="L22049" class="LineNr">22049 </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="L22050" class="LineNr">22050 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22051" class="LineNr">22051 </span> 55/push-ebp +<span id="L22052" class="LineNr">22052 </span> 89/<- %ebp 4/r32/esp +<span id="L22053" class="LineNr">22053 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22054" class="LineNr">22054 </span> 50/push-eax +<span id="L22055" class="LineNr">22055 </span> 56/push-esi +<span id="L22056" class="LineNr">22056 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> +<span id="L22057" class="LineNr">22057 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L22058" class="LineNr">22058 </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="L22059" class="LineNr">22059 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22060" class="LineNr">22060 </span> 89/<- %esi 0/r32/eax +<span id="L22061" class="LineNr">22061 </span><span class="Constant">$check-mu-numberlike-arg:check-literal</span>: +<span id="L22062" class="LineNr">22062 </span> <span class="subxComment"># if t is an int, return</span> +<span id="L22063" class="LineNr">22063 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %esi 0) <span class="subxComment"># literal => eax</span> +<span id="L22064" class="LineNr">22064 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22065" class="LineNr">22065 </span> 0f 85/jump-if-!= $check-mu-numberlike-arg:end/disp32 +<span id="L22066" class="LineNr">22066 </span><span class="Constant">$check-mu-numberlike-arg:check-addr</span>: +<span id="L22067" class="LineNr">22067 </span> <span class="subxComment"># if t is an addr and v is dereferenced, return whether t->payload is an addr</span> +<span id="L22068" class="LineNr">22068 </span> { +<span id="L22069" class="LineNr">22069 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %esi) <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> 8b/-> *(ebp+8) 0/r32/eax +<span id="L22073" class="LineNr">22073 </span> 8b/-> *(eax+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22074" class="LineNr">22074 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22075" class="LineNr">22075 </span> { +<span id="L22076" class="LineNr">22076 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22077" class="LineNr">22077 </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="L22078" class="LineNr">22078 </span> <span class="subxComment"># if t->right is null, t = t->left</span> +<span id="L22079" class="LineNr">22079 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22080" class="LineNr">22080 </span> { +<span id="L22081" class="LineNr">22081 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22082" class="LineNr">22082 </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="L22083" class="LineNr">22083 </span> } +<span id="L22084" class="LineNr">22084 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22085" class="LineNr">22085 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22086" class="LineNr">22086 </span> 74/jump-if-= $check-mu-numberlike-arg:end/disp8 +<span id="L22087" class="LineNr">22087 </span> } +<span id="L22088" class="LineNr">22088 </span> } +<span id="L22089" class="LineNr">22089 </span><span class="Constant">$check-mu-numberlike-arg:output-checks</span>: +<span id="L22090" class="LineNr">22090 </span> (<a href='mu.subx.html#L22100'>check-mu-numberlike-output</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) +<span id="L22091" class="LineNr">22091 </span><span class="Constant">$check-mu-numberlike-arg:end</span>: +<span id="L22092" class="LineNr">22092 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22093" class="LineNr">22093 </span> 5e/pop-to-esi +<span id="L22094" class="LineNr">22094 </span> 58/pop-to-eax +<span id="L22095" class="LineNr">22095 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22096" class="LineNr">22096 </span> 89/<- %esp 5/r32/ebp +<span id="L22097" class="LineNr">22097 </span> 5d/pop-to-ebp +<span id="L22098" class="LineNr">22098 </span> c3/return +<span id="L22099" class="LineNr">22099 </span> +<span id="L22100" class="LineNr">22100 </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="L22101" class="LineNr">22101 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22102" class="LineNr">22102 </span> 55/push-ebp +<span id="L22103" class="LineNr">22103 </span> 89/<- %ebp 4/r32/esp +<span id="L22104" class="LineNr">22104 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22105" class="LineNr">22105 </span> 50/push-eax +<span id="L22106" class="LineNr">22106 </span> <span class="subxComment">#</span> +<span id="L22107" class="LineNr">22107 </span> (<a href='mu.subx.html#L22138'>mu-numberlike-output-var?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L22108" class="LineNr">22108 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22109" class="LineNr">22109 </span> 0f 84/jump-if-= $check-mu-numberlike-output:fail/disp32 +<span id="L22110" class="LineNr">22110 </span><span class="Constant">$check-mu-numberlike-output:end</span>: +<span id="L22111" class="LineNr">22111 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22112" class="LineNr">22112 </span> 58/pop-to-eax +<span id="L22113" class="LineNr">22113 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22114" class="LineNr">22114 </span> 89/<- %esp 5/r32/ebp +<span id="L22115" class="LineNr">22115 </span> 5d/pop-to-ebp +<span id="L22116" class="LineNr">22116 </span> c3/return +<span id="L22117" class="LineNr">22117 </span> +<span id="L22118" class="LineNr">22118 </span><span class="Constant">$check-mu-numberlike-output:fail</span>: +<span id="L22119" class="LineNr">22119 </span> <span class="subxComment"># otherwise raise an error</span> +<span id="L22120" class="LineNr">22120 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L22121" class="LineNr">22121 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L22122" class="LineNr">22122 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22123" class="LineNr">22123 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L22124" class="LineNr">22124 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": stmt "</span>) +<span id="L22125" class="LineNr">22125 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22126" class="LineNr">22126 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L22127" class="LineNr">22127 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L22128" class="LineNr">22128 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": '"</span>) +<span id="L22129" class="LineNr">22129 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L22130" class="LineNr">22130 </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="L22131" class="LineNr">22131 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22132" class="LineNr">22132 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L22133" class="LineNr">22133 </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="L22134" class="LineNr">22134 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L22135" class="LineNr">22135 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L22136" class="LineNr">22136 </span> <span class="subxComment"># never gets here</span> +<span id="L22137" class="LineNr">22137 </span> +<span id="L22138" class="LineNr">22138 </span><span class="subxFunction">mu-numberlike-output-var?</span>: <span class="subxComment"># v: (addr stmt-var) -> result/eax: boolean</span> +<span id="L22139" class="LineNr">22139 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22140" class="LineNr">22140 </span> 55/push-ebp +<span id="L22141" class="LineNr">22141 </span> 89/<- %ebp 4/r32/esp +<span id="L22142" class="LineNr">22142 </span> <span class="subxComment">#</span> +<span id="L22143" class="LineNr">22143 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L22144" class="LineNr">22144 </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="L22145" class="LineNr">22145 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22146" class="LineNr">22146 </span> (<a href='mu.subx.html#L22153'>mu-numberlike-output?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22147" class="LineNr">22147 </span><span class="Constant">$mu-numberlike-output-var?:end</span>: +<span id="L22148" class="LineNr">22148 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22149" class="LineNr">22149 </span> 89/<- %esp 5/r32/ebp +<span id="L22150" class="LineNr">22150 </span> 5d/pop-to-ebp +<span id="L22151" class="LineNr">22151 </span> c3/return +<span id="L22152" class="LineNr">22152 </span> +<span id="L22153" class="LineNr">22153 </span><span class="subxFunction">mu-numberlike-output?</span>: <span class="subxComment"># v: (addr type-tree) -> result/eax: boolean</span> +<span id="L22154" class="LineNr">22154 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22155" class="LineNr">22155 </span> 55/push-ebp +<span id="L22156" class="LineNr">22156 </span> 89/<- %ebp 4/r32/esp +<span id="L22157" class="LineNr">22157 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22158" class="LineNr">22158 </span> 56/push-esi +<span id="L22159" class="LineNr">22159 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> +<span id="L22160" class="LineNr">22160 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22161" class="LineNr">22161 </span><span class="Constant">$mu-numberlike-output?:check-int</span>: +<span id="L22162" class="LineNr">22162 </span> <span class="subxComment"># if t is an int, return</span> +<span id="L22163" class="LineNr">22163 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %esi 1) <span class="subxComment"># int => eax</span> +<span id="L22164" class="LineNr">22164 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22165" class="LineNr">22165 </span> 0f 85/jump-if-!= $mu-numberlike-output?:return-true/disp32 +<span id="L22166" class="LineNr">22166 </span><span class="Constant">$mu-numberlike-output?:check-float</span>: +<span id="L22167" class="LineNr">22167 </span> <span class="subxComment"># if t is a float, return</span> +<span id="L22168" class="LineNr">22168 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %esi 0xf) <span class="subxComment"># float => eax</span> +<span id="L22169" class="LineNr">22169 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22170" class="LineNr">22170 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 +<span id="L22171" class="LineNr">22171 </span><span class="Constant">$mu-numberlike-output?:check-boolean</span>: +<span id="L22172" class="LineNr">22172 </span> <span class="subxComment"># if t is a boolean, return</span> +<span id="L22173" class="LineNr">22173 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %esi 5) <span class="subxComment"># boolean => eax</span> +<span id="L22174" class="LineNr">22174 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22175" class="LineNr">22175 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 +<span id="L22176" class="LineNr">22176 </span><span class="Constant">$mu-numberlike-output?:check-byte</span>: +<span id="L22177" class="LineNr">22177 </span> <span class="subxComment"># if t is a byte, return</span> +<span id="L22178" class="LineNr">22178 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %esi 8) <span class="subxComment"># byte => eax</span> +<span id="L22179" class="LineNr">22179 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22180" class="LineNr">22180 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 +<span id="L22181" class="LineNr">22181 </span><span class="Constant">$mu-numberlike-output?:check-code-point</span>: +<span id="L22182" class="LineNr">22182 </span> <span class="subxComment"># if t is a code-point, return</span> +<span id="L22183" class="LineNr">22183 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %esi 0xd) <span class="subxComment"># code-point => eax</span> +<span id="L22184" class="LineNr">22184 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22185" class="LineNr">22185 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 +<span id="L22186" class="LineNr">22186 </span><span class="Constant">$mu-numberlike-output?:check-code-point-utf8</span>: +<span id="L22187" class="LineNr">22187 </span> <span class="subxComment"># if t is a code-point-utf8, return</span> +<span id="L22188" class="LineNr">22188 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %esi 0xe) <span class="subxComment"># code-point-utf8 => eax</span> +<span id="L22189" class="LineNr">22189 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22190" class="LineNr">22190 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 +<span id="L22191" class="LineNr">22191 </span><span class="Constant">$mu-numberlike-output?:return-false</span>: +<span id="L22192" class="LineNr">22192 </span> b8/copy-to-eax 0/imm32/false +<span id="L22193" class="LineNr">22193 </span> eb/jump $mu-numberlike-output?:end/disp8 +<span id="L22194" class="LineNr">22194 </span><span class="Constant">$mu-numberlike-output?:return-true</span>: +<span id="L22195" class="LineNr">22195 </span> b8/copy-to-eax 1/imm32/true +<span id="L22196" class="LineNr">22196 </span><span class="Constant">$mu-numberlike-output?:end</span>: +<span id="L22197" class="LineNr">22197 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22198" class="LineNr">22198 </span> 5e/pop-to-esi +<span id="L22199" class="LineNr">22199 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22200" class="LineNr">22200 </span> 89/<- %esp 5/r32/ebp +<span id="L22201" class="LineNr">22201 </span> 5d/pop-to-ebp +<span id="L22202" class="LineNr">22202 </span> c3/return +<span id="L22203" class="LineNr">22203 </span> +<span id="L22204" class="LineNr">22204 </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="L22205" class="LineNr">22205 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22206" class="LineNr">22206 </span> 55/push-ebp +<span id="L22207" class="LineNr">22207 </span> 89/<- %ebp 4/r32/esp +<span id="L22208" class="LineNr">22208 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22209" class="LineNr">22209 </span> 50/push-eax +<span id="L22210" class="LineNr">22210 </span> 51/push-ecx +<span id="L22211" class="LineNr">22211 </span> 52/push-edx +<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="Constant">$check-mu-copy-stmt:get-output</span>: +<span id="L22221" class="LineNr">22221 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22222" class="LineNr">22222 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22223" class="LineNr">22223 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</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> 89/<- %edi 0/r32/eax +<span id="L22226" class="LineNr">22226 </span> <span class="subxComment"># zero outputs</span> +<span id="L22227" class="LineNr">22227 </span> 3d/compare-eax-and 0/imm32 +<span id="L22228" class="LineNr">22228 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-output/disp32 +<span id="L22229" class="LineNr">22229 </span> <span class="subxComment"># > 1 output</span> +<span id="L22230" class="LineNr">22230 </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="L22231" class="LineNr">22231 </span> 3d/compare-eax-and 0/imm32 +<span id="L22232" class="LineNr">22232 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-outputs/disp32 +<span id="L22233" class="LineNr">22233 </span><span class="Constant">$check-mu-copy-stmt:get-inout</span>: +<span id="L22234" class="LineNr">22234 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> +<span id="L22235" class="LineNr">22235 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22236" class="LineNr">22236 </span> 89/<- %esi 0/r32/eax +<span id="L22237" class="LineNr">22237 </span> <span class="subxComment"># zero inouts</span> +<span id="L22238" class="LineNr">22238 </span> 3d/compare-eax-and 0/imm32 +<span id="L22239" class="LineNr">22239 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-inout/disp32 +<span id="L22240" class="LineNr">22240 </span> <span class="subxComment"># > 1 inout</span> +<span id="L22241" class="LineNr">22241 </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="L22242" class="LineNr">22242 </span> 3d/compare-eax-and 0/imm32 +<span id="L22243" class="LineNr">22243 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-inouts/disp32 +<span id="L22244" class="LineNr">22244 </span><span class="Constant">$check-mu-copy-stmt:types</span>: +<span id="L22245" class="LineNr">22245 </span> <span class="subxComment"># if inout is not a scalar, abort</span> +<span id="L22246" class="LineNr">22246 </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="L22247" class="LineNr">22247 </span> (<a href='mu.subx.html#L26770'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22248" class="LineNr">22248 </span> 3d/compare-eax-and 4/imm32 +<span id="L22249" class="LineNr">22249 </span> 0f 8f/jump-if-> $check-mu-copy-stmt:error-inout-too-large/disp32 +<span id="L22250" class="LineNr">22250 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> +<span id="L22251" class="LineNr">22251 </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="L22252" class="LineNr">22252 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22253" class="LineNr">22253 </span> 89/<- %ecx 0/r32/eax +<span id="L22254" class="LineNr">22254 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> +<span id="L22255" class="LineNr">22255 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22256" class="LineNr">22256 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22257" class="LineNr">22257 </span> { +<span id="L22258" class="LineNr">22258 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22259" class="LineNr">22259 </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="L22260" class="LineNr">22260 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> +<span id="L22261" class="LineNr">22261 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22262" class="LineNr">22262 </span> { +<span id="L22263" class="LineNr">22263 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22264" class="LineNr">22264 </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="L22265" class="LineNr">22265 </span> } +<span id="L22266" class="LineNr">22266 </span> 89/<- %ecx 0/r32/eax +<span id="L22267" class="LineNr">22267 </span> } +<span id="L22268" class="LineNr">22268 </span> <span class="subxComment"># if output not in register, abort</span> +<span id="L22269" class="LineNr">22269 </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="L22270" class="LineNr">22270 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22271" class="LineNr">22271 </span> 3d/compare-eax-and 0/imm32 +<span id="L22272" class="LineNr">22272 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-output-not-in-register/disp32 +<span id="L22273" class="LineNr">22273 </span> <span class="subxComment"># var output-type/eax: (addr type-tree) = output->value->type</span> +<span id="L22274" class="LineNr">22274 </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="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> <span class="subxComment"># if (inout-type == output-type) return</span> +<span id="L22277" class="LineNr">22277 </span> (<a href='mu.subx.html#L26614'>type-match?</a> %eax %ecx %edx) <span class="subxComment"># => eax</span> +<span id="L22278" class="LineNr">22278 </span> 3d/compare-eax-and 0/imm32 +<span id="L22279" class="LineNr">22279 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:end/disp32 +<span id="L22280" class="LineNr">22280 </span> <span class="subxComment"># if output is an addr and inout is 0, return</span> +<span id="L22281" class="LineNr">22281 </span> { +<span id="L22282" class="LineNr">22282 </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="L22283" class="LineNr">22283 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22284" class="LineNr">22284 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22285" class="LineNr">22285 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22286" class="LineNr">22286 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22287" class="LineNr">22287 </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="L22288" class="LineNr">22288 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22289" class="LineNr">22289 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L22290" class="LineNr">22290 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22291" class="LineNr">22291 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22292" class="LineNr">22292 </span> e9/jump $check-mu-copy-stmt:end/disp32 +<span id="L22293" class="LineNr">22293 </span> } +<span id="L22294" class="LineNr">22294 </span> <span class="subxComment"># if output is an offset and inout is 0, return</span> +<span id="L22295" class="LineNr">22295 </span> { +<span id="L22296" class="LineNr">22296 </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="L22297" class="LineNr">22297 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22298" class="LineNr">22298 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L22299" class="LineNr">22299 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22300" class="LineNr">22300 </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="L22301" class="LineNr">22301 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> +<span id="L22302" class="LineNr">22302 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22303" class="LineNr">22303 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22304" class="LineNr">22304 </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="L22305" class="LineNr">22305 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22306" class="LineNr">22306 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L22307" class="LineNr">22307 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22308" class="LineNr">22308 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22309" class="LineNr">22309 </span> e9/jump $check-mu-copy-stmt:end/disp32 +<span id="L22310" class="LineNr">22310 </span> } +<span id="L22311" class="LineNr">22311 </span> <span class="subxComment"># if output is a byte, abort if inout is not a literal. Otherwise return.</span> +<span id="L22312" class="LineNr">22312 </span> { +<span id="L22313" class="LineNr">22313 </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="L22314" class="LineNr">22314 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22315" class="LineNr">22315 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 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='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22319" class="LineNr">22319 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22320" class="LineNr">22320 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> +<span id="L22321" class="LineNr">22321 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22322" class="LineNr">22322 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-non-literal-to-byte/disp32 +<span id="L22323" class="LineNr">22323 </span> eb/jump $check-mu-copy-stmt:end/disp8 +<span id="L22324" class="LineNr">22324 </span> } +<span id="L22325" class="LineNr">22325 </span> <span class="subxComment"># if output is not number-like, abort</span> +<span id="L22326" class="LineNr">22326 </span> (<a href='mu.subx.html#L22100'>check-mu-numberlike-output</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L22327" class="LineNr">22327 </span><span class="Constant">$check-mu-copy-stmt:end</span>: +<span id="L22328" class="LineNr">22328 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L22329" class="LineNr">22329 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L22330" class="LineNr">22330 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22331" class="LineNr">22331 </span> 5f/pop-to-edi +<span id="L22332" class="LineNr">22332 </span> 5e/pop-to-esi +<span id="L22333" class="LineNr">22333 </span> 5a/pop-to-edx +<span id="L22334" class="LineNr">22334 </span> 59/pop-to-ecx +<span id="L22335" class="LineNr">22335 </span> 58/pop-to-eax +<span id="L22336" class="LineNr">22336 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22337" class="LineNr">22337 </span> 89/<- %esp 5/r32/ebp +<span id="L22338" class="LineNr">22338 </span> 5d/pop-to-ebp +<span id="L22339" class="LineNr">22339 </span> c3/return +<span id="L22340" class="LineNr">22340 </span> +<span id="L22341" class="LineNr">22341 </span><span class="Constant">$check-mu-copy-stmt:error-no-inout</span>: +<span id="L22342" class="LineNr">22342 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22343" class="LineNr">22343 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22344" class="LineNr">22344 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22345" class="LineNr">22345 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22346" class="LineNr">22346 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy' expects an inout\n"</span>) +<span id="L22347" class="LineNr">22347 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22348" class="LineNr">22348 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22349" class="LineNr">22349 </span> <span class="subxComment"># never gets here</span> +<span id="L22350" class="LineNr">22350 </span> +<span id="L22351" class="LineNr">22351 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-inouts</span>: +<span id="L22352" class="LineNr">22352 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22353" class="LineNr">22353 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22354" class="LineNr">22354 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22355" class="LineNr">22355 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22356" class="LineNr">22356 </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="L22357" class="LineNr">22357 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22358" class="LineNr">22358 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22359" class="LineNr">22359 </span> <span class="subxComment"># never gets here</span> +<span id="L22360" class="LineNr">22360 </span> +<span id="L22361" class="LineNr">22361 </span><span class="Constant">$check-mu-copy-stmt:error-no-output</span>: +<span id="L22362" class="LineNr">22362 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22363" class="LineNr">22363 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22364" class="LineNr">22364 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22365" class="LineNr">22365 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22366" class="LineNr">22366 </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="L22367" class="LineNr">22367 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22368" class="LineNr">22368 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22369" class="LineNr">22369 </span> <span class="subxComment"># never gets here</span> +<span id="L22370" class="LineNr">22370 </span> +<span id="L22371" class="LineNr">22371 </span><span class="Constant">$check-mu-copy-stmt:error-output-not-in-register</span>: +<span id="L22372" class="LineNr">22372 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22373" class="LineNr">22373 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22374" class="LineNr">22374 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22375" class="LineNr">22375 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22376" class="LineNr">22376 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: output '"</span>) +<span id="L22377" class="LineNr">22377 </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="L22378" class="LineNr">22378 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22379" class="LineNr">22379 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22380" class="LineNr">22380 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) +<span id="L22381" class="LineNr">22381 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22382" class="LineNr">22382 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22383" class="LineNr">22383 </span> <span class="subxComment"># never gets here</span> +<span id="L22384" class="LineNr">22384 </span> +<span id="L22385" class="LineNr">22385 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-outputs</span>: +<span id="L22386" class="LineNr">22386 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22387" class="LineNr">22387 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22388" class="LineNr">22388 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22389" class="LineNr">22389 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22390" class="LineNr">22390 </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="L22391" class="LineNr">22391 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22392" class="LineNr">22392 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22393" class="LineNr">22393 </span> <span class="subxComment"># never gets here</span> <span id="L22394" class="LineNr">22394 </span> -<span id="L22395" class="LineNr">22395 </span><span class="Constant">$check-mu-copy-to-stmt:error-incorrect-inouts</span>: +<span id="L22395" class="LineNr">22395 </span><span class="Constant">$check-mu-copy-stmt:error-inout-too-large</span>: <span id="L22396" class="LineNr">22396 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) <span id="L22397" class="LineNr">22397 </span> 8b/-> *(ebp+0xc) 0/r32/eax <span id="L22398" class="LineNr">22398 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> <span id="L22399" class="LineNr">22399 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22400" class="LineNr">22400 </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="L22401" class="LineNr">22401 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22402" class="LineNr">22402 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22403" class="LineNr">22403 </span> <span class="subxComment"># never gets here</span> -<span id="L22404" class="LineNr">22404 </span> -<span id="L22405" class="LineNr">22405 </span><span class="Constant">$check-mu-copy-to-stmt:error-too-many-outputs</span>: -<span id="L22406" class="LineNr">22406 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22407" class="LineNr">22407 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22408" class="LineNr">22408 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22409" class="LineNr">22409 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22410" class="LineNr">22410 </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="L22411" class="LineNr">22411 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22412" class="LineNr">22412 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22413" class="LineNr">22413 </span> <span class="subxComment"># never gets here</span> -<span id="L22414" class="LineNr">22414 </span> -<span id="L22415" class="LineNr">22415 </span><span class="Constant">$check-mu-copy-to-stmt:error-src-not-literal-or-in-register</span>: -<span id="L22416" class="LineNr">22416 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22417" class="LineNr">22417 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22418" class="LineNr">22418 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22419" class="LineNr">22419 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22420" class="LineNr">22420 </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="L22421" class="LineNr">22421 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22422" class="LineNr">22422 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22423" class="LineNr">22423 </span> <span class="subxComment"># never gets here</span> -<span id="L22424" class="LineNr">22424 </span> -<span id="L22425" class="LineNr">22425 </span><span class="Constant">$check-mu-copy-to-stmt:error-src-too-large</span>: -<span id="L22426" class="LineNr">22426 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22427" class="LineNr">22427 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22428" class="LineNr">22428 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22429" class="LineNr">22429 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22430" class="LineNr">22430 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: '"</span>) -<span id="L22431" class="LineNr">22431 </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="L22432" class="LineNr">22432 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22433" class="LineNr">22433 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22434" class="LineNr">22434 </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="L22435" class="LineNr">22435 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22436" class="LineNr">22436 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22437" class="LineNr">22437 </span> <span class="subxComment"># never gets here</span> -<span id="L22438" class="LineNr">22438 </span> -<span id="L22439" class="LineNr">22439 </span><span class="Constant">$check-mu-copy-to-stmt:error-non-literal-to-byte</span>: -<span id="L22440" class="LineNr">22440 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22441" class="LineNr">22441 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22442" class="LineNr">22442 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22443" class="LineNr">22443 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22444" class="LineNr">22444 </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="L22445" class="LineNr">22445 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22446" class="LineNr">22446 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22447" class="LineNr">22447 </span> <span class="subxComment"># never gets here</span> -<span id="L22448" class="LineNr">22448 </span> -<span id="L22449" class="LineNr">22449 </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="L22450" class="LineNr">22450 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22451" class="LineNr">22451 </span> 55/push-ebp -<span id="L22452" class="LineNr">22452 </span> 89/<- %ebp 4/r32/esp -<span id="L22453" class="LineNr">22453 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22454" class="LineNr">22454 </span> 50/push-eax -<span id="L22455" class="LineNr">22455 </span> 51/push-ecx -<span id="L22456" class="LineNr">22456 </span> 52/push-edx -<span id="L22457" class="LineNr">22457 </span> 56/push-esi -<span id="L22458" class="LineNr">22458 </span> 57/push-edi -<span id="L22459" class="LineNr">22459 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L22460" class="LineNr">22460 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L22461" class="LineNr">22461 </span> 68/push 0x60/imm32/size -<span id="L22462" class="LineNr">22462 </span> 68/push 0/imm32/read -<span id="L22463" class="LineNr">22463 </span> 68/push 0/imm32/write -<span id="L22464" class="LineNr">22464 </span> 89/<- %edx 4/r32/esp -<span id="L22465" class="LineNr">22465 </span><span class="Constant">$check-mu-copy-byte-stmt:get-output</span>: -<span id="L22466" class="LineNr">22466 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22467" class="LineNr">22467 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22468" class="LineNr">22468 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> -<span id="L22469" class="LineNr">22469 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22470" class="LineNr">22470 </span> 89/<- %edi 0/r32/eax -<span id="L22471" class="LineNr">22471 </span> <span class="subxComment"># zero outputs</span> -<span id="L22472" class="LineNr">22472 </span> 3d/compare-eax-and 0/imm32 -<span id="L22473" class="LineNr">22473 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-no-output/disp32 -<span id="L22474" class="LineNr">22474 </span> <span class="subxComment"># > 1 output</span> -<span id="L22475" class="LineNr">22475 </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="L22476" class="LineNr">22476 </span> 3d/compare-eax-and 0/imm32 -<span id="L22477" class="LineNr">22477 </span> 0f 85/jump-if-!= $check-mu-copy-byte-stmt:error-too-many-outputs/disp32 -<span id="L22478" class="LineNr">22478 </span><span class="Constant">$check-mu-copy-byte-stmt:get-inout</span>: -<span id="L22479" class="LineNr">22479 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> -<span id="L22480" class="LineNr">22480 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22481" class="LineNr">22481 </span> 89/<- %esi 0/r32/eax -<span id="L22482" class="LineNr">22482 </span> <span class="subxComment"># zero inouts</span> -<span id="L22483" class="LineNr">22483 </span> 3d/compare-eax-and 0/imm32 -<span id="L22484" class="LineNr">22484 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-no-inout/disp32 -<span id="L22485" class="LineNr">22485 </span> <span class="subxComment"># > 1 inout</span> -<span id="L22486" class="LineNr">22486 </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="L22487" class="LineNr">22487 </span> 3d/compare-eax-and 0/imm32 -<span id="L22488" class="LineNr">22488 </span> 0f 85/jump-if-!= $check-mu-copy-byte-stmt:error-too-many-inouts/disp32 -<span id="L22489" class="LineNr">22489 </span><span class="Constant">$check-mu-copy-byte-stmt:types</span>: -<span id="L22490" class="LineNr">22490 </span> <span class="subxComment"># if inout is not a scalar, abort</span> -<span id="L22491" class="LineNr">22491 </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="L22492" class="LineNr">22492 </span> (<a href='mu.subx.html#L26595'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22493" class="LineNr">22493 </span> 3d/compare-eax-and 4/imm32 -<span id="L22494" class="LineNr">22494 </span> 0f 8f/jump-if-> $check-mu-copy-byte-stmt:error-inout-too-large/disp32 -<span id="L22495" class="LineNr">22495 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> -<span id="L22496" class="LineNr">22496 </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="L22497" class="LineNr">22497 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22498" class="LineNr">22498 </span> 89/<- %ecx 0/r32/eax -<span id="L22499" class="LineNr">22499 </span><span class="Constant">$check-mu-copy-byte-stmt:check-inout-deref</span>: -<span id="L22500" class="LineNr">22500 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> -<span id="L22501" class="LineNr">22501 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22502" class="LineNr">22502 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22503" class="LineNr">22503 </span> { -<span id="L22504" class="LineNr">22504 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22505" class="LineNr">22505 </span><span class="Constant">$check-mu-copy-byte-stmt:inout-is-deref</span>: -<span id="L22506" class="LineNr">22506 </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="L22507" class="LineNr">22507 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> -<span id="L22508" class="LineNr">22508 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22509" class="LineNr">22509 </span> { -<span id="L22510" class="LineNr">22510 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22511" class="LineNr">22511 </span><span class="Constant">$check-mu-copy-byte-stmt:inout-is-deref2</span>: -<span id="L22512" class="LineNr">22512 </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="L22513" class="LineNr">22513 </span> } -<span id="L22514" class="LineNr">22514 </span> 89/<- %ecx 0/r32/eax -<span id="L22515" class="LineNr">22515 </span> } -<span id="L22516" class="LineNr">22516 </span> <span class="subxComment"># if output not in register, abort</span> -<span id="L22517" class="LineNr">22517 </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="L22518" class="LineNr">22518 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22519" class="LineNr">22519 </span> 3d/compare-eax-and 0/imm32 -<span id="L22520" class="LineNr">22520 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-output-not-in-register/disp32 -<span id="L22521" class="LineNr">22521 </span> <span class="subxComment"># var output-type/eax: (addr type-tree) = output->value->type</span> -<span id="L22522" class="LineNr">22522 </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="L22523" class="LineNr">22523 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22524" class="LineNr">22524 </span> <span class="subxComment"># if output is not of type byte, abort</span> -<span id="L22525" class="LineNr">22525 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L22526" class="LineNr">22526 </span> 3d/compare-eax-and 0/imm32 -<span id="L22527" class="LineNr">22527 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-invalid-output-type/disp32 -<span id="L22528" class="LineNr">22528 </span><span class="Constant">$check-mu-copy-byte-stmt:end</span>: -<span id="L22529" class="LineNr">22529 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L22530" class="LineNr">22530 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L22531" class="LineNr">22531 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22532" class="LineNr">22532 </span> 5f/pop-to-edi -<span id="L22533" class="LineNr">22533 </span> 5e/pop-to-esi -<span id="L22534" class="LineNr">22534 </span> 5a/pop-to-edx -<span id="L22535" class="LineNr">22535 </span> 59/pop-to-ecx -<span id="L22536" class="LineNr">22536 </span> 58/pop-to-eax -<span id="L22537" class="LineNr">22537 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22538" class="LineNr">22538 </span> 89/<- %esp 5/r32/ebp -<span id="L22539" class="LineNr">22539 </span> 5d/pop-to-ebp -<span id="L22540" class="LineNr">22540 </span> c3/return -<span id="L22541" class="LineNr">22541 </span> -<span id="L22542" class="LineNr">22542 </span><span class="Constant">$check-mu-copy-byte-stmt:error-no-inout</span>: -<span id="L22543" class="LineNr">22543 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22544" class="LineNr">22544 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22545" class="LineNr">22545 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22546" class="LineNr">22546 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22547" class="LineNr">22547 </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="L22548" class="LineNr">22548 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22549" class="LineNr">22549 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22550" class="LineNr">22550 </span> <span class="subxComment"># never gets here</span> -<span id="L22551" class="LineNr">22551 </span> -<span id="L22552" class="LineNr">22552 </span><span class="Constant">$check-mu-copy-byte-stmt:error-too-many-inouts</span>: -<span id="L22553" class="LineNr">22553 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22554" class="LineNr">22554 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22555" class="LineNr">22555 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22556" class="LineNr">22556 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22557" class="LineNr">22557 </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="L22558" class="LineNr">22558 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22559" class="LineNr">22559 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22560" class="LineNr">22560 </span> <span class="subxComment"># never gets here</span> -<span id="L22561" class="LineNr">22561 </span> -<span id="L22562" class="LineNr">22562 </span><span class="Constant">$check-mu-copy-byte-stmt:error-no-output</span>: -<span id="L22563" class="LineNr">22563 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22564" class="LineNr">22564 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22565" class="LineNr">22565 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22566" class="LineNr">22566 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22567" class="LineNr">22567 </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="L22568" class="LineNr">22568 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22569" class="LineNr">22569 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22570" class="LineNr">22570 </span> <span class="subxComment"># never gets here</span> -<span id="L22571" class="LineNr">22571 </span> -<span id="L22572" class="LineNr">22572 </span><span class="Constant">$check-mu-copy-byte-stmt:error-output-not-in-register</span>: -<span id="L22573" class="LineNr">22573 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22574" class="LineNr">22574 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22575" class="LineNr">22575 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22576" class="LineNr">22576 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22577" class="LineNr">22577 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte: output '"</span>) -<span id="L22578" class="LineNr">22578 </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="L22579" class="LineNr">22579 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22580" class="LineNr">22580 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22581" class="LineNr">22581 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) -<span id="L22582" class="LineNr">22582 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22583" class="LineNr">22583 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22584" class="LineNr">22584 </span> <span class="subxComment"># never gets here</span> -<span id="L22585" class="LineNr">22585 </span> -<span id="L22586" class="LineNr">22586 </span><span class="Constant">$check-mu-copy-byte-stmt:error-too-many-outputs</span>: -<span id="L22587" class="LineNr">22587 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22588" class="LineNr">22588 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22589" class="LineNr">22589 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22590" class="LineNr">22590 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22591" class="LineNr">22591 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' must have just one output\n"</span>) -<span id="L22592" class="LineNr">22592 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22593" class="LineNr">22593 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22594" class="LineNr">22594 </span> <span class="subxComment"># never gets here</span> -<span id="L22595" class="LineNr">22595 </span> -<span id="L22596" class="LineNr">22596 </span><span class="Constant">$check-mu-copy-byte-stmt:error-invalid-output-type</span>: -<span id="L22597" class="LineNr">22597 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22598" class="LineNr">22598 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22599" class="LineNr">22599 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22600" class="LineNr">22600 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22601" class="LineNr">22601 </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="L22602" class="LineNr">22602 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22603" class="LineNr">22603 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22604" class="LineNr">22604 </span> <span class="subxComment"># never gets here</span> -<span id="L22605" class="LineNr">22605 </span> -<span id="L22606" class="LineNr">22606 </span><span class="Constant">$check-mu-copy-byte-stmt:error-inout-too-large</span>: -<span id="L22607" class="LineNr">22607 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22608" class="LineNr">22608 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22609" class="LineNr">22609 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22610" class="LineNr">22610 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22611" class="LineNr">22611 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte: '"</span>) -<span id="L22612" class="LineNr">22612 </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="L22613" class="LineNr">22613 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22614" class="LineNr">22614 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22615" class="LineNr">22615 </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="L22616" class="LineNr">22616 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22617" class="LineNr">22617 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22618" class="LineNr">22618 </span> <span class="subxComment"># never gets here</span> -<span id="L22619" class="LineNr">22619 </span> -<span id="L22620" class="LineNr">22620 </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="L22621" class="LineNr">22621 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22622" class="LineNr">22622 </span> 55/push-ebp -<span id="L22623" class="LineNr">22623 </span> 89/<- %ebp 4/r32/esp -<span id="L22624" class="LineNr">22624 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22625" class="LineNr">22625 </span> 50/push-eax -<span id="L22626" class="LineNr">22626 </span> 52/push-edx -<span id="L22627" class="LineNr">22627 </span> 53/push-ebx -<span id="L22628" class="LineNr">22628 </span> 56/push-esi -<span id="L22629" class="LineNr">22629 </span> 57/push-edi -<span id="L22630" class="LineNr">22630 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L22631" class="LineNr">22631 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L22632" class="LineNr">22632 </span> 68/push 0x60/imm32/size -<span id="L22633" class="LineNr">22633 </span> 68/push 0/imm32/read -<span id="L22634" class="LineNr">22634 </span> 68/push 0/imm32/write -<span id="L22635" class="LineNr">22635 </span> 89/<- %edx 4/r32/esp -<span id="L22636" class="LineNr">22636 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22637" class="LineNr">22637 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22638" class="LineNr">22638 </span><span class="Constant">$check-mu-copy-byte-to-stmt:check-for-output</span>: -<span id="L22639" class="LineNr">22639 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L22640" class="LineNr">22640 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22641" class="LineNr">22641 </span> 3d/compare-eax-and 0/imm32 -<span id="L22642" class="LineNr">22642 </span> 0f 85/jump-if-!= $check-mu-copy-byte-to-stmt:error-too-many-outputs/disp32 -<span id="L22643" class="LineNr">22643 </span><span class="Constant">$check-mu-copy-byte-to-stmt:get-dest</span>: -<span id="L22644" class="LineNr">22644 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L22645" class="LineNr">22645 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22646" class="LineNr">22646 </span> 89/<- %edi 0/r32/eax -<span id="L22647" class="LineNr">22647 </span> <span class="subxComment"># zero inouts</span> -<span id="L22648" class="LineNr">22648 </span> 3d/compare-eax-and 0/imm32 -<span id="L22649" class="LineNr">22649 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 -<span id="L22650" class="LineNr">22650 </span><span class="Constant">$check-mu-copy-byte-to-stmt:get-src</span>: -<span id="L22651" class="LineNr">22651 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> -<span id="L22652" class="LineNr">22652 </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="L22653" class="LineNr">22653 </span> 89/<- %esi 0/r32/eax -<span id="L22654" class="LineNr">22654 </span> <span class="subxComment"># 1 inout</span> -<span id="L22655" class="LineNr">22655 </span> 3d/compare-eax-and 0/imm32 -<span id="L22656" class="LineNr">22656 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 -<span id="L22657" class="LineNr">22657 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L22658" class="LineNr">22658 </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="L22659" class="LineNr">22659 </span> 3d/compare-eax-and 0/imm32 -<span id="L22660" class="LineNr">22660 </span> 0f 85/jump-if-!= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 -<span id="L22661" class="LineNr">22661 </span><span class="Constant">$check-mu-copy-byte-to-stmt:types</span>: -<span id="L22662" class="LineNr">22662 </span> <span class="subxComment"># if src is not a scalar, abort</span> -<span id="L22663" class="LineNr">22663 </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="L22664" class="LineNr">22664 </span> (<a href='mu.subx.html#L26595'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22665" class="LineNr">22665 </span> 3d/compare-eax-and 4/imm32 -<span id="L22666" class="LineNr">22666 </span> 0f 8f/jump-if-> $check-mu-copy-byte-to-stmt:error-src-too-large/disp32 -<span id="L22667" class="LineNr">22667 </span> <span class="subxComment"># if src not in register, abort</span> -<span id="L22668" class="LineNr">22668 </span> { -<span id="L22669" class="LineNr">22669 </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="L22670" class="LineNr">22670 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22671" class="LineNr">22671 </span> 3d/compare-eax-and 0/imm32 -<span id="L22672" class="LineNr">22672 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22673" class="LineNr">22673 </span> e9/jump $check-mu-copy-byte-to-stmt:error-src-not-in-register/disp32 -<span id="L22674" class="LineNr">22674 </span> } -<span id="L22675" class="LineNr">22675 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> -<span id="L22676" class="LineNr">22676 </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="L22677" class="LineNr">22677 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22678" class="LineNr">22678 </span> 89/<- %ebx 0/r32/eax -<span id="L22679" class="LineNr">22679 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> -<span id="L22680" class="LineNr">22680 </span><span class="Constant">$check-mu-copy-byte-to-stmt:check-dest-deref</span>: -<span id="L22681" class="LineNr">22681 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22682" class="LineNr">22682 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22683" class="LineNr">22683 </span> { -<span id="L22684" class="LineNr">22684 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22685" class="LineNr">22685 </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="L22686" class="LineNr">22686 </span><span class="Constant">$check-mu-copy-byte-to-stmt:dest-is-deref</span>: -<span id="L22687" class="LineNr">22687 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> -<span id="L22688" class="LineNr">22688 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22689" class="LineNr">22689 </span> { -<span id="L22690" class="LineNr">22690 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22691" class="LineNr">22691 </span><span class="Constant">$check-mu-copy-byte-to-stmt:dest-is-deref2</span>: -<span id="L22692" class="LineNr">22692 </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="L22693" class="LineNr">22693 </span> } -<span id="L22694" class="LineNr">22694 </span> 89/<- %ebx 0/r32/eax -<span id="L22695" class="LineNr">22695 </span> } -<span id="L22696" class="LineNr">22696 </span> <span class="subxComment"># if dest is not a byte, abort</span> -<span id="L22697" class="LineNr">22697 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ebx 8) <span class="subxComment"># byte => eax</span> -<span id="L22698" class="LineNr">22698 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22699" class="LineNr">22699 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-invalid-dest-type/disp32 -<span id="L22700" class="LineNr">22700 </span><span class="Constant">$check-mu-copy-byte-to-stmt:end</span>: -<span id="L22701" class="LineNr">22701 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L22702" class="LineNr">22702 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L22703" class="LineNr">22703 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22704" class="LineNr">22704 </span> 5f/pop-to-edi -<span id="L22705" class="LineNr">22705 </span> 5e/pop-to-esi -<span id="L22706" class="LineNr">22706 </span> 5b/pop-to-ebx -<span id="L22707" class="LineNr">22707 </span> 5a/pop-to-edx -<span id="L22708" class="LineNr">22708 </span> 58/pop-to-eax -<span id="L22709" class="LineNr">22709 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22710" class="LineNr">22710 </span> 89/<- %esp 5/r32/ebp -<span id="L22711" class="LineNr">22711 </span> 5d/pop-to-ebp -<span id="L22712" class="LineNr">22712 </span> c3/return -<span id="L22713" class="LineNr">22713 </span> -<span id="L22714" class="LineNr">22714 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-incorrect-inouts</span>: -<span id="L22715" class="LineNr">22715 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22716" class="LineNr">22716 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22717" class="LineNr">22717 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22718" class="LineNr">22718 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22719" class="LineNr">22719 </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="L22720" class="LineNr">22720 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22721" class="LineNr">22721 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22722" class="LineNr">22722 </span> <span class="subxComment"># never gets here</span> -<span id="L22723" class="LineNr">22723 </span> -<span id="L22724" class="LineNr">22724 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-too-many-outputs</span>: -<span id="L22725" class="LineNr">22725 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22726" class="LineNr">22726 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22727" class="LineNr">22727 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22728" class="LineNr">22728 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22729" class="LineNr">22729 </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="L22730" class="LineNr">22730 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22731" class="LineNr">22731 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22732" class="LineNr">22732 </span> <span class="subxComment"># never gets here</span> -<span id="L22733" class="LineNr">22733 </span> -<span id="L22734" class="LineNr">22734 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-src-not-in-register</span>: -<span id="L22735" class="LineNr">22735 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22736" class="LineNr">22736 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22737" class="LineNr">22737 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22738" class="LineNr">22738 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22739" class="LineNr">22739 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: source (second inout) must be in a register\n"</span>) -<span id="L22740" class="LineNr">22740 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22741" class="LineNr">22741 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22742" class="LineNr">22742 </span> <span class="subxComment"># never gets here</span> -<span id="L22743" class="LineNr">22743 </span> -<span id="L22744" class="LineNr">22744 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-invalid-dest-type</span>: -<span id="L22745" class="LineNr">22745 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22746" class="LineNr">22746 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22747" class="LineNr">22747 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22748" class="LineNr">22748 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22749" class="LineNr">22749 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: '"</span>) -<span id="L22750" class="LineNr">22750 </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="L22751" class="LineNr">22751 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22752" class="LineNr">22752 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22753" class="LineNr">22753 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be a byte\n"</span>) -<span id="L22754" class="LineNr">22754 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22755" class="LineNr">22755 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22756" class="LineNr">22756 </span> <span class="subxComment"># never gets here</span> -<span id="L22757" class="LineNr">22757 </span> -<span id="L22758" class="LineNr">22758 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-src-too-large</span>: -<span id="L22759" class="LineNr">22759 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22760" class="LineNr">22760 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22761" class="LineNr">22761 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22762" class="LineNr">22762 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22763" class="LineNr">22763 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: '"</span>) -<span id="L22764" class="LineNr">22764 </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="L22765" class="LineNr">22765 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22766" class="LineNr">22766 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22767" class="LineNr">22767 </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="L22768" class="LineNr">22768 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22769" class="LineNr">22769 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22770" class="LineNr">22770 </span> <span class="subxComment"># never gets here</span> -<span id="L22771" class="LineNr">22771 </span> -<span id="L22772" class="LineNr">22772 </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="L22773" class="LineNr">22773 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22774" class="LineNr">22774 </span> 55/push-ebp -<span id="L22775" class="LineNr">22775 </span> 89/<- %ebp 4/r32/esp -<span id="L22776" class="LineNr">22776 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22777" class="LineNr">22777 </span> 50/push-eax -<span id="L22778" class="LineNr">22778 </span> 51/push-ecx -<span id="L22779" class="LineNr">22779 </span> 52/push-edx -<span id="L22780" class="LineNr">22780 </span> 53/push-ebx -<span id="L22781" class="LineNr">22781 </span> 56/push-esi -<span id="L22782" class="LineNr">22782 </span> 57/push-edi -<span id="L22783" class="LineNr">22783 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L22784" class="LineNr">22784 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L22785" class="LineNr">22785 </span> 68/push 0x60/imm32/size -<span id="L22786" class="LineNr">22786 </span> 68/push 0/imm32/read -<span id="L22787" class="LineNr">22787 </span> 68/push 0/imm32/write -<span id="L22788" class="LineNr">22788 </span> 89/<- %edx 4/r32/esp -<span id="L22789" class="LineNr">22789 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22790" class="LineNr">22790 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22791" class="LineNr">22791 </span><span class="Constant">$check-mu-compare-stmt:check-for-output</span>: -<span id="L22792" class="LineNr">22792 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L22793" class="LineNr">22793 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22794" class="LineNr">22794 </span> 3d/compare-eax-and 0/imm32 -<span id="L22795" class="LineNr">22795 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-too-many-outputs/disp32 -<span id="L22796" class="LineNr">22796 </span><span class="Constant">$check-mu-compare-stmt:get-left</span>: -<span id="L22797" class="LineNr">22797 </span> <span class="subxComment"># var left/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L22798" class="LineNr">22798 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22799" class="LineNr">22799 </span> 89/<- %edi 0/r32/eax -<span id="L22800" class="LineNr">22800 </span> <span class="subxComment"># zero inouts</span> -<span id="L22801" class="LineNr">22801 </span> 3d/compare-eax-and 0/imm32 -<span id="L22802" class="LineNr">22802 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 -<span id="L22803" class="LineNr">22803 </span><span class="Constant">$check-mu-compare-stmt:get-right</span>: -<span id="L22804" class="LineNr">22804 </span> <span class="subxComment"># var right/esi: (addr stmt-var) = left->next</span> -<span id="L22805" class="LineNr">22805 </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="L22806" class="LineNr">22806 </span> 89/<- %esi 0/r32/eax -<span id="L22807" class="LineNr">22807 </span> <span class="subxComment"># 1 inout</span> -<span id="L22808" class="LineNr">22808 </span> 3d/compare-eax-and 0/imm32 -<span id="L22809" class="LineNr">22809 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 -<span id="L22810" class="LineNr">22810 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L22811" class="LineNr">22811 </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="L22812" class="LineNr">22812 </span> 3d/compare-eax-and 0/imm32 -<span id="L22813" class="LineNr">22813 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-incorrect-inouts/disp32 -<span id="L22814" class="LineNr">22814 </span> <span class="subxComment"># if both inouts are in memory, abort</span> -<span id="L22815" class="LineNr">22815 </span> { -<span id="L22816" class="LineNr">22816 </span><span class="Constant">$check-mu-compare-stmt:both-in-mem</span>: -<span id="L22817" class="LineNr">22817 </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="L22818" class="LineNr">22818 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22819" class="LineNr">22819 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L22820" class="LineNr">22820 </span> 3d/compare-eax-and 0/imm32 -<span id="L22821" class="LineNr">22821 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L22822" class="LineNr">22822 </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="L22823" class="LineNr">22823 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22824" class="LineNr">22824 </span> 3d/compare-eax-and 0/imm32 -<span id="L22825" class="LineNr">22825 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<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+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22828" class="LineNr">22828 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L22829" class="LineNr">22829 </span> 3d/compare-eax-and 0/imm32 -<span id="L22830" class="LineNr">22830 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22831" class="LineNr">22831 </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="L22832" class="LineNr">22832 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22833" class="LineNr">22833 </span> 3d/compare-eax-and 0/imm32 -<span id="L22834" class="LineNr">22834 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22835" class="LineNr">22835 </span> e9/jump $check-mu-compare-stmt:error-both-in-memory/disp32 -<span id="L22836" class="LineNr">22836 </span> } -<span id="L22837" class="LineNr">22837 </span><span class="Constant">$check-mu-compare-stmt:types</span>: -<span id="L22838" class="LineNr">22838 </span> <span class="subxComment"># var right-type/ecx: (addr type-tree) = right->value->type</span> -<span id="L22839" class="LineNr">22839 </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="L22840" class="LineNr">22840 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22841" class="LineNr">22841 </span> 89/<- %ecx 0/r32/eax -<span id="L22842" class="LineNr">22842 </span> <span class="subxComment"># if (right->is-deref?) right-type = right-type->payload</span> -<span id="L22843" class="LineNr">22843 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22844" class="LineNr">22844 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22845" class="LineNr">22845 </span> { -<span id="L22846" class="LineNr">22846 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22847" class="LineNr">22847 </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="L22848" class="LineNr">22848 </span> <span class="subxComment"># if right-type->right is null, right-type = right-type->left</span> -<span id="L22849" class="LineNr">22849 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22850" class="LineNr">22850 </span> { -<span id="L22851" class="LineNr">22851 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22852" class="LineNr">22852 </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="L22853" class="LineNr">22853 </span> } -<span id="L22854" class="LineNr">22854 </span> 89/<- %ecx 0/r32/eax -<span id="L22855" class="LineNr">22855 </span> } -<span id="L22856" class="LineNr">22856 </span> <span class="subxComment"># if right-type is a literal string, abort</span> -<span id="L22857" class="LineNr">22857 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ecx 0x10) <span class="subxComment"># string-literal => eax</span> -<span id="L22858" class="LineNr">22858 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22859" class="LineNr">22859 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-right-string-literal/disp32 -<span id="L22860" class="LineNr">22860 </span> <span class="subxComment"># if right is not a scalar, abort</span> -<span id="L22861" class="LineNr">22861 </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="L22862" class="LineNr">22862 </span> (<a href='mu.subx.html#L26595'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22863" class="LineNr">22863 </span> 3d/compare-eax-and 4/imm32 -<span id="L22864" class="LineNr">22864 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-right-too-large/disp32 -<span id="L22865" class="LineNr">22865 </span> <span class="subxComment"># if left is not a scalar, abort</span> -<span id="L22866" class="LineNr">22866 </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="L22867" class="LineNr">22867 </span> (<a href='mu.subx.html#L26595'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22868" class="LineNr">22868 </span> 3d/compare-eax-and 4/imm32 -<span id="L22869" class="LineNr">22869 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-left-too-large/disp32 -<span id="L22870" class="LineNr">22870 </span> <span class="subxComment"># var left-type/ebx: (addr type-tree) = left->value->type</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> 89/<- %ebx 0/r32/eax -<span id="L22874" class="LineNr">22874 </span> <span class="subxComment"># if (left->is-deref?) left-type = left-type->payload</span> -<span id="L22875" class="LineNr">22875 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22876" class="LineNr">22876 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22877" class="LineNr">22877 </span> { -<span id="L22878" class="LineNr">22878 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22879" class="LineNr">22879 </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="L22880" class="LineNr">22880 </span> <span class="subxComment"># if left-type->right is null, left-type = left-type->left</span> -<span id="L22881" class="LineNr">22881 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22882" class="LineNr">22882 </span> { -<span id="L22883" class="LineNr">22883 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22884" class="LineNr">22884 </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="L22885" class="LineNr">22885 </span> } -<span id="L22886" class="LineNr">22886 </span> 89/<- %ebx 0/r32/eax -<span id="L22887" class="LineNr">22887 </span> } -<span id="L22888" class="LineNr">22888 </span> <span class="subxComment"># if (left-type == right-type) return</span> -<span id="L22889" class="LineNr">22889 </span> (<a href='mu.subx.html#L26439'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L22890" class="LineNr">22890 </span> 3d/compare-eax-and 0/imm32 -<span id="L22891" class="LineNr">22891 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:end/disp32 -<span id="L22892" class="LineNr">22892 </span> <span class="subxComment"># if left is an addr and right is 0, return</span> -<span id="L22893" class="LineNr">22893 </span> { -<span id="L22894" class="LineNr">22894 </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="L22895" class="LineNr">22895 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22896" class="LineNr">22896 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22897" class="LineNr">22897 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22898" class="LineNr">22898 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22899" class="LineNr">22899 </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="L22900" class="LineNr">22900 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22901" class="LineNr">22901 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L22902" class="LineNr">22902 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22903" class="LineNr">22903 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22904" class="LineNr">22904 </span> eb/jump $check-mu-compare-stmt:end/disp8 -<span id="L22905" class="LineNr">22905 </span> } -<span id="L22906" class="LineNr">22906 </span> <span class="subxComment"># if left is not number-like, abort</span> -<span id="L22907" class="LineNr">22907 </span> (<a href='mu.subx.html#L21874'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L22908" class="LineNr">22908 </span><span class="Constant">$check-mu-compare-stmt:end</span>: -<span id="L22909" class="LineNr">22909 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L22910" class="LineNr">22910 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L22911" class="LineNr">22911 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22912" class="LineNr">22912 </span> 5f/pop-to-edi -<span id="L22913" class="LineNr">22913 </span> 5e/pop-to-esi -<span id="L22914" class="LineNr">22914 </span> 5b/pop-to-ebx -<span id="L22915" class="LineNr">22915 </span> 5a/pop-to-edx -<span id="L22916" class="LineNr">22916 </span> 59/pop-to-ecx -<span id="L22917" class="LineNr">22917 </span> 58/pop-to-eax -<span id="L22918" class="LineNr">22918 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22919" class="LineNr">22919 </span> 89/<- %esp 5/r32/ebp -<span id="L22920" class="LineNr">22920 </span> 5d/pop-to-ebp -<span id="L22921" class="LineNr">22921 </span> c3/return -<span id="L22922" class="LineNr">22922 </span> -<span id="L22923" class="LineNr">22923 </span><span class="Constant">$check-mu-compare-stmt:error-incorrect-inouts</span>: -<span id="L22924" class="LineNr">22924 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22925" class="LineNr">22925 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22926" class="LineNr">22926 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22400" class="LineNr">22400 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: '"</span>) +<span id="L22401" class="LineNr">22401 </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="L22402" class="LineNr">22402 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22403" class="LineNr">22403 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22404" class="LineNr">22404 </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="L22405" class="LineNr">22405 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22406" class="LineNr">22406 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22407" class="LineNr">22407 </span> <span class="subxComment"># never gets here</span> +<span id="L22408" class="LineNr">22408 </span> +<span id="L22409" class="LineNr">22409 </span><span class="Constant">$check-mu-copy-stmt:error-non-literal-to-byte</span>: +<span id="L22410" class="LineNr">22410 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22411" class="LineNr">22411 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22412" class="LineNr">22412 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22413" class="LineNr">22413 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22414" class="LineNr">22414 </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="L22415" class="LineNr">22415 </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="L22416" class="LineNr">22416 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22417" class="LineNr">22417 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22418" class="LineNr">22418 </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="L22419" class="LineNr">22419 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22420" class="LineNr">22420 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22421" class="LineNr">22421 </span> <span class="subxComment"># never gets here</span> +<span id="L22422" class="LineNr">22422 </span> +<span id="L22423" class="LineNr">22423 </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="L22424" class="LineNr">22424 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22425" class="LineNr">22425 </span> 55/push-ebp +<span id="L22426" class="LineNr">22426 </span> 89/<- %ebp 4/r32/esp +<span id="L22427" class="LineNr">22427 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22428" class="LineNr">22428 </span> 50/push-eax +<span id="L22429" class="LineNr">22429 </span> 51/push-ecx +<span id="L22430" class="LineNr">22430 </span> 52/push-edx +<span id="L22431" class="LineNr">22431 </span> 53/push-ebx +<span id="L22432" class="LineNr">22432 </span> 56/push-esi +<span id="L22433" class="LineNr">22433 </span> 57/push-edi +<span id="L22434" class="LineNr">22434 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L22435" class="LineNr">22435 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L22436" class="LineNr">22436 </span> 68/push 0x60/imm32/size +<span id="L22437" class="LineNr">22437 </span> 68/push 0/imm32/read +<span id="L22438" class="LineNr">22438 </span> 68/push 0/imm32/write +<span id="L22439" class="LineNr">22439 </span> 89/<- %edx 4/r32/esp +<span id="L22440" class="LineNr">22440 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22441" class="LineNr">22441 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22442" class="LineNr">22442 </span><span class="Constant">$check-mu-copy-to-stmt:check-for-output</span>: +<span id="L22443" class="LineNr">22443 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L22444" class="LineNr">22444 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22445" class="LineNr">22445 </span> 3d/compare-eax-and 0/imm32 +<span id="L22446" class="LineNr">22446 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-too-many-outputs/disp32 +<span id="L22447" class="LineNr">22447 </span><span class="Constant">$check-mu-copy-to-stmt:get-dest</span>: +<span id="L22448" class="LineNr">22448 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L22449" class="LineNr">22449 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22450" class="LineNr">22450 </span> 89/<- %edi 0/r32/eax +<span id="L22451" class="LineNr">22451 </span> <span class="subxComment"># zero inouts</span> +<span id="L22452" class="LineNr">22452 </span> 3d/compare-eax-and 0/imm32 +<span id="L22453" class="LineNr">22453 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 +<span id="L22454" class="LineNr">22454 </span><span class="Constant">$check-mu-copy-to-stmt:get-src</span>: +<span id="L22455" class="LineNr">22455 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> +<span id="L22456" class="LineNr">22456 </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="L22457" class="LineNr">22457 </span> 89/<- %esi 0/r32/eax +<span id="L22458" class="LineNr">22458 </span> <span class="subxComment"># 1 inout</span> +<span id="L22459" class="LineNr">22459 </span> 3d/compare-eax-and 0/imm32 +<span id="L22460" class="LineNr">22460 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 +<span id="L22461" class="LineNr">22461 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L22462" class="LineNr">22462 </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="L22463" class="LineNr">22463 </span> 3d/compare-eax-and 0/imm32 +<span id="L22464" class="LineNr">22464 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 +<span id="L22465" class="LineNr">22465 </span><span class="Constant">$check-mu-copy-to-stmt:types</span>: +<span id="L22466" class="LineNr">22466 </span> <span class="subxComment"># if src is not a scalar, abort</span> +<span id="L22467" class="LineNr">22467 </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="L22468" class="LineNr">22468 </span> (<a href='mu.subx.html#L26770'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22469" class="LineNr">22469 </span> 3d/compare-eax-and 4/imm32 +<span id="L22470" class="LineNr">22470 </span> 0f 8f/jump-if-> $check-mu-copy-to-stmt:error-src-too-large/disp32 +<span id="L22471" class="LineNr">22471 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> +<span id="L22472" class="LineNr">22472 </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="L22473" class="LineNr">22473 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22474" class="LineNr">22474 </span> 89/<- %ecx 0/r32/eax +<span id="L22475" class="LineNr">22475 </span> <span class="subxComment"># if src not in register or literal, abort</span> +<span id="L22476" class="LineNr">22476 </span> <span class="subxComment"># (we can't use stack-offset because it hasn't been computed yet)</span> +<span id="L22477" class="LineNr">22477 </span> { +<span id="L22478" class="LineNr">22478 </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="L22479" class="LineNr">22479 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22480" class="LineNr">22480 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L22481" class="LineNr">22481 </span> 3d/compare-eax-and 0/imm32 +<span id="L22482" class="LineNr">22482 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22483" class="LineNr">22483 </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="L22484" class="LineNr">22484 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22485" class="LineNr">22485 </span> 3d/compare-eax-and 0/imm32 +<span id="L22486" class="LineNr">22486 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22487" class="LineNr">22487 </span> e9/jump $check-mu-copy-to-stmt:error-src-not-literal-or-in-register/disp32 +<span id="L22488" class="LineNr">22488 </span> } +<span id="L22489" class="LineNr">22489 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> +<span id="L22490" class="LineNr">22490 </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="L22491" class="LineNr">22491 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22492" class="LineNr">22492 </span> 89/<- %ebx 0/r32/eax +<span id="L22493" class="LineNr">22493 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> +<span id="L22494" class="LineNr">22494 </span><span class="Constant">$check-mu-copy-to-stmt:check-dest-deref</span>: +<span id="L22495" class="LineNr">22495 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22496" class="LineNr">22496 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22497" class="LineNr">22497 </span> { +<span id="L22498" class="LineNr">22498 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22499" class="LineNr">22499 </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="L22500" class="LineNr">22500 </span><span class="Constant">$check-mu-copy-to-stmt:dest-is-deref</span>: +<span id="L22501" class="LineNr">22501 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> +<span id="L22502" class="LineNr">22502 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22503" class="LineNr">22503 </span> { +<span id="L22504" class="LineNr">22504 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22505" class="LineNr">22505 </span><span class="Constant">$check-mu-copy-to-stmt:dest-is-deref2</span>: +<span id="L22506" class="LineNr">22506 </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="L22507" class="LineNr">22507 </span> } +<span id="L22508" class="LineNr">22508 </span> 89/<- %ebx 0/r32/eax +<span id="L22509" class="LineNr">22509 </span> } +<span id="L22510" class="LineNr">22510 </span> <span class="subxComment"># if dest is a byte and src is not a literal, abort</span> +<span id="L22511" class="LineNr">22511 </span> { +<span id="L22512" class="LineNr">22512 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-byte</span>: +<span id="L22513" class="LineNr">22513 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ebx 8) <span class="subxComment"># byte => eax</span> +<span id="L22514" class="LineNr">22514 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22515" class="LineNr">22515 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22516" class="LineNr">22516 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ecx 0) <span class="subxComment"># literal => eax</span> +<span id="L22517" class="LineNr">22517 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22518" class="LineNr">22518 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-non-literal-to-byte/disp32 +<span id="L22519" class="LineNr">22519 </span> } +<span id="L22520" class="LineNr">22520 </span> <span class="subxComment"># if (src-type == dest-type) return</span> +<span id="L22521" class="LineNr">22521 </span> (<a href='mu.subx.html#L26614'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> +<span id="L22522" class="LineNr">22522 </span> 3d/compare-eax-and 0/imm32 +<span id="L22523" class="LineNr">22523 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:end/disp32 +<span id="L22524" class="LineNr">22524 </span> <span class="subxComment"># if dest is an addr and src is 0, return</span> +<span id="L22525" class="LineNr">22525 </span> { +<span id="L22526" class="LineNr">22526 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-addr</span>: +<span id="L22527" class="LineNr">22527 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L22528" class="LineNr">22528 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22529" class="LineNr">22529 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22530" class="LineNr">22530 </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="L22531" class="LineNr">22531 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22532" class="LineNr">22532 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L22533" class="LineNr">22533 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22534" class="LineNr">22534 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22535" class="LineNr">22535 </span> e9/jump $check-mu-copy-to-stmt:end/disp32 +<span id="L22536" class="LineNr">22536 </span> } +<span id="L22537" class="LineNr">22537 </span> <span class="subxComment"># if dest is an offset and src is 0, return</span> +<span id="L22538" class="LineNr">22538 </span> { +<span id="L22539" class="LineNr">22539 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-offset</span>: +<span id="L22540" class="LineNr">22540 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L22541" class="LineNr">22541 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22542" class="LineNr">22542 </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="L22543" class="LineNr">22543 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> +<span id="L22544" class="LineNr">22544 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22545" class="LineNr">22545 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22546" class="LineNr">22546 </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="L22547" class="LineNr">22547 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22548" class="LineNr">22548 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L22549" class="LineNr">22549 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22550" class="LineNr">22550 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22551" class="LineNr">22551 </span> e9/jump $check-mu-copy-to-stmt:end/disp32 +<span id="L22552" class="LineNr">22552 </span> } +<span id="L22553" class="LineNr">22553 </span> <span class="subxComment"># if dest is not number-like, abort</span> +<span id="L22554" class="LineNr">22554 </span> (<a href='mu.subx.html#L22049'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L22555" class="LineNr">22555 </span><span class="Constant">$check-mu-copy-to-stmt:end</span>: +<span id="L22556" class="LineNr">22556 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L22557" class="LineNr">22557 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L22558" class="LineNr">22558 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22559" class="LineNr">22559 </span> 5f/pop-to-edi +<span id="L22560" class="LineNr">22560 </span> 5e/pop-to-esi +<span id="L22561" class="LineNr">22561 </span> 5b/pop-to-ebx +<span id="L22562" class="LineNr">22562 </span> 5a/pop-to-edx +<span id="L22563" class="LineNr">22563 </span> 59/pop-to-ecx +<span id="L22564" class="LineNr">22564 </span> 58/pop-to-eax +<span id="L22565" class="LineNr">22565 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22566" class="LineNr">22566 </span> 89/<- %esp 5/r32/ebp +<span id="L22567" class="LineNr">22567 </span> 5d/pop-to-ebp +<span id="L22568" class="LineNr">22568 </span> c3/return +<span id="L22569" class="LineNr">22569 </span> +<span id="L22570" class="LineNr">22570 </span><span class="Constant">$check-mu-copy-to-stmt:error-incorrect-inouts</span>: +<span id="L22571" class="LineNr">22571 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22572" class="LineNr">22572 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22573" class="LineNr">22573 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22574" class="LineNr">22574 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22575" class="LineNr">22575 </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="L22576" class="LineNr">22576 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22577" class="LineNr">22577 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22578" class="LineNr">22578 </span> <span class="subxComment"># never gets here</span> +<span id="L22579" class="LineNr">22579 </span> +<span id="L22580" class="LineNr">22580 </span><span class="Constant">$check-mu-copy-to-stmt:error-too-many-outputs</span>: +<span id="L22581" class="LineNr">22581 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22582" class="LineNr">22582 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22583" class="LineNr">22583 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22584" class="LineNr">22584 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22585" class="LineNr">22585 </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="L22586" class="LineNr">22586 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22587" class="LineNr">22587 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22588" class="LineNr">22588 </span> <span class="subxComment"># never gets here</span> +<span id="L22589" class="LineNr">22589 </span> +<span id="L22590" class="LineNr">22590 </span><span class="Constant">$check-mu-copy-to-stmt:error-src-not-literal-or-in-register</span>: +<span id="L22591" class="LineNr">22591 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22592" class="LineNr">22592 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22593" class="LineNr">22593 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22594" class="LineNr">22594 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22595" class="LineNr">22595 </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="L22596" class="LineNr">22596 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22597" class="LineNr">22597 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22598" class="LineNr">22598 </span> <span class="subxComment"># never gets here</span> +<span id="L22599" class="LineNr">22599 </span> +<span id="L22600" class="LineNr">22600 </span><span class="Constant">$check-mu-copy-to-stmt:error-src-too-large</span>: +<span id="L22601" class="LineNr">22601 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22602" class="LineNr">22602 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22603" class="LineNr">22603 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22604" class="LineNr">22604 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22605" class="LineNr">22605 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: '"</span>) +<span id="L22606" class="LineNr">22606 </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="L22607" class="LineNr">22607 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22608" class="LineNr">22608 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22609" class="LineNr">22609 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is too large to copy\n"</span>) +<span id="L22610" class="LineNr">22610 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22611" class="LineNr">22611 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22612" class="LineNr">22612 </span> <span class="subxComment"># never gets here</span> +<span id="L22613" class="LineNr">22613 </span> +<span id="L22614" class="LineNr">22614 </span><span class="Constant">$check-mu-copy-to-stmt:error-non-literal-to-byte</span>: +<span id="L22615" class="LineNr">22615 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22616" class="LineNr">22616 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22617" class="LineNr">22617 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22618" class="LineNr">22618 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22619" class="LineNr">22619 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: cannot copy non-literal to type byte; use copy-byte-to\n"</span>) +<span id="L22620" class="LineNr">22620 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22621" class="LineNr">22621 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22622" class="LineNr">22622 </span> <span class="subxComment"># never gets here</span> +<span id="L22623" class="LineNr">22623 </span> +<span id="L22624" class="LineNr">22624 </span><span class="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="L22625" class="LineNr">22625 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22626" class="LineNr">22626 </span> 55/push-ebp +<span id="L22627" class="LineNr">22627 </span> 89/<- %ebp 4/r32/esp +<span id="L22628" class="LineNr">22628 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22629" class="LineNr">22629 </span> 50/push-eax +<span id="L22630" class="LineNr">22630 </span> 51/push-ecx +<span id="L22631" class="LineNr">22631 </span> 52/push-edx +<span id="L22632" class="LineNr">22632 </span> 56/push-esi +<span id="L22633" class="LineNr">22633 </span> 57/push-edi +<span id="L22634" class="LineNr">22634 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L22635" class="LineNr">22635 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L22636" class="LineNr">22636 </span> 68/push 0x60/imm32/size +<span id="L22637" class="LineNr">22637 </span> 68/push 0/imm32/read +<span id="L22638" class="LineNr">22638 </span> 68/push 0/imm32/write +<span id="L22639" class="LineNr">22639 </span> 89/<- %edx 4/r32/esp +<span id="L22640" class="LineNr">22640 </span><span class="Constant">$check-mu-copy-byte-stmt:get-output</span>: +<span id="L22641" class="LineNr">22641 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22642" class="LineNr">22642 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22643" class="LineNr">22643 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> +<span id="L22644" class="LineNr">22644 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22645" class="LineNr">22645 </span> 89/<- %edi 0/r32/eax +<span id="L22646" class="LineNr">22646 </span> <span class="subxComment"># zero outputs</span> +<span id="L22647" class="LineNr">22647 </span> 3d/compare-eax-and 0/imm32 +<span id="L22648" class="LineNr">22648 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-no-output/disp32 +<span id="L22649" class="LineNr">22649 </span> <span class="subxComment"># > 1 output</span> +<span id="L22650" class="LineNr">22650 </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="L22651" class="LineNr">22651 </span> 3d/compare-eax-and 0/imm32 +<span id="L22652" class="LineNr">22652 </span> 0f 85/jump-if-!= $check-mu-copy-byte-stmt:error-too-many-outputs/disp32 +<span id="L22653" class="LineNr">22653 </span><span class="Constant">$check-mu-copy-byte-stmt:get-inout</span>: +<span id="L22654" class="LineNr">22654 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> +<span id="L22655" class="LineNr">22655 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22656" class="LineNr">22656 </span> 89/<- %esi 0/r32/eax +<span id="L22657" class="LineNr">22657 </span> <span class="subxComment"># zero inouts</span> +<span id="L22658" class="LineNr">22658 </span> 3d/compare-eax-and 0/imm32 +<span id="L22659" class="LineNr">22659 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-no-inout/disp32 +<span id="L22660" class="LineNr">22660 </span> <span class="subxComment"># > 1 inout</span> +<span id="L22661" class="LineNr">22661 </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="L22662" class="LineNr">22662 </span> 3d/compare-eax-and 0/imm32 +<span id="L22663" class="LineNr">22663 </span> 0f 85/jump-if-!= $check-mu-copy-byte-stmt:error-too-many-inouts/disp32 +<span id="L22664" class="LineNr">22664 </span><span class="Constant">$check-mu-copy-byte-stmt:types</span>: +<span id="L22665" class="LineNr">22665 </span> <span class="subxComment"># if inout is not a scalar, abort</span> +<span id="L22666" class="LineNr">22666 </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="L22667" class="LineNr">22667 </span> (<a href='mu.subx.html#L26770'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22668" class="LineNr">22668 </span> 3d/compare-eax-and 4/imm32 +<span id="L22669" class="LineNr">22669 </span> 0f 8f/jump-if-> $check-mu-copy-byte-stmt:error-inout-too-large/disp32 +<span id="L22670" class="LineNr">22670 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> +<span id="L22671" class="LineNr">22671 </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="L22672" class="LineNr">22672 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22673" class="LineNr">22673 </span> 89/<- %ecx 0/r32/eax +<span id="L22674" class="LineNr">22674 </span><span class="Constant">$check-mu-copy-byte-stmt:check-inout-deref</span>: +<span id="L22675" class="LineNr">22675 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> +<span id="L22676" class="LineNr">22676 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22677" class="LineNr">22677 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22678" class="LineNr">22678 </span> { +<span id="L22679" class="LineNr">22679 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22680" class="LineNr">22680 </span><span class="Constant">$check-mu-copy-byte-stmt:inout-is-deref</span>: +<span id="L22681" class="LineNr">22681 </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="L22682" class="LineNr">22682 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> +<span id="L22683" class="LineNr">22683 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22684" class="LineNr">22684 </span> { +<span id="L22685" class="LineNr">22685 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22686" class="LineNr">22686 </span><span class="Constant">$check-mu-copy-byte-stmt:inout-is-deref2</span>: +<span id="L22687" class="LineNr">22687 </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="L22688" class="LineNr">22688 </span> } +<span id="L22689" class="LineNr">22689 </span> 89/<- %ecx 0/r32/eax +<span id="L22690" class="LineNr">22690 </span> } +<span id="L22691" class="LineNr">22691 </span> <span class="subxComment"># if output not in register, abort</span> +<span id="L22692" class="LineNr">22692 </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="L22693" class="LineNr">22693 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22694" class="LineNr">22694 </span> 3d/compare-eax-and 0/imm32 +<span id="L22695" class="LineNr">22695 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-output-not-in-register/disp32 +<span id="L22696" class="LineNr">22696 </span> <span class="subxComment"># var output-type/eax: (addr type-tree) = output->value->type</span> +<span id="L22697" class="LineNr">22697 </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="L22698" class="LineNr">22698 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22699" class="LineNr">22699 </span> <span class="subxComment"># if output is not of type byte, abort</span> +<span id="L22700" class="LineNr">22700 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L22701" class="LineNr">22701 </span> 3d/compare-eax-and 0/imm32 +<span id="L22702" class="LineNr">22702 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-invalid-output-type/disp32 +<span id="L22703" class="LineNr">22703 </span><span class="Constant">$check-mu-copy-byte-stmt:end</span>: +<span id="L22704" class="LineNr">22704 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L22705" class="LineNr">22705 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L22706" class="LineNr">22706 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22707" class="LineNr">22707 </span> 5f/pop-to-edi +<span id="L22708" class="LineNr">22708 </span> 5e/pop-to-esi +<span id="L22709" class="LineNr">22709 </span> 5a/pop-to-edx +<span id="L22710" class="LineNr">22710 </span> 59/pop-to-ecx +<span id="L22711" class="LineNr">22711 </span> 58/pop-to-eax +<span id="L22712" class="LineNr">22712 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22713" class="LineNr">22713 </span> 89/<- %esp 5/r32/ebp +<span id="L22714" class="LineNr">22714 </span> 5d/pop-to-ebp +<span id="L22715" class="LineNr">22715 </span> c3/return +<span id="L22716" class="LineNr">22716 </span> +<span id="L22717" class="LineNr">22717 </span><span class="Constant">$check-mu-copy-byte-stmt:error-no-inout</span>: +<span id="L22718" class="LineNr">22718 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22719" class="LineNr">22719 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22720" class="LineNr">22720 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-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">": stmt 'copy-byte' expects an inout\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="Constant">$check-mu-copy-byte-stmt:error-too-many-inouts</span>: +<span id="L22728" class="LineNr">22728 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22729" class="LineNr">22729 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22730" class="LineNr">22730 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22731" class="LineNr">22731 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22732" class="LineNr">22732 </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="L22733" class="LineNr">22733 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22734" class="LineNr">22734 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22735" class="LineNr">22735 </span> <span class="subxComment"># never gets here</span> +<span id="L22736" class="LineNr">22736 </span> +<span id="L22737" class="LineNr">22737 </span><span class="Constant">$check-mu-copy-byte-stmt:error-no-output</span>: +<span id="L22738" class="LineNr">22738 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22739" class="LineNr">22739 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22740" class="LineNr">22740 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22741" class="LineNr">22741 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22742" class="LineNr">22742 </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="L22743" class="LineNr">22743 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22744" class="LineNr">22744 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22745" class="LineNr">22745 </span> <span class="subxComment"># never gets here</span> +<span id="L22746" class="LineNr">22746 </span> +<span id="L22747" class="LineNr">22747 </span><span class="Constant">$check-mu-copy-byte-stmt:error-output-not-in-register</span>: +<span id="L22748" class="LineNr">22748 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22749" class="LineNr">22749 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22750" class="LineNr">22750 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22751" class="LineNr">22751 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22752" class="LineNr">22752 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte: output '"</span>) +<span id="L22753" class="LineNr">22753 </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="L22754" class="LineNr">22754 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22755" class="LineNr">22755 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22756" class="LineNr">22756 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) +<span id="L22757" class="LineNr">22757 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22758" class="LineNr">22758 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22759" class="LineNr">22759 </span> <span class="subxComment"># never gets here</span> +<span id="L22760" class="LineNr">22760 </span> +<span id="L22761" class="LineNr">22761 </span><span class="Constant">$check-mu-copy-byte-stmt:error-too-many-outputs</span>: +<span id="L22762" class="LineNr">22762 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22763" class="LineNr">22763 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22764" class="LineNr">22764 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22765" class="LineNr">22765 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22766" class="LineNr">22766 </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="L22767" class="LineNr">22767 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22768" class="LineNr">22768 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22769" class="LineNr">22769 </span> <span class="subxComment"># never gets here</span> +<span id="L22770" class="LineNr">22770 </span> +<span id="L22771" class="LineNr">22771 </span><span class="Constant">$check-mu-copy-byte-stmt:error-invalid-output-type</span>: +<span id="L22772" class="LineNr">22772 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22773" class="LineNr">22773 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22774" class="LineNr">22774 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22775" class="LineNr">22775 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22776" class="LineNr">22776 </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="L22777" class="LineNr">22777 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22778" class="LineNr">22778 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22779" class="LineNr">22779 </span> <span class="subxComment"># never gets here</span> +<span id="L22780" class="LineNr">22780 </span> +<span id="L22781" class="LineNr">22781 </span><span class="Constant">$check-mu-copy-byte-stmt:error-inout-too-large</span>: +<span id="L22782" class="LineNr">22782 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22783" class="LineNr">22783 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22784" class="LineNr">22784 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22785" class="LineNr">22785 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22786" class="LineNr">22786 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte: '"</span>) +<span id="L22787" class="LineNr">22787 </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="L22788" class="LineNr">22788 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22789" class="LineNr">22789 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22790" class="LineNr">22790 </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="L22791" class="LineNr">22791 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22792" class="LineNr">22792 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22793" class="LineNr">22793 </span> <span class="subxComment"># never gets here</span> +<span id="L22794" class="LineNr">22794 </span> +<span id="L22795" class="LineNr">22795 </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="L22796" class="LineNr">22796 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22797" class="LineNr">22797 </span> 55/push-ebp +<span id="L22798" class="LineNr">22798 </span> 89/<- %ebp 4/r32/esp +<span id="L22799" class="LineNr">22799 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22800" class="LineNr">22800 </span> 50/push-eax +<span id="L22801" class="LineNr">22801 </span> 52/push-edx +<span id="L22802" class="LineNr">22802 </span> 53/push-ebx +<span id="L22803" class="LineNr">22803 </span> 56/push-esi +<span id="L22804" class="LineNr">22804 </span> 57/push-edi +<span id="L22805" class="LineNr">22805 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L22806" class="LineNr">22806 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L22807" class="LineNr">22807 </span> 68/push 0x60/imm32/size +<span id="L22808" class="LineNr">22808 </span> 68/push 0/imm32/read +<span id="L22809" class="LineNr">22809 </span> 68/push 0/imm32/write +<span id="L22810" class="LineNr">22810 </span> 89/<- %edx 4/r32/esp +<span id="L22811" class="LineNr">22811 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22812" class="LineNr">22812 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22813" class="LineNr">22813 </span><span class="Constant">$check-mu-copy-byte-to-stmt:check-for-output</span>: +<span id="L22814" class="LineNr">22814 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L22815" class="LineNr">22815 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22816" class="LineNr">22816 </span> 3d/compare-eax-and 0/imm32 +<span id="L22817" class="LineNr">22817 </span> 0f 85/jump-if-!= $check-mu-copy-byte-to-stmt:error-too-many-outputs/disp32 +<span id="L22818" class="LineNr">22818 </span><span class="Constant">$check-mu-copy-byte-to-stmt:get-dest</span>: +<span id="L22819" class="LineNr">22819 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L22820" class="LineNr">22820 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22821" class="LineNr">22821 </span> 89/<- %edi 0/r32/eax +<span id="L22822" class="LineNr">22822 </span> <span class="subxComment"># zero inouts</span> +<span id="L22823" class="LineNr">22823 </span> 3d/compare-eax-and 0/imm32 +<span id="L22824" class="LineNr">22824 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 +<span id="L22825" class="LineNr">22825 </span><span class="Constant">$check-mu-copy-byte-to-stmt:get-src</span>: +<span id="L22826" class="LineNr">22826 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> +<span id="L22827" class="LineNr">22827 </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="L22828" class="LineNr">22828 </span> 89/<- %esi 0/r32/eax +<span id="L22829" class="LineNr">22829 </span> <span class="subxComment"># 1 inout</span> +<span id="L22830" class="LineNr">22830 </span> 3d/compare-eax-and 0/imm32 +<span id="L22831" class="LineNr">22831 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 +<span id="L22832" class="LineNr">22832 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L22833" class="LineNr">22833 </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="L22834" class="LineNr">22834 </span> 3d/compare-eax-and 0/imm32 +<span id="L22835" class="LineNr">22835 </span> 0f 85/jump-if-!= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 +<span id="L22836" class="LineNr">22836 </span><span class="Constant">$check-mu-copy-byte-to-stmt:types</span>: +<span id="L22837" class="LineNr">22837 </span> <span class="subxComment"># if src 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#L26770'>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-copy-byte-to-stmt:error-src-too-large/disp32 +<span id="L22842" class="LineNr">22842 </span> <span class="subxComment"># if src not in register, abort</span> +<span id="L22843" class="LineNr">22843 </span> { +<span id="L22844" class="LineNr">22844 </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="L22845" class="LineNr">22845 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22846" class="LineNr">22846 </span> 3d/compare-eax-and 0/imm32 +<span id="L22847" class="LineNr">22847 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22848" class="LineNr">22848 </span> e9/jump $check-mu-copy-byte-to-stmt:error-src-not-in-register/disp32 +<span id="L22849" class="LineNr">22849 </span> } +<span id="L22850" class="LineNr">22850 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> +<span id="L22851" class="LineNr">22851 </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="L22852" class="LineNr">22852 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22853" class="LineNr">22853 </span> 89/<- %ebx 0/r32/eax +<span id="L22854" class="LineNr">22854 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> +<span id="L22855" class="LineNr">22855 </span><span class="Constant">$check-mu-copy-byte-to-stmt:check-dest-deref</span>: +<span id="L22856" class="LineNr">22856 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22857" class="LineNr">22857 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22858" class="LineNr">22858 </span> { +<span id="L22859" class="LineNr">22859 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22860" class="LineNr">22860 </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="L22861" class="LineNr">22861 </span><span class="Constant">$check-mu-copy-byte-to-stmt:dest-is-deref</span>: +<span id="L22862" class="LineNr">22862 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> +<span id="L22863" class="LineNr">22863 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22864" class="LineNr">22864 </span> { +<span id="L22865" class="LineNr">22865 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22866" class="LineNr">22866 </span><span class="Constant">$check-mu-copy-byte-to-stmt:dest-is-deref2</span>: +<span id="L22867" class="LineNr">22867 </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="L22868" class="LineNr">22868 </span> } +<span id="L22869" class="LineNr">22869 </span> 89/<- %ebx 0/r32/eax +<span id="L22870" class="LineNr">22870 </span> } +<span id="L22871" class="LineNr">22871 </span> <span class="subxComment"># if dest is not a byte, abort</span> +<span id="L22872" class="LineNr">22872 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ebx 8) <span class="subxComment"># byte => eax</span> +<span id="L22873" class="LineNr">22873 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22874" class="LineNr">22874 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-invalid-dest-type/disp32 +<span id="L22875" class="LineNr">22875 </span><span class="Constant">$check-mu-copy-byte-to-stmt:end</span>: +<span id="L22876" class="LineNr">22876 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L22877" class="LineNr">22877 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L22878" class="LineNr">22878 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22879" class="LineNr">22879 </span> 5f/pop-to-edi +<span id="L22880" class="LineNr">22880 </span> 5e/pop-to-esi +<span id="L22881" class="LineNr">22881 </span> 5b/pop-to-ebx +<span id="L22882" class="LineNr">22882 </span> 5a/pop-to-edx +<span id="L22883" class="LineNr">22883 </span> 58/pop-to-eax +<span id="L22884" class="LineNr">22884 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22885" class="LineNr">22885 </span> 89/<- %esp 5/r32/ebp +<span id="L22886" class="LineNr">22886 </span> 5d/pop-to-ebp +<span id="L22887" class="LineNr">22887 </span> c3/return +<span id="L22888" class="LineNr">22888 </span> +<span id="L22889" class="LineNr">22889 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-incorrect-inouts</span>: +<span id="L22890" class="LineNr">22890 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22891" class="LineNr">22891 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22892" class="LineNr">22892 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22893" class="LineNr">22893 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22894" class="LineNr">22894 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte-to' must have two inouts\n"</span>) +<span id="L22895" class="LineNr">22895 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22896" class="LineNr">22896 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22897" class="LineNr">22897 </span> <span class="subxComment"># never gets here</span> +<span id="L22898" class="LineNr">22898 </span> +<span id="L22899" class="LineNr">22899 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-too-many-outputs</span>: +<span id="L22900" class="LineNr">22900 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22901" class="LineNr">22901 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22902" class="LineNr">22902 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22903" class="LineNr">22903 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22904" class="LineNr">22904 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte-to' must not have any outputs\n"</span>) +<span id="L22905" class="LineNr">22905 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22906" class="LineNr">22906 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22907" class="LineNr">22907 </span> <span class="subxComment"># never gets here</span> +<span id="L22908" class="LineNr">22908 </span> +<span id="L22909" class="LineNr">22909 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-src-not-in-register</span>: +<span id="L22910" class="LineNr">22910 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22911" class="LineNr">22911 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22912" class="LineNr">22912 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22913" class="LineNr">22913 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22914" class="LineNr">22914 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: source (second inout) must be in a register\n"</span>) +<span id="L22915" class="LineNr">22915 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22916" class="LineNr">22916 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22917" class="LineNr">22917 </span> <span class="subxComment"># never gets here</span> +<span id="L22918" class="LineNr">22918 </span> +<span id="L22919" class="LineNr">22919 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-invalid-dest-type</span>: +<span id="L22920" class="LineNr">22920 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22921" class="LineNr">22921 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22922" class="LineNr">22922 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22923" class="LineNr">22923 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22924" class="LineNr">22924 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: '"</span>) +<span id="L22925" class="LineNr">22925 </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="L22926" class="LineNr">22926 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> <span id="L22927" class="LineNr">22927 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22928" class="LineNr">22928 </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="L22928" class="LineNr">22928 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be a byte\n"</span>) <span id="L22929" class="LineNr">22929 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) <span id="L22930" class="LineNr">22930 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) <span id="L22931" class="LineNr">22931 </span> <span class="subxComment"># never gets here</span> <span id="L22932" class="LineNr">22932 </span> -<span id="L22933" class="LineNr">22933 </span><span class="Constant">$check-mu-compare-stmt:error-too-many-outputs</span>: +<span id="L22933" class="LineNr">22933 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-src-too-large</span>: <span id="L22934" class="LineNr">22934 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) <span id="L22935" class="LineNr">22935 </span> 8b/-> *(ebp+0xc) 0/r32/eax <span id="L22936" class="LineNr">22936 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> <span id="L22937" class="LineNr">22937 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22938" class="LineNr">22938 </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="L22939" class="LineNr">22939 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22940" class="LineNr">22940 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22941" class="LineNr">22941 </span> <span class="subxComment"># never gets here</span> -<span id="L22942" class="LineNr">22942 </span> -<span id="L22943" class="LineNr">22943 </span><span class="Constant">$check-mu-compare-stmt:error-both-in-memory</span>: -<span id="L22944" class="LineNr">22944 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22945" class="LineNr">22945 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22946" class="LineNr">22946 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22947" class="LineNr">22947 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22948" class="LineNr">22948 </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="L22949" class="LineNr">22949 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22950" class="LineNr">22950 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22951" class="LineNr">22951 </span> <span class="subxComment"># never gets here</span> -<span id="L22952" class="LineNr">22952 </span> -<span id="L22953" class="LineNr">22953 </span><span class="Constant">$check-mu-compare-stmt:error-left-too-large</span>: -<span id="L22954" class="LineNr">22954 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22955" class="LineNr">22955 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22956" class="LineNr">22956 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22957" class="LineNr">22957 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22958" class="LineNr">22958 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: '"</span>) -<span id="L22959" class="LineNr">22959 </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="L22960" class="LineNr">22960 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22961" class="LineNr">22961 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22962" class="LineNr">22962 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is too large to compare\n"</span>) -<span id="L22963" class="LineNr">22963 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22964" class="LineNr">22964 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22965" class="LineNr">22965 </span> <span class="subxComment"># never gets here</span> -<span id="L22966" class="LineNr">22966 </span> -<span id="L22967" class="LineNr">22967 </span><span class="Constant">$check-mu-compare-stmt:error-right-too-large</span>: -<span id="L22968" class="LineNr">22968 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22969" class="LineNr">22969 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22970" class="LineNr">22970 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22971" class="LineNr">22971 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22972" class="LineNr">22972 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: '"</span>) -<span id="L22973" class="LineNr">22973 </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="L22974" class="LineNr">22974 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22975" class="LineNr">22975 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22976" class="LineNr">22976 </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="L22977" class="LineNr">22977 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22978" class="LineNr">22978 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22979" class="LineNr">22979 </span> <span class="subxComment"># never gets here</span> -<span id="L22980" class="LineNr">22980 </span> -<span id="L22981" class="LineNr">22981 </span><span class="Constant">$check-mu-compare-stmt:error-right-string-literal</span>: -<span id="L22982" class="LineNr">22982 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22983" class="LineNr">22983 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22984" class="LineNr">22984 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22985" class="LineNr">22985 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22986" class="LineNr">22986 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: string literal "</span>) -<span id="L22987" class="LineNr">22987 </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="L22988" class="LineNr">22988 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22989" class="LineNr">22989 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22990" class="LineNr">22990 </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="L22991" class="LineNr">22991 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22992" class="LineNr">22992 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22993" class="LineNr">22993 </span> <span class="subxComment"># never gets here</span> -<span id="L22994" class="LineNr">22994 </span> -<span id="L22995" class="LineNr">22995 </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="L22996" class="LineNr">22996 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22997" class="LineNr">22997 </span> 55/push-ebp -<span id="L22998" class="LineNr">22998 </span> 89/<- %ebp 4/r32/esp -<span id="L22999" class="LineNr">22999 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23000" class="LineNr">23000 </span> 50/push-eax -<span id="L23001" class="LineNr">23001 </span> 51/push-ecx -<span id="L23002" class="LineNr">23002 </span> 52/push-edx -<span id="L23003" class="LineNr">23003 </span> 56/push-esi -<span id="L23004" class="LineNr">23004 </span> 57/push-edi -<span id="L23005" class="LineNr">23005 </span><span class="Constant">$check-mu-address-stmt:get-output</span>: -<span id="L23006" class="LineNr">23006 </span> <span class="subxComment"># esi = stmt</span> -<span id="L23007" class="LineNr">23007 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L23008" class="LineNr">23008 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> -<span id="L23009" class="LineNr">23009 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23010" class="LineNr">23010 </span> 89/<- %edi 0/r32/eax -<span id="L23011" class="LineNr">23011 </span> <span class="subxComment"># zero outputs</span> -<span id="L23012" class="LineNr">23012 </span> 3d/compare-eax-and 0/imm32 -<span id="L23013" class="LineNr">23013 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-output/disp32 -<span id="L23014" class="LineNr">23014 </span> <span class="subxComment"># > 1 output</span> -<span id="L23015" class="LineNr">23015 </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="L23016" class="LineNr">23016 </span> 3d/compare-eax-and 0/imm32 -<span id="L23017" class="LineNr">23017 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-outputs/disp32 -<span id="L23018" class="LineNr">23018 </span><span class="Constant">$check-mu-address-stmt:get-inout</span>: -<span id="L23019" class="LineNr">23019 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> -<span id="L23020" class="LineNr">23020 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23021" class="LineNr">23021 </span> 89/<- %esi 0/r32/eax -<span id="L23022" class="LineNr">23022 </span> <span class="subxComment"># zero inouts</span> -<span id="L23023" class="LineNr">23023 </span> 3d/compare-eax-and 0/imm32 -<span id="L23024" class="LineNr">23024 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-inout/disp32 -<span id="L23025" class="LineNr">23025 </span> <span class="subxComment"># > 1 inout</span> -<span id="L23026" class="LineNr">23026 </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="L23027" class="LineNr">23027 </span> 3d/compare-eax-and 0/imm32 -<span id="L23028" class="LineNr">23028 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-inouts/disp32 -<span id="L23029" class="LineNr">23029 </span><span class="Constant">$check-mu-address-stmt:types</span>: -<span id="L23030" class="LineNr">23030 </span> <span class="subxComment"># if output not in register, abort</span> -<span id="L23031" class="LineNr">23031 </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="L23032" class="LineNr">23032 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23033" class="LineNr">23033 </span> 3d/compare-eax-and 0/imm32 -<span id="L23034" class="LineNr">23034 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-in-register/disp32 -<span id="L23035" class="LineNr">23035 </span> <span class="subxComment"># var output-type/edx: (addr type-tree) = output->value->type</span> -<span id="L23036" class="LineNr">23036 </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="L23037" class="LineNr">23037 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23038" class="LineNr">23038 </span> 89/<- %edx 0/r32/eax -<span id="L23039" class="LineNr">23039 </span> <span class="subxComment"># if output-type not an addr, abort</span> -<span id="L23040" class="LineNr">23040 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L23041" class="LineNr">23041 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23042" class="LineNr">23042 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-address/disp32 -<span id="L23043" class="LineNr">23043 </span> <span class="subxComment"># output-type = output-type->right</span> -<span id="L23044" class="LineNr">23044 </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="L23045" class="LineNr">23045 </span> <span class="subxComment"># if output-type->right is null, output-type = output-type->left</span> -<span id="L23046" class="LineNr">23046 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23047" class="LineNr">23047 </span> { -<span id="L23048" class="LineNr">23048 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23049" class="LineNr">23049 </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="L23050" class="LineNr">23050 </span> } -<span id="L23051" class="LineNr">23051 </span> 89/<- %edx 0/r32/eax -<span id="L23052" class="LineNr">23052 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> -<span id="L23053" class="LineNr">23053 </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="L23054" class="LineNr">23054 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23055" class="LineNr">23055 </span> 89/<- %ecx 0/r32/eax -<span id="L23056" class="LineNr">23056 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> -<span id="L23057" class="LineNr">23057 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23058" class="LineNr">23058 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23059" class="LineNr">23059 </span> { -<span id="L23060" class="LineNr">23060 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23061" class="LineNr">23061 </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="L23062" class="LineNr">23062 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> -<span id="L23063" class="LineNr">23063 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23064" class="LineNr">23064 </span> { -<span id="L23065" class="LineNr">23065 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23066" class="LineNr">23066 </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="L23067" class="LineNr">23067 </span> } -<span id="L23068" class="LineNr">23068 </span> 89/<- %ecx 0/r32/eax -<span id="L23069" class="LineNr">23069 </span> } -<span id="L23070" class="LineNr">23070 </span> <span class="subxComment"># if (inout-type != output-type) abort</span> -<span id="L23071" class="LineNr">23071 </span> (<a href='mu.subx.html#L23172'>type-equal-ignoring-capacity?</a> %edx %ecx) <span class="subxComment"># => eax</span> -<span id="L23072" class="LineNr">23072 </span> 3d/compare-eax-and 0/imm32 -<span id="L23073" class="LineNr">23073 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-type-mismatch/disp32 -<span id="L23074" class="LineNr">23074 </span><span class="Constant">$check-mu-address-stmt:end</span>: -<span id="L23075" class="LineNr">23075 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23076" class="LineNr">23076 </span> 5f/pop-to-edi -<span id="L23077" class="LineNr">23077 </span> 5e/pop-to-esi -<span id="L23078" class="LineNr">23078 </span> 5a/pop-to-edx -<span id="L23079" class="LineNr">23079 </span> 59/pop-to-ecx -<span id="L23080" class="LineNr">23080 </span> 58/pop-to-eax -<span id="L23081" class="LineNr">23081 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23082" class="LineNr">23082 </span> 89/<- %esp 5/r32/ebp -<span id="L23083" class="LineNr">23083 </span> 5d/pop-to-ebp -<span id="L23084" class="LineNr">23084 </span> c3/return -<span id="L23085" class="LineNr">23085 </span> -<span id="L23086" class="LineNr">23086 </span><span class="Constant">$check-mu-address-stmt:error-no-inout</span>: -<span id="L23087" class="LineNr">23087 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23088" class="LineNr">23088 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23089" class="LineNr">23089 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23090" class="LineNr">23090 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23091" class="LineNr">23091 </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="L23092" class="LineNr">23092 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23093" class="LineNr">23093 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23094" class="LineNr">23094 </span> <span class="subxComment"># never gets here</span> -<span id="L23095" class="LineNr">23095 </span> -<span id="L23096" class="LineNr">23096 </span><span class="Constant">$check-mu-address-stmt:error-too-many-inouts</span>: -<span id="L23097" class="LineNr">23097 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23098" class="LineNr">23098 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23099" class="LineNr">23099 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23100" class="LineNr">23100 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23101" class="LineNr">23101 </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="L23102" class="LineNr">23102 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23103" class="LineNr">23103 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23104" class="LineNr">23104 </span> <span class="subxComment"># never gets here</span> -<span id="L23105" class="LineNr">23105 </span> -<span id="L23106" class="LineNr">23106 </span><span class="Constant">$check-mu-address-stmt:error-no-output</span>: -<span id="L23107" class="LineNr">23107 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23108" class="LineNr">23108 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23109" class="LineNr">23109 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23110" class="LineNr">23110 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23111" class="LineNr">23111 </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="L23112" class="LineNr">23112 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23113" class="LineNr">23113 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23114" class="LineNr">23114 </span> <span class="subxComment"># never gets here</span> -<span id="L23115" class="LineNr">23115 </span> -<span id="L23116" class="LineNr">23116 </span><span class="Constant">$check-mu-address-stmt:error-output-not-in-register</span>: -<span id="L23117" class="LineNr">23117 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23118" class="LineNr">23118 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23119" class="LineNr">23119 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23120" class="LineNr">23120 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23121" class="LineNr">23121 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) -<span id="L23122" class="LineNr">23122 </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="L23123" class="LineNr">23123 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23124" class="LineNr">23124 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23125" class="LineNr">23125 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) -<span id="L23126" class="LineNr">23126 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23127" class="LineNr">23127 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23128" class="LineNr">23128 </span> <span class="subxComment"># never gets here</span> -<span id="L23129" class="LineNr">23129 </span> -<span id="L23130" class="LineNr">23130 </span><span class="Constant">$check-mu-address-stmt:error-too-many-outputs</span>: -<span id="L23131" class="LineNr">23131 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23132" class="LineNr">23132 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23133" class="LineNr">23133 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23134" class="LineNr">23134 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23135" class="LineNr">23135 </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="L23136" class="LineNr">23136 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23137" class="LineNr">23137 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23138" class="LineNr">23138 </span> <span class="subxComment"># never gets here</span> -<span id="L23139" class="LineNr">23139 </span> -<span id="L23140" class="LineNr">23140 </span><span class="Constant">$check-mu-address-stmt:error-output-not-address</span>: -<span id="L23141" class="LineNr">23141 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23142" class="LineNr">23142 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23143" class="LineNr">23143 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23144" class="LineNr">23144 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23145" class="LineNr">23145 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) -<span id="L23146" class="LineNr">23146 </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="L23147" class="LineNr">23147 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23148" class="LineNr">23148 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23149" class="LineNr">23149 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an addr\n"</span>) -<span id="L23150" class="LineNr">23150 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23151" class="LineNr">23151 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23152" class="LineNr">23152 </span> <span class="subxComment"># never gets here</span> -<span id="L23153" class="LineNr">23153 </span> -<span id="L23154" class="LineNr">23154 </span><span class="Constant">$check-mu-address-stmt:error-type-mismatch</span>: -<span id="L23155" class="LineNr">23155 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23156" class="LineNr">23156 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23157" class="LineNr">23157 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23158" class="LineNr">23158 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23159" class="LineNr">23159 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) -<span id="L23160" class="LineNr">23160 </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="L23161" class="LineNr">23161 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23162" class="LineNr">23162 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23163" class="LineNr">23163 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot hold address of '"</span>) -<span id="L23164" class="LineNr">23164 </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="L23165" class="LineNr">23165 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23166" class="LineNr">23166 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23167" class="LineNr">23167 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L23168" class="LineNr">23168 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23169" class="LineNr">23169 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23170" class="LineNr">23170 </span> <span class="subxComment"># never gets here</span> -<span id="L23171" class="LineNr">23171 </span> -<span id="L23172" class="LineNr">23172 </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="L23173" class="LineNr">23173 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23174" class="LineNr">23174 </span> 55/push-ebp -<span id="L23175" class="LineNr">23175 </span> 89/<- %ebp 4/r32/esp -<span id="L23176" class="LineNr">23176 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23177" class="LineNr">23177 </span> 51/push-ecx -<span id="L23178" class="LineNr">23178 </span> 52/push-edx -<span id="L23179" class="LineNr">23179 </span> 53/push-ebx -<span id="L23180" class="LineNr">23180 </span> <span class="subxComment"># var curr-a/ecx: (addr type-tree) = a</span> -<span id="L23181" class="LineNr">23181 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L23182" class="LineNr">23182 </span> <span class="subxComment"># var curr-b/ebx: (addr type-tree) = b</span> -<span id="L23183" class="LineNr">23183 </span> 8b/-> *(ebp+0xc) 3/r32/ebx -<span id="L23184" class="LineNr">23184 </span> <span class="subxComment"># if (curr-a->is-atom?) fall back to regular equality</span> -<span id="L23185" class="LineNr">23185 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23186" class="LineNr">23186 </span> 0f 85/jump-if-!= $type-equal-ignoring-capacity?:base-case/disp32 -<span id="L23187" class="LineNr">23187 </span> <span class="subxComment"># if (curr-a->left != curr-b->left) return false</span> -<span id="L23188" class="LineNr">23188 </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="L23189" class="LineNr">23189 </span> 89/<- %edx 0/r32/eax -<span id="L23190" class="LineNr">23190 </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="L23191" class="LineNr">23191 </span> (<a href='mu.subx.html#L26922'>type-equal?</a> %edx %eax) <span class="subxComment"># => eax</span> -<span id="L23192" class="LineNr">23192 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23193" class="LineNr">23193 </span> 0f 84/jump-if-= $type-equal-ignoring-capacity?:end/disp32 <span class="subxComment"># eax switches meaning</span> -<span id="L23194" class="LineNr">23194 </span> <span class="subxComment"># if (curr-a->left == "array") curr-a = curr-a->element-type</span> -<span id="L23195" class="LineNr">23195 </span> { -<span id="L23196" class="LineNr">23196 </span> (<a href='mu.subx.html#L26692'>mu-array?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L23197" class="LineNr">23197 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23198" class="LineNr">23198 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23199" class="LineNr">23199 </span><span class="Constant">$type-equal-ignoring-capacity?:array</span>: -<span id="L23200" class="LineNr">23200 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> -<span id="L23201" class="LineNr">23201 </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="L23202" class="LineNr">23202 </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="L23203" class="LineNr">23203 </span> 89/<- %ecx 0/r32/eax -<span id="L23204" class="LineNr">23204 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> -<span id="L23205" class="LineNr">23205 </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="L23206" class="LineNr">23206 </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="L23207" class="LineNr">23207 </span> 89/<- %ebx 0/r32/eax -<span id="L23208" class="LineNr">23208 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 -<span id="L23209" class="LineNr">23209 </span> } -<span id="L23210" class="LineNr">23210 </span> <span class="subxComment"># if (curr-a->left == "stream") curr-a = curr-a->element-type</span> -<span id="L23211" class="LineNr">23211 </span> { -<span id="L23212" class="LineNr">23212 </span> (<a href='mu.subx.html#L26757'>mu-stream?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L23213" class="LineNr">23213 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23214" class="LineNr">23214 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23215" class="LineNr">23215 </span><span class="Constant">$type-equal-ignoring-capacity?:stream</span>: -<span id="L23216" class="LineNr">23216 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> -<span id="L23217" class="LineNr">23217 </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="L23218" class="LineNr">23218 </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="L23219" class="LineNr">23219 </span> 89/<- %ecx 0/r32/eax -<span id="L23220" class="LineNr">23220 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> -<span id="L23221" class="LineNr">23221 </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="L23222" class="LineNr">23222 </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="L23223" class="LineNr">23223 </span> 89/<- %ebx 0/r32/eax -<span id="L23224" class="LineNr">23224 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 +<span id="L22938" class="LineNr">22938 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: '"</span>) +<span id="L22939" class="LineNr">22939 </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="L22940" class="LineNr">22940 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22941" class="LineNr">22941 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22942" class="LineNr">22942 </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="L22943" class="LineNr">22943 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22944" class="LineNr">22944 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22945" class="LineNr">22945 </span> <span class="subxComment"># never gets here</span> +<span id="L22946" class="LineNr">22946 </span> +<span id="L22947" class="LineNr">22947 </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="L22948" class="LineNr">22948 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22949" class="LineNr">22949 </span> 55/push-ebp +<span id="L22950" class="LineNr">22950 </span> 89/<- %ebp 4/r32/esp +<span id="L22951" class="LineNr">22951 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22952" class="LineNr">22952 </span> 50/push-eax +<span id="L22953" class="LineNr">22953 </span> 51/push-ecx +<span id="L22954" class="LineNr">22954 </span> 52/push-edx +<span id="L22955" class="LineNr">22955 </span> 53/push-ebx +<span id="L22956" class="LineNr">22956 </span> 56/push-esi +<span id="L22957" class="LineNr">22957 </span> 57/push-edi +<span id="L22958" class="LineNr">22958 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L22959" class="LineNr">22959 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L22960" class="LineNr">22960 </span> 68/push 0x60/imm32/size +<span id="L22961" class="LineNr">22961 </span> 68/push 0/imm32/read +<span id="L22962" class="LineNr">22962 </span> 68/push 0/imm32/write +<span id="L22963" class="LineNr">22963 </span> 89/<- %edx 4/r32/esp +<span id="L22964" class="LineNr">22964 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22965" class="LineNr">22965 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22966" class="LineNr">22966 </span><span class="Constant">$check-mu-compare-stmt:check-for-output</span>: +<span id="L22967" class="LineNr">22967 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L22968" class="LineNr">22968 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22969" class="LineNr">22969 </span> 3d/compare-eax-and 0/imm32 +<span id="L22970" class="LineNr">22970 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-too-many-outputs/disp32 +<span id="L22971" class="LineNr">22971 </span><span class="Constant">$check-mu-compare-stmt:get-left</span>: +<span id="L22972" class="LineNr">22972 </span> <span class="subxComment"># var left/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L22973" class="LineNr">22973 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22974" class="LineNr">22974 </span> 89/<- %edi 0/r32/eax +<span id="L22975" class="LineNr">22975 </span> <span class="subxComment"># zero inouts</span> +<span id="L22976" class="LineNr">22976 </span> 3d/compare-eax-and 0/imm32 +<span id="L22977" class="LineNr">22977 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 +<span id="L22978" class="LineNr">22978 </span><span class="Constant">$check-mu-compare-stmt:get-right</span>: +<span id="L22979" class="LineNr">22979 </span> <span class="subxComment"># var right/esi: (addr stmt-var) = left->next</span> +<span id="L22980" class="LineNr">22980 </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="L22981" class="LineNr">22981 </span> 89/<- %esi 0/r32/eax +<span id="L22982" class="LineNr">22982 </span> <span class="subxComment"># 1 inout</span> +<span id="L22983" class="LineNr">22983 </span> 3d/compare-eax-and 0/imm32 +<span id="L22984" class="LineNr">22984 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 +<span id="L22985" class="LineNr">22985 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L22986" class="LineNr">22986 </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="L22987" class="LineNr">22987 </span> 3d/compare-eax-and 0/imm32 +<span id="L22988" class="LineNr">22988 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-incorrect-inouts/disp32 +<span id="L22989" class="LineNr">22989 </span> <span class="subxComment"># if both inouts are in memory, abort</span> +<span id="L22990" class="LineNr">22990 </span> { +<span id="L22991" class="LineNr">22991 </span><span class="Constant">$check-mu-compare-stmt:both-in-mem</span>: +<span id="L22992" class="LineNr">22992 </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="L22993" class="LineNr">22993 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22994" class="LineNr">22994 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L22995" class="LineNr">22995 </span> 3d/compare-eax-and 0/imm32 +<span id="L22996" class="LineNr">22996 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L22997" class="LineNr">22997 </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="L22998" class="LineNr">22998 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22999" class="LineNr">22999 </span> 3d/compare-eax-and 0/imm32 +<span id="L23000" class="LineNr">23000 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23001" class="LineNr">23001 </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="L23002" class="LineNr">23002 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23003" class="LineNr">23003 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L23004" class="LineNr">23004 </span> 3d/compare-eax-and 0/imm32 +<span id="L23005" class="LineNr">23005 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23006" class="LineNr">23006 </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="L23007" class="LineNr">23007 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23008" class="LineNr">23008 </span> 3d/compare-eax-and 0/imm32 +<span id="L23009" class="LineNr">23009 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23010" class="LineNr">23010 </span> e9/jump $check-mu-compare-stmt:error-both-in-memory/disp32 +<span id="L23011" class="LineNr">23011 </span> } +<span id="L23012" class="LineNr">23012 </span><span class="Constant">$check-mu-compare-stmt:types</span>: +<span id="L23013" class="LineNr">23013 </span> <span class="subxComment"># var right-type/ecx: (addr type-tree) = right->value->type</span> +<span id="L23014" class="LineNr">23014 </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="L23015" class="LineNr">23015 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23016" class="LineNr">23016 </span> 89/<- %ecx 0/r32/eax +<span id="L23017" class="LineNr">23017 </span> <span class="subxComment"># if (right->is-deref?) right-type = right-type->payload</span> +<span id="L23018" class="LineNr">23018 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23019" class="LineNr">23019 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23020" class="LineNr">23020 </span> { +<span id="L23021" class="LineNr">23021 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23022" class="LineNr">23022 </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="L23023" class="LineNr">23023 </span> <span class="subxComment"># if right-type->right is null, right-type = right-type->left</span> +<span id="L23024" class="LineNr">23024 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23025" class="LineNr">23025 </span> { +<span id="L23026" class="LineNr">23026 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23027" class="LineNr">23027 </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="L23028" class="LineNr">23028 </span> } +<span id="L23029" class="LineNr">23029 </span> 89/<- %ecx 0/r32/eax +<span id="L23030" class="LineNr">23030 </span> } +<span id="L23031" class="LineNr">23031 </span> <span class="subxComment"># if right-type is a literal string, abort</span> +<span id="L23032" class="LineNr">23032 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ecx 0x10) <span class="subxComment"># string-literal => eax</span> +<span id="L23033" class="LineNr">23033 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23034" class="LineNr">23034 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-right-string-literal/disp32 +<span id="L23035" class="LineNr">23035 </span> <span class="subxComment"># if right is not a scalar, abort</span> +<span id="L23036" class="LineNr">23036 </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="L23037" class="LineNr">23037 </span> (<a href='mu.subx.html#L26770'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L23038" class="LineNr">23038 </span> 3d/compare-eax-and 4/imm32 +<span id="L23039" class="LineNr">23039 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-right-too-large/disp32 +<span id="L23040" class="LineNr">23040 </span> <span class="subxComment"># if left is not a scalar, abort</span> +<span id="L23041" class="LineNr">23041 </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="L23042" class="LineNr">23042 </span> (<a href='mu.subx.html#L26770'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L23043" class="LineNr">23043 </span> 3d/compare-eax-and 4/imm32 +<span id="L23044" class="LineNr">23044 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-left-too-large/disp32 +<span id="L23045" class="LineNr">23045 </span> <span class="subxComment"># var left-type/ebx: (addr type-tree) = left->value->type</span> +<span id="L23046" class="LineNr">23046 </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="L23047" class="LineNr">23047 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23048" class="LineNr">23048 </span> 89/<- %ebx 0/r32/eax +<span id="L23049" class="LineNr">23049 </span> <span class="subxComment"># if (left->is-deref?) left-type = left-type->payload</span> +<span id="L23050" class="LineNr">23050 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23051" class="LineNr">23051 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23052" class="LineNr">23052 </span> { +<span id="L23053" class="LineNr">23053 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23054" class="LineNr">23054 </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="L23055" class="LineNr">23055 </span> <span class="subxComment"># if left-type->right is null, left-type = left-type->left</span> +<span id="L23056" class="LineNr">23056 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23057" class="LineNr">23057 </span> { +<span id="L23058" class="LineNr">23058 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23059" class="LineNr">23059 </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="L23060" class="LineNr">23060 </span> } +<span id="L23061" class="LineNr">23061 </span> 89/<- %ebx 0/r32/eax +<span id="L23062" class="LineNr">23062 </span> } +<span id="L23063" class="LineNr">23063 </span> <span class="subxComment"># if (left-type == right-type) return</span> +<span id="L23064" class="LineNr">23064 </span> (<a href='mu.subx.html#L26614'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> +<span id="L23065" class="LineNr">23065 </span> 3d/compare-eax-and 0/imm32 +<span id="L23066" class="LineNr">23066 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:end/disp32 +<span id="L23067" class="LineNr">23067 </span> <span class="subxComment"># if left is an addr and right is 0, return</span> +<span id="L23068" class="LineNr">23068 </span> { +<span id="L23069" class="LineNr">23069 </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="L23070" class="LineNr">23070 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23071" class="LineNr">23071 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L23072" class="LineNr">23072 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23073" class="LineNr">23073 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23074" class="LineNr">23074 </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="L23075" class="LineNr">23075 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23076" class="LineNr">23076 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L23077" class="LineNr">23077 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23078" class="LineNr">23078 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23079" class="LineNr">23079 </span> eb/jump $check-mu-compare-stmt:end/disp8 +<span id="L23080" class="LineNr">23080 </span> } +<span id="L23081" class="LineNr">23081 </span> <span class="subxComment"># if left is not number-like, abort</span> +<span id="L23082" class="LineNr">23082 </span> (<a href='mu.subx.html#L22049'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L23083" class="LineNr">23083 </span><span class="Constant">$check-mu-compare-stmt:end</span>: +<span id="L23084" class="LineNr">23084 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L23085" class="LineNr">23085 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L23086" class="LineNr">23086 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23087" class="LineNr">23087 </span> 5f/pop-to-edi +<span id="L23088" class="LineNr">23088 </span> 5e/pop-to-esi +<span id="L23089" class="LineNr">23089 </span> 5b/pop-to-ebx +<span id="L23090" class="LineNr">23090 </span> 5a/pop-to-edx +<span id="L23091" class="LineNr">23091 </span> 59/pop-to-ecx +<span id="L23092" class="LineNr">23092 </span> 58/pop-to-eax +<span id="L23093" class="LineNr">23093 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23094" class="LineNr">23094 </span> 89/<- %esp 5/r32/ebp +<span id="L23095" class="LineNr">23095 </span> 5d/pop-to-ebp +<span id="L23096" class="LineNr">23096 </span> c3/return +<span id="L23097" class="LineNr">23097 </span> +<span id="L23098" class="LineNr">23098 </span><span class="Constant">$check-mu-compare-stmt:error-incorrect-inouts</span>: +<span id="L23099" class="LineNr">23099 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23100" class="LineNr">23100 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23101" class="LineNr">23101 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23102" class="LineNr">23102 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23103" class="LineNr">23103 </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="L23104" class="LineNr">23104 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23105" class="LineNr">23105 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23106" class="LineNr">23106 </span> <span class="subxComment"># never gets here</span> +<span id="L23107" class="LineNr">23107 </span> +<span id="L23108" class="LineNr">23108 </span><span class="Constant">$check-mu-compare-stmt:error-too-many-outputs</span>: +<span id="L23109" class="LineNr">23109 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23110" class="LineNr">23110 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23111" class="LineNr">23111 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23112" class="LineNr">23112 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23113" class="LineNr">23113 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'compare' must not have any outputs\n"</span>) +<span id="L23114" class="LineNr">23114 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23115" class="LineNr">23115 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23116" class="LineNr">23116 </span> <span class="subxComment"># never gets here</span> +<span id="L23117" class="LineNr">23117 </span> +<span id="L23118" class="LineNr">23118 </span><span class="Constant">$check-mu-compare-stmt:error-both-in-memory</span>: +<span id="L23119" class="LineNr">23119 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23120" class="LineNr">23120 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23121" class="LineNr">23121 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23122" class="LineNr">23122 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23123" class="LineNr">23123 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: both inouts are in memory\n"</span>) +<span id="L23124" class="LineNr">23124 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23125" class="LineNr">23125 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23126" class="LineNr">23126 </span> <span class="subxComment"># never gets here</span> +<span id="L23127" class="LineNr">23127 </span> +<span id="L23128" class="LineNr">23128 </span><span class="Constant">$check-mu-compare-stmt:error-left-too-large</span>: +<span id="L23129" class="LineNr">23129 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23130" class="LineNr">23130 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23131" class="LineNr">23131 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23132" class="LineNr">23132 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23133" class="LineNr">23133 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: '"</span>) +<span id="L23134" class="LineNr">23134 </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="L23135" class="LineNr">23135 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23136" class="LineNr">23136 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23137" class="LineNr">23137 </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="L23138" class="LineNr">23138 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23139" class="LineNr">23139 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23140" class="LineNr">23140 </span> <span class="subxComment"># never gets here</span> +<span id="L23141" class="LineNr">23141 </span> +<span id="L23142" class="LineNr">23142 </span><span class="Constant">$check-mu-compare-stmt:error-right-too-large</span>: +<span id="L23143" class="LineNr">23143 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23144" class="LineNr">23144 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23145" class="LineNr">23145 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23146" class="LineNr">23146 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23147" class="LineNr">23147 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: '"</span>) +<span id="L23148" class="LineNr">23148 </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="L23149" class="LineNr">23149 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23150" class="LineNr">23150 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23151" class="LineNr">23151 </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="L23152" class="LineNr">23152 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23153" class="LineNr">23153 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23154" class="LineNr">23154 </span> <span class="subxComment"># never gets here</span> +<span id="L23155" class="LineNr">23155 </span> +<span id="L23156" class="LineNr">23156 </span><span class="Constant">$check-mu-compare-stmt:error-right-string-literal</span>: +<span id="L23157" class="LineNr">23157 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23158" class="LineNr">23158 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23159" class="LineNr">23159 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23160" class="LineNr">23160 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23161" class="LineNr">23161 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: string literal "</span>) +<span id="L23162" class="LineNr">23162 </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="L23163" class="LineNr">23163 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23164" class="LineNr">23164 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23165" class="LineNr">23165 </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="L23166" class="LineNr">23166 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23167" class="LineNr">23167 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23168" class="LineNr">23168 </span> <span class="subxComment"># never gets here</span> +<span id="L23169" class="LineNr">23169 </span> +<span id="L23170" class="LineNr">23170 </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="L23171" class="LineNr">23171 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23172" class="LineNr">23172 </span> 55/push-ebp +<span id="L23173" class="LineNr">23173 </span> 89/<- %ebp 4/r32/esp +<span id="L23174" class="LineNr">23174 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23175" class="LineNr">23175 </span> 50/push-eax +<span id="L23176" class="LineNr">23176 </span> 51/push-ecx +<span id="L23177" class="LineNr">23177 </span> 52/push-edx +<span id="L23178" class="LineNr">23178 </span> 56/push-esi +<span id="L23179" class="LineNr">23179 </span> 57/push-edi +<span id="L23180" class="LineNr">23180 </span><span class="Constant">$check-mu-address-stmt:get-output</span>: +<span id="L23181" class="LineNr">23181 </span> <span class="subxComment"># esi = stmt</span> +<span id="L23182" class="LineNr">23182 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L23183" class="LineNr">23183 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> +<span id="L23184" class="LineNr">23184 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L23185" class="LineNr">23185 </span> 89/<- %edi 0/r32/eax +<span id="L23186" class="LineNr">23186 </span> <span class="subxComment"># zero outputs</span> +<span id="L23187" class="LineNr">23187 </span> 3d/compare-eax-and 0/imm32 +<span id="L23188" class="LineNr">23188 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-output/disp32 +<span id="L23189" class="LineNr">23189 </span> <span class="subxComment"># > 1 output</span> +<span id="L23190" class="LineNr">23190 </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="L23191" class="LineNr">23191 </span> 3d/compare-eax-and 0/imm32 +<span id="L23192" class="LineNr">23192 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-outputs/disp32 +<span id="L23193" class="LineNr">23193 </span><span class="Constant">$check-mu-address-stmt:get-inout</span>: +<span id="L23194" class="LineNr">23194 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> +<span id="L23195" class="LineNr">23195 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23196" class="LineNr">23196 </span> 89/<- %esi 0/r32/eax +<span id="L23197" class="LineNr">23197 </span> <span class="subxComment"># zero inouts</span> +<span id="L23198" class="LineNr">23198 </span> 3d/compare-eax-and 0/imm32 +<span id="L23199" class="LineNr">23199 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-inout/disp32 +<span id="L23200" class="LineNr">23200 </span> <span class="subxComment"># > 1 inout</span> +<span id="L23201" class="LineNr">23201 </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="L23202" class="LineNr">23202 </span> 3d/compare-eax-and 0/imm32 +<span id="L23203" class="LineNr">23203 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-inouts/disp32 +<span id="L23204" class="LineNr">23204 </span><span class="Constant">$check-mu-address-stmt:types</span>: +<span id="L23205" class="LineNr">23205 </span> <span class="subxComment"># if output not in register, abort</span> +<span id="L23206" class="LineNr">23206 </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="L23207" class="LineNr">23207 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23208" class="LineNr">23208 </span> 3d/compare-eax-and 0/imm32 +<span id="L23209" class="LineNr">23209 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-in-register/disp32 +<span id="L23210" class="LineNr">23210 </span> <span class="subxComment"># var output-type/edx: (addr type-tree) = output->value->type</span> +<span id="L23211" class="LineNr">23211 </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="L23212" class="LineNr">23212 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23213" class="LineNr">23213 </span> 89/<- %edx 0/r32/eax +<span id="L23214" class="LineNr">23214 </span> <span class="subxComment"># if output-type not an addr, abort</span> +<span id="L23215" class="LineNr">23215 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L23216" class="LineNr">23216 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23217" class="LineNr">23217 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-address/disp32 +<span id="L23218" class="LineNr">23218 </span> <span class="subxComment"># output-type = output-type->right</span> +<span id="L23219" class="LineNr">23219 </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="L23220" class="LineNr">23220 </span> <span class="subxComment"># if output-type->right is null, output-type = output-type->left</span> +<span id="L23221" class="LineNr">23221 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23222" class="LineNr">23222 </span> { +<span id="L23223" class="LineNr">23223 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23224" class="LineNr">23224 </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="L23225" class="LineNr">23225 </span> } -<span id="L23226" class="LineNr">23226 </span><span class="Constant">$type-equal-ignoring-capacity?:base-case</span>: -<span id="L23227" class="LineNr">23227 </span> <span class="subxComment"># return type-equal?(curr-a, curr-b)</span> -<span id="L23228" class="LineNr">23228 </span> (<a href='mu.subx.html#L26922'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> -<span id="L23229" class="LineNr">23229 </span><span class="Constant">$type-equal-ignoring-capacity?:end</span>: -<span id="L23230" class="LineNr">23230 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23231" class="LineNr">23231 </span> 5b/pop-to-ebx -<span id="L23232" class="LineNr">23232 </span> 5a/pop-to-edx -<span id="L23233" class="LineNr">23233 </span> 59/pop-to-ecx -<span id="L23234" class="LineNr">23234 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23235" class="LineNr">23235 </span> 89/<- %esp 5/r32/ebp -<span id="L23236" class="LineNr">23236 </span> 5d/pop-to-ebp -<span id="L23237" class="LineNr">23237 </span> c3/return -<span id="L23238" class="LineNr">23238 </span> -<span id="L23239" class="LineNr">23239 </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="L23240" class="LineNr">23240 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23241" class="LineNr">23241 </span> 55/push-ebp -<span id="L23242" class="LineNr">23242 </span> 89/<- %ebp 4/r32/esp -<span id="L23243" class="LineNr">23243 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23244" class="LineNr">23244 </span> 50/push-eax -<span id="L23245" class="LineNr">23245 </span> 51/push-ecx -<span id="L23246" class="LineNr">23246 </span> 52/push-edx -<span id="L23247" class="LineNr">23247 </span> 53/push-ebx -<span id="L23248" class="LineNr">23248 </span> 56/push-esi -<span id="L23249" class="LineNr">23249 </span> 57/push-edi -<span id="L23250" class="LineNr">23250 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L23251" class="LineNr">23251 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L23252" class="LineNr">23252 </span> 68/push 0x60/imm32/size -<span id="L23253" class="LineNr">23253 </span> 68/push 0/imm32/read -<span id="L23254" class="LineNr">23254 </span> 68/push 0/imm32/write -<span id="L23255" class="LineNr">23255 </span> 89/<- %edx 4/r32/esp -<span id="L23256" class="LineNr">23256 </span> <span class="subxComment"># var template/esi: (addr list var) = fn->outputs</span> -<span id="L23257" class="LineNr">23257 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23258" class="LineNr">23258 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L23259" class="LineNr">23259 </span> 89/<- %esi 0/r32/eax -<span id="L23260" class="LineNr">23260 </span> <span class="subxComment"># var curr-template/ebx: (addr list var) = fn->outputs</span> -<span id="L23261" class="LineNr">23261 </span> 89/<- %ebx 0/r32/eax -<span id="L23262" class="LineNr">23262 </span> <span class="subxComment"># var curr/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L23263" class="LineNr">23263 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23264" class="LineNr">23264 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23265" class="LineNr">23265 </span> 89/<- %edi 0/r32/eax -<span id="L23266" class="LineNr">23266 </span> { -<span id="L23267" class="LineNr">23267 </span> <span class="subxComment"># if template is null, break</span> -<span id="L23268" class="LineNr">23268 </span> 81 7/subop/compare %ebx 0/imm32 -<span id="L23269" class="LineNr">23269 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23270" class="LineNr">23270 </span> <span class="subxComment"># if curr is null, abort</span> -<span id="L23271" class="LineNr">23271 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L23272" class="LineNr">23272 </span> 0f 84/jump-if-= $check-mu-return-stmt:error-too-few-inouts/disp32 -<span id="L23273" class="LineNr">23273 </span> <span class="subxComment"># var template-type/ecx: (addr type-tree) = template->value->type</span> -<span id="L23274" class="LineNr">23274 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23275" class="LineNr">23275 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23276" class="LineNr">23276 </span> 89/<- %ecx 0/r32/eax -<span id="L23277" class="LineNr">23277 </span> <span class="subxComment"># var curr-type/eax: (addr type-tree) = curr->value->type</span> -<span id="L23278" class="LineNr">23278 </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="L23279" class="LineNr">23279 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23280" class="LineNr">23280 </span> <span class="subxComment"># if (curr->is-deref?) curr-type = payload of curr-type</span> -<span id="L23281" class="LineNr">23281 </span> 81 7/subop/compare *(edi+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23282" class="LineNr">23282 </span> { -<span id="L23283" class="LineNr">23283 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23284" class="LineNr">23284 </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="L23285" class="LineNr">23285 </span> <span class="subxComment"># if t->right is null, t = t->left</span> -<span id="L23286" class="LineNr">23286 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23287" class="LineNr">23287 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23288" class="LineNr">23288 </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="L23289" class="LineNr">23289 </span> } -<span id="L23290" class="LineNr">23290 </span> <span class="subxComment"># if curr-type is literal and template-type is float, abort</span> -<span id="L23291" class="LineNr">23291 </span> 50/push-eax -<span id="L23292" class="LineNr">23292 </span> { -<span id="L23293" class="LineNr">23293 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> -<span id="L23294" class="LineNr">23294 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23295" class="LineNr">23295 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23296" class="LineNr">23296 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> -<span id="L23297" class="LineNr">23297 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23298" class="LineNr">23298 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error-literal-to-float/disp32 -<span id="L23299" class="LineNr">23299 </span> } -<span id="L23300" class="LineNr">23300 </span> 58/pop-to-eax -<span id="L23301" class="LineNr">23301 </span> <span class="subxComment"># if (curr-type != template-type) abort</span> -<span id="L23302" class="LineNr">23302 </span> (<a href='mu.subx.html#L26439'>type-match?</a> %ecx %eax %edx) <span class="subxComment"># => eax</span> -<span id="L23303" class="LineNr">23303 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23304" class="LineNr">23304 </span> 0f 84/jump-if-= $check-mu-return-stmt:error1/disp32 -<span id="L23305" class="LineNr">23305 </span> <span class="subxComment"># if register-within-list-with-conflict?(curr, original template, curr-template, stmt) abort</span> -<span id="L23306" class="LineNr">23306 </span> (<a href='mu.subx.html#L23459'>register-within-list-with-conflict?</a> %edi %esi %ebx *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L23307" class="LineNr">23307 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23308" class="LineNr">23308 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error2/disp32 -<span id="L23309" class="LineNr">23309 </span> <span class="subxComment"># template = template->next</span> -<span id="L23310" class="LineNr">23310 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23311" class="LineNr">23311 </span> 89/<- %ebx 0/r32/eax -<span id="L23312" class="LineNr">23312 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23313" class="LineNr">23313 </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="L23314" class="LineNr">23314 </span> 89/<- %edi 0/r32/eax -<span id="L23315" class="LineNr">23315 </span> <span class="subxComment">#</span> -<span id="L23316" class="LineNr">23316 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23317" class="LineNr">23317 </span> } -<span id="L23318" class="LineNr">23318 </span> <span class="subxComment"># if curr is not null, abort</span> -<span id="L23319" class="LineNr">23319 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L23320" class="LineNr">23320 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error-too-many-inouts/disp32 -<span id="L23321" class="LineNr">23321 </span><span class="Constant">$check-mu-return-stmt:end</span>: -<span id="L23322" class="LineNr">23322 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L23323" class="LineNr">23323 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L23324" class="LineNr">23324 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23325" class="LineNr">23325 </span> 5f/pop-to-edi -<span id="L23326" class="LineNr">23326 </span> 5e/pop-to-esi -<span id="L23327" class="LineNr">23327 </span> 5b/pop-to-ebx -<span id="L23328" class="LineNr">23328 </span> 5a/pop-to-edx -<span id="L23329" class="LineNr">23329 </span> 59/pop-to-ecx -<span id="L23330" class="LineNr">23330 </span> 58/pop-to-eax -<span id="L23331" class="LineNr">23331 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23332" class="LineNr">23332 </span> 89/<- %esp 5/r32/ebp -<span id="L23333" class="LineNr">23333 </span> 5d/pop-to-ebp -<span id="L23334" class="LineNr">23334 </span> c3/return -<span id="L23335" class="LineNr">23335 </span> -<span id="L23336" class="LineNr">23336 </span><span class="Constant">$check-mu-return-stmt:error1</span>: -<span id="L23337" class="LineNr">23337 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23338" class="LineNr">23338 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23339" class="LineNr">23339 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23340" class="LineNr">23340 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23341" class="LineNr">23341 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) -<span id="L23342" class="LineNr">23342 </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="L23343" class="LineNr">23343 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23344" class="LineNr">23344 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23345" class="LineNr">23345 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has the wrong type\n"</span>) -<span id="L23346" class="LineNr">23346 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23347" class="LineNr">23347 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23348" class="LineNr">23348 </span> <span class="subxComment"># never gets here</span> -<span id="L23349" class="LineNr">23349 </span> -<span id="L23350" class="LineNr">23350 </span><span class="Constant">$check-mu-return-stmt:error2</span>: -<span id="L23351" class="LineNr">23351 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23352" class="LineNr">23352 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23353" class="LineNr">23353 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23354" class="LineNr">23354 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23355" class="LineNr">23355 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) -<span id="L23356" class="LineNr">23356 </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="L23357" class="LineNr">23357 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23358" class="LineNr">23358 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23359" class="LineNr">23359 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is no longer available\n"</span>) -<span id="L23360" class="LineNr">23360 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23361" class="LineNr">23361 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23362" class="LineNr">23362 </span> <span class="subxComment"># never gets here</span> -<span id="L23363" class="LineNr">23363 </span> -<span id="L23364" class="LineNr">23364 </span><span class="Constant">$check-mu-return-stmt:error-literal-to-float</span>: -<span id="L23365" class="LineNr">23365 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23366" class="LineNr">23366 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23367" class="LineNr">23367 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23368" class="LineNr">23368 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23369" class="LineNr">23369 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: cannot copy literal '"</span>) -<span id="L23370" class="LineNr">23370 </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="L23371" class="LineNr">23371 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23372" class="LineNr">23372 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23373" class="LineNr">23373 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' to float\n"</span>) -<span id="L23374" class="LineNr">23374 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23375" class="LineNr">23375 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23376" class="LineNr">23376 </span> <span class="subxComment"># never gets here</span> -<span id="L23377" class="LineNr">23377 </span> -<span id="L23378" class="LineNr">23378 </span><span class="Constant">$check-mu-return-stmt:error-too-few-inouts</span>: -<span id="L23379" class="LineNr">23379 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23380" class="LineNr">23380 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23381" class="LineNr">23381 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23382" class="LineNr">23382 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23383" class="LineNr">23383 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: too few inouts\n"</span>) -<span id="L23384" class="LineNr">23384 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23385" class="LineNr">23385 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23386" class="LineNr">23386 </span> <span class="subxComment"># never gets here</span> -<span id="L23387" class="LineNr">23387 </span> -<span id="L23388" class="LineNr">23388 </span><span class="Constant">$check-mu-return-stmt:error-too-many-inouts</span>: -<span id="L23389" class="LineNr">23389 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23390" class="LineNr">23390 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23391" class="LineNr">23391 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23392" class="LineNr">23392 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23393" class="LineNr">23393 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: too many inouts\n"</span>) -<span id="L23394" class="LineNr">23394 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23395" class="LineNr">23395 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23396" class="LineNr">23396 </span> <span class="subxComment"># never gets here</span> -<span id="L23397" class="LineNr">23397 </span> -<span id="L23398" class="LineNr">23398 </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="L23399" class="LineNr">23399 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23400" class="LineNr">23400 </span> 55/push-ebp -<span id="L23401" class="LineNr">23401 </span> 89/<- %ebp 4/r32/esp -<span id="L23402" class="LineNr">23402 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23403" class="LineNr">23403 </span> 50/push-eax -<span id="L23404" class="LineNr">23404 </span> 51/push-ecx -<span id="L23405" class="LineNr">23405 </span> 56/push-esi -<span id="L23406" class="LineNr">23406 </span> <span class="subxComment"># var table/esi: (addr table (handle array byte) int 8)</span> -<span id="L23407" class="LineNr">23407 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L23408" class="LineNr">23408 </span> 68/push 0x60/imm32/size -<span id="L23409" class="LineNr">23409 </span> 68/push 0/imm32/read -<span id="L23410" class="LineNr">23410 </span> 68/push 0/imm32/write -<span id="L23411" class="LineNr">23411 </span> 89/<- %esi 4/r32/esp -<span id="L23412" class="LineNr">23412 </span> <span class="subxComment"># var curr/ecx: (addr list var) = outputs</span> -<span id="L23413" class="LineNr">23413 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L23414" class="LineNr">23414 </span> { -<span id="L23415" class="LineNr">23415 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L23416" class="LineNr">23416 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L23417" class="LineNr">23417 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23418" class="LineNr">23418 </span> <span class="subxComment"># var reg/eax: (addr array byte) = curr->value->register # guaranteed to exist</span> -<span id="L23419" class="LineNr">23419 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23420" class="LineNr">23420 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23421" class="LineNr">23421 </span> <span class="subxComment"># if reg exists in table, abort</span> -<span id="L23422" class="LineNr">23422 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> %esi %eax 0xc) <span class="subxComment"># => eax</span> -<span id="L23423" class="LineNr">23423 </span> 3d/compare-eax-and 0/imm32 -<span id="L23424" class="LineNr">23424 </span> 0f 85/jump-if-!= $check-all-unique-registers:abort/disp32 -<span id="L23425" class="LineNr">23425 </span> <span class="subxComment"># insert reg in table</span> -<span id="L23426" class="LineNr">23426 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-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> (<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="L23429" class="LineNr">23429 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23430" class="LineNr">23430 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23431" class="LineNr">23431 </span> 89/<- %ecx 0/r32/eax -<span id="L23432" class="LineNr">23432 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23433" class="LineNr">23433 </span> } -<span id="L23434" class="LineNr">23434 </span><span class="Constant">$check-all-unique-registers:end</span>: -<span id="L23435" class="LineNr">23435 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L23436" class="LineNr">23436 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L23437" class="LineNr">23437 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23438" class="LineNr">23438 </span> 5e/pop-to-esi -<span id="L23439" class="LineNr">23439 </span> 59/pop-to-ecx -<span id="L23440" class="LineNr">23440 </span> 58/pop-to-eax -<span id="L23441" class="LineNr">23441 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23442" class="LineNr">23442 </span> 89/<- %esp 5/r32/ebp -<span id="L23443" class="LineNr">23443 </span> 5d/pop-to-ebp -<span id="L23444" class="LineNr">23444 </span> c3/return -<span id="L23445" class="LineNr">23445 </span> -<span id="L23446" class="LineNr">23446 </span><span class="Constant">$check-all-unique-registers:abort</span>: -<span id="L23447" class="LineNr">23447 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23448" class="LineNr">23448 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23449" class="LineNr">23449 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23450" class="LineNr">23450 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23451" class="LineNr">23451 </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="L23452" class="LineNr">23452 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23453" class="LineNr">23453 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23454" class="LineNr">23454 </span> <span class="subxComment"># never gets here</span> -<span id="L23455" class="LineNr">23455 </span> -<span id="L23456" class="LineNr">23456 </span><span class="subxComment"># return false if s's register is not between start (inclusive) and end (exclusive)</span> -<span id="L23457" class="LineNr">23457 </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="L23458" class="LineNr">23458 </span><span class="subxComment"># otherwise return true</span> -<span id="L23459" class="LineNr">23459 </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="L23460" class="LineNr">23460 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23461" class="LineNr">23461 </span> 55/push-ebp -<span id="L23462" class="LineNr">23462 </span> 89/<- %ebp 4/r32/esp -<span id="L23463" class="LineNr">23463 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23464" class="LineNr">23464 </span> 51/push-ecx -<span id="L23465" class="LineNr">23465 </span> 52/push-edx -<span id="L23466" class="LineNr">23466 </span> 53/push-ebx -<span id="L23467" class="LineNr">23467 </span> 56/push-esi -<span id="L23468" class="LineNr">23468 </span> 57/push-edi -<span id="L23469" class="LineNr">23469 </span> <span class="subxComment"># var target/ebx: (addr array byte) = s->value->register</span> -<span id="L23470" class="LineNr">23470 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23471" class="LineNr">23471 </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="L23472" class="LineNr">23472 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23473" class="LineNr">23473 </span><span class="CommentedCode">#? (write-buffered Stderr "AA: ")</span> -<span id="L23474" class="LineNr">23474 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L23475" class="LineNr">23475 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L23476" class="LineNr">23476 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23477" class="LineNr">23477 </span> <span class="subxComment"># if (var->register == 0) return false</span> -<span id="L23478" class="LineNr">23478 </span> 3d/compare-eax-and 0/imm32 -<span id="L23479" class="LineNr">23479 </span> 0f 84/jump-if-= $register-within-list-with-conflict?:end/disp32 <span class="subxComment"># eax turns into result</span> -<span id="L23480" class="LineNr">23480 </span> 89/<- %ebx 0/r32/eax -<span id="L23481" class="LineNr">23481 </span> <span class="subxComment"># var curr/ecx: (addr list var) = start</span> -<span id="L23482" class="LineNr">23482 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L23483" class="LineNr">23483 </span> <span class="subxComment"># edx = end</span> -<span id="L23484" class="LineNr">23484 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L23485" class="LineNr">23485 </span> { -<span id="L23486" class="LineNr">23486 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L23487" class="LineNr">23487 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L23488" class="LineNr">23488 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23489" class="LineNr">23489 </span> <span class="subxComment"># if (curr == end) break</span> -<span id="L23490" class="LineNr">23490 </span> 39/compare %ecx 2/r32/edx -<span id="L23491" class="LineNr">23491 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23492" class="LineNr">23492 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr->value->register</span> -<span id="L23493" class="LineNr">23493 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23494" class="LineNr">23494 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23495" class="LineNr">23495 </span> <span class="subxComment"># if (curr-reg == 0) continue</span> -<span id="L23496" class="LineNr">23496 </span> 3d/compare-eax-and 0/imm32 -<span id="L23497" class="LineNr">23497 </span> 74/jump-if-= $register-within-list-with-conflict?:continue/disp8 -<span id="L23498" class="LineNr">23498 </span> <span class="subxComment"># if (curr-reg == target) check for conflict</span> -<span id="L23499" class="LineNr">23499 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L23500" class="LineNr">23500 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23501" class="LineNr">23501 </span> { -<span id="L23502" class="LineNr">23502 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23503" class="LineNr">23503 </span><span class="CommentedCode">#? (write-buffered Stderr "conflict?\n")</span> -<span id="L23504" class="LineNr">23504 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23505" class="LineNr">23505 </span> <span class="subxComment"># var return-inouts/eax: (addr stmt-var) = stmt->inouts</span> -<span id="L23506" class="LineNr">23506 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L23507" class="LineNr">23507 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23508" class="LineNr">23508 </span> (<a href='mu.subx.html#L23535'>register-conflict?</a> %ebx %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L23509" class="LineNr">23509 </span> eb/jump $register-within-list-with-conflict?:end/disp8 -<span id="L23510" class="LineNr">23510 </span> } -<span id="L23511" class="LineNr">23511 </span><span class="Constant">$register-within-list-with-conflict?:continue</span>: -<span id="L23512" class="LineNr">23512 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23513" class="LineNr">23513 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23514" class="LineNr">23514 </span> 89/<- %ecx 0/r32/eax -<span id="L23515" class="LineNr">23515 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23516" class="LineNr">23516 </span> } -<span id="L23517" class="LineNr">23517 </span> <span class="subxComment"># return false</span> -<span id="L23518" class="LineNr">23518 </span> b8/copy-to-eax 0/imm32/false -<span id="L23519" class="LineNr">23519 </span><span class="Constant">$register-within-list-with-conflict?:end</span>: -<span id="L23520" class="LineNr">23520 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23521" class="LineNr">23521 </span> 5f/pop-to-edi -<span id="L23522" class="LineNr">23522 </span> 5e/pop-to-esi -<span id="L23523" class="LineNr">23523 </span> 5b/pop-to-ebx -<span id="L23524" class="LineNr">23524 </span> 5a/pop-to-edx -<span id="L23525" class="LineNr">23525 </span> 59/pop-to-ecx -<span id="L23526" class="LineNr">23526 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23527" class="LineNr">23527 </span> 89/<- %esp 5/r32/ebp -<span id="L23528" class="LineNr">23528 </span> 5d/pop-to-ebp -<span id="L23529" class="LineNr">23529 </span> c3/return -<span id="L23530" class="LineNr">23530 </span> -<span id="L23531" class="LineNr">23531 </span><span class="subxComment"># At the first occurrence of register 'reg' in fn-outputs,</span> -<span id="L23532" class="LineNr">23532 </span><span class="subxComment"># check if the corresponding element of return-inouts has a different register.</span> -<span id="L23533" class="LineNr">23533 </span><span class="subxComment"># This hacky helper is intended to be called in one specific place. Don't</span> -<span id="L23534" class="LineNr">23534 </span><span class="subxComment"># reuse it as is.</span> -<span id="L23535" class="LineNr">23535 </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="L23536" class="LineNr">23536 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23537" class="LineNr">23537 </span> 55/push-ebp -<span id="L23538" class="LineNr">23538 </span> 89/<- %ebp 4/r32/esp -<span id="L23539" class="LineNr">23539 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23540" class="LineNr">23540 </span> 51/push-ecx -<span id="L23541" class="LineNr">23541 </span> 52/push-edx -<span id="L23542" class="LineNr">23542 </span> 53/push-ebx -<span id="L23543" class="LineNr">23543 </span> 56/push-esi -<span id="L23544" class="LineNr">23544 </span> 57/push-edi -<span id="L23545" class="LineNr">23545 </span><span class="CommentedCode">#? (write-buffered Stderr "BB: ")</span> -<span id="L23546" class="LineNr">23546 </span><span class="CommentedCode">#? (write-buffered Stderr *(ebp+8))</span> -<span id="L23547" class="LineNr">23547 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L23548" class="LineNr">23548 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23549" class="LineNr">23549 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn-outputs</span> -<span id="L23550" class="LineNr">23550 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L23551" class="LineNr">23551 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-inouts</span> -<span id="L23552" class="LineNr">23552 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L23553" class="LineNr">23553 </span> { -<span id="L23554" class="LineNr">23554 </span> <span class="subxComment"># if (curr-output == 0) abort</span> -<span id="L23555" class="LineNr">23555 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L23556" class="LineNr">23556 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23557" class="LineNr">23557 </span> <span class="subxComment"># if (curr-output->value->register != reg) continue</span> -<span id="L23558" class="LineNr">23558 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23559" class="LineNr">23559 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23560" class="LineNr">23560 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L23561" class="LineNr">23561 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23562" class="LineNr">23562 </span> 0f 84/jump-if= $register-conflict?:continue/disp32 -<span id="L23563" class="LineNr">23563 </span><span class="CommentedCode">#? (write-buffered Stderr "rescan\n")</span> -<span id="L23564" class="LineNr">23564 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23565" class="LineNr">23565 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr-inout->value->register</span> -<span id="L23566" class="LineNr">23566 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23567" class="LineNr">23567 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23568" class="LineNr">23568 </span> <span class="subxComment"># if (curr-reg == 0) return true</span> -<span id="L23569" class="LineNr">23569 </span> 3d/compare-eax-and 0/imm32 -<span id="L23570" class="LineNr">23570 </span> { -<span id="L23571" class="LineNr">23571 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23572" class="LineNr">23572 </span><span class="CommentedCode">#? (write-buffered Stderr "no register\n")</span> -<span id="L23573" class="LineNr">23573 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23574" class="LineNr">23574 </span> b8/copy-to-eax 1/imm32/true -<span id="L23575" class="LineNr">23575 </span> e9/jump $register-conflict?:end/disp32 -<span id="L23576" class="LineNr">23576 </span> } -<span id="L23577" class="LineNr">23577 </span> <span class="subxComment"># return (curr-reg != reg)</span> -<span id="L23578" class="LineNr">23578 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L23579" class="LineNr">23579 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23580" class="LineNr">23580 </span> 0f 94/set-if-= %al -<span id="L23581" class="LineNr">23581 </span><span class="CommentedCode">#? (write-buffered Stderr "final: ")</span> -<span id="L23582" class="LineNr">23582 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L23583" class="LineNr">23583 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L23584" class="LineNr">23584 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23585" class="LineNr">23585 </span> eb/jump $register-conflict?:end/disp8 -<span id="L23586" class="LineNr">23586 </span><span class="Constant">$register-conflict?:continue</span>: -<span id="L23587" class="LineNr">23587 </span> <span class="subxComment"># curr-output = curr-output->next</span> -<span id="L23588" class="LineNr">23588 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23589" class="LineNr">23589 </span> 89/<- %edi 0/r32/eax -<span id="L23590" class="LineNr">23590 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> -<span id="L23591" class="LineNr">23591 </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="L23592" class="LineNr">23592 </span> 89/<- %esi 0/r32/eax -<span id="L23593" class="LineNr">23593 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23594" class="LineNr">23594 </span> } -<span id="L23595" class="LineNr">23595 </span> <span class="subxComment"># should never get here</span> -<span id="L23596" class="LineNr">23596 </span> (<a 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="L23597" class="LineNr">23597 </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="L23598" class="LineNr">23598 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 -<span id="L23599" class="LineNr">23599 </span><span class="Constant">$register-conflict?:end</span>: -<span id="L23600" class="LineNr">23600 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23601" class="LineNr">23601 </span> 5f/pop-to-edi -<span id="L23602" class="LineNr">23602 </span> 5e/pop-to-esi -<span id="L23603" class="LineNr">23603 </span> 5b/pop-to-ebx -<span id="L23604" class="LineNr">23604 </span> 5a/pop-to-edx -<span id="L23605" class="LineNr">23605 </span> 59/pop-to-ecx -<span id="L23606" class="LineNr">23606 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23607" class="LineNr">23607 </span> 89/<- %esp 5/r32/ebp -<span id="L23608" class="LineNr">23608 </span> 5d/pop-to-ebp -<span id="L23609" class="LineNr">23609 </span> c3/return -<span id="L23610" class="LineNr">23610 </span> -<span id="L23611" class="LineNr">23611 </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="L23612" class="LineNr">23612 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23613" class="LineNr">23613 </span> 55/push-ebp -<span id="L23614" class="LineNr">23614 </span> 89/<- %ebp 4/r32/esp -<span id="L23615" class="LineNr">23615 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23616" class="LineNr">23616 </span> 50/push-eax -<span id="L23617" class="LineNr">23617 </span> 51/push-ecx -<span id="L23618" class="LineNr">23618 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> -<span id="L23619" class="LineNr">23619 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23620" class="LineNr">23620 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L23621" class="LineNr">23621 </span> 3d/compare-eax-and 0/imm32 -<span id="L23622" class="LineNr">23622 </span> 74/jump-if-= $check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a>/disp8 -<span id="L23623" class="LineNr">23623 </span> 89/<- %ecx 0/r32/eax -<span id="L23624" class="LineNr">23624 </span> { -<span id="L23625" class="LineNr">23625 </span> <span class="subxComment"># if curr->next == 0, break</span> -<span id="L23626" class="LineNr">23626 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23627" class="LineNr">23627 </span> 3d/compare-eax-and 0/imm32 -<span id="L23628" class="LineNr">23628 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23629" class="LineNr">23629 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23630" class="LineNr">23630 </span> 89/<- %ecx 0/r32/eax -<span id="L23631" class="LineNr">23631 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23632" class="LineNr">23632 </span> } -<span id="L23633" class="LineNr">23633 </span><span class="Constant">$check-final-stmt-is-return:check-tag</span>: -<span id="L23634" class="LineNr">23634 </span> <span class="subxComment"># if curr->value->tag != Stmt1, abort</span> -<span id="L23635" class="LineNr">23635 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23636" class="LineNr">23636 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L23637" class="LineNr">23637 </span> 75/jump-if-!= $check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a>/disp8 -<span id="L23638" class="LineNr">23638 </span><span class="Constant">$check-final-stmt-is-return:check-operation</span>: -<span id="L23639" class="LineNr">23639 </span> <span class="subxComment"># if curr->operation != "return", abort</span> -<span id="L23640" class="LineNr">23640 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L23641" class="LineNr">23641 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"return"</span>) -<span id="L23642" class="LineNr">23642 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23643" class="LineNr">23643 </span> 74/jump-if-= $check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a>/disp8 -<span id="L23644" class="LineNr">23644 </span><span class="Constant">$check-final-stmt-is-return:end</span>: -<span id="L23645" class="LineNr">23645 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23646" class="LineNr">23646 </span> 59/pop-to-ecx -<span id="L23647" class="LineNr">23647 </span> 58/pop-to-eax -<span id="L23648" class="LineNr">23648 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23649" class="LineNr">23649 </span> 89/<- %esp 5/r32/ebp -<span id="L23650" class="LineNr">23650 </span> 5d/pop-to-ebp -<span id="L23651" class="LineNr">23651 </span> c3/return -<span id="L23652" class="LineNr">23652 </span> -<span id="L23653" class="LineNr">23653 </span><span class="Constant">$check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a></span>: -<span id="L23654" class="LineNr">23654 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23655" class="LineNr">23655 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23656" class="LineNr">23656 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23657" class="LineNr">23657 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23658" class="LineNr">23658 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": final statement should be a 'return'\n"</span>) -<span id="L23659" class="LineNr">23659 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23660" class="LineNr">23660 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23661" class="LineNr">23661 </span> <span class="subxComment"># never gets here</span> -<span id="L23662" class="LineNr">23662 </span> -<span id="L23663" class="LineNr">23663 </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="L23664" class="LineNr">23664 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23665" class="LineNr">23665 </span> 55/push-ebp -<span id="L23666" class="LineNr">23666 </span> 89/<- %ebp 4/r32/esp -<span id="L23667" class="LineNr">23667 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23668" class="LineNr">23668 </span> 50/push-eax -<span id="L23669" class="LineNr">23669 </span> 51/push-ecx -<span id="L23670" class="LineNr">23670 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> -<span id="L23671" class="LineNr">23671 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23672" class="LineNr">23672 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L23673" class="LineNr">23673 </span> 3d/compare-eax-and 0/imm32 -<span id="L23674" class="LineNr">23674 </span> 0f 84/jump-if-= $check-no-breaks:end/disp32 -<span id="L23675" class="LineNr">23675 </span> 89/<- %ecx 0/r32/eax -<span id="L23676" class="LineNr">23676 </span> { -<span id="L23677" class="LineNr">23677 </span> <span class="subxComment"># if curr->next == 0, break</span> -<span id="L23678" class="LineNr">23678 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23679" class="LineNr">23679 </span> 3d/compare-eax-and 0/imm32 -<span id="L23680" class="LineNr">23680 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23681" class="LineNr">23681 </span> <span class="subxComment"># if curr->value->tag != Stmt1, continue</span> -<span id="L23682" class="LineNr">23682 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23683" class="LineNr">23683 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L23684" class="LineNr">23684 </span> 75/jump-if-!= $check-no-breaks:continue/disp8 -<span id="L23685" class="LineNr">23685 </span> <span class="subxComment"># if curr->value->operation starts with "break", abort</span> -<span id="L23686" class="LineNr">23686 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L23687" class="LineNr">23687 </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="L23688" class="LineNr">23688 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23689" class="LineNr">23689 </span> 75/jump-if-!= $check-no-breaks:<a href='114error.subx.html#L9'>error</a>/disp8 -<span id="L23690" class="LineNr">23690 </span><span class="Constant">$check-no-breaks:continue</span>: -<span id="L23691" class="LineNr">23691 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23692" class="LineNr">23692 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23693" class="LineNr">23693 </span> 89/<- %ecx 0/r32/eax -<span id="L23694" class="LineNr">23694 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23695" class="LineNr">23695 </span> } -<span id="L23696" class="LineNr">23696 </span><span class="Constant">$check-no-breaks:end</span>: -<span id="L23697" class="LineNr">23697 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23698" class="LineNr">23698 </span> 59/pop-to-ecx -<span id="L23699" class="LineNr">23699 </span> 58/pop-to-eax -<span id="L23700" class="LineNr">23700 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23701" class="LineNr">23701 </span> 89/<- %esp 5/r32/ebp -<span id="L23702" class="LineNr">23702 </span> 5d/pop-to-ebp -<span id="L23703" class="LineNr">23703 </span> c3/return -<span id="L23704" class="LineNr">23704 </span> -<span id="L23705" class="LineNr">23705 </span><span class="Constant">$check-no-breaks:<a href='114error.subx.html#L9'>error</a></span>: -<span id="L23706" class="LineNr">23706 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23707" class="LineNr">23707 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23708" class="LineNr">23708 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23709" class="LineNr">23709 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23710" class="LineNr">23710 </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="L23711" class="LineNr">23711 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23712" class="LineNr">23712 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23713" class="LineNr">23713 </span> <span class="subxComment"># never gets here</span> -<span id="L23714" class="LineNr">23714 </span> -<span id="L23715" class="LineNr">23715 </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="L23716" class="LineNr">23716 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23717" class="LineNr">23717 </span> 55/push-ebp -<span id="L23718" class="LineNr">23718 </span> 89/<- %ebp 4/r32/esp -<span id="L23719" class="LineNr">23719 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23720" class="LineNr">23720 </span> 50/push-eax -<span id="L23721" class="LineNr">23721 </span> 51/push-ecx -<span id="L23722" class="LineNr">23722 </span> 52/push-edx -<span id="L23723" class="LineNr">23723 </span> 53/push-ebx -<span id="L23724" class="LineNr">23724 </span> 56/push-esi -<span id="L23725" class="LineNr">23725 </span> 57/push-edi -<span id="L23726" class="LineNr">23726 </span> <span class="subxComment"># esi = stmt</span> -<span id="L23727" class="LineNr">23727 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L23728" class="LineNr">23728 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L23729" class="LineNr">23729 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L23730" class="LineNr">23730 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23731" class="LineNr">23731 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23732" class="LineNr">23732 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 -<span id="L23733" class="LineNr">23733 </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="L23734" class="LineNr">23734 </span> 89/<- %ecx 0/r32/eax -<span id="L23735" class="LineNr">23735 </span><span class="Constant">$check-mu-get-stmt:check-base</span>: -<span id="L23736" class="LineNr">23736 </span> <span class="subxH1Comment"># - check base type</span> -<span id="L23737" class="LineNr">23737 </span> <span class="subxComment"># if it's an 'addr', check that it's in a register</span> -<span id="L23738" class="LineNr">23738 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L23739" class="LineNr">23739 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23740" class="LineNr">23740 </span> 89/<- %ebx 0/r32/eax -<span id="L23741" class="LineNr">23741 </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> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L23744" class="LineNr">23744 </span><span class="Constant">$check-mu-get-stmt:base-is-compound</span>: -<span id="L23745" class="LineNr">23745 </span> <span class="subxComment"># if (type->left != addr) break</span> -<span id="L23746" class="LineNr">23746 </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="L23747" class="LineNr">23747 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L23748" class="LineNr">23748 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23749" class="LineNr">23749 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23750" class="LineNr">23750 </span><span class="Constant">$check-mu-get-stmt:base-is-addr</span>: -<span id="L23751" class="LineNr">23751 </span> <span class="subxComment"># now check for register</span> -<span id="L23752" class="LineNr">23752 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L23753" class="LineNr">23753 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-base-type-addr-but-not-register/disp32 -<span id="L23754" class="LineNr">23754 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-in-register</span>: -<span id="L23755" class="LineNr">23755 </span> <span class="subxComment"># type->left is now an addr; skip it</span> -<span id="L23756" class="LineNr">23756 </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="L23757" class="LineNr">23757 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23758" class="LineNr">23758 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-bad-base/disp32 -<span id="L23759" class="LineNr">23759 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-to-atom-in-register</span>: -<span id="L23760" class="LineNr">23760 </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="L23761" class="LineNr">23761 </span> 89/<- %ebx 0/r32/eax -<span id="L23762" class="LineNr">23762 </span> } -<span id="L23763" class="LineNr">23763 </span><span class="Constant">$check-mu-get-stmt:check-base-typeinfo</span>: -<span id="L23764" class="LineNr">23764 </span> <span class="subxComment"># ensure type is a container</span> -<span id="L23765" class="LineNr">23765 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23766" class="LineNr">23766 </span> { -<span id="L23767" class="LineNr">23767 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23768" class="LineNr">23768 </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="L23769" class="LineNr">23769 </span> 89/<- %ebx 0/r32/eax -<span id="L23770" class="LineNr">23770 </span> } -<span id="L23771" class="LineNr">23771 </span> <span class="subxComment"># var base-type-id/ebx: type-id = base-type->value</span> -<span id="L23772" class="LineNr">23772 </span> 8b/-> *(ebx+4) 3/r32/ebx <span class="subxComment"># Type-tree-value</span> -<span id="L23773" class="LineNr">23773 </span> (<a href='mu.subx.html#L20272'>container?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L23774" class="LineNr">23774 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23775" class="LineNr">23775 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-base/disp32 -<span id="L23776" class="LineNr">23776 </span> <span class="subxComment"># var base-typeinfo/edx: (addr typeinfo) = find-typeinfo(base-type-id)</span> -<span id="L23777" class="LineNr">23777 </span> <span class="subxS1Comment"># . var container/ecx: (handle typeinfo)</span> -<span id="L23778" class="LineNr">23778 </span> 68/push 0/imm32 -<span id="L23779" class="LineNr">23779 </span> 68/push 0/imm32 -<span id="L23780" class="LineNr">23780 </span> 89/<- %ecx 4/r32/esp -<span id="L23781" class="LineNr">23781 </span> <span class="subxS1Comment"># .</span> -<span id="L23782" class="LineNr">23782 </span> (<a href='mu.subx.html#L20355'>find-typeinfo</a> %ebx %ecx) -<span id="L23783" class="LineNr">23783 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L23784" class="LineNr">23784 </span> <span class="subxS1Comment"># . reclaim container</span> -<span id="L23785" class="LineNr">23785 </span> 81 0/subop/add %esp 8/imm32 -<span id="L23786" class="LineNr">23786 </span> <span class="subxS1Comment"># .</span> -<span id="L23787" class="LineNr">23787 </span> 89/<- %edx 0/r32/eax -<span id="L23788" class="LineNr">23788 </span> <span class="subxComment"># var offset/ecx: (addr stmt-var) = stmt->inouts->next</span> -<span id="L23789" class="LineNr">23789 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23790" class="LineNr">23790 </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="L23791" class="LineNr">23791 </span> 89/<- %ecx 0/r32/eax -<span id="L23792" class="LineNr">23792 </span> <span class="subxH1Comment"># - check for 1 inout</span> -<span id="L23793" class="LineNr">23793 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23794" class="LineNr">23794 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 -<span id="L23795" class="LineNr">23795 </span> <span class="subxComment"># var offset/ecx: (addr var) = lookup(offset->value)</span> -<span id="L23796" class="LineNr">23796 </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="L23797" class="LineNr">23797 </span> 89/<- %ecx 0/r32/eax -<span id="L23798" class="LineNr">23798 </span> <span class="subxH1Comment"># - check for valid field</span> -<span id="L23799" class="LineNr">23799 </span> 81 7/subop/compare *(ecx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> -<span id="L23800" class="LineNr">23800 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-field/disp32 -<span id="L23801" class="LineNr">23801 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L23802" class="LineNr">23802 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23803" class="LineNr">23803 </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="L23804" class="LineNr">23804 </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="L23805" class="LineNr">23805 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23806" class="LineNr">23806 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-inouts/disp32 -<span id="L23807" class="LineNr">23807 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L23808" class="LineNr">23808 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23809" class="LineNr">23809 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L23810" class="LineNr">23810 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23811" class="LineNr">23811 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-outputs/disp32 -<span id="L23812" class="LineNr">23812 </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="L23813" class="LineNr">23813 </span> 89/<- %edi 0/r32/eax -<span id="L23814" class="LineNr">23814 </span><span class="Constant">$check-mu-get-stmt:check-output-type</span>: -<span id="L23815" class="LineNr">23815 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L23816" class="LineNr">23816 </span> <span class="subxComment"># must be in register</span> -<span id="L23817" class="LineNr">23817 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23818" class="LineNr">23818 </span> 3d/compare-eax-and 0/imm32 -<span id="L23819" class="LineNr">23819 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-not-in-register/disp32 -<span id="L23820" class="LineNr">23820 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L23821" class="LineNr">23821 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23822" class="LineNr">23822 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23823" class="LineNr">23823 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-output-type-not-address/disp32 -<span id="L23824" class="LineNr">23824 </span> <span class="subxComment"># type must start with (addr ...)</span> -<span id="L23825" class="LineNr">23825 </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="L23826" class="LineNr">23826 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># => eax</span> -<span id="L23827" class="LineNr">23827 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23828" class="LineNr">23828 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-type-not-address/disp32 -<span id="L23829" class="LineNr">23829 </span><span class="Constant">$check-mu-get-stmt:check-output-type-match</span>: -<span id="L23830" class="LineNr">23830 </span> <span class="subxComment"># payload of addr type must match 'type' definition</span> -<span id="L23831" class="LineNr">23831 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23832" class="LineNr">23832 </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="L23833" class="LineNr">23833 </span> <span class="subxComment"># if (payload->right == null) payload = payload->left</span> -<span id="L23834" class="LineNr">23834 </span> 81 7/subop/compare *(eax+0xc) 0/imm32/null <span class="subxComment"># Type-tree-right</span> -<span id="L23835" class="LineNr">23835 </span> { -<span id="L23836" class="LineNr">23836 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23837" class="LineNr">23837 </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="L23838" class="LineNr">23838 </span> } -<span id="L23839" class="LineNr">23839 </span> 89/<- %edi 0/r32/eax -<span id="L23840" class="LineNr">23840 </span> <span class="subxS1Comment"># . var output-name/ecx: (addr array byte)</span> -<span id="L23841" class="LineNr">23841 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23842" class="LineNr">23842 </span> 89/<- %ecx 0/r32/eax -<span id="L23843" class="LineNr">23843 </span> <span class="subxS1Comment"># . var base-typeinfo-entry/eax: (addr handle typeinfo-entry)</span> -<span id="L23844" class="LineNr">23844 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L23845" class="LineNr">23845 </span> (<a href='131table.subx.html#L26'>get</a> %eax %ecx 0x10) <span class="subxComment"># => eax</span> -<span id="L23846" class="LineNr">23846 </span> <span class="subxS1Comment"># .</span> -<span id="L23847" class="LineNr">23847 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L23848" class="LineNr">23848 </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="L23849" class="LineNr">23849 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23850" class="LineNr">23850 </span> <span class="subxS1Comment"># .</span> -<span id="L23851" class="LineNr">23851 </span> (<a href='mu.subx.html#L26922'>type-equal?</a> %edi %eax) <span class="subxComment"># => eax</span> -<span id="L23852" class="LineNr">23852 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23853" class="LineNr">23853 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-output-type/disp32 -<span id="L23854" class="LineNr">23854 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L23855" class="LineNr">23855 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23856" class="LineNr">23856 </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="L23857" class="LineNr">23857 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23858" class="LineNr">23858 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-outputs/disp32 -<span id="L23859" class="LineNr">23859 </span><span class="Constant">$check-mu-get-stmt:end</span>: -<span id="L23860" class="LineNr">23860 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23861" class="LineNr">23861 </span> 5f/pop-to-edi -<span id="L23862" class="LineNr">23862 </span> 5e/pop-to-esi -<span id="L23863" class="LineNr">23863 </span> 5b/pop-to-ebx -<span id="L23864" class="LineNr">23864 </span> 5a/pop-to-edx -<span id="L23865" class="LineNr">23865 </span> 59/pop-to-ecx -<span id="L23866" class="LineNr">23866 </span> 58/pop-to-eax -<span id="L23867" class="LineNr">23867 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23868" class="LineNr">23868 </span> 89/<- %esp 5/r32/ebp -<span id="L23869" class="LineNr">23869 </span> 5d/pop-to-ebp -<span id="L23870" class="LineNr">23870 </span> c3/return -<span id="L23871" class="LineNr">23871 </span> -<span id="L23872" class="LineNr">23872 </span><span class="Constant">$check-mu-get-stmt:error-too-few-inouts</span>: -<span id="L23873" class="LineNr">23873 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23874" class="LineNr">23874 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23875" class="LineNr">23875 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23876" class="LineNr">23876 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23877" class="LineNr">23877 </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="L23878" class="LineNr">23878 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23879" class="LineNr">23879 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23880" class="LineNr">23880 </span> <span class="subxComment"># never gets here</span> -<span id="L23881" class="LineNr">23881 </span> -<span id="L23882" class="LineNr">23882 </span><span class="Constant">$check-mu-get-stmt:error-too-many-inouts</span>: -<span id="L23883" class="LineNr">23883 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23884" class="LineNr">23884 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23885" class="LineNr">23885 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23886" class="LineNr">23886 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23887" class="LineNr">23887 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='131table.subx.html#L26'>get</a>: too many inouts (2 required)\n"</span>) -<span id="L23888" class="LineNr">23888 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23889" class="LineNr">23889 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23890" class="LineNr">23890 </span> <span class="subxComment"># never gets here</span> -<span id="L23891" class="LineNr">23891 </span> -<span id="L23892" class="LineNr">23892 </span><span class="Constant">$check-mu-get-stmt:error-too-few-outputs</span>: -<span id="L23893" class="LineNr">23893 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23894" class="LineNr">23894 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23895" class="LineNr">23895 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23896" class="LineNr">23896 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23897" class="LineNr">23897 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='131table.subx.html#L26'>get</a>: must have an output\n"</span>) -<span id="L23898" class="LineNr">23898 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23899" class="LineNr">23899 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23900" class="LineNr">23900 </span> <span class="subxComment"># never gets here</span> -<span id="L23901" class="LineNr">23901 </span> -<span id="L23902" class="LineNr">23902 </span><span class="Constant">$check-mu-get-stmt:error-too-many-outputs</span>: -<span id="L23903" class="LineNr">23903 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23904" class="LineNr">23904 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23905" class="LineNr">23905 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23906" class="LineNr">23906 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23907" class="LineNr">23907 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='131table.subx.html#L26'>get</a>: too many outputs (1 required)\n"</span>) -<span id="L23908" class="LineNr">23908 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23909" class="LineNr">23909 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23910" class="LineNr">23910 </span> <span class="subxComment"># never gets here</span> -<span id="L23911" class="LineNr">23911 </span> -<span id="L23912" class="LineNr">23912 </span><span class="Constant">$check-mu-get-stmt:error-bad-base</span>: -<span id="L23913" class="LineNr">23913 </span> <span class="subxComment"># error("fn " fn ": stmt get: var '" base->name "' must have a 'type' definition\n")</span> -<span id="L23914" class="LineNr">23914 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23915" class="LineNr">23915 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23916" class="LineNr">23916 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23917" class="LineNr">23917 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23918" class="LineNr">23918 </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="L23919" class="LineNr">23919 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23920" class="LineNr">23920 </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="L23921" class="LineNr">23921 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23922" class="LineNr">23922 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23923" class="LineNr">23923 </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="L23924" class="LineNr">23924 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23925" class="LineNr">23925 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23926" class="LineNr">23926 </span> <span class="subxComment"># never gets here</span> -<span id="L23927" class="LineNr">23927 </span> -<span id="L23928" class="LineNr">23928 </span><span class="Constant">$check-mu-get-stmt:error-base-type-addr-but-not-register</span>: -<span id="L23929" class="LineNr">23929 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23930" class="LineNr">23930 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23931" class="LineNr">23931 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23932" class="LineNr">23932 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23933" class="LineNr">23933 </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="L23934" class="LineNr">23934 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23935" class="LineNr">23935 </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="L23936" class="LineNr">23936 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23937" class="LineNr">23937 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23938" class="LineNr">23938 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is an 'addr' type, and so must live in a register\n"</span>) -<span id="L23939" class="LineNr">23939 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23940" class="LineNr">23940 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23941" class="LineNr">23941 </span> <span class="subxComment"># never gets here</span> -<span id="L23942" class="LineNr">23942 </span> -<span id="L23943" class="LineNr">23943 </span><span class="Constant">$check-mu-get-stmt:error-bad-field</span>: -<span id="L23944" class="LineNr">23944 </span> <span class="subxComment"># error("fn " fn ": stmt get: type " type " has no member called '" curr->name "'\n")</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>: type '"</span>) -<span id="L23950" class="LineNr">23950 </span> <span class="subxS1Comment"># . write(Type-id->data[tmp])</span> -<span id="L23951" class="LineNr">23951 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 -<span id="L23952" class="LineNr">23952 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi -<span id="L23953" class="LineNr">23953 </span> { -<span id="L23954" class="LineNr">23954 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L23955" class="LineNr">23955 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23956" class="LineNr">23956 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) -<span id="L23957" class="LineNr">23957 </span> } -<span id="L23958" class="LineNr">23958 </span> <span class="subxS1Comment"># .</span> -<span id="L23959" class="LineNr">23959 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has no member called '"</span>) -<span id="L23960" class="LineNr">23960 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"'\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-output-not-in-register</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>: output '"</span>) -<span id="L23973" class="LineNr">23973 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23974" class="LineNr">23974 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23975" class="LineNr">23975 </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="L23976" class="LineNr">23976 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23977" class="LineNr">23977 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23978" class="LineNr">23978 </span> <span class="subxComment"># never gets here</span> -<span id="L23979" class="LineNr">23979 </span> -<span id="L23980" class="LineNr">23980 </span><span class="Constant">$check-mu-get-stmt:error-output-type-not-address</span>: -<span id="L23981" class="LineNr">23981 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23982" class="LineNr">23982 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23983" class="LineNr">23983 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23984" class="LineNr">23984 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23985" class="LineNr">23985 </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="L23986" class="LineNr">23986 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23987" class="LineNr">23987 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23988" class="LineNr">23988 </span> <span class="subxComment"># never gets here</span> -<span id="L23989" class="LineNr">23989 </span> -<span id="L23990" class="LineNr">23990 </span><span class="Constant">$check-mu-get-stmt:error-bad-output-type</span>: -<span id="L23991" class="LineNr">23991 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23992" class="LineNr">23992 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23993" class="LineNr">23993 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23994" class="LineNr">23994 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23995" class="LineNr">23995 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='131table.subx.html#L26'>get</a>: wrong output type for member '"</span>) -<span id="L23996" class="LineNr">23996 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %ecx) -<span id="L23997" class="LineNr">23997 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' of type '"</span>) -<span id="L23998" class="LineNr">23998 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 -<span id="L23999" class="LineNr">23999 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi -<span id="L24000" class="LineNr">24000 </span> { -<span id="L24001" class="LineNr">24001 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L24002" class="LineNr">24002 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24003" class="LineNr">24003 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) -<span id="L24004" class="LineNr">24004 </span> } -<span id="L24005" class="LineNr">24005 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L24006" class="LineNr">24006 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24007" class="LineNr">24007 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24008" class="LineNr">24008 </span> <span class="subxComment"># never gets here</span> -<span id="L24009" class="LineNr">24009 </span> -<span id="L24010" class="LineNr">24010 </span><span class="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="L24011" class="LineNr">24011 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24012" class="LineNr">24012 </span> 55/push-ebp -<span id="L24013" class="LineNr">24013 </span> 89/<- %ebp 4/r32/esp -<span id="L24014" class="LineNr">24014 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24015" class="LineNr">24015 </span> 50/push-eax -<span id="L24016" class="LineNr">24016 </span> 51/push-ecx -<span id="L24017" class="LineNr">24017 </span> 52/push-edx -<span id="L24018" class="LineNr">24018 </span> 53/push-ebx -<span id="L24019" class="LineNr">24019 </span> 56/push-esi -<span id="L24020" class="LineNr">24020 </span> 57/push-edi -<span id="L24021" class="LineNr">24021 </span> <span class="subxComment"># esi = stmt</span> -<span id="L24022" class="LineNr">24022 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L24023" class="LineNr">24023 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L24024" class="LineNr">24024 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L24025" class="LineNr">24025 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24026" class="LineNr">24026 </span><span class="Constant">$check-mu-index-stmt:check-no-inouts</span>: -<span id="L24027" class="LineNr">24027 </span> 3d/compare-eax-and 0/imm32 -<span id="L24028" class="LineNr">24028 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 -<span id="L24029" class="LineNr">24029 </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="L24030" class="LineNr">24030 </span> 89/<- %ecx 0/r32/eax -<span id="L24031" class="LineNr">24031 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> -<span id="L24032" class="LineNr">24032 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L24033" class="LineNr">24033 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24034" class="LineNr">24034 </span> 89/<- %ebx 0/r32/eax -<span id="L24035" class="LineNr">24035 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> -<span id="L24036" class="LineNr">24036 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24037" class="LineNr">24037 </span> { -<span id="L24038" class="LineNr">24038 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24039" class="LineNr">24039 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> -<span id="L24040" class="LineNr">24040 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24041" class="LineNr">24041 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-atom-type/disp32 -<span id="L24042" class="LineNr">24042 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 -<span id="L24043" class="LineNr">24043 </span> } -<span id="L24044" class="LineNr">24044 </span><span class="Constant">$check-mu-index-stmt:base-is-compound</span>: -<span id="L24045" class="LineNr">24045 </span> <span class="subxComment"># if type->left not addr or array, abort</span> -<span id="L24046" class="LineNr">24046 </span> { -<span id="L24047" class="LineNr">24047 </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="L24048" class="LineNr">24048 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24049" class="LineNr">24049 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24050" class="LineNr">24050 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24051" class="LineNr">24051 </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="L24052" class="LineNr">24052 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24053" class="LineNr">24053 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24054" class="LineNr">24054 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24055" class="LineNr">24055 </span> e9/jump $check-mu-index-stmt:error-base-non-array-type/disp32 -<span id="L24056" class="LineNr">24056 </span> } -<span id="L24057" class="LineNr">24057 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> -<span id="L24058" class="LineNr">24058 </span> { -<span id="L24059" class="LineNr">24059 </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="L24060" class="LineNr">24060 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24061" class="LineNr">24061 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24062" class="LineNr">24062 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24063" class="LineNr">24063 </span><span class="Constant">$check-mu-index-stmt:base-is-addr</span>: -<span id="L24064" class="LineNr">24064 </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="L24065" class="LineNr">24065 </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="L24066" class="LineNr">24066 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24067" class="LineNr">24067 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24068" class="LineNr">24068 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 -<span id="L24069" class="LineNr">24069 </span><span class="Constant">$check-mu-index-stmt:check-base-addr-is-register</span>: -<span id="L24070" class="LineNr">24070 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L24071" class="LineNr">24071 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-address-array-type-on-stack/disp32 -<span id="L24072" class="LineNr">24072 </span> } -<span id="L24073" class="LineNr">24073 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> -<span id="L24074" class="LineNr">24074 </span> { -<span id="L24075" class="LineNr">24075 </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="L24076" class="LineNr">24076 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24077" class="LineNr">24077 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24078" class="LineNr">24078 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24079" class="LineNr">24079 </span><span class="Constant">$check-mu-index-stmt:base-is-array</span>: -<span id="L24080" class="LineNr">24080 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L24081" class="LineNr">24081 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-type-in-register/disp32 -<span id="L24082" class="LineNr">24082 </span> } -<span id="L24083" class="LineNr">24083 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> -<span id="L24084" class="LineNr">24084 </span> { -<span id="L24085" class="LineNr">24085 </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="L24086" class="LineNr">24086 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24087" class="LineNr">24087 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24088" class="LineNr">24088 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24089" class="LineNr">24089 </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="L24090" class="LineNr">24090 </span> 89/<- %ebx 0/r32/eax -<span id="L24091" class="LineNr">24091 </span> } -<span id="L24092" class="LineNr">24092 </span> <span class="subxH1Comment"># - check for 1 inout</span> -<span id="L24093" class="LineNr">24093 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L23226" class="LineNr">23226 </span> 89/<- %edx 0/r32/eax +<span id="L23227" class="LineNr">23227 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> +<span id="L23228" class="LineNr">23228 </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="L23229" class="LineNr">23229 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23230" class="LineNr">23230 </span> 89/<- %ecx 0/r32/eax +<span id="L23231" class="LineNr">23231 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> +<span id="L23232" class="LineNr">23232 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23233" class="LineNr">23233 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23234" class="LineNr">23234 </span> { +<span id="L23235" class="LineNr">23235 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23236" class="LineNr">23236 </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="L23237" class="LineNr">23237 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> +<span id="L23238" class="LineNr">23238 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23239" class="LineNr">23239 </span> { +<span id="L23240" class="LineNr">23240 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23241" class="LineNr">23241 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23242" class="LineNr">23242 </span> } +<span id="L23243" class="LineNr">23243 </span> 89/<- %ecx 0/r32/eax +<span id="L23244" class="LineNr">23244 </span> } +<span id="L23245" class="LineNr">23245 </span> <span class="subxComment"># if (inout-type != output-type) abort</span> +<span id="L23246" class="LineNr">23246 </span> (<a href='mu.subx.html#L23347'>type-equal-ignoring-capacity?</a> %edx %ecx) <span class="subxComment"># => eax</span> +<span id="L23247" class="LineNr">23247 </span> 3d/compare-eax-and 0/imm32 +<span id="L23248" class="LineNr">23248 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-type-mismatch/disp32 +<span id="L23249" class="LineNr">23249 </span><span class="Constant">$check-mu-address-stmt:end</span>: +<span id="L23250" class="LineNr">23250 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23251" class="LineNr">23251 </span> 5f/pop-to-edi +<span id="L23252" class="LineNr">23252 </span> 5e/pop-to-esi +<span id="L23253" class="LineNr">23253 </span> 5a/pop-to-edx +<span id="L23254" class="LineNr">23254 </span> 59/pop-to-ecx +<span id="L23255" class="LineNr">23255 </span> 58/pop-to-eax +<span id="L23256" class="LineNr">23256 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23257" class="LineNr">23257 </span> 89/<- %esp 5/r32/ebp +<span id="L23258" class="LineNr">23258 </span> 5d/pop-to-ebp +<span id="L23259" class="LineNr">23259 </span> c3/return +<span id="L23260" class="LineNr">23260 </span> +<span id="L23261" class="LineNr">23261 </span><span class="Constant">$check-mu-address-stmt:error-no-inout</span>: +<span id="L23262" class="LineNr">23262 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23263" class="LineNr">23263 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23264" class="LineNr">23264 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23265" class="LineNr">23265 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23266" class="LineNr">23266 </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="L23267" class="LineNr">23267 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23268" class="LineNr">23268 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23269" class="LineNr">23269 </span> <span class="subxComment"># never gets here</span> +<span id="L23270" class="LineNr">23270 </span> +<span id="L23271" class="LineNr">23271 </span><span class="Constant">$check-mu-address-stmt:error-too-many-inouts</span>: +<span id="L23272" class="LineNr">23272 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23273" class="LineNr">23273 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23274" class="LineNr">23274 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23275" class="LineNr">23275 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23276" class="LineNr">23276 </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="L23277" class="LineNr">23277 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23278" class="LineNr">23278 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23279" class="LineNr">23279 </span> <span class="subxComment"># never gets here</span> +<span id="L23280" class="LineNr">23280 </span> +<span id="L23281" class="LineNr">23281 </span><span class="Constant">$check-mu-address-stmt:error-no-output</span>: +<span id="L23282" class="LineNr">23282 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23283" class="LineNr">23283 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23284" class="LineNr">23284 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23285" class="LineNr">23285 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23286" class="LineNr">23286 </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="L23287" class="LineNr">23287 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23288" class="LineNr">23288 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23289" class="LineNr">23289 </span> <span class="subxComment"># never gets here</span> +<span id="L23290" class="LineNr">23290 </span> +<span id="L23291" class="LineNr">23291 </span><span class="Constant">$check-mu-address-stmt:error-output-not-in-register</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">": stmt address: output '"</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">"' not in a register\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-address-stmt:error-too-many-outputs</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">": stmt 'address' must have just one output\n"</span>) +<span id="L23311" class="LineNr">23311 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23312" class="LineNr">23312 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23313" class="LineNr">23313 </span> <span class="subxComment"># never gets here</span> +<span id="L23314" class="LineNr">23314 </span> +<span id="L23315" class="LineNr">23315 </span><span class="Constant">$check-mu-address-stmt:error-output-not-address</span>: +<span id="L23316" class="LineNr">23316 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23317" class="LineNr">23317 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23318" class="LineNr">23318 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23319" class="LineNr">23319 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23320" class="LineNr">23320 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) +<span id="L23321" class="LineNr">23321 </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="L23322" class="LineNr">23322 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-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">"' is not an addr\n"</span>) +<span id="L23325" class="LineNr">23325 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23326" class="LineNr">23326 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23327" class="LineNr">23327 </span> <span class="subxComment"># never gets here</span> +<span id="L23328" class="LineNr">23328 </span> +<span id="L23329" class="LineNr">23329 </span><span class="Constant">$check-mu-address-stmt:error-type-mismatch</span>: +<span id="L23330" class="LineNr">23330 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23331" class="LineNr">23331 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23332" class="LineNr">23332 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23333" class="LineNr">23333 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23334" class="LineNr">23334 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) +<span id="L23335" class="LineNr">23335 </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="L23336" class="LineNr">23336 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-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">"' cannot hold address of '"</span>) +<span id="L23339" class="LineNr">23339 </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="L23340" class="LineNr">23340 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23341" class="LineNr">23341 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23342" class="LineNr">23342 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L23343" class="LineNr">23343 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23344" class="LineNr">23344 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23345" class="LineNr">23345 </span> <span class="subxComment"># never gets here</span> +<span id="L23346" class="LineNr">23346 </span> +<span id="L23347" class="LineNr">23347 </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="L23348" class="LineNr">23348 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23349" class="LineNr">23349 </span> 55/push-ebp +<span id="L23350" class="LineNr">23350 </span> 89/<- %ebp 4/r32/esp +<span id="L23351" class="LineNr">23351 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23352" class="LineNr">23352 </span> 51/push-ecx +<span id="L23353" class="LineNr">23353 </span> 52/push-edx +<span id="L23354" class="LineNr">23354 </span> 53/push-ebx +<span id="L23355" class="LineNr">23355 </span> <span class="subxComment"># var curr-a/ecx: (addr type-tree) = a</span> +<span id="L23356" class="LineNr">23356 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L23357" class="LineNr">23357 </span> <span class="subxComment"># var curr-b/ebx: (addr type-tree) = b</span> +<span id="L23358" class="LineNr">23358 </span> 8b/-> *(ebp+0xc) 3/r32/ebx +<span id="L23359" class="LineNr">23359 </span> <span class="subxComment"># if (curr-a->is-atom?) fall back to regular equality</span> +<span id="L23360" class="LineNr">23360 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23361" class="LineNr">23361 </span> 0f 85/jump-if-!= $type-equal-ignoring-capacity?:base-case/disp32 +<span id="L23362" class="LineNr">23362 </span> <span class="subxComment"># if (curr-a->left != curr-b->left) return false</span> +<span id="L23363" class="LineNr">23363 </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="L23364" class="LineNr">23364 </span> 89/<- %edx 0/r32/eax +<span id="L23365" class="LineNr">23365 </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="L23366" class="LineNr">23366 </span> (<a href='mu.subx.html#L27097'>type-equal?</a> %edx %eax) <span class="subxComment"># => eax</span> +<span id="L23367" class="LineNr">23367 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23368" class="LineNr">23368 </span> 0f 84/jump-if-= $type-equal-ignoring-capacity?:end/disp32 <span class="subxComment"># eax switches meaning</span> +<span id="L23369" class="LineNr">23369 </span> <span class="subxComment"># if (curr-a->left == "array") curr-a = curr-a->element-type</span> +<span id="L23370" class="LineNr">23370 </span> { +<span id="L23371" class="LineNr">23371 </span> (<a href='mu.subx.html#L26867'>mu-array?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L23372" class="LineNr">23372 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23373" class="LineNr">23373 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23374" class="LineNr">23374 </span><span class="Constant">$type-equal-ignoring-capacity?:array</span>: +<span id="L23375" class="LineNr">23375 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> +<span id="L23376" class="LineNr">23376 </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="L23377" class="LineNr">23377 </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="L23378" class="LineNr">23378 </span> 89/<- %ecx 0/r32/eax +<span id="L23379" class="LineNr">23379 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> +<span id="L23380" class="LineNr">23380 </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="L23381" class="LineNr">23381 </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="L23382" class="LineNr">23382 </span> 89/<- %ebx 0/r32/eax +<span id="L23383" class="LineNr">23383 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 +<span id="L23384" class="LineNr">23384 </span> } +<span id="L23385" class="LineNr">23385 </span> <span class="subxComment"># if (curr-a->left == "stream") curr-a = curr-a->element-type</span> +<span id="L23386" class="LineNr">23386 </span> { +<span id="L23387" class="LineNr">23387 </span> (<a href='mu.subx.html#L26932'>mu-stream?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L23388" class="LineNr">23388 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23389" class="LineNr">23389 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23390" class="LineNr">23390 </span><span class="Constant">$type-equal-ignoring-capacity?:stream</span>: +<span id="L23391" class="LineNr">23391 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> +<span id="L23392" class="LineNr">23392 </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="L23393" class="LineNr">23393 </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="L23394" class="LineNr">23394 </span> 89/<- %ecx 0/r32/eax +<span id="L23395" class="LineNr">23395 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> +<span id="L23396" class="LineNr">23396 </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="L23397" class="LineNr">23397 </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="L23398" class="LineNr">23398 </span> 89/<- %ebx 0/r32/eax +<span id="L23399" class="LineNr">23399 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 +<span id="L23400" class="LineNr">23400 </span> } +<span id="L23401" class="LineNr">23401 </span><span class="Constant">$type-equal-ignoring-capacity?:base-case</span>: +<span id="L23402" class="LineNr">23402 </span> <span class="subxComment"># return type-equal?(curr-a, curr-b)</span> +<span id="L23403" class="LineNr">23403 </span> (<a href='mu.subx.html#L27097'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> +<span id="L23404" class="LineNr">23404 </span><span class="Constant">$type-equal-ignoring-capacity?:end</span>: +<span id="L23405" class="LineNr">23405 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23406" class="LineNr">23406 </span> 5b/pop-to-ebx +<span id="L23407" class="LineNr">23407 </span> 5a/pop-to-edx +<span id="L23408" class="LineNr">23408 </span> 59/pop-to-ecx +<span id="L23409" class="LineNr">23409 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23410" class="LineNr">23410 </span> 89/<- %esp 5/r32/ebp +<span id="L23411" class="LineNr">23411 </span> 5d/pop-to-ebp +<span id="L23412" class="LineNr">23412 </span> c3/return +<span id="L23413" class="LineNr">23413 </span> +<span id="L23414" class="LineNr">23414 </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="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> 50/push-eax +<span id="L23420" class="LineNr">23420 </span> 51/push-ecx +<span id="L23421" class="LineNr">23421 </span> 52/push-edx +<span id="L23422" class="LineNr">23422 </span> 53/push-ebx +<span id="L23423" class="LineNr">23423 </span> 56/push-esi +<span id="L23424" class="LineNr">23424 </span> 57/push-edi +<span id="L23425" class="LineNr">23425 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L23426" class="LineNr">23426 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L23427" class="LineNr">23427 </span> 68/push 0x60/imm32/size +<span id="L23428" class="LineNr">23428 </span> 68/push 0/imm32/read +<span id="L23429" class="LineNr">23429 </span> 68/push 0/imm32/write +<span id="L23430" class="LineNr">23430 </span> 89/<- %edx 4/r32/esp +<span id="L23431" class="LineNr">23431 </span> <span class="subxComment"># var template/esi: (addr list var) = fn->outputs</span> +<span id="L23432" class="LineNr">23432 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23433" class="LineNr">23433 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L23434" class="LineNr">23434 </span> 89/<- %esi 0/r32/eax +<span id="L23435" class="LineNr">23435 </span> <span class="subxComment"># var curr-template/ebx: (addr list var) = fn->outputs</span> +<span id="L23436" class="LineNr">23436 </span> 89/<- %ebx 0/r32/eax +<span id="L23437" class="LineNr">23437 </span> <span class="subxComment"># var curr/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L23438" class="LineNr">23438 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23439" class="LineNr">23439 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23440" class="LineNr">23440 </span> 89/<- %edi 0/r32/eax +<span id="L23441" class="LineNr">23441 </span> { +<span id="L23442" class="LineNr">23442 </span> <span class="subxComment"># if template is null, break</span> +<span id="L23443" class="LineNr">23443 </span> 81 7/subop/compare %ebx 0/imm32 +<span id="L23444" class="LineNr">23444 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23445" class="LineNr">23445 </span> <span class="subxComment"># if curr is null, abort</span> +<span id="L23446" class="LineNr">23446 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L23447" class="LineNr">23447 </span> 0f 84/jump-if-= $check-mu-return-stmt:error-too-few-inouts/disp32 +<span id="L23448" class="LineNr">23448 </span> <span class="subxComment"># var template-type/ecx: (addr type-tree) = template->value->type</span> +<span id="L23449" class="LineNr">23449 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23450" class="LineNr">23450 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23451" class="LineNr">23451 </span> 89/<- %ecx 0/r32/eax +<span id="L23452" class="LineNr">23452 </span> <span class="subxComment"># var curr-type/eax: (addr type-tree) = curr->value->type</span> +<span id="L23453" class="LineNr">23453 </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="L23454" class="LineNr">23454 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23455" class="LineNr">23455 </span> <span class="subxComment"># if (curr->is-deref?) curr-type = payload of curr-type</span> +<span id="L23456" class="LineNr">23456 </span> 81 7/subop/compare *(edi+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23457" class="LineNr">23457 </span> { +<span id="L23458" class="LineNr">23458 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23459" class="LineNr">23459 </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="L23460" class="LineNr">23460 </span> <span class="subxComment"># if t->right is null, t = t->left</span> +<span id="L23461" class="LineNr">23461 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23462" class="LineNr">23462 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23463" class="LineNr">23463 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23464" class="LineNr">23464 </span> } +<span id="L23465" class="LineNr">23465 </span> <span class="subxComment"># if curr-type is literal and template-type is float, abort</span> +<span id="L23466" class="LineNr">23466 </span> 50/push-eax +<span id="L23467" class="LineNr">23467 </span> { +<span id="L23468" class="LineNr">23468 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> +<span id="L23469" class="LineNr">23469 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23470" class="LineNr">23470 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23471" class="LineNr">23471 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> +<span id="L23472" class="LineNr">23472 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23473" class="LineNr">23473 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error-literal-to-float/disp32 +<span id="L23474" class="LineNr">23474 </span> } +<span id="L23475" class="LineNr">23475 </span> 58/pop-to-eax +<span id="L23476" class="LineNr">23476 </span> <span class="subxComment"># if (curr-type != template-type) abort</span> +<span id="L23477" class="LineNr">23477 </span> (<a href='mu.subx.html#L26614'>type-match?</a> %ecx %eax %edx) <span class="subxComment"># => eax</span> +<span id="L23478" class="LineNr">23478 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23479" class="LineNr">23479 </span> 0f 84/jump-if-= $check-mu-return-stmt:error1/disp32 +<span id="L23480" class="LineNr">23480 </span> <span class="subxComment"># if register-within-list-with-conflict?(curr, original template, curr-template, stmt) abort</span> +<span id="L23481" class="LineNr">23481 </span> (<a href='mu.subx.html#L23634'>register-within-list-with-conflict?</a> %edi %esi %ebx *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L23482" class="LineNr">23482 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23483" class="LineNr">23483 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error2/disp32 +<span id="L23484" class="LineNr">23484 </span> <span class="subxComment"># template = template->next</span> +<span id="L23485" class="LineNr">23485 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23486" class="LineNr">23486 </span> 89/<- %ebx 0/r32/eax +<span id="L23487" class="LineNr">23487 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23488" class="LineNr">23488 </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="L23489" class="LineNr">23489 </span> 89/<- %edi 0/r32/eax +<span id="L23490" class="LineNr">23490 </span> <span class="subxComment">#</span> +<span id="L23491" class="LineNr">23491 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23492" class="LineNr">23492 </span> } +<span id="L23493" class="LineNr">23493 </span> <span class="subxComment"># if curr is not null, abort</span> +<span id="L23494" class="LineNr">23494 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L23495" class="LineNr">23495 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error-too-many-inouts/disp32 +<span id="L23496" class="LineNr">23496 </span><span class="Constant">$check-mu-return-stmt:end</span>: +<span id="L23497" class="LineNr">23497 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L23498" class="LineNr">23498 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L23499" class="LineNr">23499 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23500" class="LineNr">23500 </span> 5f/pop-to-edi +<span id="L23501" class="LineNr">23501 </span> 5e/pop-to-esi +<span id="L23502" class="LineNr">23502 </span> 5b/pop-to-ebx +<span id="L23503" class="LineNr">23503 </span> 5a/pop-to-edx +<span id="L23504" class="LineNr">23504 </span> 59/pop-to-ecx +<span id="L23505" class="LineNr">23505 </span> 58/pop-to-eax +<span id="L23506" class="LineNr">23506 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23507" class="LineNr">23507 </span> 89/<- %esp 5/r32/ebp +<span id="L23508" class="LineNr">23508 </span> 5d/pop-to-ebp +<span id="L23509" class="LineNr">23509 </span> c3/return +<span id="L23510" class="LineNr">23510 </span> +<span id="L23511" class="LineNr">23511 </span><span class="Constant">$check-mu-return-stmt:error1</span>: +<span id="L23512" class="LineNr">23512 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23513" class="LineNr">23513 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23514" class="LineNr">23514 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23515" class="LineNr">23515 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23516" class="LineNr">23516 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) +<span id="L23517" class="LineNr">23517 </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="L23518" class="LineNr">23518 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23519" class="LineNr">23519 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23520" class="LineNr">23520 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has the wrong type\n"</span>) +<span id="L23521" class="LineNr">23521 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23522" class="LineNr">23522 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23523" class="LineNr">23523 </span> <span class="subxComment"># never gets here</span> +<span id="L23524" class="LineNr">23524 </span> +<span id="L23525" class="LineNr">23525 </span><span class="Constant">$check-mu-return-stmt:error2</span>: +<span id="L23526" class="LineNr">23526 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23527" class="LineNr">23527 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23528" class="LineNr">23528 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23529" class="LineNr">23529 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23530" class="LineNr">23530 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) +<span id="L23531" class="LineNr">23531 </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="L23532" class="LineNr">23532 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23533" class="LineNr">23533 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23534" class="LineNr">23534 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is no longer available\n"</span>) +<span id="L23535" class="LineNr">23535 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23536" class="LineNr">23536 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23537" class="LineNr">23537 </span> <span class="subxComment"># never gets here</span> +<span id="L23538" class="LineNr">23538 </span> +<span id="L23539" class="LineNr">23539 </span><span class="Constant">$check-mu-return-stmt:error-literal-to-float</span>: +<span id="L23540" class="LineNr">23540 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23541" class="LineNr">23541 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23542" class="LineNr">23542 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23543" class="LineNr">23543 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23544" class="LineNr">23544 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: cannot copy literal '"</span>) +<span id="L23545" class="LineNr">23545 </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="L23546" class="LineNr">23546 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23547" class="LineNr">23547 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23548" class="LineNr">23548 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' to float\n"</span>) +<span id="L23549" class="LineNr">23549 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23550" class="LineNr">23550 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23551" class="LineNr">23551 </span> <span class="subxComment"># never gets here</span> +<span id="L23552" class="LineNr">23552 </span> +<span id="L23553" class="LineNr">23553 </span><span class="Constant">$check-mu-return-stmt:error-too-few-inouts</span>: +<span id="L23554" class="LineNr">23554 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23555" class="LineNr">23555 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23556" class="LineNr">23556 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23557" class="LineNr">23557 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23558" class="LineNr">23558 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: too few inouts\n"</span>) +<span id="L23559" class="LineNr">23559 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23560" class="LineNr">23560 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23561" class="LineNr">23561 </span> <span class="subxComment"># never gets here</span> +<span id="L23562" class="LineNr">23562 </span> +<span id="L23563" class="LineNr">23563 </span><span class="Constant">$check-mu-return-stmt:error-too-many-inouts</span>: +<span id="L23564" class="LineNr">23564 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23565" class="LineNr">23565 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23566" class="LineNr">23566 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23567" class="LineNr">23567 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23568" class="LineNr">23568 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: too many inouts\n"</span>) +<span id="L23569" class="LineNr">23569 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23570" class="LineNr">23570 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23571" class="LineNr">23571 </span> <span class="subxComment"># never gets here</span> +<span id="L23572" class="LineNr">23572 </span> +<span id="L23573" class="LineNr">23573 </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="L23574" class="LineNr">23574 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23575" class="LineNr">23575 </span> 55/push-ebp +<span id="L23576" class="LineNr">23576 </span> 89/<- %ebp 4/r32/esp +<span id="L23577" class="LineNr">23577 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23578" class="LineNr">23578 </span> 50/push-eax +<span id="L23579" class="LineNr">23579 </span> 51/push-ecx +<span id="L23580" class="LineNr">23580 </span> 56/push-esi +<span id="L23581" class="LineNr">23581 </span> <span class="subxComment"># var table/esi: (addr table (handle array byte) int 8)</span> +<span id="L23582" class="LineNr">23582 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L23583" class="LineNr">23583 </span> 68/push 0x60/imm32/size +<span id="L23584" class="LineNr">23584 </span> 68/push 0/imm32/read +<span id="L23585" class="LineNr">23585 </span> 68/push 0/imm32/write +<span id="L23586" class="LineNr">23586 </span> 89/<- %esi 4/r32/esp +<span id="L23587" class="LineNr">23587 </span> <span class="subxComment"># var curr/ecx: (addr list var) = outputs</span> +<span id="L23588" class="LineNr">23588 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L23589" class="LineNr">23589 </span> { +<span id="L23590" class="LineNr">23590 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L23591" class="LineNr">23591 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L23592" class="LineNr">23592 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23593" class="LineNr">23593 </span> <span class="subxComment"># var reg/eax: (addr array byte) = curr->value->register # guaranteed to exist</span> +<span id="L23594" class="LineNr">23594 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23595" class="LineNr">23595 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23596" class="LineNr">23596 </span> <span class="subxComment"># if reg exists in table, abort</span> +<span id="L23597" class="LineNr">23597 </span> (<a href='131table.subx.html#L2111'>maybe-get</a> %esi %eax 0xc) <span class="subxComment"># => eax</span> +<span id="L23598" class="LineNr">23598 </span> 3d/compare-eax-and 0/imm32 +<span id="L23599" class="LineNr">23599 </span> 0f 85/jump-if-!= $check-all-unique-registers:abort/disp32 +<span id="L23600" class="LineNr">23600 </span> <span class="subxComment"># insert reg in table</span> +<span id="L23601" class="LineNr">23601 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23602" class="LineNr">23602 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23603" class="LineNr">23603 </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="L23604" class="LineNr">23604 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23605" class="LineNr">23605 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23606" class="LineNr">23606 </span> 89/<- %ecx 0/r32/eax +<span id="L23607" class="LineNr">23607 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23608" class="LineNr">23608 </span> } +<span id="L23609" class="LineNr">23609 </span><span class="Constant">$check-all-unique-registers:end</span>: +<span id="L23610" class="LineNr">23610 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L23611" class="LineNr">23611 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L23612" class="LineNr">23612 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23613" class="LineNr">23613 </span> 5e/pop-to-esi +<span id="L23614" class="LineNr">23614 </span> 59/pop-to-ecx +<span id="L23615" class="LineNr">23615 </span> 58/pop-to-eax +<span id="L23616" class="LineNr">23616 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23617" class="LineNr">23617 </span> 89/<- %esp 5/r32/ebp +<span id="L23618" class="LineNr">23618 </span> 5d/pop-to-ebp +<span id="L23619" class="LineNr">23619 </span> c3/return +<span id="L23620" class="LineNr">23620 </span> +<span id="L23621" class="LineNr">23621 </span><span class="Constant">$check-all-unique-registers:abort</span>: +<span id="L23622" class="LineNr">23622 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23623" class="LineNr">23623 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23624" class="LineNr">23624 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23625" class="LineNr">23625 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23626" class="LineNr">23626 </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="L23627" class="LineNr">23627 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23628" class="LineNr">23628 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23629" class="LineNr">23629 </span> <span class="subxComment"># never gets here</span> +<span id="L23630" class="LineNr">23630 </span> +<span id="L23631" class="LineNr">23631 </span><span class="subxComment"># return false if s's register is not between start (inclusive) and end (exclusive)</span> +<span id="L23632" class="LineNr">23632 </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="L23633" class="LineNr">23633 </span><span class="subxComment"># otherwise return true</span> +<span id="L23634" class="LineNr">23634 </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="L23635" class="LineNr">23635 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23636" class="LineNr">23636 </span> 55/push-ebp +<span id="L23637" class="LineNr">23637 </span> 89/<- %ebp 4/r32/esp +<span id="L23638" class="LineNr">23638 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23639" class="LineNr">23639 </span> 51/push-ecx +<span id="L23640" class="LineNr">23640 </span> 52/push-edx +<span id="L23641" class="LineNr">23641 </span> 53/push-ebx +<span id="L23642" class="LineNr">23642 </span> 56/push-esi +<span id="L23643" class="LineNr">23643 </span> 57/push-edi +<span id="L23644" class="LineNr">23644 </span> <span class="subxComment"># var target/ebx: (addr array byte) = s->value->register</span> +<span id="L23645" class="LineNr">23645 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23646" class="LineNr">23646 </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="L23647" class="LineNr">23647 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23648" class="LineNr">23648 </span><span class="CommentedCode">#? (write-buffered Stderr "AA: ")</span> +<span id="L23649" class="LineNr">23649 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L23650" class="LineNr">23650 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L23651" class="LineNr">23651 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23652" class="LineNr">23652 </span> <span class="subxComment"># if (var->register == 0) return false</span> +<span id="L23653" class="LineNr">23653 </span> 3d/compare-eax-and 0/imm32 +<span id="L23654" class="LineNr">23654 </span> 0f 84/jump-if-= $register-within-list-with-conflict?:end/disp32 <span class="subxComment"># eax turns into result</span> +<span id="L23655" class="LineNr">23655 </span> 89/<- %ebx 0/r32/eax +<span id="L23656" class="LineNr">23656 </span> <span class="subxComment"># var curr/ecx: (addr list var) = start</span> +<span id="L23657" class="LineNr">23657 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L23658" class="LineNr">23658 </span> <span class="subxComment"># edx = end</span> +<span id="L23659" class="LineNr">23659 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L23660" class="LineNr">23660 </span> { +<span id="L23661" class="LineNr">23661 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L23662" class="LineNr">23662 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L23663" class="LineNr">23663 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23664" class="LineNr">23664 </span> <span class="subxComment"># if (curr == end) break</span> +<span id="L23665" class="LineNr">23665 </span> 39/compare %ecx 2/r32/edx +<span id="L23666" class="LineNr">23666 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23667" class="LineNr">23667 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr->value->register</span> +<span id="L23668" class="LineNr">23668 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23669" class="LineNr">23669 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23670" class="LineNr">23670 </span> <span class="subxComment"># if (curr-reg == 0) continue</span> +<span id="L23671" class="LineNr">23671 </span> 3d/compare-eax-and 0/imm32 +<span id="L23672" class="LineNr">23672 </span> 74/jump-if-= $register-within-list-with-conflict?:continue/disp8 +<span id="L23673" class="LineNr">23673 </span> <span class="subxComment"># if (curr-reg == target) check for conflict</span> +<span id="L23674" class="LineNr">23674 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L23675" class="LineNr">23675 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23676" class="LineNr">23676 </span> { +<span id="L23677" class="LineNr">23677 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23678" class="LineNr">23678 </span><span class="CommentedCode">#? (write-buffered Stderr "conflict?\n")</span> +<span id="L23679" class="LineNr">23679 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23680" class="LineNr">23680 </span> <span class="subxComment"># var return-inouts/eax: (addr stmt-var) = stmt->inouts</span> +<span id="L23681" class="LineNr">23681 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L23682" class="LineNr">23682 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23683" class="LineNr">23683 </span> (<a href='mu.subx.html#L23710'>register-conflict?</a> %ebx %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L23684" class="LineNr">23684 </span> eb/jump $register-within-list-with-conflict?:end/disp8 +<span id="L23685" class="LineNr">23685 </span> } +<span id="L23686" class="LineNr">23686 </span><span class="Constant">$register-within-list-with-conflict?:continue</span>: +<span id="L23687" class="LineNr">23687 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23688" class="LineNr">23688 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23689" class="LineNr">23689 </span> 89/<- %ecx 0/r32/eax +<span id="L23690" class="LineNr">23690 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23691" class="LineNr">23691 </span> } +<span id="L23692" class="LineNr">23692 </span> <span class="subxComment"># return false</span> +<span id="L23693" class="LineNr">23693 </span> b8/copy-to-eax 0/imm32/false +<span id="L23694" class="LineNr">23694 </span><span class="Constant">$register-within-list-with-conflict?:end</span>: +<span id="L23695" class="LineNr">23695 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23696" class="LineNr">23696 </span> 5f/pop-to-edi +<span id="L23697" class="LineNr">23697 </span> 5e/pop-to-esi +<span id="L23698" class="LineNr">23698 </span> 5b/pop-to-ebx +<span id="L23699" class="LineNr">23699 </span> 5a/pop-to-edx +<span id="L23700" class="LineNr">23700 </span> 59/pop-to-ecx +<span id="L23701" class="LineNr">23701 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23702" class="LineNr">23702 </span> 89/<- %esp 5/r32/ebp +<span id="L23703" class="LineNr">23703 </span> 5d/pop-to-ebp +<span id="L23704" class="LineNr">23704 </span> c3/return +<span id="L23705" class="LineNr">23705 </span> +<span id="L23706" class="LineNr">23706 </span><span class="subxComment"># At the first occurrence of register 'reg' in fn-outputs,</span> +<span id="L23707" class="LineNr">23707 </span><span class="subxComment"># check if the corresponding element of return-inouts has a different register.</span> +<span id="L23708" class="LineNr">23708 </span><span class="subxComment"># This hacky helper is intended to be called in one specific place. Don't</span> +<span id="L23709" class="LineNr">23709 </span><span class="subxComment"># reuse it as is.</span> +<span id="L23710" class="LineNr">23710 </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="L23711" class="LineNr">23711 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23712" class="LineNr">23712 </span> 55/push-ebp +<span id="L23713" class="LineNr">23713 </span> 89/<- %ebp 4/r32/esp +<span id="L23714" class="LineNr">23714 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23715" class="LineNr">23715 </span> 51/push-ecx +<span id="L23716" class="LineNr">23716 </span> 52/push-edx +<span id="L23717" class="LineNr">23717 </span> 53/push-ebx +<span id="L23718" class="LineNr">23718 </span> 56/push-esi +<span id="L23719" class="LineNr">23719 </span> 57/push-edi +<span id="L23720" class="LineNr">23720 </span><span class="CommentedCode">#? (write-buffered Stderr "BB: ")</span> +<span id="L23721" class="LineNr">23721 </span><span class="CommentedCode">#? (write-buffered Stderr *(ebp+8))</span> +<span id="L23722" class="LineNr">23722 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L23723" class="LineNr">23723 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23724" class="LineNr">23724 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn-outputs</span> +<span id="L23725" class="LineNr">23725 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L23726" class="LineNr">23726 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-inouts</span> +<span id="L23727" class="LineNr">23727 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L23728" class="LineNr">23728 </span> { +<span id="L23729" class="LineNr">23729 </span> <span class="subxComment"># if (curr-output == 0) abort</span> +<span id="L23730" class="LineNr">23730 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L23731" class="LineNr">23731 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23732" class="LineNr">23732 </span> <span class="subxComment"># if (curr-output->value->register != reg) continue</span> +<span id="L23733" class="LineNr">23733 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23734" class="LineNr">23734 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23735" class="LineNr">23735 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L23736" class="LineNr">23736 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23737" class="LineNr">23737 </span> 0f 84/jump-if= $register-conflict?:continue/disp32 +<span id="L23738" class="LineNr">23738 </span><span class="CommentedCode">#? (write-buffered Stderr "rescan\n")</span> +<span id="L23739" class="LineNr">23739 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23740" class="LineNr">23740 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr-inout->value->register</span> +<span id="L23741" class="LineNr">23741 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23742" class="LineNr">23742 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23743" class="LineNr">23743 </span> <span class="subxComment"># if (curr-reg == 0) return true</span> +<span id="L23744" class="LineNr">23744 </span> 3d/compare-eax-and 0/imm32 +<span id="L23745" class="LineNr">23745 </span> { +<span id="L23746" class="LineNr">23746 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23747" class="LineNr">23747 </span><span class="CommentedCode">#? (write-buffered Stderr "no register\n")</span> +<span id="L23748" class="LineNr">23748 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23749" class="LineNr">23749 </span> b8/copy-to-eax 1/imm32/true +<span id="L23750" class="LineNr">23750 </span> e9/jump $register-conflict?:end/disp32 +<span id="L23751" class="LineNr">23751 </span> } +<span id="L23752" class="LineNr">23752 </span> <span class="subxComment"># return (curr-reg != reg)</span> +<span id="L23753" class="LineNr">23753 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L23754" class="LineNr">23754 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23755" class="LineNr">23755 </span> 0f 94/set-if-= %al +<span id="L23756" class="LineNr">23756 </span><span class="CommentedCode">#? (write-buffered Stderr "final: ")</span> +<span id="L23757" class="LineNr">23757 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L23758" class="LineNr">23758 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L23759" class="LineNr">23759 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23760" class="LineNr">23760 </span> eb/jump $register-conflict?:end/disp8 +<span id="L23761" class="LineNr">23761 </span><span class="Constant">$register-conflict?:continue</span>: +<span id="L23762" class="LineNr">23762 </span> <span class="subxComment"># curr-output = curr-output->next</span> +<span id="L23763" class="LineNr">23763 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23764" class="LineNr">23764 </span> 89/<- %edi 0/r32/eax +<span id="L23765" class="LineNr">23765 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> +<span id="L23766" class="LineNr">23766 </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="L23767" class="LineNr">23767 </span> 89/<- %esi 0/r32/eax +<span id="L23768" class="LineNr">23768 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23769" class="LineNr">23769 </span> } +<span id="L23770" class="LineNr">23770 </span> <span class="subxComment"># should never get here</span> +<span id="L23771" class="LineNr">23771 </span> (<a 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="L23772" class="LineNr">23772 </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="L23773" class="LineNr">23773 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L23774" class="LineNr">23774 </span><span class="Constant">$register-conflict?:end</span>: +<span id="L23775" class="LineNr">23775 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23776" class="LineNr">23776 </span> 5f/pop-to-edi +<span id="L23777" class="LineNr">23777 </span> 5e/pop-to-esi +<span id="L23778" class="LineNr">23778 </span> 5b/pop-to-ebx +<span id="L23779" class="LineNr">23779 </span> 5a/pop-to-edx +<span id="L23780" class="LineNr">23780 </span> 59/pop-to-ecx +<span id="L23781" class="LineNr">23781 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23782" class="LineNr">23782 </span> 89/<- %esp 5/r32/ebp +<span id="L23783" class="LineNr">23783 </span> 5d/pop-to-ebp +<span id="L23784" class="LineNr">23784 </span> c3/return +<span id="L23785" class="LineNr">23785 </span> +<span id="L23786" class="LineNr">23786 </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="L23787" class="LineNr">23787 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23788" class="LineNr">23788 </span> 55/push-ebp +<span id="L23789" class="LineNr">23789 </span> 89/<- %ebp 4/r32/esp +<span id="L23790" class="LineNr">23790 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23791" class="LineNr">23791 </span> 50/push-eax +<span id="L23792" class="LineNr">23792 </span> 51/push-ecx +<span id="L23793" class="LineNr">23793 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> +<span id="L23794" class="LineNr">23794 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23795" class="LineNr">23795 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L23796" class="LineNr">23796 </span> 3d/compare-eax-and 0/imm32 +<span id="L23797" class="LineNr">23797 </span> 74/jump-if-= $check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a>/disp8 +<span id="L23798" class="LineNr">23798 </span> 89/<- %ecx 0/r32/eax +<span id="L23799" class="LineNr">23799 </span> { +<span id="L23800" class="LineNr">23800 </span> <span class="subxComment"># if curr->next == 0, break</span> +<span id="L23801" class="LineNr">23801 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23802" class="LineNr">23802 </span> 3d/compare-eax-and 0/imm32 +<span id="L23803" class="LineNr">23803 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23804" class="LineNr">23804 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23805" class="LineNr">23805 </span> 89/<- %ecx 0/r32/eax +<span id="L23806" class="LineNr">23806 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23807" class="LineNr">23807 </span> } +<span id="L23808" class="LineNr">23808 </span><span class="Constant">$check-final-stmt-is-return:check-tag</span>: +<span id="L23809" class="LineNr">23809 </span> <span class="subxComment"># if curr->value->tag != Stmt1, abort</span> +<span id="L23810" class="LineNr">23810 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23811" class="LineNr">23811 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L23812" class="LineNr">23812 </span> 75/jump-if-!= $check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a>/disp8 +<span id="L23813" class="LineNr">23813 </span><span class="Constant">$check-final-stmt-is-return:check-operation</span>: +<span id="L23814" class="LineNr">23814 </span> <span class="subxComment"># if curr->operation != "return", abort</span> +<span id="L23815" class="LineNr">23815 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L23816" class="LineNr">23816 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"return"</span>) +<span id="L23817" class="LineNr">23817 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23818" class="LineNr">23818 </span> 74/jump-if-= $check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a>/disp8 +<span id="L23819" class="LineNr">23819 </span><span class="Constant">$check-final-stmt-is-return:end</span>: +<span id="L23820" class="LineNr">23820 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23821" class="LineNr">23821 </span> 59/pop-to-ecx +<span id="L23822" class="LineNr">23822 </span> 58/pop-to-eax +<span id="L23823" class="LineNr">23823 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23824" class="LineNr">23824 </span> 89/<- %esp 5/r32/ebp +<span id="L23825" class="LineNr">23825 </span> 5d/pop-to-ebp +<span id="L23826" class="LineNr">23826 </span> c3/return +<span id="L23827" class="LineNr">23827 </span> +<span id="L23828" class="LineNr">23828 </span><span class="Constant">$check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a></span>: +<span id="L23829" class="LineNr">23829 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23830" class="LineNr">23830 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23831" class="LineNr">23831 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23832" class="LineNr">23832 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23833" class="LineNr">23833 </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="L23834" class="LineNr">23834 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23835" class="LineNr">23835 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23836" class="LineNr">23836 </span> <span class="subxComment"># never gets here</span> +<span id="L23837" class="LineNr">23837 </span> +<span id="L23838" class="LineNr">23838 </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="L23839" class="LineNr">23839 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23840" class="LineNr">23840 </span> 55/push-ebp +<span id="L23841" class="LineNr">23841 </span> 89/<- %ebp 4/r32/esp +<span id="L23842" class="LineNr">23842 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23843" class="LineNr">23843 </span> 50/push-eax +<span id="L23844" class="LineNr">23844 </span> 51/push-ecx +<span id="L23845" class="LineNr">23845 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> +<span id="L23846" class="LineNr">23846 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23847" class="LineNr">23847 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L23848" class="LineNr">23848 </span> 3d/compare-eax-and 0/imm32 +<span id="L23849" class="LineNr">23849 </span> 0f 84/jump-if-= $check-no-breaks:end/disp32 +<span id="L23850" class="LineNr">23850 </span> 89/<- %ecx 0/r32/eax +<span id="L23851" class="LineNr">23851 </span> { +<span id="L23852" class="LineNr">23852 </span> <span class="subxComment"># if curr->next == 0, break</span> +<span id="L23853" class="LineNr">23853 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23854" class="LineNr">23854 </span> 3d/compare-eax-and 0/imm32 +<span id="L23855" class="LineNr">23855 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23856" class="LineNr">23856 </span> <span class="subxComment"># if curr->value->tag != Stmt1, continue</span> +<span id="L23857" class="LineNr">23857 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23858" class="LineNr">23858 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L23859" class="LineNr">23859 </span> 75/jump-if-!= $check-no-breaks:continue/disp8 +<span id="L23860" class="LineNr">23860 </span> <span class="subxComment"># if curr->value->operation starts with "break", abort</span> +<span id="L23861" class="LineNr">23861 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L23862" class="LineNr">23862 </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="L23863" class="LineNr">23863 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23864" class="LineNr">23864 </span> 75/jump-if-!= $check-no-breaks:<a href='114error.subx.html#L9'>error</a>/disp8 +<span id="L23865" class="LineNr">23865 </span><span class="Constant">$check-no-breaks:continue</span>: +<span id="L23866" class="LineNr">23866 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23867" class="LineNr">23867 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23868" class="LineNr">23868 </span> 89/<- %ecx 0/r32/eax +<span id="L23869" class="LineNr">23869 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23870" class="LineNr">23870 </span> } +<span id="L23871" class="LineNr">23871 </span><span class="Constant">$check-no-breaks:end</span>: +<span id="L23872" class="LineNr">23872 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23873" class="LineNr">23873 </span> 59/pop-to-ecx +<span id="L23874" class="LineNr">23874 </span> 58/pop-to-eax +<span id="L23875" class="LineNr">23875 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23876" class="LineNr">23876 </span> 89/<- %esp 5/r32/ebp +<span id="L23877" class="LineNr">23877 </span> 5d/pop-to-ebp +<span id="L23878" class="LineNr">23878 </span> c3/return +<span id="L23879" class="LineNr">23879 </span> +<span id="L23880" class="LineNr">23880 </span><span class="Constant">$check-no-breaks:<a href='114error.subx.html#L9'>error</a></span>: +<span id="L23881" class="LineNr">23881 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23882" class="LineNr">23882 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23883" class="LineNr">23883 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23884" class="LineNr">23884 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23885" class="LineNr">23885 </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="L23886" class="LineNr">23886 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23887" class="LineNr">23887 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23888" class="LineNr">23888 </span> <span class="subxComment"># never gets here</span> +<span id="L23889" class="LineNr">23889 </span> +<span id="L23890" class="LineNr">23890 </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="L23891" class="LineNr">23891 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23892" class="LineNr">23892 </span> 55/push-ebp +<span id="L23893" class="LineNr">23893 </span> 89/<- %ebp 4/r32/esp +<span id="L23894" class="LineNr">23894 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23895" class="LineNr">23895 </span> 50/push-eax +<span id="L23896" class="LineNr">23896 </span> 51/push-ecx +<span id="L23897" class="LineNr">23897 </span> 52/push-edx +<span id="L23898" class="LineNr">23898 </span> 53/push-ebx +<span id="L23899" class="LineNr">23899 </span> 56/push-esi +<span id="L23900" class="LineNr">23900 </span> 57/push-edi +<span id="L23901" class="LineNr">23901 </span> <span class="subxComment"># esi = stmt</span> +<span id="L23902" class="LineNr">23902 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L23903" class="LineNr">23903 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L23904" class="LineNr">23904 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L23905" class="LineNr">23905 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23906" class="LineNr">23906 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23907" class="LineNr">23907 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 +<span id="L23908" class="LineNr">23908 </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="L23909" class="LineNr">23909 </span> 89/<- %ecx 0/r32/eax +<span id="L23910" class="LineNr">23910 </span><span class="Constant">$check-mu-get-stmt:check-base</span>: +<span id="L23911" class="LineNr">23911 </span> <span class="subxH1Comment"># - check base type</span> +<span id="L23912" class="LineNr">23912 </span> <span class="subxComment"># if it's an 'addr', check that it's in a register</span> +<span id="L23913" class="LineNr">23913 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L23914" class="LineNr">23914 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23915" class="LineNr">23915 </span> 89/<- %ebx 0/r32/eax +<span id="L23916" class="LineNr">23916 </span> { +<span id="L23917" class="LineNr">23917 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23918" class="LineNr">23918 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L23919" class="LineNr">23919 </span><span class="Constant">$check-mu-get-stmt:base-is-compound</span>: +<span id="L23920" class="LineNr">23920 </span> <span class="subxComment"># if (type->left != addr) break</span> +<span id="L23921" class="LineNr">23921 </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="L23922" class="LineNr">23922 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L23923" class="LineNr">23923 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23924" class="LineNr">23924 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23925" class="LineNr">23925 </span><span class="Constant">$check-mu-get-stmt:base-is-addr</span>: +<span id="L23926" class="LineNr">23926 </span> <span class="subxComment"># now check for register</span> +<span id="L23927" class="LineNr">23927 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L23928" class="LineNr">23928 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-base-type-addr-but-not-register/disp32 +<span id="L23929" class="LineNr">23929 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-in-register</span>: +<span id="L23930" class="LineNr">23930 </span> <span class="subxComment"># type->left is now an addr; skip it</span> +<span id="L23931" class="LineNr">23931 </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="L23932" class="LineNr">23932 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23933" class="LineNr">23933 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-bad-base/disp32 +<span id="L23934" class="LineNr">23934 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-to-atom-in-register</span>: +<span id="L23935" class="LineNr">23935 </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="L23936" class="LineNr">23936 </span> 89/<- %ebx 0/r32/eax +<span id="L23937" class="LineNr">23937 </span> } +<span id="L23938" class="LineNr">23938 </span><span class="Constant">$check-mu-get-stmt:check-base-typeinfo</span>: +<span id="L23939" class="LineNr">23939 </span> <span class="subxComment"># ensure type is a container</span> +<span id="L23940" class="LineNr">23940 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23941" class="LineNr">23941 </span> { +<span id="L23942" class="LineNr">23942 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23943" class="LineNr">23943 </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="L23944" class="LineNr">23944 </span> 89/<- %ebx 0/r32/eax +<span id="L23945" class="LineNr">23945 </span> } +<span id="L23946" class="LineNr">23946 </span> <span class="subxComment"># var base-type-id/ebx: type-id = base-type->value</span> +<span id="L23947" class="LineNr">23947 </span> 8b/-> *(ebx+4) 3/r32/ebx <span class="subxComment"># Type-tree-value</span> +<span id="L23948" class="LineNr">23948 </span> (<a href='mu.subx.html#L20447'>container?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L23949" class="LineNr">23949 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23950" class="LineNr">23950 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-base/disp32 +<span id="L23951" class="LineNr">23951 </span> <span class="subxComment"># var base-typeinfo/edx: (addr typeinfo) = find-typeinfo(base-type-id)</span> +<span id="L23952" class="LineNr">23952 </span> <span class="subxS1Comment"># . var container/ecx: (handle typeinfo)</span> +<span id="L23953" class="LineNr">23953 </span> 68/push 0/imm32 +<span id="L23954" class="LineNr">23954 </span> 68/push 0/imm32 +<span id="L23955" class="LineNr">23955 </span> 89/<- %ecx 4/r32/esp +<span id="L23956" class="LineNr">23956 </span> <span class="subxS1Comment"># .</span> +<span id="L23957" class="LineNr">23957 </span> (<a href='mu.subx.html#L20530'>find-typeinfo</a> %ebx %ecx) +<span id="L23958" class="LineNr">23958 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L23959" class="LineNr">23959 </span> <span class="subxS1Comment"># . reclaim container</span> +<span id="L23960" class="LineNr">23960 </span> 81 0/subop/add %esp 8/imm32 +<span id="L23961" class="LineNr">23961 </span> <span class="subxS1Comment"># .</span> +<span id="L23962" class="LineNr">23962 </span> 89/<- %edx 0/r32/eax +<span id="L23963" class="LineNr">23963 </span> <span class="subxComment"># var offset/ecx: (addr stmt-var) = stmt->inouts->next</span> +<span id="L23964" class="LineNr">23964 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23965" class="LineNr">23965 </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="L23966" class="LineNr">23966 </span> 89/<- %ecx 0/r32/eax +<span id="L23967" class="LineNr">23967 </span> <span class="subxH1Comment"># - check for 1 inout</span> +<span id="L23968" class="LineNr">23968 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23969" class="LineNr">23969 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 +<span id="L23970" class="LineNr">23970 </span> <span class="subxComment"># var offset/ecx: (addr var) = lookup(offset->value)</span> +<span id="L23971" class="LineNr">23971 </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="L23972" class="LineNr">23972 </span> 89/<- %ecx 0/r32/eax +<span id="L23973" class="LineNr">23973 </span> <span class="subxH1Comment"># - check for valid field</span> +<span id="L23974" class="LineNr">23974 </span> 81 7/subop/compare *(ecx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> +<span id="L23975" class="LineNr">23975 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-field/disp32 +<span id="L23976" class="LineNr">23976 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L23977" class="LineNr">23977 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23978" class="LineNr">23978 </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="L23979" class="LineNr">23979 </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="L23980" class="LineNr">23980 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23981" class="LineNr">23981 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-inouts/disp32 +<span id="L23982" class="LineNr">23982 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L23983" class="LineNr">23983 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L23984" class="LineNr">23984 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L23985" class="LineNr">23985 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23986" class="LineNr">23986 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-outputs/disp32 +<span id="L23987" class="LineNr">23987 </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="L23988" class="LineNr">23988 </span> 89/<- %edi 0/r32/eax +<span id="L23989" class="LineNr">23989 </span><span class="Constant">$check-mu-get-stmt:check-output-type</span>: +<span id="L23990" class="LineNr">23990 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L23991" class="LineNr">23991 </span> <span class="subxComment"># must be in register</span> +<span id="L23992" class="LineNr">23992 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23993" class="LineNr">23993 </span> 3d/compare-eax-and 0/imm32 +<span id="L23994" class="LineNr">23994 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-not-in-register/disp32 +<span id="L23995" class="LineNr">23995 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L23996" class="LineNr">23996 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23997" class="LineNr">23997 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23998" class="LineNr">23998 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-output-type-not-address/disp32 +<span id="L23999" class="LineNr">23999 </span> <span class="subxComment"># type must start with (addr ...)</span> +<span id="L24000" class="LineNr">24000 </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="L24001" class="LineNr">24001 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># => eax</span> +<span id="L24002" class="LineNr">24002 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24003" class="LineNr">24003 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-type-not-address/disp32 +<span id="L24004" class="LineNr">24004 </span><span class="Constant">$check-mu-get-stmt:check-output-type-match</span>: +<span id="L24005" class="LineNr">24005 </span> <span class="subxComment"># payload of addr type must match 'type' definition</span> +<span id="L24006" class="LineNr">24006 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24007" class="LineNr">24007 </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="L24008" class="LineNr">24008 </span> <span class="subxComment"># if (payload->right == null) payload = payload->left</span> +<span id="L24009" class="LineNr">24009 </span> 81 7/subop/compare *(eax+0xc) 0/imm32/null <span class="subxComment"># Type-tree-right</span> +<span id="L24010" class="LineNr">24010 </span> { +<span id="L24011" class="LineNr">24011 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24012" class="LineNr">24012 </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="L24013" class="LineNr">24013 </span> } +<span id="L24014" class="LineNr">24014 </span> 89/<- %edi 0/r32/eax +<span id="L24015" class="LineNr">24015 </span> <span class="subxS1Comment"># . var output-name/ecx: (addr array byte)</span> +<span id="L24016" class="LineNr">24016 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24017" class="LineNr">24017 </span> 89/<- %ecx 0/r32/eax +<span id="L24018" class="LineNr">24018 </span> <span class="subxS1Comment"># . var base-typeinfo-entry/eax: (addr handle typeinfo-entry)</span> +<span id="L24019" class="LineNr">24019 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L24020" class="LineNr">24020 </span> (<a href='131table.subx.html#L26'>get</a> %eax %ecx 0x10) <span class="subxComment"># => eax</span> +<span id="L24021" class="LineNr">24021 </span> <span class="subxS1Comment"># .</span> +<span id="L24022" class="LineNr">24022 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L24023" class="LineNr">24023 </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="L24024" class="LineNr">24024 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24025" class="LineNr">24025 </span> <span class="subxS1Comment"># .</span> +<span id="L24026" class="LineNr">24026 </span> (<a href='mu.subx.html#L27097'>type-equal?</a> %edi %eax) <span class="subxComment"># => eax</span> +<span id="L24027" class="LineNr">24027 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24028" class="LineNr">24028 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-output-type/disp32 +<span id="L24029" class="LineNr">24029 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L24030" class="LineNr">24030 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24031" class="LineNr">24031 </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="L24032" class="LineNr">24032 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24033" class="LineNr">24033 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-outputs/disp32 +<span id="L24034" class="LineNr">24034 </span><span class="Constant">$check-mu-get-stmt:end</span>: +<span id="L24035" class="LineNr">24035 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L24036" class="LineNr">24036 </span> 5f/pop-to-edi +<span id="L24037" class="LineNr">24037 </span> 5e/pop-to-esi +<span id="L24038" class="LineNr">24038 </span> 5b/pop-to-ebx +<span id="L24039" class="LineNr">24039 </span> 5a/pop-to-edx +<span id="L24040" class="LineNr">24040 </span> 59/pop-to-ecx +<span id="L24041" class="LineNr">24041 </span> 58/pop-to-eax +<span id="L24042" class="LineNr">24042 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24043" class="LineNr">24043 </span> 89/<- %esp 5/r32/ebp +<span id="L24044" class="LineNr">24044 </span> 5d/pop-to-ebp +<span id="L24045" class="LineNr">24045 </span> c3/return +<span id="L24046" class="LineNr">24046 </span> +<span id="L24047" class="LineNr">24047 </span><span class="Constant">$check-mu-get-stmt:error-too-few-inouts</span>: +<span id="L24048" class="LineNr">24048 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24049" class="LineNr">24049 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24050" class="LineNr">24050 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24051" class="LineNr">24051 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24052" class="LineNr">24052 </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="L24053" class="LineNr">24053 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24054" class="LineNr">24054 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24055" class="LineNr">24055 </span> <span class="subxComment"># never gets here</span> +<span id="L24056" class="LineNr">24056 </span> +<span id="L24057" class="LineNr">24057 </span><span class="Constant">$check-mu-get-stmt:error-too-many-inouts</span>: +<span id="L24058" class="LineNr">24058 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24059" class="LineNr">24059 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24060" class="LineNr">24060 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24061" class="LineNr">24061 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24062" class="LineNr">24062 </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="L24063" class="LineNr">24063 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24064" class="LineNr">24064 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24065" class="LineNr">24065 </span> <span class="subxComment"># never gets here</span> +<span id="L24066" class="LineNr">24066 </span> +<span id="L24067" class="LineNr">24067 </span><span class="Constant">$check-mu-get-stmt:error-too-few-outputs</span>: +<span id="L24068" class="LineNr">24068 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24069" class="LineNr">24069 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24070" class="LineNr">24070 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24071" class="LineNr">24071 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24072" class="LineNr">24072 </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="L24073" class="LineNr">24073 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24074" class="LineNr">24074 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24075" class="LineNr">24075 </span> <span class="subxComment"># never gets here</span> +<span id="L24076" class="LineNr">24076 </span> +<span id="L24077" class="LineNr">24077 </span><span class="Constant">$check-mu-get-stmt:error-too-many-outputs</span>: +<span id="L24078" class="LineNr">24078 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24079" class="LineNr">24079 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24080" class="LineNr">24080 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24081" class="LineNr">24081 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24082" class="LineNr">24082 </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="L24083" class="LineNr">24083 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24084" class="LineNr">24084 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24085" class="LineNr">24085 </span> <span class="subxComment"># never gets here</span> +<span id="L24086" class="LineNr">24086 </span> +<span id="L24087" class="LineNr">24087 </span><span class="Constant">$check-mu-get-stmt:error-bad-base</span>: +<span id="L24088" class="LineNr">24088 </span> <span class="subxComment"># error("fn " fn ": stmt get: var '" base->name "' must have a 'type' definition\n")</span> +<span id="L24089" class="LineNr">24089 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24090" class="LineNr">24090 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24091" class="LineNr">24091 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24092" class="LineNr">24092 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24093" class="LineNr">24093 </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="L24094" class="LineNr">24094 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24095" class="LineNr">24095 </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="L24096" class="LineNr">24096 </span><span class="Constant">$check-mu-index-stmt:check-single-inout</span>: -<span id="L24097" class="LineNr">24097 </span> 3d/compare-eax-and 0/imm32 -<span id="L24098" class="LineNr">24098 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 -<span id="L24099" class="LineNr">24099 </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="L24100" class="LineNr">24100 </span> 89/<- %ecx 0/r32/eax -<span id="L24101" class="LineNr">24101 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> -<span id="L24102" class="LineNr">24102 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> -<span id="L24103" class="LineNr">24103 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24104" class="LineNr">24104 </span> 89/<- %edx 0/r32/eax -<span id="L24105" class="LineNr">24105 </span> <span class="subxComment"># if index type is an atom, it must be a literal or int</span> -<span id="L24106" class="LineNr">24106 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24107" class="LineNr">24107 </span> { -<span id="L24108" class="LineNr">24108 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24109" class="LineNr">24109 </span><span class="Constant">$check-mu-index-stmt:index-type-is-atom</span>: -<span id="L24110" class="LineNr">24110 </span> (<a href='mu.subx.html#L36272'>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-!= $check-mu-index-stmt:index-type-done/disp8 -<span id="L24113" class="LineNr">24113 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L24114" class="LineNr">24114 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24115" class="LineNr">24115 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 -<span id="L24116" class="LineNr">24116 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %edx 7) <span class="subxComment"># offset => eax</span> -<span id="L24117" class="LineNr">24117 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24118" class="LineNr">24118 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-index-offset-atom-type/disp32 -<span id="L24119" class="LineNr">24119 </span> e9/jump $check-mu-index-stmt:error-invalid-index-type/disp32 -<span id="L24120" class="LineNr">24120 </span> } -<span id="L24121" class="LineNr">24121 </span> <span class="subxComment"># if index type is a non-atom: it must be an offset</span> -<span id="L24122" class="LineNr">24122 </span> { -<span id="L24123" class="LineNr">24123 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24124" class="LineNr">24124 </span><span class="Constant">$check-mu-index-stmt:index-type-is-non-atom</span>: -<span id="L24125" class="LineNr">24125 </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="L24126" class="LineNr">24126 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> -<span id="L24127" class="LineNr">24127 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24128" class="LineNr">24128 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-invalid-index-type/disp32 -<span id="L24129" class="LineNr">24129 </span> } -<span id="L24130" class="LineNr">24130 </span><span class="Constant">$check-mu-index-stmt:index-type-done</span>: -<span id="L24131" class="LineNr">24131 </span> <span class="subxComment"># check index is either a literal or in a register</span> -<span id="L24132" class="LineNr">24132 </span> { -<span id="L24133" class="LineNr">24133 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> -<span id="L24134" class="LineNr">24134 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24135" class="LineNr">24135 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24136" class="LineNr">24136 </span><span class="Constant">$check-mu-index-stmt:check-index-in-register</span>: -<span id="L24137" class="LineNr">24137 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L24138" class="LineNr">24138 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-index-on-stack/disp32 -<span id="L24139" class="LineNr">24139 </span> } -<span id="L24140" class="LineNr">24140 </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="L24141" class="LineNr">24141 </span> { -<span id="L24142" class="LineNr">24142 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L24143" class="LineNr">24143 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24144" class="LineNr">24144 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24145" class="LineNr">24145 </span><span class="Constant">$check-mu-index-stmt:check-index-can-be-int</span>: -<span id="L24146" class="LineNr">24146 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<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> (<a href='mu.subx.html#L28996'>array-element-size</a> %eax) <span class="subxComment"># => eax</span> -<span id="L24149" class="LineNr">24149 </span> 3d/compare-eax-and 1/imm32 -<span id="L24150" class="LineNr">24150 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24151" class="LineNr">24151 </span> 3d/compare-eax-and 2/imm32 -<span id="L24152" class="LineNr">24152 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24153" class="LineNr">24153 </span> 3d/compare-eax-and 4/imm32 -<span id="L24154" class="LineNr">24154 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24155" class="LineNr">24155 </span> 3d/compare-eax-and 8/imm32 -<span id="L24156" class="LineNr">24156 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24157" class="LineNr">24157 </span> e9/jump $check-mu-index-stmt:error-index-needs-offset/disp32 -<span id="L24158" class="LineNr">24158 </span> } -<span id="L24159" class="LineNr">24159 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L24160" class="LineNr">24160 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24161" class="LineNr">24161 </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="L24162" class="LineNr">24162 </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="L24163" class="LineNr">24163 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24164" class="LineNr">24164 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-inouts/disp32 -<span id="L24165" class="LineNr">24165 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L24166" class="LineNr">24166 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L24167" class="LineNr">24167 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24168" class="LineNr">24168 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24169" class="LineNr">24169 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-outputs/disp32 -<span id="L24170" class="LineNr">24170 </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="L24171" class="LineNr">24171 </span> 89/<- %edi 0/r32/eax -<span id="L24172" class="LineNr">24172 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L24173" class="LineNr">24173 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L24174" class="LineNr">24174 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24175" class="LineNr">24175 </span> 89/<- %edx 0/r32/eax -<span id="L24176" class="LineNr">24176 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24177" class="LineNr">24177 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-output-type-not-address/disp32 -<span id="L24178" class="LineNr">24178 </span> <span class="subxComment"># type must start with (addr ...)</span> -<span id="L24179" class="LineNr">24179 </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="L24180" class="LineNr">24180 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24181" class="LineNr">24181 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24182" class="LineNr">24182 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-output-type-not-address/disp32 -<span id="L24183" class="LineNr">24183 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> -<span id="L24184" class="LineNr">24184 </span> (<a href='mu.subx.html#L26863'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L24185" class="LineNr">24185 </span> 89/<- %ebx 0/r32/eax -<span id="L24186" class="LineNr">24186 </span> (<a href='mu.subx.html#L26863'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L24187" class="LineNr">24187 </span> (<a href='mu.subx.html#L26922'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L24188" class="LineNr">24188 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24189" class="LineNr">24189 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-bad-output-type/disp32 -<span id="L24190" class="LineNr">24190 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L24191" class="LineNr">24191 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24192" class="LineNr">24192 </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="L24193" class="LineNr">24193 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24194" class="LineNr">24194 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-outputs/disp32 -<span id="L24195" class="LineNr">24195 </span><span class="Constant">$check-mu-index-stmt:end</span>: -<span id="L24196" class="LineNr">24196 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24197" class="LineNr">24197 </span> 5f/pop-to-edi -<span id="L24198" class="LineNr">24198 </span> 5e/pop-to-esi -<span id="L24199" class="LineNr">24199 </span> 5b/pop-to-ebx -<span id="L24200" class="LineNr">24200 </span> 5a/pop-to-edx -<span id="L24201" class="LineNr">24201 </span> 59/pop-to-ecx -<span id="L24202" class="LineNr">24202 </span> 58/pop-to-eax -<span id="L24203" class="LineNr">24203 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24204" class="LineNr">24204 </span> 89/<- %esp 5/r32/ebp -<span id="L24205" class="LineNr">24205 </span> 5d/pop-to-ebp -<span id="L24206" class="LineNr">24206 </span> c3/return -<span id="L24207" class="LineNr">24207 </span> -<span id="L24208" class="LineNr">24208 </span><span class="Constant">$check-mu-index-stmt:error-base-non-array-type</span>: -<span id="L24209" class="LineNr">24209 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24210" class="LineNr">24210 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24211" class="LineNr">24211 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24212" class="LineNr">24212 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24213" class="LineNr">24213 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) -<span id="L24214" class="LineNr">24214 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' is not an array\n"</span>) -<span id="L24217" class="LineNr">24217 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24218" class="LineNr">24218 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24219" class="LineNr">24219 </span> <span class="subxComment"># never gets here</span> -<span id="L24220" class="LineNr">24220 </span> -<span id="L24221" class="LineNr">24221 </span><span class="Constant">$check-mu-index-stmt:error-base-array-atom-type</span>: -<span id="L24222" class="LineNr">24222 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24223" class="LineNr">24223 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24224" class="LineNr">24224 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24225" class="LineNr">24225 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24226" class="LineNr">24226 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: array '"</span>) -<span id="L24227" class="LineNr">24227 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' must specify the type of its elements\n"</span>) -<span id="L24230" class="LineNr">24230 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24231" class="LineNr">24231 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24232" class="LineNr">24232 </span> <span class="subxComment"># never gets here</span> -<span id="L24233" class="LineNr">24233 </span> -<span id="L24234" class="LineNr">24234 </span><span class="Constant">$check-mu-index-stmt:error-base-address-array-type-on-stack</span>: -<span id="L24235" class="LineNr">24235 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24236" class="LineNr">24236 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24237" class="LineNr">24237 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24238" class="LineNr">24238 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24239" class="LineNr">24239 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) -<span id="L24240" class="LineNr">24240 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' is an addr to an array, and so must live in a register\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-base-array-type-in-register</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: var '"</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">"' is an array, and so must live on the stack\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-too-few-inouts</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: too few inouts (2 required)\n"</span>) -<span id="L24266" class="LineNr">24266 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24267" class="LineNr">24267 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24268" class="LineNr">24268 </span> <span class="subxComment"># never gets here</span> -<span id="L24269" class="LineNr">24269 </span> -<span id="L24270" class="LineNr">24270 </span><span class="Constant">$check-mu-index-stmt:error-invalid-index-type</span>: -<span id="L24271" class="LineNr">24271 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24272" class="LineNr">24272 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24273" class="LineNr">24273 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24274" class="LineNr">24274 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24275" class="LineNr">24275 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) -<span id="L24276" class="LineNr">24276 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' must be an int or offset\n"</span>) -<span id="L24279" class="LineNr">24279 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24280" class="LineNr">24280 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24281" class="LineNr">24281 </span> <span class="subxComment"># never gets here</span> -<span id="L24282" class="LineNr">24282 </span> -<span id="L24283" class="LineNr">24283 </span><span class="Constant">$check-mu-index-stmt:error-index-offset-atom-type</span>: -<span id="L24284" class="LineNr">24284 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24285" class="LineNr">24285 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24286" class="LineNr">24286 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24287" class="LineNr">24287 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24288" class="LineNr">24288 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: offset '"</span>) -<span id="L24289" class="LineNr">24289 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' must specify the type of array elements\n"</span>) -<span id="L24292" class="LineNr">24292 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24293" class="LineNr">24293 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24294" class="LineNr">24294 </span> <span class="subxComment"># never gets here</span> -<span id="L24295" class="LineNr">24295 </span> -<span id="L24296" class="LineNr">24296 </span><span class="Constant">$check-mu-index-stmt:error-index-on-stack</span>: -<span id="L24297" class="LineNr">24297 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24298" class="LineNr">24298 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24299" class="LineNr">24299 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24300" class="LineNr">24300 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24301" class="LineNr">24301 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) -<span id="L24302" class="LineNr">24302 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' must be in a register\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-index-needs-offset</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: cannot take an int for array '"</span>) -<span id="L24315" class="LineNr">24315 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24316" class="LineNr">24316 </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="L24317" class="LineNr">24317 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24318" class="LineNr">24318 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24319" class="LineNr">24319 </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="L24320" class="LineNr">24320 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24321" class="LineNr">24321 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24322" class="LineNr">24322 </span> <span class="subxComment"># never gets here</span> -<span id="L24323" class="LineNr">24323 </span> -<span id="L24324" class="LineNr">24324 </span><span class="Constant">$check-mu-index-stmt:error-too-many-inouts</span>: -<span id="L24325" class="LineNr">24325 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24326" class="LineNr">24326 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24327" class="LineNr">24327 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24328" class="LineNr">24328 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24329" class="LineNr">24329 </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="L24330" class="LineNr">24330 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24331" class="LineNr">24331 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24332" class="LineNr">24332 </span> <span class="subxComment"># never gets here</span> -<span id="L24333" class="LineNr">24333 </span> -<span id="L24334" class="LineNr">24334 </span><span class="Constant">$check-mu-index-stmt:error-too-few-outputs</span>: -<span id="L24335" class="LineNr">24335 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24336" class="LineNr">24336 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24337" class="LineNr">24337 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-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">": stmt index: must have an output\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-too-many-outputs</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: too many outputs (1 required)\n"</span>) -<span id="L24350" class="LineNr">24350 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24351" class="LineNr">24351 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24352" class="LineNr">24352 </span> <span class="subxComment"># never gets here</span> -<span id="L24353" class="LineNr">24353 </span> -<span id="L24354" class="LineNr">24354 </span><span class="Constant">$check-mu-index-stmt:error-output-not-in-register</span>: -<span id="L24355" class="LineNr">24355 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24356" class="LineNr">24356 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24357" class="LineNr">24357 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24358" class="LineNr">24358 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24359" class="LineNr">24359 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) -<span id="L24360" class="LineNr">24360 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24361" class="LineNr">24361 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24362" class="LineNr">24362 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not in a register\n"</span>) -<span id="L24363" class="LineNr">24363 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24364" class="LineNr">24364 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24365" class="LineNr">24365 </span> <span class="subxComment"># never gets here</span> -<span id="L24366" class="LineNr">24366 </span> -<span id="L24367" class="LineNr">24367 </span><span class="Constant">$check-mu-index-stmt:error-output-type-not-address</span>: -<span id="L24368" class="LineNr">24368 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24369" class="LineNr">24369 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24370" class="LineNr">24370 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24371" class="LineNr">24371 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24372" class="LineNr">24372 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) -<span id="L24373" class="LineNr">24373 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24374" class="LineNr">24374 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24375" class="LineNr">24375 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) -<span id="L24376" class="LineNr">24376 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24377" class="LineNr">24377 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24378" class="LineNr">24378 </span> <span class="subxComment"># never gets here</span> -<span id="L24379" class="LineNr">24379 </span> -<span id="L24380" class="LineNr">24380 </span><span class="Constant">$check-mu-index-stmt:error-bad-output-type</span>: -<span id="L24381" class="LineNr">24381 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24382" class="LineNr">24382 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24383" class="LineNr">24383 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24384" class="LineNr">24384 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24385" class="LineNr">24385 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) -<span id="L24386" class="LineNr">24386 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24095" class="LineNr">24095 </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="L24096" class="LineNr">24096 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24097" class="LineNr">24097 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24098" class="LineNr">24098 </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="L24099" class="LineNr">24099 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24100" class="LineNr">24100 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24101" class="LineNr">24101 </span> <span class="subxComment"># never gets here</span> +<span id="L24102" class="LineNr">24102 </span> +<span id="L24103" class="LineNr">24103 </span><span class="Constant">$check-mu-get-stmt:error-base-type-addr-but-not-register</span>: +<span id="L24104" class="LineNr">24104 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24105" class="LineNr">24105 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24106" class="LineNr">24106 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24107" class="LineNr">24107 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24108" class="LineNr">24108 </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="L24109" class="LineNr">24109 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24110" class="LineNr">24110 </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="L24111" class="LineNr">24111 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24112" class="LineNr">24112 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24113" class="LineNr">24113 </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="L24114" class="LineNr">24114 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24115" class="LineNr">24115 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24116" class="LineNr">24116 </span> <span class="subxComment"># never gets here</span> +<span id="L24117" class="LineNr">24117 </span> +<span id="L24118" class="LineNr">24118 </span><span class="Constant">$check-mu-get-stmt:error-bad-field</span>: +<span id="L24119" class="LineNr">24119 </span> <span class="subxComment"># error("fn " fn ": stmt get: type " type " has no member called '" curr->name "'\n")</span> +<span id="L24120" class="LineNr">24120 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24121" class="LineNr">24121 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24122" class="LineNr">24122 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24123" class="LineNr">24123 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24124" class="LineNr">24124 </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="L24125" class="LineNr">24125 </span> <span class="subxS1Comment"># . write(Type-id->data[tmp])</span> +<span id="L24126" class="LineNr">24126 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 +<span id="L24127" class="LineNr">24127 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi +<span id="L24128" class="LineNr">24128 </span> { +<span id="L24129" class="LineNr">24129 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L24130" class="LineNr">24130 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24131" class="LineNr">24131 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) +<span id="L24132" class="LineNr">24132 </span> } +<span id="L24133" class="LineNr">24133 </span> <span class="subxS1Comment"># .</span> +<span id="L24134" class="LineNr">24134 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has no member called '"</span>) +<span id="L24135" class="LineNr">24135 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24136" class="LineNr">24136 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24137" class="LineNr">24137 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L24138" class="LineNr">24138 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24139" class="LineNr">24139 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24140" class="LineNr">24140 </span> <span class="subxComment"># never gets here</span> +<span id="L24141" class="LineNr">24141 </span> +<span id="L24142" class="LineNr">24142 </span><span class="Constant">$check-mu-get-stmt:error-output-not-in-register</span>: +<span id="L24143" class="LineNr">24143 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24144" class="LineNr">24144 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24145" class="LineNr">24145 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24146" class="LineNr">24146 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24147" class="LineNr">24147 </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="L24148" class="LineNr">24148 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24149" class="LineNr">24149 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24150" class="LineNr">24150 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not in a register\n"</span>) +<span id="L24151" class="LineNr">24151 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24152" class="LineNr">24152 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24153" class="LineNr">24153 </span> <span class="subxComment"># never gets here</span> +<span id="L24154" class="LineNr">24154 </span> +<span id="L24155" class="LineNr">24155 </span><span class="Constant">$check-mu-get-stmt:error-output-type-not-address</span>: +<span id="L24156" class="LineNr">24156 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24157" class="LineNr">24157 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24158" class="LineNr">24158 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24159" class="LineNr">24159 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24160" class="LineNr">24160 </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="L24161" class="LineNr">24161 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24162" class="LineNr">24162 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24163" class="LineNr">24163 </span> <span class="subxComment"># never gets here</span> +<span id="L24164" class="LineNr">24164 </span> +<span id="L24165" class="LineNr">24165 </span><span class="Constant">$check-mu-get-stmt:error-bad-output-type</span>: +<span id="L24166" class="LineNr">24166 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24167" class="LineNr">24167 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24168" class="LineNr">24168 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24169" class="LineNr">24169 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24170" class="LineNr">24170 </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="L24171" class="LineNr">24171 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %ecx) +<span id="L24172" class="LineNr">24172 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' of type '"</span>) +<span id="L24173" class="LineNr">24173 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 +<span id="L24174" class="LineNr">24174 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi +<span id="L24175" class="LineNr">24175 </span> { +<span id="L24176" class="LineNr">24176 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L24177" class="LineNr">24177 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24178" class="LineNr">24178 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) +<span id="L24179" class="LineNr">24179 </span> } +<span id="L24180" class="LineNr">24180 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L24181" class="LineNr">24181 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24182" class="LineNr">24182 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24183" class="LineNr">24183 </span> <span class="subxComment"># never gets here</span> +<span id="L24184" class="LineNr">24184 </span> +<span id="L24185" class="LineNr">24185 </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="L24186" class="LineNr">24186 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24187" class="LineNr">24187 </span> 55/push-ebp +<span id="L24188" class="LineNr">24188 </span> 89/<- %ebp 4/r32/esp +<span id="L24189" class="LineNr">24189 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24190" class="LineNr">24190 </span> 50/push-eax +<span id="L24191" class="LineNr">24191 </span> 51/push-ecx +<span id="L24192" class="LineNr">24192 </span> 52/push-edx +<span id="L24193" class="LineNr">24193 </span> 53/push-ebx +<span id="L24194" class="LineNr">24194 </span> 56/push-esi +<span id="L24195" class="LineNr">24195 </span> 57/push-edi +<span id="L24196" class="LineNr">24196 </span> <span class="subxComment"># esi = stmt</span> +<span id="L24197" class="LineNr">24197 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L24198" class="LineNr">24198 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L24199" class="LineNr">24199 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L24200" class="LineNr">24200 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24201" class="LineNr">24201 </span><span class="Constant">$check-mu-index-stmt:check-no-inouts</span>: +<span id="L24202" class="LineNr">24202 </span> 3d/compare-eax-and 0/imm32 +<span id="L24203" class="LineNr">24203 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 +<span id="L24204" class="LineNr">24204 </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="L24205" class="LineNr">24205 </span> 89/<- %ecx 0/r32/eax +<span id="L24206" class="LineNr">24206 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> +<span id="L24207" class="LineNr">24207 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L24208" class="LineNr">24208 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24209" class="LineNr">24209 </span> 89/<- %ebx 0/r32/eax +<span id="L24210" class="LineNr">24210 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> +<span id="L24211" class="LineNr">24211 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24212" class="LineNr">24212 </span> { +<span id="L24213" class="LineNr">24213 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24214" class="LineNr">24214 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> +<span id="L24215" class="LineNr">24215 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24216" class="LineNr">24216 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-atom-type/disp32 +<span id="L24217" class="LineNr">24217 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 +<span id="L24218" class="LineNr">24218 </span> } +<span id="L24219" class="LineNr">24219 </span><span class="Constant">$check-mu-index-stmt:base-is-compound</span>: +<span id="L24220" class="LineNr">24220 </span> <span class="subxComment"># if type->left not addr or array, abort</span> +<span id="L24221" class="LineNr">24221 </span> { +<span id="L24222" class="LineNr">24222 </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="L24223" class="LineNr">24223 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24224" class="LineNr">24224 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24225" class="LineNr">24225 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24226" class="LineNr">24226 </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="L24227" class="LineNr">24227 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24228" class="LineNr">24228 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24229" class="LineNr">24229 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24230" class="LineNr">24230 </span> e9/jump $check-mu-index-stmt:error-base-non-array-type/disp32 +<span id="L24231" class="LineNr">24231 </span> } +<span id="L24232" class="LineNr">24232 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> +<span id="L24233" class="LineNr">24233 </span> { +<span id="L24234" class="LineNr">24234 </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="L24235" class="LineNr">24235 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24236" class="LineNr">24236 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24237" class="LineNr">24237 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24238" class="LineNr">24238 </span><span class="Constant">$check-mu-index-stmt:base-is-addr</span>: +<span id="L24239" class="LineNr">24239 </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="L24240" class="LineNr">24240 </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="L24241" class="LineNr">24241 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24242" class="LineNr">24242 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24243" class="LineNr">24243 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 +<span id="L24244" class="LineNr">24244 </span><span class="Constant">$check-mu-index-stmt:check-base-addr-is-register</span>: +<span id="L24245" class="LineNr">24245 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L24246" class="LineNr">24246 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-address-array-type-on-stack/disp32 +<span id="L24247" class="LineNr">24247 </span> } +<span id="L24248" class="LineNr">24248 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> +<span id="L24249" class="LineNr">24249 </span> { +<span id="L24250" class="LineNr">24250 </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="L24251" class="LineNr">24251 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24252" class="LineNr">24252 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24253" class="LineNr">24253 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24254" class="LineNr">24254 </span><span class="Constant">$check-mu-index-stmt:base-is-array</span>: +<span id="L24255" class="LineNr">24255 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L24256" class="LineNr">24256 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-type-in-register/disp32 +<span id="L24257" class="LineNr">24257 </span> } +<span id="L24258" class="LineNr">24258 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> +<span id="L24259" class="LineNr">24259 </span> { +<span id="L24260" class="LineNr">24260 </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="L24261" class="LineNr">24261 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24262" class="LineNr">24262 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24263" class="LineNr">24263 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24264" class="LineNr">24264 </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="L24265" class="LineNr">24265 </span> 89/<- %ebx 0/r32/eax +<span id="L24266" class="LineNr">24266 </span> } +<span id="L24267" class="LineNr">24267 </span> <span class="subxH1Comment"># - check for 1 inout</span> +<span id="L24268" class="LineNr">24268 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L24269" class="LineNr">24269 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24270" class="LineNr">24270 </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="L24271" class="LineNr">24271 </span><span class="Constant">$check-mu-index-stmt:check-single-inout</span>: +<span id="L24272" class="LineNr">24272 </span> 3d/compare-eax-and 0/imm32 +<span id="L24273" class="LineNr">24273 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 +<span id="L24274" class="LineNr">24274 </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="L24275" class="LineNr">24275 </span> 89/<- %ecx 0/r32/eax +<span id="L24276" class="LineNr">24276 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> +<span id="L24277" class="LineNr">24277 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> +<span id="L24278" class="LineNr">24278 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24279" class="LineNr">24279 </span> 89/<- %edx 0/r32/eax +<span id="L24280" class="LineNr">24280 </span> <span class="subxComment"># if index type is an atom, it must be a literal or int</span> +<span id="L24281" class="LineNr">24281 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24282" class="LineNr">24282 </span> { +<span id="L24283" class="LineNr">24283 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24284" class="LineNr">24284 </span><span class="Constant">$check-mu-index-stmt:index-type-is-atom</span>: +<span id="L24285" class="LineNr">24285 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> +<span id="L24286" class="LineNr">24286 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24287" class="LineNr">24287 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 +<span id="L24288" class="LineNr">24288 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L24289" class="LineNr">24289 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24290" class="LineNr">24290 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 +<span id="L24291" class="LineNr">24291 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %edx 7) <span class="subxComment"># offset => eax</span> +<span id="L24292" class="LineNr">24292 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24293" class="LineNr">24293 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-index-offset-atom-type/disp32 +<span id="L24294" class="LineNr">24294 </span> e9/jump $check-mu-index-stmt:error-invalid-index-type/disp32 +<span id="L24295" class="LineNr">24295 </span> } +<span id="L24296" class="LineNr">24296 </span> <span class="subxComment"># if index type is a non-atom: it must be an offset</span> +<span id="L24297" class="LineNr">24297 </span> { +<span id="L24298" class="LineNr">24298 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24299" class="LineNr">24299 </span><span class="Constant">$check-mu-index-stmt:index-type-is-non-atom</span>: +<span id="L24300" class="LineNr">24300 </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="L24301" class="LineNr">24301 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> +<span id="L24302" class="LineNr">24302 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24303" class="LineNr">24303 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-invalid-index-type/disp32 +<span id="L24304" class="LineNr">24304 </span> } +<span id="L24305" class="LineNr">24305 </span><span class="Constant">$check-mu-index-stmt:index-type-done</span>: +<span id="L24306" class="LineNr">24306 </span> <span class="subxComment"># check index is either a literal or in a register</span> +<span id="L24307" class="LineNr">24307 </span> { +<span id="L24308" class="LineNr">24308 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> +<span id="L24309" class="LineNr">24309 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24310" class="LineNr">24310 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24311" class="LineNr">24311 </span><span class="Constant">$check-mu-index-stmt:check-index-in-register</span>: +<span id="L24312" class="LineNr">24312 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L24313" class="LineNr">24313 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-index-on-stack/disp32 +<span id="L24314" class="LineNr">24314 </span> } +<span id="L24315" class="LineNr">24315 </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="L24316" class="LineNr">24316 </span> { +<span id="L24317" class="LineNr">24317 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L24318" class="LineNr">24318 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24319" class="LineNr">24319 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24320" class="LineNr">24320 </span><span class="Constant">$check-mu-index-stmt:check-index-can-be-int</span>: +<span id="L24321" class="LineNr">24321 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24322" class="LineNr">24322 </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="L24323" class="LineNr">24323 </span> (<a href='mu.subx.html#L29171'>array-element-size</a> %eax) <span class="subxComment"># => eax</span> +<span id="L24324" class="LineNr">24324 </span> 3d/compare-eax-and 1/imm32 +<span id="L24325" class="LineNr">24325 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24326" class="LineNr">24326 </span> 3d/compare-eax-and 2/imm32 +<span id="L24327" class="LineNr">24327 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24328" class="LineNr">24328 </span> 3d/compare-eax-and 4/imm32 +<span id="L24329" class="LineNr">24329 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24330" class="LineNr">24330 </span> 3d/compare-eax-and 8/imm32 +<span id="L24331" class="LineNr">24331 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24332" class="LineNr">24332 </span> e9/jump $check-mu-index-stmt:error-index-needs-offset/disp32 +<span id="L24333" class="LineNr">24333 </span> } +<span id="L24334" class="LineNr">24334 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L24335" class="LineNr">24335 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24336" class="LineNr">24336 </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="L24337" class="LineNr">24337 </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="L24338" class="LineNr">24338 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24339" class="LineNr">24339 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-inouts/disp32 +<span id="L24340" class="LineNr">24340 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L24341" class="LineNr">24341 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L24342" class="LineNr">24342 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24343" class="LineNr">24343 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24344" class="LineNr">24344 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-outputs/disp32 +<span id="L24345" class="LineNr">24345 </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="L24346" class="LineNr">24346 </span> 89/<- %edi 0/r32/eax +<span id="L24347" class="LineNr">24347 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L24348" class="LineNr">24348 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L24349" class="LineNr">24349 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24350" class="LineNr">24350 </span> 89/<- %edx 0/r32/eax +<span id="L24351" class="LineNr">24351 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24352" class="LineNr">24352 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-output-type-not-address/disp32 +<span id="L24353" class="LineNr">24353 </span> <span class="subxComment"># type must start with (addr ...)</span> +<span id="L24354" class="LineNr">24354 </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="L24355" class="LineNr">24355 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24356" class="LineNr">24356 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24357" class="LineNr">24357 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-output-type-not-address/disp32 +<span id="L24358" class="LineNr">24358 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> +<span id="L24359" class="LineNr">24359 </span> (<a href='mu.subx.html#L27038'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L24360" class="LineNr">24360 </span> 89/<- %ebx 0/r32/eax +<span id="L24361" class="LineNr">24361 </span> (<a href='mu.subx.html#L27038'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L24362" class="LineNr">24362 </span> (<a href='mu.subx.html#L27097'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L24363" class="LineNr">24363 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24364" class="LineNr">24364 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-bad-output-type/disp32 +<span id="L24365" class="LineNr">24365 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L24366" class="LineNr">24366 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24367" class="LineNr">24367 </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="L24368" class="LineNr">24368 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24369" class="LineNr">24369 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-outputs/disp32 +<span id="L24370" class="LineNr">24370 </span><span class="Constant">$check-mu-index-stmt:end</span>: +<span id="L24371" class="LineNr">24371 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L24372" class="LineNr">24372 </span> 5f/pop-to-edi +<span id="L24373" class="LineNr">24373 </span> 5e/pop-to-esi +<span id="L24374" class="LineNr">24374 </span> 5b/pop-to-ebx +<span id="L24375" class="LineNr">24375 </span> 5a/pop-to-edx +<span id="L24376" class="LineNr">24376 </span> 59/pop-to-ecx +<span id="L24377" class="LineNr">24377 </span> 58/pop-to-eax +<span id="L24378" class="LineNr">24378 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24379" class="LineNr">24379 </span> 89/<- %esp 5/r32/ebp +<span id="L24380" class="LineNr">24380 </span> 5d/pop-to-ebp +<span id="L24381" class="LineNr">24381 </span> c3/return +<span id="L24382" class="LineNr">24382 </span> +<span id="L24383" class="LineNr">24383 </span><span class="Constant">$check-mu-index-stmt:error-base-non-array-type</span>: +<span id="L24384" class="LineNr">24384 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24385" class="LineNr">24385 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24386" class="LineNr">24386 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> <span id="L24387" class="LineNr">24387 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24388" class="LineNr">24388 </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="L24389" class="LineNr">24389 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24390" class="LineNr">24390 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24391" class="LineNr">24391 </span> <span class="subxComment"># never gets here</span> -<span id="L24392" class="LineNr">24392 </span> -<span id="L24393" class="LineNr">24393 </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="L24394" class="LineNr">24394 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24395" class="LineNr">24395 </span> 55/push-ebp -<span id="L24396" class="LineNr">24396 </span> 89/<- %ebp 4/r32/esp -<span id="L24397" class="LineNr">24397 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24398" class="LineNr">24398 </span> 50/push-eax -<span id="L24399" class="LineNr">24399 </span> 51/push-ecx -<span id="L24400" class="LineNr">24400 </span> 52/push-edx -<span id="L24401" class="LineNr">24401 </span> 53/push-ebx -<span id="L24402" class="LineNr">24402 </span> 56/push-esi -<span id="L24403" class="LineNr">24403 </span> 57/push-edi -<span id="L24404" class="LineNr">24404 </span> <span class="subxComment"># esi = stmt</span> -<span id="L24405" class="LineNr">24405 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L24406" class="LineNr">24406 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L24407" class="LineNr">24407 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L24408" class="LineNr">24408 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24409" class="LineNr">24409 </span><span class="Constant">$check-mu-length-stmt:check-no-inouts</span>: -<span id="L24410" class="LineNr">24410 </span> 3d/compare-eax-and 0/imm32 -<span id="L24411" class="LineNr">24411 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-inouts/disp32 -<span id="L24412" class="LineNr">24412 </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="L24413" class="LineNr">24413 </span> 89/<- %ecx 0/r32/eax -<span id="L24414" class="LineNr">24414 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> -<span id="L24415" class="LineNr">24415 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L24416" class="LineNr">24416 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24417" class="LineNr">24417 </span> 89/<- %ebx 0/r32/eax -<span id="L24418" class="LineNr">24418 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> -<span id="L24419" class="LineNr">24419 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24420" class="LineNr">24420 </span> { -<span id="L24421" class="LineNr">24421 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24422" class="LineNr">24422 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> -<span id="L24423" class="LineNr">24423 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24424" class="LineNr">24424 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-atom-type/disp32 -<span id="L24425" class="LineNr">24425 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 -<span id="L24426" class="LineNr">24426 </span> } -<span id="L24427" class="LineNr">24427 </span><span class="Constant">$check-mu-length-stmt:base-is-compound</span>: -<span id="L24428" class="LineNr">24428 </span> <span class="subxComment"># if type->left not addr or array, abort</span> -<span id="L24429" class="LineNr">24429 </span> { -<span id="L24430" class="LineNr">24430 </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="L24431" class="LineNr">24431 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24432" class="LineNr">24432 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24433" class="LineNr">24433 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24434" class="LineNr">24434 </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="L24435" class="LineNr">24435 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24436" class="LineNr">24436 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24437" class="LineNr">24437 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24438" class="LineNr">24438 </span> e9/jump $check-mu-length-stmt:error-base-non-array-type/disp32 -<span id="L24439" class="LineNr">24439 </span> } -<span id="L24440" class="LineNr">24440 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> -<span id="L24441" class="LineNr">24441 </span> { -<span id="L24442" class="LineNr">24442 </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="L24443" class="LineNr">24443 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24444" class="LineNr">24444 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24445" class="LineNr">24445 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24446" class="LineNr">24446 </span><span class="Constant">$check-mu-length-stmt:base-is-addr</span>: -<span id="L24447" class="LineNr">24447 </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="L24448" class="LineNr">24448 </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="L24449" class="LineNr">24449 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24450" class="LineNr">24450 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24451" class="LineNr">24451 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 -<span id="L24452" class="LineNr">24452 </span><span class="Constant">$check-mu-length-stmt:check-base-addr-is-register</span>: -<span id="L24453" class="LineNr">24453 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L24454" class="LineNr">24454 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-address-array-type-on-stack/disp32 -<span id="L24455" class="LineNr">24455 </span> } -<span id="L24456" class="LineNr">24456 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> -<span id="L24457" class="LineNr">24457 </span> { -<span id="L24458" class="LineNr">24458 </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="L24459" class="LineNr">24459 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24460" class="LineNr">24460 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24461" class="LineNr">24461 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24462" class="LineNr">24462 </span><span class="Constant">$check-mu-length-stmt:base-is-array</span>: -<span id="L24463" class="LineNr">24463 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L24464" class="LineNr">24464 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-type-in-register/disp32 -<span id="L24465" class="LineNr">24465 </span> } -<span id="L24466" class="LineNr">24466 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> -<span id="L24467" class="LineNr">24467 </span> { -<span id="L24468" class="LineNr">24468 </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="L24469" class="LineNr">24469 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24470" class="LineNr">24470 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24471" class="LineNr">24471 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24472" class="LineNr">24472 </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="L24473" class="LineNr">24473 </span> 89/<- %ebx 0/r32/eax -<span id="L24474" class="LineNr">24474 </span> } -<span id="L24475" class="LineNr">24475 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L24476" class="LineNr">24476 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24477" class="LineNr">24477 </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="L24478" class="LineNr">24478 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24479" class="LineNr">24479 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-inouts/disp32 -<span id="L24480" class="LineNr">24480 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L24481" class="LineNr">24481 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L24482" class="LineNr">24482 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24483" class="LineNr">24483 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24484" class="LineNr">24484 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-outputs/disp32 -<span id="L24485" class="LineNr">24485 </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="L24486" class="LineNr">24486 </span> 89/<- %edi 0/r32/eax -<span id="L24487" class="LineNr">24487 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L24488" class="LineNr">24488 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L24489" class="LineNr">24489 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24490" class="LineNr">24490 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L24491" class="LineNr">24491 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24492" class="LineNr">24492 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-invalid-output-type/disp32 -<span id="L24493" class="LineNr">24493 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L24494" class="LineNr">24494 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24495" class="LineNr">24495 </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="L24496" class="LineNr">24496 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24497" class="LineNr">24497 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-outputs/disp32 -<span id="L24498" class="LineNr">24498 </span><span class="Constant">$check-mu-length-stmt:end</span>: -<span id="L24499" class="LineNr">24499 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24500" class="LineNr">24500 </span> 5f/pop-to-edi -<span id="L24501" class="LineNr">24501 </span> 5e/pop-to-esi -<span id="L24502" class="LineNr">24502 </span> 5b/pop-to-ebx -<span id="L24503" class="LineNr">24503 </span> 5a/pop-to-edx -<span id="L24504" class="LineNr">24504 </span> 59/pop-to-ecx -<span id="L24505" class="LineNr">24505 </span> 58/pop-to-eax -<span id="L24506" class="LineNr">24506 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24507" class="LineNr">24507 </span> 89/<- %esp 5/r32/ebp -<span id="L24508" class="LineNr">24508 </span> 5d/pop-to-ebp -<span id="L24509" class="LineNr">24509 </span> c3/return -<span id="L24510" class="LineNr">24510 </span> -<span id="L24511" class="LineNr">24511 </span><span class="Constant">$check-mu-length-stmt:error-base-non-array-type</span>: -<span id="L24512" class="LineNr">24512 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24513" class="LineNr">24513 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24514" class="LineNr">24514 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24515" class="LineNr">24515 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24516" class="LineNr">24516 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) -<span id="L24517" class="LineNr">24517 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' is not an array\n"</span>) -<span id="L24520" class="LineNr">24520 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24521" class="LineNr">24521 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24522" class="LineNr">24522 </span> <span class="subxComment"># never gets here</span> -<span id="L24523" class="LineNr">24523 </span> -<span id="L24524" class="LineNr">24524 </span><span class="Constant">$check-mu-length-stmt:error-base-array-atom-type</span>: -<span id="L24525" class="LineNr">24525 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24526" class="LineNr">24526 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24527" class="LineNr">24527 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24528" class="LineNr">24528 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24529" class="LineNr">24529 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: array '"</span>) -<span id="L24530" class="LineNr">24530 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' must specify the type of its elements\n"</span>) -<span id="L24533" class="LineNr">24533 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24534" class="LineNr">24534 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24535" class="LineNr">24535 </span> <span class="subxComment"># never gets here</span> -<span id="L24536" class="LineNr">24536 </span> -<span id="L24537" class="LineNr">24537 </span><span class="Constant">$check-mu-length-stmt:error-base-address-array-type-on-stack</span>: -<span id="L24538" class="LineNr">24538 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24539" class="LineNr">24539 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24540" class="LineNr">24540 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24541" class="LineNr">24541 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24542" class="LineNr">24542 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) -<span id="L24543" class="LineNr">24543 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' is an addr to an array, and so must live in a register\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-base-array-type-in-register</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: var '"</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">"' is an array, and so must live on the stack\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-too-few-inouts</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: too few inouts (1 required)\n"</span>) -<span id="L24569" class="LineNr">24569 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24570" class="LineNr">24570 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24571" class="LineNr">24571 </span> <span class="subxComment"># never gets here</span> -<span id="L24572" class="LineNr">24572 </span> -<span id="L24573" class="LineNr">24573 </span><span class="Constant">$check-mu-length-stmt:error-invalid-index-type</span>: -<span id="L24574" class="LineNr">24574 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24575" class="LineNr">24575 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24576" class="LineNr">24576 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24577" class="LineNr">24577 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24578" class="LineNr">24578 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) -<span id="L24579" class="LineNr">24579 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' must be an int or offset\n"</span>) -<span id="L24582" class="LineNr">24582 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24583" class="LineNr">24583 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24584" class="LineNr">24584 </span> <span class="subxComment"># never gets here</span> -<span id="L24585" class="LineNr">24585 </span> -<span id="L24586" class="LineNr">24586 </span><span class="Constant">$check-mu-length-stmt:error-index-offset-atom-type</span>: -<span id="L24587" class="LineNr">24587 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24588" class="LineNr">24588 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24589" class="LineNr">24589 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24590" class="LineNr">24590 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24591" class="LineNr">24591 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: offset '"</span>) -<span id="L24592" class="LineNr">24592 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' must specify the type of array elements\n"</span>) -<span id="L24595" class="LineNr">24595 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24596" class="LineNr">24596 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24597" class="LineNr">24597 </span> <span class="subxComment"># never gets here</span> -<span id="L24598" class="LineNr">24598 </span> -<span id="L24599" class="LineNr">24599 </span><span class="Constant">$check-mu-length-stmt:error-index-on-stack</span>: -<span id="L24600" class="LineNr">24600 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24601" class="LineNr">24601 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24602" class="LineNr">24602 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24603" class="LineNr">24603 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24604" class="LineNr">24604 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) -<span id="L24605" class="LineNr">24605 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' must be in a register\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-index-needs-offset</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: cannot take an int for array '"</span>) -<span id="L24618" class="LineNr">24618 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24619" class="LineNr">24619 </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="L24620" class="LineNr">24620 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24621" class="LineNr">24621 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24622" class="LineNr">24622 </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="L24623" class="LineNr">24623 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24624" class="LineNr">24624 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24625" class="LineNr">24625 </span> <span class="subxComment"># never gets here</span> -<span id="L24626" class="LineNr">24626 </span> -<span id="L24627" class="LineNr">24627 </span><span class="Constant">$check-mu-length-stmt:error-too-many-inouts</span>: -<span id="L24628" class="LineNr">24628 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24629" class="LineNr">24629 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24630" class="LineNr">24630 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24631" class="LineNr">24631 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24632" class="LineNr">24632 </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="L24633" class="LineNr">24633 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24634" class="LineNr">24634 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24635" class="LineNr">24635 </span> <span class="subxComment"># never gets here</span> -<span id="L24636" class="LineNr">24636 </span> -<span id="L24637" class="LineNr">24637 </span><span class="Constant">$check-mu-length-stmt:error-too-few-outputs</span>: -<span id="L24638" class="LineNr">24638 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24639" class="LineNr">24639 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24640" class="LineNr">24640 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-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">": stmt length: must have an output\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-too-many-outputs</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: too many outputs (1 required)\n"</span>) -<span id="L24653" class="LineNr">24653 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24654" class="LineNr">24654 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24655" class="LineNr">24655 </span> <span class="subxComment"># never gets here</span> -<span id="L24656" class="LineNr">24656 </span> -<span id="L24657" class="LineNr">24657 </span><span class="Constant">$check-mu-length-stmt:error-output-not-in-register</span>: -<span id="L24658" class="LineNr">24658 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24659" class="LineNr">24659 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24660" class="LineNr">24660 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24661" class="LineNr">24661 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24662" class="LineNr">24662 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: output '"</span>) -<span id="L24663" class="LineNr">24663 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24664" class="LineNr">24664 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24665" class="LineNr">24665 </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="L24666" class="LineNr">24666 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24667" class="LineNr">24667 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24668" class="LineNr">24668 </span> <span class="subxComment"># never gets here</span> -<span id="L24669" class="LineNr">24669 </span> -<span id="L24670" class="LineNr">24670 </span><span class="Constant">$check-mu-length-stmt:error-invalid-output-type</span>: -<span id="L24671" class="LineNr">24671 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24672" class="LineNr">24672 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24673" class="LineNr">24673 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24674" class="LineNr">24674 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24675" class="LineNr">24675 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: output '"</span>) -<span id="L24676" class="LineNr">24676 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24677" class="LineNr">24677 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24678" class="LineNr">24678 </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="L24679" class="LineNr">24679 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24680" class="LineNr">24680 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24681" class="LineNr">24681 </span> <span class="subxComment"># never gets here</span> -<span id="L24682" class="LineNr">24682 </span> -<span id="L24683" class="LineNr">24683 </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="L24684" class="LineNr">24684 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24685" class="LineNr">24685 </span> 55/push-ebp -<span id="L24686" class="LineNr">24686 </span> 89/<- %ebp 4/r32/esp -<span id="L24687" class="LineNr">24687 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24688" class="LineNr">24688 </span> 50/push-eax -<span id="L24689" class="LineNr">24689 </span> 51/push-ecx -<span id="L24690" class="LineNr">24690 </span> 52/push-edx -<span id="L24691" class="LineNr">24691 </span> 53/push-ebx -<span id="L24692" class="LineNr">24692 </span> 56/push-esi -<span id="L24693" class="LineNr">24693 </span> 57/push-edi -<span id="L24694" class="LineNr">24694 </span> <span class="subxComment"># esi = stmt</span> -<span id="L24695" class="LineNr">24695 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L24696" class="LineNr">24696 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L24697" class="LineNr">24697 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L24698" class="LineNr">24698 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24699" class="LineNr">24699 </span><span class="Constant">$check-mu-compute-offset-stmt:check-no-inouts</span>: -<span id="L24700" class="LineNr">24700 </span> 3d/compare-eax-and 0/imm32 -<span id="L24701" class="LineNr">24701 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 -<span id="L24702" class="LineNr">24702 </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="L24703" class="LineNr">24703 </span> 89/<- %ecx 0/r32/eax -<span id="L24704" class="LineNr">24704 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> -<span id="L24705" class="LineNr">24705 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L24706" class="LineNr">24706 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24707" class="LineNr">24707 </span> 89/<- %ebx 0/r32/eax -<span id="L24708" class="LineNr">24708 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> -<span id="L24709" class="LineNr">24709 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24710" class="LineNr">24710 </span> { -<span id="L24711" class="LineNr">24711 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24712" class="LineNr">24712 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> -<span id="L24713" class="LineNr">24713 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24714" class="LineNr">24714 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-base-array-atom-type/disp32 -<span id="L24715" class="LineNr">24715 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 -<span id="L24716" class="LineNr">24716 </span> } -<span id="L24717" class="LineNr">24717 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-compound</span>: -<span id="L24718" class="LineNr">24718 </span> <span class="subxComment"># if type->left not addr or array, abort</span> -<span id="L24719" class="LineNr">24719 </span> { -<span id="L24720" class="LineNr">24720 </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="L24721" class="LineNr">24721 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24722" class="LineNr">24722 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24723" class="LineNr">24723 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24724" class="LineNr">24724 </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="L24725" class="LineNr">24725 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => 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> e9/jump $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 -<span id="L24729" class="LineNr">24729 </span> } -<span id="L24730" class="LineNr">24730 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> -<span id="L24731" class="LineNr">24731 </span> { -<span id="L24732" class="LineNr">24732 </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="L24733" class="LineNr">24733 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24734" class="LineNr">24734 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24735" class="LineNr">24735 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24736" class="LineNr">24736 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-addr</span>: -<span id="L24737" class="LineNr">24737 </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="L24738" class="LineNr">24738 </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="L24739" class="LineNr">24739 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24740" class="LineNr">24740 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24741" class="LineNr">24741 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 -<span id="L24742" class="LineNr">24742 </span> } -<span id="L24743" class="LineNr">24743 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> -<span id="L24744" class="LineNr">24744 </span> { -<span id="L24745" class="LineNr">24745 </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="L24746" class="LineNr">24746 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24747" class="LineNr">24747 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24748" class="LineNr">24748 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24749" class="LineNr">24749 </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="L24750" class="LineNr">24750 </span> 89/<- %ebx 0/r32/eax -<span id="L24751" class="LineNr">24751 </span> } -<span id="L24752" class="LineNr">24752 </span> <span class="subxH1Comment"># - check for 1 inout</span> -<span id="L24753" class="LineNr">24753 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L24754" class="LineNr">24754 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24755" class="LineNr">24755 </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="L24756" class="LineNr">24756 </span><span class="Constant">$check-mu-compute-offset-stmt:check-single-inout</span>: -<span id="L24757" class="LineNr">24757 </span> 3d/compare-eax-and 0/imm32 -<span id="L24758" class="LineNr">24758 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 -<span id="L24759" class="LineNr">24759 </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="L24760" class="LineNr">24760 </span> 89/<- %ecx 0/r32/eax -<span id="L24761" class="LineNr">24761 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> -<span id="L24762" class="LineNr">24762 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> -<span id="L24763" class="LineNr">24763 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24764" class="LineNr">24764 </span> 89/<- %edx 0/r32/eax -<span id="L24765" class="LineNr">24765 </span> <span class="subxComment"># index type must be a literal or int</span> -<span id="L24766" class="LineNr">24766 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24767" class="LineNr">24767 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 -<span id="L24768" class="LineNr">24768 </span> { -<span id="L24769" class="LineNr">24769 </span><span class="Constant">$check-mu-compute-offset-stmt:index-type-is-atom</span>: -<span id="L24770" class="LineNr">24770 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> -<span id="L24771" class="LineNr">24771 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24772" class="LineNr">24772 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24773" class="LineNr">24773 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L24774" class="LineNr">24774 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24775" class="LineNr">24775 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24776" class="LineNr">24776 </span> e9/jump $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 -<span id="L24777" class="LineNr">24777 </span> } -<span id="L24778" class="LineNr">24778 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L24779" class="LineNr">24779 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24780" class="LineNr">24780 </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="L24781" class="LineNr">24781 </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="L24782" class="LineNr">24782 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24783" class="LineNr">24783 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-inouts/disp32 -<span id="L24784" class="LineNr">24784 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L24785" class="LineNr">24785 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L24786" class="LineNr">24786 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24787" class="LineNr">24787 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24788" class="LineNr">24788 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-outputs/disp32 -<span id="L24789" class="LineNr">24789 </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="L24790" class="LineNr">24790 </span> 89/<- %edi 0/r32/eax -<span id="L24791" class="LineNr">24791 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L24792" class="LineNr">24792 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L24793" class="LineNr">24793 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24794" class="LineNr">24794 </span> 89/<- %edx 0/r32/eax -<span id="L24795" class="LineNr">24795 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24796" class="LineNr">24796 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 -<span id="L24797" class="LineNr">24797 </span> <span class="subxComment"># type must start with (offset ...)</span> -<span id="L24798" class="LineNr">24798 </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="L24799" class="LineNr">24799 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> -<span id="L24800" class="LineNr">24800 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24801" class="LineNr">24801 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 -<span id="L24802" class="LineNr">24802 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> -<span id="L24803" class="LineNr">24803 </span> (<a href='mu.subx.html#L26863'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L24804" class="LineNr">24804 </span> 89/<- %ebx 0/r32/eax -<span id="L24805" class="LineNr">24805 </span> (<a href='mu.subx.html#L26863'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L24806" class="LineNr">24806 </span> (<a href='mu.subx.html#L26922'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L24807" class="LineNr">24807 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24808" class="LineNr">24808 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-bad-output-type/disp32 -<span id="L24809" class="LineNr">24809 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L24810" class="LineNr">24810 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24811" class="LineNr">24811 </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="L24812" class="LineNr">24812 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24813" class="LineNr">24813 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-outputs/disp32 -<span id="L24814" class="LineNr">24814 </span><span class="Constant">$check-mu-compute-offset-stmt:end</span>: -<span id="L24815" class="LineNr">24815 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24816" class="LineNr">24816 </span> 5f/pop-to-edi -<span id="L24817" class="LineNr">24817 </span> 5e/pop-to-esi -<span id="L24818" class="LineNr">24818 </span> 5b/pop-to-ebx -<span id="L24819" class="LineNr">24819 </span> 5a/pop-to-edx -<span id="L24820" class="LineNr">24820 </span> 59/pop-to-ecx -<span id="L24821" class="LineNr">24821 </span> 58/pop-to-eax -<span id="L24822" class="LineNr">24822 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24823" class="LineNr">24823 </span> 89/<- %esp 5/r32/ebp -<span id="L24824" class="LineNr">24824 </span> 5d/pop-to-ebp -<span id="L24825" class="LineNr">24825 </span> c3/return -<span id="L24826" class="LineNr">24826 </span> -<span id="L24827" class="LineNr">24827 </span><span class="Constant">$check-mu-compute-offset-stmt:error-base-non-array-type</span>: -<span id="L24828" class="LineNr">24828 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24829" class="LineNr">24829 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24830" class="LineNr">24830 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24831" class="LineNr">24831 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24832" class="LineNr">24832 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: var '"</span>) -<span id="L24833" class="LineNr">24833 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' is not an array\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-base-array-atom-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: array '"</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 specify the type of its elements\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-too-few-inouts</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: too few inouts (2 required)\n"</span>) -<span id="L24859" class="LineNr">24859 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24860" class="LineNr">24860 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24861" class="LineNr">24861 </span> <span class="subxComment"># never gets here</span> -<span id="L24862" class="LineNr">24862 </span> -<span id="L24863" class="LineNr">24863 </span><span class="Constant">$check-mu-compute-offset-stmt:error-invalid-index-type</span>: -<span id="L24864" class="LineNr">24864 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24865" class="LineNr">24865 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24866" class="LineNr">24866 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24867" class="LineNr">24867 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24868" class="LineNr">24868 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: second argument '"</span>) -<span id="L24869" class="LineNr">24869 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' must be an int\n"</span>) -<span id="L24872" class="LineNr">24872 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24873" class="LineNr">24873 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24874" class="LineNr">24874 </span> <span class="subxComment"># never gets here</span> -<span id="L24875" class="LineNr">24875 </span> -<span id="L24876" class="LineNr">24876 </span><span class="Constant">$check-mu-compute-offset-stmt:error-index-offset-atom-type</span>: -<span id="L24877" class="LineNr">24877 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24878" class="LineNr">24878 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24879" class="LineNr">24879 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24880" class="LineNr">24880 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24881" class="LineNr">24881 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: offset '"</span>) -<span id="L24882" class="LineNr">24882 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' must specify the type of array elements\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-index-on-stack</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: second argument '"</span>) -<span id="L24895" class="LineNr">24895 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24896" class="LineNr">24896 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24897" class="LineNr">24897 </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="L24898" class="LineNr">24898 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24899" class="LineNr">24899 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24900" class="LineNr">24900 </span> <span class="subxComment"># never gets here</span> -<span id="L24901" class="LineNr">24901 </span> -<span id="L24902" class="LineNr">24902 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-many-inouts</span>: -<span id="L24903" class="LineNr">24903 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24904" class="LineNr">24904 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24905" class="LineNr">24905 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24906" class="LineNr">24906 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24907" class="LineNr">24907 </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="L24908" class="LineNr">24908 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24909" class="LineNr">24909 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24910" class="LineNr">24910 </span> <span class="subxComment"># never gets here</span> -<span id="L24911" class="LineNr">24911 </span> -<span id="L24912" class="LineNr">24912 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-few-outputs</span>: -<span id="L24913" class="LineNr">24913 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24914" class="LineNr">24914 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24915" class="LineNr">24915 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-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">": stmt compute-offset: must have an output\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-too-many-outputs</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: too many outputs (1 required)\n"</span>) -<span id="L24928" class="LineNr">24928 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24929" class="LineNr">24929 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24930" class="LineNr">24930 </span> <span class="subxComment"># never gets here</span> -<span id="L24931" class="LineNr">24931 </span> -<span id="L24932" class="LineNr">24932 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-not-in-register</span>: -<span id="L24933" class="LineNr">24933 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24934" class="LineNr">24934 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24935" class="LineNr">24935 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24936" class="LineNr">24936 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24937" class="LineNr">24937 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) -<span id="L24938" class="LineNr">24938 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-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">"' is not in a register\n"</span>) -<span id="L24941" class="LineNr">24941 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24942" class="LineNr">24942 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24943" class="LineNr">24943 </span> <span class="subxComment"># never gets here</span> -<span id="L24944" class="LineNr">24944 </span> -<span id="L24945" class="LineNr">24945 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-type-not-offset</span>: -<span id="L24946" class="LineNr">24946 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24947" class="LineNr">24947 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24948" class="LineNr">24948 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24949" class="LineNr">24949 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24950" class="LineNr">24950 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) -<span id="L24951" class="LineNr">24951 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24952" class="LineNr">24952 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24953" class="LineNr">24953 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an offset\n"</span>) -<span id="L24954" class="LineNr">24954 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24955" class="LineNr">24955 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24956" class="LineNr">24956 </span> <span class="subxComment"># never gets here</span> -<span id="L24957" class="LineNr">24957 </span> -<span id="L24958" class="LineNr">24958 </span><span class="Constant">$check-mu-compute-offset-stmt:error-bad-output-type</span>: -<span id="L24959" class="LineNr">24959 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24960" class="LineNr">24960 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24961" class="LineNr">24961 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24962" class="LineNr">24962 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24963" class="LineNr">24963 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) -<span id="L24964" class="LineNr">24964 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24965" class="LineNr">24965 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24966" class="LineNr">24966 </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="L24967" class="LineNr">24967 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24968" class="LineNr">24968 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24969" class="LineNr">24969 </span> <span class="subxComment"># never gets here</span> -<span id="L24970" class="LineNr">24970 </span> -<span id="L24971" class="LineNr">24971 </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="L24972" class="LineNr">24972 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24973" class="LineNr">24973 </span> 55/push-ebp -<span id="L24974" class="LineNr">24974 </span> 89/<- %ebp 4/r32/esp -<span id="L24975" class="LineNr">24975 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24976" class="LineNr">24976 </span> 50/push-eax -<span id="L24977" class="LineNr">24977 </span> 51/push-ecx -<span id="L24978" class="LineNr">24978 </span> 53/push-ebx -<span id="L24979" class="LineNr">24979 </span> 56/push-esi -<span id="L24980" class="LineNr">24980 </span> 57/push-edi -<span id="L24981" class="LineNr">24981 </span> <span class="subxComment"># esi = stmt</span> -<span id="L24982" class="LineNr">24982 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L24983" class="LineNr">24983 </span><span class="Constant">$check-mu-copy-object-stmt:check-for-output</span>: -<span id="L24984" class="LineNr">24984 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L24388" class="LineNr">24388 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) +<span id="L24389" class="LineNr">24389 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24390" class="LineNr">24390 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24391" class="LineNr">24391 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) +<span id="L24392" class="LineNr">24392 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24393" class="LineNr">24393 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24394" class="LineNr">24394 </span> <span class="subxComment"># never gets here</span> +<span id="L24395" class="LineNr">24395 </span> +<span id="L24396" class="LineNr">24396 </span><span class="Constant">$check-mu-index-stmt:error-base-array-atom-type</span>: +<span id="L24397" class="LineNr">24397 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24398" class="LineNr">24398 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24399" class="LineNr">24399 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24400" class="LineNr">24400 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24401" class="LineNr">24401 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: array '"</span>) +<span id="L24402" class="LineNr">24402 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24403" class="LineNr">24403 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24404" class="LineNr">24404 </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="L24405" class="LineNr">24405 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24406" class="LineNr">24406 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24407" class="LineNr">24407 </span> <span class="subxComment"># never gets here</span> +<span id="L24408" class="LineNr">24408 </span> +<span id="L24409" class="LineNr">24409 </span><span class="Constant">$check-mu-index-stmt:error-base-address-array-type-on-stack</span>: +<span id="L24410" class="LineNr">24410 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24411" class="LineNr">24411 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24412" class="LineNr">24412 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24413" class="LineNr">24413 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24414" class="LineNr">24414 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) +<span id="L24415" class="LineNr">24415 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24416" class="LineNr">24416 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24417" class="LineNr">24417 </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="L24418" class="LineNr">24418 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24419" class="LineNr">24419 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24420" class="LineNr">24420 </span> <span class="subxComment"># never gets here</span> +<span id="L24421" class="LineNr">24421 </span> +<span id="L24422" class="LineNr">24422 </span><span class="Constant">$check-mu-index-stmt:error-base-array-type-in-register</span>: +<span id="L24423" class="LineNr">24423 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24424" class="LineNr">24424 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24425" class="LineNr">24425 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24426" class="LineNr">24426 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24427" class="LineNr">24427 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) +<span id="L24428" class="LineNr">24428 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24429" class="LineNr">24429 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24430" class="LineNr">24430 </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="L24431" class="LineNr">24431 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24432" class="LineNr">24432 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24433" class="LineNr">24433 </span> <span class="subxComment"># never gets here</span> +<span id="L24434" class="LineNr">24434 </span> +<span id="L24435" class="LineNr">24435 </span><span class="Constant">$check-mu-index-stmt:error-too-few-inouts</span>: +<span id="L24436" class="LineNr">24436 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24437" class="LineNr">24437 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24438" class="LineNr">24438 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24439" class="LineNr">24439 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24440" class="LineNr">24440 </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="L24441" class="LineNr">24441 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24442" class="LineNr">24442 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24443" class="LineNr">24443 </span> <span class="subxComment"># never gets here</span> +<span id="L24444" class="LineNr">24444 </span> +<span id="L24445" class="LineNr">24445 </span><span class="Constant">$check-mu-index-stmt:error-invalid-index-type</span>: +<span id="L24446" class="LineNr">24446 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24447" class="LineNr">24447 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24448" class="LineNr">24448 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24449" class="LineNr">24449 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24450" class="LineNr">24450 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) +<span id="L24451" class="LineNr">24451 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24452" class="LineNr">24452 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24453" class="LineNr">24453 </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="L24454" class="LineNr">24454 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24455" class="LineNr">24455 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24456" class="LineNr">24456 </span> <span class="subxComment"># never gets here</span> +<span id="L24457" class="LineNr">24457 </span> +<span id="L24458" class="LineNr">24458 </span><span class="Constant">$check-mu-index-stmt:error-index-offset-atom-type</span>: +<span id="L24459" class="LineNr">24459 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24460" class="LineNr">24460 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24461" class="LineNr">24461 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24462" class="LineNr">24462 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24463" class="LineNr">24463 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: offset '"</span>) +<span id="L24464" class="LineNr">24464 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24465" class="LineNr">24465 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24466" class="LineNr">24466 </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="L24467" class="LineNr">24467 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24468" class="LineNr">24468 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24469" class="LineNr">24469 </span> <span class="subxComment"># never gets here</span> +<span id="L24470" class="LineNr">24470 </span> +<span id="L24471" class="LineNr">24471 </span><span class="Constant">$check-mu-index-stmt:error-index-on-stack</span>: +<span id="L24472" class="LineNr">24472 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24473" class="LineNr">24473 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24474" class="LineNr">24474 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24475" class="LineNr">24475 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24476" class="LineNr">24476 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) +<span id="L24477" class="LineNr">24477 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24478" class="LineNr">24478 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24479" class="LineNr">24479 </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="L24480" class="LineNr">24480 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24481" class="LineNr">24481 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24482" class="LineNr">24482 </span> <span class="subxComment"># never gets here</span> +<span id="L24483" class="LineNr">24483 </span> +<span id="L24484" class="LineNr">24484 </span><span class="Constant">$check-mu-index-stmt:error-index-needs-offset</span>: +<span id="L24485" class="LineNr">24485 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24486" class="LineNr">24486 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24487" class="LineNr">24487 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24488" class="LineNr">24488 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24489" class="LineNr">24489 </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="L24490" class="LineNr">24490 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24491" class="LineNr">24491 </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="L24492" class="LineNr">24492 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24493" class="LineNr">24493 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24494" class="LineNr">24494 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'; create an offset instead. See mu.md for details.\n"</span>) +<span id="L24495" class="LineNr">24495 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24496" class="LineNr">24496 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24497" class="LineNr">24497 </span> <span class="subxComment"># never gets here</span> +<span id="L24498" class="LineNr">24498 </span> +<span id="L24499" class="LineNr">24499 </span><span class="Constant">$check-mu-index-stmt:error-too-many-inouts</span>: +<span id="L24500" class="LineNr">24500 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24501" class="LineNr">24501 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24502" class="LineNr">24502 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24503" class="LineNr">24503 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24504" class="LineNr">24504 </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="L24505" class="LineNr">24505 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24506" class="LineNr">24506 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24507" class="LineNr">24507 </span> <span class="subxComment"># never gets here</span> +<span id="L24508" class="LineNr">24508 </span> +<span id="L24509" class="LineNr">24509 </span><span class="Constant">$check-mu-index-stmt:error-too-few-outputs</span>: +<span id="L24510" class="LineNr">24510 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24511" class="LineNr">24511 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24512" class="LineNr">24512 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24513" class="LineNr">24513 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24514" class="LineNr">24514 </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="L24515" class="LineNr">24515 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24516" class="LineNr">24516 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24517" class="LineNr">24517 </span> <span class="subxComment"># never gets here</span> +<span id="L24518" class="LineNr">24518 </span> +<span id="L24519" class="LineNr">24519 </span><span class="Constant">$check-mu-index-stmt:error-too-many-outputs</span>: +<span id="L24520" class="LineNr">24520 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24521" class="LineNr">24521 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24522" class="LineNr">24522 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24523" class="LineNr">24523 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24524" class="LineNr">24524 </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="L24525" class="LineNr">24525 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24526" class="LineNr">24526 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24527" class="LineNr">24527 </span> <span class="subxComment"># never gets here</span> +<span id="L24528" class="LineNr">24528 </span> +<span id="L24529" class="LineNr">24529 </span><span class="Constant">$check-mu-index-stmt:error-output-not-in-register</span>: +<span id="L24530" class="LineNr">24530 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24531" class="LineNr">24531 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24532" class="LineNr">24532 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24533" class="LineNr">24533 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24534" class="LineNr">24534 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) +<span id="L24535" class="LineNr">24535 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24536" class="LineNr">24536 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24537" class="LineNr">24537 </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="L24538" class="LineNr">24538 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24539" class="LineNr">24539 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24540" class="LineNr">24540 </span> <span class="subxComment"># never gets here</span> +<span id="L24541" class="LineNr">24541 </span> +<span id="L24542" class="LineNr">24542 </span><span class="Constant">$check-mu-index-stmt:error-output-type-not-address</span>: +<span id="L24543" class="LineNr">24543 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24544" class="LineNr">24544 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24545" class="LineNr">24545 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24546" class="LineNr">24546 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24547" class="LineNr">24547 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) +<span id="L24548" class="LineNr">24548 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24549" class="LineNr">24549 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24550" class="LineNr">24550 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) +<span id="L24551" class="LineNr">24551 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24552" class="LineNr">24552 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24553" class="LineNr">24553 </span> <span class="subxComment"># never gets here</span> +<span id="L24554" class="LineNr">24554 </span> +<span id="L24555" class="LineNr">24555 </span><span class="Constant">$check-mu-index-stmt:error-bad-output-type</span>: +<span id="L24556" class="LineNr">24556 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24557" class="LineNr">24557 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24558" class="LineNr">24558 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24559" class="LineNr">24559 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24560" class="LineNr">24560 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) +<span id="L24561" class="LineNr">24561 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24562" class="LineNr">24562 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24563" class="LineNr">24563 </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="L24564" class="LineNr">24564 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24565" class="LineNr">24565 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24566" class="LineNr">24566 </span> <span class="subxComment"># never gets here</span> +<span id="L24567" class="LineNr">24567 </span> +<span id="L24568" class="LineNr">24568 </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="L24569" class="LineNr">24569 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24570" class="LineNr">24570 </span> 55/push-ebp +<span id="L24571" class="LineNr">24571 </span> 89/<- %ebp 4/r32/esp +<span id="L24572" class="LineNr">24572 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24573" class="LineNr">24573 </span> 50/push-eax +<span id="L24574" class="LineNr">24574 </span> 51/push-ecx +<span id="L24575" class="LineNr">24575 </span> 52/push-edx +<span id="L24576" class="LineNr">24576 </span> 53/push-ebx +<span id="L24577" class="LineNr">24577 </span> 56/push-esi +<span id="L24578" class="LineNr">24578 </span> 57/push-edi +<span id="L24579" class="LineNr">24579 </span> <span class="subxComment"># esi = stmt</span> +<span id="L24580" class="LineNr">24580 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L24581" class="LineNr">24581 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L24582" class="LineNr">24582 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L24583" class="LineNr">24583 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24584" class="LineNr">24584 </span><span class="Constant">$check-mu-length-stmt:check-no-inouts</span>: +<span id="L24585" class="LineNr">24585 </span> 3d/compare-eax-and 0/imm32 +<span id="L24586" class="LineNr">24586 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-inouts/disp32 +<span id="L24587" class="LineNr">24587 </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="L24588" class="LineNr">24588 </span> 89/<- %ecx 0/r32/eax +<span id="L24589" class="LineNr">24589 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> +<span id="L24590" class="LineNr">24590 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L24591" class="LineNr">24591 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24592" class="LineNr">24592 </span> 89/<- %ebx 0/r32/eax +<span id="L24593" class="LineNr">24593 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> +<span id="L24594" class="LineNr">24594 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24595" class="LineNr">24595 </span> { +<span id="L24596" class="LineNr">24596 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24597" class="LineNr">24597 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> +<span id="L24598" class="LineNr">24598 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24599" class="LineNr">24599 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-atom-type/disp32 +<span id="L24600" class="LineNr">24600 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 +<span id="L24601" class="LineNr">24601 </span> } +<span id="L24602" class="LineNr">24602 </span><span class="Constant">$check-mu-length-stmt:base-is-compound</span>: +<span id="L24603" class="LineNr">24603 </span> <span class="subxComment"># if type->left not addr or array, abort</span> +<span id="L24604" class="LineNr">24604 </span> { +<span id="L24605" class="LineNr">24605 </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="L24606" class="LineNr">24606 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24607" class="LineNr">24607 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24608" class="LineNr">24608 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24609" class="LineNr">24609 </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="L24610" class="LineNr">24610 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24611" class="LineNr">24611 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24612" class="LineNr">24612 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24613" class="LineNr">24613 </span> e9/jump $check-mu-length-stmt:error-base-non-array-type/disp32 +<span id="L24614" class="LineNr">24614 </span> } +<span id="L24615" class="LineNr">24615 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> +<span id="L24616" class="LineNr">24616 </span> { +<span id="L24617" class="LineNr">24617 </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="L24618" class="LineNr">24618 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24619" class="LineNr">24619 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24620" class="LineNr">24620 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24621" class="LineNr">24621 </span><span class="Constant">$check-mu-length-stmt:base-is-addr</span>: +<span id="L24622" class="LineNr">24622 </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="L24623" class="LineNr">24623 </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="L24624" class="LineNr">24624 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24625" class="LineNr">24625 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24626" class="LineNr">24626 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 +<span id="L24627" class="LineNr">24627 </span><span class="Constant">$check-mu-length-stmt:check-base-addr-is-register</span>: +<span id="L24628" class="LineNr">24628 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L24629" class="LineNr">24629 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-address-array-type-on-stack/disp32 +<span id="L24630" class="LineNr">24630 </span> } +<span id="L24631" class="LineNr">24631 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> +<span id="L24632" class="LineNr">24632 </span> { +<span id="L24633" class="LineNr">24633 </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="L24634" class="LineNr">24634 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24635" class="LineNr">24635 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24636" class="LineNr">24636 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24637" class="LineNr">24637 </span><span class="Constant">$check-mu-length-stmt:base-is-array</span>: +<span id="L24638" class="LineNr">24638 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L24639" class="LineNr">24639 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-type-in-register/disp32 +<span id="L24640" class="LineNr">24640 </span> } +<span id="L24641" class="LineNr">24641 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> +<span id="L24642" class="LineNr">24642 </span> { +<span id="L24643" class="LineNr">24643 </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="L24644" class="LineNr">24644 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24645" class="LineNr">24645 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24646" class="LineNr">24646 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24647" class="LineNr">24647 </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="L24648" class="LineNr">24648 </span> 89/<- %ebx 0/r32/eax +<span id="L24649" class="LineNr">24649 </span> } +<span id="L24650" class="LineNr">24650 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L24651" class="LineNr">24651 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24652" class="LineNr">24652 </span> (<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="L24653" class="LineNr">24653 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24654" class="LineNr">24654 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-inouts/disp32 +<span id="L24655" class="LineNr">24655 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L24656" class="LineNr">24656 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L24657" class="LineNr">24657 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24658" class="LineNr">24658 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24659" class="LineNr">24659 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-outputs/disp32 +<span id="L24660" class="LineNr">24660 </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="L24661" class="LineNr">24661 </span> 89/<- %edi 0/r32/eax +<span id="L24662" class="LineNr">24662 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L24663" class="LineNr">24663 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L24664" class="LineNr">24664 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24665" class="LineNr">24665 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L24666" class="LineNr">24666 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24667" class="LineNr">24667 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-invalid-output-type/disp32 +<span id="L24668" class="LineNr">24668 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L24669" class="LineNr">24669 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24670" class="LineNr">24670 </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="L24671" class="LineNr">24671 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24672" class="LineNr">24672 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-outputs/disp32 +<span id="L24673" class="LineNr">24673 </span><span class="Constant">$check-mu-length-stmt:end</span>: +<span id="L24674" class="LineNr">24674 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L24675" class="LineNr">24675 </span> 5f/pop-to-edi +<span id="L24676" class="LineNr">24676 </span> 5e/pop-to-esi +<span id="L24677" class="LineNr">24677 </span> 5b/pop-to-ebx +<span id="L24678" class="LineNr">24678 </span> 5a/pop-to-edx +<span id="L24679" class="LineNr">24679 </span> 59/pop-to-ecx +<span id="L24680" class="LineNr">24680 </span> 58/pop-to-eax +<span id="L24681" class="LineNr">24681 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24682" class="LineNr">24682 </span> 89/<- %esp 5/r32/ebp +<span id="L24683" class="LineNr">24683 </span> 5d/pop-to-ebp +<span id="L24684" class="LineNr">24684 </span> c3/return +<span id="L24685" class="LineNr">24685 </span> +<span id="L24686" class="LineNr">24686 </span><span class="Constant">$check-mu-length-stmt:error-base-non-array-type</span>: +<span id="L24687" class="LineNr">24687 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24688" class="LineNr">24688 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24689" class="LineNr">24689 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24690" class="LineNr">24690 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24691" class="LineNr">24691 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) +<span id="L24692" class="LineNr">24692 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24693" class="LineNr">24693 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24694" class="LineNr">24694 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) +<span id="L24695" class="LineNr">24695 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24696" class="LineNr">24696 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24697" class="LineNr">24697 </span> <span class="subxComment"># never gets here</span> +<span id="L24698" class="LineNr">24698 </span> +<span id="L24699" class="LineNr">24699 </span><span class="Constant">$check-mu-length-stmt:error-base-array-atom-type</span>: +<span id="L24700" class="LineNr">24700 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24701" class="LineNr">24701 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24702" class="LineNr">24702 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24703" class="LineNr">24703 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24704" class="LineNr">24704 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: array '"</span>) +<span id="L24705" class="LineNr">24705 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24706" class="LineNr">24706 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24707" class="LineNr">24707 </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="L24708" class="LineNr">24708 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24709" class="LineNr">24709 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24710" class="LineNr">24710 </span> <span class="subxComment"># never gets here</span> +<span id="L24711" class="LineNr">24711 </span> +<span id="L24712" class="LineNr">24712 </span><span class="Constant">$check-mu-length-stmt:error-base-address-array-type-on-stack</span>: +<span id="L24713" class="LineNr">24713 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24714" class="LineNr">24714 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24715" class="LineNr">24715 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24716" class="LineNr">24716 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24717" class="LineNr">24717 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) +<span id="L24718" class="LineNr">24718 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24719" class="LineNr">24719 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24720" class="LineNr">24720 </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="L24721" class="LineNr">24721 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24722" class="LineNr">24722 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24723" class="LineNr">24723 </span> <span class="subxComment"># never gets here</span> +<span id="L24724" class="LineNr">24724 </span> +<span id="L24725" class="LineNr">24725 </span><span class="Constant">$check-mu-length-stmt:error-base-array-type-in-register</span>: +<span id="L24726" class="LineNr">24726 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24727" class="LineNr">24727 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24728" class="LineNr">24728 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24729" class="LineNr">24729 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24730" class="LineNr">24730 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) +<span id="L24731" class="LineNr">24731 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24732" class="LineNr">24732 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24733" class="LineNr">24733 </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="L24734" class="LineNr">24734 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24735" class="LineNr">24735 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24736" class="LineNr">24736 </span> <span class="subxComment"># never gets here</span> +<span id="L24737" class="LineNr">24737 </span> +<span id="L24738" class="LineNr">24738 </span><span class="Constant">$check-mu-length-stmt:error-too-few-inouts</span>: +<span id="L24739" class="LineNr">24739 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24740" class="LineNr">24740 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24741" class="LineNr">24741 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24742" class="LineNr">24742 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24743" class="LineNr">24743 </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="L24744" class="LineNr">24744 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24745" class="LineNr">24745 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24746" class="LineNr">24746 </span> <span class="subxComment"># never gets here</span> +<span id="L24747" class="LineNr">24747 </span> +<span id="L24748" class="LineNr">24748 </span><span class="Constant">$check-mu-length-stmt:error-invalid-index-type</span>: +<span id="L24749" class="LineNr">24749 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24750" class="LineNr">24750 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24751" class="LineNr">24751 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24752" class="LineNr">24752 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24753" class="LineNr">24753 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) +<span id="L24754" class="LineNr">24754 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24755" class="LineNr">24755 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24756" class="LineNr">24756 </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="L24757" class="LineNr">24757 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24758" class="LineNr">24758 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24759" class="LineNr">24759 </span> <span class="subxComment"># never gets here</span> +<span id="L24760" class="LineNr">24760 </span> +<span id="L24761" class="LineNr">24761 </span><span class="Constant">$check-mu-length-stmt:error-index-offset-atom-type</span>: +<span id="L24762" class="LineNr">24762 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24763" class="LineNr">24763 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24764" class="LineNr">24764 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24765" class="LineNr">24765 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24766" class="LineNr">24766 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: offset '"</span>) +<span id="L24767" class="LineNr">24767 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24768" class="LineNr">24768 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24769" class="LineNr">24769 </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="L24770" class="LineNr">24770 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24771" class="LineNr">24771 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24772" class="LineNr">24772 </span> <span class="subxComment"># never gets here</span> +<span id="L24773" class="LineNr">24773 </span> +<span id="L24774" class="LineNr">24774 </span><span class="Constant">$check-mu-length-stmt:error-index-on-stack</span>: +<span id="L24775" class="LineNr">24775 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24776" class="LineNr">24776 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24777" class="LineNr">24777 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24778" class="LineNr">24778 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24779" class="LineNr">24779 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) +<span id="L24780" class="LineNr">24780 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24781" class="LineNr">24781 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24782" class="LineNr">24782 </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="L24783" class="LineNr">24783 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24784" class="LineNr">24784 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24785" class="LineNr">24785 </span> <span class="subxComment"># never gets here</span> +<span id="L24786" class="LineNr">24786 </span> +<span id="L24787" class="LineNr">24787 </span><span class="Constant">$check-mu-length-stmt:error-index-needs-offset</span>: +<span id="L24788" class="LineNr">24788 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24789" class="LineNr">24789 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24790" class="LineNr">24790 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24791" class="LineNr">24791 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24792" class="LineNr">24792 </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="L24793" class="LineNr">24793 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24794" class="LineNr">24794 </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="L24795" class="LineNr">24795 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24796" class="LineNr">24796 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24797" class="LineNr">24797 </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="L24798" class="LineNr">24798 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24799" class="LineNr">24799 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24800" class="LineNr">24800 </span> <span class="subxComment"># never gets here</span> +<span id="L24801" class="LineNr">24801 </span> +<span id="L24802" class="LineNr">24802 </span><span class="Constant">$check-mu-length-stmt:error-too-many-inouts</span>: +<span id="L24803" class="LineNr">24803 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24804" class="LineNr">24804 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24805" class="LineNr">24805 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24806" class="LineNr">24806 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24807" class="LineNr">24807 </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="L24808" class="LineNr">24808 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24809" class="LineNr">24809 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24810" class="LineNr">24810 </span> <span class="subxComment"># never gets here</span> +<span id="L24811" class="LineNr">24811 </span> +<span id="L24812" class="LineNr">24812 </span><span class="Constant">$check-mu-length-stmt:error-too-few-outputs</span>: +<span id="L24813" class="LineNr">24813 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24814" class="LineNr">24814 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24815" class="LineNr">24815 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24816" class="LineNr">24816 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24817" class="LineNr">24817 </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="L24818" class="LineNr">24818 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24819" class="LineNr">24819 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24820" class="LineNr">24820 </span> <span class="subxComment"># never gets here</span> +<span id="L24821" class="LineNr">24821 </span> +<span id="L24822" class="LineNr">24822 </span><span class="Constant">$check-mu-length-stmt:error-too-many-outputs</span>: +<span id="L24823" class="LineNr">24823 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24824" class="LineNr">24824 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24825" class="LineNr">24825 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24826" class="LineNr">24826 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24827" class="LineNr">24827 </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="L24828" class="LineNr">24828 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24829" class="LineNr">24829 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24830" class="LineNr">24830 </span> <span class="subxComment"># never gets here</span> +<span id="L24831" class="LineNr">24831 </span> +<span id="L24832" class="LineNr">24832 </span><span class="Constant">$check-mu-length-stmt:error-output-not-in-register</span>: +<span id="L24833" class="LineNr">24833 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24834" class="LineNr">24834 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24835" class="LineNr">24835 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24836" class="LineNr">24836 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24837" class="LineNr">24837 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: output '"</span>) +<span id="L24838" class="LineNr">24838 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24839" class="LineNr">24839 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24840" class="LineNr">24840 </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="L24841" class="LineNr">24841 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24842" class="LineNr">24842 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24843" class="LineNr">24843 </span> <span class="subxComment"># never gets here</span> +<span id="L24844" class="LineNr">24844 </span> +<span id="L24845" class="LineNr">24845 </span><span class="Constant">$check-mu-length-stmt:error-invalid-output-type</span>: +<span id="L24846" class="LineNr">24846 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24847" class="LineNr">24847 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24848" class="LineNr">24848 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24849" class="LineNr">24849 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24850" class="LineNr">24850 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: output '"</span>) +<span id="L24851" class="LineNr">24851 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24852" class="LineNr">24852 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24853" class="LineNr">24853 </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="L24854" class="LineNr">24854 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24855" class="LineNr">24855 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24856" class="LineNr">24856 </span> <span class="subxComment"># never gets here</span> +<span id="L24857" class="LineNr">24857 </span> +<span id="L24858" class="LineNr">24858 </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="L24859" class="LineNr">24859 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24860" class="LineNr">24860 </span> 55/push-ebp +<span id="L24861" class="LineNr">24861 </span> 89/<- %ebp 4/r32/esp +<span id="L24862" class="LineNr">24862 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24863" class="LineNr">24863 </span> 50/push-eax +<span id="L24864" class="LineNr">24864 </span> 51/push-ecx +<span id="L24865" class="LineNr">24865 </span> 52/push-edx +<span id="L24866" class="LineNr">24866 </span> 53/push-ebx +<span id="L24867" class="LineNr">24867 </span> 56/push-esi +<span id="L24868" class="LineNr">24868 </span> 57/push-edi +<span id="L24869" class="LineNr">24869 </span> <span class="subxComment"># esi = stmt</span> +<span id="L24870" class="LineNr">24870 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L24871" class="LineNr">24871 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L24872" class="LineNr">24872 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L24873" class="LineNr">24873 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24874" class="LineNr">24874 </span><span class="Constant">$check-mu-compute-offset-stmt:check-no-inouts</span>: +<span id="L24875" class="LineNr">24875 </span> 3d/compare-eax-and 0/imm32 +<span id="L24876" class="LineNr">24876 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 +<span id="L24877" class="LineNr">24877 </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="L24878" class="LineNr">24878 </span> 89/<- %ecx 0/r32/eax +<span id="L24879" class="LineNr">24879 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> +<span id="L24880" class="LineNr">24880 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L24881" class="LineNr">24881 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24882" class="LineNr">24882 </span> 89/<- %ebx 0/r32/eax +<span id="L24883" class="LineNr">24883 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> +<span id="L24884" class="LineNr">24884 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24885" class="LineNr">24885 </span> { +<span id="L24886" class="LineNr">24886 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24887" class="LineNr">24887 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> +<span id="L24888" class="LineNr">24888 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24889" class="LineNr">24889 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-base-array-atom-type/disp32 +<span id="L24890" class="LineNr">24890 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 +<span id="L24891" class="LineNr">24891 </span> } +<span id="L24892" class="LineNr">24892 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-compound</span>: +<span id="L24893" class="LineNr">24893 </span> <span class="subxComment"># if type->left not addr or array, abort</span> +<span id="L24894" class="LineNr">24894 </span> { +<span id="L24895" class="LineNr">24895 </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="L24896" class="LineNr">24896 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24897" class="LineNr">24897 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24898" class="LineNr">24898 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24899" class="LineNr">24899 </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="L24900" class="LineNr">24900 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24901" class="LineNr">24901 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24902" class="LineNr">24902 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24903" class="LineNr">24903 </span> e9/jump $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 +<span id="L24904" class="LineNr">24904 </span> } +<span id="L24905" class="LineNr">24905 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> +<span id="L24906" class="LineNr">24906 </span> { +<span id="L24907" class="LineNr">24907 </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="L24908" class="LineNr">24908 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24909" class="LineNr">24909 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24910" class="LineNr">24910 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24911" class="LineNr">24911 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-addr</span>: +<span id="L24912" class="LineNr">24912 </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="L24913" class="LineNr">24913 </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="L24914" class="LineNr">24914 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24915" class="LineNr">24915 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24916" class="LineNr">24916 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 +<span id="L24917" class="LineNr">24917 </span> } +<span id="L24918" class="LineNr">24918 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> +<span id="L24919" class="LineNr">24919 </span> { +<span id="L24920" class="LineNr">24920 </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="L24921" class="LineNr">24921 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24922" class="LineNr">24922 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24923" class="LineNr">24923 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24924" class="LineNr">24924 </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="L24925" class="LineNr">24925 </span> 89/<- %ebx 0/r32/eax +<span id="L24926" class="LineNr">24926 </span> } +<span id="L24927" class="LineNr">24927 </span> <span class="subxH1Comment"># - check for 1 inout</span> +<span id="L24928" class="LineNr">24928 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L24929" class="LineNr">24929 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24930" class="LineNr">24930 </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="L24931" class="LineNr">24931 </span><span class="Constant">$check-mu-compute-offset-stmt:check-single-inout</span>: +<span id="L24932" class="LineNr">24932 </span> 3d/compare-eax-and 0/imm32 +<span id="L24933" class="LineNr">24933 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 +<span id="L24934" class="LineNr">24934 </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="L24935" class="LineNr">24935 </span> 89/<- %ecx 0/r32/eax +<span id="L24936" class="LineNr">24936 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> +<span id="L24937" class="LineNr">24937 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> +<span id="L24938" class="LineNr">24938 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24939" class="LineNr">24939 </span> 89/<- %edx 0/r32/eax +<span id="L24940" class="LineNr">24940 </span> <span class="subxComment"># index type must be a literal or int</span> +<span id="L24941" class="LineNr">24941 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24942" class="LineNr">24942 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 +<span id="L24943" class="LineNr">24943 </span> { +<span id="L24944" class="LineNr">24944 </span><span class="Constant">$check-mu-compute-offset-stmt:index-type-is-atom</span>: +<span id="L24945" class="LineNr">24945 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> +<span id="L24946" class="LineNr">24946 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24947" class="LineNr">24947 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24948" class="LineNr">24948 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L24949" class="LineNr">24949 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24950" class="LineNr">24950 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24951" class="LineNr">24951 </span> e9/jump $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 +<span id="L24952" class="LineNr">24952 </span> } +<span id="L24953" class="LineNr">24953 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L24954" class="LineNr">24954 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24955" class="LineNr">24955 </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="L24956" class="LineNr">24956 </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="L24957" class="LineNr">24957 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24958" class="LineNr">24958 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-inouts/disp32 +<span id="L24959" class="LineNr">24959 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L24960" class="LineNr">24960 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L24961" class="LineNr">24961 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24962" class="LineNr">24962 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24963" class="LineNr">24963 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-outputs/disp32 +<span id="L24964" class="LineNr">24964 </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="L24965" class="LineNr">24965 </span> 89/<- %edi 0/r32/eax +<span id="L24966" class="LineNr">24966 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L24967" class="LineNr">24967 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L24968" class="LineNr">24968 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24969" class="LineNr">24969 </span> 89/<- %edx 0/r32/eax +<span id="L24970" class="LineNr">24970 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24971" class="LineNr">24971 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 +<span id="L24972" class="LineNr">24972 </span> <span class="subxComment"># type must start with (offset ...)</span> +<span id="L24973" class="LineNr">24973 </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="L24974" class="LineNr">24974 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> +<span id="L24975" class="LineNr">24975 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24976" class="LineNr">24976 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 +<span id="L24977" class="LineNr">24977 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> +<span id="L24978" class="LineNr">24978 </span> (<a href='mu.subx.html#L27038'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L24979" class="LineNr">24979 </span> 89/<- %ebx 0/r32/eax +<span id="L24980" class="LineNr">24980 </span> (<a href='mu.subx.html#L27038'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L24981" class="LineNr">24981 </span> (<a href='mu.subx.html#L27097'>type-equal?</a> %ebx %eax) <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-compute-offset-stmt:error-bad-output-type/disp32 +<span id="L24984" class="LineNr">24984 </span> <span class="subxH1Comment"># - check for too many outputs</span> <span id="L24985" class="LineNr">24985 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24986" class="LineNr">24986 </span> 3d/compare-eax-and 0/imm32 -<span id="L24987" class="LineNr">24987 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-too-many-outputs/disp32 -<span id="L24988" class="LineNr">24988 </span><span class="Constant">$check-mu-copy-object-stmt:get-left</span>: -<span id="L24989" class="LineNr">24989 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L24990" class="LineNr">24990 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24991" class="LineNr">24991 </span> 89/<- %edi 0/r32/eax -<span id="L24992" class="LineNr">24992 </span> <span class="subxComment"># zero inouts</span> -<span id="L24993" class="LineNr">24993 </span> 3d/compare-eax-and 0/imm32 -<span id="L24994" class="LineNr">24994 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 -<span id="L24995" class="LineNr">24995 </span><span class="Constant">$check-mu-copy-object-stmt:get-src</span>: -<span id="L24996" class="LineNr">24996 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> -<span id="L24997" class="LineNr">24997 </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="L24998" class="LineNr">24998 </span> 89/<- %esi 0/r32/eax -<span id="L24999" class="LineNr">24999 </span> <span class="subxComment"># 1 inout</span> -<span id="L25000" class="LineNr">25000 </span> 3d/compare-eax-and 0/imm32 -<span id="L25001" class="LineNr">25001 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 -<span id="L25002" class="LineNr">25002 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L25003" class="LineNr">25003 </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="L25004" class="LineNr">25004 </span> 3d/compare-eax-and 0/imm32 -<span id="L25005" class="LineNr">25005 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 -<span id="L25006" class="LineNr">25006 </span><span class="Constant">$check-mu-copy-object-stmt:types</span>: -<span id="L25007" class="LineNr">25007 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> -<span id="L25008" class="LineNr">25008 </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="L25009" class="LineNr">25009 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25010" class="LineNr">25010 </span> 89/<- %ecx 0/r32/eax -<span id="L25011" class="LineNr">25011 </span> <span class="subxComment"># if (src->is-deref?) src-type = src-type->payload</span> -<span id="L25012" class="LineNr">25012 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L25013" class="LineNr">25013 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25014" class="LineNr">25014 </span> { -<span id="L25015" class="LineNr">25015 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25016" class="LineNr">25016 </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="L25017" class="LineNr">25017 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> -<span id="L25018" class="LineNr">25018 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25019" class="LineNr">25019 </span> { -<span id="L25020" class="LineNr">25020 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25021" class="LineNr">25021 </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="L25022" class="LineNr">25022 </span> } -<span id="L25023" class="LineNr">25023 </span> 89/<- %ecx 0/r32/eax -<span id="L25024" class="LineNr">25024 </span> } -<span id="L25025" class="LineNr">25025 </span> <span class="subxComment"># if src-type is not addr, abort</span> -<span id="L25026" class="LineNr">25026 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L25027" class="LineNr">25027 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25028" class="LineNr">25028 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-invalid-types/disp32 -<span id="L25029" class="LineNr">25029 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> -<span id="L25030" class="LineNr">25030 </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="L25031" class="LineNr">25031 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25032" class="LineNr">25032 </span> 89/<- %ebx 0/r32/eax -<span id="L25033" class="LineNr">25033 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> -<span id="L25034" class="LineNr">25034 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L25035" class="LineNr">25035 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25036" class="LineNr">25036 </span> { -<span id="L25037" class="LineNr">25037 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25038" class="LineNr">25038 </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="L25039" class="LineNr">25039 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> -<span id="L25040" class="LineNr">25040 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25041" class="LineNr">25041 </span> { -<span id="L25042" class="LineNr">25042 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25043" class="LineNr">25043 </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="L25044" class="LineNr">25044 </span> } -<span id="L25045" class="LineNr">25045 </span> 89/<- %ebx 0/r32/eax -<span id="L25046" class="LineNr">25046 </span> } -<span id="L25047" class="LineNr">25047 </span> <span class="subxComment"># if (dest-type != src-type) abort</span> -<span id="L25048" class="LineNr">25048 </span> (<a href='mu.subx.html#L26922'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> -<span id="L25049" class="LineNr">25049 </span> 3d/compare-eax-and 0/imm32 -<span id="L25050" class="LineNr">25050 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-invalid-types/disp32 -<span id="L25051" class="LineNr">25051 </span><span class="Constant">$check-mu-copy-object-stmt:end</span>: -<span id="L25052" class="LineNr">25052 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25053" class="LineNr">25053 </span> 5f/pop-to-edi -<span id="L25054" class="LineNr">25054 </span> 5e/pop-to-esi -<span id="L25055" class="LineNr">25055 </span> 5b/pop-to-ebx -<span id="L25056" class="LineNr">25056 </span> 59/pop-to-ecx -<span id="L25057" class="LineNr">25057 </span> 58/pop-to-eax -<span id="L25058" class="LineNr">25058 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25059" class="LineNr">25059 </span> 89/<- %esp 5/r32/ebp -<span id="L25060" class="LineNr">25060 </span> 5d/pop-to-ebp -<span id="L25061" class="LineNr">25061 </span> c3/return -<span id="L25062" class="LineNr">25062 </span> -<span id="L25063" class="LineNr">25063 </span><span class="Constant">$check-mu-copy-object-stmt:error-incorrect-inouts</span>: -<span id="L25064" class="LineNr">25064 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25065" class="LineNr">25065 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25066" class="LineNr">25066 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25067" class="LineNr">25067 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25068" class="LineNr">25068 </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="L25069" class="LineNr">25069 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25070" class="LineNr">25070 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25071" class="LineNr">25071 </span> <span class="subxComment"># never gets here</span> -<span id="L25072" class="LineNr">25072 </span> -<span id="L25073" class="LineNr">25073 </span><span class="Constant">$check-mu-copy-object-stmt:error-too-many-outputs</span>: -<span id="L25074" class="LineNr">25074 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25075" class="LineNr">25075 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25076" class="LineNr">25076 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25077" class="LineNr">25077 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25078" class="LineNr">25078 </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="L25079" class="LineNr">25079 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25080" class="LineNr">25080 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25081" class="LineNr">25081 </span> <span class="subxComment"># never gets here</span> -<span id="L25082" class="LineNr">25082 </span> -<span id="L25083" class="LineNr">25083 </span><span class="Constant">$check-mu-copy-object-stmt:error-invalid-types</span>: -<span id="L25084" class="LineNr">25084 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25085" class="LineNr">25085 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25086" class="LineNr">25086 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25087" class="LineNr">25087 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25088" class="LineNr">25088 </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="L25089" class="LineNr">25089 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25090" class="LineNr">25090 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25091" class="LineNr">25091 </span> <span class="subxComment"># never gets here</span> -<span id="L25092" class="LineNr">25092 </span> -<span id="L25093" class="LineNr">25093 </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="L25094" class="LineNr">25094 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25095" class="LineNr">25095 </span> 55/push-ebp -<span id="L25096" class="LineNr">25096 </span> 89/<- %ebp 4/r32/esp -<span id="L25097" class="LineNr">25097 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25098" class="LineNr">25098 </span> 50/push-eax -<span id="L25099" class="LineNr">25099 </span> 51/push-ecx -<span id="L25100" class="LineNr">25100 </span> 53/push-ebx -<span id="L25101" class="LineNr">25101 </span> 56/push-esi -<span id="L25102" class="LineNr">25102 </span> 57/push-edi -<span id="L25103" class="LineNr">25103 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25104" class="LineNr">25104 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25105" class="LineNr">25105 </span><span class="Constant">$check-mu-clear-object-stmt:check-for-output</span>: -<span id="L25106" class="LineNr">25106 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L25107" class="LineNr">25107 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25108" class="LineNr">25108 </span> 3d/compare-eax-and 0/imm32 -<span id="L25109" class="LineNr">25109 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-too-many-outputs/disp32 -<span id="L25110" class="LineNr">25110 </span><span class="Constant">$check-mu-clear-object-stmt:get-left</span>: -<span id="L25111" class="LineNr">25111 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L25112" class="LineNr">25112 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25113" class="LineNr">25113 </span> 89/<- %edi 0/r32/eax -<span id="L25114" class="LineNr">25114 </span> <span class="subxComment"># zero inouts</span> -<span id="L25115" class="LineNr">25115 </span> 3d/compare-eax-and 0/imm32 -<span id="L25116" class="LineNr">25116 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 -<span id="L25117" class="LineNr">25117 </span><span class="Constant">$check-mu-clear-object-stmt:get-src</span>: -<span id="L25118" class="LineNr">25118 </span> <span class="subxComment"># > 1 inout</span> -<span id="L25119" class="LineNr">25119 </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="L25120" class="LineNr">25120 </span> 3d/compare-eax-and 0/imm32 -<span id="L25121" class="LineNr">25121 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 -<span id="L25122" class="LineNr">25122 </span><span class="Constant">$check-mu-clear-object-stmt:types</span>: -<span id="L25123" class="LineNr">25123 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> -<span id="L25124" class="LineNr">25124 </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="L25125" class="LineNr">25125 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25126" class="LineNr">25126 </span> 89/<- %ecx 0/r32/eax -<span id="L25127" class="LineNr">25127 </span> <span class="subxComment"># if (src->is-deref?) src-type = src-type->payload</span> -<span id="L25128" class="LineNr">25128 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L25129" class="LineNr">25129 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25130" class="LineNr">25130 </span> { -<span id="L25131" class="LineNr">25131 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25132" class="LineNr">25132 </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="L25133" class="LineNr">25133 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> -<span id="L25134" class="LineNr">25134 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25135" class="LineNr">25135 </span> { -<span id="L25136" class="LineNr">25136 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25137" class="LineNr">25137 </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="L25138" class="LineNr">25138 </span> } -<span id="L25139" class="LineNr">25139 </span> 89/<- %ecx 0/r32/eax -<span id="L25140" class="LineNr">25140 </span> } -<span id="L25141" class="LineNr">25141 </span> <span class="subxComment"># if src-type is not addr, abort</span> -<span id="L25142" class="LineNr">25142 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L25143" class="LineNr">25143 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25144" class="LineNr">25144 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-invalid-type/disp32 -<span id="L25145" class="LineNr">25145 </span><span class="Constant">$check-mu-clear-object-stmt:end</span>: -<span id="L25146" class="LineNr">25146 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25147" class="LineNr">25147 </span> 5f/pop-to-edi -<span id="L25148" class="LineNr">25148 </span> 5e/pop-to-esi -<span id="L25149" class="LineNr">25149 </span> 5b/pop-to-ebx -<span id="L25150" class="LineNr">25150 </span> 59/pop-to-ecx -<span id="L25151" class="LineNr">25151 </span> 58/pop-to-eax -<span id="L25152" class="LineNr">25152 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25153" class="LineNr">25153 </span> 89/<- %esp 5/r32/ebp -<span id="L25154" class="LineNr">25154 </span> 5d/pop-to-ebp -<span id="L25155" class="LineNr">25155 </span> c3/return -<span id="L25156" class="LineNr">25156 </span> -<span id="L25157" class="LineNr">25157 </span><span class="Constant">$check-mu-clear-object-stmt:error-incorrect-inouts</span>: -<span id="L25158" class="LineNr">25158 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25159" class="LineNr">25159 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25160" class="LineNr">25160 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25161" class="LineNr">25161 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25162" class="LineNr">25162 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'clear-object' must have a single inout\n"</span>) -<span id="L25163" class="LineNr">25163 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25164" class="LineNr">25164 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25165" class="LineNr">25165 </span> <span class="subxComment"># never gets here</span> -<span id="L25166" class="LineNr">25166 </span> -<span id="L25167" class="LineNr">25167 </span><span class="Constant">$check-mu-clear-object-stmt:error-too-many-outputs</span>: -<span id="L25168" class="LineNr">25168 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25169" class="LineNr">25169 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25170" class="LineNr">25170 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25171" class="LineNr">25171 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25172" class="LineNr">25172 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'clear-object' must not have any outputs\n"</span>) -<span id="L25173" class="LineNr">25173 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25174" class="LineNr">25174 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25175" class="LineNr">25175 </span> <span class="subxComment"># never gets here</span> -<span id="L25176" class="LineNr">25176 </span> -<span id="L25177" class="LineNr">25177 </span><span class="Constant">$check-mu-clear-object-stmt:error-invalid-type</span>: -<span id="L25178" class="LineNr">25178 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25179" class="LineNr">25179 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25180" class="LineNr">25180 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25181" class="LineNr">25181 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25182" class="LineNr">25182 </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="L25183" class="LineNr">25183 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25184" class="LineNr">25184 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25185" class="LineNr">25185 </span> <span class="subxComment"># never gets here</span> -<span id="L25186" class="LineNr">25186 </span> -<span id="L25187" class="LineNr">25187 </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="L25188" class="LineNr">25188 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25189" class="LineNr">25189 </span> 55/push-ebp -<span id="L25190" class="LineNr">25190 </span> 89/<- %ebp 4/r32/esp -<span id="L25191" class="LineNr">25191 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25192" class="LineNr">25192 </span> 50/push-eax -<span id="L25193" class="LineNr">25193 </span> 53/push-ebx -<span id="L25194" class="LineNr">25194 </span> 56/push-esi -<span id="L25195" class="LineNr">25195 </span> 57/push-edi -<span id="L25196" class="LineNr">25196 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25197" class="LineNr">25197 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25198" class="LineNr">25198 </span><span class="Constant">$check-mu-allocate-stmt:check-for-output</span>: -<span id="L25199" class="LineNr">25199 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L25200" class="LineNr">25200 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25201" class="LineNr">25201 </span> 3d/compare-eax-and 0/imm32 -<span id="L25202" class="LineNr">25202 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-too-many-outputs/disp32 -<span id="L25203" class="LineNr">25203 </span><span class="Constant">$check-mu-allocate-stmt:get-target</span>: -<span id="L25204" class="LineNr">25204 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L25205" class="LineNr">25205 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25206" class="LineNr">25206 </span> 89/<- %edi 0/r32/eax -<span id="L25207" class="LineNr">25207 </span> <span class="subxComment"># zero inouts</span> -<span id="L25208" class="LineNr">25208 </span> 3d/compare-eax-and 0/imm32 -<span id="L25209" class="LineNr">25209 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 -<span id="L25210" class="LineNr">25210 </span> <span class="subxComment"># > 1 inouts</span> -<span id="L25211" class="LineNr">25211 </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="L25212" class="LineNr">25212 </span> 3d/compare-eax-and 0/imm32 -<span id="L25213" class="LineNr">25213 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 -<span id="L25214" class="LineNr">25214 </span><span class="Constant">$check-mu-allocate-stmt:check-type</span>: -<span id="L25215" class="LineNr">25215 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> -<span id="L25216" class="LineNr">25216 </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="L25217" class="LineNr">25217 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25218" class="LineNr">25218 </span> 89/<- %ebx 0/r32/eax -<span id="L25219" class="LineNr">25219 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> -<span id="L25220" class="LineNr">25220 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L25221" class="LineNr">25221 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25222" class="LineNr">25222 </span> { -<span id="L25223" class="LineNr">25223 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25224" class="LineNr">25224 </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="L25225" class="LineNr">25225 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> -<span id="L25226" class="LineNr">25226 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25227" class="LineNr">25227 </span> { -<span id="L25228" class="LineNr">25228 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25229" class="LineNr">25229 </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="L25230" class="LineNr">25230 </span> } -<span id="L25231" class="LineNr">25231 </span> 89/<- %ebx 0/r32/eax -<span id="L25232" class="LineNr">25232 </span> } -<span id="L25233" class="LineNr">25233 </span> <span class="subxComment"># if target-type is not addr, abort</span> -<span id="L25234" class="LineNr">25234 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25235" class="LineNr">25235 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25236" class="LineNr">25236 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 -<span id="L25237" class="LineNr">25237 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> -<span id="L25238" class="LineNr">25238 </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="L25239" class="LineNr">25239 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25240" class="LineNr">25240 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-invalid-type/disp32 -<span id="L25241" class="LineNr">25241 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> -<span id="L25242" class="LineNr">25242 </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="L25243" class="LineNr">25243 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> -<span id="L25244" class="LineNr">25244 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25245" class="LineNr">25245 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 -<span id="L25246" class="LineNr">25246 </span><span class="Constant">$check-mu-allocate-stmt:end</span>: -<span id="L25247" class="LineNr">25247 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25248" class="LineNr">25248 </span> 5f/pop-to-edi -<span id="L25249" class="LineNr">25249 </span> 5e/pop-to-esi -<span id="L25250" class="LineNr">25250 </span> 5b/pop-to-ebx -<span id="L25251" class="LineNr">25251 </span> 58/pop-to-eax -<span id="L25252" class="LineNr">25252 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25253" class="LineNr">25253 </span> 89/<- %esp 5/r32/ebp -<span id="L25254" class="LineNr">25254 </span> 5d/pop-to-ebp -<span id="L25255" class="LineNr">25255 </span> c3/return -<span id="L25256" class="LineNr">25256 </span> -<span id="L25257" class="LineNr">25257 </span><span class="Constant">$check-mu-allocate-stmt:error-incorrect-inouts</span>: -<span id="L25258" class="LineNr">25258 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25259" class="LineNr">25259 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25260" class="LineNr">25260 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25261" class="LineNr">25261 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25262" class="LineNr">25262 </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="L25263" class="LineNr">25263 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25264" class="LineNr">25264 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25265" class="LineNr">25265 </span> <span class="subxComment"># never gets here</span> -<span id="L25266" class="LineNr">25266 </span> -<span id="L25267" class="LineNr">25267 </span><span class="Constant">$check-mu-allocate-stmt:error-too-many-outputs</span>: -<span id="L25268" class="LineNr">25268 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25269" class="LineNr">25269 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25270" class="LineNr">25270 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25271" class="LineNr">25271 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25272" class="LineNr">25272 </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="L25273" class="LineNr">25273 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25274" class="LineNr">25274 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25275" class="LineNr">25275 </span> <span class="subxComment"># never gets here</span> -<span id="L25276" class="LineNr">25276 </span> -<span id="L25277" class="LineNr">25277 </span><span class="Constant">$check-mu-allocate-stmt:error-invalid-type</span>: -<span id="L25278" class="LineNr">25278 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25279" class="LineNr">25279 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25280" class="LineNr">25280 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25281" class="LineNr">25281 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25282" class="LineNr">25282 </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="L25283" class="LineNr">25283 </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="L25284" class="LineNr">25284 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25285" class="LineNr">25285 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25286" class="LineNr">25286 </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="L25287" class="LineNr">25287 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25288" class="LineNr">25288 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25289" class="LineNr">25289 </span> <span class="subxComment"># never gets here</span> -<span id="L25290" class="LineNr">25290 </span> -<span id="L25291" class="LineNr">25291 </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="L25292" class="LineNr">25292 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25293" class="LineNr">25293 </span> 55/push-ebp -<span id="L25294" class="LineNr">25294 </span> 89/<- %ebp 4/r32/esp -<span id="L25295" class="LineNr">25295 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25296" class="LineNr">25296 </span> 50/push-eax -<span id="L25297" class="LineNr">25297 </span> 53/push-ebx -<span id="L25298" class="LineNr">25298 </span> 56/push-esi -<span id="L25299" class="LineNr">25299 </span> 57/push-edi -<span id="L25300" class="LineNr">25300 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25301" class="LineNr">25301 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25302" class="LineNr">25302 </span><span class="Constant">$check-mu-populate-stmt:check-for-output</span>: -<span id="L25303" class="LineNr">25303 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L25304" class="LineNr">25304 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25305" class="LineNr">25305 </span> 3d/compare-eax-and 0/imm32 -<span id="L25306" class="LineNr">25306 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-too-many-outputs/disp32 -<span id="L25307" class="LineNr">25307 </span><span class="Constant">$check-mu-populate-stmt:get-target</span>: -<span id="L25308" class="LineNr">25308 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L25309" class="LineNr">25309 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25310" class="LineNr">25310 </span> 89/<- %edi 0/r32/eax -<span id="L25311" class="LineNr">25311 </span> <span class="subxComment"># zero inouts</span> -<span id="L25312" class="LineNr">25312 </span> 3d/compare-eax-and 0/imm32 -<span id="L25313" class="LineNr">25313 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 -<span id="L25314" class="LineNr">25314 </span><span class="Constant">$check-mu-populate-stmt:get-length</span>: -<span id="L25315" class="LineNr">25315 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> -<span id="L25316" class="LineNr">25316 </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="L25317" class="LineNr">25317 </span> 89/<- %esi 0/r32/eax -<span id="L25318" class="LineNr">25318 </span> <span class="subxComment"># 1 inout</span> -<span id="L25319" class="LineNr">25319 </span> 3d/compare-eax-and 0/imm32 -<span id="L25320" class="LineNr">25320 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 -<span id="L25321" class="LineNr">25321 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L25322" class="LineNr">25322 </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="L25323" class="LineNr">25323 </span> 3d/compare-eax-and 0/imm32 -<span id="L25324" class="LineNr">25324 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-incorrect-inouts/disp32 -<span id="L25325" class="LineNr">25325 </span><span class="Constant">$check-mu-populate-stmt:check-target-type</span>: -<span id="L25326" class="LineNr">25326 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> -<span id="L25327" class="LineNr">25327 </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="L25328" class="LineNr">25328 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25329" class="LineNr">25329 </span> 89/<- %ebx 0/r32/eax -<span id="L25330" class="LineNr">25330 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-deref</span>: -<span id="L25331" class="LineNr">25331 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> -<span id="L25332" class="LineNr">25332 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L25333" class="LineNr">25333 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25334" class="LineNr">25334 </span> { -<span id="L25335" class="LineNr">25335 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25336" class="LineNr">25336 </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="L25337" class="LineNr">25337 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> -<span id="L25338" class="LineNr">25338 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25339" class="LineNr">25339 </span> { -<span id="L25340" class="LineNr">25340 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25341" class="LineNr">25341 </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="L25342" class="LineNr">25342 </span> } -<span id="L25343" class="LineNr">25343 </span> 89/<- %ebx 0/r32/eax -<span id="L25344" class="LineNr">25344 </span> } -<span id="L25345" class="LineNr">25345 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-addr</span>: -<span id="L25346" class="LineNr">25346 </span> <span class="subxComment"># if target-type is not addr, abort</span> -<span id="L25347" class="LineNr">25347 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25348" class="LineNr">25348 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25349" class="LineNr">25349 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L25350" class="LineNr">25350 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> -<span id="L25351" class="LineNr">25351 </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="L25352" class="LineNr">25352 </span> 89/<- %ebx 0/r32/eax -<span id="L25353" class="LineNr">25353 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25354" class="LineNr">25354 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L25355" class="LineNr">25355 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-handle</span>: -<span id="L25356" class="LineNr">25356 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> -<span id="L25357" class="LineNr">25357 </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="L25358" class="LineNr">25358 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> -<span id="L25359" class="LineNr">25359 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25360" class="LineNr">25360 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L25361" class="LineNr">25361 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> -<span id="L25362" class="LineNr">25362 </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="L25363" class="LineNr">25363 </span> 89/<- %ebx 0/r32/eax -<span id="L25364" class="LineNr">25364 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25365" class="LineNr">25365 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L25366" class="LineNr">25366 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-array</span>: -<span id="L25367" class="LineNr">25367 </span> <span class="subxComment"># if target-type->right->right->left is not array, abort</span> -<span id="L25368" class="LineNr">25368 </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="L25369" class="LineNr">25369 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L25370" class="LineNr">25370 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25371" class="LineNr">25371 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L25372" class="LineNr">25372 </span><span class="Constant">$check-mu-populate-stmt:check-length-type</span>: -<span id="L25373" class="LineNr">25373 </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="L25374" class="LineNr">25374 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25375" class="LineNr">25375 </span> 89/<- %ebx 0/r32/eax -<span id="L25376" class="LineNr">25376 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> -<span id="L25377" class="LineNr">25377 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25378" class="LineNr">25378 </span> 75/jump-if-!= $check-mu-populate-stmt:end/disp8 -<span id="L25379" class="LineNr">25379 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> -<span id="L25380" class="LineNr">25380 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25381" class="LineNr">25381 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-length-type/disp32 -<span id="L25382" class="LineNr">25382 </span><span class="Constant">$check-mu-populate-stmt:end</span>: -<span id="L25383" class="LineNr">25383 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25384" class="LineNr">25384 </span> 5f/pop-to-edi -<span id="L25385" class="LineNr">25385 </span> 5e/pop-to-esi -<span id="L25386" class="LineNr">25386 </span> 5b/pop-to-ebx -<span id="L25387" class="LineNr">25387 </span> 58/pop-to-eax -<span id="L25388" class="LineNr">25388 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25389" class="LineNr">25389 </span> 89/<- %esp 5/r32/ebp -<span id="L25390" class="LineNr">25390 </span> 5d/pop-to-ebp -<span id="L25391" class="LineNr">25391 </span> c3/return -<span id="L25392" class="LineNr">25392 </span> -<span id="L25393" class="LineNr">25393 </span><span class="Constant">$check-mu-populate-stmt:error-incorrect-inouts</span>: -<span id="L25394" class="LineNr">25394 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25395" class="LineNr">25395 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25396" class="LineNr">25396 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25397" class="LineNr">25397 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25398" class="LineNr">25398 </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="L25399" class="LineNr">25399 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25400" class="LineNr">25400 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25401" class="LineNr">25401 </span> <span class="subxComment"># never gets here</span> -<span id="L25402" class="LineNr">25402 </span> -<span id="L25403" class="LineNr">25403 </span><span class="Constant">$check-mu-populate-stmt:error-too-many-outputs</span>: -<span id="L25404" class="LineNr">25404 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25405" class="LineNr">25405 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25406" class="LineNr">25406 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25407" class="LineNr">25407 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25408" class="LineNr">25408 </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="L25409" class="LineNr">25409 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25410" class="LineNr">25410 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25411" class="LineNr">25411 </span> <span class="subxComment"># never gets here</span> -<span id="L25412" class="LineNr">25412 </span> -<span id="L25413" class="LineNr">25413 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-target-type</span>: -<span id="L25414" class="LineNr">25414 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25415" class="LineNr">25415 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25416" class="LineNr">25416 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25417" class="LineNr">25417 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25418" class="LineNr">25418 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: first inout '"</span>) -<span id="L25419" class="LineNr">25419 </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="L25420" class="LineNr">25420 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25421" class="LineNr">25421 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25422" class="LineNr">25422 </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="L25423" class="LineNr">25423 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25424" class="LineNr">25424 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25425" class="LineNr">25425 </span> <span class="subxComment"># never gets here</span> -<span id="L25426" class="LineNr">25426 </span> -<span id="L25427" class="LineNr">25427 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-length-type</span>: -<span id="L25428" class="LineNr">25428 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25429" class="LineNr">25429 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25430" class="LineNr">25430 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25431" class="LineNr">25431 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25432" class="LineNr">25432 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: second inout '"</span>) -<span id="L25433" class="LineNr">25433 </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="L25434" class="LineNr">25434 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25435" class="LineNr">25435 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25436" class="LineNr">25436 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) -<span id="L25437" class="LineNr">25437 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25438" class="LineNr">25438 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25439" class="LineNr">25439 </span> <span class="subxComment"># never gets here</span> -<span id="L25440" class="LineNr">25440 </span> -<span id="L25441" class="LineNr">25441 </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="L25442" class="LineNr">25442 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25443" class="LineNr">25443 </span> 55/push-ebp -<span id="L25444" class="LineNr">25444 </span> 89/<- %ebp 4/r32/esp -<span id="L25445" class="LineNr">25445 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25446" class="LineNr">25446 </span> 50/push-eax -<span id="L25447" class="LineNr">25447 </span> 53/push-ebx -<span id="L25448" class="LineNr">25448 </span> 56/push-esi -<span id="L25449" class="LineNr">25449 </span> 57/push-edi -<span id="L25450" class="LineNr">25450 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25451" class="LineNr">25451 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25452" class="LineNr">25452 </span><span class="Constant">$check-mu-populate-stream-stmt:check-for-output</span>: -<span id="L25453" class="LineNr">25453 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L25454" class="LineNr">25454 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25455" class="LineNr">25455 </span> 3d/compare-eax-and 0/imm32 -<span id="L25456" class="LineNr">25456 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-too-many-outputs/disp32 -<span id="L25457" class="LineNr">25457 </span><span class="Constant">$check-mu-populate-stream-stmt:get-target</span>: -<span id="L25458" class="LineNr">25458 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L25459" class="LineNr">25459 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25460" class="LineNr">25460 </span> 89/<- %edi 0/r32/eax -<span id="L25461" class="LineNr">25461 </span> <span class="subxComment"># zero inouts</span> -<span id="L25462" class="LineNr">25462 </span> 3d/compare-eax-and 0/imm32 -<span id="L25463" class="LineNr">25463 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 -<span id="L25464" class="LineNr">25464 </span><span class="Constant">$check-mu-populate-stream-stmt:get-length</span>: -<span id="L25465" class="LineNr">25465 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> -<span id="L25466" class="LineNr">25466 </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="L25467" class="LineNr">25467 </span> 89/<- %esi 0/r32/eax -<span id="L25468" class="LineNr">25468 </span> <span class="subxComment"># 1 inout</span> -<span id="L25469" class="LineNr">25469 </span> 3d/compare-eax-and 0/imm32 -<span id="L25470" class="LineNr">25470 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 -<span id="L25471" class="LineNr">25471 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L25472" class="LineNr">25472 </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="L25473" class="LineNr">25473 </span> 3d/compare-eax-and 0/imm32 -<span id="L25474" class="LineNr">25474 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 -<span id="L25475" class="LineNr">25475 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type</span>: -<span id="L25476" class="LineNr">25476 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> -<span id="L25477" class="LineNr">25477 </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="L25478" class="LineNr">25478 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25479" class="LineNr">25479 </span> 89/<- %ebx 0/r32/eax -<span id="L25480" class="LineNr">25480 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-deref</span>: -<span id="L25481" class="LineNr">25481 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> -<span id="L25482" class="LineNr">25482 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L25483" class="LineNr">25483 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25484" class="LineNr">25484 </span> { -<span id="L25485" class="LineNr">25485 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25486" class="LineNr">25486 </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="L25487" class="LineNr">25487 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> -<span id="L25488" class="LineNr">25488 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25489" class="LineNr">25489 </span> { -<span id="L25490" class="LineNr">25490 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25491" class="LineNr">25491 </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="L25492" class="LineNr">25492 </span> } -<span id="L25493" class="LineNr">25493 </span> 89/<- %ebx 0/r32/eax -<span id="L25494" class="LineNr">25494 </span> } -<span id="L25495" class="LineNr">25495 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-addr</span>: -<span id="L25496" class="LineNr">25496 </span> <span class="subxComment"># if target-type is not addr, abort</span> -<span id="L25497" class="LineNr">25497 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25498" class="LineNr">25498 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25499" class="LineNr">25499 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L25500" class="LineNr">25500 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> -<span id="L25501" class="LineNr">25501 </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="L25502" class="LineNr">25502 </span> 89/<- %ebx 0/r32/eax -<span id="L25503" class="LineNr">25503 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25504" class="LineNr">25504 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L25505" class="LineNr">25505 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-handle</span>: -<span id="L25506" class="LineNr">25506 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> -<span id="L25507" class="LineNr">25507 </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="L25508" class="LineNr">25508 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> -<span id="L25509" class="LineNr">25509 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25510" class="LineNr">25510 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L25511" class="LineNr">25511 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> -<span id="L25512" class="LineNr">25512 </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="L25513" class="LineNr">25513 </span> 89/<- %ebx 0/r32/eax -<span id="L25514" class="LineNr">25514 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25515" class="LineNr">25515 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L25516" class="LineNr">25516 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-stream</span>: -<span id="L25517" class="LineNr">25517 </span> <span class="subxComment"># if target-type->right->right->left is not stream, abort</span> -<span id="L25518" class="LineNr">25518 </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="L25519" class="LineNr">25519 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> -<span id="L25520" class="LineNr">25520 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25521" class="LineNr">25521 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L25522" class="LineNr">25522 </span><span class="Constant">$check-mu-populate-stream-stmt:check-length-type</span>: -<span id="L25523" class="LineNr">25523 </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="L25524" class="LineNr">25524 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25525" class="LineNr">25525 </span> 89/<- %ebx 0/r32/eax -<span id="L25526" class="LineNr">25526 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> -<span id="L25527" class="LineNr">25527 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25528" class="LineNr">25528 </span> 75/jump-if-!= $check-mu-populate-stream-stmt:end/disp8 -<span id="L25529" class="LineNr">25529 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> -<span id="L25530" class="LineNr">25530 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25531" class="LineNr">25531 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-length-type/disp32 -<span id="L25532" class="LineNr">25532 </span><span class="Constant">$check-mu-populate-stream-stmt:end</span>: -<span id="L25533" class="LineNr">25533 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25534" class="LineNr">25534 </span> 5f/pop-to-edi -<span id="L25535" class="LineNr">25535 </span> 5e/pop-to-esi -<span id="L25536" class="LineNr">25536 </span> 5b/pop-to-ebx -<span id="L25537" class="LineNr">25537 </span> 58/pop-to-eax -<span id="L25538" class="LineNr">25538 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25539" class="LineNr">25539 </span> 89/<- %esp 5/r32/ebp -<span id="L25540" class="LineNr">25540 </span> 5d/pop-to-ebp -<span id="L25541" class="LineNr">25541 </span> c3/return -<span id="L25542" class="LineNr">25542 </span> -<span id="L25543" class="LineNr">25543 </span><span class="Constant">$check-mu-populate-stream-stmt:error-incorrect-inouts</span>: -<span id="L25544" class="LineNr">25544 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25545" class="LineNr">25545 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25546" class="LineNr">25546 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25547" class="LineNr">25547 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25548" class="LineNr">25548 </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="L25549" class="LineNr">25549 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25550" class="LineNr">25550 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25551" class="LineNr">25551 </span> <span class="subxComment"># never gets here</span> -<span id="L25552" class="LineNr">25552 </span> -<span id="L25553" class="LineNr">25553 </span><span class="Constant">$check-mu-populate-stream-stmt:error-too-many-outputs</span>: -<span id="L25554" class="LineNr">25554 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25555" class="LineNr">25555 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25556" class="LineNr">25556 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25557" class="LineNr">25557 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25558" class="LineNr">25558 </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="L25559" class="LineNr">25559 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25560" class="LineNr">25560 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25561" class="LineNr">25561 </span> <span class="subxComment"># never gets here</span> -<span id="L25562" class="LineNr">25562 </span> -<span id="L25563" class="LineNr">25563 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-target-type</span>: -<span id="L25564" class="LineNr">25564 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25565" class="LineNr">25565 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25566" class="LineNr">25566 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25567" class="LineNr">25567 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25568" class="LineNr">25568 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: first inout '"</span>) -<span id="L25569" class="LineNr">25569 </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="L25570" class="LineNr">25570 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25571" class="LineNr">25571 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25572" class="LineNr">25572 </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="L25573" class="LineNr">25573 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25574" class="LineNr">25574 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25575" class="LineNr">25575 </span> <span class="subxComment"># never gets here</span> -<span id="L25576" class="LineNr">25576 </span> -<span id="L25577" class="LineNr">25577 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-length-type</span>: -<span id="L25578" class="LineNr">25578 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25579" class="LineNr">25579 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25580" class="LineNr">25580 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25581" class="LineNr">25581 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25582" class="LineNr">25582 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: second inout '"</span>) -<span id="L25583" class="LineNr">25583 </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="L25584" class="LineNr">25584 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25585" class="LineNr">25585 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25586" class="LineNr">25586 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) -<span id="L25587" class="LineNr">25587 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25588" class="LineNr">25588 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25589" class="LineNr">25589 </span> <span class="subxComment"># never gets here</span> -<span id="L25590" class="LineNr">25590 </span> -<span id="L25591" class="LineNr">25591 </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="L25592" class="LineNr">25592 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25593" class="LineNr">25593 </span> 55/push-ebp -<span id="L25594" class="LineNr">25594 </span> 89/<- %ebp 4/r32/esp -<span id="L25595" class="LineNr">25595 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25596" class="LineNr">25596 </span> 50/push-eax -<span id="L25597" class="LineNr">25597 </span> 51/push-ecx -<span id="L25598" class="LineNr">25598 </span> 52/push-edx -<span id="L25599" class="LineNr">25599 </span> 53/push-ebx -<span id="L25600" class="LineNr">25600 </span> 56/push-esi -<span id="L25601" class="LineNr">25601 </span> 57/push-edi -<span id="L25602" class="LineNr">25602 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25603" class="LineNr">25603 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25604" class="LineNr">25604 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L25605" class="LineNr">25605 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L25606" class="LineNr">25606 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25607" class="LineNr">25607 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-no-inouts</span>: -<span id="L25608" class="LineNr">25608 </span> 3d/compare-eax-and 0/imm32 -<span id="L25609" class="LineNr">25609 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 -<span id="L25610" class="LineNr">25610 </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="L25611" class="LineNr">25611 </span> 89/<- %ecx 0/r32/eax -<span id="L25612" class="LineNr">25612 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> -<span id="L25613" class="LineNr">25613 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L25614" class="LineNr">25614 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25615" class="LineNr">25615 </span> 89/<- %ebx 0/r32/eax -<span id="L25616" class="LineNr">25616 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-compound</span>: -<span id="L25617" class="LineNr">25617 </span> <span class="subxComment"># if base-type is an atom, abort</span> -<span id="L25618" class="LineNr">25618 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25619" class="LineNr">25619 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 -<span id="L25620" class="LineNr">25620 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr</span>: -<span id="L25621" class="LineNr">25621 </span> <span class="subxComment"># if type->left not addr, abort</span> -<span id="L25622" class="LineNr">25622 </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="L25623" class="LineNr">25623 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L25624" class="LineNr">25624 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25625" class="LineNr">25625 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 -<span id="L25626" class="LineNr">25626 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr-to-stream</span>: -<span id="L25627" class="LineNr">25627 </span> <span class="subxComment"># base-type = base-type->right</span> -<span id="L25628" class="LineNr">25628 </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="L25629" class="LineNr">25629 </span> 89/<- %ebx 0/r32/eax -<span id="L25630" class="LineNr">25630 </span> <span class="subxComment"># ensure base-type->left == stream</span> -<span id="L25631" class="LineNr">25631 </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="L25632" class="LineNr">25632 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> -<span id="L25633" class="LineNr">25633 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25634" class="LineNr">25634 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 -<span id="L25635" class="LineNr">25635 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> -<span id="L25636" class="LineNr">25636 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L25637" class="LineNr">25637 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25638" class="LineNr">25638 </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="L25639" class="LineNr">25639 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-single-inout</span>: -<span id="L25640" class="LineNr">25640 </span> 3d/compare-eax-and 0/imm32 -<span id="L25641" class="LineNr">25641 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 -<span id="L25642" class="LineNr">25642 </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="L25643" class="LineNr">25643 </span> 89/<- %ecx 0/r32/eax -<span id="L25644" class="LineNr">25644 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> -<span id="L25645" class="LineNr">25645 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25646" class="LineNr">25646 </span> 89/<- %edx 0/r32/eax -<span id="L25647" class="LineNr">25647 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> -<span id="L25648" class="LineNr">25648 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-is-compound</span>: -<span id="L25649" class="LineNr">25649 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25650" class="LineNr">25650 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 -<span id="L25651" class="LineNr">25651 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-type</span>: -<span id="L25652" class="LineNr">25652 </span> <span class="subxComment"># target type must start with (addr ...)</span> -<span id="L25653" class="LineNr">25653 </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="L25654" class="LineNr">25654 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L25655" class="LineNr">25655 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25656" class="LineNr">25656 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 -<span id="L25657" class="LineNr">25657 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> -<span id="L25658" class="LineNr">25658 </span> (<a href='mu.subx.html#L26863'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25659" class="LineNr">25659 </span> 89/<- %ebx 0/r32/eax -<span id="L25660" class="LineNr">25660 </span> (<a href='mu.subx.html#L26863'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L25661" class="LineNr">25661 </span> (<a href='mu.subx.html#L26922'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L25662" class="LineNr">25662 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25663" class="LineNr">25663 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-target-type/disp32 -<span id="L25664" class="LineNr">25664 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-too-many-inouts</span>: -<span id="L25665" class="LineNr">25665 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L25666" class="LineNr">25666 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25667" class="LineNr">25667 </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="L25668" class="LineNr">25668 </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="L25669" class="LineNr">25669 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25670" class="LineNr">25670 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-too-many-inouts/disp32 -<span id="L25671" class="LineNr">25671 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-unexpected-output</span>: -<span id="L25672" class="LineNr">25672 </span> <span class="subxH1Comment"># - check for any output</span> -<span id="L25673" class="LineNr">25673 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25674" class="LineNr">25674 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25675" class="LineNr">25675 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-unexpected-output/disp32 -<span id="L25676" class="LineNr">25676 </span><span class="Constant">$check-mu-read-from-stream-stmt:end</span>: -<span id="L25677" class="LineNr">25677 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25678" class="LineNr">25678 </span> 5f/pop-to-edi -<span id="L25679" class="LineNr">25679 </span> 5e/pop-to-esi -<span id="L25680" class="LineNr">25680 </span> 5b/pop-to-ebx -<span id="L25681" class="LineNr">25681 </span> 5a/pop-to-edx -<span id="L25682" class="LineNr">25682 </span> 59/pop-to-ecx -<span id="L25683" class="LineNr">25683 </span> 58/pop-to-eax -<span id="L25684" class="LineNr">25684 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25685" class="LineNr">25685 </span> 89/<- %esp 5/r32/ebp -<span id="L25686" class="LineNr">25686 </span> 5d/pop-to-ebp -<span id="L25687" class="LineNr">25687 </span> c3/return -<span id="L25688" class="LineNr">25688 </span> -<span id="L25689" class="LineNr">25689 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-invalid-base-type</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>: var '"</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 to a stream\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-too-few-inouts</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>: too few inouts (2 required)\n"</span>) -<span id="L25708" class="LineNr">25708 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25709" class="LineNr">25709 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25710" class="LineNr">25710 </span> <span class="subxComment"># never gets here</span> -<span id="L25711" class="LineNr">25711 </span> -<span id="L25712" class="LineNr">25712 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-target-type-not-address</span>: -<span id="L25713" class="LineNr">25713 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25714" class="LineNr">25714 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25715" class="LineNr">25715 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25716" class="LineNr">25716 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25717" class="LineNr">25717 </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="L25718" class="LineNr">25718 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' must be an addr\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-invalid-target-type</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>: second inout '"</span>) -<span id="L25731" class="LineNr">25731 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24986" class="LineNr">24986 </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="L24987" class="LineNr">24987 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24988" class="LineNr">24988 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-outputs/disp32 +<span id="L24989" class="LineNr">24989 </span><span class="Constant">$check-mu-compute-offset-stmt:end</span>: +<span id="L24990" class="LineNr">24990 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L24991" class="LineNr">24991 </span> 5f/pop-to-edi +<span id="L24992" class="LineNr">24992 </span> 5e/pop-to-esi +<span id="L24993" class="LineNr">24993 </span> 5b/pop-to-ebx +<span id="L24994" class="LineNr">24994 </span> 5a/pop-to-edx +<span id="L24995" class="LineNr">24995 </span> 59/pop-to-ecx +<span id="L24996" class="LineNr">24996 </span> 58/pop-to-eax +<span id="L24997" class="LineNr">24997 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24998" class="LineNr">24998 </span> 89/<- %esp 5/r32/ebp +<span id="L24999" class="LineNr">24999 </span> 5d/pop-to-ebp +<span id="L25000" class="LineNr">25000 </span> c3/return +<span id="L25001" class="LineNr">25001 </span> +<span id="L25002" class="LineNr">25002 </span><span class="Constant">$check-mu-compute-offset-stmt:error-base-non-array-type</span>: +<span id="L25003" class="LineNr">25003 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25004" class="LineNr">25004 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25005" class="LineNr">25005 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25006" class="LineNr">25006 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25007" class="LineNr">25007 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: var '"</span>) +<span id="L25008" class="LineNr">25008 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25009" class="LineNr">25009 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25010" class="LineNr">25010 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) +<span id="L25011" class="LineNr">25011 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25012" class="LineNr">25012 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25013" class="LineNr">25013 </span> <span class="subxComment"># never gets here</span> +<span id="L25014" class="LineNr">25014 </span> +<span id="L25015" class="LineNr">25015 </span><span class="Constant">$check-mu-compute-offset-stmt:error-base-array-atom-type</span>: +<span id="L25016" class="LineNr">25016 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25017" class="LineNr">25017 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25018" class="LineNr">25018 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25019" class="LineNr">25019 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25020" class="LineNr">25020 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: array '"</span>) +<span id="L25021" class="LineNr">25021 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' must specify the type of its elements\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-compute-offset-stmt:error-too-few-inouts</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 compute-offset: too few inouts (2 required)\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-compute-offset-stmt:error-invalid-index-type</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 compute-offset: second argument '"</span>) +<span id="L25044" class="LineNr">25044 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25045" class="LineNr">25045 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25046" class="LineNr">25046 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) +<span id="L25047" class="LineNr">25047 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25048" class="LineNr">25048 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25049" class="LineNr">25049 </span> <span class="subxComment"># never gets here</span> +<span id="L25050" class="LineNr">25050 </span> +<span id="L25051" class="LineNr">25051 </span><span class="Constant">$check-mu-compute-offset-stmt:error-index-offset-atom-type</span>: +<span id="L25052" class="LineNr">25052 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25053" class="LineNr">25053 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25054" class="LineNr">25054 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25055" class="LineNr">25055 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25056" class="LineNr">25056 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: offset '"</span>) +<span id="L25057" class="LineNr">25057 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25058" class="LineNr">25058 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25059" class="LineNr">25059 </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="L25060" class="LineNr">25060 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25061" class="LineNr">25061 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25062" class="LineNr">25062 </span> <span class="subxComment"># never gets here</span> +<span id="L25063" class="LineNr">25063 </span> +<span id="L25064" class="LineNr">25064 </span><span class="Constant">$check-mu-compute-offset-stmt:error-index-on-stack</span>: +<span id="L25065" class="LineNr">25065 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25066" class="LineNr">25066 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25067" class="LineNr">25067 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25068" class="LineNr">25068 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25069" class="LineNr">25069 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: second argument '"</span>) +<span id="L25070" class="LineNr">25070 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25071" class="LineNr">25071 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25072" class="LineNr">25072 </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="L25073" class="LineNr">25073 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25074" class="LineNr">25074 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25075" class="LineNr">25075 </span> <span class="subxComment"># never gets here</span> +<span id="L25076" class="LineNr">25076 </span> +<span id="L25077" class="LineNr">25077 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-many-inouts</span>: +<span id="L25078" class="LineNr">25078 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25079" class="LineNr">25079 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25080" class="LineNr">25080 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25081" class="LineNr">25081 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25082" class="LineNr">25082 </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="L25083" class="LineNr">25083 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25084" class="LineNr">25084 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25085" class="LineNr">25085 </span> <span class="subxComment"># never gets here</span> +<span id="L25086" class="LineNr">25086 </span> +<span id="L25087" class="LineNr">25087 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-few-outputs</span>: +<span id="L25088" class="LineNr">25088 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25089" class="LineNr">25089 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25090" class="LineNr">25090 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25091" class="LineNr">25091 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25092" class="LineNr">25092 </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="L25093" class="LineNr">25093 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25094" class="LineNr">25094 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25095" class="LineNr">25095 </span> <span class="subxComment"># never gets here</span> +<span id="L25096" class="LineNr">25096 </span> +<span id="L25097" class="LineNr">25097 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-many-outputs</span>: +<span id="L25098" class="LineNr">25098 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25099" class="LineNr">25099 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25100" class="LineNr">25100 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25101" class="LineNr">25101 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25102" class="LineNr">25102 </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="L25103" class="LineNr">25103 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25104" class="LineNr">25104 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25105" class="LineNr">25105 </span> <span class="subxComment"># never gets here</span> +<span id="L25106" class="LineNr">25106 </span> +<span id="L25107" class="LineNr">25107 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-not-in-register</span>: +<span id="L25108" class="LineNr">25108 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25109" class="LineNr">25109 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25110" class="LineNr">25110 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25111" class="LineNr">25111 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25112" class="LineNr">25112 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) +<span id="L25113" class="LineNr">25113 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25114" class="LineNr">25114 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25115" class="LineNr">25115 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not in a register\n"</span>) +<span id="L25116" class="LineNr">25116 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25117" class="LineNr">25117 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25118" class="LineNr">25118 </span> <span class="subxComment"># never gets here</span> +<span id="L25119" class="LineNr">25119 </span> +<span id="L25120" class="LineNr">25120 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-type-not-offset</span>: +<span id="L25121" class="LineNr">25121 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25122" class="LineNr">25122 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25123" class="LineNr">25123 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25124" class="LineNr">25124 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25125" class="LineNr">25125 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) +<span id="L25126" class="LineNr">25126 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25127" class="LineNr">25127 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25128" class="LineNr">25128 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an offset\n"</span>) +<span id="L25129" class="LineNr">25129 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25130" class="LineNr">25130 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25131" class="LineNr">25131 </span> <span class="subxComment"># never gets here</span> +<span id="L25132" class="LineNr">25132 </span> +<span id="L25133" class="LineNr">25133 </span><span class="Constant">$check-mu-compute-offset-stmt:error-bad-output-type</span>: +<span id="L25134" class="LineNr">25134 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25135" class="LineNr">25135 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25136" class="LineNr">25136 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25137" class="LineNr">25137 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25138" class="LineNr">25138 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) +<span id="L25139" class="LineNr">25139 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25140" class="LineNr">25140 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25141" class="LineNr">25141 </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="L25142" class="LineNr">25142 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25143" class="LineNr">25143 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25144" class="LineNr">25144 </span> <span class="subxComment"># never gets here</span> +<span id="L25145" class="LineNr">25145 </span> +<span id="L25146" class="LineNr">25146 </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="L25147" class="LineNr">25147 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25148" class="LineNr">25148 </span> 55/push-ebp +<span id="L25149" class="LineNr">25149 </span> 89/<- %ebp 4/r32/esp +<span id="L25150" class="LineNr">25150 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25151" class="LineNr">25151 </span> 50/push-eax +<span id="L25152" class="LineNr">25152 </span> 51/push-ecx +<span id="L25153" class="LineNr">25153 </span> 53/push-ebx +<span id="L25154" class="LineNr">25154 </span> 56/push-esi +<span id="L25155" class="LineNr">25155 </span> 57/push-edi +<span id="L25156" class="LineNr">25156 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25157" class="LineNr">25157 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25158" class="LineNr">25158 </span><span class="Constant">$check-mu-copy-object-stmt:check-for-output</span>: +<span id="L25159" class="LineNr">25159 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L25160" class="LineNr">25160 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25161" class="LineNr">25161 </span> 3d/compare-eax-and 0/imm32 +<span id="L25162" class="LineNr">25162 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-too-many-outputs/disp32 +<span id="L25163" class="LineNr">25163 </span><span class="Constant">$check-mu-copy-object-stmt:get-left</span>: +<span id="L25164" class="LineNr">25164 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L25165" class="LineNr">25165 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25166" class="LineNr">25166 </span> 89/<- %edi 0/r32/eax +<span id="L25167" class="LineNr">25167 </span> <span class="subxComment"># zero inouts</span> +<span id="L25168" class="LineNr">25168 </span> 3d/compare-eax-and 0/imm32 +<span id="L25169" class="LineNr">25169 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 +<span id="L25170" class="LineNr">25170 </span><span class="Constant">$check-mu-copy-object-stmt:get-src</span>: +<span id="L25171" class="LineNr">25171 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> +<span id="L25172" class="LineNr">25172 </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="L25173" class="LineNr">25173 </span> 89/<- %esi 0/r32/eax +<span id="L25174" class="LineNr">25174 </span> <span class="subxComment"># 1 inout</span> +<span id="L25175" class="LineNr">25175 </span> 3d/compare-eax-and 0/imm32 +<span id="L25176" class="LineNr">25176 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 +<span id="L25177" class="LineNr">25177 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L25178" class="LineNr">25178 </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="L25179" class="LineNr">25179 </span> 3d/compare-eax-and 0/imm32 +<span id="L25180" class="LineNr">25180 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 +<span id="L25181" class="LineNr">25181 </span><span class="Constant">$check-mu-copy-object-stmt:types</span>: +<span id="L25182" class="LineNr">25182 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> +<span id="L25183" class="LineNr">25183 </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="L25184" class="LineNr">25184 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25185" class="LineNr">25185 </span> 89/<- %ecx 0/r32/eax +<span id="L25186" class="LineNr">25186 </span> <span class="subxComment"># if (src->is-deref?) src-type = src-type->payload</span> +<span id="L25187" class="LineNr">25187 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25188" class="LineNr">25188 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25189" class="LineNr">25189 </span> { +<span id="L25190" class="LineNr">25190 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25191" class="LineNr">25191 </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="L25192" class="LineNr">25192 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> +<span id="L25193" class="LineNr">25193 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25194" class="LineNr">25194 </span> { +<span id="L25195" class="LineNr">25195 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25196" class="LineNr">25196 </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="L25197" class="LineNr">25197 </span> } +<span id="L25198" class="LineNr">25198 </span> 89/<- %ecx 0/r32/eax +<span id="L25199" class="LineNr">25199 </span> } +<span id="L25200" class="LineNr">25200 </span> <span class="subxComment"># if src-type is not addr, abort</span> +<span id="L25201" class="LineNr">25201 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L25202" class="LineNr">25202 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25203" class="LineNr">25203 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-invalid-types/disp32 +<span id="L25204" class="LineNr">25204 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> +<span id="L25205" class="LineNr">25205 </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="L25206" class="LineNr">25206 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25207" class="LineNr">25207 </span> 89/<- %ebx 0/r32/eax +<span id="L25208" class="LineNr">25208 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> +<span id="L25209" class="LineNr">25209 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25210" class="LineNr">25210 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25211" class="LineNr">25211 </span> { +<span id="L25212" class="LineNr">25212 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25213" class="LineNr">25213 </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="L25214" class="LineNr">25214 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> +<span id="L25215" class="LineNr">25215 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25216" class="LineNr">25216 </span> { +<span id="L25217" class="LineNr">25217 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25218" class="LineNr">25218 </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="L25219" class="LineNr">25219 </span> } +<span id="L25220" class="LineNr">25220 </span> 89/<- %ebx 0/r32/eax +<span id="L25221" class="LineNr">25221 </span> } +<span id="L25222" class="LineNr">25222 </span> <span class="subxComment"># if (dest-type != src-type) abort</span> +<span id="L25223" class="LineNr">25223 </span> (<a href='mu.subx.html#L27097'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> +<span id="L25224" class="LineNr">25224 </span> 3d/compare-eax-and 0/imm32 +<span id="L25225" class="LineNr">25225 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-invalid-types/disp32 +<span id="L25226" class="LineNr">25226 </span><span class="Constant">$check-mu-copy-object-stmt:end</span>: +<span id="L25227" class="LineNr">25227 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25228" class="LineNr">25228 </span> 5f/pop-to-edi +<span id="L25229" class="LineNr">25229 </span> 5e/pop-to-esi +<span id="L25230" class="LineNr">25230 </span> 5b/pop-to-ebx +<span id="L25231" class="LineNr">25231 </span> 59/pop-to-ecx +<span id="L25232" class="LineNr">25232 </span> 58/pop-to-eax +<span id="L25233" class="LineNr">25233 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25234" class="LineNr">25234 </span> 89/<- %esp 5/r32/ebp +<span id="L25235" class="LineNr">25235 </span> 5d/pop-to-ebp +<span id="L25236" class="LineNr">25236 </span> c3/return +<span id="L25237" class="LineNr">25237 </span> +<span id="L25238" class="LineNr">25238 </span><span class="Constant">$check-mu-copy-object-stmt:error-incorrect-inouts</span>: +<span id="L25239" class="LineNr">25239 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25240" class="LineNr">25240 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25241" class="LineNr">25241 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25242" class="LineNr">25242 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25243" class="LineNr">25243 </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="L25244" class="LineNr">25244 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25245" class="LineNr">25245 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25246" class="LineNr">25246 </span> <span class="subxComment"># never gets here</span> +<span id="L25247" class="LineNr">25247 </span> +<span id="L25248" class="LineNr">25248 </span><span class="Constant">$check-mu-copy-object-stmt:error-too-many-outputs</span>: +<span id="L25249" class="LineNr">25249 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25250" class="LineNr">25250 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25251" class="LineNr">25251 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25252" class="LineNr">25252 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25253" class="LineNr">25253 </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="L25254" class="LineNr">25254 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25255" class="LineNr">25255 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25256" class="LineNr">25256 </span> <span class="subxComment"># never gets here</span> +<span id="L25257" class="LineNr">25257 </span> +<span id="L25258" class="LineNr">25258 </span><span class="Constant">$check-mu-copy-object-stmt:error-invalid-types</span>: +<span id="L25259" class="LineNr">25259 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25260" class="LineNr">25260 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25261" class="LineNr">25261 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-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">": stmt copy-object: two inouts with identical addr types expected\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-clear-object-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> 51/push-ecx +<span id="L25275" class="LineNr">25275 </span> 53/push-ebx +<span id="L25276" class="LineNr">25276 </span> 56/push-esi +<span id="L25277" class="LineNr">25277 </span> 57/push-edi +<span id="L25278" class="LineNr">25278 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25279" class="LineNr">25279 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25280" class="LineNr">25280 </span><span class="Constant">$check-mu-clear-object-stmt:check-for-output</span>: +<span id="L25281" class="LineNr">25281 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L25282" class="LineNr">25282 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25283" class="LineNr">25283 </span> 3d/compare-eax-and 0/imm32 +<span id="L25284" class="LineNr">25284 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-too-many-outputs/disp32 +<span id="L25285" class="LineNr">25285 </span><span class="Constant">$check-mu-clear-object-stmt:get-left</span>: +<span id="L25286" class="LineNr">25286 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L25287" class="LineNr">25287 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25288" class="LineNr">25288 </span> 89/<- %edi 0/r32/eax +<span id="L25289" class="LineNr">25289 </span> <span class="subxComment"># zero inouts</span> +<span id="L25290" class="LineNr">25290 </span> 3d/compare-eax-and 0/imm32 +<span id="L25291" class="LineNr">25291 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 +<span id="L25292" class="LineNr">25292 </span><span class="Constant">$check-mu-clear-object-stmt:get-src</span>: +<span id="L25293" class="LineNr">25293 </span> <span class="subxComment"># > 1 inout</span> +<span id="L25294" class="LineNr">25294 </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="L25295" class="LineNr">25295 </span> 3d/compare-eax-and 0/imm32 +<span id="L25296" class="LineNr">25296 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 +<span id="L25297" class="LineNr">25297 </span><span class="Constant">$check-mu-clear-object-stmt:types</span>: +<span id="L25298" class="LineNr">25298 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> +<span id="L25299" class="LineNr">25299 </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="L25300" class="LineNr">25300 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25301" class="LineNr">25301 </span> 89/<- %ecx 0/r32/eax +<span id="L25302" class="LineNr">25302 </span> <span class="subxComment"># if (src->is-deref?) src-type = src-type->payload</span> +<span id="L25303" class="LineNr">25303 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25304" class="LineNr">25304 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25305" class="LineNr">25305 </span> { +<span id="L25306" class="LineNr">25306 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25307" class="LineNr">25307 </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="L25308" class="LineNr">25308 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> +<span id="L25309" class="LineNr">25309 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25310" class="LineNr">25310 </span> { +<span id="L25311" class="LineNr">25311 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25312" class="LineNr">25312 </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="L25313" class="LineNr">25313 </span> } +<span id="L25314" class="LineNr">25314 </span> 89/<- %ecx 0/r32/eax +<span id="L25315" class="LineNr">25315 </span> } +<span id="L25316" class="LineNr">25316 </span> <span class="subxComment"># if src-type is not addr, abort</span> +<span id="L25317" class="LineNr">25317 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L25318" class="LineNr">25318 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25319" class="LineNr">25319 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-invalid-type/disp32 +<span id="L25320" class="LineNr">25320 </span><span class="Constant">$check-mu-clear-object-stmt:end</span>: +<span id="L25321" class="LineNr">25321 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25322" class="LineNr">25322 </span> 5f/pop-to-edi +<span id="L25323" class="LineNr">25323 </span> 5e/pop-to-esi +<span id="L25324" class="LineNr">25324 </span> 5b/pop-to-ebx +<span id="L25325" class="LineNr">25325 </span> 59/pop-to-ecx +<span id="L25326" class="LineNr">25326 </span> 58/pop-to-eax +<span id="L25327" class="LineNr">25327 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25328" class="LineNr">25328 </span> 89/<- %esp 5/r32/ebp +<span id="L25329" class="LineNr">25329 </span> 5d/pop-to-ebp +<span id="L25330" class="LineNr">25330 </span> c3/return +<span id="L25331" class="LineNr">25331 </span> +<span id="L25332" class="LineNr">25332 </span><span class="Constant">$check-mu-clear-object-stmt:error-incorrect-inouts</span>: +<span id="L25333" class="LineNr">25333 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25334" class="LineNr">25334 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25335" class="LineNr">25335 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25336" class="LineNr">25336 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25337" class="LineNr">25337 </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="L25338" class="LineNr">25338 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25339" class="LineNr">25339 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25340" class="LineNr">25340 </span> <span class="subxComment"># never gets here</span> +<span id="L25341" class="LineNr">25341 </span> +<span id="L25342" class="LineNr">25342 </span><span class="Constant">$check-mu-clear-object-stmt:error-too-many-outputs</span>: +<span id="L25343" class="LineNr">25343 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25344" class="LineNr">25344 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25345" class="LineNr">25345 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25346" class="LineNr">25346 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25347" class="LineNr">25347 </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="L25348" class="LineNr">25348 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25349" class="LineNr">25349 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25350" class="LineNr">25350 </span> <span class="subxComment"># never gets here</span> +<span id="L25351" class="LineNr">25351 </span> +<span id="L25352" class="LineNr">25352 </span><span class="Constant">$check-mu-clear-object-stmt:error-invalid-type</span>: +<span id="L25353" class="LineNr">25353 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25354" class="LineNr">25354 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25355" class="LineNr">25355 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25356" class="LineNr">25356 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25357" class="LineNr">25357 </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="L25358" class="LineNr">25358 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25359" class="LineNr">25359 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25360" class="LineNr">25360 </span> <span class="subxComment"># never gets here</span> +<span id="L25361" class="LineNr">25361 </span> +<span id="L25362" class="LineNr">25362 </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="L25363" class="LineNr">25363 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25364" class="LineNr">25364 </span> 55/push-ebp +<span id="L25365" class="LineNr">25365 </span> 89/<- %ebp 4/r32/esp +<span id="L25366" class="LineNr">25366 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25367" class="LineNr">25367 </span> 50/push-eax +<span id="L25368" class="LineNr">25368 </span> 53/push-ebx +<span id="L25369" class="LineNr">25369 </span> 56/push-esi +<span id="L25370" class="LineNr">25370 </span> 57/push-edi +<span id="L25371" class="LineNr">25371 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25372" class="LineNr">25372 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25373" class="LineNr">25373 </span><span class="Constant">$check-mu-allocate-stmt:check-for-output</span>: +<span id="L25374" class="LineNr">25374 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L25375" class="LineNr">25375 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25376" class="LineNr">25376 </span> 3d/compare-eax-and 0/imm32 +<span id="L25377" class="LineNr">25377 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-too-many-outputs/disp32 +<span id="L25378" class="LineNr">25378 </span><span class="Constant">$check-mu-allocate-stmt:get-target</span>: +<span id="L25379" class="LineNr">25379 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L25380" class="LineNr">25380 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25381" class="LineNr">25381 </span> 89/<- %edi 0/r32/eax +<span id="L25382" class="LineNr">25382 </span> <span class="subxComment"># zero inouts</span> +<span id="L25383" class="LineNr">25383 </span> 3d/compare-eax-and 0/imm32 +<span id="L25384" class="LineNr">25384 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 +<span id="L25385" class="LineNr">25385 </span> <span class="subxComment"># > 1 inouts</span> +<span id="L25386" class="LineNr">25386 </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="L25387" class="LineNr">25387 </span> 3d/compare-eax-and 0/imm32 +<span id="L25388" class="LineNr">25388 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 +<span id="L25389" class="LineNr">25389 </span><span class="Constant">$check-mu-allocate-stmt:check-type</span>: +<span id="L25390" class="LineNr">25390 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> +<span id="L25391" class="LineNr">25391 </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="L25392" class="LineNr">25392 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25393" class="LineNr">25393 </span> 89/<- %ebx 0/r32/eax +<span id="L25394" class="LineNr">25394 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> +<span id="L25395" class="LineNr">25395 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25396" class="LineNr">25396 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25397" class="LineNr">25397 </span> { +<span id="L25398" class="LineNr">25398 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25399" class="LineNr">25399 </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="L25400" class="LineNr">25400 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> +<span id="L25401" class="LineNr">25401 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25402" class="LineNr">25402 </span> { +<span id="L25403" class="LineNr">25403 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25404" class="LineNr">25404 </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="L25405" class="LineNr">25405 </span> } +<span id="L25406" class="LineNr">25406 </span> 89/<- %ebx 0/r32/eax +<span id="L25407" class="LineNr">25407 </span> } +<span id="L25408" class="LineNr">25408 </span> <span class="subxComment"># if target-type is not addr, abort</span> +<span id="L25409" class="LineNr">25409 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L25410" class="LineNr">25410 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25411" class="LineNr">25411 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 +<span id="L25412" class="LineNr">25412 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> +<span id="L25413" class="LineNr">25413 </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="L25414" class="LineNr">25414 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25415" class="LineNr">25415 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-invalid-type/disp32 +<span id="L25416" class="LineNr">25416 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> +<span id="L25417" class="LineNr">25417 </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="L25418" class="LineNr">25418 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> +<span id="L25419" class="LineNr">25419 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25420" class="LineNr">25420 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 +<span id="L25421" class="LineNr">25421 </span><span class="Constant">$check-mu-allocate-stmt:end</span>: +<span id="L25422" class="LineNr">25422 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25423" class="LineNr">25423 </span> 5f/pop-to-edi +<span id="L25424" class="LineNr">25424 </span> 5e/pop-to-esi +<span id="L25425" class="LineNr">25425 </span> 5b/pop-to-ebx +<span id="L25426" class="LineNr">25426 </span> 58/pop-to-eax +<span id="L25427" class="LineNr">25427 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25428" class="LineNr">25428 </span> 89/<- %esp 5/r32/ebp +<span id="L25429" class="LineNr">25429 </span> 5d/pop-to-ebp +<span id="L25430" class="LineNr">25430 </span> c3/return +<span id="L25431" class="LineNr">25431 </span> +<span id="L25432" class="LineNr">25432 </span><span class="Constant">$check-mu-allocate-stmt:error-incorrect-inouts</span>: +<span id="L25433" class="LineNr">25433 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25434" class="LineNr">25434 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25435" class="LineNr">25435 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25436" class="LineNr">25436 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25437" class="LineNr">25437 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'allocate' must have a single inout\n"</span>) +<span id="L25438" class="LineNr">25438 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25439" class="LineNr">25439 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25440" class="LineNr">25440 </span> <span class="subxComment"># never gets here</span> +<span id="L25441" class="LineNr">25441 </span> +<span id="L25442" class="LineNr">25442 </span><span class="Constant">$check-mu-allocate-stmt:error-too-many-outputs</span>: +<span id="L25443" class="LineNr">25443 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25444" class="LineNr">25444 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25445" class="LineNr">25445 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25446" class="LineNr">25446 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25447" class="LineNr">25447 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'allocate' must not have any outputs\n"</span>) +<span id="L25448" class="LineNr">25448 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25449" class="LineNr">25449 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25450" class="LineNr">25450 </span> <span class="subxComment"># never gets here</span> +<span id="L25451" class="LineNr">25451 </span> +<span id="L25452" class="LineNr">25452 </span><span class="Constant">$check-mu-allocate-stmt:error-invalid-type</span>: +<span id="L25453" class="LineNr">25453 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25454" class="LineNr">25454 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25455" class="LineNr">25455 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25456" class="LineNr">25456 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25457" class="LineNr">25457 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='120allocate.subx.html#L66'>allocate</a>: inout '"</span>) +<span id="L25458" class="LineNr">25458 </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="L25459" class="LineNr">25459 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25460" class="LineNr">25460 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25461" class="LineNr">25461 </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="L25462" class="LineNr">25462 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25463" class="LineNr">25463 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25464" class="LineNr">25464 </span> <span class="subxComment"># never gets here</span> +<span id="L25465" class="LineNr">25465 </span> +<span id="L25466" class="LineNr">25466 </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="L25467" class="LineNr">25467 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25468" class="LineNr">25468 </span> 55/push-ebp +<span id="L25469" class="LineNr">25469 </span> 89/<- %ebp 4/r32/esp +<span id="L25470" class="LineNr">25470 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25471" class="LineNr">25471 </span> 50/push-eax +<span id="L25472" class="LineNr">25472 </span> 53/push-ebx +<span id="L25473" class="LineNr">25473 </span> 56/push-esi +<span id="L25474" class="LineNr">25474 </span> 57/push-edi +<span id="L25475" class="LineNr">25475 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25476" class="LineNr">25476 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25477" class="LineNr">25477 </span><span class="Constant">$check-mu-populate-stmt:check-for-output</span>: +<span id="L25478" class="LineNr">25478 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L25479" class="LineNr">25479 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25480" class="LineNr">25480 </span> 3d/compare-eax-and 0/imm32 +<span id="L25481" class="LineNr">25481 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-too-many-outputs/disp32 +<span id="L25482" class="LineNr">25482 </span><span class="Constant">$check-mu-populate-stmt:get-target</span>: +<span id="L25483" class="LineNr">25483 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L25484" class="LineNr">25484 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25485" class="LineNr">25485 </span> 89/<- %edi 0/r32/eax +<span id="L25486" class="LineNr">25486 </span> <span class="subxComment"># zero inouts</span> +<span id="L25487" class="LineNr">25487 </span> 3d/compare-eax-and 0/imm32 +<span id="L25488" class="LineNr">25488 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 +<span id="L25489" class="LineNr">25489 </span><span class="Constant">$check-mu-populate-stmt:get-length</span>: +<span id="L25490" class="LineNr">25490 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> +<span id="L25491" class="LineNr">25491 </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="L25492" class="LineNr">25492 </span> 89/<- %esi 0/r32/eax +<span id="L25493" class="LineNr">25493 </span> <span class="subxComment"># 1 inout</span> +<span id="L25494" class="LineNr">25494 </span> 3d/compare-eax-and 0/imm32 +<span id="L25495" class="LineNr">25495 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 +<span id="L25496" class="LineNr">25496 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L25497" class="LineNr">25497 </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="L25498" class="LineNr">25498 </span> 3d/compare-eax-and 0/imm32 +<span id="L25499" class="LineNr">25499 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-incorrect-inouts/disp32 +<span id="L25500" class="LineNr">25500 </span><span class="Constant">$check-mu-populate-stmt:check-target-type</span>: +<span id="L25501" class="LineNr">25501 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> +<span id="L25502" class="LineNr">25502 </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="L25503" class="LineNr">25503 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25504" class="LineNr">25504 </span> 89/<- %ebx 0/r32/eax +<span id="L25505" class="LineNr">25505 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-deref</span>: +<span id="L25506" class="LineNr">25506 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> +<span id="L25507" class="LineNr">25507 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25508" class="LineNr">25508 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25509" class="LineNr">25509 </span> { +<span id="L25510" class="LineNr">25510 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25511" class="LineNr">25511 </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="L25512" class="LineNr">25512 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> +<span id="L25513" class="LineNr">25513 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25514" class="LineNr">25514 </span> { +<span id="L25515" class="LineNr">25515 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25516" class="LineNr">25516 </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="L25517" class="LineNr">25517 </span> } +<span id="L25518" class="LineNr">25518 </span> 89/<- %ebx 0/r32/eax +<span id="L25519" class="LineNr">25519 </span> } +<span id="L25520" class="LineNr">25520 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-addr</span>: +<span id="L25521" class="LineNr">25521 </span> <span class="subxComment"># if target-type is not addr, abort</span> +<span id="L25522" class="LineNr">25522 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L25523" class="LineNr">25523 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25524" class="LineNr">25524 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L25525" class="LineNr">25525 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> +<span id="L25526" class="LineNr">25526 </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="L25527" class="LineNr">25527 </span> 89/<- %ebx 0/r32/eax +<span id="L25528" class="LineNr">25528 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25529" class="LineNr">25529 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L25530" class="LineNr">25530 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-handle</span>: +<span id="L25531" class="LineNr">25531 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> +<span id="L25532" class="LineNr">25532 </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="L25533" class="LineNr">25533 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> +<span id="L25534" class="LineNr">25534 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25535" class="LineNr">25535 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L25536" class="LineNr">25536 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> +<span id="L25537" class="LineNr">25537 </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="L25538" class="LineNr">25538 </span> 89/<- %ebx 0/r32/eax +<span id="L25539" class="LineNr">25539 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25540" class="LineNr">25540 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L25541" class="LineNr">25541 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-array</span>: +<span id="L25542" class="LineNr">25542 </span> <span class="subxComment"># if target-type->right->right->left is not array, abort</span> +<span id="L25543" class="LineNr">25543 </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="L25544" class="LineNr">25544 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L25545" class="LineNr">25545 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25546" class="LineNr">25546 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L25547" class="LineNr">25547 </span><span class="Constant">$check-mu-populate-stmt:check-length-type</span>: +<span id="L25548" class="LineNr">25548 </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="L25549" class="LineNr">25549 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25550" class="LineNr">25550 </span> 89/<- %ebx 0/r32/eax +<span id="L25551" class="LineNr">25551 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> +<span id="L25552" class="LineNr">25552 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25553" class="LineNr">25553 </span> 75/jump-if-!= $check-mu-populate-stmt:end/disp8 +<span id="L25554" class="LineNr">25554 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> +<span id="L25555" class="LineNr">25555 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25556" class="LineNr">25556 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-length-type/disp32 +<span id="L25557" class="LineNr">25557 </span><span class="Constant">$check-mu-populate-stmt:end</span>: +<span id="L25558" class="LineNr">25558 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25559" class="LineNr">25559 </span> 5f/pop-to-edi +<span id="L25560" class="LineNr">25560 </span> 5e/pop-to-esi +<span id="L25561" class="LineNr">25561 </span> 5b/pop-to-ebx +<span id="L25562" class="LineNr">25562 </span> 58/pop-to-eax +<span id="L25563" class="LineNr">25563 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25564" class="LineNr">25564 </span> 89/<- %esp 5/r32/ebp +<span id="L25565" class="LineNr">25565 </span> 5d/pop-to-ebp +<span id="L25566" class="LineNr">25566 </span> c3/return +<span id="L25567" class="LineNr">25567 </span> +<span id="L25568" class="LineNr">25568 </span><span class="Constant">$check-mu-populate-stmt:error-incorrect-inouts</span>: +<span id="L25569" class="LineNr">25569 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25570" class="LineNr">25570 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25571" class="LineNr">25571 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25572" class="LineNr">25572 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25573" class="LineNr">25573 </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="L25574" class="LineNr">25574 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25575" class="LineNr">25575 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25576" class="LineNr">25576 </span> <span class="subxComment"># never gets here</span> +<span id="L25577" class="LineNr">25577 </span> +<span id="L25578" class="LineNr">25578 </span><span class="Constant">$check-mu-populate-stmt:error-too-many-outputs</span>: +<span id="L25579" class="LineNr">25579 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25580" class="LineNr">25580 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25581" class="LineNr">25581 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25582" class="LineNr">25582 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25583" class="LineNr">25583 </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="L25584" class="LineNr">25584 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25585" class="LineNr">25585 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25586" class="LineNr">25586 </span> <span class="subxComment"># never gets here</span> +<span id="L25587" class="LineNr">25587 </span> +<span id="L25588" class="LineNr">25588 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-target-type</span>: +<span id="L25589" class="LineNr">25589 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25590" class="LineNr">25590 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25591" class="LineNr">25591 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25592" class="LineNr">25592 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25593" class="LineNr">25593 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: first inout '"</span>) +<span id="L25594" class="LineNr">25594 </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="L25595" class="LineNr">25595 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25596" class="LineNr">25596 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25597" class="LineNr">25597 </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="L25598" class="LineNr">25598 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25599" class="LineNr">25599 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25600" class="LineNr">25600 </span> <span class="subxComment"># never gets here</span> +<span id="L25601" class="LineNr">25601 </span> +<span id="L25602" class="LineNr">25602 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-length-type</span>: +<span id="L25603" class="LineNr">25603 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25604" class="LineNr">25604 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25605" class="LineNr">25605 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25606" class="LineNr">25606 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25607" class="LineNr">25607 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: second inout '"</span>) +<span id="L25608" class="LineNr">25608 </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="L25609" class="LineNr">25609 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25610" class="LineNr">25610 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25611" class="LineNr">25611 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) +<span id="L25612" class="LineNr">25612 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25613" class="LineNr">25613 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25614" class="LineNr">25614 </span> <span class="subxComment"># never gets here</span> +<span id="L25615" class="LineNr">25615 </span> +<span id="L25616" class="LineNr">25616 </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="L25617" class="LineNr">25617 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25618" class="LineNr">25618 </span> 55/push-ebp +<span id="L25619" class="LineNr">25619 </span> 89/<- %ebp 4/r32/esp +<span id="L25620" class="LineNr">25620 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25621" class="LineNr">25621 </span> 50/push-eax +<span id="L25622" class="LineNr">25622 </span> 53/push-ebx +<span id="L25623" class="LineNr">25623 </span> 56/push-esi +<span id="L25624" class="LineNr">25624 </span> 57/push-edi +<span id="L25625" class="LineNr">25625 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25626" class="LineNr">25626 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25627" class="LineNr">25627 </span><span class="Constant">$check-mu-populate-stream-stmt:check-for-output</span>: +<span id="L25628" class="LineNr">25628 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L25629" class="LineNr">25629 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25630" class="LineNr">25630 </span> 3d/compare-eax-and 0/imm32 +<span id="L25631" class="LineNr">25631 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-too-many-outputs/disp32 +<span id="L25632" class="LineNr">25632 </span><span class="Constant">$check-mu-populate-stream-stmt:get-target</span>: +<span id="L25633" class="LineNr">25633 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L25634" class="LineNr">25634 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25635" class="LineNr">25635 </span> 89/<- %edi 0/r32/eax +<span id="L25636" class="LineNr">25636 </span> <span class="subxComment"># zero inouts</span> +<span id="L25637" class="LineNr">25637 </span> 3d/compare-eax-and 0/imm32 +<span id="L25638" class="LineNr">25638 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 +<span id="L25639" class="LineNr">25639 </span><span class="Constant">$check-mu-populate-stream-stmt:get-length</span>: +<span id="L25640" class="LineNr">25640 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> +<span id="L25641" class="LineNr">25641 </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="L25642" class="LineNr">25642 </span> 89/<- %esi 0/r32/eax +<span id="L25643" class="LineNr">25643 </span> <span class="subxComment"># 1 inout</span> +<span id="L25644" class="LineNr">25644 </span> 3d/compare-eax-and 0/imm32 +<span id="L25645" class="LineNr">25645 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 +<span id="L25646" class="LineNr">25646 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L25647" class="LineNr">25647 </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="L25648" class="LineNr">25648 </span> 3d/compare-eax-and 0/imm32 +<span id="L25649" class="LineNr">25649 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 +<span id="L25650" class="LineNr">25650 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type</span>: +<span id="L25651" class="LineNr">25651 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> +<span id="L25652" class="LineNr">25652 </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="L25653" class="LineNr">25653 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25654" class="LineNr">25654 </span> 89/<- %ebx 0/r32/eax +<span id="L25655" class="LineNr">25655 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-deref</span>: +<span id="L25656" class="LineNr">25656 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> +<span id="L25657" class="LineNr">25657 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25658" class="LineNr">25658 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25659" class="LineNr">25659 </span> { +<span id="L25660" class="LineNr">25660 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25661" class="LineNr">25661 </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="L25662" class="LineNr">25662 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> +<span id="L25663" class="LineNr">25663 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25664" class="LineNr">25664 </span> { +<span id="L25665" class="LineNr">25665 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25666" class="LineNr">25666 </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="L25667" class="LineNr">25667 </span> } +<span id="L25668" class="LineNr">25668 </span> 89/<- %ebx 0/r32/eax +<span id="L25669" class="LineNr">25669 </span> } +<span id="L25670" class="LineNr">25670 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-addr</span>: +<span id="L25671" class="LineNr">25671 </span> <span class="subxComment"># if target-type is not addr, abort</span> +<span id="L25672" class="LineNr">25672 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L25673" class="LineNr">25673 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25674" class="LineNr">25674 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L25675" class="LineNr">25675 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> +<span id="L25676" class="LineNr">25676 </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="L25677" class="LineNr">25677 </span> 89/<- %ebx 0/r32/eax +<span id="L25678" class="LineNr">25678 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25679" class="LineNr">25679 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L25680" class="LineNr">25680 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-handle</span>: +<span id="L25681" class="LineNr">25681 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> +<span id="L25682" class="LineNr">25682 </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="L25683" class="LineNr">25683 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> +<span id="L25684" class="LineNr">25684 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25685" class="LineNr">25685 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L25686" class="LineNr">25686 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> +<span id="L25687" class="LineNr">25687 </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="L25688" class="LineNr">25688 </span> 89/<- %ebx 0/r32/eax +<span id="L25689" class="LineNr">25689 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25690" class="LineNr">25690 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L25691" class="LineNr">25691 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-stream</span>: +<span id="L25692" class="LineNr">25692 </span> <span class="subxComment"># if target-type->right->right->left is not stream, abort</span> +<span id="L25693" class="LineNr">25693 </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="L25694" class="LineNr">25694 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> +<span id="L25695" class="LineNr">25695 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25696" class="LineNr">25696 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L25697" class="LineNr">25697 </span><span class="Constant">$check-mu-populate-stream-stmt:check-length-type</span>: +<span id="L25698" class="LineNr">25698 </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="L25699" class="LineNr">25699 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25700" class="LineNr">25700 </span> 89/<- %ebx 0/r32/eax +<span id="L25701" class="LineNr">25701 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> +<span id="L25702" class="LineNr">25702 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25703" class="LineNr">25703 </span> 75/jump-if-!= $check-mu-populate-stream-stmt:end/disp8 +<span id="L25704" class="LineNr">25704 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> +<span id="L25705" class="LineNr">25705 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25706" class="LineNr">25706 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-length-type/disp32 +<span id="L25707" class="LineNr">25707 </span><span class="Constant">$check-mu-populate-stream-stmt:end</span>: +<span id="L25708" class="LineNr">25708 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25709" class="LineNr">25709 </span> 5f/pop-to-edi +<span id="L25710" class="LineNr">25710 </span> 5e/pop-to-esi +<span id="L25711" class="LineNr">25711 </span> 5b/pop-to-ebx +<span id="L25712" class="LineNr">25712 </span> 58/pop-to-eax +<span id="L25713" class="LineNr">25713 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25714" class="LineNr">25714 </span> 89/<- %esp 5/r32/ebp +<span id="L25715" class="LineNr">25715 </span> 5d/pop-to-ebp +<span id="L25716" class="LineNr">25716 </span> c3/return +<span id="L25717" class="LineNr">25717 </span> +<span id="L25718" class="LineNr">25718 </span><span class="Constant">$check-mu-populate-stream-stmt:error-incorrect-inouts</span>: +<span id="L25719" class="LineNr">25719 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25720" class="LineNr">25720 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25721" class="LineNr">25721 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25722" class="LineNr">25722 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25723" class="LineNr">25723 </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="L25724" class="LineNr">25724 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25725" class="LineNr">25725 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25726" class="LineNr">25726 </span> <span class="subxComment"># never gets here</span> +<span id="L25727" class="LineNr">25727 </span> +<span id="L25728" class="LineNr">25728 </span><span class="Constant">$check-mu-populate-stream-stmt:error-too-many-outputs</span>: +<span id="L25729" class="LineNr">25729 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25730" class="LineNr">25730 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25731" class="LineNr">25731 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> <span id="L25732" class="LineNr">25732 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25733" class="LineNr">25733 </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="L25733" class="LineNr">25733 </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="L25734" class="LineNr">25734 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) <span id="L25735" class="LineNr">25735 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) <span id="L25736" class="LineNr">25736 </span> <span class="subxComment"># never gets here</span> <span id="L25737" class="LineNr">25737 </span> -<span id="L25738" class="LineNr">25738 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-too-many-inouts</span>: +<span id="L25738" class="LineNr">25738 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-target-type</span>: <span id="L25739" class="LineNr">25739 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) <span id="L25740" class="LineNr">25740 </span> 8b/-> *(ebp+0xc) 0/r32/eax <span id="L25741" class="LineNr">25741 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> <span id="L25742" class="LineNr">25742 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25743" class="LineNr">25743 </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="L25744" class="LineNr">25744 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25745" class="LineNr">25745 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25746" class="LineNr">25746 </span> <span class="subxComment"># never gets here</span> -<span id="L25747" class="LineNr">25747 </span> -<span id="L25748" class="LineNr">25748 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-unexpected-output</span>: -<span id="L25749" class="LineNr">25749 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25750" class="LineNr">25750 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25751" class="LineNr">25751 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25752" class="LineNr">25752 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25753" class="LineNr">25753 </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="L25754" class="LineNr">25754 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25755" class="LineNr">25755 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25756" class="LineNr">25756 </span> <span class="subxComment"># never gets here</span> -<span id="L25757" class="LineNr">25757 </span> -<span id="L25758" class="LineNr">25758 </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="L25759" class="LineNr">25759 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25760" class="LineNr">25760 </span> 55/push-ebp -<span id="L25761" class="LineNr">25761 </span> 89/<- %ebp 4/r32/esp -<span id="L25762" class="LineNr">25762 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25763" class="LineNr">25763 </span> 50/push-eax -<span id="L25764" class="LineNr">25764 </span> 51/push-ecx -<span id="L25765" class="LineNr">25765 </span> 52/push-edx -<span id="L25766" class="LineNr">25766 </span> 53/push-ebx -<span id="L25767" class="LineNr">25767 </span> 56/push-esi -<span id="L25768" class="LineNr">25768 </span> 57/push-edi -<span id="L25769" class="LineNr">25769 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25770" class="LineNr">25770 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25771" class="LineNr">25771 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L25772" class="LineNr">25772 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L25773" class="LineNr">25773 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25774" class="LineNr">25774 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-no-inouts</span>: -<span id="L25775" class="LineNr">25775 </span> 3d/compare-eax-and 0/imm32 -<span id="L25776" class="LineNr">25776 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 -<span id="L25777" class="LineNr">25777 </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="L25778" class="LineNr">25778 </span> 89/<- %ecx 0/r32/eax -<span id="L25779" class="LineNr">25779 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> -<span id="L25780" class="LineNr">25780 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L25781" class="LineNr">25781 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25782" class="LineNr">25782 </span> 89/<- %ebx 0/r32/eax -<span id="L25783" class="LineNr">25783 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-compound</span>: -<span id="L25784" class="LineNr">25784 </span> <span class="subxComment"># if base-type is an atom, abort</span> -<span id="L25785" class="LineNr">25785 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25786" class="LineNr">25786 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 -<span id="L25787" class="LineNr">25787 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr</span>: -<span id="L25788" class="LineNr">25788 </span> <span class="subxComment"># if type->left not addr, abort</span> -<span id="L25789" class="LineNr">25789 </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="L25790" class="LineNr">25790 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L25791" class="LineNr">25791 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25792" class="LineNr">25792 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 -<span id="L25793" class="LineNr">25793 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr-to-stream</span>: -<span id="L25794" class="LineNr">25794 </span> <span class="subxComment"># base-type = base-type->right</span> -<span id="L25795" class="LineNr">25795 </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="L25796" class="LineNr">25796 </span> 89/<- %ebx 0/r32/eax -<span id="L25797" class="LineNr">25797 </span> <span class="subxComment"># ensure base-type->left == stream</span> -<span id="L25798" class="LineNr">25798 </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="L25799" class="LineNr">25799 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> -<span id="L25800" class="LineNr">25800 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25801" class="LineNr">25801 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 -<span id="L25802" class="LineNr">25802 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> -<span id="L25803" class="LineNr">25803 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L25804" class="LineNr">25804 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25805" class="LineNr">25805 </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="L25806" class="LineNr">25806 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-single-inout</span>: -<span id="L25807" class="LineNr">25807 </span> 3d/compare-eax-and 0/imm32 -<span id="L25808" class="LineNr">25808 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 -<span id="L25809" class="LineNr">25809 </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="L25810" class="LineNr">25810 </span> 89/<- %ecx 0/r32/eax -<span id="L25811" class="LineNr">25811 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> -<span id="L25812" class="LineNr">25812 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25813" class="LineNr">25813 </span> 89/<- %edx 0/r32/eax -<span id="L25814" class="LineNr">25814 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> -<span id="L25815" class="LineNr">25815 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-is-compound</span>: -<span id="L25816" class="LineNr">25816 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25817" class="LineNr">25817 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 -<span id="L25818" class="LineNr">25818 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-type</span>: -<span id="L25819" class="LineNr">25819 </span> <span class="subxComment"># target type must start with (addr ...)</span> -<span id="L25820" class="LineNr">25820 </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="L25821" class="LineNr">25821 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L25822" class="LineNr">25822 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25823" class="LineNr">25823 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 -<span id="L25824" class="LineNr">25824 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> -<span id="L25825" class="LineNr">25825 </span> (<a href='mu.subx.html#L26863'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25826" class="LineNr">25826 </span> 89/<- %ebx 0/r32/eax -<span id="L25827" class="LineNr">25827 </span> (<a href='mu.subx.html#L26863'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L25828" class="LineNr">25828 </span> (<a href='mu.subx.html#L26922'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L25829" class="LineNr">25829 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25830" class="LineNr">25830 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-target-type/disp32 -<span id="L25831" class="LineNr">25831 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-too-many-inouts</span>: -<span id="L25832" class="LineNr">25832 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L25833" class="LineNr">25833 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25834" class="LineNr">25834 </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="L25835" class="LineNr">25835 </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="L25836" class="LineNr">25836 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25837" class="LineNr">25837 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-too-many-inouts/disp32 -<span id="L25838" class="LineNr">25838 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-unexpected-output</span>: -<span id="L25839" class="LineNr">25839 </span> <span class="subxH1Comment"># - check for any output</span> -<span id="L25840" class="LineNr">25840 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25841" class="LineNr">25841 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25842" class="LineNr">25842 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-unexpected-output/disp32 -<span id="L25843" class="LineNr">25843 </span><span class="Constant">$check-mu-write-to-stream-stmt:end</span>: -<span id="L25844" class="LineNr">25844 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25845" class="LineNr">25845 </span> 5f/pop-to-edi -<span id="L25846" class="LineNr">25846 </span> 5e/pop-to-esi -<span id="L25847" class="LineNr">25847 </span> 5b/pop-to-ebx -<span id="L25848" class="LineNr">25848 </span> 5a/pop-to-edx -<span id="L25849" class="LineNr">25849 </span> 59/pop-to-ecx -<span id="L25850" class="LineNr">25850 </span> 58/pop-to-eax -<span id="L25851" class="LineNr">25851 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25852" class="LineNr">25852 </span> 89/<- %esp 5/r32/ebp -<span id="L25853" class="LineNr">25853 </span> 5d/pop-to-ebp -<span id="L25854" class="LineNr">25854 </span> c3/return -<span id="L25855" class="LineNr">25855 </span> -<span id="L25856" class="LineNr">25856 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-invalid-base-type</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>: var '"</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 to a stream\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-too-few-inouts</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>: too few inouts (2 required)\n"</span>) -<span id="L25875" class="LineNr">25875 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25876" class="LineNr">25876 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25877" class="LineNr">25877 </span> <span class="subxComment"># never gets here</span> -<span id="L25878" class="LineNr">25878 </span> -<span id="L25879" class="LineNr">25879 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-target-type-not-address</span>: -<span id="L25880" class="LineNr">25880 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25881" class="LineNr">25881 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25882" class="LineNr">25882 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25883" class="LineNr">25883 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25884" class="LineNr">25884 </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="L25885" class="LineNr">25885 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' must be an addr\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-invalid-target-type</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>: second inout '"</span>) -<span id="L25898" class="LineNr">25898 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25899" class="LineNr">25899 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25900" class="LineNr">25900 </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="L25901" class="LineNr">25901 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25902" class="LineNr">25902 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25903" class="LineNr">25903 </span> <span class="subxComment"># never gets here</span> -<span id="L25904" class="LineNr">25904 </span> -<span id="L25905" class="LineNr">25905 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-too-many-inouts</span>: -<span id="L25906" class="LineNr">25906 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25907" class="LineNr">25907 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25908" class="LineNr">25908 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25909" class="LineNr">25909 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25910" class="LineNr">25910 </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="L25911" class="LineNr">25911 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25912" class="LineNr">25912 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25913" class="LineNr">25913 </span> <span class="subxComment"># never gets here</span> -<span id="L25914" class="LineNr">25914 </span> -<span id="L25915" class="LineNr">25915 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-unexpected-output</span>: -<span id="L25916" class="LineNr">25916 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25917" class="LineNr">25917 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25918" class="LineNr">25918 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25919" class="LineNr">25919 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25920" class="LineNr">25920 </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="L25921" class="LineNr">25921 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25922" class="LineNr">25922 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25923" class="LineNr">25923 </span> <span class="subxComment"># never gets here</span> -<span id="L25924" class="LineNr">25924 </span> -<span id="L25925" class="LineNr">25925 </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="L25926" class="LineNr">25926 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25927" class="LineNr">25927 </span> 55/push-ebp -<span id="L25928" class="LineNr">25928 </span> 89/<- %ebp 4/r32/esp -<span id="L25929" class="LineNr">25929 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25930" class="LineNr">25930 </span> 50/push-eax -<span id="L25931" class="LineNr">25931 </span> 51/push-ecx -<span id="L25932" class="LineNr">25932 </span> 52/push-edx -<span id="L25933" class="LineNr">25933 </span> 56/push-esi -<span id="L25934" class="LineNr">25934 </span> 57/push-edi -<span id="L25935" class="LineNr">25935 </span><span class="Constant">$check-mu-convert-stmt:get-output</span>: -<span id="L25936" class="LineNr">25936 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25937" class="LineNr">25937 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25938" class="LineNr">25938 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> -<span id="L25939" class="LineNr">25939 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25940" class="LineNr">25940 </span> 89/<- %edi 0/r32/eax -<span id="L25941" class="LineNr">25941 </span> <span class="subxComment"># zero outputs</span> -<span id="L25942" class="LineNr">25942 </span> 3d/compare-eax-and 0/imm32 -<span id="L25943" class="LineNr">25943 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-no-output/disp32 -<span id="L25944" class="LineNr">25944 </span> <span class="subxComment"># > 1 output</span> -<span id="L25945" class="LineNr">25945 </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="L25946" class="LineNr">25946 </span> 3d/compare-eax-and 0/imm32 -<span id="L25947" class="LineNr">25947 </span> 0f 85/jump-if-!= $check-mu-convert-stmt:error-too-many-outputs/disp32 -<span id="L25948" class="LineNr">25948 </span><span class="Constant">$check-mu-convert-stmt:get-inout</span>: -<span id="L25949" class="LineNr">25949 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> -<span id="L25950" class="LineNr">25950 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25951" class="LineNr">25951 </span> 89/<- %esi 0/r32/eax -<span id="L25952" class="LineNr">25952 </span> <span class="subxComment"># zero inouts</span> -<span id="L25953" class="LineNr">25953 </span> 3d/compare-eax-and 0/imm32 -<span id="L25954" class="LineNr">25954 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-no-inout/disp32 -<span id="L25955" class="LineNr">25955 </span> <span class="subxComment"># > 1 inout</span> -<span id="L25956" class="LineNr">25956 </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="L25957" class="LineNr">25957 </span> 3d/compare-eax-and 0/imm32 -<span id="L25958" class="LineNr">25958 </span> 0f 85/jump-if-!= $check-mu-convert-stmt:error-too-many-inouts/disp32 -<span id="L25959" class="LineNr">25959 </span><span class="Constant">$check-mu-convert-stmt:types</span>: -<span id="L25960" class="LineNr">25960 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> -<span id="L25961" class="LineNr">25961 </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="L25962" class="LineNr">25962 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25963" class="LineNr">25963 </span> 89/<- %ecx 0/r32/eax -<span id="L25964" class="LineNr">25964 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> -<span id="L25965" class="LineNr">25965 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25743" class="LineNr">25743 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: first inout '"</span>) +<span id="L25744" class="LineNr">25744 </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="L25745" class="LineNr">25745 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25746" class="LineNr">25746 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25747" class="LineNr">25747 </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="L25748" class="LineNr">25748 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25749" class="LineNr">25749 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25750" class="LineNr">25750 </span> <span class="subxComment"># never gets here</span> +<span id="L25751" class="LineNr">25751 </span> +<span id="L25752" class="LineNr">25752 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-length-type</span>: +<span id="L25753" class="LineNr">25753 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25754" class="LineNr">25754 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25755" class="LineNr">25755 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25756" class="LineNr">25756 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25757" class="LineNr">25757 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: second inout '"</span>) +<span id="L25758" class="LineNr">25758 </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="L25759" class="LineNr">25759 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25760" class="LineNr">25760 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25761" class="LineNr">25761 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) +<span id="L25762" class="LineNr">25762 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25763" class="LineNr">25763 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25764" class="LineNr">25764 </span> <span class="subxComment"># never gets here</span> +<span id="L25765" class="LineNr">25765 </span> +<span id="L25766" class="LineNr">25766 </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="L25767" class="LineNr">25767 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25768" class="LineNr">25768 </span> 55/push-ebp +<span id="L25769" class="LineNr">25769 </span> 89/<- %ebp 4/r32/esp +<span id="L25770" class="LineNr">25770 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25771" class="LineNr">25771 </span> 50/push-eax +<span id="L25772" class="LineNr">25772 </span> 51/push-ecx +<span id="L25773" class="LineNr">25773 </span> 52/push-edx +<span id="L25774" class="LineNr">25774 </span> 53/push-ebx +<span id="L25775" class="LineNr">25775 </span> 56/push-esi +<span id="L25776" class="LineNr">25776 </span> 57/push-edi +<span id="L25777" class="LineNr">25777 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25778" class="LineNr">25778 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25779" class="LineNr">25779 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L25780" class="LineNr">25780 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->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><span class="Constant">$check-mu-read-from-stream-stmt:check-no-inouts</span>: +<span id="L25783" class="LineNr">25783 </span> 3d/compare-eax-and 0/imm32 +<span id="L25784" class="LineNr">25784 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 +<span id="L25785" class="LineNr">25785 </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="L25786" class="LineNr">25786 </span> 89/<- %ecx 0/r32/eax +<span id="L25787" class="LineNr">25787 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> +<span id="L25788" class="LineNr">25788 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</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/<- %ebx 0/r32/eax +<span id="L25791" class="LineNr">25791 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-compound</span>: +<span id="L25792" class="LineNr">25792 </span> <span class="subxComment"># if base-type is an atom, abort</span> +<span id="L25793" class="LineNr">25793 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25794" class="LineNr">25794 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 +<span id="L25795" class="LineNr">25795 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr</span>: +<span id="L25796" class="LineNr">25796 </span> <span class="subxComment"># if type->left not addr, abort</span> +<span id="L25797" class="LineNr">25797 </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="L25798" class="LineNr">25798 </span> (<a href='mu.subx.html#L36528'>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-read-from-stream-stmt:error-invalid-base-type/disp32 +<span id="L25801" class="LineNr">25801 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr-to-stream</span>: +<span id="L25802" class="LineNr">25802 </span> <span class="subxComment"># base-type = base-type->right</span> +<span id="L25803" class="LineNr">25803 </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="L25804" class="LineNr">25804 </span> 89/<- %ebx 0/r32/eax +<span id="L25805" class="LineNr">25805 </span> <span class="subxComment"># ensure base-type->left == stream</span> +<span id="L25806" class="LineNr">25806 </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="L25807" class="LineNr">25807 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> +<span id="L25808" class="LineNr">25808 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25809" class="LineNr">25809 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 +<span id="L25810" class="LineNr">25810 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> +<span id="L25811" class="LineNr">25811 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L25812" class="LineNr">25812 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25813" class="LineNr">25813 </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="L25814" class="LineNr">25814 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-single-inout</span>: +<span id="L25815" class="LineNr">25815 </span> 3d/compare-eax-and 0/imm32 +<span id="L25816" class="LineNr">25816 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 +<span id="L25817" class="LineNr">25817 </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="L25818" class="LineNr">25818 </span> 89/<- %ecx 0/r32/eax +<span id="L25819" class="LineNr">25819 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> +<span id="L25820" class="LineNr">25820 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25821" class="LineNr">25821 </span> 89/<- %edx 0/r32/eax +<span id="L25822" class="LineNr">25822 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> +<span id="L25823" class="LineNr">25823 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-is-compound</span>: +<span id="L25824" class="LineNr">25824 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25825" class="LineNr">25825 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 +<span id="L25826" class="LineNr">25826 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-type</span>: +<span id="L25827" class="LineNr">25827 </span> <span class="subxComment"># target type must start with (addr ...)</span> +<span id="L25828" class="LineNr">25828 </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="L25829" class="LineNr">25829 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L25830" class="LineNr">25830 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25831" class="LineNr">25831 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 +<span id="L25832" class="LineNr">25832 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> +<span id="L25833" class="LineNr">25833 </span> (<a href='mu.subx.html#L27038'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L25834" class="LineNr">25834 </span> 89/<- %ebx 0/r32/eax +<span id="L25835" class="LineNr">25835 </span> (<a href='mu.subx.html#L27038'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L25836" class="LineNr">25836 </span> (<a href='mu.subx.html#L27097'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L25837" class="LineNr">25837 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25838" class="LineNr">25838 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-target-type/disp32 +<span id="L25839" class="LineNr">25839 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-too-many-inouts</span>: +<span id="L25840" class="LineNr">25840 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L25841" class="LineNr">25841 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25842" class="LineNr">25842 </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="L25843" class="LineNr">25843 </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="L25844" class="LineNr">25844 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25845" class="LineNr">25845 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-too-many-inouts/disp32 +<span id="L25846" class="LineNr">25846 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-unexpected-output</span>: +<span id="L25847" class="LineNr">25847 </span> <span class="subxH1Comment"># - check for any output</span> +<span id="L25848" class="LineNr">25848 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25849" class="LineNr">25849 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25850" class="LineNr">25850 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-unexpected-output/disp32 +<span id="L25851" class="LineNr">25851 </span><span class="Constant">$check-mu-read-from-stream-stmt:end</span>: +<span id="L25852" class="LineNr">25852 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25853" class="LineNr">25853 </span> 5f/pop-to-edi +<span id="L25854" class="LineNr">25854 </span> 5e/pop-to-esi +<span id="L25855" class="LineNr">25855 </span> 5b/pop-to-ebx +<span id="L25856" class="LineNr">25856 </span> 5a/pop-to-edx +<span id="L25857" class="LineNr">25857 </span> 59/pop-to-ecx +<span id="L25858" class="LineNr">25858 </span> 58/pop-to-eax +<span id="L25859" class="LineNr">25859 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25860" class="LineNr">25860 </span> 89/<- %esp 5/r32/ebp +<span id="L25861" class="LineNr">25861 </span> 5d/pop-to-ebp +<span id="L25862" class="LineNr">25862 </span> c3/return +<span id="L25863" class="LineNr">25863 </span> +<span id="L25864" class="LineNr">25864 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-invalid-base-type</span>: +<span id="L25865" class="LineNr">25865 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25866" class="LineNr">25866 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25867" class="LineNr">25867 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25868" class="LineNr">25868 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25869" class="LineNr">25869 </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="L25870" class="LineNr">25870 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25871" class="LineNr">25871 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25872" class="LineNr">25872 </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="L25873" class="LineNr">25873 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25874" class="LineNr">25874 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25875" class="LineNr">25875 </span> <span class="subxComment"># never gets here</span> +<span id="L25876" class="LineNr">25876 </span> +<span id="L25877" class="LineNr">25877 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-too-few-inouts</span>: +<span id="L25878" class="LineNr">25878 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25879" class="LineNr">25879 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25880" class="LineNr">25880 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25881" class="LineNr">25881 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25882" class="LineNr">25882 </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="L25883" class="LineNr">25883 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25884" class="LineNr">25884 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25885" class="LineNr">25885 </span> <span class="subxComment"># never gets here</span> +<span id="L25886" class="LineNr">25886 </span> +<span id="L25887" class="LineNr">25887 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-target-type-not-address</span>: +<span id="L25888" class="LineNr">25888 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25889" class="LineNr">25889 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25890" class="LineNr">25890 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25891" class="LineNr">25891 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25892" class="LineNr">25892 </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="L25893" class="LineNr">25893 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25894" class="LineNr">25894 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25895" class="LineNr">25895 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) +<span id="L25896" class="LineNr">25896 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25897" class="LineNr">25897 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25898" class="LineNr">25898 </span> <span class="subxComment"># never gets here</span> +<span id="L25899" class="LineNr">25899 </span> +<span id="L25900" class="LineNr">25900 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-invalid-target-type</span>: +<span id="L25901" class="LineNr">25901 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25902" class="LineNr">25902 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25903" class="LineNr">25903 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25904" class="LineNr">25904 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25905" class="LineNr">25905 </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="L25906" class="LineNr">25906 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25907" class="LineNr">25907 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25908" class="LineNr">25908 </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="L25909" class="LineNr">25909 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25910" class="LineNr">25910 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25911" class="LineNr">25911 </span> <span class="subxComment"># never gets here</span> +<span id="L25912" class="LineNr">25912 </span> +<span id="L25913" class="LineNr">25913 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-too-many-inouts</span>: +<span id="L25914" class="LineNr">25914 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25915" class="LineNr">25915 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25916" class="LineNr">25916 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25917" class="LineNr">25917 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25918" class="LineNr">25918 </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="L25919" class="LineNr">25919 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25920" class="LineNr">25920 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25921" class="LineNr">25921 </span> <span class="subxComment"># never gets here</span> +<span id="L25922" class="LineNr">25922 </span> +<span id="L25923" class="LineNr">25923 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-unexpected-output</span>: +<span id="L25924" class="LineNr">25924 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25925" class="LineNr">25925 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25926" class="LineNr">25926 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25927" class="LineNr">25927 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25928" class="LineNr">25928 </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="L25929" class="LineNr">25929 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25930" class="LineNr">25930 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25931" class="LineNr">25931 </span> <span class="subxComment"># never gets here</span> +<span id="L25932" class="LineNr">25932 </span> +<span id="L25933" class="LineNr">25933 </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="L25934" class="LineNr">25934 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25935" class="LineNr">25935 </span> 55/push-ebp +<span id="L25936" class="LineNr">25936 </span> 89/<- %ebp 4/r32/esp +<span id="L25937" class="LineNr">25937 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25938" class="LineNr">25938 </span> 50/push-eax +<span id="L25939" class="LineNr">25939 </span> 51/push-ecx +<span id="L25940" class="LineNr">25940 </span> 52/push-edx +<span id="L25941" class="LineNr">25941 </span> 53/push-ebx +<span id="L25942" class="LineNr">25942 </span> 56/push-esi +<span id="L25943" class="LineNr">25943 </span> 57/push-edi +<span id="L25944" class="LineNr">25944 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25945" class="LineNr">25945 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25946" class="LineNr">25946 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L25947" class="LineNr">25947 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L25948" class="LineNr">25948 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25949" class="LineNr">25949 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-no-inouts</span>: +<span id="L25950" class="LineNr">25950 </span> 3d/compare-eax-and 0/imm32 +<span id="L25951" class="LineNr">25951 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 +<span id="L25952" class="LineNr">25952 </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="L25953" class="LineNr">25953 </span> 89/<- %ecx 0/r32/eax +<span id="L25954" class="LineNr">25954 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> +<span id="L25955" class="LineNr">25955 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L25956" class="LineNr">25956 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25957" class="LineNr">25957 </span> 89/<- %ebx 0/r32/eax +<span id="L25958" class="LineNr">25958 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-compound</span>: +<span id="L25959" class="LineNr">25959 </span> <span class="subxComment"># if base-type is an atom, abort</span> +<span id="L25960" class="LineNr">25960 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25961" class="LineNr">25961 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 +<span id="L25962" class="LineNr">25962 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr</span>: +<span id="L25963" class="LineNr">25963 </span> <span class="subxComment"># if type->left not addr, abort</span> +<span id="L25964" class="LineNr">25964 </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="L25965" class="LineNr">25965 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> <span id="L25966" class="LineNr">25966 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25967" class="LineNr">25967 </span> { -<span id="L25968" class="LineNr">25968 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25969" class="LineNr">25969 </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="L25970" class="LineNr">25970 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> -<span id="L25971" class="LineNr">25971 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25972" class="LineNr">25972 </span> { -<span id="L25973" class="LineNr">25973 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25974" class="LineNr">25974 </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="L25975" class="LineNr">25975 </span> } -<span id="L25976" class="LineNr">25976 </span> 89/<- %ecx 0/r32/eax -<span id="L25977" class="LineNr">25977 </span> } -<span id="L25978" class="LineNr">25978 </span> <span class="subxComment"># if input is not int or float, abort</span> -<span id="L25979" class="LineNr">25979 </span> { -<span id="L25980" class="LineNr">25980 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ecx 1) <span class="subxComment"># int => eax</span> -<span id="L25981" class="LineNr">25981 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25982" class="LineNr">25982 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25983" class="LineNr">25983 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> -<span id="L25984" class="LineNr">25984 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25985" class="LineNr">25985 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25986" class="LineNr">25986 </span> e9/jump $check-mu-convert-stmt:error-invalid-inout-type/disp32 -<span id="L25987" class="LineNr">25987 </span> } -<span id="L25988" class="LineNr">25988 </span> <span class="subxComment"># if output not in register, abort</span> -<span id="L25989" class="LineNr">25989 </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="L25990" class="LineNr">25990 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L25991" class="LineNr">25991 </span> 3d/compare-eax-and 0/imm32 -<span id="L25992" class="LineNr">25992 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-output-not-in-register/disp32 -<span id="L25993" class="LineNr">25993 </span> <span class="subxComment"># var output-type/edx: (addr type-tree) = output->value->type</span> -<span id="L25994" class="LineNr">25994 </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="L25995" class="LineNr">25995 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25996" class="LineNr">25996 </span> 89/<- %edx 0/r32/eax -<span id="L25997" class="LineNr">25997 </span> <span class="subxComment"># if output is not int or float, abort</span> -<span id="L25998" class="LineNr">25998 </span> { -<span id="L25999" class="LineNr">25999 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L26000" class="LineNr">26000 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26001" class="LineNr">26001 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26002" class="LineNr">26002 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %edx 0xf) <span class="subxComment"># float => eax</span> -<span id="L26003" class="LineNr">26003 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26004" class="LineNr">26004 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26005" class="LineNr">26005 </span> e9/jump $check-mu-convert-stmt:error-invalid-output-type/disp32 -<span id="L26006" class="LineNr">26006 </span> } -<span id="L26007" class="LineNr">26007 </span> <span class="subxComment"># if both are ints, abort</span> -<span id="L26008" class="LineNr">26008 </span> { -<span id="L26009" class="LineNr">26009 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L26010" class="LineNr">26010 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26011" class="LineNr">26011 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26012" class="LineNr">26012 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ecx 1) <span class="subxComment"># int => eax</span> -<span id="L26013" class="LineNr">26013 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26014" class="LineNr">26014 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26015" class="LineNr">26015 </span> e9/jump $check-mu-convert-stmt:error-int-to-int/disp32 -<span id="L26016" class="LineNr">26016 </span> } -<span id="L26017" class="LineNr">26017 </span> <span class="subxComment"># if both are floats, abort</span> -<span id="L26018" class="LineNr">26018 </span> { -<span id="L26019" class="LineNr">26019 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %edx 0xf) <span class="subxComment"># float => eax</span> -<span id="L26020" class="LineNr">26020 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26021" class="LineNr">26021 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26022" class="LineNr">26022 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> -<span id="L26023" class="LineNr">26023 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26024" class="LineNr">26024 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26025" class="LineNr">26025 </span> e9/jump $check-mu-convert-stmt:error-float-to-float/disp32 -<span id="L26026" class="LineNr">26026 </span> } -<span id="L26027" class="LineNr">26027 </span><span class="Constant">$check-mu-convert-stmt:end</span>: -<span id="L26028" class="LineNr">26028 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26029" class="LineNr">26029 </span> 5f/pop-to-edi -<span id="L26030" class="LineNr">26030 </span> 5e/pop-to-esi -<span id="L26031" class="LineNr">26031 </span> 5a/pop-to-edx -<span id="L26032" class="LineNr">26032 </span> 59/pop-to-ecx -<span id="L26033" class="LineNr">26033 </span> 58/pop-to-eax -<span id="L26034" class="LineNr">26034 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26035" class="LineNr">26035 </span> 89/<- %esp 5/r32/ebp -<span id="L26036" class="LineNr">26036 </span> 5d/pop-to-ebp -<span id="L26037" class="LineNr">26037 </span> c3/return -<span id="L26038" class="LineNr">26038 </span> -<span id="L26039" class="LineNr">26039 </span><span class="Constant">$check-mu-convert-stmt:error-no-inout</span>: -<span id="L26040" class="LineNr">26040 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26041" class="LineNr">26041 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26042" class="LineNr">26042 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26043" class="LineNr">26043 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26044" class="LineNr">26044 </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="L26045" class="LineNr">26045 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26046" class="LineNr">26046 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26047" class="LineNr">26047 </span> <span class="subxComment"># never gets here</span> -<span id="L26048" class="LineNr">26048 </span> -<span id="L26049" class="LineNr">26049 </span><span class="Constant">$check-mu-convert-stmt:error-too-many-inouts</span>: -<span id="L26050" class="LineNr">26050 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26051" class="LineNr">26051 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26052" class="LineNr">26052 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26053" class="LineNr">26053 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26054" class="LineNr">26054 </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="L26055" class="LineNr">26055 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26056" class="LineNr">26056 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26057" class="LineNr">26057 </span> <span class="subxComment"># never gets here</span> -<span id="L26058" class="LineNr">26058 </span> -<span id="L26059" class="LineNr">26059 </span><span class="Constant">$check-mu-convert-stmt:error-no-output</span>: -<span id="L26060" class="LineNr">26060 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26061" class="LineNr">26061 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26062" class="LineNr">26062 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26063" class="LineNr">26063 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26064" class="LineNr">26064 </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="L26065" class="LineNr">26065 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26066" class="LineNr">26066 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26067" class="LineNr">26067 </span> <span class="subxComment"># never gets here</span> -<span id="L26068" class="LineNr">26068 </span> -<span id="L26069" class="LineNr">26069 </span><span class="Constant">$check-mu-convert-stmt:error-output-not-in-register</span>: -<span id="L26070" class="LineNr">26070 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26071" class="LineNr">26071 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26072" class="LineNr">26072 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26073" class="LineNr">26073 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26074" class="LineNr">26074 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: output '"</span>) -<span id="L26075" class="LineNr">26075 </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="L26076" class="LineNr">26076 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26077" class="LineNr">26077 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26078" class="LineNr">26078 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) -<span id="L26079" class="LineNr">26079 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26080" class="LineNr">26080 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26081" class="LineNr">26081 </span> <span class="subxComment"># never gets here</span> -<span id="L26082" class="LineNr">26082 </span> -<span id="L26083" class="LineNr">26083 </span><span class="Constant">$check-mu-convert-stmt:error-too-many-outputs</span>: -<span id="L26084" class="LineNr">26084 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26085" class="LineNr">26085 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26086" class="LineNr">26086 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26087" class="LineNr">26087 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26088" class="LineNr">26088 </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="L26089" class="LineNr">26089 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26090" class="LineNr">26090 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26091" class="LineNr">26091 </span> <span class="subxComment"># never gets here</span> -<span id="L26092" class="LineNr">26092 </span> -<span id="L26093" class="LineNr">26093 </span><span class="Constant">$check-mu-convert-stmt:error-invalid-inout-type</span>: -<span id="L26094" class="LineNr">26094 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26095" class="LineNr">26095 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26096" class="LineNr">26096 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26097" class="LineNr">26097 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26098" class="LineNr">26098 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: inout '"</span>) -<span id="L26099" class="LineNr">26099 </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="L26100" class="LineNr">26100 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26101" class="LineNr">26101 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26102" class="LineNr">26102 </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="L26103" class="LineNr">26103 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26104" class="LineNr">26104 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26105" class="LineNr">26105 </span> <span class="subxComment"># never gets here</span> -<span id="L26106" class="LineNr">26106 </span> -<span id="L26107" class="LineNr">26107 </span><span class="Constant">$check-mu-convert-stmt:error-invalid-output-type</span>: -<span id="L26108" class="LineNr">26108 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26109" class="LineNr">26109 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26110" class="LineNr">26110 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26111" class="LineNr">26111 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26112" class="LineNr">26112 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: output '"</span>) -<span id="L26113" class="LineNr">26113 </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="L26114" class="LineNr">26114 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26115" class="LineNr">26115 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26116" class="LineNr">26116 </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="L26117" class="LineNr">26117 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26118" class="LineNr">26118 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26119" class="LineNr">26119 </span> <span class="subxComment"># never gets here</span> -<span id="L26120" class="LineNr">26120 </span> -<span id="L26121" class="LineNr">26121 </span><span class="Constant">$check-mu-convert-stmt:error-int-to-int</span>: -<span id="L26122" class="LineNr">26122 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26123" class="LineNr">26123 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26124" class="LineNr">26124 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26125" class="LineNr">26125 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26126" class="LineNr">26126 </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="L26127" class="LineNr">26127 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26128" class="LineNr">26128 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26129" class="LineNr">26129 </span> <span class="subxComment"># never gets here</span> -<span id="L26130" class="LineNr">26130 </span> -<span id="L26131" class="LineNr">26131 </span><span class="Constant">$check-mu-convert-stmt:error-float-to-float</span>: -<span id="L26132" class="LineNr">26132 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L26133" class="LineNr">26133 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26134" class="LineNr">26134 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26135" class="LineNr">26135 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L26136" class="LineNr">26136 </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="L26137" class="LineNr">26137 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L26138" class="LineNr">26138 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L26139" class="LineNr">26139 </span> <span class="subxComment"># never gets here</span> -<span id="L26140" class="LineNr">26140 </span> -<span id="L26141" class="LineNr">26141 </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="L26142" class="LineNr">26142 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26143" class="LineNr">26143 </span> 55/push-ebp -<span id="L26144" class="LineNr">26144 </span> 89/<- %ebp 4/r32/esp -<span id="L26145" class="LineNr">26145 </span> <span class="subxComment"># var type-parameters: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L26146" class="LineNr">26146 </span> 68/push 0/imm32 -<span id="L26147" class="LineNr">26147 </span> <span class="subxComment"># var type-parameters-storage: (table (handle array byte) (addr type-tree) 8)</span> -<span id="L26148" class="LineNr">26148 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L26149" class="LineNr">26149 </span> 68/push 0x60/imm32/size -<span id="L26150" class="LineNr">26150 </span> 68/push 0/imm32/read -<span id="L26151" class="LineNr">26151 </span> 68/push 0/imm32/write -<span id="L26152" class="LineNr">26152 </span> <span class="subxComment"># save a pointer to type-parameters-storage at type-parameters</span> -<span id="L26153" class="LineNr">26153 </span> 89/<- *(ebp-4) 4/r32/esp -<span id="L26154" class="LineNr">26154 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> *(ebp-4)) -<span id="L26155" class="LineNr">26155 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26156" class="LineNr">26156 </span> 50/push-eax -<span id="L26157" class="LineNr">26157 </span> 51/push-ecx -<span id="L26158" class="LineNr">26158 </span> 52/push-edx -<span id="L26159" class="LineNr">26159 </span> 53/push-ebx -<span id="L26160" class="LineNr">26160 </span> 56/push-esi -<span id="L26161" class="LineNr">26161 </span> 57/push-edi -<span id="L26162" class="LineNr">26162 </span> <span class="subxComment"># esi = stmt</span> -<span id="L26163" class="LineNr">26163 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L26164" class="LineNr">26164 </span> <span class="subxComment"># edi = callee</span> -<span id="L26165" class="LineNr">26165 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L26166" class="LineNr">26166 </span> <span class="subxComment"># var inouts/ecx: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L26167" class="LineNr">26167 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L26168" class="LineNr">26168 </span> 89/<- %ecx 0/r32/eax -<span id="L26169" class="LineNr">26169 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->inouts)</span> -<span id="L26170" class="LineNr">26170 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L25967" class="LineNr">25967 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 +<span id="L25968" class="LineNr">25968 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr-to-stream</span>: +<span id="L25969" class="LineNr">25969 </span> <span class="subxComment"># base-type = base-type->right</span> +<span id="L25970" class="LineNr">25970 </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="L25971" class="LineNr">25971 </span> 89/<- %ebx 0/r32/eax +<span id="L25972" class="LineNr">25972 </span> <span class="subxComment"># ensure base-type->left == stream</span> +<span id="L25973" class="LineNr">25973 </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="L25974" class="LineNr">25974 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> +<span id="L25975" class="LineNr">25975 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25976" class="LineNr">25976 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 +<span id="L25977" class="LineNr">25977 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> +<span id="L25978" class="LineNr">25978 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L25979" class="LineNr">25979 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25980" class="LineNr">25980 </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="L25981" class="LineNr">25981 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-single-inout</span>: +<span id="L25982" class="LineNr">25982 </span> 3d/compare-eax-and 0/imm32 +<span id="L25983" class="LineNr">25983 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 +<span id="L25984" class="LineNr">25984 </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="L25985" class="LineNr">25985 </span> 89/<- %ecx 0/r32/eax +<span id="L25986" class="LineNr">25986 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> +<span id="L25987" class="LineNr">25987 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25988" class="LineNr">25988 </span> 89/<- %edx 0/r32/eax +<span id="L25989" class="LineNr">25989 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> +<span id="L25990" class="LineNr">25990 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-is-compound</span>: +<span id="L25991" class="LineNr">25991 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25992" class="LineNr">25992 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 +<span id="L25993" class="LineNr">25993 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-type</span>: +<span id="L25994" class="LineNr">25994 </span> <span class="subxComment"># target type must start with (addr ...)</span> +<span id="L25995" class="LineNr">25995 </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="L25996" class="LineNr">25996 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L25997" class="LineNr">25997 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25998" class="LineNr">25998 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 +<span id="L25999" class="LineNr">25999 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> +<span id="L26000" class="LineNr">26000 </span> (<a href='mu.subx.html#L27038'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L26001" class="LineNr">26001 </span> 89/<- %ebx 0/r32/eax +<span id="L26002" class="LineNr">26002 </span> (<a href='mu.subx.html#L27038'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L26003" class="LineNr">26003 </span> (<a href='mu.subx.html#L27097'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L26004" class="LineNr">26004 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26005" class="LineNr">26005 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-target-type/disp32 +<span id="L26006" class="LineNr">26006 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-too-many-inouts</span>: +<span id="L26007" class="LineNr">26007 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L26008" class="LineNr">26008 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L26009" class="LineNr">26009 </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="L26010" class="LineNr">26010 </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="L26011" class="LineNr">26011 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26012" class="LineNr">26012 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-too-many-inouts/disp32 +<span id="L26013" class="LineNr">26013 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-unexpected-output</span>: +<span id="L26014" class="LineNr">26014 </span> <span class="subxH1Comment"># - check for any output</span> +<span id="L26015" class="LineNr">26015 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L26016" class="LineNr">26016 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26017" class="LineNr">26017 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-unexpected-output/disp32 +<span id="L26018" class="LineNr">26018 </span><span class="Constant">$check-mu-write-to-stream-stmt:end</span>: +<span id="L26019" class="LineNr">26019 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26020" class="LineNr">26020 </span> 5f/pop-to-edi +<span id="L26021" class="LineNr">26021 </span> 5e/pop-to-esi +<span id="L26022" class="LineNr">26022 </span> 5b/pop-to-ebx +<span id="L26023" class="LineNr">26023 </span> 5a/pop-to-edx +<span id="L26024" class="LineNr">26024 </span> 59/pop-to-ecx +<span id="L26025" class="LineNr">26025 </span> 58/pop-to-eax +<span id="L26026" class="LineNr">26026 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26027" class="LineNr">26027 </span> 89/<- %esp 5/r32/ebp +<span id="L26028" class="LineNr">26028 </span> 5d/pop-to-ebp +<span id="L26029" class="LineNr">26029 </span> c3/return +<span id="L26030" class="LineNr">26030 </span> +<span id="L26031" class="LineNr">26031 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-invalid-base-type</span>: +<span id="L26032" class="LineNr">26032 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26033" class="LineNr">26033 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26034" class="LineNr">26034 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26035" class="LineNr">26035 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26036" class="LineNr">26036 </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="L26037" class="LineNr">26037 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26038" class="LineNr">26038 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26039" class="LineNr">26039 </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="L26040" class="LineNr">26040 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26041" class="LineNr">26041 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26042" class="LineNr">26042 </span> <span class="subxComment"># never gets here</span> +<span id="L26043" class="LineNr">26043 </span> +<span id="L26044" class="LineNr">26044 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-too-few-inouts</span>: +<span id="L26045" class="LineNr">26045 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26046" class="LineNr">26046 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26047" class="LineNr">26047 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26048" class="LineNr">26048 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26049" class="LineNr">26049 </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="L26050" class="LineNr">26050 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26051" class="LineNr">26051 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26052" class="LineNr">26052 </span> <span class="subxComment"># never gets here</span> +<span id="L26053" class="LineNr">26053 </span> +<span id="L26054" class="LineNr">26054 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-target-type-not-address</span>: +<span id="L26055" class="LineNr">26055 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26056" class="LineNr">26056 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26057" class="LineNr">26057 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26058" class="LineNr">26058 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26059" class="LineNr">26059 </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="L26060" class="LineNr">26060 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26061" class="LineNr">26061 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26062" class="LineNr">26062 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) +<span id="L26063" class="LineNr">26063 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26064" class="LineNr">26064 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26065" class="LineNr">26065 </span> <span class="subxComment"># never gets here</span> +<span id="L26066" class="LineNr">26066 </span> +<span id="L26067" class="LineNr">26067 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-invalid-target-type</span>: +<span id="L26068" class="LineNr">26068 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26069" class="LineNr">26069 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26070" class="LineNr">26070 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26071" class="LineNr">26071 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26072" class="LineNr">26072 </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="L26073" class="LineNr">26073 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' does not have the right type\n"</span>) +<span id="L26076" class="LineNr">26076 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26077" class="LineNr">26077 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26078" class="LineNr">26078 </span> <span class="subxComment"># never gets here</span> +<span id="L26079" class="LineNr">26079 </span> +<span id="L26080" class="LineNr">26080 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-too-many-inouts</span>: +<span id="L26081" class="LineNr">26081 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26082" class="LineNr">26082 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26083" class="LineNr">26083 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26084" class="LineNr">26084 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26085" class="LineNr">26085 </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="L26086" class="LineNr">26086 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26087" class="LineNr">26087 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26088" class="LineNr">26088 </span> <span class="subxComment"># never gets here</span> +<span id="L26089" class="LineNr">26089 </span> +<span id="L26090" class="LineNr">26090 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-unexpected-output</span>: +<span id="L26091" class="LineNr">26091 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26092" class="LineNr">26092 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26093" class="LineNr">26093 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26094" class="LineNr">26094 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26095" class="LineNr">26095 </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="L26096" class="LineNr">26096 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26097" class="LineNr">26097 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26098" class="LineNr">26098 </span> <span class="subxComment"># never gets here</span> +<span id="L26099" class="LineNr">26099 </span> +<span id="L26100" class="LineNr">26100 </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="L26101" class="LineNr">26101 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26102" class="LineNr">26102 </span> 55/push-ebp +<span id="L26103" class="LineNr">26103 </span> 89/<- %ebp 4/r32/esp +<span id="L26104" class="LineNr">26104 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26105" class="LineNr">26105 </span> 50/push-eax +<span id="L26106" class="LineNr">26106 </span> 51/push-ecx +<span id="L26107" class="LineNr">26107 </span> 52/push-edx +<span id="L26108" class="LineNr">26108 </span> 56/push-esi +<span id="L26109" class="LineNr">26109 </span> 57/push-edi +<span id="L26110" class="LineNr">26110 </span><span class="Constant">$check-mu-convert-stmt:get-output</span>: +<span id="L26111" class="LineNr">26111 </span> <span class="subxComment"># esi = stmt</span> +<span id="L26112" class="LineNr">26112 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L26113" class="LineNr">26113 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> +<span id="L26114" class="LineNr">26114 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L26115" class="LineNr">26115 </span> 89/<- %edi 0/r32/eax +<span id="L26116" class="LineNr">26116 </span> <span class="subxComment"># zero outputs</span> +<span id="L26117" class="LineNr">26117 </span> 3d/compare-eax-and 0/imm32 +<span id="L26118" class="LineNr">26118 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-no-output/disp32 +<span id="L26119" class="LineNr">26119 </span> <span class="subxComment"># > 1 output</span> +<span id="L26120" class="LineNr">26120 </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="L26121" class="LineNr">26121 </span> 3d/compare-eax-and 0/imm32 +<span id="L26122" class="LineNr">26122 </span> 0f 85/jump-if-!= $check-mu-convert-stmt:error-too-many-outputs/disp32 +<span id="L26123" class="LineNr">26123 </span><span class="Constant">$check-mu-convert-stmt:get-inout</span>: +<span id="L26124" class="LineNr">26124 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> +<span id="L26125" class="LineNr">26125 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L26126" class="LineNr">26126 </span> 89/<- %esi 0/r32/eax +<span id="L26127" class="LineNr">26127 </span> <span class="subxComment"># zero inouts</span> +<span id="L26128" class="LineNr">26128 </span> 3d/compare-eax-and 0/imm32 +<span id="L26129" class="LineNr">26129 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-no-inout/disp32 +<span id="L26130" class="LineNr">26130 </span> <span class="subxComment"># > 1 inout</span> +<span id="L26131" class="LineNr">26131 </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="L26132" class="LineNr">26132 </span> 3d/compare-eax-and 0/imm32 +<span id="L26133" class="LineNr">26133 </span> 0f 85/jump-if-!= $check-mu-convert-stmt:error-too-many-inouts/disp32 +<span id="L26134" class="LineNr">26134 </span><span class="Constant">$check-mu-convert-stmt:types</span>: +<span id="L26135" class="LineNr">26135 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> +<span id="L26136" class="LineNr">26136 </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="L26137" class="LineNr">26137 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26138" class="LineNr">26138 </span> 89/<- %ecx 0/r32/eax +<span id="L26139" class="LineNr">26139 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> +<span id="L26140" class="LineNr">26140 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L26141" class="LineNr">26141 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26142" class="LineNr">26142 </span> { +<span id="L26143" class="LineNr">26143 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26144" class="LineNr">26144 </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="L26145" class="LineNr">26145 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> +<span id="L26146" class="LineNr">26146 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L26147" class="LineNr">26147 </span> { +<span id="L26148" class="LineNr">26148 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26149" class="LineNr">26149 </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="L26150" class="LineNr">26150 </span> } +<span id="L26151" class="LineNr">26151 </span> 89/<- %ecx 0/r32/eax +<span id="L26152" class="LineNr">26152 </span> } +<span id="L26153" class="LineNr">26153 </span> <span class="subxComment"># if input is not int or float, abort</span> +<span id="L26154" class="LineNr">26154 </span> { +<span id="L26155" class="LineNr">26155 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ecx 1) <span class="subxComment"># int => eax</span> +<span id="L26156" class="LineNr">26156 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26157" class="LineNr">26157 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26158" class="LineNr">26158 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> +<span id="L26159" class="LineNr">26159 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26160" class="LineNr">26160 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26161" class="LineNr">26161 </span> e9/jump $check-mu-convert-stmt:error-invalid-inout-type/disp32 +<span id="L26162" class="LineNr">26162 </span> } +<span id="L26163" class="LineNr">26163 </span> <span class="subxComment"># if output not in register, abort</span> +<span id="L26164" class="LineNr">26164 </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="L26165" class="LineNr">26165 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26166" class="LineNr">26166 </span> 3d/compare-eax-and 0/imm32 +<span id="L26167" class="LineNr">26167 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-output-not-in-register/disp32 +<span id="L26168" class="LineNr">26168 </span> <span class="subxComment"># var output-type/edx: (addr type-tree) = output->value->type</span> +<span id="L26169" class="LineNr">26169 </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="L26170" class="LineNr">26170 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> <span id="L26171" class="LineNr">26171 </span> 89/<- %edx 0/r32/eax -<span id="L26172" class="LineNr">26172 </span> { -<span id="L26173" class="LineNr">26173 </span><span class="Constant">$check-mu-call:check-for-inouts</span>: -<span id="L26174" class="LineNr">26174 </span> <span class="subxComment"># if (inouts == 0) break</span> -<span id="L26175" class="LineNr">26175 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26176" class="LineNr">26176 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26177" class="LineNr">26177 </span> <span class="subxComment"># if (expected == 0) error</span> -<span id="L26178" class="LineNr">26178 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L26179" class="LineNr">26179 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26180" class="LineNr">26180 </span><span class="Constant">$check-mu-call:check-null-addr</span>: -<span id="L26181" class="LineNr">26181 </span> <span class="subxComment"># if (inouts->value->name == "0") continue</span> -<span id="L26182" class="LineNr">26182 </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="L26183" class="LineNr">26183 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26184" class="LineNr">26184 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L26172" class="LineNr">26172 </span> <span class="subxComment"># if output is not int or float, abort</span> +<span id="L26173" class="LineNr">26173 </span> { +<span id="L26174" class="LineNr">26174 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L26175" class="LineNr">26175 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26176" class="LineNr">26176 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26177" class="LineNr">26177 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %edx 0xf) <span class="subxComment"># float => eax</span> +<span id="L26178" class="LineNr">26178 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26179" class="LineNr">26179 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26180" class="LineNr">26180 </span> e9/jump $check-mu-convert-stmt:error-invalid-output-type/disp32 +<span id="L26181" class="LineNr">26181 </span> } +<span id="L26182" class="LineNr">26182 </span> <span class="subxComment"># if both are ints, abort</span> +<span id="L26183" class="LineNr">26183 </span> { +<span id="L26184" class="LineNr">26184 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> <span id="L26185" class="LineNr">26185 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26186" class="LineNr">26186 </span> 0f 85/jump-if-!= $check-mu-call:continue-to-next-inout/disp32 -<span id="L26187" class="LineNr">26187 </span><span class="Constant">$check-mu-call:check-inout-type</span>: -<span id="L26188" class="LineNr">26188 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = inouts->value->type</span> -<span id="L26189" class="LineNr">26189 </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="L26190" class="LineNr">26190 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26191" class="LineNr">26191 </span> 89/<- %ebx 0/r32/eax -<span id="L26192" class="LineNr">26192 </span> <span class="subxComment"># if (inouts->is-deref?) t = t->right</span> -<span id="L26193" class="LineNr">26193 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L26194" class="LineNr">26194 </span> { -<span id="L26195" class="LineNr">26195 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26196" class="LineNr">26196 </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="L26197" class="LineNr">26197 </span> 89/<- %ebx 0/r32/eax -<span id="L26198" class="LineNr">26198 </span> <span class="subxComment"># if t->right is null, t = t->left</span> -<span id="L26199" class="LineNr">26199 </span> 81 7/subop/compare *(ebx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L26200" class="LineNr">26200 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26201" class="LineNr">26201 </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="L26202" class="LineNr">26202 </span> 89/<- %ebx 0/r32/eax -<span id="L26203" class="LineNr">26203 </span> } -<span id="L26204" class="LineNr">26204 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> -<span id="L26205" class="LineNr">26205 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L26206" class="LineNr">26206 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> -<span id="L26207" class="LineNr">26207 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26208" class="LineNr">26208 </span> <span class="subxComment"># if (t != t2) error</span> -<span id="L26209" class="LineNr">26209 </span> (<a href='mu.subx.html#L26439'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> -<span id="L26210" class="LineNr">26210 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26211" class="LineNr">26211 </span> { -<span id="L26212" class="LineNr">26212 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L26213" class="LineNr">26213 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26214" class="LineNr">26214 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26215" class="LineNr">26215 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26216" class="LineNr">26216 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26217" class="LineNr">26217 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26218" class="LineNr">26218 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26219" class="LineNr">26219 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26220" class="LineNr">26220 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for inout '"</span>) -<span id="L26221" class="LineNr">26221 </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="L26222" class="LineNr">26222 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26223" class="LineNr">26223 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26224" class="LineNr">26224 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) -<span id="L26225" class="LineNr">26225 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26226" class="LineNr">26226 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26227" class="LineNr">26227 </span> } -<span id="L26228" class="LineNr">26228 </span><span class="Constant">$check-mu-call:continue-to-next-inout</span>: -<span id="L26229" class="LineNr">26229 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L26230" class="LineNr">26230 </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="L26231" class="LineNr">26231 </span> 89/<- %ecx 0/r32/eax -<span id="L26232" class="LineNr">26232 </span> <span class="subxComment"># expected = lookup(expected->next)</span> -<span id="L26233" class="LineNr">26233 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L26234" class="LineNr">26234 </span> 89/<- %edx 0/r32/eax -<span id="L26235" class="LineNr">26235 </span> <span class="subxComment">#</span> -<span id="L26236" class="LineNr">26236 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L26237" class="LineNr">26237 </span> } -<span id="L26238" class="LineNr">26238 </span><span class="Constant">$check-mu-call:check-inout-count</span>: -<span id="L26239" class="LineNr">26239 </span> <span class="subxComment"># if (inouts == expected) proceed</span> -<span id="L26240" class="LineNr">26240 </span> 39/compare %ecx 2/r32/edx -<span id="L26241" class="LineNr">26241 </span> { -<span id="L26242" class="LineNr">26242 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26243" class="LineNr">26243 </span> <span class="subxComment"># exactly one of the two is null</span> -<span id="L26244" class="LineNr">26244 </span> <span class="subxComment"># if (inouts == 0) error("too many inouts")</span> -<span id="L26245" class="LineNr">26245 </span> { -<span id="L26246" class="LineNr">26246 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26247" class="LineNr">26247 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26248" class="LineNr">26248 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26249" class="LineNr">26249 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26250" class="LineNr">26250 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26251" class="LineNr">26251 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26252" class="LineNr">26252 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26253" class="LineNr">26253 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26254" class="LineNr">26254 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26255" class="LineNr">26255 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many inouts\n"</span>) -<span id="L26256" class="LineNr">26256 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26257" class="LineNr">26257 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26258" class="LineNr">26258 </span> } -<span id="L26259" class="LineNr">26259 </span> <span class="subxComment"># if (expected == 0) error("too few inouts")</span> -<span id="L26260" class="LineNr">26260 </span> { -<span id="L26261" class="LineNr">26261 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L26262" class="LineNr">26262 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26263" class="LineNr">26263 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26264" class="LineNr">26264 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26265" class="LineNr">26265 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26266" class="LineNr">26266 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26267" class="LineNr">26267 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26268" class="LineNr">26268 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26269" class="LineNr">26269 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26270" class="LineNr">26270 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few inouts\n"</span>) -<span id="L26271" class="LineNr">26271 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26272" class="LineNr">26272 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26273" class="LineNr">26273 </span> } -<span id="L26274" class="LineNr">26274 </span> } -<span id="L26275" class="LineNr">26275 </span><span class="Constant">$check-mu-call:check-outputs</span>: -<span id="L26276" class="LineNr">26276 </span> <span class="subxComment"># var outputs/ecx: (addr stmt-var) = lookup(stmt->outputs)</span> -<span id="L26277" class="LineNr">26277 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L26278" class="LineNr">26278 </span> 89/<- %ecx 0/r32/eax -<span id="L26279" class="LineNr">26279 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->outputs)</span> -<span id="L26280" class="LineNr">26280 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x10) *(edi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L26281" class="LineNr">26281 </span> 89/<- %edx 0/r32/eax -<span id="L26282" class="LineNr">26282 </span> { -<span id="L26283" class="LineNr">26283 </span><span class="Constant">$check-mu-call:check-for-outputs</span>: -<span id="L26284" class="LineNr">26284 </span> <span class="subxComment"># if (outputs == 0) break</span> -<span id="L26285" class="LineNr">26285 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26286" class="LineNr">26286 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26287" class="LineNr">26287 </span> <span class="subxComment"># if (expected == 0) error</span> -<span id="L26288" class="LineNr">26288 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L26289" class="LineNr">26289 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26290" class="LineNr">26290 </span><span class="Constant">$check-mu-call:check-output-type</span>: -<span id="L26291" class="LineNr">26291 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> -<span id="L26292" class="LineNr">26292 </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="L26293" class="LineNr">26293 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = lookup(v->type)</span> -<span id="L26294" class="LineNr">26294 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26295" class="LineNr">26295 </span> 89/<- %ebx 0/r32/eax -<span id="L26296" class="LineNr">26296 </span> <span class="subxComment"># if (outputs->is-deref?) t = t->right # TODO: check that t->left is an addr</span> -<span id="L26297" class="LineNr">26297 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L26298" class="LineNr">26298 </span> { -<span id="L26299" class="LineNr">26299 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26300" class="LineNr">26300 </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="L26301" class="LineNr">26301 </span> 89/<- %ebx 0/r32/eax -<span id="L26302" class="LineNr">26302 </span> } -<span id="L26303" class="LineNr">26303 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> -<span id="L26304" class="LineNr">26304 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L26305" class="LineNr">26305 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> -<span id="L26306" class="LineNr">26306 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26307" class="LineNr">26307 </span> <span class="subxComment"># if (t != t2) error</span> -<span id="L26308" class="LineNr">26308 </span> (<a href='mu.subx.html#L26439'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> -<span id="L26309" class="LineNr">26309 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26310" class="LineNr">26310 </span> { -<span id="L26311" class="LineNr">26311 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L26312" class="LineNr">26312 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26313" class="LineNr">26313 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26314" class="LineNr">26314 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26315" class="LineNr">26315 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26316" class="LineNr">26316 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26317" class="LineNr">26317 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26318" class="LineNr">26318 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26319" class="LineNr">26319 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for output '"</span>) -<span id="L26320" class="LineNr">26320 </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="L26321" class="LineNr">26321 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-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">"' is not right\n"</span>) -<span id="L26324" class="LineNr">26324 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26325" class="LineNr">26325 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26326" class="LineNr">26326 </span> } -<span id="L26327" class="LineNr">26327 </span><span class="Constant">$check-mu-call:check-output-register</span>: -<span id="L26328" class="LineNr">26328 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> -<span id="L26329" class="LineNr">26329 </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="L26330" class="LineNr">26330 </span> <span class="subxComment"># var r/ebx: (addr array byte) = lookup(v->register)</span> -<span id="L26331" class="LineNr">26331 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L26332" class="LineNr">26332 </span> 89/<- %ebx 0/r32/eax -<span id="L26333" class="LineNr">26333 </span> <span class="subxComment"># if (r == 0) error</span> -<span id="L26334" class="LineNr">26334 </span> 3d/compare-eax-and 0/imm32 -<span id="L26335" class="LineNr">26335 </span> { -<span id="L26336" class="LineNr">26336 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L26337" class="LineNr">26337 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26338" class="LineNr">26338 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26339" class="LineNr">26339 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26340" class="LineNr">26340 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26341" class="LineNr">26341 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26342" class="LineNr">26342 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26343" class="LineNr">26343 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26344" class="LineNr">26344 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": output '"</span>) -<span id="L26345" class="LineNr">26345 </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="L26346" class="LineNr">26346 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26347" class="LineNr">26347 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26348" class="LineNr">26348 </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="L26349" class="LineNr">26349 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26350" class="LineNr">26350 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26351" class="LineNr">26351 </span> } -<span id="L26352" class="LineNr">26352 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> -<span id="L26353" class="LineNr">26353 </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="L26354" class="LineNr">26354 </span> <span class="subxComment"># var r2/eax: (addr array byte) = lookup(v2->register)</span> -<span id="L26355" class="LineNr">26355 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L26356" class="LineNr">26356 </span> <span class="subxComment"># if (r != r2) error</span> -<span id="L26357" class="LineNr">26357 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L26358" class="LineNr">26358 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26359" class="LineNr">26359 </span> { -<span id="L26360" class="LineNr">26360 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L26361" class="LineNr">26361 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26362" class="LineNr">26362 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26363" class="LineNr">26363 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26364" class="LineNr">26364 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26365" class="LineNr">26365 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26366" class="LineNr">26366 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26367" class="LineNr">26367 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26368" class="LineNr">26368 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": register for output '"</span>) -<span id="L26369" class="LineNr">26369 </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="L26370" class="LineNr">26370 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26371" class="LineNr">26371 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26372" class="LineNr">26372 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) -<span id="L26373" class="LineNr">26373 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26374" class="LineNr">26374 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26375" class="LineNr">26375 </span> } -<span id="L26376" class="LineNr">26376 </span><span class="Constant">$check-mu-call:continue-to-next-output</span>: -<span id="L26377" class="LineNr">26377 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> -<span id="L26378" class="LineNr">26378 </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="L26379" class="LineNr">26379 </span> 89/<- %ecx 0/r32/eax -<span id="L26380" class="LineNr">26380 </span> <span class="subxComment"># expected = lookup(expected->next)</span> -<span id="L26381" class="LineNr">26381 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L26382" class="LineNr">26382 </span> 89/<- %edx 0/r32/eax -<span id="L26383" class="LineNr">26383 </span> <span class="subxComment">#</span> -<span id="L26384" class="LineNr">26384 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L26385" class="LineNr">26385 </span> } -<span id="L26386" class="LineNr">26386 </span><span class="Constant">$check-mu-call:check-output-count</span>: -<span id="L26387" class="LineNr">26387 </span> <span class="subxComment"># if (outputs == expected) proceed</span> -<span id="L26388" class="LineNr">26388 </span> 39/compare %ecx 2/r32/edx -<span id="L26389" class="LineNr">26389 </span> { -<span id="L26390" class="LineNr">26390 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26391" class="LineNr">26391 </span> <span class="subxComment"># exactly one of the two is null</span> -<span id="L26392" class="LineNr">26392 </span> <span class="subxComment"># if (outputs == 0) error("too many outputs")</span> -<span id="L26393" class="LineNr">26393 </span> { -<span id="L26394" class="LineNr">26394 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26395" class="LineNr">26395 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26396" class="LineNr">26396 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26397" class="LineNr">26397 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26398" class="LineNr">26398 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26399" class="LineNr">26399 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26400" class="LineNr">26400 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26401" class="LineNr">26401 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26402" class="LineNr">26402 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26403" class="LineNr">26403 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many outputs\n"</span>) -<span id="L26404" class="LineNr">26404 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26405" class="LineNr">26405 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26406" class="LineNr">26406 </span> } -<span id="L26407" class="LineNr">26407 </span> <span class="subxComment"># if (expected == 0) error("too few outputs")</span> -<span id="L26408" class="LineNr">26408 </span> { -<span id="L26409" class="LineNr">26409 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L26410" class="LineNr">26410 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26411" class="LineNr">26411 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26412" class="LineNr">26412 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26413" class="LineNr">26413 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26414" class="LineNr">26414 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26415" class="LineNr">26415 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26416" class="LineNr">26416 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26417" class="LineNr">26417 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26418" class="LineNr">26418 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few outputs\n"</span>) -<span id="L26419" class="LineNr">26419 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26420" class="LineNr">26420 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26421" class="LineNr">26421 </span> } -<span id="L26422" class="LineNr">26422 </span> } -<span id="L26423" class="LineNr">26423 </span><span class="Constant">$check-mu-call:end</span>: -<span id="L26424" class="LineNr">26424 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26425" class="LineNr">26425 </span> 5f/pop-to-edi -<span id="L26426" class="LineNr">26426 </span> 5e/pop-to-esi -<span id="L26427" class="LineNr">26427 </span> 5b/pop-to-ebx -<span id="L26428" class="LineNr">26428 </span> 5a/pop-to-edx -<span id="L26429" class="LineNr">26429 </span> 59/pop-to-ecx -<span id="L26430" class="LineNr">26430 </span> 58/pop-to-eax -<span id="L26431" class="LineNr">26431 </span> <span class="subxS1Comment"># . reclaim locals exclusively on the stack</span> -<span id="L26432" class="LineNr">26432 </span> 81 0/subop/add %esp 0x70/imm32 -<span id="L26433" class="LineNr">26433 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26434" class="LineNr">26434 </span> 89/<- %esp 5/r32/ebp -<span id="L26435" class="LineNr">26435 </span> 5d/pop-to-ebp -<span id="L26436" class="LineNr">26436 </span> c3/return -<span id="L26437" class="LineNr">26437 </span> -<span id="L26438" class="LineNr">26438 </span><span class="subxComment"># like type-equal? but takes literals type parameters into account</span> -<span id="L26439" class="LineNr">26439 </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="L26440" class="LineNr">26440 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26441" class="LineNr">26441 </span> 55/push-ebp -<span id="L26442" class="LineNr">26442 </span> 89/<- %ebp 4/r32/esp -<span id="L26443" class="LineNr">26443 </span> <span class="subxComment"># if call is literal and def is numberlike, return true</span> -<span id="L26444" class="LineNr">26444 </span> { -<span id="L26445" class="LineNr">26445 </span><span class="Constant">$type-match?:check-literal-int</span>: -<span id="L26446" class="LineNr">26446 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> *(ebp+0xc) 0) <span class="subxComment"># literal => eax</span> -<span id="L26447" class="LineNr">26447 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26448" class="LineNr">26448 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26449" class="LineNr">26449 </span> (<a href='mu.subx.html#L21978'>mu-numberlike-output?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L26450" class="LineNr">26450 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26451" class="LineNr">26451 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26452" class="LineNr">26452 </span> b8/copy-to-eax 1/imm32/true -<span id="L26453" class="LineNr">26453 </span> e9/jump $type-match?:end/disp32 -<span id="L26454" class="LineNr">26454 </span> } -<span id="L26455" class="LineNr">26455 </span> <span class="subxComment"># if call is literal-string, match against (addr array byte)</span> -<span id="L26456" class="LineNr">26456 </span> { -<span id="L26457" class="LineNr">26457 </span><span class="Constant">$type-match?:check-literal-string</span>: -<span id="L26458" class="LineNr">26458 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> *(ebp+0xc) 0x10) <span class="subxComment"># literal-string => eax</span> -<span id="L26459" class="LineNr">26459 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26460" class="LineNr">26460 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26461" class="LineNr">26461 </span> (<a href='mu.subx.html#L26473'>type-component-match?</a> *(ebp+8) <span class="SpecialChar"><a href='mu.subx.html#L35301'>Addr-type-string</a></span> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26462" class="LineNr">26462 </span> e9/jump $type-match?:end/disp32 -<span id="L26463" class="LineNr">26463 </span> } -<span id="L26464" class="LineNr">26464 </span><span class="Constant">$type-match?:baseline</span>: -<span id="L26465" class="LineNr">26465 </span> <span class="subxComment"># otherwise fall back</span> -<span id="L26466" class="LineNr">26466 </span> (<a href='mu.subx.html#L26473'>type-component-match?</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26467" class="LineNr">26467 </span><span class="Constant">$type-match?:end</span>: -<span id="L26468" class="LineNr">26468 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26469" class="LineNr">26469 </span> 89/<- %esp 5/r32/ebp -<span id="L26470" class="LineNr">26470 </span> 5d/pop-to-ebp -<span id="L26471" class="LineNr">26471 </span> c3/return -<span id="L26472" class="LineNr">26472 </span> -<span id="L26473" class="LineNr">26473 </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="L26474" class="LineNr">26474 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26475" class="LineNr">26475 </span> 55/push-ebp -<span id="L26476" class="LineNr">26476 </span> 89/<- %ebp 4/r32/esp -<span id="L26477" class="LineNr">26477 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26478" class="LineNr">26478 </span> 51/push-ecx -<span id="L26479" class="LineNr">26479 </span> 52/push-edx -<span id="L26480" class="LineNr">26480 </span> 53/push-ebx -<span id="L26481" class="LineNr">26481 </span> <span class="subxComment"># ecx = def</span> -<span id="L26482" class="LineNr">26482 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26483" class="LineNr">26483 </span> <span class="subxComment"># edx = call</span> -<span id="L26484" class="LineNr">26484 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L26485" class="LineNr">26485 </span><span class="Constant">$type-component-match?:compare-addr</span>: -<span id="L26486" class="LineNr">26486 </span> <span class="subxComment"># if (def == call) return true</span> -<span id="L26487" class="LineNr">26487 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L26488" class="LineNr">26488 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L26489" class="LineNr">26489 </span> b8/copy-to-eax 1/imm32/true -<span id="L26490" class="LineNr">26490 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 -<span id="L26491" class="LineNr">26491 </span> <span class="subxComment"># if (def == 0) return false</span> -<span id="L26492" class="LineNr">26492 </span> b8/copy-to-eax 0/imm32/false -<span id="L26493" class="LineNr">26493 </span> 81 7/subop/compare %ecx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26494" class="LineNr">26494 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 -<span id="L26495" class="LineNr">26495 </span> <span class="subxComment"># if (call == 0) return false</span> -<span id="L26496" class="LineNr">26496 </span> 81 7/subop/compare %edx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26497" class="LineNr">26497 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 -<span id="L26498" class="LineNr">26498 </span> <span class="subxComment"># if def is a type parameter, just check in type-parameters</span> -<span id="L26499" class="LineNr">26499 </span> { -<span id="L26500" class="LineNr">26500 </span><span class="Constant">$type-component-match?:check-type-parameter</span>: -<span id="L26501" class="LineNr">26501 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26502" class="LineNr">26502 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26503" class="LineNr">26503 </span> 81 7/subop/compare *(ecx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> -<span id="L26504" class="LineNr">26504 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26505" class="LineNr">26505 </span><span class="Constant">$type-component-match?:type-parameter</span>: -<span id="L26506" class="LineNr">26506 </span> (<a href='mu.subx.html#L26570'>type-parameter-match?</a> *(ecx+8) *(ecx+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26507" class="LineNr">26507 </span> e9/jump $type-component-match?:end/disp32 -<span id="L26508" class="LineNr">26508 </span> } -<span id="L26509" class="LineNr">26509 </span> <span class="subxComment"># if def is a list containing just a type parameter, just check in type-parameters</span> -<span id="L26510" class="LineNr">26510 </span> { -<span id="L26511" class="LineNr">26511 </span><span class="Constant">$type-component-match?:check-list-type-parameter</span>: -<span id="L26512" class="LineNr">26512 </span> <span class="subxComment"># if def is a list..</span> -<span id="L26513" class="LineNr">26513 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26514" class="LineNr">26514 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26515" class="LineNr">26515 </span> <span class="subxComment"># ..that's a singleton</span> -<span id="L26516" class="LineNr">26516 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-left</span> -<span id="L26517" class="LineNr">26517 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26518" class="LineNr">26518 </span> <span class="subxComment"># ..and whose head is a type parameter</span> -<span id="L26519" class="LineNr">26519 </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="L26520" class="LineNr">26520 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26521" class="LineNr">26521 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26522" class="LineNr">26522 </span> 81 7/subop/compare *(eax+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> -<span id="L26523" class="LineNr">26523 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26524" class="LineNr">26524 </span><span class="Constant">$type-component-match?:list-type-parameter</span>: -<span id="L26525" class="LineNr">26525 </span> (<a href='mu.subx.html#L26570'>type-parameter-match?</a> *(eax+8) *(eax+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26526" class="LineNr">26526 </span> e9/jump $type-component-match?:end/disp32 -<span id="L26527" class="LineNr">26527 </span> } -<span id="L26528" class="LineNr">26528 </span><span class="Constant">$type-component-match?:compare-atom-state</span>: -<span id="L26529" class="LineNr">26529 </span> <span class="subxComment"># if (def->is-atom? != call->is-atom?) return false</span> -<span id="L26530" class="LineNr">26530 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26531" class="LineNr">26531 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26532" class="LineNr">26532 </span> b8/copy-to-eax 0/imm32/false -<span id="L26533" class="LineNr">26533 </span> 0f 85/jump-if-!= $type-component-match?:end/disp32 -<span id="L26534" class="LineNr">26534 </span> <span class="subxComment"># if def->is-atom? return (def->value == call->value)</span> -<span id="L26535" class="LineNr">26535 </span> { -<span id="L26536" class="LineNr">26536 </span><span class="Constant">$type-component-match?:check-atom</span>: -<span id="L26537" class="LineNr">26537 </span> 81 7/subop/compare %ebx 0/imm32/false -<span id="L26538" class="LineNr">26538 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26539" class="LineNr">26539 </span><span class="Constant">$type-component-match?:is-atom</span>: -<span id="L26540" class="LineNr">26540 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L26541" class="LineNr">26541 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L26542" class="LineNr">26542 </span> 0f 94/set-if-= %al -<span id="L26543" class="LineNr">26543 </span> 25/and-eax-with 0xff/imm32 -<span id="L26544" class="LineNr">26544 </span> e9/jump $type-component-match?:end/disp32 -<span id="L26545" class="LineNr">26545 </span> } -<span id="L26546" class="LineNr">26546 </span><span class="Constant">$type-component-match?:check-left</span>: -<span id="L26547" class="LineNr">26547 </span> <span class="subxComment"># if (!type-component-match?(def->left, call->left)) return false</span> -<span id="L26548" class="LineNr">26548 </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="L26549" class="LineNr">26549 </span> 89/<- %ebx 0/r32/eax -<span id="L26550" class="LineNr">26550 </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="L26551" class="LineNr">26551 </span> (<a href='mu.subx.html#L26473'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26552" class="LineNr">26552 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26553" class="LineNr">26553 </span> 74/jump-if-= $type-component-match?:end/disp8 -<span id="L26554" class="LineNr">26554 </span><span class="Constant">$type-component-match?:check-right</span>: -<span id="L26555" class="LineNr">26555 </span> <span class="subxComment"># return type-component-match?(def->right, call->right)</span> -<span id="L26556" class="LineNr">26556 </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="L26557" class="LineNr">26557 </span> 89/<- %ebx 0/r32/eax -<span id="L26558" class="LineNr">26558 </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="L26559" class="LineNr">26559 </span> (<a href='mu.subx.html#L26473'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26560" class="LineNr">26560 </span><span class="Constant">$type-component-match?:end</span>: -<span id="L26561" class="LineNr">26561 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26562" class="LineNr">26562 </span> 5b/pop-to-ebx -<span id="L26563" class="LineNr">26563 </span> 5a/pop-to-edx -<span id="L26564" class="LineNr">26564 </span> 59/pop-to-ecx -<span id="L26565" class="LineNr">26565 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26566" class="LineNr">26566 </span> 89/<- %esp 5/r32/ebp -<span id="L26567" class="LineNr">26567 </span> 5d/pop-to-ebp -<span id="L26568" class="LineNr">26568 </span> c3/return -<span id="L26569" class="LineNr">26569 </span> -<span id="L26570" class="LineNr">26570 </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="L26571" class="LineNr">26571 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26572" class="LineNr">26572 </span> 55/push-ebp -<span id="L26573" class="LineNr">26573 </span> 89/<- %ebp 4/r32/esp -<span id="L26574" class="LineNr">26574 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26575" class="LineNr">26575 </span> 51/push-ecx -<span id="L26576" class="LineNr">26576 </span> <span class="subxComment">#</span> -<span id="L26577" class="LineNr">26577 </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="L26578" class="LineNr">26578 </span> <span class="subxComment"># if parameter wasn't saved, save it</span> -<span id="L26579" class="LineNr">26579 </span> { -<span id="L26580" class="LineNr">26580 </span> 81 7/subop/compare *eax 0/imm32 -<span id="L26581" class="LineNr">26581 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26582" class="LineNr">26582 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L26583" class="LineNr">26583 </span> 89/<- *eax 1/r32/ecx -<span id="L26584" class="LineNr">26584 </span> } -<span id="L26585" class="LineNr">26585 </span> <span class="subxComment">#</span> -<span id="L26586" class="LineNr">26586 </span> (<a href='mu.subx.html#L26922'>type-equal?</a> *(ebp+0x10) *eax) <span class="subxComment"># => eax</span> -<span id="L26587" class="LineNr">26587 </span><span class="Constant">$type-parameter-match?:end</span>: -<span id="L26588" class="LineNr">26588 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26589" class="LineNr">26589 </span> 59/pop-to-ecx -<span id="L26590" class="LineNr">26590 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26591" class="LineNr">26591 </span> 89/<- %esp 5/r32/ebp -<span id="L26592" class="LineNr">26592 </span> 5d/pop-to-ebp -<span id="L26593" class="LineNr">26593 </span> c3/return -<span id="L26594" class="LineNr">26594 </span> -<span id="L26595" class="LineNr">26595 </span><span class="subxFunction">size-of</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> -<span id="L26596" class="LineNr">26596 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26597" class="LineNr">26597 </span> 55/push-ebp -<span id="L26598" class="LineNr">26598 </span> 89/<- %ebp 4/r32/esp -<span id="L26599" class="LineNr">26599 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26600" class="LineNr">26600 </span> 51/push-ecx -<span id="L26601" class="LineNr">26601 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> -<span id="L26602" class="LineNr">26602 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26603" class="LineNr">26603 </span><span class="CommentedCode">#? (write-buffered Stderr "size-of ")</span> -<span id="L26604" class="LineNr">26604 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> -<span id="L26605" class="LineNr">26605 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L26606" class="LineNr">26606 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid: ")</span> -<span id="L26607" class="LineNr">26607 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+8))</span> -<span id="L26608" class="LineNr">26608 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L26609" class="LineNr">26609 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L26610" class="LineNr">26610 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26611" class="LineNr">26611 </span> 89/<- %ecx 0/r32/eax -<span id="L26612" class="LineNr">26612 </span> <span class="subxComment"># if mu-array?(t) return size-of-array(t)</span> -<span id="L26613" class="LineNr">26613 </span> { -<span id="L26614" class="LineNr">26614 </span> (<a href='mu.subx.html#L26692'>mu-array?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26615" class="LineNr">26615 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26616" class="LineNr">26616 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26617" class="LineNr">26617 </span> (<a href='mu.subx.html#L26723'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26618" class="LineNr">26618 </span> eb/jump $size-of:end/disp8 -<span id="L26619" class="LineNr">26619 </span> } -<span id="L26620" class="LineNr">26620 </span> <span class="subxComment"># if mu-stream?(t) return size-of-stream(t)</span> -<span id="L26621" class="LineNr">26621 </span> { -<span id="L26622" class="LineNr">26622 </span> (<a href='mu.subx.html#L26757'>mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26623" class="LineNr">26623 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26624" class="LineNr">26624 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26625" class="LineNr">26625 </span> (<a href='mu.subx.html#L26788'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26626" class="LineNr">26626 </span> eb/jump $size-of:end/disp8 -<span id="L26627" class="LineNr">26627 </span> } -<span id="L26628" class="LineNr">26628 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> -<span id="L26629" class="LineNr">26629 </span> { -<span id="L26630" class="LineNr">26630 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26631" class="LineNr">26631 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26632" class="LineNr">26632 </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="L26633" class="LineNr">26633 </span> 89/<- %ecx 0/r32/eax -<span id="L26634" class="LineNr">26634 </span> } -<span id="L26635" class="LineNr">26635 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> -<span id="L26636" class="LineNr">26636 </span> (<a href='mu.subx.html#L26801'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L26637" class="LineNr">26637 </span><span class="Constant">$size-of:end</span>: -<span id="L26638" class="LineNr">26638 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26639" class="LineNr">26639 </span> 59/pop-to-ecx -<span id="L26640" class="LineNr">26640 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26641" class="LineNr">26641 </span> 89/<- %esp 5/r32/ebp -<span id="L26642" class="LineNr">26642 </span> 5d/pop-to-ebp -<span id="L26643" class="LineNr">26643 </span> c3/return -<span id="L26644" class="LineNr">26644 </span> -<span id="L26645" class="LineNr">26645 </span><span class="subxFunction">size-of-deref</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> -<span id="L26646" class="LineNr">26646 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26647" class="LineNr">26647 </span> 55/push-ebp -<span id="L26648" class="LineNr">26648 </span> 89/<- %ebp 4/r32/esp -<span id="L26649" class="LineNr">26649 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26650" class="LineNr">26650 </span> 51/push-ecx -<span id="L26651" class="LineNr">26651 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> -<span id="L26652" class="LineNr">26652 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26653" class="LineNr">26653 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26654" class="LineNr">26654 </span> 89/<- %ecx 0/r32/eax -<span id="L26655" class="LineNr">26655 </span> <span class="subxComment"># TODO: assert(t is an addr)</span> -<span id="L26656" class="LineNr">26656 </span> <span class="subxComment"># t = lookup(t->right)</span> -<span id="L26657" class="LineNr">26657 </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="L26658" class="LineNr">26658 </span> 89/<- %ecx 0/r32/eax -<span id="L26659" class="LineNr">26659 </span> <span class="subxComment"># if mu-array?(t) return size-of-array(t)</span> -<span id="L26660" class="LineNr">26660 </span> { -<span id="L26661" class="LineNr">26661 </span> (<a href='mu.subx.html#L26692'>mu-array?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26662" class="LineNr">26662 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26663" class="LineNr">26663 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26664" class="LineNr">26664 </span> (<a href='mu.subx.html#L26723'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26665" class="LineNr">26665 </span> eb/jump $size-of-deref:end/disp8 -<span id="L26666" class="LineNr">26666 </span> } -<span id="L26667" class="LineNr">26667 </span> <span class="subxComment"># if mu-stream?(t) return size-of-stream(t)</span> -<span id="L26668" class="LineNr">26668 </span> { -<span id="L26669" class="LineNr">26669 </span> (<a href='mu.subx.html#L26757'>mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26670" class="LineNr">26670 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26671" class="LineNr">26671 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26672" class="LineNr">26672 </span> (<a href='mu.subx.html#L26788'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26673" class="LineNr">26673 </span> eb/jump $size-of-deref:end/disp8 -<span id="L26674" class="LineNr">26674 </span> } -<span id="L26675" class="LineNr">26675 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> -<span id="L26676" class="LineNr">26676 </span> { -<span id="L26677" class="LineNr">26677 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26678" class="LineNr">26678 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26679" class="LineNr">26679 </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="L26680" class="LineNr">26680 </span> 89/<- %ecx 0/r32/eax -<span id="L26681" class="LineNr">26681 </span> } -<span id="L26682" class="LineNr">26682 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> -<span id="L26683" class="LineNr">26683 </span> (<a href='mu.subx.html#L26801'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L26684" class="LineNr">26684 </span><span class="Constant">$size-of-deref:end</span>: -<span id="L26685" class="LineNr">26685 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26686" class="LineNr">26686 </span> 59/pop-to-ecx -<span id="L26687" class="LineNr">26687 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26688" class="LineNr">26688 </span> 89/<- %esp 5/r32/ebp -<span id="L26689" class="LineNr">26689 </span> 5d/pop-to-ebp -<span id="L26690" class="LineNr">26690 </span> c3/return -<span id="L26691" class="LineNr">26691 </span> -<span id="L26692" class="LineNr">26692 </span><span class="subxFunction">mu-array?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> -<span id="L26693" class="LineNr">26693 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26694" class="LineNr">26694 </span> 55/push-ebp -<span id="L26695" class="LineNr">26695 </span> 89/<- %ebp 4/r32/esp -<span id="L26696" class="LineNr">26696 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26697" class="LineNr">26697 </span> 51/push-ecx -<span id="L26698" class="LineNr">26698 </span> <span class="subxComment"># ecx = t</span> -<span id="L26699" class="LineNr">26699 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26700" class="LineNr">26700 </span> <span class="subxComment"># if t->is-atom?, return false</span> -<span id="L26701" class="LineNr">26701 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26702" class="LineNr">26702 </span> 75/jump-if-!= $mu-array?:return-false/disp8 -<span id="L26703" class="LineNr">26703 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> -<span id="L26704" class="LineNr">26704 </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="L26705" class="LineNr">26705 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26706" class="LineNr">26706 </span> 74/jump-if-= $mu-array?:return-false/disp8 -<span id="L26707" class="LineNr">26707 </span> <span class="subxComment"># return t->left->value == array</span> -<span id="L26708" class="LineNr">26708 </span> 81 7/subop/compare *(eax+4) 3/imm32/array-type-id <span class="subxComment"># Type-tree-value</span> -<span id="L26709" class="LineNr">26709 </span> 0f 94/set-if-= %al -<span id="L26710" class="LineNr">26710 </span> 25/and-eax-with 0xff/imm32 -<span id="L26711" class="LineNr">26711 </span> eb/jump $mu-array?:end/disp8 -<span id="L26712" class="LineNr">26712 </span><span class="Constant">$mu-array?:return-false</span>: -<span id="L26713" class="LineNr">26713 </span> b8/copy-to-eax 0/imm32/false -<span id="L26714" class="LineNr">26714 </span><span class="Constant">$mu-array?:end</span>: -<span id="L26715" class="LineNr">26715 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26716" class="LineNr">26716 </span> 59/pop-to-ecx -<span id="L26717" class="LineNr">26717 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26718" class="LineNr">26718 </span> 89/<- %esp 5/r32/ebp -<span id="L26719" class="LineNr">26719 </span> 5d/pop-to-ebp -<span id="L26720" class="LineNr">26720 </span> c3/return -<span id="L26721" class="LineNr">26721 </span> -<span id="L26722" class="LineNr">26722 </span><span class="subxComment"># size of a statically allocated array where the size is part of the type expression</span> -<span id="L26723" class="LineNr">26723 </span><span class="subxFunction">size-of-array</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> -<span id="L26724" class="LineNr">26724 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26725" class="LineNr">26725 </span> 55/push-ebp -<span id="L26726" class="LineNr">26726 </span> 89/<- %ebp 4/r32/esp -<span id="L26727" class="LineNr">26727 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26728" class="LineNr">26728 </span> 51/push-ecx -<span id="L26729" class="LineNr">26729 </span> 52/push-edx -<span id="L26730" class="LineNr">26730 </span> <span class="subxComment">#</span> -<span id="L26731" class="LineNr">26731 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26732" class="LineNr">26732 </span> <span class="subxComment"># TODO: assert that a->left is 'array'</span> -<span id="L26733" class="LineNr">26733 </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="L26734" class="LineNr">26734 </span> 89/<- %ecx 0/r32/eax -<span id="L26735" class="LineNr">26735 </span> <span class="subxComment"># var elem-type/edx: type-id = a->right->left->value</span> -<span id="L26736" class="LineNr">26736 </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="L26737" class="LineNr">26737 </span> 8b/-> *(eax+4) 2/r32/edx <span class="subxComment"># Type-tree-value</span> -<span id="L26738" class="LineNr">26738 </span> <span class="subxComment"># TODO: assert that a->right->right->left->value == size</span> -<span id="L26739" class="LineNr">26739 </span> <span class="subxComment"># var array-size/ecx: int = a->right->right->left->value-size</span> -<span id="L26740" class="LineNr">26740 </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="L26741" class="LineNr">26741 </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="L26742" class="LineNr">26742 </span> 8b/-> *(eax+8) 1/r32/ecx <span class="subxComment"># Type-tree-value-size</span> -<span id="L26743" class="LineNr">26743 </span> <span class="subxComment"># return 4 + array-size * size-of(elem-type)</span> -<span id="L26744" class="LineNr">26744 </span> (<a href='mu.subx.html#L29115'>size-of-type-id-as-array-element</a> %edx) <span class="subxComment"># => eax</span> -<span id="L26745" class="LineNr">26745 </span> f7 4/subop/multiply-into-edx-eax %ecx -<span id="L26746" class="LineNr">26746 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array size</span> -<span id="L26747" class="LineNr">26747 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L26748" class="LineNr">26748 </span><span class="Constant">$size-of-array:end</span>: -<span id="L26749" class="LineNr">26749 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26750" class="LineNr">26750 </span> 5a/pop-to-edx -<span id="L26751" class="LineNr">26751 </span> 59/pop-to-ecx -<span id="L26752" class="LineNr">26752 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26753" class="LineNr">26753 </span> 89/<- %esp 5/r32/ebp -<span id="L26754" class="LineNr">26754 </span> 5d/pop-to-ebp -<span id="L26755" class="LineNr">26755 </span> c3/return -<span id="L26756" class="LineNr">26756 </span> -<span id="L26757" class="LineNr">26757 </span><span class="subxFunction">mu-stream?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> -<span id="L26758" class="LineNr">26758 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26759" class="LineNr">26759 </span> 55/push-ebp -<span id="L26760" class="LineNr">26760 </span> 89/<- %ebp 4/r32/esp -<span id="L26761" class="LineNr">26761 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26762" class="LineNr">26762 </span> 51/push-ecx -<span id="L26763" class="LineNr">26763 </span> <span class="subxComment"># ecx = t</span> -<span id="L26764" class="LineNr">26764 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26765" class="LineNr">26765 </span> <span class="subxComment"># if t->is-atom?, return false</span> -<span id="L26766" class="LineNr">26766 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26767" class="LineNr">26767 </span> 75/jump-if-!= $mu-stream?:return-false/disp8 -<span id="L26768" class="LineNr">26768 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> -<span id="L26769" class="LineNr">26769 </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="L26770" class="LineNr">26770 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26771" class="LineNr">26771 </span> 74/jump-if-= $mu-stream?:return-false/disp8 -<span id="L26772" class="LineNr">26772 </span> <span class="subxComment"># return t->left->value == stream</span> -<span id="L26773" class="LineNr">26773 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream-type-id <span class="subxComment"># Type-tree-value</span> -<span id="L26774" class="LineNr">26774 </span> 0f 94/set-if-= %al -<span id="L26775" class="LineNr">26775 </span> 25/and-eax-with 0xff/imm32 -<span id="L26776" class="LineNr">26776 </span> eb/jump $mu-stream?:end/disp8 -<span id="L26777" class="LineNr">26777 </span><span class="Constant">$mu-stream?:return-false</span>: -<span id="L26778" class="LineNr">26778 </span> b8/copy-to-eax 0/imm32/false -<span id="L26779" class="LineNr">26779 </span><span class="Constant">$mu-stream?:end</span>: -<span id="L26780" class="LineNr">26780 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26781" class="LineNr">26781 </span> 59/pop-to-ecx -<span id="L26782" class="LineNr">26782 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26783" class="LineNr">26783 </span> 89/<- %esp 5/r32/ebp -<span id="L26784" class="LineNr">26784 </span> 5d/pop-to-ebp -<span id="L26785" class="LineNr">26785 </span> c3/return -<span id="L26786" class="LineNr">26786 </span> -<span id="L26787" class="LineNr">26787 </span><span class="subxComment"># size of a statically allocated stream where the size is part of the type expression</span> -<span id="L26788" class="LineNr">26788 </span><span class="subxFunction">size-of-stream</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> -<span id="L26789" class="LineNr">26789 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26790" class="LineNr">26790 </span> 55/push-ebp -<span id="L26791" class="LineNr">26791 </span> 89/<- %ebp 4/r32/esp -<span id="L26792" class="LineNr">26792 </span> <span class="subxComment">#</span> -<span id="L26793" class="LineNr">26793 </span> (<a href='mu.subx.html#L26723'>size-of-array</a> *(ebp+8)) <span class="subxComment"># assumes we ignore the actual type name 'array' in the type</span> -<span id="L26794" class="LineNr">26794 </span> 05/add-to-eax 8/imm32 <span class="subxComment"># for read/write pointers</span> -<span id="L26795" class="LineNr">26795 </span><span class="Constant">$size-of-stream:end</span>: -<span id="L26796" class="LineNr">26796 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26797" class="LineNr">26797 </span> 89/<- %esp 5/r32/ebp -<span id="L26798" class="LineNr">26798 </span> 5d/pop-to-ebp -<span id="L26799" class="LineNr">26799 </span> c3/return -<span id="L26800" class="LineNr">26800 </span> -<span id="L26801" class="LineNr">26801 </span><span class="subxFunction">size-of-type-id</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> -<span id="L26802" class="LineNr">26802 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26803" class="LineNr">26803 </span> 55/push-ebp -<span id="L26804" class="LineNr">26804 </span> 89/<- %ebp 4/r32/esp -<span id="L26805" class="LineNr">26805 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26806" class="LineNr">26806 </span> 51/push-ecx -<span id="L26807" class="LineNr">26807 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> -<span id="L26808" class="LineNr">26808 </span> 68/push 0/imm32 -<span id="L26809" class="LineNr">26809 </span> 68/push 0/imm32 -<span id="L26810" class="LineNr">26810 </span> 89/<- %ecx 4/r32/esp -<span id="L26811" class="LineNr">26811 </span> <span class="subxComment"># eax = t</span> -<span id="L26812" class="LineNr">26812 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L26813" class="LineNr">26813 </span> <span class="subxComment"># if t is a literal, return 0</span> -<span id="L26814" class="LineNr">26814 </span> 3d/compare-eax-and 0/imm32 -<span id="L26815" class="LineNr">26815 </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="L26816" class="LineNr">26816 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> -<span id="L26817" class="LineNr">26817 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L26818" class="LineNr">26818 </span> { -<span id="L26819" class="LineNr">26819 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26820" class="LineNr">26820 </span> b8/copy-to-eax 4/imm32 -<span id="L26821" class="LineNr">26821 </span> eb/jump $size-of-type-id:end/disp8 -<span id="L26822" class="LineNr">26822 </span> } -<span id="L26823" class="LineNr">26823 </span> <span class="subxComment"># if t is a handle, return 8</span> -<span id="L26824" class="LineNr">26824 </span> 3d/compare-eax-and 4/imm32/handle -<span id="L26825" class="LineNr">26825 </span> { -<span id="L26826" class="LineNr">26826 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26827" class="LineNr">26827 </span> b8/copy-to-eax 8/imm32 -<span id="L26828" class="LineNr">26828 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L26829" class="LineNr">26829 </span> } -<span id="L26830" class="LineNr">26830 </span> <span class="subxComment"># if t is a slice, return 8</span> -<span id="L26831" class="LineNr">26831 </span> 3d/compare-eax-and 0xc/imm32/slice -<span id="L26832" class="LineNr">26832 </span> { -<span id="L26833" class="LineNr">26833 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26834" class="LineNr">26834 </span> b8/copy-to-eax 8/imm32 -<span id="L26835" class="LineNr">26835 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L26836" class="LineNr">26836 </span> } -<span id="L26837" class="LineNr">26837 </span> <span class="subxComment"># if t is a user-defined type, return its size</span> -<span id="L26838" class="LineNr">26838 </span> <span class="subxComment"># TODO: support non-atom type</span> -<span id="L26839" class="LineNr">26839 </span> (<a href='mu.subx.html#L20355'>find-typeinfo</a> %eax %ecx) -<span id="L26840" class="LineNr">26840 </span> { -<span id="L26841" class="LineNr">26841 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L26842" class="LineNr">26842 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26843" class="LineNr">26843 </span><span class="Constant">$size-of-type-id:user-defined</span>: -<span id="L26844" class="LineNr">26844 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L26845" class="LineNr">26845 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L26846" class="LineNr">26846 </span> eb/jump $size-of-type-id:end/disp8 -<span id="L26847" class="LineNr">26847 </span> } -<span id="L26848" class="LineNr">26848 </span> <span class="subxComment"># otherwise return the word size</span> -<span id="L26849" class="LineNr">26849 </span> b8/copy-to-eax 4/imm32 -<span id="L26850" class="LineNr">26850 </span><span class="Constant">$size-of-type-id:end</span>: -<span id="L26851" class="LineNr">26851 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L26852" class="LineNr">26852 </span> 81 0/subop/add %esp 8/imm32 -<span id="L26853" class="LineNr">26853 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26854" class="LineNr">26854 </span> 59/pop-to-ecx -<span id="L26855" class="LineNr">26855 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26856" class="LineNr">26856 </span> 89/<- %esp 5/r32/ebp -<span id="L26857" class="LineNr">26857 </span> 5d/pop-to-ebp -<span id="L26858" class="LineNr">26858 </span> c3/return -<span id="L26859" class="LineNr">26859 </span> -<span id="L26860" class="LineNr">26860 </span><span class="subxComment"># Minor violation of our type system since it returns an addr. But we could</span> -<span id="L26861" class="LineNr">26861 </span><span class="subxComment"># replace it with a handle some time.</span> -<span id="L26862" class="LineNr">26862 </span><span class="subxComment"># Returns null if t is an atom.</span> -<span id="L26863" class="LineNr">26863 </span><span class="subxFunction">type-tail</span>: <span class="subxComment"># t: (addr type-tree) -> out/eax: (addr type-tree)</span> -<span id="L26864" class="LineNr">26864 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26865" class="LineNr">26865 </span> 55/push-ebp -<span id="L26866" class="LineNr">26866 </span> 89/<- %ebp 4/r32/esp -<span id="L26867" class="LineNr">26867 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26868" class="LineNr">26868 </span> 51/push-ecx -<span id="L26869" class="LineNr">26869 </span> <span class="subxComment"># eax = 0</span> -<span id="L26870" class="LineNr">26870 </span> b8/copy-to-eax 0/imm32 -<span id="L26871" class="LineNr">26871 </span> <span class="subxComment"># ecx = t</span> -<span id="L26872" class="LineNr">26872 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26873" class="LineNr">26873 </span><span class="Constant">$type-tail:check-atom</span>: -<span id="L26874" class="LineNr">26874 </span> <span class="subxComment"># if t->is-atom? return 0</span> -<span id="L26875" class="LineNr">26875 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26876" class="LineNr">26876 </span> 0f 85/jump-if-!= $type-tail:end/disp32 -<span id="L26877" class="LineNr">26877 </span> <span class="subxComment"># var tail = t->right</span> -<span id="L26878" class="LineNr">26878 </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="L26879" class="LineNr">26879 </span> 89/<- %ecx 0/r32/eax -<span id="L26880" class="LineNr">26880 </span><span class="Constant">$type-tail:check-singleton</span>: -<span id="L26881" class="LineNr">26881 </span> <span class="subxComment"># if (tail->right == 0) return tail->left</span> -<span id="L26882" class="LineNr">26882 </span> { -<span id="L26883" class="LineNr">26883 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L26884" class="LineNr">26884 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26885" class="LineNr">26885 </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="L26886" class="LineNr">26886 </span> e9/jump $type-tail:end/disp32 -<span id="L26887" class="LineNr">26887 </span> } -<span id="L26888" class="LineNr">26888 </span> <span class="subxComment"># if tail->right->left is an array-capacity, return tail->left</span> -<span id="L26889" class="LineNr">26889 </span> { -<span id="L26890" class="LineNr">26890 </span><span class="Constant">$type-tail:check-array-capacity</span>: -<span id="L26891" class="LineNr">26891 </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="L26892" class="LineNr">26892 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26893" class="LineNr">26893 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26894" class="LineNr">26894 </span><span class="Constant">$type-tail:check-array-capacity-1</span>: -<span id="L26895" class="LineNr">26895 </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="L26896" class="LineNr">26896 </span> 3d/compare-eax-and 0/imm32 -<span id="L26897" class="LineNr">26897 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26898" class="LineNr">26898 </span><span class="Constant">$type-tail:check-array-capacity-2</span>: -<span id="L26899" class="LineNr">26899 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 9) <span class="subxComment"># array-capacity => eax</span> -<span id="L26900" class="LineNr">26900 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26901" class="LineNr">26901 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26902" class="LineNr">26902 </span><span class="Constant">$type-tail:array-capacity</span>: -<span id="L26903" class="LineNr">26903 </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="L26904" class="LineNr">26904 </span> eb/jump $type-tail:end/disp8 -<span id="L26905" class="LineNr">26905 </span> } -<span id="L26906" class="LineNr">26906 </span><span class="Constant">$type-tail:check-compound-left</span>: -<span id="L26907" class="LineNr">26907 </span> <span class="subxComment"># if !tail->left->is-atom? return tail->left</span> -<span id="L26908" class="LineNr">26908 </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="L26909" class="LineNr">26909 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26910" class="LineNr">26910 </span> 74/jump-if-= $type-tail:end/disp8 -<span id="L26911" class="LineNr">26911 </span><span class="Constant">$type-tail:return-tail</span>: -<span id="L26912" class="LineNr">26912 </span> <span class="subxComment"># return tail</span> -<span id="L26913" class="LineNr">26913 </span> 89/<- %eax 1/r32/ecx -<span id="L26914" class="LineNr">26914 </span><span class="Constant">$type-tail:end</span>: -<span id="L26915" class="LineNr">26915 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26916" class="LineNr">26916 </span> 59/pop-to-ecx -<span id="L26917" class="LineNr">26917 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26918" class="LineNr">26918 </span> 89/<- %esp 5/r32/ebp -<span id="L26919" class="LineNr">26919 </span> 5d/pop-to-ebp -<span id="L26920" class="LineNr">26920 </span> c3/return -<span id="L26921" class="LineNr">26921 </span> -<span id="L26922" class="LineNr">26922 </span><span class="subxFunction">type-equal?</span>: <span class="subxComment"># a: (addr type-tree), b: (addr type-tree) -> result/eax: boolean</span> -<span id="L26923" class="LineNr">26923 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26924" class="LineNr">26924 </span> 55/push-ebp -<span id="L26925" class="LineNr">26925 </span> 89/<- %ebp 4/r32/esp -<span id="L26926" class="LineNr">26926 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26927" class="LineNr">26927 </span> 51/push-ecx -<span id="L26928" class="LineNr">26928 </span> 52/push-edx -<span id="L26929" class="LineNr">26929 </span> 53/push-ebx -<span id="L26930" class="LineNr">26930 </span> <span class="subxComment"># ecx = a</span> -<span id="L26931" class="LineNr">26931 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26932" class="LineNr">26932 </span> <span class="subxComment"># edx = b</span> -<span id="L26933" class="LineNr">26933 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L26934" class="LineNr">26934 </span><span class="Constant">$type-equal?:compare-addr</span>: -<span id="L26935" class="LineNr">26935 </span> <span class="subxComment"># if (a == b) return true</span> -<span id="L26936" class="LineNr">26936 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L26937" class="LineNr">26937 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L26938" class="LineNr">26938 </span> b8/copy-to-eax 1/imm32/true -<span id="L26939" class="LineNr">26939 </span> 0f 84/jump-if-= $type-equal?:end/disp32 -<span id="L26940" class="LineNr">26940 </span><span class="Constant">$type-equal?:compare-null-a</span>: -<span id="L26941" class="LineNr">26941 </span> <span class="subxComment"># if (a == 0) return false</span> -<span id="L26942" class="LineNr">26942 </span> b8/copy-to-eax 0/imm32/false -<span id="L26943" class="LineNr">26943 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26944" class="LineNr">26944 </span> 0f 84/jump-if-= $type-equal?:end/disp32 -<span id="L26945" class="LineNr">26945 </span><span class="Constant">$type-equal?:compare-null-b</span>: -<span id="L26946" class="LineNr">26946 </span> <span class="subxComment"># if (b == 0) return false</span> -<span id="L26947" class="LineNr">26947 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L26948" class="LineNr">26948 </span> 0f 84/jump-if-= $type-equal?:end/disp32 -<span id="L26949" class="LineNr">26949 </span><span class="Constant">$type-equal?:compare-atom-state</span>: -<span id="L26950" class="LineNr">26950 </span> <span class="subxComment"># if (a->is-atom? != b->is-atom?) return false</span> -<span id="L26951" class="LineNr">26951 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26952" class="LineNr">26952 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26186" class="LineNr">26186 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26187" class="LineNr">26187 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ecx 1) <span class="subxComment"># int => eax</span> +<span id="L26188" class="LineNr">26188 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26189" class="LineNr">26189 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26190" class="LineNr">26190 </span> e9/jump $check-mu-convert-stmt:error-int-to-int/disp32 +<span id="L26191" class="LineNr">26191 </span> } +<span id="L26192" class="LineNr">26192 </span> <span class="subxComment"># if both are floats, abort</span> +<span id="L26193" class="LineNr">26193 </span> { +<span id="L26194" class="LineNr">26194 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %edx 0xf) <span class="subxComment"># float => eax</span> +<span id="L26195" class="LineNr">26195 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26196" class="LineNr">26196 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26197" class="LineNr">26197 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> +<span id="L26198" class="LineNr">26198 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26199" class="LineNr">26199 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26200" class="LineNr">26200 </span> e9/jump $check-mu-convert-stmt:error-float-to-float/disp32 +<span id="L26201" class="LineNr">26201 </span> } +<span id="L26202" class="LineNr">26202 </span><span class="Constant">$check-mu-convert-stmt:end</span>: +<span id="L26203" class="LineNr">26203 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26204" class="LineNr">26204 </span> 5f/pop-to-edi +<span id="L26205" class="LineNr">26205 </span> 5e/pop-to-esi +<span id="L26206" class="LineNr">26206 </span> 5a/pop-to-edx +<span id="L26207" class="LineNr">26207 </span> 59/pop-to-ecx +<span id="L26208" class="LineNr">26208 </span> 58/pop-to-eax +<span id="L26209" class="LineNr">26209 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26210" class="LineNr">26210 </span> 89/<- %esp 5/r32/ebp +<span id="L26211" class="LineNr">26211 </span> 5d/pop-to-ebp +<span id="L26212" class="LineNr">26212 </span> c3/return +<span id="L26213" class="LineNr">26213 </span> +<span id="L26214" class="LineNr">26214 </span><span class="Constant">$check-mu-convert-stmt:error-no-inout</span>: +<span id="L26215" class="LineNr">26215 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26216" class="LineNr">26216 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26217" class="LineNr">26217 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26218" class="LineNr">26218 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26219" class="LineNr">26219 </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="L26220" class="LineNr">26220 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26221" class="LineNr">26221 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26222" class="LineNr">26222 </span> <span class="subxComment"># never gets here</span> +<span id="L26223" class="LineNr">26223 </span> +<span id="L26224" class="LineNr">26224 </span><span class="Constant">$check-mu-convert-stmt:error-too-many-inouts</span>: +<span id="L26225" class="LineNr">26225 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26226" class="LineNr">26226 </span> 8b/-> *(ebp+0xc) 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+0x10) %eax) +<span id="L26229" class="LineNr">26229 </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="L26230" class="LineNr">26230 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26231" class="LineNr">26231 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26232" class="LineNr">26232 </span> <span class="subxComment"># never gets here</span> +<span id="L26233" class="LineNr">26233 </span> +<span id="L26234" class="LineNr">26234 </span><span class="Constant">$check-mu-convert-stmt:error-no-output</span>: +<span id="L26235" class="LineNr">26235 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26236" class="LineNr">26236 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26237" class="LineNr">26237 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26238" class="LineNr">26238 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26239" class="LineNr">26239 </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="L26240" class="LineNr">26240 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26241" class="LineNr">26241 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26242" class="LineNr">26242 </span> <span class="subxComment"># never gets here</span> +<span id="L26243" class="LineNr">26243 </span> +<span id="L26244" class="LineNr">26244 </span><span class="Constant">$check-mu-convert-stmt:error-output-not-in-register</span>: +<span id="L26245" class="LineNr">26245 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26246" class="LineNr">26246 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26247" class="LineNr">26247 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26248" class="LineNr">26248 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26249" class="LineNr">26249 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: output '"</span>) +<span id="L26250" class="LineNr">26250 </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="L26251" class="LineNr">26251 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26252" class="LineNr">26252 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26253" class="LineNr">26253 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) +<span id="L26254" class="LineNr">26254 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26255" class="LineNr">26255 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26256" class="LineNr">26256 </span> <span class="subxComment"># never gets here</span> +<span id="L26257" class="LineNr">26257 </span> +<span id="L26258" class="LineNr">26258 </span><span class="Constant">$check-mu-convert-stmt:error-too-many-outputs</span>: +<span id="L26259" class="LineNr">26259 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26260" class="LineNr">26260 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26261" class="LineNr">26261 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26262" class="LineNr">26262 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26263" class="LineNr">26263 </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="L26264" class="LineNr">26264 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26265" class="LineNr">26265 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26266" class="LineNr">26266 </span> <span class="subxComment"># never gets here</span> +<span id="L26267" class="LineNr">26267 </span> +<span id="L26268" class="LineNr">26268 </span><span class="Constant">$check-mu-convert-stmt:error-invalid-inout-type</span>: +<span id="L26269" class="LineNr">26269 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26270" class="LineNr">26270 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26271" class="LineNr">26271 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26272" class="LineNr">26272 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26273" class="LineNr">26273 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: inout '"</span>) +<span id="L26274" class="LineNr">26274 </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="L26275" class="LineNr">26275 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26276" class="LineNr">26276 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26277" class="LineNr">26277 </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="L26278" class="LineNr">26278 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26279" class="LineNr">26279 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26280" class="LineNr">26280 </span> <span class="subxComment"># never gets here</span> +<span id="L26281" class="LineNr">26281 </span> +<span id="L26282" class="LineNr">26282 </span><span class="Constant">$check-mu-convert-stmt:error-invalid-output-type</span>: +<span id="L26283" class="LineNr">26283 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26284" class="LineNr">26284 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26285" class="LineNr">26285 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26286" class="LineNr">26286 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26287" class="LineNr">26287 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: output '"</span>) +<span id="L26288" class="LineNr">26288 </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="L26289" class="LineNr">26289 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26290" class="LineNr">26290 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26291" class="LineNr">26291 </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="L26292" class="LineNr">26292 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26293" class="LineNr">26293 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26294" class="LineNr">26294 </span> <span class="subxComment"># never gets here</span> +<span id="L26295" class="LineNr">26295 </span> +<span id="L26296" class="LineNr">26296 </span><span class="Constant">$check-mu-convert-stmt:error-int-to-int</span>: +<span id="L26297" class="LineNr">26297 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26298" class="LineNr">26298 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26299" class="LineNr">26299 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26300" class="LineNr">26300 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26301" class="LineNr">26301 </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="L26302" class="LineNr">26302 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26303" class="LineNr">26303 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26304" class="LineNr">26304 </span> <span class="subxComment"># never gets here</span> +<span id="L26305" class="LineNr">26305 </span> +<span id="L26306" class="LineNr">26306 </span><span class="Constant">$check-mu-convert-stmt:error-float-to-float</span>: +<span id="L26307" class="LineNr">26307 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26308" class="LineNr">26308 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26309" class="LineNr">26309 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26310" class="LineNr">26310 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26311" class="LineNr">26311 </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="L26312" class="LineNr">26312 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26313" class="LineNr">26313 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26314" class="LineNr">26314 </span> <span class="subxComment"># never gets here</span> +<span id="L26315" class="LineNr">26315 </span> +<span id="L26316" class="LineNr">26316 </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="L26317" class="LineNr">26317 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26318" class="LineNr">26318 </span> 55/push-ebp +<span id="L26319" class="LineNr">26319 </span> 89/<- %ebp 4/r32/esp +<span id="L26320" class="LineNr">26320 </span> <span class="subxComment"># var type-parameters: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L26321" class="LineNr">26321 </span> 68/push 0/imm32 +<span id="L26322" class="LineNr">26322 </span> <span class="subxComment"># var type-parameters-storage: (table (handle array byte) (addr type-tree) 8)</span> +<span id="L26323" class="LineNr">26323 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L26324" class="LineNr">26324 </span> 68/push 0x60/imm32/size +<span id="L26325" class="LineNr">26325 </span> 68/push 0/imm32/read +<span id="L26326" class="LineNr">26326 </span> 68/push 0/imm32/write +<span id="L26327" class="LineNr">26327 </span> <span class="subxComment"># save a pointer to type-parameters-storage at type-parameters</span> +<span id="L26328" class="LineNr">26328 </span> 89/<- *(ebp-4) 4/r32/esp +<span id="L26329" class="LineNr">26329 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> *(ebp-4)) +<span id="L26330" class="LineNr">26330 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26331" class="LineNr">26331 </span> 50/push-eax +<span id="L26332" class="LineNr">26332 </span> 51/push-ecx +<span id="L26333" class="LineNr">26333 </span> 52/push-edx +<span id="L26334" class="LineNr">26334 </span> 53/push-ebx +<span id="L26335" class="LineNr">26335 </span> 56/push-esi +<span id="L26336" class="LineNr">26336 </span> 57/push-edi +<span id="L26337" class="LineNr">26337 </span> <span class="subxComment"># esi = stmt</span> +<span id="L26338" class="LineNr">26338 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L26339" class="LineNr">26339 </span> <span class="subxComment"># edi = callee</span> +<span id="L26340" class="LineNr">26340 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L26341" class="LineNr">26341 </span> <span class="subxComment"># var inouts/ecx: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L26342" class="LineNr">26342 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L26343" class="LineNr">26343 </span> 89/<- %ecx 0/r32/eax +<span id="L26344" class="LineNr">26344 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->inouts)</span> +<span id="L26345" class="LineNr">26345 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L26346" class="LineNr">26346 </span> 89/<- %edx 0/r32/eax +<span id="L26347" class="LineNr">26347 </span> { +<span id="L26348" class="LineNr">26348 </span><span class="Constant">$check-mu-call:check-for-inouts</span>: +<span id="L26349" class="LineNr">26349 </span> <span class="subxComment"># if (inouts == 0) break</span> +<span id="L26350" class="LineNr">26350 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26351" class="LineNr">26351 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26352" class="LineNr">26352 </span> <span class="subxComment"># if (expected == 0) error</span> +<span id="L26353" class="LineNr">26353 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L26354" class="LineNr">26354 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26355" class="LineNr">26355 </span><span class="Constant">$check-mu-call:check-null-addr</span>: +<span id="L26356" class="LineNr">26356 </span> <span class="subxComment"># if (inouts->value->name == "0") continue</span> +<span id="L26357" class="LineNr">26357 </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="L26358" class="LineNr">26358 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26359" class="LineNr">26359 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L26360" class="LineNr">26360 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26361" class="LineNr">26361 </span> 0f 85/jump-if-!= $check-mu-call:continue-to-next-inout/disp32 +<span id="L26362" class="LineNr">26362 </span><span class="Constant">$check-mu-call:check-inout-type</span>: +<span id="L26363" class="LineNr">26363 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = inouts->value->type</span> +<span id="L26364" class="LineNr">26364 </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="L26365" class="LineNr">26365 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26366" class="LineNr">26366 </span> 89/<- %ebx 0/r32/eax +<span id="L26367" class="LineNr">26367 </span> <span class="subxComment"># if (inouts->is-deref?) t = t->right</span> +<span id="L26368" class="LineNr">26368 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L26369" class="LineNr">26369 </span> { +<span id="L26370" class="LineNr">26370 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26371" class="LineNr">26371 </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="L26372" class="LineNr">26372 </span> 89/<- %ebx 0/r32/eax +<span id="L26373" class="LineNr">26373 </span> <span class="subxComment"># if t->right is null, t = t->left</span> +<span id="L26374" class="LineNr">26374 </span> 81 7/subop/compare *(ebx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L26375" class="LineNr">26375 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26376" class="LineNr">26376 </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="L26377" class="LineNr">26377 </span> 89/<- %ebx 0/r32/eax +<span id="L26378" class="LineNr">26378 </span> } +<span id="L26379" class="LineNr">26379 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> +<span id="L26380" class="LineNr">26380 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L26381" class="LineNr">26381 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> +<span id="L26382" class="LineNr">26382 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26383" class="LineNr">26383 </span> <span class="subxComment"># if (t != t2) error</span> +<span id="L26384" class="LineNr">26384 </span> (<a href='mu.subx.html#L26614'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> +<span id="L26385" class="LineNr">26385 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26386" class="LineNr">26386 </span> { +<span id="L26387" class="LineNr">26387 </span> 0f 85/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">": type for inout '"</span>) +<span id="L26396" class="LineNr">26396 </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="L26397" class="LineNr">26397 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26398" class="LineNr">26398 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26399" class="LineNr">26399 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) +<span id="L26400" class="LineNr">26400 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26401" class="LineNr">26401 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26402" class="LineNr">26402 </span> } +<span id="L26403" class="LineNr">26403 </span><span class="Constant">$check-mu-call:continue-to-next-inout</span>: +<span id="L26404" class="LineNr">26404 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L26405" class="LineNr">26405 </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="L26406" class="LineNr">26406 </span> 89/<- %ecx 0/r32/eax +<span id="L26407" class="LineNr">26407 </span> <span class="subxComment"># expected = lookup(expected->next)</span> +<span id="L26408" class="LineNr">26408 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L26409" class="LineNr">26409 </span> 89/<- %edx 0/r32/eax +<span id="L26410" class="LineNr">26410 </span> <span class="subxComment">#</span> +<span id="L26411" class="LineNr">26411 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L26412" class="LineNr">26412 </span> } +<span id="L26413" class="LineNr">26413 </span><span class="Constant">$check-mu-call:check-inout-count</span>: +<span id="L26414" class="LineNr">26414 </span> <span class="subxComment"># if (inouts == expected) proceed</span> +<span id="L26415" class="LineNr">26415 </span> 39/compare %ecx 2/r32/edx +<span id="L26416" class="LineNr">26416 </span> { +<span id="L26417" class="LineNr">26417 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26418" class="LineNr">26418 </span> <span class="subxComment"># exactly one of the two is null</span> +<span id="L26419" class="LineNr">26419 </span> <span class="subxComment"># if (inouts == 0) error("too many inouts")</span> +<span id="L26420" class="LineNr">26420 </span> { +<span id="L26421" class="LineNr">26421 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26422" class="LineNr">26422 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26423" class="LineNr">26423 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26424" class="LineNr">26424 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26425" class="LineNr">26425 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26426" class="LineNr">26426 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26427" class="LineNr">26427 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26428" class="LineNr">26428 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26429" class="LineNr">26429 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26430" class="LineNr">26430 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many inouts\n"</span>) +<span id="L26431" class="LineNr">26431 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26432" class="LineNr">26432 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26433" class="LineNr">26433 </span> } +<span id="L26434" class="LineNr">26434 </span> <span class="subxComment"># if (expected == 0) error("too few inouts")</span> +<span id="L26435" class="LineNr">26435 </span> { +<span id="L26436" class="LineNr">26436 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L26437" class="LineNr">26437 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26438" class="LineNr">26438 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26439" class="LineNr">26439 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26440" class="LineNr">26440 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26441" class="LineNr">26441 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26442" class="LineNr">26442 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26443" class="LineNr">26443 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26444" class="LineNr">26444 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26445" class="LineNr">26445 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few inouts\n"</span>) +<span id="L26446" class="LineNr">26446 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26447" class="LineNr">26447 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26448" class="LineNr">26448 </span> } +<span id="L26449" class="LineNr">26449 </span> } +<span id="L26450" class="LineNr">26450 </span><span class="Constant">$check-mu-call:check-outputs</span>: +<span id="L26451" class="LineNr">26451 </span> <span class="subxComment"># var outputs/ecx: (addr stmt-var) = lookup(stmt->outputs)</span> +<span id="L26452" class="LineNr">26452 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L26453" class="LineNr">26453 </span> 89/<- %ecx 0/r32/eax +<span id="L26454" class="LineNr">26454 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->outputs)</span> +<span id="L26455" class="LineNr">26455 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x10) *(edi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L26456" class="LineNr">26456 </span> 89/<- %edx 0/r32/eax +<span id="L26457" class="LineNr">26457 </span> { +<span id="L26458" class="LineNr">26458 </span><span class="Constant">$check-mu-call:check-for-outputs</span>: +<span id="L26459" class="LineNr">26459 </span> <span class="subxComment"># if (outputs == 0) break</span> +<span id="L26460" class="LineNr">26460 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26461" class="LineNr">26461 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26462" class="LineNr">26462 </span> <span class="subxComment"># if (expected == 0) error</span> +<span id="L26463" class="LineNr">26463 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L26464" class="LineNr">26464 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26465" class="LineNr">26465 </span><span class="Constant">$check-mu-call:check-output-type</span>: +<span id="L26466" class="LineNr">26466 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> +<span id="L26467" class="LineNr">26467 </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="L26468" class="LineNr">26468 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = lookup(v->type)</span> +<span id="L26469" class="LineNr">26469 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26470" class="LineNr">26470 </span> 89/<- %ebx 0/r32/eax +<span id="L26471" class="LineNr">26471 </span> <span class="subxComment"># if (outputs->is-deref?) t = t->right # TODO: check that t->left is an addr</span> +<span id="L26472" class="LineNr">26472 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L26473" class="LineNr">26473 </span> { +<span id="L26474" class="LineNr">26474 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26475" class="LineNr">26475 </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="L26476" class="LineNr">26476 </span> 89/<- %ebx 0/r32/eax +<span id="L26477" class="LineNr">26477 </span> } +<span id="L26478" class="LineNr">26478 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> +<span id="L26479" class="LineNr">26479 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L26480" class="LineNr">26480 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> +<span id="L26481" class="LineNr">26481 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26482" class="LineNr">26482 </span> <span class="subxComment"># if (t != t2) error</span> +<span id="L26483" class="LineNr">26483 </span> (<a href='mu.subx.html#L26614'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> +<span id="L26484" class="LineNr">26484 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26485" class="LineNr">26485 </span> { +<span id="L26486" class="LineNr">26486 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26487" class="LineNr">26487 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26488" class="LineNr">26488 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26489" class="LineNr">26489 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26490" class="LineNr">26490 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26491" class="LineNr">26491 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26492" class="LineNr">26492 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26493" class="LineNr">26493 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26494" class="LineNr">26494 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for output '"</span>) +<span id="L26495" class="LineNr">26495 </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="L26496" class="LineNr">26496 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26497" class="LineNr">26497 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26498" class="LineNr">26498 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) +<span id="L26499" class="LineNr">26499 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26500" class="LineNr">26500 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26501" class="LineNr">26501 </span> } +<span id="L26502" class="LineNr">26502 </span><span class="Constant">$check-mu-call:check-output-register</span>: +<span id="L26503" class="LineNr">26503 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> +<span id="L26504" class="LineNr">26504 </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="L26505" class="LineNr">26505 </span> <span class="subxComment"># var r/ebx: (addr array byte) = lookup(v->register)</span> +<span id="L26506" class="LineNr">26506 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26507" class="LineNr">26507 </span> 89/<- %ebx 0/r32/eax +<span id="L26508" class="LineNr">26508 </span> <span class="subxComment"># if (r == 0) error</span> +<span id="L26509" class="LineNr">26509 </span> 3d/compare-eax-and 0/imm32 +<span id="L26510" class="LineNr">26510 </span> { +<span id="L26511" class="LineNr">26511 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26512" class="LineNr">26512 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26513" class="LineNr">26513 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26514" class="LineNr">26514 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26515" class="LineNr">26515 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26516" class="LineNr">26516 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26517" class="LineNr">26517 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26518" class="LineNr">26518 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26519" class="LineNr">26519 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": output '"</span>) +<span id="L26520" class="LineNr">26520 </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="L26521" class="LineNr">26521 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26522" class="LineNr">26522 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26523" class="LineNr">26523 </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="L26524" class="LineNr">26524 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26525" class="LineNr">26525 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26526" class="LineNr">26526 </span> } +<span id="L26527" class="LineNr">26527 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> +<span id="L26528" class="LineNr">26528 </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="L26529" class="LineNr">26529 </span> <span class="subxComment"># var r2/eax: (addr array byte) = lookup(v2->register)</span> +<span id="L26530" class="LineNr">26530 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26531" class="LineNr">26531 </span> <span class="subxComment"># if (r != r2) error</span> +<span id="L26532" class="LineNr">26532 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L26533" class="LineNr">26533 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26534" class="LineNr">26534 </span> { +<span id="L26535" class="LineNr">26535 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26536" class="LineNr">26536 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26537" class="LineNr">26537 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26538" class="LineNr">26538 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26539" class="LineNr">26539 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26540" class="LineNr">26540 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26541" class="LineNr">26541 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26542" class="LineNr">26542 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26543" class="LineNr">26543 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": register for output '"</span>) +<span id="L26544" class="LineNr">26544 </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="L26545" class="LineNr">26545 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26546" class="LineNr">26546 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26547" class="LineNr">26547 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) +<span id="L26548" class="LineNr">26548 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26549" class="LineNr">26549 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26550" class="LineNr">26550 </span> } +<span id="L26551" class="LineNr">26551 </span><span class="Constant">$check-mu-call:continue-to-next-output</span>: +<span id="L26552" class="LineNr">26552 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> +<span id="L26553" class="LineNr">26553 </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="L26554" class="LineNr">26554 </span> 89/<- %ecx 0/r32/eax +<span id="L26555" class="LineNr">26555 </span> <span class="subxComment"># expected = lookup(expected->next)</span> +<span id="L26556" class="LineNr">26556 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L26557" class="LineNr">26557 </span> 89/<- %edx 0/r32/eax +<span id="L26558" class="LineNr">26558 </span> <span class="subxComment">#</span> +<span id="L26559" class="LineNr">26559 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L26560" class="LineNr">26560 </span> } +<span id="L26561" class="LineNr">26561 </span><span class="Constant">$check-mu-call:check-output-count</span>: +<span id="L26562" class="LineNr">26562 </span> <span class="subxComment"># if (outputs == expected) proceed</span> +<span id="L26563" class="LineNr">26563 </span> 39/compare %ecx 2/r32/edx +<span id="L26564" class="LineNr">26564 </span> { +<span id="L26565" class="LineNr">26565 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26566" class="LineNr">26566 </span> <span class="subxComment"># exactly one of the two is null</span> +<span id="L26567" class="LineNr">26567 </span> <span class="subxComment"># if (outputs == 0) error("too many outputs")</span> +<span id="L26568" class="LineNr">26568 </span> { +<span id="L26569" class="LineNr">26569 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26570" class="LineNr">26570 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26571" class="LineNr">26571 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26572" class="LineNr">26572 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26573" class="LineNr">26573 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26574" class="LineNr">26574 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26575" class="LineNr">26575 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26576" class="LineNr">26576 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26577" class="LineNr">26577 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26578" class="LineNr">26578 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many outputs\n"</span>) +<span id="L26579" class="LineNr">26579 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26580" class="LineNr">26580 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26581" class="LineNr">26581 </span> } +<span id="L26582" class="LineNr">26582 </span> <span class="subxComment"># if (expected == 0) error("too few outputs")</span> +<span id="L26583" class="LineNr">26583 </span> { +<span id="L26584" class="LineNr">26584 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L26585" class="LineNr">26585 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26586" class="LineNr">26586 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26587" class="LineNr">26587 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26588" class="LineNr">26588 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26589" class="LineNr">26589 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26590" class="LineNr">26590 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26591" class="LineNr">26591 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26592" class="LineNr">26592 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26593" class="LineNr">26593 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few outputs\n"</span>) +<span id="L26594" class="LineNr">26594 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26595" class="LineNr">26595 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26596" class="LineNr">26596 </span> } +<span id="L26597" class="LineNr">26597 </span> } +<span id="L26598" class="LineNr">26598 </span><span class="Constant">$check-mu-call:end</span>: +<span id="L26599" class="LineNr">26599 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26600" class="LineNr">26600 </span> 5f/pop-to-edi +<span id="L26601" class="LineNr">26601 </span> 5e/pop-to-esi +<span id="L26602" class="LineNr">26602 </span> 5b/pop-to-ebx +<span id="L26603" class="LineNr">26603 </span> 5a/pop-to-edx +<span id="L26604" class="LineNr">26604 </span> 59/pop-to-ecx +<span id="L26605" class="LineNr">26605 </span> 58/pop-to-eax +<span id="L26606" class="LineNr">26606 </span> <span class="subxS1Comment"># . reclaim locals exclusively on the stack</span> +<span id="L26607" class="LineNr">26607 </span> 81 0/subop/add %esp 0x70/imm32 +<span id="L26608" class="LineNr">26608 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26609" class="LineNr">26609 </span> 89/<- %esp 5/r32/ebp +<span id="L26610" class="LineNr">26610 </span> 5d/pop-to-ebp +<span id="L26611" class="LineNr">26611 </span> c3/return +<span id="L26612" class="LineNr">26612 </span> +<span id="L26613" class="LineNr">26613 </span><span class="subxComment"># like type-equal? but takes literals type parameters into account</span> +<span id="L26614" class="LineNr">26614 </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="L26615" class="LineNr">26615 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26616" class="LineNr">26616 </span> 55/push-ebp +<span id="L26617" class="LineNr">26617 </span> 89/<- %ebp 4/r32/esp +<span id="L26618" class="LineNr">26618 </span> <span class="subxComment"># if call is literal and def is numberlike, return true</span> +<span id="L26619" class="LineNr">26619 </span> { +<span id="L26620" class="LineNr">26620 </span><span class="Constant">$type-match?:check-literal-int</span>: +<span id="L26621" class="LineNr">26621 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> *(ebp+0xc) 0) <span class="subxComment"># literal => eax</span> +<span id="L26622" class="LineNr">26622 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26623" class="LineNr">26623 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26624" class="LineNr">26624 </span> (<a href='mu.subx.html#L22153'>mu-numberlike-output?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L26625" class="LineNr">26625 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26626" class="LineNr">26626 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26627" class="LineNr">26627 </span> b8/copy-to-eax 1/imm32/true +<span id="L26628" class="LineNr">26628 </span> e9/jump $type-match?:end/disp32 +<span id="L26629" class="LineNr">26629 </span> } +<span id="L26630" class="LineNr">26630 </span> <span class="subxComment"># if call is literal-string, match against (addr array byte)</span> +<span id="L26631" class="LineNr">26631 </span> { +<span id="L26632" class="LineNr">26632 </span><span class="Constant">$type-match?:check-literal-string</span>: +<span id="L26633" class="LineNr">26633 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> *(ebp+0xc) 0x10) <span class="subxComment"># literal-string => eax</span> +<span id="L26634" class="LineNr">26634 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26635" class="LineNr">26635 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26636" class="LineNr">26636 </span> (<a href='mu.subx.html#L26648'>type-component-match?</a> *(ebp+8) <span class="SpecialChar"><a href='mu.subx.html#L35554'>Addr-type-string</a></span> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26637" class="LineNr">26637 </span> e9/jump $type-match?:end/disp32 +<span id="L26638" class="LineNr">26638 </span> } +<span id="L26639" class="LineNr">26639 </span><span class="Constant">$type-match?:baseline</span>: +<span id="L26640" class="LineNr">26640 </span> <span class="subxComment"># otherwise fall back</span> +<span id="L26641" class="LineNr">26641 </span> (<a href='mu.subx.html#L26648'>type-component-match?</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26642" class="LineNr">26642 </span><span class="Constant">$type-match?:end</span>: +<span id="L26643" class="LineNr">26643 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26644" class="LineNr">26644 </span> 89/<- %esp 5/r32/ebp +<span id="L26645" class="LineNr">26645 </span> 5d/pop-to-ebp +<span id="L26646" class="LineNr">26646 </span> c3/return +<span id="L26647" class="LineNr">26647 </span> +<span id="L26648" class="LineNr">26648 </span><span class="subxFunction">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="L26649" class="LineNr">26649 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26650" class="LineNr">26650 </span> 55/push-ebp +<span id="L26651" class="LineNr">26651 </span> 89/<- %ebp 4/r32/esp +<span id="L26652" class="LineNr">26652 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26653" class="LineNr">26653 </span> 51/push-ecx +<span id="L26654" class="LineNr">26654 </span> 52/push-edx +<span id="L26655" class="LineNr">26655 </span> 53/push-ebx +<span id="L26656" class="LineNr">26656 </span> <span class="subxComment"># ecx = def</span> +<span id="L26657" class="LineNr">26657 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26658" class="LineNr">26658 </span> <span class="subxComment"># edx = call</span> +<span id="L26659" class="LineNr">26659 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L26660" class="LineNr">26660 </span><span class="Constant">$type-component-match?:compare-addr</span>: +<span id="L26661" class="LineNr">26661 </span> <span class="subxComment"># if (def == call) return true</span> +<span id="L26662" class="LineNr">26662 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L26663" class="LineNr">26663 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L26664" class="LineNr">26664 </span> b8/copy-to-eax 1/imm32/true +<span id="L26665" class="LineNr">26665 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 +<span id="L26666" class="LineNr">26666 </span> <span class="subxComment"># if (def == 0) return false</span> +<span id="L26667" class="LineNr">26667 </span> b8/copy-to-eax 0/imm32/false +<span id="L26668" class="LineNr">26668 </span> 81 7/subop/compare %ecx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26669" class="LineNr">26669 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 +<span id="L26670" class="LineNr">26670 </span> <span class="subxComment"># if (call == 0) return false</span> +<span id="L26671" class="LineNr">26671 </span> 81 7/subop/compare %edx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26672" class="LineNr">26672 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 +<span id="L26673" class="LineNr">26673 </span> <span class="subxComment"># if def is a type parameter, just check in type-parameters</span> +<span id="L26674" class="LineNr">26674 </span> { +<span id="L26675" class="LineNr">26675 </span><span class="Constant">$type-component-match?:check-type-parameter</span>: +<span id="L26676" class="LineNr">26676 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26677" class="LineNr">26677 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26678" class="LineNr">26678 </span> 81 7/subop/compare *(ecx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> +<span id="L26679" class="LineNr">26679 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26680" class="LineNr">26680 </span><span class="Constant">$type-component-match?:type-parameter</span>: +<span id="L26681" class="LineNr">26681 </span> (<a href='mu.subx.html#L26745'>type-parameter-match?</a> *(ecx+8) *(ecx+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26682" class="LineNr">26682 </span> e9/jump $type-component-match?:end/disp32 +<span id="L26683" class="LineNr">26683 </span> } +<span id="L26684" class="LineNr">26684 </span> <span class="subxComment"># if def is a list containing just a type parameter, just check in type-parameters</span> +<span id="L26685" class="LineNr">26685 </span> { +<span id="L26686" class="LineNr">26686 </span><span class="Constant">$type-component-match?:check-list-type-parameter</span>: +<span id="L26687" class="LineNr">26687 </span> <span class="subxComment"># if def is a list..</span> +<span id="L26688" class="LineNr">26688 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26689" class="LineNr">26689 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26690" class="LineNr">26690 </span> <span class="subxComment"># ..that's a singleton</span> +<span id="L26691" class="LineNr">26691 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-left</span> +<span id="L26692" class="LineNr">26692 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26693" class="LineNr">26693 </span> <span class="subxComment"># ..and whose head is a type parameter</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> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26696" class="LineNr">26696 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26697" class="LineNr">26697 </span> 81 7/subop/compare *(eax+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> +<span id="L26698" class="LineNr">26698 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26699" class="LineNr">26699 </span><span class="Constant">$type-component-match?:list-type-parameter</span>: +<span id="L26700" class="LineNr">26700 </span> (<a href='mu.subx.html#L26745'>type-parameter-match?</a> *(eax+8) *(eax+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26701" class="LineNr">26701 </span> e9/jump $type-component-match?:end/disp32 +<span id="L26702" class="LineNr">26702 </span> } +<span id="L26703" class="LineNr">26703 </span><span class="Constant">$type-component-match?:compare-atom-state</span>: +<span id="L26704" class="LineNr">26704 </span> <span class="subxComment"># if (def->is-atom? != call->is-atom?) return false</span> +<span id="L26705" class="LineNr">26705 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26706" class="LineNr">26706 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26707" class="LineNr">26707 </span> b8/copy-to-eax 0/imm32/false +<span id="L26708" class="LineNr">26708 </span> 0f 85/jump-if-!= $type-component-match?:end/disp32 +<span id="L26709" class="LineNr">26709 </span> <span class="subxComment"># if def->is-atom? return (def->value == call->value)</span> +<span id="L26710" class="LineNr">26710 </span> { +<span id="L26711" class="LineNr">26711 </span><span class="Constant">$type-component-match?:check-atom</span>: +<span id="L26712" class="LineNr">26712 </span> 81 7/subop/compare %ebx 0/imm32/false +<span id="L26713" class="LineNr">26713 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26714" class="LineNr">26714 </span><span class="Constant">$type-component-match?:is-atom</span>: +<span id="L26715" class="LineNr">26715 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L26716" class="LineNr">26716 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L26717" class="LineNr">26717 </span> 0f 94/set-if-= %al +<span id="L26718" class="LineNr">26718 </span> 25/and-eax-with 0xff/imm32 +<span id="L26719" class="LineNr">26719 </span> e9/jump $type-component-match?:end/disp32 +<span id="L26720" class="LineNr">26720 </span> } +<span id="L26721" class="LineNr">26721 </span><span class="Constant">$type-component-match?:check-left</span>: +<span id="L26722" class="LineNr">26722 </span> <span class="subxComment"># if (!type-component-match?(def->left, call->left)) return false</span> +<span id="L26723" class="LineNr">26723 </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="L26724" class="LineNr">26724 </span> 89/<- %ebx 0/r32/eax +<span id="L26725" class="LineNr">26725 </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="L26726" class="LineNr">26726 </span> (<a href='mu.subx.html#L26648'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26727" class="LineNr">26727 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26728" class="LineNr">26728 </span> 74/jump-if-= $type-component-match?:end/disp8 +<span id="L26729" class="LineNr">26729 </span><span class="Constant">$type-component-match?:check-right</span>: +<span id="L26730" class="LineNr">26730 </span> <span class="subxComment"># return type-component-match?(def->right, call->right)</span> +<span id="L26731" class="LineNr">26731 </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="L26732" class="LineNr">26732 </span> 89/<- %ebx 0/r32/eax +<span id="L26733" class="LineNr">26733 </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="L26734" class="LineNr">26734 </span> (<a href='mu.subx.html#L26648'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26735" class="LineNr">26735 </span><span class="Constant">$type-component-match?:end</span>: +<span id="L26736" class="LineNr">26736 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26737" class="LineNr">26737 </span> 5b/pop-to-ebx +<span id="L26738" class="LineNr">26738 </span> 5a/pop-to-edx +<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="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="L26746" class="LineNr">26746 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26747" class="LineNr">26747 </span> 55/push-ebp +<span id="L26748" class="LineNr">26748 </span> 89/<- %ebp 4/r32/esp +<span id="L26749" class="LineNr">26749 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26750" class="LineNr">26750 </span> 51/push-ecx +<span id="L26751" class="LineNr">26751 </span> <span class="subxComment">#</span> +<span id="L26752" class="LineNr">26752 </span> (<a href='131table.subx.html#L854'>get-or-insert-handle</a> *(ebp+0x14) *(ebp+8) *(ebp+0xc) 0xc) <span class="subxComment"># => eax</span> +<span id="L26753" class="LineNr">26753 </span> <span class="subxComment"># if parameter wasn't saved, save it</span> +<span id="L26754" class="LineNr">26754 </span> { +<span id="L26755" class="LineNr">26755 </span> 81 7/subop/compare *eax 0/imm32 +<span id="L26756" class="LineNr">26756 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26757" class="LineNr">26757 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L26758" class="LineNr">26758 </span> 89/<- *eax 1/r32/ecx +<span id="L26759" class="LineNr">26759 </span> } +<span id="L26760" class="LineNr">26760 </span> <span class="subxComment">#</span> +<span id="L26761" class="LineNr">26761 </span> (<a href='mu.subx.html#L27097'>type-equal?</a> *(ebp+0x10) *eax) <span class="subxComment"># => eax</span> +<span id="L26762" class="LineNr">26762 </span><span class="Constant">$type-parameter-match?:end</span>: +<span id="L26763" class="LineNr">26763 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26764" class="LineNr">26764 </span> 59/pop-to-ecx +<span id="L26765" class="LineNr">26765 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26766" class="LineNr">26766 </span> 89/<- %esp 5/r32/ebp +<span id="L26767" class="LineNr">26767 </span> 5d/pop-to-ebp +<span id="L26768" class="LineNr">26768 </span> c3/return +<span id="L26769" class="LineNr">26769 </span> +<span id="L26770" class="LineNr">26770 </span><span class="subxFunction">size-of</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> +<span id="L26771" class="LineNr">26771 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26772" class="LineNr">26772 </span> 55/push-ebp +<span id="L26773" class="LineNr">26773 </span> 89/<- %ebp 4/r32/esp +<span id="L26774" class="LineNr">26774 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26775" class="LineNr">26775 </span> 51/push-ecx +<span id="L26776" class="LineNr">26776 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> +<span id="L26777" class="LineNr">26777 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26778" class="LineNr">26778 </span><span class="CommentedCode">#? (write-buffered Stderr "size-of ")</span> +<span id="L26779" class="LineNr">26779 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> +<span id="L26780" class="LineNr">26780 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L26781" class="LineNr">26781 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid: ")</span> +<span id="L26782" class="LineNr">26782 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+8))</span> +<span id="L26783" class="LineNr">26783 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L26784" class="LineNr">26784 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L26785" class="LineNr">26785 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26786" class="LineNr">26786 </span> 89/<- %ecx 0/r32/eax +<span id="L26787" class="LineNr">26787 </span> <span class="subxComment"># if mu-array?(t) return size-of-array(t)</span> +<span id="L26788" class="LineNr">26788 </span> { +<span id="L26789" class="LineNr">26789 </span> (<a href='mu.subx.html#L26867'>mu-array?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26790" class="LineNr">26790 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26791" class="LineNr">26791 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26792" class="LineNr">26792 </span> (<a href='mu.subx.html#L26898'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26793" class="LineNr">26793 </span> eb/jump $size-of:end/disp8 +<span id="L26794" class="LineNr">26794 </span> } +<span id="L26795" class="LineNr">26795 </span> <span class="subxComment"># if mu-stream?(t) return size-of-stream(t)</span> +<span id="L26796" class="LineNr">26796 </span> { +<span id="L26797" class="LineNr">26797 </span> (<a href='mu.subx.html#L26932'>mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26798" class="LineNr">26798 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26799" class="LineNr">26799 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26800" class="LineNr">26800 </span> (<a href='mu.subx.html#L26963'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26801" class="LineNr">26801 </span> eb/jump $size-of:end/disp8 +<span id="L26802" class="LineNr">26802 </span> } +<span id="L26803" class="LineNr">26803 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> +<span id="L26804" class="LineNr">26804 </span> { +<span id="L26805" class="LineNr">26805 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26806" class="LineNr">26806 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26807" class="LineNr">26807 </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="L26808" class="LineNr">26808 </span> 89/<- %ecx 0/r32/eax +<span id="L26809" class="LineNr">26809 </span> } +<span id="L26810" class="LineNr">26810 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> +<span id="L26811" class="LineNr">26811 </span> (<a href='mu.subx.html#L26976'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L26812" class="LineNr">26812 </span><span class="Constant">$size-of:end</span>: +<span id="L26813" class="LineNr">26813 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26814" class="LineNr">26814 </span> 59/pop-to-ecx +<span id="L26815" class="LineNr">26815 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26816" class="LineNr">26816 </span> 89/<- %esp 5/r32/ebp +<span id="L26817" class="LineNr">26817 </span> 5d/pop-to-ebp +<span id="L26818" class="LineNr">26818 </span> c3/return +<span id="L26819" class="LineNr">26819 </span> +<span id="L26820" class="LineNr">26820 </span><span class="subxFunction">size-of-deref</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> +<span id="L26821" class="LineNr">26821 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26822" class="LineNr">26822 </span> 55/push-ebp +<span id="L26823" class="LineNr">26823 </span> 89/<- %ebp 4/r32/esp +<span id="L26824" class="LineNr">26824 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26825" class="LineNr">26825 </span> 51/push-ecx +<span id="L26826" class="LineNr">26826 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> +<span id="L26827" class="LineNr">26827 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26828" class="LineNr">26828 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26829" class="LineNr">26829 </span> 89/<- %ecx 0/r32/eax +<span id="L26830" class="LineNr">26830 </span> <span class="subxComment"># TODO: assert(t is an addr)</span> +<span id="L26831" class="LineNr">26831 </span> <span class="subxComment"># t = lookup(t->right)</span> +<span id="L26832" class="LineNr">26832 </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="L26833" class="LineNr">26833 </span> 89/<- %ecx 0/r32/eax +<span id="L26834" class="LineNr">26834 </span> <span class="subxComment"># if mu-array?(t) return size-of-array(t)</span> +<span id="L26835" class="LineNr">26835 </span> { +<span id="L26836" class="LineNr">26836 </span> (<a href='mu.subx.html#L26867'>mu-array?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26837" class="LineNr">26837 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26838" class="LineNr">26838 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26839" class="LineNr">26839 </span> (<a href='mu.subx.html#L26898'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26840" class="LineNr">26840 </span> eb/jump $size-of-deref:end/disp8 +<span id="L26841" class="LineNr">26841 </span> } +<span id="L26842" class="LineNr">26842 </span> <span class="subxComment"># if mu-stream?(t) return size-of-stream(t)</span> +<span id="L26843" class="LineNr">26843 </span> { +<span id="L26844" class="LineNr">26844 </span> (<a href='mu.subx.html#L26932'>mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26845" class="LineNr">26845 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26846" class="LineNr">26846 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26847" class="LineNr">26847 </span> (<a href='mu.subx.html#L26963'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26848" class="LineNr">26848 </span> eb/jump $size-of-deref:end/disp8 +<span id="L26849" class="LineNr">26849 </span> } +<span id="L26850" class="LineNr">26850 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> +<span id="L26851" class="LineNr">26851 </span> { +<span id="L26852" class="LineNr">26852 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26853" class="LineNr">26853 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26854" class="LineNr">26854 </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="L26855" class="LineNr">26855 </span> 89/<- %ecx 0/r32/eax +<span id="L26856" class="LineNr">26856 </span> } +<span id="L26857" class="LineNr">26857 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> +<span id="L26858" class="LineNr">26858 </span> (<a href='mu.subx.html#L26976'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L26859" class="LineNr">26859 </span><span class="Constant">$size-of-deref:end</span>: +<span id="L26860" class="LineNr">26860 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26861" class="LineNr">26861 </span> 59/pop-to-ecx +<span id="L26862" class="LineNr">26862 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26863" class="LineNr">26863 </span> 89/<- %esp 5/r32/ebp +<span id="L26864" class="LineNr">26864 </span> 5d/pop-to-ebp +<span id="L26865" class="LineNr">26865 </span> c3/return +<span id="L26866" class="LineNr">26866 </span> +<span id="L26867" class="LineNr">26867 </span><span class="subxFunction">mu-array?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> +<span id="L26868" class="LineNr">26868 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26869" class="LineNr">26869 </span> 55/push-ebp +<span id="L26870" class="LineNr">26870 </span> 89/<- %ebp 4/r32/esp +<span id="L26871" class="LineNr">26871 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26872" class="LineNr">26872 </span> 51/push-ecx +<span id="L26873" class="LineNr">26873 </span> <span class="subxComment"># ecx = t</span> +<span id="L26874" class="LineNr">26874 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26875" class="LineNr">26875 </span> <span class="subxComment"># if t->is-atom?, return false</span> +<span id="L26876" class="LineNr">26876 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26877" class="LineNr">26877 </span> 75/jump-if-!= $mu-array?:return-false/disp8 +<span id="L26878" class="LineNr">26878 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> +<span id="L26879" class="LineNr">26879 </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="L26880" class="LineNr">26880 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26881" class="LineNr">26881 </span> 74/jump-if-= $mu-array?:return-false/disp8 +<span id="L26882" class="LineNr">26882 </span> <span class="subxComment"># return t->left->value == array</span> +<span id="L26883" class="LineNr">26883 </span> 81 7/subop/compare *(eax+4) 3/imm32/array-type-id <span class="subxComment"># Type-tree-value</span> +<span id="L26884" class="LineNr">26884 </span> 0f 94/set-if-= %al +<span id="L26885" class="LineNr">26885 </span> 25/and-eax-with 0xff/imm32 +<span id="L26886" class="LineNr">26886 </span> eb/jump $mu-array?:end/disp8 +<span id="L26887" class="LineNr">26887 </span><span class="Constant">$mu-array?:return-false</span>: +<span id="L26888" class="LineNr">26888 </span> b8/copy-to-eax 0/imm32/false +<span id="L26889" class="LineNr">26889 </span><span class="Constant">$mu-array?:end</span>: +<span id="L26890" class="LineNr">26890 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26891" class="LineNr">26891 </span> 59/pop-to-ecx +<span id="L26892" class="LineNr">26892 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26893" class="LineNr">26893 </span> 89/<- %esp 5/r32/ebp +<span id="L26894" class="LineNr">26894 </span> 5d/pop-to-ebp +<span id="L26895" class="LineNr">26895 </span> c3/return +<span id="L26896" class="LineNr">26896 </span> +<span id="L26897" class="LineNr">26897 </span><span class="subxComment"># size of a statically allocated array where the size is part of the type expression</span> +<span id="L26898" class="LineNr">26898 </span><span class="subxFunction">size-of-array</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> +<span id="L26899" class="LineNr">26899 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26900" class="LineNr">26900 </span> 55/push-ebp +<span id="L26901" class="LineNr">26901 </span> 89/<- %ebp 4/r32/esp +<span id="L26902" class="LineNr">26902 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26903" class="LineNr">26903 </span> 51/push-ecx +<span id="L26904" class="LineNr">26904 </span> 52/push-edx +<span id="L26905" class="LineNr">26905 </span> <span class="subxComment">#</span> +<span id="L26906" class="LineNr">26906 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26907" class="LineNr">26907 </span> <span class="subxComment"># TODO: assert that a->left is 'array'</span> +<span id="L26908" class="LineNr">26908 </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="L26909" class="LineNr">26909 </span> 89/<- %ecx 0/r32/eax +<span id="L26910" class="LineNr">26910 </span> <span class="subxComment"># var elem-type/edx: type-id = a->right->left->value</span> +<span id="L26911" class="LineNr">26911 </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="L26912" class="LineNr">26912 </span> 8b/-> *(eax+4) 2/r32/edx <span class="subxComment"># Type-tree-value</span> +<span id="L26913" class="LineNr">26913 </span> <span class="subxComment"># TODO: assert that a->right->right->left->value == size</span> +<span id="L26914" class="LineNr">26914 </span> <span class="subxComment"># var array-size/ecx: int = a->right->right->left->value-size</span> +<span id="L26915" class="LineNr">26915 </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="L26916" class="LineNr">26916 </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="L26917" class="LineNr">26917 </span> 8b/-> *(eax+8) 1/r32/ecx <span class="subxComment"># Type-tree-value-size</span> +<span id="L26918" class="LineNr">26918 </span> <span class="subxComment"># return 4 + array-size * size-of(elem-type)</span> +<span id="L26919" class="LineNr">26919 </span> (<a href='mu.subx.html#L29290'>size-of-type-id-as-array-element</a> %edx) <span class="subxComment"># => eax</span> +<span id="L26920" class="LineNr">26920 </span> f7 4/subop/multiply-into-edx-eax %ecx +<span id="L26921" class="LineNr">26921 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array size</span> +<span id="L26922" class="LineNr">26922 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L26923" class="LineNr">26923 </span><span class="Constant">$size-of-array:end</span>: +<span id="L26924" class="LineNr">26924 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26925" class="LineNr">26925 </span> 5a/pop-to-edx +<span id="L26926" class="LineNr">26926 </span> 59/pop-to-ecx +<span id="L26927" class="LineNr">26927 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26928" class="LineNr">26928 </span> 89/<- %esp 5/r32/ebp +<span id="L26929" class="LineNr">26929 </span> 5d/pop-to-ebp +<span id="L26930" class="LineNr">26930 </span> c3/return +<span id="L26931" class="LineNr">26931 </span> +<span id="L26932" class="LineNr">26932 </span><span class="subxFunction">mu-stream?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> +<span id="L26933" class="LineNr">26933 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26934" class="LineNr">26934 </span> 55/push-ebp +<span id="L26935" class="LineNr">26935 </span> 89/<- %ebp 4/r32/esp +<span id="L26936" class="LineNr">26936 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26937" class="LineNr">26937 </span> 51/push-ecx +<span id="L26938" class="LineNr">26938 </span> <span class="subxComment"># ecx = t</span> +<span id="L26939" class="LineNr">26939 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26940" class="LineNr">26940 </span> <span class="subxComment"># if t->is-atom?, return false</span> +<span id="L26941" class="LineNr">26941 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26942" class="LineNr">26942 </span> 75/jump-if-!= $mu-stream?:return-false/disp8 +<span id="L26943" class="LineNr">26943 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> +<span id="L26944" class="LineNr">26944 </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="L26945" class="LineNr">26945 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26946" class="LineNr">26946 </span> 74/jump-if-= $mu-stream?:return-false/disp8 +<span id="L26947" class="LineNr">26947 </span> <span class="subxComment"># return t->left->value == stream</span> +<span id="L26948" class="LineNr">26948 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream-type-id <span class="subxComment"># Type-tree-value</span> +<span id="L26949" class="LineNr">26949 </span> 0f 94/set-if-= %al +<span id="L26950" class="LineNr">26950 </span> 25/and-eax-with 0xff/imm32 +<span id="L26951" class="LineNr">26951 </span> eb/jump $mu-stream?:end/disp8 +<span id="L26952" class="LineNr">26952 </span><span class="Constant">$mu-stream?:return-false</span>: <span id="L26953" class="LineNr">26953 </span> b8/copy-to-eax 0/imm32/false -<span id="L26954" class="LineNr">26954 </span> 0f 85/jump-if-!= $type-equal?:end/disp32 -<span id="L26955" class="LineNr">26955 </span> <span class="subxComment"># if a->is-atom? return (a->value == b->value)</span> -<span id="L26956" class="LineNr">26956 </span> { -<span id="L26957" class="LineNr">26957 </span><span class="Constant">$type-equal?:check-atom</span>: -<span id="L26958" class="LineNr">26958 </span> 81 7/subop/compare %ebx 0/imm32/false -<span id="L26959" class="LineNr">26959 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26960" class="LineNr">26960 </span><span class="Constant">$type-equal?:is-atom</span>: -<span id="L26961" class="LineNr">26961 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L26962" class="LineNr">26962 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L26963" class="LineNr">26963 </span> 0f 94/set-if-= %al -<span id="L26964" class="LineNr">26964 </span> 25/and-eax-with 0xff/imm32 -<span id="L26965" class="LineNr">26965 </span> e9/jump $type-equal?:end/disp32 -<span id="L26966" class="LineNr">26966 </span> } -<span id="L26967" class="LineNr">26967 </span><span class="Constant">$type-equal?:check-left</span>: -<span id="L26968" class="LineNr">26968 </span> <span class="subxComment"># if (!type-equal?(a->left, b->left)) return false</span> -<span id="L26969" class="LineNr">26969 </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="L26970" class="LineNr">26970 </span> 89/<- %ebx 0/r32/eax -<span id="L26971" class="LineNr">26971 </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="L26972" class="LineNr">26972 </span> (<a href='mu.subx.html#L26922'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L26973" class="LineNr">26973 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26974" class="LineNr">26974 </span> 74/jump-if-= $type-equal?:end/disp8 -<span id="L26975" class="LineNr">26975 </span><span class="Constant">$type-equal?:check-right</span>: -<span id="L26976" class="LineNr">26976 </span> <span class="subxComment"># return type-equal?(a->right, b->right)</span> -<span id="L26977" class="LineNr">26977 </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="L26978" class="LineNr">26978 </span> 89/<- %ebx 0/r32/eax -<span id="L26979" class="LineNr">26979 </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="L26980" class="LineNr">26980 </span> (<a href='mu.subx.html#L26922'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L26981" class="LineNr">26981 </span><span class="Constant">$type-equal?:end</span>: -<span id="L26982" class="LineNr">26982 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26983" class="LineNr">26983 </span> 5b/pop-to-ebx -<span id="L26984" class="LineNr">26984 </span> 5a/pop-to-edx -<span id="L26985" class="LineNr">26985 </span> 59/pop-to-ecx -<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="subxComment">#######################################################</span> -<span id="L26992" class="LineNr">26992 </span><span class="subxComment"># Code-generation</span> -<span id="L26993" class="LineNr">26993 </span><span class="subxComment">#######################################################</span> -<span id="L26994" class="LineNr">26994 </span> -<span id="L26995" class="LineNr">26995 </span>== data -<span id="L26996" class="LineNr">26996 </span> -<span id="L26997" class="LineNr">26997 </span><span class="subxComment"># Global state added to each var record when performing code-generation.</span> -<span id="L26998" class="LineNr">26998 </span><span class="SpecialChar">Curr-local-stack-offset</span>: <span class="subxComment"># (addr int)</span> -<span id="L26999" class="LineNr">26999 </span> 0/imm32 -<span id="L27000" class="LineNr">27000 </span> -<span id="L27001" class="LineNr">27001 </span>== code -<span id="L27002" class="LineNr">27002 </span> -<span id="L27003" class="LineNr">27003 </span><span class="subxComment"># We may not need to pass err/ed everywhere here. I think they're relics of Mu</span> -<span id="L27004" class="LineNr">27004 </span><span class="subxComment"># getting type checks later in life.</span> -<span id="L27005" class="LineNr">27005 </span><span class="subxComment"># But we do need them for runtime checks, particularly array index bounds checks.</span> -<span id="L27006" class="LineNr">27006 </span><span class="subxComment"># So perhaps it's not worth taking them out. They're a safety net.</span> -<span id="L27007" class="LineNr">27007 </span> -<span id="L27008" class="LineNr">27008 </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="L27009" class="LineNr">27009 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27010" class="LineNr">27010 </span> 55/push-ebp -<span id="L27011" class="LineNr">27011 </span> 89/<- %ebp 4/r32/esp -<span id="L27012" class="LineNr">27012 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27013" class="LineNr">27013 </span> 50/push-eax -<span id="L27014" class="LineNr">27014 </span> <span class="subxComment"># var curr/eax: (addr function) = *Program->functions</span> -<span id="L27015" class="LineNr">27015 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L27016" class="LineNr">27016 </span> { -<span id="L27017" class="LineNr">27017 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L27018" class="LineNr">27018 </span> 3d/compare-eax-and 0/imm32 -<span id="L27019" class="LineNr">27019 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27020" class="LineNr">27020 </span> (<a href='mu.subx.html#L27033'>emit-subx-function</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L27021" class="LineNr">27021 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L27022" class="LineNr">27022 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L27023" class="LineNr">27023 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27024" class="LineNr">27024 </span> } -<span id="L27025" class="LineNr">27025 </span><span class="Constant">$emit-subx:end</span>: -<span id="L27026" class="LineNr">27026 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27027" class="LineNr">27027 </span> 58/pop-to-eax -<span id="L27028" class="LineNr">27028 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27029" class="LineNr">27029 </span> 89/<- %esp 5/r32/ebp -<span id="L27030" class="LineNr">27030 </span> 5d/pop-to-ebp -<span id="L27031" class="LineNr">27031 </span> c3/return -<span id="L27032" class="LineNr">27032 </span> -<span id="L27033" class="LineNr">27033 </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="L27034" class="LineNr">27034 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27035" class="LineNr">27035 </span> 55/push-ebp -<span id="L27036" class="LineNr">27036 </span> 89/<- %ebp 4/r32/esp -<span id="L27037" class="LineNr">27037 </span> <span class="subxComment"># some preprocessing</span> -<span id="L27038" class="LineNr">27038 </span> (<a href='mu.subx.html#L27078'>populate-mu-type-offsets-in-inouts</a> *(ebp+0xc)) -<span id="L27039" class="LineNr">27039 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27040" class="LineNr">27040 </span> 50/push-eax -<span id="L27041" class="LineNr">27041 </span> 51/push-ecx -<span id="L27042" class="LineNr">27042 </span> 52/push-edx -<span id="L27043" class="LineNr">27043 </span> <span class="subxComment"># initialize some global state</span> -<span id="L27044" class="LineNr">27044 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 1/imm32 <span class="subxComment"># Important: keep this in sync with the parse phase</span> -<span id="L27045" class="LineNr">27045 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L26998'>Curr-local-stack-offset</a></span> 0/imm32 -<span id="L27046" class="LineNr">27046 </span> <span class="subxComment"># ecx = f</span> -<span id="L27047" class="LineNr">27047 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27048" class="LineNr">27048 </span> <span class="subxComment"># var vars/edx: (stack (addr var) 256)</span> -<span id="L27049" class="LineNr">27049 </span> 81 5/subop/subtract %esp 0xc00/imm32 -<span id="L27050" class="LineNr">27050 </span> 68/push 0xc00/imm32/size -<span id="L27051" class="LineNr">27051 </span> 68/push 0/imm32/top -<span id="L27052" class="LineNr">27052 </span> 89/<- %edx 4/r32/esp -<span id="L27053" class="LineNr">27053 </span> <span class="subxComment"># var name/eax: (addr array byte) = lookup(f->name)</span> -<span id="L27054" class="LineNr">27054 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L27055" class="LineNr">27055 </span> <span class="subxComment">#</span> -<span id="L27056" class="LineNr">27056 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27057" class="LineNr">27057 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":\n"</span>) -<span id="L27058" class="LineNr">27058 </span> (<a href='mu.subx.html#L38850'>emit-subx-prologue</a> *(ebp+8)) -<span id="L27059" class="LineNr">27059 </span> <span class="subxComment"># var body/eax: (addr block) = lookup(f->body)</span> -<span id="L27060" class="LineNr">27060 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> -<span id="L27061" class="LineNr">27061 </span> <span class="subxComment">#</span> -<span id="L27062" class="LineNr">27062 </span> (<a href='mu.subx.html#L30362'>emit-subx-block</a> *(ebp+8) %eax %edx *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L27063" class="LineNr">27063 </span> (<a href='mu.subx.html#L38864'>emit-subx-epilogue</a> *(ebp+8)) -<span id="L27064" class="LineNr">27064 </span> <span class="subxComment"># TODO: validate that *Curr-block-depth and *Curr-local-stack-offset have</span> -<span id="L27065" class="LineNr">27065 </span> <span class="subxComment"># been cleaned up</span> -<span id="L27066" class="LineNr">27066 </span><span class="Constant">$emit-subx-function:end</span>: -<span id="L27067" class="LineNr">27067 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L27068" class="LineNr">27068 </span> 81 0/subop/add %esp 0xc08/imm32 -<span id="L27069" class="LineNr">27069 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27070" class="LineNr">27070 </span> 5a/pop-to-edx -<span id="L27071" class="LineNr">27071 </span> 59/pop-to-ecx -<span id="L27072" class="LineNr">27072 </span> 58/pop-to-eax -<span id="L27073" class="LineNr">27073 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27074" class="LineNr">27074 </span> 89/<- %esp 5/r32/ebp -<span id="L27075" class="LineNr">27075 </span> 5d/pop-to-ebp -<span id="L27076" class="LineNr">27076 </span> c3/return -<span id="L27077" class="LineNr">27077 </span> -<span id="L27078" class="LineNr">27078 </span><span class="subxFunction">populate-mu-type-offsets-in-inouts</span>: <span class="subxComment"># f: (addr function)</span> -<span id="L27079" class="LineNr">27079 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27080" class="LineNr">27080 </span> 55/push-ebp -<span id="L27081" class="LineNr">27081 </span> 89/<- %ebp 4/r32/esp -<span id="L27082" class="LineNr">27082 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27083" class="LineNr">27083 </span> 50/push-eax -<span id="L27084" class="LineNr">27084 </span> 51/push-ecx -<span id="L27085" class="LineNr">27085 </span> 52/push-edx -<span id="L27086" class="LineNr">27086 </span> 53/push-ebx -<span id="L27087" class="LineNr">27087 </span> 57/push-edi -<span id="L27088" class="LineNr">27088 </span> <span class="subxComment"># var next-offset/edx: int = 8</span> -<span id="L27089" class="LineNr">27089 </span> ba/copy-to-edx 8/imm32 -<span id="L27090" class="LineNr">27090 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(f->inouts)</span> -<span id="L27091" class="LineNr">27091 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L27092" class="LineNr">27092 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L27093" class="LineNr">27093 </span> 89/<- %ecx 0/r32/eax -<span id="L27094" class="LineNr">27094 </span> { -<span id="L27095" class="LineNr">27095 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:loop</span>: -<span id="L27096" class="LineNr">27096 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L27097" class="LineNr">27097 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27098" class="LineNr">27098 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(curr->value)</span> -<span id="L27099" class="LineNr">27099 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L27100" class="LineNr">27100 </span> 89/<- %ebx 0/r32/eax -<span id="L27101" class="LineNr">27101 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4))</span> -<span id="L27102" class="LineNr">27102 </span><span class="CommentedCode">#? (write-buffered Stderr "setting offset of fn inout ")</span> -<span id="L27103" class="LineNr">27103 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L27104" class="LineNr">27104 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> -<span id="L27105" class="LineNr">27105 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> -<span id="L27106" class="LineNr">27106 </span><span class="CommentedCode">#? (write-buffered Stderr " to ")</span> -<span id="L27107" class="LineNr">27107 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edx)</span> -<span id="L27108" class="LineNr">27108 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L27109" class="LineNr">27109 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L27110" class="LineNr">27110 </span> <span class="subxComment"># v->offset = next-offset</span> -<span id="L27111" class="LineNr">27111 </span> 89/<- *(ebx+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> -<span id="L27112" class="LineNr">27112 </span> <span class="subxComment"># next-offset += size-of(v)</span> -<span id="L27113" class="LineNr">27113 </span> (<a href='mu.subx.html#L26595'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L27114" class="LineNr">27114 </span> 01/add-to %edx 0/r32/eax -<span id="L27115" class="LineNr">27115 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L27116" class="LineNr">27116 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L27117" class="LineNr">27117 </span> 89/<- %ecx 0/r32/eax -<span id="L27118" class="LineNr">27118 </span> <span class="subxComment">#</span> -<span id="L27119" class="LineNr">27119 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L27120" class="LineNr">27120 </span> } -<span id="L27121" class="LineNr">27121 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:end</span>: -<span id="L27122" class="LineNr">27122 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27123" class="LineNr">27123 </span> 5f/pop-to-edi -<span id="L27124" class="LineNr">27124 </span> 5b/pop-to-ebx -<span id="L27125" class="LineNr">27125 </span> 5a/pop-to-edx -<span id="L27126" class="LineNr">27126 </span> 59/pop-to-ecx -<span id="L27127" class="LineNr">27127 </span> 58/pop-to-eax -<span id="L27128" class="LineNr">27128 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27129" class="LineNr">27129 </span> 89/<- %esp 5/r32/ebp -<span id="L27130" class="LineNr">27130 </span> 5d/pop-to-ebp -<span id="L27131" class="LineNr">27131 </span> c3/return -<span id="L27132" class="LineNr">27132 </span> -<span id="L27133" class="LineNr">27133 </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="L27134" class="LineNr">27134 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27135" class="LineNr">27135 </span> 55/push-ebp -<span id="L27136" class="LineNr">27136 </span> 89/<- %ebp 4/r32/esp -<span id="L27137" class="LineNr">27137 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27138" class="LineNr">27138 </span> 50/push-eax -<span id="L27139" class="LineNr">27139 </span> 51/push-ecx -<span id="L27140" class="LineNr">27140 </span> 53/push-ebx -<span id="L27141" class="LineNr">27141 </span> 56/push-esi -<span id="L27142" class="LineNr">27142 </span> <span class="subxComment"># esi = stmts</span> -<span id="L27143" class="LineNr">27143 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L27144" class="LineNr">27144 </span> <span class="subxComment">#</span> -<span id="L27145" class="LineNr">27145 </span> { -<span id="L27146" class="LineNr">27146 </span><span class="Constant">$emit-subx-stmt-list:loop</span>: -<span id="L27147" class="LineNr">27147 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L27148" class="LineNr">27148 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27149" class="LineNr">27149 </span> <span class="subxComment"># var curr-stmt/ecx: (addr stmt) = lookup(stmts->value)</span> -<span id="L27150" class="LineNr">27150 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L27151" class="LineNr">27151 </span> 89/<- %ecx 0/r32/eax -<span id="L27152" class="LineNr">27152 </span> { -<span id="L27153" class="LineNr">27153 </span><span class="Constant">$emit-subx-stmt-list:check-for-block</span>: -<span id="L27154" class="LineNr">27154 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L27155" class="LineNr">27155 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27156" class="LineNr">27156 </span><span class="Constant">$emit-subx-stmt-list:block</span>: -<span id="L27157" class="LineNr">27157 </span> (<a href='mu.subx.html#L30362'>emit-subx-block</a> *(ebp+8) %ecx *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L27158" class="LineNr">27158 </span> } -<span id="L27159" class="LineNr">27159 </span> { -<span id="L27160" class="LineNr">27160 </span><span class="Constant">$emit-subx-stmt-list:check-for-stmt</span>: -<span id="L27161" class="LineNr">27161 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L27162" class="LineNr">27162 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27163" class="LineNr">27163 </span><span class="Constant">$emit-subx-stmt-list:stmt1</span>: -<span id="L27164" class="LineNr">27164 </span> { -<span id="L27165" class="LineNr">27165 </span> (<a href='mu.subx.html#L27577'>mu-branch?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L27166" class="LineNr">27166 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27167" class="LineNr">27167 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27168" class="LineNr">27168 </span><span class="Constant">$emit-subx-stmt-list:branch-stmt</span>: -<span id="L27169" class="Folded">27169 </span><span class="Folded">+-- 25 lines: # unconditional return ---------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L27194" class="Folded">27194 </span><span class="Folded">+-- 27 lines: # unconditional loops ----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L27221" class="Folded">27221 </span><span class="Folded">+-- 16 lines: # unconditional breaks ---------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L27237" class="Folded">27237 </span><span class="Folded">+-- 38 lines: # simple conditional branches without a target ---------------------------------------------------------------------------------------------------------------</span> -<span id="L27275" class="Folded">27275 </span><span class="Folded">+-- 19 lines: # conditional branches with an explicit target ---------------------------------------------------------------------------------------------------------------</span> -<span id="L27294" class="LineNr">27294 </span> } -<span id="L27295" class="LineNr">27295 </span><span class="Constant">$emit-subx-stmt-list:1-to-1</span>: -<span id="L27296" class="LineNr">27296 </span> (<a href='mu.subx.html#L28680'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L30469'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L27297" class="LineNr">27297 </span> e9/jump $emit-subx-stmt-list:continue/disp32 -<span id="L27298" class="LineNr">27298 </span> } -<span id="L27299" class="LineNr">27299 </span> { -<span id="L27300" class="LineNr">27300 </span><span class="Constant">$emit-subx-stmt-list:check-for-var-def</span>: -<span id="L27301" class="LineNr">27301 </span> 81 7/subop/compare *ecx 2/imm32/var-def <span class="subxComment"># Stmt-tag</span> -<span id="L27302" class="LineNr">27302 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27303" class="LineNr">27303 </span><span class="Constant">$emit-subx-stmt-list:var-def</span>: -<span id="L27304" class="LineNr">27304 </span> (<a href='mu.subx.html#L28541'>emit-subx-var-def</a> *(ebp+8) %ecx *(ebp+0x18) *(ebp+0x1c)) -<span id="L27305" class="LineNr">27305 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) <span class="subxComment"># Vardef-var</span> -<span id="L27306" class="LineNr">27306 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+8)) <span class="subxComment"># Vardef-var</span> -<span id="L27307" class="LineNr">27307 </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="L27308" class="LineNr">27308 </span> <span class="subxComment">#</span> -<span id="L27309" class="LineNr">27309 </span> eb/jump $emit-subx-stmt-list:continue/disp8 -<span id="L27310" class="LineNr">27310 </span> } -<span id="L27311" class="LineNr">27311 </span> { -<span id="L27312" class="LineNr">27312 </span><span class="Constant">$emit-subx-stmt-list:check-for-reg-var-def</span>: -<span id="L27313" class="LineNr">27313 </span> 81 7/subop/compare *ecx 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> -<span id="L27314" class="LineNr">27314 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27315" class="LineNr">27315 </span><span class="Constant">$emit-subx-stmt-list:reg-var-def</span>: -<span id="L27316" class="LineNr">27316 </span> <span class="subxComment"># TODO: ensure that there's exactly one output</span> -<span id="L27317" class="LineNr">27317 </span> (<a href='mu.subx.html#L27346'>push-output-and-maybe-emit-spill</a> *(ebp+8) %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L27318" class="LineNr">27318 </span> <span class="subxComment"># emit the instruction as usual</span> -<span id="L27319" class="LineNr">27319 </span> (<a href='mu.subx.html#L28680'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L30469'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L27320" class="LineNr">27320 </span> <span class="subxComment">#</span> -<span id="L27321" class="LineNr">27321 </span> eb/jump $emit-subx-stmt-list:continue/disp8 -<span id="L27322" class="LineNr">27322 </span> } -<span id="L27323" class="LineNr">27323 </span><span class="Constant">$emit-subx-stmt-list:continue</span>: -<span id="L27324" class="LineNr">27324 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> -<span id="L27325" class="LineNr">27325 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L27326" class="LineNr">27326 </span> 89/<- %esi 0/r32/eax -<span id="L27327" class="LineNr">27327 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27328" class="LineNr">27328 </span> } -<span id="L27329" class="LineNr">27329 </span><span class="Constant">$emit-subx-stmt-list:emit-cleanup</span>: -<span id="L27330" class="LineNr">27330 </span> (<a href='mu.subx.html#L27747'>emit-cleanup-code-until-depth</a> *(ebp+8) *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L27331" class="LineNr">27331 </span><span class="Constant">$emit-subx-stmt-list:clean-up</span>: -<span id="L27332" class="LineNr">27332 </span> (<a href='mu.subx.html#L28077'>clean-up-stack-offset-state</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L27333" class="LineNr">27333 </span> (<a href='mu.subx.html#L28465'>clean-up-blocks</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> *(ebp+0x14)) -<span id="L27334" class="LineNr">27334 </span><span class="Constant">$emit-subx-stmt-list:end</span>: -<span id="L27335" class="LineNr">27335 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27336" class="LineNr">27336 </span> 5e/pop-to-esi -<span id="L27337" class="LineNr">27337 </span> 5b/pop-to-ebx -<span id="L27338" class="LineNr">27338 </span> 59/pop-to-ecx -<span id="L27339" class="LineNr">27339 </span> 58/pop-to-eax -<span id="L27340" class="LineNr">27340 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27341" class="LineNr">27341 </span> 89/<- %esp 5/r32/ebp -<span id="L27342" class="LineNr">27342 </span> 5d/pop-to-ebp -<span id="L27343" class="LineNr">27343 </span> c3/return -<span id="L27344" class="LineNr">27344 </span> -<span id="L27345" class="LineNr">27345 </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="L27346" class="LineNr">27346 </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="L27347" class="LineNr">27347 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27348" class="LineNr">27348 </span> 55/push-ebp -<span id="L27349" class="LineNr">27349 </span> 89/<- %ebp 4/r32/esp -<span id="L27350" class="LineNr">27350 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27351" class="LineNr">27351 </span> 50/push-eax -<span id="L27352" class="LineNr">27352 </span> 51/push-ecx -<span id="L27353" class="LineNr">27353 </span> 52/push-edx -<span id="L27354" class="LineNr">27354 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L27355" class="LineNr">27355 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27356" class="LineNr">27356 </span> <span class="subxComment"># var sv/eax: (addr stmt-var) = lookup(curr-stmt->outputs)</span> -<span id="L27357" class="LineNr">27357 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> -<span id="L27358" class="LineNr">27358 </span> <span class="subxComment"># TODO: assert !sv->is-deref?</span> -<span id="L27359" class="LineNr">27359 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(sv->value)</span> -<span id="L27360" class="LineNr">27360 </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="L27361" class="LineNr">27361 </span> 89/<- %ecx 0/r32/eax -<span id="L27362" class="LineNr">27362 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> -<span id="L27363" class="LineNr">27363 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/r32/eax -<span id="L27364" class="LineNr">27364 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L27365" class="LineNr">27365 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> -<span id="L27366" class="LineNr">27366 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4))</span> -<span id="L27367" class="LineNr">27367 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L27368" class="LineNr">27368 </span><span class="CommentedCode">#? (write-buffered Stderr " at depth ")</span> -<span id="L27369" class="LineNr">27369 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+0x10))</span> -<span id="L27370" class="LineNr">27370 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L27371" class="LineNr">27371 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L27372" class="LineNr">27372 </span> <span class="subxComment"># ensure that v is in a register</span> -<span id="L27373" class="LineNr">27373 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L27374" class="LineNr">27374 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:abort/disp32 -<span id="L27375" class="LineNr">27375 </span> <span class="subxComment"># var emit-spill?/edx: boolean = not-yet-spilled-this-block? && will-not-write-some-register?(fn)</span> -<span id="L27376" class="LineNr">27376 </span> (<a href='mu.subx.html#L28149'>not-yet-spilled-this-block?</a> %ecx *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L27377" class="LineNr">27377 </span> 89/<- %edx 0/r32/eax -<span id="L27378" class="LineNr">27378 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27379" class="LineNr">27379 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='203stack.subx.html#L114'>push</a>/disp32 -<span id="L27380" class="LineNr">27380 </span> (<a href='mu.subx.html#L28222'>will-not-write-some-register?</a> %ecx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L27381" class="LineNr">27381 </span> 89/<- %edx 0/r32/eax -<span id="L27382" class="LineNr">27382 </span> <span class="subxComment"># check emit-spill?</span> -<span id="L27383" class="LineNr">27383 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27384" class="LineNr">27384 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='203stack.subx.html#L114'>push</a>/disp32 -<span id="L27385" class="LineNr">27385 </span> <span class="subxComment"># TODO: assert(size-of(output) == 4)</span> -<span id="L27386" class="LineNr">27386 </span> <span class="subxComment"># *Curr-local-stack-offset -= 4</span> -<span id="L27387" class="LineNr">27387 </span> 81 5/subop/subtract *<span class="SpecialChar"><a href='mu.subx.html#L26998'>Curr-local-stack-offset</a></span> 4/imm32 -<span id="L27388" class="LineNr">27388 </span> <span class="subxComment"># emit spill</span> -<span id="L27389" class="LineNr">27389 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27390" class="LineNr">27390 </span> (<a href='mu.subx.html#L27920'>emit-push-register</a> *(ebp+8) %eax) -<span id="L27391" class="LineNr">27391 </span><span class="Constant">$push-output-and-maybe-emit-spill:<a href='203stack.subx.html#L114'>push</a></span>: -<span id="L27392" class="LineNr">27392 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27393" class="LineNr">27393 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> -<span id="L27394" class="LineNr">27394 </span> <span class="subxComment"># push(vars, {sv->value, emit-spill?})</span> -<span id="L27395" class="LineNr">27395 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *eax) <span class="subxComment"># Stmt-var-value</span> -<span id="L27396" class="LineNr">27396 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(eax+4)) <span class="subxComment"># Stmt-var-value</span> -<span id="L27397" class="LineNr">27397 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) %edx) -<span id="L27398" class="LineNr">27398 </span><span class="Constant">$push-output-and-maybe-emit-spill:end</span>: -<span id="L27399" class="LineNr">27399 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27400" class="LineNr">27400 </span> 5a/pop-to-edx -<span id="L27401" class="LineNr">27401 </span> 59/pop-to-ecx -<span id="L27402" class="LineNr">27402 </span> 58/pop-to-eax -<span id="L27403" class="LineNr">27403 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27404" class="LineNr">27404 </span> 89/<- %esp 5/r32/ebp -<span id="L27405" class="LineNr">27405 </span> 5d/pop-to-ebp -<span id="L27406" class="LineNr">27406 </span> c3/return -<span id="L27407" class="LineNr">27407 </span> -<span id="L27408" class="LineNr">27408 </span><span class="Constant">$push-output-and-maybe-emit-spill:abort</span>: -<span id="L27409" class="LineNr">27409 </span> <span class="subxComment"># error("var '" var->name "' initialized from an instruction must live in a register\n")</span> -<span id="L27410" class="LineNr">27410 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) <span class="Constant">"var '"</span>) -<span id="L27411" class="LineNr">27411 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) *eax) <span class="subxComment"># Var-name</span> -<span id="L27412" class="LineNr">27412 </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="L27413" class="LineNr">27413 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x1c)) -<span id="L27414" class="LineNr">27414 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x20) 1) -<span id="L27415" class="LineNr">27415 </span> <span class="subxComment"># never gets here</span> -<span id="L27416" class="LineNr">27416 </span> -<span id="L27417" class="LineNr">27417 </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="L27418" class="LineNr">27418 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27419" class="LineNr">27419 </span> 55/push-ebp -<span id="L27420" class="LineNr">27420 </span> 89/<- %ebp 4/r32/esp -<span id="L27421" class="LineNr">27421 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27422" class="LineNr">27422 </span> 50/push-eax -<span id="L27423" class="LineNr">27423 </span> 51/push-ecx -<span id="L27424" class="LineNr">27424 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L27425" class="LineNr">27425 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27426" class="LineNr">27426 </span> <span class="subxComment"># var target/eax: (addr array byte) = curr-stmt->inouts->value->name</span> -<span id="L27427" class="LineNr">27427 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27428" class="LineNr">27428 </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="L27429" class="LineNr">27429 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27430" class="LineNr">27430 </span> <span class="subxComment"># clean up until target block</span> -<span id="L27431" class="LineNr">27431 </span> (<a href='mu.subx.html#L28000'>emit-cleanup-code-until-target</a> *(ebp+8) *(ebp+0x10) %eax) -<span id="L27432" class="LineNr">27432 </span> <span class="subxComment"># emit jump to target block</span> -<span id="L27433" class="LineNr">27433 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L27434" class="LineNr">27434 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) -<span id="L27435" class="LineNr">27435 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27436" class="LineNr">27436 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L27437" class="LineNr">27437 </span> (<a href='105string-equal.subx.html#L57'>string-starts-with?</a> %eax <span class="Constant">"break"</span>) -<span id="L27438" class="LineNr">27438 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27439" class="LineNr">27439 </span> { -<span id="L27440" class="LineNr">27440 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27441" class="LineNr">27441 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break/disp32\n"</span>) -<span id="L27442" class="LineNr">27442 </span> eb/jump $emit-subx-cleanup-and-unconditional-nonlocal-branch:end/disp8 -<span id="L27443" class="LineNr">27443 </span> } -<span id="L27444" class="LineNr">27444 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop/disp32\n"</span>) -<span id="L27445" class="LineNr">27445 </span><span class="Constant">$emit-subx-cleanup-and-unconditional-nonlocal-branch:end</span>: -<span id="L27446" class="LineNr">27446 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27447" class="LineNr">27447 </span> 59/pop-to-ecx -<span id="L27448" class="LineNr">27448 </span> 58/pop-to-eax -<span id="L27449" class="LineNr">27449 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27450" class="LineNr">27450 </span> 89/<- %esp 5/r32/ebp -<span id="L27451" class="LineNr">27451 </span> 5d/pop-to-ebp -<span id="L27452" class="LineNr">27452 </span> c3/return -<span id="L27453" class="LineNr">27453 </span> -<span id="L27454" class="LineNr">27454 </span><span class="subxFunction">emit-outputs</span>: <span class="subxComment"># out: (addr buffered-file), return-stmt: (addr stmt1), fn: (addr function)</span> -<span id="L27455" class="LineNr">27455 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27456" class="LineNr">27456 </span> 55/push-ebp -<span id="L27457" class="LineNr">27457 </span> 89/<- %ebp 4/r32/esp -<span id="L27458" class="LineNr">27458 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27459" class="LineNr">27459 </span> 50/push-eax -<span id="L27460" class="LineNr">27460 </span> 51/push-ecx -<span id="L27461" class="LineNr">27461 </span> 56/push-esi -<span id="L27462" class="LineNr">27462 </span> 57/push-edi -<span id="L27463" class="LineNr">27463 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-stmt->inouts</span> -<span id="L27464" class="LineNr">27464 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27465" class="LineNr">27465 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27466" class="LineNr">27466 </span> 89/<- %esi 0/r32/eax -<span id="L27467" class="LineNr">27467 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn->outputs</span> -<span id="L27468" class="LineNr">27468 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L27469" class="LineNr">27469 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L27470" class="LineNr">27470 </span> 89/<- %edi 0/r32/eax -<span id="L27471" class="LineNr">27471 </span> { -<span id="L27472" class="LineNr">27472 </span><span class="Constant">$emit-outputs:loop</span>: -<span id="L27473" class="LineNr">27473 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L27474" class="LineNr">27474 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27475" class="LineNr">27475 </span> <span class="subxComment"># emit copy to output register</span> -<span id="L27476" class="LineNr">27476 </span> <span class="subxComment"># var curr-output-register/ecx: (addr array byte) = curr-output->value->register</span> -<span id="L27477" class="LineNr">27477 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L27478" class="LineNr">27478 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27479" class="LineNr">27479 </span> 89/<- %ecx 0/r32/eax -<span id="L27480" class="LineNr">27480 </span> <span class="subxComment"># if curr-output-register starts with "x", emit a floating-point copy</span> -<span id="L27481" class="LineNr">27481 </span> 8a/copy-byte *(ecx+4) 0/r32/AL -<span id="L27482" class="LineNr">27482 </span> 25/and-eax-with 0xff/imm32 -<span id="L27483" class="LineNr">27483 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L27484" class="LineNr">27484 </span> { -<span id="L27485" class="LineNr">27485 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27486" class="LineNr">27486 </span> (<a href='mu.subx.html#L27555'>emit-float-output</a> *(ebp+8) %esi %ecx) -<span id="L27487" class="LineNr">27487 </span> eb/jump $emit-outputs:continue/disp8 -<span id="L27488" class="LineNr">27488 </span> } -<span id="L27489" class="LineNr">27489 </span> <span class="subxComment"># otherwise emit an int copy</span> -<span id="L27490" class="LineNr">27490 </span> (<a href='mu.subx.html#L27512'>emit-int-output</a> *(ebp+8) %esi %ecx) -<span id="L27491" class="LineNr">27491 </span><span class="Constant">$emit-outputs:continue</span>: -<span id="L27492" class="LineNr">27492 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> -<span id="L27493" class="LineNr">27493 </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="L27494" class="LineNr">27494 </span> 89/<- %esi 0/r32/eax -<span id="L27495" class="LineNr">27495 </span> <span class="subxComment"># curr-output = curr-output->next</span> -<span id="L27496" class="LineNr">27496 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L27497" class="LineNr">27497 </span> 89/<- %edi 0/r32/eax -<span id="L27498" class="LineNr">27498 </span> <span class="subxComment">#</span> -<span id="L27499" class="LineNr">27499 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27500" class="LineNr">27500 </span> } -<span id="L27501" class="LineNr">27501 </span><span class="Constant">$emit-outputs:end</span>: -<span id="L27502" class="LineNr">27502 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27503" class="LineNr">27503 </span> 5f/pop-to-edi -<span id="L27504" class="LineNr">27504 </span> 5e/pop-to-esi -<span id="L27505" class="LineNr">27505 </span> 59/pop-to-ecx -<span id="L27506" class="LineNr">27506 </span> 58/pop-to-eax -<span id="L27507" class="LineNr">27507 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27508" class="LineNr">27508 </span> 89/<- %esp 5/r32/ebp -<span id="L27509" class="LineNr">27509 </span> 5d/pop-to-ebp -<span id="L27510" class="LineNr">27510 </span> c3/return -<span id="L27511" class="LineNr">27511 </span> -<span id="L27512" class="LineNr">27512 </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="L27513" class="LineNr">27513 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27514" class="LineNr">27514 </span> 55/push-ebp -<span id="L27515" class="LineNr">27515 </span> 89/<- %ebp 4/r32/esp -<span id="L27516" class="LineNr">27516 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27517" class="LineNr">27517 </span> 50/push-eax -<span id="L27518" class="LineNr">27518 </span> 51/push-ecx -<span id="L27519" class="LineNr">27519 </span> <span class="subxComment"># ecx = return-var->value</span> -<span id="L27520" class="LineNr">27520 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27521" class="LineNr">27521 </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="L27522" class="LineNr">27522 </span> 89/<- %ecx 0/r32/eax -<span id="L27523" class="LineNr">27523 </span> <span class="subxComment"># if curr-var is a literal, emit copy of a literal to the output</span> -<span id="L27524" class="LineNr">27524 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L27525" class="LineNr">27525 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> -<span id="L27526" class="LineNr">27526 </span> { -<span id="L27527" class="LineNr">27527 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27528" class="LineNr">27528 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27529" class="LineNr">27529 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L27530" class="LineNr">27530 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c7 0/subop/copy %"</span>) -<span id="L27531" class="LineNr">27531 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x10)) -<span id="L27532" class="LineNr">27532 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L27533" class="LineNr">27533 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27534" class="LineNr">27534 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27535" class="LineNr">27535 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L27536" class="LineNr">27536 </span> e9/jump $emit-int-output:end/disp32 -<span id="L27537" class="LineNr">27537 </span> } -<span id="L27538" class="LineNr">27538 </span> <span class="subxComment"># otherwise emit an integer copy</span> -<span id="L27539" class="LineNr">27539 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L27540" class="LineNr">27540 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/->"</span>) -<span id="L27541" class="LineNr">27541 </span> (<a href='mu.subx.html#L35793'>emit-subx-var-as-rm32</a> *(ebp+8) *(ebp+0xc)) -<span id="L27542" class="LineNr">27542 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L27543" class="LineNr">27543 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19420'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> -<span id="L27544" class="LineNr">27544 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L27545" class="LineNr">27545 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L27546" class="LineNr">27546 </span><span class="Constant">$emit-int-output:end</span>: -<span id="L27547" class="LineNr">27547 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27548" class="LineNr">27548 </span> 59/pop-to-ecx -<span id="L27549" class="LineNr">27549 </span> 58/pop-to-eax -<span id="L27550" class="LineNr">27550 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27551" class="LineNr">27551 </span> 89/<- %esp 5/r32/ebp -<span id="L27552" class="LineNr">27552 </span> 5d/pop-to-ebp -<span id="L27553" class="LineNr">27553 </span> c3/return -<span id="L27554" class="LineNr">27554 </span> -<span id="L27555" class="LineNr">27555 </span><span class="subxFunction">emit-float-output</span>: <span class="subxComment"># out: (addr buffered-file), return-var: (addr stmt-var), dest-reg: (addr array byte)</span> -<span id="L27556" class="LineNr">27556 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27557" class="LineNr">27557 </span> 55/push-ebp -<span id="L27558" class="LineNr">27558 </span> 89/<- %ebp 4/r32/esp -<span id="L27559" class="LineNr">27559 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27560" class="LineNr">27560 </span> 50/push-eax -<span id="L27561" class="LineNr">27561 </span> <span class="subxComment">#</span> -<span id="L27562" class="LineNr">27562 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L27563" class="LineNr">27563 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/->"</span>) -<span id="L27564" class="LineNr">27564 </span> (<a href='mu.subx.html#L35793'>emit-subx-var-as-rm32</a> *(ebp+8) *(ebp+0xc)) -<span id="L27565" class="LineNr">27565 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L27566" class="LineNr">27566 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19420'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> -<span id="L27567" class="LineNr">27567 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L27568" class="LineNr">27568 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) -<span id="L27569" class="LineNr">27569 </span><span class="Constant">$emit-float-output:end</span>: -<span id="L27570" class="LineNr">27570 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27571" class="LineNr">27571 </span> 58/pop-to-eax -<span id="L27572" class="LineNr">27572 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27573" class="LineNr">27573 </span> 89/<- %esp 5/r32/ebp -<span id="L27574" class="LineNr">27574 </span> 5d/pop-to-ebp -<span id="L27575" class="LineNr">27575 </span> c3/return -<span id="L27576" class="LineNr">27576 </span> -<span id="L27577" class="LineNr">27577 </span><span class="subxFunction">mu-branch?</span>: <span class="subxComment"># stmt: (addr stmt1) -> result/eax: boolean</span> -<span id="L27578" class="LineNr">27578 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27579" class="LineNr">27579 </span> 55/push-ebp -<span id="L27580" class="LineNr">27580 </span> 89/<- %ebp 4/r32/esp -<span id="L27581" class="LineNr">27581 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27582" class="LineNr">27582 </span> 51/push-ecx -<span id="L27583" class="LineNr">27583 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> -<span id="L27584" class="LineNr">27584 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L27585" class="LineNr">27585 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L27586" class="LineNr">27586 </span> 89/<- %ecx 0/r32/eax -<span id="L27587" class="LineNr">27587 </span> <span class="subxComment"># if (stmt->operation starts with "loop") return true</span> -<span id="L27588" class="LineNr">27588 </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="L27589" class="LineNr">27589 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27590" class="LineNr">27590 </span> 75/jump-if-not-equal $mu-branch?:end/disp8 -<span id="L27591" class="LineNr">27591 </span> <span class="subxComment"># if (stmt->operation starts with "break") return true</span> -<span id="L27592" class="LineNr">27592 </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="L27593" class="LineNr">27593 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27594" class="LineNr">27594 </span> 75/jump-if-not-equal $mu-branch?:end/disp8 -<span id="L27595" class="LineNr">27595 </span> <span class="subxComment"># otherwise return (stmt->operation starts with "return")</span> -<span id="L27596" class="LineNr">27596 </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="L27597" class="LineNr">27597 </span><span class="Constant">$mu-branch?:end</span>: -<span id="L27598" class="LineNr">27598 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27599" class="LineNr">27599 </span> 59/pop-to-ecx -<span id="L27600" class="LineNr">27600 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27601" class="LineNr">27601 </span> 89/<- %esp 5/r32/ebp -<span id="L27602" class="LineNr">27602 </span> 5d/pop-to-ebp -<span id="L27603" class="LineNr">27603 </span> c3/return -<span id="L27604" class="LineNr">27604 </span> -<span id="L27605" class="LineNr">27605 </span><span class="subxFunction">emit-reverse-break</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt1)</span> -<span id="L27606" class="LineNr">27606 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27607" class="LineNr">27607 </span> 55/push-ebp -<span id="L27608" class="LineNr">27608 </span> 89/<- %ebp 4/r32/esp -<span id="L27609" class="LineNr">27609 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27610" class="LineNr">27610 </span> 50/push-eax -<span id="L27611" class="LineNr">27611 </span> <span class="subxComment"># eax = stmt</span> -<span id="L27612" class="LineNr">27612 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27613" class="LineNr">27613 </span> <span class="subxComment">#</span> -<span id="L27614" class="LineNr">27614 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L27615" class="LineNr">27615 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L27631'>Reverse-branch</a></span> %eax 0x10 <span class="Constant">"reverse-branch: "</span>) <span class="subxComment"># => eax: (addr handle array byte)</span> -<span id="L27616" class="LineNr">27616 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L27617" class="LineNr">27617 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L27618" class="LineNr">27618 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27619" class="LineNr">27619 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" break/disp32\n"</span>) -<span id="L27620" class="LineNr">27620 </span><span class="Constant">$emit-reverse-break:end</span>: +<span id="L26954" class="LineNr">26954 </span><span class="Constant">$mu-stream?:end</span>: +<span id="L26955" class="LineNr">26955 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26956" class="LineNr">26956 </span> 59/pop-to-ecx +<span id="L26957" class="LineNr">26957 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26958" class="LineNr">26958 </span> 89/<- %esp 5/r32/ebp +<span id="L26959" class="LineNr">26959 </span> 5d/pop-to-ebp +<span id="L26960" class="LineNr">26960 </span> c3/return +<span id="L26961" class="LineNr">26961 </span> +<span id="L26962" class="LineNr">26962 </span><span class="subxComment"># size of a statically allocated stream where the size is part of the type expression</span> +<span id="L26963" class="LineNr">26963 </span><span class="subxFunction">size-of-stream</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> +<span id="L26964" class="LineNr">26964 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26965" class="LineNr">26965 </span> 55/push-ebp +<span id="L26966" class="LineNr">26966 </span> 89/<- %ebp 4/r32/esp +<span id="L26967" class="LineNr">26967 </span> <span class="subxComment">#</span> +<span id="L26968" class="LineNr">26968 </span> (<a href='mu.subx.html#L26898'>size-of-array</a> *(ebp+8)) <span class="subxComment"># assumes we ignore the actual type name 'array' in the type</span> +<span id="L26969" class="LineNr">26969 </span> 05/add-to-eax 8/imm32 <span class="subxComment"># for read/write pointers</span> +<span id="L26970" class="LineNr">26970 </span><span class="Constant">$size-of-stream:end</span>: +<span id="L26971" class="LineNr">26971 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26972" class="LineNr">26972 </span> 89/<- %esp 5/r32/ebp +<span id="L26973" class="LineNr">26973 </span> 5d/pop-to-ebp +<span id="L26974" class="LineNr">26974 </span> c3/return +<span id="L26975" class="LineNr">26975 </span> +<span id="L26976" class="LineNr">26976 </span><span class="subxFunction">size-of-type-id</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> +<span id="L26977" class="LineNr">26977 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26978" class="LineNr">26978 </span> 55/push-ebp +<span id="L26979" class="LineNr">26979 </span> 89/<- %ebp 4/r32/esp +<span id="L26980" class="LineNr">26980 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26981" class="LineNr">26981 </span> 51/push-ecx +<span id="L26982" class="LineNr">26982 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> +<span id="L26983" class="LineNr">26983 </span> 68/push 0/imm32 +<span id="L26984" class="LineNr">26984 </span> 68/push 0/imm32 +<span id="L26985" class="LineNr">26985 </span> 89/<- %ecx 4/r32/esp +<span id="L26986" class="LineNr">26986 </span> <span class="subxComment"># eax = t</span> +<span id="L26987" class="LineNr">26987 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L26988" class="LineNr">26988 </span> <span class="subxComment"># if t is a literal, return 0</span> +<span id="L26989" class="LineNr">26989 </span> 3d/compare-eax-and 0/imm32 +<span id="L26990" class="LineNr">26990 </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="L26991" class="LineNr">26991 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> +<span id="L26992" class="LineNr">26992 </span> 3d/compare-eax-and 8/imm32/byte +<span id="L26993" class="LineNr">26993 </span> { +<span id="L26994" class="LineNr">26994 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26995" class="LineNr">26995 </span> b8/copy-to-eax 4/imm32 +<span id="L26996" class="LineNr">26996 </span> eb/jump $size-of-type-id:end/disp8 +<span id="L26997" class="LineNr">26997 </span> } +<span id="L26998" class="LineNr">26998 </span> <span class="subxComment"># if t is a handle, return 8</span> +<span id="L26999" class="LineNr">26999 </span> 3d/compare-eax-and 4/imm32/handle +<span id="L27000" class="LineNr">27000 </span> { +<span id="L27001" class="LineNr">27001 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27002" class="LineNr">27002 </span> b8/copy-to-eax 8/imm32 +<span id="L27003" class="LineNr">27003 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L27004" class="LineNr">27004 </span> } +<span id="L27005" class="LineNr">27005 </span> <span class="subxComment"># if t is a slice, return 8</span> +<span id="L27006" class="LineNr">27006 </span> 3d/compare-eax-and 0xc/imm32/slice +<span id="L27007" class="LineNr">27007 </span> { +<span id="L27008" class="LineNr">27008 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27009" class="LineNr">27009 </span> b8/copy-to-eax 8/imm32 +<span id="L27010" class="LineNr">27010 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L27011" class="LineNr">27011 </span> } +<span id="L27012" class="LineNr">27012 </span> <span class="subxComment"># if t is a user-defined type, return its size</span> +<span id="L27013" class="LineNr">27013 </span> <span class="subxComment"># TODO: support non-atom type</span> +<span id="L27014" class="LineNr">27014 </span> (<a href='mu.subx.html#L20530'>find-typeinfo</a> %eax %ecx) +<span id="L27015" class="LineNr">27015 </span> { +<span id="L27016" class="LineNr">27016 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L27017" class="LineNr">27017 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27018" class="LineNr">27018 </span><span class="Constant">$size-of-type-id:user-defined</span>: +<span id="L27019" class="LineNr">27019 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L27020" class="LineNr">27020 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L27021" class="LineNr">27021 </span> eb/jump $size-of-type-id:end/disp8 +<span id="L27022" class="LineNr">27022 </span> } +<span id="L27023" class="LineNr">27023 </span> <span class="subxComment"># otherwise return the word size</span> +<span id="L27024" class="LineNr">27024 </span> b8/copy-to-eax 4/imm32 +<span id="L27025" class="LineNr">27025 </span><span class="Constant">$size-of-type-id:end</span>: +<span id="L27026" class="LineNr">27026 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L27027" class="LineNr">27027 </span> 81 0/subop/add %esp 8/imm32 +<span id="L27028" class="LineNr">27028 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27029" class="LineNr">27029 </span> 59/pop-to-ecx +<span id="L27030" class="LineNr">27030 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27031" class="LineNr">27031 </span> 89/<- %esp 5/r32/ebp +<span id="L27032" class="LineNr">27032 </span> 5d/pop-to-ebp +<span id="L27033" class="LineNr">27033 </span> c3/return +<span id="L27034" class="LineNr">27034 </span> +<span id="L27035" class="LineNr">27035 </span><span class="subxComment"># Minor violation of our type system since it returns an addr. But we could</span> +<span id="L27036" class="LineNr">27036 </span><span class="subxComment"># replace it with a handle some time.</span> +<span id="L27037" class="LineNr">27037 </span><span class="subxComment"># Returns null if t is an atom.</span> +<span id="L27038" class="LineNr">27038 </span><span class="subxFunction">type-tail</span>: <span class="subxComment"># t: (addr type-tree) -> out/eax: (addr type-tree)</span> +<span id="L27039" class="LineNr">27039 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27040" class="LineNr">27040 </span> 55/push-ebp +<span id="L27041" class="LineNr">27041 </span> 89/<- %ebp 4/r32/esp +<span id="L27042" class="LineNr">27042 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27043" class="LineNr">27043 </span> 51/push-ecx +<span id="L27044" class="LineNr">27044 </span> <span class="subxComment"># eax = 0</span> +<span id="L27045" class="LineNr">27045 </span> b8/copy-to-eax 0/imm32 +<span id="L27046" class="LineNr">27046 </span> <span class="subxComment"># ecx = t</span> +<span id="L27047" class="LineNr">27047 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L27048" class="LineNr">27048 </span><span class="Constant">$type-tail:check-atom</span>: +<span id="L27049" class="LineNr">27049 </span> <span class="subxComment"># if t->is-atom? return 0</span> +<span id="L27050" class="LineNr">27050 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L27051" class="LineNr">27051 </span> 0f 85/jump-if-!= $type-tail:end/disp32 +<span id="L27052" class="LineNr">27052 </span> <span class="subxComment"># var tail = t->right</span> +<span id="L27053" class="LineNr">27053 </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="L27054" class="LineNr">27054 </span> 89/<- %ecx 0/r32/eax +<span id="L27055" class="LineNr">27055 </span><span class="Constant">$type-tail:check-singleton</span>: +<span id="L27056" class="LineNr">27056 </span> <span class="subxComment"># if (tail->right == 0) return tail->left</span> +<span id="L27057" class="LineNr">27057 </span> { +<span id="L27058" class="LineNr">27058 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L27059" class="LineNr">27059 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27060" class="LineNr">27060 </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="L27061" class="LineNr">27061 </span> e9/jump $type-tail:end/disp32 +<span id="L27062" class="LineNr">27062 </span> } +<span id="L27063" class="LineNr">27063 </span> <span class="subxComment"># if tail->right->left is an array-capacity, return tail->left</span> +<span id="L27064" class="LineNr">27064 </span> { +<span id="L27065" class="LineNr">27065 </span><span class="Constant">$type-tail:check-array-capacity</span>: +<span id="L27066" class="LineNr">27066 </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="L27067" class="LineNr">27067 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L27068" class="LineNr">27068 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27069" class="LineNr">27069 </span><span class="Constant">$type-tail:check-array-capacity-1</span>: +<span id="L27070" class="LineNr">27070 </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="L27071" class="LineNr">27071 </span> 3d/compare-eax-and 0/imm32 +<span id="L27072" class="LineNr">27072 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27073" class="LineNr">27073 </span><span class="Constant">$type-tail:check-array-capacity-2</span>: +<span id="L27074" class="LineNr">27074 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 9) <span class="subxComment"># array-capacity => eax</span> +<span id="L27075" class="LineNr">27075 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27076" class="LineNr">27076 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27077" class="LineNr">27077 </span><span class="Constant">$type-tail:array-capacity</span>: +<span id="L27078" class="LineNr">27078 </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="L27079" class="LineNr">27079 </span> eb/jump $type-tail:end/disp8 +<span id="L27080" class="LineNr">27080 </span> } +<span id="L27081" class="LineNr">27081 </span><span class="Constant">$type-tail:check-compound-left</span>: +<span id="L27082" class="LineNr">27082 </span> <span class="subxComment"># if !tail->left->is-atom? return tail->left</span> +<span id="L27083" class="LineNr">27083 </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="L27084" class="LineNr">27084 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L27085" class="LineNr">27085 </span> 74/jump-if-= $type-tail:end/disp8 +<span id="L27086" class="LineNr">27086 </span><span class="Constant">$type-tail:return-tail</span>: +<span id="L27087" class="LineNr">27087 </span> <span class="subxComment"># return tail</span> +<span id="L27088" class="LineNr">27088 </span> 89/<- %eax 1/r32/ecx +<span id="L27089" class="LineNr">27089 </span><span class="Constant">$type-tail:end</span>: +<span id="L27090" class="LineNr">27090 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27091" class="LineNr">27091 </span> 59/pop-to-ecx +<span id="L27092" class="LineNr">27092 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27093" class="LineNr">27093 </span> 89/<- %esp 5/r32/ebp +<span id="L27094" class="LineNr">27094 </span> 5d/pop-to-ebp +<span id="L27095" class="LineNr">27095 </span> c3/return +<span id="L27096" class="LineNr">27096 </span> +<span id="L27097" class="LineNr">27097 </span><span class="subxFunction">type-equal?</span>: <span class="subxComment"># a: (addr type-tree), b: (addr type-tree) -> result/eax: boolean</span> +<span id="L27098" class="LineNr">27098 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27099" class="LineNr">27099 </span> 55/push-ebp +<span id="L27100" class="LineNr">27100 </span> 89/<- %ebp 4/r32/esp +<span id="L27101" class="LineNr">27101 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27102" class="LineNr">27102 </span> 51/push-ecx +<span id="L27103" class="LineNr">27103 </span> 52/push-edx +<span id="L27104" class="LineNr">27104 </span> 53/push-ebx +<span id="L27105" class="LineNr">27105 </span> <span class="subxComment"># ecx = a</span> +<span id="L27106" class="LineNr">27106 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L27107" class="LineNr">27107 </span> <span class="subxComment"># edx = b</span> +<span id="L27108" class="LineNr">27108 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L27109" class="LineNr">27109 </span><span class="Constant">$type-equal?:compare-addr</span>: +<span id="L27110" class="LineNr">27110 </span> <span class="subxComment"># if (a == b) return true</span> +<span id="L27111" class="LineNr">27111 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L27112" class="LineNr">27112 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L27113" class="LineNr">27113 </span> b8/copy-to-eax 1/imm32/true +<span id="L27114" class="LineNr">27114 </span> 0f 84/jump-if-= $type-equal?:end/disp32 +<span id="L27115" class="LineNr">27115 </span><span class="Constant">$type-equal?:compare-null-a</span>: +<span id="L27116" class="LineNr">27116 </span> <span class="subxComment"># if (a == 0) return false</span> +<span id="L27117" class="LineNr">27117 </span> b8/copy-to-eax 0/imm32/false +<span id="L27118" class="LineNr">27118 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L27119" class="LineNr">27119 </span> 0f 84/jump-if-= $type-equal?:end/disp32 +<span id="L27120" class="LineNr">27120 </span><span class="Constant">$type-equal?:compare-null-b</span>: +<span id="L27121" class="LineNr">27121 </span> <span class="subxComment"># if (b == 0) return false</span> +<span id="L27122" class="LineNr">27122 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L27123" class="LineNr">27123 </span> 0f 84/jump-if-= $type-equal?:end/disp32 +<span id="L27124" class="LineNr">27124 </span><span class="Constant">$type-equal?:compare-atom-state</span>: +<span id="L27125" class="LineNr">27125 </span> <span class="subxComment"># if (a->is-atom? != b->is-atom?) return false</span> +<span id="L27126" class="LineNr">27126 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L27127" class="LineNr">27127 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L27128" class="LineNr">27128 </span> b8/copy-to-eax 0/imm32/false +<span id="L27129" class="LineNr">27129 </span> 0f 85/jump-if-!= $type-equal?:end/disp32 +<span id="L27130" class="LineNr">27130 </span> <span class="subxComment"># if a->is-atom? return (a->value == b->value)</span> +<span id="L27131" class="LineNr">27131 </span> { +<span id="L27132" class="LineNr">27132 </span><span class="Constant">$type-equal?:check-atom</span>: +<span id="L27133" class="LineNr">27133 </span> 81 7/subop/compare %ebx 0/imm32/false +<span id="L27134" class="LineNr">27134 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27135" class="LineNr">27135 </span><span class="Constant">$type-equal?:is-atom</span>: +<span id="L27136" class="LineNr">27136 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L27137" class="LineNr">27137 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L27138" class="LineNr">27138 </span> 0f 94/set-if-= %al +<span id="L27139" class="LineNr">27139 </span> 25/and-eax-with 0xff/imm32 +<span id="L27140" class="LineNr">27140 </span> e9/jump $type-equal?:end/disp32 +<span id="L27141" class="LineNr">27141 </span> } +<span id="L27142" class="LineNr">27142 </span><span class="Constant">$type-equal?:check-left</span>: +<span id="L27143" class="LineNr">27143 </span> <span class="subxComment"># if (!type-equal?(a->left, b->left)) return false</span> +<span id="L27144" class="LineNr">27144 </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="L27145" class="LineNr">27145 </span> 89/<- %ebx 0/r32/eax +<span id="L27146" class="LineNr">27146 </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="L27147" class="LineNr">27147 </span> (<a href='mu.subx.html#L27097'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L27148" class="LineNr">27148 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27149" class="LineNr">27149 </span> 74/jump-if-= $type-equal?:end/disp8 +<span id="L27150" class="LineNr">27150 </span><span class="Constant">$type-equal?:check-right</span>: +<span id="L27151" class="LineNr">27151 </span> <span class="subxComment"># return type-equal?(a->right, b->right)</span> +<span id="L27152" class="LineNr">27152 </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="L27153" class="LineNr">27153 </span> 89/<- %ebx 0/r32/eax +<span id="L27154" class="LineNr">27154 </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="L27155" class="LineNr">27155 </span> (<a href='mu.subx.html#L27097'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L27156" class="LineNr">27156 </span><span class="Constant">$type-equal?:end</span>: +<span id="L27157" class="LineNr">27157 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27158" class="LineNr">27158 </span> 5b/pop-to-ebx +<span id="L27159" class="LineNr">27159 </span> 5a/pop-to-edx +<span id="L27160" class="LineNr">27160 </span> 59/pop-to-ecx +<span id="L27161" class="LineNr">27161 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27162" class="LineNr">27162 </span> 89/<- %esp 5/r32/ebp +<span id="L27163" class="LineNr">27163 </span> 5d/pop-to-ebp +<span id="L27164" class="LineNr">27164 </span> c3/return +<span id="L27165" class="LineNr">27165 </span> +<span id="L27166" class="LineNr">27166 </span><span class="subxComment">#######################################################</span> +<span id="L27167" class="LineNr">27167 </span><span class="subxComment"># Code-generation</span> +<span id="L27168" class="LineNr">27168 </span><span class="subxComment">#######################################################</span> +<span id="L27169" class="LineNr">27169 </span> +<span id="L27170" class="LineNr">27170 </span>== data +<span id="L27171" class="LineNr">27171 </span> +<span id="L27172" class="LineNr">27172 </span><span class="subxComment"># Global state added to each var record when performing code-generation.</span> +<span id="L27173" class="LineNr">27173 </span><span class="SpecialChar">Curr-local-stack-offset</span>: <span class="subxComment"># (addr int)</span> +<span id="L27174" class="LineNr">27174 </span> 0/imm32 +<span id="L27175" class="LineNr">27175 </span> +<span id="L27176" class="LineNr">27176 </span>== code +<span id="L27177" class="LineNr">27177 </span> +<span id="L27178" class="LineNr">27178 </span><span class="subxComment"># We may not need to pass err/ed everywhere here. I think they're relics of Mu</span> +<span id="L27179" class="LineNr">27179 </span><span class="subxComment"># getting type checks later in life.</span> +<span id="L27180" class="LineNr">27180 </span><span class="subxComment"># But we do need them for runtime checks, particularly array index bounds checks.</span> +<span id="L27181" class="LineNr">27181 </span><span class="subxComment"># So perhaps it's not worth taking them out. They're a safety net.</span> +<span id="L27182" class="LineNr">27182 </span> +<span id="L27183" class="LineNr">27183 </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="L27184" class="LineNr">27184 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27185" class="LineNr">27185 </span> 55/push-ebp +<span id="L27186" class="LineNr">27186 </span> 89/<- %ebp 4/r32/esp +<span id="L27187" class="LineNr">27187 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27188" class="LineNr">27188 </span> 50/push-eax +<span id="L27189" class="LineNr">27189 </span> <span class="subxComment"># var curr/eax: (addr function) = *Program->functions</span> +<span id="L27190" class="LineNr">27190 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L27191" class="LineNr">27191 </span> { +<span id="L27192" class="LineNr">27192 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L27193" class="LineNr">27193 </span> 3d/compare-eax-and 0/imm32 +<span id="L27194" class="LineNr">27194 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27195" class="LineNr">27195 </span> (<a href='mu.subx.html#L27208'>emit-subx-function</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L27196" class="LineNr">27196 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L27197" class="LineNr">27197 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L27198" class="LineNr">27198 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L27199" class="LineNr">27199 </span> } +<span id="L27200" class="LineNr">27200 </span><span class="Constant">$emit-subx:end</span>: +<span id="L27201" class="LineNr">27201 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27202" class="LineNr">27202 </span> 58/pop-to-eax +<span id="L27203" class="LineNr">27203 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27204" class="LineNr">27204 </span> 89/<- %esp 5/r32/ebp +<span id="L27205" class="LineNr">27205 </span> 5d/pop-to-ebp +<span id="L27206" class="LineNr">27206 </span> c3/return +<span id="L27207" class="LineNr">27207 </span> +<span id="L27208" class="LineNr">27208 </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="L27209" class="LineNr">27209 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27210" class="LineNr">27210 </span> 55/push-ebp +<span id="L27211" class="LineNr">27211 </span> 89/<- %ebp 4/r32/esp +<span id="L27212" class="LineNr">27212 </span> <span class="subxComment"># some preprocessing</span> +<span id="L27213" class="LineNr">27213 </span> (<a href='mu.subx.html#L27253'>populate-mu-type-offsets-in-inouts</a> *(ebp+0xc)) +<span id="L27214" class="LineNr">27214 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27215" class="LineNr">27215 </span> 50/push-eax +<span id="L27216" class="LineNr">27216 </span> 51/push-ecx +<span id="L27217" class="LineNr">27217 </span> 52/push-edx +<span id="L27218" class="LineNr">27218 </span> <span class="subxComment"># initialize some global state</span> +<span id="L27219" class="LineNr">27219 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 1/imm32 <span class="subxComment"># Important: keep this in sync with the parse phase</span> +<span id="L27220" class="LineNr">27220 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L27173'>Curr-local-stack-offset</a></span> 0/imm32 +<span id="L27221" class="LineNr">27221 </span> <span class="subxComment"># ecx = f</span> +<span id="L27222" class="LineNr">27222 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27223" class="LineNr">27223 </span> <span class="subxComment"># var vars/edx: (stack (addr var) 256)</span> +<span id="L27224" class="LineNr">27224 </span> 81 5/subop/subtract %esp 0xc00/imm32 +<span id="L27225" class="LineNr">27225 </span> 68/push 0xc00/imm32/size +<span id="L27226" class="LineNr">27226 </span> 68/push 0/imm32/top +<span id="L27227" class="LineNr">27227 </span> 89/<- %edx 4/r32/esp +<span id="L27228" class="LineNr">27228 </span> <span class="subxComment"># var name/eax: (addr array byte) = lookup(f->name)</span> +<span id="L27229" class="LineNr">27229 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L27230" class="LineNr">27230 </span> <span class="subxComment">#</span> +<span id="L27231" class="LineNr">27231 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27232" class="LineNr">27232 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":\n"</span>) +<span id="L27233" class="LineNr">27233 </span> (<a href='mu.subx.html#L39106'>emit-subx-prologue</a> *(ebp+8)) +<span id="L27234" class="LineNr">27234 </span> <span class="subxComment"># var body/eax: (addr block) = lookup(f->body)</span> +<span id="L27235" class="LineNr">27235 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> +<span id="L27236" class="LineNr">27236 </span> <span class="subxComment">#</span> +<span id="L27237" class="LineNr">27237 </span> (<a href='mu.subx.html#L30615'>emit-subx-block</a> *(ebp+8) %eax %edx *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L27238" class="LineNr">27238 </span> (<a href='mu.subx.html#L39120'>emit-subx-epilogue</a> *(ebp+8)) +<span id="L27239" class="LineNr">27239 </span> <span class="subxComment"># TODO: validate that *Curr-block-depth and *Curr-local-stack-offset have</span> +<span id="L27240" class="LineNr">27240 </span> <span class="subxComment"># been cleaned up</span> +<span id="L27241" class="LineNr">27241 </span><span class="Constant">$emit-subx-function:end</span>: +<span id="L27242" class="LineNr">27242 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L27243" class="LineNr">27243 </span> 81 0/subop/add %esp 0xc08/imm32 +<span id="L27244" class="LineNr">27244 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27245" class="LineNr">27245 </span> 5a/pop-to-edx +<span id="L27246" class="LineNr">27246 </span> 59/pop-to-ecx +<span id="L27247" class="LineNr">27247 </span> 58/pop-to-eax +<span id="L27248" class="LineNr">27248 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27249" class="LineNr">27249 </span> 89/<- %esp 5/r32/ebp +<span id="L27250" class="LineNr">27250 </span> 5d/pop-to-ebp +<span id="L27251" class="LineNr">27251 </span> c3/return +<span id="L27252" class="LineNr">27252 </span> +<span id="L27253" class="LineNr">27253 </span><span class="subxFunction">populate-mu-type-offsets-in-inouts</span>: <span class="subxComment"># f: (addr function)</span> +<span id="L27254" class="LineNr">27254 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27255" class="LineNr">27255 </span> 55/push-ebp +<span id="L27256" class="LineNr">27256 </span> 89/<- %ebp 4/r32/esp +<span id="L27257" class="LineNr">27257 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27258" class="LineNr">27258 </span> 50/push-eax +<span id="L27259" class="LineNr">27259 </span> 51/push-ecx +<span id="L27260" class="LineNr">27260 </span> 52/push-edx +<span id="L27261" class="LineNr">27261 </span> 53/push-ebx +<span id="L27262" class="LineNr">27262 </span> 57/push-edi +<span id="L27263" class="LineNr">27263 </span> <span class="subxComment"># var next-offset/edx: int = 8</span> +<span id="L27264" class="LineNr">27264 </span> ba/copy-to-edx 8/imm32 +<span id="L27265" class="LineNr">27265 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(f->inouts)</span> +<span id="L27266" class="LineNr">27266 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L27267" class="LineNr">27267 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L27268" class="LineNr">27268 </span> 89/<- %ecx 0/r32/eax +<span id="L27269" class="LineNr">27269 </span> { +<span id="L27270" class="LineNr">27270 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:loop</span>: +<span id="L27271" class="LineNr">27271 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L27272" class="LineNr">27272 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27273" class="LineNr">27273 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(curr->value)</span> +<span id="L27274" class="LineNr">27274 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L27275" class="LineNr">27275 </span> 89/<- %ebx 0/r32/eax +<span id="L27276" class="LineNr">27276 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4))</span> +<span id="L27277" class="LineNr">27277 </span><span class="CommentedCode">#? (write-buffered Stderr "setting offset of fn inout ")</span> +<span id="L27278" class="LineNr">27278 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L27279" class="LineNr">27279 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> +<span id="L27280" class="LineNr">27280 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> +<span id="L27281" class="LineNr">27281 </span><span class="CommentedCode">#? (write-buffered Stderr " to ")</span> +<span id="L27282" class="LineNr">27282 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edx)</span> +<span id="L27283" class="LineNr">27283 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L27284" class="LineNr">27284 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L27285" class="LineNr">27285 </span> <span class="subxComment"># v->offset = next-offset</span> +<span id="L27286" class="LineNr">27286 </span> 89/<- *(ebx+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> +<span id="L27287" class="LineNr">27287 </span> <span class="subxComment"># next-offset += size-of(v)</span> +<span id="L27288" class="LineNr">27288 </span> (<a href='mu.subx.html#L26770'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L27289" class="LineNr">27289 </span> 01/add-to %edx 0/r32/eax +<span id="L27290" class="LineNr">27290 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L27291" class="LineNr">27291 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L27292" class="LineNr">27292 </span> 89/<- %ecx 0/r32/eax +<span id="L27293" class="LineNr">27293 </span> <span class="subxComment">#</span> +<span id="L27294" class="LineNr">27294 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L27295" class="LineNr">27295 </span> } +<span id="L27296" class="LineNr">27296 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:end</span>: +<span id="L27297" class="LineNr">27297 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27298" class="LineNr">27298 </span> 5f/pop-to-edi +<span id="L27299" class="LineNr">27299 </span> 5b/pop-to-ebx +<span id="L27300" class="LineNr">27300 </span> 5a/pop-to-edx +<span id="L27301" class="LineNr">27301 </span> 59/pop-to-ecx +<span id="L27302" class="LineNr">27302 </span> 58/pop-to-eax +<span id="L27303" class="LineNr">27303 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27304" class="LineNr">27304 </span> 89/<- %esp 5/r32/ebp +<span id="L27305" class="LineNr">27305 </span> 5d/pop-to-ebp +<span id="L27306" class="LineNr">27306 </span> c3/return +<span id="L27307" class="LineNr">27307 </span> +<span id="L27308" class="LineNr">27308 </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="L27309" class="LineNr">27309 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27310" class="LineNr">27310 </span> 55/push-ebp +<span id="L27311" class="LineNr">27311 </span> 89/<- %ebp 4/r32/esp +<span id="L27312" class="LineNr">27312 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27313" class="LineNr">27313 </span> 50/push-eax +<span id="L27314" class="LineNr">27314 </span> 51/push-ecx +<span id="L27315" class="LineNr">27315 </span> 53/push-ebx +<span id="L27316" class="LineNr">27316 </span> 56/push-esi +<span id="L27317" class="LineNr">27317 </span> <span class="subxComment"># esi = stmts</span> +<span id="L27318" class="LineNr">27318 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L27319" class="LineNr">27319 </span> <span class="subxComment">#</span> +<span id="L27320" class="LineNr">27320 </span> { +<span id="L27321" class="LineNr">27321 </span><span class="Constant">$emit-subx-stmt-list:loop</span>: +<span id="L27322" class="LineNr">27322 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L27323" class="LineNr">27323 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27324" class="LineNr">27324 </span> <span class="subxComment"># var curr-stmt/ecx: (addr stmt) = lookup(stmts->value)</span> +<span id="L27325" class="LineNr">27325 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L27326" class="LineNr">27326 </span> 89/<- %ecx 0/r32/eax +<span id="L27327" class="LineNr">27327 </span> { +<span id="L27328" class="LineNr">27328 </span><span class="Constant">$emit-subx-stmt-list:check-for-block</span>: +<span id="L27329" class="LineNr">27329 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L27330" class="LineNr">27330 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27331" class="LineNr">27331 </span><span class="Constant">$emit-subx-stmt-list:block</span>: +<span id="L27332" class="LineNr">27332 </span> (<a href='mu.subx.html#L30615'>emit-subx-block</a> *(ebp+8) %ecx *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27333" class="LineNr">27333 </span> } +<span id="L27334" class="LineNr">27334 </span> { +<span id="L27335" class="LineNr">27335 </span><span class="Constant">$emit-subx-stmt-list:check-for-stmt</span>: +<span id="L27336" class="LineNr">27336 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L27337" class="LineNr">27337 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27338" class="LineNr">27338 </span><span class="Constant">$emit-subx-stmt-list:stmt1</span>: +<span id="L27339" class="LineNr">27339 </span> { +<span id="L27340" class="LineNr">27340 </span> (<a href='mu.subx.html#L27752'>mu-branch?</a> %ecx) <span class="subxComment"># => eax</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-= <span class="Constant">break</span>/disp32 +<span id="L27343" class="LineNr">27343 </span><span class="Constant">$emit-subx-stmt-list:branch-stmt</span>: +<span id="L27344" class="Folded">27344 </span><span class="Folded">+-- 25 lines: # unconditional return ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L27369" class="Folded">27369 </span><span class="Folded">+-- 27 lines: # unconditional loops -----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L27396" class="Folded">27396 </span><span class="Folded">+-- 16 lines: # unconditional breaks ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L27412" class="Folded">27412 </span><span class="Folded">+-- 38 lines: # simple conditional branches without a target ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L27450" class="Folded">27450 </span><span class="Folded">+-- 19 lines: # conditional branches with an explicit target ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L27469" class="LineNr">27469 </span> } +<span id="L27470" class="LineNr">27470 </span><span class="Constant">$emit-subx-stmt-list:1-to-1</span>: +<span id="L27471" class="LineNr">27471 </span> (<a href='mu.subx.html#L28855'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L30722'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27472" class="LineNr">27472 </span> e9/jump $emit-subx-stmt-list:continue/disp32 +<span id="L27473" class="LineNr">27473 </span> } +<span id="L27474" class="LineNr">27474 </span> { +<span id="L27475" class="LineNr">27475 </span><span class="Constant">$emit-subx-stmt-list:check-for-var-def</span>: +<span id="L27476" class="LineNr">27476 </span> 81 7/subop/compare *ecx 2/imm32/var-def <span class="subxComment"># Stmt-tag</span> +<span id="L27477" class="LineNr">27477 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27478" class="LineNr">27478 </span><span class="Constant">$emit-subx-stmt-list:var-def</span>: +<span id="L27479" class="LineNr">27479 </span> (<a href='mu.subx.html#L28716'>emit-subx-var-def</a> *(ebp+8) %ecx *(ebp+0x18) *(ebp+0x1c)) +<span id="L27480" class="LineNr">27480 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) <span class="subxComment"># Vardef-var</span> +<span id="L27481" class="LineNr">27481 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+8)) <span class="subxComment"># Vardef-var</span> +<span id="L27482" class="LineNr">27482 </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="L27483" class="LineNr">27483 </span> <span class="subxComment">#</span> +<span id="L27484" class="LineNr">27484 </span> eb/jump $emit-subx-stmt-list:continue/disp8 +<span id="L27485" class="LineNr">27485 </span> } +<span id="L27486" class="LineNr">27486 </span> { +<span id="L27487" class="LineNr">27487 </span><span class="Constant">$emit-subx-stmt-list:check-for-reg-var-def</span>: +<span id="L27488" class="LineNr">27488 </span> 81 7/subop/compare *ecx 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> +<span id="L27489" class="LineNr">27489 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27490" class="LineNr">27490 </span><span class="Constant">$emit-subx-stmt-list:reg-var-def</span>: +<span id="L27491" class="LineNr">27491 </span> <span class="subxComment"># TODO: ensure that there's exactly one output</span> +<span id="L27492" class="LineNr">27492 </span> (<a href='mu.subx.html#L27521'>push-output-and-maybe-emit-spill</a> *(ebp+8) %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27493" class="LineNr">27493 </span> <span class="subxComment"># emit the instruction as usual</span> +<span id="L27494" class="LineNr">27494 </span> (<a href='mu.subx.html#L28855'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L30722'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27495" class="LineNr">27495 </span> <span class="subxComment">#</span> +<span id="L27496" class="LineNr">27496 </span> eb/jump $emit-subx-stmt-list:continue/disp8 +<span id="L27497" class="LineNr">27497 </span> } +<span id="L27498" class="LineNr">27498 </span><span class="Constant">$emit-subx-stmt-list:continue</span>: +<span id="L27499" class="LineNr">27499 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> +<span id="L27500" class="LineNr">27500 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L27501" class="LineNr">27501 </span> 89/<- %esi 0/r32/eax +<span id="L27502" class="LineNr">27502 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L27503" class="LineNr">27503 </span> } +<span id="L27504" class="LineNr">27504 </span><span class="Constant">$emit-subx-stmt-list:emit-cleanup</span>: +<span id="L27505" class="LineNr">27505 </span> (<a href='mu.subx.html#L27922'>emit-cleanup-code-until-depth</a> *(ebp+8) *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L27506" class="LineNr">27506 </span><span class="Constant">$emit-subx-stmt-list:clean-up</span>: +<span id="L27507" class="LineNr">27507 </span> (<a href='mu.subx.html#L28252'>clean-up-stack-offset-state</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L27508" class="LineNr">27508 </span> (<a href='mu.subx.html#L28640'>clean-up-blocks</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> *(ebp+0x14)) +<span id="L27509" class="LineNr">27509 </span><span class="Constant">$emit-subx-stmt-list:end</span>: +<span id="L27510" class="LineNr">27510 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27511" class="LineNr">27511 </span> 5e/pop-to-esi +<span id="L27512" class="LineNr">27512 </span> 5b/pop-to-ebx +<span id="L27513" class="LineNr">27513 </span> 59/pop-to-ecx +<span id="L27514" class="LineNr">27514 </span> 58/pop-to-eax +<span id="L27515" class="LineNr">27515 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27516" class="LineNr">27516 </span> 89/<- %esp 5/r32/ebp +<span id="L27517" class="LineNr">27517 </span> 5d/pop-to-ebp +<span id="L27518" class="LineNr">27518 </span> c3/return +<span id="L27519" class="LineNr">27519 </span> +<span id="L27520" class="LineNr">27520 </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="L27521" class="LineNr">27521 </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="L27522" class="LineNr">27522 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27523" class="LineNr">27523 </span> 55/push-ebp +<span id="L27524" class="LineNr">27524 </span> 89/<- %ebp 4/r32/esp +<span id="L27525" class="LineNr">27525 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27526" class="LineNr">27526 </span> 50/push-eax +<span id="L27527" class="LineNr">27527 </span> 51/push-ecx +<span id="L27528" class="LineNr">27528 </span> 52/push-edx +<span id="L27529" class="LineNr">27529 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L27530" class="LineNr">27530 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27531" class="LineNr">27531 </span> <span class="subxComment"># var sv/eax: (addr stmt-var) = lookup(curr-stmt->outputs)</span> +<span id="L27532" class="LineNr">27532 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> +<span id="L27533" class="LineNr">27533 </span> <span class="subxComment"># TODO: assert !sv->is-deref?</span> +<span id="L27534" class="LineNr">27534 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(sv->value)</span> +<span id="L27535" class="LineNr">27535 </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="L27536" class="LineNr">27536 </span> 89/<- %ecx 0/r32/eax +<span id="L27537" class="LineNr">27537 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> +<span id="L27538" class="LineNr">27538 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/r32/eax +<span id="L27539" class="LineNr">27539 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L27540" class="LineNr">27540 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> +<span id="L27541" class="LineNr">27541 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4))</span> +<span id="L27542" class="LineNr">27542 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L27543" class="LineNr">27543 </span><span class="CommentedCode">#? (write-buffered Stderr " at depth ")</span> +<span id="L27544" class="LineNr">27544 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+0x10))</span> +<span id="L27545" class="LineNr">27545 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L27546" class="LineNr">27546 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L27547" class="LineNr">27547 </span> <span class="subxComment"># ensure that v is in a register</span> +<span id="L27548" class="LineNr">27548 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27549" class="LineNr">27549 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:abort/disp32 +<span id="L27550" class="LineNr">27550 </span> <span class="subxComment"># var emit-spill?/edx: boolean = not-yet-spilled-this-block? && will-not-write-some-register?(fn)</span> +<span id="L27551" class="LineNr">27551 </span> (<a href='mu.subx.html#L28324'>not-yet-spilled-this-block?</a> %ecx *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L27552" class="LineNr">27552 </span> 89/<- %edx 0/r32/eax +<span id="L27553" class="LineNr">27553 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27554" class="LineNr">27554 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='203stack.subx.html#L114'>push</a>/disp32 +<span id="L27555" class="LineNr">27555 </span> (<a href='mu.subx.html#L28397'>will-not-write-some-register?</a> %ecx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L27556" class="LineNr">27556 </span> 89/<- %edx 0/r32/eax +<span id="L27557" class="LineNr">27557 </span> <span class="subxComment"># check emit-spill?</span> +<span id="L27558" class="LineNr">27558 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27559" class="LineNr">27559 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='203stack.subx.html#L114'>push</a>/disp32 +<span id="L27560" class="LineNr">27560 </span> <span class="subxComment"># TODO: assert(size-of(output) == 4)</span> +<span id="L27561" class="LineNr">27561 </span> <span class="subxComment"># *Curr-local-stack-offset -= 4</span> +<span id="L27562" class="LineNr">27562 </span> 81 5/subop/subtract *<span class="SpecialChar"><a href='mu.subx.html#L27173'>Curr-local-stack-offset</a></span> 4/imm32 +<span id="L27563" class="LineNr">27563 </span> <span class="subxComment"># emit spill</span> +<span id="L27564" class="LineNr">27564 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27565" class="LineNr">27565 </span> (<a href='mu.subx.html#L28095'>emit-push-register</a> *(ebp+8) %eax) +<span id="L27566" class="LineNr">27566 </span><span class="Constant">$push-output-and-maybe-emit-spill:<a href='203stack.subx.html#L114'>push</a></span>: +<span id="L27567" class="LineNr">27567 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27568" class="LineNr">27568 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> +<span id="L27569" class="LineNr">27569 </span> <span class="subxComment"># push(vars, {sv->value, emit-spill?})</span> +<span id="L27570" class="LineNr">27570 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *eax) <span class="subxComment"># Stmt-var-value</span> +<span id="L27571" class="LineNr">27571 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(eax+4)) <span class="subxComment"># Stmt-var-value</span> +<span id="L27572" class="LineNr">27572 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) %edx) +<span id="L27573" class="LineNr">27573 </span><span class="Constant">$push-output-and-maybe-emit-spill:end</span>: +<span id="L27574" class="LineNr">27574 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27575" class="LineNr">27575 </span> 5a/pop-to-edx +<span id="L27576" class="LineNr">27576 </span> 59/pop-to-ecx +<span id="L27577" class="LineNr">27577 </span> 58/pop-to-eax +<span id="L27578" class="LineNr">27578 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27579" class="LineNr">27579 </span> 89/<- %esp 5/r32/ebp +<span id="L27580" class="LineNr">27580 </span> 5d/pop-to-ebp +<span id="L27581" class="LineNr">27581 </span> c3/return +<span id="L27582" class="LineNr">27582 </span> +<span id="L27583" class="LineNr">27583 </span><span class="Constant">$push-output-and-maybe-emit-spill:abort</span>: +<span id="L27584" class="LineNr">27584 </span> <span class="subxComment"># error("var '" var->name "' initialized from an instruction must live in a register\n")</span> +<span id="L27585" class="LineNr">27585 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) <span class="Constant">"var '"</span>) +<span id="L27586" class="LineNr">27586 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) *eax) <span class="subxComment"># Var-name</span> +<span id="L27587" class="LineNr">27587 </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="L27588" class="LineNr">27588 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x1c)) +<span id="L27589" class="LineNr">27589 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x20) 1) +<span id="L27590" class="LineNr">27590 </span> <span class="subxComment"># never gets here</span> +<span id="L27591" class="LineNr">27591 </span> +<span id="L27592" class="LineNr">27592 </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="L27593" class="LineNr">27593 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27594" class="LineNr">27594 </span> 55/push-ebp +<span id="L27595" class="LineNr">27595 </span> 89/<- %ebp 4/r32/esp +<span id="L27596" class="LineNr">27596 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27597" class="LineNr">27597 </span> 50/push-eax +<span id="L27598" class="LineNr">27598 </span> 51/push-ecx +<span id="L27599" class="LineNr">27599 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L27600" class="LineNr">27600 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27601" class="LineNr">27601 </span> <span class="subxComment"># var target/eax: (addr array byte) = curr-stmt->inouts->value->name</span> +<span id="L27602" class="LineNr">27602 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L27603" class="LineNr">27603 </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="L27604" class="LineNr">27604 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27605" class="LineNr">27605 </span> <span class="subxComment"># clean up until target block</span> +<span id="L27606" class="LineNr">27606 </span> (<a href='mu.subx.html#L28175'>emit-cleanup-code-until-target</a> *(ebp+8) *(ebp+0x10) %eax) +<span id="L27607" class="LineNr">27607 </span> <span class="subxComment"># emit jump to target block</span> +<span id="L27608" class="LineNr">27608 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L27609" class="LineNr">27609 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) +<span id="L27610" class="LineNr">27610 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27611" class="LineNr">27611 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L27612" class="LineNr">27612 </span> (<a href='105string-equal.subx.html#L57'>string-starts-with?</a> %eax <span class="Constant">"break"</span>) +<span id="L27613" class="LineNr">27613 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27614" class="LineNr">27614 </span> { +<span id="L27615" class="LineNr">27615 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27616" class="LineNr">27616 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break/disp32\n"</span>) +<span id="L27617" class="LineNr">27617 </span> eb/jump $emit-subx-cleanup-and-unconditional-nonlocal-branch:end/disp8 +<span id="L27618" class="LineNr">27618 </span> } +<span id="L27619" class="LineNr">27619 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop/disp32\n"</span>) +<span id="L27620" class="LineNr">27620 </span><span class="Constant">$emit-subx-cleanup-and-unconditional-nonlocal-branch:end</span>: <span id="L27621" class="LineNr">27621 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27622" class="LineNr">27622 </span> 58/pop-to-eax -<span id="L27623" class="LineNr">27623 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27624" class="LineNr">27624 </span> 89/<- %esp 5/r32/ebp -<span id="L27625" class="LineNr">27625 </span> 5d/pop-to-ebp -<span id="L27626" class="LineNr">27626 </span> c3/return -<span id="L27627" class="LineNr">27627 </span> -<span id="L27628" class="LineNr">27628 </span>== data -<span id="L27629" class="LineNr">27629 </span> -<span id="L27630" class="LineNr">27630 </span><span class="subxComment"># Table from Mu branch instructions to the reverse SubX opcodes for them.</span> -<span id="L27631" class="LineNr">27631 </span><span class="SpecialChar">Reverse-branch</span>: <span class="subxComment"># (table (handle array byte) (handle array byte))</span> -<span id="L27632" class="LineNr">27632 </span> <span class="subxComment"># a table is a stream</span> -<span id="L27633" class="LineNr">27633 </span> 0x240/imm32/write -<span id="L27634" class="LineNr">27634 </span> 0/imm32/read -<span id="L27635" class="LineNr">27635 </span> 0x240/imm32/size -<span id="L27636" class="LineNr">27636 </span> <span class="subxComment"># data</span> -<span id="L27637" class="LineNr">27637 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34054'>_string-break-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34476'>_string_0f_85_jump_label</a>/imm32 -<span id="L27638" class="LineNr">27638 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34184'>_string-loop-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34476'>_string_0f_85_jump_label</a>/imm32 -<span id="L27639" class="LineNr">27639 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34069'>_string-break-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34461'>_string_0f_84_jump_label</a>/imm32 -<span id="L27640" class="LineNr">27640 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34199'>_string-loop-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34461'>_string_0f_84_jump_label</a>/imm32 -<span id="L27641" class="LineNr">27641 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34044'>_string-break-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34536'>_string_0f_8d_jump_label</a>/imm32 -<span id="L27642" class="LineNr">27642 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34174'>_string-loop-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34536'>_string_0f_8d_jump_label</a>/imm32 -<span id="L27643" class="LineNr">27643 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34059'>_string-break-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34551'>_string_0f_8e_jump_label</a>/imm32 -<span id="L27644" class="LineNr">27644 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34189'>_string-loop-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34551'>_string_0f_8e_jump_label</a>/imm32 -<span id="L27645" class="LineNr">27645 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34049'>_string-break-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34566'>_string_0f_8f_jump_label</a>/imm32 -<span id="L27646" class="LineNr">27646 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34179'>_string-loop-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34566'>_string_0f_8f_jump_label</a>/imm32 -<span id="L27647" class="LineNr">27647 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34064'>_string-break-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34521'>_string_0f_8c_jump_label</a>/imm32 -<span id="L27648" class="LineNr">27648 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34194'>_string-loop-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34521'>_string_0f_8c_jump_label</a>/imm32 -<span id="L27649" class="LineNr">27649 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34074'>_string-break-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34446'>_string_0f_83_jump_label</a>/imm32 -<span id="L27650" class="LineNr">27650 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34204'>_string-loop-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34446'>_string_0f_83_jump_label</a>/imm32 -<span id="L27651" class="LineNr">27651 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34084'>_string-break-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34491'>_string_0f_86_jump_label</a>/imm32 -<span id="L27652" class="LineNr">27652 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34214'>_string-loop-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34491'>_string_0f_86_jump_label</a>/imm32 -<span id="L27653" class="LineNr">27653 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34079'>_string-break-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34506'>_string_0f_87_jump_label</a>/imm32 -<span id="L27654" class="LineNr">27654 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34209'>_string-loop-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34506'>_string_0f_87_jump_label</a>/imm32 -<span id="L27655" class="LineNr">27655 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34089'>_string-break-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34431'>_string_0f_82_jump_label</a>/imm32 -<span id="L27656" class="LineNr">27656 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34219'>_string-loop-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34431'>_string_0f_82_jump_label</a>/imm32 -<span id="L27657" class="LineNr">27657 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34094'>_string-break-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34446'>_string_0f_83_jump_label</a>/imm32 -<span id="L27658" class="LineNr">27658 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34224'>_string-loop-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34446'>_string_0f_83_jump_label</a>/imm32 -<span id="L27659" class="LineNr">27659 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34104'>_string-break-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34491'>_string_0f_86_jump_label</a>/imm32 -<span id="L27660" class="LineNr">27660 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34234'>_string-loop-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34491'>_string_0f_86_jump_label</a>/imm32 -<span id="L27661" class="LineNr">27661 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34099'>_string-break-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34506'>_string_0f_87_jump_label</a>/imm32 -<span id="L27662" class="LineNr">27662 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34229'>_string-loop-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34506'>_string_0f_87_jump_label</a>/imm32 -<span id="L27663" class="LineNr">27663 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34109'>_string-break-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34431'>_string_0f_82_jump_label</a>/imm32 -<span id="L27664" class="LineNr">27664 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34239'>_string-loop-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34431'>_string_0f_82_jump_label</a>/imm32 -<span id="L27665" class="LineNr">27665 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34114'>_string-break-if-carry</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34446'>_string_0f_83_jump_label</a>/imm32 -<span id="L27666" class="LineNr">27666 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34244'>_string-loop-if-carry</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34446'>_string_0f_83_jump_label</a>/imm32 -<span id="L27667" class="LineNr">27667 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34119'>_string-break-if-not-carry</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34431'>_string_0f_82_jump_label</a>/imm32 -<span id="L27668" class="LineNr">27668 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34249'>_string-loop-if-not-carry</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34431'>_string_0f_82_jump_label</a>/imm32 -<span id="L27669" class="LineNr">27669 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34124'>_string-break-if-overflow</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34416'>_string_0f_81_jump_label</a>/imm32 -<span id="L27670" class="LineNr">27670 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34254'>_string-loop-if-overflow</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34416'>_string_0f_81_jump_label</a>/imm32 -<span id="L27671" class="LineNr">27671 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34129'>_string-break-if-not-overflow</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34401'>_string_0f_80_jump_label</a>/imm32 -<span id="L27672" class="LineNr">27672 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34259'>_string-loop-if-not-overflow</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34401'>_string_0f_80_jump_label</a>/imm32 -<span id="L27673" class="LineNr">27673 </span> -<span id="L27674" class="LineNr">27674 </span>== code -<span id="L27675" class="LineNr">27675 </span> -<span id="L27676" class="LineNr">27676 </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="L27677" class="LineNr">27677 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27678" class="LineNr">27678 </span> 55/push-ebp -<span id="L27679" class="LineNr">27679 </span> 89/<- %ebp 4/r32/esp -<span id="L27680" class="LineNr">27680 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27681" class="LineNr">27681 </span> 50/push-eax -<span id="L27682" class="LineNr">27682 </span> 51/push-ecx -<span id="L27683" class="LineNr">27683 </span> 52/push-edx -<span id="L27684" class="LineNr">27684 </span> 53/push-ebx -<span id="L27685" class="LineNr">27685 </span> 56/push-esi -<span id="L27686" class="LineNr">27686 </span> <span class="subxComment"># ecx = vars</span> -<span id="L27687" class="LineNr">27687 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27688" class="LineNr">27688 </span> <span class="subxComment"># var eax: int = vars->top</span> -<span id="L27689" class="LineNr">27689 </span> 8b/-> *ecx 0/r32/eax -<span id="L27690" class="LineNr">27690 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L27691" class="LineNr">27691 </span> 8d/copy-address *(ecx+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L27692" class="LineNr">27692 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L27693" class="LineNr">27693 </span> 8d/copy-address *(ecx+8) 1/r32/ecx -<span id="L27694" class="LineNr">27694 </span> <span class="subxComment"># edx = depth</span> -<span id="L27695" class="LineNr">27695 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L27696" class="LineNr">27696 </span> { -<span id="L27697" class="LineNr">27697 </span><span class="Constant">$emit-unconditional-jump-to-depth:loop</span>: -<span id="L27698" class="LineNr">27698 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L27699" class="LineNr">27699 </span> 39/compare %esi 1/r32/ecx -<span id="L27700" class="LineNr">27700 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L27701" class="LineNr">27701 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L27702" class="LineNr">27702 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L27703" class="LineNr">27703 </span> 89/<- %ebx 0/r32/eax -<span id="L27704" class="LineNr">27704 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L27705" class="LineNr">27705 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L27706" class="LineNr">27706 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L27707" class="LineNr">27707 </span> { -<span id="L27708" class="LineNr">27708 </span><span class="Constant">$emit-unconditional-jump-to-depth:<a href='401test.mu.html#L3'>check</a></span>: -<span id="L27709" class="LineNr">27709 </span> <span class="subxComment"># if v->block-depth != until-block-depth, continue</span> -<span id="L27710" class="LineNr">27710 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L27711" class="LineNr">27711 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27712" class="LineNr">27712 </span><span class="Constant">$emit-unconditional-jump-to-depth:depth-found</span>: -<span id="L27713" class="LineNr">27713 </span> <span class="subxComment"># if v is not a literal, continue</span> -<span id="L27714" class="LineNr">27714 </span> (<a href='mu.subx.html#L26595'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L27715" class="LineNr">27715 </span> 3d/compare-eax-and 0/imm32 -<span id="L27716" class="LineNr">27716 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27717" class="LineNr">27717 </span><span class="Constant">$emit-unconditional-jump-to-depth:label-found</span>: -<span id="L27718" class="LineNr">27718 </span> <span class="subxComment"># emit unconditional jump, then return</span> -<span id="L27719" class="LineNr">27719 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L27720" class="LineNr">27720 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) -<span id="L27721" class="LineNr">27721 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27722" class="LineNr">27722 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27723" class="LineNr">27723 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":"</span>) -<span id="L27724" class="LineNr">27724 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x14)) -<span id="L27725" class="LineNr">27725 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32\n"</span>) -<span id="L27726" class="LineNr">27726 </span> eb/jump $emit-unconditional-jump-to-depth:end/disp8 -<span id="L27727" class="LineNr">27727 </span> } -<span id="L27728" class="LineNr">27728 </span> <span class="subxComment"># curr -= 12</span> -<span id="L27729" class="LineNr">27729 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L27730" class="LineNr">27730 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27731" class="LineNr">27731 </span> } -<span id="L27732" class="LineNr">27732 </span> <span class="subxComment"># TODO: error if no label at 'depth' was found</span> -<span id="L27733" class="LineNr">27733 </span><span class="Constant">$emit-unconditional-jump-to-depth:end</span>: -<span id="L27734" class="LineNr">27734 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27735" class="LineNr">27735 </span> 5e/pop-to-esi -<span id="L27736" class="LineNr">27736 </span> 5b/pop-to-ebx -<span id="L27737" class="LineNr">27737 </span> 5a/pop-to-edx -<span id="L27738" class="LineNr">27738 </span> 59/pop-to-ecx -<span id="L27739" class="LineNr">27739 </span> 58/pop-to-eax -<span id="L27740" class="LineNr">27740 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27741" class="LineNr">27741 </span> 89/<- %esp 5/r32/ebp -<span id="L27742" class="LineNr">27742 </span> 5d/pop-to-ebp -<span id="L27743" class="LineNr">27743 </span> c3/return -<span id="L27744" class="LineNr">27744 </span> -<span id="L27745" class="LineNr">27745 </span><span class="subxComment"># emit clean-up code for 'vars' until some block depth</span> -<span id="L27746" class="LineNr">27746 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> -<span id="L27747" class="LineNr">27747 </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="L27748" class="LineNr">27748 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27749" class="LineNr">27749 </span> 55/push-ebp -<span id="L27750" class="LineNr">27750 </span> 89/<- %ebp 4/r32/esp -<span id="L27751" class="LineNr">27751 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27752" class="LineNr">27752 </span> 50/push-eax -<span id="L27753" class="LineNr">27753 </span> 51/push-ecx -<span id="L27754" class="LineNr">27754 </span> 52/push-edx -<span id="L27755" class="LineNr">27755 </span> 53/push-ebx -<span id="L27756" class="LineNr">27756 </span> 56/push-esi -<span id="L27757" class="LineNr">27757 </span><span class="CommentedCode">#? (write-buffered Stderr "--- cleanup\n")</span> -<span id="L27758" class="LineNr">27758 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L27759" class="LineNr">27759 </span> <span class="subxComment"># ecx = vars</span> -<span id="L27760" class="LineNr">27760 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27761" class="LineNr">27761 </span> <span class="subxComment"># var esi: int = vars->top</span> -<span id="L27762" class="LineNr">27762 </span> 8b/-> *ecx 6/r32/esi -<span id="L27763" class="LineNr">27763 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L27764" class="LineNr">27764 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L27765" class="LineNr">27765 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L27766" class="LineNr">27766 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L27767" class="LineNr">27767 </span> <span class="subxComment"># edx = until-block-depth</span> -<span id="L27768" class="LineNr">27768 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L27769" class="LineNr">27769 </span> { -<span id="L27770" class="LineNr">27770 </span><span class="Constant">$emit-cleanup-code-until-depth:loop</span>: -<span id="L27771" class="LineNr">27771 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L27772" class="LineNr">27772 </span> 39/compare %esi 1/r32/ecx -<span id="L27773" class="LineNr">27773 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L27774" class="LineNr">27774 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L27775" class="LineNr">27775 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L27776" class="LineNr">27776 </span> 89/<- %ebx 0/r32/eax -<span id="L27777" class="LineNr">27777 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4)) # Var-name</span> -<span id="L27778" class="LineNr">27778 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> -<span id="L27779" class="LineNr">27779 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L27780" class="LineNr">27780 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L27781" class="LineNr">27781 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L27782" class="LineNr">27782 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L27783" class="LineNr">27783 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L27784" class="LineNr">27784 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L27785" class="LineNr">27785 </span> <span class="subxComment"># if v is in a register</span> -<span id="L27786" class="LineNr">27786 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L27787" class="LineNr">27787 </span> { -<span id="L27788" class="LineNr">27788 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27789" class="LineNr">27789 </span> { -<span id="L27790" class="LineNr">27790 </span><span class="Constant">$emit-cleanup-code-until-depth:check-for-previous-spill</span>: -<span id="L27791" class="LineNr">27791 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L27792" class="LineNr">27792 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27793" class="LineNr">27793 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27794" class="LineNr">27794 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-in-register</span>: -<span id="L27795" class="LineNr">27795 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27796" class="LineNr">27796 </span> (<a href='mu.subx.html#L27957'>emit-pop-register</a> *(ebp+8) %eax) -<span id="L27797" class="LineNr">27797 </span> } -<span id="L27798" class="LineNr">27798 </span> eb/jump $emit-cleanup-code-until-depth:continue/disp8 -<span id="L27799" class="LineNr">27799 </span> } -<span id="L27800" class="LineNr">27800 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L27801" class="LineNr">27801 </span> { -<span id="L27802" class="LineNr">27802 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27803" class="LineNr">27803 </span><span class="Constant">$emit-cleanup-code-until-depth:var-on-stack</span>: -<span id="L27804" class="LineNr">27804 </span> (<a href='mu.subx.html#L26595'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L27805" class="LineNr">27805 </span> <span class="subxComment"># don't emit code for labels</span> -<span id="L27806" class="LineNr">27806 </span> 3d/compare-eax-and 0/imm32 -<span id="L27807" class="LineNr">27807 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27808" class="LineNr">27808 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-on-stack</span>: -<span id="L27809" class="LineNr">27809 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L27810" class="LineNr">27810 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) -<span id="L27811" class="LineNr">27811 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27812" class="LineNr">27812 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L27813" class="LineNr">27813 </span> } -<span id="L27814" class="LineNr">27814 </span><span class="Constant">$emit-cleanup-code-until-depth:continue</span>: -<span id="L27815" class="LineNr">27815 </span> <span class="subxComment"># curr -= 12</span> -<span id="L27816" class="LineNr">27816 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L27817" class="LineNr">27817 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27818" class="LineNr">27818 </span> } -<span id="L27819" class="LineNr">27819 </span><span class="Constant">$emit-cleanup-code-until-depth:end</span>: -<span id="L27820" class="LineNr">27820 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27821" class="LineNr">27821 </span> 5e/pop-to-esi -<span id="L27822" class="LineNr">27822 </span> 5b/pop-to-ebx -<span id="L27823" class="LineNr">27823 </span> 5a/pop-to-edx -<span id="L27824" class="LineNr">27824 </span> 59/pop-to-ecx -<span id="L27825" class="LineNr">27825 </span> 58/pop-to-eax -<span id="L27826" class="LineNr">27826 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27827" class="LineNr">27827 </span> 89/<- %esp 5/r32/ebp -<span id="L27828" class="LineNr">27828 </span> 5d/pop-to-ebp -<span id="L27829" class="LineNr">27829 </span> c3/return -<span id="L27830" class="LineNr">27830 </span> -<span id="L27831" class="LineNr">27831 </span><span class="subxComment"># emit clean-up code for 'vars' that don't conflict with output registers</span> -<span id="L27832" class="LineNr">27832 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> -<span id="L27833" class="LineNr">27833 </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="L27834" class="LineNr">27834 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27835" class="LineNr">27835 </span> 55/push-ebp -<span id="L27836" class="LineNr">27836 </span> 89/<- %ebp 4/r32/esp -<span id="L27837" class="LineNr">27837 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27838" class="LineNr">27838 </span> 50/push-eax -<span id="L27839" class="LineNr">27839 </span> 51/push-ecx -<span id="L27840" class="LineNr">27840 </span> 52/push-edx -<span id="L27841" class="LineNr">27841 </span> 53/push-ebx -<span id="L27842" class="LineNr">27842 </span> 56/push-esi -<span id="L27843" class="LineNr">27843 </span> 57/push-edi -<span id="L27844" class="LineNr">27844 </span> <span class="subxComment"># ecx = vars</span> -<span id="L27845" class="LineNr">27845 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27846" class="LineNr">27846 </span> <span class="subxComment"># var esi: int = vars->top</span> -<span id="L27847" class="LineNr">27847 </span> 8b/-> *ecx 6/r32/esi -<span id="L27848" class="LineNr">27848 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L27849" class="LineNr">27849 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L27850" class="LineNr">27850 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L27851" class="LineNr">27851 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L27852" class="LineNr">27852 </span> { -<span id="L27853" class="LineNr">27853 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:loop</span>: -<span id="L27854" class="LineNr">27854 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L27855" class="LineNr">27855 </span> 39/compare %esi 1/r32/ecx -<span id="L27856" class="LineNr">27856 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L27857" class="LineNr">27857 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L27858" class="LineNr">27858 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L27859" class="LineNr">27859 </span> 89/<- %ebx 0/r32/eax -<span id="L27860" class="LineNr">27860 </span> <span class="subxComment"># if v is in a register</span> -<span id="L27861" class="LineNr">27861 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L27862" class="LineNr">27862 </span> { -<span id="L27863" class="LineNr">27863 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27864" class="LineNr">27864 </span> { -<span id="L27865" class="LineNr">27865 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:check-for-previous-spill</span>: -<span id="L27866" class="LineNr">27866 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L27867" class="LineNr">27867 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27868" class="LineNr">27868 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27869" class="LineNr">27869 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register</span>: -<span id="L27870" class="LineNr">27870 </span> <span class="subxComment"># var reg/edi: (addr array name) = v->register</span> -<span id="L27871" class="LineNr">27871 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27872" class="LineNr">27872 </span> 89/<- %edi 0/r32/eax -<span id="L27873" class="LineNr">27873 </span> <span class="subxComment"># if reg is not in function outputs, emit a pop</span> -<span id="L27874" class="LineNr">27874 </span> (<a href='mu.subx.html#L28503'>reg-in-function-outputs?</a> *(ebp+0x10) %edi) <span class="subxComment"># => eax</span> -<span id="L27875" class="LineNr">27875 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27876" class="LineNr">27876 </span> { -<span id="L27877" class="LineNr">27877 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27878" class="LineNr">27878 </span> (<a href='mu.subx.html#L27957'>emit-pop-register</a> *(ebp+8) %edi) -<span id="L27879" class="LineNr">27879 </span> eb/jump $emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done/disp8 -<span id="L27880" class="LineNr">27880 </span> } -<span id="L27881" class="LineNr">27881 </span> <span class="subxComment"># otherwise just drop it from the stack</span> -<span id="L27882" class="LineNr">27882 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L27883" class="LineNr">27883 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp 4/imm32\n"</span>) -<span id="L27884" class="LineNr">27884 </span> } -<span id="L27885" class="LineNr">27885 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done</span>: -<span id="L27886" class="LineNr">27886 </span> eb/jump $emit-cleanup-code-for-non-outputs:continue/disp8 -<span id="L27887" class="LineNr">27887 </span> } -<span id="L27888" class="LineNr">27888 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L27889" class="LineNr">27889 </span> { -<span id="L27890" class="LineNr">27890 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27891" class="LineNr">27891 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:var-on-stack</span>: -<span id="L27892" class="LineNr">27892 </span> (<a href='mu.subx.html#L26595'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L27893" class="LineNr">27893 </span> <span class="subxComment"># don't emit code for labels</span> -<span id="L27894" class="LineNr">27894 </span> 3d/compare-eax-and 0/imm32 -<span id="L27895" class="LineNr">27895 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27896" class="LineNr">27896 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-on-stack</span>: -<span id="L27897" class="LineNr">27897 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>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">"81 0/subop/add %esp "</span>) -<span id="L27899" class="LineNr">27899 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27900" class="LineNr">27900 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L27901" class="LineNr">27901 </span> } -<span id="L27902" class="LineNr">27902 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:continue</span>: +<span id="L27622" class="LineNr">27622 </span> 59/pop-to-ecx +<span id="L27623" class="LineNr">27623 </span> 58/pop-to-eax +<span id="L27624" class="LineNr">27624 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27625" class="LineNr">27625 </span> 89/<- %esp 5/r32/ebp +<span id="L27626" class="LineNr">27626 </span> 5d/pop-to-ebp +<span id="L27627" class="LineNr">27627 </span> c3/return +<span id="L27628" class="LineNr">27628 </span> +<span id="L27629" class="LineNr">27629 </span><span class="subxFunction">emit-outputs</span>: <span class="subxComment"># out: (addr buffered-file), return-stmt: (addr stmt1), fn: (addr function)</span> +<span id="L27630" class="LineNr">27630 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27631" class="LineNr">27631 </span> 55/push-ebp +<span id="L27632" class="LineNr">27632 </span> 89/<- %ebp 4/r32/esp +<span id="L27633" class="LineNr">27633 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27634" class="LineNr">27634 </span> 50/push-eax +<span id="L27635" class="LineNr">27635 </span> 51/push-ecx +<span id="L27636" class="LineNr">27636 </span> 56/push-esi +<span id="L27637" class="LineNr">27637 </span> 57/push-edi +<span id="L27638" class="LineNr">27638 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-stmt->inouts</span> +<span id="L27639" class="LineNr">27639 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27640" class="LineNr">27640 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L27641" class="LineNr">27641 </span> 89/<- %esi 0/r32/eax +<span id="L27642" class="LineNr">27642 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn->outputs</span> +<span id="L27643" class="LineNr">27643 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L27644" class="LineNr">27644 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L27645" class="LineNr">27645 </span> 89/<- %edi 0/r32/eax +<span id="L27646" class="LineNr">27646 </span> { +<span id="L27647" class="LineNr">27647 </span><span class="Constant">$emit-outputs:loop</span>: +<span id="L27648" class="LineNr">27648 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L27649" class="LineNr">27649 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27650" class="LineNr">27650 </span> <span class="subxComment"># emit copy to output register</span> +<span id="L27651" class="LineNr">27651 </span> <span class="subxComment"># var curr-output-register/ecx: (addr array byte) = curr-output->value->register</span> +<span id="L27652" class="LineNr">27652 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L27653" class="LineNr">27653 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27654" class="LineNr">27654 </span> 89/<- %ecx 0/r32/eax +<span id="L27655" class="LineNr">27655 </span> <span class="subxComment"># if curr-output-register starts with "x", emit a floating-point copy</span> +<span id="L27656" class="LineNr">27656 </span> 8a/copy-byte *(ecx+4) 0/r32/AL +<span id="L27657" class="LineNr">27657 </span> 25/and-eax-with 0xff/imm32 +<span id="L27658" class="LineNr">27658 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L27659" class="LineNr">27659 </span> { +<span id="L27660" class="LineNr">27660 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27661" class="LineNr">27661 </span> (<a href='mu.subx.html#L27730'>emit-float-output</a> *(ebp+8) %esi %ecx) +<span id="L27662" class="LineNr">27662 </span> eb/jump $emit-outputs:continue/disp8 +<span id="L27663" class="LineNr">27663 </span> } +<span id="L27664" class="LineNr">27664 </span> <span class="subxComment"># otherwise emit an int copy</span> +<span id="L27665" class="LineNr">27665 </span> (<a href='mu.subx.html#L27687'>emit-int-output</a> *(ebp+8) %esi %ecx) +<span id="L27666" class="LineNr">27666 </span><span class="Constant">$emit-outputs:continue</span>: +<span id="L27667" class="LineNr">27667 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> +<span id="L27668" class="LineNr">27668 </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="L27669" class="LineNr">27669 </span> 89/<- %esi 0/r32/eax +<span id="L27670" class="LineNr">27670 </span> <span class="subxComment"># curr-output = curr-output->next</span> +<span id="L27671" class="LineNr">27671 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L27672" class="LineNr">27672 </span> 89/<- %edi 0/r32/eax +<span id="L27673" class="LineNr">27673 </span> <span class="subxComment">#</span> +<span id="L27674" class="LineNr">27674 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L27675" class="LineNr">27675 </span> } +<span id="L27676" class="LineNr">27676 </span><span class="Constant">$emit-outputs:end</span>: +<span id="L27677" class="LineNr">27677 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27678" class="LineNr">27678 </span> 5f/pop-to-edi +<span id="L27679" class="LineNr">27679 </span> 5e/pop-to-esi +<span id="L27680" class="LineNr">27680 </span> 59/pop-to-ecx +<span id="L27681" class="LineNr">27681 </span> 58/pop-to-eax +<span id="L27682" class="LineNr">27682 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27683" class="LineNr">27683 </span> 89/<- %esp 5/r32/ebp +<span id="L27684" class="LineNr">27684 </span> 5d/pop-to-ebp +<span id="L27685" class="LineNr">27685 </span> c3/return +<span id="L27686" class="LineNr">27686 </span> +<span id="L27687" class="LineNr">27687 </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="L27688" class="LineNr">27688 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27689" class="LineNr">27689 </span> 55/push-ebp +<span id="L27690" class="LineNr">27690 </span> 89/<- %ebp 4/r32/esp +<span id="L27691" class="LineNr">27691 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27692" class="LineNr">27692 </span> 50/push-eax +<span id="L27693" class="LineNr">27693 </span> 51/push-ecx +<span id="L27694" class="LineNr">27694 </span> <span class="subxComment"># ecx = return-var->value</span> +<span id="L27695" class="LineNr">27695 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27696" class="LineNr">27696 </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="L27697" class="LineNr">27697 </span> 89/<- %ecx 0/r32/eax +<span id="L27698" class="LineNr">27698 </span> <span class="subxComment"># if curr-var is a literal, emit copy of a literal to the output</span> +<span id="L27699" class="LineNr">27699 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L27700" class="LineNr">27700 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> +<span id="L27701" class="LineNr">27701 </span> { +<span id="L27702" class="LineNr">27702 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27703" class="LineNr">27703 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27704" class="LineNr">27704 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L27705" class="LineNr">27705 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c7 0/subop/copy %"</span>) +<span id="L27706" class="LineNr">27706 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x10)) +<span id="L27707" class="LineNr">27707 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L27708" class="LineNr">27708 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27709" class="LineNr">27709 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27710" class="LineNr">27710 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L27711" class="LineNr">27711 </span> e9/jump $emit-int-output:end/disp32 +<span id="L27712" class="LineNr">27712 </span> } +<span id="L27713" class="LineNr">27713 </span> <span class="subxComment"># otherwise emit an integer copy</span> +<span id="L27714" class="LineNr">27714 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L27715" class="LineNr">27715 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/->"</span>) +<span id="L27716" class="LineNr">27716 </span> (<a href='mu.subx.html#L36046'>emit-subx-var-as-rm32</a> *(ebp+8) *(ebp+0xc)) +<span id="L27717" class="LineNr">27717 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L27718" class="LineNr">27718 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19595'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> +<span id="L27719" class="LineNr">27719 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L27720" class="LineNr">27720 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L27721" class="LineNr">27721 </span><span class="Constant">$emit-int-output:end</span>: +<span id="L27722" class="LineNr">27722 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27723" class="LineNr">27723 </span> 59/pop-to-ecx +<span id="L27724" class="LineNr">27724 </span> 58/pop-to-eax +<span id="L27725" class="LineNr">27725 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27726" class="LineNr">27726 </span> 89/<- %esp 5/r32/ebp +<span id="L27727" class="LineNr">27727 </span> 5d/pop-to-ebp +<span id="L27728" class="LineNr">27728 </span> c3/return +<span id="L27729" class="LineNr">27729 </span> +<span id="L27730" class="LineNr">27730 </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="L27731" class="LineNr">27731 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27732" class="LineNr">27732 </span> 55/push-ebp +<span id="L27733" class="LineNr">27733 </span> 89/<- %ebp 4/r32/esp +<span id="L27734" class="LineNr">27734 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27735" class="LineNr">27735 </span> 50/push-eax +<span id="L27736" class="LineNr">27736 </span> <span class="subxComment">#</span> +<span id="L27737" class="LineNr">27737 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L27738" class="LineNr">27738 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/->"</span>) +<span id="L27739" class="LineNr">27739 </span> (<a href='mu.subx.html#L36046'>emit-subx-var-as-rm32</a> *(ebp+8) *(ebp+0xc)) +<span id="L27740" class="LineNr">27740 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L27741" class="LineNr">27741 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19595'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> +<span id="L27742" class="LineNr">27742 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L27743" class="LineNr">27743 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) +<span id="L27744" class="LineNr">27744 </span><span class="Constant">$emit-float-output:end</span>: +<span id="L27745" class="LineNr">27745 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27746" class="LineNr">27746 </span> 58/pop-to-eax +<span id="L27747" class="LineNr">27747 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27748" class="LineNr">27748 </span> 89/<- %esp 5/r32/ebp +<span id="L27749" class="LineNr">27749 </span> 5d/pop-to-ebp +<span id="L27750" class="LineNr">27750 </span> c3/return +<span id="L27751" class="LineNr">27751 </span> +<span id="L27752" class="LineNr">27752 </span><span class="subxFunction">mu-branch?</span>: <span class="subxComment"># stmt: (addr stmt1) -> result/eax: boolean</span> +<span id="L27753" class="LineNr">27753 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27754" class="LineNr">27754 </span> 55/push-ebp +<span id="L27755" class="LineNr">27755 </span> 89/<- %ebp 4/r32/esp +<span id="L27756" class="LineNr">27756 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27757" class="LineNr">27757 </span> 51/push-ecx +<span id="L27758" class="LineNr">27758 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> +<span id="L27759" class="LineNr">27759 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L27760" class="LineNr">27760 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L27761" class="LineNr">27761 </span> 89/<- %ecx 0/r32/eax +<span id="L27762" class="LineNr">27762 </span> <span class="subxComment"># if (stmt->operation starts with "loop") return true</span> +<span id="L27763" class="LineNr">27763 </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="L27764" class="LineNr">27764 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27765" class="LineNr">27765 </span> 75/jump-if-not-equal $mu-branch?:end/disp8 +<span id="L27766" class="LineNr">27766 </span> <span class="subxComment"># if (stmt->operation starts with "break") return true</span> +<span id="L27767" class="LineNr">27767 </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="L27768" class="LineNr">27768 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27769" class="LineNr">27769 </span> 75/jump-if-not-equal $mu-branch?:end/disp8 +<span id="L27770" class="LineNr">27770 </span> <span class="subxComment"># otherwise return (stmt->operation starts with "return")</span> +<span id="L27771" class="LineNr">27771 </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="L27772" class="LineNr">27772 </span><span class="Constant">$mu-branch?:end</span>: +<span id="L27773" class="LineNr">27773 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27774" class="LineNr">27774 </span> 59/pop-to-ecx +<span id="L27775" class="LineNr">27775 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27776" class="LineNr">27776 </span> 89/<- %esp 5/r32/ebp +<span id="L27777" class="LineNr">27777 </span> 5d/pop-to-ebp +<span id="L27778" class="LineNr">27778 </span> c3/return +<span id="L27779" class="LineNr">27779 </span> +<span id="L27780" class="LineNr">27780 </span><span class="subxFunction">emit-reverse-break</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt1)</span> +<span id="L27781" class="LineNr">27781 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27782" class="LineNr">27782 </span> 55/push-ebp +<span id="L27783" class="LineNr">27783 </span> 89/<- %ebp 4/r32/esp +<span id="L27784" class="LineNr">27784 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27785" class="LineNr">27785 </span> 50/push-eax +<span id="L27786" class="LineNr">27786 </span> <span class="subxComment"># eax = stmt</span> +<span id="L27787" class="LineNr">27787 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27788" class="LineNr">27788 </span> <span class="subxComment">#</span> +<span id="L27789" class="LineNr">27789 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L27790" class="LineNr">27790 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L27806'>Reverse-branch</a></span> %eax 0x10 <span class="Constant">"reverse-branch: "</span>) <span class="subxComment"># => eax: (addr handle array byte)</span> +<span id="L27791" class="LineNr">27791 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L27792" class="LineNr">27792 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L27793" class="LineNr">27793 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27794" class="LineNr">27794 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" break/disp32\n"</span>) +<span id="L27795" class="LineNr">27795 </span><span class="Constant">$emit-reverse-break:end</span>: +<span id="L27796" class="LineNr">27796 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27797" class="LineNr">27797 </span> 58/pop-to-eax +<span id="L27798" class="LineNr">27798 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27799" class="LineNr">27799 </span> 89/<- %esp 5/r32/ebp +<span id="L27800" class="LineNr">27800 </span> 5d/pop-to-ebp +<span id="L27801" class="LineNr">27801 </span> c3/return +<span id="L27802" class="LineNr">27802 </span> +<span id="L27803" class="LineNr">27803 </span>== data +<span id="L27804" class="LineNr">27804 </span> +<span id="L27805" class="LineNr">27805 </span><span class="subxComment"># Table from Mu branch instructions to the reverse SubX opcodes for them.</span> +<span id="L27806" class="LineNr">27806 </span><span class="SpecialChar">Reverse-branch</span>: <span class="subxComment"># (table (handle array byte) (handle array byte))</span> +<span id="L27807" class="LineNr">27807 </span> <span class="subxComment"># a table is a stream</span> +<span id="L27808" class="LineNr">27808 </span> 0x240/imm32/write +<span id="L27809" class="LineNr">27809 </span> 0/imm32/read +<span id="L27810" class="LineNr">27810 </span> 0x240/imm32/size +<span id="L27811" class="LineNr">27811 </span> <span class="subxComment"># data</span> +<span id="L27812" class="LineNr">27812 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34307'>_string-break-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34729'>_string_0f_85_jump_label</a>/imm32 +<span id="L27813" class="LineNr">27813 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34437'>_string-loop-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34729'>_string_0f_85_jump_label</a>/imm32 +<span id="L27814" class="LineNr">27814 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34322'>_string-break-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34714'>_string_0f_84_jump_label</a>/imm32 +<span id="L27815" class="LineNr">27815 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34452'>_string-loop-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34714'>_string_0f_84_jump_label</a>/imm32 +<span id="L27816" class="LineNr">27816 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34297'>_string-break-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34789'>_string_0f_8d_jump_label</a>/imm32 +<span id="L27817" class="LineNr">27817 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34427'>_string-loop-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34789'>_string_0f_8d_jump_label</a>/imm32 +<span id="L27818" class="LineNr">27818 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34312'>_string-break-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34804'>_string_0f_8e_jump_label</a>/imm32 +<span id="L27819" class="LineNr">27819 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34442'>_string-loop-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34804'>_string_0f_8e_jump_label</a>/imm32 +<span id="L27820" class="LineNr">27820 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34302'>_string-break-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34819'>_string_0f_8f_jump_label</a>/imm32 +<span id="L27821" class="LineNr">27821 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34432'>_string-loop-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34819'>_string_0f_8f_jump_label</a>/imm32 +<span id="L27822" class="LineNr">27822 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34317'>_string-break-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34774'>_string_0f_8c_jump_label</a>/imm32 +<span id="L27823" class="LineNr">27823 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34447'>_string-loop-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34774'>_string_0f_8c_jump_label</a>/imm32 +<span id="L27824" class="LineNr">27824 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34327'>_string-break-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34699'>_string_0f_83_jump_label</a>/imm32 +<span id="L27825" class="LineNr">27825 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34457'>_string-loop-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34699'>_string_0f_83_jump_label</a>/imm32 +<span id="L27826" class="LineNr">27826 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34337'>_string-break-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34744'>_string_0f_86_jump_label</a>/imm32 +<span id="L27827" class="LineNr">27827 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34467'>_string-loop-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34744'>_string_0f_86_jump_label</a>/imm32 +<span id="L27828" class="LineNr">27828 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34332'>_string-break-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34759'>_string_0f_87_jump_label</a>/imm32 +<span id="L27829" class="LineNr">27829 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34462'>_string-loop-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34759'>_string_0f_87_jump_label</a>/imm32 +<span id="L27830" class="LineNr">27830 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34342'>_string-break-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34684'>_string_0f_82_jump_label</a>/imm32 +<span id="L27831" class="LineNr">27831 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34472'>_string-loop-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34684'>_string_0f_82_jump_label</a>/imm32 +<span id="L27832" class="LineNr">27832 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34347'>_string-break-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34699'>_string_0f_83_jump_label</a>/imm32 +<span id="L27833" class="LineNr">27833 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34477'>_string-loop-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34699'>_string_0f_83_jump_label</a>/imm32 +<span id="L27834" class="LineNr">27834 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34357'>_string-break-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34744'>_string_0f_86_jump_label</a>/imm32 +<span id="L27835" class="LineNr">27835 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34487'>_string-loop-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34744'>_string_0f_86_jump_label</a>/imm32 +<span id="L27836" class="LineNr">27836 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34352'>_string-break-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34759'>_string_0f_87_jump_label</a>/imm32 +<span id="L27837" class="LineNr">27837 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34482'>_string-loop-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34759'>_string_0f_87_jump_label</a>/imm32 +<span id="L27838" class="LineNr">27838 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34362'>_string-break-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34684'>_string_0f_82_jump_label</a>/imm32 +<span id="L27839" class="LineNr">27839 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34492'>_string-loop-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34684'>_string_0f_82_jump_label</a>/imm32 +<span id="L27840" class="LineNr">27840 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34367'>_string-break-if-carry</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34699'>_string_0f_83_jump_label</a>/imm32 +<span id="L27841" class="LineNr">27841 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34497'>_string-loop-if-carry</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34699'>_string_0f_83_jump_label</a>/imm32 +<span id="L27842" class="LineNr">27842 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34372'>_string-break-if-not-carry</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34684'>_string_0f_82_jump_label</a>/imm32 +<span id="L27843" class="LineNr">27843 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34502'>_string-loop-if-not-carry</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34684'>_string_0f_82_jump_label</a>/imm32 +<span id="L27844" class="LineNr">27844 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34377'>_string-break-if-overflow</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34669'>_string_0f_81_jump_label</a>/imm32 +<span id="L27845" class="LineNr">27845 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34507'>_string-loop-if-overflow</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34669'>_string_0f_81_jump_label</a>/imm32 +<span id="L27846" class="LineNr">27846 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34382'>_string-break-if-not-overflow</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34654'>_string_0f_80_jump_label</a>/imm32 +<span id="L27847" class="LineNr">27847 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L34512'>_string-loop-if-not-overflow</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34654'>_string_0f_80_jump_label</a>/imm32 +<span id="L27848" class="LineNr">27848 </span> +<span id="L27849" class="LineNr">27849 </span>== code +<span id="L27850" class="LineNr">27850 </span> +<span id="L27851" class="LineNr">27851 </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="L27852" class="LineNr">27852 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27853" class="LineNr">27853 </span> 55/push-ebp +<span id="L27854" class="LineNr">27854 </span> 89/<- %ebp 4/r32/esp +<span id="L27855" class="LineNr">27855 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27856" class="LineNr">27856 </span> 50/push-eax +<span id="L27857" class="LineNr">27857 </span> 51/push-ecx +<span id="L27858" class="LineNr">27858 </span> 52/push-edx +<span id="L27859" class="LineNr">27859 </span> 53/push-ebx +<span id="L27860" class="LineNr">27860 </span> 56/push-esi +<span id="L27861" class="LineNr">27861 </span> <span class="subxComment"># ecx = vars</span> +<span id="L27862" class="LineNr">27862 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27863" class="LineNr">27863 </span> <span class="subxComment"># var eax: int = vars->top</span> +<span id="L27864" class="LineNr">27864 </span> 8b/-> *ecx 0/r32/eax +<span id="L27865" class="LineNr">27865 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L27866" class="LineNr">27866 </span> 8d/copy-address *(ecx+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L27867" class="LineNr">27867 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L27868" class="LineNr">27868 </span> 8d/copy-address *(ecx+8) 1/r32/ecx +<span id="L27869" class="LineNr">27869 </span> <span class="subxComment"># edx = depth</span> +<span id="L27870" class="LineNr">27870 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L27871" class="LineNr">27871 </span> { +<span id="L27872" class="LineNr">27872 </span><span class="Constant">$emit-unconditional-jump-to-depth:loop</span>: +<span id="L27873" class="LineNr">27873 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L27874" class="LineNr">27874 </span> 39/compare %esi 1/r32/ecx +<span id="L27875" class="LineNr">27875 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L27876" class="LineNr">27876 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L27877" class="LineNr">27877 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L27878" class="LineNr">27878 </span> 89/<- %ebx 0/r32/eax +<span id="L27879" class="LineNr">27879 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L27880" class="LineNr">27880 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L27881" class="LineNr">27881 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L27882" class="LineNr">27882 </span> { +<span id="L27883" class="LineNr">27883 </span><span class="Constant">$emit-unconditional-jump-to-depth:<a href='401test.mu.html#L3'>check</a></span>: +<span id="L27884" class="LineNr">27884 </span> <span class="subxComment"># if v->block-depth != until-block-depth, continue</span> +<span id="L27885" class="LineNr">27885 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L27886" class="LineNr">27886 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27887" class="LineNr">27887 </span><span class="Constant">$emit-unconditional-jump-to-depth:depth-found</span>: +<span id="L27888" class="LineNr">27888 </span> <span class="subxComment"># if v is not a literal, continue</span> +<span id="L27889" class="LineNr">27889 </span> (<a href='mu.subx.html#L26770'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L27890" class="LineNr">27890 </span> 3d/compare-eax-and 0/imm32 +<span id="L27891" class="LineNr">27891 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27892" class="LineNr">27892 </span><span class="Constant">$emit-unconditional-jump-to-depth:label-found</span>: +<span id="L27893" class="LineNr">27893 </span> <span class="subxComment"># emit unconditional jump, then return</span> +<span id="L27894" class="LineNr">27894 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L27895" class="LineNr">27895 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) +<span id="L27896" class="LineNr">27896 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27897" class="LineNr">27897 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27898" class="LineNr">27898 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":"</span>) +<span id="L27899" class="LineNr">27899 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x14)) +<span id="L27900" class="LineNr">27900 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32\n"</span>) +<span id="L27901" class="LineNr">27901 </span> eb/jump $emit-unconditional-jump-to-depth:end/disp8 +<span id="L27902" class="LineNr">27902 </span> } <span id="L27903" class="LineNr">27903 </span> <span class="subxComment"># curr -= 12</span> <span id="L27904" class="LineNr">27904 </span> 81 5/subop/subtract %esi 0xc/imm32 <span id="L27905" class="LineNr">27905 </span> e9/jump <span class="Constant">loop</span>/disp32 <span id="L27906" class="LineNr">27906 </span> } -<span id="L27907" class="LineNr">27907 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:end</span>: -<span id="L27908" class="LineNr">27908 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27909" class="LineNr">27909 </span> 5f/pop-to-edi +<span id="L27907" class="LineNr">27907 </span> <span class="subxComment"># TODO: error if no label at 'depth' was found</span> +<span id="L27908" class="LineNr">27908 </span><span class="Constant">$emit-unconditional-jump-to-depth:end</span>: +<span id="L27909" class="LineNr">27909 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L27910" class="LineNr">27910 </span> 5e/pop-to-esi <span id="L27911" class="LineNr">27911 </span> 5b/pop-to-ebx <span id="L27912" class="LineNr">27912 </span> 5a/pop-to-edx @@ -26292,10859 +26277,11115 @@ if ('onhashchange' in window) { <span id="L27917" class="LineNr">27917 </span> 5d/pop-to-ebp <span id="L27918" class="LineNr">27918 </span> c3/return <span id="L27919" class="LineNr">27919 </span> -<span id="L27920" class="LineNr">27920 </span><span class="subxFunction">emit-push-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> -<span id="L27921" class="LineNr">27921 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27922" class="LineNr">27922 </span> 55/push-ebp -<span id="L27923" class="LineNr">27923 </span> 89/<- %ebp 4/r32/esp -<span id="L27924" class="LineNr">27924 </span> <span class="subxComment"># eax = reg</span> -<span id="L27925" class="LineNr">27925 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27926" class="LineNr">27926 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> -<span id="L27927" class="LineNr">27927 </span> 8a/copy-byte *(eax+4) 0/r32/AL -<span id="L27928" class="LineNr">27928 </span> 25/and-eax-with 0xff/imm32 -<span id="L27929" class="LineNr">27929 </span> <span class="subxComment"># if (prefix == 'x') push xmm register</span> -<span id="L27930" class="LineNr">27930 </span> { -<span id="L27931" class="LineNr">27931 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L27932" class="LineNr">27932 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27933" class="LineNr">27933 </span> <span class="subxComment"># TODO validate register</span> -<span id="L27934" class="LineNr">27934 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L27935" class="LineNr">27935 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 5/subop/subtract %esp 4/imm32\n"</span>) -<span id="L27936" class="LineNr">27936 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>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">"f3 0f 11/<- *esp "</span>) -<span id="L27938" class="LineNr">27938 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> -<span id="L27939" class="LineNr">27939 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27940" class="LineNr">27940 </span> 8a/copy-byte *(eax+7) 0/r32/AL -<span id="L27941" class="LineNr">27941 </span> 25/and-eax-with 0xff/imm32 -<span id="L27942" class="LineNr">27942 </span> (<a href='115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) -<span id="L27943" class="LineNr">27943 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) -<span id="L27944" class="LineNr">27944 </span> e9/jump $emit-push-register:end/disp32 -<span id="L27945" class="LineNr">27945 </span> } -<span id="L27946" class="LineNr">27946 </span> <span class="subxComment"># otherwise push gp register</span> -<span id="L27947" class="LineNr">27947 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L27948" class="LineNr">27948 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"ff 6/subop/push %"</span>) -<span id="L27949" class="LineNr">27949 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L27950" class="LineNr">27950 </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="L27951" class="LineNr">27951 </span><span class="Constant">$emit-push-register:end</span>: -<span id="L27952" class="LineNr">27952 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27953" class="LineNr">27953 </span> 89/<- %esp 5/r32/ebp -<span id="L27954" class="LineNr">27954 </span> 5d/pop-to-ebp -<span id="L27955" class="LineNr">27955 </span> c3/return -<span id="L27956" class="LineNr">27956 </span> -<span id="L27957" class="LineNr">27957 </span><span class="subxFunction">emit-pop-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> -<span id="L27958" class="LineNr">27958 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27959" class="LineNr">27959 </span> 55/push-ebp -<span id="L27960" class="LineNr">27960 </span> 89/<- %ebp 4/r32/esp -<span id="L27961" class="LineNr">27961 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27962" class="LineNr">27962 </span> 50/push-eax -<span id="L27963" class="LineNr">27963 </span> <span class="subxComment"># eax = reg</span> -<span id="L27964" class="LineNr">27964 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27965" class="LineNr">27965 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> -<span id="L27966" class="LineNr">27966 </span> 8a/copy-byte *(eax+4) 0/r32/AL -<span id="L27967" class="LineNr">27967 </span> 25/and-eax-with 0xff/imm32 -<span id="L27968" class="LineNr">27968 </span> <span class="subxComment"># if (prefix == 'x') pop to xmm register</span> -<span id="L27969" class="LineNr">27969 </span> { -<span id="L27970" class="LineNr">27970 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L27971" class="LineNr">27971 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27972" class="LineNr">27972 </span> <span class="subxComment"># TODO validate register</span> -<span id="L27973" class="LineNr">27973 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L27974" class="LineNr">27974 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/-> *esp "</span>) -<span id="L27975" class="LineNr">27975 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> -<span id="L27976" class="LineNr">27976 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27977" class="LineNr">27977 </span> 8a/copy-byte *(eax+7) 0/r32/AL -<span id="L27978" class="LineNr">27978 </span> 25/and-eax-with 0xff/imm32 -<span id="L27979" class="LineNr">27979 </span> (<a href='115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) -<span id="L27980" class="LineNr">27980 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) -<span id="L27981" class="LineNr">27981 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L27982" class="LineNr">27982 </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="L27983" class="LineNr">27983 </span> e9/jump $emit-pop-register:end/disp32 -<span id="L27984" class="LineNr">27984 </span> } -<span id="L27985" class="LineNr">27985 </span> <span class="subxComment"># otherwise pop to gp register</span> -<span id="L27986" class="LineNr">27986 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L27987" class="LineNr">27987 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8f 0/subop/pop %"</span>) -<span id="L27988" class="LineNr">27988 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L27989" class="LineNr">27989 </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="L27990" class="LineNr">27990 </span><span class="Constant">$emit-pop-register:end</span>: -<span id="L27991" class="LineNr">27991 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27992" class="LineNr">27992 </span> 58/pop-to-eax -<span id="L27993" class="LineNr">27993 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27994" class="LineNr">27994 </span> 89/<- %esp 5/r32/ebp -<span id="L27995" class="LineNr">27995 </span> 5d/pop-to-ebp -<span id="L27996" class="LineNr">27996 </span> c3/return -<span id="L27997" class="LineNr">27997 </span> -<span id="L27998" class="LineNr">27998 </span><span class="subxComment"># emit clean-up code for 'vars' until a given label is encountered</span> -<span id="L27999" class="LineNr">27999 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> -<span id="L28000" class="LineNr">28000 </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="L28001" class="LineNr">28001 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28002" class="LineNr">28002 </span> 55/push-ebp -<span id="L28003" class="LineNr">28003 </span> 89/<- %ebp 4/r32/esp -<span id="L28004" class="LineNr">28004 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28005" class="LineNr">28005 </span> 50/push-eax -<span id="L28006" class="LineNr">28006 </span> 51/push-ecx -<span id="L28007" class="LineNr">28007 </span> 52/push-edx -<span id="L28008" class="LineNr">28008 </span> 53/push-ebx -<span id="L28009" class="LineNr">28009 </span> <span class="subxComment"># ecx = vars</span> -<span id="L28010" class="LineNr">28010 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L28011" class="LineNr">28011 </span> <span class="subxComment"># var eax: int = vars->top</span> -<span id="L28012" class="LineNr">28012 </span> 8b/-> *ecx 0/r32/eax -<span id="L28013" class="LineNr">28013 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L28014" class="LineNr">28014 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L28015" class="LineNr">28015 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L28016" class="LineNr">28016 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L28017" class="LineNr">28017 </span> { -<span id="L28018" class="LineNr">28018 </span><span class="Constant">$emit-cleanup-code-until-target:loop</span>: -<span id="L28019" class="LineNr">28019 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L28020" class="LineNr">28020 </span> 39/compare %edx 1/r32/ecx -<span id="L28021" class="LineNr">28021 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L28022" class="LineNr">28022 </span> <span class="subxComment"># var v/ebx: (handle var) = lookup(*curr)</span> -<span id="L28023" class="LineNr">28023 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L28024" class="LineNr">28024 </span> 89/<- %ebx 0/r32/eax -<span id="L28025" class="LineNr">28025 </span> <span class="subxComment"># if (v->name == until-block-label) break</span> -<span id="L28026" class="LineNr">28026 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L28027" class="LineNr">28027 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L28028" class="LineNr">28028 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28029" class="LineNr">28029 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L28030" class="LineNr">28030 </span> <span class="subxComment"># if v is in a register</span> -<span id="L28031" class="LineNr">28031 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L28032" class="LineNr">28032 </span> { -<span id="L28033" class="LineNr">28033 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28034" class="LineNr">28034 </span> { -<span id="L28035" class="LineNr">28035 </span><span class="Constant">$emit-cleanup-code-until-target:check-for-previous-spill</span>: -<span id="L28036" class="LineNr">28036 </span> 8b/-> *(edx+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L28037" class="LineNr">28037 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28038" class="LineNr">28038 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28039" class="LineNr">28039 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-in-register</span>: -<span id="L28040" class="LineNr">28040 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28041" class="LineNr">28041 </span> (<a href='mu.subx.html#L27957'>emit-pop-register</a> *(ebp+8) %eax) -<span id="L28042" class="LineNr">28042 </span> } -<span id="L28043" class="LineNr">28043 </span> eb/jump $emit-cleanup-code-until-target:continue/disp8 -<span id="L28044" class="LineNr">28044 </span> } -<span id="L28045" class="LineNr">28045 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L28046" class="LineNr">28046 </span> { -<span id="L28047" class="LineNr">28047 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28048" class="LineNr">28048 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-on-stack</span>: -<span id="L28049" class="LineNr">28049 </span> (<a href='mu.subx.html#L26595'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L28050" class="LineNr">28050 </span> <span class="subxComment"># don't emit code for labels</span> -<span id="L28051" class="LineNr">28051 </span> 3d/compare-eax-and 0/imm32 -<span id="L28052" class="LineNr">28052 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28053" class="LineNr">28053 </span> <span class="subxComment">#</span> -<span id="L28054" class="LineNr">28054 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28055" class="LineNr">28055 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) -<span id="L28056" class="LineNr">28056 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L28057" class="LineNr">28057 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L28058" class="LineNr">28058 </span> } -<span id="L28059" class="LineNr">28059 </span><span class="Constant">$emit-cleanup-code-until-target:continue</span>: -<span id="L28060" class="LineNr">28060 </span> <span class="subxComment"># curr -= 12</span> -<span id="L28061" class="LineNr">28061 </span> 81 5/subop/subtract %edx 0xc/imm32 -<span id="L28062" class="LineNr">28062 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L28063" class="LineNr">28063 </span> } -<span id="L28064" class="LineNr">28064 </span><span class="Constant">$emit-cleanup-code-until-target:end</span>: -<span id="L28065" class="LineNr">28065 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28066" class="LineNr">28066 </span> 5b/pop-to-ebx -<span id="L28067" class="LineNr">28067 </span> 5a/pop-to-edx -<span id="L28068" class="LineNr">28068 </span> 59/pop-to-ecx -<span id="L28069" class="LineNr">28069 </span> 58/pop-to-eax -<span id="L28070" class="LineNr">28070 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28071" class="LineNr">28071 </span> 89/<- %esp 5/r32/ebp -<span id="L28072" class="LineNr">28072 </span> 5d/pop-to-ebp -<span id="L28073" class="LineNr">28073 </span> c3/return -<span id="L28074" class="LineNr">28074 </span> -<span id="L28075" class="LineNr">28075 </span><span class="subxComment"># update Curr-local-stack-offset assuming vars until some block depth are popped</span> -<span id="L28076" class="LineNr">28076 </span><span class="subxComment"># doesn't actually modify 'vars', so we need traverse manually inside the stack</span> -<span id="L28077" class="LineNr">28077 </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="L28078" class="LineNr">28078 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28079" class="LineNr">28079 </span> 55/push-ebp -<span id="L28080" class="LineNr">28080 </span> 89/<- %ebp 4/r32/esp -<span id="L28081" class="LineNr">28081 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28082" class="LineNr">28082 </span> 50/push-eax -<span id="L28083" class="LineNr">28083 </span> 51/push-ecx -<span id="L28084" class="LineNr">28084 </span> 52/push-edx -<span id="L28085" class="LineNr">28085 </span> 53/push-ebx -<span id="L28086" class="LineNr">28086 </span> 56/push-esi -<span id="L28087" class="LineNr">28087 </span> <span class="subxComment"># ecx = vars</span> -<span id="L28088" class="LineNr">28088 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28089" class="LineNr">28089 </span> <span class="subxComment"># var esi: int = vars->top</span> -<span id="L28090" class="LineNr">28090 </span> 8b/-> *ecx 6/r32/esi -<span id="L28091" class="LineNr">28091 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L28092" class="LineNr">28092 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L28093" class="LineNr">28093 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L28094" class="LineNr">28094 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L28095" class="LineNr">28095 </span> <span class="subxComment"># edx = until-block-depth</span> -<span id="L28096" class="LineNr">28096 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L28097" class="LineNr">28097 </span> { -<span id="L28098" class="LineNr">28098 </span><span class="Constant">$clean-up-stack-offset-state:loop</span>: -<span id="L28099" class="LineNr">28099 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L28100" class="LineNr">28100 </span> 39/compare %esi 1/r32/ecx -<span id="L28101" class="LineNr">28101 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L28102" class="LineNr">28102 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L28103" class="LineNr">28103 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L28104" class="LineNr">28104 </span> 89/<- %ebx 0/r32/eax -<span id="L28105" class="LineNr">28105 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L28106" class="LineNr">28106 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L28107" class="LineNr">28107 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L28108" class="LineNr">28108 </span> <span class="subxComment"># if v is in a register</span> -<span id="L28109" class="LineNr">28109 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L28110" class="LineNr">28110 </span> { -<span id="L28111" class="LineNr">28111 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28112" class="LineNr">28112 </span> { -<span id="L28113" class="LineNr">28113 </span><span class="Constant">$clean-up-stack-offset-state:check-for-previous-spill</span>: -<span id="L28114" class="LineNr">28114 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L28115" class="LineNr">28115 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28116" class="LineNr">28116 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28117" class="LineNr">28117 </span><span class="Constant">$clean-up-stack-offset-state:reclaim-var-in-register</span>: -<span id="L28118" class="LineNr">28118 </span> 81 0/subop/add *<span class="SpecialChar"><a href='mu.subx.html#L26998'>Curr-local-stack-offset</a></span> 4/imm32 -<span id="L28119" class="LineNr">28119 </span> } -<span id="L28120" class="LineNr">28120 </span> eb/jump $clean-up-stack-offset-state:continue/disp8 -<span id="L28121" class="LineNr">28121 </span> } -<span id="L28122" class="LineNr">28122 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L28123" class="LineNr">28123 </span> { -<span id="L28124" class="LineNr">28124 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28125" class="LineNr">28125 </span><span class="Constant">$clean-up-stack-offset-state:var-on-stack</span>: -<span id="L28126" class="LineNr">28126 </span> (<a href='mu.subx.html#L26595'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L28127" class="LineNr">28127 </span> 01/add-to *<span class="SpecialChar"><a href='mu.subx.html#L26998'>Curr-local-stack-offset</a></span> 0/r32/eax -<span id="L28128" class="LineNr">28128 </span> } -<span id="L28129" class="LineNr">28129 </span><span class="Constant">$clean-up-stack-offset-state:continue</span>: -<span id="L28130" class="LineNr">28130 </span> <span class="subxComment"># curr -= 12</span> -<span id="L28131" class="LineNr">28131 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L28132" class="LineNr">28132 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L28133" class="LineNr">28133 </span> } -<span id="L28134" class="LineNr">28134 </span><span class="Constant">$clean-up-stack-offset-state:end</span>: -<span id="L28135" class="LineNr">28135 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28136" class="LineNr">28136 </span> 5e/pop-to-esi -<span id="L28137" class="LineNr">28137 </span> 5b/pop-to-ebx -<span id="L28138" class="LineNr">28138 </span> 5a/pop-to-edx -<span id="L28139" class="LineNr">28139 </span> 59/pop-to-ecx -<span id="L28140" class="LineNr">28140 </span> 58/pop-to-eax -<span id="L28141" class="LineNr">28141 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28142" class="LineNr">28142 </span> 89/<- %esp 5/r32/ebp -<span id="L28143" class="LineNr">28143 </span> 5d/pop-to-ebp -<span id="L28144" class="LineNr">28144 </span> c3/return -<span id="L28145" class="LineNr">28145 </span> -<span id="L28146" class="LineNr">28146 </span><span class="subxComment"># Return true if there isn't a variable in 'vars' with the same block-depth</span> -<span id="L28147" class="LineNr">28147 </span><span class="subxComment"># and register as 'v'.</span> -<span id="L28148" class="LineNr">28148 </span><span class="subxComment"># 'v' is guaranteed not to be within 'vars'.</span> -<span id="L28149" class="LineNr">28149 </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="L28150" class="LineNr">28150 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28151" class="LineNr">28151 </span> 55/push-ebp -<span id="L28152" class="LineNr">28152 </span> 89/<- %ebp 4/r32/esp -<span id="L28153" class="LineNr">28153 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28154" class="LineNr">28154 </span> 51/push-ecx -<span id="L28155" class="LineNr">28155 </span> 52/push-edx -<span id="L28156" class="LineNr">28156 </span> 53/push-ebx -<span id="L28157" class="LineNr">28157 </span> 56/push-esi -<span id="L28158" class="LineNr">28158 </span> 57/push-edi -<span id="L28159" class="LineNr">28159 </span> <span class="subxComment"># ecx = vars</span> -<span id="L28160" class="LineNr">28160 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L28161" class="LineNr">28161 </span> <span class="subxComment"># var eax: int = vars->top</span> -<span id="L28162" class="LineNr">28162 </span> 8b/-> *ecx 0/r32/eax -<span id="L28163" class="LineNr">28163 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L28164" class="LineNr">28164 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L28165" class="LineNr">28165 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L28166" class="LineNr">28166 </span> 8d/copy-address *(ecx+8) 1/r32/ecx -<span id="L28167" class="LineNr">28167 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> -<span id="L28168" class="LineNr">28168 </span> 8b/-> *(ebp+8) 3/r32/ebx -<span id="L28169" class="LineNr">28169 </span> 8b/-> *(ebx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L28170" class="LineNr">28170 </span> <span class="subxComment"># var needle/esi: (addr array byte) = v->register</span> -<span id="L28171" class="LineNr">28171 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L28172" class="LineNr">28172 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28173" class="LineNr">28173 </span> 89/<- %esi 0/r32/eax -<span id="L28174" class="LineNr">28174 </span> { -<span id="L28175" class="LineNr">28175 </span><span class="Constant">$not-yet-spilled-this-block?:loop</span>: -<span id="L28176" class="LineNr">28176 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L28177" class="LineNr">28177 </span> 39/compare %edx 1/r32/ecx -<span id="L28178" class="LineNr">28178 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L28179" class="LineNr">28179 </span> <span class="subxComment"># var cand/edi: (addr var) = lookup(*curr)</span> -<span id="L28180" class="LineNr">28180 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L28181" class="LineNr">28181 </span> 89/<- %edi 0/r32/eax -<span id="L28182" class="LineNr">28182 </span> <span class="subxComment"># if (cand->block-depth < depth) break</span> -<span id="L28183" class="LineNr">28183 </span> 39/compare *(edi+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L28184" class="LineNr">28184 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L28185" class="LineNr">28185 </span> <span class="subxComment"># var cand-reg/edi: (array array byte) = cand->reg</span> -<span id="L28186" class="LineNr">28186 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28187" class="LineNr">28187 </span> 89/<- %edi 0/r32/eax -<span id="L28188" class="LineNr">28188 </span> <span class="subxComment"># if (cand-reg == null) continue</span> -<span id="L28189" class="LineNr">28189 </span> { -<span id="L28190" class="LineNr">28190 </span><span class="Constant">$not-yet-spilled-this-block?:check-reg</span>: -<span id="L28191" class="LineNr">28191 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L28192" class="LineNr">28192 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28193" class="LineNr">28193 </span> <span class="subxComment"># if (cand-reg == needle) return true</span> -<span id="L28194" class="LineNr">28194 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> -<span id="L28195" class="LineNr">28195 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28196" class="LineNr">28196 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28197" class="LineNr">28197 </span><span class="Constant">$not-yet-spilled-this-block?:return-false</span>: -<span id="L28198" class="LineNr">28198 </span> b8/copy-to-eax 0/imm32/false -<span id="L28199" class="LineNr">28199 </span> eb/jump $not-yet-spilled-this-block?:end/disp8 -<span id="L28200" class="LineNr">28200 </span> } -<span id="L28201" class="LineNr">28201 </span><span class="Constant">$not-yet-spilled-this-block?:continue</span>: -<span id="L28202" class="LineNr">28202 </span> <span class="subxComment"># curr -= 12</span> -<span id="L28203" class="LineNr">28203 </span> 81 5/subop/subtract %edx 0xc/imm32 -<span id="L28204" class="LineNr">28204 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L28205" class="LineNr">28205 </span> } -<span id="L28206" class="LineNr">28206 </span><span class="Constant">$not-yet-spilled-this-block?:return-true</span>: -<span id="L28207" class="LineNr">28207 </span> <span class="subxComment"># return true</span> -<span id="L28208" class="LineNr">28208 </span> b8/copy-to-eax 1/imm32/true -<span id="L28209" class="LineNr">28209 </span><span class="Constant">$not-yet-spilled-this-block?:end</span>: -<span id="L28210" class="LineNr">28210 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28211" class="LineNr">28211 </span> 5f/pop-to-edi -<span id="L28212" class="LineNr">28212 </span> 5e/pop-to-esi -<span id="L28213" class="LineNr">28213 </span> 5b/pop-to-ebx -<span id="L28214" class="LineNr">28214 </span> 5a/pop-to-edx -<span id="L28215" class="LineNr">28215 </span> 59/pop-to-ecx -<span id="L28216" class="LineNr">28216 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28217" class="LineNr">28217 </span> 89/<- %esp 5/r32/ebp -<span id="L28218" class="LineNr">28218 </span> 5d/pop-to-ebp -<span id="L28219" class="LineNr">28219 </span> c3/return -<span id="L28220" class="LineNr">28220 </span> -<span id="L28221" class="LineNr">28221 </span><span class="subxComment"># could the register of 'v' ever be written to by one of the vars in fn-outputs?</span> -<span id="L28222" class="LineNr">28222 </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="L28223" class="LineNr">28223 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28224" class="LineNr">28224 </span> 55/push-ebp -<span id="L28225" class="LineNr">28225 </span> 89/<- %ebp 4/r32/esp -<span id="L28226" class="LineNr">28226 </span> <span class="subxComment"># eax = v</span> -<span id="L28227" class="LineNr">28227 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L28228" class="LineNr">28228 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> -<span id="L28229" class="LineNr">28229 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28230" class="LineNr">28230 </span> <span class="subxComment"># var target/eax: (addr var) = find-register(fn-outputs, reg)</span> -<span id="L28231" class="LineNr">28231 </span> (<a href='mu.subx.html#L28252'>find-register</a> *(ebp+0x10) %eax) <span class="subxComment"># => eax</span> -<span id="L28232" class="LineNr">28232 </span> <span class="subxComment"># if (target == 0) return true</span> -<span id="L28233" class="LineNr">28233 </span> { -<span id="L28234" class="LineNr">28234 </span> 3d/compare-eax-and 0/imm32 -<span id="L28235" class="LineNr">28235 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28236" class="LineNr">28236 </span> b8/copy-to-eax 1/imm32/true -<span id="L28237" class="LineNr">28237 </span> eb/jump $will-not-write-some-register?:end/disp8 +<span id="L27920" class="LineNr">27920 </span><span class="subxComment"># emit clean-up code for 'vars' until some block depth</span> +<span id="L27921" class="LineNr">27921 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> +<span id="L27922" class="LineNr">27922 </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="L27923" class="LineNr">27923 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27924" class="LineNr">27924 </span> 55/push-ebp +<span id="L27925" class="LineNr">27925 </span> 89/<- %ebp 4/r32/esp +<span id="L27926" class="LineNr">27926 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27927" class="LineNr">27927 </span> 50/push-eax +<span id="L27928" class="LineNr">27928 </span> 51/push-ecx +<span id="L27929" class="LineNr">27929 </span> 52/push-edx +<span id="L27930" class="LineNr">27930 </span> 53/push-ebx +<span id="L27931" class="LineNr">27931 </span> 56/push-esi +<span id="L27932" class="LineNr">27932 </span><span class="CommentedCode">#? (write-buffered Stderr "--- cleanup\n")</span> +<span id="L27933" class="LineNr">27933 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L27934" class="LineNr">27934 </span> <span class="subxComment"># ecx = vars</span> +<span id="L27935" class="LineNr">27935 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27936" class="LineNr">27936 </span> <span class="subxComment"># var esi: int = vars->top</span> +<span id="L27937" class="LineNr">27937 </span> 8b/-> *ecx 6/r32/esi +<span id="L27938" class="LineNr">27938 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L27939" class="LineNr">27939 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L27940" class="LineNr">27940 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L27941" class="LineNr">27941 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L27942" class="LineNr">27942 </span> <span class="subxComment"># edx = until-block-depth</span> +<span id="L27943" class="LineNr">27943 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L27944" class="LineNr">27944 </span> { +<span id="L27945" class="LineNr">27945 </span><span class="Constant">$emit-cleanup-code-until-depth:loop</span>: +<span id="L27946" class="LineNr">27946 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L27947" class="LineNr">27947 </span> 39/compare %esi 1/r32/ecx +<span id="L27948" class="LineNr">27948 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L27949" class="LineNr">27949 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L27950" class="LineNr">27950 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L27951" class="LineNr">27951 </span> 89/<- %ebx 0/r32/eax +<span id="L27952" class="LineNr">27952 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4)) # Var-name</span> +<span id="L27953" class="LineNr">27953 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> +<span id="L27954" class="LineNr">27954 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L27955" class="LineNr">27955 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L27956" class="LineNr">27956 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L27957" class="LineNr">27957 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L27958" class="LineNr">27958 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L27959" class="LineNr">27959 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L27960" class="LineNr">27960 </span> <span class="subxComment"># if v is in a register</span> +<span id="L27961" class="LineNr">27961 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27962" class="LineNr">27962 </span> { +<span id="L27963" class="LineNr">27963 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27964" class="LineNr">27964 </span> { +<span id="L27965" class="LineNr">27965 </span><span class="Constant">$emit-cleanup-code-until-depth:check-for-previous-spill</span>: +<span id="L27966" class="LineNr">27966 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L27967" class="LineNr">27967 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27968" class="LineNr">27968 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27969" class="LineNr">27969 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-in-register</span>: +<span id="L27970" class="LineNr">27970 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27971" class="LineNr">27971 </span> (<a href='mu.subx.html#L28132'>emit-pop-register</a> *(ebp+8) %eax) +<span id="L27972" class="LineNr">27972 </span> } +<span id="L27973" class="LineNr">27973 </span> eb/jump $emit-cleanup-code-until-depth:continue/disp8 +<span id="L27974" class="LineNr">27974 </span> } +<span id="L27975" class="LineNr">27975 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L27976" class="LineNr">27976 </span> { +<span id="L27977" class="LineNr">27977 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27978" class="LineNr">27978 </span><span class="Constant">$emit-cleanup-code-until-depth:var-on-stack</span>: +<span id="L27979" class="LineNr">27979 </span> (<a href='mu.subx.html#L26770'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L27980" class="LineNr">27980 </span> <span class="subxComment"># don't emit code for labels</span> +<span id="L27981" class="LineNr">27981 </span> 3d/compare-eax-and 0/imm32 +<span id="L27982" class="LineNr">27982 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27983" class="LineNr">27983 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-on-stack</span>: +<span id="L27984" class="LineNr">27984 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L27985" class="LineNr">27985 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) +<span id="L27986" class="LineNr">27986 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L27987" class="LineNr">27987 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L27988" class="LineNr">27988 </span> } +<span id="L27989" class="LineNr">27989 </span><span class="Constant">$emit-cleanup-code-until-depth:continue</span>: +<span id="L27990" class="LineNr">27990 </span> <span class="subxComment"># curr -= 12</span> +<span id="L27991" class="LineNr">27991 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L27992" class="LineNr">27992 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L27993" class="LineNr">27993 </span> } +<span id="L27994" class="LineNr">27994 </span><span class="Constant">$emit-cleanup-code-until-depth:end</span>: +<span id="L27995" class="LineNr">27995 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27996" class="LineNr">27996 </span> 5e/pop-to-esi +<span id="L27997" class="LineNr">27997 </span> 5b/pop-to-ebx +<span id="L27998" class="LineNr">27998 </span> 5a/pop-to-edx +<span id="L27999" class="LineNr">27999 </span> 59/pop-to-ecx +<span id="L28000" class="LineNr">28000 </span> 58/pop-to-eax +<span id="L28001" class="LineNr">28001 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28002" class="LineNr">28002 </span> 89/<- %esp 5/r32/ebp +<span id="L28003" class="LineNr">28003 </span> 5d/pop-to-ebp +<span id="L28004" class="LineNr">28004 </span> c3/return +<span id="L28005" class="LineNr">28005 </span> +<span id="L28006" class="LineNr">28006 </span><span class="subxComment"># emit clean-up code for 'vars' that don't conflict with output registers</span> +<span id="L28007" class="LineNr">28007 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> +<span id="L28008" class="LineNr">28008 </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="L28009" class="LineNr">28009 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28010" class="LineNr">28010 </span> 55/push-ebp +<span id="L28011" class="LineNr">28011 </span> 89/<- %ebp 4/r32/esp +<span id="L28012" class="LineNr">28012 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28013" class="LineNr">28013 </span> 50/push-eax +<span id="L28014" class="LineNr">28014 </span> 51/push-ecx +<span id="L28015" class="LineNr">28015 </span> 52/push-edx +<span id="L28016" class="LineNr">28016 </span> 53/push-ebx +<span id="L28017" class="LineNr">28017 </span> 56/push-esi +<span id="L28018" class="LineNr">28018 </span> 57/push-edi +<span id="L28019" class="LineNr">28019 </span> <span class="subxComment"># ecx = vars</span> +<span id="L28020" class="LineNr">28020 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L28021" class="LineNr">28021 </span> <span class="subxComment"># var esi: int = vars->top</span> +<span id="L28022" class="LineNr">28022 </span> 8b/-> *ecx 6/r32/esi +<span id="L28023" class="LineNr">28023 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L28024" class="LineNr">28024 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L28025" class="LineNr">28025 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L28026" class="LineNr">28026 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L28027" class="LineNr">28027 </span> { +<span id="L28028" class="LineNr">28028 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:loop</span>: +<span id="L28029" class="LineNr">28029 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L28030" class="LineNr">28030 </span> 39/compare %esi 1/r32/ecx +<span id="L28031" class="LineNr">28031 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L28032" class="LineNr">28032 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L28033" class="LineNr">28033 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L28034" class="LineNr">28034 </span> 89/<- %ebx 0/r32/eax +<span id="L28035" class="LineNr">28035 </span> <span class="subxComment"># if v is in a register</span> +<span id="L28036" class="LineNr">28036 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L28037" class="LineNr">28037 </span> { +<span id="L28038" class="LineNr">28038 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28039" class="LineNr">28039 </span> { +<span id="L28040" class="LineNr">28040 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:check-for-previous-spill</span>: +<span id="L28041" class="LineNr">28041 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L28042" class="LineNr">28042 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28043" class="LineNr">28043 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28044" class="LineNr">28044 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register</span>: +<span id="L28045" class="LineNr">28045 </span> <span class="subxComment"># var reg/edi: (addr array name) = v->register</span> +<span id="L28046" class="LineNr">28046 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28047" class="LineNr">28047 </span> 89/<- %edi 0/r32/eax +<span id="L28048" class="LineNr">28048 </span> <span class="subxComment"># if reg is not in function outputs, emit a pop</span> +<span id="L28049" class="LineNr">28049 </span> (<a href='mu.subx.html#L28678'>reg-in-function-outputs?</a> *(ebp+0x10) %edi) <span class="subxComment"># => eax</span> +<span id="L28050" class="LineNr">28050 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28051" class="LineNr">28051 </span> { +<span id="L28052" class="LineNr">28052 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28053" class="LineNr">28053 </span> (<a href='mu.subx.html#L28132'>emit-pop-register</a> *(ebp+8) %edi) +<span id="L28054" class="LineNr">28054 </span> eb/jump $emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done/disp8 +<span id="L28055" class="LineNr">28055 </span> } +<span id="L28056" class="LineNr">28056 </span> <span class="subxComment"># otherwise just drop it from the stack</span> +<span id="L28057" class="LineNr">28057 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28058" class="LineNr">28058 </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="L28059" class="LineNr">28059 </span> } +<span id="L28060" class="LineNr">28060 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done</span>: +<span id="L28061" class="LineNr">28061 </span> eb/jump $emit-cleanup-code-for-non-outputs:continue/disp8 +<span id="L28062" class="LineNr">28062 </span> } +<span id="L28063" class="LineNr">28063 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L28064" class="LineNr">28064 </span> { +<span id="L28065" class="LineNr">28065 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28066" class="LineNr">28066 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:var-on-stack</span>: +<span id="L28067" class="LineNr">28067 </span> (<a href='mu.subx.html#L26770'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L28068" class="LineNr">28068 </span> <span class="subxComment"># don't emit code for labels</span> +<span id="L28069" class="LineNr">28069 </span> 3d/compare-eax-and 0/imm32 +<span id="L28070" class="LineNr">28070 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28071" class="LineNr">28071 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-on-stack</span>: +<span id="L28072" class="LineNr">28072 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28073" class="LineNr">28073 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) +<span id="L28074" class="LineNr">28074 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L28075" class="LineNr">28075 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L28076" class="LineNr">28076 </span> } +<span id="L28077" class="LineNr">28077 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:continue</span>: +<span id="L28078" class="LineNr">28078 </span> <span class="subxComment"># curr -= 12</span> +<span id="L28079" class="LineNr">28079 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L28080" class="LineNr">28080 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L28081" class="LineNr">28081 </span> } +<span id="L28082" class="LineNr">28082 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:end</span>: +<span id="L28083" class="LineNr">28083 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28084" class="LineNr">28084 </span> 5f/pop-to-edi +<span id="L28085" class="LineNr">28085 </span> 5e/pop-to-esi +<span id="L28086" class="LineNr">28086 </span> 5b/pop-to-ebx +<span id="L28087" class="LineNr">28087 </span> 5a/pop-to-edx +<span id="L28088" class="LineNr">28088 </span> 59/pop-to-ecx +<span id="L28089" class="LineNr">28089 </span> 58/pop-to-eax +<span id="L28090" class="LineNr">28090 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28091" class="LineNr">28091 </span> 89/<- %esp 5/r32/ebp +<span id="L28092" class="LineNr">28092 </span> 5d/pop-to-ebp +<span id="L28093" class="LineNr">28093 </span> c3/return +<span id="L28094" class="LineNr">28094 </span> +<span id="L28095" class="LineNr">28095 </span><span class="subxFunction">emit-push-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> +<span id="L28096" class="LineNr">28096 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28097" class="LineNr">28097 </span> 55/push-ebp +<span id="L28098" class="LineNr">28098 </span> 89/<- %ebp 4/r32/esp +<span id="L28099" class="LineNr">28099 </span> <span class="subxComment"># eax = reg</span> +<span id="L28100" class="LineNr">28100 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L28101" class="LineNr">28101 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> +<span id="L28102" class="LineNr">28102 </span> 8a/copy-byte *(eax+4) 0/r32/AL +<span id="L28103" class="LineNr">28103 </span> 25/and-eax-with 0xff/imm32 +<span id="L28104" class="LineNr">28104 </span> <span class="subxComment"># if (prefix == 'x') push xmm register</span> +<span id="L28105" class="LineNr">28105 </span> { +<span id="L28106" class="LineNr">28106 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L28107" class="LineNr">28107 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L28108" class="LineNr">28108 </span> <span class="subxComment"># TODO validate register</span> +<span id="L28109" class="LineNr">28109 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28110" class="LineNr">28110 </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="L28111" class="LineNr">28111 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28112" class="LineNr">28112 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 11/<- *esp "</span>) +<span id="L28113" class="LineNr">28113 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> +<span id="L28114" class="LineNr">28114 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L28115" class="LineNr">28115 </span> 8a/copy-byte *(eax+7) 0/r32/AL +<span id="L28116" class="LineNr">28116 </span> 25/and-eax-with 0xff/imm32 +<span id="L28117" class="LineNr">28117 </span> (<a href='115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) +<span id="L28118" class="LineNr">28118 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) +<span id="L28119" class="LineNr">28119 </span> e9/jump $emit-push-register:end/disp32 +<span id="L28120" class="LineNr">28120 </span> } +<span id="L28121" class="LineNr">28121 </span> <span class="subxComment"># otherwise push gp register</span> +<span id="L28122" class="LineNr">28122 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28123" class="LineNr">28123 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"ff 6/subop/push %"</span>) +<span id="L28124" class="LineNr">28124 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L28125" class="LineNr">28125 </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="L28126" class="LineNr">28126 </span><span class="Constant">$emit-push-register:end</span>: +<span id="L28127" class="LineNr">28127 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28128" class="LineNr">28128 </span> 89/<- %esp 5/r32/ebp +<span id="L28129" class="LineNr">28129 </span> 5d/pop-to-ebp +<span id="L28130" class="LineNr">28130 </span> c3/return +<span id="L28131" class="LineNr">28131 </span> +<span id="L28132" class="LineNr">28132 </span><span class="subxFunction">emit-pop-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> +<span id="L28133" class="LineNr">28133 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28134" class="LineNr">28134 </span> 55/push-ebp +<span id="L28135" class="LineNr">28135 </span> 89/<- %ebp 4/r32/esp +<span id="L28136" class="LineNr">28136 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28137" class="LineNr">28137 </span> 50/push-eax +<span id="L28138" class="LineNr">28138 </span> <span class="subxComment"># eax = reg</span> +<span id="L28139" class="LineNr">28139 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L28140" class="LineNr">28140 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> +<span id="L28141" class="LineNr">28141 </span> 8a/copy-byte *(eax+4) 0/r32/AL +<span id="L28142" class="LineNr">28142 </span> 25/and-eax-with 0xff/imm32 +<span id="L28143" class="LineNr">28143 </span> <span class="subxComment"># if (prefix == 'x') pop to xmm register</span> +<span id="L28144" class="LineNr">28144 </span> { +<span id="L28145" class="LineNr">28145 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L28146" class="LineNr">28146 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L28147" class="LineNr">28147 </span> <span class="subxComment"># TODO validate register</span> +<span id="L28148" class="LineNr">28148 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28149" class="LineNr">28149 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/-> *esp "</span>) +<span id="L28150" class="LineNr">28150 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> +<span id="L28151" class="LineNr">28151 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L28152" class="LineNr">28152 </span> 8a/copy-byte *(eax+7) 0/r32/AL +<span id="L28153" class="LineNr">28153 </span> 25/and-eax-with 0xff/imm32 +<span id="L28154" class="LineNr">28154 </span> (<a href='115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) +<span id="L28155" class="LineNr">28155 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) +<span id="L28156" class="LineNr">28156 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28157" class="LineNr">28157 </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="L28158" class="LineNr">28158 </span> e9/jump $emit-pop-register:end/disp32 +<span id="L28159" class="LineNr">28159 </span> } +<span id="L28160" class="LineNr">28160 </span> <span class="subxComment"># otherwise pop to gp register</span> +<span id="L28161" class="LineNr">28161 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28162" class="LineNr">28162 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8f 0/subop/pop %"</span>) +<span id="L28163" class="LineNr">28163 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L28164" class="LineNr">28164 </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="L28165" class="LineNr">28165 </span><span class="Constant">$emit-pop-register:end</span>: +<span id="L28166" class="LineNr">28166 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28167" class="LineNr">28167 </span> 58/pop-to-eax +<span id="L28168" class="LineNr">28168 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28169" class="LineNr">28169 </span> 89/<- %esp 5/r32/ebp +<span id="L28170" class="LineNr">28170 </span> 5d/pop-to-ebp +<span id="L28171" class="LineNr">28171 </span> c3/return +<span id="L28172" class="LineNr">28172 </span> +<span id="L28173" class="LineNr">28173 </span><span class="subxComment"># emit clean-up code for 'vars' until a given label is encountered</span> +<span id="L28174" class="LineNr">28174 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> +<span id="L28175" class="LineNr">28175 </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="L28176" class="LineNr">28176 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28177" class="LineNr">28177 </span> 55/push-ebp +<span id="L28178" class="LineNr">28178 </span> 89/<- %ebp 4/r32/esp +<span id="L28179" class="LineNr">28179 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28180" class="LineNr">28180 </span> 50/push-eax +<span id="L28181" class="LineNr">28181 </span> 51/push-ecx +<span id="L28182" class="LineNr">28182 </span> 52/push-edx +<span id="L28183" class="LineNr">28183 </span> 53/push-ebx +<span id="L28184" class="LineNr">28184 </span> <span class="subxComment"># ecx = vars</span> +<span id="L28185" class="LineNr">28185 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L28186" class="LineNr">28186 </span> <span class="subxComment"># var eax: int = vars->top</span> +<span id="L28187" class="LineNr">28187 </span> 8b/-> *ecx 0/r32/eax +<span id="L28188" class="LineNr">28188 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L28189" class="LineNr">28189 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L28190" class="LineNr">28190 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L28191" class="LineNr">28191 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L28192" class="LineNr">28192 </span> { +<span id="L28193" class="LineNr">28193 </span><span class="Constant">$emit-cleanup-code-until-target:loop</span>: +<span id="L28194" class="LineNr">28194 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L28195" class="LineNr">28195 </span> 39/compare %edx 1/r32/ecx +<span id="L28196" class="LineNr">28196 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L28197" class="LineNr">28197 </span> <span class="subxComment"># var v/ebx: (handle var) = lookup(*curr)</span> +<span id="L28198" class="LineNr">28198 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L28199" class="LineNr">28199 </span> 89/<- %ebx 0/r32/eax +<span id="L28200" class="LineNr">28200 </span> <span class="subxComment"># if (v->name == until-block-label) break</span> +<span id="L28201" class="LineNr">28201 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L28202" class="LineNr">28202 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L28203" class="LineNr">28203 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28204" class="LineNr">28204 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L28205" class="LineNr">28205 </span> <span class="subxComment"># if v is in a register</span> +<span id="L28206" class="LineNr">28206 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L28207" class="LineNr">28207 </span> { +<span id="L28208" class="LineNr">28208 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28209" class="LineNr">28209 </span> { +<span id="L28210" class="LineNr">28210 </span><span class="Constant">$emit-cleanup-code-until-target:check-for-previous-spill</span>: +<span id="L28211" class="LineNr">28211 </span> 8b/-> *(edx+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L28212" class="LineNr">28212 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28213" class="LineNr">28213 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28214" class="LineNr">28214 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-in-register</span>: +<span id="L28215" class="LineNr">28215 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28216" class="LineNr">28216 </span> (<a href='mu.subx.html#L28132'>emit-pop-register</a> *(ebp+8) %eax) +<span id="L28217" class="LineNr">28217 </span> } +<span id="L28218" class="LineNr">28218 </span> eb/jump $emit-cleanup-code-until-target:continue/disp8 +<span id="L28219" class="LineNr">28219 </span> } +<span id="L28220" class="LineNr">28220 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L28221" class="LineNr">28221 </span> { +<span id="L28222" class="LineNr">28222 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28223" class="LineNr">28223 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-on-stack</span>: +<span id="L28224" class="LineNr">28224 </span> (<a href='mu.subx.html#L26770'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L28225" class="LineNr">28225 </span> <span class="subxComment"># don't emit code for labels</span> +<span id="L28226" class="LineNr">28226 </span> 3d/compare-eax-and 0/imm32 +<span id="L28227" class="LineNr">28227 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28228" class="LineNr">28228 </span> <span class="subxComment">#</span> +<span id="L28229" class="LineNr">28229 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28230" class="LineNr">28230 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) +<span id="L28231" class="LineNr">28231 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L28232" class="LineNr">28232 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L28233" class="LineNr">28233 </span> } +<span id="L28234" class="LineNr">28234 </span><span class="Constant">$emit-cleanup-code-until-target:continue</span>: +<span id="L28235" class="LineNr">28235 </span> <span class="subxComment"># curr -= 12</span> +<span id="L28236" class="LineNr">28236 </span> 81 5/subop/subtract %edx 0xc/imm32 +<span id="L28237" class="LineNr">28237 </span> e9/jump <span class="Constant">loop</span>/disp32 <span id="L28238" class="LineNr">28238 </span> } -<span id="L28239" class="LineNr">28239 </span> <span class="subxComment"># return !assigns-in-stmts?(stmts, target)</span> -<span id="L28240" class="LineNr">28240 </span> (<a href='mu.subx.html#L28294'>assigns-in-stmts?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> -<span id="L28241" class="LineNr">28241 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28242" class="LineNr">28242 </span> <span class="subxComment"># assume: true = 1, so no need to mask with 0x000000ff</span> -<span id="L28243" class="LineNr">28243 </span> 0f 94/set-if-= %al -<span id="L28244" class="LineNr">28244 </span><span class="Constant">$will-not-write-some-register?:end</span>: +<span id="L28239" class="LineNr">28239 </span><span class="Constant">$emit-cleanup-code-until-target:end</span>: +<span id="L28240" class="LineNr">28240 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28241" class="LineNr">28241 </span> 5b/pop-to-ebx +<span id="L28242" class="LineNr">28242 </span> 5a/pop-to-edx +<span id="L28243" class="LineNr">28243 </span> 59/pop-to-ecx +<span id="L28244" class="LineNr">28244 </span> 58/pop-to-eax <span id="L28245" class="LineNr">28245 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L28246" class="LineNr">28246 </span> 89/<- %esp 5/r32/ebp <span id="L28247" class="LineNr">28247 </span> 5d/pop-to-ebp <span id="L28248" class="LineNr">28248 </span> c3/return <span id="L28249" class="LineNr">28249 </span> -<span id="L28250" class="LineNr">28250 </span><span class="subxComment"># return fn output with matching register</span> -<span id="L28251" class="LineNr">28251 </span><span class="subxComment"># always returns false if 'reg' is null</span> -<span id="L28252" class="LineNr">28252 </span><span class="subxFunction">find-register</span>: <span class="subxComment"># fn: (addr function), reg: (addr array byte) -> result/eax: (addr var)</span> +<span id="L28250" class="LineNr">28250 </span><span class="subxComment"># update Curr-local-stack-offset assuming vars until some block depth are popped</span> +<span id="L28251" class="LineNr">28251 </span><span class="subxComment"># doesn't actually modify 'vars', so we need traverse manually inside the stack</span> +<span id="L28252" class="LineNr">28252 </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="L28253" class="LineNr">28253 </span> <span class="subxS1Comment"># . prologue</span> <span id="L28254" class="LineNr">28254 </span> 55/push-ebp <span id="L28255" class="LineNr">28255 </span> 89/<- %ebp 4/r32/esp <span id="L28256" class="LineNr">28256 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28257" class="LineNr">28257 </span> 51/push-ecx -<span id="L28258" class="LineNr">28258 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> -<span id="L28259" class="LineNr">28259 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28260" class="LineNr">28260 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L28261" class="LineNr">28261 </span> 89/<- %ecx 0/r32/eax -<span id="L28262" class="LineNr">28262 </span> { -<span id="L28263" class="LineNr">28263 </span><span class="Constant">$find-register:loop</span>: -<span id="L28264" class="LineNr">28264 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L28265" class="LineNr">28265 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L28266" class="LineNr">28266 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28267" class="LineNr">28267 </span> <span class="subxComment"># eax = curr->value->register</span> -<span id="L28268" class="LineNr">28268 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L28269" class="LineNr">28269 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28270" class="LineNr">28270 </span> <span class="subxComment"># if (eax == reg) return curr->value</span> -<span id="L28271" class="LineNr">28271 </span><span class="Constant">$find-register:compare</span>: -<span id="L28272" class="LineNr">28272 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> -<span id="L28273" class="LineNr">28273 </span> { -<span id="L28274" class="LineNr">28274 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28275" class="LineNr">28275 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28276" class="LineNr">28276 </span><span class="Constant">$find-register:found</span>: -<span id="L28277" class="LineNr">28277 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L28278" class="LineNr">28278 </span> eb/jump $find-register:end/disp8 -<span id="L28279" class="LineNr">28279 </span> } -<span id="L28280" class="LineNr">28280 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L28281" class="LineNr">28281 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L28282" class="LineNr">28282 </span> 89/<- %ecx 0/r32/eax -<span id="L28283" class="LineNr">28283 </span> <span class="subxComment">#</span> -<span id="L28284" class="LineNr">28284 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L28285" class="LineNr">28285 </span> } -<span id="L28286" class="LineNr">28286 </span><span class="Constant">$find-register:end</span>: -<span id="L28287" class="LineNr">28287 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28288" class="LineNr">28288 </span> 59/pop-to-ecx -<span id="L28289" class="LineNr">28289 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28290" class="LineNr">28290 </span> 89/<- %esp 5/r32/ebp -<span id="L28291" class="LineNr">28291 </span> 5d/pop-to-ebp -<span id="L28292" class="LineNr">28292 </span> c3/return -<span id="L28293" class="LineNr">28293 </span> -<span id="L28294" class="LineNr">28294 </span><span class="subxFunction">assigns-in-stmts?</span>: <span class="subxComment"># stmts: (addr list stmt), v: (addr var) -> result/eax: boolean</span> -<span id="L28295" class="LineNr">28295 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28296" class="LineNr">28296 </span> 55/push-ebp -<span id="L28297" class="LineNr">28297 </span> 89/<- %ebp 4/r32/esp -<span id="L28298" class="LineNr">28298 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28299" class="LineNr">28299 </span> 51/push-ecx -<span id="L28300" class="LineNr">28300 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = stmts</span> -<span id="L28301" class="LineNr">28301 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28302" class="LineNr">28302 </span> { -<span id="L28303" class="LineNr">28303 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L28304" class="LineNr">28304 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L28305" class="LineNr">28305 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28306" class="LineNr">28306 </span> <span class="subxComment"># if assigns-in-stmt?(curr->value, v) return true</span> -<span id="L28307" class="LineNr">28307 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L28308" class="LineNr">28308 </span> (<a href='mu.subx.html#L28325'>assigns-in-stmt?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L28309" class="LineNr">28309 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28310" class="LineNr">28310 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28311" class="LineNr">28311 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L28312" class="LineNr">28312 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L28313" class="LineNr">28313 </span> 89/<- %ecx 0/r32/eax -<span id="L28314" class="LineNr">28314 </span> <span class="subxComment">#</span> -<span id="L28315" class="LineNr">28315 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L28316" class="LineNr">28316 </span> } -<span id="L28317" class="LineNr">28317 </span><span class="Constant">$assigns-in-stmts?:end</span>: -<span id="L28318" class="LineNr">28318 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28319" class="LineNr">28319 </span> 59/pop-to-ecx -<span id="L28320" class="LineNr">28320 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28321" class="LineNr">28321 </span> 89/<- %esp 5/r32/ebp -<span id="L28322" class="LineNr">28322 </span> 5d/pop-to-ebp -<span id="L28323" class="LineNr">28323 </span> c3/return -<span id="L28324" class="LineNr">28324 </span> -<span id="L28325" class="LineNr">28325 </span><span class="subxFunction">assigns-in-stmt?</span>: <span class="subxComment"># stmt: (addr stmt), v: (addr var) -> result/eax: boolean</span> -<span id="L28326" class="LineNr">28326 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28327" class="LineNr">28327 </span> 55/push-ebp -<span id="L28328" class="LineNr">28328 </span> 89/<- %ebp 4/r32/esp -<span id="L28329" class="LineNr">28329 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28330" class="LineNr">28330 </span> 51/push-ecx -<span id="L28331" class="LineNr">28331 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L28332" class="LineNr">28332 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28333" class="LineNr">28333 </span> <span class="subxComment"># if stmt is a stmt1, return assigns-in-stmt-vars?(stmt->outputs, v)</span> -<span id="L28334" class="LineNr">28334 </span> { -<span id="L28335" class="LineNr">28335 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L28336" class="LineNr">28336 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28337" class="LineNr">28337 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L28338" class="LineNr">28338 </span> (<a href='mu.subx.html#L28359'>assigns-in-stmt-vars?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L28339" class="LineNr">28339 </span> eb/jump $assigns-in-stmt?:end/disp8 -<span id="L28340" class="LineNr">28340 </span> } -<span id="L28341" class="LineNr">28341 </span> <span class="subxComment"># if stmt is a block, return assigns-in-stmts?(stmt->stmts, v)</span> -<span id="L28342" class="LineNr">28342 </span> { -<span id="L28343" class="LineNr">28343 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L28344" class="LineNr">28344 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28345" class="LineNr">28345 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L28346" class="LineNr">28346 </span> (<a href='mu.subx.html#L28294'>assigns-in-stmts?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L28347" class="LineNr">28347 </span> eb/jump $assigns-in-stmt?:end/disp8 -<span id="L28348" class="LineNr">28348 </span> } -<span id="L28349" class="LineNr">28349 </span> <span class="subxComment"># otherwise return false</span> -<span id="L28350" class="LineNr">28350 </span> b8/copy 0/imm32/false -<span id="L28351" class="LineNr">28351 </span><span class="Constant">$assigns-in-stmt?:end</span>: -<span id="L28352" class="LineNr">28352 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28353" class="LineNr">28353 </span> 59/pop-to-ecx -<span id="L28354" class="LineNr">28354 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28355" class="LineNr">28355 </span> 89/<- %esp 5/r32/ebp -<span id="L28356" class="LineNr">28356 </span> 5d/pop-to-ebp -<span id="L28357" class="LineNr">28357 </span> c3/return -<span id="L28358" class="LineNr">28358 </span> -<span id="L28359" class="LineNr">28359 </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="L28360" class="LineNr">28360 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28361" class="LineNr">28361 </span> 55/push-ebp -<span id="L28362" class="LineNr">28362 </span> 89/<- %ebp 4/r32/esp -<span id="L28363" class="LineNr">28363 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28364" class="LineNr">28364 </span> 51/push-ecx -<span id="L28365" class="LineNr">28365 </span> <span class="subxComment"># var curr/ecx: (addr stmt-var) = stmt-var</span> -<span id="L28366" class="LineNr">28366 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28367" class="LineNr">28367 </span> { -<span id="L28368" class="LineNr">28368 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L28369" class="LineNr">28369 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L28370" class="LineNr">28370 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28371" class="LineNr">28371 </span> <span class="subxComment"># eax = lookup(curr->value)</span> -<span id="L28372" class="LineNr">28372 </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="L28373" class="LineNr">28373 </span> <span class="subxComment"># if (eax == v && curr->is-deref? == false) return true</span> -<span id="L28374" class="LineNr">28374 </span> { -<span id="L28375" class="LineNr">28375 </span> 39/compare *(ebp+0xc) 0/r32/eax -<span id="L28376" class="LineNr">28376 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28377" class="LineNr">28377 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L28378" class="LineNr">28378 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28379" class="LineNr">28379 </span> b8/copy-to-eax 1/imm32/true -<span id="L28380" class="LineNr">28380 </span> eb/jump $assigns-in-stmt-vars?:end/disp8 -<span id="L28381" class="LineNr">28381 </span> } -<span id="L28382" class="LineNr">28382 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L28383" class="LineNr">28383 </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="L28384" class="LineNr">28384 </span> 89/<- %ecx 0/r32/eax -<span id="L28385" class="LineNr">28385 </span> <span class="subxComment">#</span> -<span id="L28386" class="LineNr">28386 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L28387" class="LineNr">28387 </span> } -<span id="L28388" class="LineNr">28388 </span><span class="Constant">$assigns-in-stmt-vars?:end</span>: -<span id="L28389" class="LineNr">28389 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28257" class="LineNr">28257 </span> 50/push-eax +<span id="L28258" class="LineNr">28258 </span> 51/push-ecx +<span id="L28259" class="LineNr">28259 </span> 52/push-edx +<span id="L28260" class="LineNr">28260 </span> 53/push-ebx +<span id="L28261" class="LineNr">28261 </span> 56/push-esi +<span id="L28262" class="LineNr">28262 </span> <span class="subxComment"># ecx = vars</span> +<span id="L28263" class="LineNr">28263 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28264" class="LineNr">28264 </span> <span class="subxComment"># var esi: int = vars->top</span> +<span id="L28265" class="LineNr">28265 </span> 8b/-> *ecx 6/r32/esi +<span id="L28266" class="LineNr">28266 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L28267" class="LineNr">28267 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L28268" class="LineNr">28268 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L28269" class="LineNr">28269 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L28270" class="LineNr">28270 </span> <span class="subxComment"># edx = until-block-depth</span> +<span id="L28271" class="LineNr">28271 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L28272" class="LineNr">28272 </span> { +<span id="L28273" class="LineNr">28273 </span><span class="Constant">$clean-up-stack-offset-state:loop</span>: +<span id="L28274" class="LineNr">28274 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L28275" class="LineNr">28275 </span> 39/compare %esi 1/r32/ecx +<span id="L28276" class="LineNr">28276 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L28277" class="LineNr">28277 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L28278" class="LineNr">28278 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L28279" class="LineNr">28279 </span> 89/<- %ebx 0/r32/eax +<span id="L28280" class="LineNr">28280 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L28281" class="LineNr">28281 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L28282" class="LineNr">28282 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L28283" class="LineNr">28283 </span> <span class="subxComment"># if v is in a register</span> +<span id="L28284" class="LineNr">28284 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L28285" class="LineNr">28285 </span> { +<span id="L28286" class="LineNr">28286 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28287" class="LineNr">28287 </span> { +<span id="L28288" class="LineNr">28288 </span><span class="Constant">$clean-up-stack-offset-state:check-for-previous-spill</span>: +<span id="L28289" class="LineNr">28289 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L28290" class="LineNr">28290 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28291" class="LineNr">28291 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28292" class="LineNr">28292 </span><span class="Constant">$clean-up-stack-offset-state:reclaim-var-in-register</span>: +<span id="L28293" class="LineNr">28293 </span> 81 0/subop/add *<span class="SpecialChar"><a href='mu.subx.html#L27173'>Curr-local-stack-offset</a></span> 4/imm32 +<span id="L28294" class="LineNr">28294 </span> } +<span id="L28295" class="LineNr">28295 </span> eb/jump $clean-up-stack-offset-state:continue/disp8 +<span id="L28296" class="LineNr">28296 </span> } +<span id="L28297" class="LineNr">28297 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L28298" class="LineNr">28298 </span> { +<span id="L28299" class="LineNr">28299 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28300" class="LineNr">28300 </span><span class="Constant">$clean-up-stack-offset-state:var-on-stack</span>: +<span id="L28301" class="LineNr">28301 </span> (<a href='mu.subx.html#L26770'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L28302" class="LineNr">28302 </span> 01/add-to *<span class="SpecialChar"><a href='mu.subx.html#L27173'>Curr-local-stack-offset</a></span> 0/r32/eax +<span id="L28303" class="LineNr">28303 </span> } +<span id="L28304" class="LineNr">28304 </span><span class="Constant">$clean-up-stack-offset-state:continue</span>: +<span id="L28305" class="LineNr">28305 </span> <span class="subxComment"># curr -= 12</span> +<span id="L28306" class="LineNr">28306 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L28307" class="LineNr">28307 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L28308" class="LineNr">28308 </span> } +<span id="L28309" class="LineNr">28309 </span><span class="Constant">$clean-up-stack-offset-state:end</span>: +<span id="L28310" class="LineNr">28310 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28311" class="LineNr">28311 </span> 5e/pop-to-esi +<span id="L28312" class="LineNr">28312 </span> 5b/pop-to-ebx +<span id="L28313" class="LineNr">28313 </span> 5a/pop-to-edx +<span id="L28314" class="LineNr">28314 </span> 59/pop-to-ecx +<span id="L28315" class="LineNr">28315 </span> 58/pop-to-eax +<span id="L28316" class="LineNr">28316 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28317" class="LineNr">28317 </span> 89/<- %esp 5/r32/ebp +<span id="L28318" class="LineNr">28318 </span> 5d/pop-to-ebp +<span id="L28319" class="LineNr">28319 </span> c3/return +<span id="L28320" class="LineNr">28320 </span> +<span id="L28321" class="LineNr">28321 </span><span class="subxComment"># Return true if there isn't a variable in 'vars' with the same block-depth</span> +<span id="L28322" class="LineNr">28322 </span><span class="subxComment"># and register as 'v'.</span> +<span id="L28323" class="LineNr">28323 </span><span class="subxComment"># 'v' is guaranteed not to be within 'vars'.</span> +<span id="L28324" class="LineNr">28324 </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="L28325" class="LineNr">28325 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28326" class="LineNr">28326 </span> 55/push-ebp +<span id="L28327" class="LineNr">28327 </span> 89/<- %ebp 4/r32/esp +<span id="L28328" class="LineNr">28328 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28329" class="LineNr">28329 </span> 51/push-ecx +<span id="L28330" class="LineNr">28330 </span> 52/push-edx +<span id="L28331" class="LineNr">28331 </span> 53/push-ebx +<span id="L28332" class="LineNr">28332 </span> 56/push-esi +<span id="L28333" class="LineNr">28333 </span> 57/push-edi +<span id="L28334" class="LineNr">28334 </span> <span class="subxComment"># ecx = vars</span> +<span id="L28335" class="LineNr">28335 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L28336" class="LineNr">28336 </span> <span class="subxComment"># var eax: int = vars->top</span> +<span id="L28337" class="LineNr">28337 </span> 8b/-> *ecx 0/r32/eax +<span id="L28338" class="LineNr">28338 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L28339" class="LineNr">28339 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L28340" class="LineNr">28340 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L28341" class="LineNr">28341 </span> 8d/copy-address *(ecx+8) 1/r32/ecx +<span id="L28342" class="LineNr">28342 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> +<span id="L28343" class="LineNr">28343 </span> 8b/-> *(ebp+8) 3/r32/ebx +<span id="L28344" class="LineNr">28344 </span> 8b/-> *(ebx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L28345" class="LineNr">28345 </span> <span class="subxComment"># var needle/esi: (addr array byte) = v->register</span> +<span id="L28346" class="LineNr">28346 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L28347" class="LineNr">28347 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28348" class="LineNr">28348 </span> 89/<- %esi 0/r32/eax +<span id="L28349" class="LineNr">28349 </span> { +<span id="L28350" class="LineNr">28350 </span><span class="Constant">$not-yet-spilled-this-block?:loop</span>: +<span id="L28351" class="LineNr">28351 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L28352" class="LineNr">28352 </span> 39/compare %edx 1/r32/ecx +<span id="L28353" class="LineNr">28353 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L28354" class="LineNr">28354 </span> <span class="subxComment"># var cand/edi: (addr var) = lookup(*curr)</span> +<span id="L28355" class="LineNr">28355 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L28356" class="LineNr">28356 </span> 89/<- %edi 0/r32/eax +<span id="L28357" class="LineNr">28357 </span> <span class="subxComment"># if (cand->block-depth < depth) break</span> +<span id="L28358" class="LineNr">28358 </span> 39/compare *(edi+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L28359" class="LineNr">28359 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L28360" class="LineNr">28360 </span> <span class="subxComment"># var cand-reg/edi: (array array byte) = cand->reg</span> +<span id="L28361" class="LineNr">28361 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28362" class="LineNr">28362 </span> 89/<- %edi 0/r32/eax +<span id="L28363" class="LineNr">28363 </span> <span class="subxComment"># if (cand-reg == null) continue</span> +<span id="L28364" class="LineNr">28364 </span> { +<span id="L28365" class="LineNr">28365 </span><span class="Constant">$not-yet-spilled-this-block?:check-reg</span>: +<span id="L28366" class="LineNr">28366 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L28367" class="LineNr">28367 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28368" class="LineNr">28368 </span> <span class="subxComment"># if (cand-reg == needle) return true</span> +<span id="L28369" class="LineNr">28369 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> +<span id="L28370" class="LineNr">28370 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28371" class="LineNr">28371 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28372" class="LineNr">28372 </span><span class="Constant">$not-yet-spilled-this-block?:return-false</span>: +<span id="L28373" class="LineNr">28373 </span> b8/copy-to-eax 0/imm32/false +<span id="L28374" class="LineNr">28374 </span> eb/jump $not-yet-spilled-this-block?:end/disp8 +<span id="L28375" class="LineNr">28375 </span> } +<span id="L28376" class="LineNr">28376 </span><span class="Constant">$not-yet-spilled-this-block?:continue</span>: +<span id="L28377" class="LineNr">28377 </span> <span class="subxComment"># curr -= 12</span> +<span id="L28378" class="LineNr">28378 </span> 81 5/subop/subtract %edx 0xc/imm32 +<span id="L28379" class="LineNr">28379 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L28380" class="LineNr">28380 </span> } +<span id="L28381" class="LineNr">28381 </span><span class="Constant">$not-yet-spilled-this-block?:return-true</span>: +<span id="L28382" class="LineNr">28382 </span> <span class="subxComment"># return true</span> +<span id="L28383" class="LineNr">28383 </span> b8/copy-to-eax 1/imm32/true +<span id="L28384" class="LineNr">28384 </span><span class="Constant">$not-yet-spilled-this-block?:end</span>: +<span id="L28385" class="LineNr">28385 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28386" class="LineNr">28386 </span> 5f/pop-to-edi +<span id="L28387" class="LineNr">28387 </span> 5e/pop-to-esi +<span id="L28388" class="LineNr">28388 </span> 5b/pop-to-ebx +<span id="L28389" class="LineNr">28389 </span> 5a/pop-to-edx <span id="L28390" class="LineNr">28390 </span> 59/pop-to-ecx <span id="L28391" class="LineNr">28391 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L28392" class="LineNr">28392 </span> 89/<- %esp 5/r32/ebp <span id="L28393" class="LineNr">28393 </span> 5d/pop-to-ebp <span id="L28394" class="LineNr">28394 </span> c3/return <span id="L28395" class="LineNr">28395 </span> -<span id="L28396" class="LineNr">28396 </span><span class="subxComment"># is there a var before 'v' with the same block-depth and register on the 'vars' stack?</span> -<span id="L28397" class="LineNr">28397 </span><span class="subxComment"># v is guaranteed to be within vars</span> -<span id="L28398" class="LineNr">28398 </span><span class="subxComment"># 'start' is provided as an optimization, a pointer within vars</span> -<span id="L28399" class="LineNr">28399 </span><span class="subxComment"># *start == v</span> -<span id="L28400" class="LineNr">28400 </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="L28401" class="LineNr">28401 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28402" class="LineNr">28402 </span> 55/push-ebp -<span id="L28403" class="LineNr">28403 </span> 89/<- %ebp 4/r32/esp -<span id="L28404" class="LineNr">28404 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28405" class="LineNr">28405 </span> 51/push-ecx -<span id="L28406" class="LineNr">28406 </span> 52/push-edx -<span id="L28407" class="LineNr">28407 </span> 53/push-ebx -<span id="L28408" class="LineNr">28408 </span> 56/push-esi -<span id="L28409" class="LineNr">28409 </span> 57/push-edi -<span id="L28410" class="LineNr">28410 </span> <span class="subxComment"># ecx = v</span> -<span id="L28411" class="LineNr">28411 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28412" class="LineNr">28412 </span> <span class="subxComment"># var reg/edx: (addr array byte) = lookup(v->register)</span> -<span id="L28413" class="LineNr">28413 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28414" class="LineNr">28414 </span> 89/<- %edx 0/r32/eax -<span id="L28415" class="LineNr">28415 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> -<span id="L28416" class="LineNr">28416 </span> 8b/-> *(ecx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L28417" class="LineNr">28417 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L28418" class="LineNr">28418 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L28419" class="LineNr">28419 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L28420" class="LineNr">28420 </span> <span class="subxComment"># TODO: check that start >= min and start < &vars->data[top]</span> -<span id="L28421" class="LineNr">28421 </span> <span class="subxComment"># TODO: check that *start == v</span> -<span id="L28422" class="LineNr">28422 </span> <span class="subxComment"># var curr/esi: (addr handle var) = start</span> -<span id="L28423" class="LineNr">28423 </span> 8b/-> *(ebp+0x10) 6/r32/esi -<span id="L28424" class="LineNr">28424 </span> <span class="subxComment"># curr -= 8</span> -<span id="L28425" class="LineNr">28425 </span> 81 5/subop/subtract %esi 8/imm32 -<span id="L28426" class="LineNr">28426 </span> { -<span id="L28427" class="LineNr">28427 </span><span class="Constant">$same-register-spilled-before?:loop</span>: -<span id="L28428" class="LineNr">28428 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L28429" class="LineNr">28429 </span> 39/compare %esi 1/r32/ecx -<span id="L28430" class="LineNr">28430 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L28431" class="LineNr">28431 </span> <span class="subxComment"># var x/eax: (addr var) = lookup(*curr)</span> -<span id="L28432" class="LineNr">28432 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L28433" class="LineNr">28433 </span> <span class="subxComment"># if (x->block-depth < depth) break</span> -<span id="L28434" class="LineNr">28434 </span> 39/compare *(eax+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L28435" class="LineNr">28435 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L28436" class="LineNr">28436 </span> <span class="subxComment"># if (x->register == 0) continue</span> -<span id="L28437" class="LineNr">28437 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L28438" class="LineNr">28438 </span> 74/jump-if-= $same-register-spilled-before?:continue/disp8 -<span id="L28439" class="LineNr">28439 </span> <span class="subxComment"># if (x->register == reg) return true</span> -<span id="L28440" class="LineNr">28440 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28441" class="LineNr">28441 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %edx) <span class="subxComment"># => eax</span> -<span id="L28442" class="LineNr">28442 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28443" class="LineNr">28443 </span> b8/copy-to-eax 1/imm32/true -<span id="L28444" class="LineNr">28444 </span> 75/jump-if-!= $same-register-spilled-before?:end/disp8 -<span id="L28445" class="LineNr">28445 </span><span class="Constant">$same-register-spilled-before?:continue</span>: -<span id="L28446" class="LineNr">28446 </span> <span class="subxComment"># curr -= 8</span> -<span id="L28447" class="LineNr">28447 </span> 81 5/subop/subtract %esi 8/imm32 -<span id="L28448" class="LineNr">28448 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L28449" class="LineNr">28449 </span> } -<span id="L28450" class="LineNr">28450 </span><span class="Constant">$same-register-spilled-before?:false</span>: -<span id="L28451" class="LineNr">28451 </span> b8/copy-to-eax 0/imm32/false -<span id="L28452" class="LineNr">28452 </span><span class="Constant">$same-register-spilled-before?:end</span>: -<span id="L28453" class="LineNr">28453 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28454" class="LineNr">28454 </span> 5f/pop-to-edi -<span id="L28455" class="LineNr">28455 </span> 5e/pop-to-esi -<span id="L28456" class="LineNr">28456 </span> 5b/pop-to-ebx -<span id="L28457" class="LineNr">28457 </span> 5a/pop-to-edx -<span id="L28458" class="LineNr">28458 </span> 59/pop-to-ecx -<span id="L28459" class="LineNr">28459 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28460" class="LineNr">28460 </span> 89/<- %esp 5/r32/ebp -<span id="L28461" class="LineNr">28461 </span> 5d/pop-to-ebp -<span id="L28462" class="LineNr">28462 </span> c3/return -<span id="L28463" class="LineNr">28463 </span> -<span id="L28464" class="LineNr">28464 </span><span class="subxComment"># clean up global state for 'vars' until some block depth (inclusive)</span> -<span id="L28465" class="LineNr">28465 </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="L28466" class="LineNr">28466 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28467" class="LineNr">28467 </span> 55/push-ebp -<span id="L28468" class="LineNr">28468 </span> 89/<- %ebp 4/r32/esp -<span id="L28469" class="LineNr">28469 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28470" class="LineNr">28470 </span> 50/push-eax -<span id="L28471" class="LineNr">28471 </span> 51/push-ecx -<span id="L28472" class="LineNr">28472 </span> 56/push-esi -<span id="L28473" class="LineNr">28473 </span> <span class="subxComment"># esi = vars</span> -<span id="L28474" class="LineNr">28474 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L28475" class="LineNr">28475 </span> <span class="subxComment"># ecx = until-block-depth</span> -<span id="L28476" class="LineNr">28476 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L28396" class="LineNr">28396 </span><span class="subxComment"># could the register of 'v' ever be written to by one of the vars in fn-outputs?</span> +<span id="L28397" class="LineNr">28397 </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="L28398" class="LineNr">28398 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28399" class="LineNr">28399 </span> 55/push-ebp +<span id="L28400" class="LineNr">28400 </span> 89/<- %ebp 4/r32/esp +<span id="L28401" class="LineNr">28401 </span> <span class="subxComment"># eax = v</span> +<span id="L28402" class="LineNr">28402 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28403" class="LineNr">28403 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> +<span id="L28404" class="LineNr">28404 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28405" class="LineNr">28405 </span> <span class="subxComment"># var target/eax: (addr var) = find-register(fn-outputs, reg)</span> +<span id="L28406" class="LineNr">28406 </span> (<a href='mu.subx.html#L28427'>find-register</a> *(ebp+0x10) %eax) <span class="subxComment"># => eax</span> +<span id="L28407" class="LineNr">28407 </span> <span class="subxComment"># if (target == 0) return true</span> +<span id="L28408" class="LineNr">28408 </span> { +<span id="L28409" class="LineNr">28409 </span> 3d/compare-eax-and 0/imm32 +<span id="L28410" class="LineNr">28410 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28411" class="LineNr">28411 </span> b8/copy-to-eax 1/imm32/true +<span id="L28412" class="LineNr">28412 </span> eb/jump $will-not-write-some-register?:end/disp8 +<span id="L28413" class="LineNr">28413 </span> } +<span id="L28414" class="LineNr">28414 </span> <span class="subxComment"># return !assigns-in-stmts?(stmts, target)</span> +<span id="L28415" class="LineNr">28415 </span> (<a href='mu.subx.html#L28469'>assigns-in-stmts?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> +<span id="L28416" class="LineNr">28416 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28417" class="LineNr">28417 </span> <span class="subxComment"># assume: true = 1, so no need to mask with 0x000000ff</span> +<span id="L28418" class="LineNr">28418 </span> 0f 94/set-if-= %al +<span id="L28419" class="LineNr">28419 </span><span class="Constant">$will-not-write-some-register?:end</span>: +<span id="L28420" class="LineNr">28420 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28421" class="LineNr">28421 </span> 89/<- %esp 5/r32/ebp +<span id="L28422" class="LineNr">28422 </span> 5d/pop-to-ebp +<span id="L28423" class="LineNr">28423 </span> c3/return +<span id="L28424" class="LineNr">28424 </span> +<span id="L28425" class="LineNr">28425 </span><span class="subxComment"># return fn output with matching register</span> +<span id="L28426" class="LineNr">28426 </span><span class="subxComment"># always returns false if 'reg' is null</span> +<span id="L28427" class="LineNr">28427 </span><span class="subxFunction">find-register</span>: <span class="subxComment"># fn: (addr function), reg: (addr array byte) -> result/eax: (addr var)</span> +<span id="L28428" class="LineNr">28428 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28429" class="LineNr">28429 </span> 55/push-ebp +<span id="L28430" class="LineNr">28430 </span> 89/<- %ebp 4/r32/esp +<span id="L28431" class="LineNr">28431 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28432" class="LineNr">28432 </span> 51/push-ecx +<span id="L28433" class="LineNr">28433 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> +<span id="L28434" class="LineNr">28434 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28435" class="LineNr">28435 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L28436" class="LineNr">28436 </span> 89/<- %ecx 0/r32/eax +<span id="L28437" class="LineNr">28437 </span> { +<span id="L28438" class="LineNr">28438 </span><span class="Constant">$find-register:loop</span>: +<span id="L28439" class="LineNr">28439 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L28440" class="LineNr">28440 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L28441" class="LineNr">28441 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28442" class="LineNr">28442 </span> <span class="subxComment"># eax = curr->value->register</span> +<span id="L28443" class="LineNr">28443 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L28444" class="LineNr">28444 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28445" class="LineNr">28445 </span> <span class="subxComment"># if (eax == reg) return curr->value</span> +<span id="L28446" class="LineNr">28446 </span><span class="Constant">$find-register:compare</span>: +<span id="L28447" class="LineNr">28447 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> +<span id="L28448" class="LineNr">28448 </span> { +<span id="L28449" class="LineNr">28449 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28450" class="LineNr">28450 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28451" class="LineNr">28451 </span><span class="Constant">$find-register:found</span>: +<span id="L28452" class="LineNr">28452 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L28453" class="LineNr">28453 </span> eb/jump $find-register:end/disp8 +<span id="L28454" class="LineNr">28454 </span> } +<span id="L28455" class="LineNr">28455 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L28456" class="LineNr">28456 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L28457" class="LineNr">28457 </span> 89/<- %ecx 0/r32/eax +<span id="L28458" class="LineNr">28458 </span> <span class="subxComment">#</span> +<span id="L28459" class="LineNr">28459 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28460" class="LineNr">28460 </span> } +<span id="L28461" class="LineNr">28461 </span><span class="Constant">$find-register:end</span>: +<span id="L28462" class="LineNr">28462 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28463" class="LineNr">28463 </span> 59/pop-to-ecx +<span id="L28464" class="LineNr">28464 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28465" class="LineNr">28465 </span> 89/<- %esp 5/r32/ebp +<span id="L28466" class="LineNr">28466 </span> 5d/pop-to-ebp +<span id="L28467" class="LineNr">28467 </span> c3/return +<span id="L28468" class="LineNr">28468 </span> +<span id="L28469" class="LineNr">28469 </span><span class="subxFunction">assigns-in-stmts?</span>: <span class="subxComment"># stmts: (addr list stmt), v: (addr var) -> result/eax: boolean</span> +<span id="L28470" class="LineNr">28470 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28471" class="LineNr">28471 </span> 55/push-ebp +<span id="L28472" class="LineNr">28472 </span> 89/<- %ebp 4/r32/esp +<span id="L28473" class="LineNr">28473 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28474" class="LineNr">28474 </span> 51/push-ecx +<span id="L28475" class="LineNr">28475 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = stmts</span> +<span id="L28476" class="LineNr">28476 </span> 8b/-> *(ebp+8) 1/r32/ecx <span id="L28477" class="LineNr">28477 </span> { -<span id="L28478" class="LineNr">28478 </span><span class="Constant">$clean-up-blocks:reclaim-loop</span>: -<span id="L28479" class="LineNr">28479 </span> <span class="subxComment"># if (vars->top <= 0) break</span> -<span id="L28480" class="LineNr">28480 </span> 8b/-> *esi 0/r32/eax <span class="subxComment"># Stack-top</span> -<span id="L28481" class="LineNr">28481 </span> 3d/compare-eax-and 0/imm32 -<span id="L28482" class="LineNr">28482 </span> 0f 8e/jump-if-<= <span class="Constant">break</span>/disp32 -<span id="L28483" class="LineNr">28483 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(vars[vars->top-12])</span> -<span id="L28484" class="LineNr">28484 </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="L28485" class="LineNr">28485 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L28486" class="LineNr">28486 </span> 39/compare *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> -<span id="L28487" class="LineNr">28487 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L28488" class="LineNr">28488 </span> (<a href='203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> -<span id="L28489" class="LineNr">28489 </span> (<a href='203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> -<span id="L28490" class="LineNr">28490 </span> (<a href='203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> -<span id="L28491" class="LineNr">28491 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L28492" class="LineNr">28492 </span> } -<span id="L28493" class="LineNr">28493 </span><span class="Constant">$clean-up-blocks:end</span>: -<span id="L28494" class="LineNr">28494 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28495" class="LineNr">28495 </span> 5e/pop-to-esi -<span id="L28496" class="LineNr">28496 </span> 59/pop-to-ecx -<span id="L28497" class="LineNr">28497 </span> 58/pop-to-eax -<span id="L28498" class="LineNr">28498 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28499" class="LineNr">28499 </span> 89/<- %esp 5/r32/ebp -<span id="L28500" class="LineNr">28500 </span> 5d/pop-to-ebp -<span id="L28501" class="LineNr">28501 </span> c3/return -<span id="L28502" class="LineNr">28502 </span> -<span id="L28503" class="LineNr">28503 </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="L28504" class="LineNr">28504 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28505" class="LineNr">28505 </span> 55/push-ebp -<span id="L28506" class="LineNr">28506 </span> 89/<- %ebp 4/r32/esp -<span id="L28507" class="LineNr">28507 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28508" class="LineNr">28508 </span> 51/push-ecx -<span id="L28509" class="LineNr">28509 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> -<span id="L28510" class="LineNr">28510 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L28511" class="LineNr">28511 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L28512" class="LineNr">28512 </span> 89/<- %ecx 0/r32/eax -<span id="L28513" class="LineNr">28513 </span> <span class="subxComment"># while curr != null</span> -<span id="L28514" class="LineNr">28514 </span> { -<span id="L28515" class="LineNr">28515 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L28516" class="LineNr">28516 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28517" class="LineNr">28517 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(curr->value)</span> -<span id="L28518" class="LineNr">28518 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L28519" class="LineNr">28519 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> -<span id="L28520" class="LineNr">28520 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28521" class="LineNr">28521 </span> <span class="subxComment"># if (reg == target) return true</span> -<span id="L28522" class="LineNr">28522 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L28523" class="LineNr">28523 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28524" class="LineNr">28524 </span> 75/jump-if-!= $reg-in-function-outputs?:end/disp8 -<span id="L28525" class="LineNr">28525 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L28526" class="LineNr">28526 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L28527" class="LineNr">28527 </span> 89/<- %ecx 0/r32/eax -<span id="L28528" class="LineNr">28528 </span> <span class="subxComment">#</span> -<span id="L28529" class="LineNr">28529 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L28530" class="LineNr">28530 </span> } -<span id="L28531" class="LineNr">28531 </span> <span class="subxComment"># return false</span> -<span id="L28532" class="LineNr">28532 </span> b8/copy-to-eax 0/imm32 -<span id="L28533" class="LineNr">28533 </span><span class="Constant">$reg-in-function-outputs?:end</span>: -<span id="L28534" class="LineNr">28534 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28535" class="LineNr">28535 </span> 59/pop-to-ecx -<span id="L28536" class="LineNr">28536 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28537" class="LineNr">28537 </span> 89/<- %esp 5/r32/ebp -<span id="L28538" class="LineNr">28538 </span> 5d/pop-to-ebp -<span id="L28539" class="LineNr">28539 </span> c3/return -<span id="L28540" class="LineNr">28540 </span> -<span id="L28541" class="LineNr">28541 </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="L28542" class="LineNr">28542 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28543" class="LineNr">28543 </span> 55/push-ebp -<span id="L28544" class="LineNr">28544 </span> 89/<- %ebp 4/r32/esp -<span id="L28545" class="LineNr">28545 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28546" class="LineNr">28546 </span> 50/push-eax -<span id="L28547" class="LineNr">28547 </span> 51/push-ecx -<span id="L28548" class="LineNr">28548 </span> 52/push-edx -<span id="L28549" class="LineNr">28549 </span> <span class="subxComment"># eax = stmt</span> -<span id="L28550" class="LineNr">28550 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L28551" class="LineNr">28551 </span> <span class="subxComment"># var v/ecx: (addr var)</span> -<span id="L28552" class="LineNr">28552 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> -<span id="L28553" class="LineNr">28553 </span> 89/<- %ecx 0/r32/eax -<span id="L28554" class="LineNr">28554 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> -<span id="L28555" class="LineNr">28555 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/r32/eax -<span id="L28556" class="LineNr">28556 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L28557" class="LineNr">28557 </span> <span class="subxComment"># var n/edx: int = size-of(stmt->var)</span> -<span id="L28558" class="LineNr">28558 </span> (<a href='mu.subx.html#L26595'>size-of</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L28559" class="LineNr">28559 </span> 89/<- %edx 0/r32/eax -<span id="L28560" class="LineNr">28560 </span> <span class="subxComment"># *Curr-local-stack-offset -= n</span> -<span id="L28561" class="LineNr">28561 </span> 29/subtract-from *<span class="SpecialChar"><a href='mu.subx.html#L26998'>Curr-local-stack-offset</a></span> 2/r32/edx -<span id="L28562" class="LineNr">28562 </span> <span class="subxComment"># v->offset = *Curr-local-stack-offset</span> -<span id="L28563" class="LineNr">28563 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L26998'>Curr-local-stack-offset</a></span> 0/r32/eax -<span id="L28564" class="LineNr">28564 </span> 89/<- *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L28565" class="LineNr">28565 </span> <span class="subxComment"># if v is an array, do something special to initialize it</span> -<span id="L28566" class="LineNr">28566 </span> { -<span id="L28567" class="LineNr">28567 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L28568" class="LineNr">28568 </span> (<a href='mu.subx.html#L26692'>mu-array?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L28569" class="LineNr">28569 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28570" class="LineNr">28570 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28571" class="LineNr">28571 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-4</span> -<span id="L28572" class="LineNr">28572 </span> 81 5/subop/subtract %edx 4/imm32 -<span id="L28573" class="LineNr">28573 </span> <span class="subxComment">#</span> -<span id="L28574" class="LineNr">28574 </span> (<a href='mu.subx.html#L28617'>emit-array-data-initialization</a> *(ebp+8) %edx) -<span id="L28575" class="LineNr">28575 </span> e9/jump $emit-subx-var-def:end/disp32 -<span id="L28576" class="LineNr">28576 </span> } -<span id="L28577" class="LineNr">28577 </span> <span class="subxComment"># another special-case for initializing streams</span> -<span id="L28578" class="LineNr">28578 </span> <span class="subxComment"># a stream is an array with 2 extra pointers</span> -<span id="L28579" class="LineNr">28579 </span> { -<span id="L28580" class="LineNr">28580 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L28581" class="LineNr">28581 </span> (<a href='mu.subx.html#L26757'>mu-stream?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L28582" class="LineNr">28582 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28583" class="LineNr">28583 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28584" class="LineNr">28584 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-12</span> -<span id="L28585" class="LineNr">28585 </span> 81 5/subop/subtract %edx 0xc/imm32 -<span id="L28586" class="LineNr">28586 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L28587" class="LineNr">28587 </span> (<a href='mu.subx.html#L28636'>emit-stream-data-initialization</a> *(ebp+8) %edx %eax *(ebp+0x10) *(ebp+0x14)) -<span id="L28588" class="LineNr">28588 </span> <span class="subxComment"># emit read and write pointers</span> -<span id="L28589" class="LineNr">28589 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28590" class="LineNr">28590 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) -<span id="L28591" class="LineNr">28591 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28592" class="LineNr">28592 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) -<span id="L28593" class="LineNr">28593 </span> <span class="subxComment">#</span> -<span id="L28594" class="LineNr">28594 </span> eb/jump $emit-subx-var-def:end/disp8 -<span id="L28595" class="LineNr">28595 </span> } -<span id="L28596" class="LineNr">28596 </span> <span class="subxComment"># while n > 0</span> -<span id="L28597" class="LineNr">28597 </span> { -<span id="L28598" class="LineNr">28598 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L28599" class="LineNr">28599 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L28600" class="LineNr">28600 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28601" class="LineNr">28601 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) -<span id="L28602" class="LineNr">28602 </span> <span class="subxComment"># n -= 4</span> -<span id="L28603" class="LineNr">28603 </span> 81 5/subop/subtract %edx 4/imm32 -<span id="L28604" class="LineNr">28604 </span> <span class="subxComment">#</span> -<span id="L28605" class="LineNr">28605 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L28606" class="LineNr">28606 </span> } -<span id="L28607" class="LineNr">28607 </span><span class="Constant">$emit-subx-var-def:end</span>: -<span id="L28608" class="LineNr">28608 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28609" class="LineNr">28609 </span> 5a/pop-to-edx -<span id="L28610" class="LineNr">28610 </span> 59/pop-to-ecx -<span id="L28611" class="LineNr">28611 </span> 58/pop-to-eax -<span id="L28612" class="LineNr">28612 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28613" class="LineNr">28613 </span> 89/<- %esp 5/r32/ebp -<span id="L28614" class="LineNr">28614 </span> 5d/pop-to-ebp -<span id="L28615" class="LineNr">28615 </span> c3/return -<span id="L28616" class="LineNr">28616 </span> -<span id="L28617" class="LineNr">28617 </span><span class="subxFunction">emit-array-data-initialization</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> -<span id="L28618" class="LineNr">28618 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28619" class="LineNr">28619 </span> 55/push-ebp -<span id="L28620" class="LineNr">28620 </span> 89/<- %ebp 4/r32/esp -<span id="L28621" class="LineNr">28621 </span> <span class="subxComment">#</span> -<span id="L28622" class="LineNr">28622 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28623" class="LineNr">28623 </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="L28624" class="LineNr">28624 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L28625" class="LineNr">28625 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L28626" class="LineNr">28626 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28627" class="LineNr">28627 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push "</span>) -<span id="L28628" class="LineNr">28628 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L28629" class="LineNr">28629 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L28630" class="LineNr">28630 </span><span class="Constant">$emit-array-data-initialization:end</span>: -<span id="L28631" class="LineNr">28631 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28632" class="LineNr">28632 </span> 89/<- %esp 5/r32/ebp -<span id="L28633" class="LineNr">28633 </span> 5d/pop-to-ebp -<span id="L28634" class="LineNr">28634 </span> c3/return -<span id="L28635" class="LineNr">28635 </span> -<span id="L28636" class="LineNr">28636 </span><span class="subxFunction">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="L28637" class="LineNr">28637 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28638" class="LineNr">28638 </span> 55/push-ebp -<span id="L28639" class="LineNr">28639 </span> 89/<- %ebp 4/r32/esp -<span id="L28640" class="LineNr">28640 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28641" class="LineNr">28641 </span> 50/push-eax -<span id="L28642" class="LineNr">28642 </span> <span class="subxComment"># Optimization: if it's a stream of bytes, don't initialize.</span> -<span id="L28643" class="LineNr">28643 </span> <span class="subxComment">#</span> -<span id="L28644" class="LineNr">28644 </span> <span class="subxComment"># We often construct large temporary streams on the stack for 'trace'</span> -<span id="L28645" class="LineNr">28645 </span> <span class="subxComment"># statements. Initializing such streams can significantly slow programs</span> -<span id="L28646" class="LineNr">28646 </span> <span class="subxComment"># down.</span> -<span id="L28647" class="LineNr">28647 </span> <span class="subxComment">#</span> -<span id="L28648" class="LineNr">28648 </span> <span class="subxComment"># Mu doesn't really depend on initializing stream contents for type- or</span> -<span id="L28649" class="LineNr">28649 </span> <span class="subxComment"># memory-safety; we're mostly doing so to make it easy to debug unsafe</span> -<span id="L28650" class="LineNr">28650 </span> <span class="subxComment"># SubX code that misuses stream objects by manipulating read/write</span> -<span id="L28651" class="LineNr">28651 </span> <span class="subxComment"># pointers. But you can't _really_ protect from unsafe SubX, so I think we</span> -<span id="L28652" class="LineNr">28652 </span> <span class="subxComment"># don't give up much safety or security here.</span> -<span id="L28653" class="LineNr">28653 </span> { -<span id="L28654" class="LineNr">28654 </span> (<a href='mu.subx.html#L29136'>stream-element-type-id</a> *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L28655" class="LineNr">28655 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L28656" class="LineNr">28656 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28657" class="LineNr">28657 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28658" class="LineNr">28658 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 5/subop/subtract %esp "</span>) -<span id="L28659" class="LineNr">28659 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L28660" class="LineNr">28660 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L28661" class="LineNr">28661 </span> eb/jump $emit-stream-data-initialization:emit-length/disp8 -<span id="L28662" class="LineNr">28662 </span> } -<span id="L28663" class="LineNr">28663 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28664" class="LineNr">28664 </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="L28665" class="LineNr">28665 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L28666" class="LineNr">28666 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L28667" class="LineNr">28667 </span><span class="Constant">$emit-stream-data-initialization:emit-length</span>: -<span id="L28668" class="LineNr">28668 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28669" class="LineNr">28669 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push "</span>) -<span id="L28670" class="LineNr">28670 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L28671" class="LineNr">28671 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L28672" class="LineNr">28672 </span><span class="Constant">$emit-stream-data-initialization:end</span>: -<span id="L28673" class="LineNr">28673 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28674" class="LineNr">28674 </span> 58/pop-to-eax -<span id="L28675" class="LineNr">28675 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28676" class="LineNr">28676 </span> 89/<- %esp 5/r32/ebp -<span id="L28677" class="LineNr">28677 </span> 5d/pop-to-ebp -<span id="L28678" class="LineNr">28678 </span> c3/return -<span id="L28679" class="LineNr">28679 </span> -<span id="L28680" class="LineNr">28680 </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="L28681" class="LineNr">28681 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28682" class="LineNr">28682 </span> 55/push-ebp -<span id="L28683" class="LineNr">28683 </span> 89/<- %ebp 4/r32/esp -<span id="L28684" class="LineNr">28684 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28685" class="LineNr">28685 </span> 50/push-eax -<span id="L28686" class="LineNr">28686 </span> 51/push-ecx -<span id="L28687" class="LineNr">28687 </span> <span class="subxH1Comment"># - some special-case primitives that don't actually use the 'primitives' data structure</span> -<span id="L28688" class="LineNr">28688 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> -<span id="L28689" class="LineNr">28689 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L28690" class="LineNr">28690 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L28691" class="LineNr">28691 </span> 89/<- %ecx 0/r32/eax -<span id="L28692" class="LineNr">28692 </span> <span class="subxComment"># copy byte (can be a primitive except we need to emit a second instruction)</span> -<span id="L28693" class="LineNr">28693 </span> { -<span id="L28694" class="LineNr">28694 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-byte")) break</span> -<span id="L28695" class="LineNr">28695 </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="L28696" class="LineNr">28696 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28697" class="LineNr">28697 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28698" class="LineNr">28698 </span> (<a href='mu.subx.html#L29304'>translate-mu-copy-byte-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28699" class="LineNr">28699 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28700" class="LineNr">28700 </span> } -<span id="L28701" class="LineNr">28701 </span> <span class="subxComment"># copy-byte-to can be a primitive; writes to memory don't need to clear surrounding bytes</span> -<span id="L28702" class="LineNr">28702 </span> <span class="subxComment"># array size</span> -<span id="L28703" class="LineNr">28703 </span> { -<span id="L28704" class="LineNr">28704 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "length")) break</span> -<span id="L28705" class="LineNr">28705 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> -<span id="L28706" class="LineNr">28706 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28707" class="LineNr">28707 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28708" class="LineNr">28708 </span> (<a href='mu.subx.html#L28875'>translate-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28709" class="LineNr">28709 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28710" class="LineNr">28710 </span> } -<span id="L28711" class="LineNr">28711 </span> <span class="subxComment"># index into array</span> -<span id="L28712" class="LineNr">28712 </span> { -<span id="L28713" class="LineNr">28713 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "index")) break</span> -<span id="L28714" class="LineNr">28714 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> -<span id="L28715" class="LineNr">28715 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28716" class="LineNr">28716 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28717" class="LineNr">28717 </span> (<a href='mu.subx.html#L29346'>translate-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28718" class="LineNr">28718 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28719" class="LineNr">28719 </span> } -<span id="L28720" class="LineNr">28720 </span> <span class="subxComment"># compute-offset for index into array</span> -<span id="L28721" class="LineNr">28721 </span> { -<span id="L28722" class="LineNr">28722 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "compute-offset")) break</span> -<span id="L28723" class="LineNr">28723 </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="L28724" class="LineNr">28724 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28725" class="LineNr">28725 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28726" class="LineNr">28726 </span> (<a href='mu.subx.html#L29758'>translate-mu-compute-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28727" class="LineNr">28727 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28728" class="LineNr">28728 </span> } -<span id="L28729" class="LineNr">28729 </span> <span class="subxComment"># get field from record</span> -<span id="L28730" class="LineNr">28730 </span> { -<span id="L28731" class="LineNr">28731 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "get")) break</span> -<span id="L28732" class="LineNr">28732 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L28733" class="LineNr">28733 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28734" class="LineNr">28734 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28735" class="LineNr">28735 </span> (<a href='mu.subx.html#L29806'>translate-mu-get-stmt</a> *(ebp+8) *(ebp+0xc)) -<span id="L28736" class="LineNr">28736 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28737" class="LineNr">28737 </span> } -<span id="L28738" class="LineNr">28738 </span> <span class="subxComment"># allocate scalar</span> -<span id="L28739" class="LineNr">28739 </span> { -<span id="L28740" class="LineNr">28740 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "allocate")) break</span> -<span id="L28741" class="LineNr">28741 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> -<span id="L28742" class="LineNr">28742 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28743" class="LineNr">28743 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28744" class="LineNr">28744 </span> (<a href='mu.subx.html#L29943'>translate-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28745" class="LineNr">28745 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28746" class="LineNr">28746 </span> } -<span id="L28747" class="LineNr">28747 </span> <span class="subxComment"># copy-object</span> -<span id="L28748" class="LineNr">28748 </span> { -<span id="L28749" class="LineNr">28749 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-object")) break</span> -<span id="L28750" class="LineNr">28750 </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="L28751" class="LineNr">28751 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28752" class="LineNr">28752 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28753" class="LineNr">28753 </span> (<a href='mu.subx.html#L29886'>translate-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28754" class="LineNr">28754 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28755" class="LineNr">28755 </span> } -<span id="L28756" class="LineNr">28756 </span> <span class="subxComment"># clear-object</span> -<span id="L28757" class="LineNr">28757 </span> { -<span id="L28758" class="LineNr">28758 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "clear-object")) break</span> -<span id="L28759" class="LineNr">28759 </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="L28760" class="LineNr">28760 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28761" class="LineNr">28761 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28762" class="LineNr">28762 </span> (<a href='mu.subx.html#L29916'>translate-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28763" class="LineNr">28763 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28764" class="LineNr">28764 </span> } -<span id="L28765" class="LineNr">28765 </span> <span class="subxComment"># allocate array</span> -<span id="L28766" class="LineNr">28766 </span> { -<span id="L28767" class="LineNr">28767 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate")) break</span> -<span id="L28768" class="LineNr">28768 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> -<span id="L28769" class="LineNr">28769 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28770" class="LineNr">28770 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28771" class="LineNr">28771 </span> (<a href='mu.subx.html#L30039'>translate-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28772" class="LineNr">28772 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28773" class="LineNr">28773 </span> } -<span id="L28774" class="LineNr">28774 </span> <span class="subxComment"># allocate stream</span> -<span id="L28775" class="LineNr">28775 </span> { -<span id="L28776" class="LineNr">28776 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate-stream")) break</span> -<span id="L28777" class="LineNr">28777 </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="L28778" class="LineNr">28778 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28779" class="LineNr">28779 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28780" class="LineNr">28780 </span> (<a href='mu.subx.html#L30075'>translate-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28781" class="LineNr">28781 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28782" class="LineNr">28782 </span> } -<span id="L28783" class="LineNr">28783 </span> <span class="subxComment"># read from stream</span> -<span id="L28784" class="LineNr">28784 </span> { -<span id="L28785" class="LineNr">28785 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "read-from-stream")) break</span> -<span id="L28786" class="LineNr">28786 </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="L28787" class="LineNr">28787 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28788" class="LineNr">28788 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28789" class="LineNr">28789 </span> (<a href='mu.subx.html#L30111'>translate-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28790" class="LineNr">28790 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28791" class="LineNr">28791 </span> } -<span id="L28792" class="LineNr">28792 </span> <span class="subxComment"># write to stream</span> -<span id="L28793" class="LineNr">28793 </span> { -<span id="L28794" class="LineNr">28794 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "write-to-stream")) break</span> -<span id="L28795" class="LineNr">28795 </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="L28796" class="LineNr">28796 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28797" class="LineNr">28797 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28798" class="LineNr">28798 </span> (<a href='mu.subx.html#L30148'>translate-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28799" class="LineNr">28799 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28800" class="LineNr">28800 </span> } -<span id="L28801" class="LineNr">28801 </span> <span class="subxH1Comment"># - optimizations</span> -<span id="L28802" class="LineNr">28802 </span> <span class="subxComment"># if copy instruction has same register in source and destination, emit nothing</span> -<span id="L28803" class="LineNr">28803 </span> (<a href='mu.subx.html#L28829'>redundant-copy?</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L28804" class="LineNr">28804 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28805" class="LineNr">28805 </span> 75/jump-if-!= $emit-subx-stmt:end/disp8 -<span id="L28806" class="LineNr">28806 </span> <span class="subxH1Comment"># - if stmt matches a primitive, emit it</span> -<span id="L28807" class="LineNr">28807 </span> { -<span id="L28808" class="LineNr">28808 </span><span class="Constant">$emit-subx-stmt:check-for-primitive</span>: -<span id="L28809" class="LineNr">28809 </span> <span class="subxComment"># var curr/eax: (addr primitive)</span> -<span id="L28810" class="LineNr">28810 </span> (<a href='mu.subx.html#L35852'>find-matching-primitive</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># primitives, stmt => eax</span> -<span id="L28811" class="LineNr">28811 </span> 3d/compare-eax-and 0/imm32 -<span id="L28812" class="LineNr">28812 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28813" class="LineNr">28813 </span><span class="Constant">$emit-subx-stmt:primitive</span>: -<span id="L28814" class="LineNr">28814 </span> (<a href='mu.subx.html#L35323'>emit-subx-primitive</a> *(ebp+8) *(ebp+0xc) %eax) <span class="subxComment"># out, stmt, curr</span> -<span id="L28815" class="LineNr">28815 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28816" class="LineNr">28816 </span> } -<span id="L28817" class="LineNr">28817 </span> <span class="subxH1Comment"># - otherwise emit a call</span> -<span id="L28818" class="LineNr">28818 </span><span class="Constant">$emit-subx-stmt:call</span>: -<span id="L28819" class="LineNr">28819 </span> (<a href='mu.subx.html#L35592'>emit-call</a> *(ebp+8) *(ebp+0xc)) -<span id="L28820" class="LineNr">28820 </span><span class="Constant">$emit-subx-stmt:end</span>: -<span id="L28821" class="LineNr">28821 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28822" class="LineNr">28822 </span> 59/pop-to-ecx -<span id="L28823" class="LineNr">28823 </span> 58/pop-to-eax -<span id="L28824" class="LineNr">28824 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28825" class="LineNr">28825 </span> 89/<- %esp 5/r32/ebp -<span id="L28826" class="LineNr">28826 </span> 5d/pop-to-ebp -<span id="L28827" class="LineNr">28827 </span> c3/return -<span id="L28828" class="LineNr">28828 </span> -<span id="L28829" class="LineNr">28829 </span><span class="subxFunction">redundant-copy?</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: boolean</span> -<span id="L28830" class="LineNr">28830 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28831" class="LineNr">28831 </span> 55/push-ebp -<span id="L28832" class="LineNr">28832 </span> 89/<- %ebp 4/r32/esp -<span id="L28833" class="LineNr">28833 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28834" class="LineNr">28834 </span> 56/push-esi -<span id="L28835" class="LineNr">28835 </span> 57/push-edi -<span id="L28836" class="LineNr">28836 </span> <span class="subxComment"># esi = stmt</span> -<span id="L28837" class="LineNr">28837 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L28838" class="LineNr">28838 </span> <span class="subxComment"># if stmt->operation != "copy" return false</span> -<span id="L28839" class="LineNr">28839 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L28840" class="LineNr">28840 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"copy"</span>) <span class="subxComment"># => eax</span> -<span id="L28841" class="LineNr">28841 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28842" class="LineNr">28842 </span> 0f 84/jump-if-= $redundant-copy?:end/disp32 -<span id="L28843" class="LineNr">28843 </span> <span class="subxComment"># var output-reg/edi: (addr stmt-var) = stmt->outputs->value->register</span> -<span id="L28844" class="LineNr">28844 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L28845" class="LineNr">28845 </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="L28846" class="LineNr">28846 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28847" class="LineNr">28847 </span> <span class="subxS1Comment"># . if output-reg == null, return false</span> -<span id="L28848" class="LineNr">28848 </span> 3d/compare-eax-and 0/imm32 -<span id="L28849" class="LineNr">28849 </span> 74/jump-if-= $redundant-copy?:end/disp8 -<span id="L28850" class="LineNr">28850 </span> 89/<- %edi 0/r32/eax -<span id="L28851" class="LineNr">28851 </span> <span class="subxComment"># return (inout->value->register == output->value->register)</span> -<span id="L28852" class="LineNr">28852 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L28853" class="LineNr">28853 </span> <span class="subxS1Comment"># . if inout->is-deref return false</span> -<span id="L28854" class="LineNr">28854 </span> 81 7/subop/compare *(eax+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L28855" class="LineNr">28855 </span> { -<span id="L28856" class="LineNr">28856 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28857" class="LineNr">28857 </span> b8/copy-to-eax 0/imm32/false -<span id="L28858" class="LineNr">28858 </span> e9/jump $redundant-copy?:end/disp32 -<span id="L28859" class="LineNr">28859 </span> } -<span id="L28860" class="LineNr">28860 </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="L28861" class="LineNr">28861 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28862" class="LineNr">28862 </span> <span class="subxS1Comment"># . if inout-reg == null, return false</span> -<span id="L28863" class="LineNr">28863 </span> 3d/compare-eax-and 0/imm32 -<span id="L28864" class="LineNr">28864 </span> 74/jump-if-= $redundant-copy?:end/disp8 -<span id="L28865" class="LineNr">28865 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %edi) <span class="subxComment"># => eax</span> -<span id="L28866" class="LineNr">28866 </span><span class="Constant">$redundant-copy?:end</span>: -<span id="L28867" class="LineNr">28867 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28868" class="LineNr">28868 </span> 5f/pop-to-edi -<span id="L28869" class="LineNr">28869 </span> 5e/pop-to-esi -<span id="L28870" class="LineNr">28870 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28871" class="LineNr">28871 </span> 89/<- %esp 5/r32/ebp -<span id="L28872" class="LineNr">28872 </span> 5d/pop-to-ebp -<span id="L28873" class="LineNr">28873 </span> c3/return -<span id="L28874" class="LineNr">28874 </span> -<span id="L28875" class="LineNr">28875 </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="L28876" class="LineNr">28876 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28877" class="LineNr">28877 </span> 55/push-ebp -<span id="L28878" class="LineNr">28878 </span> 89/<- %ebp 4/r32/esp -<span id="L28879" class="LineNr">28879 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28880" class="LineNr">28880 </span> 50/push-eax -<span id="L28881" class="LineNr">28881 </span> 51/push-ecx -<span id="L28882" class="LineNr">28882 </span> 52/push-edx -<span id="L28883" class="LineNr">28883 </span> 53/push-ebx -<span id="L28884" class="LineNr">28884 </span> 56/push-esi -<span id="L28885" class="LineNr">28885 </span> <span class="subxComment"># esi = stmt</span> -<span id="L28886" class="LineNr">28886 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L28887" class="LineNr">28887 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]->value</span> -<span id="L28888" class="LineNr">28888 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L28889" class="LineNr">28889 </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="L28890" class="LineNr">28890 </span> 89/<- %ebx 0/r32/eax -<span id="L28891" class="LineNr">28891 </span> <span class="subxComment"># var elemsize/ecx: int = array-element-size(base)</span> -<span id="L28892" class="LineNr">28892 </span> (<a href='mu.subx.html#L28996'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L28893" class="LineNr">28893 </span> 89/<- %ecx 0/r32/eax -<span id="L28894" class="LineNr">28894 </span> <span class="subxComment"># var outreg/edx: (addr array byte) = stmt->outputs[0]->value->register</span> -<span id="L28895" class="LineNr">28895 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L28896" class="LineNr">28896 </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="L28897" class="LineNr">28897 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28898" class="LineNr">28898 </span> 89/<- %edx 0/r32/eax -<span id="L28899" class="LineNr">28899 </span> <span class="subxComment"># if elemsize == 1</span> -<span id="L28900" class="LineNr">28900 </span> { -<span id="L28901" class="LineNr">28901 </span> 81 7/subop/compare %ecx 1/imm32 -<span id="L28902" class="LineNr">28902 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28903" class="LineNr">28903 </span><span class="Constant">$translate-mu-length-stmt:size-1</span>: -<span id="L28904" class="LineNr">28904 </span> (<a href='mu.subx.html#L29239'>emit-save-size-to</a> *(ebp+8) %ebx %edx) -<span id="L28905" class="LineNr">28905 </span> e9/jump $translate-mu-length-stmt:end/disp32 -<span id="L28906" class="LineNr">28906 </span> } -<span id="L28907" class="LineNr">28907 </span> <span class="subxComment"># if elemsize is a power of 2 less than 256</span> -<span id="L28908" class="LineNr">28908 </span> { -<span id="L28909" class="LineNr">28909 </span> (<a href='mu.subx.html#L30274'>power-of-2?</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L28910" class="LineNr">28910 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28911" class="LineNr">28911 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28912" class="LineNr">28912 </span> 81 7/subop/compare %ecx 0xff/imm32 -<span id="L28913" class="LineNr">28913 </span> 7f/jump-if-> <span class="Constant">break</span>/disp8 -<span id="L28914" class="LineNr">28914 </span><span class="Constant">$translate-mu-length-stmt:size-power-of-2</span>: -<span id="L28915" class="LineNr">28915 </span> (<a href='mu.subx.html#L29239'>emit-save-size-to</a> *(ebp+8) %ebx %edx) -<span id="L28916" class="LineNr">28916 </span> (<a href='mu.subx.html#L29282'>emit-divide-by-shift-right</a> *(ebp+8) %edx %ecx) -<span id="L28917" class="LineNr">28917 </span> e9/jump $translate-mu-length-stmt:end/disp32 -<span id="L28918" class="LineNr">28918 </span> } -<span id="L28919" class="LineNr">28919 </span> <span class="subxComment"># otherwise, the complex case</span> -<span id="L28920" class="LineNr">28920 </span> <span class="subxS1Comment"># . emit register spills</span> -<span id="L28921" class="LineNr">28921 </span> { -<span id="L28922" class="LineNr">28922 </span><span class="Constant">$translate-mu-length-stmt:complex</span>: -<span id="L28923" class="LineNr">28923 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> -<span id="L28924" class="LineNr">28924 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28925" class="LineNr">28925 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28926" class="LineNr">28926 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>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">"50/push-eax\n"</span>) -<span id="L28928" class="LineNr">28928 </span> } -<span id="L28929" class="LineNr">28929 </span> { -<span id="L28930" class="LineNr">28930 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> -<span id="L28931" class="LineNr">28931 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28932" class="LineNr">28932 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28933" class="LineNr">28933 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28934" class="LineNr">28934 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"51/push-ecx\n"</span>) -<span id="L28935" class="LineNr">28935 </span> } -<span id="L28936" class="LineNr">28936 </span> { -<span id="L28937" class="LineNr">28937 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> -<span id="L28938" class="LineNr">28938 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28939" class="LineNr">28939 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28940" class="LineNr">28940 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28941" class="LineNr">28941 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"52/push-edx\n"</span>) -<span id="L28942" class="LineNr">28942 </span> } -<span id="L28943" class="LineNr">28943 </span> <span class="subxS1Comment"># .</span> -<span id="L28944" class="LineNr">28944 </span> (<a href='mu.subx.html#L29239'>emit-save-size-to</a> *(ebp+8) %ebx <span class="Constant">"eax"</span>) -<span id="L28945" class="LineNr">28945 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28946" class="LineNr">28946 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"31/xor %edx 2/r32/edx\n"</span>) -<span id="L28947" class="LineNr">28947 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28948" class="LineNr">28948 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"b9/copy-to-ecx "</span>) -<span id="L28949" class="LineNr">28949 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) -<span id="L28950" class="LineNr">28950 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L28951" class="LineNr">28951 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28952" class="LineNr">28952 </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="L28953" class="LineNr">28953 </span> { -<span id="L28954" class="LineNr">28954 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> -<span id="L28955" class="LineNr">28955 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28956" class="LineNr">28956 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28957" class="LineNr">28957 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28958" class="LineNr">28958 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"89/<- %"</span>) -<span id="L28959" class="LineNr">28959 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %edx) -<span id="L28960" class="LineNr">28960 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/r32/eax\n"</span>) -<span id="L28961" class="LineNr">28961 </span> } -<span id="L28962" class="LineNr">28962 </span> <span class="subxS1Comment"># . emit register restores</span> -<span id="L28963" class="LineNr">28963 </span> { -<span id="L28964" class="LineNr">28964 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> -<span id="L28965" class="LineNr">28965 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28966" class="LineNr">28966 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28967" class="LineNr">28967 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28968" class="LineNr">28968 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"5a/pop-to-edx\n"</span>) -<span id="L28969" class="LineNr">28969 </span> } -<span id="L28970" class="LineNr">28970 </span> { -<span id="L28971" class="LineNr">28971 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> -<span id="L28972" class="LineNr">28972 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28973" class="LineNr">28973 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28974" class="LineNr">28974 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28975" class="LineNr">28975 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"59/pop-to-ecx\n"</span>) -<span id="L28976" class="LineNr">28976 </span> } -<span id="L28977" class="LineNr">28977 </span> { -<span id="L28978" class="LineNr">28978 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> -<span id="L28979" class="LineNr">28979 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28980" class="LineNr">28980 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28981" class="LineNr">28981 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L28982" class="LineNr">28982 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"58/pop-to-eax\n"</span>) -<span id="L28983" class="LineNr">28983 </span> } -<span id="L28984" class="LineNr">28984 </span><span class="Constant">$translate-mu-length-stmt:end</span>: -<span id="L28985" class="LineNr">28985 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28986" class="LineNr">28986 </span> 5e/pop-to-esi -<span id="L28987" class="LineNr">28987 </span> 5b/pop-to-ebx -<span id="L28988" class="LineNr">28988 </span> 5a/pop-to-edx -<span id="L28989" class="LineNr">28989 </span> 59/pop-to-ecx -<span id="L28990" class="LineNr">28990 </span> 58/pop-to-eax -<span id="L28991" class="LineNr">28991 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28992" class="LineNr">28992 </span> 89/<- %esp 5/r32/ebp -<span id="L28993" class="LineNr">28993 </span> 5d/pop-to-ebp -<span id="L28994" class="LineNr">28994 </span> c3/return -<span id="L28995" class="LineNr">28995 </span> -<span id="L28996" class="LineNr">28996 </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="L28997" class="LineNr">28997 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28998" class="LineNr">28998 </span> 55/push-ebp -<span id="L28999" class="LineNr">28999 </span> 89/<- %ebp 4/r32/esp -<span id="L29000" class="LineNr">29000 </span> <span class="subxComment">#</span> -<span id="L29001" class="LineNr">29001 </span> (<a href='mu.subx.html#L29009'>array-element-type-id</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L29002" class="LineNr">29002 </span> (<a href='mu.subx.html#L29115'>size-of-type-id-as-array-element</a> %eax) <span class="subxComment"># => eax</span> -<span id="L29003" class="LineNr">29003 </span><span class="Constant">$array-element-size:end</span>: -<span id="L29004" class="LineNr">29004 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29005" class="LineNr">29005 </span> 89/<- %esp 5/r32/ebp -<span id="L29006" class="LineNr">29006 </span> 5d/pop-to-ebp -<span id="L29007" class="LineNr">29007 </span> c3/return -<span id="L29008" class="LineNr">29008 </span> -<span id="L29009" class="LineNr">29009 </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="L29010" class="LineNr">29010 </span> <span class="subxComment"># precondition: n is positive</span> -<span id="L29011" class="LineNr">29011 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29012" class="LineNr">29012 </span> 55/push-ebp -<span id="L29013" class="LineNr">29013 </span> 89/<- %ebp 4/r32/esp -<span id="L29014" class="LineNr">29014 </span> <span class="subxComment">#</span> -<span id="L29015" class="LineNr">29015 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29016" class="LineNr">29016 </span> <span class="subxComment"># var t/eax: (addr type-tree)</span> -<span id="L29017" class="LineNr">29017 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29018" class="LineNr">29018 </span> <span class="subxComment"># if t == 0 abort</span> -<span id="L29019" class="LineNr">29019 </span> 3d/compare-eax-with 0/imm32 -<span id="L29020" class="LineNr">29020 </span> 0f 84/jump-if-== $array-element-type-id:error0/disp32 -<span id="L29021" class="LineNr">29021 </span> <span class="subxComment"># if t->is-atom? abort</span> -<span id="L29022" class="LineNr">29022 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29023" class="LineNr">29023 </span> 0f 85/jump-if-!= $array-element-type-id:error1/disp32 -<span id="L29024" class="LineNr">29024 </span> <span class="subxComment"># if (t->left == addr) t = t->right</span> -<span id="L29025" class="LineNr">29025 </span> { -<span id="L29026" class="LineNr">29026 </span> 50/push-eax -<span id="L29027" class="LineNr">29027 </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="L29028" class="LineNr">29028 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L29029" class="LineNr">29029 </span> 3d/compare-eax-with 0/imm32/false -<span id="L29030" class="LineNr">29030 </span> 58/pop-to-eax +<span id="L28478" class="LineNr">28478 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L28479" class="LineNr">28479 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L28480" class="LineNr">28480 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28481" class="LineNr">28481 </span> <span class="subxComment"># if assigns-in-stmt?(curr->value, v) return true</span> +<span id="L28482" class="LineNr">28482 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L28483" class="LineNr">28483 </span> (<a href='mu.subx.html#L28500'>assigns-in-stmt?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L28484" class="LineNr">28484 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28485" class="LineNr">28485 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28486" class="LineNr">28486 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L28487" class="LineNr">28487 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L28488" class="LineNr">28488 </span> 89/<- %ecx 0/r32/eax +<span id="L28489" class="LineNr">28489 </span> <span class="subxComment">#</span> +<span id="L28490" class="LineNr">28490 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28491" class="LineNr">28491 </span> } +<span id="L28492" class="LineNr">28492 </span><span class="Constant">$assigns-in-stmts?:end</span>: +<span id="L28493" class="LineNr">28493 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28494" class="LineNr">28494 </span> 59/pop-to-ecx +<span id="L28495" class="LineNr">28495 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28496" class="LineNr">28496 </span> 89/<- %esp 5/r32/ebp +<span id="L28497" class="LineNr">28497 </span> 5d/pop-to-ebp +<span id="L28498" class="LineNr">28498 </span> c3/return +<span id="L28499" class="LineNr">28499 </span> +<span id="L28500" class="LineNr">28500 </span><span class="subxFunction">assigns-in-stmt?</span>: <span class="subxComment"># stmt: (addr stmt), v: (addr var) -> result/eax: boolean</span> +<span id="L28501" class="LineNr">28501 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28502" class="LineNr">28502 </span> 55/push-ebp +<span id="L28503" class="LineNr">28503 </span> 89/<- %ebp 4/r32/esp +<span id="L28504" class="LineNr">28504 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28505" class="LineNr">28505 </span> 51/push-ecx +<span id="L28506" class="LineNr">28506 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L28507" class="LineNr">28507 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28508" class="LineNr">28508 </span> <span class="subxComment"># if stmt is a stmt1, return assigns-in-stmt-vars?(stmt->outputs, v)</span> +<span id="L28509" class="LineNr">28509 </span> { +<span id="L28510" class="LineNr">28510 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L28511" class="LineNr">28511 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28512" class="LineNr">28512 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L28513" class="LineNr">28513 </span> (<a href='mu.subx.html#L28534'>assigns-in-stmt-vars?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L28514" class="LineNr">28514 </span> eb/jump $assigns-in-stmt?:end/disp8 +<span id="L28515" class="LineNr">28515 </span> } +<span id="L28516" class="LineNr">28516 </span> <span class="subxComment"># if stmt is a block, return assigns-in-stmts?(stmt->stmts, v)</span> +<span id="L28517" class="LineNr">28517 </span> { +<span id="L28518" class="LineNr">28518 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L28519" class="LineNr">28519 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28520" class="LineNr">28520 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L28521" class="LineNr">28521 </span> (<a href='mu.subx.html#L28469'>assigns-in-stmts?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L28522" class="LineNr">28522 </span> eb/jump $assigns-in-stmt?:end/disp8 +<span id="L28523" class="LineNr">28523 </span> } +<span id="L28524" class="LineNr">28524 </span> <span class="subxComment"># otherwise return false</span> +<span id="L28525" class="LineNr">28525 </span> b8/copy 0/imm32/false +<span id="L28526" class="LineNr">28526 </span><span class="Constant">$assigns-in-stmt?:end</span>: +<span id="L28527" class="LineNr">28527 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28528" class="LineNr">28528 </span> 59/pop-to-ecx +<span id="L28529" class="LineNr">28529 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28530" class="LineNr">28530 </span> 89/<- %esp 5/r32/ebp +<span id="L28531" class="LineNr">28531 </span> 5d/pop-to-ebp +<span id="L28532" class="LineNr">28532 </span> c3/return +<span id="L28533" class="LineNr">28533 </span> +<span id="L28534" class="LineNr">28534 </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="L28535" class="LineNr">28535 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28536" class="LineNr">28536 </span> 55/push-ebp +<span id="L28537" class="LineNr">28537 </span> 89/<- %ebp 4/r32/esp +<span id="L28538" class="LineNr">28538 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28539" class="LineNr">28539 </span> 51/push-ecx +<span id="L28540" class="LineNr">28540 </span> <span class="subxComment"># var curr/ecx: (addr stmt-var) = stmt-var</span> +<span id="L28541" class="LineNr">28541 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28542" class="LineNr">28542 </span> { +<span id="L28543" class="LineNr">28543 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L28544" class="LineNr">28544 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L28545" class="LineNr">28545 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28546" class="LineNr">28546 </span> <span class="subxComment"># eax = lookup(curr->value)</span> +<span id="L28547" class="LineNr">28547 </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="L28548" class="LineNr">28548 </span> <span class="subxComment"># if (eax == v && curr->is-deref? == false) return true</span> +<span id="L28549" class="LineNr">28549 </span> { +<span id="L28550" class="LineNr">28550 </span> 39/compare *(ebp+0xc) 0/r32/eax +<span id="L28551" class="LineNr">28551 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28552" class="LineNr">28552 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L28553" class="LineNr">28553 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28554" class="LineNr">28554 </span> b8/copy-to-eax 1/imm32/true +<span id="L28555" class="LineNr">28555 </span> eb/jump $assigns-in-stmt-vars?:end/disp8 +<span id="L28556" class="LineNr">28556 </span> } +<span id="L28557" class="LineNr">28557 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L28558" class="LineNr">28558 </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="L28559" class="LineNr">28559 </span> 89/<- %ecx 0/r32/eax +<span id="L28560" class="LineNr">28560 </span> <span class="subxComment">#</span> +<span id="L28561" class="LineNr">28561 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28562" class="LineNr">28562 </span> } +<span id="L28563" class="LineNr">28563 </span><span class="Constant">$assigns-in-stmt-vars?:end</span>: +<span id="L28564" class="LineNr">28564 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28565" class="LineNr">28565 </span> 59/pop-to-ecx +<span id="L28566" class="LineNr">28566 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28567" class="LineNr">28567 </span> 89/<- %esp 5/r32/ebp +<span id="L28568" class="LineNr">28568 </span> 5d/pop-to-ebp +<span id="L28569" class="LineNr">28569 </span> c3/return +<span id="L28570" class="LineNr">28570 </span> +<span id="L28571" class="LineNr">28571 </span><span class="subxComment"># is there a var before 'v' with the same block-depth and register on the 'vars' stack?</span> +<span id="L28572" class="LineNr">28572 </span><span class="subxComment"># v is guaranteed to be within vars</span> +<span id="L28573" class="LineNr">28573 </span><span class="subxComment"># 'start' is provided as an optimization, a pointer within vars</span> +<span id="L28574" class="LineNr">28574 </span><span class="subxComment"># *start == v</span> +<span id="L28575" class="LineNr">28575 </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="L28576" class="LineNr">28576 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28577" class="LineNr">28577 </span> 55/push-ebp +<span id="L28578" class="LineNr">28578 </span> 89/<- %ebp 4/r32/esp +<span id="L28579" class="LineNr">28579 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28580" class="LineNr">28580 </span> 51/push-ecx +<span id="L28581" class="LineNr">28581 </span> 52/push-edx +<span id="L28582" class="LineNr">28582 </span> 53/push-ebx +<span id="L28583" class="LineNr">28583 </span> 56/push-esi +<span id="L28584" class="LineNr">28584 </span> 57/push-edi +<span id="L28585" class="LineNr">28585 </span> <span class="subxComment"># ecx = v</span> +<span id="L28586" class="LineNr">28586 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28587" class="LineNr">28587 </span> <span class="subxComment"># var reg/edx: (addr array byte) = lookup(v->register)</span> +<span id="L28588" class="LineNr">28588 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28589" class="LineNr">28589 </span> 89/<- %edx 0/r32/eax +<span id="L28590" class="LineNr">28590 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> +<span id="L28591" class="LineNr">28591 </span> 8b/-> *(ecx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L28592" class="LineNr">28592 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L28593" class="LineNr">28593 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L28594" class="LineNr">28594 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L28595" class="LineNr">28595 </span> <span class="subxComment"># TODO: check that start >= min and start < &vars->data[top]</span> +<span id="L28596" class="LineNr">28596 </span> <span class="subxComment"># TODO: check that *start == v</span> +<span id="L28597" class="LineNr">28597 </span> <span class="subxComment"># var curr/esi: (addr handle var) = start</span> +<span id="L28598" class="LineNr">28598 </span> 8b/-> *(ebp+0x10) 6/r32/esi +<span id="L28599" class="LineNr">28599 </span> <span class="subxComment"># curr -= 8</span> +<span id="L28600" class="LineNr">28600 </span> 81 5/subop/subtract %esi 8/imm32 +<span id="L28601" class="LineNr">28601 </span> { +<span id="L28602" class="LineNr">28602 </span><span class="Constant">$same-register-spilled-before?:loop</span>: +<span id="L28603" class="LineNr">28603 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L28604" class="LineNr">28604 </span> 39/compare %esi 1/r32/ecx +<span id="L28605" class="LineNr">28605 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L28606" class="LineNr">28606 </span> <span class="subxComment"># var x/eax: (addr var) = lookup(*curr)</span> +<span id="L28607" class="LineNr">28607 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L28608" class="LineNr">28608 </span> <span class="subxComment"># if (x->block-depth < depth) break</span> +<span id="L28609" class="LineNr">28609 </span> 39/compare *(eax+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L28610" class="LineNr">28610 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L28611" class="LineNr">28611 </span> <span class="subxComment"># if (x->register == 0) continue</span> +<span id="L28612" class="LineNr">28612 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L28613" class="LineNr">28613 </span> 74/jump-if-= $same-register-spilled-before?:continue/disp8 +<span id="L28614" class="LineNr">28614 </span> <span class="subxComment"># if (x->register == reg) return true</span> +<span id="L28615" class="LineNr">28615 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28616" class="LineNr">28616 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %edx) <span class="subxComment"># => eax</span> +<span id="L28617" class="LineNr">28617 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28618" class="LineNr">28618 </span> b8/copy-to-eax 1/imm32/true +<span id="L28619" class="LineNr">28619 </span> 75/jump-if-!= $same-register-spilled-before?:end/disp8 +<span id="L28620" class="LineNr">28620 </span><span class="Constant">$same-register-spilled-before?:continue</span>: +<span id="L28621" class="LineNr">28621 </span> <span class="subxComment"># curr -= 8</span> +<span id="L28622" class="LineNr">28622 </span> 81 5/subop/subtract %esi 8/imm32 +<span id="L28623" class="LineNr">28623 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L28624" class="LineNr">28624 </span> } +<span id="L28625" class="LineNr">28625 </span><span class="Constant">$same-register-spilled-before?:false</span>: +<span id="L28626" class="LineNr">28626 </span> b8/copy-to-eax 0/imm32/false +<span id="L28627" class="LineNr">28627 </span><span class="Constant">$same-register-spilled-before?:end</span>: +<span id="L28628" class="LineNr">28628 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28629" class="LineNr">28629 </span> 5f/pop-to-edi +<span id="L28630" class="LineNr">28630 </span> 5e/pop-to-esi +<span id="L28631" class="LineNr">28631 </span> 5b/pop-to-ebx +<span id="L28632" class="LineNr">28632 </span> 5a/pop-to-edx +<span id="L28633" class="LineNr">28633 </span> 59/pop-to-ecx +<span id="L28634" class="LineNr">28634 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28635" class="LineNr">28635 </span> 89/<- %esp 5/r32/ebp +<span id="L28636" class="LineNr">28636 </span> 5d/pop-to-ebp +<span id="L28637" class="LineNr">28637 </span> c3/return +<span id="L28638" class="LineNr">28638 </span> +<span id="L28639" class="LineNr">28639 </span><span class="subxComment"># clean up global state for 'vars' until some block depth (inclusive)</span> +<span id="L28640" class="LineNr">28640 </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="L28641" class="LineNr">28641 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28642" class="LineNr">28642 </span> 55/push-ebp +<span id="L28643" class="LineNr">28643 </span> 89/<- %ebp 4/r32/esp +<span id="L28644" class="LineNr">28644 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28645" class="LineNr">28645 </span> 50/push-eax +<span id="L28646" class="LineNr">28646 </span> 51/push-ecx +<span id="L28647" class="LineNr">28647 </span> 56/push-esi +<span id="L28648" class="LineNr">28648 </span> <span class="subxComment"># esi = vars</span> +<span id="L28649" class="LineNr">28649 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L28650" class="LineNr">28650 </span> <span class="subxComment"># ecx = until-block-depth</span> +<span id="L28651" class="LineNr">28651 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L28652" class="LineNr">28652 </span> { +<span id="L28653" class="LineNr">28653 </span><span class="Constant">$clean-up-blocks:reclaim-loop</span>: +<span id="L28654" class="LineNr">28654 </span> <span class="subxComment"># if (vars->top <= 0) break</span> +<span id="L28655" class="LineNr">28655 </span> 8b/-> *esi 0/r32/eax <span class="subxComment"># Stack-top</span> +<span id="L28656" class="LineNr">28656 </span> 3d/compare-eax-and 0/imm32 +<span id="L28657" class="LineNr">28657 </span> 0f 8e/jump-if-<= <span class="Constant">break</span>/disp32 +<span id="L28658" class="LineNr">28658 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(vars[vars->top-12])</span> +<span id="L28659" class="LineNr">28659 </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="L28660" class="LineNr">28660 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L28661" class="LineNr">28661 </span> 39/compare *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> +<span id="L28662" class="LineNr">28662 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L28663" class="LineNr">28663 </span> (<a href='203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> +<span id="L28664" class="LineNr">28664 </span> (<a href='203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> +<span id="L28665" class="LineNr">28665 </span> (<a href='203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> +<span id="L28666" class="LineNr">28666 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L28667" class="LineNr">28667 </span> } +<span id="L28668" class="LineNr">28668 </span><span class="Constant">$clean-up-blocks:end</span>: +<span id="L28669" class="LineNr">28669 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28670" class="LineNr">28670 </span> 5e/pop-to-esi +<span id="L28671" class="LineNr">28671 </span> 59/pop-to-ecx +<span id="L28672" class="LineNr">28672 </span> 58/pop-to-eax +<span id="L28673" class="LineNr">28673 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28674" class="LineNr">28674 </span> 89/<- %esp 5/r32/ebp +<span id="L28675" class="LineNr">28675 </span> 5d/pop-to-ebp +<span id="L28676" class="LineNr">28676 </span> c3/return +<span id="L28677" class="LineNr">28677 </span> +<span id="L28678" class="LineNr">28678 </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="L28679" class="LineNr">28679 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28680" class="LineNr">28680 </span> 55/push-ebp +<span id="L28681" class="LineNr">28681 </span> 89/<- %ebp 4/r32/esp +<span id="L28682" class="LineNr">28682 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28683" class="LineNr">28683 </span> 51/push-ecx +<span id="L28684" class="LineNr">28684 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> +<span id="L28685" class="LineNr">28685 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28686" class="LineNr">28686 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L28687" class="LineNr">28687 </span> 89/<- %ecx 0/r32/eax +<span id="L28688" class="LineNr">28688 </span> <span class="subxComment"># while curr != null</span> +<span id="L28689" class="LineNr">28689 </span> { +<span id="L28690" class="LineNr">28690 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L28691" class="LineNr">28691 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28692" class="LineNr">28692 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(curr->value)</span> +<span id="L28693" class="LineNr">28693 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L28694" class="LineNr">28694 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> +<span id="L28695" class="LineNr">28695 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28696" class="LineNr">28696 </span> <span class="subxComment"># if (reg == target) return true</span> +<span id="L28697" class="LineNr">28697 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L28698" class="LineNr">28698 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28699" class="LineNr">28699 </span> 75/jump-if-!= $reg-in-function-outputs?:end/disp8 +<span id="L28700" class="LineNr">28700 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L28701" class="LineNr">28701 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L28702" class="LineNr">28702 </span> 89/<- %ecx 0/r32/eax +<span id="L28703" class="LineNr">28703 </span> <span class="subxComment">#</span> +<span id="L28704" class="LineNr">28704 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28705" class="LineNr">28705 </span> } +<span id="L28706" class="LineNr">28706 </span> <span class="subxComment"># return false</span> +<span id="L28707" class="LineNr">28707 </span> b8/copy-to-eax 0/imm32 +<span id="L28708" class="LineNr">28708 </span><span class="Constant">$reg-in-function-outputs?:end</span>: +<span id="L28709" class="LineNr">28709 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28710" class="LineNr">28710 </span> 59/pop-to-ecx +<span id="L28711" class="LineNr">28711 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28712" class="LineNr">28712 </span> 89/<- %esp 5/r32/ebp +<span id="L28713" class="LineNr">28713 </span> 5d/pop-to-ebp +<span id="L28714" class="LineNr">28714 </span> c3/return +<span id="L28715" class="LineNr">28715 </span> +<span id="L28716" class="LineNr">28716 </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="L28717" class="LineNr">28717 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28718" class="LineNr">28718 </span> 55/push-ebp +<span id="L28719" class="LineNr">28719 </span> 89/<- %ebp 4/r32/esp +<span id="L28720" class="LineNr">28720 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28721" class="LineNr">28721 </span> 50/push-eax +<span id="L28722" class="LineNr">28722 </span> 51/push-ecx +<span id="L28723" class="LineNr">28723 </span> 52/push-edx +<span id="L28724" class="LineNr">28724 </span> <span class="subxComment"># eax = stmt</span> +<span id="L28725" class="LineNr">28725 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L28726" class="LineNr">28726 </span> <span class="subxComment"># var v/ecx: (addr var)</span> +<span id="L28727" class="LineNr">28727 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> +<span id="L28728" class="LineNr">28728 </span> 89/<- %ecx 0/r32/eax +<span id="L28729" class="LineNr">28729 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> +<span id="L28730" class="LineNr">28730 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/r32/eax +<span id="L28731" class="LineNr">28731 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L28732" class="LineNr">28732 </span> <span class="subxComment"># var n/edx: int = size-of(stmt->var)</span> +<span id="L28733" class="LineNr">28733 </span> (<a href='mu.subx.html#L26770'>size-of</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L28734" class="LineNr">28734 </span> 89/<- %edx 0/r32/eax +<span id="L28735" class="LineNr">28735 </span> <span class="subxComment"># *Curr-local-stack-offset -= n</span> +<span id="L28736" class="LineNr">28736 </span> 29/subtract-from *<span class="SpecialChar"><a href='mu.subx.html#L27173'>Curr-local-stack-offset</a></span> 2/r32/edx +<span id="L28737" class="LineNr">28737 </span> <span class="subxComment"># v->offset = *Curr-local-stack-offset</span> +<span id="L28738" class="LineNr">28738 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L27173'>Curr-local-stack-offset</a></span> 0/r32/eax +<span id="L28739" class="LineNr">28739 </span> 89/<- *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L28740" class="LineNr">28740 </span> <span class="subxComment"># if v is an array, do something special to initialize it</span> +<span id="L28741" class="LineNr">28741 </span> { +<span id="L28742" class="LineNr">28742 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L28743" class="LineNr">28743 </span> (<a href='mu.subx.html#L26867'>mu-array?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L28744" class="LineNr">28744 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28745" class="LineNr">28745 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28746" class="LineNr">28746 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-4</span> +<span id="L28747" class="LineNr">28747 </span> 81 5/subop/subtract %edx 4/imm32 +<span id="L28748" class="LineNr">28748 </span> <span class="subxComment">#</span> +<span id="L28749" class="LineNr">28749 </span> (<a href='mu.subx.html#L28792'>emit-array-data-initialization</a> *(ebp+8) %edx) +<span id="L28750" class="LineNr">28750 </span> e9/jump $emit-subx-var-def:end/disp32 +<span id="L28751" class="LineNr">28751 </span> } +<span id="L28752" class="LineNr">28752 </span> <span class="subxComment"># another special-case for initializing streams</span> +<span id="L28753" class="LineNr">28753 </span> <span class="subxComment"># a stream is an array with 2 extra pointers</span> +<span id="L28754" class="LineNr">28754 </span> { +<span id="L28755" class="LineNr">28755 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L28756" class="LineNr">28756 </span> (<a href='mu.subx.html#L26932'>mu-stream?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L28757" class="LineNr">28757 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28758" class="LineNr">28758 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28759" class="LineNr">28759 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-12</span> +<span id="L28760" class="LineNr">28760 </span> 81 5/subop/subtract %edx 0xc/imm32 +<span id="L28761" class="LineNr">28761 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L28762" class="LineNr">28762 </span> (<a href='mu.subx.html#L28811'>emit-stream-data-initialization</a> *(ebp+8) %edx %eax *(ebp+0x10) *(ebp+0x14)) +<span id="L28763" class="LineNr">28763 </span> <span class="subxComment"># emit read and write pointers</span> +<span id="L28764" class="LineNr">28764 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28765" class="LineNr">28765 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) +<span id="L28766" class="LineNr">28766 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28767" class="LineNr">28767 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) +<span id="L28768" class="LineNr">28768 </span> <span class="subxComment">#</span> +<span id="L28769" class="LineNr">28769 </span> eb/jump $emit-subx-var-def:end/disp8 +<span id="L28770" class="LineNr">28770 </span> } +<span id="L28771" class="LineNr">28771 </span> <span class="subxComment"># while n > 0</span> +<span id="L28772" class="LineNr">28772 </span> { +<span id="L28773" class="LineNr">28773 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L28774" class="LineNr">28774 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L28775" class="LineNr">28775 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28776" class="LineNr">28776 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) +<span id="L28777" class="LineNr">28777 </span> <span class="subxComment"># n -= 4</span> +<span id="L28778" class="LineNr">28778 </span> 81 5/subop/subtract %edx 4/imm32 +<span id="L28779" class="LineNr">28779 </span> <span class="subxComment">#</span> +<span id="L28780" class="LineNr">28780 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28781" class="LineNr">28781 </span> } +<span id="L28782" class="LineNr">28782 </span><span class="Constant">$emit-subx-var-def:end</span>: +<span id="L28783" class="LineNr">28783 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28784" class="LineNr">28784 </span> 5a/pop-to-edx +<span id="L28785" class="LineNr">28785 </span> 59/pop-to-ecx +<span id="L28786" class="LineNr">28786 </span> 58/pop-to-eax +<span id="L28787" class="LineNr">28787 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28788" class="LineNr">28788 </span> 89/<- %esp 5/r32/ebp +<span id="L28789" class="LineNr">28789 </span> 5d/pop-to-ebp +<span id="L28790" class="LineNr">28790 </span> c3/return +<span id="L28791" class="LineNr">28791 </span> +<span id="L28792" class="LineNr">28792 </span><span class="subxFunction">emit-array-data-initialization</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> +<span id="L28793" class="LineNr">28793 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28794" class="LineNr">28794 </span> 55/push-ebp +<span id="L28795" class="LineNr">28795 </span> 89/<- %ebp 4/r32/esp +<span id="L28796" class="LineNr">28796 </span> <span class="subxComment">#</span> +<span id="L28797" class="LineNr">28797 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28798" class="LineNr">28798 </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="L28799" class="LineNr">28799 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L28800" class="LineNr">28800 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L28801" class="LineNr">28801 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28802" class="LineNr">28802 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push "</span>) +<span id="L28803" class="LineNr">28803 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L28804" class="LineNr">28804 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L28805" class="LineNr">28805 </span><span class="Constant">$emit-array-data-initialization:end</span>: +<span id="L28806" class="LineNr">28806 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28807" class="LineNr">28807 </span> 89/<- %esp 5/r32/ebp +<span id="L28808" class="LineNr">28808 </span> 5d/pop-to-ebp +<span id="L28809" class="LineNr">28809 </span> c3/return +<span id="L28810" class="LineNr">28810 </span> +<span id="L28811" class="LineNr">28811 </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="L28812" class="LineNr">28812 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28813" class="LineNr">28813 </span> 55/push-ebp +<span id="L28814" class="LineNr">28814 </span> 89/<- %ebp 4/r32/esp +<span id="L28815" class="LineNr">28815 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28816" class="LineNr">28816 </span> 50/push-eax +<span id="L28817" class="LineNr">28817 </span> <span class="subxComment"># Optimization: if it's a stream of bytes, don't initialize.</span> +<span id="L28818" class="LineNr">28818 </span> <span class="subxComment">#</span> +<span id="L28819" class="LineNr">28819 </span> <span class="subxComment"># We often construct large temporary streams on the stack for 'trace'</span> +<span id="L28820" class="LineNr">28820 </span> <span class="subxComment"># statements. Initializing such streams can significantly slow programs</span> +<span id="L28821" class="LineNr">28821 </span> <span class="subxComment"># down.</span> +<span id="L28822" class="LineNr">28822 </span> <span class="subxComment">#</span> +<span id="L28823" class="LineNr">28823 </span> <span class="subxComment"># Mu doesn't really depend on initializing stream contents for type- or</span> +<span id="L28824" class="LineNr">28824 </span> <span class="subxComment"># memory-safety; we're mostly doing so to make it easy to debug unsafe</span> +<span id="L28825" class="LineNr">28825 </span> <span class="subxComment"># SubX code that misuses stream objects by manipulating read/write</span> +<span id="L28826" class="LineNr">28826 </span> <span class="subxComment"># pointers. But you can't _really_ protect from unsafe SubX, so I think we</span> +<span id="L28827" class="LineNr">28827 </span> <span class="subxComment"># don't give up much safety or security here.</span> +<span id="L28828" class="LineNr">28828 </span> { +<span id="L28829" class="LineNr">28829 </span> (<a href='mu.subx.html#L29311'>stream-element-type-id</a> *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L28830" class="LineNr">28830 </span> 3d/compare-eax-and 8/imm32/byte +<span id="L28831" class="LineNr">28831 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28832" class="LineNr">28832 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28833" class="LineNr">28833 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 5/subop/subtract %esp "</span>) +<span id="L28834" class="LineNr">28834 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L28835" class="LineNr">28835 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L28836" class="LineNr">28836 </span> eb/jump $emit-stream-data-initialization:emit-length/disp8 +<span id="L28837" class="LineNr">28837 </span> } +<span id="L28838" class="LineNr">28838 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28839" class="LineNr">28839 </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="L28840" class="LineNr">28840 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L28841" class="LineNr">28841 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L28842" class="LineNr">28842 </span><span class="Constant">$emit-stream-data-initialization:emit-length</span>: +<span id="L28843" class="LineNr">28843 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L28844" class="LineNr">28844 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push "</span>) +<span id="L28845" class="LineNr">28845 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L28846" class="LineNr">28846 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L28847" class="LineNr">28847 </span><span class="Constant">$emit-stream-data-initialization:end</span>: +<span id="L28848" class="LineNr">28848 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28849" class="LineNr">28849 </span> 58/pop-to-eax +<span id="L28850" class="LineNr">28850 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28851" class="LineNr">28851 </span> 89/<- %esp 5/r32/ebp +<span id="L28852" class="LineNr">28852 </span> 5d/pop-to-ebp +<span id="L28853" class="LineNr">28853 </span> c3/return +<span id="L28854" class="LineNr">28854 </span> +<span id="L28855" class="LineNr">28855 </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="L28856" class="LineNr">28856 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28857" class="LineNr">28857 </span> 55/push-ebp +<span id="L28858" class="LineNr">28858 </span> 89/<- %ebp 4/r32/esp +<span id="L28859" class="LineNr">28859 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28860" class="LineNr">28860 </span> 50/push-eax +<span id="L28861" class="LineNr">28861 </span> 51/push-ecx +<span id="L28862" class="LineNr">28862 </span> <span class="subxH1Comment"># - some special-case primitives that don't actually use the 'primitives' data structure</span> +<span id="L28863" class="LineNr">28863 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> +<span id="L28864" class="LineNr">28864 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L28865" class="LineNr">28865 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L28866" class="LineNr">28866 </span> 89/<- %ecx 0/r32/eax +<span id="L28867" class="LineNr">28867 </span> <span class="subxComment"># copy byte (can be a primitive except we need to emit a second instruction)</span> +<span id="L28868" class="LineNr">28868 </span> { +<span id="L28869" class="LineNr">28869 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-byte")) break</span> +<span id="L28870" class="LineNr">28870 </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="L28871" class="LineNr">28871 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28872" class="LineNr">28872 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28873" class="LineNr">28873 </span> (<a href='mu.subx.html#L29479'>translate-mu-copy-byte-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28874" class="LineNr">28874 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28875" class="LineNr">28875 </span> } +<span id="L28876" class="LineNr">28876 </span> <span class="subxComment"># copy-byte-to can be a primitive; writes to memory don't need to clear surrounding bytes</span> +<span id="L28877" class="LineNr">28877 </span> <span class="subxComment"># array size</span> +<span id="L28878" class="LineNr">28878 </span> { +<span id="L28879" class="LineNr">28879 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "length")) break</span> +<span id="L28880" class="LineNr">28880 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> +<span id="L28881" class="LineNr">28881 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28882" class="LineNr">28882 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28883" class="LineNr">28883 </span> (<a href='mu.subx.html#L29050'>translate-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28884" class="LineNr">28884 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28885" class="LineNr">28885 </span> } +<span id="L28886" class="LineNr">28886 </span> <span class="subxComment"># index into array</span> +<span id="L28887" class="LineNr">28887 </span> { +<span id="L28888" class="LineNr">28888 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "index")) break</span> +<span id="L28889" class="LineNr">28889 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> +<span id="L28890" class="LineNr">28890 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28891" class="LineNr">28891 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28892" class="LineNr">28892 </span> (<a href='mu.subx.html#L29521'>translate-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28893" class="LineNr">28893 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28894" class="LineNr">28894 </span> } +<span id="L28895" class="LineNr">28895 </span> <span class="subxComment"># compute-offset for index into array</span> +<span id="L28896" class="LineNr">28896 </span> { +<span id="L28897" class="LineNr">28897 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "compute-offset")) break</span> +<span id="L28898" class="LineNr">28898 </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="L28899" class="LineNr">28899 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28900" class="LineNr">28900 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28901" class="LineNr">28901 </span> (<a href='mu.subx.html#L29933'>translate-mu-compute-offset-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28902" class="LineNr">28902 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28903" class="LineNr">28903 </span> } +<span id="L28904" class="LineNr">28904 </span> <span class="subxComment"># get field from record</span> +<span id="L28905" class="LineNr">28905 </span> { +<span id="L28906" class="LineNr">28906 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "get")) break</span> +<span id="L28907" class="LineNr">28907 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L28908" class="LineNr">28908 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28909" class="LineNr">28909 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28910" class="LineNr">28910 </span> (<a href='mu.subx.html#L30059'>translate-mu-get-stmt</a> *(ebp+8) *(ebp+0xc)) +<span id="L28911" class="LineNr">28911 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28912" class="LineNr">28912 </span> } +<span id="L28913" class="LineNr">28913 </span> <span class="subxComment"># allocate scalar</span> +<span id="L28914" class="LineNr">28914 </span> { +<span id="L28915" class="LineNr">28915 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "allocate")) break</span> +<span id="L28916" class="LineNr">28916 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> +<span id="L28917" class="LineNr">28917 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28918" class="LineNr">28918 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28919" class="LineNr">28919 </span> (<a href='mu.subx.html#L30196'>translate-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28920" class="LineNr">28920 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28921" class="LineNr">28921 </span> } +<span id="L28922" class="LineNr">28922 </span> <span class="subxComment"># copy-object</span> +<span id="L28923" class="LineNr">28923 </span> { +<span id="L28924" class="LineNr">28924 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-object")) break</span> +<span id="L28925" class="LineNr">28925 </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="L28926" class="LineNr">28926 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28927" class="LineNr">28927 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28928" class="LineNr">28928 </span> (<a href='mu.subx.html#L30139'>translate-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28929" class="LineNr">28929 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28930" class="LineNr">28930 </span> } +<span id="L28931" class="LineNr">28931 </span> <span class="subxComment"># clear-object</span> +<span id="L28932" class="LineNr">28932 </span> { +<span id="L28933" class="LineNr">28933 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "clear-object")) break</span> +<span id="L28934" class="LineNr">28934 </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="L28935" class="LineNr">28935 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28936" class="LineNr">28936 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28937" class="LineNr">28937 </span> (<a href='mu.subx.html#L30169'>translate-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28938" class="LineNr">28938 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28939" class="LineNr">28939 </span> } +<span id="L28940" class="LineNr">28940 </span> <span class="subxComment"># allocate array</span> +<span id="L28941" class="LineNr">28941 </span> { +<span id="L28942" class="LineNr">28942 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate")) break</span> +<span id="L28943" class="LineNr">28943 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> +<span id="L28944" class="LineNr">28944 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28945" class="LineNr">28945 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28946" class="LineNr">28946 </span> (<a href='mu.subx.html#L30292'>translate-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28947" class="LineNr">28947 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28948" class="LineNr">28948 </span> } +<span id="L28949" class="LineNr">28949 </span> <span class="subxComment"># allocate stream</span> +<span id="L28950" class="LineNr">28950 </span> { +<span id="L28951" class="LineNr">28951 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate-stream")) break</span> +<span id="L28952" class="LineNr">28952 </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="L28953" class="LineNr">28953 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28954" class="LineNr">28954 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28955" class="LineNr">28955 </span> (<a href='mu.subx.html#L30328'>translate-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28956" class="LineNr">28956 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28957" class="LineNr">28957 </span> } +<span id="L28958" class="LineNr">28958 </span> <span class="subxComment"># read from stream</span> +<span id="L28959" class="LineNr">28959 </span> { +<span id="L28960" class="LineNr">28960 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "read-from-stream")) break</span> +<span id="L28961" class="LineNr">28961 </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="L28962" class="LineNr">28962 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28963" class="LineNr">28963 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28964" class="LineNr">28964 </span> (<a href='mu.subx.html#L30364'>translate-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28965" class="LineNr">28965 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28966" class="LineNr">28966 </span> } +<span id="L28967" class="LineNr">28967 </span> <span class="subxComment"># write to stream</span> +<span id="L28968" class="LineNr">28968 </span> { +<span id="L28969" class="LineNr">28969 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "write-to-stream")) break</span> +<span id="L28970" class="LineNr">28970 </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="L28971" class="LineNr">28971 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28972" class="LineNr">28972 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28973" class="LineNr">28973 </span> (<a href='mu.subx.html#L30401'>translate-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28974" class="LineNr">28974 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28975" class="LineNr">28975 </span> } +<span id="L28976" class="LineNr">28976 </span> <span class="subxH1Comment"># - optimizations</span> +<span id="L28977" class="LineNr">28977 </span> <span class="subxComment"># if copy instruction has same register in source and destination, emit nothing</span> +<span id="L28978" class="LineNr">28978 </span> (<a href='mu.subx.html#L29004'>redundant-copy?</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L28979" class="LineNr">28979 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28980" class="LineNr">28980 </span> 75/jump-if-!= $emit-subx-stmt:end/disp8 +<span id="L28981" class="LineNr">28981 </span> <span class="subxH1Comment"># - if stmt matches a primitive, emit it</span> +<span id="L28982" class="LineNr">28982 </span> { +<span id="L28983" class="LineNr">28983 </span><span class="Constant">$emit-subx-stmt:check-for-primitive</span>: +<span id="L28984" class="LineNr">28984 </span> <span class="subxComment"># var curr/eax: (addr primitive)</span> +<span id="L28985" class="LineNr">28985 </span> (<a href='mu.subx.html#L36105'>find-matching-primitive</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># primitives, stmt => eax</span> +<span id="L28986" class="LineNr">28986 </span> 3d/compare-eax-and 0/imm32 +<span id="L28987" class="LineNr">28987 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28988" class="LineNr">28988 </span><span class="Constant">$emit-subx-stmt:primitive</span>: +<span id="L28989" class="LineNr">28989 </span> (<a href='mu.subx.html#L35576'>emit-subx-primitive</a> *(ebp+8) *(ebp+0xc) %eax) <span class="subxComment"># out, stmt, curr</span> +<span id="L28990" class="LineNr">28990 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28991" class="LineNr">28991 </span> } +<span id="L28992" class="LineNr">28992 </span> <span class="subxH1Comment"># - otherwise emit a call</span> +<span id="L28993" class="LineNr">28993 </span><span class="Constant">$emit-subx-stmt:call</span>: +<span id="L28994" class="LineNr">28994 </span> (<a href='mu.subx.html#L35845'>emit-call</a> *(ebp+8) *(ebp+0xc)) +<span id="L28995" class="LineNr">28995 </span><span class="Constant">$emit-subx-stmt:end</span>: +<span id="L28996" class="LineNr">28996 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28997" class="LineNr">28997 </span> 59/pop-to-ecx +<span id="L28998" class="LineNr">28998 </span> 58/pop-to-eax +<span id="L28999" class="LineNr">28999 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29000" class="LineNr">29000 </span> 89/<- %esp 5/r32/ebp +<span id="L29001" class="LineNr">29001 </span> 5d/pop-to-ebp +<span id="L29002" class="LineNr">29002 </span> c3/return +<span id="L29003" class="LineNr">29003 </span> +<span id="L29004" class="LineNr">29004 </span><span class="subxFunction">redundant-copy?</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: boolean</span> +<span id="L29005" class="LineNr">29005 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29006" class="LineNr">29006 </span> 55/push-ebp +<span id="L29007" class="LineNr">29007 </span> 89/<- %ebp 4/r32/esp +<span id="L29008" class="LineNr">29008 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29009" class="LineNr">29009 </span> 56/push-esi +<span id="L29010" class="LineNr">29010 </span> 57/push-edi +<span id="L29011" class="LineNr">29011 </span> <span class="subxComment"># esi = stmt</span> +<span id="L29012" class="LineNr">29012 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L29013" class="LineNr">29013 </span> <span class="subxComment"># if stmt->operation != "copy" return false</span> +<span id="L29014" class="LineNr">29014 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L29015" class="LineNr">29015 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"copy"</span>) <span class="subxComment"># => eax</span> +<span id="L29016" class="LineNr">29016 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29017" class="LineNr">29017 </span> 0f 84/jump-if-= $redundant-copy?:end/disp32 +<span id="L29018" class="LineNr">29018 </span> <span class="subxComment"># var output-reg/edi: (addr stmt-var) = stmt->outputs->value->register</span> +<span id="L29019" class="LineNr">29019 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29020" class="LineNr">29020 </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="L29021" class="LineNr">29021 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29022" class="LineNr">29022 </span> <span class="subxS1Comment"># . if output-reg == null, return false</span> +<span id="L29023" class="LineNr">29023 </span> 3d/compare-eax-and 0/imm32 +<span id="L29024" class="LineNr">29024 </span> 74/jump-if-= $redundant-copy?:end/disp8 +<span id="L29025" class="LineNr">29025 </span> 89/<- %edi 0/r32/eax +<span id="L29026" class="LineNr">29026 </span> <span class="subxComment"># return (inout->value->register == output->value->register)</span> +<span id="L29027" class="LineNr">29027 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29028" class="LineNr">29028 </span> <span class="subxS1Comment"># . if inout->is-deref return false</span> +<span id="L29029" class="LineNr">29029 </span> 81 7/subop/compare *(eax+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L29030" class="LineNr">29030 </span> { <span id="L29031" class="LineNr">29031 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L29032" class="LineNr">29032 </span><span class="Constant">$array-element-type-id:skip-addr</span>: -<span id="L29033" class="LineNr">29033 </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="L29032" class="LineNr">29032 </span> b8/copy-to-eax 0/imm32/false +<span id="L29033" class="LineNr">29033 </span> e9/jump $redundant-copy?:end/disp32 <span id="L29034" class="LineNr">29034 </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"># if t->left != array abort</span> -<span id="L29042" class="LineNr">29042 </span> { -<span id="L29043" class="LineNr">29043 </span> 50/push-eax -<span id="L29044" class="LineNr">29044 </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="L29045" class="LineNr">29045 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L29046" class="LineNr">29046 </span> 3d/compare-eax-with 0/imm32/false -<span id="L29047" class="LineNr">29047 </span> 58/pop-to-eax -<span id="L29048" class="LineNr">29048 </span><span class="Constant">$array-element-type-id:no-array</span>: -<span id="L29049" class="LineNr">29049 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 -<span id="L29050" class="LineNr">29050 </span> } -<span id="L29051" class="LineNr">29051 </span><span class="Constant">$array-element-type-id:skip-array</span>: -<span id="L29052" class="LineNr">29052 </span> <span class="subxComment"># t = t->right</span> -<span id="L29053" class="LineNr">29053 </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="L29054" class="LineNr">29054 </span> <span class="subxComment"># if t == 0 abort</span> -<span id="L29055" class="LineNr">29055 </span> 3d/compare-eax-with 0/imm32 -<span id="L29056" class="LineNr">29056 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 -<span id="L29057" class="LineNr">29057 </span> <span class="subxComment"># if t->is-atom? abort</span> -<span id="L29058" class="LineNr">29058 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29059" class="LineNr">29059 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 -<span id="L29060" class="LineNr">29060 </span> <span class="subxComment"># t = t->left</span> -<span id="L29061" class="LineNr">29061 </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="L29062" class="LineNr">29062 </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="L29063" class="LineNr">29063 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> -<span id="L29064" class="LineNr">29064 </span> { -<span id="L29065" class="LineNr">29065 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29066" class="LineNr">29066 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29067" class="LineNr">29067 </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="L29068" class="LineNr">29068 </span> } -<span id="L29069" class="LineNr">29069 </span> <span class="subxComment"># return t->value</span> -<span id="L29070" class="LineNr">29070 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L29071" class="LineNr">29071 </span><span class="Constant">$array-element-type-id:end</span>: -<span id="L29072" class="LineNr">29072 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29073" class="LineNr">29073 </span> 89/<- %esp 5/r32/ebp -<span id="L29074" class="LineNr">29074 </span> 5d/pop-to-ebp -<span id="L29075" class="LineNr">29075 </span> c3/return -<span id="L29076" class="LineNr">29076 </span> -<span id="L29077" class="LineNr">29077 </span><span class="Constant">$array-element-type-id:error0</span>: -<span id="L29078" class="LineNr">29078 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) -<span id="L29079" class="LineNr">29079 </span> 50/push-eax -<span id="L29080" class="LineNr">29080 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29081" class="LineNr">29081 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29082" class="LineNr">29082 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L29083" class="LineNr">29083 </span> 58/pop-to-eax -<span id="L29084" class="LineNr">29084 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has no type\n"</span>) -<span id="L29085" class="LineNr">29085 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L29086" class="LineNr">29086 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L29087" class="LineNr">29087 </span> <span class="subxComment"># never gets here</span> -<span id="L29088" class="LineNr">29088 </span> -<span id="L29089" class="LineNr">29089 </span><span class="Constant">$array-element-type-id:error1</span>: -<span id="L29090" class="LineNr">29090 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) -<span id="L29091" class="LineNr">29091 </span> 50/push-eax -<span id="L29092" class="LineNr">29092 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29093" class="LineNr">29093 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29094" class="LineNr">29094 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L29095" class="LineNr">29095 </span> 58/pop-to-eax -<span id="L29096" class="LineNr">29096 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has atomic type "</span>) -<span id="L29097" class="LineNr">29097 </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="L29098" class="LineNr">29098 </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="L29099" class="LineNr">29099 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L29100" class="LineNr">29100 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L29101" class="LineNr">29101 </span> <span class="subxComment"># never gets here</span> -<span id="L29102" class="LineNr">29102 </span> -<span id="L29103" class="LineNr">29103 </span><span class="Constant">$array-element-type-id:error2</span>: -<span id="L29104" class="LineNr">29104 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) -<span id="L29105" class="LineNr">29105 </span> 50/push-eax -<span id="L29106" class="LineNr">29106 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29107" class="LineNr">29107 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29108" class="LineNr">29108 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L29109" class="LineNr">29109 </span> 58/pop-to-eax -<span id="L29110" class="LineNr">29110 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has non-array type\n"</span>) -<span id="L29111" class="LineNr">29111 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L29112" class="LineNr">29112 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L29113" class="LineNr">29113 </span> <span class="subxComment"># never gets here</span> -<span id="L29114" class="LineNr">29114 </span> -<span id="L29115" class="LineNr">29115 </span><span class="subxFunction">size-of-type-id-as-array-element</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> -<span id="L29116" class="LineNr">29116 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29117" class="LineNr">29117 </span> 55/push-ebp -<span id="L29118" class="LineNr">29118 </span> 89/<- %ebp 4/r32/esp -<span id="L29119" class="LineNr">29119 </span> <span class="subxComment"># eax = t</span> -<span id="L29120" class="LineNr">29120 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29121" class="LineNr">29121 </span> <span class="subxComment"># if t is 'byte', size is 1</span> -<span id="L29122" class="LineNr">29122 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L29123" class="LineNr">29123 </span> { -<span id="L29124" class="LineNr">29124 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29125" class="LineNr">29125 </span> b8/copy-to-eax 1/imm32 -<span id="L29126" class="LineNr">29126 </span> eb/jump $size-of-type-id-as-array-element:end/disp8 -<span id="L29127" class="LineNr">29127 </span> } -<span id="L29128" class="LineNr">29128 </span> <span class="subxComment"># otherwise proceed as usual</span> -<span id="L29129" class="LineNr">29129 </span> (<a href='mu.subx.html#L26801'>size-of-type-id</a> %eax) <span class="subxComment"># => eax</span> -<span id="L29130" class="LineNr">29130 </span><span class="Constant">$size-of-type-id-as-array-element:end</span>: -<span id="L29131" class="LineNr">29131 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29132" class="LineNr">29132 </span> 89/<- %esp 5/r32/ebp -<span id="L29133" class="LineNr">29133 </span> 5d/pop-to-ebp -<span id="L29134" class="LineNr">29134 </span> c3/return -<span id="L29135" class="LineNr">29135 </span> -<span id="L29136" class="LineNr">29136 </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="L29137" class="LineNr">29137 </span> <span class="subxComment"># precondition: n is positive</span> -<span id="L29138" class="LineNr">29138 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29139" class="LineNr">29139 </span> 55/push-ebp -<span id="L29140" class="LineNr">29140 </span> 89/<- %ebp 4/r32/esp -<span id="L29141" class="LineNr">29141 </span> <span class="subxComment"># eax = type</span> -<span id="L29142" class="LineNr">29142 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29143" class="LineNr">29143 </span> <span class="subxComment"># if type == 0 abort</span> -<span id="L29144" class="LineNr">29144 </span> 3d/compare-eax-with 0/imm32 -<span id="L29145" class="LineNr">29145 </span> 0f 84/jump-if-== $stream-element-type-id:error0/disp32 -<span id="L29146" class="LineNr">29146 </span> <span class="subxComment"># if type->is-atom? abort</span> -<span id="L29147" class="LineNr">29147 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29148" class="LineNr">29148 </span> 0f 85/jump-if-!= $stream-element-type-id:error1/disp32 -<span id="L29149" class="LineNr">29149 </span> <span class="subxComment"># if (type->left == addr) type = type->right</span> -<span id="L29150" class="LineNr">29150 </span> { -<span id="L29151" class="LineNr">29151 </span> 50/push-eax -<span id="L29152" class="LineNr">29152 </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="L29153" class="LineNr">29153 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L29154" class="LineNr">29154 </span> 3d/compare-eax-with 0/imm32/false -<span id="L29155" class="LineNr">29155 </span> 58/pop-to-eax -<span id="L29156" class="LineNr">29156 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L29157" class="LineNr">29157 </span><span class="Constant">$stream-element-type-id:skip-addr</span>: -<span id="L29158" class="LineNr">29158 </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="L29159" class="LineNr">29159 </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"># if type->left != stream abort</span> -<span id="L29167" class="LineNr">29167 </span> { -<span id="L29168" class="LineNr">29168 </span> 50/push-eax -<span id="L29169" class="LineNr">29169 </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="L29170" class="LineNr">29170 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> -<span id="L29171" class="LineNr">29171 </span> 3d/compare-eax-with 0/imm32/false -<span id="L29172" class="LineNr">29172 </span> 58/pop-to-eax -<span id="L29173" class="LineNr">29173 </span><span class="Constant">$stream-element-type-id:no-stream</span>: -<span id="L29174" class="LineNr">29174 </span> 0f 84/jump-if-= $stream-element-type-id:error2/disp32 -<span id="L29175" class="LineNr">29175 </span> } -<span id="L29176" class="LineNr">29176 </span><span class="Constant">$stream-element-type-id:skip-stream</span>: -<span id="L29177" class="LineNr">29177 </span> <span class="subxComment"># type = type->right</span> -<span id="L29178" class="LineNr">29178 </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="L29179" class="LineNr">29179 </span> <span class="subxComment"># if type == 0 abort</span> -<span id="L29180" class="LineNr">29180 </span> 3d/compare-eax-with 0/imm32 -<span id="L29181" class="LineNr">29181 </span> 0f 84/jump-if-= $stream-element-type-id:error2/disp32 -<span id="L29182" class="LineNr">29182 </span> <span class="subxComment"># if type->is-atom? abort</span> -<span id="L29183" class="LineNr">29183 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29184" class="LineNr">29184 </span> 0f 85/jump-if-!= $stream-element-type-id:error2/disp32 -<span id="L29185" class="LineNr">29185 </span> <span class="subxComment"># t = type->left</span> -<span id="L29186" class="LineNr">29186 </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="L29187" class="LineNr">29187 </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="L29188" class="LineNr">29188 </span> { -<span id="L29189" class="LineNr">29189 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29190" class="LineNr">29190 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29191" class="LineNr">29191 </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="L29192" class="LineNr">29192 </span> } -<span id="L29193" class="LineNr">29193 </span> <span class="subxComment"># return type->value</span> -<span id="L29194" class="LineNr">29194 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L29195" class="LineNr">29195 </span><span class="Constant">$stream-element-type-id:end</span>: -<span id="L29196" class="LineNr">29196 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29197" class="LineNr">29197 </span> 89/<- %esp 5/r32/ebp -<span id="L29198" class="LineNr">29198 </span> 5d/pop-to-ebp -<span id="L29199" class="LineNr">29199 </span> c3/return -<span id="L29200" class="LineNr">29200 </span> -<span id="L29201" class="LineNr">29201 </span><span class="Constant">$stream-element-type-id:error0</span>: -<span id="L29202" class="LineNr">29202 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"stream-element-type-id: var '"</span>) -<span id="L29203" class="LineNr">29203 </span> 50/push-eax -<span id="L29204" class="LineNr">29204 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29205" class="LineNr">29205 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29206" class="LineNr">29206 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L29207" class="LineNr">29207 </span> 58/pop-to-eax -<span id="L29208" class="LineNr">29208 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has no type\n"</span>) -<span id="L29209" class="LineNr">29209 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L29210" class="LineNr">29210 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L29211" class="LineNr">29211 </span> <span class="subxComment"># never gets here</span> -<span id="L29212" class="LineNr">29212 </span> -<span id="L29213" class="LineNr">29213 </span><span class="Constant">$stream-element-type-id:error1</span>: -<span id="L29214" class="LineNr">29214 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"stream-element-type-id: var '"</span>) -<span id="L29215" class="LineNr">29215 </span> 50/push-eax -<span id="L29216" class="LineNr">29216 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29217" class="LineNr">29217 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29218" class="LineNr">29218 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L29219" class="LineNr">29219 </span> 58/pop-to-eax -<span id="L29220" class="LineNr">29220 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has atomic type "</span>) -<span id="L29221" class="LineNr">29221 </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="L29222" class="LineNr">29222 </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="L29223" class="LineNr">29223 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L29224" class="LineNr">29224 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L29225" class="LineNr">29225 </span> <span class="subxComment"># never gets here</span> -<span id="L29226" class="LineNr">29226 </span> -<span id="L29227" class="LineNr">29227 </span><span class="Constant">$stream-element-type-id:error2</span>: -<span id="L29228" class="LineNr">29228 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"stream-element-type-id: var '"</span>) -<span id="L29229" class="LineNr">29229 </span> 50/push-eax -<span id="L29230" class="LineNr">29230 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29231" class="LineNr">29231 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29232" class="LineNr">29232 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L29233" class="LineNr">29233 </span> 58/pop-to-eax -<span id="L29234" class="LineNr">29234 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has non-stream type\n"</span>) -<span id="L29235" class="LineNr">29235 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L29236" class="LineNr">29236 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L29237" class="LineNr">29237 </span> <span class="subxComment"># never gets here</span> -<span id="L29238" class="LineNr">29238 </span> -<span id="L29239" class="LineNr">29239 </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="L29240" class="LineNr">29240 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29241" class="LineNr">29241 </span> 55/push-ebp -<span id="L29242" class="LineNr">29242 </span> 89/<- %ebp 4/r32/esp -<span id="L29243" class="LineNr">29243 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29244" class="LineNr">29244 </span> 50/push-eax -<span id="L29245" class="LineNr">29245 </span> 53/push-ebx -<span id="L29246" class="LineNr">29246 </span> <span class="subxComment"># ebx = base</span> -<span id="L29247" class="LineNr">29247 </span> 8b/-> *(ebp+0xc) 3/r32/ebx -<span id="L29248" class="LineNr">29248 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29249" class="LineNr">29249 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/-> *"</span>) -<span id="L29250" class="LineNr">29250 </span> <span class="subxComment"># if base is an (addr array ...) in a register</span> -<span id="L29251" class="LineNr">29251 </span> { -<span id="L29252" class="LineNr">29252 </span> 81 7/subop/compare *(ebx+0x18)) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29253" class="LineNr">29253 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L29254" class="LineNr">29254 </span><span class="Constant">$emit-save-size-to:emit-base-from-register</span>: -<span id="L29255" class="LineNr">29255 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29256" class="LineNr">29256 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29257" class="LineNr">29257 </span> eb/jump $emit-save-size-to:emit-output/disp8 -<span id="L29258" class="LineNr">29258 </span> } -<span id="L29259" class="LineNr">29259 </span> <span class="subxComment"># otherwise if base is an (array ...) on the stack</span> -<span id="L29260" class="LineNr">29260 </span> { -<span id="L29261" class="LineNr">29261 </span> 81 7/subop/compare *(ebx+0x14)) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L29262" class="LineNr">29262 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L29263" class="LineNr">29263 </span><span class="Constant">$emit-save-size-to:emit-base-from-stack</span>: -<span id="L29264" class="LineNr">29264 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(ebp+"</span>) -<span id="L29265" class="LineNr">29265 </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="L29266" class="LineNr">29266 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L29267" class="LineNr">29267 </span> } -<span id="L29268" class="LineNr">29268 </span><span class="Constant">$emit-save-size-to:emit-output</span>: -<span id="L29269" class="LineNr">29269 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L29270" class="LineNr">29270 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19420'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> -<span id="L29271" class="LineNr">29271 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29272" class="LineNr">29272 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29273" class="LineNr">29273 </span><span class="Constant">$emit-save-size-to:end</span>: -<span id="L29274" class="LineNr">29274 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29275" class="LineNr">29275 </span> 5b/pop-to-ebx -<span id="L29276" class="LineNr">29276 </span> 58/pop-to-eax -<span id="L29277" class="LineNr">29277 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29278" class="LineNr">29278 </span> 89/<- %esp 5/r32/ebp -<span id="L29279" class="LineNr">29279 </span> 5d/pop-to-ebp -<span id="L29280" class="LineNr">29280 </span> c3/return -<span id="L29281" class="LineNr">29281 </span> -<span id="L29282" class="LineNr">29282 </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="L29283" class="LineNr">29283 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29284" class="LineNr">29284 </span> 55/push-ebp -<span id="L29285" class="LineNr">29285 </span> 89/<- %ebp 4/r32/esp -<span id="L29286" class="LineNr">29286 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29287" class="LineNr">29287 </span> 50/push-eax -<span id="L29288" class="LineNr">29288 </span> <span class="subxComment">#</span> -<span id="L29289" class="LineNr">29289 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29290" class="LineNr">29290 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c1/shift 5/subop/>> %"</span>) -<span id="L29291" class="LineNr">29291 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L29292" class="LineNr">29292 </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="L29293" class="LineNr">29293 </span> (<a href='mu.subx.html#L30304'>num-shift-rights</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L29294" class="LineNr">29294 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29295" class="LineNr">29295 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8\n"</span>) -<span id="L29296" class="LineNr">29296 </span><span class="Constant">$emit-divide-by-shift-right:end</span>: -<span id="L29297" class="LineNr">29297 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29298" class="LineNr">29298 </span> 58/pop-to-eax -<span id="L29299" class="LineNr">29299 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29300" class="LineNr">29300 </span> 89/<- %esp 5/r32/ebp -<span id="L29301" class="LineNr">29301 </span> 5d/pop-to-ebp -<span id="L29302" class="LineNr">29302 </span> c3/return -<span id="L29303" class="LineNr">29303 </span> -<span id="L29304" class="LineNr">29304 </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="L29305" class="LineNr">29305 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29306" class="LineNr">29306 </span> 55/push-ebp -<span id="L29307" class="LineNr">29307 </span> 89/<- %ebp 4/r32/esp -<span id="L29308" class="LineNr">29308 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29309" class="LineNr">29309 </span> 50/push-eax -<span id="L29310" class="LineNr">29310 </span> 56/push-esi -<span id="L29311" class="LineNr">29311 </span> <span class="subxComment"># esi = stmt</span> -<span id="L29312" class="LineNr">29312 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L29313" class="LineNr">29313 </span> <span class="subxComment">#</span> -<span id="L29314" class="LineNr">29314 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29315" class="LineNr">29315 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8a/byte->"</span>) -<span id="L29316" class="LineNr">29316 </span> <span class="subxComment"># emit stmt->inouts[0]</span> -<span id="L29317" class="LineNr">29317 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29318" class="LineNr">29318 </span> (<a href='mu.subx.html#L35793'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) -<span id="L29319" class="LineNr">29319 </span> <span class="subxComment"># emit /r32 for stmt->outputs[0]->register</span> -<span id="L29320" class="LineNr">29320 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29321" class="LineNr">29321 </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="L29322" class="LineNr">29322 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29323" class="LineNr">29323 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19420'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> -<span id="L29324" class="LineNr">29324 </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="L29325" class="LineNr">29325 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29326" class="LineNr">29326 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29327" class="LineNr">29327 </span> <span class="subxComment"># clear rest of register</span> -<span id="L29328" class="LineNr">29328 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29329" class="LineNr">29329 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 4/subop/and %"</span>) -<span id="L29330" class="LineNr">29330 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L29331" class="LineNr">29331 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29332" class="LineNr">29332 </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="L29333" class="LineNr">29333 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29334" class="LineNr">29334 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29335" class="LineNr">29335 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0xff/imm32\n"</span>) -<span id="L29336" class="LineNr">29336 </span><span class="Constant">$translate-mu-copy-byte-stmt:end</span>: -<span id="L29337" class="LineNr">29337 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29338" class="LineNr">29338 </span> 5e/pop-to-esi -<span id="L29339" class="LineNr">29339 </span> 58/pop-to-eax -<span id="L29340" class="LineNr">29340 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29341" class="LineNr">29341 </span> 89/<- %esp 5/r32/ebp -<span id="L29342" class="LineNr">29342 </span> 5d/pop-to-ebp -<span id="L29343" class="LineNr">29343 </span> c3/return -<span id="L29344" class="LineNr">29344 </span> -<span id="L29345" class="LineNr">29345 </span><span class="subxComment"># a little different from other translate- functions; notice the extra 'fn' argument</span> -<span id="L29346" class="LineNr">29346 </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="L29347" class="LineNr">29347 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29348" class="LineNr">29348 </span> 55/push-ebp -<span id="L29349" class="LineNr">29349 </span> 89/<- %ebp 4/r32/esp -<span id="L29350" class="LineNr">29350 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29351" class="LineNr">29351 </span> 53/push-ebx -<span id="L29352" class="LineNr">29352 </span> <span class="subxComment"># ebx = stmt</span> -<span id="L29353" class="LineNr">29353 </span> 8b/-> *(ebp+0xc) 3/r32/ebx -<span id="L29354" class="LineNr">29354 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]</span> -<span id="L29355" class="LineNr">29355 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29356" class="LineNr">29356 </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="L29357" class="LineNr">29357 </span> 89/<- %ebx 0/r32/eax -<span id="L29358" class="LineNr">29358 </span> <span class="subxComment"># emit bounds-check</span> -<span id="L29359" class="LineNr">29359 </span> (<a href='mu.subx.html#L29396'>emit-mu-index-bounds-check</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) -<span id="L29360" class="LineNr">29360 </span> <span class="subxComment"># if (var->register) do one thing</span> -<span id="L29361" class="LineNr">29361 </span> { -<span id="L29362" class="LineNr">29362 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29363" class="LineNr">29363 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L29364" class="LineNr">29364 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> -<span id="L29365" class="LineNr">29365 </span> (<a href='mu.subx.html#L29515'>translate-mu-index-stmt-with-array-in-register</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L29366" class="LineNr">29366 </span> eb/jump $translate-mu-index-stmt:end/disp8 +<span id="L29035" class="LineNr">29035 </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="L29036" class="LineNr">29036 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29037" class="LineNr">29037 </span> <span class="subxS1Comment"># . if inout-reg == null, return false</span> +<span id="L29038" class="LineNr">29038 </span> 3d/compare-eax-and 0/imm32 +<span id="L29039" class="LineNr">29039 </span> 74/jump-if-= $redundant-copy?:end/disp8 +<span id="L29040" class="LineNr">29040 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %edi) <span class="subxComment"># => eax</span> +<span id="L29041" class="LineNr">29041 </span><span class="Constant">$redundant-copy?:end</span>: +<span id="L29042" class="LineNr">29042 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29043" class="LineNr">29043 </span> 5f/pop-to-edi +<span id="L29044" class="LineNr">29044 </span> 5e/pop-to-esi +<span id="L29045" class="LineNr">29045 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29046" class="LineNr">29046 </span> 89/<- %esp 5/r32/ebp +<span id="L29047" class="LineNr">29047 </span> 5d/pop-to-ebp +<span id="L29048" class="LineNr">29048 </span> c3/return +<span id="L29049" class="LineNr">29049 </span> +<span id="L29050" class="LineNr">29050 </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="L29051" class="LineNr">29051 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29052" class="LineNr">29052 </span> 55/push-ebp +<span id="L29053" class="LineNr">29053 </span> 89/<- %ebp 4/r32/esp +<span id="L29054" class="LineNr">29054 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29055" class="LineNr">29055 </span> 50/push-eax +<span id="L29056" class="LineNr">29056 </span> 51/push-ecx +<span id="L29057" class="LineNr">29057 </span> 52/push-edx +<span id="L29058" class="LineNr">29058 </span> 53/push-ebx +<span id="L29059" class="LineNr">29059 </span> 56/push-esi +<span id="L29060" class="LineNr">29060 </span> <span class="subxComment"># esi = stmt</span> +<span id="L29061" class="LineNr">29061 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L29062" class="LineNr">29062 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]->value</span> +<span id="L29063" class="LineNr">29063 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29064" class="LineNr">29064 </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="L29065" class="LineNr">29065 </span> 89/<- %ebx 0/r32/eax +<span id="L29066" class="LineNr">29066 </span> <span class="subxComment"># var elemsize/ecx: int = array-element-size(base)</span> +<span id="L29067" class="LineNr">29067 </span> (<a href='mu.subx.html#L29171'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29068" class="LineNr">29068 </span> 89/<- %ecx 0/r32/eax +<span id="L29069" class="LineNr">29069 </span> <span class="subxComment"># var outreg/edx: (addr array byte) = stmt->outputs[0]->value->register</span> +<span id="L29070" class="LineNr">29070 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29071" class="LineNr">29071 </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="L29072" class="LineNr">29072 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29073" class="LineNr">29073 </span> 89/<- %edx 0/r32/eax +<span id="L29074" class="LineNr">29074 </span> <span class="subxComment"># if elemsize == 1</span> +<span id="L29075" class="LineNr">29075 </span> { +<span id="L29076" class="LineNr">29076 </span> 81 7/subop/compare %ecx 1/imm32 +<span id="L29077" class="LineNr">29077 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29078" class="LineNr">29078 </span><span class="Constant">$translate-mu-length-stmt:size-1</span>: +<span id="L29079" class="LineNr">29079 </span> (<a href='mu.subx.html#L29414'>emit-save-size-to</a> *(ebp+8) %ebx %edx) +<span id="L29080" class="LineNr">29080 </span> e9/jump $translate-mu-length-stmt:end/disp32 +<span id="L29081" class="LineNr">29081 </span> } +<span id="L29082" class="LineNr">29082 </span> <span class="subxComment"># if elemsize is a power of 2 less than 256</span> +<span id="L29083" class="LineNr">29083 </span> { +<span id="L29084" class="LineNr">29084 </span> (<a href='mu.subx.html#L30527'>power-of-2?</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29085" class="LineNr">29085 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29086" class="LineNr">29086 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29087" class="LineNr">29087 </span> 81 7/subop/compare %ecx 0xff/imm32 +<span id="L29088" class="LineNr">29088 </span> 7f/jump-if-> <span class="Constant">break</span>/disp8 +<span id="L29089" class="LineNr">29089 </span><span class="Constant">$translate-mu-length-stmt:size-power-of-2</span>: +<span id="L29090" class="LineNr">29090 </span> (<a href='mu.subx.html#L29414'>emit-save-size-to</a> *(ebp+8) %ebx %edx) +<span id="L29091" class="LineNr">29091 </span> (<a href='mu.subx.html#L29457'>emit-divide-by-shift-right</a> *(ebp+8) %edx %ecx) +<span id="L29092" class="LineNr">29092 </span> e9/jump $translate-mu-length-stmt:end/disp32 +<span id="L29093" class="LineNr">29093 </span> } +<span id="L29094" class="LineNr">29094 </span> <span class="subxComment"># otherwise, the complex case</span> +<span id="L29095" class="LineNr">29095 </span> <span class="subxS1Comment"># . emit register spills</span> +<span id="L29096" class="LineNr">29096 </span> { +<span id="L29097" class="LineNr">29097 </span><span class="Constant">$translate-mu-length-stmt:complex</span>: +<span id="L29098" class="LineNr">29098 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> +<span id="L29099" class="LineNr">29099 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29100" class="LineNr">29100 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L29101" class="LineNr">29101 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29102" class="LineNr">29102 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"50/push-eax\n"</span>) +<span id="L29103" class="LineNr">29103 </span> } +<span id="L29104" class="LineNr">29104 </span> { +<span id="L29105" class="LineNr">29105 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> +<span id="L29106" class="LineNr">29106 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29107" class="LineNr">29107 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L29108" class="LineNr">29108 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29109" class="LineNr">29109 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"51/push-ecx\n"</span>) +<span id="L29110" class="LineNr">29110 </span> } +<span id="L29111" class="LineNr">29111 </span> { +<span id="L29112" class="LineNr">29112 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> +<span id="L29113" class="LineNr">29113 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29114" class="LineNr">29114 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L29115" class="LineNr">29115 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29116" class="LineNr">29116 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"52/push-edx\n"</span>) +<span id="L29117" class="LineNr">29117 </span> } +<span id="L29118" class="LineNr">29118 </span> <span class="subxS1Comment"># .</span> +<span id="L29119" class="LineNr">29119 </span> (<a href='mu.subx.html#L29414'>emit-save-size-to</a> *(ebp+8) %ebx <span class="Constant">"eax"</span>) +<span id="L29120" class="LineNr">29120 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29121" class="LineNr">29121 </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="L29122" class="LineNr">29122 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29123" class="LineNr">29123 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"b9/copy-to-ecx "</span>) +<span id="L29124" class="LineNr">29124 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) +<span id="L29125" class="LineNr">29125 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L29126" class="LineNr">29126 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29127" class="LineNr">29127 </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="L29128" class="LineNr">29128 </span> { +<span id="L29129" class="LineNr">29129 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> +<span id="L29130" class="LineNr">29130 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29131" class="LineNr">29131 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L29132" class="LineNr">29132 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29133" class="LineNr">29133 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"89/<- %"</span>) +<span id="L29134" class="LineNr">29134 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %edx) +<span id="L29135" class="LineNr">29135 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/r32/eax\n"</span>) +<span id="L29136" class="LineNr">29136 </span> } +<span id="L29137" class="LineNr">29137 </span> <span class="subxS1Comment"># . emit register restores</span> +<span id="L29138" class="LineNr">29138 </span> { +<span id="L29139" class="LineNr">29139 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> +<span id="L29140" class="LineNr">29140 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29141" class="LineNr">29141 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L29142" class="LineNr">29142 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29143" class="LineNr">29143 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"5a/pop-to-edx\n"</span>) +<span id="L29144" class="LineNr">29144 </span> } +<span id="L29145" class="LineNr">29145 </span> { +<span id="L29146" class="LineNr">29146 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> +<span id="L29147" class="LineNr">29147 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29148" class="LineNr">29148 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L29149" class="LineNr">29149 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29150" class="LineNr">29150 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"59/pop-to-ecx\n"</span>) +<span id="L29151" class="LineNr">29151 </span> } +<span id="L29152" class="LineNr">29152 </span> { +<span id="L29153" class="LineNr">29153 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> +<span id="L29154" class="LineNr">29154 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29155" class="LineNr">29155 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L29156" class="LineNr">29156 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29157" class="LineNr">29157 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"58/pop-to-eax\n"</span>) +<span id="L29158" class="LineNr">29158 </span> } +<span id="L29159" class="LineNr">29159 </span><span class="Constant">$translate-mu-length-stmt:end</span>: +<span id="L29160" class="LineNr">29160 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29161" class="LineNr">29161 </span> 5e/pop-to-esi +<span id="L29162" class="LineNr">29162 </span> 5b/pop-to-ebx +<span id="L29163" class="LineNr">29163 </span> 5a/pop-to-edx +<span id="L29164" class="LineNr">29164 </span> 59/pop-to-ecx +<span id="L29165" class="LineNr">29165 </span> 58/pop-to-eax +<span id="L29166" class="LineNr">29166 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29167" class="LineNr">29167 </span> 89/<- %esp 5/r32/ebp +<span id="L29168" class="LineNr">29168 </span> 5d/pop-to-ebp +<span id="L29169" class="LineNr">29169 </span> c3/return +<span id="L29170" class="LineNr">29170 </span> +<span id="L29171" class="LineNr">29171 </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="L29172" class="LineNr">29172 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29173" class="LineNr">29173 </span> 55/push-ebp +<span id="L29174" class="LineNr">29174 </span> 89/<- %ebp 4/r32/esp +<span id="L29175" class="LineNr">29175 </span> <span class="subxComment">#</span> +<span id="L29176" class="LineNr">29176 </span> (<a href='mu.subx.html#L29184'>array-element-type-id</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L29177" class="LineNr">29177 </span> (<a href='mu.subx.html#L29290'>size-of-type-id-as-array-element</a> %eax) <span class="subxComment"># => eax</span> +<span id="L29178" class="LineNr">29178 </span><span class="Constant">$array-element-size:end</span>: +<span id="L29179" class="LineNr">29179 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29180" class="LineNr">29180 </span> 89/<- %esp 5/r32/ebp +<span id="L29181" class="LineNr">29181 </span> 5d/pop-to-ebp +<span id="L29182" class="LineNr">29182 </span> c3/return +<span id="L29183" class="LineNr">29183 </span> +<span id="L29184" class="LineNr">29184 </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="L29185" class="LineNr">29185 </span> <span class="subxComment"># precondition: n is positive</span> +<span id="L29186" class="LineNr">29186 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29187" class="LineNr">29187 </span> 55/push-ebp +<span id="L29188" class="LineNr">29188 </span> 89/<- %ebp 4/r32/esp +<span id="L29189" class="LineNr">29189 </span> <span class="subxComment">#</span> +<span id="L29190" class="LineNr">29190 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29191" class="LineNr">29191 </span> <span class="subxComment"># var t/eax: (addr type-tree)</span> +<span id="L29192" class="LineNr">29192 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29193" class="LineNr">29193 </span> <span class="subxComment"># if t == 0 abort</span> +<span id="L29194" class="LineNr">29194 </span> 3d/compare-eax-with 0/imm32 +<span id="L29195" class="LineNr">29195 </span> 0f 84/jump-if-== $array-element-type-id:error0/disp32 +<span id="L29196" class="LineNr">29196 </span> <span class="subxComment"># if t->is-atom? abort</span> +<span id="L29197" class="LineNr">29197 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29198" class="LineNr">29198 </span> 0f 85/jump-if-!= $array-element-type-id:error1/disp32 +<span id="L29199" class="LineNr">29199 </span> <span class="subxComment"># if (t->left == addr) t = t->right</span> +<span id="L29200" class="LineNr">29200 </span> { +<span id="L29201" class="LineNr">29201 </span> 50/push-eax +<span id="L29202" class="LineNr">29202 </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="L29203" class="LineNr">29203 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L29204" class="LineNr">29204 </span> 3d/compare-eax-with 0/imm32/false +<span id="L29205" class="LineNr">29205 </span> 58/pop-to-eax +<span id="L29206" class="LineNr">29206 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29207" class="LineNr">29207 </span><span class="Constant">$array-element-type-id:skip-addr</span>: +<span id="L29208" class="LineNr">29208 </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="L29209" class="LineNr">29209 </span> } +<span id="L29210" class="LineNr">29210 </span> <span class="subxComment"># if t == 0 abort</span> +<span id="L29211" class="LineNr">29211 </span> 3d/compare-eax-with 0/imm32 +<span id="L29212" class="LineNr">29212 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 +<span id="L29213" class="LineNr">29213 </span> <span class="subxComment"># if t->is-atom? abort</span> +<span id="L29214" class="LineNr">29214 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29215" class="LineNr">29215 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 +<span id="L29216" class="LineNr">29216 </span> <span class="subxComment"># if t->left != array abort</span> +<span id="L29217" class="LineNr">29217 </span> { +<span id="L29218" class="LineNr">29218 </span> 50/push-eax +<span id="L29219" class="LineNr">29219 </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="L29220" class="LineNr">29220 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L29221" class="LineNr">29221 </span> 3d/compare-eax-with 0/imm32/false +<span id="L29222" class="LineNr">29222 </span> 58/pop-to-eax +<span id="L29223" class="LineNr">29223 </span><span class="Constant">$array-element-type-id:no-array</span>: +<span id="L29224" class="LineNr">29224 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 +<span id="L29225" class="LineNr">29225 </span> } +<span id="L29226" class="LineNr">29226 </span><span class="Constant">$array-element-type-id:skip-array</span>: +<span id="L29227" class="LineNr">29227 </span> <span class="subxComment"># t = t->right</span> +<span id="L29228" class="LineNr">29228 </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="L29229" class="LineNr">29229 </span> <span class="subxComment"># if t == 0 abort</span> +<span id="L29230" class="LineNr">29230 </span> 3d/compare-eax-with 0/imm32 +<span id="L29231" class="LineNr">29231 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 +<span id="L29232" class="LineNr">29232 </span> <span class="subxComment"># if t->is-atom? abort</span> +<span id="L29233" class="LineNr">29233 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29234" class="LineNr">29234 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 +<span id="L29235" class="LineNr">29235 </span> <span class="subxComment"># t = t->left</span> +<span id="L29236" class="LineNr">29236 </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="L29237" class="LineNr">29237 </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="L29238" class="LineNr">29238 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> +<span id="L29239" class="LineNr">29239 </span> { +<span id="L29240" class="LineNr">29240 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29241" class="LineNr">29241 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29242" class="LineNr">29242 </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="L29243" class="LineNr">29243 </span> } +<span id="L29244" class="LineNr">29244 </span> <span class="subxComment"># return t->value</span> +<span id="L29245" class="LineNr">29245 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L29246" class="LineNr">29246 </span><span class="Constant">$array-element-type-id:end</span>: +<span id="L29247" class="LineNr">29247 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29248" class="LineNr">29248 </span> 89/<- %esp 5/r32/ebp +<span id="L29249" class="LineNr">29249 </span> 5d/pop-to-ebp +<span id="L29250" class="LineNr">29250 </span> c3/return +<span id="L29251" class="LineNr">29251 </span> +<span id="L29252" class="LineNr">29252 </span><span class="Constant">$array-element-type-id:error0</span>: +<span id="L29253" class="LineNr">29253 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) +<span id="L29254" class="LineNr">29254 </span> 50/push-eax +<span id="L29255" class="LineNr">29255 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29256" class="LineNr">29256 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29257" class="LineNr">29257 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L29258" class="LineNr">29258 </span> 58/pop-to-eax +<span id="L29259" class="LineNr">29259 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has no type\n"</span>) +<span id="L29260" class="LineNr">29260 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L29261" class="LineNr">29261 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L29262" class="LineNr">29262 </span> <span class="subxComment"># never gets here</span> +<span id="L29263" class="LineNr">29263 </span> +<span id="L29264" class="LineNr">29264 </span><span class="Constant">$array-element-type-id:error1</span>: +<span id="L29265" class="LineNr">29265 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) +<span id="L29266" class="LineNr">29266 </span> 50/push-eax +<span id="L29267" class="LineNr">29267 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29268" class="LineNr">29268 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29269" class="LineNr">29269 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L29270" class="LineNr">29270 </span> 58/pop-to-eax +<span id="L29271" class="LineNr">29271 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has atomic type "</span>) +<span id="L29272" class="LineNr">29272 </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="L29273" class="LineNr">29273 </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="L29274" class="LineNr">29274 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L29275" class="LineNr">29275 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L29276" class="LineNr">29276 </span> <span class="subxComment"># never gets here</span> +<span id="L29277" class="LineNr">29277 </span> +<span id="L29278" class="LineNr">29278 </span><span class="Constant">$array-element-type-id:error2</span>: +<span id="L29279" class="LineNr">29279 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) +<span id="L29280" class="LineNr">29280 </span> 50/push-eax +<span id="L29281" class="LineNr">29281 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29282" class="LineNr">29282 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29283" class="LineNr">29283 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L29284" class="LineNr">29284 </span> 58/pop-to-eax +<span id="L29285" class="LineNr">29285 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has non-array type\n"</span>) +<span id="L29286" class="LineNr">29286 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L29287" class="LineNr">29287 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L29288" class="LineNr">29288 </span> <span class="subxComment"># never gets here</span> +<span id="L29289" class="LineNr">29289 </span> +<span id="L29290" class="LineNr">29290 </span><span class="subxFunction">size-of-type-id-as-array-element</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> +<span id="L29291" class="LineNr">29291 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29292" class="LineNr">29292 </span> 55/push-ebp +<span id="L29293" class="LineNr">29293 </span> 89/<- %ebp 4/r32/esp +<span id="L29294" class="LineNr">29294 </span> <span class="subxComment"># eax = t</span> +<span id="L29295" class="LineNr">29295 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29296" class="LineNr">29296 </span> <span class="subxComment"># if t is 'byte', size is 1</span> +<span id="L29297" class="LineNr">29297 </span> 3d/compare-eax-and 8/imm32/byte +<span id="L29298" class="LineNr">29298 </span> { +<span id="L29299" class="LineNr">29299 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29300" class="LineNr">29300 </span> b8/copy-to-eax 1/imm32 +<span id="L29301" class="LineNr">29301 </span> eb/jump $size-of-type-id-as-array-element:end/disp8 +<span id="L29302" class="LineNr">29302 </span> } +<span id="L29303" class="LineNr">29303 </span> <span class="subxComment"># otherwise proceed as usual</span> +<span id="L29304" class="LineNr">29304 </span> (<a href='mu.subx.html#L26976'>size-of-type-id</a> %eax) <span class="subxComment"># => eax</span> +<span id="L29305" class="LineNr">29305 </span><span class="Constant">$size-of-type-id-as-array-element:end</span>: +<span id="L29306" class="LineNr">29306 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29307" class="LineNr">29307 </span> 89/<- %esp 5/r32/ebp +<span id="L29308" class="LineNr">29308 </span> 5d/pop-to-ebp +<span id="L29309" class="LineNr">29309 </span> c3/return +<span id="L29310" class="LineNr">29310 </span> +<span id="L29311" class="LineNr">29311 </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="L29312" class="LineNr">29312 </span> <span class="subxComment"># precondition: n is positive</span> +<span id="L29313" class="LineNr">29313 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29314" class="LineNr">29314 </span> 55/push-ebp +<span id="L29315" class="LineNr">29315 </span> 89/<- %ebp 4/r32/esp +<span id="L29316" class="LineNr">29316 </span> <span class="subxComment"># eax = type</span> +<span id="L29317" class="LineNr">29317 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29318" class="LineNr">29318 </span> <span class="subxComment"># if type == 0 abort</span> +<span id="L29319" class="LineNr">29319 </span> 3d/compare-eax-with 0/imm32 +<span id="L29320" class="LineNr">29320 </span> 0f 84/jump-if-== $stream-element-type-id:error0/disp32 +<span id="L29321" class="LineNr">29321 </span> <span class="subxComment"># if type->is-atom? abort</span> +<span id="L29322" class="LineNr">29322 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29323" class="LineNr">29323 </span> 0f 85/jump-if-!= $stream-element-type-id:error1/disp32 +<span id="L29324" class="LineNr">29324 </span> <span class="subxComment"># if (type->left == addr) type = type->right</span> +<span id="L29325" class="LineNr">29325 </span> { +<span id="L29326" class="LineNr">29326 </span> 50/push-eax +<span id="L29327" class="LineNr">29327 </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="L29328" class="LineNr">29328 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L29329" class="LineNr">29329 </span> 3d/compare-eax-with 0/imm32/false +<span id="L29330" class="LineNr">29330 </span> 58/pop-to-eax +<span id="L29331" class="LineNr">29331 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29332" class="LineNr">29332 </span><span class="Constant">$stream-element-type-id:skip-addr</span>: +<span id="L29333" class="LineNr">29333 </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="L29334" class="LineNr">29334 </span> } +<span id="L29335" class="LineNr">29335 </span> <span class="subxComment"># if type == 0 abort</span> +<span id="L29336" class="LineNr">29336 </span> 3d/compare-eax-with 0/imm32 +<span id="L29337" class="LineNr">29337 </span> 0f 84/jump-if-= $stream-element-type-id:error2/disp32 +<span id="L29338" class="LineNr">29338 </span> <span class="subxComment"># if type->is-atom? abort</span> +<span id="L29339" class="LineNr">29339 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29340" class="LineNr">29340 </span> 0f 85/jump-if-!= $stream-element-type-id:error2/disp32 +<span id="L29341" class="LineNr">29341 </span> <span class="subxComment"># if type->left != stream abort</span> +<span id="L29342" class="LineNr">29342 </span> { +<span id="L29343" class="LineNr">29343 </span> 50/push-eax +<span id="L29344" class="LineNr">29344 </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="L29345" class="LineNr">29345 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> +<span id="L29346" class="LineNr">29346 </span> 3d/compare-eax-with 0/imm32/false +<span id="L29347" class="LineNr">29347 </span> 58/pop-to-eax +<span id="L29348" class="LineNr">29348 </span><span class="Constant">$stream-element-type-id:no-stream</span>: +<span id="L29349" class="LineNr">29349 </span> 0f 84/jump-if-= $stream-element-type-id:error2/disp32 +<span id="L29350" class="LineNr">29350 </span> } +<span id="L29351" class="LineNr">29351 </span><span class="Constant">$stream-element-type-id:skip-stream</span>: +<span id="L29352" class="LineNr">29352 </span> <span class="subxComment"># type = type->right</span> +<span id="L29353" class="LineNr">29353 </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="L29354" class="LineNr">29354 </span> <span class="subxComment"># if type == 0 abort</span> +<span id="L29355" class="LineNr">29355 </span> 3d/compare-eax-with 0/imm32 +<span id="L29356" class="LineNr">29356 </span> 0f 84/jump-if-= $stream-element-type-id:error2/disp32 +<span id="L29357" class="LineNr">29357 </span> <span class="subxComment"># if type->is-atom? abort</span> +<span id="L29358" class="LineNr">29358 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29359" class="LineNr">29359 </span> 0f 85/jump-if-!= $stream-element-type-id:error2/disp32 +<span id="L29360" class="LineNr">29360 </span> <span class="subxComment"># t = type->left</span> +<span id="L29361" class="LineNr">29361 </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="L29362" class="LineNr">29362 </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="L29363" class="LineNr">29363 </span> { +<span id="L29364" class="LineNr">29364 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29365" class="LineNr">29365 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29366" class="LineNr">29366 </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="L29367" class="LineNr">29367 </span> } -<span id="L29368" class="LineNr">29368 </span> <span class="subxComment"># if (var->offset) do a different thing</span> -<span id="L29369" class="LineNr">29369 </span> { -<span id="L29370" class="LineNr">29370 </span> 81 7/subop/compare *(ebx+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L29371" class="LineNr">29371 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L29372" class="LineNr">29372 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> -<span id="L29373" class="LineNr">29373 </span> (<a href='mu.subx.html#L29639'>translate-mu-index-stmt-with-array-on-stack</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L29374" class="LineNr">29374 </span> eb/jump $translate-mu-index-stmt:end/disp8 -<span id="L29375" class="LineNr">29375 </span> } -<span id="L29376" class="LineNr">29376 </span><span class="Constant">$translate-mu-index-stmt:end</span>: -<span id="L29377" class="LineNr">29377 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29378" class="LineNr">29378 </span> 5b/pop-to-ebx -<span id="L29379" class="LineNr">29379 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29380" class="LineNr">29380 </span> 89/<- %esp 5/r32/ebp -<span id="L29381" class="LineNr">29381 </span> 5d/pop-to-ebp -<span id="L29382" class="LineNr">29382 </span> c3/return -<span id="L29383" class="LineNr">29383 </span> -<span id="L29384" class="LineNr">29384 </span><span class="Constant">$translate-mu-index-stmt:error1</span>: -<span id="L29385" class="LineNr">29385 </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="L29386" class="LineNr">29386 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L29387" class="LineNr">29387 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L29388" class="LineNr">29388 </span> <span class="subxComment"># never gets here</span> -<span id="L29389" class="LineNr">29389 </span> -<span id="L29390" class="LineNr">29390 </span><span class="Constant">$translate-mu-index-stmt:error2</span>: -<span id="L29391" class="LineNr">29391 </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="L29392" class="LineNr">29392 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L29393" class="LineNr">29393 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L29394" class="LineNr">29394 </span> <span class="subxComment"># never gets here</span> -<span id="L29395" class="LineNr">29395 </span> -<span id="L29396" class="LineNr">29396 </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="L29397" class="LineNr">29397 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29398" class="LineNr">29398 </span> 55/push-ebp -<span id="L29399" class="LineNr">29399 </span> 89/<- %ebp 4/r32/esp -<span id="L29400" class="LineNr">29400 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29401" class="LineNr">29401 </span> 50/push-eax -<span id="L29402" class="LineNr">29402 </span> 51/push-ecx -<span id="L29403" class="LineNr">29403 </span> 52/push-edx -<span id="L29404" class="LineNr">29404 </span> 53/push-ebx -<span id="L29405" class="LineNr">29405 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L29406" class="LineNr">29406 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L29407" class="LineNr">29407 </span> <span class="subxComment">#</span> -<span id="L29408" class="LineNr">29408 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29409" class="LineNr">29409 </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="L29410" class="LineNr">29410 </span><span class="Constant">$emit-mu-index-bounds-check:compute-base</span>: -<span id="L29411" class="LineNr">29411 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> -<span id="L29412" class="LineNr">29412 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29413" class="LineNr">29413 </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="L29414" class="LineNr">29414 </span> 89/<- %ebx 0/r32/eax -<span id="L29415" class="LineNr">29415 </span><span class="Constant">$emit-mu-index-bounds-check:emit-index</span>: -<span id="L29416" class="LineNr">29416 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> -<span id="L29417" class="LineNr">29417 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29418" class="LineNr">29418 </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="L29419" class="LineNr">29419 </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="L29420" class="LineNr">29420 </span> 89/<- %edx 0/r32/eax -<span id="L29421" class="LineNr">29421 </span> <span class="subxComment"># if index->register, print its code</span> -<span id="L29422" class="LineNr">29422 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29423" class="LineNr">29423 </span> { -<span id="L29424" class="LineNr">29424 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29425" class="LineNr">29425 </span><span class="Constant">$emit-mu-index-bounds-check:emit-register-index</span>: -<span id="L29426" class="LineNr">29426 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"%"</span>) -<span id="L29427" class="LineNr">29427 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29428" class="LineNr">29428 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29429" class="LineNr">29429 </span> eb/jump $emit-mu-index-bounds-check:index-done/disp8 -<span id="L29430" class="LineNr">29430 </span> } -<span id="L29431" class="LineNr">29431 </span> <span class="subxComment"># otherwise if index is a literal, print it</span> -<span id="L29432" class="LineNr">29432 </span><span class="Constant">$emit-mu-index-bounds-check:emit-literal-index</span>: -<span id="L29433" class="LineNr">29433 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29434" class="LineNr">29434 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L29435" class="LineNr">29435 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29436" class="LineNr">29436 </span> { -<span id="L29437" class="LineNr">29437 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29438" class="LineNr">29438 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29439" class="LineNr">29439 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29440" class="LineNr">29440 </span> } -<span id="L29441" class="LineNr">29441 </span><span class="Constant">$emit-mu-index-bounds-check:index-done</span>: -<span id="L29442" class="LineNr">29442 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L29443" class="LineNr">29443 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size</span>: -<span id="L29444" class="LineNr">29444 </span> <span class="subxComment"># if index is a literal or int, print size of array element</span> -<span id="L29445" class="LineNr">29445 </span> { -<span id="L29446" class="LineNr">29446 </span> { -<span id="L29447" class="LineNr">29447 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29448" class="LineNr">29448 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> -<span id="L29449" class="LineNr">29449 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29450" class="LineNr">29450 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29451" class="LineNr">29451 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29452" class="LineNr">29452 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L29453" class="LineNr">29453 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29454" class="LineNr">29454 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29455" class="LineNr">29455 </span> eb/jump $emit-mu-index-bounds-check:emit-element-size-offset/disp8 -<span id="L29456" class="LineNr">29456 </span> } -<span id="L29457" class="LineNr">29457 </span><span class="Constant">$emit-mu-index-bounds-check:emit-int-register-index</span>: -<span id="L29458" class="LineNr">29458 </span> (<a href='mu.subx.html#L28996'>array-element-size</a> %ebx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L29459" class="LineNr">29459 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29460" class="LineNr">29460 </span> e9/jump $emit-mu-index-bounds-check:emit-base/disp32 -<span id="L29461" class="LineNr">29461 </span> } -<span id="L29462" class="LineNr">29462 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size-offset</span>: -<span id="L29463" class="LineNr">29463 </span> <span class="subxComment"># if index has type (offset ...), print "1"</span> -<span id="L29464" class="LineNr">29464 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29465" class="LineNr">29465 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29466" class="LineNr">29466 </span> { -<span id="L29467" class="LineNr">29467 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29468" class="LineNr">29468 </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="L29469" class="LineNr">29469 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> -<span id="L29470" class="LineNr">29470 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29471" class="LineNr">29471 </span> { -<span id="L29472" class="LineNr">29472 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29473" class="LineNr">29473 </span><span class="Constant">$emit-mu-index-bounds-check:emit-offset-register-index</span>: -<span id="L29474" class="LineNr">29474 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"1"</span>) -<span id="L29475" class="LineNr">29475 </span> } -<span id="L29476" class="LineNr">29476 </span> } -<span id="L29477" class="LineNr">29477 </span><span class="Constant">$emit-mu-index-bounds-check:emit-base</span>: -<span id="L29478" class="LineNr">29478 </span> <span class="subxComment"># if base is in a register, print " *" base->register</span> -<span id="L29479" class="LineNr">29479 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29480" class="LineNr">29480 </span> { -<span id="L29481" class="LineNr">29481 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L29482" class="LineNr">29482 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) -<span id="L29483" class="LineNr">29483 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29484" class="LineNr">29484 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29485" class="LineNr">29485 </span> e9/jump $emit-mu-index-bounds-check:emit-function-name/disp32 -<span id="L29486" class="LineNr">29486 </span> } -<span id="L29487" class="LineNr">29487 </span> <span class="subxComment"># otherwise print " *(ebp+" base->offset ")"</span> -<span id="L29488" class="LineNr">29488 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) -<span id="L29489" class="LineNr">29489 </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="L29490" class="LineNr">29490 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L29491" class="LineNr">29491 </span><span class="Constant">$emit-mu-index-bounds-check:emit-function-name</span>: -<span id="L29492" class="LineNr">29492 </span> <span class="subxComment"># " \"" function-name "\""</span> -<span id="L29493" class="LineNr">29493 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") -<span id="L29494" class="LineNr">29494 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L29495" class="LineNr">29495 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L29496" class="LineNr">29496 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29497" class="LineNr">29497 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>") -<span id="L29498" class="LineNr">29498 </span><span class="Constant">$emit-mu-index-bounds-check:emit-array-name</span>: -<span id="L29499" class="LineNr">29499 </span> <span class="subxComment"># " \"" base->name "\""</span> -<span id="L29500" class="LineNr">29500 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") -<span id="L29501" class="LineNr">29501 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29502" class="LineNr">29502 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29503" class="LineNr">29503 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>)\n") -<span id="L29504" class="LineNr">29504 </span><span class="Constant">$emit-mu-index-bounds-check:end</span>: -<span id="L29505" class="LineNr">29505 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29506" class="LineNr">29506 </span> 5b/pop-to-ebx -<span id="L29507" class="LineNr">29507 </span> 5a/pop-to-edx -<span id="L29508" class="LineNr">29508 </span> 59/pop-to-ecx -<span id="L29509" class="LineNr">29509 </span> 58/pop-to-eax -<span id="L29510" class="LineNr">29510 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29511" class="LineNr">29511 </span> 89/<- %esp 5/r32/ebp -<span id="L29512" class="LineNr">29512 </span> 5d/pop-to-ebp -<span id="L29513" class="LineNr">29513 </span> c3/return -<span id="L29514" class="LineNr">29514 </span> -<span id="L29515" class="LineNr">29515 </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="L29516" class="LineNr">29516 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29517" class="LineNr">29517 </span> 55/push-ebp -<span id="L29518" class="LineNr">29518 </span> 89/<- %ebp 4/r32/esp -<span id="L29519" class="LineNr">29519 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29520" class="LineNr">29520 </span> 50/push-eax -<span id="L29521" class="LineNr">29521 </span> 51/push-ecx -<span id="L29522" class="LineNr">29522 </span> 52/push-edx -<span id="L29523" class="LineNr">29523 </span> 53/push-ebx -<span id="L29524" class="LineNr">29524 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L29525" class="LineNr">29525 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L29526" class="LineNr">29526 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> -<span id="L29527" class="LineNr">29527 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29528" class="LineNr">29528 </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="L29529" class="LineNr">29529 </span> 89/<- %ebx 0/r32/eax -<span id="L29530" class="LineNr">29530 </span> <span class="subxComment"># emit null check</span> -<span id="L29531" class="LineNr">29531 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29532" class="LineNr">29532 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 7/subop/compare %"</span>) -<span id="L29533" class="LineNr">29533 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29534" class="LineNr">29534 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29535" class="LineNr">29535 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/imm32\n"</span>) -<span id="L29536" class="LineNr">29536 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29537" class="LineNr">29537 </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="L29538" class="LineNr">29538 </span> <span class="subxComment">#</span> -<span id="L29539" class="LineNr">29539 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29540" class="LineNr">29540 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *("</span>) -<span id="L29541" class="LineNr">29541 </span> <span class="subxComment"># TODO: ensure inouts[0] is in a register and not dereferenced</span> -<span id="L29542" class="LineNr">29542 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-base</span>: -<span id="L29543" class="LineNr">29543 </span> <span class="subxComment"># print base->register " + "</span> -<span id="L29544" class="LineNr">29544 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29545" class="LineNr">29545 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29546" class="LineNr">29546 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) -<span id="L29547" class="LineNr">29547 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> -<span id="L29548" class="LineNr">29548 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29549" class="LineNr">29549 </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="L29550" class="LineNr">29550 </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="L29551" class="LineNr">29551 </span> 89/<- %edx 0/r32/eax -<span id="L29552" class="LineNr">29552 </span> <span class="subxComment"># if index->register</span> -<span id="L29553" class="LineNr">29553 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29554" class="LineNr">29554 </span> { -<span id="L29555" class="LineNr">29555 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29556" class="LineNr">29556 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index</span>: -<span id="L29557" class="LineNr">29557 </span> <span class="subxComment"># if index is an int</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> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L29560" class="LineNr">29560 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29561" class="LineNr">29561 </span> { -<span id="L29562" class="LineNr">29562 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29563" class="LineNr">29563 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-int-register-index</span>: -<span id="L29564" class="LineNr">29564 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + 4) "</span> -<span id="L29565" class="LineNr">29565 </span> <span class="subxS1Comment"># . index->register "<<"</span> -<span id="L29566" class="LineNr">29566 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29567" class="LineNr">29567 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29568" class="LineNr">29568 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) -<span id="L29569" class="LineNr">29569 </span> <span class="subxS1Comment"># . log2(array-element-size(base->type))</span> -<span id="L29570" class="LineNr">29570 </span> <span class="subxComment"># we know size is a power of 2</span> -<span id="L29571" class="LineNr">29571 </span> (<a href='mu.subx.html#L28996'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29572" class="LineNr">29572 </span> (<a href='mu.subx.html#L30304'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> -<span id="L29573" class="LineNr">29573 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29574" class="LineNr">29574 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-register-index-done/disp32 -<span id="L29575" class="LineNr">29575 </span> } -<span id="L29576" class="LineNr">29576 </span> <span class="subxComment"># if index->type is any other atom, abort</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> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29579" class="LineNr">29579 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 -<span id="L29580" class="LineNr">29580 </span> <span class="subxComment"># if index has type (offset ...)</span> -<span id="L29581" class="LineNr">29581 </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="L29582" class="LineNr">29582 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> -<span id="L29583" class="LineNr">29583 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29584" class="LineNr">29584 </span> { -<span id="L29585" class="LineNr">29585 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29586" class="LineNr">29586 </span> <span class="subxComment"># print index->register</span> -<span id="L29587" class="LineNr">29587 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-offset-register-index</span>: -<span id="L29588" class="LineNr">29588 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29589" class="LineNr">29589 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29590" class="LineNr">29590 </span> } -<span id="L29591" class="LineNr">29591 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index-done</span>: -<span id="L29592" class="LineNr">29592 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + 4) "</span>) -<span id="L29593" class="LineNr">29593 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 -<span id="L29594" class="LineNr">29594 </span> } -<span id="L29595" class="LineNr">29595 </span> <span class="subxComment"># otherwise if index is a literal</span> -<span id="L29596" class="LineNr">29596 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29597" class="LineNr">29597 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L29598" class="LineNr">29598 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29599" class="LineNr">29599 </span> { -<span id="L29600" class="LineNr">29600 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29601" class="LineNr">29601 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-literal-index</span>: -<span id="L29602" class="LineNr">29602 </span> <span class="subxComment"># var index-value/edx: int = parse-hex-int(index->name)</span> -<span id="L29603" class="LineNr">29603 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29604" class="LineNr">29604 </span> (<a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># => eax</span> -<span id="L29605" class="LineNr">29605 </span> 89/<- %edx 0/r32/eax -<span id="L29606" class="LineNr">29606 </span> <span class="subxComment"># offset = idx-value * array-element-size(base->type)</span> -<span id="L29607" class="LineNr">29607 </span> (<a href='mu.subx.html#L28996'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29608" class="LineNr">29608 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> -<span id="L29609" class="LineNr">29609 </span> <span class="subxComment"># offset += 4 for array size</span> -<span id="L29610" class="LineNr">29610 </span> 05/add-to-eax 4/imm32 -<span id="L29611" class="LineNr">29611 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L29612" class="LineNr">29612 </span> <span class="subxComment"># print offset</span> -<span id="L29613" class="LineNr">29613 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29614" class="LineNr">29614 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L29615" class="LineNr">29615 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 -<span id="L29616" class="LineNr">29616 </span> } -<span id="L29617" class="LineNr">29617 </span> <span class="subxComment"># otherwise abort</span> -<span id="L29618" class="LineNr">29618 </span> e9/jump $translate-mu-index-stmt:error1/disp32 -<span id="L29619" class="LineNr">29619 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-output</span>: -<span id="L29620" class="LineNr">29620 </span> <span class="subxComment"># outputs[0] "/r32"</span> -<span id="L29621" class="LineNr">29621 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L29622" class="LineNr">29622 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29623" class="LineNr">29623 </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="L29624" class="LineNr">29624 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29625" class="LineNr">29625 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19420'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L29626" class="LineNr">29626 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29627" class="LineNr">29627 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29628" class="LineNr">29628 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:end</span>: -<span id="L29629" class="LineNr">29629 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29630" class="LineNr">29630 </span> 5b/pop-to-ebx -<span id="L29631" class="LineNr">29631 </span> 5a/pop-to-edx -<span id="L29632" class="LineNr">29632 </span> 59/pop-to-ecx -<span id="L29633" class="LineNr">29633 </span> 58/pop-to-eax -<span id="L29634" class="LineNr">29634 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29635" class="LineNr">29635 </span> 89/<- %esp 5/r32/ebp -<span id="L29636" class="LineNr">29636 </span> 5d/pop-to-ebp -<span id="L29637" class="LineNr">29637 </span> c3/return -<span id="L29638" class="LineNr">29638 </span> -<span id="L29639" class="LineNr">29639 </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="L29640" class="LineNr">29640 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29641" class="LineNr">29641 </span> 55/push-ebp -<span id="L29642" class="LineNr">29642 </span> 89/<- %ebp 4/r32/esp -<span id="L29643" class="LineNr">29643 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29644" class="LineNr">29644 </span> 50/push-eax -<span id="L29645" class="LineNr">29645 </span> 51/push-ecx -<span id="L29646" class="LineNr">29646 </span> 52/push-edx -<span id="L29647" class="LineNr">29647 </span> 53/push-ebx -<span id="L29648" class="LineNr">29648 </span> <span class="subxComment">#</span> -<span id="L29649" class="LineNr">29649 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29650" class="LineNr">29650 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *(ebp + "</span>) -<span id="L29651" class="LineNr">29651 </span> <span class="subxComment"># var curr/edx: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L29652" class="LineNr">29652 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L29653" class="LineNr">29653 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29654" class="LineNr">29654 </span> 89/<- %edx 0/r32/eax -<span id="L29655" class="LineNr">29655 </span> <span class="subxComment"># var base/ecx: (addr var) = lookup(curr->value)</span> -<span id="L29656" class="LineNr">29656 </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="L29657" class="LineNr">29657 </span> 89/<- %ecx 0/r32/eax -<span id="L29658" class="LineNr">29658 </span> <span class="subxComment"># var curr2/eax: (addr stmt-var) = lookup(curr->next)</span> -<span id="L29659" class="LineNr">29659 </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="L29660" class="LineNr">29660 </span> <span class="subxComment"># var index/edx: (handle var) = curr2->value</span> -<span id="L29661" class="LineNr">29661 </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="L29662" class="LineNr">29662 </span> 89/<- %edx 0/r32/eax -<span id="L29663" class="LineNr">29663 </span> <span class="subxComment"># if index->register</span> -<span id="L29664" class="LineNr">29664 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29665" class="LineNr">29665 </span> { -<span id="L29666" class="LineNr">29666 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29667" class="LineNr">29667 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index</span>: -<span id="L29668" class="LineNr">29668 </span> <span class="subxComment"># if index is an int</span> -<span id="L29669" class="LineNr">29669 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29670" class="LineNr">29670 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L29671" class="LineNr">29671 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29672" class="LineNr">29672 </span> { -<span id="L29673" class="LineNr">29673 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29674" class="LineNr">29674 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-int-register-index</span>: -<span id="L29675" class="LineNr">29675 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + " base->offset+4</span> -<span id="L29676" class="LineNr">29676 </span> <span class="subxS1Comment"># . inouts[1]->register "<<"</span> -<span id="L29677" class="LineNr">29677 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29678" class="LineNr">29678 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29679" class="LineNr">29679 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) -<span id="L29680" class="LineNr">29680 </span> <span class="subxS1Comment"># . log2(array-element-size(base))</span> -<span id="L29681" class="LineNr">29681 </span> <span class="subxComment"># TODO: ensure size is a power of 2</span> -<span id="L29682" class="LineNr">29682 </span> (<a href='mu.subx.html#L28996'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29683" class="LineNr">29683 </span> (<a href='mu.subx.html#L30304'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> -<span id="L29684" class="LineNr">29684 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29685" class="LineNr">29685 </span> <span class="subxComment">#</span> -<span id="L29686" class="LineNr">29686 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) -<span id="L29687" class="LineNr">29687 </span> <span class="subxComment">#</span> -<span id="L29688" class="LineNr">29688 </span> 8b/-> *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L29689" class="LineNr">29689 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array length</span> -<span id="L29690" class="LineNr">29690 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29691" class="LineNr">29691 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-register-index-done/disp32 -<span id="L29692" class="LineNr">29692 </span> } -<span id="L29693" class="LineNr">29693 </span> <span class="subxComment"># if index->type is any other atom, abort</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> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29696" class="LineNr">29696 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 -<span id="L29697" class="LineNr">29697 </span> <span class="subxComment"># if index has type (offset ...)</span> -<span id="L29698" class="LineNr">29698 </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="L29699" class="LineNr">29699 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> -<span id="L29700" class="LineNr">29700 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29701" class="LineNr">29701 </span> { -<span id="L29702" class="LineNr">29702 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29703" class="LineNr">29703 </span> <span class="subxComment"># print index->register</span> -<span id="L29704" class="LineNr">29704 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-offset-register-index</span>: -<span id="L29705" class="LineNr">29705 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29706" class="LineNr">29706 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29707" class="LineNr">29707 </span> } -<span id="L29708" class="LineNr">29708 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index-done</span>: -<span id="L29709" class="LineNr">29709 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L29710" class="LineNr">29710 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 -<span id="L29711" class="LineNr">29711 </span> } -<span id="L29712" class="LineNr">29712 </span> <span class="subxComment"># otherwise if index is a literal</span> -<span id="L29713" class="LineNr">29713 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29714" class="LineNr">29714 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L29715" class="LineNr">29715 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29716" class="LineNr">29716 </span> { -<span id="L29717" class="LineNr">29717 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29718" class="LineNr">29718 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-literal-index</span>: -<span id="L29719" class="LineNr">29719 </span> <span class="subxComment"># var idx-value/edx: int = parse-hex-int(index->name)</span> -<span id="L29720" class="LineNr">29720 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29721" class="LineNr">29721 </span> (<a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># Var-name => eax</span> -<span id="L29722" class="LineNr">29722 </span> 89/<- %edx 0/r32/eax -<span id="L29723" class="LineNr">29723 </span> <span class="subxComment"># offset = idx-value * array-element-size(base)</span> -<span id="L29724" class="LineNr">29724 </span> (<a href='mu.subx.html#L28996'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29725" class="LineNr">29725 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> -<span id="L29726" class="LineNr">29726 </span> <span class="subxComment"># offset += base->offset</span> -<span id="L29727" class="LineNr">29727 </span> 03/add *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L29728" class="LineNr">29728 </span> <span class="subxComment"># offset += 4 for array size</span> -<span id="L29729" class="LineNr">29729 </span> 05/add-to-eax 4/imm32 -<span id="L29730" class="LineNr">29730 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L29731" class="LineNr">29731 </span> <span class="subxComment"># print offset</span> -<span id="L29732" class="LineNr">29732 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29733" class="LineNr">29733 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L29734" class="LineNr">29734 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 -<span id="L29735" class="LineNr">29735 </span> } -<span id="L29736" class="LineNr">29736 </span> <span class="subxComment"># otherwise abort</span> -<span id="L29737" class="LineNr">29737 </span> e9/jump $translate-mu-index-stmt:error1/disp32 -<span id="L29738" class="LineNr">29738 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-output</span>: -<span id="L29739" class="LineNr">29739 </span> <span class="subxComment"># outputs[0] "/r32"</span> -<span id="L29740" class="LineNr">29740 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L29741" class="LineNr">29741 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x14) *(eax+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29742" class="LineNr">29742 </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="L29743" class="LineNr">29743 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29744" class="LineNr">29744 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19420'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L29745" class="LineNr">29745 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29746" class="LineNr">29746 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29747" class="LineNr">29747 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:end</span>: -<span id="L29748" class="LineNr">29748 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29749" class="LineNr">29749 </span> 5b/pop-to-ebx -<span id="L29750" class="LineNr">29750 </span> 5a/pop-to-edx -<span id="L29751" class="LineNr">29751 </span> 59/pop-to-ecx -<span id="L29752" class="LineNr">29752 </span> 58/pop-to-eax -<span id="L29753" class="LineNr">29753 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29754" class="LineNr">29754 </span> 89/<- %esp 5/r32/ebp -<span id="L29755" class="LineNr">29755 </span> 5d/pop-to-ebp -<span id="L29756" class="LineNr">29756 </span> c3/return -<span id="L29757" class="LineNr">29757 </span> -<span id="L29758" class="LineNr">29758 </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="L29759" class="LineNr">29759 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29760" class="LineNr">29760 </span> 55/push-ebp -<span id="L29761" class="LineNr">29761 </span> 89/<- %ebp 4/r32/esp -<span id="L29762" class="LineNr">29762 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29763" class="LineNr">29763 </span> 50/push-eax -<span id="L29764" class="LineNr">29764 </span> 51/push-ecx -<span id="L29765" class="LineNr">29765 </span> 52/push-edx -<span id="L29766" class="LineNr">29766 </span> 53/push-ebx -<span id="L29767" class="LineNr">29767 </span> <span class="subxComment">#</span> -<span id="L29768" class="LineNr">29768 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29769" class="LineNr">29769 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"69/multiply"</span>) -<span id="L29770" class="LineNr">29770 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L29771" class="LineNr">29771 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L29772" class="LineNr">29772 </span> <span class="subxComment"># var first-inout/ebx: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29773" class="LineNr">29773 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29774" class="LineNr">29774 </span> 89/<- %ebx 0/r32/eax -<span id="L29775" class="LineNr">29775 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-index</span>: -<span id="L29776" class="LineNr">29776 </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="L29777" class="LineNr">29777 </span> (<a href='mu.subx.html#L35793'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) -<span id="L29778" class="LineNr">29778 </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="L29779" class="LineNr">29779 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-elem-size</span>: -<span id="L29780" class="LineNr">29780 </span> <span class="subxComment"># var base/ebx: (addr var)</span> -<span id="L29781" class="LineNr">29781 </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="L29782" class="LineNr">29782 </span> 89/<- %ebx 0/r32/eax -<span id="L29783" class="LineNr">29783 </span> <span class="subxComment"># print array-element-size(base)</span> -<span id="L29784" class="LineNr">29784 </span> (<a href='mu.subx.html#L28996'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29785" class="LineNr">29785 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29786" class="LineNr">29786 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32 "</span>) -<span id="L29787" class="LineNr">29787 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-output</span>: -<span id="L29788" class="LineNr">29788 </span> <span class="subxComment"># outputs[0] "/r32"</span> -<span id="L29789" class="LineNr">29789 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29790" class="LineNr">29790 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29791" class="LineNr">29791 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29792" class="LineNr">29792 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19420'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L29793" class="LineNr">29793 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29794" class="LineNr">29794 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29795" class="LineNr">29795 </span><span class="Constant">$translate-mu-compute-index-stmt:end</span>: -<span id="L29796" class="LineNr">29796 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29797" class="LineNr">29797 </span> 5b/pop-to-ebx -<span id="L29798" class="LineNr">29798 </span> 5a/pop-to-edx -<span id="L29799" class="LineNr">29799 </span> 59/pop-to-ecx -<span id="L29800" class="LineNr">29800 </span> 58/pop-to-eax -<span id="L29801" class="LineNr">29801 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29802" class="LineNr">29802 </span> 89/<- %esp 5/r32/ebp -<span id="L29803" class="LineNr">29803 </span> 5d/pop-to-ebp -<span id="L29804" class="LineNr">29804 </span> c3/return -<span id="L29805" class="LineNr">29805 </span> -<span id="L29806" class="LineNr">29806 </span><span class="subxFunction">translate-mu-get-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> -<span id="L29807" class="LineNr">29807 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29808" class="LineNr">29808 </span> 55/push-ebp -<span id="L29809" class="LineNr">29809 </span> 89/<- %ebp 4/r32/esp -<span id="L29810" class="LineNr">29810 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29811" class="LineNr">29811 </span> 50/push-eax -<span id="L29812" class="LineNr">29812 </span> 51/push-ecx -<span id="L29813" class="LineNr">29813 </span> 52/push-edx -<span id="L29814" class="LineNr">29814 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L29815" class="LineNr">29815 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L29816" class="LineNr">29816 </span> <span class="subxComment"># var base/eax: (addr var) = stmt->inouts->value</span> -<span id="L29817" class="LineNr">29817 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29818" class="LineNr">29818 </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="L29819" class="LineNr">29819 </span> <span class="subxComment"># if base is in a register, insert a null check</span> -<span id="L29820" class="LineNr">29820 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29821" class="LineNr">29821 </span> { -<span id="L29822" class="LineNr">29822 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29823" class="LineNr">29823 </span><span class="Constant">$translate-mu-get-stmt:emit-null-check-for-register-input</span>: -<span id="L29824" class="LineNr">29824 </span> <span class="subxComment"># emit "81 7/subop/compare %" base->register " 0/imm32\n"</span> -<span id="L29825" class="LineNr">29825 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29826" class="LineNr">29826 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 7/subop/compare %"</span>) -<span id="L29827" class="LineNr">29827 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29828" class="LineNr">29828 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29829" class="LineNr">29829 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/imm32\n"</span>) -<span id="L29830" class="LineNr">29830 </span> <span class="subxComment">#</span> -<span id="L29831" class="LineNr">29831 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29832" class="LineNr">29832 </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="L29833" class="LineNr">29833 </span> } -<span id="L29834" class="LineNr">29834 </span> <span class="subxComment"># var offset/edx: int = get offset of stmt</span> -<span id="L29835" class="LineNr">29835 </span> (<a href='mu.subx.html#L30331'>mu-get-offset</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L29836" class="LineNr">29836 </span> 89/<- %edx 0/r32/eax -<span id="L29837" class="LineNr">29837 </span> <span class="subxComment"># var base/eax: (addr var) = stmt->inouts->value</span> -<span id="L29838" class="LineNr">29838 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29839" class="LineNr">29839 </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="L29840" class="LineNr">29840 </span> <span class="subxComment">#</span> -<span id="L29841" class="LineNr">29841 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29842" class="LineNr">29842 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address "</span>) -<span id="L29843" class="LineNr">29843 </span> <span class="subxComment"># if base is in a register</span> -<span id="L29844" class="LineNr">29844 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29845" class="LineNr">29845 </span> { -<span id="L29846" class="LineNr">29846 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29847" class="LineNr">29847 </span><span class="Constant">$translate-mu-get-stmt:emit-register-input</span>: -<span id="L29848" class="LineNr">29848 </span> <span class="subxComment"># emit "*(" base->register " + " offset ") "</span> -<span id="L29849" class="LineNr">29849 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*("</span>) -<span id="L29850" class="LineNr">29850 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29851" class="LineNr">29851 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29852" class="LineNr">29852 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) -<span id="L29853" class="LineNr">29853 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) -<span id="L29854" class="LineNr">29854 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L29855" class="LineNr">29855 </span> e9/jump $translate-mu-get-stmt:emit-output/disp32 -<span id="L29856" class="LineNr">29856 </span> } -<span id="L29857" class="LineNr">29857 </span> <span class="subxComment"># otherwise base is on the stack</span> -<span id="L29858" class="LineNr">29858 </span> { -<span id="L29859" class="LineNr">29859 </span><span class="Constant">$translate-mu-get-stmt:emit-stack-input</span>: -<span id="L29860" class="LineNr">29860 </span> <span class="subxComment"># emit "*(ebp + " inouts[0]->stack-offset + offset ") "</span> -<span id="L29861" class="LineNr">29861 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) -<span id="L29862" class="LineNr">29862 </span> 03/add *(eax+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> -<span id="L29863" class="LineNr">29863 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) -<span id="L29864" class="LineNr">29864 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L29865" class="LineNr">29865 </span> eb/jump $translate-mu-get-stmt:emit-output/disp8 -<span id="L29866" class="LineNr">29866 </span> } -<span id="L29867" class="LineNr">29867 </span><span class="Constant">$translate-mu-get-stmt:emit-output</span>: -<span id="L29868" class="LineNr">29868 </span> <span class="subxComment"># var output/eax: (addr var) = stmt->outputs->value</span> -<span id="L29869" class="LineNr">29869 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29870" class="LineNr">29870 </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="L29871" class="LineNr">29871 </span> <span class="subxComment"># emit offset->register "/r32"</span> -<span id="L29872" class="LineNr">29872 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29873" class="LineNr">29873 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19420'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L29874" class="LineNr">29874 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29875" class="LineNr">29875 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29876" class="LineNr">29876 </span><span class="Constant">$translate-mu-get-stmt:end</span>: -<span id="L29877" class="LineNr">29877 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29878" class="LineNr">29878 </span> 5a/pop-to-edx -<span id="L29879" class="LineNr">29879 </span> 59/pop-to-ecx -<span id="L29880" class="LineNr">29880 </span> 58/pop-to-eax -<span id="L29881" class="LineNr">29881 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29882" class="LineNr">29882 </span> 89/<- %esp 5/r32/ebp -<span id="L29883" class="LineNr">29883 </span> 5d/pop-to-ebp -<span id="L29884" class="LineNr">29884 </span> c3/return -<span id="L29885" class="LineNr">29885 </span> -<span id="L29886" class="LineNr">29886 </span><span class="subxFunction">translate-mu-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="L29887" class="LineNr">29887 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29888" class="LineNr">29888 </span> 55/push-ebp -<span id="L29889" class="LineNr">29889 </span> 89/<- %ebp 4/r32/esp -<span id="L29890" class="LineNr">29890 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29891" class="LineNr">29891 </span> 50/push-eax -<span id="L29892" class="LineNr">29892 </span> <span class="subxComment">#</span> -<span id="L29893" class="LineNr">29893 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29894" class="LineNr">29894 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(copy-bytes"</span>) -<span id="L29895" class="LineNr">29895 </span> <span class="subxComment"># eax = stmt</span> -<span id="L29896" class="LineNr">29896 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L29897" class="LineNr">29897 </span> <span class="subxComment"># var first-inout/eax: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29898" class="LineNr">29898 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29899" class="LineNr">29899 </span> (<a href='mu.subx.html#L35631'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L29900" class="LineNr">29900 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L29901" class="LineNr">29901 </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="L29902" class="LineNr">29902 </span> (<a href='mu.subx.html#L35631'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L29903" class="LineNr">29903 </span> <span class="subxComment"># emit size of inouts</span> -<span id="L29904" class="LineNr">29904 </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="L29905" class="LineNr">29905 </span> (<a href='mu.subx.html#L30009'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29906" class="LineNr">29906 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29907" class="LineNr">29907 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L29908" class="LineNr">29908 </span><span class="Constant">$translate-mu-copy-object-stmt:end</span>: -<span id="L29909" class="LineNr">29909 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29910" class="LineNr">29910 </span> 58/pop-to-eax -<span id="L29911" class="LineNr">29911 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29912" class="LineNr">29912 </span> 89/<- %esp 5/r32/ebp -<span id="L29913" class="LineNr">29913 </span> 5d/pop-to-ebp -<span id="L29914" class="LineNr">29914 </span> c3/return -<span id="L29915" class="LineNr">29915 </span> -<span id="L29916" class="LineNr">29916 </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="L29917" class="LineNr">29917 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29918" class="LineNr">29918 </span> 55/push-ebp -<span id="L29919" class="LineNr">29919 </span> 89/<- %ebp 4/r32/esp -<span id="L29920" class="LineNr">29920 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29921" class="LineNr">29921 </span> 50/push-eax -<span id="L29922" class="LineNr">29922 </span> <span class="subxComment">#</span> -<span id="L29923" class="LineNr">29923 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29924" class="LineNr">29924 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(zero-out"</span>) -<span id="L29925" class="LineNr">29925 </span> <span class="subxComment"># eax = stmt</span> -<span id="L29926" class="LineNr">29926 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L29927" class="LineNr">29927 </span> <span class="subxComment"># var dest/eax: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29928" class="LineNr">29928 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29929" class="LineNr">29929 </span> <span class="subxComment">#</span> -<span id="L29930" class="LineNr">29930 </span> (<a href='mu.subx.html#L35631'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L29931" class="LineNr">29931 </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="L29932" class="LineNr">29932 </span> (<a href='mu.subx.html#L30009'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29933" class="LineNr">29933 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29934" class="LineNr">29934 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L29935" class="LineNr">29935 </span><span class="Constant">$translate-mu-clear-object-stmt:end</span>: -<span id="L29936" class="LineNr">29936 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29937" class="LineNr">29937 </span> 58/pop-to-eax -<span id="L29938" class="LineNr">29938 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29939" class="LineNr">29939 </span> 89/<- %esp 5/r32/ebp -<span id="L29940" class="LineNr">29940 </span> 5d/pop-to-ebp -<span id="L29941" class="LineNr">29941 </span> c3/return -<span id="L29942" class="LineNr">29942 </span> -<span id="L29943" class="LineNr">29943 </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="L29944" class="LineNr">29944 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29945" class="LineNr">29945 </span> 55/push-ebp -<span id="L29946" class="LineNr">29946 </span> 89/<- %ebp 4/r32/esp -<span id="L29947" class="LineNr">29947 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29948" class="LineNr">29948 </span> 50/push-eax -<span id="L29949" class="LineNr">29949 </span> 56/push-esi -<span id="L29950" class="LineNr">29950 </span> 57/push-edi -<span id="L29951" class="LineNr">29951 </span> <span class="subxComment"># esi = stmt</span> -<span id="L29952" class="LineNr">29952 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L29953" class="LineNr">29953 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29954" class="LineNr">29954 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29955" class="LineNr">29955 </span> 89/<- %edi 0/r32/eax -<span id="L29956" class="LineNr">29956 </span> <span class="subxComment">#</span> -<span id="L29957" class="LineNr">29957 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L29958" class="LineNr">29958 </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="L29959" class="LineNr">29959 </span> (<a href='mu.subx.html#L29973'>addr-handle-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29960" class="LineNr">29960 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29961" class="LineNr">29961 </span> (<a href='mu.subx.html#L35631'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L29962" class="LineNr">29962 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L29963" class="LineNr">29963 </span><span class="Constant">$translate-mu-allocate-stmt:end</span>: -<span id="L29964" class="LineNr">29964 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29965" class="LineNr">29965 </span> 5f/pop-to-edi -<span id="L29966" class="LineNr">29966 </span> 5e/pop-to-esi -<span id="L29967" class="LineNr">29967 </span> 58/pop-to-eax -<span id="L29968" class="LineNr">29968 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29969" class="LineNr">29969 </span> 89/<- %esp 5/r32/ebp -<span id="L29970" class="LineNr">29970 </span> 5d/pop-to-ebp -<span id="L29971" class="LineNr">29971 </span> c3/return -<span id="L29972" class="LineNr">29972 </span> -<span id="L29973" class="LineNr">29973 </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="L29974" class="LineNr">29974 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29975" class="LineNr">29975 </span> 55/push-ebp -<span id="L29976" class="LineNr">29976 </span> 89/<- %ebp 4/r32/esp -<span id="L29977" class="LineNr">29977 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L29978" class="LineNr">29978 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29979" class="LineNr">29979 </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="L29980" class="LineNr">29980 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29981" class="LineNr">29981 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29982" class="LineNr">29982 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L29983" class="LineNr">29983 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L29984" class="LineNr">29984 </span> <span class="subxComment"># t = t->right</span> -<span id="L29985" class="LineNr">29985 </span><span class="Constant">$addr-handle-payload-size:skip-addr</span>: -<span id="L29986" class="LineNr">29986 </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="L29987" class="LineNr">29987 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29988" class="LineNr">29988 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L29989" class="LineNr">29989 </span> <span class="subxComment"># TODO: check t->left == handle</span> -<span id="L29990" class="LineNr">29990 </span> <span class="subxComment"># t = t->right</span> -<span id="L29991" class="LineNr">29991 </span><span class="Constant">$addr-handle-payload-size:skip-handle</span>: -<span id="L29992" class="LineNr">29992 </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="L29993" class="LineNr">29993 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29994" class="LineNr">29994 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L29995" class="LineNr">29995 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L29996" class="LineNr">29996 </span> { -<span id="L29997" class="LineNr">29997 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29998" class="LineNr">29998 </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="L29999" class="LineNr">29999 </span> } -<span id="L30000" class="LineNr">30000 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L30001" class="LineNr">30001 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L30002" class="LineNr">30002 </span> (<a href='mu.subx.html#L26801'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L30003" class="LineNr">30003 </span><span class="Constant">$addr-handle-payload-size:end</span>: -<span id="L30004" class="LineNr">30004 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30005" class="LineNr">30005 </span> 89/<- %esp 5/r32/ebp -<span id="L30006" class="LineNr">30006 </span> 5d/pop-to-ebp -<span id="L30007" class="LineNr">30007 </span> c3/return -<span id="L30008" class="LineNr">30008 </span> -<span id="L30009" class="LineNr">30009 </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="L30010" class="LineNr">30010 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30011" class="LineNr">30011 </span> 55/push-ebp -<span id="L30012" class="LineNr">30012 </span> 89/<- %ebp 4/r32/esp -<span id="L30013" class="LineNr">30013 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L30014" class="LineNr">30014 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L30015" class="LineNr">30015 </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="L30016" class="LineNr">30016 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L30017" class="LineNr">30017 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30018" class="LineNr">30018 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L30019" class="LineNr">30019 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L30020" class="LineNr">30020 </span> <span class="subxComment"># t = t->right</span> -<span id="L30021" class="LineNr">30021 </span><span class="Constant">$addr-payload-size:skip-addr</span>: -<span id="L30022" class="LineNr">30022 </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="L30023" class="LineNr">30023 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30024" class="LineNr">30024 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L30025" class="LineNr">30025 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L30026" class="LineNr">30026 </span> { -<span id="L30027" class="LineNr">30027 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L30028" class="LineNr">30028 </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="L30029" class="LineNr">30029 </span> } -<span id="L30030" class="LineNr">30030 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L30031" class="LineNr">30031 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L30032" class="LineNr">30032 </span> (<a href='mu.subx.html#L26801'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L30033" class="LineNr">30033 </span><span class="Constant">$addr-payload-size:end</span>: -<span id="L30034" class="LineNr">30034 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30035" class="LineNr">30035 </span> 89/<- %esp 5/r32/ebp -<span id="L30036" class="LineNr">30036 </span> 5d/pop-to-ebp -<span id="L30037" class="LineNr">30037 </span> c3/return -<span id="L30038" class="LineNr">30038 </span> -<span id="L30039" class="LineNr">30039 </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="L30040" class="LineNr">30040 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30041" class="LineNr">30041 </span> 55/push-ebp -<span id="L30042" class="LineNr">30042 </span> 89/<- %ebp 4/r32/esp -<span id="L30043" class="LineNr">30043 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L30044" class="LineNr">30044 </span> 50/push-eax -<span id="L30045" class="LineNr">30045 </span> 51/push-ecx -<span id="L30046" class="LineNr">30046 </span> 56/push-esi -<span id="L30047" class="LineNr">30047 </span> 57/push-edi -<span id="L30048" class="LineNr">30048 </span> <span class="subxComment"># esi = stmt</span> -<span id="L30049" class="LineNr">30049 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L30050" class="LineNr">30050 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L30051" class="LineNr">30051 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L30052" class="LineNr">30052 </span> 89/<- %edi 0/r32/eax -<span id="L30053" class="LineNr">30053 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L30054" class="LineNr">30054 </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="L30055" class="LineNr">30055 </span> 89/<- %ecx 0/r32/eax -<span id="L30056" class="LineNr">30056 </span> <span class="subxComment">#</span> -<span id="L30057" class="LineNr">30057 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L30058" class="LineNr">30058 </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="L30059" class="LineNr">30059 </span> (<a href='mu.subx.html#L30188'>addr-handle-array-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='mu.subx.html#L35631'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L30062" class="LineNr">30062 </span> (<a href='mu.subx.html#L35631'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L30063" class="LineNr">30063 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L30064" class="LineNr">30064 </span><span class="Constant">$translate-mu-populate-stmt:end</span>: -<span id="L30065" class="LineNr">30065 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L30066" class="LineNr">30066 </span> 5f/pop-to-edi -<span id="L30067" class="LineNr">30067 </span> 5e/pop-to-esi -<span id="L30068" class="LineNr">30068 </span> 59/pop-to-ecx -<span id="L30069" class="LineNr">30069 </span> 58/pop-to-eax -<span id="L30070" class="LineNr">30070 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30071" class="LineNr">30071 </span> 89/<- %esp 5/r32/ebp -<span id="L30072" class="LineNr">30072 </span> 5d/pop-to-ebp -<span id="L30073" class="LineNr">30073 </span> c3/return -<span id="L30074" class="LineNr">30074 </span> -<span id="L30075" class="LineNr">30075 </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="L30076" class="LineNr">30076 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30077" class="LineNr">30077 </span> 55/push-ebp -<span id="L30078" class="LineNr">30078 </span> 89/<- %ebp 4/r32/esp -<span id="L30079" class="LineNr">30079 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L30080" class="LineNr">30080 </span> 50/push-eax -<span id="L30081" class="LineNr">30081 </span> 51/push-ecx -<span id="L30082" class="LineNr">30082 </span> 56/push-esi -<span id="L30083" class="LineNr">30083 </span> 57/push-edi -<span id="L30084" class="LineNr">30084 </span> <span class="subxComment"># esi = stmt</span> -<span id="L30085" class="LineNr">30085 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L30086" class="LineNr">30086 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L30087" class="LineNr">30087 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L30088" class="LineNr">30088 </span> 89/<- %edi 0/r32/eax -<span id="L30089" class="LineNr">30089 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L30090" class="LineNr">30090 </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="L30091" class="LineNr">30091 </span> 89/<- %ecx 0/r32/eax -<span id="L30092" class="LineNr">30092 </span> <span class="subxComment">#</span> -<span id="L30093" class="LineNr">30093 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L30094" class="LineNr">30094 </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="L30095" class="LineNr">30095 </span> (<a href='mu.subx.html#L30231'>addr-handle-stream-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L30096" class="LineNr">30096 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L30097" class="LineNr">30097 </span> (<a href='mu.subx.html#L35631'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L30098" class="LineNr">30098 </span> (<a href='mu.subx.html#L35631'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L30099" class="LineNr">30099 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L30100" class="LineNr">30100 </span><span class="Constant">$translate-mu-populate-stream-stmt:end</span>: -<span id="L30101" class="LineNr">30101 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L30102" class="LineNr">30102 </span> 5f/pop-to-edi -<span id="L30103" class="LineNr">30103 </span> 5e/pop-to-esi -<span id="L30104" class="LineNr">30104 </span> 59/pop-to-ecx -<span id="L30105" class="LineNr">30105 </span> 58/pop-to-eax -<span id="L30106" class="LineNr">30106 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30107" class="LineNr">30107 </span> 89/<- %esp 5/r32/ebp -<span id="L30108" class="LineNr">30108 </span> 5d/pop-to-ebp -<span id="L30109" class="LineNr">30109 </span> c3/return -<span id="L30110" class="LineNr">30110 </span> -<span id="L30111" class="LineNr">30111 </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="L30112" class="LineNr">30112 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30113" class="LineNr">30113 </span> 55/push-ebp -<span id="L30114" class="LineNr">30114 </span> 89/<- %ebp 4/r32/esp -<span id="L30115" class="LineNr">30115 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L30116" class="LineNr">30116 </span> 50/push-eax -<span id="L30117" class="LineNr">30117 </span> 51/push-ecx -<span id="L30118" class="LineNr">30118 </span> 56/push-esi -<span id="L30119" class="LineNr">30119 </span> 57/push-edi -<span id="L30120" class="LineNr">30120 </span> <span class="subxComment"># esi = stmt</span> -<span id="L30121" class="LineNr">30121 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L30122" class="LineNr">30122 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L30123" class="LineNr">30123 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L30124" class="LineNr">30124 </span> 89/<- %ecx 0/r32/eax -<span id="L30125" class="LineNr">30125 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L30126" class="LineNr">30126 </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="L30127" class="LineNr">30127 </span> 89/<- %edi 0/r32/eax -<span id="L30128" class="LineNr">30128 </span> <span class="subxComment">#</span> -<span id="L30129" class="LineNr">30129 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L30130" class="LineNr">30130 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(read-from-stream"</span>) -<span id="L30131" class="LineNr">30131 </span> (<a href='mu.subx.html#L35631'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L30132" class="LineNr">30132 </span> (<a href='mu.subx.html#L35631'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L30133" class="LineNr">30133 </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="L30134" class="LineNr">30134 </span> (<a href='mu.subx.html#L30009'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L30135" class="LineNr">30135 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L30136" class="LineNr">30136 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L30137" class="LineNr">30137 </span><span class="Constant">$translate-mu-read-from-stream-stmt:end</span>: -<span id="L30138" class="LineNr">30138 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L30139" class="LineNr">30139 </span> 5f/pop-to-edi -<span id="L30140" class="LineNr">30140 </span> 5e/pop-to-esi -<span id="L30141" class="LineNr">30141 </span> 59/pop-to-ecx -<span id="L30142" class="LineNr">30142 </span> 58/pop-to-eax -<span id="L30143" class="LineNr">30143 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30144" class="LineNr">30144 </span> 89/<- %esp 5/r32/ebp -<span id="L30145" class="LineNr">30145 </span> 5d/pop-to-ebp -<span id="L30146" class="LineNr">30146 </span> c3/return -<span id="L30147" class="LineNr">30147 </span> -<span id="L30148" class="LineNr">30148 </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="L30149" class="LineNr">30149 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30150" class="LineNr">30150 </span> 55/push-ebp -<span id="L30151" class="LineNr">30151 </span> 89/<- %ebp 4/r32/esp -<span id="L30152" class="LineNr">30152 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L30153" class="LineNr">30153 </span> 50/push-eax -<span id="L30154" class="LineNr">30154 </span> 51/push-ecx -<span id="L30155" class="LineNr">30155 </span> 56/push-esi -<span id="L30156" class="LineNr">30156 </span> 57/push-edi -<span id="L30157" class="LineNr">30157 </span> <span class="subxComment"># esi = stmt</span> -<span id="L30158" class="LineNr">30158 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L30159" class="LineNr">30159 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L30160" class="LineNr">30160 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L30161" class="LineNr">30161 </span> 89/<- %ecx 0/r32/eax -<span id="L30162" class="LineNr">30162 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L30163" class="LineNr">30163 </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="L30164" class="LineNr">30164 </span> 89/<- %edi 0/r32/eax -<span id="L30165" class="LineNr">30165 </span> <span class="subxComment">#</span> -<span id="L30166" class="LineNr">30166 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L30167" class="LineNr">30167 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(write-to-stream"</span>) -<span id="L30168" class="LineNr">30168 </span> (<a href='mu.subx.html#L35631'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L30169" class="LineNr">30169 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+8)) -<span id="L30170" class="LineNr">30170 </span> (<a href='mu.subx.html#L35631'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L30171" class="LineNr">30171 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+8)) -<span id="L30172" class="LineNr">30172 </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="L30173" class="LineNr">30173 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+8)) -<span id="L30174" class="LineNr">30174 </span> (<a href='mu.subx.html#L30009'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L30175" class="LineNr">30175 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L30176" class="LineNr">30176 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L30177" class="LineNr">30177 </span><span class="Constant">$translate-mu-write-to-stream-stmt:end</span>: -<span id="L30178" class="LineNr">30178 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L30179" class="LineNr">30179 </span> 5f/pop-to-edi -<span id="L30180" class="LineNr">30180 </span> 5e/pop-to-esi -<span id="L30181" class="LineNr">30181 </span> 59/pop-to-ecx -<span id="L30182" class="LineNr">30182 </span> 58/pop-to-eax -<span id="L30183" class="LineNr">30183 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30184" class="LineNr">30184 </span> 89/<- %esp 5/r32/ebp -<span id="L30185" class="LineNr">30185 </span> 5d/pop-to-ebp -<span id="L30186" class="LineNr">30186 </span> c3/return -<span id="L30187" class="LineNr">30187 </span> -<span id="L30188" class="LineNr">30188 </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="L30189" class="LineNr">30189 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30190" class="LineNr">30190 </span> 55/push-ebp -<span id="L30191" class="LineNr">30191 </span> 89/<- %ebp 4/r32/esp -<span id="L30192" class="LineNr">30192 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L30193" class="LineNr">30193 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L30194" class="LineNr">30194 </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="L30195" class="LineNr">30195 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L30196" class="LineNr">30196 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30197" class="LineNr">30197 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L30198" class="LineNr">30198 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L30199" class="LineNr">30199 </span> <span class="subxComment"># t = t->right</span> -<span id="L30200" class="LineNr">30200 </span><span class="Constant">$addr-handle-array-payload-size:skip-addr</span>: -<span id="L30201" class="LineNr">30201 </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="L30202" class="LineNr">30202 </span> <span class="subxComment"># TODO: check eax != 0</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"># TODO: check t->left == handle</span> -<span id="L30205" class="LineNr">30205 </span> <span class="subxComment"># t = t->right</span> -<span id="L30206" class="LineNr">30206 </span><span class="Constant">$addr-handle-array-payload-size:skip-handle</span>: -<span id="L30207" class="LineNr">30207 </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="L30208" class="LineNr">30208 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30209" class="LineNr">30209 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L30210" class="LineNr">30210 </span> <span class="subxComment"># TODO: check t->left == array</span> -<span id="L30211" class="LineNr">30211 </span> <span class="subxComment"># t = t->right</span> -<span id="L30212" class="LineNr">30212 </span><span class="Constant">$addr-handle-array-payload-size:skip-array</span>: -<span id="L30213" class="LineNr">30213 </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="L30214" class="LineNr">30214 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30215" class="LineNr">30215 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L30216" class="LineNr">30216 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L30217" class="LineNr">30217 </span> { -<span id="L30218" class="LineNr">30218 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L30219" class="LineNr">30219 </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="L30220" class="LineNr">30220 </span> } -<span id="L30221" class="LineNr">30221 </span><span class="Constant">$addr-handle-array-payload-size:compute-size</span>: -<span id="L30222" class="LineNr">30222 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L30223" class="LineNr">30223 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L30224" class="LineNr">30224 </span> (<a href='mu.subx.html#L29115'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L30225" class="LineNr">30225 </span><span class="Constant">$addr-handle-array-payload-size:end</span>: -<span id="L30226" class="LineNr">30226 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30227" class="LineNr">30227 </span> 89/<- %esp 5/r32/ebp -<span id="L30228" class="LineNr">30228 </span> 5d/pop-to-ebp -<span id="L30229" class="LineNr">30229 </span> c3/return -<span id="L30230" class="LineNr">30230 </span> -<span id="L30231" class="LineNr">30231 </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="L30232" class="LineNr">30232 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30233" class="LineNr">30233 </span> 55/push-ebp -<span id="L30234" class="LineNr">30234 </span> 89/<- %ebp 4/r32/esp -<span id="L30235" class="LineNr">30235 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L30236" class="LineNr">30236 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L30237" class="LineNr">30237 </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="L30238" class="LineNr">30238 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L30239" class="LineNr">30239 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30240" class="LineNr">30240 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L30241" class="LineNr">30241 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L30242" class="LineNr">30242 </span> <span class="subxComment"># t = t->right</span> -<span id="L30243" class="LineNr">30243 </span><span class="Constant">$addr-handle-stream-payload-size:skip-addr</span>: -<span id="L30244" class="LineNr">30244 </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="L30245" class="LineNr">30245 </span> <span class="subxComment"># TODO: check eax != 0</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"># TODO: check t->left == handle</span> -<span id="L30248" class="LineNr">30248 </span> <span class="subxComment"># t = t->right</span> -<span id="L30249" class="LineNr">30249 </span><span class="Constant">$addr-handle-stream-payload-size:skip-handle</span>: -<span id="L30250" class="LineNr">30250 </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="L30251" class="LineNr">30251 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30252" class="LineNr">30252 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L30253" class="LineNr">30253 </span> <span class="subxComment"># TODO: check t->left == stream</span> -<span id="L30254" class="LineNr">30254 </span> <span class="subxComment"># t = t->right</span> -<span id="L30255" class="LineNr">30255 </span><span class="Constant">$addr-handle-stream-payload-size:skip-stream</span>: -<span id="L30256" class="LineNr">30256 </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="L30257" class="LineNr">30257 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L30258" class="LineNr">30258 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L30259" class="LineNr">30259 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L30260" class="LineNr">30260 </span> { -<span id="L30261" class="LineNr">30261 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L30262" class="LineNr">30262 </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="L30263" class="LineNr">30263 </span> } -<span id="L30264" class="LineNr">30264 </span><span class="Constant">$addr-handle-stream-payload-size:compute-size</span>: -<span id="L30265" class="LineNr">30265 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L30266" class="LineNr">30266 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L30267" class="LineNr">30267 </span> (<a href='mu.subx.html#L29115'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L30268" class="LineNr">30268 </span><span class="Constant">$addr-handle-stream-payload-size:end</span>: -<span id="L30269" class="LineNr">30269 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30270" class="LineNr">30270 </span> 89/<- %esp 5/r32/ebp -<span id="L30271" class="LineNr">30271 </span> 5d/pop-to-ebp -<span id="L30272" class="LineNr">30272 </span> c3/return -<span id="L30273" class="LineNr">30273 </span> -<span id="L30274" class="LineNr">30274 </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="L30275" class="LineNr">30275 </span> <span class="subxComment"># precondition: n is positive</span> -<span id="L30276" class="LineNr">30276 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30277" class="LineNr">30277 </span> 55/push-ebp -<span id="L30278" class="LineNr">30278 </span> 89/<- %ebp 4/r32/esp -<span id="L30279" class="LineNr">30279 </span> <span class="subxComment"># eax = n</span> -<span id="L30280" class="LineNr">30280 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L30281" class="LineNr">30281 </span> <span class="subxComment"># if (n < 0) abort</span> -<span id="L30282" class="LineNr">30282 </span> 3d/compare-eax-with 0/imm32 -<span id="L30283" class="LineNr">30283 </span> 0f 8c/jump-if-< $power-of-2?:abort/disp32 -<span id="L30284" class="LineNr">30284 </span> <span class="subxComment"># var tmp/eax: int = n-1</span> -<span id="L30285" class="LineNr">30285 </span> 48/decrement-eax -<span id="L30286" class="LineNr">30286 </span> <span class="subxComment"># var tmp2/eax: int = n & tmp</span> -<span id="L30287" class="LineNr">30287 </span> 23/and-> *(ebp+8) 0/r32/eax -<span id="L30288" class="LineNr">30288 </span> <span class="subxComment"># return (tmp2 == 0)</span> -<span id="L30289" class="LineNr">30289 </span> 3d/compare-eax-and 0/imm32 -<span id="L30290" class="LineNr">30290 </span> 0f 94/set-byte-if-= %al -<span id="L30291" class="LineNr">30291 </span> 25/and-eax-with 0xff/imm32 -<span id="L30292" class="LineNr">30292 </span><span class="Constant">$power-of-2?:end</span>: -<span id="L30293" class="LineNr">30293 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30294" class="LineNr">30294 </span> 89/<- %esp 5/r32/ebp -<span id="L30295" class="LineNr">30295 </span> 5d/pop-to-ebp -<span id="L30296" class="LineNr">30296 </span> c3/return -<span id="L30297" class="LineNr">30297 </span> -<span id="L30298" class="LineNr">30298 </span><span class="Constant">$power-of-2?:abort</span>: -<span id="L30299" class="LineNr">30299 </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="L30300" class="LineNr">30300 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L30301" class="LineNr">30301 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L30302" class="LineNr">30302 </span> <span class="subxComment"># never gets here</span> -<span id="L30303" class="LineNr">30303 </span> -<span id="L30304" class="LineNr">30304 </span><span class="subxFunction">num-shift-rights</span>: <span class="subxComment"># n: int -> result/eax: int</span> -<span id="L30305" class="LineNr">30305 </span> <span class="subxComment"># precondition: n is a positive power of 2</span> -<span id="L30306" class="LineNr">30306 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30307" class="LineNr">30307 </span> 55/push-ebp -<span id="L30308" class="LineNr">30308 </span> 89/<- %ebp 4/r32/esp -<span id="L30309" class="LineNr">30309 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L30310" class="LineNr">30310 </span> 51/push-ecx -<span id="L30311" class="LineNr">30311 </span> <span class="subxComment"># var curr/ecx: int = n</span> -<span id="L30312" class="LineNr">30312 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L30313" class="LineNr">30313 </span> <span class="subxComment"># result = 0</span> -<span id="L30314" class="LineNr">30314 </span> b8/copy-to-eax 0/imm32 -<span id="L30315" class="LineNr">30315 </span> { -<span id="L30316" class="LineNr">30316 </span> <span class="subxComment"># if (curr <= 1) break</span> -<span id="L30317" class="LineNr">30317 </span> 81 7/subop/compare %ecx 1/imm32 -<span id="L30318" class="LineNr">30318 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L30319" class="LineNr">30319 </span> 40/increment-eax -<span id="L30320" class="LineNr">30320 </span> c1/shift 5/subop/arithmetic-right %ecx 1/imm8 -<span id="L30321" class="LineNr">30321 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L30322" class="LineNr">30322 </span> } -<span id="L30323" class="LineNr">30323 </span><span class="Constant">$num-shift-rights:end</span>: -<span id="L30324" class="LineNr">30324 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L30325" class="LineNr">30325 </span> 59/pop-to-ecx -<span id="L30326" class="LineNr">30326 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30327" class="LineNr">30327 </span> 89/<- %esp 5/r32/ebp -<span id="L30328" class="LineNr">30328 </span> 5d/pop-to-ebp -<span id="L30329" class="LineNr">30329 </span> c3/return -<span id="L30330" class="LineNr">30330 </span> -<span id="L30331" class="LineNr">30331 </span><span class="subxFunction">mu-get-offset</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: int</span> -<span id="L30332" class="LineNr">30332 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30333" class="LineNr">30333 </span> 55/push-ebp -<span id="L30334" class="LineNr">30334 </span> 89/<- %ebp 4/r32/esp -<span id="L30335" class="LineNr">30335 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts->next</span> -<span id="L30336" class="LineNr">30336 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L30337" class="LineNr">30337 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L30338" class="LineNr">30338 </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="L30339" class="LineNr">30339 </span> <span class="subxComment"># var output-var/eax: (addr var) = second-inout->value</span> -<span id="L30340" class="LineNr">30340 </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="L30341" class="LineNr">30341 </span><span class="CommentedCode">#? (write-buffered Stderr "mu-get-offset: ")</span> -<span id="L30342" class="LineNr">30342 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L30343" class="LineNr">30343 </span><span class="CommentedCode">#? (write-buffered Stderr " name: ")</span> -<span id="L30344" class="LineNr">30344 </span><span class="CommentedCode">#? 50/push-eax</span> -<span id="L30345" class="LineNr">30345 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> -<span id="L30346" class="LineNr">30346 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L30347" class="LineNr">30347 </span><span class="CommentedCode">#? 58/pop-to-eax</span> -<span id="L30348" class="LineNr">30348 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L30349" class="LineNr">30349 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L30350" class="LineNr">30350 </span> <span class="subxComment"># return output-var->stack-offset</span> -<span id="L30351" class="LineNr">30351 </span> 8b/-> *(eax+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L30352" class="LineNr">30352 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> -<span id="L30353" class="LineNr">30353 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L30354" class="LineNr">30354 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L30355" class="LineNr">30355 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L30356" class="LineNr">30356 </span><span class="Constant">$emit-get-offset:end</span>: -<span id="L30357" class="LineNr">30357 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30358" class="LineNr">30358 </span> 89/<- %esp 5/r32/ebp -<span id="L30359" class="LineNr">30359 </span> 5d/pop-to-ebp -<span id="L30360" class="LineNr">30360 </span> c3/return -<span id="L30361" class="LineNr">30361 </span> -<span id="L30362" class="LineNr">30362 </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="L30363" class="LineNr">30363 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L30364" class="LineNr">30364 </span> 55/push-ebp -<span id="L30365" class="LineNr">30365 </span> 89/<- %ebp 4/r32/esp -<span id="L30366" class="LineNr">30366 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L30367" class="LineNr">30367 </span> 50/push-eax -<span id="L30368" class="LineNr">30368 </span> 51/push-ecx -<span id="L30369" class="LineNr">30369 </span> 56/push-esi -<span id="L30370" class="LineNr">30370 </span> <span class="subxComment"># esi = block</span> -<span id="L30371" class="LineNr">30371 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L30372" class="LineNr">30372 </span> <span class="subxComment"># block->var->block-depth = *Curr-block-depth</span> -<span id="L30373" class="LineNr">30373 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> -<span id="L30374" class="LineNr">30374 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 1/r32/ecx -<span id="L30375" class="LineNr">30375 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> -<span id="L30376" class="LineNr">30376 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> -<span id="L30377" class="LineNr">30377 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L30378" class="LineNr">30378 </span> <span class="subxComment">#</span> -<span id="L30379" class="LineNr">30379 </span> { -<span id="L30380" class="LineNr">30380 </span><span class="Constant">$emit-subx-block:check-empty</span>: -<span id="L30381" class="LineNr">30381 </span> 3d/compare-eax-and 0/imm32 -<span id="L30382" class="LineNr">30382 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L30383" class="LineNr">30383 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L30384" class="LineNr">30384 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"{\n"</span>) -<span id="L30385" class="LineNr">30385 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(block->var)</span> -<span id="L30386" class="LineNr">30386 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> -<span id="L30387" class="LineNr">30387 </span> 89/<- %ecx 0/r32/eax -<span id="L30388" class="LineNr">30388 </span> <span class="subxComment">#</span> -<span id="L30389" class="LineNr">30389 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L30390" class="LineNr">30390 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L30391" class="LineNr">30391 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop:\n"</span>) -<span id="L30392" class="LineNr">30392 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> -<span id="L30393" class="LineNr">30393 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0xc)) <span class="subxComment"># Block-var</span> -<span id="L30394" class="LineNr">30394 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0x10)) <span class="subxComment"># Block-var</span> -<span id="L30395" class="LineNr">30395 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> -<span id="L30396" class="LineNr">30396 </span> <span class="subxComment"># emit block->statements</span> -<span id="L30397" class="LineNr">30397 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L30398" class="LineNr">30398 </span> (<a href='mu.subx.html#L27133'>emit-subx-stmt-list</a> *(ebp+8) %eax *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L30399" class="LineNr">30399 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L30400" class="LineNr">30400 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L30401" class="LineNr">30401 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L30402" class="LineNr">30402 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> -<span id="L30403" class="LineNr">30403 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L30404" class="LineNr">30404 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"}\n"</span>) -<span id="L30405" class="LineNr">30405 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L30406" class="LineNr">30406 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L30407" class="LineNr">30407 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break:\n"</span>) -<span id="L30408" class="LineNr">30408 </span> } -<span id="L30409" class="LineNr">30409 </span><span class="Constant">$emit-subx-block:end</span>: -<span id="L30410" class="LineNr">30410 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L30411" class="LineNr">30411 </span> 5e/pop-to-esi -<span id="L30412" class="LineNr">30412 </span> 59/pop-to-ecx -<span id="L30413" class="LineNr">30413 </span> 58/pop-to-eax -<span id="L30414" class="LineNr">30414 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L30415" class="LineNr">30415 </span> 89/<- %esp 5/r32/ebp -<span id="L30416" class="LineNr">30416 </span> 5d/pop-to-ebp -<span id="L30417" class="LineNr">30417 </span> c3/return -<span id="L30418" class="LineNr">30418 </span> -<span id="L30419" class="LineNr">30419 </span><span class="subxComment"># Primitives supported</span> -<span id="L30420" class="LineNr">30420 </span><span class="subxComment"># See mu_instructions for a summary of this linked-list data structure.</span> -<span id="L30421" class="LineNr">30421 </span><span class="subxComment">#</span> -<span id="L30422" class="LineNr">30422 </span><span class="subxComment"># For each operation, put variants with hard-coded registers before flexible ones.</span> -<span id="L30423" class="LineNr">30423 </span><span class="subxComment">#</span> -<span id="L30424" class="LineNr">30424 </span><span class="subxComment"># Unfortunately, our restrictions on addresses require that various fields in</span> -<span id="L30425" class="LineNr">30425 </span><span class="subxComment"># primitives be handles, which complicates these definitions.</span> -<span id="L30426" class="LineNr">30426 </span><span class="subxComment"># - we need to insert dummy fields all over the place for fake alloc-ids</span> -<span id="L30427" class="LineNr">30427 </span><span class="subxComment"># - we can't use our syntax sugar of quoted literals for string fields</span> -<span id="L30428" class="LineNr">30428 </span><span class="subxComment">#</span> -<span id="L30429" class="LineNr">30429 </span><span class="subxComment"># Fake alloc-ids are needed because our type definitions up top require</span> -<span id="L30430" class="LineNr">30430 </span><span class="subxComment"># handles but it's clearer to statically allocate these long-lived objects.</span> -<span id="L30431" class="LineNr">30431 </span><span class="subxComment"># Fake alloc-ids are perfectly safe, but they can't be reclaimed.</span> -<span id="L30432" class="LineNr">30432 </span><span class="subxComment">#</span> -<span id="L30433" class="LineNr">30433 </span><span class="subxComment"># Every 'object' below starts with a fake alloc-id. It may also contain other</span> -<span id="L30434" class="LineNr">30434 </span><span class="subxComment"># fake alloc-ids for various handle fields.</span> -<span id="L30435" class="LineNr">30435 </span><span class="subxComment">#</span> -<span id="L30436" class="LineNr">30436 </span><span class="subxComment"># I think of objects starting with a fake alloc-id as having type 'payload'.</span> -<span id="L30437" class="LineNr">30437 </span><span class="subxComment"># It's not really intended to be created dynamically; for that use `allocate`</span> -<span id="L30438" class="LineNr">30438 </span><span class="subxComment"># as usual.</span> -<span id="L30439" class="LineNr">30439 </span><span class="subxComment">#</span> -<span id="L30440" class="LineNr">30440 </span><span class="subxComment"># Idea for a notation to simplify such definitions:</span> -<span id="L30441" class="LineNr">30441 </span><span class="subxComment"># _Primitive-increment-eax: # (payload primitive)</span> -<span id="L30442" class="LineNr">30442 </span><span class="subxComment"># 0x11/alloc-id:fake:payload</span> -<span id="L30443" class="LineNr">30443 </span><span class="subxComment"># 0x11 @(0x11 "increment") # name</span> -<span id="L30444" class="LineNr">30444 </span><span class="subxComment"># 0 0 # inouts</span> -<span id="L30445" class="LineNr">30445 </span><span class="subxComment"># 0x11 @(0x11/payload</span> -<span id="L30446" class="LineNr">30446 </span><span class="subxComment"># 0x11 @(0x11/payload # List-value</span> -<span id="L30447" class="LineNr">30447 </span><span class="subxComment"># 0 0 # Var-name</span> -<span id="L30448" class="LineNr">30448 </span><span class="subxComment"># 0x11 @(0x11 # Var-type</span> -<span id="L30449" class="LineNr">30449 </span><span class="subxComment"># 1/is-atom</span> -<span id="L30450" class="LineNr">30450 </span><span class="subxComment"># 1/value 0/unused # Type-tree-left</span> -<span id="L30451" class="LineNr">30451 </span><span class="subxComment"># 0 0 # Type-tree-right</span> -<span id="L30452" class="LineNr">30452 </span><span class="subxComment"># )</span> -<span id="L30453" class="LineNr">30453 </span><span class="subxComment"># 1 # block-depth</span> -<span id="L30454" class="LineNr">30454 </span><span class="subxComment"># 0 # stack-offset</span> -<span id="L30455" class="LineNr">30455 </span><span class="subxComment"># 0x11 @(0x11 "eax") # Var-register</span> -<span id="L30456" class="LineNr">30456 </span><span class="subxComment"># )</span> -<span id="L30457" class="LineNr">30457 </span><span class="subxComment"># 0 0) # List-next</span> -<span id="L30458" class="LineNr">30458 </span><span class="subxComment"># ...</span> -<span id="L30459" class="LineNr">30459 </span><span class="subxComment"># _Primitive-increment-ecx/imm32/next</span> -<span id="L30460" class="LineNr">30460 </span><span class="subxComment"># ...</span> -<span id="L30461" class="LineNr">30461 </span><span class="subxComment"># Awfully complex and non-obvious. But also clearly signals there's something</span> -<span id="L30462" class="LineNr">30462 </span><span class="subxComment"># to learn here, so may be worth trying.</span> -<span id="L30463" class="LineNr">30463 </span><span class="subxComment">#</span> -<span id="L30464" class="LineNr">30464 </span><span class="subxComment"># '@' is just an initial thought. Punctuation used so far in Mu: () * % # / "</span> -<span id="L30465" class="LineNr">30465 </span><span class="subxComment">#</span> -<span id="L30466" class="LineNr">30466 </span><span class="subxComment"># For now we'll continue to just use comments and manually ensure they stay up</span> -<span id="L30467" class="LineNr">30467 </span><span class="subxComment"># to date.</span> -<span id="L30468" class="LineNr">30468 </span>== data -<span id="L30469" class="LineNr">30469 </span><span class="SpecialChar">Primitives</span>: <span class="subxComment"># (addr primitive)</span> -<span id="L30470" class="LineNr">30470 </span><span class="subxH1Comment"># - increment/decrement</span> -<span id="L30471" class="LineNr">30471 </span><span class="subxMinorFunction">_Primitive-increment-eax</span>: <span class="subxComment"># (addr primitive)</span> -<span id="L30472" class="LineNr">30472 </span> <span class="subxComment"># var/eax <- increment => 40/increment-eax</span> -<span id="L30473" class="LineNr">30473 </span> 0x11/imm32/alloc-id:fake -<span id="L30474" class="LineNr">30474 </span> <a href='mu.subx.html#L34164'>_string-increment</a>/imm32/name -<span id="L30475" class="LineNr">30475 </span> 0/imm32/no-inouts -<span id="L30476" class="LineNr">30476 </span> 0/imm32/no-inouts -<span id="L30477" class="LineNr">30477 </span> 0x11/imm32/alloc-id:fake -<span id="L30478" class="LineNr">30478 </span> <span class="SpecialChar"><a href='mu.subx.html#L35091'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L30479" class="LineNr">30479 </span> 0x11/imm32/alloc-id:fake -<span id="L30480" class="LineNr">30480 </span> <a href='mu.subx.html#L34721'>_string_40_increment_eax</a>/imm32/subx-name -<span id="L30481" class="LineNr">30481 </span> 0/imm32/no-rm32 -<span id="L30482" class="LineNr">30482 </span> 0/imm32/no-r32 -<span id="L30483" class="LineNr">30483 </span> 0/imm32/no-imm32 -<span id="L30484" class="LineNr">30484 </span> 0/imm32/no-imm8 -<span id="L30485" class="LineNr">30485 </span> 0/imm32/no-disp32 -<span id="L30486" class="LineNr">30486 </span> 0/imm32/no-xm32 -<span id="L30487" class="LineNr">30487 </span> 0/imm32/no-x32 -<span id="L30488" class="LineNr">30488 </span> 0x11/imm32/alloc-id:fake -<span id="L30489" class="LineNr">30489 </span> <a href='mu.subx.html#L30490'>_Primitive-increment-ecx</a>/imm32/next -<span id="L30490" class="LineNr">30490 </span><span class="subxMinorFunction">_Primitive-increment-ecx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30491" class="LineNr">30491 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30492" class="LineNr">30492 </span> <span class="subxComment"># var/ecx <- increment => 41/increment-ecx</span> -<span id="L30493" class="LineNr">30493 </span> 0x11/imm32/alloc-id:fake -<span id="L30494" class="LineNr">30494 </span> <a href='mu.subx.html#L34164'>_string-increment</a>/imm32/name -<span id="L30495" class="LineNr">30495 </span> 0/imm32/no-inouts -<span id="L30496" class="LineNr">30496 </span> 0/imm32/no-inouts -<span id="L30497" class="LineNr">30497 </span> 0x11/imm32/alloc-id:fake -<span id="L30498" class="LineNr">30498 </span> <span class="SpecialChar"><a href='mu.subx.html#L35109'>Single-int-var-in-ecx</a></span>/imm32/outputs -<span id="L30499" class="LineNr">30499 </span> 0x11/imm32/alloc-id:fake -<span id="L30500" class="LineNr">30500 </span> <a href='mu.subx.html#L34726'>_string_41_increment_ecx</a>/imm32/subx-name -<span id="L30501" class="LineNr">30501 </span> 0/imm32/no-rm32 -<span id="L30502" class="LineNr">30502 </span> 0/imm32/no-r32 -<span id="L30503" class="LineNr">30503 </span> 0/imm32/no-imm32 -<span id="L30504" class="LineNr">30504 </span> 0/imm32/no-imm8 -<span id="L30505" class="LineNr">30505 </span> 0/imm32/no-disp32 -<span id="L30506" class="LineNr">30506 </span> 0/imm32/no-xm32 -<span id="L30507" class="LineNr">30507 </span> 0/imm32/no-x32 -<span id="L30508" class="LineNr">30508 </span> 0x11/imm32/alloc-id:fake -<span id="L30509" class="LineNr">30509 </span> <a href='mu.subx.html#L30510'>_Primitive-increment-edx</a>/imm32/next -<span id="L30510" class="LineNr">30510 </span><span class="subxMinorFunction">_Primitive-increment-edx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30511" class="LineNr">30511 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30512" class="LineNr">30512 </span> <span class="subxComment"># var/edx <- increment => 42/increment-edx</span> -<span id="L30513" class="LineNr">30513 </span> 0x11/imm32/alloc-id:fake -<span id="L30514" class="LineNr">30514 </span> <a href='mu.subx.html#L34164'>_string-increment</a>/imm32/name -<span id="L30515" class="LineNr">30515 </span> 0/imm32/no-inouts -<span id="L30516" class="LineNr">30516 </span> 0/imm32/no-inouts -<span id="L30517" class="LineNr">30517 </span> 0x11/imm32/alloc-id:fake -<span id="L30518" class="LineNr">30518 </span> <span class="SpecialChar"><a href='mu.subx.html#L35127'>Single-int-var-in-edx</a></span>/imm32/outputs -<span id="L30519" class="LineNr">30519 </span> 0x11/imm32/alloc-id:fake -<span id="L30520" class="LineNr">30520 </span> <a href='mu.subx.html#L34731'>_string_42_increment_edx</a>/imm32/subx-name -<span id="L30521" class="LineNr">30521 </span> 0/imm32/no-rm32 -<span id="L30522" class="LineNr">30522 </span> 0/imm32/no-r32 -<span id="L30523" class="LineNr">30523 </span> 0/imm32/no-imm32 -<span id="L30524" class="LineNr">30524 </span> 0/imm32/no-imm8 -<span id="L30525" class="LineNr">30525 </span> 0/imm32/no-disp32 -<span id="L30526" class="LineNr">30526 </span> 0/imm32/no-xm32 -<span id="L30527" class="LineNr">30527 </span> 0/imm32/no-x32 -<span id="L30528" class="LineNr">30528 </span> 0x11/imm32/alloc-id:fake -<span id="L30529" class="LineNr">30529 </span> <a href='mu.subx.html#L30530'>_Primitive-increment-ebx</a>/imm32/next -<span id="L30530" class="LineNr">30530 </span><span class="subxMinorFunction">_Primitive-increment-ebx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30531" class="LineNr">30531 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30532" class="LineNr">30532 </span> <span class="subxComment"># var/ebx <- increment => 43/increment-ebx</span> -<span id="L30533" class="LineNr">30533 </span> 0x11/imm32/alloc-id:fake -<span id="L30534" class="LineNr">30534 </span> <a href='mu.subx.html#L34164'>_string-increment</a>/imm32/name -<span id="L30535" class="LineNr">30535 </span> 0/imm32/no-inouts -<span id="L30536" class="LineNr">30536 </span> 0/imm32/no-inouts -<span id="L30537" class="LineNr">30537 </span> 0x11/imm32/alloc-id:fake -<span id="L30538" class="LineNr">30538 </span> <span class="SpecialChar"><a href='mu.subx.html#L35145'>Single-int-var-in-ebx</a></span>/imm32/outputs -<span id="L30539" class="LineNr">30539 </span> 0x11/imm32/alloc-id:fake -<span id="L30540" class="LineNr">30540 </span> <a href='mu.subx.html#L34736'>_string_43_increment_ebx</a>/imm32/subx-name -<span id="L30541" class="LineNr">30541 </span> 0/imm32/no-rm32 -<span id="L30542" class="LineNr">30542 </span> 0/imm32/no-r32 -<span id="L30543" class="LineNr">30543 </span> 0/imm32/no-imm32 -<span id="L30544" class="LineNr">30544 </span> 0/imm32/no-imm8 -<span id="L30545" class="LineNr">30545 </span> 0/imm32/no-disp32 -<span id="L30546" class="LineNr">30546 </span> 0/imm32/no-xm32 -<span id="L30547" class="LineNr">30547 </span> 0/imm32/no-x32 -<span id="L30548" class="LineNr">30548 </span> 0x11/imm32/alloc-id:fake -<span id="L30549" class="LineNr">30549 </span> <a href='mu.subx.html#L30550'>_Primitive-increment-esi</a>/imm32/next -<span id="L30550" class="LineNr">30550 </span><span class="subxMinorFunction">_Primitive-increment-esi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30551" class="LineNr">30551 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30552" class="LineNr">30552 </span> <span class="subxComment"># var/esi <- increment => 46/increment-esi</span> -<span id="L30553" class="LineNr">30553 </span> 0x11/imm32/alloc-id:fake -<span id="L30554" class="LineNr">30554 </span> <a href='mu.subx.html#L34164'>_string-increment</a>/imm32/name -<span id="L30555" class="LineNr">30555 </span> 0/imm32/no-inouts -<span id="L30556" class="LineNr">30556 </span> 0/imm32/no-inouts -<span id="L30557" class="LineNr">30557 </span> 0x11/imm32/alloc-id:fake -<span id="L30558" class="LineNr">30558 </span> <span class="SpecialChar"><a href='mu.subx.html#L35163'>Single-int-var-in-esi</a></span>/imm32/outputs -<span id="L30559" class="LineNr">30559 </span> 0x11/imm32/alloc-id:fake -<span id="L30560" class="LineNr">30560 </span> <a href='mu.subx.html#L34741'>_string_46_increment_esi</a>/imm32/subx-name -<span id="L30561" class="LineNr">30561 </span> 0/imm32/no-rm32 -<span id="L30562" class="LineNr">30562 </span> 0/imm32/no-r32 -<span id="L30563" class="LineNr">30563 </span> 0/imm32/no-imm32 -<span id="L30564" class="LineNr">30564 </span> 0/imm32/no-imm8 -<span id="L30565" class="LineNr">30565 </span> 0/imm32/no-disp32 -<span id="L30566" class="LineNr">30566 </span> 0/imm32/no-xm32 -<span id="L30567" class="LineNr">30567 </span> 0/imm32/no-x32 -<span id="L30568" class="LineNr">30568 </span> 0x11/imm32/alloc-id:fake -<span id="L30569" class="LineNr">30569 </span> <a href='mu.subx.html#L30570'>_Primitive-increment-edi</a>/imm32/next -<span id="L30570" class="LineNr">30570 </span><span class="subxMinorFunction">_Primitive-increment-edi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30571" class="LineNr">30571 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30572" class="LineNr">30572 </span> <span class="subxComment"># var/edi <- increment => 47/increment-edi</span> -<span id="L30573" class="LineNr">30573 </span> 0x11/imm32/alloc-id:fake -<span id="L30574" class="LineNr">30574 </span> <a href='mu.subx.html#L34164'>_string-increment</a>/imm32/name -<span id="L30575" class="LineNr">30575 </span> 0/imm32/no-inouts -<span id="L30576" class="LineNr">30576 </span> 0/imm32/no-inouts -<span id="L30577" class="LineNr">30577 </span> 0x11/imm32/alloc-id:fake -<span id="L30578" class="LineNr">30578 </span> <span class="SpecialChar"><a href='mu.subx.html#L35181'>Single-int-var-in-edi</a></span>/imm32/outputs -<span id="L30579" class="LineNr">30579 </span> 0x11/imm32/alloc-id:fake -<span id="L30580" class="LineNr">30580 </span> <a href='mu.subx.html#L34746'>_string_47_increment_edi</a>/imm32/subx-name -<span id="L30581" class="LineNr">30581 </span> 0/imm32/no-rm32 -<span id="L30582" class="LineNr">30582 </span> 0/imm32/no-r32 -<span id="L30583" class="LineNr">30583 </span> 0/imm32/no-imm32 -<span id="L30584" class="LineNr">30584 </span> 0/imm32/no-imm8 -<span id="L30585" class="LineNr">30585 </span> 0/imm32/no-disp32 -<span id="L30586" class="LineNr">30586 </span> 0/imm32/no-xm32 -<span id="L30587" class="LineNr">30587 </span> 0/imm32/no-x32 -<span id="L30588" class="LineNr">30588 </span> 0x11/imm32/alloc-id:fake -<span id="L30589" class="LineNr">30589 </span> <a href='mu.subx.html#L30590'>_Primitive-decrement-eax</a>/imm32/next -<span id="L30590" class="LineNr">30590 </span><span class="subxMinorFunction">_Primitive-decrement-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30591" class="LineNr">30591 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30592" class="LineNr">30592 </span> <span class="subxComment"># var/eax <- decrement => 48/decrement-eax</span> -<span id="L30593" class="LineNr">30593 </span> 0x11/imm32/alloc-id:fake -<span id="L30594" class="LineNr">30594 </span> <a href='mu.subx.html#L34159'>_string-decrement</a>/imm32/name -<span id="L30595" class="LineNr">30595 </span> 0/imm32/no-inouts -<span id="L30596" class="LineNr">30596 </span> 0/imm32/no-inouts -<span id="L30597" class="LineNr">30597 </span> 0x11/imm32/alloc-id:fake -<span id="L30598" class="LineNr">30598 </span> <span class="SpecialChar"><a href='mu.subx.html#L35091'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L30599" class="LineNr">30599 </span> 0x11/imm32/alloc-id:fake -<span id="L30600" class="LineNr">30600 </span> <a href='mu.subx.html#L34751'>_string_48_decrement_eax</a>/imm32/subx-name -<span id="L30601" class="LineNr">30601 </span> 0/imm32/no-rm32 -<span id="L30602" class="LineNr">30602 </span> 0/imm32/no-r32 -<span id="L30603" class="LineNr">30603 </span> 0/imm32/no-imm32 -<span id="L30604" class="LineNr">30604 </span> 0/imm32/no-imm8 -<span id="L30605" class="LineNr">30605 </span> 0/imm32/no-disp32 -<span id="L30606" class="LineNr">30606 </span> 0/imm32/no-xm32 -<span id="L30607" class="LineNr">30607 </span> 0/imm32/no-x32 -<span id="L30608" class="LineNr">30608 </span> 0x11/imm32/alloc-id:fake -<span id="L30609" class="LineNr">30609 </span> <a href='mu.subx.html#L30610'>_Primitive-decrement-ecx</a>/imm32/next -<span id="L30610" class="LineNr">30610 </span><span class="subxMinorFunction">_Primitive-decrement-ecx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30611" class="LineNr">30611 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30612" class="LineNr">30612 </span> <span class="subxComment"># var/ecx <- decrement => 49/decrement-ecx</span> -<span id="L30613" class="LineNr">30613 </span> 0x11/imm32/alloc-id:fake -<span id="L30614" class="LineNr">30614 </span> <a href='mu.subx.html#L34159'>_string-decrement</a>/imm32/name -<span id="L30615" class="LineNr">30615 </span> 0/imm32/no-inouts -<span id="L30616" class="LineNr">30616 </span> 0/imm32/no-inouts -<span id="L30617" class="LineNr">30617 </span> 0x11/imm32/alloc-id:fake -<span id="L30618" class="LineNr">30618 </span> <span class="SpecialChar"><a href='mu.subx.html#L35109'>Single-int-var-in-ecx</a></span>/imm32/outputs -<span id="L30619" class="LineNr">30619 </span> 0x11/imm32/alloc-id:fake -<span id="L30620" class="LineNr">30620 </span> <a href='mu.subx.html#L34756'>_string_49_decrement_ecx</a>/imm32/subx-name -<span id="L30621" class="LineNr">30621 </span> 0/imm32/no-rm32 -<span id="L30622" class="LineNr">30622 </span> 0/imm32/no-r32 -<span id="L30623" class="LineNr">30623 </span> 0/imm32/no-imm32 -<span id="L30624" class="LineNr">30624 </span> 0/imm32/no-imm8 -<span id="L30625" class="LineNr">30625 </span> 0/imm32/no-disp32 -<span id="L30626" class="LineNr">30626 </span> 0/imm32/no-xm32 -<span id="L30627" class="LineNr">30627 </span> 0/imm32/no-x32 -<span id="L30628" class="LineNr">30628 </span> 0x11/imm32/alloc-id:fake -<span id="L30629" class="LineNr">30629 </span> <a href='mu.subx.html#L30630'>_Primitive-decrement-edx</a>/imm32/next -<span id="L30630" class="LineNr">30630 </span><span class="subxMinorFunction">_Primitive-decrement-edx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30631" class="LineNr">30631 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30632" class="LineNr">30632 </span> <span class="subxComment"># var/edx <- decrement => 4a/decrement-edx</span> -<span id="L30633" class="LineNr">30633 </span> 0x11/imm32/alloc-id:fake -<span id="L30634" class="LineNr">30634 </span> <a href='mu.subx.html#L34159'>_string-decrement</a>/imm32/name -<span id="L30635" class="LineNr">30635 </span> 0/imm32/no-inouts -<span id="L30636" class="LineNr">30636 </span> 0/imm32/no-inouts -<span id="L30637" class="LineNr">30637 </span> 0x11/imm32/alloc-id:fake -<span id="L30638" class="LineNr">30638 </span> <span class="SpecialChar"><a href='mu.subx.html#L35127'>Single-int-var-in-edx</a></span>/imm32/outputs -<span id="L30639" class="LineNr">30639 </span> 0x11/imm32/alloc-id:fake -<span id="L30640" class="LineNr">30640 </span> <a href='mu.subx.html#L34761'>_string_4a_decrement_edx</a>/imm32/subx-name -<span id="L30641" class="LineNr">30641 </span> 0/imm32/no-rm32 -<span id="L30642" class="LineNr">30642 </span> 0/imm32/no-r32 -<span id="L30643" class="LineNr">30643 </span> 0/imm32/no-imm32 -<span id="L30644" class="LineNr">30644 </span> 0/imm32/no-imm8 -<span id="L30645" class="LineNr">30645 </span> 0/imm32/no-disp32 -<span id="L30646" class="LineNr">30646 </span> 0/imm32/no-xm32 -<span id="L30647" class="LineNr">30647 </span> 0/imm32/no-x32 -<span id="L30648" class="LineNr">30648 </span> 0x11/imm32/alloc-id:fake -<span id="L30649" class="LineNr">30649 </span> <a href='mu.subx.html#L30650'>_Primitive-decrement-ebx</a>/imm32/next -<span id="L30650" class="LineNr">30650 </span><span class="subxMinorFunction">_Primitive-decrement-ebx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30651" class="LineNr">30651 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30652" class="LineNr">30652 </span> <span class="subxComment"># var/ebx <- decrement => 4b/decrement-ebx</span> -<span id="L30653" class="LineNr">30653 </span> 0x11/imm32/alloc-id:fake -<span id="L30654" class="LineNr">30654 </span> <a href='mu.subx.html#L34159'>_string-decrement</a>/imm32/name -<span id="L30655" class="LineNr">30655 </span> 0/imm32/no-inouts -<span id="L30656" class="LineNr">30656 </span> 0/imm32/no-inouts -<span id="L30657" class="LineNr">30657 </span> 0x11/imm32/alloc-id:fake -<span id="L30658" class="LineNr">30658 </span> <span class="SpecialChar"><a href='mu.subx.html#L35145'>Single-int-var-in-ebx</a></span>/imm32/outputs -<span id="L30659" class="LineNr">30659 </span> 0x11/imm32/alloc-id:fake -<span id="L30660" class="LineNr">30660 </span> <a href='mu.subx.html#L34766'>_string_4b_decrement_ebx</a>/imm32/subx-name -<span id="L30661" class="LineNr">30661 </span> 0/imm32/no-rm32 -<span id="L30662" class="LineNr">30662 </span> 0/imm32/no-r32 -<span id="L30663" class="LineNr">30663 </span> 0/imm32/no-imm32 -<span id="L30664" class="LineNr">30664 </span> 0/imm32/no-imm8 -<span id="L30665" class="LineNr">30665 </span> 0/imm32/no-disp32 -<span id="L30666" class="LineNr">30666 </span> 0/imm32/no-xm32 -<span id="L30667" class="LineNr">30667 </span> 0/imm32/no-x32 -<span id="L30668" class="LineNr">30668 </span> 0x11/imm32/alloc-id:fake -<span id="L30669" class="LineNr">30669 </span> <a href='mu.subx.html#L30670'>_Primitive-decrement-esi</a>/imm32/next -<span id="L30670" class="LineNr">30670 </span><span class="subxMinorFunction">_Primitive-decrement-esi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30671" class="LineNr">30671 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30672" class="LineNr">30672 </span> <span class="subxComment"># var/esi <- decrement => 4e/decrement-esi</span> -<span id="L30673" class="LineNr">30673 </span> 0x11/imm32/alloc-id:fake -<span id="L30674" class="LineNr">30674 </span> <a href='mu.subx.html#L34159'>_string-decrement</a>/imm32/name -<span id="L30675" class="LineNr">30675 </span> 0/imm32/no-inouts -<span id="L30676" class="LineNr">30676 </span> 0/imm32/no-inouts -<span id="L30677" class="LineNr">30677 </span> 0x11/imm32/alloc-id:fake -<span id="L30678" class="LineNr">30678 </span> <span class="SpecialChar"><a href='mu.subx.html#L35163'>Single-int-var-in-esi</a></span>/imm32/outputs -<span id="L30679" class="LineNr">30679 </span> 0x11/imm32/alloc-id:fake -<span id="L30680" class="LineNr">30680 </span> <a href='mu.subx.html#L34771'>_string_4e_decrement_esi</a>/imm32/subx-name -<span id="L30681" class="LineNr">30681 </span> 0/imm32/no-rm32 -<span id="L30682" class="LineNr">30682 </span> 0/imm32/no-r32 -<span id="L30683" class="LineNr">30683 </span> 0/imm32/no-imm32 -<span id="L30684" class="LineNr">30684 </span> 0/imm32/no-imm8 -<span id="L30685" class="LineNr">30685 </span> 0/imm32/no-disp32 -<span id="L30686" class="LineNr">30686 </span> 0/imm32/no-xm32 -<span id="L30687" class="LineNr">30687 </span> 0/imm32/no-x32 -<span id="L30688" class="LineNr">30688 </span> 0x11/imm32/alloc-id:fake -<span id="L30689" class="LineNr">30689 </span> <a href='mu.subx.html#L30690'>_Primitive-decrement-edi</a>/imm32/next -<span id="L30690" class="LineNr">30690 </span><span class="subxMinorFunction">_Primitive-decrement-edi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30691" class="LineNr">30691 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30692" class="LineNr">30692 </span> <span class="subxComment"># var/edi <- decrement => 4f/decrement-edi</span> -<span id="L30693" class="LineNr">30693 </span> 0x11/imm32/alloc-id:fake -<span id="L30694" class="LineNr">30694 </span> <a href='mu.subx.html#L34159'>_string-decrement</a>/imm32/name -<span id="L30695" class="LineNr">30695 </span> 0/imm32/no-inouts -<span id="L30696" class="LineNr">30696 </span> 0/imm32/no-inouts -<span id="L30697" class="LineNr">30697 </span> 0x11/imm32/alloc-id:fake -<span id="L30698" class="LineNr">30698 </span> <span class="SpecialChar"><a href='mu.subx.html#L35181'>Single-int-var-in-edi</a></span>/imm32/outputs -<span id="L30699" class="LineNr">30699 </span> 0x11/imm32/alloc-id:fake -<span id="L30700" class="LineNr">30700 </span> <a href='mu.subx.html#L34776'>_string_4f_decrement_edi</a>/imm32/subx-name -<span id="L30701" class="LineNr">30701 </span> 0/imm32/no-rm32 -<span id="L30702" class="LineNr">30702 </span> 0/imm32/no-r32 -<span id="L30703" class="LineNr">30703 </span> 0/imm32/no-imm32 -<span id="L30704" class="LineNr">30704 </span> 0/imm32/no-imm8 -<span id="L30705" class="LineNr">30705 </span> 0/imm32/no-disp32 -<span id="L30706" class="LineNr">30706 </span> 0/imm32/no-xm32 -<span id="L30707" class="LineNr">30707 </span> 0/imm32/no-x32 -<span id="L30708" class="LineNr">30708 </span> 0x11/imm32/alloc-id:fake -<span id="L30709" class="LineNr">30709 </span> <a href='mu.subx.html#L30710'>_Primitive-increment-mem</a>/imm32/next -<span id="L30710" class="LineNr">30710 </span><span class="subxMinorFunction">_Primitive-increment-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30711" class="LineNr">30711 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30712" class="LineNr">30712 </span> <span class="subxComment"># increment var => ff 0/subop/increment *(ebp+__)</span> -<span id="L30713" class="LineNr">30713 </span> 0x11/imm32/alloc-id:fake -<span id="L30714" class="LineNr">30714 </span> <a href='mu.subx.html#L34164'>_string-increment</a>/imm32/name -<span id="L30715" class="LineNr">30715 </span> 0x11/imm32/alloc-id:fake -<span id="L30716" class="LineNr">30716 </span> <span class="SpecialChar"><a href='mu.subx.html#L34922'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L30717" class="LineNr">30717 </span> 0/imm32/no-outputs -<span id="L30718" class="LineNr">30718 </span> 0/imm32/no-outputs -<span id="L30719" class="LineNr">30719 </span> 0x11/imm32/alloc-id:fake -<span id="L30720" class="LineNr">30720 </span> <a href='mu.subx.html#L34896'>_string_ff_subop_increment</a>/imm32/subx-name -<span id="L30721" class="LineNr">30721 </span> 1/imm32/rm32-is-first-inout -<span id="L30722" class="LineNr">30722 </span> 0/imm32/no-r32 -<span id="L30723" class="LineNr">30723 </span> 0/imm32/no-imm32 -<span id="L30724" class="LineNr">30724 </span> 0/imm32/no-imm8 -<span id="L30725" class="LineNr">30725 </span> 0/imm32/no-disp32 -<span id="L30726" class="LineNr">30726 </span> 0/imm32/no-xm32 -<span id="L30727" class="LineNr">30727 </span> 0/imm32/no-x32 -<span id="L30728" class="LineNr">30728 </span> 0x11/imm32/alloc-id:fake -<span id="L30729" class="LineNr">30729 </span> <a href='mu.subx.html#L30730'>_Primitive-increment-reg</a>/imm32/next -<span id="L30730" class="LineNr">30730 </span><span class="subxMinorFunction">_Primitive-increment-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30731" class="LineNr">30731 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30732" class="LineNr">30732 </span> <span class="subxComment"># var/reg <- increment => ff 0/subop/increment %__</span> -<span id="L30733" class="LineNr">30733 </span> 0x11/imm32/alloc-id:fake -<span id="L30734" class="LineNr">30734 </span> <a href='mu.subx.html#L34164'>_string-increment</a>/imm32/name -<span id="L30735" class="LineNr">30735 </span> 0/imm32/no-inouts -<span id="L30736" class="LineNr">30736 </span> 0/imm32/no-inouts -<span id="L30737" class="LineNr">30737 </span> 0x11/imm32/alloc-id:fake -<span id="L30738" class="LineNr">30738 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30739" class="LineNr">30739 </span> 0x11/imm32/alloc-id:fake -<span id="L30740" class="LineNr">30740 </span> <a href='mu.subx.html#L34896'>_string_ff_subop_increment</a>/imm32/subx-name -<span id="L30741" class="LineNr">30741 </span> 3/imm32/rm32-is-first-output -<span id="L30742" class="LineNr">30742 </span> 0/imm32/no-r32 -<span id="L30743" class="LineNr">30743 </span> 0/imm32/no-imm32 -<span id="L30744" class="LineNr">30744 </span> 0/imm32/no-imm8 -<span id="L30745" class="LineNr">30745 </span> 0/imm32/no-disp32 -<span id="L30746" class="LineNr">30746 </span> 0/imm32/no-xm32 -<span id="L30747" class="LineNr">30747 </span> 0/imm32/no-x32 -<span id="L30748" class="LineNr">30748 </span> 0x11/imm32/alloc-id:fake -<span id="L30749" class="LineNr">30749 </span> <a href='mu.subx.html#L30750'>_Primitive-decrement-mem</a>/imm32/next -<span id="L30750" class="LineNr">30750 </span><span class="subxMinorFunction">_Primitive-decrement-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30751" class="LineNr">30751 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30752" class="LineNr">30752 </span> <span class="subxComment"># decrement var => ff 1/subop/decrement *(ebp+__)</span> -<span id="L30753" class="LineNr">30753 </span> 0x11/imm32/alloc-id:fake -<span id="L30754" class="LineNr">30754 </span> <a href='mu.subx.html#L34159'>_string-decrement</a>/imm32/name -<span id="L30755" class="LineNr">30755 </span> 0x11/imm32/alloc-id:fake -<span id="L30756" class="LineNr">30756 </span> <span class="SpecialChar"><a href='mu.subx.html#L34922'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L30757" class="LineNr">30757 </span> 0/imm32/no-outputs -<span id="L30758" class="LineNr">30758 </span> 0/imm32/no-outputs -<span id="L30759" class="LineNr">30759 </span> 0x11/imm32/alloc-id:fake -<span id="L30760" class="LineNr">30760 </span> <a href='mu.subx.html#L34901'>_string_ff_subop_decrement</a>/imm32/subx-name -<span id="L30761" class="LineNr">30761 </span> 1/imm32/rm32-is-first-inout -<span id="L30762" class="LineNr">30762 </span> 0/imm32/no-r32 -<span id="L30763" class="LineNr">30763 </span> 0/imm32/no-imm32 -<span id="L30764" class="LineNr">30764 </span> 0/imm32/no-imm8 -<span id="L30765" class="LineNr">30765 </span> 0/imm32/no-disp32 -<span id="L30766" class="LineNr">30766 </span> 0/imm32/no-xm32 -<span id="L30767" class="LineNr">30767 </span> 0/imm32/no-x32 -<span id="L30768" class="LineNr">30768 </span> 0x11/imm32/alloc-id:fake -<span id="L30769" class="LineNr">30769 </span> <a href='mu.subx.html#L30770'>_Primitive-decrement-reg</a>/imm32/next -<span id="L30770" class="LineNr">30770 </span><span class="subxMinorFunction">_Primitive-decrement-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30771" class="LineNr">30771 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30772" class="LineNr">30772 </span> <span class="subxComment"># var/reg <- decrement => ff 1/subop/decrement %__</span> -<span id="L30773" class="LineNr">30773 </span> 0x11/imm32/alloc-id:fake -<span id="L30774" class="LineNr">30774 </span> <a href='mu.subx.html#L34159'>_string-decrement</a>/imm32/name -<span id="L30775" class="LineNr">30775 </span> 0/imm32/no-inouts -<span id="L30776" class="LineNr">30776 </span> 0/imm32/no-inouts -<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#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30779" class="LineNr">30779 </span> 0x11/imm32/alloc-id:fake -<span id="L30780" class="LineNr">30780 </span> <a href='mu.subx.html#L34901'>_string_ff_subop_decrement</a>/imm32/subx-name -<span id="L30781" class="LineNr">30781 </span> 3/imm32/rm32-is-first-output -<span id="L30782" class="LineNr">30782 </span> 0/imm32/no-r32 -<span id="L30783" class="LineNr">30783 </span> 0/imm32/no-imm32 -<span id="L30784" class="LineNr">30784 </span> 0/imm32/no-imm8 -<span id="L30785" class="LineNr">30785 </span> 0/imm32/no-disp32 -<span id="L30786" class="LineNr">30786 </span> 0/imm32/no-xm32 -<span id="L30787" class="LineNr">30787 </span> 0/imm32/no-x32 -<span id="L30788" class="LineNr">30788 </span> 0x11/imm32/alloc-id:fake -<span id="L30789" class="LineNr">30789 </span> <a href='mu.subx.html#L30791'>_Primitive-add-to-eax</a>/imm32/next -<span id="L30790" class="LineNr">30790 </span><span class="subxH1Comment"># - add</span> -<span id="L30791" class="LineNr">30791 </span><span class="subxMinorFunction">_Primitive-add-to-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30792" class="LineNr">30792 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30793" class="LineNr">30793 </span> <span class="subxComment"># var/eax <- add lit => 05/add-to-eax lit/imm32</span> -<span id="L30794" class="LineNr">30794 </span> 0x11/imm32/alloc-id:fake -<span id="L30795" class="LineNr">30795 </span> <a href='mu.subx.html#L34014'>_string-add</a>/imm32/name -<span id="L30796" class="LineNr">30796 </span> 0x11/imm32/alloc-id:fake -<span id="L30797" class="LineNr">30797 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L30798" class="LineNr">30798 </span> 0x11/imm32/alloc-id:fake -<span id="L30799" class="LineNr">30799 </span> <span class="SpecialChar"><a href='mu.subx.html#L35091'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L30800" class="LineNr">30800 </span> 0x11/imm32/alloc-id:fake -<span id="L30801" class="LineNr">30801 </span> <a href='mu.subx.html#L34381'>_string_05_add_to_eax</a>/imm32/subx-name -<span id="L30802" class="LineNr">30802 </span> 0/imm32/no-rm32 -<span id="L30803" class="LineNr">30803 </span> 0/imm32/no-r32 -<span id="L30804" class="LineNr">30804 </span> 1/imm32/imm32-is-first-inout -<span id="L30805" class="LineNr">30805 </span> 0/imm32/no-imm8 -<span id="L30806" class="LineNr">30806 </span> 0/imm32/no-disp32 -<span id="L30807" class="LineNr">30807 </span> 0/imm32/no-xm32 -<span id="L30808" class="LineNr">30808 </span> 0/imm32/no-x32 -<span id="L30809" class="LineNr">30809 </span> 0x11/imm32/alloc-id:fake -<span id="L30810" class="LineNr">30810 </span> <a href='mu.subx.html#L30811'>_Primitive-add-reg-to-reg</a>/imm32/next -<span id="L30811" class="LineNr">30811 </span><span class="subxMinorFunction">_Primitive-add-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30812" class="LineNr">30812 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30813" class="LineNr">30813 </span> <span class="subxComment"># var1/reg <- add var2/reg => 01/add-to var1/rm32 var2/r32</span> -<span id="L30814" class="LineNr">30814 </span> 0x11/imm32/alloc-id:fake -<span id="L30815" class="LineNr">30815 </span> <a href='mu.subx.html#L34014'>_string-add</a>/imm32/name -<span id="L30816" class="LineNr">30816 </span> 0x11/imm32/alloc-id:fake -<span id="L30817" class="LineNr">30817 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L30818" class="LineNr">30818 </span> 0x11/imm32/alloc-id:fake -<span id="L30819" class="LineNr">30819 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30820" class="LineNr">30820 </span> 0x11/imm32/alloc-id:fake -<span id="L30821" class="LineNr">30821 </span> <a href='mu.subx.html#L34371'>_string_01_add_to</a>/imm32/subx-name -<span id="L30822" class="LineNr">30822 </span> 3/imm32/rm32-is-first-output -<span id="L30823" class="LineNr">30823 </span> 1/imm32/r32-is-first-inout -<span id="L30824" class="LineNr">30824 </span> 0/imm32/no-imm32 -<span id="L30825" class="LineNr">30825 </span> 0/imm32/no-imm8 -<span id="L30826" class="LineNr">30826 </span> 0/imm32/no-disp32 -<span id="L30827" class="LineNr">30827 </span> 0/imm32/no-xm32 -<span id="L30828" class="LineNr">30828 </span> 0/imm32/no-x32 -<span id="L30829" class="LineNr">30829 </span> 0x11/imm32/alloc-id:fake -<span id="L30830" class="LineNr">30830 </span> <a href='mu.subx.html#L30831'>_Primitive-add-reg-to-mem</a>/imm32/next -<span id="L30831" class="LineNr">30831 </span><span class="subxMinorFunction">_Primitive-add-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30832" class="LineNr">30832 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30833" class="LineNr">30833 </span> <span class="subxComment"># add-to var1 var2/reg => 01/add-to var1 var2/r32</span> -<span id="L30834" class="LineNr">30834 </span> 0x11/imm32/alloc-id:fake -<span id="L30835" class="LineNr">30835 </span> <a href='mu.subx.html#L34024'>_string-add-to</a>/imm32/name -<span id="L30836" class="LineNr">30836 </span> 0x11/imm32/alloc-id:fake -<span id="L30837" class="LineNr">30837 </span> <span class="SpecialChar"><a href='mu.subx.html#L34960'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L30838" class="LineNr">30838 </span> 0/imm32/no-outputs -<span id="L30839" class="LineNr">30839 </span> 0/imm32/no-outputs -<span id="L30840" class="LineNr">30840 </span> 0x11/imm32/alloc-id:fake -<span id="L30841" class="LineNr">30841 </span> <a href='mu.subx.html#L34371'>_string_01_add_to</a>/imm32/subx-name -<span id="L30842" class="LineNr">30842 </span> 1/imm32/rm32-is-first-inout -<span id="L30843" class="LineNr">30843 </span> 2/imm32/r32-is-second-inout -<span id="L30844" class="LineNr">30844 </span> 0/imm32/no-imm32 -<span id="L30845" class="LineNr">30845 </span> 0/imm32/no-imm8 -<span id="L30846" class="LineNr">30846 </span> 0/imm32/no-disp32 -<span id="L30847" class="LineNr">30847 </span> 0/imm32/no-xm32 -<span id="L30848" class="LineNr">30848 </span> 0/imm32/no-x32 -<span id="L30849" class="LineNr">30849 </span> 0x11/imm32/alloc-id:fake -<span id="L30850" class="LineNr">30850 </span> <a href='mu.subx.html#L30851'>_Primitive-add-mem-to-reg</a>/imm32/next -<span id="L30851" class="LineNr">30851 </span><span class="subxMinorFunction">_Primitive-add-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30852" class="LineNr">30852 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30853" class="LineNr">30853 </span> <span class="subxComment"># var1/reg <- add var2 => 03/add var2/rm32 var1/r32</span> -<span id="L30854" class="LineNr">30854 </span> 0x11/imm32/alloc-id:fake -<span id="L30855" class="LineNr">30855 </span> <a href='mu.subx.html#L34014'>_string-add</a>/imm32/name -<span id="L30856" class="LineNr">30856 </span> 0x11/imm32/alloc-id:fake -<span id="L30857" class="LineNr">30857 </span> <span class="SpecialChar"><a href='mu.subx.html#L34922'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L30858" class="LineNr">30858 </span> 0x11/imm32/alloc-id:fake -<span id="L30859" class="LineNr">30859 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30860" class="LineNr">30860 </span> 0x11/imm32/alloc-id:fake -<span id="L30861" class="LineNr">30861 </span> <a href='mu.subx.html#L34376'>_string_03_add</a>/imm32/subx-name -<span id="L30862" class="LineNr">30862 </span> 1/imm32/rm32-is-first-inout -<span id="L30863" class="LineNr">30863 </span> 3/imm32/r32-is-first-output -<span id="L30864" class="LineNr">30864 </span> 0/imm32/no-imm32 -<span id="L30865" class="LineNr">30865 </span> 0/imm32/no-imm8 -<span id="L30866" class="LineNr">30866 </span> 0/imm32/no-disp32 -<span id="L30867" class="LineNr">30867 </span> 0/imm32/no-xm32 -<span id="L30868" class="LineNr">30868 </span> 0/imm32/no-x32 -<span id="L30869" class="LineNr">30869 </span> 0x11/imm32/alloc-id:fake -<span id="L30870" class="LineNr">30870 </span> <a href='mu.subx.html#L30871'>_Primitive-add-lit-to-reg</a>/imm32/next -<span id="L30871" class="LineNr">30871 </span><span class="subxMinorFunction">_Primitive-add-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30872" class="LineNr">30872 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30873" class="LineNr">30873 </span> <span class="subxComment"># var1/reg <- add lit => 81 0/subop/add var1/rm32 lit/imm32</span> -<span id="L30874" class="LineNr">30874 </span> 0x11/imm32/alloc-id:fake -<span id="L30875" class="LineNr">30875 </span> <a href='mu.subx.html#L34014'>_string-add</a>/imm32/name -<span id="L30876" class="LineNr">30876 </span> 0x11/imm32/alloc-id:fake -<span id="L30877" class="LineNr">30877 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L30878" class="LineNr">30878 </span> 0x11/imm32/alloc-id:fake -<span id="L30879" class="LineNr">30879 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30880" class="LineNr">30880 </span> 0x11/imm32/alloc-id:fake -<span id="L30881" class="LineNr">30881 </span> <a href='mu.subx.html#L34781'>_string_81_subop_add</a>/imm32/subx-name -<span id="L30882" class="LineNr">30882 </span> 3/imm32/rm32-is-first-output -<span id="L30883" class="LineNr">30883 </span> 0/imm32/no-r32 -<span id="L30884" class="LineNr">30884 </span> 1/imm32/imm32-is-first-inout -<span id="L30885" class="LineNr">30885 </span> 0/imm32/no-imm8 -<span id="L30886" class="LineNr">30886 </span> 0/imm32/no-disp32 -<span id="L30887" class="LineNr">30887 </span> 0/imm32/no-xm32 -<span id="L30888" class="LineNr">30888 </span> 0/imm32/no-x32 -<span id="L30889" class="LineNr">30889 </span> 0x11/imm32/alloc-id:fake -<span id="L30890" class="LineNr">30890 </span> <a href='mu.subx.html#L30891'>_Primitive-add-lit-to-mem</a>/imm32/next -<span id="L30891" class="LineNr">30891 </span><span class="subxMinorFunction">_Primitive-add-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30892" class="LineNr">30892 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30893" class="LineNr">30893 </span> <span class="subxComment"># add-to var1, lit => 81 0/subop/add var1/rm32 lit/imm32</span> -<span id="L30894" class="LineNr">30894 </span> 0x11/imm32/alloc-id:fake -<span id="L30895" class="LineNr">30895 </span> <a href='mu.subx.html#L34024'>_string-add-to</a>/imm32/name -<span id="L30896" class="LineNr">30896 </span> 0x11/imm32/alloc-id:fake -<span id="L30897" class="LineNr">30897 </span> <span class="SpecialChar"><a href='mu.subx.html#L34996'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L30898" class="LineNr">30898 </span> 0/imm32/no-outputs -<span id="L30899" class="LineNr">30899 </span> 0/imm32/no-outputs -<span id="L30900" class="LineNr">30900 </span> 0x11/imm32/alloc-id:fake -<span id="L30901" class="LineNr">30901 </span> <a href='mu.subx.html#L34781'>_string_81_subop_add</a>/imm32/subx-name -<span id="L30902" class="LineNr">30902 </span> 1/imm32/rm32-is-first-inout -<span id="L30903" class="LineNr">30903 </span> 0/imm32/no-r32 -<span id="L30904" class="LineNr">30904 </span> 2/imm32/imm32-is-second-inout -<span id="L30905" class="LineNr">30905 </span> 0/imm32/no-imm8 -<span id="L30906" class="LineNr">30906 </span> 0/imm32/no-disp32 -<span id="L30907" class="LineNr">30907 </span> 0/imm32/no-xm32 -<span id="L30908" class="LineNr">30908 </span> 0/imm32/no-x32 -<span id="L30909" class="LineNr">30909 </span> 0x11/imm32/alloc-id:fake -<span id="L30910" class="LineNr">30910 </span> <a href='mu.subx.html#L30912'>_Primitive-subtract-from-eax</a>/imm32/next -<span id="L30911" class="LineNr">30911 </span><span class="subxH1Comment"># - subtract</span> -<span id="L30912" class="LineNr">30912 </span><span class="subxMinorFunction">_Primitive-subtract-from-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30913" class="LineNr">30913 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30914" class="LineNr">30914 </span> <span class="subxComment"># var/eax <- subtract lit => 2d/subtract-from-eax lit/imm32</span> -<span id="L30915" class="LineNr">30915 </span> 0x11/imm32/alloc-id:fake -<span id="L30916" class="LineNr">30916 </span> <a href='mu.subx.html#L34334'>_string-subtract</a>/imm32/name -<span id="L30917" class="LineNr">30917 </span> 0x11/imm32/alloc-id:fake -<span id="L30918" class="LineNr">30918 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L30919" class="LineNr">30919 </span> 0x11/imm32/alloc-id:fake -<span id="L30920" class="LineNr">30920 </span> <span class="SpecialChar"><a href='mu.subx.html#L35091'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L29368" class="LineNr">29368 </span> <span class="subxComment"># return type->value</span> +<span id="L29369" class="LineNr">29369 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L29370" class="LineNr">29370 </span><span class="Constant">$stream-element-type-id:end</span>: +<span id="L29371" class="LineNr">29371 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29372" class="LineNr">29372 </span> 89/<- %esp 5/r32/ebp +<span id="L29373" class="LineNr">29373 </span> 5d/pop-to-ebp +<span id="L29374" class="LineNr">29374 </span> c3/return +<span id="L29375" class="LineNr">29375 </span> +<span id="L29376" class="LineNr">29376 </span><span class="Constant">$stream-element-type-id:error0</span>: +<span id="L29377" class="LineNr">29377 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"stream-element-type-id: var '"</span>) +<span id="L29378" class="LineNr">29378 </span> 50/push-eax +<span id="L29379" class="LineNr">29379 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29380" class="LineNr">29380 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29381" class="LineNr">29381 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L29382" class="LineNr">29382 </span> 58/pop-to-eax +<span id="L29383" class="LineNr">29383 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has no type\n"</span>) +<span id="L29384" class="LineNr">29384 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L29385" class="LineNr">29385 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L29386" class="LineNr">29386 </span> <span class="subxComment"># never gets here</span> +<span id="L29387" class="LineNr">29387 </span> +<span id="L29388" class="LineNr">29388 </span><span class="Constant">$stream-element-type-id:error1</span>: +<span id="L29389" class="LineNr">29389 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"stream-element-type-id: var '"</span>) +<span id="L29390" class="LineNr">29390 </span> 50/push-eax +<span id="L29391" class="LineNr">29391 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29392" class="LineNr">29392 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29393" class="LineNr">29393 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L29394" class="LineNr">29394 </span> 58/pop-to-eax +<span id="L29395" class="LineNr">29395 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has atomic type "</span>) +<span id="L29396" class="LineNr">29396 </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="L29397" class="LineNr">29397 </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="L29398" class="LineNr">29398 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L29399" class="LineNr">29399 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L29400" class="LineNr">29400 </span> <span class="subxComment"># never gets here</span> +<span id="L29401" class="LineNr">29401 </span> +<span id="L29402" class="LineNr">29402 </span><span class="Constant">$stream-element-type-id:error2</span>: +<span id="L29403" class="LineNr">29403 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"stream-element-type-id: var '"</span>) +<span id="L29404" class="LineNr">29404 </span> 50/push-eax +<span id="L29405" class="LineNr">29405 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29406" class="LineNr">29406 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29407" class="LineNr">29407 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L29408" class="LineNr">29408 </span> 58/pop-to-eax +<span id="L29409" class="LineNr">29409 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has non-stream type\n"</span>) +<span id="L29410" class="LineNr">29410 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L29411" class="LineNr">29411 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L29412" class="LineNr">29412 </span> <span class="subxComment"># never gets here</span> +<span id="L29413" class="LineNr">29413 </span> +<span id="L29414" class="LineNr">29414 </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="L29415" class="LineNr">29415 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29416" class="LineNr">29416 </span> 55/push-ebp +<span id="L29417" class="LineNr">29417 </span> 89/<- %ebp 4/r32/esp +<span id="L29418" class="LineNr">29418 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29419" class="LineNr">29419 </span> 50/push-eax +<span id="L29420" class="LineNr">29420 </span> 53/push-ebx +<span id="L29421" class="LineNr">29421 </span> <span class="subxComment"># ebx = base</span> +<span id="L29422" class="LineNr">29422 </span> 8b/-> *(ebp+0xc) 3/r32/ebx +<span id="L29423" class="LineNr">29423 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29424" class="LineNr">29424 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/-> *"</span>) +<span id="L29425" class="LineNr">29425 </span> <span class="subxComment"># if base is an (addr array ...) in a register</span> +<span id="L29426" class="LineNr">29426 </span> { +<span id="L29427" class="LineNr">29427 </span> 81 7/subop/compare *(ebx+0x18)) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29428" class="LineNr">29428 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29429" class="LineNr">29429 </span><span class="Constant">$emit-save-size-to:emit-base-from-register</span>: +<span id="L29430" class="LineNr">29430 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29431" class="LineNr">29431 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29432" class="LineNr">29432 </span> eb/jump $emit-save-size-to:emit-output/disp8 +<span id="L29433" class="LineNr">29433 </span> } +<span id="L29434" class="LineNr">29434 </span> <span class="subxComment"># otherwise if base is an (array ...) on the stack</span> +<span id="L29435" class="LineNr">29435 </span> { +<span id="L29436" class="LineNr">29436 </span> 81 7/subop/compare *(ebx+0x14)) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L29437" class="LineNr">29437 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29438" class="LineNr">29438 </span><span class="Constant">$emit-save-size-to:emit-base-from-stack</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 id="L29443" class="LineNr">29443 </span><span class="Constant">$emit-save-size-to:emit-output</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> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19595'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> +<span id="L29446" class="LineNr">29446 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29447" class="LineNr">29447 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29448" class="LineNr">29448 </span><span class="Constant">$emit-save-size-to:end</span>: +<span id="L29449" class="LineNr">29449 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29450" class="LineNr">29450 </span> 5b/pop-to-ebx +<span id="L29451" class="LineNr">29451 </span> 58/pop-to-eax +<span id="L29452" class="LineNr">29452 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29453" class="LineNr">29453 </span> 89/<- %esp 5/r32/ebp +<span id="L29454" class="LineNr">29454 </span> 5d/pop-to-ebp +<span id="L29455" class="LineNr">29455 </span> c3/return +<span id="L29456" class="LineNr">29456 </span> +<span id="L29457" class="LineNr">29457 </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="L29458" class="LineNr">29458 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29459" class="LineNr">29459 </span> 55/push-ebp +<span id="L29460" class="LineNr">29460 </span> 89/<- %ebp 4/r32/esp +<span id="L29461" class="LineNr">29461 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29462" class="LineNr">29462 </span> 50/push-eax +<span id="L29463" class="LineNr">29463 </span> <span class="subxComment">#</span> +<span id="L29464" class="LineNr">29464 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29465" class="LineNr">29465 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c1/shift 5/subop/>> %"</span>) +<span id="L29466" class="LineNr">29466 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L29467" class="LineNr">29467 </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="L29468" class="LineNr">29468 </span> (<a href='mu.subx.html#L30557'>num-shift-rights</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L29469" class="LineNr">29469 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29470" class="LineNr">29470 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8\n"</span>) +<span id="L29471" class="LineNr">29471 </span><span class="Constant">$emit-divide-by-shift-right:end</span>: +<span id="L29472" class="LineNr">29472 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29473" class="LineNr">29473 </span> 58/pop-to-eax +<span id="L29474" class="LineNr">29474 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29475" class="LineNr">29475 </span> 89/<- %esp 5/r32/ebp +<span id="L29476" class="LineNr">29476 </span> 5d/pop-to-ebp +<span id="L29477" class="LineNr">29477 </span> c3/return +<span id="L29478" class="LineNr">29478 </span> +<span id="L29479" class="LineNr">29479 </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="L29480" class="LineNr">29480 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29481" class="LineNr">29481 </span> 55/push-ebp +<span id="L29482" class="LineNr">29482 </span> 89/<- %ebp 4/r32/esp +<span id="L29483" class="LineNr">29483 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29484" class="LineNr">29484 </span> 50/push-eax +<span id="L29485" class="LineNr">29485 </span> 56/push-esi +<span id="L29486" class="LineNr">29486 </span> <span class="subxComment"># esi = stmt</span> +<span id="L29487" class="LineNr">29487 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L29488" class="LineNr">29488 </span> <span class="subxComment">#</span> +<span id="L29489" class="LineNr">29489 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29490" class="LineNr">29490 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8a/byte->"</span>) +<span id="L29491" class="LineNr">29491 </span> <span class="subxComment"># emit stmt->inouts[0]</span> +<span id="L29492" class="LineNr">29492 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29493" class="LineNr">29493 </span> (<a href='mu.subx.html#L36046'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) +<span id="L29494" class="LineNr">29494 </span> <span class="subxComment"># emit /r32 for stmt->outputs[0]->register</span> +<span id="L29495" class="LineNr">29495 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29496" class="LineNr">29496 </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="L29497" class="LineNr">29497 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29498" class="LineNr">29498 </span> (<a href='131table.subx.html#L2111'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19595'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> +<span id="L29499" class="LineNr">29499 </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="L29500" class="LineNr">29500 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29501" class="LineNr">29501 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29502" class="LineNr">29502 </span> <span class="subxComment"># clear rest of register</span> +<span id="L29503" class="LineNr">29503 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29504" class="LineNr">29504 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 4/subop/and %"</span>) +<span id="L29505" class="LineNr">29505 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L29506" class="LineNr">29506 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29507" class="LineNr">29507 </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="L29508" class="LineNr">29508 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29509" class="LineNr">29509 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29510" class="LineNr">29510 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0xff/imm32\n"</span>) +<span id="L29511" class="LineNr">29511 </span><span class="Constant">$translate-mu-copy-byte-stmt:end</span>: +<span id="L29512" class="LineNr">29512 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29513" class="LineNr">29513 </span> 5e/pop-to-esi +<span id="L29514" class="LineNr">29514 </span> 58/pop-to-eax +<span id="L29515" class="LineNr">29515 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29516" class="LineNr">29516 </span> 89/<- %esp 5/r32/ebp +<span id="L29517" class="LineNr">29517 </span> 5d/pop-to-ebp +<span id="L29518" class="LineNr">29518 </span> c3/return +<span id="L29519" class="LineNr">29519 </span> +<span id="L29520" class="LineNr">29520 </span><span class="subxComment"># a little different from other translate- functions; notice the extra 'fn' argument</span> +<span id="L29521" class="LineNr">29521 </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="L29522" class="LineNr">29522 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29523" class="LineNr">29523 </span> 55/push-ebp +<span id="L29524" class="LineNr">29524 </span> 89/<- %ebp 4/r32/esp +<span id="L29525" class="LineNr">29525 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29526" class="LineNr">29526 </span> 53/push-ebx +<span id="L29527" class="LineNr">29527 </span> <span class="subxComment"># ebx = stmt</span> +<span id="L29528" class="LineNr">29528 </span> 8b/-> *(ebp+0xc) 3/r32/ebx +<span id="L29529" class="LineNr">29529 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]</span> +<span id="L29530" class="LineNr">29530 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => 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/<- %ebx 0/r32/eax +<span id="L29533" class="LineNr">29533 </span> <span class="subxComment"># emit bounds-check</span> +<span id="L29534" class="LineNr">29534 </span> (<a href='mu.subx.html#L29571'>emit-mu-index-bounds-check</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) +<span id="L29535" class="LineNr">29535 </span> <span class="subxComment"># if (var->register) do one thing</span> +<span id="L29536" class="LineNr">29536 </span> { +<span id="L29537" class="LineNr">29537 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29538" class="LineNr">29538 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29539" class="LineNr">29539 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> +<span id="L29540" class="LineNr">29540 </span> (<a href='mu.subx.html#L29690'>translate-mu-index-stmt-with-array-in-register</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L29541" class="LineNr">29541 </span> eb/jump $translate-mu-index-stmt:end/disp8 +<span id="L29542" class="LineNr">29542 </span> } +<span id="L29543" class="LineNr">29543 </span> <span class="subxComment"># if (var->offset) do a different thing</span> +<span id="L29544" class="LineNr">29544 </span> { +<span id="L29545" class="LineNr">29545 </span> 81 7/subop/compare *(ebx+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L29546" class="LineNr">29546 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29547" class="LineNr">29547 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> +<span id="L29548" class="LineNr">29548 </span> (<a href='mu.subx.html#L29814'>translate-mu-index-stmt-with-array-on-stack</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L29549" class="LineNr">29549 </span> eb/jump $translate-mu-index-stmt:end/disp8 +<span id="L29550" class="LineNr">29550 </span> } +<span id="L29551" class="LineNr">29551 </span><span class="Constant">$translate-mu-index-stmt:end</span>: +<span id="L29552" class="LineNr">29552 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29553" class="LineNr">29553 </span> 5b/pop-to-ebx +<span id="L29554" class="LineNr">29554 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29555" class="LineNr">29555 </span> 89/<- %esp 5/r32/ebp +<span id="L29556" class="LineNr">29556 </span> 5d/pop-to-ebp +<span id="L29557" class="LineNr">29557 </span> c3/return +<span id="L29558" class="LineNr">29558 </span> +<span id="L29559" class="LineNr">29559 </span><span class="Constant">$translate-mu-index-stmt:error1</span>: +<span id="L29560" class="LineNr">29560 </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="L29561" class="LineNr">29561 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L29562" class="LineNr">29562 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L29563" class="LineNr">29563 </span> <span class="subxComment"># never gets here</span> +<span id="L29564" class="LineNr">29564 </span> +<span id="L29565" class="LineNr">29565 </span><span class="Constant">$translate-mu-index-stmt:error2</span>: +<span id="L29566" class="LineNr">29566 </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="L29567" class="LineNr">29567 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L29568" class="LineNr">29568 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L29569" class="LineNr">29569 </span> <span class="subxComment"># never gets here</span> +<span id="L29570" class="LineNr">29570 </span> +<span id="L29571" class="LineNr">29571 </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="L29572" class="LineNr">29572 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29573" class="LineNr">29573 </span> 55/push-ebp +<span id="L29574" class="LineNr">29574 </span> 89/<- %ebp 4/r32/esp +<span id="L29575" class="LineNr">29575 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29576" class="LineNr">29576 </span> 50/push-eax +<span id="L29577" class="LineNr">29577 </span> 51/push-ecx +<span id="L29578" class="LineNr">29578 </span> 52/push-edx +<span id="L29579" class="LineNr">29579 </span> 53/push-ebx +<span id="L29580" class="LineNr">29580 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L29581" class="LineNr">29581 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L29582" class="LineNr">29582 </span> <span class="subxComment">#</span> +<span id="L29583" class="LineNr">29583 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29584" class="LineNr">29584 </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="L29585" class="LineNr">29585 </span><span class="Constant">$emit-mu-index-bounds-check:compute-base</span>: +<span id="L29586" class="LineNr">29586 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> +<span id="L29587" class="LineNr">29587 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29588" class="LineNr">29588 </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="L29589" class="LineNr">29589 </span> 89/<- %ebx 0/r32/eax +<span id="L29590" class="LineNr">29590 </span><span class="Constant">$emit-mu-index-bounds-check:emit-index</span>: +<span id="L29591" class="LineNr">29591 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> +<span id="L29592" class="LineNr">29592 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29593" class="LineNr">29593 </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="L29594" class="LineNr">29594 </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="L29595" class="LineNr">29595 </span> 89/<- %edx 0/r32/eax +<span id="L29596" class="LineNr">29596 </span> <span class="subxComment"># if index->register, print its code</span> +<span id="L29597" class="LineNr">29597 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29598" class="LineNr">29598 </span> { +<span id="L29599" class="LineNr">29599 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29600" class="LineNr">29600 </span><span class="Constant">$emit-mu-index-bounds-check:emit-register-index</span>: +<span id="L29601" class="LineNr">29601 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"%"</span>) +<span id="L29602" class="LineNr">29602 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29603" class="LineNr">29603 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29604" class="LineNr">29604 </span> eb/jump $emit-mu-index-bounds-check:index-done/disp8 +<span id="L29605" class="LineNr">29605 </span> } +<span id="L29606" class="LineNr">29606 </span> <span class="subxComment"># otherwise if index is a literal, print it</span> +<span id="L29607" class="LineNr">29607 </span><span class="Constant">$emit-mu-index-bounds-check:emit-literal-index</span>: +<span id="L29608" class="LineNr">29608 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29609" class="LineNr">29609 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L29610" class="LineNr">29610 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29611" class="LineNr">29611 </span> { +<span id="L29612" class="LineNr">29612 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29613" class="LineNr">29613 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29614" class="LineNr">29614 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29615" class="LineNr">29615 </span> } +<span id="L29616" class="LineNr">29616 </span><span class="Constant">$emit-mu-index-bounds-check:index-done</span>: +<span id="L29617" class="LineNr">29617 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L29618" class="LineNr">29618 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size</span>: +<span id="L29619" class="LineNr">29619 </span> <span class="subxComment"># if index is a literal or int, print size of array element</span> +<span id="L29620" class="LineNr">29620 </span> { +<span id="L29621" class="LineNr">29621 </span> { +<span id="L29622" class="LineNr">29622 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29623" class="LineNr">29623 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> +<span id="L29624" class="LineNr">29624 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29625" class="LineNr">29625 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29626" class="LineNr">29626 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29627" class="LineNr">29627 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L29628" class="LineNr">29628 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29629" class="LineNr">29629 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29630" class="LineNr">29630 </span> eb/jump $emit-mu-index-bounds-check:emit-element-size-offset/disp8 +<span id="L29631" class="LineNr">29631 </span> } +<span id="L29632" class="LineNr">29632 </span><span class="Constant">$emit-mu-index-bounds-check:emit-int-register-index</span>: +<span id="L29633" class="LineNr">29633 </span> (<a href='mu.subx.html#L29171'>array-element-size</a> %ebx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L29634" class="LineNr">29634 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29635" class="LineNr">29635 </span> e9/jump $emit-mu-index-bounds-check:emit-base/disp32 +<span id="L29636" class="LineNr">29636 </span> } +<span id="L29637" class="LineNr">29637 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size-offset</span>: +<span id="L29638" class="LineNr">29638 </span> <span class="subxComment"># if index has type (offset ...), print "1"</span> +<span id="L29639" class="LineNr">29639 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29640" class="LineNr">29640 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29641" class="LineNr">29641 </span> { +<span id="L29642" class="LineNr">29642 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29643" class="LineNr">29643 </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="L29644" class="LineNr">29644 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> +<span id="L29645" class="LineNr">29645 </span> 3d/compare-eax-and 0/imm32/false +<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">$emit-mu-index-bounds-check:emit-offset-register-index</span>: +<span id="L29649" class="LineNr">29649 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"1"</span>) +<span id="L29650" class="LineNr">29650 </span> } +<span id="L29651" class="LineNr">29651 </span> } +<span id="L29652" class="LineNr">29652 </span><span class="Constant">$emit-mu-index-bounds-check:emit-base</span>: +<span id="L29653" class="LineNr">29653 </span> <span class="subxComment"># if base is in a register, print " *" base->register</span> +<span id="L29654" class="LineNr">29654 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29655" class="LineNr">29655 </span> { +<span id="L29656" class="LineNr">29656 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29657" class="LineNr">29657 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) +<span id="L29658" class="LineNr">29658 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+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> e9/jump $emit-mu-index-bounds-check:emit-function-name/disp32 +<span id="L29661" class="LineNr">29661 </span> } +<span id="L29662" class="LineNr">29662 </span> <span class="subxComment"># otherwise print " *(ebp+" base->offset ")"</span> +<span id="L29663" class="LineNr">29663 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) +<span id="L29664" class="LineNr">29664 </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="L29665" class="LineNr">29665 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L29666" class="LineNr">29666 </span><span class="Constant">$emit-mu-index-bounds-check:emit-function-name</span>: +<span id="L29667" class="LineNr">29667 </span> <span class="subxComment"># " \"" function-name "\""</span> +<span id="L29668" class="LineNr">29668 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") +<span id="L29669" class="LineNr">29669 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L29670" class="LineNr">29670 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L29671" class="LineNr">29671 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29672" class="LineNr">29672 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>") +<span id="L29673" class="LineNr">29673 </span><span class="Constant">$emit-mu-index-bounds-check:emit-array-name</span>: +<span id="L29674" class="LineNr">29674 </span> <span class="subxComment"># " \"" base->name "\""</span> +<span id="L29675" class="LineNr">29675 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") +<span id="L29676" class="LineNr">29676 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29677" class="LineNr">29677 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29678" class="LineNr">29678 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>)\n") +<span id="L29679" class="LineNr">29679 </span><span class="Constant">$emit-mu-index-bounds-check:end</span>: +<span id="L29680" class="LineNr">29680 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29681" class="LineNr">29681 </span> 5b/pop-to-ebx +<span id="L29682" class="LineNr">29682 </span> 5a/pop-to-edx +<span id="L29683" class="LineNr">29683 </span> 59/pop-to-ecx +<span id="L29684" class="LineNr">29684 </span> 58/pop-to-eax +<span id="L29685" class="LineNr">29685 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29686" class="LineNr">29686 </span> 89/<- %esp 5/r32/ebp +<span id="L29687" class="LineNr">29687 </span> 5d/pop-to-ebp +<span id="L29688" class="LineNr">29688 </span> c3/return +<span id="L29689" class="LineNr">29689 </span> +<span id="L29690" class="LineNr">29690 </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="L29691" class="LineNr">29691 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29692" class="LineNr">29692 </span> 55/push-ebp +<span id="L29693" class="LineNr">29693 </span> 89/<- %ebp 4/r32/esp +<span id="L29694" class="LineNr">29694 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29695" class="LineNr">29695 </span> 50/push-eax +<span id="L29696" class="LineNr">29696 </span> 51/push-ecx +<span id="L29697" class="LineNr">29697 </span> 52/push-edx +<span id="L29698" class="LineNr">29698 </span> 53/push-ebx +<span id="L29699" class="LineNr">29699 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L29700" class="LineNr">29700 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L29701" class="LineNr">29701 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> +<span id="L29702" class="LineNr">29702 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29703" class="LineNr">29703 </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="L29704" class="LineNr">29704 </span> 89/<- %ebx 0/r32/eax +<span id="L29705" class="LineNr">29705 </span> <span class="subxComment"># emit null check</span> +<span id="L29706" class="LineNr">29706 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29707" class="LineNr">29707 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 7/subop/compare %"</span>) +<span id="L29708" class="LineNr">29708 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29709" class="LineNr">29709 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29710" class="LineNr">29710 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/imm32\n"</span>) +<span id="L29711" class="LineNr">29711 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>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">"0f 84/jump-if-= <a href='313index-bounds-check.subx.html#L88'>__mu-abort-null-index-base-address</a>/disp32\n"</span>) +<span id="L29713" class="LineNr">29713 </span> <span class="subxComment">#</span> +<span id="L29714" class="LineNr">29714 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29715" class="LineNr">29715 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *("</span>) +<span id="L29716" class="LineNr">29716 </span> <span class="subxComment"># TODO: ensure inouts[0] is in a register and not dereferenced</span> +<span id="L29717" class="LineNr">29717 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-base</span>: +<span id="L29718" class="LineNr">29718 </span> <span class="subxComment"># print base->register " + "</span> +<span id="L29719" class="LineNr">29719 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29720" class="LineNr">29720 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</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="Constant">" + "</span>) +<span id="L29722" class="LineNr">29722 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> +<span id="L29723" class="LineNr">29723 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29724" class="LineNr">29724 </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="L29725" class="LineNr">29725 </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="L29726" class="LineNr">29726 </span> 89/<- %edx 0/r32/eax +<span id="L29727" class="LineNr">29727 </span> <span class="subxComment"># if index->register</span> +<span id="L29728" class="LineNr">29728 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29729" class="LineNr">29729 </span> { +<span id="L29730" class="LineNr">29730 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29731" class="LineNr">29731 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index</span>: +<span id="L29732" class="LineNr">29732 </span> <span class="subxComment"># if index is an int</span> +<span id="L29733" class="LineNr">29733 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29734" class="LineNr">29734 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L29735" class="LineNr">29735 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29736" class="LineNr">29736 </span> { +<span id="L29737" class="LineNr">29737 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29738" class="LineNr">29738 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-int-register-index</span>: +<span id="L29739" class="LineNr">29739 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + 4) "</span> +<span id="L29740" class="LineNr">29740 </span> <span class="subxS1Comment"># . index->register "<<"</span> +<span id="L29741" class="LineNr">29741 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29742" class="LineNr">29742 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29743" class="LineNr">29743 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) +<span id="L29744" class="LineNr">29744 </span> <span class="subxS1Comment"># . log2(array-element-size(base->type))</span> +<span id="L29745" class="LineNr">29745 </span> <span class="subxComment"># we know size is a power of 2</span> +<span id="L29746" class="LineNr">29746 </span> (<a href='mu.subx.html#L29171'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29747" class="LineNr">29747 </span> (<a href='mu.subx.html#L30557'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> +<span id="L29748" class="LineNr">29748 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29749" class="LineNr">29749 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-register-index-done/disp32 +<span id="L29750" class="LineNr">29750 </span> } +<span id="L29751" class="LineNr">29751 </span> <span class="subxComment"># if index->type is any other atom, abort</span> +<span id="L29752" class="LineNr">29752 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29753" class="LineNr">29753 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29754" class="LineNr">29754 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 +<span id="L29755" class="LineNr">29755 </span> <span class="subxComment"># if index has type (offset ...)</span> +<span id="L29756" class="LineNr">29756 </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="L29757" class="LineNr">29757 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> +<span id="L29758" class="LineNr">29758 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29759" class="LineNr">29759 </span> { +<span id="L29760" class="LineNr">29760 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29761" class="LineNr">29761 </span> <span class="subxComment"># print index->register</span> +<span id="L29762" class="LineNr">29762 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-offset-register-index</span>: +<span id="L29763" class="LineNr">29763 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29764" class="LineNr">29764 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29765" class="LineNr">29765 </span> } +<span id="L29766" class="LineNr">29766 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index-done</span>: +<span id="L29767" class="LineNr">29767 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + 4) "</span>) +<span id="L29768" class="LineNr">29768 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 +<span id="L29769" class="LineNr">29769 </span> } +<span id="L29770" class="LineNr">29770 </span> <span class="subxComment"># otherwise if index is a literal</span> +<span id="L29771" class="LineNr">29771 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29772" class="LineNr">29772 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L29773" class="LineNr">29773 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29774" class="LineNr">29774 </span> { +<span id="L29775" class="LineNr">29775 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29776" class="LineNr">29776 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-literal-index</span>: +<span id="L29777" class="LineNr">29777 </span> <span class="subxComment"># var index-value/edx: int = parse-hex-int(index->name)</span> +<span id="L29778" class="LineNr">29778 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29779" class="LineNr">29779 </span> (<a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># => eax</span> +<span id="L29780" class="LineNr">29780 </span> 89/<- %edx 0/r32/eax +<span id="L29781" class="LineNr">29781 </span> <span class="subxComment"># offset = idx-value * array-element-size(base->type)</span> +<span id="L29782" class="LineNr">29782 </span> (<a href='mu.subx.html#L29171'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29783" class="LineNr">29783 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> +<span id="L29784" class="LineNr">29784 </span> <span class="subxComment"># offset += 4 for array size</span> +<span id="L29785" class="LineNr">29785 </span> 05/add-to-eax 4/imm32 +<span id="L29786" class="LineNr">29786 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L29787" class="LineNr">29787 </span> <span class="subxComment"># print offset</span> +<span id="L29788" class="LineNr">29788 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<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> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 +<span id="L29791" class="LineNr">29791 </span> } +<span id="L29792" class="LineNr">29792 </span> <span class="subxComment"># otherwise abort</span> +<span id="L29793" class="LineNr">29793 </span> e9/jump $translate-mu-index-stmt:error1/disp32 +<span id="L29794" class="LineNr">29794 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-output</span>: +<span id="L29795" class="LineNr">29795 </span> <span class="subxComment"># outputs[0] "/r32"</span> +<span id="L29796" class="LineNr">29796 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L29797" class="LineNr">29797 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29798" class="LineNr">29798 </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="L29799" class="LineNr">29799 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29800" class="LineNr">29800 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19595'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L29801" class="LineNr">29801 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29802" class="LineNr">29802 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29803" class="LineNr">29803 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:end</span>: +<span id="L29804" class="LineNr">29804 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29805" class="LineNr">29805 </span> 5b/pop-to-ebx +<span id="L29806" class="LineNr">29806 </span> 5a/pop-to-edx +<span id="L29807" class="LineNr">29807 </span> 59/pop-to-ecx +<span id="L29808" class="LineNr">29808 </span> 58/pop-to-eax +<span id="L29809" class="LineNr">29809 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29810" class="LineNr">29810 </span> 89/<- %esp 5/r32/ebp +<span id="L29811" class="LineNr">29811 </span> 5d/pop-to-ebp +<span id="L29812" class="LineNr">29812 </span> c3/return +<span id="L29813" class="LineNr">29813 </span> +<span id="L29814" class="LineNr">29814 </span><span class="subxFunction">translate-mu-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="L29815" class="LineNr">29815 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29816" class="LineNr">29816 </span> 55/push-ebp +<span id="L29817" class="LineNr">29817 </span> 89/<- %ebp 4/r32/esp +<span id="L29818" class="LineNr">29818 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29819" class="LineNr">29819 </span> 50/push-eax +<span id="L29820" class="LineNr">29820 </span> 51/push-ecx +<span id="L29821" class="LineNr">29821 </span> 52/push-edx +<span id="L29822" class="LineNr">29822 </span> 53/push-ebx +<span id="L29823" class="LineNr">29823 </span> <span class="subxComment">#</span> +<span id="L29824" class="LineNr">29824 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29825" class="LineNr">29825 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *(ebp + "</span>) +<span id="L29826" class="LineNr">29826 </span> <span class="subxComment"># var curr/edx: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L29827" class="LineNr">29827 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L29828" class="LineNr">29828 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29829" class="LineNr">29829 </span> 89/<- %edx 0/r32/eax +<span id="L29830" class="LineNr">29830 </span> <span class="subxComment"># var base/ecx: (addr var) = lookup(curr->value)</span> +<span id="L29831" class="LineNr">29831 </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="L29832" class="LineNr">29832 </span> 89/<- %ecx 0/r32/eax +<span id="L29833" class="LineNr">29833 </span> <span class="subxComment"># var curr2/eax: (addr stmt-var) = lookup(curr->next)</span> +<span id="L29834" class="LineNr">29834 </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="L29835" class="LineNr">29835 </span> <span class="subxComment"># var index/edx: (handle var) = curr2->value</span> +<span id="L29836" class="LineNr">29836 </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="L29837" class="LineNr">29837 </span> 89/<- %edx 0/r32/eax +<span id="L29838" class="LineNr">29838 </span> <span class="subxComment"># if index->register</span> +<span id="L29839" class="LineNr">29839 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29840" class="LineNr">29840 </span> { +<span id="L29841" class="LineNr">29841 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29842" class="LineNr">29842 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index</span>: +<span id="L29843" class="LineNr">29843 </span> <span class="subxComment"># if index is an int</span> +<span id="L29844" class="LineNr">29844 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29845" class="LineNr">29845 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L29846" class="LineNr">29846 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29847" class="LineNr">29847 </span> { +<span id="L29848" class="LineNr">29848 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29849" class="LineNr">29849 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-int-register-index</span>: +<span id="L29850" class="LineNr">29850 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + " base->offset+4</span> +<span id="L29851" class="LineNr">29851 </span> <span class="subxS1Comment"># . inouts[1]->register "<<"</span> +<span id="L29852" class="LineNr">29852 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29853" class="LineNr">29853 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29854" class="LineNr">29854 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) +<span id="L29855" class="LineNr">29855 </span> <span class="subxS1Comment"># . log2(array-element-size(base))</span> +<span id="L29856" class="LineNr">29856 </span> <span class="subxComment"># TODO: ensure size is a power of 2</span> +<span id="L29857" class="LineNr">29857 </span> (<a href='mu.subx.html#L29171'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29858" class="LineNr">29858 </span> (<a href='mu.subx.html#L30557'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> +<span id="L29859" class="LineNr">29859 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29860" class="LineNr">29860 </span> <span class="subxComment">#</span> +<span id="L29861" class="LineNr">29861 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) +<span id="L29862" class="LineNr">29862 </span> <span class="subxComment">#</span> +<span id="L29863" class="LineNr">29863 </span> 8b/-> *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L29864" class="LineNr">29864 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array length</span> +<span id="L29865" class="LineNr">29865 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29866" class="LineNr">29866 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-register-index-done/disp32 +<span id="L29867" class="LineNr">29867 </span> } +<span id="L29868" class="LineNr">29868 </span> <span class="subxComment"># if index->type is any other atom, abort</span> +<span id="L29869" class="LineNr">29869 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29870" class="LineNr">29870 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29871" class="LineNr">29871 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 +<span id="L29872" class="LineNr">29872 </span> <span class="subxComment"># if index has type (offset ...)</span> +<span id="L29873" class="LineNr">29873 </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="L29874" class="LineNr">29874 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> +<span id="L29875" class="LineNr">29875 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29876" class="LineNr">29876 </span> { +<span id="L29877" class="LineNr">29877 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29878" class="LineNr">29878 </span> <span class="subxComment"># print index->register</span> +<span id="L29879" class="LineNr">29879 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-offset-register-index</span>: +<span id="L29880" class="LineNr">29880 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29881" class="LineNr">29881 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29882" class="LineNr">29882 </span> } +<span id="L29883" class="LineNr">29883 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index-done</span>: +<span id="L29884" class="LineNr">29884 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L29885" class="LineNr">29885 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 +<span id="L29886" class="LineNr">29886 </span> } +<span id="L29887" class="LineNr">29887 </span> <span class="subxComment"># otherwise if index is a literal</span> +<span id="L29888" class="LineNr">29888 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29889" class="LineNr">29889 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L29890" class="LineNr">29890 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29891" class="LineNr">29891 </span> { +<span id="L29892" class="LineNr">29892 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29893" class="LineNr">29893 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-literal-index</span>: +<span id="L29894" class="LineNr">29894 </span> <span class="subxComment"># var idx-value/edx: int = parse-hex-int(index->name)</span> +<span id="L29895" class="LineNr">29895 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29896" class="LineNr">29896 </span> (<a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># => eax</span> +<span id="L29897" class="LineNr">29897 </span> 89/<- %edx 0/r32/eax +<span id="L29898" class="LineNr">29898 </span> <span class="subxComment"># offset = idx-value * array-element-size(base)</span> +<span id="L29899" class="LineNr">29899 </span> (<a href='mu.subx.html#L29171'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29900" class="LineNr">29900 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> +<span id="L29901" class="LineNr">29901 </span> <span class="subxComment"># offset += base->offset</span> +<span id="L29902" class="LineNr">29902 </span> 03/add *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L29903" class="LineNr">29903 </span> <span class="subxComment"># offset += 4 for array size</span> +<span id="L29904" class="LineNr">29904 </span> 05/add-to-eax 4/imm32 +<span id="L29905" class="LineNr">29905 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L29906" class="LineNr">29906 </span> <span class="subxComment"># print offset</span> +<span id="L29907" class="LineNr">29907 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29908" class="LineNr">29908 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L29909" class="LineNr">29909 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 +<span id="L29910" class="LineNr">29910 </span> } +<span id="L29911" class="LineNr">29911 </span> <span class="subxComment"># otherwise abort</span> +<span id="L29912" class="LineNr">29912 </span> e9/jump $translate-mu-index-stmt:error1/disp32 +<span id="L29913" class="LineNr">29913 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-output</span>: +<span id="L29914" class="LineNr">29914 </span> <span class="subxComment"># outputs[0] "/r32"</span> +<span id="L29915" class="LineNr">29915 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L29916" class="LineNr">29916 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x14) *(eax+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29917" class="LineNr">29917 </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="L29918" class="LineNr">29918 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29919" class="LineNr">29919 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19595'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L29920" class="LineNr">29920 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29921" class="LineNr">29921 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29922" class="LineNr">29922 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:end</span>: +<span id="L29923" class="LineNr">29923 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29924" class="LineNr">29924 </span> 5b/pop-to-ebx +<span id="L29925" class="LineNr">29925 </span> 5a/pop-to-edx +<span id="L29926" class="LineNr">29926 </span> 59/pop-to-ecx +<span id="L29927" class="LineNr">29927 </span> 58/pop-to-eax +<span id="L29928" class="LineNr">29928 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29929" class="LineNr">29929 </span> 89/<- %esp 5/r32/ebp +<span id="L29930" class="LineNr">29930 </span> 5d/pop-to-ebp +<span id="L29931" class="LineNr">29931 </span> c3/return +<span id="L29932" class="LineNr">29932 </span> +<span id="L29933" class="LineNr">29933 </span><span class="subxFunction">translate-mu-compute-offset-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29934" class="LineNr">29934 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29935" class="LineNr">29935 </span> 55/push-ebp +<span id="L29936" class="LineNr">29936 </span> 89/<- %ebp 4/r32/esp +<span id="L29937" class="LineNr">29937 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29938" class="LineNr">29938 </span> 50/push-eax +<span id="L29939" class="LineNr">29939 </span> <span class="subxComment"># var index-type/eax: (addr type-tree) = stmt->inouts->next->value->type</span> +<span id="L29940" class="LineNr">29940 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L29941" class="LineNr">29941 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29942" class="LineNr">29942 </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="L29943" class="LineNr">29943 </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="L29944" class="LineNr">29944 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29945" class="LineNr">29945 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> +<span id="L29946" class="LineNr">29946 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29947" class="LineNr">29947 </span> { +<span id="L29948" class="LineNr">29948 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29949" class="LineNr">29949 </span> <span class="subxComment"># special-case: index is a literal</span> +<span id="L29950" class="LineNr">29950 </span> (<a href='mu.subx.html#L30010'>translate-mu-compute-offset-stmt-with-literal-index</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L29951" class="LineNr">29951 </span> eb/jump $translate-mu-compute-offset-stmt:end/disp8 +<span id="L29952" class="LineNr">29952 </span> } +<span id="L29953" class="LineNr">29953 </span> (<a href='mu.subx.html#L29962'>translate-mu-compute-offset-stmt-with-register-index</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L29954" class="LineNr">29954 </span><span class="Constant">$translate-mu-compute-offset-stmt:end</span>: +<span id="L29955" class="LineNr">29955 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29956" class="LineNr">29956 </span> 58/pop-to-eax +<span id="L29957" class="LineNr">29957 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29958" class="LineNr">29958 </span> 89/<- %esp 5/r32/ebp +<span id="L29959" class="LineNr">29959 </span> 5d/pop-to-ebp +<span id="L29960" class="LineNr">29960 </span> c3/return +<span id="L29961" class="LineNr">29961 </span> +<span id="L29962" class="LineNr">29962 </span><span class="subxFunction">translate-mu-compute-offset-stmt-with-register-index</span>: <span class="subxComment"># out: (addr buffered-file), stmt-with-register-index: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29963" class="LineNr">29963 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29964" class="LineNr">29964 </span> 55/push-ebp +<span id="L29965" class="LineNr">29965 </span> 89/<- %ebp 4/r32/esp +<span id="L29966" class="LineNr">29966 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29967" class="LineNr">29967 </span> 50/push-eax +<span id="L29968" class="LineNr">29968 </span> 51/push-ecx +<span id="L29969" class="LineNr">29969 </span> 52/push-edx +<span id="L29970" class="LineNr">29970 </span> 53/push-ebx +<span id="L29971" class="LineNr">29971 </span> <span class="subxComment">#</span> +<span id="L29972" class="LineNr">29972 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L29973" class="LineNr">29973 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"69/multiply"</span>) +<span id="L29974" class="LineNr">29974 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L29975" class="LineNr">29975 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L29976" class="LineNr">29976 </span> <span class="subxComment"># var first-inout/ebx: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L29977" class="LineNr">29977 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29978" class="LineNr">29978 </span> 89/<- %ebx 0/r32/eax +<span id="L29979" class="LineNr">29979 </span><span class="Constant">$translate-mu-compute-offset-stmt-with-register-index:emit-index</span>: +<span id="L29980" class="LineNr">29980 </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="L29981" class="LineNr">29981 </span> (<a href='mu.subx.html#L36046'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) +<span id="L29982" class="LineNr">29982 </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="L29983" class="LineNr">29983 </span><span class="Constant">$translate-mu-compute-offset-stmt-with-register-index:emit-elem-size</span>: +<span id="L29984" class="LineNr">29984 </span> <span class="subxComment"># var base/ebx: (addr var)</span> +<span id="L29985" class="LineNr">29985 </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="L29986" class="LineNr">29986 </span> 89/<- %ebx 0/r32/eax +<span id="L29987" class="LineNr">29987 </span> <span class="subxComment"># print array-element-size(base)</span> +<span id="L29988" class="LineNr">29988 </span> (<a href='mu.subx.html#L29171'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29989" class="LineNr">29989 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29990" class="LineNr">29990 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32 "</span>) +<span id="L29991" class="LineNr">29991 </span><span class="Constant">$translate-mu-compute-offset-stmt-with-register-index:emit-output</span>: +<span id="L29992" class="LineNr">29992 </span> <span class="subxComment"># outputs[0] "/r32"</span> +<span id="L29993" class="LineNr">29993 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29994" class="LineNr">29994 </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="L29995" class="LineNr">29995 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29996" class="LineNr">29996 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19595'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L29997" class="LineNr">29997 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29998" class="LineNr">29998 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29999" class="LineNr">29999 </span><span class="Constant">$translate-mu-compute-offset-stmt-with-register-index:end</span>: +<span id="L30000" class="LineNr">30000 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30001" class="LineNr">30001 </span> 5b/pop-to-ebx +<span id="L30002" class="LineNr">30002 </span> 5a/pop-to-edx +<span id="L30003" class="LineNr">30003 </span> 59/pop-to-ecx +<span id="L30004" class="LineNr">30004 </span> 58/pop-to-eax +<span id="L30005" class="LineNr">30005 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30006" class="LineNr">30006 </span> 89/<- %esp 5/r32/ebp +<span id="L30007" class="LineNr">30007 </span> 5d/pop-to-ebp +<span id="L30008" class="LineNr">30008 </span> c3/return +<span id="L30009" class="LineNr">30009 </span> +<span id="L30010" class="LineNr">30010 </span><span class="subxFunction">translate-mu-compute-offset-stmt-with-literal-index</span>: <span class="subxComment"># out: (addr buffered-file), stmt-with-literal-index: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L30011" class="LineNr">30011 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30012" class="LineNr">30012 </span> 55/push-ebp +<span id="L30013" class="LineNr">30013 </span> 89/<- %ebp 4/r32/esp +<span id="L30014" class="LineNr">30014 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30015" class="LineNr">30015 </span> 50/push-eax +<span id="L30016" class="LineNr">30016 </span> 51/push-ecx +<span id="L30017" class="LineNr">30017 </span> 52/push-edx +<span id="L30018" class="LineNr">30018 </span> 53/push-ebx +<span id="L30019" class="LineNr">30019 </span> <span class="subxComment">#</span> +<span id="L30020" class="LineNr">30020 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L30021" class="LineNr">30021 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c7/copy %"</span>) +<span id="L30022" class="LineNr">30022 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L30023" class="LineNr">30023 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L30024" class="LineNr">30024 </span><span class="Constant">$translate-mu-compute-offset-stmt-with-literal-index:emit-output</span>: +<span id="L30025" class="LineNr">30025 </span> <span class="subxComment"># emit outputs[0]->register</span> +<span id="L30026" class="LineNr">30026 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L30027" class="LineNr">30027 </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="L30028" class="LineNr">30028 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L30029" class="LineNr">30029 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L30030" class="LineNr">30030 </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="L30031" class="LineNr">30031 </span><span class="Constant">$translate-mu-compute-offset-stmt-with-literal-index:emit-offset</span>: +<span id="L30032" class="LineNr">30032 </span> <span class="subxComment"># var first-inout/ebx: (addr stmt-var) = stmt->inouts</span> +<span id="L30033" class="LineNr">30033 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30034" class="LineNr">30034 </span> 89/<- %ebx 0/r32/eax +<span id="L30035" class="LineNr">30035 </span> <span class="subxComment"># var index/edx: int = int(first-inout->next->value)</span> +<span id="L30036" class="LineNr">30036 </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="L30037" class="LineNr">30037 </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="L30038" class="LineNr">30038 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L30039" class="LineNr">30039 </span> (<a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># => eax</span> +<span id="L30040" class="LineNr">30040 </span> 89/<- %edx 0/r32/eax +<span id="L30041" class="LineNr">30041 </span> <span class="subxComment"># var base/ebx: (addr var) = first-inout->value</span> +<span id="L30042" class="LineNr">30042 </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="L30043" class="LineNr">30043 </span> <span class="subxComment"># emit index * sizeof(base element type)</span> +<span id="L30044" class="LineNr">30044 </span> (<a href='mu.subx.html#L29171'>array-element-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L30045" class="LineNr">30045 </span> 0f af/multiply %edx 0/r32/eax +<span id="L30046" class="LineNr">30046 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L30047" class="LineNr">30047 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L30048" class="LineNr">30048 </span><span class="Constant">$translate-mu-compute-offset-stmt-with-literal-index:end</span>: +<span id="L30049" class="LineNr">30049 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30050" class="LineNr">30050 </span> 5b/pop-to-ebx +<span id="L30051" class="LineNr">30051 </span> 5a/pop-to-edx +<span id="L30052" class="LineNr">30052 </span> 59/pop-to-ecx +<span id="L30053" class="LineNr">30053 </span> 58/pop-to-eax +<span id="L30054" class="LineNr">30054 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30055" class="LineNr">30055 </span> 89/<- %esp 5/r32/ebp +<span id="L30056" class="LineNr">30056 </span> 5d/pop-to-ebp +<span id="L30057" class="LineNr">30057 </span> c3/return +<span id="L30058" class="LineNr">30058 </span> +<span id="L30059" class="LineNr">30059 </span><span class="subxFunction">translate-mu-get-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> +<span id="L30060" class="LineNr">30060 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30061" class="LineNr">30061 </span> 55/push-ebp +<span id="L30062" class="LineNr">30062 </span> 89/<- %ebp 4/r32/esp +<span id="L30063" class="LineNr">30063 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30064" class="LineNr">30064 </span> 50/push-eax +<span id="L30065" class="LineNr">30065 </span> 51/push-ecx +<span id="L30066" class="LineNr">30066 </span> 52/push-edx +<span id="L30067" class="LineNr">30067 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L30068" class="LineNr">30068 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L30069" class="LineNr">30069 </span> <span class="subxComment"># var base/eax: (addr var) = stmt->inouts->value</span> +<span id="L30070" class="LineNr">30070 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30071" class="LineNr">30071 </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="L30072" class="LineNr">30072 </span> <span class="subxComment"># if base is in a register, insert a null check</span> +<span id="L30073" class="LineNr">30073 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L30074" class="LineNr">30074 </span> { +<span id="L30075" class="LineNr">30075 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L30076" class="LineNr">30076 </span><span class="Constant">$translate-mu-get-stmt:emit-null-check-for-register-input</span>: +<span id="L30077" class="LineNr">30077 </span> <span class="subxComment"># emit "81 7/subop/compare %" base->register " 0/imm32\n"</span> +<span id="L30078" class="LineNr">30078 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L30079" class="LineNr">30079 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 7/subop/compare %"</span>) +<span id="L30080" class="LineNr">30080 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L30081" class="LineNr">30081 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L30082" class="LineNr">30082 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/imm32\n"</span>) +<span id="L30083" class="LineNr">30083 </span> <span class="subxComment">#</span> +<span id="L30084" class="LineNr">30084 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L30085" class="LineNr">30085 </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="L30086" class="LineNr">30086 </span> } +<span id="L30087" class="LineNr">30087 </span> <span class="subxComment"># var offset/edx: int = get offset of stmt</span> +<span id="L30088" class="LineNr">30088 </span> (<a href='mu.subx.html#L30584'>mu-get-offset</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L30089" class="LineNr">30089 </span> 89/<- %edx 0/r32/eax +<span id="L30090" class="LineNr">30090 </span> <span class="subxComment"># var base/eax: (addr var) = stmt->inouts->value</span> +<span id="L30091" class="LineNr">30091 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30092" class="LineNr">30092 </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="L30093" class="LineNr">30093 </span> <span class="subxComment">#</span> +<span id="L30094" class="LineNr">30094 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L30095" class="LineNr">30095 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address "</span>) +<span id="L30096" class="LineNr">30096 </span> <span class="subxComment"># if base is in a register</span> +<span id="L30097" class="LineNr">30097 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L30098" class="LineNr">30098 </span> { +<span id="L30099" class="LineNr">30099 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L30100" class="LineNr">30100 </span><span class="Constant">$translate-mu-get-stmt:emit-register-input</span>: +<span id="L30101" class="LineNr">30101 </span> <span class="subxComment"># emit "*(" base->register " + " offset ") "</span> +<span id="L30102" class="LineNr">30102 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*("</span>) +<span id="L30103" class="LineNr">30103 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L30104" class="LineNr">30104 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L30105" class="LineNr">30105 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) +<span id="L30106" class="LineNr">30106 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) +<span id="L30107" class="LineNr">30107 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L30108" class="LineNr">30108 </span> e9/jump $translate-mu-get-stmt:emit-output/disp32 +<span id="L30109" class="LineNr">30109 </span> } +<span id="L30110" class="LineNr">30110 </span> <span class="subxComment"># otherwise base is on the stack</span> +<span id="L30111" class="LineNr">30111 </span> { +<span id="L30112" class="LineNr">30112 </span><span class="Constant">$translate-mu-get-stmt:emit-stack-input</span>: +<span id="L30113" class="LineNr">30113 </span> <span class="subxComment"># emit "*(ebp + " inouts[0]->stack-offset + offset ") "</span> +<span id="L30114" class="LineNr">30114 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) +<span id="L30115" class="LineNr">30115 </span> 03/add *(eax+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> +<span id="L30116" class="LineNr">30116 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) +<span id="L30117" class="LineNr">30117 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L30118" class="LineNr">30118 </span> eb/jump $translate-mu-get-stmt:emit-output/disp8 +<span id="L30119" class="LineNr">30119 </span> } +<span id="L30120" class="LineNr">30120 </span><span class="Constant">$translate-mu-get-stmt:emit-output</span>: +<span id="L30121" class="LineNr">30121 </span> <span class="subxComment"># var output/eax: (addr var) = stmt->outputs->value</span> +<span id="L30122" class="LineNr">30122 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L30123" class="LineNr">30123 </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="L30124" class="LineNr">30124 </span> <span class="subxComment"># emit offset->register "/r32"</span> +<span id="L30125" class="LineNr">30125 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L30126" class="LineNr">30126 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19595'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L30127" class="LineNr">30127 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L30128" class="LineNr">30128 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L30129" class="LineNr">30129 </span><span class="Constant">$translate-mu-get-stmt:end</span>: +<span id="L30130" class="LineNr">30130 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30131" class="LineNr">30131 </span> 5a/pop-to-edx +<span id="L30132" class="LineNr">30132 </span> 59/pop-to-ecx +<span id="L30133" class="LineNr">30133 </span> 58/pop-to-eax +<span id="L30134" class="LineNr">30134 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30135" class="LineNr">30135 </span> 89/<- %esp 5/r32/ebp +<span id="L30136" class="LineNr">30136 </span> 5d/pop-to-ebp +<span id="L30137" class="LineNr">30137 </span> c3/return +<span id="L30138" class="LineNr">30138 </span> +<span id="L30139" class="LineNr">30139 </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="L30140" class="LineNr">30140 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30141" class="LineNr">30141 </span> 55/push-ebp +<span id="L30142" class="LineNr">30142 </span> 89/<- %ebp 4/r32/esp +<span id="L30143" class="LineNr">30143 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30144" class="LineNr">30144 </span> 50/push-eax +<span id="L30145" class="LineNr">30145 </span> <span class="subxComment">#</span> +<span id="L30146" class="LineNr">30146 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L30147" class="LineNr">30147 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(copy-bytes"</span>) +<span id="L30148" class="LineNr">30148 </span> <span class="subxComment"># eax = stmt</span> +<span id="L30149" class="LineNr">30149 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L30150" class="LineNr">30150 </span> <span class="subxComment"># var first-inout/eax: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L30151" class="LineNr">30151 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30152" class="LineNr">30152 </span> (<a href='mu.subx.html#L35884'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L30153" class="LineNr">30153 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L30154" class="LineNr">30154 </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="L30155" class="LineNr">30155 </span> (<a href='mu.subx.html#L35884'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L30156" class="LineNr">30156 </span> <span class="subxComment"># emit size of inouts</span> +<span id="L30157" class="LineNr">30157 </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="L30158" class="LineNr">30158 </span> (<a href='mu.subx.html#L30262'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L30159" class="LineNr">30159 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L30160" class="LineNr">30160 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L30161" class="LineNr">30161 </span><span class="Constant">$translate-mu-copy-object-stmt:end</span>: +<span id="L30162" class="LineNr">30162 </span> <span class="subxS1Comment"># . restore registers</span> +<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">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="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="subxS1Comment"># . save registers</span> +<span id="L30174" class="LineNr">30174 </span> 50/push-eax +<span id="L30175" class="LineNr">30175 </span> <span class="subxComment">#</span> +<span id="L30176" class="LineNr">30176 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L30177" class="LineNr">30177 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(zero-out"</span>) +<span id="L30178" class="LineNr">30178 </span> <span class="subxComment"># eax = stmt</span> +<span id="L30179" class="LineNr">30179 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L30180" class="LineNr">30180 </span> <span class="subxComment"># var dest/eax: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L30181" class="LineNr">30181 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30182" class="LineNr">30182 </span> <span class="subxComment">#</span> +<span id="L30183" class="LineNr">30183 </span> (<a href='mu.subx.html#L35884'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L30184" class="LineNr">30184 </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="L30185" class="LineNr">30185 </span> (<a href='mu.subx.html#L30262'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L30186" class="LineNr">30186 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L30187" class="LineNr">30187 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L30188" class="LineNr">30188 </span><span class="Constant">$translate-mu-clear-object-stmt:end</span>: +<span id="L30189" class="LineNr">30189 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30190" class="LineNr">30190 </span> 58/pop-to-eax +<span id="L30191" class="LineNr">30191 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30192" class="LineNr">30192 </span> 89/<- %esp 5/r32/ebp +<span id="L30193" class="LineNr">30193 </span> 5d/pop-to-ebp +<span id="L30194" class="LineNr">30194 </span> c3/return +<span id="L30195" class="LineNr">30195 </span> +<span id="L30196" class="LineNr">30196 </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="L30197" class="LineNr">30197 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30198" class="LineNr">30198 </span> 55/push-ebp +<span id="L30199" class="LineNr">30199 </span> 89/<- %ebp 4/r32/esp +<span id="L30200" class="LineNr">30200 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30201" class="LineNr">30201 </span> 50/push-eax +<span id="L30202" class="LineNr">30202 </span> 56/push-esi +<span id="L30203" class="LineNr">30203 </span> 57/push-edi +<span id="L30204" class="LineNr">30204 </span> <span class="subxComment"># esi = stmt</span> +<span id="L30205" class="LineNr">30205 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L30206" class="LineNr">30206 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L30207" class="LineNr">30207 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30208" class="LineNr">30208 </span> 89/<- %edi 0/r32/eax +<span id="L30209" class="LineNr">30209 </span> <span class="subxComment">#</span> +<span id="L30210" class="LineNr">30210 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L30211" class="LineNr">30211 </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="L30212" class="LineNr">30212 </span> (<a href='mu.subx.html#L30226'>addr-handle-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L30213" class="LineNr">30213 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L30214" class="LineNr">30214 </span> (<a href='mu.subx.html#L35884'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L30215" class="LineNr">30215 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L30216" class="LineNr">30216 </span><span class="Constant">$translate-mu-allocate-stmt:end</span>: +<span id="L30217" class="LineNr">30217 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30218" class="LineNr">30218 </span> 5f/pop-to-edi +<span id="L30219" class="LineNr">30219 </span> 5e/pop-to-esi +<span id="L30220" class="LineNr">30220 </span> 58/pop-to-eax +<span id="L30221" class="LineNr">30221 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30222" class="LineNr">30222 </span> 89/<- %esp 5/r32/ebp +<span id="L30223" class="LineNr">30223 </span> 5d/pop-to-ebp +<span id="L30224" class="LineNr">30224 </span> c3/return +<span id="L30225" class="LineNr">30225 </span> +<span id="L30226" class="LineNr">30226 </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="L30227" class="LineNr">30227 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30228" class="LineNr">30228 </span> 55/push-ebp +<span id="L30229" class="LineNr">30229 </span> 89/<- %ebp 4/r32/esp +<span id="L30230" class="LineNr">30230 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L30231" class="LineNr">30231 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L30232" class="LineNr">30232 </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="L30233" class="LineNr">30233 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L30234" class="LineNr">30234 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30235" class="LineNr">30235 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30236" class="LineNr">30236 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L30237" class="LineNr">30237 </span> <span class="subxComment"># t = t->right</span> +<span id="L30238" class="LineNr">30238 </span><span class="Constant">$addr-handle-payload-size:skip-addr</span>: +<span id="L30239" class="LineNr">30239 </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="L30240" class="LineNr">30240 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30241" class="LineNr">30241 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30242" class="LineNr">30242 </span> <span class="subxComment"># TODO: check t->left == handle</span> +<span id="L30243" class="LineNr">30243 </span> <span class="subxComment"># t = t->right</span> +<span id="L30244" class="LineNr">30244 </span><span class="Constant">$addr-handle-payload-size:skip-handle</span>: +<span id="L30245" class="LineNr">30245 </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="L30246" class="LineNr">30246 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30247" class="LineNr">30247 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L30248" class="LineNr">30248 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L30249" class="LineNr">30249 </span> { +<span id="L30250" class="LineNr">30250 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L30251" class="LineNr">30251 </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="L30252" class="LineNr">30252 </span> } +<span id="L30253" class="LineNr">30253 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L30254" class="LineNr">30254 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L30255" class="LineNr">30255 </span> (<a href='mu.subx.html#L26976'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L30256" class="LineNr">30256 </span><span class="Constant">$addr-handle-payload-size:end</span>: +<span id="L30257" class="LineNr">30257 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30258" class="LineNr">30258 </span> 89/<- %esp 5/r32/ebp +<span id="L30259" class="LineNr">30259 </span> 5d/pop-to-ebp +<span id="L30260" class="LineNr">30260 </span> c3/return +<span id="L30261" class="LineNr">30261 </span> +<span id="L30262" class="LineNr">30262 </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="L30263" class="LineNr">30263 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30264" class="LineNr">30264 </span> 55/push-ebp +<span id="L30265" class="LineNr">30265 </span> 89/<- %ebp 4/r32/esp +<span id="L30266" class="LineNr">30266 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L30267" class="LineNr">30267 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L30268" class="LineNr">30268 </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="L30269" class="LineNr">30269 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L30270" class="LineNr">30270 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30271" class="LineNr">30271 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30272" class="LineNr">30272 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L30273" class="LineNr">30273 </span> <span class="subxComment"># t = t->right</span> +<span id="L30274" class="LineNr">30274 </span><span class="Constant">$addr-payload-size:skip-addr</span>: +<span id="L30275" class="LineNr">30275 </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="L30276" class="LineNr">30276 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30277" class="LineNr">30277 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L30278" class="LineNr">30278 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L30279" class="LineNr">30279 </span> { +<span id="L30280" class="LineNr">30280 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L30281" class="LineNr">30281 </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="L30282" class="LineNr">30282 </span> } +<span id="L30283" class="LineNr">30283 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L30284" class="LineNr">30284 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L30285" class="LineNr">30285 </span> (<a href='mu.subx.html#L26976'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L30286" class="LineNr">30286 </span><span class="Constant">$addr-payload-size:end</span>: +<span id="L30287" class="LineNr">30287 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30288" class="LineNr">30288 </span> 89/<- %esp 5/r32/ebp +<span id="L30289" class="LineNr">30289 </span> 5d/pop-to-ebp +<span id="L30290" class="LineNr">30290 </span> c3/return +<span id="L30291" class="LineNr">30291 </span> +<span id="L30292" class="LineNr">30292 </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="L30293" class="LineNr">30293 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30294" class="LineNr">30294 </span> 55/push-ebp +<span id="L30295" class="LineNr">30295 </span> 89/<- %ebp 4/r32/esp +<span id="L30296" class="LineNr">30296 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30297" class="LineNr">30297 </span> 50/push-eax +<span id="L30298" class="LineNr">30298 </span> 51/push-ecx +<span id="L30299" class="LineNr">30299 </span> 56/push-esi +<span id="L30300" class="LineNr">30300 </span> 57/push-edi +<span id="L30301" class="LineNr">30301 </span> <span class="subxComment"># esi = stmt</span> +<span id="L30302" class="LineNr">30302 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L30303" class="LineNr">30303 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L30304" class="LineNr">30304 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30305" class="LineNr">30305 </span> 89/<- %edi 0/r32/eax +<span id="L30306" class="LineNr">30306 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L30307" class="LineNr">30307 </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="L30308" class="LineNr">30308 </span> 89/<- %ecx 0/r32/eax +<span id="L30309" class="LineNr">30309 </span> <span class="subxComment">#</span> +<span id="L30310" class="LineNr">30310 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L30311" class="LineNr">30311 </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="L30312" class="LineNr">30312 </span> (<a href='mu.subx.html#L30441'>addr-handle-array-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L30313" class="LineNr">30313 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L30314" class="LineNr">30314 </span> (<a href='mu.subx.html#L35884'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L30315" class="LineNr">30315 </span> (<a href='mu.subx.html#L35884'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L30316" class="LineNr">30316 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L30317" class="LineNr">30317 </span><span class="Constant">$translate-mu-populate-stmt:end</span>: +<span id="L30318" class="LineNr">30318 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30319" class="LineNr">30319 </span> 5f/pop-to-edi +<span id="L30320" class="LineNr">30320 </span> 5e/pop-to-esi +<span id="L30321" class="LineNr">30321 </span> 59/pop-to-ecx +<span id="L30322" class="LineNr">30322 </span> 58/pop-to-eax +<span id="L30323" class="LineNr">30323 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30324" class="LineNr">30324 </span> 89/<- %esp 5/r32/ebp +<span id="L30325" class="LineNr">30325 </span> 5d/pop-to-ebp +<span id="L30326" class="LineNr">30326 </span> c3/return +<span id="L30327" class="LineNr">30327 </span> +<span id="L30328" class="LineNr">30328 </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="L30329" class="LineNr">30329 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30330" class="LineNr">30330 </span> 55/push-ebp +<span id="L30331" class="LineNr">30331 </span> 89/<- %ebp 4/r32/esp +<span id="L30332" class="LineNr">30332 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30333" class="LineNr">30333 </span> 50/push-eax +<span id="L30334" class="LineNr">30334 </span> 51/push-ecx +<span id="L30335" class="LineNr">30335 </span> 56/push-esi +<span id="L30336" class="LineNr">30336 </span> 57/push-edi +<span id="L30337" class="LineNr">30337 </span> <span class="subxComment"># esi = stmt</span> +<span id="L30338" class="LineNr">30338 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L30339" class="LineNr">30339 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L30340" class="LineNr">30340 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30341" class="LineNr">30341 </span> 89/<- %edi 0/r32/eax +<span id="L30342" class="LineNr">30342 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L30343" class="LineNr">30343 </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="L30344" class="LineNr">30344 </span> 89/<- %ecx 0/r32/eax +<span id="L30345" class="LineNr">30345 </span> <span class="subxComment">#</span> +<span id="L30346" class="LineNr">30346 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L30347" class="LineNr">30347 </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="L30348" class="LineNr">30348 </span> (<a href='mu.subx.html#L30484'>addr-handle-stream-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L30349" class="LineNr">30349 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L30350" class="LineNr">30350 </span> (<a href='mu.subx.html#L35884'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L30351" class="LineNr">30351 </span> (<a href='mu.subx.html#L35884'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L30352" class="LineNr">30352 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L30353" class="LineNr">30353 </span><span class="Constant">$translate-mu-populate-stream-stmt:end</span>: +<span id="L30354" class="LineNr">30354 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30355" class="LineNr">30355 </span> 5f/pop-to-edi +<span id="L30356" class="LineNr">30356 </span> 5e/pop-to-esi +<span id="L30357" class="LineNr">30357 </span> 59/pop-to-ecx +<span id="L30358" class="LineNr">30358 </span> 58/pop-to-eax +<span id="L30359" class="LineNr">30359 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30360" class="LineNr">30360 </span> 89/<- %esp 5/r32/ebp +<span id="L30361" class="LineNr">30361 </span> 5d/pop-to-ebp +<span id="L30362" class="LineNr">30362 </span> c3/return +<span id="L30363" class="LineNr">30363 </span> +<span id="L30364" class="LineNr">30364 </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="L30365" class="LineNr">30365 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30366" class="LineNr">30366 </span> 55/push-ebp +<span id="L30367" class="LineNr">30367 </span> 89/<- %ebp 4/r32/esp +<span id="L30368" class="LineNr">30368 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30369" class="LineNr">30369 </span> 50/push-eax +<span id="L30370" class="LineNr">30370 </span> 51/push-ecx +<span id="L30371" class="LineNr">30371 </span> 56/push-esi +<span id="L30372" class="LineNr">30372 </span> 57/push-edi +<span id="L30373" class="LineNr">30373 </span> <span class="subxComment"># esi = stmt</span> +<span id="L30374" class="LineNr">30374 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L30375" class="LineNr">30375 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L30376" class="LineNr">30376 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30377" class="LineNr">30377 </span> 89/<- %ecx 0/r32/eax +<span id="L30378" class="LineNr">30378 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L30379" class="LineNr">30379 </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="L30380" class="LineNr">30380 </span> 89/<- %edi 0/r32/eax +<span id="L30381" class="LineNr">30381 </span> <span class="subxComment">#</span> +<span id="L30382" class="LineNr">30382 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L30383" class="LineNr">30383 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(read-from-stream"</span>) +<span id="L30384" class="LineNr">30384 </span> (<a href='mu.subx.html#L35884'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L30385" class="LineNr">30385 </span> (<a href='mu.subx.html#L35884'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L30386" class="LineNr">30386 </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="L30387" class="LineNr">30387 </span> (<a href='mu.subx.html#L30262'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L30388" class="LineNr">30388 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L30389" class="LineNr">30389 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L30390" class="LineNr">30390 </span><span class="Constant">$translate-mu-read-from-stream-stmt:end</span>: +<span id="L30391" class="LineNr">30391 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30392" class="LineNr">30392 </span> 5f/pop-to-edi +<span id="L30393" class="LineNr">30393 </span> 5e/pop-to-esi +<span id="L30394" class="LineNr">30394 </span> 59/pop-to-ecx +<span id="L30395" class="LineNr">30395 </span> 58/pop-to-eax +<span id="L30396" class="LineNr">30396 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30397" class="LineNr">30397 </span> 89/<- %esp 5/r32/ebp +<span id="L30398" class="LineNr">30398 </span> 5d/pop-to-ebp +<span id="L30399" class="LineNr">30399 </span> c3/return +<span id="L30400" class="LineNr">30400 </span> +<span id="L30401" class="LineNr">30401 </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="L30402" class="LineNr">30402 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30403" class="LineNr">30403 </span> 55/push-ebp +<span id="L30404" class="LineNr">30404 </span> 89/<- %ebp 4/r32/esp +<span id="L30405" class="LineNr">30405 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30406" class="LineNr">30406 </span> 50/push-eax +<span id="L30407" class="LineNr">30407 </span> 51/push-ecx +<span id="L30408" class="LineNr">30408 </span> 56/push-esi +<span id="L30409" class="LineNr">30409 </span> 57/push-edi +<span id="L30410" class="LineNr">30410 </span> <span class="subxComment"># esi = stmt</span> +<span id="L30411" class="LineNr">30411 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L30412" class="LineNr">30412 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L30413" class="LineNr">30413 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30414" class="LineNr">30414 </span> 89/<- %ecx 0/r32/eax +<span id="L30415" class="LineNr">30415 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L30416" class="LineNr">30416 </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="L30417" class="LineNr">30417 </span> 89/<- %edi 0/r32/eax +<span id="L30418" class="LineNr">30418 </span> <span class="subxComment">#</span> +<span id="L30419" class="LineNr">30419 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L30420" class="LineNr">30420 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(write-to-stream"</span>) +<span id="L30421" class="LineNr">30421 </span> (<a href='mu.subx.html#L35884'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L30422" class="LineNr">30422 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+8)) +<span id="L30423" class="LineNr">30423 </span> (<a href='mu.subx.html#L35884'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L30424" class="LineNr">30424 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+8)) +<span id="L30425" class="LineNr">30425 </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="L30426" class="LineNr">30426 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+8)) +<span id="L30427" class="LineNr">30427 </span> (<a href='mu.subx.html#L30262'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L30428" class="LineNr">30428 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L30429" class="LineNr">30429 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L30430" class="LineNr">30430 </span><span class="Constant">$translate-mu-write-to-stream-stmt:end</span>: +<span id="L30431" class="LineNr">30431 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30432" class="LineNr">30432 </span> 5f/pop-to-edi +<span id="L30433" class="LineNr">30433 </span> 5e/pop-to-esi +<span id="L30434" class="LineNr">30434 </span> 59/pop-to-ecx +<span id="L30435" class="LineNr">30435 </span> 58/pop-to-eax +<span id="L30436" class="LineNr">30436 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30437" class="LineNr">30437 </span> 89/<- %esp 5/r32/ebp +<span id="L30438" class="LineNr">30438 </span> 5d/pop-to-ebp +<span id="L30439" class="LineNr">30439 </span> c3/return +<span id="L30440" class="LineNr">30440 </span> +<span id="L30441" class="LineNr">30441 </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="L30442" class="LineNr">30442 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30443" class="LineNr">30443 </span> 55/push-ebp +<span id="L30444" class="LineNr">30444 </span> 89/<- %ebp 4/r32/esp +<span id="L30445" class="LineNr">30445 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L30446" class="LineNr">30446 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L30447" class="LineNr">30447 </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="L30448" class="LineNr">30448 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L30449" class="LineNr">30449 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30450" class="LineNr">30450 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30451" class="LineNr">30451 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L30452" class="LineNr">30452 </span> <span class="subxComment"># t = t->right</span> +<span id="L30453" class="LineNr">30453 </span><span class="Constant">$addr-handle-array-payload-size:skip-addr</span>: +<span id="L30454" class="LineNr">30454 </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="L30455" class="LineNr">30455 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30456" class="LineNr">30456 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30457" class="LineNr">30457 </span> <span class="subxComment"># TODO: check t->left == handle</span> +<span id="L30458" class="LineNr">30458 </span> <span class="subxComment"># t = t->right</span> +<span id="L30459" class="LineNr">30459 </span><span class="Constant">$addr-handle-array-payload-size:skip-handle</span>: +<span id="L30460" class="LineNr">30460 </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="L30461" class="LineNr">30461 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30462" class="LineNr">30462 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30463" class="LineNr">30463 </span> <span class="subxComment"># TODO: check t->left == array</span> +<span id="L30464" class="LineNr">30464 </span> <span class="subxComment"># t = t->right</span> +<span id="L30465" class="LineNr">30465 </span><span class="Constant">$addr-handle-array-payload-size:skip-array</span>: +<span id="L30466" class="LineNr">30466 </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="L30467" class="LineNr">30467 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30468" class="LineNr">30468 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L30469" class="LineNr">30469 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L30470" class="LineNr">30470 </span> { +<span id="L30471" class="LineNr">30471 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L30472" class="LineNr">30472 </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="L30473" class="LineNr">30473 </span> } +<span id="L30474" class="LineNr">30474 </span><span class="Constant">$addr-handle-array-payload-size:compute-size</span>: +<span id="L30475" class="LineNr">30475 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L30476" class="LineNr">30476 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L30477" class="LineNr">30477 </span> (<a href='mu.subx.html#L29290'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L30478" class="LineNr">30478 </span><span class="Constant">$addr-handle-array-payload-size:end</span>: +<span id="L30479" class="LineNr">30479 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30480" class="LineNr">30480 </span> 89/<- %esp 5/r32/ebp +<span id="L30481" class="LineNr">30481 </span> 5d/pop-to-ebp +<span id="L30482" class="LineNr">30482 </span> c3/return +<span id="L30483" class="LineNr">30483 </span> +<span id="L30484" class="LineNr">30484 </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="L30485" class="LineNr">30485 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30486" class="LineNr">30486 </span> 55/push-ebp +<span id="L30487" class="LineNr">30487 </span> 89/<- %ebp 4/r32/esp +<span id="L30488" class="LineNr">30488 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L30489" class="LineNr">30489 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L30490" class="LineNr">30490 </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="L30491" class="LineNr">30491 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L30492" class="LineNr">30492 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30493" class="LineNr">30493 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30494" class="LineNr">30494 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L30495" class="LineNr">30495 </span> <span class="subxComment"># t = t->right</span> +<span id="L30496" class="LineNr">30496 </span><span class="Constant">$addr-handle-stream-payload-size:skip-addr</span>: +<span id="L30497" class="LineNr">30497 </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="L30498" class="LineNr">30498 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30499" class="LineNr">30499 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30500" class="LineNr">30500 </span> <span class="subxComment"># TODO: check t->left == handle</span> +<span id="L30501" class="LineNr">30501 </span> <span class="subxComment"># t = t->right</span> +<span id="L30502" class="LineNr">30502 </span><span class="Constant">$addr-handle-stream-payload-size:skip-handle</span>: +<span id="L30503" class="LineNr">30503 </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="L30504" class="LineNr">30504 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30505" class="LineNr">30505 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30506" class="LineNr">30506 </span> <span class="subxComment"># TODO: check t->left == stream</span> +<span id="L30507" class="LineNr">30507 </span> <span class="subxComment"># t = t->right</span> +<span id="L30508" class="LineNr">30508 </span><span class="Constant">$addr-handle-stream-payload-size:skip-stream</span>: +<span id="L30509" class="LineNr">30509 </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="L30510" class="LineNr">30510 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30511" class="LineNr">30511 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L30512" class="LineNr">30512 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L30513" class="LineNr">30513 </span> { +<span id="L30514" class="LineNr">30514 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L30515" class="LineNr">30515 </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="L30516" class="LineNr">30516 </span> } +<span id="L30517" class="LineNr">30517 </span><span class="Constant">$addr-handle-stream-payload-size:compute-size</span>: +<span id="L30518" class="LineNr">30518 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L30519" class="LineNr">30519 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L30520" class="LineNr">30520 </span> (<a href='mu.subx.html#L29290'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L30521" class="LineNr">30521 </span><span class="Constant">$addr-handle-stream-payload-size:end</span>: +<span id="L30522" class="LineNr">30522 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30523" class="LineNr">30523 </span> 89/<- %esp 5/r32/ebp +<span id="L30524" class="LineNr">30524 </span> 5d/pop-to-ebp +<span id="L30525" class="LineNr">30525 </span> c3/return +<span id="L30526" class="LineNr">30526 </span> +<span id="L30527" class="LineNr">30527 </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="L30528" class="LineNr">30528 </span> <span class="subxComment"># precondition: n is positive</span> +<span id="L30529" class="LineNr">30529 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30530" class="LineNr">30530 </span> 55/push-ebp +<span id="L30531" class="LineNr">30531 </span> 89/<- %ebp 4/r32/esp +<span id="L30532" class="LineNr">30532 </span> <span class="subxComment"># eax = n</span> +<span id="L30533" class="LineNr">30533 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L30534" class="LineNr">30534 </span> <span class="subxComment"># if (n < 0) abort</span> +<span id="L30535" class="LineNr">30535 </span> 3d/compare-eax-with 0/imm32 +<span id="L30536" class="LineNr">30536 </span> 0f 8c/jump-if-< $power-of-2?:abort/disp32 +<span id="L30537" class="LineNr">30537 </span> <span class="subxComment"># var tmp/eax: int = n-1</span> +<span id="L30538" class="LineNr">30538 </span> 48/decrement-eax +<span id="L30539" class="LineNr">30539 </span> <span class="subxComment"># var tmp2/eax: int = n & tmp</span> +<span id="L30540" class="LineNr">30540 </span> 23/and-> *(ebp+8) 0/r32/eax +<span id="L30541" class="LineNr">30541 </span> <span class="subxComment"># return (tmp2 == 0)</span> +<span id="L30542" class="LineNr">30542 </span> 3d/compare-eax-and 0/imm32 +<span id="L30543" class="LineNr">30543 </span> 0f 94/set-byte-if-= %al +<span id="L30544" class="LineNr">30544 </span> 25/and-eax-with 0xff/imm32 +<span id="L30545" class="LineNr">30545 </span><span class="Constant">$power-of-2?:end</span>: +<span id="L30546" class="LineNr">30546 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30547" class="LineNr">30547 </span> 89/<- %esp 5/r32/ebp +<span id="L30548" class="LineNr">30548 </span> 5d/pop-to-ebp +<span id="L30549" class="LineNr">30549 </span> c3/return +<span id="L30550" class="LineNr">30550 </span> +<span id="L30551" class="LineNr">30551 </span><span class="Constant">$power-of-2?:abort</span>: +<span id="L30552" class="LineNr">30552 </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="L30553" class="LineNr">30553 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L30554" class="LineNr">30554 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L30555" class="LineNr">30555 </span> <span class="subxComment"># never gets here</span> +<span id="L30556" class="LineNr">30556 </span> +<span id="L30557" class="LineNr">30557 </span><span class="subxFunction">num-shift-rights</span>: <span class="subxComment"># n: int -> result/eax: int</span> +<span id="L30558" class="LineNr">30558 </span> <span class="subxComment"># precondition: n is a positive power of 2</span> +<span id="L30559" class="LineNr">30559 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30560" class="LineNr">30560 </span> 55/push-ebp +<span id="L30561" class="LineNr">30561 </span> 89/<- %ebp 4/r32/esp +<span id="L30562" class="LineNr">30562 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30563" class="LineNr">30563 </span> 51/push-ecx +<span id="L30564" class="LineNr">30564 </span> <span class="subxComment"># var curr/ecx: int = n</span> +<span id="L30565" class="LineNr">30565 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L30566" class="LineNr">30566 </span> <span class="subxComment"># result = 0</span> +<span id="L30567" class="LineNr">30567 </span> b8/copy-to-eax 0/imm32 +<span id="L30568" class="LineNr">30568 </span> { +<span id="L30569" class="LineNr">30569 </span> <span class="subxComment"># if (curr <= 1) break</span> +<span id="L30570" class="LineNr">30570 </span> 81 7/subop/compare %ecx 1/imm32 +<span id="L30571" class="LineNr">30571 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L30572" class="LineNr">30572 </span> 40/increment-eax +<span id="L30573" class="LineNr">30573 </span> c1/shift 5/subop/arithmetic-right %ecx 1/imm8 +<span id="L30574" class="LineNr">30574 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L30575" class="LineNr">30575 </span> } +<span id="L30576" class="LineNr">30576 </span><span class="Constant">$num-shift-rights:end</span>: +<span id="L30577" class="LineNr">30577 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30578" class="LineNr">30578 </span> 59/pop-to-ecx +<span id="L30579" class="LineNr">30579 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30580" class="LineNr">30580 </span> 89/<- %esp 5/r32/ebp +<span id="L30581" class="LineNr">30581 </span> 5d/pop-to-ebp +<span id="L30582" class="LineNr">30582 </span> c3/return +<span id="L30583" class="LineNr">30583 </span> +<span id="L30584" class="LineNr">30584 </span><span class="subxFunction">mu-get-offset</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: int</span> +<span id="L30585" class="LineNr">30585 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30586" class="LineNr">30586 </span> 55/push-ebp +<span id="L30587" class="LineNr">30587 </span> 89/<- %ebp 4/r32/esp +<span id="L30588" class="LineNr">30588 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts->next</span> +<span id="L30589" class="LineNr">30589 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L30590" class="LineNr">30590 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30591" class="LineNr">30591 </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="L30592" class="LineNr">30592 </span> <span class="subxComment"># var output-var/eax: (addr var) = second-inout->value</span> +<span id="L30593" class="LineNr">30593 </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="L30594" class="LineNr">30594 </span><span class="CommentedCode">#? (write-buffered Stderr "mu-get-offset: ")</span> +<span id="L30595" class="LineNr">30595 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L30596" class="LineNr">30596 </span><span class="CommentedCode">#? (write-buffered Stderr " name: ")</span> +<span id="L30597" class="LineNr">30597 </span><span class="CommentedCode">#? 50/push-eax</span> +<span id="L30598" class="LineNr">30598 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> +<span id="L30599" class="LineNr">30599 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L30600" class="LineNr">30600 </span><span class="CommentedCode">#? 58/pop-to-eax</span> +<span id="L30601" class="LineNr">30601 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L30602" class="LineNr">30602 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L30603" class="LineNr">30603 </span> <span class="subxComment"># return output-var->stack-offset</span> +<span id="L30604" class="LineNr">30604 </span> 8b/-> *(eax+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L30605" class="LineNr">30605 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> +<span id="L30606" class="LineNr">30606 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L30607" class="LineNr">30607 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L30608" class="LineNr">30608 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L30609" class="LineNr">30609 </span><span class="Constant">$emit-get-offset:end</span>: +<span id="L30610" class="LineNr">30610 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30611" class="LineNr">30611 </span> 89/<- %esp 5/r32/ebp +<span id="L30612" class="LineNr">30612 </span> 5d/pop-to-ebp +<span id="L30613" class="LineNr">30613 </span> c3/return +<span id="L30614" class="LineNr">30614 </span> +<span id="L30615" class="LineNr">30615 </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="L30616" class="LineNr">30616 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30617" class="LineNr">30617 </span> 55/push-ebp +<span id="L30618" class="LineNr">30618 </span> 89/<- %ebp 4/r32/esp +<span id="L30619" class="LineNr">30619 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30620" class="LineNr">30620 </span> 50/push-eax +<span id="L30621" class="LineNr">30621 </span> 51/push-ecx +<span id="L30622" class="LineNr">30622 </span> 56/push-esi +<span id="L30623" class="LineNr">30623 </span> <span class="subxComment"># esi = block</span> +<span id="L30624" class="LineNr">30624 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L30625" class="LineNr">30625 </span> <span class="subxComment"># block->var->block-depth = *Curr-block-depth</span> +<span id="L30626" class="LineNr">30626 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> +<span id="L30627" class="LineNr">30627 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 1/r32/ecx +<span id="L30628" class="LineNr">30628 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> +<span id="L30629" class="LineNr">30629 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> +<span id="L30630" class="LineNr">30630 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L30631" class="LineNr">30631 </span> <span class="subxComment">#</span> +<span id="L30632" class="LineNr">30632 </span> { +<span id="L30633" class="LineNr">30633 </span><span class="Constant">$emit-subx-block:check-empty</span>: +<span id="L30634" class="LineNr">30634 </span> 3d/compare-eax-and 0/imm32 +<span id="L30635" class="LineNr">30635 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L30636" class="LineNr">30636 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L30637" class="LineNr">30637 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"{\n"</span>) +<span id="L30638" class="LineNr">30638 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(block->var)</span> +<span id="L30639" class="LineNr">30639 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> +<span id="L30640" class="LineNr">30640 </span> 89/<- %ecx 0/r32/eax +<span id="L30641" class="LineNr">30641 </span> <span class="subxComment">#</span> +<span id="L30642" class="LineNr">30642 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L30643" class="LineNr">30643 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L30644" class="LineNr">30644 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop:\n"</span>) +<span id="L30645" class="LineNr">30645 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> +<span id="L30646" class="LineNr">30646 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0xc)) <span class="subxComment"># Block-var</span> +<span id="L30647" class="LineNr">30647 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0x10)) <span class="subxComment"># Block-var</span> +<span id="L30648" class="LineNr">30648 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> +<span id="L30649" class="LineNr">30649 </span> <span class="subxComment"># emit block->statements</span> +<span id="L30650" class="LineNr">30650 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L30651" class="LineNr">30651 </span> (<a href='mu.subx.html#L27308'>emit-subx-stmt-list</a> *(ebp+8) %eax *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L30652" class="LineNr">30652 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L30653" class="LineNr">30653 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L30654" class="LineNr">30654 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L30655" class="LineNr">30655 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> +<span id="L30656" class="LineNr">30656 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L30657" class="LineNr">30657 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"}\n"</span>) +<span id="L30658" class="LineNr">30658 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L30659" class="LineNr">30659 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L30660" class="LineNr">30660 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break:\n"</span>) +<span id="L30661" class="LineNr">30661 </span> } +<span id="L30662" class="LineNr">30662 </span><span class="Constant">$emit-subx-block:end</span>: +<span id="L30663" class="LineNr">30663 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30664" class="LineNr">30664 </span> 5e/pop-to-esi +<span id="L30665" class="LineNr">30665 </span> 59/pop-to-ecx +<span id="L30666" class="LineNr">30666 </span> 58/pop-to-eax +<span id="L30667" class="LineNr">30667 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30668" class="LineNr">30668 </span> 89/<- %esp 5/r32/ebp +<span id="L30669" class="LineNr">30669 </span> 5d/pop-to-ebp +<span id="L30670" class="LineNr">30670 </span> c3/return +<span id="L30671" class="LineNr">30671 </span> +<span id="L30672" class="LineNr">30672 </span><span class="subxComment"># Primitives supported</span> +<span id="L30673" class="LineNr">30673 </span><span class="subxComment"># See mu_instructions for a summary of this linked-list data structure.</span> +<span id="L30674" class="LineNr">30674 </span><span class="subxComment">#</span> +<span id="L30675" class="LineNr">30675 </span><span class="subxComment"># For each operation, put variants with hard-coded registers before flexible ones.</span> +<span id="L30676" class="LineNr">30676 </span><span class="subxComment">#</span> +<span id="L30677" class="LineNr">30677 </span><span class="subxComment"># Unfortunately, our restrictions on addresses require that various fields in</span> +<span id="L30678" class="LineNr">30678 </span><span class="subxComment"># primitives be handles, which complicates these definitions.</span> +<span id="L30679" class="LineNr">30679 </span><span class="subxComment"># - we need to insert dummy fields all over the place for fake alloc-ids</span> +<span id="L30680" class="LineNr">30680 </span><span class="subxComment"># - we can't use our syntax sugar of quoted literals for string fields</span> +<span id="L30681" class="LineNr">30681 </span><span class="subxComment">#</span> +<span id="L30682" class="LineNr">30682 </span><span class="subxComment"># Fake alloc-ids are needed because our type definitions up top require</span> +<span id="L30683" class="LineNr">30683 </span><span class="subxComment"># handles but it's clearer to statically allocate these long-lived objects.</span> +<span id="L30684" class="LineNr">30684 </span><span class="subxComment"># Fake alloc-ids are perfectly safe, but they can't be reclaimed.</span> +<span id="L30685" class="LineNr">30685 </span><span class="subxComment">#</span> +<span id="L30686" class="LineNr">30686 </span><span class="subxComment"># Every 'object' below starts with a fake alloc-id. It may also contain other</span> +<span id="L30687" class="LineNr">30687 </span><span class="subxComment"># fake alloc-ids for various handle fields.</span> +<span id="L30688" class="LineNr">30688 </span><span class="subxComment">#</span> +<span id="L30689" class="LineNr">30689 </span><span class="subxComment"># I think of objects starting with a fake alloc-id as having type 'payload'.</span> +<span id="L30690" class="LineNr">30690 </span><span class="subxComment"># It's not really intended to be created dynamically; for that use `allocate`</span> +<span id="L30691" class="LineNr">30691 </span><span class="subxComment"># as usual.</span> +<span id="L30692" class="LineNr">30692 </span><span class="subxComment">#</span> +<span id="L30693" class="LineNr">30693 </span><span class="subxComment"># Idea for a notation to simplify such definitions:</span> +<span id="L30694" class="LineNr">30694 </span><span class="subxComment"># _Primitive-increment-eax: # (payload primitive)</span> +<span id="L30695" class="LineNr">30695 </span><span class="subxComment"># 0x11/alloc-id:fake:payload</span> +<span id="L30696" class="LineNr">30696 </span><span class="subxComment"># 0x11 @(0x11 "increment") # name</span> +<span id="L30697" class="LineNr">30697 </span><span class="subxComment"># 0 0 # inouts</span> +<span id="L30698" class="LineNr">30698 </span><span class="subxComment"># 0x11 @(0x11/payload</span> +<span id="L30699" class="LineNr">30699 </span><span class="subxComment"># 0x11 @(0x11/payload # List-value</span> +<span id="L30700" class="LineNr">30700 </span><span class="subxComment"># 0 0 # Var-name</span> +<span id="L30701" class="LineNr">30701 </span><span class="subxComment"># 0x11 @(0x11 # Var-type</span> +<span id="L30702" class="LineNr">30702 </span><span class="subxComment"># 1/is-atom</span> +<span id="L30703" class="LineNr">30703 </span><span class="subxComment"># 1/value 0/unused # Type-tree-left</span> +<span id="L30704" class="LineNr">30704 </span><span class="subxComment"># 0 0 # Type-tree-right</span> +<span id="L30705" class="LineNr">30705 </span><span class="subxComment"># )</span> +<span id="L30706" class="LineNr">30706 </span><span class="subxComment"># 1 # block-depth</span> +<span id="L30707" class="LineNr">30707 </span><span class="subxComment"># 0 # stack-offset</span> +<span id="L30708" class="LineNr">30708 </span><span class="subxComment"># 0x11 @(0x11 "eax") # Var-register</span> +<span id="L30709" class="LineNr">30709 </span><span class="subxComment"># )</span> +<span id="L30710" class="LineNr">30710 </span><span class="subxComment"># 0 0) # List-next</span> +<span id="L30711" class="LineNr">30711 </span><span class="subxComment"># ...</span> +<span id="L30712" class="LineNr">30712 </span><span class="subxComment"># _Primitive-increment-ecx/imm32/next</span> +<span id="L30713" class="LineNr">30713 </span><span class="subxComment"># ...</span> +<span id="L30714" class="LineNr">30714 </span><span class="subxComment"># Awfully complex and non-obvious. But also clearly signals there's something</span> +<span id="L30715" class="LineNr">30715 </span><span class="subxComment"># to learn here, so may be worth trying.</span> +<span id="L30716" class="LineNr">30716 </span><span class="subxComment">#</span> +<span id="L30717" class="LineNr">30717 </span><span class="subxComment"># '@' is just an initial thought. Punctuation used so far in Mu: () * % # / "</span> +<span id="L30718" class="LineNr">30718 </span><span class="subxComment">#</span> +<span id="L30719" class="LineNr">30719 </span><span class="subxComment"># For now we'll continue to just use comments and manually ensure they stay up</span> +<span id="L30720" class="LineNr">30720 </span><span class="subxComment"># to date.</span> +<span id="L30721" class="LineNr">30721 </span>== data +<span id="L30722" class="LineNr">30722 </span><span class="SpecialChar">Primitives</span>: <span class="subxComment"># (addr primitive)</span> +<span id="L30723" class="LineNr">30723 </span><span class="subxH1Comment"># - increment/decrement</span> +<span id="L30724" class="LineNr">30724 </span><span class="subxMinorFunction">_Primitive-increment-eax</span>: <span class="subxComment"># (addr primitive)</span> +<span id="L30725" class="LineNr">30725 </span> <span class="subxComment"># var/eax <- increment => 40/increment-eax</span> +<span id="L30726" class="LineNr">30726 </span> 0x11/imm32/alloc-id:fake +<span id="L30727" class="LineNr">30727 </span> <a href='mu.subx.html#L34417'>_string-increment</a>/imm32/name +<span id="L30728" class="LineNr">30728 </span> 0/imm32/no-inouts +<span id="L30729" class="LineNr">30729 </span> 0/imm32/no-inouts +<span id="L30730" class="LineNr">30730 </span> 0x11/imm32/alloc-id:fake +<span id="L30731" class="LineNr">30731 </span> <span class="SpecialChar"><a href='mu.subx.html#L35344'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L30732" class="LineNr">30732 </span> 0x11/imm32/alloc-id:fake +<span id="L30733" class="LineNr">30733 </span> <a href='mu.subx.html#L34974'>_string_40_increment_eax</a>/imm32/subx-name +<span id="L30734" class="LineNr">30734 </span> 0/imm32/no-rm32 +<span id="L30735" class="LineNr">30735 </span> 0/imm32/no-r32 +<span id="L30736" class="LineNr">30736 </span> 0/imm32/no-imm32 +<span id="L30737" class="LineNr">30737 </span> 0/imm32/no-imm8 +<span id="L30738" class="LineNr">30738 </span> 0/imm32/no-disp32 +<span id="L30739" class="LineNr">30739 </span> 0/imm32/no-xm32 +<span id="L30740" class="LineNr">30740 </span> 0/imm32/no-x32 +<span id="L30741" class="LineNr">30741 </span> 0x11/imm32/alloc-id:fake +<span id="L30742" class="LineNr">30742 </span> <a href='mu.subx.html#L30743'>_Primitive-increment-ecx</a>/imm32/next +<span id="L30743" class="LineNr">30743 </span><span class="subxMinorFunction">_Primitive-increment-ecx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30744" class="LineNr">30744 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30745" class="LineNr">30745 </span> <span class="subxComment"># var/ecx <- increment => 41/increment-ecx</span> +<span id="L30746" class="LineNr">30746 </span> 0x11/imm32/alloc-id:fake +<span id="L30747" class="LineNr">30747 </span> <a href='mu.subx.html#L34417'>_string-increment</a>/imm32/name +<span id="L30748" class="LineNr">30748 </span> 0/imm32/no-inouts +<span id="L30749" class="LineNr">30749 </span> 0/imm32/no-inouts +<span id="L30750" class="LineNr">30750 </span> 0x11/imm32/alloc-id:fake +<span id="L30751" class="LineNr">30751 </span> <span class="SpecialChar"><a href='mu.subx.html#L35362'>Single-int-var-in-ecx</a></span>/imm32/outputs +<span id="L30752" class="LineNr">30752 </span> 0x11/imm32/alloc-id:fake +<span id="L30753" class="LineNr">30753 </span> <a href='mu.subx.html#L34979'>_string_41_increment_ecx</a>/imm32/subx-name +<span id="L30754" class="LineNr">30754 </span> 0/imm32/no-rm32 +<span id="L30755" class="LineNr">30755 </span> 0/imm32/no-r32 +<span id="L30756" class="LineNr">30756 </span> 0/imm32/no-imm32 +<span id="L30757" class="LineNr">30757 </span> 0/imm32/no-imm8 +<span id="L30758" class="LineNr">30758 </span> 0/imm32/no-disp32 +<span id="L30759" class="LineNr">30759 </span> 0/imm32/no-xm32 +<span id="L30760" class="LineNr">30760 </span> 0/imm32/no-x32 +<span id="L30761" class="LineNr">30761 </span> 0x11/imm32/alloc-id:fake +<span id="L30762" class="LineNr">30762 </span> <a href='mu.subx.html#L30763'>_Primitive-increment-edx</a>/imm32/next +<span id="L30763" class="LineNr">30763 </span><span class="subxMinorFunction">_Primitive-increment-edx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30764" class="LineNr">30764 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30765" class="LineNr">30765 </span> <span class="subxComment"># var/edx <- increment => 42/increment-edx</span> +<span id="L30766" class="LineNr">30766 </span> 0x11/imm32/alloc-id:fake +<span id="L30767" class="LineNr">30767 </span> <a href='mu.subx.html#L34417'>_string-increment</a>/imm32/name +<span id="L30768" class="LineNr">30768 </span> 0/imm32/no-inouts +<span id="L30769" class="LineNr">30769 </span> 0/imm32/no-inouts +<span id="L30770" class="LineNr">30770 </span> 0x11/imm32/alloc-id:fake +<span id="L30771" class="LineNr">30771 </span> <span class="SpecialChar"><a href='mu.subx.html#L35380'>Single-int-var-in-edx</a></span>/imm32/outputs +<span id="L30772" class="LineNr">30772 </span> 0x11/imm32/alloc-id:fake +<span id="L30773" class="LineNr">30773 </span> <a href='mu.subx.html#L34984'>_string_42_increment_edx</a>/imm32/subx-name +<span id="L30774" class="LineNr">30774 </span> 0/imm32/no-rm32 +<span id="L30775" class="LineNr">30775 </span> 0/imm32/no-r32 +<span id="L30776" class="LineNr">30776 </span> 0/imm32/no-imm32 +<span id="L30777" class="LineNr">30777 </span> 0/imm32/no-imm8 +<span id="L30778" class="LineNr">30778 </span> 0/imm32/no-disp32 +<span id="L30779" class="LineNr">30779 </span> 0/imm32/no-xm32 +<span id="L30780" class="LineNr">30780 </span> 0/imm32/no-x32 +<span id="L30781" class="LineNr">30781 </span> 0x11/imm32/alloc-id:fake +<span id="L30782" class="LineNr">30782 </span> <a href='mu.subx.html#L30783'>_Primitive-increment-ebx</a>/imm32/next +<span id="L30783" class="LineNr">30783 </span><span class="subxMinorFunction">_Primitive-increment-ebx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30784" class="LineNr">30784 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30785" class="LineNr">30785 </span> <span class="subxComment"># var/ebx <- increment => 43/increment-ebx</span> +<span id="L30786" class="LineNr">30786 </span> 0x11/imm32/alloc-id:fake +<span id="L30787" class="LineNr">30787 </span> <a href='mu.subx.html#L34417'>_string-increment</a>/imm32/name +<span id="L30788" class="LineNr">30788 </span> 0/imm32/no-inouts +<span id="L30789" class="LineNr">30789 </span> 0/imm32/no-inouts +<span id="L30790" class="LineNr">30790 </span> 0x11/imm32/alloc-id:fake +<span id="L30791" class="LineNr">30791 </span> <span class="SpecialChar"><a href='mu.subx.html#L35398'>Single-int-var-in-ebx</a></span>/imm32/outputs +<span id="L30792" class="LineNr">30792 </span> 0x11/imm32/alloc-id:fake +<span id="L30793" class="LineNr">30793 </span> <a href='mu.subx.html#L34989'>_string_43_increment_ebx</a>/imm32/subx-name +<span id="L30794" class="LineNr">30794 </span> 0/imm32/no-rm32 +<span id="L30795" class="LineNr">30795 </span> 0/imm32/no-r32 +<span id="L30796" class="LineNr">30796 </span> 0/imm32/no-imm32 +<span id="L30797" class="LineNr">30797 </span> 0/imm32/no-imm8 +<span id="L30798" class="LineNr">30798 </span> 0/imm32/no-disp32 +<span id="L30799" class="LineNr">30799 </span> 0/imm32/no-xm32 +<span id="L30800" class="LineNr">30800 </span> 0/imm32/no-x32 +<span id="L30801" class="LineNr">30801 </span> 0x11/imm32/alloc-id:fake +<span id="L30802" class="LineNr">30802 </span> <a href='mu.subx.html#L30803'>_Primitive-increment-esi</a>/imm32/next +<span id="L30803" class="LineNr">30803 </span><span class="subxMinorFunction">_Primitive-increment-esi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30804" class="LineNr">30804 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30805" class="LineNr">30805 </span> <span class="subxComment"># var/esi <- increment => 46/increment-esi</span> +<span id="L30806" class="LineNr">30806 </span> 0x11/imm32/alloc-id:fake +<span id="L30807" class="LineNr">30807 </span> <a href='mu.subx.html#L34417'>_string-increment</a>/imm32/name +<span id="L30808" class="LineNr">30808 </span> 0/imm32/no-inouts +<span id="L30809" class="LineNr">30809 </span> 0/imm32/no-inouts +<span id="L30810" class="LineNr">30810 </span> 0x11/imm32/alloc-id:fake +<span id="L30811" class="LineNr">30811 </span> <span class="SpecialChar"><a href='mu.subx.html#L35416'>Single-int-var-in-esi</a></span>/imm32/outputs +<span id="L30812" class="LineNr">30812 </span> 0x11/imm32/alloc-id:fake +<span id="L30813" class="LineNr">30813 </span> <a href='mu.subx.html#L34994'>_string_46_increment_esi</a>/imm32/subx-name +<span id="L30814" class="LineNr">30814 </span> 0/imm32/no-rm32 +<span id="L30815" class="LineNr">30815 </span> 0/imm32/no-r32 +<span id="L30816" class="LineNr">30816 </span> 0/imm32/no-imm32 +<span id="L30817" class="LineNr">30817 </span> 0/imm32/no-imm8 +<span id="L30818" class="LineNr">30818 </span> 0/imm32/no-disp32 +<span id="L30819" class="LineNr">30819 </span> 0/imm32/no-xm32 +<span id="L30820" class="LineNr">30820 </span> 0/imm32/no-x32 +<span id="L30821" class="LineNr">30821 </span> 0x11/imm32/alloc-id:fake +<span id="L30822" class="LineNr">30822 </span> <a href='mu.subx.html#L30823'>_Primitive-increment-edi</a>/imm32/next +<span id="L30823" class="LineNr">30823 </span><span class="subxMinorFunction">_Primitive-increment-edi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30824" class="LineNr">30824 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30825" class="LineNr">30825 </span> <span class="subxComment"># var/edi <- increment => 47/increment-edi</span> +<span id="L30826" class="LineNr">30826 </span> 0x11/imm32/alloc-id:fake +<span id="L30827" class="LineNr">30827 </span> <a href='mu.subx.html#L34417'>_string-increment</a>/imm32/name +<span id="L30828" class="LineNr">30828 </span> 0/imm32/no-inouts +<span id="L30829" class="LineNr">30829 </span> 0/imm32/no-inouts +<span id="L30830" class="LineNr">30830 </span> 0x11/imm32/alloc-id:fake +<span id="L30831" class="LineNr">30831 </span> <span class="SpecialChar"><a href='mu.subx.html#L35434'>Single-int-var-in-edi</a></span>/imm32/outputs +<span id="L30832" class="LineNr">30832 </span> 0x11/imm32/alloc-id:fake +<span id="L30833" class="LineNr">30833 </span> <a href='mu.subx.html#L34999'>_string_47_increment_edi</a>/imm32/subx-name +<span id="L30834" class="LineNr">30834 </span> 0/imm32/no-rm32 +<span id="L30835" class="LineNr">30835 </span> 0/imm32/no-r32 +<span id="L30836" class="LineNr">30836 </span> 0/imm32/no-imm32 +<span id="L30837" class="LineNr">30837 </span> 0/imm32/no-imm8 +<span id="L30838" class="LineNr">30838 </span> 0/imm32/no-disp32 +<span id="L30839" class="LineNr">30839 </span> 0/imm32/no-xm32 +<span id="L30840" class="LineNr">30840 </span> 0/imm32/no-x32 +<span id="L30841" class="LineNr">30841 </span> 0x11/imm32/alloc-id:fake +<span id="L30842" class="LineNr">30842 </span> <a href='mu.subx.html#L30843'>_Primitive-decrement-eax</a>/imm32/next +<span id="L30843" class="LineNr">30843 </span><span class="subxMinorFunction">_Primitive-decrement-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30844" class="LineNr">30844 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30845" class="LineNr">30845 </span> <span class="subxComment"># var/eax <- decrement => 48/decrement-eax</span> +<span id="L30846" class="LineNr">30846 </span> 0x11/imm32/alloc-id:fake +<span id="L30847" class="LineNr">30847 </span> <a href='mu.subx.html#L34412'>_string-decrement</a>/imm32/name +<span id="L30848" class="LineNr">30848 </span> 0/imm32/no-inouts +<span id="L30849" class="LineNr">30849 </span> 0/imm32/no-inouts +<span id="L30850" class="LineNr">30850 </span> 0x11/imm32/alloc-id:fake +<span id="L30851" class="LineNr">30851 </span> <span class="SpecialChar"><a href='mu.subx.html#L35344'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L30852" class="LineNr">30852 </span> 0x11/imm32/alloc-id:fake +<span id="L30853" class="LineNr">30853 </span> <a href='mu.subx.html#L35004'>_string_48_decrement_eax</a>/imm32/subx-name +<span id="L30854" class="LineNr">30854 </span> 0/imm32/no-rm32 +<span id="L30855" class="LineNr">30855 </span> 0/imm32/no-r32 +<span id="L30856" class="LineNr">30856 </span> 0/imm32/no-imm32 +<span id="L30857" class="LineNr">30857 </span> 0/imm32/no-imm8 +<span id="L30858" class="LineNr">30858 </span> 0/imm32/no-disp32 +<span id="L30859" class="LineNr">30859 </span> 0/imm32/no-xm32 +<span id="L30860" class="LineNr">30860 </span> 0/imm32/no-x32 +<span id="L30861" class="LineNr">30861 </span> 0x11/imm32/alloc-id:fake +<span id="L30862" class="LineNr">30862 </span> <a href='mu.subx.html#L30863'>_Primitive-decrement-ecx</a>/imm32/next +<span id="L30863" class="LineNr">30863 </span><span class="subxMinorFunction">_Primitive-decrement-ecx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30864" class="LineNr">30864 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30865" class="LineNr">30865 </span> <span class="subxComment"># var/ecx <- decrement => 49/decrement-ecx</span> +<span id="L30866" class="LineNr">30866 </span> 0x11/imm32/alloc-id:fake +<span id="L30867" class="LineNr">30867 </span> <a href='mu.subx.html#L34412'>_string-decrement</a>/imm32/name +<span id="L30868" class="LineNr">30868 </span> 0/imm32/no-inouts +<span id="L30869" class="LineNr">30869 </span> 0/imm32/no-inouts +<span id="L30870" class="LineNr">30870 </span> 0x11/imm32/alloc-id:fake +<span id="L30871" class="LineNr">30871 </span> <span class="SpecialChar"><a href='mu.subx.html#L35362'>Single-int-var-in-ecx</a></span>/imm32/outputs +<span id="L30872" class="LineNr">30872 </span> 0x11/imm32/alloc-id:fake +<span id="L30873" class="LineNr">30873 </span> <a href='mu.subx.html#L35009'>_string_49_decrement_ecx</a>/imm32/subx-name +<span id="L30874" class="LineNr">30874 </span> 0/imm32/no-rm32 +<span id="L30875" class="LineNr">30875 </span> 0/imm32/no-r32 +<span id="L30876" class="LineNr">30876 </span> 0/imm32/no-imm32 +<span id="L30877" class="LineNr">30877 </span> 0/imm32/no-imm8 +<span id="L30878" class="LineNr">30878 </span> 0/imm32/no-disp32 +<span id="L30879" class="LineNr">30879 </span> 0/imm32/no-xm32 +<span id="L30880" class="LineNr">30880 </span> 0/imm32/no-x32 +<span id="L30881" class="LineNr">30881 </span> 0x11/imm32/alloc-id:fake +<span id="L30882" class="LineNr">30882 </span> <a href='mu.subx.html#L30883'>_Primitive-decrement-edx</a>/imm32/next +<span id="L30883" class="LineNr">30883 </span><span class="subxMinorFunction">_Primitive-decrement-edx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30884" class="LineNr">30884 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30885" class="LineNr">30885 </span> <span class="subxComment"># var/edx <- decrement => 4a/decrement-edx</span> +<span id="L30886" class="LineNr">30886 </span> 0x11/imm32/alloc-id:fake +<span id="L30887" class="LineNr">30887 </span> <a href='mu.subx.html#L34412'>_string-decrement</a>/imm32/name +<span id="L30888" class="LineNr">30888 </span> 0/imm32/no-inouts +<span id="L30889" class="LineNr">30889 </span> 0/imm32/no-inouts +<span id="L30890" class="LineNr">30890 </span> 0x11/imm32/alloc-id:fake +<span id="L30891" class="LineNr">30891 </span> <span class="SpecialChar"><a href='mu.subx.html#L35380'>Single-int-var-in-edx</a></span>/imm32/outputs +<span id="L30892" class="LineNr">30892 </span> 0x11/imm32/alloc-id:fake +<span id="L30893" class="LineNr">30893 </span> <a href='mu.subx.html#L35014'>_string_4a_decrement_edx</a>/imm32/subx-name +<span id="L30894" class="LineNr">30894 </span> 0/imm32/no-rm32 +<span id="L30895" class="LineNr">30895 </span> 0/imm32/no-r32 +<span id="L30896" class="LineNr">30896 </span> 0/imm32/no-imm32 +<span id="L30897" class="LineNr">30897 </span> 0/imm32/no-imm8 +<span id="L30898" class="LineNr">30898 </span> 0/imm32/no-disp32 +<span id="L30899" class="LineNr">30899 </span> 0/imm32/no-xm32 +<span id="L30900" class="LineNr">30900 </span> 0/imm32/no-x32 +<span id="L30901" class="LineNr">30901 </span> 0x11/imm32/alloc-id:fake +<span id="L30902" class="LineNr">30902 </span> <a href='mu.subx.html#L30903'>_Primitive-decrement-ebx</a>/imm32/next +<span id="L30903" class="LineNr">30903 </span><span class="subxMinorFunction">_Primitive-decrement-ebx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30904" class="LineNr">30904 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30905" class="LineNr">30905 </span> <span class="subxComment"># var/ebx <- decrement => 4b/decrement-ebx</span> +<span id="L30906" class="LineNr">30906 </span> 0x11/imm32/alloc-id:fake +<span id="L30907" class="LineNr">30907 </span> <a href='mu.subx.html#L34412'>_string-decrement</a>/imm32/name +<span id="L30908" class="LineNr">30908 </span> 0/imm32/no-inouts +<span id="L30909" class="LineNr">30909 </span> 0/imm32/no-inouts +<span id="L30910" class="LineNr">30910 </span> 0x11/imm32/alloc-id:fake +<span id="L30911" class="LineNr">30911 </span> <span class="SpecialChar"><a href='mu.subx.html#L35398'>Single-int-var-in-ebx</a></span>/imm32/outputs +<span id="L30912" class="LineNr">30912 </span> 0x11/imm32/alloc-id:fake +<span id="L30913" class="LineNr">30913 </span> <a href='mu.subx.html#L35019'>_string_4b_decrement_ebx</a>/imm32/subx-name +<span id="L30914" class="LineNr">30914 </span> 0/imm32/no-rm32 +<span id="L30915" class="LineNr">30915 </span> 0/imm32/no-r32 +<span id="L30916" class="LineNr">30916 </span> 0/imm32/no-imm32 +<span id="L30917" class="LineNr">30917 </span> 0/imm32/no-imm8 +<span id="L30918" class="LineNr">30918 </span> 0/imm32/no-disp32 +<span id="L30919" class="LineNr">30919 </span> 0/imm32/no-xm32 +<span id="L30920" class="LineNr">30920 </span> 0/imm32/no-x32 <span id="L30921" class="LineNr">30921 </span> 0x11/imm32/alloc-id:fake -<span id="L30922" class="LineNr">30922 </span> <a href='mu.subx.html#L34686'>_string_2d_subtract_from_eax</a>/imm32/subx-name -<span id="L30923" class="LineNr">30923 </span> 0/imm32/no-rm32 -<span id="L30924" class="LineNr">30924 </span> 0/imm32/no-r32 -<span id="L30925" class="LineNr">30925 </span> 1/imm32/imm32-is-first-inout -<span id="L30926" class="LineNr">30926 </span> 0/imm32/no-imm8 -<span id="L30927" class="LineNr">30927 </span> 0/imm32/no-disp32 -<span id="L30928" class="LineNr">30928 </span> 0/imm32/no-xm32 -<span id="L30929" class="LineNr">30929 </span> 0/imm32/no-x32 +<span id="L30922" class="LineNr">30922 </span> <a href='mu.subx.html#L30923'>_Primitive-decrement-esi</a>/imm32/next +<span id="L30923" class="LineNr">30923 </span><span class="subxMinorFunction">_Primitive-decrement-esi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30924" class="LineNr">30924 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30925" class="LineNr">30925 </span> <span class="subxComment"># var/esi <- decrement => 4e/decrement-esi</span> +<span id="L30926" class="LineNr">30926 </span> 0x11/imm32/alloc-id:fake +<span id="L30927" class="LineNr">30927 </span> <a href='mu.subx.html#L34412'>_string-decrement</a>/imm32/name +<span id="L30928" class="LineNr">30928 </span> 0/imm32/no-inouts +<span id="L30929" class="LineNr">30929 </span> 0/imm32/no-inouts <span id="L30930" class="LineNr">30930 </span> 0x11/imm32/alloc-id:fake -<span id="L30931" class="LineNr">30931 </span> <a href='mu.subx.html#L30932'>_Primitive-subtract-reg-from-reg</a>/imm32/next -<span id="L30932" class="LineNr">30932 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30933" class="LineNr">30933 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30934" class="LineNr">30934 </span> <span class="subxComment"># var1/reg <- subtract var2/reg => 29/subtract-from var1/rm32 var2/r32</span> -<span id="L30935" class="LineNr">30935 </span> 0x11/imm32/alloc-id:fake -<span id="L30936" class="LineNr">30936 </span> <a href='mu.subx.html#L34334'>_string-subtract</a>/imm32/name -<span id="L30937" class="LineNr">30937 </span> 0x11/imm32/alloc-id:fake -<span id="L30938" class="LineNr">30938 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L30939" class="LineNr">30939 </span> 0x11/imm32/alloc-id:fake -<span id="L30940" class="LineNr">30940 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30931" class="LineNr">30931 </span> <span class="SpecialChar"><a href='mu.subx.html#L35416'>Single-int-var-in-esi</a></span>/imm32/outputs +<span id="L30932" class="LineNr">30932 </span> 0x11/imm32/alloc-id:fake +<span id="L30933" class="LineNr">30933 </span> <a href='mu.subx.html#L35024'>_string_4e_decrement_esi</a>/imm32/subx-name +<span id="L30934" class="LineNr">30934 </span> 0/imm32/no-rm32 +<span id="L30935" class="LineNr">30935 </span> 0/imm32/no-r32 +<span id="L30936" class="LineNr">30936 </span> 0/imm32/no-imm32 +<span id="L30937" class="LineNr">30937 </span> 0/imm32/no-imm8 +<span id="L30938" class="LineNr">30938 </span> 0/imm32/no-disp32 +<span id="L30939" class="LineNr">30939 </span> 0/imm32/no-xm32 +<span id="L30940" class="LineNr">30940 </span> 0/imm32/no-x32 <span id="L30941" class="LineNr">30941 </span> 0x11/imm32/alloc-id:fake -<span id="L30942" class="LineNr">30942 </span> <a href='mu.subx.html#L34676'>_string_29_subtract_from</a>/imm32/subx-name -<span id="L30943" class="LineNr">30943 </span> 3/imm32/rm32-is-first-output -<span id="L30944" class="LineNr">30944 </span> 1/imm32/r32-is-first-inout -<span id="L30945" class="LineNr">30945 </span> 0/imm32/no-imm32 -<span id="L30946" class="LineNr">30946 </span> 0/imm32/no-imm8 -<span id="L30947" class="LineNr">30947 </span> 0/imm32/no-disp32 -<span id="L30948" class="LineNr">30948 </span> 0/imm32/no-xm32 -<span id="L30949" class="LineNr">30949 </span> 0/imm32/no-x32 +<span id="L30942" class="LineNr">30942 </span> <a href='mu.subx.html#L30943'>_Primitive-decrement-edi</a>/imm32/next +<span id="L30943" class="LineNr">30943 </span><span class="subxMinorFunction">_Primitive-decrement-edi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30944" class="LineNr">30944 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30945" class="LineNr">30945 </span> <span class="subxComment"># var/edi <- decrement => 4f/decrement-edi</span> +<span id="L30946" class="LineNr">30946 </span> 0x11/imm32/alloc-id:fake +<span id="L30947" class="LineNr">30947 </span> <a href='mu.subx.html#L34412'>_string-decrement</a>/imm32/name +<span id="L30948" class="LineNr">30948 </span> 0/imm32/no-inouts +<span id="L30949" class="LineNr">30949 </span> 0/imm32/no-inouts <span id="L30950" class="LineNr">30950 </span> 0x11/imm32/alloc-id:fake -<span id="L30951" class="LineNr">30951 </span> <a href='mu.subx.html#L30952'>_Primitive-subtract-reg-from-mem</a>/imm32/next -<span id="L30952" class="LineNr">30952 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30953" class="LineNr">30953 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30954" class="LineNr">30954 </span> <span class="subxComment"># subtract-from var1 var2/reg => 29/subtract-from var1 var2/r32</span> -<span id="L30955" class="LineNr">30955 </span> 0x11/imm32/alloc-id:fake -<span id="L30956" class="LineNr">30956 </span> <a href='mu.subx.html#L34339'>_string-subtract-from</a>/imm32/name -<span id="L30957" class="LineNr">30957 </span> 0x11/imm32/alloc-id:fake -<span id="L30958" class="LineNr">30958 </span> <span class="SpecialChar"><a href='mu.subx.html#L34960'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L30959" class="LineNr">30959 </span> 0/imm32/no-outputs -<span id="L30960" class="LineNr">30960 </span> 0/imm32/no-outputs +<span id="L30951" class="LineNr">30951 </span> <span class="SpecialChar"><a href='mu.subx.html#L35434'>Single-int-var-in-edi</a></span>/imm32/outputs +<span id="L30952" class="LineNr">30952 </span> 0x11/imm32/alloc-id:fake +<span id="L30953" class="LineNr">30953 </span> <a href='mu.subx.html#L35029'>_string_4f_decrement_edi</a>/imm32/subx-name +<span id="L30954" class="LineNr">30954 </span> 0/imm32/no-rm32 +<span id="L30955" class="LineNr">30955 </span> 0/imm32/no-r32 +<span id="L30956" class="LineNr">30956 </span> 0/imm32/no-imm32 +<span id="L30957" class="LineNr">30957 </span> 0/imm32/no-imm8 +<span id="L30958" class="LineNr">30958 </span> 0/imm32/no-disp32 +<span id="L30959" class="LineNr">30959 </span> 0/imm32/no-xm32 +<span id="L30960" class="LineNr">30960 </span> 0/imm32/no-x32 <span id="L30961" class="LineNr">30961 </span> 0x11/imm32/alloc-id:fake -<span id="L30962" class="LineNr">30962 </span> <a href='mu.subx.html#L34676'>_string_29_subtract_from</a>/imm32/subx-name -<span id="L30963" class="LineNr">30963 </span> 1/imm32/rm32-is-first-inout -<span id="L30964" class="LineNr">30964 </span> 2/imm32/r32-is-second-inout -<span id="L30965" class="LineNr">30965 </span> 0/imm32/no-imm32 -<span id="L30966" class="LineNr">30966 </span> 0/imm32/no-imm8 -<span id="L30967" class="LineNr">30967 </span> 0/imm32/no-disp32 -<span id="L30968" class="LineNr">30968 </span> 0/imm32/no-xm32 -<span id="L30969" class="LineNr">30969 </span> 0/imm32/no-x32 -<span id="L30970" class="LineNr">30970 </span> 0x11/imm32/alloc-id:fake -<span id="L30971" class="LineNr">30971 </span> <a href='mu.subx.html#L30972'>_Primitive-subtract-mem-from-reg</a>/imm32/next -<span id="L30972" class="LineNr">30972 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30973" class="LineNr">30973 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30974" class="LineNr">30974 </span> <span class="subxComment"># var1/reg <- subtract var2 => 2b/subtract var2/rm32 var1/r32</span> -<span id="L30975" class="LineNr">30975 </span> 0x11/imm32/alloc-id:fake -<span id="L30976" class="LineNr">30976 </span> <a href='mu.subx.html#L34334'>_string-subtract</a>/imm32/name -<span id="L30977" class="LineNr">30977 </span> 0x11/imm32/alloc-id:fake -<span id="L30978" class="LineNr">30978 </span> <span class="SpecialChar"><a href='mu.subx.html#L34922'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L30979" class="LineNr">30979 </span> 0x11/imm32/alloc-id:fake -<span id="L30980" class="LineNr">30980 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30962" class="LineNr">30962 </span> <a href='mu.subx.html#L30963'>_Primitive-increment-mem</a>/imm32/next +<span id="L30963" class="LineNr">30963 </span><span class="subxMinorFunction">_Primitive-increment-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30964" class="LineNr">30964 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30965" class="LineNr">30965 </span> <span class="subxComment"># increment var => ff 0/subop/increment *(ebp+__)</span> +<span id="L30966" class="LineNr">30966 </span> 0x11/imm32/alloc-id:fake +<span id="L30967" class="LineNr">30967 </span> <a href='mu.subx.html#L34417'>_string-increment</a>/imm32/name +<span id="L30968" class="LineNr">30968 </span> 0x11/imm32/alloc-id:fake +<span id="L30969" class="LineNr">30969 </span> <span class="SpecialChar"><a href='mu.subx.html#L35175'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L30970" class="LineNr">30970 </span> 0/imm32/no-outputs +<span id="L30971" class="LineNr">30971 </span> 0/imm32/no-outputs +<span id="L30972" class="LineNr">30972 </span> 0x11/imm32/alloc-id:fake +<span id="L30973" class="LineNr">30973 </span> <a href='mu.subx.html#L35149'>_string_ff_subop_increment</a>/imm32/subx-name +<span id="L30974" class="LineNr">30974 </span> 1/imm32/rm32-is-first-inout +<span id="L30975" class="LineNr">30975 </span> 0/imm32/no-r32 +<span id="L30976" class="LineNr">30976 </span> 0/imm32/no-imm32 +<span id="L30977" class="LineNr">30977 </span> 0/imm32/no-imm8 +<span id="L30978" class="LineNr">30978 </span> 0/imm32/no-disp32 +<span id="L30979" class="LineNr">30979 </span> 0/imm32/no-xm32 +<span id="L30980" class="LineNr">30980 </span> 0/imm32/no-x32 <span id="L30981" class="LineNr">30981 </span> 0x11/imm32/alloc-id:fake -<span id="L30982" class="LineNr">30982 </span> <a href='mu.subx.html#L34681'>_string_2b_subtract</a>/imm32/subx-name -<span id="L30983" class="LineNr">30983 </span> 1/imm32/rm32-is-first-inout -<span id="L30984" class="LineNr">30984 </span> 3/imm32/r32-is-first-output -<span id="L30985" class="LineNr">30985 </span> 0/imm32/no-imm32 -<span id="L30986" class="LineNr">30986 </span> 0/imm32/no-imm8 -<span id="L30987" class="LineNr">30987 </span> 0/imm32/no-disp32 -<span id="L30988" class="LineNr">30988 </span> 0/imm32/no-xm32 -<span id="L30989" class="LineNr">30989 </span> 0/imm32/no-x32 +<span id="L30982" class="LineNr">30982 </span> <a href='mu.subx.html#L30983'>_Primitive-increment-reg</a>/imm32/next +<span id="L30983" class="LineNr">30983 </span><span class="subxMinorFunction">_Primitive-increment-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30984" class="LineNr">30984 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30985" class="LineNr">30985 </span> <span class="subxComment"># var/reg <- increment => ff 0/subop/increment %__</span> +<span id="L30986" class="LineNr">30986 </span> 0x11/imm32/alloc-id:fake +<span id="L30987" class="LineNr">30987 </span> <a href='mu.subx.html#L34417'>_string-increment</a>/imm32/name +<span id="L30988" class="LineNr">30988 </span> 0/imm32/no-inouts +<span id="L30989" class="LineNr">30989 </span> 0/imm32/no-inouts <span id="L30990" class="LineNr">30990 </span> 0x11/imm32/alloc-id:fake -<span id="L30991" class="LineNr">30991 </span> <a href='mu.subx.html#L30992'>_Primitive-subtract-lit-from-reg</a>/imm32/next -<span id="L30992" class="LineNr">30992 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30993" class="LineNr">30993 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30994" class="LineNr">30994 </span> <span class="subxComment"># var1/reg <- subtract lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> -<span id="L30995" class="LineNr">30995 </span> 0x11/imm32/alloc-id:fake -<span id="L30996" class="LineNr">30996 </span> <a href='mu.subx.html#L34334'>_string-subtract</a>/imm32/name -<span id="L30997" class="LineNr">30997 </span> 0x11/imm32/alloc-id:fake -<span id="L30998" class="LineNr">30998 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L30999" class="LineNr">30999 </span> 0x11/imm32/alloc-id:fake -<span id="L31000" class="LineNr">31000 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30991" class="LineNr">30991 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30992" class="LineNr">30992 </span> 0x11/imm32/alloc-id:fake +<span id="L30993" class="LineNr">30993 </span> <a href='mu.subx.html#L35149'>_string_ff_subop_increment</a>/imm32/subx-name +<span id="L30994" class="LineNr">30994 </span> 3/imm32/rm32-is-first-output +<span id="L30995" class="LineNr">30995 </span> 0/imm32/no-r32 +<span id="L30996" class="LineNr">30996 </span> 0/imm32/no-imm32 +<span id="L30997" class="LineNr">30997 </span> 0/imm32/no-imm8 +<span id="L30998" class="LineNr">30998 </span> 0/imm32/no-disp32 +<span id="L30999" class="LineNr">30999 </span> 0/imm32/no-xm32 +<span id="L31000" class="LineNr">31000 </span> 0/imm32/no-x32 <span id="L31001" class="LineNr">31001 </span> 0x11/imm32/alloc-id:fake -<span id="L31002" class="LineNr">31002 </span> <a href='mu.subx.html#L34796'>_string_81_subop_subtract</a>/imm32/subx-name -<span id="L31003" class="LineNr">31003 </span> 3/imm32/rm32-is-first-output -<span id="L31004" class="LineNr">31004 </span> 0/imm32/no-r32 -<span id="L31005" class="LineNr">31005 </span> 1/imm32/imm32-is-first-inout -<span id="L31006" class="LineNr">31006 </span> 0/imm32/no-imm8 -<span id="L31007" class="LineNr">31007 </span> 0/imm32/no-disp32 -<span id="L31008" class="LineNr">31008 </span> 0/imm32/no-xm32 -<span id="L31009" class="LineNr">31009 </span> 0/imm32/no-x32 -<span id="L31010" class="LineNr">31010 </span> 0x11/imm32/alloc-id:fake -<span id="L31011" class="LineNr">31011 </span> <a href='mu.subx.html#L31012'>_Primitive-subtract-lit-from-mem</a>/imm32/next -<span id="L31012" class="LineNr">31012 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31013" class="LineNr">31013 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31014" class="LineNr">31014 </span> <span class="subxComment"># subtract-from var1, lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> -<span id="L31015" class="LineNr">31015 </span> 0x11/imm32/alloc-id:fake -<span id="L31016" class="LineNr">31016 </span> <a href='mu.subx.html#L34339'>_string-subtract-from</a>/imm32/name -<span id="L31017" class="LineNr">31017 </span> 0x11/imm32/alloc-id:fake -<span id="L31018" class="LineNr">31018 </span> <span class="SpecialChar"><a href='mu.subx.html#L34996'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31019" class="LineNr">31019 </span> 0/imm32/no-outputs -<span id="L31020" class="LineNr">31020 </span> 0/imm32/no-outputs +<span id="L31002" class="LineNr">31002 </span> <a href='mu.subx.html#L31003'>_Primitive-decrement-mem</a>/imm32/next +<span id="L31003" class="LineNr">31003 </span><span class="subxMinorFunction">_Primitive-decrement-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31004" class="LineNr">31004 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31005" class="LineNr">31005 </span> <span class="subxComment"># decrement var => ff 1/subop/decrement *(ebp+__)</span> +<span id="L31006" class="LineNr">31006 </span> 0x11/imm32/alloc-id:fake +<span id="L31007" class="LineNr">31007 </span> <a href='mu.subx.html#L34412'>_string-decrement</a>/imm32/name +<span id="L31008" class="LineNr">31008 </span> 0x11/imm32/alloc-id:fake +<span id="L31009" class="LineNr">31009 </span> <span class="SpecialChar"><a href='mu.subx.html#L35175'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31010" class="LineNr">31010 </span> 0/imm32/no-outputs +<span id="L31011" class="LineNr">31011 </span> 0/imm32/no-outputs +<span id="L31012" class="LineNr">31012 </span> 0x11/imm32/alloc-id:fake +<span id="L31013" class="LineNr">31013 </span> <a href='mu.subx.html#L35154'>_string_ff_subop_decrement</a>/imm32/subx-name +<span id="L31014" class="LineNr">31014 </span> 1/imm32/rm32-is-first-inout +<span id="L31015" class="LineNr">31015 </span> 0/imm32/no-r32 +<span id="L31016" class="LineNr">31016 </span> 0/imm32/no-imm32 +<span id="L31017" class="LineNr">31017 </span> 0/imm32/no-imm8 +<span id="L31018" class="LineNr">31018 </span> 0/imm32/no-disp32 +<span id="L31019" class="LineNr">31019 </span> 0/imm32/no-xm32 +<span id="L31020" class="LineNr">31020 </span> 0/imm32/no-x32 <span id="L31021" class="LineNr">31021 </span> 0x11/imm32/alloc-id:fake -<span id="L31022" class="LineNr">31022 </span> <a href='mu.subx.html#L34796'>_string_81_subop_subtract</a>/imm32/subx-name -<span id="L31023" class="LineNr">31023 </span> 1/imm32/rm32-is-first-inout -<span id="L31024" class="LineNr">31024 </span> 0/imm32/no-r32 -<span id="L31025" class="LineNr">31025 </span> 2/imm32/imm32-is-second-inout -<span id="L31026" class="LineNr">31026 </span> 0/imm32/no-imm8 -<span id="L31027" class="LineNr">31027 </span> 0/imm32/no-disp32 -<span id="L31028" class="LineNr">31028 </span> 0/imm32/no-xm32 -<span id="L31029" class="LineNr">31029 </span> 0/imm32/no-x32 +<span id="L31022" class="LineNr">31022 </span> <a href='mu.subx.html#L31023'>_Primitive-decrement-reg</a>/imm32/next +<span id="L31023" class="LineNr">31023 </span><span class="subxMinorFunction">_Primitive-decrement-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31024" class="LineNr">31024 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31025" class="LineNr">31025 </span> <span class="subxComment"># var/reg <- decrement => ff 1/subop/decrement %__</span> +<span id="L31026" class="LineNr">31026 </span> 0x11/imm32/alloc-id:fake +<span id="L31027" class="LineNr">31027 </span> <a href='mu.subx.html#L34412'>_string-decrement</a>/imm32/name +<span id="L31028" class="LineNr">31028 </span> 0/imm32/no-inouts +<span id="L31029" class="LineNr">31029 </span> 0/imm32/no-inouts <span id="L31030" class="LineNr">31030 </span> 0x11/imm32/alloc-id:fake -<span id="L31031" class="LineNr">31031 </span> <a href='mu.subx.html#L31033'>_Primitive-and-with-eax</a>/imm32/next -<span id="L31032" class="LineNr">31032 </span><span class="subxH1Comment"># - and</span> -<span id="L31033" class="LineNr">31033 </span><span class="subxMinorFunction">_Primitive-and-with-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31034" class="LineNr">31034 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31035" class="LineNr">31035 </span> <span class="subxComment"># var/eax <- and lit => 25/and-with-eax lit/imm32</span> -<span id="L31036" class="LineNr">31036 </span> 0x11/imm32/alloc-id:fake -<span id="L31037" class="LineNr">31037 </span> <a href='mu.subx.html#L34029'>_string-and</a>/imm32/name -<span id="L31038" class="LineNr">31038 </span> 0x11/imm32/alloc-id:fake -<span id="L31039" class="LineNr">31039 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31040" class="LineNr">31040 </span> 0x11/imm32/alloc-id:fake -<span id="L31041" class="LineNr">31041 </span> <span class="SpecialChar"><a href='mu.subx.html#L35091'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L31042" class="LineNr">31042 </span> 0x11/imm32/alloc-id:fake -<span id="L31043" class="LineNr">31043 </span> <a href='mu.subx.html#L34671'>_string_25_and_with_eax</a>/imm32/subx-name -<span id="L31044" class="LineNr">31044 </span> 0/imm32/no-rm32 -<span id="L31045" class="LineNr">31045 </span> 0/imm32/no-r32 -<span id="L31046" class="LineNr">31046 </span> 1/imm32/imm32-is-first-inout -<span id="L31047" class="LineNr">31047 </span> 0/imm32/no-imm8 -<span id="L31048" class="LineNr">31048 </span> 0/imm32/no-disp32 -<span id="L31049" class="LineNr">31049 </span> 0/imm32/no-xm32 -<span id="L31050" class="LineNr">31050 </span> 0/imm32/no-x32 +<span id="L31031" class="LineNr">31031 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31032" class="LineNr">31032 </span> 0x11/imm32/alloc-id:fake +<span id="L31033" class="LineNr">31033 </span> <a href='mu.subx.html#L35154'>_string_ff_subop_decrement</a>/imm32/subx-name +<span id="L31034" class="LineNr">31034 </span> 3/imm32/rm32-is-first-output +<span id="L31035" class="LineNr">31035 </span> 0/imm32/no-r32 +<span id="L31036" class="LineNr">31036 </span> 0/imm32/no-imm32 +<span id="L31037" class="LineNr">31037 </span> 0/imm32/no-imm8 +<span id="L31038" class="LineNr">31038 </span> 0/imm32/no-disp32 +<span id="L31039" class="LineNr">31039 </span> 0/imm32/no-xm32 +<span id="L31040" class="LineNr">31040 </span> 0/imm32/no-x32 +<span id="L31041" class="LineNr">31041 </span> 0x11/imm32/alloc-id:fake +<span id="L31042" class="LineNr">31042 </span> <a href='mu.subx.html#L31044'>_Primitive-add-to-eax</a>/imm32/next +<span id="L31043" class="LineNr">31043 </span><span class="subxH1Comment"># - add</span> +<span id="L31044" class="LineNr">31044 </span><span class="subxMinorFunction">_Primitive-add-to-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31045" class="LineNr">31045 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31046" class="LineNr">31046 </span> <span class="subxComment"># var/eax <- add lit => 05/add-to-eax lit/imm32</span> +<span id="L31047" class="LineNr">31047 </span> 0x11/imm32/alloc-id:fake +<span id="L31048" class="LineNr">31048 </span> <a href='mu.subx.html#L34267'>_string-add</a>/imm32/name +<span id="L31049" class="LineNr">31049 </span> 0x11/imm32/alloc-id:fake +<span id="L31050" class="LineNr">31050 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts <span id="L31051" class="LineNr">31051 </span> 0x11/imm32/alloc-id:fake -<span id="L31052" class="LineNr">31052 </span> <a href='mu.subx.html#L31053'>_Primitive-and-reg-with-reg</a>/imm32/next -<span id="L31053" class="LineNr">31053 </span><span class="subxMinorFunction">_Primitive-and-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31054" class="LineNr">31054 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31055" class="LineNr">31055 </span> <span class="subxComment"># var1/reg <- and var2/reg => 21/and-with var1/rm32 var2/r32</span> -<span id="L31056" class="LineNr">31056 </span> 0x11/imm32/alloc-id:fake -<span id="L31057" class="LineNr">31057 </span> <a href='mu.subx.html#L34029'>_string-and</a>/imm32/name -<span id="L31058" class="LineNr">31058 </span> 0x11/imm32/alloc-id:fake -<span id="L31059" class="LineNr">31059 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L31060" class="LineNr">31060 </span> 0x11/imm32/alloc-id:fake -<span id="L31061" class="LineNr">31061 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31052" class="LineNr">31052 </span> <span class="SpecialChar"><a href='mu.subx.html#L35344'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L31053" class="LineNr">31053 </span> 0x11/imm32/alloc-id:fake +<span id="L31054" class="LineNr">31054 </span> <a href='mu.subx.html#L34634'>_string_05_add_to_eax</a>/imm32/subx-name +<span id="L31055" class="LineNr">31055 </span> 0/imm32/no-rm32 +<span id="L31056" class="LineNr">31056 </span> 0/imm32/no-r32 +<span id="L31057" class="LineNr">31057 </span> 1/imm32/imm32-is-first-inout +<span id="L31058" class="LineNr">31058 </span> 0/imm32/no-imm8 +<span id="L31059" class="LineNr">31059 </span> 0/imm32/no-disp32 +<span id="L31060" class="LineNr">31060 </span> 0/imm32/no-xm32 +<span id="L31061" class="LineNr">31061 </span> 0/imm32/no-x32 <span id="L31062" class="LineNr">31062 </span> 0x11/imm32/alloc-id:fake -<span id="L31063" class="LineNr">31063 </span> <a href='mu.subx.html#L34661'>_string_21_and_with</a>/imm32/subx-name -<span id="L31064" class="LineNr">31064 </span> 3/imm32/rm32-is-first-output -<span id="L31065" class="LineNr">31065 </span> 1/imm32/r32-is-first-inout -<span id="L31066" class="LineNr">31066 </span> 0/imm32/no-imm32 -<span id="L31067" class="LineNr">31067 </span> 0/imm32/no-imm8 -<span id="L31068" class="LineNr">31068 </span> 0/imm32/no-disp32 -<span id="L31069" class="LineNr">31069 </span> 0/imm32/no-xm32 -<span id="L31070" class="LineNr">31070 </span> 0/imm32/no-x32 +<span id="L31063" class="LineNr">31063 </span> <a href='mu.subx.html#L31064'>_Primitive-add-reg-to-reg</a>/imm32/next +<span id="L31064" class="LineNr">31064 </span><span class="subxMinorFunction">_Primitive-add-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31065" class="LineNr">31065 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31066" class="LineNr">31066 </span> <span class="subxComment"># var1/reg <- add var2/reg => 01/add-to var1/rm32 var2/r32</span> +<span id="L31067" class="LineNr">31067 </span> 0x11/imm32/alloc-id:fake +<span id="L31068" class="LineNr">31068 </span> <a href='mu.subx.html#L34267'>_string-add</a>/imm32/name +<span id="L31069" class="LineNr">31069 </span> 0x11/imm32/alloc-id:fake +<span id="L31070" class="LineNr">31070 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/inouts <span id="L31071" class="LineNr">31071 </span> 0x11/imm32/alloc-id:fake -<span id="L31072" class="LineNr">31072 </span> <a href='mu.subx.html#L31073'>_Primitive-and-reg-with-mem</a>/imm32/next -<span id="L31073" class="LineNr">31073 </span><span class="subxMinorFunction">_Primitive-and-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31074" class="LineNr">31074 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31075" class="LineNr">31075 </span> <span class="subxComment"># and-with var1 var2/reg => 21/and-with var1 var2/r32</span> -<span id="L31076" class="LineNr">31076 </span> 0x11/imm32/alloc-id:fake -<span id="L31077" class="LineNr">31077 </span> <a href='mu.subx.html#L34034'>_string-and-with</a>/imm32/name -<span id="L31078" class="LineNr">31078 </span> 0x11/imm32/alloc-id:fake -<span id="L31079" class="LineNr">31079 </span> <span class="SpecialChar"><a href='mu.subx.html#L34960'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L31080" class="LineNr">31080 </span> 0/imm32/no-outputs -<span id="L31081" class="LineNr">31081 </span> 0/imm32/no-outputs +<span id="L31072" class="LineNr">31072 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31073" class="LineNr">31073 </span> 0x11/imm32/alloc-id:fake +<span id="L31074" class="LineNr">31074 </span> <a href='mu.subx.html#L34624'>_string_01_add_to</a>/imm32/subx-name +<span id="L31075" class="LineNr">31075 </span> 3/imm32/rm32-is-first-output +<span id="L31076" class="LineNr">31076 </span> 1/imm32/r32-is-first-inout +<span id="L31077" class="LineNr">31077 </span> 0/imm32/no-imm32 +<span id="L31078" class="LineNr">31078 </span> 0/imm32/no-imm8 +<span id="L31079" class="LineNr">31079 </span> 0/imm32/no-disp32 +<span id="L31080" class="LineNr">31080 </span> 0/imm32/no-xm32 +<span id="L31081" class="LineNr">31081 </span> 0/imm32/no-x32 <span id="L31082" class="LineNr">31082 </span> 0x11/imm32/alloc-id:fake -<span id="L31083" class="LineNr">31083 </span> <a href='mu.subx.html#L34661'>_string_21_and_with</a>/imm32/subx-name -<span id="L31084" class="LineNr">31084 </span> 1/imm32/rm32-is-first-inout -<span id="L31085" class="LineNr">31085 </span> 2/imm32/r32-is-second-inout -<span id="L31086" class="LineNr">31086 </span> 0/imm32/no-imm32 -<span id="L31087" class="LineNr">31087 </span> 0/imm32/no-imm8 -<span id="L31088" class="LineNr">31088 </span> 0/imm32/no-disp32 -<span id="L31089" class="LineNr">31089 </span> 0/imm32/no-xm32 -<span id="L31090" class="LineNr">31090 </span> 0/imm32/no-x32 -<span id="L31091" class="LineNr">31091 </span> 0x11/imm32/alloc-id:fake -<span id="L31092" class="LineNr">31092 </span> <a href='mu.subx.html#L31093'>_Primitive-and-mem-with-reg</a>/imm32/next -<span id="L31093" class="LineNr">31093 </span><span class="subxMinorFunction">_Primitive-and-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31094" class="LineNr">31094 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31095" class="LineNr">31095 </span> <span class="subxComment"># var1/reg <- and var2 => 23/and var2/rm32 var1/r32</span> -<span id="L31096" class="LineNr">31096 </span> 0x11/imm32/alloc-id:fake -<span id="L31097" class="LineNr">31097 </span> <a href='mu.subx.html#L34029'>_string-and</a>/imm32/name -<span id="L31098" class="LineNr">31098 </span> 0x11/imm32/alloc-id:fake -<span id="L31099" class="LineNr">31099 </span> <span class="SpecialChar"><a href='mu.subx.html#L34922'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31100" class="LineNr">31100 </span> 0x11/imm32/alloc-id:fake -<span id="L31101" class="LineNr">31101 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31083" class="LineNr">31083 </span> <a href='mu.subx.html#L31084'>_Primitive-add-reg-to-mem</a>/imm32/next +<span id="L31084" class="LineNr">31084 </span><span class="subxMinorFunction">_Primitive-add-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31085" class="LineNr">31085 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31086" class="LineNr">31086 </span> <span class="subxComment"># add-to var1 var2/reg => 01/add-to var1 var2/r32</span> +<span id="L31087" class="LineNr">31087 </span> 0x11/imm32/alloc-id:fake +<span id="L31088" class="LineNr">31088 </span> <a href='mu.subx.html#L34277'>_string-add-to</a>/imm32/name +<span id="L31089" class="LineNr">31089 </span> 0x11/imm32/alloc-id:fake +<span id="L31090" class="LineNr">31090 </span> <span class="SpecialChar"><a href='mu.subx.html#L35213'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L31091" class="LineNr">31091 </span> 0/imm32/no-outputs +<span id="L31092" class="LineNr">31092 </span> 0/imm32/no-outputs +<span id="L31093" class="LineNr">31093 </span> 0x11/imm32/alloc-id:fake +<span id="L31094" class="LineNr">31094 </span> <a href='mu.subx.html#L34624'>_string_01_add_to</a>/imm32/subx-name +<span id="L31095" class="LineNr">31095 </span> 1/imm32/rm32-is-first-inout +<span id="L31096" class="LineNr">31096 </span> 2/imm32/r32-is-second-inout +<span id="L31097" class="LineNr">31097 </span> 0/imm32/no-imm32 +<span id="L31098" class="LineNr">31098 </span> 0/imm32/no-imm8 +<span id="L31099" class="LineNr">31099 </span> 0/imm32/no-disp32 +<span id="L31100" class="LineNr">31100 </span> 0/imm32/no-xm32 +<span id="L31101" class="LineNr">31101 </span> 0/imm32/no-x32 <span id="L31102" class="LineNr">31102 </span> 0x11/imm32/alloc-id:fake -<span id="L31103" class="LineNr">31103 </span> <a href='mu.subx.html#L34666'>_string_23_and</a>/imm32/subx-name -<span id="L31104" class="LineNr">31104 </span> 1/imm32/rm32-is-first-inout -<span id="L31105" class="LineNr">31105 </span> 3/imm32/r32-is-first-output -<span id="L31106" class="LineNr">31106 </span> 0/imm32/no-imm32 -<span id="L31107" class="LineNr">31107 </span> 0/imm32/no-imm8 -<span id="L31108" class="LineNr">31108 </span> 0/imm32/no-disp32 -<span id="L31109" class="LineNr">31109 </span> 0/imm32/no-xm32 -<span id="L31110" class="LineNr">31110 </span> 0/imm32/no-x32 +<span id="L31103" class="LineNr">31103 </span> <a href='mu.subx.html#L31104'>_Primitive-add-mem-to-reg</a>/imm32/next +<span id="L31104" class="LineNr">31104 </span><span class="subxMinorFunction">_Primitive-add-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31105" class="LineNr">31105 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31106" class="LineNr">31106 </span> <span class="subxComment"># var1/reg <- add var2 => 03/add var2/rm32 var1/r32</span> +<span id="L31107" class="LineNr">31107 </span> 0x11/imm32/alloc-id:fake +<span id="L31108" class="LineNr">31108 </span> <a href='mu.subx.html#L34267'>_string-add</a>/imm32/name +<span id="L31109" class="LineNr">31109 </span> 0x11/imm32/alloc-id:fake +<span id="L31110" class="LineNr">31110 </span> <span class="SpecialChar"><a href='mu.subx.html#L35175'>Single-int-var-in-mem</a></span>/imm32/inouts <span id="L31111" class="LineNr">31111 </span> 0x11/imm32/alloc-id:fake -<span id="L31112" class="LineNr">31112 </span> <a href='mu.subx.html#L31113'>_Primitive-and-lit-with-reg</a>/imm32/next -<span id="L31113" class="LineNr">31113 </span><span class="subxMinorFunction">_Primitive-and-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31114" class="LineNr">31114 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31115" class="LineNr">31115 </span> <span class="subxComment"># var1/reg <- and lit => 81 4/subop/and var1/rm32 lit/imm32</span> -<span id="L31116" class="LineNr">31116 </span> 0x11/imm32/alloc-id:fake -<span id="L31117" class="LineNr">31117 </span> <a href='mu.subx.html#L34029'>_string-and</a>/imm32/name -<span id="L31118" class="LineNr">31118 </span> 0x11/imm32/alloc-id:fake -<span id="L31119" class="LineNr">31119 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31120" class="LineNr">31120 </span> 0x11/imm32/alloc-id:fake -<span id="L31121" class="LineNr">31121 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31112" class="LineNr">31112 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31113" class="LineNr">31113 </span> 0x11/imm32/alloc-id:fake +<span id="L31114" class="LineNr">31114 </span> <a href='mu.subx.html#L34629'>_string_03_add</a>/imm32/subx-name +<span id="L31115" class="LineNr">31115 </span> 1/imm32/rm32-is-first-inout +<span id="L31116" class="LineNr">31116 </span> 3/imm32/r32-is-first-output +<span id="L31117" class="LineNr">31117 </span> 0/imm32/no-imm32 +<span id="L31118" class="LineNr">31118 </span> 0/imm32/no-imm8 +<span id="L31119" class="LineNr">31119 </span> 0/imm32/no-disp32 +<span id="L31120" class="LineNr">31120 </span> 0/imm32/no-xm32 +<span id="L31121" class="LineNr">31121 </span> 0/imm32/no-x32 <span id="L31122" class="LineNr">31122 </span> 0x11/imm32/alloc-id:fake -<span id="L31123" class="LineNr">31123 </span> <a href='mu.subx.html#L34791'>_string_81_subop_and</a>/imm32/subx-name -<span id="L31124" class="LineNr">31124 </span> 3/imm32/rm32-is-first-output -<span id="L31125" class="LineNr">31125 </span> 0/imm32/no-r32 -<span id="L31126" class="LineNr">31126 </span> 1/imm32/imm32-is-first-inout -<span id="L31127" class="LineNr">31127 </span> 0/imm32/no-imm8 -<span id="L31128" class="LineNr">31128 </span> 0/imm32/no-disp32 -<span id="L31129" class="LineNr">31129 </span> 0/imm32/no-xm32 -<span id="L31130" class="LineNr">31130 </span> 0/imm32/no-x32 +<span id="L31123" class="LineNr">31123 </span> <a href='mu.subx.html#L31124'>_Primitive-add-lit-to-reg</a>/imm32/next +<span id="L31124" class="LineNr">31124 </span><span class="subxMinorFunction">_Primitive-add-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31125" class="LineNr">31125 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31126" class="LineNr">31126 </span> <span class="subxComment"># var1/reg <- add lit => 81 0/subop/add var1/rm32 lit/imm32</span> +<span id="L31127" class="LineNr">31127 </span> 0x11/imm32/alloc-id:fake +<span id="L31128" class="LineNr">31128 </span> <a href='mu.subx.html#L34267'>_string-add</a>/imm32/name +<span id="L31129" class="LineNr">31129 </span> 0x11/imm32/alloc-id:fake +<span id="L31130" class="LineNr">31130 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts <span id="L31131" class="LineNr">31131 </span> 0x11/imm32/alloc-id:fake -<span id="L31132" class="LineNr">31132 </span> <a href='mu.subx.html#L31133'>_Primitive-and-lit-with-mem</a>/imm32/next -<span id="L31133" class="LineNr">31133 </span><span class="subxMinorFunction">_Primitive-and-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31134" class="LineNr">31134 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31135" class="LineNr">31135 </span> <span class="subxComment"># and-with var1, lit => 81 4/subop/and var1/rm32 lit/imm32</span> -<span id="L31136" class="LineNr">31136 </span> 0x11/imm32/alloc-id:fake -<span id="L31137" class="LineNr">31137 </span> <a href='mu.subx.html#L34034'>_string-and-with</a>/imm32/name -<span id="L31138" class="LineNr">31138 </span> 0x11/imm32/alloc-id:fake -<span id="L31139" class="LineNr">31139 </span> <span class="SpecialChar"><a href='mu.subx.html#L34996'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31140" class="LineNr">31140 </span> 0/imm32/no-outputs -<span id="L31141" class="LineNr">31141 </span> 0/imm32/no-outputs +<span id="L31132" class="LineNr">31132 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31133" class="LineNr">31133 </span> 0x11/imm32/alloc-id:fake +<span id="L31134" class="LineNr">31134 </span> <a href='mu.subx.html#L35034'>_string_81_subop_add</a>/imm32/subx-name +<span id="L31135" class="LineNr">31135 </span> 3/imm32/rm32-is-first-output +<span id="L31136" class="LineNr">31136 </span> 0/imm32/no-r32 +<span id="L31137" class="LineNr">31137 </span> 1/imm32/imm32-is-first-inout +<span id="L31138" class="LineNr">31138 </span> 0/imm32/no-imm8 +<span id="L31139" class="LineNr">31139 </span> 0/imm32/no-disp32 +<span id="L31140" class="LineNr">31140 </span> 0/imm32/no-xm32 +<span id="L31141" class="LineNr">31141 </span> 0/imm32/no-x32 <span id="L31142" class="LineNr">31142 </span> 0x11/imm32/alloc-id:fake -<span id="L31143" class="LineNr">31143 </span> <a href='mu.subx.html#L34791'>_string_81_subop_and</a>/imm32/subx-name -<span id="L31144" class="LineNr">31144 </span> 1/imm32/rm32-is-first-inout -<span id="L31145" class="LineNr">31145 </span> 0/imm32/no-r32 -<span id="L31146" class="LineNr">31146 </span> 2/imm32/imm32-is-second-inout -<span id="L31147" class="LineNr">31147 </span> 0/imm32/no-imm8 -<span id="L31148" class="LineNr">31148 </span> 0/imm32/no-disp32 -<span id="L31149" class="LineNr">31149 </span> 0/imm32/no-xm32 -<span id="L31150" class="LineNr">31150 </span> 0/imm32/no-x32 -<span id="L31151" class="LineNr">31151 </span> 0x11/imm32/alloc-id:fake -<span id="L31152" class="LineNr">31152 </span> <a href='mu.subx.html#L31154'>_Primitive-or-with-eax</a>/imm32/next -<span id="L31153" class="LineNr">31153 </span><span class="subxH1Comment"># - or</span> -<span id="L31154" class="LineNr">31154 </span><span class="subxMinorFunction">_Primitive-or-with-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31155" class="LineNr">31155 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31156" class="LineNr">31156 </span> <span class="subxComment"># var/eax <- or lit => 0d/or-with-eax lit/imm32</span> -<span id="L31157" class="LineNr">31157 </span> 0x11/imm32/alloc-id:fake -<span id="L31158" class="LineNr">31158 </span> <a href='mu.subx.html#L34324'>_string-or</a>/imm32/name -<span id="L31159" class="LineNr">31159 </span> 0x11/imm32/alloc-id:fake -<span id="L31160" class="LineNr">31160 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31161" class="LineNr">31161 </span> 0x11/imm32/alloc-id:fake -<span id="L31162" class="LineNr">31162 </span> <span class="SpecialChar"><a href='mu.subx.html#L35091'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L31163" class="LineNr">31163 </span> 0x11/imm32/alloc-id:fake -<span id="L31164" class="LineNr">31164 </span> <a href='mu.subx.html#L34396'>_string_0d_or_with_eax</a>/imm32/subx-name -<span id="L31165" class="LineNr">31165 </span> 0/imm32/no-rm32 -<span id="L31166" class="LineNr">31166 </span> 0/imm32/no-r32 -<span id="L31167" class="LineNr">31167 </span> 1/imm32/imm32-is-first-inout -<span id="L31168" class="LineNr">31168 </span> 0/imm32/no-imm8 -<span id="L31169" class="LineNr">31169 </span> 0/imm32/no-disp32 -<span id="L31170" class="LineNr">31170 </span> 0/imm32/no-xm32 -<span id="L31171" class="LineNr">31171 </span> 0/imm32/no-x32 +<span id="L31143" class="LineNr">31143 </span> <a href='mu.subx.html#L31144'>_Primitive-add-lit-to-mem</a>/imm32/next +<span id="L31144" class="LineNr">31144 </span><span class="subxMinorFunction">_Primitive-add-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31145" class="LineNr">31145 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31146" class="LineNr">31146 </span> <span class="subxComment"># add-to var1, lit => 81 0/subop/add var1/rm32 lit/imm32</span> +<span id="L31147" class="LineNr">31147 </span> 0x11/imm32/alloc-id:fake +<span id="L31148" class="LineNr">31148 </span> <a href='mu.subx.html#L34277'>_string-add-to</a>/imm32/name +<span id="L31149" class="LineNr">31149 </span> 0x11/imm32/alloc-id:fake +<span id="L31150" class="LineNr">31150 </span> <span class="SpecialChar"><a href='mu.subx.html#L35249'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31151" class="LineNr">31151 </span> 0/imm32/no-outputs +<span id="L31152" class="LineNr">31152 </span> 0/imm32/no-outputs +<span id="L31153" class="LineNr">31153 </span> 0x11/imm32/alloc-id:fake +<span id="L31154" class="LineNr">31154 </span> <a href='mu.subx.html#L35034'>_string_81_subop_add</a>/imm32/subx-name +<span id="L31155" class="LineNr">31155 </span> 1/imm32/rm32-is-first-inout +<span id="L31156" class="LineNr">31156 </span> 0/imm32/no-r32 +<span id="L31157" class="LineNr">31157 </span> 2/imm32/imm32-is-second-inout +<span id="L31158" class="LineNr">31158 </span> 0/imm32/no-imm8 +<span id="L31159" class="LineNr">31159 </span> 0/imm32/no-disp32 +<span id="L31160" class="LineNr">31160 </span> 0/imm32/no-xm32 +<span id="L31161" class="LineNr">31161 </span> 0/imm32/no-x32 +<span id="L31162" class="LineNr">31162 </span> 0x11/imm32/alloc-id:fake +<span id="L31163" class="LineNr">31163 </span> <a href='mu.subx.html#L31165'>_Primitive-subtract-from-eax</a>/imm32/next +<span id="L31164" class="LineNr">31164 </span><span class="subxH1Comment"># - subtract</span> +<span id="L31165" class="LineNr">31165 </span><span class="subxMinorFunction">_Primitive-subtract-from-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31166" class="LineNr">31166 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31167" class="LineNr">31167 </span> <span class="subxComment"># var/eax <- subtract lit => 2d/subtract-from-eax lit/imm32</span> +<span id="L31168" class="LineNr">31168 </span> 0x11/imm32/alloc-id:fake +<span id="L31169" class="LineNr">31169 </span> <a href='mu.subx.html#L34587'>_string-subtract</a>/imm32/name +<span id="L31170" class="LineNr">31170 </span> 0x11/imm32/alloc-id:fake +<span id="L31171" class="LineNr">31171 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts <span id="L31172" class="LineNr">31172 </span> 0x11/imm32/alloc-id:fake -<span id="L31173" class="LineNr">31173 </span> <a href='mu.subx.html#L31174'>_Primitive-or-reg-with-reg</a>/imm32/next -<span id="L31174" class="LineNr">31174 </span><span class="subxMinorFunction">_Primitive-or-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31175" class="LineNr">31175 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31176" class="LineNr">31176 </span> <span class="subxComment"># var1/reg <- or var2/reg => 09/or-with var1/rm32 var2/r32</span> -<span id="L31177" class="LineNr">31177 </span> 0x11/imm32/alloc-id:fake -<span id="L31178" class="LineNr">31178 </span> <a href='mu.subx.html#L34324'>_string-or</a>/imm32/name -<span id="L31179" class="LineNr">31179 </span> 0x11/imm32/alloc-id:fake -<span id="L31180" class="LineNr">31180 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L31181" class="LineNr">31181 </span> 0x11/imm32/alloc-id:fake -<span id="L31182" class="LineNr">31182 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31173" class="LineNr">31173 </span> <span class="SpecialChar"><a href='mu.subx.html#L35344'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L31174" class="LineNr">31174 </span> 0x11/imm32/alloc-id:fake +<span id="L31175" class="LineNr">31175 </span> <a href='mu.subx.html#L34939'>_string_2d_subtract_from_eax</a>/imm32/subx-name +<span id="L31176" class="LineNr">31176 </span> 0/imm32/no-rm32 +<span id="L31177" class="LineNr">31177 </span> 0/imm32/no-r32 +<span id="L31178" class="LineNr">31178 </span> 1/imm32/imm32-is-first-inout +<span id="L31179" class="LineNr">31179 </span> 0/imm32/no-imm8 +<span id="L31180" class="LineNr">31180 </span> 0/imm32/no-disp32 +<span id="L31181" class="LineNr">31181 </span> 0/imm32/no-xm32 +<span id="L31182" class="LineNr">31182 </span> 0/imm32/no-x32 <span id="L31183" class="LineNr">31183 </span> 0x11/imm32/alloc-id:fake -<span id="L31184" class="LineNr">31184 </span> <a href='mu.subx.html#L34386'>_string_09_or_with</a>/imm32/subx-name -<span id="L31185" class="LineNr">31185 </span> 3/imm32/rm32-is-first-output -<span id="L31186" class="LineNr">31186 </span> 1/imm32/r32-is-first-inout -<span id="L31187" class="LineNr">31187 </span> 0/imm32/no-imm32 -<span id="L31188" class="LineNr">31188 </span> 0/imm32/no-imm8 -<span id="L31189" class="LineNr">31189 </span> 0/imm32/no-disp32 -<span id="L31190" class="LineNr">31190 </span> 0/imm32/no-xm32 -<span id="L31191" class="LineNr">31191 </span> 0/imm32/no-x32 +<span id="L31184" class="LineNr">31184 </span> <a href='mu.subx.html#L31185'>_Primitive-subtract-reg-from-reg</a>/imm32/next +<span id="L31185" class="LineNr">31185 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31186" class="LineNr">31186 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31187" class="LineNr">31187 </span> <span class="subxComment"># var1/reg <- subtract var2/reg => 29/subtract-from var1/rm32 var2/r32</span> +<span id="L31188" class="LineNr">31188 </span> 0x11/imm32/alloc-id:fake +<span id="L31189" class="LineNr">31189 </span> <a href='mu.subx.html#L34587'>_string-subtract</a>/imm32/name +<span id="L31190" class="LineNr">31190 </span> 0x11/imm32/alloc-id:fake +<span id="L31191" class="LineNr">31191 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/inouts <span id="L31192" class="LineNr">31192 </span> 0x11/imm32/alloc-id:fake -<span id="L31193" class="LineNr">31193 </span> <a href='mu.subx.html#L31194'>_Primitive-or-reg-with-mem</a>/imm32/next -<span id="L31194" class="LineNr">31194 </span><span class="subxMinorFunction">_Primitive-or-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31195" class="LineNr">31195 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31196" class="LineNr">31196 </span> <span class="subxComment"># or-with var1 var2/reg => 09/or-with var1 var2/r32</span> -<span id="L31197" class="LineNr">31197 </span> 0x11/imm32/alloc-id:fake -<span id="L31198" class="LineNr">31198 </span> <a href='mu.subx.html#L34329'>_string-or-with</a>/imm32/name -<span id="L31199" class="LineNr">31199 </span> 0x11/imm32/alloc-id:fake -<span id="L31200" class="LineNr">31200 </span> <span class="SpecialChar"><a href='mu.subx.html#L34960'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L31201" class="LineNr">31201 </span> 0/imm32/no-outputs -<span id="L31202" class="LineNr">31202 </span> 0/imm32/no-outputs +<span id="L31193" class="LineNr">31193 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31194" class="LineNr">31194 </span> 0x11/imm32/alloc-id:fake +<span id="L31195" class="LineNr">31195 </span> <a href='mu.subx.html#L34929'>_string_29_subtract_from</a>/imm32/subx-name +<span id="L31196" class="LineNr">31196 </span> 3/imm32/rm32-is-first-output +<span id="L31197" class="LineNr">31197 </span> 1/imm32/r32-is-first-inout +<span id="L31198" class="LineNr">31198 </span> 0/imm32/no-imm32 +<span id="L31199" class="LineNr">31199 </span> 0/imm32/no-imm8 +<span id="L31200" class="LineNr">31200 </span> 0/imm32/no-disp32 +<span id="L31201" class="LineNr">31201 </span> 0/imm32/no-xm32 +<span id="L31202" class="LineNr">31202 </span> 0/imm32/no-x32 <span id="L31203" class="LineNr">31203 </span> 0x11/imm32/alloc-id:fake -<span id="L31204" class="LineNr">31204 </span> <a href='mu.subx.html#L34386'>_string_09_or_with</a>/imm32/subx-name -<span id="L31205" class="LineNr">31205 </span> 1/imm32/rm32-is-first-inout -<span id="L31206" class="LineNr">31206 </span> 2/imm32/r32-is-second-inout -<span id="L31207" class="LineNr">31207 </span> 0/imm32/no-imm32 -<span id="L31208" class="LineNr">31208 </span> 0/imm32/no-imm8 -<span id="L31209" class="LineNr">31209 </span> 0/imm32/no-disp32 -<span id="L31210" class="LineNr">31210 </span> 0/imm32/no-xm32 -<span id="L31211" class="LineNr">31211 </span> 0/imm32/no-x32 -<span id="L31212" class="LineNr">31212 </span> 0x11/imm32/alloc-id:fake -<span id="L31213" class="LineNr">31213 </span> <a href='mu.subx.html#L31214'>_Primitive-or-mem-with-reg</a>/imm32/next -<span id="L31214" class="LineNr">31214 </span><span class="subxMinorFunction">_Primitive-or-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31215" class="LineNr">31215 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31216" class="LineNr">31216 </span> <span class="subxComment"># var1/reg <- or var2 => 0b/or var2/rm32 var1/r32</span> -<span id="L31217" class="LineNr">31217 </span> 0x11/imm32/alloc-id:fake -<span id="L31218" class="LineNr">31218 </span> <a href='mu.subx.html#L34324'>_string-or</a>/imm32/name -<span id="L31219" class="LineNr">31219 </span> 0x11/imm32/alloc-id:fake -<span id="L31220" class="LineNr">31220 </span> <span class="SpecialChar"><a href='mu.subx.html#L34922'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31221" class="LineNr">31221 </span> 0x11/imm32/alloc-id:fake -<span id="L31222" class="LineNr">31222 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31204" class="LineNr">31204 </span> <a href='mu.subx.html#L31205'>_Primitive-subtract-reg-from-mem</a>/imm32/next +<span id="L31205" class="LineNr">31205 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31206" class="LineNr">31206 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31207" class="LineNr">31207 </span> <span class="subxComment"># subtract-from var1 var2/reg => 29/subtract-from var1 var2/r32</span> +<span id="L31208" class="LineNr">31208 </span> 0x11/imm32/alloc-id:fake +<span id="L31209" class="LineNr">31209 </span> <a href='mu.subx.html#L34592'>_string-subtract-from</a>/imm32/name +<span id="L31210" class="LineNr">31210 </span> 0x11/imm32/alloc-id:fake +<span id="L31211" class="LineNr">31211 </span> <span class="SpecialChar"><a href='mu.subx.html#L35213'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L31212" class="LineNr">31212 </span> 0/imm32/no-outputs +<span id="L31213" class="LineNr">31213 </span> 0/imm32/no-outputs +<span id="L31214" class="LineNr">31214 </span> 0x11/imm32/alloc-id:fake +<span id="L31215" class="LineNr">31215 </span> <a href='mu.subx.html#L34929'>_string_29_subtract_from</a>/imm32/subx-name +<span id="L31216" class="LineNr">31216 </span> 1/imm32/rm32-is-first-inout +<span id="L31217" class="LineNr">31217 </span> 2/imm32/r32-is-second-inout +<span id="L31218" class="LineNr">31218 </span> 0/imm32/no-imm32 +<span id="L31219" class="LineNr">31219 </span> 0/imm32/no-imm8 +<span id="L31220" class="LineNr">31220 </span> 0/imm32/no-disp32 +<span id="L31221" class="LineNr">31221 </span> 0/imm32/no-xm32 +<span id="L31222" class="LineNr">31222 </span> 0/imm32/no-x32 <span id="L31223" class="LineNr">31223 </span> 0x11/imm32/alloc-id:fake -<span id="L31224" class="LineNr">31224 </span> <a href='mu.subx.html#L34391'>_string_0b_or</a>/imm32/subx-name -<span id="L31225" class="LineNr">31225 </span> 1/imm32/rm32-is-first-inout -<span id="L31226" class="LineNr">31226 </span> 3/imm32/r32-is-first-output -<span id="L31227" class="LineNr">31227 </span> 0/imm32/no-imm32 -<span id="L31228" class="LineNr">31228 </span> 0/imm32/no-imm8 -<span id="L31229" class="LineNr">31229 </span> 0/imm32/no-disp32 -<span id="L31230" class="LineNr">31230 </span> 0/imm32/no-xm32 -<span id="L31231" class="LineNr">31231 </span> 0/imm32/no-x32 +<span id="L31224" class="LineNr">31224 </span> <a href='mu.subx.html#L31225'>_Primitive-subtract-mem-from-reg</a>/imm32/next +<span id="L31225" class="LineNr">31225 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31226" class="LineNr">31226 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31227" class="LineNr">31227 </span> <span class="subxComment"># var1/reg <- subtract var2 => 2b/subtract var2/rm32 var1/r32</span> +<span id="L31228" class="LineNr">31228 </span> 0x11/imm32/alloc-id:fake +<span id="L31229" class="LineNr">31229 </span> <a href='mu.subx.html#L34587'>_string-subtract</a>/imm32/name +<span id="L31230" class="LineNr">31230 </span> 0x11/imm32/alloc-id:fake +<span id="L31231" class="LineNr">31231 </span> <span class="SpecialChar"><a href='mu.subx.html#L35175'>Single-int-var-in-mem</a></span>/imm32/inouts <span id="L31232" class="LineNr">31232 </span> 0x11/imm32/alloc-id:fake -<span id="L31233" class="LineNr">31233 </span> <a href='mu.subx.html#L31234'>_Primitive-or-lit-with-reg</a>/imm32/next -<span id="L31234" class="LineNr">31234 </span><span class="subxMinorFunction">_Primitive-or-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31235" class="LineNr">31235 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31236" class="LineNr">31236 </span> <span class="subxComment"># var1/reg <- or lit => 81 1/subop/or var1/rm32 lit/imm32</span> -<span id="L31237" class="LineNr">31237 </span> 0x11/imm32/alloc-id:fake -<span id="L31238" class="LineNr">31238 </span> <a href='mu.subx.html#L34324'>_string-or</a>/imm32/name -<span id="L31239" class="LineNr">31239 </span> 0x11/imm32/alloc-id:fake -<span id="L31240" class="LineNr">31240 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31241" class="LineNr">31241 </span> 0x11/imm32/alloc-id:fake -<span id="L31242" class="LineNr">31242 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31233" class="LineNr">31233 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31234" class="LineNr">31234 </span> 0x11/imm32/alloc-id:fake +<span id="L31235" class="LineNr">31235 </span> <a href='mu.subx.html#L34934'>_string_2b_subtract</a>/imm32/subx-name +<span id="L31236" class="LineNr">31236 </span> 1/imm32/rm32-is-first-inout +<span id="L31237" class="LineNr">31237 </span> 3/imm32/r32-is-first-output +<span id="L31238" class="LineNr">31238 </span> 0/imm32/no-imm32 +<span id="L31239" class="LineNr">31239 </span> 0/imm32/no-imm8 +<span id="L31240" class="LineNr">31240 </span> 0/imm32/no-disp32 +<span id="L31241" class="LineNr">31241 </span> 0/imm32/no-xm32 +<span id="L31242" class="LineNr">31242 </span> 0/imm32/no-x32 <span id="L31243" class="LineNr">31243 </span> 0x11/imm32/alloc-id:fake -<span id="L31244" class="LineNr">31244 </span> <a href='mu.subx.html#L34786'>_string_81_subop_or</a>/imm32/subx-name -<span id="L31245" class="LineNr">31245 </span> 3/imm32/rm32-is-first-output -<span id="L31246" class="LineNr">31246 </span> 0/imm32/no-r32 -<span id="L31247" class="LineNr">31247 </span> 1/imm32/imm32-is-first-inout -<span id="L31248" class="LineNr">31248 </span> 0/imm32/no-imm8 -<span id="L31249" class="LineNr">31249 </span> 0/imm32/no-disp32 -<span id="L31250" class="LineNr">31250 </span> 0/imm32/no-xm32 -<span id="L31251" class="LineNr">31251 </span> 0/imm32/no-x32 +<span id="L31244" class="LineNr">31244 </span> <a href='mu.subx.html#L31245'>_Primitive-subtract-lit-from-reg</a>/imm32/next +<span id="L31245" class="LineNr">31245 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31246" class="LineNr">31246 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31247" class="LineNr">31247 </span> <span class="subxComment"># var1/reg <- subtract lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> +<span id="L31248" class="LineNr">31248 </span> 0x11/imm32/alloc-id:fake +<span id="L31249" class="LineNr">31249 </span> <a href='mu.subx.html#L34587'>_string-subtract</a>/imm32/name +<span id="L31250" class="LineNr">31250 </span> 0x11/imm32/alloc-id:fake +<span id="L31251" class="LineNr">31251 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts <span id="L31252" class="LineNr">31252 </span> 0x11/imm32/alloc-id:fake -<span id="L31253" class="LineNr">31253 </span> <a href='mu.subx.html#L31254'>_Primitive-or-lit-with-mem</a>/imm32/next -<span id="L31254" class="LineNr">31254 </span><span class="subxMinorFunction">_Primitive-or-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31255" class="LineNr">31255 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31256" class="LineNr">31256 </span> <span class="subxComment"># or-with var1, lit => 81 1/subop/or var1/rm32 lit/imm32</span> -<span id="L31257" class="LineNr">31257 </span> 0x11/imm32/alloc-id:fake -<span id="L31258" class="LineNr">31258 </span> <a href='mu.subx.html#L34329'>_string-or-with</a>/imm32/name -<span id="L31259" class="LineNr">31259 </span> 0x11/imm32/alloc-id:fake -<span id="L31260" class="LineNr">31260 </span> <span class="SpecialChar"><a href='mu.subx.html#L34996'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31261" class="LineNr">31261 </span> 0/imm32/no-outputs -<span id="L31262" class="LineNr">31262 </span> 0/imm32/no-outputs +<span id="L31253" class="LineNr">31253 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31254" class="LineNr">31254 </span> 0x11/imm32/alloc-id:fake +<span id="L31255" class="LineNr">31255 </span> <a href='mu.subx.html#L35049'>_string_81_subop_subtract</a>/imm32/subx-name +<span id="L31256" class="LineNr">31256 </span> 3/imm32/rm32-is-first-output +<span id="L31257" class="LineNr">31257 </span> 0/imm32/no-r32 +<span id="L31258" class="LineNr">31258 </span> 1/imm32/imm32-is-first-inout +<span id="L31259" class="LineNr">31259 </span> 0/imm32/no-imm8 +<span id="L31260" class="LineNr">31260 </span> 0/imm32/no-disp32 +<span id="L31261" class="LineNr">31261 </span> 0/imm32/no-xm32 +<span id="L31262" class="LineNr">31262 </span> 0/imm32/no-x32 <span id="L31263" class="LineNr">31263 </span> 0x11/imm32/alloc-id:fake -<span id="L31264" class="LineNr">31264 </span> <a href='mu.subx.html#L34786'>_string_81_subop_or</a>/imm32/subx-name -<span id="L31265" class="LineNr">31265 </span> 1/imm32/rm32-is-first-inout -<span id="L31266" class="LineNr">31266 </span> 0/imm32/no-r32 -<span id="L31267" class="LineNr">31267 </span> 2/imm32/imm32-is-second-inout -<span id="L31268" class="LineNr">31268 </span> 0/imm32/no-imm8 -<span id="L31269" class="LineNr">31269 </span> 0/imm32/no-disp32 -<span id="L31270" class="LineNr">31270 </span> 0/imm32/no-xm32 -<span id="L31271" class="LineNr">31271 </span> 0/imm32/no-x32 -<span id="L31272" class="LineNr">31272 </span> 0x11/imm32/alloc-id:fake -<span id="L31273" class="LineNr">31273 </span> <a href='mu.subx.html#L31275'>_Primitive-not-reg</a>/imm32/next -<span id="L31274" class="LineNr">31274 </span><span class="subxH1Comment"># - not</span> -<span id="L31275" class="LineNr">31275 </span><span class="subxMinorFunction">_Primitive-not-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31276" class="LineNr">31276 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31277" class="LineNr">31277 </span> <span class="subxComment"># var1/reg <- not => f7 2/subop/not var1/rm32</span> -<span id="L31278" class="LineNr">31278 </span> 0x11/imm32/alloc-id:fake -<span id="L31279" class="LineNr">31279 </span> <a href='mu.subx.html#L34319'>_string-not</a>/imm32/name -<span id="L31280" class="LineNr">31280 </span> 0/imm32/no-inouts -<span id="L31281" class="LineNr">31281 </span> 0/imm32/no-inouts -<span id="L31282" class="LineNr">31282 </span> 0x11/imm32/alloc-id:fake -<span id="L31283" class="LineNr">31283 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31284" class="LineNr">31284 </span> 0x11/imm32/alloc-id:fake -<span id="L31285" class="LineNr">31285 </span> <a href='mu.subx.html#L34891'>_string_f7_subop_not</a>/imm32/subx-name -<span id="L31286" class="LineNr">31286 </span> 3/imm32/rm32-is-first-output -<span id="L31287" class="LineNr">31287 </span> 0/imm32/no-r32 -<span id="L31288" class="LineNr">31288 </span> 0/imm32/no-imm32 -<span id="L31289" class="LineNr">31289 </span> 0/imm32/no-imm8 -<span id="L31290" class="LineNr">31290 </span> 0/imm32/no-disp32 -<span id="L31291" class="LineNr">31291 </span> 0/imm32/no-xm32 -<span id="L31292" class="LineNr">31292 </span> 0/imm32/no-x32 +<span id="L31264" class="LineNr">31264 </span> <a href='mu.subx.html#L31265'>_Primitive-subtract-lit-from-mem</a>/imm32/next +<span id="L31265" class="LineNr">31265 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31266" class="LineNr">31266 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31267" class="LineNr">31267 </span> <span class="subxComment"># subtract-from var1, lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> +<span id="L31268" class="LineNr">31268 </span> 0x11/imm32/alloc-id:fake +<span id="L31269" class="LineNr">31269 </span> <a href='mu.subx.html#L34592'>_string-subtract-from</a>/imm32/name +<span id="L31270" class="LineNr">31270 </span> 0x11/imm32/alloc-id:fake +<span id="L31271" class="LineNr">31271 </span> <span class="SpecialChar"><a href='mu.subx.html#L35249'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31272" class="LineNr">31272 </span> 0/imm32/no-outputs +<span id="L31273" class="LineNr">31273 </span> 0/imm32/no-outputs +<span id="L31274" class="LineNr">31274 </span> 0x11/imm32/alloc-id:fake +<span id="L31275" class="LineNr">31275 </span> <a href='mu.subx.html#L35049'>_string_81_subop_subtract</a>/imm32/subx-name +<span id="L31276" class="LineNr">31276 </span> 1/imm32/rm32-is-first-inout +<span id="L31277" class="LineNr">31277 </span> 0/imm32/no-r32 +<span id="L31278" class="LineNr">31278 </span> 2/imm32/imm32-is-second-inout +<span id="L31279" class="LineNr">31279 </span> 0/imm32/no-imm8 +<span id="L31280" class="LineNr">31280 </span> 0/imm32/no-disp32 +<span id="L31281" class="LineNr">31281 </span> 0/imm32/no-xm32 +<span id="L31282" class="LineNr">31282 </span> 0/imm32/no-x32 +<span id="L31283" class="LineNr">31283 </span> 0x11/imm32/alloc-id:fake +<span id="L31284" class="LineNr">31284 </span> <a href='mu.subx.html#L31286'>_Primitive-and-with-eax</a>/imm32/next +<span id="L31285" class="LineNr">31285 </span><span class="subxH1Comment"># - and</span> +<span id="L31286" class="LineNr">31286 </span><span class="subxMinorFunction">_Primitive-and-with-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31287" class="LineNr">31287 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31288" class="LineNr">31288 </span> <span class="subxComment"># var/eax <- and lit => 25/and-with-eax lit/imm32</span> +<span id="L31289" class="LineNr">31289 </span> 0x11/imm32/alloc-id:fake +<span id="L31290" class="LineNr">31290 </span> <a href='mu.subx.html#L34282'>_string-and</a>/imm32/name +<span id="L31291" class="LineNr">31291 </span> 0x11/imm32/alloc-id:fake +<span id="L31292" class="LineNr">31292 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts <span id="L31293" class="LineNr">31293 </span> 0x11/imm32/alloc-id:fake -<span id="L31294" class="LineNr">31294 </span> <a href='mu.subx.html#L31295'>_Primitive-not-mem</a>/imm32/next -<span id="L31295" class="LineNr">31295 </span><span class="subxMinorFunction">_Primitive-not-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31296" class="LineNr">31296 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31297" class="LineNr">31297 </span> <span class="subxComment"># not var1 => f7 2/subop/not var1/rm32</span> -<span id="L31298" class="LineNr">31298 </span> 0x11/imm32/alloc-id:fake -<span id="L31299" class="LineNr">31299 </span> <a href='mu.subx.html#L34319'>_string-not</a>/imm32/name -<span id="L31300" class="LineNr">31300 </span> 0x11/imm32/alloc-id:fake -<span id="L31301" class="LineNr">31301 </span> <span class="SpecialChar"><a href='mu.subx.html#L34922'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31302" class="LineNr">31302 </span> 0/imm32/no-outputs -<span id="L31303" class="LineNr">31303 </span> 0/imm32/no-outputs +<span id="L31294" class="LineNr">31294 </span> <span class="SpecialChar"><a href='mu.subx.html#L35344'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L31295" class="LineNr">31295 </span> 0x11/imm32/alloc-id:fake +<span id="L31296" class="LineNr">31296 </span> <a href='mu.subx.html#L34924'>_string_25_and_with_eax</a>/imm32/subx-name +<span id="L31297" class="LineNr">31297 </span> 0/imm32/no-rm32 +<span id="L31298" class="LineNr">31298 </span> 0/imm32/no-r32 +<span id="L31299" class="LineNr">31299 </span> 1/imm32/imm32-is-first-inout +<span id="L31300" class="LineNr">31300 </span> 0/imm32/no-imm8 +<span id="L31301" class="LineNr">31301 </span> 0/imm32/no-disp32 +<span id="L31302" class="LineNr">31302 </span> 0/imm32/no-xm32 +<span id="L31303" class="LineNr">31303 </span> 0/imm32/no-x32 <span id="L31304" class="LineNr">31304 </span> 0x11/imm32/alloc-id:fake -<span id="L31305" class="LineNr">31305 </span> <a href='mu.subx.html#L34891'>_string_f7_subop_not</a>/imm32/subx-name -<span id="L31306" class="LineNr">31306 </span> 1/imm32/rm32-is-first-inout -<span id="L31307" class="LineNr">31307 </span> 0/imm32/no-r32 -<span id="L31308" class="LineNr">31308 </span> 0/imm32/no-imm32 -<span id="L31309" class="LineNr">31309 </span> 0/imm32/no-imm8 -<span id="L31310" class="LineNr">31310 </span> 0/imm32/no-disp32 -<span id="L31311" class="LineNr">31311 </span> 0/imm32/no-xm32 -<span id="L31312" class="LineNr">31312 </span> 0/imm32/no-x32 +<span id="L31305" class="LineNr">31305 </span> <a href='mu.subx.html#L31306'>_Primitive-and-reg-with-reg</a>/imm32/next +<span id="L31306" class="LineNr">31306 </span><span class="subxMinorFunction">_Primitive-and-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31307" class="LineNr">31307 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31308" class="LineNr">31308 </span> <span class="subxComment"># var1/reg <- and var2/reg => 21/and-with var1/rm32 var2/r32</span> +<span id="L31309" class="LineNr">31309 </span> 0x11/imm32/alloc-id:fake +<span id="L31310" class="LineNr">31310 </span> <a href='mu.subx.html#L34282'>_string-and</a>/imm32/name +<span id="L31311" class="LineNr">31311 </span> 0x11/imm32/alloc-id:fake +<span id="L31312" class="LineNr">31312 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/inouts <span id="L31313" class="LineNr">31313 </span> 0x11/imm32/alloc-id:fake -<span id="L31314" class="LineNr">31314 </span> <a href='mu.subx.html#L31316'>_Primitive-xor-with-eax</a>/imm32/next -<span id="L31315" class="LineNr">31315 </span><span class="subxH1Comment"># - xor</span> -<span id="L31316" class="LineNr">31316 </span><span class="subxMinorFunction">_Primitive-xor-with-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31317" class="LineNr">31317 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31318" class="LineNr">31318 </span> <span class="subxComment"># var/eax <- xor lit => 35/xor-with-eax lit/imm32</span> -<span id="L31319" class="LineNr">31319 </span> 0x11/imm32/alloc-id:fake -<span id="L31320" class="LineNr">31320 </span> <a href='mu.subx.html#L34344'>_string-xor</a>/imm32/name -<span id="L31321" class="LineNr">31321 </span> 0x11/imm32/alloc-id:fake -<span id="L31322" class="LineNr">31322 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31323" class="LineNr">31323 </span> 0x11/imm32/alloc-id:fake -<span id="L31324" class="LineNr">31324 </span> <span class="SpecialChar"><a href='mu.subx.html#L35091'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L31325" class="LineNr">31325 </span> 0x11/imm32/alloc-id:fake -<span id="L31326" class="LineNr">31326 </span> <a href='mu.subx.html#L34701'>_string_35_xor_with_eax</a>/imm32/subx-name -<span id="L31327" class="LineNr">31327 </span> 0/imm32/no-rm32 -<span id="L31328" class="LineNr">31328 </span> 0/imm32/no-r32 -<span id="L31329" class="LineNr">31329 </span> 1/imm32/imm32-is-first-inout -<span id="L31330" class="LineNr">31330 </span> 0/imm32/no-imm8 -<span id="L31331" class="LineNr">31331 </span> 0/imm32/no-disp32 -<span id="L31332" class="LineNr">31332 </span> 0/imm32/no-xm32 -<span id="L31333" class="LineNr">31333 </span> 0/imm32/no-x32 -<span id="L31334" class="LineNr">31334 </span> 0x11/imm32/alloc-id:fake -<span id="L31335" class="LineNr">31335 </span> <a href='mu.subx.html#L31336'>_Primitive-xor-reg-with-reg</a>/imm32/next -<span id="L31336" class="LineNr">31336 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31337" class="LineNr">31337 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31338" class="LineNr">31338 </span> <span class="subxComment"># var1/reg <- xor var2/reg => 31/xor-with var1/rm32 var2/r32</span> -<span id="L31339" class="LineNr">31339 </span> 0x11/imm32/alloc-id:fake -<span id="L31340" class="LineNr">31340 </span> <a href='mu.subx.html#L34344'>_string-xor</a>/imm32/name -<span id="L31341" class="LineNr">31341 </span> 0x11/imm32/alloc-id:fake -<span id="L31342" class="LineNr">31342 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L31343" class="LineNr">31343 </span> 0x11/imm32/alloc-id:fake -<span id="L31344" class="LineNr">31344 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31345" class="LineNr">31345 </span> 0x11/imm32/alloc-id:fake -<span id="L31346" class="LineNr">31346 </span> <a href='mu.subx.html#L34691'>_string_31_xor_with</a>/imm32/subx-name -<span id="L31347" class="LineNr">31347 </span> 3/imm32/rm32-is-first-output -<span id="L31348" class="LineNr">31348 </span> 1/imm32/r32-is-first-inout -<span id="L31349" class="LineNr">31349 </span> 0/imm32/no-imm32 -<span id="L31350" class="LineNr">31350 </span> 0/imm32/no-imm8 -<span id="L31351" class="LineNr">31351 </span> 0/imm32/no-disp32 -<span id="L31352" class="LineNr">31352 </span> 0/imm32/no-xm32 -<span id="L31353" class="LineNr">31353 </span> 0/imm32/no-x32 -<span id="L31354" class="LineNr">31354 </span> 0x11/imm32/alloc-id:fake -<span id="L31355" class="LineNr">31355 </span> <a href='mu.subx.html#L31356'>_Primitive-xor-reg-with-mem</a>/imm32/next -<span id="L31356" class="LineNr">31356 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31357" class="LineNr">31357 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31358" class="LineNr">31358 </span> <span class="subxComment"># xor-with var1 var2/reg => 31/xor-with var1 var2/r32</span> -<span id="L31359" class="LineNr">31359 </span> 0x11/imm32/alloc-id:fake -<span id="L31360" class="LineNr">31360 </span> <a href='mu.subx.html#L34349'>_string-xor-with</a>/imm32/name -<span id="L31361" class="LineNr">31361 </span> 0x11/imm32/alloc-id:fake -<span id="L31362" class="LineNr">31362 </span> <span class="SpecialChar"><a href='mu.subx.html#L34960'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L31363" class="LineNr">31363 </span> 0/imm32/no-outputs -<span id="L31364" class="LineNr">31364 </span> 0/imm32/no-outputs -<span id="L31365" class="LineNr">31365 </span> 0x11/imm32/alloc-id:fake -<span id="L31366" class="LineNr">31366 </span> <a href='mu.subx.html#L34691'>_string_31_xor_with</a>/imm32/subx-name -<span id="L31367" class="LineNr">31367 </span> 1/imm32/rm32-is-first-inout -<span id="L31368" class="LineNr">31368 </span> 2/imm32/r32-is-second-inout -<span id="L31369" class="LineNr">31369 </span> 0/imm32/no-imm32 -<span id="L31370" class="LineNr">31370 </span> 0/imm32/no-imm8 -<span id="L31371" class="LineNr">31371 </span> 0/imm32/no-disp32 -<span id="L31372" class="LineNr">31372 </span> 0/imm32/no-xm32 -<span id="L31373" class="LineNr">31373 </span> 0/imm32/no-x32 -<span id="L31374" class="LineNr">31374 </span> 0x11/imm32/alloc-id:fake -<span id="L31375" class="LineNr">31375 </span> <a href='mu.subx.html#L31376'>_Primitive-xor-mem-with-reg</a>/imm32/next -<span id="L31376" class="LineNr">31376 </span><span class="subxMinorFunction">_Primitive-xor-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31377" class="LineNr">31377 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31378" class="LineNr">31378 </span> <span class="subxComment"># var1/reg <- xor var2 => 33/xor var2/rm32 var1/r32</span> -<span id="L31379" class="LineNr">31379 </span> 0x11/imm32/alloc-id:fake -<span id="L31380" class="LineNr">31380 </span> <a href='mu.subx.html#L34344'>_string-xor</a>/imm32/name -<span id="L31381" class="LineNr">31381 </span> 0x11/imm32/alloc-id:fake -<span id="L31382" class="LineNr">31382 </span> <span class="SpecialChar"><a href='mu.subx.html#L34922'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31383" class="LineNr">31383 </span> 0x11/imm32/alloc-id:fake -<span id="L31384" class="LineNr">31384 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31385" class="LineNr">31385 </span> 0x11/imm32/alloc-id:fake -<span id="L31386" class="LineNr">31386 </span> <a href='mu.subx.html#L34696'>_string_33_xor</a>/imm32/subx-name -<span id="L31387" class="LineNr">31387 </span> 1/imm32/rm32-is-first-inout -<span id="L31388" class="LineNr">31388 </span> 3/imm32/r32-is-first-output -<span id="L31389" class="LineNr">31389 </span> 0/imm32/no-imm32 -<span id="L31390" class="LineNr">31390 </span> 0/imm32/no-imm8 -<span id="L31391" class="LineNr">31391 </span> 0/imm32/no-disp32 -<span id="L31392" class="LineNr">31392 </span> 0/imm32/no-xm32 -<span id="L31393" class="LineNr">31393 </span> 0/imm32/no-x32 -<span id="L31394" class="LineNr">31394 </span> 0x11/imm32/alloc-id:fake -<span id="L31395" class="LineNr">31395 </span> <a href='mu.subx.html#L31396'>_Primitive-xor-lit-with-reg</a>/imm32/next -<span id="L31396" class="LineNr">31396 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31397" class="LineNr">31397 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31398" class="LineNr">31398 </span> <span class="subxComment"># var1/reg <- xor lit => 81 6/subop/xor var1/rm32 lit/imm32</span> -<span id="L31399" class="LineNr">31399 </span> 0x11/imm32/alloc-id:fake -<span id="L31400" class="LineNr">31400 </span> <a href='mu.subx.html#L34344'>_string-xor</a>/imm32/name -<span id="L31401" class="LineNr">31401 </span> 0x11/imm32/alloc-id:fake -<span id="L31402" class="LineNr">31402 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31403" class="LineNr">31403 </span> 0x11/imm32/alloc-id:fake -<span id="L31404" class="LineNr">31404 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31405" class="LineNr">31405 </span> 0x11/imm32/alloc-id:fake -<span id="L31406" class="LineNr">31406 </span> <a href='mu.subx.html#L34801'>_string_81_subop_xor</a>/imm32/subx-name -<span id="L31407" class="LineNr">31407 </span> 3/imm32/rm32-is-first-output -<span id="L31408" class="LineNr">31408 </span> 0/imm32/no-r32 -<span id="L31409" class="LineNr">31409 </span> 1/imm32/imm32-is-first-inout -<span id="L31410" class="LineNr">31410 </span> 0/imm32/no-imm8 -<span id="L31411" class="LineNr">31411 </span> 0/imm32/no-disp32 -<span id="L31412" class="LineNr">31412 </span> 0/imm32/no-xm32 -<span id="L31413" class="LineNr">31413 </span> 0/imm32/no-x32 +<span id="L31314" class="LineNr">31314 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31315" class="LineNr">31315 </span> 0x11/imm32/alloc-id:fake +<span id="L31316" class="LineNr">31316 </span> <a href='mu.subx.html#L34914'>_string_21_and_with</a>/imm32/subx-name +<span id="L31317" class="LineNr">31317 </span> 3/imm32/rm32-is-first-output +<span id="L31318" class="LineNr">31318 </span> 1/imm32/r32-is-first-inout +<span id="L31319" class="LineNr">31319 </span> 0/imm32/no-imm32 +<span id="L31320" class="LineNr">31320 </span> 0/imm32/no-imm8 +<span id="L31321" class="LineNr">31321 </span> 0/imm32/no-disp32 +<span id="L31322" class="LineNr">31322 </span> 0/imm32/no-xm32 +<span id="L31323" class="LineNr">31323 </span> 0/imm32/no-x32 +<span id="L31324" class="LineNr">31324 </span> 0x11/imm32/alloc-id:fake +<span id="L31325" class="LineNr">31325 </span> <a href='mu.subx.html#L31326'>_Primitive-and-reg-with-mem</a>/imm32/next +<span id="L31326" class="LineNr">31326 </span><span class="subxMinorFunction">_Primitive-and-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31327" class="LineNr">31327 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31328" class="LineNr">31328 </span> <span class="subxComment"># and-with var1 var2/reg => 21/and-with var1 var2/r32</span> +<span id="L31329" class="LineNr">31329 </span> 0x11/imm32/alloc-id:fake +<span id="L31330" class="LineNr">31330 </span> <a href='mu.subx.html#L34287'>_string-and-with</a>/imm32/name +<span id="L31331" class="LineNr">31331 </span> 0x11/imm32/alloc-id:fake +<span id="L31332" class="LineNr">31332 </span> <span class="SpecialChar"><a href='mu.subx.html#L35213'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L31333" class="LineNr">31333 </span> 0/imm32/no-outputs +<span id="L31334" class="LineNr">31334 </span> 0/imm32/no-outputs +<span id="L31335" class="LineNr">31335 </span> 0x11/imm32/alloc-id:fake +<span id="L31336" class="LineNr">31336 </span> <a href='mu.subx.html#L34914'>_string_21_and_with</a>/imm32/subx-name +<span id="L31337" class="LineNr">31337 </span> 1/imm32/rm32-is-first-inout +<span id="L31338" class="LineNr">31338 </span> 2/imm32/r32-is-second-inout +<span id="L31339" class="LineNr">31339 </span> 0/imm32/no-imm32 +<span id="L31340" class="LineNr">31340 </span> 0/imm32/no-imm8 +<span id="L31341" class="LineNr">31341 </span> 0/imm32/no-disp32 +<span id="L31342" class="LineNr">31342 </span> 0/imm32/no-xm32 +<span id="L31343" class="LineNr">31343 </span> 0/imm32/no-x32 +<span id="L31344" class="LineNr">31344 </span> 0x11/imm32/alloc-id:fake +<span id="L31345" class="LineNr">31345 </span> <a href='mu.subx.html#L31346'>_Primitive-and-mem-with-reg</a>/imm32/next +<span id="L31346" class="LineNr">31346 </span><span class="subxMinorFunction">_Primitive-and-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31347" class="LineNr">31347 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31348" class="LineNr">31348 </span> <span class="subxComment"># var1/reg <- and var2 => 23/and var2/rm32 var1/r32</span> +<span id="L31349" class="LineNr">31349 </span> 0x11/imm32/alloc-id:fake +<span id="L31350" class="LineNr">31350 </span> <a href='mu.subx.html#L34282'>_string-and</a>/imm32/name +<span id="L31351" class="LineNr">31351 </span> 0x11/imm32/alloc-id:fake +<span id="L31352" class="LineNr">31352 </span> <span class="SpecialChar"><a href='mu.subx.html#L35175'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31353" class="LineNr">31353 </span> 0x11/imm32/alloc-id:fake +<span id="L31354" class="LineNr">31354 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31355" class="LineNr">31355 </span> 0x11/imm32/alloc-id:fake +<span id="L31356" class="LineNr">31356 </span> <a href='mu.subx.html#L34919'>_string_23_and</a>/imm32/subx-name +<span id="L31357" class="LineNr">31357 </span> 1/imm32/rm32-is-first-inout +<span id="L31358" class="LineNr">31358 </span> 3/imm32/r32-is-first-output +<span id="L31359" class="LineNr">31359 </span> 0/imm32/no-imm32 +<span id="L31360" class="LineNr">31360 </span> 0/imm32/no-imm8 +<span id="L31361" class="LineNr">31361 </span> 0/imm32/no-disp32 +<span id="L31362" class="LineNr">31362 </span> 0/imm32/no-xm32 +<span id="L31363" class="LineNr">31363 </span> 0/imm32/no-x32 +<span id="L31364" class="LineNr">31364 </span> 0x11/imm32/alloc-id:fake +<span id="L31365" class="LineNr">31365 </span> <a href='mu.subx.html#L31366'>_Primitive-and-lit-with-reg</a>/imm32/next +<span id="L31366" class="LineNr">31366 </span><span class="subxMinorFunction">_Primitive-and-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31367" class="LineNr">31367 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31368" class="LineNr">31368 </span> <span class="subxComment"># var1/reg <- and lit => 81 4/subop/and var1/rm32 lit/imm32</span> +<span id="L31369" class="LineNr">31369 </span> 0x11/imm32/alloc-id:fake +<span id="L31370" class="LineNr">31370 </span> <a href='mu.subx.html#L34282'>_string-and</a>/imm32/name +<span id="L31371" class="LineNr">31371 </span> 0x11/imm32/alloc-id:fake +<span id="L31372" class="LineNr">31372 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L31373" class="LineNr">31373 </span> 0x11/imm32/alloc-id:fake +<span id="L31374" class="LineNr">31374 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31375" class="LineNr">31375 </span> 0x11/imm32/alloc-id:fake +<span id="L31376" class="LineNr">31376 </span> <a href='mu.subx.html#L35044'>_string_81_subop_and</a>/imm32/subx-name +<span id="L31377" class="LineNr">31377 </span> 3/imm32/rm32-is-first-output +<span id="L31378" class="LineNr">31378 </span> 0/imm32/no-r32 +<span id="L31379" class="LineNr">31379 </span> 1/imm32/imm32-is-first-inout +<span id="L31380" class="LineNr">31380 </span> 0/imm32/no-imm8 +<span id="L31381" class="LineNr">31381 </span> 0/imm32/no-disp32 +<span id="L31382" class="LineNr">31382 </span> 0/imm32/no-xm32 +<span id="L31383" class="LineNr">31383 </span> 0/imm32/no-x32 +<span id="L31384" class="LineNr">31384 </span> 0x11/imm32/alloc-id:fake +<span id="L31385" class="LineNr">31385 </span> <a href='mu.subx.html#L31386'>_Primitive-and-lit-with-mem</a>/imm32/next +<span id="L31386" class="LineNr">31386 </span><span class="subxMinorFunction">_Primitive-and-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31387" class="LineNr">31387 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31388" class="LineNr">31388 </span> <span class="subxComment"># and-with var1, lit => 81 4/subop/and var1/rm32 lit/imm32</span> +<span id="L31389" class="LineNr">31389 </span> 0x11/imm32/alloc-id:fake +<span id="L31390" class="LineNr">31390 </span> <a href='mu.subx.html#L34287'>_string-and-with</a>/imm32/name +<span id="L31391" class="LineNr">31391 </span> 0x11/imm32/alloc-id:fake +<span id="L31392" class="LineNr">31392 </span> <span class="SpecialChar"><a href='mu.subx.html#L35249'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31393" class="LineNr">31393 </span> 0/imm32/no-outputs +<span id="L31394" class="LineNr">31394 </span> 0/imm32/no-outputs +<span id="L31395" class="LineNr">31395 </span> 0x11/imm32/alloc-id:fake +<span id="L31396" class="LineNr">31396 </span> <a href='mu.subx.html#L35044'>_string_81_subop_and</a>/imm32/subx-name +<span id="L31397" class="LineNr">31397 </span> 1/imm32/rm32-is-first-inout +<span id="L31398" class="LineNr">31398 </span> 0/imm32/no-r32 +<span id="L31399" class="LineNr">31399 </span> 2/imm32/imm32-is-second-inout +<span id="L31400" class="LineNr">31400 </span> 0/imm32/no-imm8 +<span id="L31401" class="LineNr">31401 </span> 0/imm32/no-disp32 +<span id="L31402" class="LineNr">31402 </span> 0/imm32/no-xm32 +<span id="L31403" class="LineNr">31403 </span> 0/imm32/no-x32 +<span id="L31404" class="LineNr">31404 </span> 0x11/imm32/alloc-id:fake +<span id="L31405" class="LineNr">31405 </span> <a href='mu.subx.html#L31407'>_Primitive-or-with-eax</a>/imm32/next +<span id="L31406" class="LineNr">31406 </span><span class="subxH1Comment"># - or</span> +<span id="L31407" class="LineNr">31407 </span><span class="subxMinorFunction">_Primitive-or-with-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31408" class="LineNr">31408 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31409" class="LineNr">31409 </span> <span class="subxComment"># var/eax <- or lit => 0d/or-with-eax lit/imm32</span> +<span id="L31410" class="LineNr">31410 </span> 0x11/imm32/alloc-id:fake +<span id="L31411" class="LineNr">31411 </span> <a href='mu.subx.html#L34577'>_string-or</a>/imm32/name +<span id="L31412" class="LineNr">31412 </span> 0x11/imm32/alloc-id:fake +<span id="L31413" class="LineNr">31413 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts <span id="L31414" class="LineNr">31414 </span> 0x11/imm32/alloc-id:fake -<span id="L31415" class="LineNr">31415 </span> <a href='mu.subx.html#L31416'>_Primitive-xor-lit-with-mem</a>/imm32/next -<span id="L31416" class="LineNr">31416 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31417" class="LineNr">31417 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31418" class="LineNr">31418 </span> <span class="subxComment"># xor-with var1, lit => 81 6/subop/xor var1/rm32 lit/imm32</span> -<span id="L31419" class="LineNr">31419 </span> 0x11/imm32/alloc-id:fake -<span id="L31420" class="LineNr">31420 </span> <a href='mu.subx.html#L34349'>_string-xor-with</a>/imm32/name -<span id="L31421" class="LineNr">31421 </span> 0x11/imm32/alloc-id:fake -<span id="L31422" class="LineNr">31422 </span> <span class="SpecialChar"><a href='mu.subx.html#L34996'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31423" class="LineNr">31423 </span> 0/imm32/no-outputs -<span id="L31424" class="LineNr">31424 </span> 0/imm32/no-outputs +<span id="L31415" class="LineNr">31415 </span> <span class="SpecialChar"><a href='mu.subx.html#L35344'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L31416" class="LineNr">31416 </span> 0x11/imm32/alloc-id:fake +<span id="L31417" class="LineNr">31417 </span> <a href='mu.subx.html#L34649'>_string_0d_or_with_eax</a>/imm32/subx-name +<span id="L31418" class="LineNr">31418 </span> 0/imm32/no-rm32 +<span id="L31419" class="LineNr">31419 </span> 0/imm32/no-r32 +<span id="L31420" class="LineNr">31420 </span> 1/imm32/imm32-is-first-inout +<span id="L31421" class="LineNr">31421 </span> 0/imm32/no-imm8 +<span id="L31422" class="LineNr">31422 </span> 0/imm32/no-disp32 +<span id="L31423" class="LineNr">31423 </span> 0/imm32/no-xm32 +<span id="L31424" class="LineNr">31424 </span> 0/imm32/no-x32 <span id="L31425" class="LineNr">31425 </span> 0x11/imm32/alloc-id:fake -<span id="L31426" class="LineNr">31426 </span> <a href='mu.subx.html#L34801'>_string_81_subop_xor</a>/imm32/subx-name -<span id="L31427" class="LineNr">31427 </span> 1/imm32/rm32-is-first-inout -<span id="L31428" class="LineNr">31428 </span> 0/imm32/no-r32 -<span id="L31429" class="LineNr">31429 </span> 2/imm32/imm32-is-second-inout -<span id="L31430" class="LineNr">31430 </span> 0/imm32/no-imm8 -<span id="L31431" class="LineNr">31431 </span> 0/imm32/no-disp32 -<span id="L31432" class="LineNr">31432 </span> 0/imm32/no-xm32 -<span id="L31433" class="LineNr">31433 </span> 0/imm32/no-x32 +<span id="L31426" class="LineNr">31426 </span> <a href='mu.subx.html#L31427'>_Primitive-or-reg-with-reg</a>/imm32/next +<span id="L31427" class="LineNr">31427 </span><span class="subxMinorFunction">_Primitive-or-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31428" class="LineNr">31428 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31429" class="LineNr">31429 </span> <span class="subxComment"># var1/reg <- or var2/reg => 09/or-with var1/rm32 var2/r32</span> +<span id="L31430" class="LineNr">31430 </span> 0x11/imm32/alloc-id:fake +<span id="L31431" class="LineNr">31431 </span> <a href='mu.subx.html#L34577'>_string-or</a>/imm32/name +<span id="L31432" class="LineNr">31432 </span> 0x11/imm32/alloc-id:fake +<span id="L31433" class="LineNr">31433 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/inouts <span id="L31434" class="LineNr">31434 </span> 0x11/imm32/alloc-id:fake -<span id="L31435" class="LineNr">31435 </span> <a href='mu.subx.html#L31436'>_Primitive-shift-reg-left-by-lit</a>/imm32/next -<span id="L31436" class="LineNr">31436 </span><span class="subxMinorFunction">_Primitive-shift-reg-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31437" class="LineNr">31437 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31438" class="LineNr">31438 </span> <span class="subxComment"># var1/reg <- shift-left lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> -<span id="L31439" class="LineNr">31439 </span> 0x11/imm32/alloc-id:fake -<span id="L31440" class="LineNr">31440 </span> <a href='mu.subx.html#L34354'>_string-shift-left</a>/imm32/name -<span id="L31441" class="LineNr">31441 </span> 0x11/imm32/alloc-id:fake -<span id="L31442" class="LineNr">31442 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31443" class="LineNr">31443 </span> 0x11/imm32/alloc-id:fake -<span id="L31444" class="LineNr">31444 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31435" class="LineNr">31435 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31436" class="LineNr">31436 </span> 0x11/imm32/alloc-id:fake +<span id="L31437" class="LineNr">31437 </span> <a href='mu.subx.html#L34639'>_string_09_or_with</a>/imm32/subx-name +<span id="L31438" class="LineNr">31438 </span> 3/imm32/rm32-is-first-output +<span id="L31439" class="LineNr">31439 </span> 1/imm32/r32-is-first-inout +<span id="L31440" class="LineNr">31440 </span> 0/imm32/no-imm32 +<span id="L31441" class="LineNr">31441 </span> 0/imm32/no-imm8 +<span id="L31442" class="LineNr">31442 </span> 0/imm32/no-disp32 +<span id="L31443" class="LineNr">31443 </span> 0/imm32/no-xm32 +<span id="L31444" class="LineNr">31444 </span> 0/imm32/no-x32 <span id="L31445" class="LineNr">31445 </span> 0x11/imm32/alloc-id:fake -<span id="L31446" class="LineNr">31446 </span> <a href='mu.subx.html#L34906'>_string_c1_subop_shift_left</a>/imm32/subx-name -<span id="L31447" class="LineNr">31447 </span> 3/imm32/rm32-is-first-output -<span id="L31448" class="LineNr">31448 </span> 0/imm32/no-r32 -<span id="L31449" class="LineNr">31449 </span> 0/imm32/no-imm32 -<span id="L31450" class="LineNr">31450 </span> 1/imm32/imm8-is-first-inout -<span id="L31451" class="LineNr">31451 </span> 0/imm32/no-disp32 -<span id="L31452" class="LineNr">31452 </span> 0/imm32/no-xm32 -<span id="L31453" class="LineNr">31453 </span> 0/imm32/no-x32 -<span id="L31454" class="LineNr">31454 </span> 0x11/imm32/alloc-id:fake -<span id="L31455" class="LineNr">31455 </span> <a href='mu.subx.html#L31456'>_Primitive-shift-reg-right-by-lit</a>/imm32/next -<span id="L31456" class="LineNr">31456 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31457" class="LineNr">31457 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31458" class="LineNr">31458 </span> <span class="subxComment"># var1/reg <- shift-right lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> -<span id="L31459" class="LineNr">31459 </span> 0x11/imm32/alloc-id:fake -<span id="L31460" class="LineNr">31460 </span> <a href='mu.subx.html#L34359'>_string-shift-right</a>/imm32/name -<span id="L31461" class="LineNr">31461 </span> 0x11/imm32/alloc-id:fake -<span id="L31462" class="LineNr">31462 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31463" class="LineNr">31463 </span> 0x11/imm32/alloc-id:fake -<span id="L31464" class="LineNr">31464 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31446" class="LineNr">31446 </span> <a href='mu.subx.html#L31447'>_Primitive-or-reg-with-mem</a>/imm32/next +<span id="L31447" class="LineNr">31447 </span><span class="subxMinorFunction">_Primitive-or-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31448" class="LineNr">31448 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31449" class="LineNr">31449 </span> <span class="subxComment"># or-with var1 var2/reg => 09/or-with var1 var2/r32</span> +<span id="L31450" class="LineNr">31450 </span> 0x11/imm32/alloc-id:fake +<span id="L31451" class="LineNr">31451 </span> <a href='mu.subx.html#L34582'>_string-or-with</a>/imm32/name +<span id="L31452" class="LineNr">31452 </span> 0x11/imm32/alloc-id:fake +<span id="L31453" class="LineNr">31453 </span> <span class="SpecialChar"><a href='mu.subx.html#L35213'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L31454" class="LineNr">31454 </span> 0/imm32/no-outputs +<span id="L31455" class="LineNr">31455 </span> 0/imm32/no-outputs +<span id="L31456" class="LineNr">31456 </span> 0x11/imm32/alloc-id:fake +<span id="L31457" class="LineNr">31457 </span> <a href='mu.subx.html#L34639'>_string_09_or_with</a>/imm32/subx-name +<span id="L31458" class="LineNr">31458 </span> 1/imm32/rm32-is-first-inout +<span id="L31459" class="LineNr">31459 </span> 2/imm32/r32-is-second-inout +<span id="L31460" class="LineNr">31460 </span> 0/imm32/no-imm32 +<span id="L31461" class="LineNr">31461 </span> 0/imm32/no-imm8 +<span id="L31462" class="LineNr">31462 </span> 0/imm32/no-disp32 +<span id="L31463" class="LineNr">31463 </span> 0/imm32/no-xm32 +<span id="L31464" class="LineNr">31464 </span> 0/imm32/no-x32 <span id="L31465" class="LineNr">31465 </span> 0x11/imm32/alloc-id:fake -<span id="L31466" class="LineNr">31466 </span> <a href='mu.subx.html#L34911'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name -<span id="L31467" class="LineNr">31467 </span> 3/imm32/rm32-is-first-output -<span id="L31468" class="LineNr">31468 </span> 0/imm32/no-r32 -<span id="L31469" class="LineNr">31469 </span> 0/imm32/no-imm32 -<span id="L31470" class="LineNr">31470 </span> 1/imm32/imm8-is-first-inout -<span id="L31471" class="LineNr">31471 </span> 0/imm32/no-disp32 -<span id="L31472" class="LineNr">31472 </span> 0/imm32/no-xm32 -<span id="L31473" class="LineNr">31473 </span> 0/imm32/no-x32 +<span id="L31466" class="LineNr">31466 </span> <a href='mu.subx.html#L31467'>_Primitive-or-mem-with-reg</a>/imm32/next +<span id="L31467" class="LineNr">31467 </span><span class="subxMinorFunction">_Primitive-or-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31468" class="LineNr">31468 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31469" class="LineNr">31469 </span> <span class="subxComment"># var1/reg <- or var2 => 0b/or var2/rm32 var1/r32</span> +<span id="L31470" class="LineNr">31470 </span> 0x11/imm32/alloc-id:fake +<span id="L31471" class="LineNr">31471 </span> <a href='mu.subx.html#L34577'>_string-or</a>/imm32/name +<span id="L31472" class="LineNr">31472 </span> 0x11/imm32/alloc-id:fake +<span id="L31473" class="LineNr">31473 </span> <span class="SpecialChar"><a href='mu.subx.html#L35175'>Single-int-var-in-mem</a></span>/imm32/inouts <span id="L31474" class="LineNr">31474 </span> 0x11/imm32/alloc-id:fake -<span id="L31475" class="LineNr">31475 </span> <a href='mu.subx.html#L31476'>_Primitive-shift-reg-right-signed-by-lit</a>/imm32/next -<span id="L31476" class="LineNr">31476 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31477" class="LineNr">31477 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31478" class="LineNr">31478 </span> <span class="subxComment"># var1/reg <- shift-right-signed lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> -<span id="L31479" class="LineNr">31479 </span> 0x11/imm32/alloc-id:fake -<span id="L31480" class="LineNr">31480 </span> <a href='mu.subx.html#L34364'>_string-shift-right-signed</a>/imm32/name -<span id="L31481" class="LineNr">31481 </span> 0x11/imm32/alloc-id:fake -<span id="L31482" class="LineNr">31482 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31483" class="LineNr">31483 </span> 0x11/imm32/alloc-id:fake -<span id="L31484" class="LineNr">31484 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31475" class="LineNr">31475 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31476" class="LineNr">31476 </span> 0x11/imm32/alloc-id:fake +<span id="L31477" class="LineNr">31477 </span> <a href='mu.subx.html#L34644'>_string_0b_or</a>/imm32/subx-name +<span id="L31478" class="LineNr">31478 </span> 1/imm32/rm32-is-first-inout +<span id="L31479" class="LineNr">31479 </span> 3/imm32/r32-is-first-output +<span id="L31480" class="LineNr">31480 </span> 0/imm32/no-imm32 +<span id="L31481" class="LineNr">31481 </span> 0/imm32/no-imm8 +<span id="L31482" class="LineNr">31482 </span> 0/imm32/no-disp32 +<span id="L31483" class="LineNr">31483 </span> 0/imm32/no-xm32 +<span id="L31484" class="LineNr">31484 </span> 0/imm32/no-x32 <span id="L31485" class="LineNr">31485 </span> 0x11/imm32/alloc-id:fake -<span id="L31486" class="LineNr">31486 </span> <a href='mu.subx.html#L34916'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name -<span id="L31487" class="LineNr">31487 </span> 3/imm32/rm32-is-first-output -<span id="L31488" class="LineNr">31488 </span> 0/imm32/no-r32 -<span id="L31489" class="LineNr">31489 </span> 0/imm32/no-imm32 -<span id="L31490" class="LineNr">31490 </span> 1/imm32/imm8-is-first-inout -<span id="L31491" class="LineNr">31491 </span> 0/imm32/no-disp32 -<span id="L31492" class="LineNr">31492 </span> 0/imm32/no-xm32 -<span id="L31493" class="LineNr">31493 </span> 0/imm32/no-x32 +<span id="L31486" class="LineNr">31486 </span> <a href='mu.subx.html#L31487'>_Primitive-or-lit-with-reg</a>/imm32/next +<span id="L31487" class="LineNr">31487 </span><span class="subxMinorFunction">_Primitive-or-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31488" class="LineNr">31488 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31489" class="LineNr">31489 </span> <span class="subxComment"># var1/reg <- or lit => 81 1/subop/or var1/rm32 lit/imm32</span> +<span id="L31490" class="LineNr">31490 </span> 0x11/imm32/alloc-id:fake +<span id="L31491" class="LineNr">31491 </span> <a href='mu.subx.html#L34577'>_string-or</a>/imm32/name +<span id="L31492" class="LineNr">31492 </span> 0x11/imm32/alloc-id:fake +<span id="L31493" class="LineNr">31493 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts <span id="L31494" class="LineNr">31494 </span> 0x11/imm32/alloc-id:fake -<span id="L31495" class="LineNr">31495 </span> <a href='mu.subx.html#L31496'>_Primitive-shift-mem-left-by-lit</a>/imm32/next -<span id="L31496" class="LineNr">31496 </span><span class="subxMinorFunction">_Primitive-shift-mem-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31497" class="LineNr">31497 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31498" class="LineNr">31498 </span> <span class="subxComment"># shift-left var1, lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> -<span id="L31499" class="LineNr">31499 </span> 0x11/imm32/alloc-id:fake -<span id="L31500" class="LineNr">31500 </span> <a href='mu.subx.html#L34354'>_string-shift-left</a>/imm32/name -<span id="L31501" class="LineNr">31501 </span> 0x11/imm32/alloc-id:fake -<span id="L31502" class="LineNr">31502 </span> <span class="SpecialChar"><a href='mu.subx.html#L34996'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31503" class="LineNr">31503 </span> 0/imm32/no-outputs -<span id="L31504" class="LineNr">31504 </span> 0/imm32/no-outputs +<span id="L31495" class="LineNr">31495 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31496" class="LineNr">31496 </span> 0x11/imm32/alloc-id:fake +<span id="L31497" class="LineNr">31497 </span> <a href='mu.subx.html#L35039'>_string_81_subop_or</a>/imm32/subx-name +<span id="L31498" class="LineNr">31498 </span> 3/imm32/rm32-is-first-output +<span id="L31499" class="LineNr">31499 </span> 0/imm32/no-r32 +<span id="L31500" class="LineNr">31500 </span> 1/imm32/imm32-is-first-inout +<span id="L31501" class="LineNr">31501 </span> 0/imm32/no-imm8 +<span id="L31502" class="LineNr">31502 </span> 0/imm32/no-disp32 +<span id="L31503" class="LineNr">31503 </span> 0/imm32/no-xm32 +<span id="L31504" class="LineNr">31504 </span> 0/imm32/no-x32 <span id="L31505" class="LineNr">31505 </span> 0x11/imm32/alloc-id:fake -<span id="L31506" class="LineNr">31506 </span> <a href='mu.subx.html#L34906'>_string_c1_subop_shift_left</a>/imm32/subx-name -<span id="L31507" class="LineNr">31507 </span> 1/imm32/rm32-is-first-inout -<span id="L31508" class="LineNr">31508 </span> 0/imm32/no-r32 -<span id="L31509" class="LineNr">31509 </span> 0/imm32/no-imm32 -<span id="L31510" class="LineNr">31510 </span> 2/imm32/imm8-is-second-inout -<span id="L31511" class="LineNr">31511 </span> 0/imm32/no-disp32 -<span id="L31512" class="LineNr">31512 </span> 0/imm32/no-xm32 -<span id="L31513" class="LineNr">31513 </span> 0/imm32/no-x32 -<span id="L31514" class="LineNr">31514 </span> 0x11/imm32/alloc-id:fake -<span id="L31515" class="LineNr">31515 </span> <a href='mu.subx.html#L31516'>_Primitive-shift-mem-right-by-lit</a>/imm32/next -<span id="L31516" class="LineNr">31516 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31517" class="LineNr">31517 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31518" class="LineNr">31518 </span> <span class="subxComment"># shift-right var1, lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> -<span id="L31519" class="LineNr">31519 </span> 0x11/imm32/alloc-id:fake -<span id="L31520" class="LineNr">31520 </span> <a href='mu.subx.html#L34359'>_string-shift-right</a>/imm32/name -<span id="L31521" class="LineNr">31521 </span> 0x11/imm32/alloc-id:fake -<span id="L31522" class="LineNr">31522 </span> <span class="SpecialChar"><a href='mu.subx.html#L34996'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31523" class="LineNr">31523 </span> 0/imm32/no-outputs -<span id="L31524" class="LineNr">31524 </span> 0/imm32/no-outputs +<span id="L31506" class="LineNr">31506 </span> <a href='mu.subx.html#L31507'>_Primitive-or-lit-with-mem</a>/imm32/next +<span id="L31507" class="LineNr">31507 </span><span class="subxMinorFunction">_Primitive-or-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31508" class="LineNr">31508 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31509" class="LineNr">31509 </span> <span class="subxComment"># or-with var1, lit => 81 1/subop/or var1/rm32 lit/imm32</span> +<span id="L31510" class="LineNr">31510 </span> 0x11/imm32/alloc-id:fake +<span id="L31511" class="LineNr">31511 </span> <a href='mu.subx.html#L34582'>_string-or-with</a>/imm32/name +<span id="L31512" class="LineNr">31512 </span> 0x11/imm32/alloc-id:fake +<span id="L31513" class="LineNr">31513 </span> <span class="SpecialChar"><a href='mu.subx.html#L35249'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31514" class="LineNr">31514 </span> 0/imm32/no-outputs +<span id="L31515" class="LineNr">31515 </span> 0/imm32/no-outputs +<span id="L31516" class="LineNr">31516 </span> 0x11/imm32/alloc-id:fake +<span id="L31517" class="LineNr">31517 </span> <a href='mu.subx.html#L35039'>_string_81_subop_or</a>/imm32/subx-name +<span id="L31518" class="LineNr">31518 </span> 1/imm32/rm32-is-first-inout +<span id="L31519" class="LineNr">31519 </span> 0/imm32/no-r32 +<span id="L31520" class="LineNr">31520 </span> 2/imm32/imm32-is-second-inout +<span id="L31521" class="LineNr">31521 </span> 0/imm32/no-imm8 +<span id="L31522" class="LineNr">31522 </span> 0/imm32/no-disp32 +<span id="L31523" class="LineNr">31523 </span> 0/imm32/no-xm32 +<span id="L31524" class="LineNr">31524 </span> 0/imm32/no-x32 <span id="L31525" class="LineNr">31525 </span> 0x11/imm32/alloc-id:fake -<span id="L31526" class="LineNr">31526 </span> <a href='mu.subx.html#L34911'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name -<span id="L31527" class="LineNr">31527 </span> 1/imm32/rm32-is-first-inout -<span id="L31528" class="LineNr">31528 </span> 0/imm32/no-r32 -<span id="L31529" class="LineNr">31529 </span> 0/imm32/no-imm32 -<span id="L31530" class="LineNr">31530 </span> 2/imm32/imm8-is-second-inout -<span id="L31531" class="LineNr">31531 </span> 0/imm32/no-disp32 -<span id="L31532" class="LineNr">31532 </span> 0/imm32/no-xm32 -<span id="L31533" class="LineNr">31533 </span> 0/imm32/no-x32 -<span id="L31534" class="LineNr">31534 </span> 0x11/imm32/alloc-id:fake -<span id="L31535" class="LineNr">31535 </span> <a href='mu.subx.html#L31536'>_Primitive-shift-mem-right-signed-by-lit</a>/imm32/next -<span id="L31536" class="LineNr">31536 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31537" class="LineNr">31537 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31538" class="LineNr">31538 </span> <span class="subxComment"># shift-right-signed var1, lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> -<span id="L31539" class="LineNr">31539 </span> 0x11/imm32/alloc-id:fake -<span id="L31540" class="LineNr">31540 </span> <a href='mu.subx.html#L34364'>_string-shift-right-signed</a>/imm32/name -<span id="L31541" class="LineNr">31541 </span> 0x11/imm32/alloc-id:fake -<span id="L31542" class="LineNr">31542 </span> <span class="SpecialChar"><a href='mu.subx.html#L34996'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31543" class="LineNr">31543 </span> 0/imm32/no-outputs -<span id="L31544" class="LineNr">31544 </span> 0/imm32/no-outputs -<span id="L31545" class="LineNr">31545 </span> 0x11/imm32/alloc-id:fake -<span id="L31546" class="LineNr">31546 </span> <a href='mu.subx.html#L34916'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name -<span id="L31547" class="LineNr">31547 </span> 1/imm32/rm32-is-first-inout -<span id="L31548" class="LineNr">31548 </span> 0/imm32/no-r32 -<span id="L31549" class="LineNr">31549 </span> 0/imm32/no-imm32 -<span id="L31550" class="LineNr">31550 </span> 2/imm32/imm8-is-second-inout -<span id="L31551" class="LineNr">31551 </span> 0/imm32/no-disp32 -<span id="L31552" class="LineNr">31552 </span> 0/imm32/no-xm32 -<span id="L31553" class="LineNr">31553 </span> 0/imm32/no-x32 -<span id="L31554" class="LineNr">31554 </span> 0x11/imm32/alloc-id:fake -<span id="L31555" class="LineNr">31555 </span> <a href='mu.subx.html#L31557'>_Primitive-copy-to-eax</a>/imm32/next -<span id="L31556" class="LineNr">31556 </span><span class="subxH1Comment"># - copy</span> -<span id="L31557" class="LineNr">31557 </span><span class="subxMinorFunction">_Primitive-copy-to-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31558" class="LineNr">31558 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31559" class="LineNr">31559 </span> <span class="subxComment"># var/eax <- copy lit => b8/copy-to-eax lit/imm32</span> -<span id="L31560" class="LineNr">31560 </span> 0x11/imm32/alloc-id:fake -<span id="L31561" class="LineNr">31561 </span> <a href='mu.subx.html#L34139'>_string-copy</a>/imm32/name -<span id="L31562" class="LineNr">31562 </span> 0x11/imm32/alloc-id:fake -<span id="L31563" class="LineNr">31563 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31564" class="LineNr">31564 </span> 0x11/imm32/alloc-id:fake -<span id="L31565" class="LineNr">31565 </span> <span class="SpecialChar"><a href='mu.subx.html#L35091'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L31526" class="LineNr">31526 </span> <a href='mu.subx.html#L31528'>_Primitive-not-reg</a>/imm32/next +<span id="L31527" class="LineNr">31527 </span><span class="subxH1Comment"># - not</span> +<span id="L31528" class="LineNr">31528 </span><span class="subxMinorFunction">_Primitive-not-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31529" class="LineNr">31529 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31530" class="LineNr">31530 </span> <span class="subxComment"># var1/reg <- not => f7 2/subop/not var1/rm32</span> +<span id="L31531" class="LineNr">31531 </span> 0x11/imm32/alloc-id:fake +<span id="L31532" class="LineNr">31532 </span> <a href='mu.subx.html#L34572'>_string-not</a>/imm32/name +<span id="L31533" class="LineNr">31533 </span> 0/imm32/no-inouts +<span id="L31534" class="LineNr">31534 </span> 0/imm32/no-inouts +<span id="L31535" class="LineNr">31535 </span> 0x11/imm32/alloc-id:fake +<span id="L31536" class="LineNr">31536 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31537" class="LineNr">31537 </span> 0x11/imm32/alloc-id:fake +<span id="L31538" class="LineNr">31538 </span> <a href='mu.subx.html#L35144'>_string_f7_subop_not</a>/imm32/subx-name +<span id="L31539" class="LineNr">31539 </span> 3/imm32/rm32-is-first-output +<span id="L31540" class="LineNr">31540 </span> 0/imm32/no-r32 +<span id="L31541" class="LineNr">31541 </span> 0/imm32/no-imm32 +<span id="L31542" class="LineNr">31542 </span> 0/imm32/no-imm8 +<span id="L31543" class="LineNr">31543 </span> 0/imm32/no-disp32 +<span id="L31544" class="LineNr">31544 </span> 0/imm32/no-xm32 +<span id="L31545" class="LineNr">31545 </span> 0/imm32/no-x32 +<span id="L31546" class="LineNr">31546 </span> 0x11/imm32/alloc-id:fake +<span id="L31547" class="LineNr">31547 </span> <a href='mu.subx.html#L31548'>_Primitive-not-mem</a>/imm32/next +<span id="L31548" class="LineNr">31548 </span><span class="subxMinorFunction">_Primitive-not-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31549" class="LineNr">31549 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31550" class="LineNr">31550 </span> <span class="subxComment"># not var1 => f7 2/subop/not var1/rm32</span> +<span id="L31551" class="LineNr">31551 </span> 0x11/imm32/alloc-id:fake +<span id="L31552" class="LineNr">31552 </span> <a href='mu.subx.html#L34572'>_string-not</a>/imm32/name +<span id="L31553" class="LineNr">31553 </span> 0x11/imm32/alloc-id:fake +<span id="L31554" class="LineNr">31554 </span> <span class="SpecialChar"><a href='mu.subx.html#L35175'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31555" class="LineNr">31555 </span> 0/imm32/no-outputs +<span id="L31556" class="LineNr">31556 </span> 0/imm32/no-outputs +<span id="L31557" class="LineNr">31557 </span> 0x11/imm32/alloc-id:fake +<span id="L31558" class="LineNr">31558 </span> <a href='mu.subx.html#L35144'>_string_f7_subop_not</a>/imm32/subx-name +<span id="L31559" class="LineNr">31559 </span> 1/imm32/rm32-is-first-inout +<span id="L31560" class="LineNr">31560 </span> 0/imm32/no-r32 +<span id="L31561" class="LineNr">31561 </span> 0/imm32/no-imm32 +<span id="L31562" class="LineNr">31562 </span> 0/imm32/no-imm8 +<span id="L31563" class="LineNr">31563 </span> 0/imm32/no-disp32 +<span id="L31564" class="LineNr">31564 </span> 0/imm32/no-xm32 +<span id="L31565" class="LineNr">31565 </span> 0/imm32/no-x32 <span id="L31566" class="LineNr">31566 </span> 0x11/imm32/alloc-id:fake -<span id="L31567" class="LineNr">31567 </span> <a href='mu.subx.html#L34836'>_string_b8_copy_to_eax</a>/imm32/subx-name -<span id="L31568" class="LineNr">31568 </span> 0/imm32/no-rm32 -<span id="L31569" class="LineNr">31569 </span> 0/imm32/no-r32 -<span id="L31570" class="LineNr">31570 </span> 1/imm32/imm32-is-first-inout -<span id="L31571" class="LineNr">31571 </span> 0/imm32/no-imm8 -<span id="L31572" class="LineNr">31572 </span> 0/imm32/no-disp32 -<span id="L31573" class="LineNr">31573 </span> 0/imm32/no-xm32 -<span id="L31574" class="LineNr">31574 </span> 0/imm32/no-x32 -<span id="L31575" class="LineNr">31575 </span> 0x11/imm32/alloc-id:fake -<span id="L31576" class="LineNr">31576 </span> <a href='mu.subx.html#L31577'>_Primitive-copy-to-ecx</a>/imm32/next -<span id="L31577" class="LineNr">31577 </span><span class="subxMinorFunction">_Primitive-copy-to-ecx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31578" class="LineNr">31578 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31579" class="LineNr">31579 </span> <span class="subxComment"># var/ecx <- copy lit => b9/copy-to-ecx lit/imm32</span> -<span id="L31580" class="LineNr">31580 </span> 0x11/imm32/alloc-id:fake -<span id="L31581" class="LineNr">31581 </span> <a href='mu.subx.html#L34139'>_string-copy</a>/imm32/name -<span id="L31582" class="LineNr">31582 </span> 0x11/imm32/alloc-id:fake -<span id="L31583" class="LineNr">31583 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31584" class="LineNr">31584 </span> 0x11/imm32/alloc-id:fake -<span id="L31585" class="LineNr">31585 </span> <span class="SpecialChar"><a href='mu.subx.html#L35109'>Single-int-var-in-ecx</a></span>/imm32/outputs -<span id="L31586" class="LineNr">31586 </span> 0x11/imm32/alloc-id:fake -<span id="L31587" class="LineNr">31587 </span> <a href='mu.subx.html#L34841'>_string_b9_copy_to_ecx</a>/imm32/subx-name -<span id="L31588" class="LineNr">31588 </span> 0/imm32/no-rm32 -<span id="L31589" class="LineNr">31589 </span> 0/imm32/no-r32 -<span id="L31590" class="LineNr">31590 </span> 1/imm32/imm32-is-first-inout -<span id="L31591" class="LineNr">31591 </span> 0/imm32/no-imm8 -<span id="L31592" class="LineNr">31592 </span> 0/imm32/no-disp32 -<span id="L31593" class="LineNr">31593 </span> 0/imm32/no-xm32 -<span id="L31594" class="LineNr">31594 </span> 0/imm32/no-x32 -<span id="L31595" class="LineNr">31595 </span> 0x11/imm32/alloc-id:fake -<span id="L31596" class="LineNr">31596 </span> <a href='mu.subx.html#L31597'>_Primitive-copy-to-edx</a>/imm32/next -<span id="L31597" class="LineNr">31597 </span><span class="subxMinorFunction">_Primitive-copy-to-edx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31598" class="LineNr">31598 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31599" class="LineNr">31599 </span> <span class="subxComment"># var/edx <- copy lit => ba/copy-to-edx lit/imm32</span> -<span id="L31600" class="LineNr">31600 </span> 0x11/imm32/alloc-id:fake -<span id="L31601" class="LineNr">31601 </span> <a href='mu.subx.html#L34139'>_string-copy</a>/imm32/name -<span id="L31602" class="LineNr">31602 </span> 0x11/imm32/alloc-id:fake -<span id="L31603" class="LineNr">31603 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31604" class="LineNr">31604 </span> 0x11/imm32/alloc-id:fake -<span id="L31605" class="LineNr">31605 </span> <span class="SpecialChar"><a href='mu.subx.html#L35127'>Single-int-var-in-edx</a></span>/imm32/outputs -<span id="L31606" class="LineNr">31606 </span> 0x11/imm32/alloc-id:fake -<span id="L31607" class="LineNr">31607 </span> <a href='mu.subx.html#L34846'>_string_ba_copy_to_edx</a>/imm32/subx-name -<span id="L31608" class="LineNr">31608 </span> 0/imm32/no-rm32 -<span id="L31609" class="LineNr">31609 </span> 0/imm32/no-r32 -<span id="L31610" class="LineNr">31610 </span> 1/imm32/imm32-is-first-inout -<span id="L31611" class="LineNr">31611 </span> 0/imm32/no-imm8 -<span id="L31612" class="LineNr">31612 </span> 0/imm32/no-disp32 -<span id="L31613" class="LineNr">31613 </span> 0/imm32/no-xm32 -<span id="L31614" class="LineNr">31614 </span> 0/imm32/no-x32 -<span id="L31615" class="LineNr">31615 </span> 0x11/imm32/alloc-id:fake -<span id="L31616" class="LineNr">31616 </span> <a href='mu.subx.html#L31617'>_Primitive-copy-to-ebx</a>/imm32/next -<span id="L31617" class="LineNr">31617 </span><span class="subxMinorFunction">_Primitive-copy-to-ebx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31618" class="LineNr">31618 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31619" class="LineNr">31619 </span> <span class="subxComment"># var/ebx <- copy lit => bb/copy-to-ebx lit/imm32</span> -<span id="L31620" class="LineNr">31620 </span> 0x11/imm32/alloc-id:fake -<span id="L31621" class="LineNr">31621 </span> <a href='mu.subx.html#L34139'>_string-copy</a>/imm32/name -<span id="L31622" class="LineNr">31622 </span> 0x11/imm32/alloc-id:fake -<span id="L31623" class="LineNr">31623 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31624" class="LineNr">31624 </span> 0x11/imm32/alloc-id:fake -<span id="L31625" class="LineNr">31625 </span> <span class="SpecialChar"><a href='mu.subx.html#L35145'>Single-int-var-in-ebx</a></span>/imm32/outputs -<span id="L31626" class="LineNr">31626 </span> 0x11/imm32/alloc-id:fake -<span id="L31627" class="LineNr">31627 </span> <a href='mu.subx.html#L34851'>_string_bb_copy_to_ebx</a>/imm32/subx-name -<span id="L31628" class="LineNr">31628 </span> 0/imm32/no-rm32 -<span id="L31629" class="LineNr">31629 </span> 0/imm32/no-r32 -<span id="L31630" class="LineNr">31630 </span> 1/imm32/imm32-is-first-inout -<span id="L31631" class="LineNr">31631 </span> 0/imm32/no-imm8 -<span id="L31632" class="LineNr">31632 </span> 0/imm32/no-disp32 -<span id="L31633" class="LineNr">31633 </span> 0/imm32/no-xm32 -<span id="L31634" class="LineNr">31634 </span> 0/imm32/no-x32 -<span id="L31635" class="LineNr">31635 </span> 0x11/imm32/alloc-id:fake -<span id="L31636" class="LineNr">31636 </span> <a href='mu.subx.html#L31637'>_Primitive-copy-to-esi</a>/imm32/next -<span id="L31637" class="LineNr">31637 </span><span class="subxMinorFunction">_Primitive-copy-to-esi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31638" class="LineNr">31638 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31639" class="LineNr">31639 </span> <span class="subxComment"># var/esi <- copy lit => be/copy-to-esi lit/imm32</span> -<span id="L31640" class="LineNr">31640 </span> 0x11/imm32/alloc-id:fake -<span id="L31641" class="LineNr">31641 </span> <a href='mu.subx.html#L34139'>_string-copy</a>/imm32/name -<span id="L31642" class="LineNr">31642 </span> 0x11/imm32/alloc-id:fake -<span id="L31643" class="LineNr">31643 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31644" class="LineNr">31644 </span> 0x11/imm32/alloc-id:fake -<span id="L31645" class="LineNr">31645 </span> <span class="SpecialChar"><a href='mu.subx.html#L35163'>Single-int-var-in-esi</a></span>/imm32/outputs -<span id="L31646" class="LineNr">31646 </span> 0x11/imm32/alloc-id:fake -<span id="L31647" class="LineNr">31647 </span> <a href='mu.subx.html#L34856'>_string_be_copy_to_esi</a>/imm32/subx-name -<span id="L31648" class="LineNr">31648 </span> 0/imm32/no-rm32 -<span id="L31649" class="LineNr">31649 </span> 0/imm32/no-r32 -<span id="L31650" class="LineNr">31650 </span> 1/imm32/imm32-is-first-inout -<span id="L31651" class="LineNr">31651 </span> 0/imm32/no-imm8 -<span id="L31652" class="LineNr">31652 </span> 0/imm32/no-disp32 -<span id="L31653" class="LineNr">31653 </span> 0/imm32/no-xm32 -<span id="L31654" class="LineNr">31654 </span> 0/imm32/no-x32 -<span id="L31655" class="LineNr">31655 </span> 0x11/imm32/alloc-id:fake -<span id="L31656" class="LineNr">31656 </span> <a href='mu.subx.html#L31657'>_Primitive-copy-to-edi</a>/imm32/next -<span id="L31657" class="LineNr">31657 </span><span class="subxMinorFunction">_Primitive-copy-to-edi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31658" class="LineNr">31658 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31659" class="LineNr">31659 </span> <span class="subxComment"># var/edi <- copy lit => bf/copy-to-edi lit/imm32</span> -<span id="L31660" class="LineNr">31660 </span> 0x11/imm32/alloc-id:fake -<span id="L31661" class="LineNr">31661 </span> <a href='mu.subx.html#L34139'>_string-copy</a>/imm32/name -<span id="L31662" class="LineNr">31662 </span> 0x11/imm32/alloc-id:fake -<span id="L31663" class="LineNr">31663 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31664" class="LineNr">31664 </span> 0x11/imm32/alloc-id:fake -<span id="L31665" class="LineNr">31665 </span> <span class="SpecialChar"><a href='mu.subx.html#L35181'>Single-int-var-in-edi</a></span>/imm32/outputs -<span id="L31666" class="LineNr">31666 </span> 0x11/imm32/alloc-id:fake -<span id="L31667" class="LineNr">31667 </span> <a href='mu.subx.html#L34861'>_string_bf_copy_to_edi</a>/imm32/subx-name -<span id="L31668" class="LineNr">31668 </span> 0/imm32/no-rm32 -<span id="L31669" class="LineNr">31669 </span> 0/imm32/no-r32 -<span id="L31670" class="LineNr">31670 </span> 1/imm32/imm32-is-first-inout -<span id="L31671" class="LineNr">31671 </span> 0/imm32/no-imm8 -<span id="L31672" class="LineNr">31672 </span> 0/imm32/no-disp32 -<span id="L31673" class="LineNr">31673 </span> 0/imm32/no-xm32 -<span id="L31674" class="LineNr">31674 </span> 0/imm32/no-x32 -<span id="L31675" class="LineNr">31675 </span> 0x11/imm32/alloc-id:fake -<span id="L31676" class="LineNr">31676 </span> <a href='mu.subx.html#L31677'>_Primitive-copy-reg-to-reg</a>/imm32/next -<span id="L31677" class="LineNr">31677 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31678" class="LineNr">31678 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31679" class="LineNr">31679 </span> <span class="subxComment"># var1/reg <- copy var2/reg => 89/<- var1/rm32 var2/r32</span> -<span id="L31680" class="LineNr">31680 </span> 0x11/imm32/alloc-id:fake -<span id="L31681" class="LineNr">31681 </span> <a href='mu.subx.html#L34139'>_string-copy</a>/imm32/name -<span id="L31682" class="LineNr">31682 </span> 0x11/imm32/alloc-id:fake -<span id="L31683" class="LineNr">31683 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L31684" class="LineNr">31684 </span> 0x11/imm32/alloc-id:fake -<span id="L31685" class="LineNr">31685 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31686" class="LineNr">31686 </span> 0x11/imm32/alloc-id:fake -<span id="L31687" class="LineNr">31687 </span> <a href='mu.subx.html#L34811'>_string_89_<-</a>/imm32/subx-name -<span id="L31688" class="LineNr">31688 </span> 3/imm32/rm32-is-first-output -<span id="L31689" class="LineNr">31689 </span> 1/imm32/r32-is-first-inout -<span id="L31690" class="LineNr">31690 </span> 0/imm32/no-imm32 -<span id="L31691" class="LineNr">31691 </span> 0/imm32/no-imm8 -<span id="L31692" class="LineNr">31692 </span> 0/imm32/no-disp32 -<span id="L31693" class="LineNr">31693 </span> 0/imm32/no-xm32 -<span id="L31694" class="LineNr">31694 </span> 0/imm32/no-x32 -<span id="L31695" class="LineNr">31695 </span> 0x11/imm32/alloc-id:fake -<span id="L31696" class="LineNr">31696 </span> <a href='mu.subx.html#L31697'>_Primitive-copy-reg-to-mem</a>/imm32/next -<span id="L31697" class="LineNr">31697 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31698" class="LineNr">31698 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31699" class="LineNr">31699 </span> <span class="subxComment"># copy-to var1 var2/reg => 89/<- var1 var2/r32</span> -<span id="L31700" class="LineNr">31700 </span> 0x11/imm32/alloc-id:fake -<span id="L31701" class="LineNr">31701 </span> <a href='mu.subx.html#L34144'>_string-copy-to</a>/imm32/name -<span id="L31702" class="LineNr">31702 </span> 0x11/imm32/alloc-id:fake -<span id="L31703" class="LineNr">31703 </span> <span class="SpecialChar"><a href='mu.subx.html#L34960'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L31704" class="LineNr">31704 </span> 0/imm32/no-outputs -<span id="L31705" class="LineNr">31705 </span> 0/imm32/no-outputs -<span id="L31706" class="LineNr">31706 </span> 0x11/imm32/alloc-id:fake -<span id="L31707" class="LineNr">31707 </span> <a href='mu.subx.html#L34811'>_string_89_<-</a>/imm32/subx-name -<span id="L31708" class="LineNr">31708 </span> 1/imm32/rm32-is-first-inout -<span id="L31709" class="LineNr">31709 </span> 2/imm32/r32-is-second-inout -<span id="L31710" class="LineNr">31710 </span> 0/imm32/no-imm32 -<span id="L31711" class="LineNr">31711 </span> 0/imm32/no-imm8 -<span id="L31712" class="LineNr">31712 </span> 0/imm32/no-disp32 -<span id="L31713" class="LineNr">31713 </span> 0/imm32/no-xm32 -<span id="L31714" class="LineNr">31714 </span> 0/imm32/no-x32 -<span id="L31715" class="LineNr">31715 </span> 0x11/imm32/alloc-id:fake -<span id="L31716" class="LineNr">31716 </span> <a href='mu.subx.html#L31717'>_Primitive-copy-mem-to-reg</a>/imm32/next -<span id="L31717" class="LineNr">31717 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31718" class="LineNr">31718 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31719" class="LineNr">31719 </span> <span class="subxComment"># var1/reg <- copy var2 => 8b/-> var2/rm32 var1/r32</span> -<span id="L31720" class="LineNr">31720 </span> 0x11/imm32/alloc-id:fake -<span id="L31721" class="LineNr">31721 </span> <a href='mu.subx.html#L34139'>_string-copy</a>/imm32/name -<span id="L31722" class="LineNr">31722 </span> 0x11/imm32/alloc-id:fake -<span id="L31723" class="LineNr">31723 </span> <span class="SpecialChar"><a href='mu.subx.html#L34922'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31724" class="LineNr">31724 </span> 0x11/imm32/alloc-id:fake -<span id="L31725" class="LineNr">31725 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31726" class="LineNr">31726 </span> 0x11/imm32/alloc-id:fake -<span id="L31727" class="LineNr">31727 </span> <a href='mu.subx.html#L34816'>_string_8b_-></a>/imm32/subx-name -<span id="L31728" class="LineNr">31728 </span> 1/imm32/rm32-is-first-inout -<span id="L31729" class="LineNr">31729 </span> 3/imm32/r32-is-first-output -<span id="L31730" class="LineNr">31730 </span> 0/imm32/no-imm32 -<span id="L31731" class="LineNr">31731 </span> 0/imm32/no-imm8 -<span id="L31732" class="LineNr">31732 </span> 0/imm32/no-disp32 -<span id="L31733" class="LineNr">31733 </span> 0/imm32/no-xm32 -<span id="L31734" class="LineNr">31734 </span> 0/imm32/no-x32 -<span id="L31735" class="LineNr">31735 </span> 0x11/imm32/alloc-id:fake -<span id="L31736" class="LineNr">31736 </span> <a href='mu.subx.html#L31737'>_Primitive-copy-lit-to-reg</a>/imm32/next -<span id="L31737" class="LineNr">31737 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31738" class="LineNr">31738 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31739" class="LineNr">31739 </span> <span class="subxComment"># var1/reg <- copy lit => c7 0/subop/copy var1/rm32 lit/imm32</span> -<span id="L31740" class="LineNr">31740 </span> 0x11/imm32/alloc-id:fake -<span id="L31741" class="LineNr">31741 </span> <a href='mu.subx.html#L34139'>_string-copy</a>/imm32/name -<span id="L31742" class="LineNr">31742 </span> 0x11/imm32/alloc-id:fake -<span id="L31743" class="LineNr">31743 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L31744" class="LineNr">31744 </span> 0x11/imm32/alloc-id:fake -<span id="L31745" class="LineNr">31745 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31746" class="LineNr">31746 </span> 0x11/imm32/alloc-id:fake -<span id="L31747" class="LineNr">31747 </span> <a href='mu.subx.html#L34866'>_string_c7_subop_copy</a>/imm32/subx-name -<span id="L31748" class="LineNr">31748 </span> 3/imm32/rm32-is-first-output -<span id="L31749" class="LineNr">31749 </span> 0/imm32/no-r32 -<span id="L31750" class="LineNr">31750 </span> 1/imm32/imm32-is-first-inout -<span id="L31751" class="LineNr">31751 </span> 0/imm32/no-imm8 -<span id="L31752" class="LineNr">31752 </span> 0/imm32/no-disp32 -<span id="L31753" class="LineNr">31753 </span> 0/imm32/no-xm32 -<span id="L31754" class="LineNr">31754 </span> 0/imm32/no-x32 -<span id="L31755" class="LineNr">31755 </span> 0x11/imm32/alloc-id:fake -<span id="L31756" class="LineNr">31756 </span> <a href='mu.subx.html#L31757'>_Primitive-copy-lit-to-mem</a>/imm32/next -<span id="L31757" class="LineNr">31757 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31758" class="LineNr">31758 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31759" class="LineNr">31759 </span> <span class="subxComment"># copy-to var1, lit => c7 0/subop/copy var1/rm32 lit/imm32</span> -<span id="L31760" class="LineNr">31760 </span> 0x11/imm32/alloc-id:fake -<span id="L31761" class="LineNr">31761 </span> <a href='mu.subx.html#L34144'>_string-copy-to</a>/imm32/name -<span id="L31762" class="LineNr">31762 </span> 0x11/imm32/alloc-id:fake -<span id="L31763" class="LineNr">31763 </span> <span class="SpecialChar"><a href='mu.subx.html#L34996'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31764" class="LineNr">31764 </span> 0/imm32/no-outputs -<span id="L31765" class="LineNr">31765 </span> 0/imm32/no-outputs -<span id="L31766" class="LineNr">31766 </span> 0x11/imm32/alloc-id:fake -<span id="L31767" class="LineNr">31767 </span> <a href='mu.subx.html#L34866'>_string_c7_subop_copy</a>/imm32/subx-name -<span id="L31768" class="LineNr">31768 </span> 1/imm32/rm32-is-first-inout -<span id="L31769" class="LineNr">31769 </span> 0/imm32/no-r32 -<span id="L31770" class="LineNr">31770 </span> 2/imm32/imm32-is-second-inout -<span id="L31771" class="LineNr">31771 </span> 0/imm32/no-imm8 -<span id="L31772" class="LineNr">31772 </span> 0/imm32/no-disp32 -<span id="L31773" class="LineNr">31773 </span> 0/imm32/no-xm32 -<span id="L31774" class="LineNr">31774 </span> 0/imm32/no-x32 -<span id="L31775" class="LineNr">31775 </span> 0x11/imm32/alloc-id:fake -<span id="L31776" class="LineNr">31776 </span> <a href='mu.subx.html#L31778'>_Primitive-copy-byte-from-reg</a>/imm32/next -<span id="L31777" class="LineNr">31777 </span><span class="subxH1Comment"># - copy byte</span> -<span id="L31778" class="LineNr">31778 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-reg</span>: -<span id="L31779" class="LineNr">31779 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31780" class="LineNr">31780 </span> <span class="subxComment"># var/reg <- copy-byte var2/reg2 => 8a/byte-> %var2 var/r32</span> -<span id="L31781" class="LineNr">31781 </span> 0x11/imm32/alloc-id:fake -<span id="L31782" class="LineNr">31782 </span> <a href='mu.subx.html#L34149'>_string-copy-byte</a>/imm32/name -<span id="L31783" class="LineNr">31783 </span> 0x11/imm32/alloc-id:fake -<span id="L31784" class="LineNr">31784 </span> <span class="SpecialChar"><a href='mu.subx.html#L35045'>Single-byte-var-in-some-register</a></span>/imm32/inouts -<span id="L31785" class="LineNr">31785 </span> 0x11/imm32/alloc-id:fake -<span id="L31786" class="LineNr">31786 </span> <span class="SpecialChar"><a href='mu.subx.html#L35045'>Single-byte-var-in-some-register</a></span>/imm32/outputs +<span id="L31567" class="LineNr">31567 </span> <a href='mu.subx.html#L31569'>_Primitive-xor-with-eax</a>/imm32/next +<span id="L31568" class="LineNr">31568 </span><span class="subxH1Comment"># - xor</span> +<span id="L31569" class="LineNr">31569 </span><span class="subxMinorFunction">_Primitive-xor-with-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31570" class="LineNr">31570 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31571" class="LineNr">31571 </span> <span class="subxComment"># var/eax <- xor lit => 35/xor-with-eax lit/imm32</span> +<span id="L31572" class="LineNr">31572 </span> 0x11/imm32/alloc-id:fake +<span id="L31573" class="LineNr">31573 </span> <a href='mu.subx.html#L34597'>_string-xor</a>/imm32/name +<span id="L31574" class="LineNr">31574 </span> 0x11/imm32/alloc-id:fake +<span id="L31575" class="LineNr">31575 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L31576" class="LineNr">31576 </span> 0x11/imm32/alloc-id:fake +<span id="L31577" class="LineNr">31577 </span> <span class="SpecialChar"><a href='mu.subx.html#L35344'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L31578" class="LineNr">31578 </span> 0x11/imm32/alloc-id:fake +<span id="L31579" class="LineNr">31579 </span> <a href='mu.subx.html#L34954'>_string_35_xor_with_eax</a>/imm32/subx-name +<span id="L31580" class="LineNr">31580 </span> 0/imm32/no-rm32 +<span id="L31581" class="LineNr">31581 </span> 0/imm32/no-r32 +<span id="L31582" class="LineNr">31582 </span> 1/imm32/imm32-is-first-inout +<span id="L31583" class="LineNr">31583 </span> 0/imm32/no-imm8 +<span id="L31584" class="LineNr">31584 </span> 0/imm32/no-disp32 +<span id="L31585" class="LineNr">31585 </span> 0/imm32/no-xm32 +<span id="L31586" class="LineNr">31586 </span> 0/imm32/no-x32 +<span id="L31587" class="LineNr">31587 </span> 0x11/imm32/alloc-id:fake +<span id="L31588" class="LineNr">31588 </span> <a href='mu.subx.html#L31589'>_Primitive-xor-reg-with-reg</a>/imm32/next +<span id="L31589" class="LineNr">31589 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31590" class="LineNr">31590 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31591" class="LineNr">31591 </span> <span class="subxComment"># var1/reg <- xor var2/reg => 31/xor-with var1/rm32 var2/r32</span> +<span id="L31592" class="LineNr">31592 </span> 0x11/imm32/alloc-id:fake +<span id="L31593" class="LineNr">31593 </span> <a href='mu.subx.html#L34597'>_string-xor</a>/imm32/name +<span id="L31594" class="LineNr">31594 </span> 0x11/imm32/alloc-id:fake +<span id="L31595" class="LineNr">31595 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L31596" class="LineNr">31596 </span> 0x11/imm32/alloc-id:fake +<span id="L31597" class="LineNr">31597 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31598" class="LineNr">31598 </span> 0x11/imm32/alloc-id:fake +<span id="L31599" class="LineNr">31599 </span> <a href='mu.subx.html#L34944'>_string_31_xor_with</a>/imm32/subx-name +<span id="L31600" class="LineNr">31600 </span> 3/imm32/rm32-is-first-output +<span id="L31601" class="LineNr">31601 </span> 1/imm32/r32-is-first-inout +<span id="L31602" class="LineNr">31602 </span> 0/imm32/no-imm32 +<span id="L31603" class="LineNr">31603 </span> 0/imm32/no-imm8 +<span id="L31604" class="LineNr">31604 </span> 0/imm32/no-disp32 +<span id="L31605" class="LineNr">31605 </span> 0/imm32/no-xm32 +<span id="L31606" class="LineNr">31606 </span> 0/imm32/no-x32 +<span id="L31607" class="LineNr">31607 </span> 0x11/imm32/alloc-id:fake +<span id="L31608" class="LineNr">31608 </span> <a href='mu.subx.html#L31609'>_Primitive-xor-reg-with-mem</a>/imm32/next +<span id="L31609" class="LineNr">31609 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31610" class="LineNr">31610 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31611" class="LineNr">31611 </span> <span class="subxComment"># xor-with var1 var2/reg => 31/xor-with var1 var2/r32</span> +<span id="L31612" class="LineNr">31612 </span> 0x11/imm32/alloc-id:fake +<span id="L31613" class="LineNr">31613 </span> <a href='mu.subx.html#L34602'>_string-xor-with</a>/imm32/name +<span id="L31614" class="LineNr">31614 </span> 0x11/imm32/alloc-id:fake +<span id="L31615" class="LineNr">31615 </span> <span class="SpecialChar"><a href='mu.subx.html#L35213'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L31616" class="LineNr">31616 </span> 0/imm32/no-outputs +<span id="L31617" class="LineNr">31617 </span> 0/imm32/no-outputs +<span id="L31618" class="LineNr">31618 </span> 0x11/imm32/alloc-id:fake +<span id="L31619" class="LineNr">31619 </span> <a href='mu.subx.html#L34944'>_string_31_xor_with</a>/imm32/subx-name +<span id="L31620" class="LineNr">31620 </span> 1/imm32/rm32-is-first-inout +<span id="L31621" class="LineNr">31621 </span> 2/imm32/r32-is-second-inout +<span id="L31622" class="LineNr">31622 </span> 0/imm32/no-imm32 +<span id="L31623" class="LineNr">31623 </span> 0/imm32/no-imm8 +<span id="L31624" class="LineNr">31624 </span> 0/imm32/no-disp32 +<span id="L31625" class="LineNr">31625 </span> 0/imm32/no-xm32 +<span id="L31626" class="LineNr">31626 </span> 0/imm32/no-x32 +<span id="L31627" class="LineNr">31627 </span> 0x11/imm32/alloc-id:fake +<span id="L31628" class="LineNr">31628 </span> <a href='mu.subx.html#L31629'>_Primitive-xor-mem-with-reg</a>/imm32/next +<span id="L31629" class="LineNr">31629 </span><span class="subxMinorFunction">_Primitive-xor-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31630" class="LineNr">31630 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31631" class="LineNr">31631 </span> <span class="subxComment"># var1/reg <- xor var2 => 33/xor var2/rm32 var1/r32</span> +<span id="L31632" class="LineNr">31632 </span> 0x11/imm32/alloc-id:fake +<span id="L31633" class="LineNr">31633 </span> <a href='mu.subx.html#L34597'>_string-xor</a>/imm32/name +<span id="L31634" class="LineNr">31634 </span> 0x11/imm32/alloc-id:fake +<span id="L31635" class="LineNr">31635 </span> <span class="SpecialChar"><a href='mu.subx.html#L35175'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31636" class="LineNr">31636 </span> 0x11/imm32/alloc-id:fake +<span id="L31637" class="LineNr">31637 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31638" class="LineNr">31638 </span> 0x11/imm32/alloc-id:fake +<span id="L31639" class="LineNr">31639 </span> <a href='mu.subx.html#L34949'>_string_33_xor</a>/imm32/subx-name +<span id="L31640" class="LineNr">31640 </span> 1/imm32/rm32-is-first-inout +<span id="L31641" class="LineNr">31641 </span> 3/imm32/r32-is-first-output +<span id="L31642" class="LineNr">31642 </span> 0/imm32/no-imm32 +<span id="L31643" class="LineNr">31643 </span> 0/imm32/no-imm8 +<span id="L31644" class="LineNr">31644 </span> 0/imm32/no-disp32 +<span id="L31645" class="LineNr">31645 </span> 0/imm32/no-xm32 +<span id="L31646" class="LineNr">31646 </span> 0/imm32/no-x32 +<span id="L31647" class="LineNr">31647 </span> 0x11/imm32/alloc-id:fake +<span id="L31648" class="LineNr">31648 </span> <a href='mu.subx.html#L31649'>_Primitive-xor-lit-with-reg</a>/imm32/next +<span id="L31649" class="LineNr">31649 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31650" class="LineNr">31650 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31651" class="LineNr">31651 </span> <span class="subxComment"># var1/reg <- xor lit => 81 6/subop/xor var1/rm32 lit/imm32</span> +<span id="L31652" class="LineNr">31652 </span> 0x11/imm32/alloc-id:fake +<span id="L31653" class="LineNr">31653 </span> <a href='mu.subx.html#L34597'>_string-xor</a>/imm32/name +<span id="L31654" class="LineNr">31654 </span> 0x11/imm32/alloc-id:fake +<span id="L31655" class="LineNr">31655 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L31656" class="LineNr">31656 </span> 0x11/imm32/alloc-id:fake +<span id="L31657" class="LineNr">31657 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31658" class="LineNr">31658 </span> 0x11/imm32/alloc-id:fake +<span id="L31659" class="LineNr">31659 </span> <a href='mu.subx.html#L35054'>_string_81_subop_xor</a>/imm32/subx-name +<span id="L31660" class="LineNr">31660 </span> 3/imm32/rm32-is-first-output +<span id="L31661" class="LineNr">31661 </span> 0/imm32/no-r32 +<span id="L31662" class="LineNr">31662 </span> 1/imm32/imm32-is-first-inout +<span id="L31663" class="LineNr">31663 </span> 0/imm32/no-imm8 +<span id="L31664" class="LineNr">31664 </span> 0/imm32/no-disp32 +<span id="L31665" class="LineNr">31665 </span> 0/imm32/no-xm32 +<span id="L31666" class="LineNr">31666 </span> 0/imm32/no-x32 +<span id="L31667" class="LineNr">31667 </span> 0x11/imm32/alloc-id:fake +<span id="L31668" class="LineNr">31668 </span> <a href='mu.subx.html#L31669'>_Primitive-xor-lit-with-mem</a>/imm32/next +<span id="L31669" class="LineNr">31669 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31670" class="LineNr">31670 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31671" class="LineNr">31671 </span> <span class="subxComment"># xor-with var1, lit => 81 6/subop/xor var1/rm32 lit/imm32</span> +<span id="L31672" class="LineNr">31672 </span> 0x11/imm32/alloc-id:fake +<span id="L31673" class="LineNr">31673 </span> <a href='mu.subx.html#L34602'>_string-xor-with</a>/imm32/name +<span id="L31674" class="LineNr">31674 </span> 0x11/imm32/alloc-id:fake +<span id="L31675" class="LineNr">31675 </span> <span class="SpecialChar"><a href='mu.subx.html#L35249'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31676" class="LineNr">31676 </span> 0/imm32/no-outputs +<span id="L31677" class="LineNr">31677 </span> 0/imm32/no-outputs +<span id="L31678" class="LineNr">31678 </span> 0x11/imm32/alloc-id:fake +<span id="L31679" class="LineNr">31679 </span> <a href='mu.subx.html#L35054'>_string_81_subop_xor</a>/imm32/subx-name +<span id="L31680" class="LineNr">31680 </span> 1/imm32/rm32-is-first-inout +<span id="L31681" class="LineNr">31681 </span> 0/imm32/no-r32 +<span id="L31682" class="LineNr">31682 </span> 2/imm32/imm32-is-second-inout +<span id="L31683" class="LineNr">31683 </span> 0/imm32/no-imm8 +<span id="L31684" class="LineNr">31684 </span> 0/imm32/no-disp32 +<span id="L31685" class="LineNr">31685 </span> 0/imm32/no-xm32 +<span id="L31686" class="LineNr">31686 </span> 0/imm32/no-x32 +<span id="L31687" class="LineNr">31687 </span> 0x11/imm32/alloc-id:fake +<span id="L31688" class="LineNr">31688 </span> <a href='mu.subx.html#L31689'>_Primitive-shift-reg-left-by-lit</a>/imm32/next +<span id="L31689" class="LineNr">31689 </span><span class="subxMinorFunction">_Primitive-shift-reg-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31690" class="LineNr">31690 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31691" class="LineNr">31691 </span> <span class="subxComment"># var1/reg <- shift-left lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> +<span id="L31692" class="LineNr">31692 </span> 0x11/imm32/alloc-id:fake +<span id="L31693" class="LineNr">31693 </span> <a href='mu.subx.html#L34607'>_string-shift-left</a>/imm32/name +<span id="L31694" class="LineNr">31694 </span> 0x11/imm32/alloc-id:fake +<span id="L31695" class="LineNr">31695 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L31696" class="LineNr">31696 </span> 0x11/imm32/alloc-id:fake +<span id="L31697" class="LineNr">31697 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31698" class="LineNr">31698 </span> 0x11/imm32/alloc-id:fake +<span id="L31699" class="LineNr">31699 </span> <a href='mu.subx.html#L35159'>_string_c1_subop_shift_left</a>/imm32/subx-name +<span id="L31700" class="LineNr">31700 </span> 3/imm32/rm32-is-first-output +<span id="L31701" class="LineNr">31701 </span> 0/imm32/no-r32 +<span id="L31702" class="LineNr">31702 </span> 0/imm32/no-imm32 +<span id="L31703" class="LineNr">31703 </span> 1/imm32/imm8-is-first-inout +<span id="L31704" class="LineNr">31704 </span> 0/imm32/no-disp32 +<span id="L31705" class="LineNr">31705 </span> 0/imm32/no-xm32 +<span id="L31706" class="LineNr">31706 </span> 0/imm32/no-x32 +<span id="L31707" class="LineNr">31707 </span> 0x11/imm32/alloc-id:fake +<span id="L31708" class="LineNr">31708 </span> <a href='mu.subx.html#L31709'>_Primitive-shift-reg-right-by-lit</a>/imm32/next +<span id="L31709" class="LineNr">31709 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31710" class="LineNr">31710 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31711" class="LineNr">31711 </span> <span class="subxComment"># var1/reg <- shift-right lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> +<span id="L31712" class="LineNr">31712 </span> 0x11/imm32/alloc-id:fake +<span id="L31713" class="LineNr">31713 </span> <a href='mu.subx.html#L34612'>_string-shift-right</a>/imm32/name +<span id="L31714" class="LineNr">31714 </span> 0x11/imm32/alloc-id:fake +<span id="L31715" class="LineNr">31715 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L31716" class="LineNr">31716 </span> 0x11/imm32/alloc-id:fake +<span id="L31717" class="LineNr">31717 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31718" class="LineNr">31718 </span> 0x11/imm32/alloc-id:fake +<span id="L31719" class="LineNr">31719 </span> <a href='mu.subx.html#L35164'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name +<span id="L31720" class="LineNr">31720 </span> 3/imm32/rm32-is-first-output +<span id="L31721" class="LineNr">31721 </span> 0/imm32/no-r32 +<span id="L31722" class="LineNr">31722 </span> 0/imm32/no-imm32 +<span id="L31723" class="LineNr">31723 </span> 1/imm32/imm8-is-first-inout +<span id="L31724" class="LineNr">31724 </span> 0/imm32/no-disp32 +<span id="L31725" class="LineNr">31725 </span> 0/imm32/no-xm32 +<span id="L31726" class="LineNr">31726 </span> 0/imm32/no-x32 +<span id="L31727" class="LineNr">31727 </span> 0x11/imm32/alloc-id:fake +<span id="L31728" class="LineNr">31728 </span> <a href='mu.subx.html#L31729'>_Primitive-shift-reg-right-signed-by-lit</a>/imm32/next +<span id="L31729" class="LineNr">31729 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31730" class="LineNr">31730 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31731" class="LineNr">31731 </span> <span class="subxComment"># var1/reg <- shift-right-signed lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> +<span id="L31732" class="LineNr">31732 </span> 0x11/imm32/alloc-id:fake +<span id="L31733" class="LineNr">31733 </span> <a href='mu.subx.html#L34617'>_string-shift-right-signed</a>/imm32/name +<span id="L31734" class="LineNr">31734 </span> 0x11/imm32/alloc-id:fake +<span id="L31735" class="LineNr">31735 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L31736" class="LineNr">31736 </span> 0x11/imm32/alloc-id:fake +<span id="L31737" class="LineNr">31737 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31738" class="LineNr">31738 </span> 0x11/imm32/alloc-id:fake +<span id="L31739" class="LineNr">31739 </span> <a href='mu.subx.html#L35169'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name +<span id="L31740" class="LineNr">31740 </span> 3/imm32/rm32-is-first-output +<span id="L31741" class="LineNr">31741 </span> 0/imm32/no-r32 +<span id="L31742" class="LineNr">31742 </span> 0/imm32/no-imm32 +<span id="L31743" class="LineNr">31743 </span> 1/imm32/imm8-is-first-inout +<span id="L31744" class="LineNr">31744 </span> 0/imm32/no-disp32 +<span id="L31745" class="LineNr">31745 </span> 0/imm32/no-xm32 +<span id="L31746" class="LineNr">31746 </span> 0/imm32/no-x32 +<span id="L31747" class="LineNr">31747 </span> 0x11/imm32/alloc-id:fake +<span id="L31748" class="LineNr">31748 </span> <a href='mu.subx.html#L31749'>_Primitive-shift-mem-left-by-lit</a>/imm32/next +<span id="L31749" class="LineNr">31749 </span><span class="subxMinorFunction">_Primitive-shift-mem-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31750" class="LineNr">31750 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31751" class="LineNr">31751 </span> <span class="subxComment"># shift-left var1, lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> +<span id="L31752" class="LineNr">31752 </span> 0x11/imm32/alloc-id:fake +<span id="L31753" class="LineNr">31753 </span> <a href='mu.subx.html#L34607'>_string-shift-left</a>/imm32/name +<span id="L31754" class="LineNr">31754 </span> 0x11/imm32/alloc-id:fake +<span id="L31755" class="LineNr">31755 </span> <span class="SpecialChar"><a href='mu.subx.html#L35249'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31756" class="LineNr">31756 </span> 0/imm32/no-outputs +<span id="L31757" class="LineNr">31757 </span> 0/imm32/no-outputs +<span id="L31758" class="LineNr">31758 </span> 0x11/imm32/alloc-id:fake +<span id="L31759" class="LineNr">31759 </span> <a href='mu.subx.html#L35159'>_string_c1_subop_shift_left</a>/imm32/subx-name +<span id="L31760" class="LineNr">31760 </span> 1/imm32/rm32-is-first-inout +<span id="L31761" class="LineNr">31761 </span> 0/imm32/no-r32 +<span id="L31762" class="LineNr">31762 </span> 0/imm32/no-imm32 +<span id="L31763" class="LineNr">31763 </span> 2/imm32/imm8-is-second-inout +<span id="L31764" class="LineNr">31764 </span> 0/imm32/no-disp32 +<span id="L31765" class="LineNr">31765 </span> 0/imm32/no-xm32 +<span id="L31766" class="LineNr">31766 </span> 0/imm32/no-x32 +<span id="L31767" class="LineNr">31767 </span> 0x11/imm32/alloc-id:fake +<span id="L31768" class="LineNr">31768 </span> <a href='mu.subx.html#L31769'>_Primitive-shift-mem-right-by-lit</a>/imm32/next +<span id="L31769" class="LineNr">31769 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31770" class="LineNr">31770 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31771" class="LineNr">31771 </span> <span class="subxComment"># shift-right var1, lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> +<span id="L31772" class="LineNr">31772 </span> 0x11/imm32/alloc-id:fake +<span id="L31773" class="LineNr">31773 </span> <a href='mu.subx.html#L34612'>_string-shift-right</a>/imm32/name +<span id="L31774" class="LineNr">31774 </span> 0x11/imm32/alloc-id:fake +<span id="L31775" class="LineNr">31775 </span> <span class="SpecialChar"><a href='mu.subx.html#L35249'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31776" class="LineNr">31776 </span> 0/imm32/no-outputs +<span id="L31777" class="LineNr">31777 </span> 0/imm32/no-outputs +<span id="L31778" class="LineNr">31778 </span> 0x11/imm32/alloc-id:fake +<span id="L31779" class="LineNr">31779 </span> <a href='mu.subx.html#L35164'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name +<span id="L31780" class="LineNr">31780 </span> 1/imm32/rm32-is-first-inout +<span id="L31781" class="LineNr">31781 </span> 0/imm32/no-r32 +<span id="L31782" class="LineNr">31782 </span> 0/imm32/no-imm32 +<span id="L31783" class="LineNr">31783 </span> 2/imm32/imm8-is-second-inout +<span id="L31784" class="LineNr">31784 </span> 0/imm32/no-disp32 +<span id="L31785" class="LineNr">31785 </span> 0/imm32/no-xm32 +<span id="L31786" class="LineNr">31786 </span> 0/imm32/no-x32 <span id="L31787" class="LineNr">31787 </span> 0x11/imm32/alloc-id:fake -<span id="L31788" class="LineNr">31788 </span> <a href='mu.subx.html#L34821'>_string_8a_copy_byte</a>/imm32/subx-name -<span id="L31789" class="LineNr">31789 </span> 1/imm32/rm32-is-first-inout -<span id="L31790" class="LineNr">31790 </span> 3/imm32/r32-is-first-output -<span id="L31791" class="LineNr">31791 </span> 0/imm32/no-imm32 -<span id="L31792" class="LineNr">31792 </span> 0/imm32/no-imm8 -<span id="L31793" class="LineNr">31793 </span> 0/imm32/no-disp32 -<span id="L31794" class="LineNr">31794 </span> 0/imm32/no-xm32 -<span id="L31795" class="LineNr">31795 </span> 0/imm32/no-x32 -<span id="L31796" class="LineNr">31796 </span> 0x11/imm32/alloc-id:fake -<span id="L31797" class="LineNr">31797 </span> <a href='mu.subx.html#L31798'>_Primitive-copy-byte-from-mem</a>/imm32/next -<span id="L31798" class="LineNr">31798 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-mem</span>: -<span id="L31799" class="LineNr">31799 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31800" class="LineNr">31800 </span> <span class="subxComment"># var/reg <- copy-byte *var2/reg2 => 8a/byte-> *var2 var/r32</span> -<span id="L31801" class="LineNr">31801 </span> 0x11/imm32/alloc-id:fake -<span id="L31802" class="LineNr">31802 </span> <a href='mu.subx.html#L34149'>_string-copy-byte</a>/imm32/name -<span id="L31803" class="LineNr">31803 </span> 0x11/imm32/alloc-id:fake -<span id="L31804" class="LineNr">31804 </span> <span class="SpecialChar"><a href='mu.subx.html#L34941'>Single-byte-var-in-mem</a></span>/imm32/inouts -<span id="L31805" class="LineNr">31805 </span> 0x11/imm32/alloc-id:fake -<span id="L31806" class="LineNr">31806 </span> <span class="SpecialChar"><a href='mu.subx.html#L35045'>Single-byte-var-in-some-register</a></span>/imm32/outputs +<span id="L31788" class="LineNr">31788 </span> <a href='mu.subx.html#L31789'>_Primitive-shift-mem-right-signed-by-lit</a>/imm32/next +<span id="L31789" class="LineNr">31789 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31790" class="LineNr">31790 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31791" class="LineNr">31791 </span> <span class="subxComment"># shift-right-signed var1, lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> +<span id="L31792" class="LineNr">31792 </span> 0x11/imm32/alloc-id:fake +<span id="L31793" class="LineNr">31793 </span> <a href='mu.subx.html#L34617'>_string-shift-right-signed</a>/imm32/name +<span id="L31794" class="LineNr">31794 </span> 0x11/imm32/alloc-id:fake +<span id="L31795" class="LineNr">31795 </span> <span class="SpecialChar"><a href='mu.subx.html#L35249'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31796" class="LineNr">31796 </span> 0/imm32/no-outputs +<span id="L31797" class="LineNr">31797 </span> 0/imm32/no-outputs +<span id="L31798" class="LineNr">31798 </span> 0x11/imm32/alloc-id:fake +<span id="L31799" class="LineNr">31799 </span> <a href='mu.subx.html#L35169'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name +<span id="L31800" class="LineNr">31800 </span> 1/imm32/rm32-is-first-inout +<span id="L31801" class="LineNr">31801 </span> 0/imm32/no-r32 +<span id="L31802" class="LineNr">31802 </span> 0/imm32/no-imm32 +<span id="L31803" class="LineNr">31803 </span> 2/imm32/imm8-is-second-inout +<span id="L31804" class="LineNr">31804 </span> 0/imm32/no-disp32 +<span id="L31805" class="LineNr">31805 </span> 0/imm32/no-xm32 +<span id="L31806" class="LineNr">31806 </span> 0/imm32/no-x32 <span id="L31807" class="LineNr">31807 </span> 0x11/imm32/alloc-id:fake -<span id="L31808" class="LineNr">31808 </span> <a href='mu.subx.html#L34821'>_string_8a_copy_byte</a>/imm32/subx-name -<span id="L31809" class="LineNr">31809 </span> 1/imm32/rm32-is-first-inout -<span id="L31810" class="LineNr">31810 </span> 3/imm32/r32-is-first-output -<span id="L31811" class="LineNr">31811 </span> 0/imm32/no-imm32 -<span id="L31812" class="LineNr">31812 </span> 0/imm32/no-imm8 -<span id="L31813" class="LineNr">31813 </span> 0/imm32/no-disp32 -<span id="L31814" class="LineNr">31814 </span> 0/imm32/no-xm32 -<span id="L31815" class="LineNr">31815 </span> 0/imm32/no-x32 -<span id="L31816" class="LineNr">31816 </span> 0x11/imm32/alloc-id:fake -<span id="L31817" class="LineNr">31817 </span> <a href='mu.subx.html#L31818'>_Primitive-copy-byte-to-mem</a>/imm32/next -<span id="L31818" class="LineNr">31818 </span><span class="subxMinorFunction">_Primitive-copy-byte-to-mem</span>: -<span id="L31819" class="LineNr">31819 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31820" class="LineNr">31820 </span> <span class="subxComment"># copy-byte-to *var1/reg1, var2/reg2 => 88/byte<- *reg1 reg2/r32</span> -<span id="L31821" class="LineNr">31821 </span> 0x11/imm32/alloc-id:fake -<span id="L31822" class="LineNr">31822 </span> <a href='mu.subx.html#L34154'>_string-copy-byte-to</a>/imm32/name -<span id="L31823" class="LineNr">31823 </span> 0x11/imm32/alloc-id:fake -<span id="L31824" class="LineNr">31824 </span> <span class="SpecialChar"><a href='mu.subx.html#L34975'>Two-args-byte-stack-byte-reg</a></span>/imm32/inouts -<span id="L31825" class="LineNr">31825 </span> 0/imm32/no-outputs -<span id="L31826" class="LineNr">31826 </span> 0/imm32/no-outputs -<span id="L31827" class="LineNr">31827 </span> 0x11/imm32/alloc-id:fake -<span id="L31828" class="LineNr">31828 </span> <a href='mu.subx.html#L34826'>_string_88_copy_byte</a>/imm32/subx-name -<span id="L31829" class="LineNr">31829 </span> 1/imm32/rm32-is-first-inout -<span id="L31830" class="LineNr">31830 </span> 2/imm32/r32-is-second-inout -<span id="L31831" class="LineNr">31831 </span> 0/imm32/no-imm32 -<span id="L31832" class="LineNr">31832 </span> 0/imm32/no-imm8 -<span id="L31833" class="LineNr">31833 </span> 0/imm32/no-disp32 -<span id="L31834" class="LineNr">31834 </span> 0/imm32/no-xm32 -<span id="L31835" class="LineNr">31835 </span> 0/imm32/no-x32 -<span id="L31836" class="LineNr">31836 </span> 0x11/imm32/alloc-id:fake -<span id="L31837" class="LineNr">31837 </span> <a href='mu.subx.html#L31839'>_Primitive-address</a>/imm32/next -<span id="L31838" class="LineNr">31838 </span><span class="subxH1Comment"># - address</span> -<span id="L31839" class="LineNr">31839 </span><span class="subxMinorFunction">_Primitive-address</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31840" class="LineNr">31840 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31841" class="LineNr">31841 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> -<span id="L31842" class="LineNr">31842 </span> 0x11/imm32/alloc-id:fake -<span id="L31843" class="LineNr">31843 </span> <a href='mu.subx.html#L34019'>_string-address</a>/imm32/name -<span id="L31844" class="LineNr">31844 </span> 0x11/imm32/alloc-id:fake -<span id="L31845" class="LineNr">31845 </span> <span class="SpecialChar"><a href='mu.subx.html#L34922'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31846" class="LineNr">31846 </span> 0x11/imm32/alloc-id:fake -<span id="L31847" class="LineNr">31847 </span> <span class="SpecialChar"><a href='mu.subx.html#L35038'>Single-addr-var-in-some-register</a></span>/imm32/outputs +<span id="L31808" class="LineNr">31808 </span> <a href='mu.subx.html#L31810'>_Primitive-copy-to-eax</a>/imm32/next +<span id="L31809" class="LineNr">31809 </span><span class="subxH1Comment"># - copy</span> +<span id="L31810" class="LineNr">31810 </span><span class="subxMinorFunction">_Primitive-copy-to-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31811" class="LineNr">31811 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31812" class="LineNr">31812 </span> <span class="subxComment"># var/eax <- copy lit => b8/copy-to-eax lit/imm32</span> +<span id="L31813" class="LineNr">31813 </span> 0x11/imm32/alloc-id:fake +<span id="L31814" class="LineNr">31814 </span> <a href='mu.subx.html#L34392'>_string-copy</a>/imm32/name +<span id="L31815" class="LineNr">31815 </span> 0x11/imm32/alloc-id:fake +<span id="L31816" class="LineNr">31816 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L31817" class="LineNr">31817 </span> 0x11/imm32/alloc-id:fake +<span id="L31818" class="LineNr">31818 </span> <span class="SpecialChar"><a href='mu.subx.html#L35344'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L31819" class="LineNr">31819 </span> 0x11/imm32/alloc-id:fake +<span id="L31820" class="LineNr">31820 </span> <a href='mu.subx.html#L35089'>_string_b8_copy_to_eax</a>/imm32/subx-name +<span id="L31821" class="LineNr">31821 </span> 0/imm32/no-rm32 +<span id="L31822" class="LineNr">31822 </span> 0/imm32/no-r32 +<span id="L31823" class="LineNr">31823 </span> 1/imm32/imm32-is-first-inout +<span id="L31824" class="LineNr">31824 </span> 0/imm32/no-imm8 +<span id="L31825" class="LineNr">31825 </span> 0/imm32/no-disp32 +<span id="L31826" class="LineNr">31826 </span> 0/imm32/no-xm32 +<span id="L31827" class="LineNr">31827 </span> 0/imm32/no-x32 +<span id="L31828" class="LineNr">31828 </span> 0x11/imm32/alloc-id:fake +<span id="L31829" class="LineNr">31829 </span> <a href='mu.subx.html#L31830'>_Primitive-copy-to-ecx</a>/imm32/next +<span id="L31830" class="LineNr">31830 </span><span class="subxMinorFunction">_Primitive-copy-to-ecx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31831" class="LineNr">31831 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31832" class="LineNr">31832 </span> <span class="subxComment"># var/ecx <- copy lit => b9/copy-to-ecx lit/imm32</span> +<span id="L31833" class="LineNr">31833 </span> 0x11/imm32/alloc-id:fake +<span id="L31834" class="LineNr">31834 </span> <a href='mu.subx.html#L34392'>_string-copy</a>/imm32/name +<span id="L31835" class="LineNr">31835 </span> 0x11/imm32/alloc-id:fake +<span id="L31836" class="LineNr">31836 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L31837" class="LineNr">31837 </span> 0x11/imm32/alloc-id:fake +<span id="L31838" class="LineNr">31838 </span> <span class="SpecialChar"><a href='mu.subx.html#L35362'>Single-int-var-in-ecx</a></span>/imm32/outputs +<span id="L31839" class="LineNr">31839 </span> 0x11/imm32/alloc-id:fake +<span id="L31840" class="LineNr">31840 </span> <a href='mu.subx.html#L35094'>_string_b9_copy_to_ecx</a>/imm32/subx-name +<span id="L31841" class="LineNr">31841 </span> 0/imm32/no-rm32 +<span id="L31842" class="LineNr">31842 </span> 0/imm32/no-r32 +<span id="L31843" class="LineNr">31843 </span> 1/imm32/imm32-is-first-inout +<span id="L31844" class="LineNr">31844 </span> 0/imm32/no-imm8 +<span id="L31845" class="LineNr">31845 </span> 0/imm32/no-disp32 +<span id="L31846" class="LineNr">31846 </span> 0/imm32/no-xm32 +<span id="L31847" class="LineNr">31847 </span> 0/imm32/no-x32 <span id="L31848" class="LineNr">31848 </span> 0x11/imm32/alloc-id:fake -<span id="L31849" class="LineNr">31849 </span> <a href='mu.subx.html#L34831'>_string_8d_copy_address</a>/imm32/subx-name -<span id="L31850" class="LineNr">31850 </span> 1/imm32/rm32-is-first-inout -<span id="L31851" class="LineNr">31851 </span> 3/imm32/r32-is-first-output -<span id="L31852" class="LineNr">31852 </span> 0/imm32/no-imm32 -<span id="L31853" class="LineNr">31853 </span> 0/imm32/no-imm8 -<span id="L31854" class="LineNr">31854 </span> 0/imm32/no-disp32 -<span id="L31855" class="LineNr">31855 </span> 0/imm32/no-xm32 -<span id="L31856" class="LineNr">31856 </span> 0/imm32/no-x32 +<span id="L31849" class="LineNr">31849 </span> <a href='mu.subx.html#L31850'>_Primitive-copy-to-edx</a>/imm32/next +<span id="L31850" class="LineNr">31850 </span><span class="subxMinorFunction">_Primitive-copy-to-edx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31851" class="LineNr">31851 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31852" class="LineNr">31852 </span> <span class="subxComment"># var/edx <- copy lit => ba/copy-to-edx lit/imm32</span> +<span id="L31853" class="LineNr">31853 </span> 0x11/imm32/alloc-id:fake +<span id="L31854" class="LineNr">31854 </span> <a href='mu.subx.html#L34392'>_string-copy</a>/imm32/name +<span id="L31855" class="LineNr">31855 </span> 0x11/imm32/alloc-id:fake +<span id="L31856" class="LineNr">31856 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts <span id="L31857" class="LineNr">31857 </span> 0x11/imm32/alloc-id:fake -<span id="L31858" class="LineNr">31858 </span> <a href='mu.subx.html#L31860'>_Primitive-compare-reg-with-reg</a>/imm32/next -<span id="L31859" class="LineNr">31859 </span><span class="subxH1Comment"># - compare</span> -<span id="L31860" class="LineNr">31860 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31861" class="LineNr">31861 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31862" class="LineNr">31862 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 39/compare var1/rm32 var2/r32</span> -<span id="L31863" class="LineNr">31863 </span> 0x11/imm32/alloc-id:fake -<span id="L31864" class="LineNr">31864 </span> <a href='mu.subx.html#L34134'>_string-compare</a>/imm32/name -<span id="L31865" class="LineNr">31865 </span> 0x11/imm32/alloc-id:fake -<span id="L31866" class="LineNr">31866 </span> <span class="SpecialChar"><a href='mu.subx.html#L34967'>Two-int-args-in-regs</a></span>/imm32/inouts -<span id="L31867" class="LineNr">31867 </span> 0/imm32/no-outputs -<span id="L31868" class="LineNr">31868 </span> 0/imm32/no-outputs -<span id="L31869" class="LineNr">31869 </span> 0x11/imm32/alloc-id:fake -<span id="L31870" class="LineNr">31870 </span> <a href='mu.subx.html#L34706'>_string_39_compare-></a>/imm32/subx-name -<span id="L31871" class="LineNr">31871 </span> 1/imm32/rm32-is-first-inout -<span id="L31872" class="LineNr">31872 </span> 2/imm32/r32-is-second-inout -<span id="L31873" class="LineNr">31873 </span> 0/imm32/no-imm32 -<span id="L31874" class="LineNr">31874 </span> 0/imm32/no-imm8 -<span id="L31875" class="LineNr">31875 </span> 0/imm32/no-disp32 -<span id="L31876" class="LineNr">31876 </span> 0/imm32/no-xm32 -<span id="L31877" class="LineNr">31877 </span> 0/imm32/no-x32 -<span id="L31878" class="LineNr">31878 </span> 0x11/imm32/alloc-id:fake -<span id="L31879" class="LineNr">31879 </span> <a href='mu.subx.html#L31880'>_Primitive-compare-mem-with-reg</a>/imm32/next -<span id="L31880" class="LineNr">31880 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31881" class="LineNr">31881 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31882" class="LineNr">31882 </span> <span class="subxComment"># compare var1 var2/reg => 39/compare var1/rm32 var2/r32</span> -<span id="L31883" class="LineNr">31883 </span> 0x11/imm32/alloc-id:fake -<span id="L31884" class="LineNr">31884 </span> <a href='mu.subx.html#L34134'>_string-compare</a>/imm32/name -<span id="L31885" class="LineNr">31885 </span> 0x11/imm32/alloc-id:fake -<span id="L31886" class="LineNr">31886 </span> <span class="SpecialChar"><a href='mu.subx.html#L34960'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L31887" class="LineNr">31887 </span> 0/imm32/no-outputs -<span id="L31888" class="LineNr">31888 </span> 0/imm32/no-outputs -<span id="L31889" class="LineNr">31889 </span> 0x11/imm32/alloc-id:fake -<span id="L31890" class="LineNr">31890 </span> <a href='mu.subx.html#L34706'>_string_39_compare-></a>/imm32/subx-name -<span id="L31891" class="LineNr">31891 </span> 1/imm32/rm32-is-first-inout -<span id="L31892" class="LineNr">31892 </span> 2/imm32/r32-is-second-inout -<span id="L31893" class="LineNr">31893 </span> 0/imm32/no-imm32 -<span id="L31894" class="LineNr">31894 </span> 0/imm32/no-imm8 -<span id="L31895" class="LineNr">31895 </span> 0/imm32/no-disp32 -<span id="L31896" class="LineNr">31896 </span> 0/imm32/no-xm32 -<span id="L31897" class="LineNr">31897 </span> 0/imm32/no-x32 -<span id="L31898" class="LineNr">31898 </span> 0x11/imm32/alloc-id:fake -<span id="L31899" class="LineNr">31899 </span> <a href='mu.subx.html#L31900'>_Primitive-compare-reg-with-mem</a>/imm32/next -<span id="L31900" class="LineNr">31900 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31901" class="LineNr">31901 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31902" class="LineNr">31902 </span> <span class="subxComment"># compare var1/reg var2 => 3b/compare<- var2/rm32 var1/r32</span> -<span id="L31903" class="LineNr">31903 </span> 0x11/imm32/alloc-id:fake -<span id="L31904" class="LineNr">31904 </span> <a href='mu.subx.html#L34134'>_string-compare</a>/imm32/name -<span id="L31905" class="LineNr">31905 </span> 0x11/imm32/alloc-id:fake -<span id="L31906" class="LineNr">31906 </span> <span class="SpecialChar"><a href='mu.subx.html#L34982'>Two-args-int-reg-int-stack</a></span>/imm32/inouts -<span id="L31907" class="LineNr">31907 </span> 0/imm32/no-outputs -<span id="L31908" class="LineNr">31908 </span> 0/imm32/no-outputs -<span id="L31909" class="LineNr">31909 </span> 0x11/imm32/alloc-id:fake -<span id="L31910" class="LineNr">31910 </span> <a href='mu.subx.html#L34711'>_string_3b_compare<-</a>/imm32/subx-name -<span id="L31911" class="LineNr">31911 </span> 2/imm32/rm32-is-second-inout -<span id="L31912" class="LineNr">31912 </span> 1/imm32/r32-is-first-inout -<span id="L31913" class="LineNr">31913 </span> 0/imm32/no-imm32 -<span id="L31914" class="LineNr">31914 </span> 0/imm32/no-imm8 -<span id="L31915" class="LineNr">31915 </span> 0/imm32/no-disp32 -<span id="L31916" class="LineNr">31916 </span> 0/imm32/no-xm32 -<span id="L31917" class="LineNr">31917 </span> 0/imm32/no-x32 -<span id="L31918" class="LineNr">31918 </span> 0x11/imm32/alloc-id:fake -<span id="L31919" class="LineNr">31919 </span> <a href='mu.subx.html#L31920'>_Primitive-compare-eax-with-literal</a>/imm32/next -<span id="L31920" class="LineNr">31920 </span><span class="subxMinorFunction">_Primitive-compare-eax-with-literal</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31921" class="LineNr">31921 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31922" class="LineNr">31922 </span> <span class="subxComment"># compare var1/eax n => 3d/compare-eax-with n/imm32</span> -<span id="L31923" class="LineNr">31923 </span> 0x11/imm32/alloc-id:fake -<span id="L31924" class="LineNr">31924 </span> <a href='mu.subx.html#L34134'>_string-compare</a>/imm32/name -<span id="L31925" class="LineNr">31925 </span> 0x11/imm32/alloc-id:fake -<span id="L31926" class="LineNr">31926 </span> <span class="SpecialChar"><a href='mu.subx.html#L34989'>Two-args-int-eax-int-literal</a></span>/imm32/inouts -<span id="L31927" class="LineNr">31927 </span> 0/imm32/no-outputs -<span id="L31928" class="LineNr">31928 </span> 0/imm32/no-outputs -<span id="L31929" class="LineNr">31929 </span> 0x11/imm32/alloc-id:fake -<span id="L31930" class="LineNr">31930 </span> <a href='mu.subx.html#L34716'>_string_3d_compare_eax_with</a>/imm32/subx-name -<span id="L31931" class="LineNr">31931 </span> 0/imm32/no-rm32 -<span id="L31932" class="LineNr">31932 </span> 0/imm32/no-r32 -<span id="L31933" class="LineNr">31933 </span> 2/imm32/imm32-is-second-inout -<span id="L31934" class="LineNr">31934 </span> 0/imm32/no-imm8 -<span id="L31935" class="LineNr">31935 </span> 0/imm32/no-disp32 -<span id="L31936" class="LineNr">31936 </span> 0/imm32/no-xm32 -<span id="L31937" class="LineNr">31937 </span> 0/imm32/no-x32 -<span id="L31938" class="LineNr">31938 </span> 0x11/imm32/alloc-id:fake -<span id="L31939" class="LineNr">31939 </span> <a href='mu.subx.html#L31940'>_Primitive-compare-reg-with-literal</a>/imm32/next -<span id="L31940" class="LineNr">31940 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-literal</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31941" class="LineNr">31941 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31942" class="LineNr">31942 </span> <span class="subxComment"># compare var1/reg n => 81 7/subop/compare %reg n/imm32</span> -<span id="L31943" class="LineNr">31943 </span> 0x11/imm32/alloc-id:fake -<span id="L31944" class="LineNr">31944 </span> <a href='mu.subx.html#L34134'>_string-compare</a>/imm32/name -<span id="L31945" class="LineNr">31945 </span> 0x11/imm32/alloc-id:fake -<span id="L31946" class="LineNr">31946 </span> <span class="SpecialChar"><a href='mu.subx.html#L35003'>Int-var-in-register-and-literal</a></span>/imm32/inouts -<span id="L31947" class="LineNr">31947 </span> 0/imm32/no-outputs -<span id="L31948" class="LineNr">31948 </span> 0/imm32/no-outputs -<span id="L31949" class="LineNr">31949 </span> 0x11/imm32/alloc-id:fake -<span id="L31950" class="LineNr">31950 </span> <a href='mu.subx.html#L34806'>_string_81_subop_compare</a>/imm32/subx-name -<span id="L31951" class="LineNr">31951 </span> 1/imm32/rm32-is-first-inout -<span id="L31952" class="LineNr">31952 </span> 0/imm32/no-r32 -<span id="L31953" class="LineNr">31953 </span> 2/imm32/imm32-is-second-inout -<span id="L31954" class="LineNr">31954 </span> 0/imm32/no-imm8 -<span id="L31955" class="LineNr">31955 </span> 0/imm32/no-disp32 -<span id="L31956" class="LineNr">31956 </span> 0/imm32/no-xm32 -<span id="L31957" class="LineNr">31957 </span> 0/imm32/no-x32 -<span id="L31958" class="LineNr">31958 </span> 0x11/imm32/alloc-id:fake -<span id="L31959" class="LineNr">31959 </span> <a href='mu.subx.html#L31960'>_Primitive-compare-mem-with-literal</a>/imm32/next -<span id="L31960" class="LineNr">31960 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-literal</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31961" class="LineNr">31961 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31962" class="LineNr">31962 </span> <span class="subxComment"># compare var1 n => 81 7/subop/compare *(ebp+___) n/imm32</span> -<span id="L31963" class="LineNr">31963 </span> 0x11/imm32/alloc-id:fake -<span id="L31964" class="LineNr">31964 </span> <a href='mu.subx.html#L34134'>_string-compare</a>/imm32/name -<span id="L31965" class="LineNr">31965 </span> 0x11/imm32/alloc-id:fake -<span id="L31966" class="LineNr">31966 </span> <span class="SpecialChar"><a href='mu.subx.html#L34996'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31967" class="LineNr">31967 </span> 0/imm32/no-outputs -<span id="L31968" class="LineNr">31968 </span> 0/imm32/no-outputs -<span id="L31969" class="LineNr">31969 </span> 0x11/imm32/alloc-id:fake -<span id="L31970" class="LineNr">31970 </span> <a href='mu.subx.html#L34806'>_string_81_subop_compare</a>/imm32/subx-name -<span id="L31971" class="LineNr">31971 </span> 1/imm32/rm32-is-first-inout -<span id="L31972" class="LineNr">31972 </span> 0/imm32/no-r32 -<span id="L31973" class="LineNr">31973 </span> 2/imm32/imm32-is-second-inout -<span id="L31974" class="LineNr">31974 </span> 0/imm32/no-imm8 -<span id="L31975" class="LineNr">31975 </span> 0/imm32/no-disp32 -<span id="L31976" class="LineNr">31976 </span> 0/imm32/no-xm32 -<span id="L31977" class="LineNr">31977 </span> 0/imm32/no-x32 -<span id="L31978" class="LineNr">31978 </span> 0x11/imm32/alloc-id:fake -<span id="L31979" class="LineNr">31979 </span> <a href='mu.subx.html#L31981'>_Primitive-negate-reg</a>/imm32/next -<span id="L31980" class="LineNr">31980 </span><span class="subxH1Comment"># - negate</span> -<span id="L31981" class="LineNr">31981 </span><span class="subxMinorFunction">_Primitive-negate-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31982" class="LineNr">31982 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31983" class="LineNr">31983 </span> <span class="subxComment"># var1/reg <- negate => f7 3/subop/negate var1/rm32</span> -<span id="L31984" class="LineNr">31984 </span> 0x11/imm32/alloc-id:fake -<span id="L31985" class="LineNr">31985 </span> <a href='mu.subx.html#L34314'>_string-negate</a>/imm32/name -<span id="L31986" class="LineNr">31986 </span> 0/imm32/no-inouts -<span id="L31987" class="LineNr">31987 </span> 0/imm32/no-inouts +<span id="L31858" class="LineNr">31858 </span> <span class="SpecialChar"><a href='mu.subx.html#L35380'>Single-int-var-in-edx</a></span>/imm32/outputs +<span id="L31859" class="LineNr">31859 </span> 0x11/imm32/alloc-id:fake +<span id="L31860" class="LineNr">31860 </span> <a href='mu.subx.html#L35099'>_string_ba_copy_to_edx</a>/imm32/subx-name +<span id="L31861" class="LineNr">31861 </span> 0/imm32/no-rm32 +<span id="L31862" class="LineNr">31862 </span> 0/imm32/no-r32 +<span id="L31863" class="LineNr">31863 </span> 1/imm32/imm32-is-first-inout +<span id="L31864" class="LineNr">31864 </span> 0/imm32/no-imm8 +<span id="L31865" class="LineNr">31865 </span> 0/imm32/no-disp32 +<span id="L31866" class="LineNr">31866 </span> 0/imm32/no-xm32 +<span id="L31867" class="LineNr">31867 </span> 0/imm32/no-x32 +<span id="L31868" class="LineNr">31868 </span> 0x11/imm32/alloc-id:fake +<span id="L31869" class="LineNr">31869 </span> <a href='mu.subx.html#L31870'>_Primitive-copy-to-ebx</a>/imm32/next +<span id="L31870" class="LineNr">31870 </span><span class="subxMinorFunction">_Primitive-copy-to-ebx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31871" class="LineNr">31871 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31872" class="LineNr">31872 </span> <span class="subxComment"># var/ebx <- copy lit => bb/copy-to-ebx lit/imm32</span> +<span id="L31873" class="LineNr">31873 </span> 0x11/imm32/alloc-id:fake +<span id="L31874" class="LineNr">31874 </span> <a href='mu.subx.html#L34392'>_string-copy</a>/imm32/name +<span id="L31875" class="LineNr">31875 </span> 0x11/imm32/alloc-id:fake +<span id="L31876" class="LineNr">31876 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L31877" class="LineNr">31877 </span> 0x11/imm32/alloc-id:fake +<span id="L31878" class="LineNr">31878 </span> <span class="SpecialChar"><a href='mu.subx.html#L35398'>Single-int-var-in-ebx</a></span>/imm32/outputs +<span id="L31879" class="LineNr">31879 </span> 0x11/imm32/alloc-id:fake +<span id="L31880" class="LineNr">31880 </span> <a href='mu.subx.html#L35104'>_string_bb_copy_to_ebx</a>/imm32/subx-name +<span id="L31881" class="LineNr">31881 </span> 0/imm32/no-rm32 +<span id="L31882" class="LineNr">31882 </span> 0/imm32/no-r32 +<span id="L31883" class="LineNr">31883 </span> 1/imm32/imm32-is-first-inout +<span id="L31884" class="LineNr">31884 </span> 0/imm32/no-imm8 +<span id="L31885" class="LineNr">31885 </span> 0/imm32/no-disp32 +<span id="L31886" class="LineNr">31886 </span> 0/imm32/no-xm32 +<span id="L31887" class="LineNr">31887 </span> 0/imm32/no-x32 +<span id="L31888" class="LineNr">31888 </span> 0x11/imm32/alloc-id:fake +<span id="L31889" class="LineNr">31889 </span> <a href='mu.subx.html#L31890'>_Primitive-copy-to-esi</a>/imm32/next +<span id="L31890" class="LineNr">31890 </span><span class="subxMinorFunction">_Primitive-copy-to-esi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31891" class="LineNr">31891 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31892" class="LineNr">31892 </span> <span class="subxComment"># var/esi <- copy lit => be/copy-to-esi lit/imm32</span> +<span id="L31893" class="LineNr">31893 </span> 0x11/imm32/alloc-id:fake +<span id="L31894" class="LineNr">31894 </span> <a href='mu.subx.html#L34392'>_string-copy</a>/imm32/name +<span id="L31895" class="LineNr">31895 </span> 0x11/imm32/alloc-id:fake +<span id="L31896" class="LineNr">31896 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L31897" class="LineNr">31897 </span> 0x11/imm32/alloc-id:fake +<span id="L31898" class="LineNr">31898 </span> <span class="SpecialChar"><a href='mu.subx.html#L35416'>Single-int-var-in-esi</a></span>/imm32/outputs +<span id="L31899" class="LineNr">31899 </span> 0x11/imm32/alloc-id:fake +<span id="L31900" class="LineNr">31900 </span> <a href='mu.subx.html#L35109'>_string_be_copy_to_esi</a>/imm32/subx-name +<span id="L31901" class="LineNr">31901 </span> 0/imm32/no-rm32 +<span id="L31902" class="LineNr">31902 </span> 0/imm32/no-r32 +<span id="L31903" class="LineNr">31903 </span> 1/imm32/imm32-is-first-inout +<span id="L31904" class="LineNr">31904 </span> 0/imm32/no-imm8 +<span id="L31905" class="LineNr">31905 </span> 0/imm32/no-disp32 +<span id="L31906" class="LineNr">31906 </span> 0/imm32/no-xm32 +<span id="L31907" class="LineNr">31907 </span> 0/imm32/no-x32 +<span id="L31908" class="LineNr">31908 </span> 0x11/imm32/alloc-id:fake +<span id="L31909" class="LineNr">31909 </span> <a href='mu.subx.html#L31910'>_Primitive-copy-to-edi</a>/imm32/next +<span id="L31910" class="LineNr">31910 </span><span class="subxMinorFunction">_Primitive-copy-to-edi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31911" class="LineNr">31911 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31912" class="LineNr">31912 </span> <span class="subxComment"># var/edi <- copy lit => bf/copy-to-edi lit/imm32</span> +<span id="L31913" class="LineNr">31913 </span> 0x11/imm32/alloc-id:fake +<span id="L31914" class="LineNr">31914 </span> <a href='mu.subx.html#L34392'>_string-copy</a>/imm32/name +<span id="L31915" class="LineNr">31915 </span> 0x11/imm32/alloc-id:fake +<span id="L31916" class="LineNr">31916 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L31917" class="LineNr">31917 </span> 0x11/imm32/alloc-id:fake +<span id="L31918" class="LineNr">31918 </span> <span class="SpecialChar"><a href='mu.subx.html#L35434'>Single-int-var-in-edi</a></span>/imm32/outputs +<span id="L31919" class="LineNr">31919 </span> 0x11/imm32/alloc-id:fake +<span id="L31920" class="LineNr">31920 </span> <a href='mu.subx.html#L35114'>_string_bf_copy_to_edi</a>/imm32/subx-name +<span id="L31921" class="LineNr">31921 </span> 0/imm32/no-rm32 +<span id="L31922" class="LineNr">31922 </span> 0/imm32/no-r32 +<span id="L31923" class="LineNr">31923 </span> 1/imm32/imm32-is-first-inout +<span id="L31924" class="LineNr">31924 </span> 0/imm32/no-imm8 +<span id="L31925" class="LineNr">31925 </span> 0/imm32/no-disp32 +<span id="L31926" class="LineNr">31926 </span> 0/imm32/no-xm32 +<span id="L31927" class="LineNr">31927 </span> 0/imm32/no-x32 +<span id="L31928" class="LineNr">31928 </span> 0x11/imm32/alloc-id:fake +<span id="L31929" class="LineNr">31929 </span> <a href='mu.subx.html#L31930'>_Primitive-copy-reg-to-reg</a>/imm32/next +<span id="L31930" class="LineNr">31930 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31931" class="LineNr">31931 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31932" class="LineNr">31932 </span> <span class="subxComment"># var1/reg <- copy var2/reg => 89/<- var1/rm32 var2/r32</span> +<span id="L31933" class="LineNr">31933 </span> 0x11/imm32/alloc-id:fake +<span id="L31934" class="LineNr">31934 </span> <a href='mu.subx.html#L34392'>_string-copy</a>/imm32/name +<span id="L31935" class="LineNr">31935 </span> 0x11/imm32/alloc-id:fake +<span id="L31936" class="LineNr">31936 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L31937" class="LineNr">31937 </span> 0x11/imm32/alloc-id:fake +<span id="L31938" class="LineNr">31938 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31939" class="LineNr">31939 </span> 0x11/imm32/alloc-id:fake +<span id="L31940" class="LineNr">31940 </span> <a href='mu.subx.html#L35064'>_string_89_<-</a>/imm32/subx-name +<span id="L31941" class="LineNr">31941 </span> 3/imm32/rm32-is-first-output +<span id="L31942" class="LineNr">31942 </span> 1/imm32/r32-is-first-inout +<span id="L31943" class="LineNr">31943 </span> 0/imm32/no-imm32 +<span id="L31944" class="LineNr">31944 </span> 0/imm32/no-imm8 +<span id="L31945" class="LineNr">31945 </span> 0/imm32/no-disp32 +<span id="L31946" class="LineNr">31946 </span> 0/imm32/no-xm32 +<span id="L31947" class="LineNr">31947 </span> 0/imm32/no-x32 +<span id="L31948" class="LineNr">31948 </span> 0x11/imm32/alloc-id:fake +<span id="L31949" class="LineNr">31949 </span> <a href='mu.subx.html#L31950'>_Primitive-copy-reg-to-mem</a>/imm32/next +<span id="L31950" class="LineNr">31950 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31951" class="LineNr">31951 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31952" class="LineNr">31952 </span> <span class="subxComment"># copy-to var1 var2/reg => 89/<- var1 var2/r32</span> +<span id="L31953" class="LineNr">31953 </span> 0x11/imm32/alloc-id:fake +<span id="L31954" class="LineNr">31954 </span> <a href='mu.subx.html#L34397'>_string-copy-to</a>/imm32/name +<span id="L31955" class="LineNr">31955 </span> 0x11/imm32/alloc-id:fake +<span id="L31956" class="LineNr">31956 </span> <span class="SpecialChar"><a href='mu.subx.html#L35213'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L31957" class="LineNr">31957 </span> 0/imm32/no-outputs +<span id="L31958" class="LineNr">31958 </span> 0/imm32/no-outputs +<span id="L31959" class="LineNr">31959 </span> 0x11/imm32/alloc-id:fake +<span id="L31960" class="LineNr">31960 </span> <a href='mu.subx.html#L35064'>_string_89_<-</a>/imm32/subx-name +<span id="L31961" class="LineNr">31961 </span> 1/imm32/rm32-is-first-inout +<span id="L31962" class="LineNr">31962 </span> 2/imm32/r32-is-second-inout +<span id="L31963" class="LineNr">31963 </span> 0/imm32/no-imm32 +<span id="L31964" class="LineNr">31964 </span> 0/imm32/no-imm8 +<span id="L31965" class="LineNr">31965 </span> 0/imm32/no-disp32 +<span id="L31966" class="LineNr">31966 </span> 0/imm32/no-xm32 +<span id="L31967" class="LineNr">31967 </span> 0/imm32/no-x32 +<span id="L31968" class="LineNr">31968 </span> 0x11/imm32/alloc-id:fake +<span id="L31969" class="LineNr">31969 </span> <a href='mu.subx.html#L31970'>_Primitive-copy-mem-to-reg</a>/imm32/next +<span id="L31970" class="LineNr">31970 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31971" class="LineNr">31971 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31972" class="LineNr">31972 </span> <span class="subxComment"># var1/reg <- copy var2 => 8b/-> var2/rm32 var1/r32</span> +<span id="L31973" class="LineNr">31973 </span> 0x11/imm32/alloc-id:fake +<span id="L31974" class="LineNr">31974 </span> <a href='mu.subx.html#L34392'>_string-copy</a>/imm32/name +<span id="L31975" class="LineNr">31975 </span> 0x11/imm32/alloc-id:fake +<span id="L31976" class="LineNr">31976 </span> <span class="SpecialChar"><a href='mu.subx.html#L35175'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31977" class="LineNr">31977 </span> 0x11/imm32/alloc-id:fake +<span id="L31978" class="LineNr">31978 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31979" class="LineNr">31979 </span> 0x11/imm32/alloc-id:fake +<span id="L31980" class="LineNr">31980 </span> <a href='mu.subx.html#L35069'>_string_8b_-></a>/imm32/subx-name +<span id="L31981" class="LineNr">31981 </span> 1/imm32/rm32-is-first-inout +<span id="L31982" class="LineNr">31982 </span> 3/imm32/r32-is-first-output +<span id="L31983" class="LineNr">31983 </span> 0/imm32/no-imm32 +<span id="L31984" class="LineNr">31984 </span> 0/imm32/no-imm8 +<span id="L31985" class="LineNr">31985 </span> 0/imm32/no-disp32 +<span id="L31986" class="LineNr">31986 </span> 0/imm32/no-xm32 +<span id="L31987" class="LineNr">31987 </span> 0/imm32/no-x32 <span id="L31988" class="LineNr">31988 </span> 0x11/imm32/alloc-id:fake -<span id="L31989" class="LineNr">31989 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31990" class="LineNr">31990 </span> 0x11/imm32/alloc-id:fake -<span id="L31991" class="LineNr">31991 </span> <a href='mu.subx.html#L34886'>_string_f7_subop_negate</a>/imm32/subx-name -<span id="L31992" class="LineNr">31992 </span> 3/imm32/rm32-is-first-output -<span id="L31993" class="LineNr">31993 </span> 0/imm32/no-r32 -<span id="L31994" class="LineNr">31994 </span> 0/imm32/no-imm32 -<span id="L31995" class="LineNr">31995 </span> 0/imm32/no-imm8 -<span id="L31996" class="LineNr">31996 </span> 0/imm32/no-disp32 -<span id="L31997" class="LineNr">31997 </span> 0/imm32/no-xm32 -<span id="L31998" class="LineNr">31998 </span> 0/imm32/no-x32 +<span id="L31989" class="LineNr">31989 </span> <a href='mu.subx.html#L31990'>_Primitive-copy-lit-to-reg</a>/imm32/next +<span id="L31990" class="LineNr">31990 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31991" class="LineNr">31991 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31992" class="LineNr">31992 </span> <span class="subxComment"># var1/reg <- copy lit => c7 0/subop/copy var1/rm32 lit/imm32</span> +<span id="L31993" class="LineNr">31993 </span> 0x11/imm32/alloc-id:fake +<span id="L31994" class="LineNr">31994 </span> <a href='mu.subx.html#L34392'>_string-copy</a>/imm32/name +<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#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L31997" class="LineNr">31997 </span> 0x11/imm32/alloc-id:fake +<span id="L31998" class="LineNr">31998 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L31999" class="LineNr">31999 </span> 0x11/imm32/alloc-id:fake -<span id="L32000" class="LineNr">32000 </span> <a href='mu.subx.html#L32001'>_Primitive-negate-mem</a>/imm32/next -<span id="L32001" class="LineNr">32001 </span><span class="subxMinorFunction">_Primitive-negate-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32002" class="LineNr">32002 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32003" class="LineNr">32003 </span> <span class="subxComment"># negate var1 => f7 3/subop/negate var1/rm32</span> -<span id="L32004" class="LineNr">32004 </span> 0x11/imm32/alloc-id:fake -<span id="L32005" class="LineNr">32005 </span> <a href='mu.subx.html#L34314'>_string-negate</a>/imm32/name -<span id="L32006" class="LineNr">32006 </span> 0x11/imm32/alloc-id:fake -<span id="L32007" class="LineNr">32007 </span> <span class="SpecialChar"><a href='mu.subx.html#L34922'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L32008" class="LineNr">32008 </span> 0/imm32/no-outputs -<span id="L32009" class="LineNr">32009 </span> 0/imm32/no-outputs -<span id="L32010" class="LineNr">32010 </span> 0x11/imm32/alloc-id:fake -<span id="L32011" class="LineNr">32011 </span> <a href='mu.subx.html#L34886'>_string_f7_subop_negate</a>/imm32/subx-name -<span id="L32012" class="LineNr">32012 </span> 1/imm32/rm32-is-first-inout -<span id="L32013" class="LineNr">32013 </span> 0/imm32/no-r32 -<span id="L32014" class="LineNr">32014 </span> 0/imm32/no-imm32 -<span id="L32015" class="LineNr">32015 </span> 0/imm32/no-imm8 -<span id="L32016" class="LineNr">32016 </span> 0/imm32/no-disp32 -<span id="L32017" class="LineNr">32017 </span> 0/imm32/no-xm32 -<span id="L32018" class="LineNr">32018 </span> 0/imm32/no-x32 +<span id="L32000" class="LineNr">32000 </span> <a href='mu.subx.html#L35119'>_string_c7_subop_copy</a>/imm32/subx-name +<span id="L32001" class="LineNr">32001 </span> 3/imm32/rm32-is-first-output +<span id="L32002" class="LineNr">32002 </span> 0/imm32/no-r32 +<span id="L32003" class="LineNr">32003 </span> 1/imm32/imm32-is-first-inout +<span id="L32004" class="LineNr">32004 </span> 0/imm32/no-imm8 +<span id="L32005" class="LineNr">32005 </span> 0/imm32/no-disp32 +<span id="L32006" class="LineNr">32006 </span> 0/imm32/no-xm32 +<span id="L32007" class="LineNr">32007 </span> 0/imm32/no-x32 +<span id="L32008" class="LineNr">32008 </span> 0x11/imm32/alloc-id:fake +<span id="L32009" class="LineNr">32009 </span> <a href='mu.subx.html#L32010'>_Primitive-copy-lit-to-mem</a>/imm32/next +<span id="L32010" class="LineNr">32010 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32011" class="LineNr">32011 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32012" class="LineNr">32012 </span> <span class="subxComment"># copy-to var1, lit => c7 0/subop/copy var1/rm32 lit/imm32</span> +<span id="L32013" class="LineNr">32013 </span> 0x11/imm32/alloc-id:fake +<span id="L32014" class="LineNr">32014 </span> <a href='mu.subx.html#L34397'>_string-copy-to</a>/imm32/name +<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#L35249'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L32017" class="LineNr">32017 </span> 0/imm32/no-outputs +<span id="L32018" class="LineNr">32018 </span> 0/imm32/no-outputs <span id="L32019" class="LineNr">32019 </span> 0x11/imm32/alloc-id:fake -<span id="L32020" class="LineNr">32020 </span> <a href='mu.subx.html#L32022'>_Primitive-multiply-reg-by-reg</a>/imm32/next -<span id="L32021" class="LineNr">32021 </span><span class="subxH1Comment"># - multiply</span> -<span id="L32022" class="LineNr">32022 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32023" class="LineNr">32023 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32024" class="LineNr">32024 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> -<span id="L32025" class="LineNr">32025 </span> 0x11/imm32/alloc-id:fake -<span id="L32026" class="LineNr">32026 </span> <a href='mu.subx.html#L34264'>_string-multiply</a>/imm32/name -<span id="L32027" class="LineNr">32027 </span> 0x11/imm32/alloc-id:fake -<span id="L32028" class="LineNr">32028 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L32029" class="LineNr">32029 </span> 0x11/imm32/alloc-id:fake -<span id="L32030" class="LineNr">32030 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L32031" class="LineNr">32031 </span> 0x11/imm32/alloc-id:fake -<span id="L32032" class="LineNr">32032 </span> <a href='mu.subx.html#L34581'>_string_0f_af_multiply</a>/imm32/subx-name -<span id="L32033" class="LineNr">32033 </span> 1/imm32/rm32-is-first-inout -<span id="L32034" class="LineNr">32034 </span> 3/imm32/r32-is-first-output -<span id="L32035" class="LineNr">32035 </span> 0/imm32/no-imm32 -<span id="L32036" class="LineNr">32036 </span> 0/imm32/no-imm8 -<span id="L32037" class="LineNr">32037 </span> 0/imm32/no-disp32 -<span id="L32038" class="LineNr">32038 </span> 0/imm32/no-xm32 -<span id="L32039" class="LineNr">32039 </span> 0/imm32/no-x32 +<span id="L32020" class="LineNr">32020 </span> <a href='mu.subx.html#L35119'>_string_c7_subop_copy</a>/imm32/subx-name +<span id="L32021" class="LineNr">32021 </span> 1/imm32/rm32-is-first-inout +<span id="L32022" class="LineNr">32022 </span> 0/imm32/no-r32 +<span id="L32023" class="LineNr">32023 </span> 2/imm32/imm32-is-second-inout +<span id="L32024" class="LineNr">32024 </span> 0/imm32/no-imm8 +<span id="L32025" class="LineNr">32025 </span> 0/imm32/no-disp32 +<span id="L32026" class="LineNr">32026 </span> 0/imm32/no-xm32 +<span id="L32027" class="LineNr">32027 </span> 0/imm32/no-x32 +<span id="L32028" class="LineNr">32028 </span> 0x11/imm32/alloc-id:fake +<span id="L32029" class="LineNr">32029 </span> <a href='mu.subx.html#L32031'>_Primitive-copy-byte-from-reg</a>/imm32/next +<span id="L32030" class="LineNr">32030 </span><span class="subxH1Comment"># - copy byte</span> +<span id="L32031" class="LineNr">32031 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-reg</span>: +<span id="L32032" class="LineNr">32032 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32033" class="LineNr">32033 </span> <span class="subxComment"># var/reg <- copy-byte var2/reg2 => 8a/byte-> %var2 var/r32</span> +<span id="L32034" class="LineNr">32034 </span> 0x11/imm32/alloc-id:fake +<span id="L32035" class="LineNr">32035 </span> <a href='mu.subx.html#L34402'>_string-copy-byte</a>/imm32/name +<span id="L32036" class="LineNr">32036 </span> 0x11/imm32/alloc-id:fake +<span id="L32037" class="LineNr">32037 </span> <span class="SpecialChar"><a href='mu.subx.html#L35298'>Single-byte-var-in-some-register</a></span>/imm32/inouts +<span id="L32038" class="LineNr">32038 </span> 0x11/imm32/alloc-id:fake +<span id="L32039" class="LineNr">32039 </span> <span class="SpecialChar"><a href='mu.subx.html#L35298'>Single-byte-var-in-some-register</a></span>/imm32/outputs <span id="L32040" class="LineNr">32040 </span> 0x11/imm32/alloc-id:fake -<span id="L32041" class="LineNr">32041 </span> <a href='mu.subx.html#L32042'>_Primitive-multiply-reg-by-mem</a>/imm32/next -<span id="L32042" class="LineNr">32042 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32043" class="LineNr">32043 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32044" class="LineNr">32044 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> -<span id="L32045" class="LineNr">32045 </span> 0x11/imm32/alloc-id:fake -<span id="L32046" class="LineNr">32046 </span> <a href='mu.subx.html#L34264'>_string-multiply</a>/imm32/name -<span id="L32047" class="LineNr">32047 </span> 0x11/imm32/alloc-id:fake -<span id="L32048" class="LineNr">32048 </span> <span class="SpecialChar"><a href='mu.subx.html#L34922'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L32041" class="LineNr">32041 </span> <a href='mu.subx.html#L35074'>_string_8a_copy_byte</a>/imm32/subx-name +<span id="L32042" class="LineNr">32042 </span> 1/imm32/rm32-is-first-inout +<span id="L32043" class="LineNr">32043 </span> 3/imm32/r32-is-first-output +<span id="L32044" class="LineNr">32044 </span> 0/imm32/no-imm32 +<span id="L32045" class="LineNr">32045 </span> 0/imm32/no-imm8 +<span id="L32046" class="LineNr">32046 </span> 0/imm32/no-disp32 +<span id="L32047" class="LineNr">32047 </span> 0/imm32/no-xm32 +<span id="L32048" class="LineNr">32048 </span> 0/imm32/no-x32 <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#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L32051" class="LineNr">32051 </span> 0x11/imm32/alloc-id:fake -<span id="L32052" class="LineNr">32052 </span> <a href='mu.subx.html#L34581'>_string_0f_af_multiply</a>/imm32/subx-name -<span id="L32053" class="LineNr">32053 </span> 1/imm32/rm32-is-first-inout -<span id="L32054" class="LineNr">32054 </span> 3/imm32/r32-is-first-output -<span id="L32055" class="LineNr">32055 </span> 0/imm32/no-imm32 -<span id="L32056" class="LineNr">32056 </span> 0/imm32/no-imm8 -<span id="L32057" class="LineNr">32057 </span> 0/imm32/no-disp32 -<span id="L32058" class="LineNr">32058 </span> 0/imm32/no-xm32 -<span id="L32059" class="LineNr">32059 </span> 0/imm32/no-x32 +<span id="L32050" class="LineNr">32050 </span> <a href='mu.subx.html#L32051'>_Primitive-copy-byte-from-mem</a>/imm32/next +<span id="L32051" class="LineNr">32051 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-mem</span>: +<span id="L32052" class="LineNr">32052 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32053" class="LineNr">32053 </span> <span class="subxComment"># var/reg <- copy-byte *var2/reg2 => 8a/byte-> *var2 var/r32</span> +<span id="L32054" class="LineNr">32054 </span> 0x11/imm32/alloc-id:fake +<span id="L32055" class="LineNr">32055 </span> <a href='mu.subx.html#L34402'>_string-copy-byte</a>/imm32/name +<span id="L32056" class="LineNr">32056 </span> 0x11/imm32/alloc-id:fake +<span id="L32057" class="LineNr">32057 </span> <span class="SpecialChar"><a href='mu.subx.html#L35194'>Single-byte-var-in-mem</a></span>/imm32/inouts +<span id="L32058" class="LineNr">32058 </span> 0x11/imm32/alloc-id:fake +<span id="L32059" class="LineNr">32059 </span> <span class="SpecialChar"><a href='mu.subx.html#L35298'>Single-byte-var-in-some-register</a></span>/imm32/outputs <span id="L32060" class="LineNr">32060 </span> 0x11/imm32/alloc-id:fake -<span id="L32061" class="LineNr">32061 </span> <a href='mu.subx.html#L32063'>_Primitive-convert-mem-to-xreg</a>/imm32/next -<span id="L32062" class="LineNr">32062 </span><span class="subxH1Comment"># - convert int to floating point</span> -<span id="L32063" class="LineNr">32063 </span><span class="subxMinorFunction">_Primitive-convert-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32064" class="LineNr">32064 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32065" class="LineNr">32065 </span> <span class="subxComment"># var1/xreg <- convert var2 => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> -<span id="L32066" class="LineNr">32066 </span> 0x11/imm32/alloc-id:fake -<span id="L32067" class="LineNr">32067 </span> <a href='mu.subx.html#L34269'>_string-convert</a>/imm32/name -<span id="L32068" class="LineNr">32068 </span> 0x11/imm32/alloc-id:fake -<span id="L32069" class="LineNr">32069 </span> <span class="SpecialChar"><a href='mu.subx.html#L34922'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L32070" class="LineNr">32070 </span> 0x11/imm32/alloc-id:fake -<span id="L32071" class="LineNr">32071 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32072" class="LineNr">32072 </span> 0x11/imm32/alloc-id:fake -<span id="L32073" class="LineNr">32073 </span> <a href='mu.subx.html#L34586'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name -<span id="L32074" class="LineNr">32074 </span> 1/imm32/rm32-is-first-inout -<span id="L32075" class="LineNr">32075 </span> 0/imm32/no-r32 -<span id="L32076" class="LineNr">32076 </span> 0/imm32/no-imm32 -<span id="L32077" class="LineNr">32077 </span> 0/imm32/no-imm8 -<span id="L32078" class="LineNr">32078 </span> 0/imm32/no-disp32 -<span id="L32079" class="LineNr">32079 </span> 0/imm32/no-xm32 -<span id="L32080" class="LineNr">32080 </span> 3/imm32/x32-is-first-output -<span id="L32081" class="LineNr">32081 </span> 0x11/imm32/alloc-id:fake -<span id="L32082" class="LineNr">32082 </span> <a href='mu.subx.html#L32083'>_Primitive-convert-reg-to-xreg</a>/imm32/next -<span id="L32083" class="LineNr">32083 </span><span class="subxMinorFunction">_Primitive-convert-reg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32084" class="LineNr">32084 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32085" class="LineNr">32085 </span> <span class="subxComment"># var1/xreg <- convert var2/reg => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> -<span id="L32086" class="LineNr">32086 </span> 0x11/imm32/alloc-id:fake -<span id="L32087" class="LineNr">32087 </span> <a href='mu.subx.html#L34269'>_string-convert</a>/imm32/name -<span id="L32088" class="LineNr">32088 </span> 0x11/imm32/alloc-id:fake -<span id="L32089" class="LineNr">32089 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L32090" class="LineNr">32090 </span> 0x11/imm32/alloc-id:fake -<span id="L32091" class="LineNr">32091 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32092" class="LineNr">32092 </span> 0x11/imm32/alloc-id:fake -<span id="L32093" class="LineNr">32093 </span> <a href='mu.subx.html#L34586'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name -<span id="L32094" class="LineNr">32094 </span> 1/imm32/rm32-is-first-inout -<span id="L32095" class="LineNr">32095 </span> 0/imm32/no-r32 -<span id="L32096" class="LineNr">32096 </span> 0/imm32/no-imm32 -<span id="L32097" class="LineNr">32097 </span> 0/imm32/no-imm8 -<span id="L32098" class="LineNr">32098 </span> 0/imm32/no-disp32 -<span id="L32099" class="LineNr">32099 </span> 0/imm32/no-xm32 -<span id="L32100" class="LineNr">32100 </span> 3/imm32/x32-is-first-output +<span id="L32061" class="LineNr">32061 </span> <a href='mu.subx.html#L35074'>_string_8a_copy_byte</a>/imm32/subx-name +<span id="L32062" class="LineNr">32062 </span> 1/imm32/rm32-is-first-inout +<span id="L32063" class="LineNr">32063 </span> 3/imm32/r32-is-first-output +<span id="L32064" class="LineNr">32064 </span> 0/imm32/no-imm32 +<span id="L32065" class="LineNr">32065 </span> 0/imm32/no-imm8 +<span id="L32066" class="LineNr">32066 </span> 0/imm32/no-disp32 +<span id="L32067" class="LineNr">32067 </span> 0/imm32/no-xm32 +<span id="L32068" class="LineNr">32068 </span> 0/imm32/no-x32 +<span id="L32069" class="LineNr">32069 </span> 0x11/imm32/alloc-id:fake +<span id="L32070" class="LineNr">32070 </span> <a href='mu.subx.html#L32071'>_Primitive-copy-byte-to-mem</a>/imm32/next +<span id="L32071" class="LineNr">32071 </span><span class="subxMinorFunction">_Primitive-copy-byte-to-mem</span>: +<span id="L32072" class="LineNr">32072 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32073" class="LineNr">32073 </span> <span class="subxComment"># copy-byte-to *var1/reg1, var2/reg2 => 88/byte<- *reg1 reg2/r32</span> +<span id="L32074" class="LineNr">32074 </span> 0x11/imm32/alloc-id:fake +<span id="L32075" class="LineNr">32075 </span> <a href='mu.subx.html#L34407'>_string-copy-byte-to</a>/imm32/name +<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#L35228'>Two-args-byte-stack-byte-reg</a></span>/imm32/inouts +<span id="L32078" class="LineNr">32078 </span> 0/imm32/no-outputs +<span id="L32079" class="LineNr">32079 </span> 0/imm32/no-outputs +<span id="L32080" class="LineNr">32080 </span> 0x11/imm32/alloc-id:fake +<span id="L32081" class="LineNr">32081 </span> <a href='mu.subx.html#L35079'>_string_88_copy_byte</a>/imm32/subx-name +<span id="L32082" class="LineNr">32082 </span> 1/imm32/rm32-is-first-inout +<span id="L32083" class="LineNr">32083 </span> 2/imm32/r32-is-second-inout +<span id="L32084" class="LineNr">32084 </span> 0/imm32/no-imm32 +<span id="L32085" class="LineNr">32085 </span> 0/imm32/no-imm8 +<span id="L32086" class="LineNr">32086 </span> 0/imm32/no-disp32 +<span id="L32087" class="LineNr">32087 </span> 0/imm32/no-xm32 +<span id="L32088" class="LineNr">32088 </span> 0/imm32/no-x32 +<span id="L32089" class="LineNr">32089 </span> 0x11/imm32/alloc-id:fake +<span id="L32090" class="LineNr">32090 </span> <a href='mu.subx.html#L32092'>_Primitive-address</a>/imm32/next +<span id="L32091" class="LineNr">32091 </span><span class="subxH1Comment"># - address</span> +<span id="L32092" class="LineNr">32092 </span><span class="subxMinorFunction">_Primitive-address</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32093" class="LineNr">32093 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32094" class="LineNr">32094 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> +<span id="L32095" class="LineNr">32095 </span> 0x11/imm32/alloc-id:fake +<span id="L32096" class="LineNr">32096 </span> <a href='mu.subx.html#L34272'>_string-address</a>/imm32/name +<span id="L32097" class="LineNr">32097 </span> 0x11/imm32/alloc-id:fake +<span id="L32098" class="LineNr">32098 </span> <span class="SpecialChar"><a href='mu.subx.html#L35175'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L32099" class="LineNr">32099 </span> 0x11/imm32/alloc-id:fake +<span id="L32100" class="LineNr">32100 </span> <span class="SpecialChar"><a href='mu.subx.html#L35291'>Single-addr-var-in-some-register</a></span>/imm32/outputs <span id="L32101" class="LineNr">32101 </span> 0x11/imm32/alloc-id:fake -<span id="L32102" class="LineNr">32102 </span> <a href='mu.subx.html#L32104'>_Primitive-convert-xmem-to-reg</a>/imm32/next -<span id="L32103" class="LineNr">32103 </span><span class="subxH1Comment"># - convert floating point to int</span> -<span id="L32104" class="LineNr">32104 </span><span class="subxMinorFunction">_Primitive-convert-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32105" class="LineNr">32105 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32106" class="LineNr">32106 </span> <span class="subxComment"># var1/reg <- convert var2 => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> -<span id="L32107" class="LineNr">32107 </span> 0x11/imm32/alloc-id:fake -<span id="L32108" class="LineNr">32108 </span> <a href='mu.subx.html#L34269'>_string-convert</a>/imm32/name -<span id="L32109" class="LineNr">32109 </span> 0x11/imm32/alloc-id:fake -<span id="L32110" class="LineNr">32110 </span> <span class="SpecialChar"><a href='mu.subx.html#L35217'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32111" class="LineNr">32111 </span> 0x11/imm32/alloc-id:fake -<span id="L32112" class="LineNr">32112 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L32113" class="LineNr">32113 </span> 0x11/imm32/alloc-id:fake -<span id="L32114" class="LineNr">32114 </span> <a href='mu.subx.html#L34591'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name -<span id="L32115" class="LineNr">32115 </span> 0/imm32/no-rm32 -<span id="L32116" class="LineNr">32116 </span> 3/imm32/r32-is-first-output -<span id="L32117" class="LineNr">32117 </span> 0/imm32/no-imm32 -<span id="L32118" class="LineNr">32118 </span> 0/imm32/no-imm8 -<span id="L32119" class="LineNr">32119 </span> 0/imm32/no-disp32 -<span id="L32120" class="LineNr">32120 </span> 1/imm32/xm32-is-first-inout -<span id="L32121" class="LineNr">32121 </span> 0/imm32/no-x32 +<span id="L32102" class="LineNr">32102 </span> <a href='mu.subx.html#L35084'>_string_8d_copy_address</a>/imm32/subx-name +<span id="L32103" class="LineNr">32103 </span> 1/imm32/rm32-is-first-inout +<span id="L32104" class="LineNr">32104 </span> 3/imm32/r32-is-first-output +<span id="L32105" class="LineNr">32105 </span> 0/imm32/no-imm32 +<span id="L32106" class="LineNr">32106 </span> 0/imm32/no-imm8 +<span id="L32107" class="LineNr">32107 </span> 0/imm32/no-disp32 +<span id="L32108" class="LineNr">32108 </span> 0/imm32/no-xm32 +<span id="L32109" class="LineNr">32109 </span> 0/imm32/no-x32 +<span id="L32110" class="LineNr">32110 </span> 0x11/imm32/alloc-id:fake +<span id="L32111" class="LineNr">32111 </span> <a href='mu.subx.html#L32113'>_Primitive-compare-reg-with-reg</a>/imm32/next +<span id="L32112" class="LineNr">32112 </span><span class="subxH1Comment"># - compare</span> +<span id="L32113" class="LineNr">32113 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32114" class="LineNr">32114 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32115" class="LineNr">32115 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 39/compare var1/rm32 var2/r32</span> +<span id="L32116" class="LineNr">32116 </span> 0x11/imm32/alloc-id:fake +<span id="L32117" class="LineNr">32117 </span> <a href='mu.subx.html#L34387'>_string-compare</a>/imm32/name +<span id="L32118" class="LineNr">32118 </span> 0x11/imm32/alloc-id:fake +<span id="L32119" class="LineNr">32119 </span> <span class="SpecialChar"><a href='mu.subx.html#L35220'>Two-int-args-in-regs</a></span>/imm32/inouts +<span id="L32120" class="LineNr">32120 </span> 0/imm32/no-outputs +<span id="L32121" class="LineNr">32121 </span> 0/imm32/no-outputs <span id="L32122" class="LineNr">32122 </span> 0x11/imm32/alloc-id:fake -<span id="L32123" class="LineNr">32123 </span> <a href='mu.subx.html#L32124'>_Primitive-convert-xreg-to-reg</a>/imm32/next -<span id="L32124" class="LineNr">32124 </span><span class="subxMinorFunction">_Primitive-convert-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32125" class="LineNr">32125 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32126" class="LineNr">32126 </span> <span class="subxComment"># var1/reg <- convert var2/xreg => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> -<span id="L32127" class="LineNr">32127 </span> 0x11/imm32/alloc-id:fake -<span id="L32128" class="LineNr">32128 </span> <a href='mu.subx.html#L34269'>_string-convert</a>/imm32/name -<span id="L32129" class="LineNr">32129 </span> 0x11/imm32/alloc-id:fake -<span id="L32130" class="LineNr">32130 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32123" class="LineNr">32123 </span> <a href='mu.subx.html#L34959'>_string_39_compare-></a>/imm32/subx-name +<span id="L32124" class="LineNr">32124 </span> 1/imm32/rm32-is-first-inout +<span id="L32125" class="LineNr">32125 </span> 2/imm32/r32-is-second-inout +<span id="L32126" class="LineNr">32126 </span> 0/imm32/no-imm32 +<span id="L32127" class="LineNr">32127 </span> 0/imm32/no-imm8 +<span id="L32128" class="LineNr">32128 </span> 0/imm32/no-disp32 +<span id="L32129" class="LineNr">32129 </span> 0/imm32/no-xm32 +<span id="L32130" class="LineNr">32130 </span> 0/imm32/no-x32 <span id="L32131" class="LineNr">32131 </span> 0x11/imm32/alloc-id:fake -<span id="L32132" class="LineNr">32132 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L32133" class="LineNr">32133 </span> 0x11/imm32/alloc-id:fake -<span id="L32134" class="LineNr">32134 </span> <a href='mu.subx.html#L34591'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name -<span id="L32135" class="LineNr">32135 </span> 0/imm32/no-rm32 -<span id="L32136" class="LineNr">32136 </span> 3/imm32/r32-is-first-output -<span id="L32137" class="LineNr">32137 </span> 0/imm32/no-imm32 -<span id="L32138" class="LineNr">32138 </span> 0/imm32/no-imm8 -<span id="L32139" class="LineNr">32139 </span> 0/imm32/no-disp32 -<span id="L32140" class="LineNr">32140 </span> 1/imm32/xm32-is-first-inout -<span id="L32141" class="LineNr">32141 </span> 0/imm32/no-x32 +<span id="L32132" class="LineNr">32132 </span> <a href='mu.subx.html#L32133'>_Primitive-compare-mem-with-reg</a>/imm32/next +<span id="L32133" class="LineNr">32133 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32134" class="LineNr">32134 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32135" class="LineNr">32135 </span> <span class="subxComment"># compare var1 var2/reg => 39/compare var1/rm32 var2/r32</span> +<span id="L32136" class="LineNr">32136 </span> 0x11/imm32/alloc-id:fake +<span id="L32137" class="LineNr">32137 </span> <a href='mu.subx.html#L34387'>_string-compare</a>/imm32/name +<span id="L32138" class="LineNr">32138 </span> 0x11/imm32/alloc-id:fake +<span id="L32139" class="LineNr">32139 </span> <span class="SpecialChar"><a href='mu.subx.html#L35213'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L32140" class="LineNr">32140 </span> 0/imm32/no-outputs +<span id="L32141" class="LineNr">32141 </span> 0/imm32/no-outputs <span id="L32142" class="LineNr">32142 </span> 0x11/imm32/alloc-id:fake -<span id="L32143" class="LineNr">32143 </span> <a href='mu.subx.html#L32144'>_Primitive-truncate-xmem-to-reg</a>/imm32/next -<span id="L32144" class="LineNr">32144 </span><span class="subxMinorFunction">_Primitive-truncate-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32145" class="LineNr">32145 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32146" class="LineNr">32146 </span> <span class="subxComment"># var1/reg <- truncate var2 => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> -<span id="L32147" class="LineNr">32147 </span> 0x11/imm32/alloc-id:fake -<span id="L32148" class="LineNr">32148 </span> <a href='mu.subx.html#L34274'>_string-truncate</a>/imm32/name -<span id="L32149" class="LineNr">32149 </span> 0x11/imm32/alloc-id:fake -<span id="L32150" class="LineNr">32150 </span> <span class="SpecialChar"><a href='mu.subx.html#L35217'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32143" class="LineNr">32143 </span> <a href='mu.subx.html#L34959'>_string_39_compare-></a>/imm32/subx-name +<span id="L32144" class="LineNr">32144 </span> 1/imm32/rm32-is-first-inout +<span id="L32145" class="LineNr">32145 </span> 2/imm32/r32-is-second-inout +<span id="L32146" class="LineNr">32146 </span> 0/imm32/no-imm32 +<span id="L32147" class="LineNr">32147 </span> 0/imm32/no-imm8 +<span id="L32148" class="LineNr">32148 </span> 0/imm32/no-disp32 +<span id="L32149" class="LineNr">32149 </span> 0/imm32/no-xm32 +<span id="L32150" class="LineNr">32150 </span> 0/imm32/no-x32 <span id="L32151" class="LineNr">32151 </span> 0x11/imm32/alloc-id:fake -<span id="L32152" class="LineNr">32152 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L32153" class="LineNr">32153 </span> 0x11/imm32/alloc-id:fake -<span id="L32154" class="LineNr">32154 </span> <a href='mu.subx.html#L34596'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name -<span id="L32155" class="LineNr">32155 </span> 0/imm32/no-rm32 -<span id="L32156" class="LineNr">32156 </span> 3/imm32/r32-is-first-output -<span id="L32157" class="LineNr">32157 </span> 0/imm32/no-imm32 -<span id="L32158" class="LineNr">32158 </span> 0/imm32/no-imm8 -<span id="L32159" class="LineNr">32159 </span> 0/imm32/no-disp32 -<span id="L32160" class="LineNr">32160 </span> 1/imm32/xm32-is-first-inout -<span id="L32161" class="LineNr">32161 </span> 0/imm32/no-x32 +<span id="L32152" class="LineNr">32152 </span> <a href='mu.subx.html#L32153'>_Primitive-compare-reg-with-mem</a>/imm32/next +<span id="L32153" class="LineNr">32153 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32154" class="LineNr">32154 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32155" class="LineNr">32155 </span> <span class="subxComment"># compare var1/reg var2 => 3b/compare<- var2/rm32 var1/r32</span> +<span id="L32156" class="LineNr">32156 </span> 0x11/imm32/alloc-id:fake +<span id="L32157" class="LineNr">32157 </span> <a href='mu.subx.html#L34387'>_string-compare</a>/imm32/name +<span id="L32158" class="LineNr">32158 </span> 0x11/imm32/alloc-id:fake +<span id="L32159" class="LineNr">32159 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Two-args-int-reg-int-stack</a></span>/imm32/inouts +<span id="L32160" class="LineNr">32160 </span> 0/imm32/no-outputs +<span id="L32161" class="LineNr">32161 </span> 0/imm32/no-outputs <span id="L32162" class="LineNr">32162 </span> 0x11/imm32/alloc-id:fake -<span id="L32163" class="LineNr">32163 </span> <a href='mu.subx.html#L32164'>_Primitive-truncate-xreg-to-reg</a>/imm32/next -<span id="L32164" class="LineNr">32164 </span><span class="subxMinorFunction">_Primitive-truncate-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32165" class="LineNr">32165 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32166" class="LineNr">32166 </span> <span class="subxComment"># var1/reg <- truncate var2/xreg => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> -<span id="L32167" class="LineNr">32167 </span> 0x11/imm32/alloc-id:fake -<span id="L32168" class="LineNr">32168 </span> <a href='mu.subx.html#L34274'>_string-truncate</a>/imm32/name -<span id="L32169" class="LineNr">32169 </span> 0x11/imm32/alloc-id:fake -<span id="L32170" class="LineNr">32170 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32163" class="LineNr">32163 </span> <a href='mu.subx.html#L34964'>_string_3b_compare<-</a>/imm32/subx-name +<span id="L32164" class="LineNr">32164 </span> 2/imm32/rm32-is-second-inout +<span id="L32165" class="LineNr">32165 </span> 1/imm32/r32-is-first-inout +<span id="L32166" class="LineNr">32166 </span> 0/imm32/no-imm32 +<span id="L32167" class="LineNr">32167 </span> 0/imm32/no-imm8 +<span id="L32168" class="LineNr">32168 </span> 0/imm32/no-disp32 +<span id="L32169" class="LineNr">32169 </span> 0/imm32/no-xm32 +<span id="L32170" class="LineNr">32170 </span> 0/imm32/no-x32 <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#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L32173" class="LineNr">32173 </span> 0x11/imm32/alloc-id:fake -<span id="L32174" class="LineNr">32174 </span> <a href='mu.subx.html#L34596'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name -<span id="L32175" class="LineNr">32175 </span> 0/imm32/no-rm32 -<span id="L32176" class="LineNr">32176 </span> 3/imm32/r32-is-first-output -<span id="L32177" class="LineNr">32177 </span> 0/imm32/no-imm32 -<span id="L32178" class="LineNr">32178 </span> 0/imm32/no-imm8 -<span id="L32179" class="LineNr">32179 </span> 0/imm32/no-disp32 -<span id="L32180" class="LineNr">32180 </span> 1/imm32/xm32-is-first-inout -<span id="L32181" class="LineNr">32181 </span> 0/imm32/no-x32 +<span id="L32172" class="LineNr">32172 </span> <a href='mu.subx.html#L32173'>_Primitive-compare-eax-with-literal</a>/imm32/next +<span id="L32173" class="LineNr">32173 </span><span class="subxMinorFunction">_Primitive-compare-eax-with-literal</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32174" class="LineNr">32174 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32175" class="LineNr">32175 </span> <span class="subxComment"># compare var1/eax n => 3d/compare-eax-with n/imm32</span> +<span id="L32176" class="LineNr">32176 </span> 0x11/imm32/alloc-id:fake +<span id="L32177" class="LineNr">32177 </span> <a href='mu.subx.html#L34387'>_string-compare</a>/imm32/name +<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#L35242'>Two-args-int-eax-int-literal</a></span>/imm32/inouts +<span id="L32180" class="LineNr">32180 </span> 0/imm32/no-outputs +<span id="L32181" class="LineNr">32181 </span> 0/imm32/no-outputs <span id="L32182" class="LineNr">32182 </span> 0x11/imm32/alloc-id:fake -<span id="L32183" class="LineNr">32183 </span> <a href='mu.subx.html#L32185'>_Primitive-reinterpret-xmem-as-reg</a>/imm32/next -<span id="L32184" class="LineNr">32184 </span><span class="subxH1Comment"># - reinterpret bytes (just for debugging)</span> -<span id="L32185" class="LineNr">32185 </span><span class="subxMinorFunction">_Primitive-reinterpret-xmem-as-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32186" class="LineNr">32186 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32187" class="LineNr">32187 </span> <span class="subxComment"># var1/reg <- reinterpret var2 => 8b/-> var2/xm32 var1/r32</span> -<span id="L32188" class="LineNr">32188 </span> 0x11/imm32/alloc-id:fake -<span id="L32189" class="LineNr">32189 </span> <a href='mu.subx.html#L34279'>_string-reinterpret</a>/imm32/name -<span id="L32190" class="LineNr">32190 </span> 0x11/imm32/alloc-id:fake -<span id="L32191" class="LineNr">32191 </span> <span class="SpecialChar"><a href='mu.subx.html#L35217'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32192" class="LineNr">32192 </span> 0x11/imm32/alloc-id:fake -<span id="L32193" class="LineNr">32193 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L32194" class="LineNr">32194 </span> 0x11/imm32/alloc-id:fake -<span id="L32195" class="LineNr">32195 </span> <a href='mu.subx.html#L34816'>_string_8b_-></a>/imm32/subx-name -<span id="L32196" class="LineNr">32196 </span> 0/imm32/no-rm32 -<span id="L32197" class="LineNr">32197 </span> 3/imm32/r32-is-first-output -<span id="L32198" class="LineNr">32198 </span> 0/imm32/no-imm32 -<span id="L32199" class="LineNr">32199 </span> 0/imm32/no-imm8 -<span id="L32200" class="LineNr">32200 </span> 0/imm32/no-disp32 -<span id="L32201" class="LineNr">32201 </span> 1/imm32/xm32-is-first-inout -<span id="L32202" class="LineNr">32202 </span> 0/imm32/no-x32 -<span id="L32203" class="LineNr">32203 </span> 0x11/imm32/alloc-id:fake -<span id="L32204" class="LineNr">32204 </span> <a href='mu.subx.html#L32205'>_Primitive-reinterpret-mem-as-xreg</a>/imm32/next -<span id="L32205" class="LineNr">32205 </span><span class="subxMinorFunction">_Primitive-reinterpret-mem-as-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32206" class="LineNr">32206 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32207" class="LineNr">32207 </span> <span class="subxComment"># var1/xreg <- reinterpret var2 => f3 0f 10/-> var2/rm32 var1/x32</span> -<span id="L32208" class="LineNr">32208 </span> 0x11/imm32/alloc-id:fake -<span id="L32209" class="LineNr">32209 </span> <a href='mu.subx.html#L34279'>_string-reinterpret</a>/imm32/name -<span id="L32210" class="LineNr">32210 </span> 0x11/imm32/alloc-id:fake -<span id="L32211" class="LineNr">32211 </span> <span class="SpecialChar"><a href='mu.subx.html#L34922'>Single-int-var-in-mem</a></span>/imm32/inouts -<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#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32214" class="LineNr">32214 </span> 0x11/imm32/alloc-id:fake -<span id="L32215" class="LineNr">32215 </span> <a href='mu.subx.html#L34646'>_string_f3_0f_10_copy</a>/imm32/subx-name -<span id="L32216" class="LineNr">32216 </span> 1/imm32/rm32-is-first-inout -<span id="L32217" class="LineNr">32217 </span> 0/imm32/no-r32 -<span id="L32218" class="LineNr">32218 </span> 0/imm32/no-imm32 -<span id="L32219" class="LineNr">32219 </span> 0/imm32/no-imm8 -<span id="L32220" class="LineNr">32220 </span> 0/imm32/no-disp32 -<span id="L32221" class="LineNr">32221 </span> 0/imm32/no-xm32 -<span id="L32222" class="LineNr">32222 </span> 3/imm32/x32-is-first-output -<span id="L32223" class="LineNr">32223 </span> 0x11/imm32/alloc-id:fake -<span id="L32224" class="LineNr">32224 </span> <a href='mu.subx.html#L32226'>_Primitive-copy-xreg-to-xreg</a>/imm32/next -<span id="L32225" class="LineNr">32225 </span><span class="subxH1Comment"># - floating-point copy</span> -<span id="L32226" class="LineNr">32226 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32227" class="LineNr">32227 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32228" class="LineNr">32228 </span> <span class="subxComment"># var1/xreg <- copy var2/xreg => f3 0f 11/<- var1/xm32 var2/x32</span> -<span id="L32229" class="LineNr">32229 </span> 0x11/imm32/alloc-id:fake -<span id="L32230" class="LineNr">32230 </span> <a href='mu.subx.html#L34139'>_string-copy</a>/imm32/name +<span id="L32183" class="LineNr">32183 </span> <a href='mu.subx.html#L34969'>_string_3d_compare_eax_with</a>/imm32/subx-name +<span id="L32184" class="LineNr">32184 </span> 0/imm32/no-rm32 +<span id="L32185" class="LineNr">32185 </span> 0/imm32/no-r32 +<span id="L32186" class="LineNr">32186 </span> 2/imm32/imm32-is-second-inout +<span id="L32187" class="LineNr">32187 </span> 0/imm32/no-imm8 +<span id="L32188" class="LineNr">32188 </span> 0/imm32/no-disp32 +<span id="L32189" class="LineNr">32189 </span> 0/imm32/no-xm32 +<span id="L32190" class="LineNr">32190 </span> 0/imm32/no-x32 +<span id="L32191" class="LineNr">32191 </span> 0x11/imm32/alloc-id:fake +<span id="L32192" class="LineNr">32192 </span> <a href='mu.subx.html#L32193'>_Primitive-compare-reg-with-literal</a>/imm32/next +<span id="L32193" class="LineNr">32193 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-literal</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32194" class="LineNr">32194 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32195" class="LineNr">32195 </span> <span class="subxComment"># compare var1/reg n => 81 7/subop/compare %reg n/imm32</span> +<span id="L32196" class="LineNr">32196 </span> 0x11/imm32/alloc-id:fake +<span id="L32197" class="LineNr">32197 </span> <a href='mu.subx.html#L34387'>_string-compare</a>/imm32/name +<span id="L32198" class="LineNr">32198 </span> 0x11/imm32/alloc-id:fake +<span id="L32199" class="LineNr">32199 </span> <span class="SpecialChar"><a href='mu.subx.html#L35256'>Int-var-in-register-and-literal</a></span>/imm32/inouts +<span id="L32200" class="LineNr">32200 </span> 0/imm32/no-outputs +<span id="L32201" class="LineNr">32201 </span> 0/imm32/no-outputs +<span id="L32202" class="LineNr">32202 </span> 0x11/imm32/alloc-id:fake +<span id="L32203" class="LineNr">32203 </span> <a href='mu.subx.html#L35059'>_string_81_subop_compare</a>/imm32/subx-name +<span id="L32204" class="LineNr">32204 </span> 1/imm32/rm32-is-first-inout +<span id="L32205" class="LineNr">32205 </span> 0/imm32/no-r32 +<span id="L32206" class="LineNr">32206 </span> 2/imm32/imm32-is-second-inout +<span id="L32207" class="LineNr">32207 </span> 0/imm32/no-imm8 +<span id="L32208" class="LineNr">32208 </span> 0/imm32/no-disp32 +<span id="L32209" class="LineNr">32209 </span> 0/imm32/no-xm32 +<span id="L32210" class="LineNr">32210 </span> 0/imm32/no-x32 +<span id="L32211" class="LineNr">32211 </span> 0x11/imm32/alloc-id:fake +<span id="L32212" class="LineNr">32212 </span> <a href='mu.subx.html#L32213'>_Primitive-compare-mem-with-literal</a>/imm32/next +<span id="L32213" class="LineNr">32213 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-literal</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32214" class="LineNr">32214 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32215" class="LineNr">32215 </span> <span class="subxComment"># compare var1 n => 81 7/subop/compare *(ebp+___) n/imm32</span> +<span id="L32216" class="LineNr">32216 </span> 0x11/imm32/alloc-id:fake +<span id="L32217" class="LineNr">32217 </span> <a href='mu.subx.html#L34387'>_string-compare</a>/imm32/name +<span id="L32218" class="LineNr">32218 </span> 0x11/imm32/alloc-id:fake +<span id="L32219" class="LineNr">32219 </span> <span class="SpecialChar"><a href='mu.subx.html#L35249'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L32220" class="LineNr">32220 </span> 0/imm32/no-outputs +<span id="L32221" class="LineNr">32221 </span> 0/imm32/no-outputs +<span id="L32222" class="LineNr">32222 </span> 0x11/imm32/alloc-id:fake +<span id="L32223" class="LineNr">32223 </span> <a href='mu.subx.html#L35059'>_string_81_subop_compare</a>/imm32/subx-name +<span id="L32224" class="LineNr">32224 </span> 1/imm32/rm32-is-first-inout +<span id="L32225" class="LineNr">32225 </span> 0/imm32/no-r32 +<span id="L32226" class="LineNr">32226 </span> 2/imm32/imm32-is-second-inout +<span id="L32227" class="LineNr">32227 </span> 0/imm32/no-imm8 +<span id="L32228" class="LineNr">32228 </span> 0/imm32/no-disp32 +<span id="L32229" class="LineNr">32229 </span> 0/imm32/no-xm32 +<span id="L32230" class="LineNr">32230 </span> 0/imm32/no-x32 <span id="L32231" class="LineNr">32231 </span> 0x11/imm32/alloc-id:fake -<span id="L32232" class="LineNr">32232 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32233" class="LineNr">32233 </span> 0x11/imm32/alloc-id:fake -<span id="L32234" class="LineNr">32234 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32235" class="LineNr">32235 </span> 0x11/imm32/alloc-id:fake -<span id="L32236" class="LineNr">32236 </span> <a href='mu.subx.html#L34651'>_string_f3_0f_11_copy</a>/imm32/subx-name -<span id="L32237" class="LineNr">32237 </span> 0/imm32/no-rm32 -<span id="L32238" class="LineNr">32238 </span> 0/imm32/no-r32 -<span id="L32239" class="LineNr">32239 </span> 0/imm32/no-imm32 -<span id="L32240" class="LineNr">32240 </span> 0/imm32/no-imm8 -<span id="L32241" class="LineNr">32241 </span> 0/imm32/no-disp32 -<span id="L32242" class="LineNr">32242 </span> 3/imm32/xm32-is-first-output -<span id="L32243" class="LineNr">32243 </span> 1/imm32/x32-is-first-inout -<span id="L32244" class="LineNr">32244 </span> 0x11/imm32/alloc-id:fake -<span id="L32245" class="LineNr">32245 </span> <a href='mu.subx.html#L32246'>_Primitive-copy-xreg-to-mem</a>/imm32/next -<span id="L32246" class="LineNr">32246 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32247" class="LineNr">32247 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32248" class="LineNr">32248 </span> <span class="subxComment"># copy-to var1 var2/xreg => f3 0f 11/<- var1 var2/x32</span> -<span id="L32249" class="LineNr">32249 </span> 0x11/imm32/alloc-id:fake -<span id="L32250" class="LineNr">32250 </span> <a href='mu.subx.html#L34144'>_string-copy-to</a>/imm32/name -<span id="L32251" class="LineNr">32251 </span> 0x11/imm32/alloc-id:fake -<span id="L32252" class="LineNr">32252 </span> <span class="SpecialChar"><a href='mu.subx.html#L35024'>Two-args-float-stack-float-reg</a></span>/imm32/inouts -<span id="L32253" class="LineNr">32253 </span> 0/imm32/no-outputs -<span id="L32254" class="LineNr">32254 </span> 0/imm32/no-outputs -<span id="L32255" class="LineNr">32255 </span> 0x11/imm32/alloc-id:fake -<span id="L32256" class="LineNr">32256 </span> <a href='mu.subx.html#L34651'>_string_f3_0f_11_copy</a>/imm32/subx-name -<span id="L32257" class="LineNr">32257 </span> 0/imm32/no-rm32 -<span id="L32258" class="LineNr">32258 </span> 0/imm32/no-r32 -<span id="L32259" class="LineNr">32259 </span> 0/imm32/no-imm32 -<span id="L32260" class="LineNr">32260 </span> 0/imm32/no-imm8 -<span id="L32261" class="LineNr">32261 </span> 0/imm32/no-disp32 -<span id="L32262" class="LineNr">32262 </span> 1/imm32/xm32-is-first-inout -<span id="L32263" class="LineNr">32263 </span> 2/imm32/x32-is-second-inout -<span id="L32264" class="LineNr">32264 </span> 0x11/imm32/alloc-id:fake -<span id="L32265" class="LineNr">32265 </span> <a href='mu.subx.html#L32266'>_Primitive-copy-mem-to-xreg</a>/imm32/next -<span id="L32266" class="LineNr">32266 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32267" class="LineNr">32267 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32268" class="LineNr">32268 </span> <span class="subxComment"># var1/xreg <- copy var2 => f3 0f 10/-> var2/rm32 var1/x32</span> -<span id="L32269" class="LineNr">32269 </span> 0x11/imm32/alloc-id:fake -<span id="L32270" class="LineNr">32270 </span> <a href='mu.subx.html#L34139'>_string-copy</a>/imm32/name -<span id="L32271" class="LineNr">32271 </span> 0x11/imm32/alloc-id:fake -<span id="L32272" class="LineNr">32272 </span> <span class="SpecialChar"><a href='mu.subx.html#L35217'>Single-float-var-in-mem</a></span>/imm32/inouts -<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#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32275" class="LineNr">32275 </span> 0x11/imm32/alloc-id:fake -<span id="L32276" class="LineNr">32276 </span> <a href='mu.subx.html#L34646'>_string_f3_0f_10_copy</a>/imm32/subx-name -<span id="L32277" class="LineNr">32277 </span> 0/imm32/no-rm32 -<span id="L32278" class="LineNr">32278 </span> 0/imm32/no-r32 -<span id="L32279" class="LineNr">32279 </span> 0/imm32/no-imm32 -<span id="L32280" class="LineNr">32280 </span> 0/imm32/no-imm8 -<span id="L32281" class="LineNr">32281 </span> 0/imm32/no-disp32 -<span id="L32282" class="LineNr">32282 </span> 1/imm32/xm32-is-first-inout -<span id="L32283" class="LineNr">32283 </span> 3/imm32/x32-is-first-output +<span id="L32232" class="LineNr">32232 </span> <a href='mu.subx.html#L32234'>_Primitive-negate-reg</a>/imm32/next +<span id="L32233" class="LineNr">32233 </span><span class="subxH1Comment"># - negate</span> +<span id="L32234" class="LineNr">32234 </span><span class="subxMinorFunction">_Primitive-negate-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32235" class="LineNr">32235 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32236" class="LineNr">32236 </span> <span class="subxComment"># var1/reg <- negate => f7 3/subop/negate var1/rm32</span> +<span id="L32237" class="LineNr">32237 </span> 0x11/imm32/alloc-id:fake +<span id="L32238" class="LineNr">32238 </span> <a href='mu.subx.html#L34567'>_string-negate</a>/imm32/name +<span id="L32239" class="LineNr">32239 </span> 0/imm32/no-inouts +<span id="L32240" class="LineNr">32240 </span> 0/imm32/no-inouts +<span id="L32241" class="LineNr">32241 </span> 0x11/imm32/alloc-id:fake +<span id="L32242" class="LineNr">32242 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L32243" class="LineNr">32243 </span> 0x11/imm32/alloc-id:fake +<span id="L32244" class="LineNr">32244 </span> <a href='mu.subx.html#L35139'>_string_f7_subop_negate</a>/imm32/subx-name +<span id="L32245" class="LineNr">32245 </span> 3/imm32/rm32-is-first-output +<span id="L32246" class="LineNr">32246 </span> 0/imm32/no-r32 +<span id="L32247" class="LineNr">32247 </span> 0/imm32/no-imm32 +<span id="L32248" class="LineNr">32248 </span> 0/imm32/no-imm8 +<span id="L32249" class="LineNr">32249 </span> 0/imm32/no-disp32 +<span id="L32250" class="LineNr">32250 </span> 0/imm32/no-xm32 +<span id="L32251" class="LineNr">32251 </span> 0/imm32/no-x32 +<span id="L32252" class="LineNr">32252 </span> 0x11/imm32/alloc-id:fake +<span id="L32253" class="LineNr">32253 </span> <a href='mu.subx.html#L32254'>_Primitive-negate-mem</a>/imm32/next +<span id="L32254" class="LineNr">32254 </span><span class="subxMinorFunction">_Primitive-negate-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32255" class="LineNr">32255 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32256" class="LineNr">32256 </span> <span class="subxComment"># negate var1 => f7 3/subop/negate var1/rm32</span> +<span id="L32257" class="LineNr">32257 </span> 0x11/imm32/alloc-id:fake +<span id="L32258" class="LineNr">32258 </span> <a href='mu.subx.html#L34567'>_string-negate</a>/imm32/name +<span id="L32259" class="LineNr">32259 </span> 0x11/imm32/alloc-id:fake +<span id="L32260" class="LineNr">32260 </span> <span class="SpecialChar"><a href='mu.subx.html#L35175'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L32261" class="LineNr">32261 </span> 0/imm32/no-outputs +<span id="L32262" class="LineNr">32262 </span> 0/imm32/no-outputs +<span id="L32263" class="LineNr">32263 </span> 0x11/imm32/alloc-id:fake +<span id="L32264" class="LineNr">32264 </span> <a href='mu.subx.html#L35139'>_string_f7_subop_negate</a>/imm32/subx-name +<span id="L32265" class="LineNr">32265 </span> 1/imm32/rm32-is-first-inout +<span id="L32266" class="LineNr">32266 </span> 0/imm32/no-r32 +<span id="L32267" class="LineNr">32267 </span> 0/imm32/no-imm32 +<span id="L32268" class="LineNr">32268 </span> 0/imm32/no-imm8 +<span id="L32269" class="LineNr">32269 </span> 0/imm32/no-disp32 +<span id="L32270" class="LineNr">32270 </span> 0/imm32/no-xm32 +<span id="L32271" class="LineNr">32271 </span> 0/imm32/no-x32 +<span id="L32272" class="LineNr">32272 </span> 0x11/imm32/alloc-id:fake +<span id="L32273" class="LineNr">32273 </span> <a href='mu.subx.html#L32275'>_Primitive-multiply-reg-by-reg</a>/imm32/next +<span id="L32274" class="LineNr">32274 </span><span class="subxH1Comment"># - multiply</span> +<span id="L32275" class="LineNr">32275 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32276" class="LineNr">32276 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32277" class="LineNr">32277 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> +<span id="L32278" class="LineNr">32278 </span> 0x11/imm32/alloc-id:fake +<span id="L32279" class="LineNr">32279 </span> <a href='mu.subx.html#L34517'>_string-multiply</a>/imm32/name +<span id="L32280" class="LineNr">32280 </span> 0x11/imm32/alloc-id:fake +<span id="L32281" class="LineNr">32281 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L32282" class="LineNr">32282 </span> 0x11/imm32/alloc-id:fake +<span id="L32283" class="LineNr">32283 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L32284" class="LineNr">32284 </span> 0x11/imm32/alloc-id:fake -<span id="L32285" class="LineNr">32285 </span> <a href='mu.subx.html#L32287'>_Primitive-address-of-xmem</a>/imm32/next -<span id="L32286" class="LineNr">32286 </span><span class="subxH1Comment"># - floating-point-address</span> -<span id="L32287" class="LineNr">32287 </span><span class="subxMinorFunction">_Primitive-address-of-xmem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32288" class="LineNr">32288 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32289" class="LineNr">32289 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> -<span id="L32290" class="LineNr">32290 </span> 0x11/imm32/alloc-id:fake -<span id="L32291" class="LineNr">32291 </span> <a href='mu.subx.html#L34019'>_string-address</a>/imm32/name -<span id="L32292" class="LineNr">32292 </span> 0x11/imm32/alloc-id:fake -<span id="L32293" class="LineNr">32293 </span> <span class="SpecialChar"><a href='mu.subx.html#L35217'>Single-float-var-in-mem</a></span>/imm32/inouts -<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#L35038'>Single-addr-var-in-some-register</a></span>/imm32/outputs -<span id="L32296" class="LineNr">32296 </span> 0x11/imm32/alloc-id:fake -<span id="L32297" class="LineNr">32297 </span> <a href='mu.subx.html#L34831'>_string_8d_copy_address</a>/imm32/subx-name -<span id="L32298" class="LineNr">32298 </span> 1/imm32/rm32-is-first-inout -<span id="L32299" class="LineNr">32299 </span> 3/imm32/r32-is-first-output -<span id="L32300" class="LineNr">32300 </span> 0/imm32/no-imm32 -<span id="L32301" class="LineNr">32301 </span> 0/imm32/no-imm8 -<span id="L32302" class="LineNr">32302 </span> 0/imm32/no-disp32 -<span id="L32303" class="LineNr">32303 </span> 0/imm32/no-xm32 -<span id="L32304" class="LineNr">32304 </span> 0/imm32/no-x32 -<span id="L32305" class="LineNr">32305 </span> 0x11/imm32/alloc-id:fake -<span id="L32306" class="LineNr">32306 </span> <a href='mu.subx.html#L32308'>_Primitive-add-xreg-to-xreg</a>/imm32/next -<span id="L32307" class="LineNr">32307 </span><span class="subxH1Comment"># - floating-point add</span> -<span id="L32308" class="LineNr">32308 </span><span class="subxMinorFunction">_Primitive-add-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32309" class="LineNr">32309 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32310" class="LineNr">32310 </span> <span class="subxComment"># var1/xreg <- add var2/xreg => f3 0f 58/add var1/xm32 var2/x32</span> -<span id="L32311" class="LineNr">32311 </span> 0x11/imm32/alloc-id:fake -<span id="L32312" class="LineNr">32312 </span> <a href='mu.subx.html#L34014'>_string-add</a>/imm32/name +<span id="L32285" class="LineNr">32285 </span> <a href='mu.subx.html#L34834'>_string_0f_af_multiply</a>/imm32/subx-name +<span id="L32286" class="LineNr">32286 </span> 1/imm32/rm32-is-first-inout +<span id="L32287" class="LineNr">32287 </span> 3/imm32/r32-is-first-output +<span id="L32288" class="LineNr">32288 </span> 0/imm32/no-imm32 +<span id="L32289" class="LineNr">32289 </span> 0/imm32/no-imm8 +<span id="L32290" class="LineNr">32290 </span> 0/imm32/no-disp32 +<span id="L32291" class="LineNr">32291 </span> 0/imm32/no-xm32 +<span id="L32292" class="LineNr">32292 </span> 0/imm32/no-x32 +<span id="L32293" class="LineNr">32293 </span> 0x11/imm32/alloc-id:fake +<span id="L32294" class="LineNr">32294 </span> <a href='mu.subx.html#L32295'>_Primitive-multiply-reg-by-mem</a>/imm32/next +<span id="L32295" class="LineNr">32295 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32296" class="LineNr">32296 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32297" class="LineNr">32297 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> +<span id="L32298" class="LineNr">32298 </span> 0x11/imm32/alloc-id:fake +<span id="L32299" class="LineNr">32299 </span> <a href='mu.subx.html#L34517'>_string-multiply</a>/imm32/name +<span id="L32300" class="LineNr">32300 </span> 0x11/imm32/alloc-id:fake +<span id="L32301" class="LineNr">32301 </span> <span class="SpecialChar"><a href='mu.subx.html#L35175'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L32302" class="LineNr">32302 </span> 0x11/imm32/alloc-id:fake +<span id="L32303" class="LineNr">32303 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L32304" class="LineNr">32304 </span> 0x11/imm32/alloc-id:fake +<span id="L32305" class="LineNr">32305 </span> <a href='mu.subx.html#L34834'>_string_0f_af_multiply</a>/imm32/subx-name +<span id="L32306" class="LineNr">32306 </span> 1/imm32/rm32-is-first-inout +<span id="L32307" class="LineNr">32307 </span> 3/imm32/r32-is-first-output +<span id="L32308" class="LineNr">32308 </span> 0/imm32/no-imm32 +<span id="L32309" class="LineNr">32309 </span> 0/imm32/no-imm8 +<span id="L32310" class="LineNr">32310 </span> 0/imm32/no-disp32 +<span id="L32311" class="LineNr">32311 </span> 0/imm32/no-xm32 +<span id="L32312" class="LineNr">32312 </span> 0/imm32/no-x32 <span id="L32313" class="LineNr">32313 </span> 0x11/imm32/alloc-id:fake -<span id="L32314" class="LineNr">32314 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32315" class="LineNr">32315 </span> 0x11/imm32/alloc-id:fake -<span id="L32316" class="LineNr">32316 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32317" class="LineNr">32317 </span> 0x11/imm32/alloc-id:fake -<span id="L32318" class="LineNr">32318 </span> <a href='mu.subx.html#L34601'>_string_f3_0f_58_add</a>/imm32/subx-name -<span id="L32319" class="LineNr">32319 </span> 0/imm32/no-rm32 -<span id="L32320" class="LineNr">32320 </span> 0/imm32/no-r32 -<span id="L32321" class="LineNr">32321 </span> 0/imm32/no-imm32 -<span id="L32322" class="LineNr">32322 </span> 0/imm32/no-imm8 -<span id="L32323" class="LineNr">32323 </span> 0/imm32/no-disp32 -<span id="L32324" class="LineNr">32324 </span> 1/imm32/xm32-is-first-inout -<span id="L32325" class="LineNr">32325 </span> 3/imm32/x32-is-first-output -<span id="L32326" class="LineNr">32326 </span> 0x11/imm32/alloc-id:fake -<span id="L32327" class="LineNr">32327 </span> <a href='mu.subx.html#L32328'>_Primitive-add-mem-to-xreg</a>/imm32/next -<span id="L32328" class="LineNr">32328 </span><span class="subxMinorFunction">_Primitive-add-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32329" class="LineNr">32329 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32330" class="LineNr">32330 </span> <span class="subxComment"># var1/xreg <- add var2 => f3 0f 58/add var2/xm32 var1/x32</span> -<span id="L32331" class="LineNr">32331 </span> 0x11/imm32/alloc-id:fake -<span id="L32332" class="LineNr">32332 </span> <a href='mu.subx.html#L34014'>_string-add</a>/imm32/name -<span id="L32333" class="LineNr">32333 </span> 0x11/imm32/alloc-id:fake -<span id="L32334" class="LineNr">32334 </span> <span class="SpecialChar"><a href='mu.subx.html#L35217'>Single-float-var-in-mem</a></span>/imm32/inouts -<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#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32337" class="LineNr">32337 </span> 0x11/imm32/alloc-id:fake -<span id="L32338" class="LineNr">32338 </span> <a href='mu.subx.html#L34601'>_string_f3_0f_58_add</a>/imm32/subx-name -<span id="L32339" class="LineNr">32339 </span> 0/imm32/no-rm32 -<span id="L32340" class="LineNr">32340 </span> 0/imm32/no-r32 -<span id="L32341" class="LineNr">32341 </span> 0/imm32/no-imm32 -<span id="L32342" class="LineNr">32342 </span> 0/imm32/no-imm8 -<span id="L32343" class="LineNr">32343 </span> 0/imm32/no-disp32 -<span id="L32344" class="LineNr">32344 </span> 1/imm32/xm32-is-first-inout -<span id="L32345" class="LineNr">32345 </span> 3/imm32/x32-is-first-output -<span id="L32346" class="LineNr">32346 </span> 0x11/imm32/alloc-id:fake -<span id="L32347" class="LineNr">32347 </span> <a href='mu.subx.html#L32349'>_Primitive-subtract-xreg-from-xreg</a>/imm32/next -<span id="L32348" class="LineNr">32348 </span><span class="subxH1Comment"># - floating-point subtract</span> -<span id="L32349" class="LineNr">32349 </span><span class="subxMinorFunction">_Primitive-subtract-xreg-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32350" class="LineNr">32350 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32351" class="LineNr">32351 </span> <span class="subxComment"># var1/xreg <- subtract var2/xreg => f3 0f 5c/subtract var1/xm32 var2/x32</span> -<span id="L32352" class="LineNr">32352 </span> 0x11/imm32/alloc-id:fake -<span id="L32353" class="LineNr">32353 </span> <a href='mu.subx.html#L34334'>_string-subtract</a>/imm32/name +<span id="L32314" class="LineNr">32314 </span> <a href='mu.subx.html#L32316'>_Primitive-convert-mem-to-xreg</a>/imm32/next +<span id="L32315" class="LineNr">32315 </span><span class="subxH1Comment"># - convert int to floating point</span> +<span id="L32316" class="LineNr">32316 </span><span class="subxMinorFunction">_Primitive-convert-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32317" class="LineNr">32317 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32318" class="LineNr">32318 </span> <span class="subxComment"># var1/xreg <- convert var2 => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> +<span id="L32319" class="LineNr">32319 </span> 0x11/imm32/alloc-id:fake +<span id="L32320" class="LineNr">32320 </span> <a href='mu.subx.html#L34522'>_string-convert</a>/imm32/name +<span id="L32321" class="LineNr">32321 </span> 0x11/imm32/alloc-id:fake +<span id="L32322" class="LineNr">32322 </span> <span class="SpecialChar"><a href='mu.subx.html#L35175'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L32323" class="LineNr">32323 </span> 0x11/imm32/alloc-id:fake +<span id="L32324" class="LineNr">32324 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32325" class="LineNr">32325 </span> 0x11/imm32/alloc-id:fake +<span id="L32326" class="LineNr">32326 </span> <a href='mu.subx.html#L34839'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name +<span id="L32327" class="LineNr">32327 </span> 1/imm32/rm32-is-first-inout +<span id="L32328" class="LineNr">32328 </span> 0/imm32/no-r32 +<span id="L32329" class="LineNr">32329 </span> 0/imm32/no-imm32 +<span id="L32330" class="LineNr">32330 </span> 0/imm32/no-imm8 +<span id="L32331" class="LineNr">32331 </span> 0/imm32/no-disp32 +<span id="L32332" class="LineNr">32332 </span> 0/imm32/no-xm32 +<span id="L32333" class="LineNr">32333 </span> 3/imm32/x32-is-first-output +<span id="L32334" class="LineNr">32334 </span> 0x11/imm32/alloc-id:fake +<span id="L32335" class="LineNr">32335 </span> <a href='mu.subx.html#L32336'>_Primitive-convert-reg-to-xreg</a>/imm32/next +<span id="L32336" class="LineNr">32336 </span><span class="subxMinorFunction">_Primitive-convert-reg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32337" class="LineNr">32337 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32338" class="LineNr">32338 </span> <span class="subxComment"># var1/xreg <- convert var2/reg => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> +<span id="L32339" class="LineNr">32339 </span> 0x11/imm32/alloc-id:fake +<span id="L32340" class="LineNr">32340 </span> <a href='mu.subx.html#L34522'>_string-convert</a>/imm32/name +<span id="L32341" class="LineNr">32341 </span> 0x11/imm32/alloc-id:fake +<span id="L32342" class="LineNr">32342 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L32343" class="LineNr">32343 </span> 0x11/imm32/alloc-id:fake +<span id="L32344" class="LineNr">32344 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32345" class="LineNr">32345 </span> 0x11/imm32/alloc-id:fake +<span id="L32346" class="LineNr">32346 </span> <a href='mu.subx.html#L34839'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name +<span id="L32347" class="LineNr">32347 </span> 1/imm32/rm32-is-first-inout +<span id="L32348" class="LineNr">32348 </span> 0/imm32/no-r32 +<span id="L32349" class="LineNr">32349 </span> 0/imm32/no-imm32 +<span id="L32350" class="LineNr">32350 </span> 0/imm32/no-imm8 +<span id="L32351" class="LineNr">32351 </span> 0/imm32/no-disp32 +<span id="L32352" class="LineNr">32352 </span> 0/imm32/no-xm32 +<span id="L32353" class="LineNr">32353 </span> 3/imm32/x32-is-first-output <span id="L32354" class="LineNr">32354 </span> 0x11/imm32/alloc-id:fake -<span id="L32355" class="LineNr">32355 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32356" class="LineNr">32356 </span> 0x11/imm32/alloc-id:fake -<span id="L32357" class="LineNr">32357 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32358" class="LineNr">32358 </span> 0x11/imm32/alloc-id:fake -<span id="L32359" class="LineNr">32359 </span> <a href='mu.subx.html#L34606'>_string_f3_0f_5c_subtract</a>/imm32/subx-name -<span id="L32360" class="LineNr">32360 </span> 0/imm32/no-rm32 -<span id="L32361" class="LineNr">32361 </span> 0/imm32/no-r32 -<span id="L32362" class="LineNr">32362 </span> 0/imm32/no-imm32 -<span id="L32363" class="LineNr">32363 </span> 0/imm32/no-imm8 -<span id="L32364" class="LineNr">32364 </span> 0/imm32/no-disp32 -<span id="L32365" class="LineNr">32365 </span> 1/imm32/xm32-is-first-inout -<span id="L32366" class="LineNr">32366 </span> 3/imm32/x32-is-first-output -<span id="L32367" class="LineNr">32367 </span> 0x11/imm32/alloc-id:fake -<span id="L32368" class="LineNr">32368 </span> <a href='mu.subx.html#L32369'>_Primitive-subtract-mem-from-xreg</a>/imm32/next -<span id="L32369" class="LineNr">32369 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32370" class="LineNr">32370 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32371" class="LineNr">32371 </span> <span class="subxComment"># var1/xreg <- subtract var2 => f3 0f 5c/subtract var2/xm32 var1/x32</span> -<span id="L32372" class="LineNr">32372 </span> 0x11/imm32/alloc-id:fake -<span id="L32373" class="LineNr">32373 </span> <a href='mu.subx.html#L34334'>_string-subtract</a>/imm32/name -<span id="L32374" class="LineNr">32374 </span> 0x11/imm32/alloc-id:fake -<span id="L32375" class="LineNr">32375 </span> <span class="SpecialChar"><a href='mu.subx.html#L35217'>Single-float-var-in-mem</a></span>/imm32/inouts -<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#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32378" class="LineNr">32378 </span> 0x11/imm32/alloc-id:fake -<span id="L32379" class="LineNr">32379 </span> <a href='mu.subx.html#L34606'>_string_f3_0f_5c_subtract</a>/imm32/subx-name -<span id="L32380" class="LineNr">32380 </span> 0/imm32/no-rm32 -<span id="L32381" class="LineNr">32381 </span> 0/imm32/no-r32 -<span id="L32382" class="LineNr">32382 </span> 0/imm32/no-imm32 -<span id="L32383" class="LineNr">32383 </span> 0/imm32/no-imm8 -<span id="L32384" class="LineNr">32384 </span> 0/imm32/no-disp32 -<span id="L32385" class="LineNr">32385 </span> 1/imm32/xm32-is-first-inout -<span id="L32386" class="LineNr">32386 </span> 3/imm32/x32-is-first-output -<span id="L32387" class="LineNr">32387 </span> 0x11/imm32/alloc-id:fake -<span id="L32388" class="LineNr">32388 </span> <a href='mu.subx.html#L32390'>_Primitive-multiply-xreg-by-xreg</a>/imm32/next -<span id="L32389" class="LineNr">32389 </span><span class="subxH1Comment"># - floating-point multiply</span> -<span id="L32390" class="LineNr">32390 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32391" class="LineNr">32391 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32392" class="LineNr">32392 </span> <span class="subxComment"># var1/xreg <- multiply var2 => f3 0f 59/multiply var2/xm32 var1/x32</span> -<span id="L32393" class="LineNr">32393 </span> 0x11/imm32/alloc-id:fake -<span id="L32394" class="LineNr">32394 </span> <a href='mu.subx.html#L34264'>_string-multiply</a>/imm32/name +<span id="L32355" class="LineNr">32355 </span> <a href='mu.subx.html#L32357'>_Primitive-convert-xmem-to-reg</a>/imm32/next +<span id="L32356" class="LineNr">32356 </span><span class="subxH1Comment"># - convert floating point to int</span> +<span id="L32357" class="LineNr">32357 </span><span class="subxMinorFunction">_Primitive-convert-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32358" class="LineNr">32358 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32359" class="LineNr">32359 </span> <span class="subxComment"># var1/reg <- convert var2 => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> +<span id="L32360" class="LineNr">32360 </span> 0x11/imm32/alloc-id:fake +<span id="L32361" class="LineNr">32361 </span> <a href='mu.subx.html#L34522'>_string-convert</a>/imm32/name +<span id="L32362" class="LineNr">32362 </span> 0x11/imm32/alloc-id:fake +<span id="L32363" class="LineNr">32363 </span> <span class="SpecialChar"><a href='mu.subx.html#L35470'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32364" class="LineNr">32364 </span> 0x11/imm32/alloc-id:fake +<span id="L32365" class="LineNr">32365 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L32366" class="LineNr">32366 </span> 0x11/imm32/alloc-id:fake +<span id="L32367" class="LineNr">32367 </span> <a href='mu.subx.html#L34844'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name +<span id="L32368" class="LineNr">32368 </span> 0/imm32/no-rm32 +<span id="L32369" class="LineNr">32369 </span> 3/imm32/r32-is-first-output +<span id="L32370" class="LineNr">32370 </span> 0/imm32/no-imm32 +<span id="L32371" class="LineNr">32371 </span> 0/imm32/no-imm8 +<span id="L32372" class="LineNr">32372 </span> 0/imm32/no-disp32 +<span id="L32373" class="LineNr">32373 </span> 1/imm32/xm32-is-first-inout +<span id="L32374" class="LineNr">32374 </span> 0/imm32/no-x32 +<span id="L32375" class="LineNr">32375 </span> 0x11/imm32/alloc-id:fake +<span id="L32376" class="LineNr">32376 </span> <a href='mu.subx.html#L32377'>_Primitive-convert-xreg-to-reg</a>/imm32/next +<span id="L32377" class="LineNr">32377 </span><span class="subxMinorFunction">_Primitive-convert-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32378" class="LineNr">32378 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32379" class="LineNr">32379 </span> <span class="subxComment"># var1/reg <- convert var2/xreg => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> +<span id="L32380" class="LineNr">32380 </span> 0x11/imm32/alloc-id:fake +<span id="L32381" class="LineNr">32381 </span> <a href='mu.subx.html#L34522'>_string-convert</a>/imm32/name +<span id="L32382" class="LineNr">32382 </span> 0x11/imm32/alloc-id:fake +<span id="L32383" class="LineNr">32383 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32384" class="LineNr">32384 </span> 0x11/imm32/alloc-id:fake +<span id="L32385" class="LineNr">32385 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L32386" class="LineNr">32386 </span> 0x11/imm32/alloc-id:fake +<span id="L32387" class="LineNr">32387 </span> <a href='mu.subx.html#L34844'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name +<span id="L32388" class="LineNr">32388 </span> 0/imm32/no-rm32 +<span id="L32389" class="LineNr">32389 </span> 3/imm32/r32-is-first-output +<span id="L32390" class="LineNr">32390 </span> 0/imm32/no-imm32 +<span id="L32391" class="LineNr">32391 </span> 0/imm32/no-imm8 +<span id="L32392" class="LineNr">32392 </span> 0/imm32/no-disp32 +<span id="L32393" class="LineNr">32393 </span> 1/imm32/xm32-is-first-inout +<span id="L32394" class="LineNr">32394 </span> 0/imm32/no-x32 <span id="L32395" class="LineNr">32395 </span> 0x11/imm32/alloc-id:fake -<span id="L32396" class="LineNr">32396 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32397" class="LineNr">32397 </span> 0x11/imm32/alloc-id:fake -<span id="L32398" class="LineNr">32398 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32399" class="LineNr">32399 </span> 0x11/imm32/alloc-id:fake -<span id="L32400" class="LineNr">32400 </span> <a href='mu.subx.html#L34611'>_string_f3_0f_59_multiply</a>/imm32/subx-name -<span id="L32401" class="LineNr">32401 </span> 0/imm32/no-rm32 -<span id="L32402" class="LineNr">32402 </span> 0/imm32/no-r32 -<span id="L32403" class="LineNr">32403 </span> 0/imm32/no-imm32 -<span id="L32404" class="LineNr">32404 </span> 0/imm32/no-imm8 -<span id="L32405" class="LineNr">32405 </span> 0/imm32/no-disp32 -<span id="L32406" class="LineNr">32406 </span> 1/imm32/xm32-is-first-inout -<span id="L32407" class="LineNr">32407 </span> 3/imm32/x32-is-first-output -<span id="L32408" class="LineNr">32408 </span> 0x11/imm32/alloc-id:fake -<span id="L32409" class="LineNr">32409 </span> <a href='mu.subx.html#L32410'>_Primitive-multiply-xreg-by-mem</a>/imm32/next -<span id="L32410" class="LineNr">32410 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32411" class="LineNr">32411 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32412" class="LineNr">32412 </span> <span class="subxComment"># var1/xreg <- multiply var2 => 53 0f 59/multiply var2/xm32 var1/x32</span> -<span id="L32413" class="LineNr">32413 </span> 0x11/imm32/alloc-id:fake -<span id="L32414" class="LineNr">32414 </span> <a href='mu.subx.html#L34264'>_string-multiply</a>/imm32/name +<span id="L32396" class="LineNr">32396 </span> <a href='mu.subx.html#L32397'>_Primitive-truncate-xmem-to-reg</a>/imm32/next +<span id="L32397" class="LineNr">32397 </span><span class="subxMinorFunction">_Primitive-truncate-xmem-to-reg</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/reg <- truncate var2 => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> +<span id="L32400" class="LineNr">32400 </span> 0x11/imm32/alloc-id:fake +<span id="L32401" class="LineNr">32401 </span> <a href='mu.subx.html#L34527'>_string-truncate</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#L35470'>Single-float-var-in-mem</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#L35284'>Single-int-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#L34849'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name +<span id="L32408" class="LineNr">32408 </span> 0/imm32/no-rm32 +<span id="L32409" class="LineNr">32409 </span> 3/imm32/r32-is-first-output +<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> 0/imm32/no-x32 <span id="L32415" class="LineNr">32415 </span> 0x11/imm32/alloc-id:fake -<span id="L32416" class="LineNr">32416 </span> <span class="SpecialChar"><a href='mu.subx.html#L35217'>Single-float-var-in-mem</a></span>/imm32/inouts -<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#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32419" class="LineNr">32419 </span> 0x11/imm32/alloc-id:fake -<span id="L32420" class="LineNr">32420 </span> <a href='mu.subx.html#L34611'>_string_f3_0f_59_multiply</a>/imm32/subx-name -<span id="L32421" class="LineNr">32421 </span> 0/imm32/no-rm32 -<span id="L32422" class="LineNr">32422 </span> 0/imm32/no-r32 -<span id="L32423" class="LineNr">32423 </span> 0/imm32/no-imm32 -<span id="L32424" class="LineNr">32424 </span> 0/imm32/no-imm8 -<span id="L32425" class="LineNr">32425 </span> 0/imm32/no-disp32 -<span id="L32426" class="LineNr">32426 </span> 1/imm32/xm32-is-first-inout -<span id="L32427" class="LineNr">32427 </span> 3/imm32/x32-is-first-output -<span id="L32428" class="LineNr">32428 </span> 0x11/imm32/alloc-id:fake -<span id="L32429" class="LineNr">32429 </span> <a href='mu.subx.html#L32431'>_Primitive-divide-xreg-by-xreg</a>/imm32/next -<span id="L32430" class="LineNr">32430 </span><span class="subxH1Comment"># - floating-point divide</span> -<span id="L32431" class="LineNr">32431 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32432" class="LineNr">32432 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32433" class="LineNr">32433 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> -<span id="L32434" class="LineNr">32434 </span> 0x11/imm32/alloc-id:fake -<span id="L32435" class="LineNr">32435 </span> <a href='mu.subx.html#L34284'>_string-divide</a>/imm32/name -<span id="L32436" class="LineNr">32436 </span> 0x11/imm32/alloc-id:fake -<span id="L32437" class="LineNr">32437 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32438" class="LineNr">32438 </span> 0x11/imm32/alloc-id:fake -<span id="L32439" class="LineNr">32439 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32440" class="LineNr">32440 </span> 0x11/imm32/alloc-id:fake -<span id="L32441" class="LineNr">32441 </span> <a href='mu.subx.html#L34616'>_string_f3_0f_5e_divide</a>/imm32/subx-name -<span id="L32442" class="LineNr">32442 </span> 0/imm32/no-rm32 -<span id="L32443" class="LineNr">32443 </span> 0/imm32/no-r32 -<span id="L32444" class="LineNr">32444 </span> 0/imm32/no-imm32 -<span id="L32445" class="LineNr">32445 </span> 0/imm32/no-imm8 -<span id="L32446" class="LineNr">32446 </span> 0/imm32/no-disp32 -<span id="L32447" class="LineNr">32447 </span> 1/imm32/xm32-is-first-inout -<span id="L32448" class="LineNr">32448 </span> 3/imm32/x32-is-first-output -<span id="L32449" class="LineNr">32449 </span> 0x11/imm32/alloc-id:fake -<span id="L32450" class="LineNr">32450 </span> <a href='mu.subx.html#L32451'>_Primitive-divide-xreg-by-mem</a>/imm32/next -<span id="L32451" class="LineNr">32451 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32452" class="LineNr">32452 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32453" class="LineNr">32453 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> -<span id="L32454" class="LineNr">32454 </span> 0x11/imm32/alloc-id:fake -<span id="L32455" class="LineNr">32455 </span> <a href='mu.subx.html#L34284'>_string-divide</a>/imm32/name +<span id="L32416" class="LineNr">32416 </span> <a href='mu.subx.html#L32417'>_Primitive-truncate-xreg-to-reg</a>/imm32/next +<span id="L32417" class="LineNr">32417 </span><span class="subxMinorFunction">_Primitive-truncate-xreg-to-reg</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/reg <- truncate var2/xreg => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</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#L34527'>_string-truncate</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#L35488'>Single-float-var-in-some-register</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#L35284'>Single-int-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#L34849'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name +<span id="L32428" class="LineNr">32428 </span> 0/imm32/no-rm32 +<span id="L32429" class="LineNr">32429 </span> 3/imm32/r32-is-first-output +<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> 0/imm32/no-x32 +<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-reinterpret-xmem-as-reg</a>/imm32/next +<span id="L32437" class="LineNr">32437 </span><span class="subxH1Comment"># - reinterpret bytes (just for debugging)</span> +<span id="L32438" class="LineNr">32438 </span><span class="subxMinorFunction">_Primitive-reinterpret-xmem-as-reg</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/reg <- reinterpret var2 => 8b/-> var2/xm32 var1/r32</span> +<span id="L32441" class="LineNr">32441 </span> 0x11/imm32/alloc-id:fake +<span id="L32442" class="LineNr">32442 </span> <a href='mu.subx.html#L34532'>_string-reinterpret</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#L35470'>Single-float-var-in-mem</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#L35284'>Single-int-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#L35069'>_string_8b_-></a>/imm32/subx-name +<span id="L32449" class="LineNr">32449 </span> 0/imm32/no-rm32 +<span id="L32450" class="LineNr">32450 </span> 3/imm32/r32-is-first-output +<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> 0/imm32/no-x32 <span id="L32456" class="LineNr">32456 </span> 0x11/imm32/alloc-id:fake -<span id="L32457" class="LineNr">32457 </span> <span class="SpecialChar"><a href='mu.subx.html#L35217'>Single-float-var-in-mem</a></span>/imm32/inouts -<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#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32460" class="LineNr">32460 </span> 0x11/imm32/alloc-id:fake -<span id="L32461" class="LineNr">32461 </span> <a href='mu.subx.html#L34616'>_string_f3_0f_5e_divide</a>/imm32/subx-name -<span id="L32462" class="LineNr">32462 </span> 0/imm32/no-rm32 -<span id="L32463" class="LineNr">32463 </span> 0/imm32/no-r32 -<span id="L32464" class="LineNr">32464 </span> 0/imm32/no-imm32 -<span id="L32465" class="LineNr">32465 </span> 0/imm32/no-imm8 -<span id="L32466" class="LineNr">32466 </span> 0/imm32/no-disp32 -<span id="L32467" class="LineNr">32467 </span> 1/imm32/xm32-is-first-inout -<span id="L32468" class="LineNr">32468 </span> 3/imm32/x32-is-first-output -<span id="L32469" class="LineNr">32469 </span> 0x11/imm32/alloc-id:fake -<span id="L32470" class="LineNr">32470 </span> <a href='mu.subx.html#L32472'>_Primitive-max-xreg-with-xreg</a>/imm32/next -<span id="L32471" class="LineNr">32471 </span><span class="subxH1Comment"># - floating-point maximum</span> -<span id="L32472" class="LineNr">32472 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32473" class="LineNr">32473 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32474" class="LineNr">32474 </span> <span class="subxComment"># var1/xreg <- max var2 => f3 0f 5f/max var2/xm32 var1/x32</span> -<span id="L32475" class="LineNr">32475 </span> 0x11/imm32/alloc-id:fake -<span id="L32476" class="LineNr">32476 </span> <a href='mu.subx.html#L34289'>_string-max</a>/imm32/name -<span id="L32477" class="LineNr">32477 </span> 0x11/imm32/alloc-id:fake -<span id="L32478" class="LineNr">32478 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32479" class="LineNr">32479 </span> 0x11/imm32/alloc-id:fake -<span id="L32480" class="LineNr">32480 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32481" class="LineNr">32481 </span> 0x11/imm32/alloc-id:fake -<span id="L32482" class="LineNr">32482 </span> <a href='mu.subx.html#L34641'>_string_f3_0f_5f_max</a>/imm32/subx-name -<span id="L32483" class="LineNr">32483 </span> 0/imm32/no-rm32 -<span id="L32484" class="LineNr">32484 </span> 0/imm32/no-r32 -<span id="L32485" class="LineNr">32485 </span> 0/imm32/no-imm32 -<span id="L32486" class="LineNr">32486 </span> 0/imm32/no-imm8 -<span id="L32487" class="LineNr">32487 </span> 0/imm32/no-disp32 -<span id="L32488" class="LineNr">32488 </span> 1/imm32/xm32-is-first-inout -<span id="L32489" class="LineNr">32489 </span> 3/imm32/x32-is-first-output -<span id="L32490" class="LineNr">32490 </span> 0x11/imm32/alloc-id:fake -<span id="L32491" class="LineNr">32491 </span> <a href='mu.subx.html#L32492'>_Primitive-max-xreg-with-mem</a>/imm32/next -<span id="L32492" class="LineNr">32492 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32493" class="LineNr">32493 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32494" class="LineNr">32494 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5f/max var2/xm32 var1/x32</span> -<span id="L32495" class="LineNr">32495 </span> 0x11/imm32/alloc-id:fake -<span id="L32496" class="LineNr">32496 </span> <a href='mu.subx.html#L34289'>_string-max</a>/imm32/name +<span id="L32457" class="LineNr">32457 </span> <a href='mu.subx.html#L32458'>_Primitive-reinterpret-mem-as-xreg</a>/imm32/next +<span id="L32458" class="LineNr">32458 </span><span class="subxMinorFunction">_Primitive-reinterpret-mem-as-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 <- reinterpret var2 => f3 0f 10/-> var2/rm32 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#L34532'>_string-reinterpret</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#L35175'>Single-int-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#L35488'>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#L34899'>_string_f3_0f_10_copy</a>/imm32/subx-name +<span id="L32469" class="LineNr">32469 </span> 1/imm32/rm32-is-first-inout +<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> 0/imm32/no-xm32 +<span id="L32475" class="LineNr">32475 </span> 3/imm32/x32-is-first-output +<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-copy-xreg-to-xreg</a>/imm32/next +<span id="L32478" class="LineNr">32478 </span><span class="subxH1Comment"># - floating-point copy</span> +<span id="L32479" class="LineNr">32479 </span><span class="subxMinorFunction">_Primitive-copy-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 <- copy var2/xreg => f3 0f 11/<- var1/xm32 var2/x32</span> +<span id="L32482" class="LineNr">32482 </span> 0x11/imm32/alloc-id:fake +<span id="L32483" class="LineNr">32483 </span> <a href='mu.subx.html#L34392'>_string-copy</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#L35488'>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#L35488'>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#L34904'>_string_f3_0f_11_copy</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> 3/imm32/xm32-is-first-output +<span id="L32496" class="LineNr">32496 </span> 1/imm32/x32-is-first-inout <span id="L32497" class="LineNr">32497 </span> 0x11/imm32/alloc-id:fake -<span id="L32498" class="LineNr">32498 </span> <span class="SpecialChar"><a href='mu.subx.html#L35217'>Single-float-var-in-mem</a></span>/imm32/inouts -<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#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32501" class="LineNr">32501 </span> 0x11/imm32/alloc-id:fake -<span id="L32502" class="LineNr">32502 </span> <a href='mu.subx.html#L34641'>_string_f3_0f_5f_max</a>/imm32/subx-name -<span id="L32503" class="LineNr">32503 </span> 0/imm32/no-rm32 -<span id="L32504" class="LineNr">32504 </span> 0/imm32/no-r32 -<span id="L32505" class="LineNr">32505 </span> 0/imm32/no-imm32 -<span id="L32506" class="LineNr">32506 </span> 0/imm32/no-imm8 -<span id="L32507" class="LineNr">32507 </span> 0/imm32/no-disp32 -<span id="L32508" class="LineNr">32508 </span> 1/imm32/xm32-is-first-inout -<span id="L32509" class="LineNr">32509 </span> 3/imm32/x32-is-first-output -<span id="L32510" class="LineNr">32510 </span> 0x11/imm32/alloc-id:fake -<span id="L32511" class="LineNr">32511 </span> <a href='mu.subx.html#L32513'>_Primitive-min-xreg-with-xreg</a>/imm32/next -<span id="L32512" class="LineNr">32512 </span><span class="subxH1Comment"># - floating-point minimum</span> -<span id="L32513" class="LineNr">32513 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32514" class="LineNr">32514 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32515" class="LineNr">32515 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> -<span id="L32516" class="LineNr">32516 </span> 0x11/imm32/alloc-id:fake -<span id="L32517" class="LineNr">32517 </span> <a href='mu.subx.html#L34294'>_string-min</a>/imm32/name -<span id="L32518" class="LineNr">32518 </span> 0x11/imm32/alloc-id:fake -<span id="L32519" class="LineNr">32519 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32520" class="LineNr">32520 </span> 0x11/imm32/alloc-id:fake -<span id="L32521" class="LineNr">32521 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32498" class="LineNr">32498 </span> <a href='mu.subx.html#L32499'>_Primitive-copy-xreg-to-mem</a>/imm32/next +<span id="L32499" class="LineNr">32499 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-mem</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"># copy-to var1 var2/xreg => f3 0f 11/<- var1 var2/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#L34397'>_string-copy-to</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#L35277'>Two-args-float-stack-float-reg</a></span>/imm32/inouts +<span id="L32506" class="LineNr">32506 </span> 0/imm32/no-outputs +<span id="L32507" class="LineNr">32507 </span> 0/imm32/no-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#L34904'>_string_f3_0f_11_copy</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> 2/imm32/x32-is-second-inout +<span id="L32517" class="LineNr">32517 </span> 0x11/imm32/alloc-id:fake +<span id="L32518" class="LineNr">32518 </span> <a href='mu.subx.html#L32519'>_Primitive-copy-mem-to-xreg</a>/imm32/next +<span id="L32519" class="LineNr">32519 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32520" class="LineNr">32520 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32521" class="LineNr">32521 </span> <span class="subxComment"># var1/xreg <- copy var2 => f3 0f 10/-> var2/rm32 var1/x32</span> <span id="L32522" class="LineNr">32522 </span> 0x11/imm32/alloc-id:fake -<span id="L32523" class="LineNr">32523 </span> <a href='mu.subx.html#L34636'>_string_f3_0f_5d_min</a>/imm32/subx-name -<span id="L32524" class="LineNr">32524 </span> 0/imm32/no-rm32 -<span id="L32525" class="LineNr">32525 </span> 0/imm32/no-r32 -<span id="L32526" class="LineNr">32526 </span> 0/imm32/no-imm32 -<span id="L32527" class="LineNr">32527 </span> 0/imm32/no-imm8 -<span id="L32528" class="LineNr">32528 </span> 0/imm32/no-disp32 -<span id="L32529" class="LineNr">32529 </span> 1/imm32/xm32-is-first-inout -<span id="L32530" class="LineNr">32530 </span> 3/imm32/x32-is-first-output -<span id="L32531" class="LineNr">32531 </span> 0x11/imm32/alloc-id:fake -<span id="L32532" class="LineNr">32532 </span> <a href='mu.subx.html#L32533'>_Primitive-min-xreg-with-mem</a>/imm32/next -<span id="L32533" class="LineNr">32533 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32534" class="LineNr">32534 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32535" class="LineNr">32535 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> -<span id="L32536" class="LineNr">32536 </span> 0x11/imm32/alloc-id:fake -<span id="L32537" class="LineNr">32537 </span> <a href='mu.subx.html#L34294'>_string-min</a>/imm32/name -<span id="L32538" class="LineNr">32538 </span> 0x11/imm32/alloc-id:fake -<span id="L32539" class="LineNr">32539 </span> <span class="SpecialChar"><a href='mu.subx.html#L35217'>Single-float-var-in-mem</a></span>/imm32/inouts -<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#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32542" class="LineNr">32542 </span> 0x11/imm32/alloc-id:fake -<span id="L32543" class="LineNr">32543 </span> <a href='mu.subx.html#L34636'>_string_f3_0f_5d_min</a>/imm32/subx-name -<span id="L32544" class="LineNr">32544 </span> 0/imm32/no-rm32 -<span id="L32545" class="LineNr">32545 </span> 0/imm32/no-r32 -<span id="L32546" class="LineNr">32546 </span> 0/imm32/no-imm32 -<span id="L32547" class="LineNr">32547 </span> 0/imm32/no-imm8 -<span id="L32548" class="LineNr">32548 </span> 0/imm32/no-disp32 -<span id="L32549" class="LineNr">32549 </span> 1/imm32/xm32-is-first-inout -<span id="L32550" class="LineNr">32550 </span> 3/imm32/x32-is-first-output -<span id="L32551" class="LineNr">32551 </span> 0x11/imm32/alloc-id:fake -<span id="L32552" class="LineNr">32552 </span> <a href='mu.subx.html#L32554'>_Primitive-reciprocal-xreg-to-xreg</a>/imm32/next -<span id="L32553" class="LineNr">32553 </span><span class="subxH1Comment"># - floating-point reciprocal</span> -<span id="L32554" class="LineNr">32554 </span><span class="subxMinorFunction">_Primitive-reciprocal-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32555" class="LineNr">32555 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32556" class="LineNr">32556 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> -<span id="L32557" class="LineNr">32557 </span> 0x11/imm32/alloc-id:fake -<span id="L32558" class="LineNr">32558 </span> <a href='mu.subx.html#L34299'>_string-reciprocal</a>/imm32/name -<span id="L32559" class="LineNr">32559 </span> 0x11/imm32/alloc-id:fake -<span id="L32560" class="LineNr">32560 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32561" class="LineNr">32561 </span> 0x11/imm32/alloc-id:fake -<span id="L32562" class="LineNr">32562 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32563" class="LineNr">32563 </span> 0x11/imm32/alloc-id:fake -<span id="L32564" class="LineNr">32564 </span> <a href='mu.subx.html#L34621'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name -<span id="L32565" class="LineNr">32565 </span> 0/imm32/no-rm32 -<span id="L32566" class="LineNr">32566 </span> 0/imm32/no-r32 -<span id="L32567" class="LineNr">32567 </span> 0/imm32/no-imm32 -<span id="L32568" class="LineNr">32568 </span> 0/imm32/no-imm8 -<span id="L32569" class="LineNr">32569 </span> 0/imm32/no-disp32 -<span id="L32570" class="LineNr">32570 </span> 1/imm32/xm32-is-first-inout -<span id="L32571" class="LineNr">32571 </span> 3/imm32/x32-is-first-output -<span id="L32572" class="LineNr">32572 </span> 0x11/imm32/alloc-id:fake -<span id="L32573" class="LineNr">32573 </span> <a href='mu.subx.html#L32574'>_Primitive-reciprocal-mem-to-xreg</a>/imm32/next -<span id="L32574" class="LineNr">32574 </span><span class="subxMinorFunction">_Primitive-reciprocal-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32575" class="LineNr">32575 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32576" class="LineNr">32576 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> -<span id="L32577" class="LineNr">32577 </span> 0x11/imm32/alloc-id:fake -<span id="L32578" class="LineNr">32578 </span> <a href='mu.subx.html#L34299'>_string-reciprocal</a>/imm32/name +<span id="L32523" class="LineNr">32523 </span> <a href='mu.subx.html#L34392'>_string-copy</a>/imm32/name +<span id="L32524" class="LineNr">32524 </span> 0x11/imm32/alloc-id:fake +<span id="L32525" class="LineNr">32525 </span> <span class="SpecialChar"><a href='mu.subx.html#L35470'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32526" class="LineNr">32526 </span> 0x11/imm32/alloc-id:fake +<span id="L32527" class="LineNr">32527 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32528" class="LineNr">32528 </span> 0x11/imm32/alloc-id:fake +<span id="L32529" class="LineNr">32529 </span> <a href='mu.subx.html#L34899'>_string_f3_0f_10_copy</a>/imm32/subx-name +<span id="L32530" class="LineNr">32530 </span> 0/imm32/no-rm32 +<span id="L32531" class="LineNr">32531 </span> 0/imm32/no-r32 +<span id="L32532" class="LineNr">32532 </span> 0/imm32/no-imm32 +<span id="L32533" class="LineNr">32533 </span> 0/imm32/no-imm8 +<span id="L32534" class="LineNr">32534 </span> 0/imm32/no-disp32 +<span id="L32535" class="LineNr">32535 </span> 1/imm32/xm32-is-first-inout +<span id="L32536" class="LineNr">32536 </span> 3/imm32/x32-is-first-output +<span id="L32537" class="LineNr">32537 </span> 0x11/imm32/alloc-id:fake +<span id="L32538" class="LineNr">32538 </span> <a href='mu.subx.html#L32540'>_Primitive-address-of-xmem</a>/imm32/next +<span id="L32539" class="LineNr">32539 </span><span class="subxH1Comment"># - floating-point-address</span> +<span id="L32540" class="LineNr">32540 </span><span class="subxMinorFunction">_Primitive-address-of-xmem</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/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</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#L34272'>_string-address</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#L35470'>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#L35291'>Single-addr-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#L35084'>_string_8d_copy_address</a>/imm32/subx-name +<span id="L32551" class="LineNr">32551 </span> 1/imm32/rm32-is-first-inout +<span id="L32552" class="LineNr">32552 </span> 3/imm32/r32-is-first-output +<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> 0/imm32/no-xm32 +<span id="L32557" class="LineNr">32557 </span> 0/imm32/no-x32 +<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-add-xreg-to-xreg</a>/imm32/next +<span id="L32560" class="LineNr">32560 </span><span class="subxH1Comment"># - floating-point add</span> +<span id="L32561" class="LineNr">32561 </span><span class="subxMinorFunction">_Primitive-add-xreg-to-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"># var1/xreg <- add var2/xreg => f3 0f 58/add var1/xm32 var2/x32</span> +<span id="L32564" class="LineNr">32564 </span> 0x11/imm32/alloc-id:fake +<span id="L32565" class="LineNr">32565 </span> <a href='mu.subx.html#L34267'>_string-add</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#L35488'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32568" class="LineNr">32568 </span> 0x11/imm32/alloc-id:fake +<span id="L32569" class="LineNr">32569 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/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#L34854'>_string_f3_0f_58_add</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> 1/imm32/xm32-is-first-inout +<span id="L32578" class="LineNr">32578 </span> 3/imm32/x32-is-first-output <span id="L32579" class="LineNr">32579 </span> 0x11/imm32/alloc-id:fake -<span id="L32580" class="LineNr">32580 </span> <span class="SpecialChar"><a href='mu.subx.html#L35217'>Single-float-var-in-mem</a></span>/imm32/inouts -<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#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32583" class="LineNr">32583 </span> 0x11/imm32/alloc-id:fake -<span id="L32584" class="LineNr">32584 </span> <a href='mu.subx.html#L34621'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name -<span id="L32585" class="LineNr">32585 </span> 0/imm32/no-rm32 -<span id="L32586" class="LineNr">32586 </span> 0/imm32/no-r32 -<span id="L32587" class="LineNr">32587 </span> 0/imm32/no-imm32 -<span id="L32588" class="LineNr">32588 </span> 0/imm32/no-imm8 -<span id="L32589" class="LineNr">32589 </span> 0/imm32/no-disp32 -<span id="L32590" class="LineNr">32590 </span> 1/imm32/xm32-is-first-inout -<span id="L32591" class="LineNr">32591 </span> 3/imm32/x32-is-first-output -<span id="L32592" class="LineNr">32592 </span> 0x11/imm32/alloc-id:fake -<span id="L32593" class="LineNr">32593 </span> <a href='mu.subx.html#L32595'>_Primitive-square-root-xreg-to-xreg</a>/imm32/next -<span id="L32594" class="LineNr">32594 </span><span class="subxH1Comment"># - floating-point square root</span> -<span id="L32595" class="LineNr">32595 </span><span class="subxMinorFunction">_Primitive-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32596" class="LineNr">32596 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32597" class="LineNr">32597 </span> <span class="subxComment"># var1/xreg <- square-root var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> -<span id="L32598" class="LineNr">32598 </span> 0x11/imm32/alloc-id:fake -<span id="L32599" class="LineNr">32599 </span> <a href='mu.subx.html#L34304'>_string-square-root</a>/imm32/name -<span id="L32600" class="LineNr">32600 </span> 0x11/imm32/alloc-id:fake -<span id="L32601" class="LineNr">32601 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32602" class="LineNr">32602 </span> 0x11/imm32/alloc-id:fake -<span id="L32603" class="LineNr">32603 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32604" class="LineNr">32604 </span> 0x11/imm32/alloc-id:fake -<span id="L32605" class="LineNr">32605 </span> <a href='mu.subx.html#L34626'>_string_f3_0f_51_square_root</a>/imm32/subx-name -<span id="L32606" class="LineNr">32606 </span> 0/imm32/no-rm32 -<span id="L32607" class="LineNr">32607 </span> 0/imm32/no-r32 -<span id="L32608" class="LineNr">32608 </span> 0/imm32/no-imm32 -<span id="L32609" class="LineNr">32609 </span> 0/imm32/no-imm8 -<span id="L32610" class="LineNr">32610 </span> 0/imm32/no-disp32 -<span id="L32611" class="LineNr">32611 </span> 1/imm32/xm32-is-first-inout -<span id="L32612" class="LineNr">32612 </span> 3/imm32/x32-is-first-output -<span id="L32613" class="LineNr">32613 </span> 0x11/imm32/alloc-id:fake -<span id="L32614" class="LineNr">32614 </span> <a href='mu.subx.html#L32615'>_Primitive-square-root-mem-to-xreg</a>/imm32/next -<span id="L32615" class="LineNr">32615 </span><span class="subxMinorFunction">_Primitive-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32616" class="LineNr">32616 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32617" class="LineNr">32617 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> -<span id="L32618" class="LineNr">32618 </span> 0x11/imm32/alloc-id:fake -<span id="L32619" class="LineNr">32619 </span> <a href='mu.subx.html#L34304'>_string-square-root</a>/imm32/name +<span id="L32580" class="LineNr">32580 </span> <a href='mu.subx.html#L32581'>_Primitive-add-mem-to-xreg</a>/imm32/next +<span id="L32581" class="LineNr">32581 </span><span class="subxMinorFunction">_Primitive-add-mem-to-xreg</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"># var1/xreg <- add var2 => f3 0f 58/add var2/xm32 var1/x32</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#L34267'>_string-add</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#L35470'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32588" class="LineNr">32588 </span> 0x11/imm32/alloc-id:fake +<span id="L32589" class="LineNr">32589 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/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#L34854'>_string_f3_0f_58_add</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> 1/imm32/xm32-is-first-inout +<span id="L32598" class="LineNr">32598 </span> 3/imm32/x32-is-first-output +<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-subtract-xreg-from-xreg</a>/imm32/next +<span id="L32601" class="LineNr">32601 </span><span class="subxH1Comment"># - floating-point subtract</span> +<span id="L32602" class="LineNr">32602 </span><span class="subxMinorFunction">_Primitive-subtract-xreg-from-xreg</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> <span class="subxComment"># var1/xreg <- subtract var2/xreg => f3 0f 5c/subtract var1/xm32 var2/x32</span> +<span id="L32605" class="LineNr">32605 </span> 0x11/imm32/alloc-id:fake +<span id="L32606" class="LineNr">32606 </span> <a href='mu.subx.html#L34587'>_string-subtract</a>/imm32/name +<span id="L32607" class="LineNr">32607 </span> 0x11/imm32/alloc-id:fake +<span id="L32608" class="LineNr">32608 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32609" class="LineNr">32609 </span> 0x11/imm32/alloc-id:fake +<span id="L32610" class="LineNr">32610 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32611" class="LineNr">32611 </span> 0x11/imm32/alloc-id:fake +<span id="L32612" class="LineNr">32612 </span> <a href='mu.subx.html#L34859'>_string_f3_0f_5c_subtract</a>/imm32/subx-name +<span id="L32613" class="LineNr">32613 </span> 0/imm32/no-rm32 +<span id="L32614" class="LineNr">32614 </span> 0/imm32/no-r32 +<span id="L32615" class="LineNr">32615 </span> 0/imm32/no-imm32 +<span id="L32616" class="LineNr">32616 </span> 0/imm32/no-imm8 +<span id="L32617" class="LineNr">32617 </span> 0/imm32/no-disp32 +<span id="L32618" class="LineNr">32618 </span> 1/imm32/xm32-is-first-inout +<span id="L32619" class="LineNr">32619 </span> 3/imm32/x32-is-first-output <span id="L32620" class="LineNr">32620 </span> 0x11/imm32/alloc-id:fake -<span id="L32621" class="LineNr">32621 </span> <span class="SpecialChar"><a href='mu.subx.html#L35217'>Single-float-var-in-mem</a></span>/imm32/inouts -<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#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32624" class="LineNr">32624 </span> 0x11/imm32/alloc-id:fake -<span id="L32625" class="LineNr">32625 </span> <a href='mu.subx.html#L34626'>_string_f3_0f_51_square_root</a>/imm32/subx-name -<span id="L32626" class="LineNr">32626 </span> 0/imm32/no-rm32 -<span id="L32627" class="LineNr">32627 </span> 0/imm32/no-r32 -<span id="L32628" class="LineNr">32628 </span> 0/imm32/no-imm32 -<span id="L32629" class="LineNr">32629 </span> 0/imm32/no-imm8 -<span id="L32630" class="LineNr">32630 </span> 0/imm32/no-disp32 -<span id="L32631" class="LineNr">32631 </span> 1/imm32/xm32-is-first-inout -<span id="L32632" class="LineNr">32632 </span> 3/imm32/x32-is-first-output -<span id="L32633" class="LineNr">32633 </span> 0x11/imm32/alloc-id:fake -<span id="L32634" class="LineNr">32634 </span> <a href='mu.subx.html#L32636'>_Primitive-inverse-square-root-xreg-to-xreg</a>/imm32/next -<span id="L32635" class="LineNr">32635 </span><span class="subxH1Comment"># - floating-point inverse square root 1/sqrt(x)</span> -<span id="L32636" class="LineNr">32636 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32637" class="LineNr">32637 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32638" class="LineNr">32638 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> -<span id="L32639" class="LineNr">32639 </span> 0x11/imm32/alloc-id:fake -<span id="L32640" class="LineNr">32640 </span> <a href='mu.subx.html#L34309'>_string-inverse-square-root</a>/imm32/name -<span id="L32641" class="LineNr">32641 </span> 0x11/imm32/alloc-id:fake -<span id="L32642" class="LineNr">32642 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32643" class="LineNr">32643 </span> 0x11/imm32/alloc-id:fake -<span id="L32644" class="LineNr">32644 </span> <span class="SpecialChar"><a href='mu.subx.html#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32645" class="LineNr">32645 </span> 0x11/imm32/alloc-id:fake -<span id="L32646" class="LineNr">32646 </span> <a href='mu.subx.html#L34631'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name -<span id="L32647" class="LineNr">32647 </span> 0/imm32/no-rm32 -<span id="L32648" class="LineNr">32648 </span> 0/imm32/no-r32 -<span id="L32649" class="LineNr">32649 </span> 0/imm32/no-imm32 -<span id="L32650" class="LineNr">32650 </span> 0/imm32/no-imm8 -<span id="L32651" class="LineNr">32651 </span> 0/imm32/no-disp32 -<span id="L32652" class="LineNr">32652 </span> 1/imm32/xm32-is-first-inout -<span id="L32653" class="LineNr">32653 </span> 3/imm32/x32-is-first-output -<span id="L32654" class="LineNr">32654 </span> 0x11/imm32/alloc-id:fake -<span id="L32655" class="LineNr">32655 </span> <a href='mu.subx.html#L32656'>_Primitive-inverse-square-root-mem-to-xreg</a>/imm32/next -<span id="L32656" class="LineNr">32656 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32657" class="LineNr">32657 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32658" class="LineNr">32658 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> -<span id="L32659" class="LineNr">32659 </span> 0x11/imm32/alloc-id:fake -<span id="L32660" class="LineNr">32660 </span> <a href='mu.subx.html#L34309'>_string-inverse-square-root</a>/imm32/name +<span id="L32621" class="LineNr">32621 </span> <a href='mu.subx.html#L32622'>_Primitive-subtract-mem-from-xreg</a>/imm32/next +<span id="L32622" class="LineNr">32622 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32623" class="LineNr">32623 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32624" class="LineNr">32624 </span> <span class="subxComment"># var1/xreg <- subtract var2 => f3 0f 5c/subtract var2/xm32 var1/x32</span> +<span id="L32625" class="LineNr">32625 </span> 0x11/imm32/alloc-id:fake +<span id="L32626" class="LineNr">32626 </span> <a href='mu.subx.html#L34587'>_string-subtract</a>/imm32/name +<span id="L32627" class="LineNr">32627 </span> 0x11/imm32/alloc-id:fake +<span id="L32628" class="LineNr">32628 </span> <span class="SpecialChar"><a href='mu.subx.html#L35470'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32629" class="LineNr">32629 </span> 0x11/imm32/alloc-id:fake +<span id="L32630" class="LineNr">32630 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32631" class="LineNr">32631 </span> 0x11/imm32/alloc-id:fake +<span id="L32632" class="LineNr">32632 </span> <a href='mu.subx.html#L34859'>_string_f3_0f_5c_subtract</a>/imm32/subx-name +<span id="L32633" class="LineNr">32633 </span> 0/imm32/no-rm32 +<span id="L32634" class="LineNr">32634 </span> 0/imm32/no-r32 +<span id="L32635" class="LineNr">32635 </span> 0/imm32/no-imm32 +<span id="L32636" class="LineNr">32636 </span> 0/imm32/no-imm8 +<span id="L32637" class="LineNr">32637 </span> 0/imm32/no-disp32 +<span id="L32638" class="LineNr">32638 </span> 1/imm32/xm32-is-first-inout +<span id="L32639" class="LineNr">32639 </span> 3/imm32/x32-is-first-output +<span id="L32640" class="LineNr">32640 </span> 0x11/imm32/alloc-id:fake +<span id="L32641" class="LineNr">32641 </span> <a href='mu.subx.html#L32643'>_Primitive-multiply-xreg-by-xreg</a>/imm32/next +<span id="L32642" class="LineNr">32642 </span><span class="subxH1Comment"># - floating-point multiply</span> +<span id="L32643" class="LineNr">32643 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32644" class="LineNr">32644 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32645" class="LineNr">32645 </span> <span class="subxComment"># var1/xreg <- multiply var2 => f3 0f 59/multiply var2/xm32 var1/x32</span> +<span id="L32646" class="LineNr">32646 </span> 0x11/imm32/alloc-id:fake +<span id="L32647" class="LineNr">32647 </span> <a href='mu.subx.html#L34517'>_string-multiply</a>/imm32/name +<span id="L32648" class="LineNr">32648 </span> 0x11/imm32/alloc-id:fake +<span id="L32649" class="LineNr">32649 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32650" class="LineNr">32650 </span> 0x11/imm32/alloc-id:fake +<span id="L32651" class="LineNr">32651 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32652" class="LineNr">32652 </span> 0x11/imm32/alloc-id:fake +<span id="L32653" class="LineNr">32653 </span> <a href='mu.subx.html#L34864'>_string_f3_0f_59_multiply</a>/imm32/subx-name +<span id="L32654" class="LineNr">32654 </span> 0/imm32/no-rm32 +<span id="L32655" class="LineNr">32655 </span> 0/imm32/no-r32 +<span id="L32656" class="LineNr">32656 </span> 0/imm32/no-imm32 +<span id="L32657" class="LineNr">32657 </span> 0/imm32/no-imm8 +<span id="L32658" class="LineNr">32658 </span> 0/imm32/no-disp32 +<span id="L32659" class="LineNr">32659 </span> 1/imm32/xm32-is-first-inout +<span id="L32660" class="LineNr">32660 </span> 3/imm32/x32-is-first-output <span id="L32661" class="LineNr">32661 </span> 0x11/imm32/alloc-id:fake -<span id="L32662" class="LineNr">32662 </span> <span class="SpecialChar"><a href='mu.subx.html#L35217'>Single-float-var-in-mem</a></span>/imm32/inouts -<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#L35235'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32665" class="LineNr">32665 </span> 0x11/imm32/alloc-id:fake -<span id="L32666" class="LineNr">32666 </span> <a href='mu.subx.html#L34631'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name -<span id="L32667" class="LineNr">32667 </span> 0/imm32/no-rm32 -<span id="L32668" class="LineNr">32668 </span> 0/imm32/no-r32 -<span id="L32669" class="LineNr">32669 </span> 0/imm32/no-imm32 -<span id="L32670" class="LineNr">32670 </span> 0/imm32/no-imm8 -<span id="L32671" class="LineNr">32671 </span> 0/imm32/no-disp32 -<span id="L32672" class="LineNr">32672 </span> 1/imm32/xm32-is-first-inout -<span id="L32673" class="LineNr">32673 </span> 3/imm32/x32-is-first-output -<span id="L32674" class="LineNr">32674 </span> 0x11/imm32/alloc-id:fake -<span id="L32675" class="LineNr">32675 </span> <a href='mu.subx.html#L32677'>_Primitive-compare-xreg-with-xreg</a>/imm32/next -<span id="L32676" class="LineNr">32676 </span><span class="subxH1Comment"># - floating-point compare</span> -<span id="L32677" class="LineNr">32677 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32678" class="LineNr">32678 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32679" class="LineNr">32679 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 0f 2f/compare var2/x32 var1/xm32</span> -<span id="L32680" class="LineNr">32680 </span> 0x11/imm32/alloc-id:fake -<span id="L32681" class="LineNr">32681 </span> <a href='mu.subx.html#L34134'>_string-compare</a>/imm32/name -<span id="L32682" class="LineNr">32682 </span> 0x11/imm32/alloc-id:fake -<span id="L32683" class="LineNr">32683 </span> <span class="SpecialChar"><a href='mu.subx.html#L35010'>Two-float-args-in-regs</a></span>/imm32/inouts -<span id="L32684" class="LineNr">32684 </span> 0/imm32/no-outputs -<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#L34656'>_string_0f_2f_compare</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> 2/imm32/xm32-is-second-inout -<span id="L32694" class="LineNr">32694 </span> 1/imm32/x32-is-first-inout -<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-compare-xreg-with-mem</a>/imm32/next -<span id="L32697" class="LineNr">32697 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-mem</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> <span class="subxComment"># compare var1/xreg var2 => 0f 2f/compare var1/x32 var2/xm32</span> -<span id="L32700" class="LineNr">32700 </span> 0x11/imm32/alloc-id:fake -<span id="L32701" class="LineNr">32701 </span> <a href='mu.subx.html#L34134'>_string-compare</a>/imm32/name +<span id="L32662" class="LineNr">32662 </span> <a href='mu.subx.html#L32663'>_Primitive-multiply-xreg-by-mem</a>/imm32/next +<span id="L32663" class="LineNr">32663 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32664" class="LineNr">32664 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32665" class="LineNr">32665 </span> <span class="subxComment"># var1/xreg <- multiply var2 => 53 0f 59/multiply var2/xm32 var1/x32</span> +<span id="L32666" class="LineNr">32666 </span> 0x11/imm32/alloc-id:fake +<span id="L32667" class="LineNr">32667 </span> <a href='mu.subx.html#L34517'>_string-multiply</a>/imm32/name +<span id="L32668" class="LineNr">32668 </span> 0x11/imm32/alloc-id:fake +<span id="L32669" class="LineNr">32669 </span> <span class="SpecialChar"><a href='mu.subx.html#L35470'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32670" class="LineNr">32670 </span> 0x11/imm32/alloc-id:fake +<span id="L32671" class="LineNr">32671 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32672" class="LineNr">32672 </span> 0x11/imm32/alloc-id:fake +<span id="L32673" class="LineNr">32673 </span> <a href='mu.subx.html#L34864'>_string_f3_0f_59_multiply</a>/imm32/subx-name +<span id="L32674" class="LineNr">32674 </span> 0/imm32/no-rm32 +<span id="L32675" class="LineNr">32675 </span> 0/imm32/no-r32 +<span id="L32676" class="LineNr">32676 </span> 0/imm32/no-imm32 +<span id="L32677" class="LineNr">32677 </span> 0/imm32/no-imm8 +<span id="L32678" class="LineNr">32678 </span> 0/imm32/no-disp32 +<span id="L32679" class="LineNr">32679 </span> 1/imm32/xm32-is-first-inout +<span id="L32680" class="LineNr">32680 </span> 3/imm32/x32-is-first-output +<span id="L32681" class="LineNr">32681 </span> 0x11/imm32/alloc-id:fake +<span id="L32682" class="LineNr">32682 </span> <a href='mu.subx.html#L32684'>_Primitive-divide-xreg-by-xreg</a>/imm32/next +<span id="L32683" class="LineNr">32683 </span><span class="subxH1Comment"># - floating-point divide</span> +<span id="L32684" class="LineNr">32684 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32685" class="LineNr">32685 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32686" class="LineNr">32686 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> +<span id="L32687" class="LineNr">32687 </span> 0x11/imm32/alloc-id:fake +<span id="L32688" class="LineNr">32688 </span> <a href='mu.subx.html#L34537'>_string-divide</a>/imm32/name +<span id="L32689" class="LineNr">32689 </span> 0x11/imm32/alloc-id:fake +<span id="L32690" class="LineNr">32690 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32691" class="LineNr">32691 </span> 0x11/imm32/alloc-id:fake +<span id="L32692" class="LineNr">32692 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32693" class="LineNr">32693 </span> 0x11/imm32/alloc-id:fake +<span id="L32694" class="LineNr">32694 </span> <a href='mu.subx.html#L34869'>_string_f3_0f_5e_divide</a>/imm32/subx-name +<span id="L32695" class="LineNr">32695 </span> 0/imm32/no-rm32 +<span id="L32696" class="LineNr">32696 </span> 0/imm32/no-r32 +<span id="L32697" class="LineNr">32697 </span> 0/imm32/no-imm32 +<span id="L32698" class="LineNr">32698 </span> 0/imm32/no-imm8 +<span id="L32699" class="LineNr">32699 </span> 0/imm32/no-disp32 +<span id="L32700" class="LineNr">32700 </span> 1/imm32/xm32-is-first-inout +<span id="L32701" class="LineNr">32701 </span> 3/imm32/x32-is-first-output <span id="L32702" class="LineNr">32702 </span> 0x11/imm32/alloc-id:fake -<span id="L32703" class="LineNr">32703 </span> <span class="SpecialChar"><a href='mu.subx.html#L35017'>Two-args-float-reg-float-stack</a></span>/imm32/inouts -<span id="L32704" class="LineNr">32704 </span> 0/imm32/no-outputs -<span id="L32705" class="LineNr">32705 </span> 0/imm32/no-outputs -<span id="L32706" class="LineNr">32706 </span> 0x11/imm32/alloc-id:fake -<span id="L32707" class="LineNr">32707 </span> <a href='mu.subx.html#L34656'>_string_0f_2f_compare</a>/imm32/subx-name -<span id="L32708" class="LineNr">32708 </span> 0/imm32/no-rm32 -<span id="L32709" class="LineNr">32709 </span> 0/imm32/no-r32 -<span id="L32710" class="LineNr">32710 </span> 0/imm32/no-imm32 -<span id="L32711" class="LineNr">32711 </span> 0/imm32/no-imm8 -<span id="L32712" class="LineNr">32712 </span> 0/imm32/no-disp32 -<span id="L32713" class="LineNr">32713 </span> 2/imm32/xm32-is-second-inout -<span id="L32714" class="LineNr">32714 </span> 1/imm32/x32-is-first-inout -<span id="L32715" class="LineNr">32715 </span> 0x11/imm32/alloc-id:fake -<span id="L32716" class="LineNr">32716 </span> <a href='mu.subx.html#L32718'>_Primitive-break-if-addr<</a>/imm32/next -<span id="L32717" class="LineNr">32717 </span><span class="subxH1Comment"># - branches</span> -<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#L34074'>_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#L34436'>_string_0f_82_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-addr>=</a>/imm32/next -<span id="L32737" class="LineNr">32737 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32738" class="LineNr">32738 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32739" class="LineNr">32739 </span> 0x11/imm32/alloc-id:fake -<span id="L32740" class="LineNr">32740 </span> <a href='mu.subx.html#L34089'>_string-break-if-addr>=</a>/imm32/name -<span id="L32741" class="LineNr">32741 </span> 0/imm32/no-inouts -<span id="L32742" class="LineNr">32742 </span> 0/imm32/no-inouts -<span id="L32743" class="LineNr">32743 </span> 0/imm32/no-outputs -<span id="L32744" class="LineNr">32744 </span> 0/imm32/no-outputs -<span id="L32745" class="LineNr">32745 </span> 0x11/imm32/alloc-id:fake -<span id="L32746" class="LineNr">32746 </span> <a href='mu.subx.html#L34451'>_string_0f_83_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="L32703" class="LineNr">32703 </span> <a href='mu.subx.html#L32704'>_Primitive-divide-xreg-by-mem</a>/imm32/next +<span id="L32704" class="LineNr">32704 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32705" class="LineNr">32705 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32706" class="LineNr">32706 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> +<span id="L32707" class="LineNr">32707 </span> 0x11/imm32/alloc-id:fake +<span id="L32708" class="LineNr">32708 </span> <a href='mu.subx.html#L34537'>_string-divide</a>/imm32/name +<span id="L32709" class="LineNr">32709 </span> 0x11/imm32/alloc-id:fake +<span id="L32710" class="LineNr">32710 </span> <span class="SpecialChar"><a href='mu.subx.html#L35470'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32711" class="LineNr">32711 </span> 0x11/imm32/alloc-id:fake +<span id="L32712" class="LineNr">32712 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32713" class="LineNr">32713 </span> 0x11/imm32/alloc-id:fake +<span id="L32714" class="LineNr">32714 </span> <a href='mu.subx.html#L34869'>_string_f3_0f_5e_divide</a>/imm32/subx-name +<span id="L32715" class="LineNr">32715 </span> 0/imm32/no-rm32 +<span id="L32716" class="LineNr">32716 </span> 0/imm32/no-r32 +<span id="L32717" class="LineNr">32717 </span> 0/imm32/no-imm32 +<span id="L32718" class="LineNr">32718 </span> 0/imm32/no-imm8 +<span id="L32719" class="LineNr">32719 </span> 0/imm32/no-disp32 +<span id="L32720" class="LineNr">32720 </span> 1/imm32/xm32-is-first-inout +<span id="L32721" class="LineNr">32721 </span> 3/imm32/x32-is-first-output +<span id="L32722" class="LineNr">32722 </span> 0x11/imm32/alloc-id:fake +<span id="L32723" class="LineNr">32723 </span> <a href='mu.subx.html#L32725'>_Primitive-max-xreg-with-xreg</a>/imm32/next +<span id="L32724" class="LineNr">32724 </span><span class="subxH1Comment"># - floating-point maximum</span> +<span id="L32725" class="LineNr">32725 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32726" class="LineNr">32726 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32727" class="LineNr">32727 </span> <span class="subxComment"># var1/xreg <- max var2 => f3 0f 5f/max var2/xm32 var1/x32</span> +<span id="L32728" class="LineNr">32728 </span> 0x11/imm32/alloc-id:fake +<span id="L32729" class="LineNr">32729 </span> <a href='mu.subx.html#L34542'>_string-max</a>/imm32/name +<span id="L32730" class="LineNr">32730 </span> 0x11/imm32/alloc-id:fake +<span id="L32731" class="LineNr">32731 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32732" class="LineNr">32732 </span> 0x11/imm32/alloc-id:fake +<span id="L32733" class="LineNr">32733 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32734" class="LineNr">32734 </span> 0x11/imm32/alloc-id:fake +<span id="L32735" class="LineNr">32735 </span> <a href='mu.subx.html#L34894'>_string_f3_0f_5f_max</a>/imm32/subx-name +<span id="L32736" class="LineNr">32736 </span> 0/imm32/no-rm32 +<span id="L32737" class="LineNr">32737 </span> 0/imm32/no-r32 +<span id="L32738" class="LineNr">32738 </span> 0/imm32/no-imm32 +<span id="L32739" class="LineNr">32739 </span> 0/imm32/no-imm8 +<span id="L32740" class="LineNr">32740 </span> 0/imm32/no-disp32 +<span id="L32741" class="LineNr">32741 </span> 1/imm32/xm32-is-first-inout +<span id="L32742" class="LineNr">32742 </span> 3/imm32/x32-is-first-output +<span id="L32743" class="LineNr">32743 </span> 0x11/imm32/alloc-id:fake +<span id="L32744" class="LineNr">32744 </span> <a href='mu.subx.html#L32745'>_Primitive-max-xreg-with-mem</a>/imm32/next +<span id="L32745" class="LineNr">32745 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32746" class="LineNr">32746 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32747" class="LineNr">32747 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5f/max var2/xm32 var1/x32</span> +<span id="L32748" class="LineNr">32748 </span> 0x11/imm32/alloc-id:fake +<span id="L32749" class="LineNr">32749 </span> <a href='mu.subx.html#L34542'>_string-max</a>/imm32/name +<span id="L32750" class="LineNr">32750 </span> 0x11/imm32/alloc-id:fake +<span id="L32751" class="LineNr">32751 </span> <span class="SpecialChar"><a href='mu.subx.html#L35470'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32752" class="LineNr">32752 </span> 0x11/imm32/alloc-id:fake +<span id="L32753" class="LineNr">32753 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs <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#L34054'>_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#L34466'>_string_0f_84_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="L32755" class="LineNr">32755 </span> <a href='mu.subx.html#L34894'>_string_f3_0f_5f_max</a>/imm32/subx-name +<span id="L32756" class="LineNr">32756 </span> 0/imm32/no-rm32 +<span id="L32757" class="LineNr">32757 </span> 0/imm32/no-r32 +<span id="L32758" class="LineNr">32758 </span> 0/imm32/no-imm32 +<span id="L32759" class="LineNr">32759 </span> 0/imm32/no-imm8 +<span id="L32760" class="LineNr">32760 </span> 0/imm32/no-disp32 +<span id="L32761" class="LineNr">32761 </span> 1/imm32/xm32-is-first-inout +<span id="L32762" class="LineNr">32762 </span> 3/imm32/x32-is-first-output +<span id="L32763" class="LineNr">32763 </span> 0x11/imm32/alloc-id:fake +<span id="L32764" class="LineNr">32764 </span> <a href='mu.subx.html#L32766'>_Primitive-min-xreg-with-xreg</a>/imm32/next +<span id="L32765" class="LineNr">32765 </span><span class="subxH1Comment"># - floating-point minimum</span> +<span id="L32766" class="LineNr">32766 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32767" class="LineNr">32767 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32768" class="LineNr">32768 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> +<span id="L32769" class="LineNr">32769 </span> 0x11/imm32/alloc-id:fake +<span id="L32770" class="LineNr">32770 </span> <a href='mu.subx.html#L34547'>_string-min</a>/imm32/name +<span id="L32771" class="LineNr">32771 </span> 0x11/imm32/alloc-id:fake +<span id="L32772" class="LineNr">32772 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/inouts <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-!=</a>/imm32/next -<span id="L32775" class="LineNr">32775 </span><span class="subxMinorFunction">_Primitive-break-if-!=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32776" class="LineNr">32776 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32777" class="LineNr">32777 </span> 0x11/imm32/alloc-id:fake -<span id="L32778" class="LineNr">32778 </span> <a href='mu.subx.html#L34069'>_string-break-if-!=</a>/imm32/name -<span id="L32779" class="LineNr">32779 </span> 0/imm32/no-inouts -<span id="L32780" class="LineNr">32780 </span> 0/imm32/no-inouts -<span id="L32781" class="LineNr">32781 </span> 0/imm32/no-outputs -<span id="L32782" class="LineNr">32782 </span> 0/imm32/no-outputs -<span id="L32783" class="LineNr">32783 </span> 0x11/imm32/alloc-id:fake -<span id="L32784" class="LineNr">32784 </span> <a href='mu.subx.html#L34481'>_string_0f_85_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#L34079'>_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#L34496'>_string_0f_86_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-addr></a>/imm32/next -<span id="L32813" class="LineNr">32813 </span><span class="subxMinorFunction">_Primitive-break-if-addr></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#L34084'>_string-break-if-addr></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#L34511'>_string_0f_87_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="L32774" class="LineNr">32774 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32775" class="LineNr">32775 </span> 0x11/imm32/alloc-id:fake +<span id="L32776" class="LineNr">32776 </span> <a href='mu.subx.html#L34889'>_string_f3_0f_5d_min</a>/imm32/subx-name +<span id="L32777" class="LineNr">32777 </span> 0/imm32/no-rm32 +<span id="L32778" class="LineNr">32778 </span> 0/imm32/no-r32 +<span id="L32779" class="LineNr">32779 </span> 0/imm32/no-imm32 +<span id="L32780" class="LineNr">32780 </span> 0/imm32/no-imm8 +<span id="L32781" class="LineNr">32781 </span> 0/imm32/no-disp32 +<span id="L32782" class="LineNr">32782 </span> 1/imm32/xm32-is-first-inout +<span id="L32783" class="LineNr">32783 </span> 3/imm32/x32-is-first-output +<span id="L32784" class="LineNr">32784 </span> 0x11/imm32/alloc-id:fake +<span id="L32785" class="LineNr">32785 </span> <a href='mu.subx.html#L32786'>_Primitive-min-xreg-with-mem</a>/imm32/next +<span id="L32786" class="LineNr">32786 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32787" class="LineNr">32787 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32788" class="LineNr">32788 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> +<span id="L32789" class="LineNr">32789 </span> 0x11/imm32/alloc-id:fake +<span id="L32790" class="LineNr">32790 </span> <a href='mu.subx.html#L34547'>_string-min</a>/imm32/name +<span id="L32791" class="LineNr">32791 </span> 0x11/imm32/alloc-id:fake +<span id="L32792" class="LineNr">32792 </span> <span class="SpecialChar"><a href='mu.subx.html#L35470'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32793" class="LineNr">32793 </span> 0x11/imm32/alloc-id:fake +<span id="L32794" class="LineNr">32794 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32795" class="LineNr">32795 </span> 0x11/imm32/alloc-id:fake +<span id="L32796" class="LineNr">32796 </span> <a href='mu.subx.html#L34889'>_string_f3_0f_5d_min</a>/imm32/subx-name +<span id="L32797" class="LineNr">32797 </span> 0/imm32/no-rm32 +<span id="L32798" class="LineNr">32798 </span> 0/imm32/no-r32 +<span id="L32799" class="LineNr">32799 </span> 0/imm32/no-imm32 +<span id="L32800" class="LineNr">32800 </span> 0/imm32/no-imm8 +<span id="L32801" class="LineNr">32801 </span> 0/imm32/no-disp32 +<span id="L32802" class="LineNr">32802 </span> 1/imm32/xm32-is-first-inout +<span id="L32803" class="LineNr">32803 </span> 3/imm32/x32-is-first-output +<span id="L32804" class="LineNr">32804 </span> 0x11/imm32/alloc-id:fake +<span id="L32805" class="LineNr">32805 </span> <a href='mu.subx.html#L32807'>_Primitive-reciprocal-xreg-to-xreg</a>/imm32/next +<span id="L32806" class="LineNr">32806 </span><span class="subxH1Comment"># - floating-point reciprocal</span> +<span id="L32807" class="LineNr">32807 </span><span class="subxMinorFunction">_Primitive-reciprocal-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32808" class="LineNr">32808 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32809" class="LineNr">32809 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> +<span id="L32810" class="LineNr">32810 </span> 0x11/imm32/alloc-id:fake +<span id="L32811" class="LineNr">32811 </span> <a href='mu.subx.html#L34552'>_string-reciprocal</a>/imm32/name +<span id="L32812" class="LineNr">32812 </span> 0x11/imm32/alloc-id:fake +<span id="L32813" class="LineNr">32813 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32814" class="LineNr">32814 </span> 0x11/imm32/alloc-id:fake +<span id="L32815" class="LineNr">32815 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32816" class="LineNr">32816 </span> 0x11/imm32/alloc-id:fake +<span id="L32817" class="LineNr">32817 </span> <a href='mu.subx.html#L34874'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name +<span id="L32818" class="LineNr">32818 </span> 0/imm32/no-rm32 +<span id="L32819" class="LineNr">32819 </span> 0/imm32/no-r32 +<span id="L32820" class="LineNr">32820 </span> 0/imm32/no-imm32 +<span id="L32821" class="LineNr">32821 </span> 0/imm32/no-imm8 +<span id="L32822" class="LineNr">32822 </span> 0/imm32/no-disp32 +<span id="L32823" class="LineNr">32823 </span> 1/imm32/xm32-is-first-inout +<span id="L32824" class="LineNr">32824 </span> 3/imm32/x32-is-first-output +<span id="L32825" class="LineNr">32825 </span> 0x11/imm32/alloc-id:fake +<span id="L32826" class="LineNr">32826 </span> <a href='mu.subx.html#L32827'>_Primitive-reciprocal-mem-to-xreg</a>/imm32/next +<span id="L32827" class="LineNr">32827 </span><span class="subxMinorFunction">_Primitive-reciprocal-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32828" class="LineNr">32828 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32829" class="LineNr">32829 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> <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="L32831" class="LineNr">32831 </span> <a href='mu.subx.html#L34552'>_string-reciprocal</a>/imm32/name +<span id="L32832" class="LineNr">32832 </span> 0x11/imm32/alloc-id:fake +<span id="L32833" class="LineNr">32833 </span> <span class="SpecialChar"><a href='mu.subx.html#L35470'>Single-float-var-in-mem</a></span>/imm32/inouts <span id="L32834" class="LineNr">32834 </span> 0x11/imm32/alloc-id:fake -<span id="L32835" class="LineNr">32835 </span> <a href='mu.subx.html#L34044'>_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#L34526'>_string_0f_8c_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="L32835" class="LineNr">32835 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32836" class="LineNr">32836 </span> 0x11/imm32/alloc-id:fake +<span id="L32837" class="LineNr">32837 </span> <a href='mu.subx.html#L34874'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name +<span id="L32838" class="LineNr">32838 </span> 0/imm32/no-rm32 +<span id="L32839" class="LineNr">32839 </span> 0/imm32/no-r32 +<span id="L32840" class="LineNr">32840 </span> 0/imm32/no-imm32 +<span id="L32841" class="LineNr">32841 </span> 0/imm32/no-imm8 +<span id="L32842" class="LineNr">32842 </span> 0/imm32/no-disp32 +<span id="L32843" class="LineNr">32843 </span> 1/imm32/xm32-is-first-inout +<span id="L32844" class="LineNr">32844 </span> 3/imm32/x32-is-first-output +<span id="L32845" class="LineNr">32845 </span> 0x11/imm32/alloc-id:fake +<span id="L32846" class="LineNr">32846 </span> <a href='mu.subx.html#L32848'>_Primitive-square-root-xreg-to-xreg</a>/imm32/next +<span id="L32847" class="LineNr">32847 </span><span class="subxH1Comment"># - floating-point square root</span> +<span id="L32848" class="LineNr">32848 </span><span class="subxMinorFunction">_Primitive-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32849" class="LineNr">32849 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32850" class="LineNr">32850 </span> <span class="subxComment"># var1/xreg <- square-root var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> +<span id="L32851" class="LineNr">32851 </span> 0x11/imm32/alloc-id:fake +<span id="L32852" class="LineNr">32852 </span> <a href='mu.subx.html#L34557'>_string-square-root</a>/imm32/name <span id="L32853" class="LineNr">32853 </span> 0x11/imm32/alloc-id:fake -<span id="L32854" class="LineNr">32854 </span> <a href='mu.subx.html#L34064'>_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#L34541'>_string_0f_8d_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#L34049'>_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#L34556'>_string_0f_8e_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-></a>/imm32/next -<span id="L32889" class="LineNr">32889 </span><span class="subxMinorFunction">_Primitive-break-if-></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32854" class="LineNr">32854 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32855" class="LineNr">32855 </span> 0x11/imm32/alloc-id:fake +<span id="L32856" class="LineNr">32856 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/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#L34879'>_string_f3_0f_51_square_root</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> 1/imm32/xm32-is-first-inout +<span id="L32865" class="LineNr">32865 </span> 3/imm32/x32-is-first-output +<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-square-root-mem-to-xreg</a>/imm32/next +<span id="L32868" class="LineNr">32868 </span><span class="subxMinorFunction">_Primitive-square-root-mem-to-xreg</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> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> +<span id="L32871" class="LineNr">32871 </span> 0x11/imm32/alloc-id:fake +<span id="L32872" class="LineNr">32872 </span> <a href='mu.subx.html#L34557'>_string-square-root</a>/imm32/name +<span id="L32873" class="LineNr">32873 </span> 0x11/imm32/alloc-id:fake +<span id="L32874" class="LineNr">32874 </span> <span class="SpecialChar"><a href='mu.subx.html#L35470'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32875" class="LineNr">32875 </span> 0x11/imm32/alloc-id:fake +<span id="L32876" class="LineNr">32876 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32877" class="LineNr">32877 </span> 0x11/imm32/alloc-id:fake +<span id="L32878" class="LineNr">32878 </span> <a href='mu.subx.html#L34879'>_string_f3_0f_51_square_root</a>/imm32/subx-name +<span id="L32879" class="LineNr">32879 </span> 0/imm32/no-rm32 +<span id="L32880" class="LineNr">32880 </span> 0/imm32/no-r32 +<span id="L32881" class="LineNr">32881 </span> 0/imm32/no-imm32 +<span id="L32882" class="LineNr">32882 </span> 0/imm32/no-imm8 +<span id="L32883" class="LineNr">32883 </span> 0/imm32/no-disp32 +<span id="L32884" class="LineNr">32884 </span> 1/imm32/xm32-is-first-inout +<span id="L32885" class="LineNr">32885 </span> 3/imm32/x32-is-first-output +<span id="L32886" class="LineNr">32886 </span> 0x11/imm32/alloc-id:fake +<span id="L32887" class="LineNr">32887 </span> <a href='mu.subx.html#L32889'>_Primitive-inverse-square-root-xreg-to-xreg</a>/imm32/next +<span id="L32888" class="LineNr">32888 </span><span class="subxH1Comment"># - floating-point inverse square root 1/sqrt(x)</span> +<span id="L32889" class="LineNr">32889 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-xreg-to-xreg</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#L34059'>_string-break-if-></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#L34571'>_string_0f_8f_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-carry</a>/imm32/next -<span id="L32908" class="LineNr">32908 </span><span class="subxMinorFunction">_Primitive-break-if-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#L34114'>_string-break-if-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="L32891" class="LineNr">32891 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> +<span id="L32892" class="LineNr">32892 </span> 0x11/imm32/alloc-id:fake +<span id="L32893" class="LineNr">32893 </span> <a href='mu.subx.html#L34562'>_string-inverse-square-root</a>/imm32/name +<span id="L32894" class="LineNr">32894 </span> 0x11/imm32/alloc-id:fake +<span id="L32895" class="LineNr">32895 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32896" class="LineNr">32896 </span> 0x11/imm32/alloc-id:fake +<span id="L32897" class="LineNr">32897 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32898" class="LineNr">32898 </span> 0x11/imm32/alloc-id:fake +<span id="L32899" class="LineNr">32899 </span> <a href='mu.subx.html#L34884'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name +<span id="L32900" class="LineNr">32900 </span> 0/imm32/no-rm32 +<span id="L32901" class="LineNr">32901 </span> 0/imm32/no-r32 +<span id="L32902" class="LineNr">32902 </span> 0/imm32/no-imm32 +<span id="L32903" class="LineNr">32903 </span> 0/imm32/no-imm8 +<span id="L32904" class="LineNr">32904 </span> 0/imm32/no-disp32 +<span id="L32905" class="LineNr">32905 </span> 1/imm32/xm32-is-first-inout +<span id="L32906" class="LineNr">32906 </span> 3/imm32/x32-is-first-output +<span id="L32907" class="LineNr">32907 </span> 0x11/imm32/alloc-id:fake +<span id="L32908" class="LineNr">32908 </span> <a href='mu.subx.html#L32909'>_Primitive-inverse-square-root-mem-to-xreg</a>/imm32/next +<span id="L32909" class="LineNr">32909 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32910" class="LineNr">32910 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32911" class="LineNr">32911 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> +<span id="L32912" class="LineNr">32912 </span> 0x11/imm32/alloc-id:fake +<span id="L32913" class="LineNr">32913 </span> <a href='mu.subx.html#L34562'>_string-inverse-square-root</a>/imm32/name +<span id="L32914" class="LineNr">32914 </span> 0x11/imm32/alloc-id:fake +<span id="L32915" class="LineNr">32915 </span> <span class="SpecialChar"><a href='mu.subx.html#L35470'>Single-float-var-in-mem</a></span>/imm32/inouts <span id="L32916" class="LineNr">32916 </span> 0x11/imm32/alloc-id:fake -<span id="L32917" class="LineNr">32917 </span> <a href='mu.subx.html#L34436'>_string_0f_82_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-not-carry</a>/imm32/next -<span id="L32927" class="LineNr">32927 </span><span class="subxMinorFunction">_Primitive-break-if-not-carry</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#L34119'>_string-break-if-not-carry</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="L32917" class="LineNr">32917 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32918" class="LineNr">32918 </span> 0x11/imm32/alloc-id:fake +<span id="L32919" class="LineNr">32919 </span> <a href='mu.subx.html#L34884'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name +<span id="L32920" class="LineNr">32920 </span> 0/imm32/no-rm32 +<span id="L32921" class="LineNr">32921 </span> 0/imm32/no-r32 +<span id="L32922" class="LineNr">32922 </span> 0/imm32/no-imm32 +<span id="L32923" class="LineNr">32923 </span> 0/imm32/no-imm8 +<span id="L32924" class="LineNr">32924 </span> 0/imm32/no-disp32 +<span id="L32925" class="LineNr">32925 </span> 1/imm32/xm32-is-first-inout +<span id="L32926" class="LineNr">32926 </span> 3/imm32/x32-is-first-output +<span id="L32927" class="LineNr">32927 </span> 0x11/imm32/alloc-id:fake +<span id="L32928" class="LineNr">32928 </span> <a href='mu.subx.html#L32930'>_Primitive-compare-xreg-with-xreg</a>/imm32/next +<span id="L32929" class="LineNr">32929 </span><span class="subxH1Comment"># - floating-point compare</span> +<span id="L32930" class="LineNr">32930 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32931" class="LineNr">32931 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32932" class="LineNr">32932 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 0f 2f/compare var2/x32 var1/xm32</span> +<span id="L32933" class="LineNr">32933 </span> 0x11/imm32/alloc-id:fake +<span id="L32934" class="LineNr">32934 </span> <a href='mu.subx.html#L34387'>_string-compare</a>/imm32/name <span id="L32935" class="LineNr">32935 </span> 0x11/imm32/alloc-id:fake -<span id="L32936" class="LineNr">32936 </span> <a href='mu.subx.html#L34451'>_string_0f_83_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-overflow</a>/imm32/next -<span id="L32946" class="LineNr">32946 </span><span class="subxMinorFunction">_Primitive-break-if-overflow</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32947" class="LineNr">32947 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32936" class="LineNr">32936 </span> <span class="SpecialChar"><a href='mu.subx.html#L35263'>Two-float-args-in-regs</a></span>/imm32/inouts +<span id="L32937" class="LineNr">32937 </span> 0/imm32/no-outputs +<span id="L32938" class="LineNr">32938 </span> 0/imm32/no-outputs +<span id="L32939" class="LineNr">32939 </span> 0x11/imm32/alloc-id:fake +<span id="L32940" class="LineNr">32940 </span> <a href='mu.subx.html#L34909'>_string_0f_2f_compare</a>/imm32/subx-name +<span id="L32941" class="LineNr">32941 </span> 0/imm32/no-rm32 +<span id="L32942" class="LineNr">32942 </span> 0/imm32/no-r32 +<span id="L32943" class="LineNr">32943 </span> 0/imm32/no-imm32 +<span id="L32944" class="LineNr">32944 </span> 0/imm32/no-imm8 +<span id="L32945" class="LineNr">32945 </span> 0/imm32/no-disp32 +<span id="L32946" class="LineNr">32946 </span> 2/imm32/xm32-is-second-inout +<span id="L32947" class="LineNr">32947 </span> 1/imm32/x32-is-first-inout <span id="L32948" class="LineNr">32948 </span> 0x11/imm32/alloc-id:fake -<span id="L32949" class="LineNr">32949 </span> <a href='mu.subx.html#L34124'>_string-break-if-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#L34406'>_string_0f_80_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-if-not-overflow</a>/imm32/next -<span id="L32965" class="LineNr">32965 </span><span class="subxMinorFunction">_Primitive-break-if-not-overflow</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#L34129'>_string-break-if-not-overflow</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="L32949" class="LineNr">32949 </span> <a href='mu.subx.html#L32950'>_Primitive-compare-xreg-with-mem</a>/imm32/next +<span id="L32950" class="LineNr">32950 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32951" class="LineNr">32951 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32952" class="LineNr">32952 </span> <span class="subxComment"># compare var1/xreg var2 => 0f 2f/compare var1/x32 var2/xm32</span> +<span id="L32953" class="LineNr">32953 </span> 0x11/imm32/alloc-id:fake +<span id="L32954" class="LineNr">32954 </span> <a href='mu.subx.html#L34387'>_string-compare</a>/imm32/name +<span id="L32955" class="LineNr">32955 </span> 0x11/imm32/alloc-id:fake +<span id="L32956" class="LineNr">32956 </span> <span class="SpecialChar"><a href='mu.subx.html#L35270'>Two-args-float-reg-float-stack</a></span>/imm32/inouts +<span id="L32957" class="LineNr">32957 </span> 0/imm32/no-outputs +<span id="L32958" class="LineNr">32958 </span> 0/imm32/no-outputs +<span id="L32959" class="LineNr">32959 </span> 0x11/imm32/alloc-id:fake +<span id="L32960" class="LineNr">32960 </span> <a href='mu.subx.html#L34909'>_string_0f_2f_compare</a>/imm32/subx-name +<span id="L32961" class="LineNr">32961 </span> 0/imm32/no-rm32 +<span id="L32962" class="LineNr">32962 </span> 0/imm32/no-r32 +<span id="L32963" class="LineNr">32963 </span> 0/imm32/no-imm32 +<span id="L32964" class="LineNr">32964 </span> 0/imm32/no-imm8 +<span id="L32965" class="LineNr">32965 </span> 0/imm32/no-disp32 +<span id="L32966" class="LineNr">32966 </span> 2/imm32/xm32-is-second-inout +<span id="L32967" class="LineNr">32967 </span> 1/imm32/x32-is-first-inout +<span id="L32968" class="LineNr">32968 </span> 0x11/imm32/alloc-id:fake +<span id="L32969" class="LineNr">32969 </span> <a href='mu.subx.html#L32971'>_Primitive-break-if-addr<</a>/imm32/next +<span id="L32970" class="LineNr">32970 </span><span class="subxH1Comment"># - branches</span> +<span id="L32971" class="LineNr">32971 </span><span class="subxMinorFunction">_Primitive-break-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32972" class="LineNr">32972 </span> 0x11/imm32/alloc-id:fake:payload <span id="L32973" class="LineNr">32973 </span> 0x11/imm32/alloc-id:fake -<span id="L32974" class="LineNr">32974 </span> <a href='mu.subx.html#L34421'>_string_0f_81_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-break</a>/imm32/next -<span id="L32984" class="LineNr">32984 </span><span class="subxMinorFunction">_Primitive-break</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#L34039'>_string-break</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="L32974" class="LineNr">32974 </span> <a href='mu.subx.html#L34327'>_string-break-if-addr<</a>/imm32/name +<span id="L32975" class="LineNr">32975 </span> 0/imm32/no-inouts +<span id="L32976" class="LineNr">32976 </span> 0/imm32/no-inouts +<span id="L32977" class="LineNr">32977 </span> 0/imm32/no-outputs +<span id="L32978" class="LineNr">32978 </span> 0/imm32/no-outputs +<span id="L32979" class="LineNr">32979 </span> 0x11/imm32/alloc-id:fake +<span id="L32980" class="LineNr">32980 </span> <a href='mu.subx.html#L34689'>_string_0f_82_jump_break</a>/imm32/subx-name +<span id="L32981" class="LineNr">32981 </span> 0/imm32/no-rm32 +<span id="L32982" class="LineNr">32982 </span> 0/imm32/no-r32 +<span id="L32983" class="LineNr">32983 </span> 0/imm32/no-imm32 +<span id="L32984" class="LineNr">32984 </span> 0/imm32/no-imm8 +<span id="L32985" class="LineNr">32985 </span> 0/imm32/no-disp32 +<span id="L32986" class="LineNr">32986 </span> 0/imm32/no-xm32 +<span id="L32987" class="LineNr">32987 </span> 0/imm32/no-x32 +<span id="L32988" class="LineNr">32988 </span> 0x11/imm32/alloc-id:fake +<span id="L32989" class="LineNr">32989 </span> <a href='mu.subx.html#L32990'>_Primitive-break-if-addr>=</a>/imm32/next +<span id="L32990" class="LineNr">32990 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32991" class="LineNr">32991 </span> 0x11/imm32/alloc-id:fake:payload <span id="L32992" class="LineNr">32992 </span> 0x11/imm32/alloc-id:fake -<span id="L32993" class="LineNr">32993 </span> <a href='mu.subx.html#L34876'>_string_e9_jump_break</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#L34204'>_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="L32993" class="LineNr">32993 </span> <a href='mu.subx.html#L34342'>_string-break-if-addr>=</a>/imm32/name +<span id="L32994" class="LineNr">32994 </span> 0/imm32/no-inouts +<span id="L32995" class="LineNr">32995 </span> 0/imm32/no-inouts +<span id="L32996" class="LineNr">32996 </span> 0/imm32/no-outputs +<span id="L32997" class="LineNr">32997 </span> 0/imm32/no-outputs +<span id="L32998" class="LineNr">32998 </span> 0x11/imm32/alloc-id:fake +<span id="L32999" class="LineNr">32999 </span> <a href='mu.subx.html#L34704'>_string_0f_83_jump_break</a>/imm32/subx-name +<span id="L33000" class="LineNr">33000 </span> 0/imm32/no-rm32 +<span id="L33001" class="LineNr">33001 </span> 0/imm32/no-r32 +<span id="L33002" class="LineNr">33002 </span> 0/imm32/no-imm32 +<span id="L33003" class="LineNr">33003 </span> 0/imm32/no-imm8 +<span id="L33004" class="LineNr">33004 </span> 0/imm32/no-disp32 +<span id="L33005" class="LineNr">33005 </span> 0/imm32/no-xm32 +<span id="L33006" class="LineNr">33006 </span> 0/imm32/no-x32 +<span id="L33007" class="LineNr">33007 </span> 0x11/imm32/alloc-id:fake +<span id="L33008" class="LineNr">33008 </span> <a href='mu.subx.html#L33009'>_Primitive-break-if-=</a>/imm32/next +<span id="L33009" class="LineNr">33009 </span><span class="subxMinorFunction">_Primitive-break-if-=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33010" class="LineNr">33010 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33011" class="LineNr">33011 </span> 0x11/imm32/alloc-id:fake -<span id="L33012" class="LineNr">33012 </span> <a href='mu.subx.html#L34441'>_string_0f_82_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-addr>=</a>/imm32/next -<span id="L33022" class="LineNr">33022 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=</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#L34219'>_string-loop-if-addr>=</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> 0/imm32/no-outputs +<span id="L33012" class="LineNr">33012 </span> <a href='mu.subx.html#L34307'>_string-break-if-=</a>/imm32/name +<span id="L33013" class="LineNr">33013 </span> 0/imm32/no-inouts +<span id="L33014" class="LineNr">33014 </span> 0/imm32/no-inouts +<span id="L33015" class="LineNr">33015 </span> 0/imm32/no-outputs +<span id="L33016" class="LineNr">33016 </span> 0/imm32/no-outputs +<span id="L33017" class="LineNr">33017 </span> 0x11/imm32/alloc-id:fake +<span id="L33018" class="LineNr">33018 </span> <a href='mu.subx.html#L34719'>_string_0f_84_jump_break</a>/imm32/subx-name +<span id="L33019" class="LineNr">33019 </span> 0/imm32/no-rm32 +<span id="L33020" class="LineNr">33020 </span> 0/imm32/no-r32 +<span id="L33021" class="LineNr">33021 </span> 0/imm32/no-imm32 +<span id="L33022" class="LineNr">33022 </span> 0/imm32/no-imm8 +<span id="L33023" class="LineNr">33023 </span> 0/imm32/no-disp32 +<span id="L33024" class="LineNr">33024 </span> 0/imm32/no-xm32 +<span id="L33025" class="LineNr">33025 </span> 0/imm32/no-x32 +<span id="L33026" class="LineNr">33026 </span> 0x11/imm32/alloc-id:fake +<span id="L33027" class="LineNr">33027 </span> <a href='mu.subx.html#L33028'>_Primitive-break-if-!=</a>/imm32/next +<span id="L33028" class="LineNr">33028 </span><span class="subxMinorFunction">_Primitive-break-if-!=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33029" class="LineNr">33029 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33030" class="LineNr">33030 </span> 0x11/imm32/alloc-id:fake -<span id="L33031" class="LineNr">33031 </span> <a href='mu.subx.html#L34456'>_string_0f_83_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#L34184'>_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> 0/imm32/no-outputs +<span id="L33031" class="LineNr">33031 </span> <a href='mu.subx.html#L34322'>_string-break-if-!=</a>/imm32/name +<span id="L33032" class="LineNr">33032 </span> 0/imm32/no-inouts +<span id="L33033" class="LineNr">33033 </span> 0/imm32/no-inouts +<span id="L33034" class="LineNr">33034 </span> 0/imm32/no-outputs +<span id="L33035" class="LineNr">33035 </span> 0/imm32/no-outputs +<span id="L33036" class="LineNr">33036 </span> 0x11/imm32/alloc-id:fake +<span id="L33037" class="LineNr">33037 </span> <a href='mu.subx.html#L34734'>_string_0f_85_jump_break</a>/imm32/subx-name +<span id="L33038" class="LineNr">33038 </span> 0/imm32/no-rm32 +<span id="L33039" class="LineNr">33039 </span> 0/imm32/no-r32 +<span id="L33040" class="LineNr">33040 </span> 0/imm32/no-imm32 +<span id="L33041" class="LineNr">33041 </span> 0/imm32/no-imm8 +<span id="L33042" class="LineNr">33042 </span> 0/imm32/no-disp32 +<span id="L33043" class="LineNr">33043 </span> 0/imm32/no-xm32 +<span id="L33044" class="LineNr">33044 </span> 0/imm32/no-x32 +<span id="L33045" class="LineNr">33045 </span> 0x11/imm32/alloc-id:fake +<span id="L33046" class="LineNr">33046 </span> <a href='mu.subx.html#L33047'>_Primitive-break-if-addr<=</a>/imm32/next +<span id="L33047" class="LineNr">33047 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33048" class="LineNr">33048 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33049" class="LineNr">33049 </span> 0x11/imm32/alloc-id:fake -<span id="L33050" class="LineNr">33050 </span> <a href='mu.subx.html#L34471'>_string_0f_84_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-!=</a>/imm32/next -<span id="L33060" class="LineNr">33060 </span><span class="subxMinorFunction">_Primitive-loop-if-!=</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#L34199'>_string-loop-if-!=</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> 0/imm32/no-outputs +<span id="L33050" class="LineNr">33050 </span> <a href='mu.subx.html#L34332'>_string-break-if-addr<=</a>/imm32/name +<span id="L33051" class="LineNr">33051 </span> 0/imm32/no-inouts +<span id="L33052" class="LineNr">33052 </span> 0/imm32/no-inouts +<span id="L33053" class="LineNr">33053 </span> 0/imm32/no-outputs +<span id="L33054" class="LineNr">33054 </span> 0/imm32/no-outputs +<span id="L33055" class="LineNr">33055 </span> 0x11/imm32/alloc-id:fake +<span id="L33056" class="LineNr">33056 </span> <a href='mu.subx.html#L34749'>_string_0f_86_jump_break</a>/imm32/subx-name +<span id="L33057" class="LineNr">33057 </span> 0/imm32/no-rm32 +<span id="L33058" class="LineNr">33058 </span> 0/imm32/no-r32 +<span id="L33059" class="LineNr">33059 </span> 0/imm32/no-imm32 +<span id="L33060" class="LineNr">33060 </span> 0/imm32/no-imm8 +<span id="L33061" class="LineNr">33061 </span> 0/imm32/no-disp32 +<span id="L33062" class="LineNr">33062 </span> 0/imm32/no-xm32 +<span id="L33063" class="LineNr">33063 </span> 0/imm32/no-x32 +<span id="L33064" class="LineNr">33064 </span> 0x11/imm32/alloc-id:fake +<span id="L33065" class="LineNr">33065 </span> <a href='mu.subx.html#L33066'>_Primitive-break-if-addr></a>/imm32/next +<span id="L33066" class="LineNr">33066 </span><span class="subxMinorFunction">_Primitive-break-if-addr></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33067" class="LineNr">33067 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33068" class="LineNr">33068 </span> 0x11/imm32/alloc-id:fake -<span id="L33069" class="LineNr">33069 </span> <a href='mu.subx.html#L34486'>_string_0f_85_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#L34209'>_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> 0/imm32/no-outputs +<span id="L33069" class="LineNr">33069 </span> <a href='mu.subx.html#L34337'>_string-break-if-addr></a>/imm32/name +<span id="L33070" class="LineNr">33070 </span> 0/imm32/no-inouts +<span id="L33071" class="LineNr">33071 </span> 0/imm32/no-inouts +<span id="L33072" class="LineNr">33072 </span> 0/imm32/no-outputs +<span id="L33073" class="LineNr">33073 </span> 0/imm32/no-outputs +<span id="L33074" class="LineNr">33074 </span> 0x11/imm32/alloc-id:fake +<span id="L33075" class="LineNr">33075 </span> <a href='mu.subx.html#L34764'>_string_0f_87_jump_break</a>/imm32/subx-name +<span id="L33076" class="LineNr">33076 </span> 0/imm32/no-rm32 +<span id="L33077" class="LineNr">33077 </span> 0/imm32/no-r32 +<span id="L33078" class="LineNr">33078 </span> 0/imm32/no-imm32 +<span id="L33079" class="LineNr">33079 </span> 0/imm32/no-imm8 +<span id="L33080" class="LineNr">33080 </span> 0/imm32/no-disp32 +<span id="L33081" class="LineNr">33081 </span> 0/imm32/no-xm32 +<span id="L33082" class="LineNr">33082 </span> 0/imm32/no-x32 +<span id="L33083" class="LineNr">33083 </span> 0x11/imm32/alloc-id:fake +<span id="L33084" class="LineNr">33084 </span> <a href='mu.subx.html#L33085'>_Primitive-break-if-<</a>/imm32/next +<span id="L33085" class="LineNr">33085 </span><span class="subxMinorFunction">_Primitive-break-if-<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33086" class="LineNr">33086 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33087" class="LineNr">33087 </span> 0x11/imm32/alloc-id:fake -<span id="L33088" class="LineNr">33088 </span> <a href='mu.subx.html#L34501'>_string_0f_86_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-addr></a>/imm32/next -<span id="L33098" class="LineNr">33098 </span><span class="subxMinorFunction">_Primitive-loop-if-addr></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#L34214'>_string-loop-if-addr></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> 0/imm32/no-outputs +<span id="L33088" class="LineNr">33088 </span> <a href='mu.subx.html#L34297'>_string-break-if-<</a>/imm32/name +<span id="L33089" class="LineNr">33089 </span> 0/imm32/no-inouts +<span id="L33090" class="LineNr">33090 </span> 0/imm32/no-inouts +<span id="L33091" class="LineNr">33091 </span> 0/imm32/no-outputs +<span id="L33092" class="LineNr">33092 </span> 0/imm32/no-outputs +<span id="L33093" class="LineNr">33093 </span> 0x11/imm32/alloc-id:fake +<span id="L33094" class="LineNr">33094 </span> <a href='mu.subx.html#L34779'>_string_0f_8c_jump_break</a>/imm32/subx-name +<span id="L33095" class="LineNr">33095 </span> 0/imm32/no-rm32 +<span id="L33096" class="LineNr">33096 </span> 0/imm32/no-r32 +<span id="L33097" class="LineNr">33097 </span> 0/imm32/no-imm32 +<span id="L33098" class="LineNr">33098 </span> 0/imm32/no-imm8 +<span id="L33099" class="LineNr">33099 </span> 0/imm32/no-disp32 +<span id="L33100" class="LineNr">33100 </span> 0/imm32/no-xm32 +<span id="L33101" class="LineNr">33101 </span> 0/imm32/no-x32 +<span id="L33102" class="LineNr">33102 </span> 0x11/imm32/alloc-id:fake +<span id="L33103" class="LineNr">33103 </span> <a href='mu.subx.html#L33104'>_Primitive-break-if->=</a>/imm32/next +<span id="L33104" class="LineNr">33104 </span><span class="subxMinorFunction">_Primitive-break-if->=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33105" class="LineNr">33105 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33106" class="LineNr">33106 </span> 0x11/imm32/alloc-id:fake -<span id="L33107" class="LineNr">33107 </span> <a href='mu.subx.html#L34516'>_string_0f_87_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#L34174'>_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> 0/imm32/no-outputs +<span id="L33107" class="LineNr">33107 </span> <a href='mu.subx.html#L34317'>_string-break-if->=</a>/imm32/name +<span id="L33108" class="LineNr">33108 </span> 0/imm32/no-inouts +<span id="L33109" class="LineNr">33109 </span> 0/imm32/no-inouts +<span id="L33110" class="LineNr">33110 </span> 0/imm32/no-outputs +<span id="L33111" class="LineNr">33111 </span> 0/imm32/no-outputs +<span id="L33112" class="LineNr">33112 </span> 0x11/imm32/alloc-id:fake +<span id="L33113" class="LineNr">33113 </span> <a href='mu.subx.html#L34794'>_string_0f_8d_jump_break</a>/imm32/subx-name +<span id="L33114" class="LineNr">33114 </span> 0/imm32/no-rm32 +<span id="L33115" class="LineNr">33115 </span> 0/imm32/no-r32 +<span id="L33116" class="LineNr">33116 </span> 0/imm32/no-imm32 +<span id="L33117" class="LineNr">33117 </span> 0/imm32/no-imm8 +<span id="L33118" class="LineNr">33118 </span> 0/imm32/no-disp32 +<span id="L33119" class="LineNr">33119 </span> 0/imm32/no-xm32 +<span id="L33120" class="LineNr">33120 </span> 0/imm32/no-x32 +<span id="L33121" class="LineNr">33121 </span> 0x11/imm32/alloc-id:fake +<span id="L33122" class="LineNr">33122 </span> <a href='mu.subx.html#L33123'>_Primitive-break-if-<=</a>/imm32/next +<span id="L33123" class="LineNr">33123 </span><span class="subxMinorFunction">_Primitive-break-if-<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33124" class="LineNr">33124 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33125" class="LineNr">33125 </span> 0x11/imm32/alloc-id:fake -<span id="L33126" class="LineNr">33126 </span> <a href='mu.subx.html#L34531'>_string_0f_8c_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#L34194'>_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> 0/imm32/no-outputs +<span id="L33126" class="LineNr">33126 </span> <a href='mu.subx.html#L34302'>_string-break-if-<=</a>/imm32/name +<span id="L33127" class="LineNr">33127 </span> 0/imm32/no-inouts +<span id="L33128" class="LineNr">33128 </span> 0/imm32/no-inouts +<span id="L33129" class="LineNr">33129 </span> 0/imm32/no-outputs +<span id="L33130" class="LineNr">33130 </span> 0/imm32/no-outputs +<span id="L33131" class="LineNr">33131 </span> 0x11/imm32/alloc-id:fake +<span id="L33132" class="LineNr">33132 </span> <a href='mu.subx.html#L34809'>_string_0f_8e_jump_break</a>/imm32/subx-name +<span id="L33133" class="LineNr">33133 </span> 0/imm32/no-rm32 +<span id="L33134" class="LineNr">33134 </span> 0/imm32/no-r32 +<span id="L33135" class="LineNr">33135 </span> 0/imm32/no-imm32 +<span id="L33136" class="LineNr">33136 </span> 0/imm32/no-imm8 +<span id="L33137" class="LineNr">33137 </span> 0/imm32/no-disp32 +<span id="L33138" class="LineNr">33138 </span> 0/imm32/no-xm32 +<span id="L33139" class="LineNr">33139 </span> 0/imm32/no-x32 +<span id="L33140" class="LineNr">33140 </span> 0x11/imm32/alloc-id:fake +<span id="L33141" class="LineNr">33141 </span> <a href='mu.subx.html#L33142'>_Primitive-break-if-></a>/imm32/next +<span id="L33142" class="LineNr">33142 </span><span class="subxMinorFunction">_Primitive-break-if-></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33143" class="LineNr">33143 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33144" class="LineNr">33144 </span> 0x11/imm32/alloc-id:fake -<span id="L33145" class="LineNr">33145 </span> <a href='mu.subx.html#L34546'>_string_0f_8d_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#L34179'>_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> 0/imm32/no-outputs +<span id="L33145" class="LineNr">33145 </span> <a href='mu.subx.html#L34312'>_string-break-if-></a>/imm32/name +<span id="L33146" class="LineNr">33146 </span> 0/imm32/no-inouts +<span id="L33147" class="LineNr">33147 </span> 0/imm32/no-inouts +<span id="L33148" class="LineNr">33148 </span> 0/imm32/no-outputs +<span id="L33149" class="LineNr">33149 </span> 0/imm32/no-outputs +<span id="L33150" class="LineNr">33150 </span> 0x11/imm32/alloc-id:fake +<span id="L33151" class="LineNr">33151 </span> <a href='mu.subx.html#L34824'>_string_0f_8f_jump_break</a>/imm32/subx-name +<span id="L33152" class="LineNr">33152 </span> 0/imm32/no-rm32 +<span id="L33153" class="LineNr">33153 </span> 0/imm32/no-r32 +<span id="L33154" class="LineNr">33154 </span> 0/imm32/no-imm32 +<span id="L33155" class="LineNr">33155 </span> 0/imm32/no-imm8 +<span id="L33156" class="LineNr">33156 </span> 0/imm32/no-disp32 +<span id="L33157" class="LineNr">33157 </span> 0/imm32/no-xm32 +<span id="L33158" class="LineNr">33158 </span> 0/imm32/no-x32 +<span id="L33159" class="LineNr">33159 </span> 0x11/imm32/alloc-id:fake +<span id="L33160" class="LineNr">33160 </span> <a href='mu.subx.html#L33161'>_Primitive-break-if-carry</a>/imm32/next +<span id="L33161" class="LineNr">33161 </span><span class="subxMinorFunction">_Primitive-break-if-carry</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33162" class="LineNr">33162 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33163" class="LineNr">33163 </span> 0x11/imm32/alloc-id:fake -<span id="L33164" class="LineNr">33164 </span> <a href='mu.subx.html#L34561'>_string_0f_8e_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-></a>/imm32/next -<span id="L33174" class="LineNr">33174 </span><span class="subxMinorFunction">_Primitive-loop-if-></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#L34189'>_string-loop-if-></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> 0/imm32/no-outputs +<span id="L33164" class="LineNr">33164 </span> <a href='mu.subx.html#L34367'>_string-break-if-carry</a>/imm32/name +<span id="L33165" class="LineNr">33165 </span> 0/imm32/no-inouts +<span id="L33166" class="LineNr">33166 </span> 0/imm32/no-inouts +<span id="L33167" class="LineNr">33167 </span> 0/imm32/no-outputs +<span id="L33168" class="LineNr">33168 </span> 0/imm32/no-outputs +<span id="L33169" class="LineNr">33169 </span> 0x11/imm32/alloc-id:fake +<span id="L33170" class="LineNr">33170 </span> <a href='mu.subx.html#L34689'>_string_0f_82_jump_break</a>/imm32/subx-name +<span id="L33171" class="LineNr">33171 </span> 0/imm32/no-rm32 +<span id="L33172" class="LineNr">33172 </span> 0/imm32/no-r32 +<span id="L33173" class="LineNr">33173 </span> 0/imm32/no-imm32 +<span id="L33174" class="LineNr">33174 </span> 0/imm32/no-imm8 +<span id="L33175" class="LineNr">33175 </span> 0/imm32/no-disp32 +<span id="L33176" class="LineNr">33176 </span> 0/imm32/no-xm32 +<span id="L33177" class="LineNr">33177 </span> 0/imm32/no-x32 +<span id="L33178" class="LineNr">33178 </span> 0x11/imm32/alloc-id:fake +<span id="L33179" class="LineNr">33179 </span> <a href='mu.subx.html#L33180'>_Primitive-break-if-not-carry</a>/imm32/next +<span id="L33180" class="LineNr">33180 </span><span class="subxMinorFunction">_Primitive-break-if-not-carry</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33181" class="LineNr">33181 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33182" class="LineNr">33182 </span> 0x11/imm32/alloc-id:fake -<span id="L33183" class="LineNr">33183 </span> <a href='mu.subx.html#L34576'>_string_0f_8f_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-carry</a>/imm32/next -<span id="L33193" class="LineNr">33193 </span><span class="subxMinorFunction">_Primitive-loop-if-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#L34244'>_string-loop-if-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> 0/imm32/no-outputs +<span id="L33183" class="LineNr">33183 </span> <a href='mu.subx.html#L34372'>_string-break-if-not-carry</a>/imm32/name +<span id="L33184" class="LineNr">33184 </span> 0/imm32/no-inouts +<span id="L33185" class="LineNr">33185 </span> 0/imm32/no-inouts +<span id="L33186" class="LineNr">33186 </span> 0/imm32/no-outputs +<span id="L33187" class="LineNr">33187 </span> 0/imm32/no-outputs +<span id="L33188" class="LineNr">33188 </span> 0x11/imm32/alloc-id:fake +<span id="L33189" class="LineNr">33189 </span> <a href='mu.subx.html#L34704'>_string_0f_83_jump_break</a>/imm32/subx-name +<span id="L33190" class="LineNr">33190 </span> 0/imm32/no-rm32 +<span id="L33191" class="LineNr">33191 </span> 0/imm32/no-r32 +<span id="L33192" class="LineNr">33192 </span> 0/imm32/no-imm32 +<span id="L33193" class="LineNr">33193 </span> 0/imm32/no-imm8 +<span id="L33194" class="LineNr">33194 </span> 0/imm32/no-disp32 +<span id="L33195" class="LineNr">33195 </span> 0/imm32/no-xm32 +<span id="L33196" class="LineNr">33196 </span> 0/imm32/no-x32 +<span id="L33197" class="LineNr">33197 </span> 0x11/imm32/alloc-id:fake +<span id="L33198" class="LineNr">33198 </span> <a href='mu.subx.html#L33199'>_Primitive-break-if-overflow</a>/imm32/next +<span id="L33199" class="LineNr">33199 </span><span class="subxMinorFunction">_Primitive-break-if-overflow</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33200" class="LineNr">33200 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33201" class="LineNr">33201 </span> 0x11/imm32/alloc-id:fake -<span id="L33202" class="LineNr">33202 </span> <a href='mu.subx.html#L34441'>_string_0f_82_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-not-carry</a>/imm32/next -<span id="L33212" class="LineNr">33212 </span><span class="subxMinorFunction">_Primitive-loop-if-not-carry</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#L34249'>_string-loop-if-not-carry</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> 0/imm32/no-outputs +<span id="L33202" class="LineNr">33202 </span> <a href='mu.subx.html#L34377'>_string-break-if-overflow</a>/imm32/name +<span id="L33203" class="LineNr">33203 </span> 0/imm32/no-inouts +<span id="L33204" class="LineNr">33204 </span> 0/imm32/no-inouts +<span id="L33205" class="LineNr">33205 </span> 0/imm32/no-outputs +<span id="L33206" class="LineNr">33206 </span> 0/imm32/no-outputs +<span id="L33207" class="LineNr">33207 </span> 0x11/imm32/alloc-id:fake +<span id="L33208" class="LineNr">33208 </span> <a href='mu.subx.html#L34659'>_string_0f_80_jump_break</a>/imm32/subx-name +<span id="L33209" class="LineNr">33209 </span> 0/imm32/no-rm32 +<span id="L33210" class="LineNr">33210 </span> 0/imm32/no-r32 +<span id="L33211" class="LineNr">33211 </span> 0/imm32/no-imm32 +<span id="L33212" class="LineNr">33212 </span> 0/imm32/no-imm8 +<span id="L33213" class="LineNr">33213 </span> 0/imm32/no-disp32 +<span id="L33214" class="LineNr">33214 </span> 0/imm32/no-xm32 +<span id="L33215" class="LineNr">33215 </span> 0/imm32/no-x32 +<span id="L33216" class="LineNr">33216 </span> 0x11/imm32/alloc-id:fake +<span id="L33217" class="LineNr">33217 </span> <a href='mu.subx.html#L33218'>_Primitive-break-if-not-overflow</a>/imm32/next +<span id="L33218" class="LineNr">33218 </span><span class="subxMinorFunction">_Primitive-break-if-not-overflow</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33219" class="LineNr">33219 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33220" class="LineNr">33220 </span> 0x11/imm32/alloc-id:fake -<span id="L33221" class="LineNr">33221 </span> <a href='mu.subx.html#L34456'>_string_0f_83_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-overflow</a>/imm32/next -<span id="L33231" class="LineNr">33231 </span><span class="subxMinorFunction">_Primitive-loop-if-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#L34254'>_string-loop-if-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> 0/imm32/no-outputs +<span id="L33221" class="LineNr">33221 </span> <a href='mu.subx.html#L34382'>_string-break-if-not-overflow</a>/imm32/name +<span id="L33222" class="LineNr">33222 </span> 0/imm32/no-inouts +<span id="L33223" class="LineNr">33223 </span> 0/imm32/no-inouts +<span id="L33224" class="LineNr">33224 </span> 0/imm32/no-outputs +<span id="L33225" class="LineNr">33225 </span> 0/imm32/no-outputs +<span id="L33226" class="LineNr">33226 </span> 0x11/imm32/alloc-id:fake +<span id="L33227" class="LineNr">33227 </span> <a href='mu.subx.html#L34674'>_string_0f_81_jump_break</a>/imm32/subx-name +<span id="L33228" class="LineNr">33228 </span> 0/imm32/no-rm32 +<span id="L33229" class="LineNr">33229 </span> 0/imm32/no-r32 +<span id="L33230" class="LineNr">33230 </span> 0/imm32/no-imm32 +<span id="L33231" class="LineNr">33231 </span> 0/imm32/no-imm8 +<span id="L33232" class="LineNr">33232 </span> 0/imm32/no-disp32 +<span id="L33233" class="LineNr">33233 </span> 0/imm32/no-xm32 +<span id="L33234" class="LineNr">33234 </span> 0/imm32/no-x32 +<span id="L33235" class="LineNr">33235 </span> 0x11/imm32/alloc-id:fake +<span id="L33236" class="LineNr">33236 </span> <a href='mu.subx.html#L33237'>_Primitive-break</a>/imm32/next +<span id="L33237" class="LineNr">33237 </span><span class="subxMinorFunction">_Primitive-break</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33238" class="LineNr">33238 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33239" class="LineNr">33239 </span> 0x11/imm32/alloc-id:fake -<span id="L33240" class="LineNr">33240 </span> <a href='mu.subx.html#L34411'>_string_0f_80_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-if-not-overflow</a>/imm32/next -<span id="L33250" class="LineNr">33250 </span><span class="subxMinorFunction">_Primitive-loop-if-not-overflow</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#L34259'>_string-loop-if-not-overflow</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> 0/imm32/no-outputs +<span id="L33240" class="LineNr">33240 </span> <a href='mu.subx.html#L34292'>_string-break</a>/imm32/name +<span id="L33241" class="LineNr">33241 </span> 0/imm32/no-inouts +<span id="L33242" class="LineNr">33242 </span> 0/imm32/no-inouts +<span id="L33243" class="LineNr">33243 </span> 0/imm32/no-outputs +<span id="L33244" class="LineNr">33244 </span> 0/imm32/no-outputs +<span id="L33245" class="LineNr">33245 </span> 0x11/imm32/alloc-id:fake +<span id="L33246" class="LineNr">33246 </span> <a href='mu.subx.html#L35129'>_string_e9_jump_break</a>/imm32/subx-name +<span id="L33247" class="LineNr">33247 </span> 0/imm32/no-rm32 +<span id="L33248" class="LineNr">33248 </span> 0/imm32/no-r32 +<span id="L33249" class="LineNr">33249 </span> 0/imm32/no-imm32 +<span id="L33250" class="LineNr">33250 </span> 0/imm32/no-imm8 +<span id="L33251" class="LineNr">33251 </span> 0/imm32/no-disp32 +<span id="L33252" class="LineNr">33252 </span> 0/imm32/no-xm32 +<span id="L33253" class="LineNr">33253 </span> 0/imm32/no-x32 +<span id="L33254" class="LineNr">33254 </span> 0x11/imm32/alloc-id:fake +<span id="L33255" class="LineNr">33255 </span> <a href='mu.subx.html#L33256'>_Primitive-loop-if-addr<</a>/imm32/next +<span id="L33256" class="LineNr">33256 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33257" class="LineNr">33257 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33258" class="LineNr">33258 </span> 0x11/imm32/alloc-id:fake -<span id="L33259" class="LineNr">33259 </span> <a href='mu.subx.html#L34426'>_string_0f_81_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#L33269'>_Primitive-loop</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> -<span id="L33269" class="LineNr">33269 </span><span class="subxMinorFunction">_Primitive-loop</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33270" class="LineNr">33270 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33271" class="LineNr">33271 </span> 0x11/imm32/alloc-id:fake -<span id="L33272" class="LineNr">33272 </span> <a href='mu.subx.html#L34169'>_string-loop</a>/imm32/name -<span id="L33273" class="LineNr">33273 </span> 0/imm32/no-inouts -<span id="L33274" class="LineNr">33274 </span> 0/imm32/no-inouts -<span id="L33275" class="LineNr">33275 </span> 0/imm32/no-outputs -<span id="L33276" class="LineNr">33276 </span> 0/imm32/no-outputs +<span id="L33259" class="LineNr">33259 </span> <a href='mu.subx.html#L34457'>_string-loop-if-addr<</a>/imm32/name +<span id="L33260" class="LineNr">33260 </span> 0/imm32/no-inouts +<span id="L33261" class="LineNr">33261 </span> 0/imm32/no-inouts +<span id="L33262" class="LineNr">33262 </span> 0/imm32/no-outputs +<span id="L33263" class="LineNr">33263 </span> 0/imm32/no-outputs +<span id="L33264" class="LineNr">33264 </span> 0x11/imm32/alloc-id:fake +<span id="L33265" class="LineNr">33265 </span> <a href='mu.subx.html#L34694'>_string_0f_82_jump_loop</a>/imm32/subx-name +<span id="L33266" class="LineNr">33266 </span> 0/imm32/no-rm32 +<span id="L33267" class="LineNr">33267 </span> 0/imm32/no-r32 +<span id="L33268" class="LineNr">33268 </span> 0/imm32/no-imm32 +<span id="L33269" class="LineNr">33269 </span> 0/imm32/no-imm8 +<span id="L33270" class="LineNr">33270 </span> 0/imm32/no-disp32 +<span id="L33271" class="LineNr">33271 </span> 0/imm32/no-xm32 +<span id="L33272" class="LineNr">33272 </span> 0/imm32/no-x32 +<span id="L33273" class="LineNr">33273 </span> 0x11/imm32/alloc-id:fake +<span id="L33274" class="LineNr">33274 </span> <a href='mu.subx.html#L33275'>_Primitive-loop-if-addr>=</a>/imm32/next +<span id="L33275" class="LineNr">33275 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33276" class="LineNr">33276 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33277" class="LineNr">33277 </span> 0x11/imm32/alloc-id:fake -<span id="L33278" class="LineNr">33278 </span> <a href='mu.subx.html#L34881'>_string_e9_jump_loop</a>/imm32/subx-name -<span id="L33279" class="LineNr">33279 </span> 0/imm32/no-rm32 -<span id="L33280" class="LineNr">33280 </span> 0/imm32/no-r32 -<span id="L33281" class="LineNr">33281 </span> 0/imm32/no-imm32 -<span id="L33282" class="LineNr">33282 </span> 0/imm32/no-imm8 -<span id="L33283" class="LineNr">33283 </span> 0/imm32/no-disp32 -<span id="L33284" class="LineNr">33284 </span> 0/imm32/no-xm32 -<span id="L33285" class="LineNr">33285 </span> 0/imm32/no-x32 -<span id="L33286" class="LineNr">33286 </span> 0x11/imm32/alloc-id:fake -<span id="L33287" class="LineNr">33287 </span> <a href='mu.subx.html#L33289'>_Primitive-break-if-addr<-named</a>/imm32/next -<span id="L33288" class="LineNr">33288 </span><span class="subxH1Comment"># - branches to named blocks</span> -<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> <a href='mu.subx.html#L34074'>_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#L35199'>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#L34431'>_string_0f_82_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-addr>=-named</a>/imm32/next -<span id="L33308" class="LineNr">33308 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=-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> <a href='mu.subx.html#L34089'>_string-break-if-addr>=</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#L35199'>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#L34446'>_string_0f_83_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> <a href='mu.subx.html#L34054'>_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#L35199'>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#L34461'>_string_0f_84_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-!=-named</a>/imm32/next -<span id="L33346" class="LineNr">33346 </span><span class="subxMinorFunction">_Primitive-break-if-!=-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> <a href='mu.subx.html#L34069'>_string-break-if-!=</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#L35199'>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#L34476'>_string_0f_85_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> <a href='mu.subx.html#L34079'>_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#L35199'>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#L34491'>_string_0f_86_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-addr>-named</a>/imm32/next -<span id="L33384" class="LineNr">33384 </span><span class="subxMinorFunction">_Primitive-break-if-addr>-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> <a href='mu.subx.html#L34084'>_string-break-if-addr></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#L35199'>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#L34506'>_string_0f_87_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> <a href='mu.subx.html#L34044'>_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#L35199'>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#L34521'>_string_0f_8c_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> <a href='mu.subx.html#L34064'>_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#L35199'>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#L34536'>_string_0f_8d_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#L34049'>_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#L35199'>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> 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#L34551'>_string_0f_8e_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-if->-named</a>/imm32/next -<span id="L33460" class="LineNr">33460 </span><span class="subxMinorFunction">_Primitive-break-if->-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#L34059'>_string-break-if-></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#L35199'>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> 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#L34566'>_string_0f_8f_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-break-named</a>/imm32/next -<span id="L33479" class="LineNr">33479 </span><span class="subxMinorFunction">_Primitive-break-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#L34039'>_string-break</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#L35199'>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> 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#L34871'>_string_e9_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#L34204'>_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#L35199'>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> 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#L34431'>_string_0f_82_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-addr>=-named</a>/imm32/next -<span id="L33517" class="LineNr">33517 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=-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#L34219'>_string-loop-if-addr>=</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#L35199'>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> 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#L34446'>_string_0f_83_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#L34184'>_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#L35199'>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> 0/imm32/no-outputs +<span id="L33278" class="LineNr">33278 </span> <a href='mu.subx.html#L34472'>_string-loop-if-addr>=</a>/imm32/name +<span id="L33279" class="LineNr">33279 </span> 0/imm32/no-inouts +<span id="L33280" class="LineNr">33280 </span> 0/imm32/no-inouts +<span id="L33281" class="LineNr">33281 </span> 0/imm32/no-outputs +<span id="L33282" class="LineNr">33282 </span> 0/imm32/no-outputs +<span id="L33283" class="LineNr">33283 </span> 0x11/imm32/alloc-id:fake +<span id="L33284" class="LineNr">33284 </span> <a href='mu.subx.html#L34709'>_string_0f_83_jump_loop</a>/imm32/subx-name +<span id="L33285" class="LineNr">33285 </span> 0/imm32/no-rm32 +<span id="L33286" class="LineNr">33286 </span> 0/imm32/no-r32 +<span id="L33287" class="LineNr">33287 </span> 0/imm32/no-imm32 +<span id="L33288" class="LineNr">33288 </span> 0/imm32/no-imm8 +<span id="L33289" class="LineNr">33289 </span> 0/imm32/no-disp32 +<span id="L33290" class="LineNr">33290 </span> 0/imm32/no-xm32 +<span id="L33291" class="LineNr">33291 </span> 0/imm32/no-x32 +<span id="L33292" class="LineNr">33292 </span> 0x11/imm32/alloc-id:fake +<span id="L33293" class="LineNr">33293 </span> <a href='mu.subx.html#L33294'>_Primitive-loop-if-=</a>/imm32/next +<span id="L33294" class="LineNr">33294 </span><span class="subxMinorFunction">_Primitive-loop-if-=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33295" class="LineNr">33295 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33296" class="LineNr">33296 </span> 0x11/imm32/alloc-id:fake +<span id="L33297" class="LineNr">33297 </span> <a href='mu.subx.html#L34437'>_string-loop-if-=</a>/imm32/name +<span id="L33298" class="LineNr">33298 </span> 0/imm32/no-inouts +<span id="L33299" class="LineNr">33299 </span> 0/imm32/no-inouts +<span id="L33300" class="LineNr">33300 </span> 0/imm32/no-outputs +<span id="L33301" class="LineNr">33301 </span> 0/imm32/no-outputs +<span id="L33302" class="LineNr">33302 </span> 0x11/imm32/alloc-id:fake +<span id="L33303" class="LineNr">33303 </span> <a href='mu.subx.html#L34724'>_string_0f_84_jump_loop</a>/imm32/subx-name +<span id="L33304" class="LineNr">33304 </span> 0/imm32/no-rm32 +<span id="L33305" class="LineNr">33305 </span> 0/imm32/no-r32 +<span id="L33306" class="LineNr">33306 </span> 0/imm32/no-imm32 +<span id="L33307" class="LineNr">33307 </span> 0/imm32/no-imm8 +<span id="L33308" class="LineNr">33308 </span> 0/imm32/no-disp32 +<span id="L33309" class="LineNr">33309 </span> 0/imm32/no-xm32 +<span id="L33310" class="LineNr">33310 </span> 0/imm32/no-x32 +<span id="L33311" class="LineNr">33311 </span> 0x11/imm32/alloc-id:fake +<span id="L33312" class="LineNr">33312 </span> <a href='mu.subx.html#L33313'>_Primitive-loop-if-!=</a>/imm32/next +<span id="L33313" class="LineNr">33313 </span><span class="subxMinorFunction">_Primitive-loop-if-!=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33314" class="LineNr">33314 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33315" class="LineNr">33315 </span> 0x11/imm32/alloc-id:fake +<span id="L33316" class="LineNr">33316 </span> <a href='mu.subx.html#L34452'>_string-loop-if-!=</a>/imm32/name +<span id="L33317" class="LineNr">33317 </span> 0/imm32/no-inouts +<span id="L33318" class="LineNr">33318 </span> 0/imm32/no-inouts +<span id="L33319" class="LineNr">33319 </span> 0/imm32/no-outputs +<span id="L33320" class="LineNr">33320 </span> 0/imm32/no-outputs +<span id="L33321" class="LineNr">33321 </span> 0x11/imm32/alloc-id:fake +<span id="L33322" class="LineNr">33322 </span> <a href='mu.subx.html#L34739'>_string_0f_85_jump_loop</a>/imm32/subx-name +<span id="L33323" class="LineNr">33323 </span> 0/imm32/no-rm32 +<span id="L33324" class="LineNr">33324 </span> 0/imm32/no-r32 +<span id="L33325" class="LineNr">33325 </span> 0/imm32/no-imm32 +<span id="L33326" class="LineNr">33326 </span> 0/imm32/no-imm8 +<span id="L33327" class="LineNr">33327 </span> 0/imm32/no-disp32 +<span id="L33328" class="LineNr">33328 </span> 0/imm32/no-xm32 +<span id="L33329" class="LineNr">33329 </span> 0/imm32/no-x32 +<span id="L33330" class="LineNr">33330 </span> 0x11/imm32/alloc-id:fake +<span id="L33331" class="LineNr">33331 </span> <a href='mu.subx.html#L33332'>_Primitive-loop-if-addr<=</a>/imm32/next +<span id="L33332" class="LineNr">33332 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33333" class="LineNr">33333 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33334" class="LineNr">33334 </span> 0x11/imm32/alloc-id:fake +<span id="L33335" class="LineNr">33335 </span> <a href='mu.subx.html#L34462'>_string-loop-if-addr<=</a>/imm32/name +<span id="L33336" class="LineNr">33336 </span> 0/imm32/no-inouts +<span id="L33337" class="LineNr">33337 </span> 0/imm32/no-inouts +<span id="L33338" class="LineNr">33338 </span> 0/imm32/no-outputs +<span id="L33339" class="LineNr">33339 </span> 0/imm32/no-outputs +<span id="L33340" class="LineNr">33340 </span> 0x11/imm32/alloc-id:fake +<span id="L33341" class="LineNr">33341 </span> <a href='mu.subx.html#L34754'>_string_0f_86_jump_loop</a>/imm32/subx-name +<span id="L33342" class="LineNr">33342 </span> 0/imm32/no-rm32 +<span id="L33343" class="LineNr">33343 </span> 0/imm32/no-r32 +<span id="L33344" class="LineNr">33344 </span> 0/imm32/no-imm32 +<span id="L33345" class="LineNr">33345 </span> 0/imm32/no-imm8 +<span id="L33346" class="LineNr">33346 </span> 0/imm32/no-disp32 +<span id="L33347" class="LineNr">33347 </span> 0/imm32/no-xm32 +<span id="L33348" class="LineNr">33348 </span> 0/imm32/no-x32 +<span id="L33349" class="LineNr">33349 </span> 0x11/imm32/alloc-id:fake +<span id="L33350" class="LineNr">33350 </span> <a href='mu.subx.html#L33351'>_Primitive-loop-if-addr></a>/imm32/next +<span id="L33351" class="LineNr">33351 </span><span class="subxMinorFunction">_Primitive-loop-if-addr></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33352" class="LineNr">33352 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33353" class="LineNr">33353 </span> 0x11/imm32/alloc-id:fake +<span id="L33354" class="LineNr">33354 </span> <a href='mu.subx.html#L34467'>_string-loop-if-addr></a>/imm32/name +<span id="L33355" class="LineNr">33355 </span> 0/imm32/no-inouts +<span id="L33356" class="LineNr">33356 </span> 0/imm32/no-inouts +<span id="L33357" class="LineNr">33357 </span> 0/imm32/no-outputs +<span id="L33358" class="LineNr">33358 </span> 0/imm32/no-outputs +<span id="L33359" class="LineNr">33359 </span> 0x11/imm32/alloc-id:fake +<span id="L33360" class="LineNr">33360 </span> <a href='mu.subx.html#L34769'>_string_0f_87_jump_loop</a>/imm32/subx-name +<span id="L33361" class="LineNr">33361 </span> 0/imm32/no-rm32 +<span id="L33362" class="LineNr">33362 </span> 0/imm32/no-r32 +<span id="L33363" class="LineNr">33363 </span> 0/imm32/no-imm32 +<span id="L33364" class="LineNr">33364 </span> 0/imm32/no-imm8 +<span id="L33365" class="LineNr">33365 </span> 0/imm32/no-disp32 +<span id="L33366" class="LineNr">33366 </span> 0/imm32/no-xm32 +<span id="L33367" class="LineNr">33367 </span> 0/imm32/no-x32 +<span id="L33368" class="LineNr">33368 </span> 0x11/imm32/alloc-id:fake +<span id="L33369" class="LineNr">33369 </span> <a href='mu.subx.html#L33370'>_Primitive-loop-if-<</a>/imm32/next +<span id="L33370" class="LineNr">33370 </span><span class="subxMinorFunction">_Primitive-loop-if-<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33371" class="LineNr">33371 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33372" class="LineNr">33372 </span> 0x11/imm32/alloc-id:fake +<span id="L33373" class="LineNr">33373 </span> <a href='mu.subx.html#L34427'>_string-loop-if-<</a>/imm32/name +<span id="L33374" class="LineNr">33374 </span> 0/imm32/no-inouts +<span id="L33375" class="LineNr">33375 </span> 0/imm32/no-inouts +<span id="L33376" class="LineNr">33376 </span> 0/imm32/no-outputs +<span id="L33377" class="LineNr">33377 </span> 0/imm32/no-outputs +<span id="L33378" class="LineNr">33378 </span> 0x11/imm32/alloc-id:fake +<span id="L33379" class="LineNr">33379 </span> <a href='mu.subx.html#L34784'>_string_0f_8c_jump_loop</a>/imm32/subx-name +<span id="L33380" class="LineNr">33380 </span> 0/imm32/no-rm32 +<span id="L33381" class="LineNr">33381 </span> 0/imm32/no-r32 +<span id="L33382" class="LineNr">33382 </span> 0/imm32/no-imm32 +<span id="L33383" class="LineNr">33383 </span> 0/imm32/no-imm8 +<span id="L33384" class="LineNr">33384 </span> 0/imm32/no-disp32 +<span id="L33385" class="LineNr">33385 </span> 0/imm32/no-xm32 +<span id="L33386" class="LineNr">33386 </span> 0/imm32/no-x32 +<span id="L33387" class="LineNr">33387 </span> 0x11/imm32/alloc-id:fake +<span id="L33388" class="LineNr">33388 </span> <a href='mu.subx.html#L33389'>_Primitive-loop-if->=</a>/imm32/next +<span id="L33389" class="LineNr">33389 </span><span class="subxMinorFunction">_Primitive-loop-if->=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33390" class="LineNr">33390 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33391" class="LineNr">33391 </span> 0x11/imm32/alloc-id:fake +<span id="L33392" class="LineNr">33392 </span> <a href='mu.subx.html#L34447'>_string-loop-if->=</a>/imm32/name +<span id="L33393" class="LineNr">33393 </span> 0/imm32/no-inouts +<span id="L33394" class="LineNr">33394 </span> 0/imm32/no-inouts +<span id="L33395" class="LineNr">33395 </span> 0/imm32/no-outputs +<span id="L33396" class="LineNr">33396 </span> 0/imm32/no-outputs +<span id="L33397" class="LineNr">33397 </span> 0x11/imm32/alloc-id:fake +<span id="L33398" class="LineNr">33398 </span> <a href='mu.subx.html#L34799'>_string_0f_8d_jump_loop</a>/imm32/subx-name +<span id="L33399" class="LineNr">33399 </span> 0/imm32/no-rm32 +<span id="L33400" class="LineNr">33400 </span> 0/imm32/no-r32 +<span id="L33401" class="LineNr">33401 </span> 0/imm32/no-imm32 +<span id="L33402" class="LineNr">33402 </span> 0/imm32/no-imm8 +<span id="L33403" class="LineNr">33403 </span> 0/imm32/no-disp32 +<span id="L33404" class="LineNr">33404 </span> 0/imm32/no-xm32 +<span id="L33405" class="LineNr">33405 </span> 0/imm32/no-x32 +<span id="L33406" class="LineNr">33406 </span> 0x11/imm32/alloc-id:fake +<span id="L33407" class="LineNr">33407 </span> <a href='mu.subx.html#L33408'>_Primitive-loop-if-<=</a>/imm32/next +<span id="L33408" class="LineNr">33408 </span><span class="subxMinorFunction">_Primitive-loop-if-<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33409" class="LineNr">33409 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33410" class="LineNr">33410 </span> 0x11/imm32/alloc-id:fake +<span id="L33411" class="LineNr">33411 </span> <a href='mu.subx.html#L34432'>_string-loop-if-<=</a>/imm32/name +<span id="L33412" class="LineNr">33412 </span> 0/imm32/no-inouts +<span id="L33413" class="LineNr">33413 </span> 0/imm32/no-inouts +<span id="L33414" class="LineNr">33414 </span> 0/imm32/no-outputs +<span id="L33415" class="LineNr">33415 </span> 0/imm32/no-outputs +<span id="L33416" class="LineNr">33416 </span> 0x11/imm32/alloc-id:fake +<span id="L33417" class="LineNr">33417 </span> <a href='mu.subx.html#L34814'>_string_0f_8e_jump_loop</a>/imm32/subx-name +<span id="L33418" class="LineNr">33418 </span> 0/imm32/no-rm32 +<span id="L33419" class="LineNr">33419 </span> 0/imm32/no-r32 +<span id="L33420" class="LineNr">33420 </span> 0/imm32/no-imm32 +<span id="L33421" class="LineNr">33421 </span> 0/imm32/no-imm8 +<span id="L33422" class="LineNr">33422 </span> 0/imm32/no-disp32 +<span id="L33423" class="LineNr">33423 </span> 0/imm32/no-xm32 +<span id="L33424" class="LineNr">33424 </span> 0/imm32/no-x32 +<span id="L33425" class="LineNr">33425 </span> 0x11/imm32/alloc-id:fake +<span id="L33426" class="LineNr">33426 </span> <a href='mu.subx.html#L33427'>_Primitive-loop-if-></a>/imm32/next +<span id="L33427" class="LineNr">33427 </span><span class="subxMinorFunction">_Primitive-loop-if-></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33428" class="LineNr">33428 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33429" class="LineNr">33429 </span> 0x11/imm32/alloc-id:fake +<span id="L33430" class="LineNr">33430 </span> <a href='mu.subx.html#L34442'>_string-loop-if-></a>/imm32/name +<span id="L33431" class="LineNr">33431 </span> 0/imm32/no-inouts +<span id="L33432" class="LineNr">33432 </span> 0/imm32/no-inouts +<span id="L33433" class="LineNr">33433 </span> 0/imm32/no-outputs +<span id="L33434" class="LineNr">33434 </span> 0/imm32/no-outputs +<span id="L33435" class="LineNr">33435 </span> 0x11/imm32/alloc-id:fake +<span id="L33436" class="LineNr">33436 </span> <a href='mu.subx.html#L34829'>_string_0f_8f_jump_loop</a>/imm32/subx-name +<span id="L33437" class="LineNr">33437 </span> 0/imm32/no-rm32 +<span id="L33438" class="LineNr">33438 </span> 0/imm32/no-r32 +<span id="L33439" class="LineNr">33439 </span> 0/imm32/no-imm32 +<span id="L33440" class="LineNr">33440 </span> 0/imm32/no-imm8 +<span id="L33441" class="LineNr">33441 </span> 0/imm32/no-disp32 +<span id="L33442" class="LineNr">33442 </span> 0/imm32/no-xm32 +<span id="L33443" class="LineNr">33443 </span> 0/imm32/no-x32 +<span id="L33444" class="LineNr">33444 </span> 0x11/imm32/alloc-id:fake +<span id="L33445" class="LineNr">33445 </span> <a href='mu.subx.html#L33446'>_Primitive-loop-if-carry</a>/imm32/next +<span id="L33446" class="LineNr">33446 </span><span class="subxMinorFunction">_Primitive-loop-if-carry</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33447" class="LineNr">33447 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33448" class="LineNr">33448 </span> 0x11/imm32/alloc-id:fake +<span id="L33449" class="LineNr">33449 </span> <a href='mu.subx.html#L34497'>_string-loop-if-carry</a>/imm32/name +<span id="L33450" class="LineNr">33450 </span> 0/imm32/no-inouts +<span id="L33451" class="LineNr">33451 </span> 0/imm32/no-inouts +<span id="L33452" class="LineNr">33452 </span> 0/imm32/no-outputs +<span id="L33453" class="LineNr">33453 </span> 0/imm32/no-outputs +<span id="L33454" class="LineNr">33454 </span> 0x11/imm32/alloc-id:fake +<span id="L33455" class="LineNr">33455 </span> <a href='mu.subx.html#L34694'>_string_0f_82_jump_loop</a>/imm32/subx-name +<span id="L33456" class="LineNr">33456 </span> 0/imm32/no-rm32 +<span id="L33457" class="LineNr">33457 </span> 0/imm32/no-r32 +<span id="L33458" class="LineNr">33458 </span> 0/imm32/no-imm32 +<span id="L33459" class="LineNr">33459 </span> 0/imm32/no-imm8 +<span id="L33460" class="LineNr">33460 </span> 0/imm32/no-disp32 +<span id="L33461" class="LineNr">33461 </span> 0/imm32/no-xm32 +<span id="L33462" class="LineNr">33462 </span> 0/imm32/no-x32 +<span id="L33463" class="LineNr">33463 </span> 0x11/imm32/alloc-id:fake +<span id="L33464" class="LineNr">33464 </span> <a href='mu.subx.html#L33465'>_Primitive-loop-if-not-carry</a>/imm32/next +<span id="L33465" class="LineNr">33465 </span><span class="subxMinorFunction">_Primitive-loop-if-not-carry</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33466" class="LineNr">33466 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33467" class="LineNr">33467 </span> 0x11/imm32/alloc-id:fake +<span id="L33468" class="LineNr">33468 </span> <a href='mu.subx.html#L34502'>_string-loop-if-not-carry</a>/imm32/name +<span id="L33469" class="LineNr">33469 </span> 0/imm32/no-inouts +<span id="L33470" class="LineNr">33470 </span> 0/imm32/no-inouts +<span id="L33471" class="LineNr">33471 </span> 0/imm32/no-outputs +<span id="L33472" class="LineNr">33472 </span> 0/imm32/no-outputs +<span id="L33473" class="LineNr">33473 </span> 0x11/imm32/alloc-id:fake +<span id="L33474" class="LineNr">33474 </span> <a href='mu.subx.html#L34709'>_string_0f_83_jump_loop</a>/imm32/subx-name +<span id="L33475" class="LineNr">33475 </span> 0/imm32/no-rm32 +<span id="L33476" class="LineNr">33476 </span> 0/imm32/no-r32 +<span id="L33477" class="LineNr">33477 </span> 0/imm32/no-imm32 +<span id="L33478" class="LineNr">33478 </span> 0/imm32/no-imm8 +<span id="L33479" class="LineNr">33479 </span> 0/imm32/no-disp32 +<span id="L33480" class="LineNr">33480 </span> 0/imm32/no-xm32 +<span id="L33481" class="LineNr">33481 </span> 0/imm32/no-x32 +<span id="L33482" class="LineNr">33482 </span> 0x11/imm32/alloc-id:fake +<span id="L33483" class="LineNr">33483 </span> <a href='mu.subx.html#L33484'>_Primitive-loop-if-overflow</a>/imm32/next +<span id="L33484" class="LineNr">33484 </span><span class="subxMinorFunction">_Primitive-loop-if-overflow</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33485" class="LineNr">33485 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33486" class="LineNr">33486 </span> 0x11/imm32/alloc-id:fake +<span id="L33487" class="LineNr">33487 </span> <a href='mu.subx.html#L34507'>_string-loop-if-overflow</a>/imm32/name +<span id="L33488" class="LineNr">33488 </span> 0/imm32/no-inouts +<span id="L33489" class="LineNr">33489 </span> 0/imm32/no-inouts +<span id="L33490" class="LineNr">33490 </span> 0/imm32/no-outputs +<span id="L33491" class="LineNr">33491 </span> 0/imm32/no-outputs +<span id="L33492" class="LineNr">33492 </span> 0x11/imm32/alloc-id:fake +<span id="L33493" class="LineNr">33493 </span> <a href='mu.subx.html#L34664'>_string_0f_80_jump_loop</a>/imm32/subx-name +<span id="L33494" class="LineNr">33494 </span> 0/imm32/no-rm32 +<span id="L33495" class="LineNr">33495 </span> 0/imm32/no-r32 +<span id="L33496" class="LineNr">33496 </span> 0/imm32/no-imm32 +<span id="L33497" class="LineNr">33497 </span> 0/imm32/no-imm8 +<span id="L33498" class="LineNr">33498 </span> 0/imm32/no-disp32 +<span id="L33499" class="LineNr">33499 </span> 0/imm32/no-xm32 +<span id="L33500" class="LineNr">33500 </span> 0/imm32/no-x32 +<span id="L33501" class="LineNr">33501 </span> 0x11/imm32/alloc-id:fake +<span id="L33502" class="LineNr">33502 </span> <a href='mu.subx.html#L33503'>_Primitive-loop-if-not-overflow</a>/imm32/next +<span id="L33503" class="LineNr">33503 </span><span class="subxMinorFunction">_Primitive-loop-if-not-overflow</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33504" class="LineNr">33504 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33505" class="LineNr">33505 </span> 0x11/imm32/alloc-id:fake +<span id="L33506" class="LineNr">33506 </span> <a href='mu.subx.html#L34512'>_string-loop-if-not-overflow</a>/imm32/name +<span id="L33507" class="LineNr">33507 </span> 0/imm32/no-inouts +<span id="L33508" class="LineNr">33508 </span> 0/imm32/no-inouts +<span id="L33509" class="LineNr">33509 </span> 0/imm32/no-outputs +<span id="L33510" class="LineNr">33510 </span> 0/imm32/no-outputs +<span id="L33511" class="LineNr">33511 </span> 0x11/imm32/alloc-id:fake +<span id="L33512" class="LineNr">33512 </span> <a href='mu.subx.html#L34679'>_string_0f_81_jump_loop</a>/imm32/subx-name +<span id="L33513" class="LineNr">33513 </span> 0/imm32/no-rm32 +<span id="L33514" class="LineNr">33514 </span> 0/imm32/no-r32 +<span id="L33515" class="LineNr">33515 </span> 0/imm32/no-imm32 +<span id="L33516" class="LineNr">33516 </span> 0/imm32/no-imm8 +<span id="L33517" class="LineNr">33517 </span> 0/imm32/no-disp32 +<span id="L33518" class="LineNr">33518 </span> 0/imm32/no-xm32 +<span id="L33519" class="LineNr">33519 </span> 0/imm32/no-x32 +<span id="L33520" class="LineNr">33520 </span> 0x11/imm32/alloc-id:fake +<span id="L33521" class="LineNr">33521 </span> <a href='mu.subx.html#L33522'>_Primitive-loop</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> +<span id="L33522" class="LineNr">33522 </span><span class="subxMinorFunction">_Primitive-loop</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33523" class="LineNr">33523 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33524" class="LineNr">33524 </span> 0x11/imm32/alloc-id:fake +<span id="L33525" class="LineNr">33525 </span> <a href='mu.subx.html#L34422'>_string-loop</a>/imm32/name +<span id="L33526" class="LineNr">33526 </span> 0/imm32/no-inouts +<span id="L33527" class="LineNr">33527 </span> 0/imm32/no-inouts +<span id="L33528" class="LineNr">33528 </span> 0/imm32/no-outputs +<span id="L33529" class="LineNr">33529 </span> 0/imm32/no-outputs +<span id="L33530" class="LineNr">33530 </span> 0x11/imm32/alloc-id:fake +<span id="L33531" class="LineNr">33531 </span> <a href='mu.subx.html#L35134'>_string_e9_jump_loop</a>/imm32/subx-name +<span id="L33532" class="LineNr">33532 </span> 0/imm32/no-rm32 +<span id="L33533" class="LineNr">33533 </span> 0/imm32/no-r32 +<span id="L33534" class="LineNr">33534 </span> 0/imm32/no-imm32 +<span id="L33535" class="LineNr">33535 </span> 0/imm32/no-imm8 +<span id="L33536" class="LineNr">33536 </span> 0/imm32/no-disp32 +<span id="L33537" class="LineNr">33537 </span> 0/imm32/no-xm32 +<span id="L33538" class="LineNr">33538 </span> 0/imm32/no-x32 +<span id="L33539" class="LineNr">33539 </span> 0x11/imm32/alloc-id:fake +<span id="L33540" class="LineNr">33540 </span> <a href='mu.subx.html#L33542'>_Primitive-break-if-addr<-named</a>/imm32/next +<span id="L33541" class="LineNr">33541 </span><span class="subxH1Comment"># - branches to named blocks</span> +<span id="L33542" class="LineNr">33542 </span><span class="subxMinorFunction">_Primitive-break-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33543" class="LineNr">33543 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33544" class="LineNr">33544 </span> 0x11/imm32/alloc-id:fake -<span id="L33545" class="LineNr">33545 </span> <a href='mu.subx.html#L34461'>_string_0f_84_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-!=-named</a>/imm32/next -<span id="L33555" class="LineNr">33555 </span><span class="subxMinorFunction">_Primitive-loop-if-!=-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#L34199'>_string-loop-if-!=</a>/imm32/name +<span id="L33545" class="LineNr">33545 </span> <a href='mu.subx.html#L34327'>_string-break-if-addr<</a>/imm32/name +<span id="L33546" class="LineNr">33546 </span> 0x11/imm32/alloc-id:fake +<span id="L33547" class="LineNr">33547 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33548" class="LineNr">33548 </span> 0/imm32/no-outputs +<span id="L33549" class="LineNr">33549 </span> 0/imm32/no-outputs +<span id="L33550" class="LineNr">33550 </span> 0x11/imm32/alloc-id:fake +<span id="L33551" class="LineNr">33551 </span> <a href='mu.subx.html#L34684'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L33552" class="LineNr">33552 </span> 0/imm32/no-rm32 +<span id="L33553" class="LineNr">33553 </span> 0/imm32/no-r32 +<span id="L33554" class="LineNr">33554 </span> 0/imm32/no-imm32 +<span id="L33555" class="LineNr">33555 </span> 0/imm32/no-imm8 +<span id="L33556" class="LineNr">33556 </span> 1/imm32/disp32-is-first-inout +<span id="L33557" class="LineNr">33557 </span> 0/imm32/no-xm32 +<span id="L33558" class="LineNr">33558 </span> 0/imm32/no-x32 <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#L35199'>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> 0/imm32/no-outputs +<span id="L33560" class="LineNr">33560 </span> <a href='mu.subx.html#L33561'>_Primitive-break-if-addr>=-named</a>/imm32/next +<span id="L33561" class="LineNr">33561 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33562" class="LineNr">33562 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33563" class="LineNr">33563 </span> 0x11/imm32/alloc-id:fake -<span id="L33564" class="LineNr">33564 </span> <a href='mu.subx.html#L34476'>_string_0f_85_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#L34209'>_string-loop-if-addr<=</a>/imm32/name +<span id="L33564" class="LineNr">33564 </span> <a href='mu.subx.html#L34342'>_string-break-if-addr>=</a>/imm32/name +<span id="L33565" class="LineNr">33565 </span> 0x11/imm32/alloc-id:fake +<span id="L33566" class="LineNr">33566 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33567" class="LineNr">33567 </span> 0/imm32/no-outputs +<span id="L33568" class="LineNr">33568 </span> 0/imm32/no-outputs +<span id="L33569" class="LineNr">33569 </span> 0x11/imm32/alloc-id:fake +<span id="L33570" class="LineNr">33570 </span> <a href='mu.subx.html#L34699'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L33571" class="LineNr">33571 </span> 0/imm32/no-rm32 +<span id="L33572" class="LineNr">33572 </span> 0/imm32/no-r32 +<span id="L33573" class="LineNr">33573 </span> 0/imm32/no-imm32 +<span id="L33574" class="LineNr">33574 </span> 0/imm32/no-imm8 +<span id="L33575" class="LineNr">33575 </span> 1/imm32/disp32-is-first-inout +<span id="L33576" class="LineNr">33576 </span> 0/imm32/no-xm32 +<span id="L33577" class="LineNr">33577 </span> 0/imm32/no-x32 <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#L35199'>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> 0/imm32/no-outputs +<span id="L33579" class="LineNr">33579 </span> <a href='mu.subx.html#L33580'>_Primitive-break-if-=-named</a>/imm32/next +<span id="L33580" class="LineNr">33580 </span><span class="subxMinorFunction">_Primitive-break-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33581" class="LineNr">33581 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33582" class="LineNr">33582 </span> 0x11/imm32/alloc-id:fake -<span id="L33583" class="LineNr">33583 </span> <a href='mu.subx.html#L34491'>_string_0f_86_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-addr>-named</a>/imm32/next -<span id="L33593" class="LineNr">33593 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>-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#L34214'>_string-loop-if-addr></a>/imm32/name +<span id="L33583" class="LineNr">33583 </span> <a href='mu.subx.html#L34307'>_string-break-if-=</a>/imm32/name +<span id="L33584" class="LineNr">33584 </span> 0x11/imm32/alloc-id:fake +<span id="L33585" class="LineNr">33585 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33586" class="LineNr">33586 </span> 0/imm32/no-outputs +<span id="L33587" class="LineNr">33587 </span> 0/imm32/no-outputs +<span id="L33588" class="LineNr">33588 </span> 0x11/imm32/alloc-id:fake +<span id="L33589" class="LineNr">33589 </span> <a href='mu.subx.html#L34714'>_string_0f_84_jump_label</a>/imm32/subx-name +<span id="L33590" class="LineNr">33590 </span> 0/imm32/no-rm32 +<span id="L33591" class="LineNr">33591 </span> 0/imm32/no-r32 +<span id="L33592" class="LineNr">33592 </span> 0/imm32/no-imm32 +<span id="L33593" class="LineNr">33593 </span> 0/imm32/no-imm8 +<span id="L33594" class="LineNr">33594 </span> 1/imm32/disp32-is-first-inout +<span id="L33595" class="LineNr">33595 </span> 0/imm32/no-xm32 +<span id="L33596" class="LineNr">33596 </span> 0/imm32/no-x32 <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#L35199'>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> 0/imm32/no-outputs +<span id="L33598" class="LineNr">33598 </span> <a href='mu.subx.html#L33599'>_Primitive-break-if-!=-named</a>/imm32/next +<span id="L33599" class="LineNr">33599 </span><span class="subxMinorFunction">_Primitive-break-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33600" class="LineNr">33600 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33601" class="LineNr">33601 </span> 0x11/imm32/alloc-id:fake -<span id="L33602" class="LineNr">33602 </span> <a href='mu.subx.html#L34506'>_string_0f_87_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#L34174'>_string-loop-if-<</a>/imm32/name +<span id="L33602" class="LineNr">33602 </span> <a href='mu.subx.html#L34322'>_string-break-if-!=</a>/imm32/name +<span id="L33603" class="LineNr">33603 </span> 0x11/imm32/alloc-id:fake +<span id="L33604" class="LineNr">33604 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33605" class="LineNr">33605 </span> 0/imm32/no-outputs +<span id="L33606" class="LineNr">33606 </span> 0/imm32/no-outputs +<span id="L33607" class="LineNr">33607 </span> 0x11/imm32/alloc-id:fake +<span id="L33608" class="LineNr">33608 </span> <a href='mu.subx.html#L34729'>_string_0f_85_jump_label</a>/imm32/subx-name +<span id="L33609" class="LineNr">33609 </span> 0/imm32/no-rm32 +<span id="L33610" class="LineNr">33610 </span> 0/imm32/no-r32 +<span id="L33611" class="LineNr">33611 </span> 0/imm32/no-imm32 +<span id="L33612" class="LineNr">33612 </span> 0/imm32/no-imm8 +<span id="L33613" class="LineNr">33613 </span> 1/imm32/disp32-is-first-inout +<span id="L33614" class="LineNr">33614 </span> 0/imm32/no-xm32 +<span id="L33615" class="LineNr">33615 </span> 0/imm32/no-x32 <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#L35199'>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> 0/imm32/no-outputs +<span id="L33617" class="LineNr">33617 </span> <a href='mu.subx.html#L33618'>_Primitive-break-if-addr<=-named</a>/imm32/next +<span id="L33618" class="LineNr">33618 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33619" class="LineNr">33619 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33620" class="LineNr">33620 </span> 0x11/imm32/alloc-id:fake -<span id="L33621" class="LineNr">33621 </span> <a href='mu.subx.html#L34521'>_string_0f_8c_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#L34194'>_string-loop-if->=</a>/imm32/name +<span id="L33621" class="LineNr">33621 </span> <a href='mu.subx.html#L34332'>_string-break-if-addr<=</a>/imm32/name +<span id="L33622" class="LineNr">33622 </span> 0x11/imm32/alloc-id:fake +<span id="L33623" class="LineNr">33623 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33624" class="LineNr">33624 </span> 0/imm32/no-outputs +<span id="L33625" class="LineNr">33625 </span> 0/imm32/no-outputs +<span id="L33626" class="LineNr">33626 </span> 0x11/imm32/alloc-id:fake +<span id="L33627" class="LineNr">33627 </span> <a href='mu.subx.html#L34744'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L33628" class="LineNr">33628 </span> 0/imm32/no-rm32 +<span id="L33629" class="LineNr">33629 </span> 0/imm32/no-r32 +<span id="L33630" class="LineNr">33630 </span> 0/imm32/no-imm32 +<span id="L33631" class="LineNr">33631 </span> 0/imm32/no-imm8 +<span id="L33632" class="LineNr">33632 </span> 1/imm32/disp32-is-first-inout +<span id="L33633" class="LineNr">33633 </span> 0/imm32/no-xm32 +<span id="L33634" class="LineNr">33634 </span> 0/imm32/no-x32 <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#L35199'>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> 0/imm32/no-outputs +<span id="L33636" class="LineNr">33636 </span> <a href='mu.subx.html#L33637'>_Primitive-break-if-addr>-named</a>/imm32/next +<span id="L33637" class="LineNr">33637 </span><span class="subxMinorFunction">_Primitive-break-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33638" class="LineNr">33638 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33639" class="LineNr">33639 </span> 0x11/imm32/alloc-id:fake -<span id="L33640" class="LineNr">33640 </span> <a href='mu.subx.html#L34536'>_string_0f_8d_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#L34179'>_string-loop-if-<=</a>/imm32/name +<span id="L33640" class="LineNr">33640 </span> <a href='mu.subx.html#L34337'>_string-break-if-addr></a>/imm32/name +<span id="L33641" class="LineNr">33641 </span> 0x11/imm32/alloc-id:fake +<span id="L33642" class="LineNr">33642 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33643" class="LineNr">33643 </span> 0/imm32/no-outputs +<span id="L33644" class="LineNr">33644 </span> 0/imm32/no-outputs +<span id="L33645" class="LineNr">33645 </span> 0x11/imm32/alloc-id:fake +<span id="L33646" class="LineNr">33646 </span> <a href='mu.subx.html#L34759'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L33647" class="LineNr">33647 </span> 0/imm32/no-rm32 +<span id="L33648" class="LineNr">33648 </span> 0/imm32/no-r32 +<span id="L33649" class="LineNr">33649 </span> 0/imm32/no-imm32 +<span id="L33650" class="LineNr">33650 </span> 0/imm32/no-imm8 +<span id="L33651" class="LineNr">33651 </span> 1/imm32/disp32-is-first-inout +<span id="L33652" class="LineNr">33652 </span> 0/imm32/no-xm32 +<span id="L33653" class="LineNr">33653 </span> 0/imm32/no-x32 <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#L35199'>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> 0/imm32/no-outputs +<span id="L33655" class="LineNr">33655 </span> <a href='mu.subx.html#L33656'>_Primitive-break-if-<-named</a>/imm32/next +<span id="L33656" class="LineNr">33656 </span><span class="subxMinorFunction">_Primitive-break-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33657" class="LineNr">33657 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33658" class="LineNr">33658 </span> 0x11/imm32/alloc-id:fake -<span id="L33659" class="LineNr">33659 </span> <a href='mu.subx.html#L34551'>_string_0f_8e_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-if->-named</a>/imm32/next -<span id="L33669" class="LineNr">33669 </span><span class="subxMinorFunction">_Primitive-loop-if->-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#L34189'>_string-loop-if-></a>/imm32/name +<span id="L33659" class="LineNr">33659 </span> <a href='mu.subx.html#L34297'>_string-break-if-<</a>/imm32/name +<span id="L33660" class="LineNr">33660 </span> 0x11/imm32/alloc-id:fake +<span id="L33661" class="LineNr">33661 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33662" class="LineNr">33662 </span> 0/imm32/no-outputs +<span id="L33663" class="LineNr">33663 </span> 0/imm32/no-outputs +<span id="L33664" class="LineNr">33664 </span> 0x11/imm32/alloc-id:fake +<span id="L33665" class="LineNr">33665 </span> <a href='mu.subx.html#L34774'>_string_0f_8c_jump_label</a>/imm32/subx-name +<span id="L33666" class="LineNr">33666 </span> 0/imm32/no-rm32 +<span id="L33667" class="LineNr">33667 </span> 0/imm32/no-r32 +<span id="L33668" class="LineNr">33668 </span> 0/imm32/no-imm32 +<span id="L33669" class="LineNr">33669 </span> 0/imm32/no-imm8 +<span id="L33670" class="LineNr">33670 </span> 1/imm32/disp32-is-first-inout +<span id="L33671" class="LineNr">33671 </span> 0/imm32/no-xm32 +<span id="L33672" class="LineNr">33672 </span> 0/imm32/no-x32 <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#L35199'>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> 0/imm32/no-outputs +<span id="L33674" class="LineNr">33674 </span> <a href='mu.subx.html#L33675'>_Primitive-break-if->=-named</a>/imm32/next +<span id="L33675" class="LineNr">33675 </span><span class="subxMinorFunction">_Primitive-break-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33676" class="LineNr">33676 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33677" class="LineNr">33677 </span> 0x11/imm32/alloc-id:fake -<span id="L33678" class="LineNr">33678 </span> <a href='mu.subx.html#L34566'>_string_0f_8f_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#L33688'>_Primitive-loop-named</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> -<span id="L33688" class="LineNr">33688 </span><span class="subxMinorFunction">_Primitive-loop-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33689" class="LineNr">33689 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33690" class="LineNr">33690 </span> 0x11/imm32/alloc-id:fake -<span id="L33691" class="LineNr">33691 </span> <a href='mu.subx.html#L34169'>_string-loop</a>/imm32/name +<span id="L33678" class="LineNr">33678 </span> <a href='mu.subx.html#L34317'>_string-break-if->=</a>/imm32/name +<span id="L33679" class="LineNr">33679 </span> 0x11/imm32/alloc-id:fake +<span id="L33680" class="LineNr">33680 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33681" class="LineNr">33681 </span> 0/imm32/no-outputs +<span id="L33682" class="LineNr">33682 </span> 0/imm32/no-outputs +<span id="L33683" class="LineNr">33683 </span> 0x11/imm32/alloc-id:fake +<span id="L33684" class="LineNr">33684 </span> <a href='mu.subx.html#L34789'>_string_0f_8d_jump_label</a>/imm32/subx-name +<span id="L33685" class="LineNr">33685 </span> 0/imm32/no-rm32 +<span id="L33686" class="LineNr">33686 </span> 0/imm32/no-r32 +<span id="L33687" class="LineNr">33687 </span> 0/imm32/no-imm32 +<span id="L33688" class="LineNr">33688 </span> 0/imm32/no-imm8 +<span id="L33689" class="LineNr">33689 </span> 1/imm32/disp32-is-first-inout +<span id="L33690" class="LineNr">33690 </span> 0/imm32/no-xm32 +<span id="L33691" class="LineNr">33691 </span> 0/imm32/no-x32 <span id="L33692" class="LineNr">33692 </span> 0x11/imm32/alloc-id:fake -<span id="L33693" class="LineNr">33693 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L33694" class="LineNr">33694 </span> 0/imm32/no-outputs -<span id="L33695" class="LineNr">33695 </span> 0/imm32/no-outputs +<span id="L33693" class="LineNr">33693 </span> <a href='mu.subx.html#L33694'>_Primitive-break-if-<=-named</a>/imm32/next +<span id="L33694" class="LineNr">33694 </span><span class="subxMinorFunction">_Primitive-break-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33695" class="LineNr">33695 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33696" class="LineNr">33696 </span> 0x11/imm32/alloc-id:fake -<span id="L33697" class="LineNr">33697 </span> <a href='mu.subx.html#L34871'>_string_e9_jump_label</a>/imm32/subx-name -<span id="L33698" class="LineNr">33698 </span> 0/imm32/no-rm32 -<span id="L33699" class="LineNr">33699 </span> 0/imm32/no-r32 -<span id="L33700" class="LineNr">33700 </span> 0/imm32/no-imm32 -<span id="L33701" class="LineNr">33701 </span> 0/imm32/no-imm8 -<span id="L33702" class="LineNr">33702 </span> 1/imm32/disp32-is-first-inout -<span id="L33703" class="LineNr">33703 </span> 0/imm32/no-xm32 -<span id="L33704" class="LineNr">33704 </span> 0/imm32/no-x32 -<span id="L33705" class="LineNr">33705 </span> 0x11/imm32/alloc-id:fake -<span id="L33706" class="LineNr">33706 </span> <a href='mu.subx.html#L33708'>_Primitive-break-if-float<</a>/imm32/next -<span id="L33707" class="LineNr">33707 </span><span class="subxH1Comment"># - branches based on floating-point comparisons</span> -<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> <a href='mu.subx.html#L34094'>_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#L34436'>_string_0f_82_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> <a href='mu.subx.html#L34109'>_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#L34451'>_string_0f_83_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> 0x11/imm32/alloc-id:fake -<span id="L33749" class="LineNr">33749 </span> <a href='mu.subx.html#L34099'>_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#L34496'>_string_0f_86_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-break-if-float></a>/imm32/next -<span id="L33765" class="LineNr">33765 </span><span class="subxMinorFunction">_Primitive-break-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#L34104'>_string-break-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#L34511'>_string_0f_87_jump_break</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#L34224'>_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#L34441'>_string_0f_82_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#L34239'>_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#L34456'>_string_0f_83_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#L34229'>_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#L34501'>_string_0f_86_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-loop-if-float></a>/imm32/next -<span id="L33841" class="LineNr">33841 </span><span class="subxMinorFunction">_Primitive-loop-if-float></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> 0x11/imm32/alloc-id:fake -<span id="L33844" class="LineNr">33844 </span> <a href='mu.subx.html#L34234'>_string-loop-if-float></a>/imm32/name -<span id="L33845" class="LineNr">33845 </span> 0/imm32/no-inouts -<span id="L33846" class="LineNr">33846 </span> 0/imm32/no-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#L34516'>_string_0f_87_jump_loop</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> 0/imm32/no-disp32 -<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#L34094'>_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#L35199'>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#L34431'>_string_0f_82_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#L34109'>_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#L35199'>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#L34446'>_string_0f_83_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#L34099'>_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#L35199'>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#L34491'>_string_0f_86_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-break-if-float>-named</a>/imm32/next -<span id="L33917" class="LineNr">33917 </span><span class="subxMinorFunction">_Primitive-break-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#L34104'>_string-break-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#L35199'>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#L34506'>_string_0f_87_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> 0x11/imm32/alloc-id:fake -<span id="L33939" class="LineNr">33939 </span> <a href='mu.subx.html#L34224'>_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#L35199'>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#L34431'>_string_0f_82_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#L34239'>_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#L35199'>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="L33697" class="LineNr">33697 </span> <a href='mu.subx.html#L34302'>_string-break-if-<=</a>/imm32/name +<span id="L33698" class="LineNr">33698 </span> 0x11/imm32/alloc-id:fake +<span id="L33699" class="LineNr">33699 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33700" class="LineNr">33700 </span> 0/imm32/no-outputs +<span id="L33701" class="LineNr">33701 </span> 0/imm32/no-outputs +<span id="L33702" class="LineNr">33702 </span> 0x11/imm32/alloc-id:fake +<span id="L33703" class="LineNr">33703 </span> <a href='mu.subx.html#L34804'>_string_0f_8e_jump_label</a>/imm32/subx-name +<span id="L33704" class="LineNr">33704 </span> 0/imm32/no-rm32 +<span id="L33705" class="LineNr">33705 </span> 0/imm32/no-r32 +<span id="L33706" class="LineNr">33706 </span> 0/imm32/no-imm32 +<span id="L33707" class="LineNr">33707 </span> 0/imm32/no-imm8 +<span id="L33708" class="LineNr">33708 </span> 1/imm32/disp32-is-first-inout +<span id="L33709" class="LineNr">33709 </span> 0/imm32/no-xm32 +<span id="L33710" class="LineNr">33710 </span> 0/imm32/no-x32 +<span id="L33711" class="LineNr">33711 </span> 0x11/imm32/alloc-id:fake +<span id="L33712" class="LineNr">33712 </span> <a href='mu.subx.html#L33713'>_Primitive-break-if->-named</a>/imm32/next +<span id="L33713" class="LineNr">33713 </span><span class="subxMinorFunction">_Primitive-break-if->-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33714" class="LineNr">33714 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33715" class="LineNr">33715 </span> 0x11/imm32/alloc-id:fake +<span id="L33716" class="LineNr">33716 </span> <a href='mu.subx.html#L34312'>_string-break-if-></a>/imm32/name +<span id="L33717" class="LineNr">33717 </span> 0x11/imm32/alloc-id:fake +<span id="L33718" class="LineNr">33718 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33719" class="LineNr">33719 </span> 0/imm32/no-outputs +<span id="L33720" class="LineNr">33720 </span> 0/imm32/no-outputs +<span id="L33721" class="LineNr">33721 </span> 0x11/imm32/alloc-id:fake +<span id="L33722" class="LineNr">33722 </span> <a href='mu.subx.html#L34819'>_string_0f_8f_jump_label</a>/imm32/subx-name +<span id="L33723" class="LineNr">33723 </span> 0/imm32/no-rm32 +<span id="L33724" class="LineNr">33724 </span> 0/imm32/no-r32 +<span id="L33725" class="LineNr">33725 </span> 0/imm32/no-imm32 +<span id="L33726" class="LineNr">33726 </span> 0/imm32/no-imm8 +<span id="L33727" class="LineNr">33727 </span> 1/imm32/disp32-is-first-inout +<span id="L33728" class="LineNr">33728 </span> 0/imm32/no-xm32 +<span id="L33729" class="LineNr">33729 </span> 0/imm32/no-x32 +<span id="L33730" class="LineNr">33730 </span> 0x11/imm32/alloc-id:fake +<span id="L33731" class="LineNr">33731 </span> <a href='mu.subx.html#L33732'>_Primitive-break-named</a>/imm32/next +<span id="L33732" class="LineNr">33732 </span><span class="subxMinorFunction">_Primitive-break-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33733" class="LineNr">33733 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33734" class="LineNr">33734 </span> 0x11/imm32/alloc-id:fake +<span id="L33735" class="LineNr">33735 </span> <a href='mu.subx.html#L34292'>_string-break</a>/imm32/name +<span id="L33736" class="LineNr">33736 </span> 0x11/imm32/alloc-id:fake +<span id="L33737" class="LineNr">33737 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33738" class="LineNr">33738 </span> 0/imm32/no-outputs +<span id="L33739" class="LineNr">33739 </span> 0/imm32/no-outputs +<span id="L33740" class="LineNr">33740 </span> 0x11/imm32/alloc-id:fake +<span id="L33741" class="LineNr">33741 </span> <a href='mu.subx.html#L35124'>_string_e9_jump_label</a>/imm32/subx-name +<span id="L33742" class="LineNr">33742 </span> 0/imm32/no-rm32 +<span id="L33743" class="LineNr">33743 </span> 0/imm32/no-r32 +<span id="L33744" class="LineNr">33744 </span> 0/imm32/no-imm32 +<span id="L33745" class="LineNr">33745 </span> 0/imm32/no-imm8 +<span id="L33746" class="LineNr">33746 </span> 1/imm32/disp32-is-first-inout +<span id="L33747" class="LineNr">33747 </span> 0/imm32/no-xm32 +<span id="L33748" class="LineNr">33748 </span> 0/imm32/no-x32 +<span id="L33749" class="LineNr">33749 </span> 0x11/imm32/alloc-id:fake +<span id="L33750" class="LineNr">33750 </span> <a href='mu.subx.html#L33751'>_Primitive-loop-if-addr<-named</a>/imm32/next +<span id="L33751" class="LineNr">33751 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33752" class="LineNr">33752 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33753" class="LineNr">33753 </span> 0x11/imm32/alloc-id:fake +<span id="L33754" class="LineNr">33754 </span> <a href='mu.subx.html#L34457'>_string-loop-if-addr<</a>/imm32/name +<span id="L33755" class="LineNr">33755 </span> 0x11/imm32/alloc-id:fake +<span id="L33756" class="LineNr">33756 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33757" class="LineNr">33757 </span> 0/imm32/no-outputs +<span id="L33758" class="LineNr">33758 </span> 0/imm32/no-outputs +<span id="L33759" class="LineNr">33759 </span> 0x11/imm32/alloc-id:fake +<span id="L33760" class="LineNr">33760 </span> <a href='mu.subx.html#L34684'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L33761" class="LineNr">33761 </span> 0/imm32/no-rm32 +<span id="L33762" class="LineNr">33762 </span> 0/imm32/no-r32 +<span id="L33763" class="LineNr">33763 </span> 0/imm32/no-imm32 +<span id="L33764" class="LineNr">33764 </span> 0/imm32/no-imm8 +<span id="L33765" class="LineNr">33765 </span> 1/imm32/disp32-is-first-inout +<span id="L33766" class="LineNr">33766 </span> 0/imm32/no-xm32 +<span id="L33767" class="LineNr">33767 </span> 0/imm32/no-x32 +<span id="L33768" class="LineNr">33768 </span> 0x11/imm32/alloc-id:fake +<span id="L33769" class="LineNr">33769 </span> <a href='mu.subx.html#L33770'>_Primitive-loop-if-addr>=-named</a>/imm32/next +<span id="L33770" class="LineNr">33770 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33771" class="LineNr">33771 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33772" class="LineNr">33772 </span> 0x11/imm32/alloc-id:fake +<span id="L33773" class="LineNr">33773 </span> <a href='mu.subx.html#L34472'>_string-loop-if-addr>=</a>/imm32/name +<span id="L33774" class="LineNr">33774 </span> 0x11/imm32/alloc-id:fake +<span id="L33775" class="LineNr">33775 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33776" class="LineNr">33776 </span> 0/imm32/no-outputs +<span id="L33777" class="LineNr">33777 </span> 0/imm32/no-outputs +<span id="L33778" class="LineNr">33778 </span> 0x11/imm32/alloc-id:fake +<span id="L33779" class="LineNr">33779 </span> <a href='mu.subx.html#L34699'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L33780" class="LineNr">33780 </span> 0/imm32/no-rm32 +<span id="L33781" class="LineNr">33781 </span> 0/imm32/no-r32 +<span id="L33782" class="LineNr">33782 </span> 0/imm32/no-imm32 +<span id="L33783" class="LineNr">33783 </span> 0/imm32/no-imm8 +<span id="L33784" class="LineNr">33784 </span> 1/imm32/disp32-is-first-inout +<span id="L33785" class="LineNr">33785 </span> 0/imm32/no-xm32 +<span id="L33786" class="LineNr">33786 </span> 0/imm32/no-x32 +<span id="L33787" class="LineNr">33787 </span> 0x11/imm32/alloc-id:fake +<span id="L33788" class="LineNr">33788 </span> <a href='mu.subx.html#L33789'>_Primitive-loop-if-=-named</a>/imm32/next +<span id="L33789" class="LineNr">33789 </span><span class="subxMinorFunction">_Primitive-loop-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33790" class="LineNr">33790 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33791" class="LineNr">33791 </span> 0x11/imm32/alloc-id:fake +<span id="L33792" class="LineNr">33792 </span> <a href='mu.subx.html#L34437'>_string-loop-if-=</a>/imm32/name +<span id="L33793" class="LineNr">33793 </span> 0x11/imm32/alloc-id:fake +<span id="L33794" class="LineNr">33794 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33795" class="LineNr">33795 </span> 0/imm32/no-outputs +<span id="L33796" class="LineNr">33796 </span> 0/imm32/no-outputs +<span id="L33797" class="LineNr">33797 </span> 0x11/imm32/alloc-id:fake +<span id="L33798" class="LineNr">33798 </span> <a href='mu.subx.html#L34714'>_string_0f_84_jump_label</a>/imm32/subx-name +<span id="L33799" class="LineNr">33799 </span> 0/imm32/no-rm32 +<span id="L33800" class="LineNr">33800 </span> 0/imm32/no-r32 +<span id="L33801" class="LineNr">33801 </span> 0/imm32/no-imm32 +<span id="L33802" class="LineNr">33802 </span> 0/imm32/no-imm8 +<span id="L33803" class="LineNr">33803 </span> 1/imm32/disp32-is-first-inout +<span id="L33804" class="LineNr">33804 </span> 0/imm32/no-xm32 +<span id="L33805" class="LineNr">33805 </span> 0/imm32/no-x32 +<span id="L33806" class="LineNr">33806 </span> 0x11/imm32/alloc-id:fake +<span id="L33807" class="LineNr">33807 </span> <a href='mu.subx.html#L33808'>_Primitive-loop-if-!=-named</a>/imm32/next +<span id="L33808" class="LineNr">33808 </span><span class="subxMinorFunction">_Primitive-loop-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33809" class="LineNr">33809 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33810" class="LineNr">33810 </span> 0x11/imm32/alloc-id:fake +<span id="L33811" class="LineNr">33811 </span> <a href='mu.subx.html#L34452'>_string-loop-if-!=</a>/imm32/name +<span id="L33812" class="LineNr">33812 </span> 0x11/imm32/alloc-id:fake +<span id="L33813" class="LineNr">33813 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33814" class="LineNr">33814 </span> 0/imm32/no-outputs +<span id="L33815" class="LineNr">33815 </span> 0/imm32/no-outputs +<span id="L33816" class="LineNr">33816 </span> 0x11/imm32/alloc-id:fake +<span id="L33817" class="LineNr">33817 </span> <a href='mu.subx.html#L34729'>_string_0f_85_jump_label</a>/imm32/subx-name +<span id="L33818" class="LineNr">33818 </span> 0/imm32/no-rm32 +<span id="L33819" class="LineNr">33819 </span> 0/imm32/no-r32 +<span id="L33820" class="LineNr">33820 </span> 0/imm32/no-imm32 +<span id="L33821" class="LineNr">33821 </span> 0/imm32/no-imm8 +<span id="L33822" class="LineNr">33822 </span> 1/imm32/disp32-is-first-inout +<span id="L33823" class="LineNr">33823 </span> 0/imm32/no-xm32 +<span id="L33824" class="LineNr">33824 </span> 0/imm32/no-x32 +<span id="L33825" class="LineNr">33825 </span> 0x11/imm32/alloc-id:fake +<span id="L33826" class="LineNr">33826 </span> <a href='mu.subx.html#L33827'>_Primitive-loop-if-addr<=-named</a>/imm32/next +<span id="L33827" class="LineNr">33827 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33828" class="LineNr">33828 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33829" class="LineNr">33829 </span> 0x11/imm32/alloc-id:fake +<span id="L33830" class="LineNr">33830 </span> <a href='mu.subx.html#L34462'>_string-loop-if-addr<=</a>/imm32/name +<span id="L33831" class="LineNr">33831 </span> 0x11/imm32/alloc-id:fake +<span id="L33832" class="LineNr">33832 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33833" class="LineNr">33833 </span> 0/imm32/no-outputs +<span id="L33834" class="LineNr">33834 </span> 0/imm32/no-outputs +<span id="L33835" class="LineNr">33835 </span> 0x11/imm32/alloc-id:fake +<span id="L33836" class="LineNr">33836 </span> <a href='mu.subx.html#L34744'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L33837" class="LineNr">33837 </span> 0/imm32/no-rm32 +<span id="L33838" class="LineNr">33838 </span> 0/imm32/no-r32 +<span id="L33839" class="LineNr">33839 </span> 0/imm32/no-imm32 +<span id="L33840" class="LineNr">33840 </span> 0/imm32/no-imm8 +<span id="L33841" class="LineNr">33841 </span> 1/imm32/disp32-is-first-inout +<span id="L33842" class="LineNr">33842 </span> 0/imm32/no-xm32 +<span id="L33843" class="LineNr">33843 </span> 0/imm32/no-x32 +<span id="L33844" class="LineNr">33844 </span> 0x11/imm32/alloc-id:fake +<span id="L33845" class="LineNr">33845 </span> <a href='mu.subx.html#L33846'>_Primitive-loop-if-addr>-named</a>/imm32/next +<span id="L33846" class="LineNr">33846 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33847" class="LineNr">33847 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33848" class="LineNr">33848 </span> 0x11/imm32/alloc-id:fake +<span id="L33849" class="LineNr">33849 </span> <a href='mu.subx.html#L34467'>_string-loop-if-addr></a>/imm32/name +<span id="L33850" class="LineNr">33850 </span> 0x11/imm32/alloc-id:fake +<span id="L33851" class="LineNr">33851 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33852" class="LineNr">33852 </span> 0/imm32/no-outputs +<span id="L33853" class="LineNr">33853 </span> 0/imm32/no-outputs +<span id="L33854" class="LineNr">33854 </span> 0x11/imm32/alloc-id:fake +<span id="L33855" class="LineNr">33855 </span> <a href='mu.subx.html#L34759'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L33856" class="LineNr">33856 </span> 0/imm32/no-rm32 +<span id="L33857" class="LineNr">33857 </span> 0/imm32/no-r32 +<span id="L33858" class="LineNr">33858 </span> 0/imm32/no-imm32 +<span id="L33859" class="LineNr">33859 </span> 0/imm32/no-imm8 +<span id="L33860" class="LineNr">33860 </span> 1/imm32/disp32-is-first-inout +<span id="L33861" class="LineNr">33861 </span> 0/imm32/no-xm32 +<span id="L33862" class="LineNr">33862 </span> 0/imm32/no-x32 +<span id="L33863" class="LineNr">33863 </span> 0x11/imm32/alloc-id:fake +<span id="L33864" class="LineNr">33864 </span> <a href='mu.subx.html#L33865'>_Primitive-loop-if-<-named</a>/imm32/next +<span id="L33865" class="LineNr">33865 </span><span class="subxMinorFunction">_Primitive-loop-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33866" class="LineNr">33866 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33867" class="LineNr">33867 </span> 0x11/imm32/alloc-id:fake +<span id="L33868" class="LineNr">33868 </span> <a href='mu.subx.html#L34427'>_string-loop-if-<</a>/imm32/name +<span id="L33869" class="LineNr">33869 </span> 0x11/imm32/alloc-id:fake +<span id="L33870" class="LineNr">33870 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33871" class="LineNr">33871 </span> 0/imm32/no-outputs +<span id="L33872" class="LineNr">33872 </span> 0/imm32/no-outputs +<span id="L33873" class="LineNr">33873 </span> 0x11/imm32/alloc-id:fake +<span id="L33874" class="LineNr">33874 </span> <a href='mu.subx.html#L34774'>_string_0f_8c_jump_label</a>/imm32/subx-name +<span id="L33875" class="LineNr">33875 </span> 0/imm32/no-rm32 +<span id="L33876" class="LineNr">33876 </span> 0/imm32/no-r32 +<span id="L33877" class="LineNr">33877 </span> 0/imm32/no-imm32 +<span id="L33878" class="LineNr">33878 </span> 0/imm32/no-imm8 +<span id="L33879" class="LineNr">33879 </span> 1/imm32/disp32-is-first-inout +<span id="L33880" class="LineNr">33880 </span> 0/imm32/no-xm32 +<span id="L33881" class="LineNr">33881 </span> 0/imm32/no-x32 +<span id="L33882" class="LineNr">33882 </span> 0x11/imm32/alloc-id:fake +<span id="L33883" class="LineNr">33883 </span> <a href='mu.subx.html#L33884'>_Primitive-loop-if->=-named</a>/imm32/next +<span id="L33884" class="LineNr">33884 </span><span class="subxMinorFunction">_Primitive-loop-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33885" class="LineNr">33885 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33886" class="LineNr">33886 </span> 0x11/imm32/alloc-id:fake +<span id="L33887" class="LineNr">33887 </span> <a href='mu.subx.html#L34447'>_string-loop-if->=</a>/imm32/name +<span id="L33888" class="LineNr">33888 </span> 0x11/imm32/alloc-id:fake +<span id="L33889" class="LineNr">33889 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33890" class="LineNr">33890 </span> 0/imm32/no-outputs +<span id="L33891" class="LineNr">33891 </span> 0/imm32/no-outputs +<span id="L33892" class="LineNr">33892 </span> 0x11/imm32/alloc-id:fake +<span id="L33893" class="LineNr">33893 </span> <a href='mu.subx.html#L34789'>_string_0f_8d_jump_label</a>/imm32/subx-name +<span id="L33894" class="LineNr">33894 </span> 0/imm32/no-rm32 +<span id="L33895" class="LineNr">33895 </span> 0/imm32/no-r32 +<span id="L33896" class="LineNr">33896 </span> 0/imm32/no-imm32 +<span id="L33897" class="LineNr">33897 </span> 0/imm32/no-imm8 +<span id="L33898" class="LineNr">33898 </span> 1/imm32/disp32-is-first-inout +<span id="L33899" class="LineNr">33899 </span> 0/imm32/no-xm32 +<span id="L33900" class="LineNr">33900 </span> 0/imm32/no-x32 +<span id="L33901" class="LineNr">33901 </span> 0x11/imm32/alloc-id:fake +<span id="L33902" class="LineNr">33902 </span> <a href='mu.subx.html#L33903'>_Primitive-loop-if-<=-named</a>/imm32/next +<span id="L33903" class="LineNr">33903 </span><span class="subxMinorFunction">_Primitive-loop-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33904" class="LineNr">33904 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33905" class="LineNr">33905 </span> 0x11/imm32/alloc-id:fake +<span id="L33906" class="LineNr">33906 </span> <a href='mu.subx.html#L34432'>_string-loop-if-<=</a>/imm32/name +<span id="L33907" class="LineNr">33907 </span> 0x11/imm32/alloc-id:fake +<span id="L33908" class="LineNr">33908 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33909" class="LineNr">33909 </span> 0/imm32/no-outputs +<span id="L33910" class="LineNr">33910 </span> 0/imm32/no-outputs +<span id="L33911" class="LineNr">33911 </span> 0x11/imm32/alloc-id:fake +<span id="L33912" class="LineNr">33912 </span> <a href='mu.subx.html#L34804'>_string_0f_8e_jump_label</a>/imm32/subx-name +<span id="L33913" class="LineNr">33913 </span> 0/imm32/no-rm32 +<span id="L33914" class="LineNr">33914 </span> 0/imm32/no-r32 +<span id="L33915" class="LineNr">33915 </span> 0/imm32/no-imm32 +<span id="L33916" class="LineNr">33916 </span> 0/imm32/no-imm8 +<span id="L33917" class="LineNr">33917 </span> 1/imm32/disp32-is-first-inout +<span id="L33918" class="LineNr">33918 </span> 0/imm32/no-xm32 +<span id="L33919" class="LineNr">33919 </span> 0/imm32/no-x32 +<span id="L33920" class="LineNr">33920 </span> 0x11/imm32/alloc-id:fake +<span id="L33921" class="LineNr">33921 </span> <a href='mu.subx.html#L33922'>_Primitive-loop-if->-named</a>/imm32/next +<span id="L33922" class="LineNr">33922 </span><span class="subxMinorFunction">_Primitive-loop-if->-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33923" class="LineNr">33923 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33924" class="LineNr">33924 </span> 0x11/imm32/alloc-id:fake +<span id="L33925" class="LineNr">33925 </span> <a href='mu.subx.html#L34442'>_string-loop-if-></a>/imm32/name +<span id="L33926" class="LineNr">33926 </span> 0x11/imm32/alloc-id:fake +<span id="L33927" class="LineNr">33927 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33928" class="LineNr">33928 </span> 0/imm32/no-outputs +<span id="L33929" class="LineNr">33929 </span> 0/imm32/no-outputs +<span id="L33930" class="LineNr">33930 </span> 0x11/imm32/alloc-id:fake +<span id="L33931" class="LineNr">33931 </span> <a href='mu.subx.html#L34819'>_string_0f_8f_jump_label</a>/imm32/subx-name +<span id="L33932" class="LineNr">33932 </span> 0/imm32/no-rm32 +<span id="L33933" class="LineNr">33933 </span> 0/imm32/no-r32 +<span id="L33934" class="LineNr">33934 </span> 0/imm32/no-imm32 +<span id="L33935" class="LineNr">33935 </span> 0/imm32/no-imm8 +<span id="L33936" class="LineNr">33936 </span> 1/imm32/disp32-is-first-inout +<span id="L33937" class="LineNr">33937 </span> 0/imm32/no-xm32 +<span id="L33938" class="LineNr">33938 </span> 0/imm32/no-x32 +<span id="L33939" class="LineNr">33939 </span> 0x11/imm32/alloc-id:fake +<span id="L33940" class="LineNr">33940 </span> <a href='mu.subx.html#L33941'>_Primitive-loop-named</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> +<span id="L33941" class="LineNr">33941 </span><span class="subxMinorFunction">_Primitive-loop-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33942" class="LineNr">33942 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33943" class="LineNr">33943 </span> 0x11/imm32/alloc-id:fake +<span id="L33944" class="LineNr">33944 </span> <a href='mu.subx.html#L34422'>_string-loop</a>/imm32/name +<span id="L33945" class="LineNr">33945 </span> 0x11/imm32/alloc-id:fake +<span id="L33946" class="LineNr">33946 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L33947" class="LineNr">33947 </span> 0/imm32/no-outputs +<span id="L33948" class="LineNr">33948 </span> 0/imm32/no-outputs +<span id="L33949" class="LineNr">33949 </span> 0x11/imm32/alloc-id:fake +<span id="L33950" class="LineNr">33950 </span> <a href='mu.subx.html#L35124'>_string_e9_jump_label</a>/imm32/subx-name +<span id="L33951" class="LineNr">33951 </span> 0/imm32/no-rm32 +<span id="L33952" class="LineNr">33952 </span> 0/imm32/no-r32 +<span id="L33953" class="LineNr">33953 </span> 0/imm32/no-imm32 +<span id="L33954" class="LineNr">33954 </span> 0/imm32/no-imm8 +<span id="L33955" class="LineNr">33955 </span> 1/imm32/disp32-is-first-inout +<span id="L33956" class="LineNr">33956 </span> 0/imm32/no-xm32 +<span id="L33957" class="LineNr">33957 </span> 0/imm32/no-x32 +<span id="L33958" class="LineNr">33958 </span> 0x11/imm32/alloc-id:fake +<span id="L33959" class="LineNr">33959 </span> <a href='mu.subx.html#L33961'>_Primitive-break-if-float<</a>/imm32/next +<span id="L33960" class="LineNr">33960 </span><span class="subxH1Comment"># - branches based on floating-point comparisons</span> +<span id="L33961" class="LineNr">33961 </span><span class="subxMinorFunction">_Primitive-break-if-float<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33962" class="LineNr">33962 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33963" class="LineNr">33963 </span> 0x11/imm32/alloc-id:fake -<span id="L33964" class="LineNr">33964 </span> <a href='mu.subx.html#L34446'>_string_0f_83_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#L34229'>_string-loop-if-float<=</a>/imm32/name +<span id="L33964" class="LineNr">33964 </span> <a href='mu.subx.html#L34347'>_string-break-if-float<</a>/imm32/name +<span id="L33965" class="LineNr">33965 </span> 0/imm32/no-inouts +<span id="L33966" class="LineNr">33966 </span> 0/imm32/no-inouts +<span id="L33967" class="LineNr">33967 </span> 0/imm32/no-outputs +<span id="L33968" class="LineNr">33968 </span> 0/imm32/no-outputs +<span id="L33969" class="LineNr">33969 </span> 0x11/imm32/alloc-id:fake +<span id="L33970" class="LineNr">33970 </span> <a href='mu.subx.html#L34689'>_string_0f_82_jump_break</a>/imm32/subx-name +<span id="L33971" class="LineNr">33971 </span> 0/imm32/no-rm32 +<span id="L33972" class="LineNr">33972 </span> 0/imm32/no-r32 +<span id="L33973" class="LineNr">33973 </span> 0/imm32/no-imm32 +<span id="L33974" class="LineNr">33974 </span> 0/imm32/no-imm8 +<span id="L33975" class="LineNr">33975 </span> 0/imm32/no-disp32 +<span id="L33976" class="LineNr">33976 </span> 0/imm32/no-xm32 +<span id="L33977" class="LineNr">33977 </span> 0/imm32/no-x32 <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#L35199'>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="L33979" class="LineNr">33979 </span> <a href='mu.subx.html#L33980'>_Primitive-break-if-float>=</a>/imm32/next +<span id="L33980" class="LineNr">33980 </span><span class="subxMinorFunction">_Primitive-break-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33981" class="LineNr">33981 </span> 0x11/imm32/alloc-id:fake:payload <span id="L33982" class="LineNr">33982 </span> 0x11/imm32/alloc-id:fake -<span id="L33983" class="LineNr">33983 </span> <a href='mu.subx.html#L34491'>_string_0f_86_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> 0x11/imm32/alloc-id:fake -<span id="L33992" class="LineNr">33992 </span> <a href='mu.subx.html#L33993'>_Primitive-loop-if-float>-named</a>/imm32/next -<span id="L33993" class="LineNr">33993 </span><span class="subxMinorFunction">_Primitive-loop-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33994" class="LineNr">33994 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33995" class="LineNr">33995 </span> 0x11/imm32/alloc-id:fake -<span id="L33996" class="LineNr">33996 </span> <a href='mu.subx.html#L34234'>_string-loop-if-float></a>/imm32/name +<span id="L33983" class="LineNr">33983 </span> <a href='mu.subx.html#L34362'>_string-break-if-float>=</a>/imm32/name +<span id="L33984" class="LineNr">33984 </span> 0/imm32/no-inouts +<span id="L33985" class="LineNr">33985 </span> 0/imm32/no-inouts +<span id="L33986" class="LineNr">33986 </span> 0/imm32/no-outputs +<span id="L33987" class="LineNr">33987 </span> 0/imm32/no-outputs +<span id="L33988" class="LineNr">33988 </span> 0x11/imm32/alloc-id:fake +<span id="L33989" class="LineNr">33989 </span> <a href='mu.subx.html#L34704'>_string_0f_83_jump_break</a>/imm32/subx-name +<span id="L33990" class="LineNr">33990 </span> 0/imm32/no-rm32 +<span id="L33991" class="LineNr">33991 </span> 0/imm32/no-r32 +<span id="L33992" class="LineNr">33992 </span> 0/imm32/no-imm32 +<span id="L33993" class="LineNr">33993 </span> 0/imm32/no-imm8 +<span id="L33994" class="LineNr">33994 </span> 0/imm32/no-disp32 +<span id="L33995" class="LineNr">33995 </span> 0/imm32/no-xm32 +<span id="L33996" class="LineNr">33996 </span> 0/imm32/no-x32 <span id="L33997" class="LineNr">33997 </span> 0x11/imm32/alloc-id:fake -<span id="L33998" class="LineNr">33998 </span> <span class="SpecialChar"><a href='mu.subx.html#L35199'>Single-lit-var</a></span>/imm32/inouts -<span id="L33999" class="LineNr">33999 </span> 0/imm32/no-outputs -<span id="L34000" class="LineNr">34000 </span> 0/imm32/no-outputs +<span id="L33998" class="LineNr">33998 </span> <a href='mu.subx.html#L33999'>_Primitive-break-if-float<=</a>/imm32/next +<span id="L33999" class="LineNr">33999 </span><span class="subxMinorFunction">_Primitive-break-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L34000" class="LineNr">34000 </span> 0x11/imm32/alloc-id:fake:payload <span id="L34001" class="LineNr">34001 </span> 0x11/imm32/alloc-id:fake -<span id="L34002" class="LineNr">34002 </span> <a href='mu.subx.html#L34506'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L34003" class="LineNr">34003 </span> 0/imm32/no-rm32 -<span id="L34004" class="LineNr">34004 </span> 0/imm32/no-r32 -<span id="L34005" class="LineNr">34005 </span> 0/imm32/no-imm32 -<span id="L34006" class="LineNr">34006 </span> 0/imm32/no-imm8 -<span id="L34007" class="LineNr">34007 </span> 1/imm32/disp32-is-first-inout -<span id="L34008" class="LineNr">34008 </span> 0/imm32/no-xm32 -<span id="L34009" class="LineNr">34009 </span> 0/imm32/no-x32 -<span id="L34010" class="LineNr">34010 </span> 0/imm32/next -<span id="L34011" class="LineNr">34011 </span> 0/imm32/next -<span id="L34012" class="LineNr">34012 </span> -<span id="L34013" class="LineNr">34013 </span><span class="subxComment"># string literals for Mu instructions</span> -<span id="L34014" class="LineNr">34014 </span><span class="subxMinorFunction">_string-add</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34015" class="LineNr">34015 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34016" class="LineNr">34016 </span> <span class="subxComment"># "add"</span> -<span id="L34017" class="LineNr">34017 </span> 0x3/imm32/size -<span id="L34018" class="LineNr">34018 </span> 0x61/a 0x64/d 0x64/d -<span id="L34019" class="LineNr">34019 </span><span class="subxMinorFunction">_string-address</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34020" class="LineNr">34020 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34021" class="LineNr">34021 </span> <span class="subxComment"># "address"</span> -<span id="L34022" class="LineNr">34022 </span> 0x7/imm32/size -<span id="L34023" class="LineNr">34023 </span> 0x61/a 0x64/d 0x64/d 0x72/r 0x65/e 0x73/s 0x73/s -<span id="L34024" class="LineNr">34024 </span><span class="subxMinorFunction">_string-add-to</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34025" class="LineNr">34025 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34026" class="LineNr">34026 </span> <span class="subxComment"># "add-to"</span> -<span id="L34027" class="LineNr">34027 </span> 0x6/imm32/size -<span id="L34028" class="LineNr">34028 </span> 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o -<span id="L34029" class="LineNr">34029 </span><span class="subxMinorFunction">_string-and</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34030" class="LineNr">34030 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34031" class="LineNr">34031 </span> <span class="subxComment"># "and"</span> -<span id="L34032" class="LineNr">34032 </span> 0x3/imm32/size -<span id="L34033" class="LineNr">34033 </span> 0x61/a 0x6e/n 0x64/d -<span id="L34034" class="LineNr">34034 </span><span class="subxMinorFunction">_string-and-with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34035" class="LineNr">34035 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34036" class="LineNr">34036 </span> <span class="subxComment"># "and-with"</span> -<span id="L34037" class="LineNr">34037 </span> 0x8/imm32/size -<span id="L34038" class="LineNr">34038 </span> 0x61/a 0x6e/n 0x64/d 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L34039" class="LineNr">34039 </span><span class="subxMinorFunction">_string-break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34040" class="LineNr">34040 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34041" class="LineNr">34041 </span> <span class="subxComment"># "break"</span> -<span id="L34042" class="LineNr">34042 </span> 0x5/imm32/size -<span id="L34043" class="LineNr">34043 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k -<span id="L34044" class="LineNr">34044 </span><span class="subxMinorFunction">_string-break-if-<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34045" class="LineNr">34045 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34046" class="LineNr">34046 </span> <span class="subxComment"># "break-if-<"</span> -<span id="L34047" class="LineNr">34047 </span> 0xa/imm32/size -<span id="L34048" class="LineNr">34048 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< -<span id="L34049" class="LineNr">34049 </span><span class="subxMinorFunction">_string-break-if-<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34050" class="LineNr">34050 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34051" class="LineNr">34051 </span> <span class="subxComment"># "break-if-<="</span> -<span id="L34052" class="LineNr">34052 </span> 0xb/imm32/size -<span id="L34053" class="LineNr">34053 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= -<span id="L34054" class="LineNr">34054 </span><span class="subxMinorFunction">_string-break-if-=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34055" class="LineNr">34055 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34056" class="LineNr">34056 </span> <span class="subxComment"># "break-if-="</span> -<span id="L34057" class="LineNr">34057 </span> 0xa/imm32/size -<span id="L34058" class="LineNr">34058 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= -<span id="L34059" class="LineNr">34059 </span><span class="subxMinorFunction">_string-break-if-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34060" class="LineNr">34060 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34061" class="LineNr">34061 </span> <span class="subxComment"># "break-if->"</span> -<span id="L34062" class="LineNr">34062 </span> 0xa/imm32/size -<span id="L34063" class="LineNr">34063 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> -<span id="L34064" class="LineNr">34064 </span><span class="subxMinorFunction">_string-break-if->=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34065" class="LineNr">34065 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34066" class="LineNr">34066 </span> <span class="subxComment"># "break-if->="</span> -<span id="L34067" class="LineNr">34067 </span> 0xb/imm32/size -<span id="L34068" class="LineNr">34068 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= -<span id="L34069" class="LineNr">34069 </span><span class="subxMinorFunction">_string-break-if-!=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34070" class="LineNr">34070 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34071" class="LineNr">34071 </span> <span class="subxComment"># "break-if-!="</span> -<span id="L34072" class="LineNr">34072 </span> 0xb/imm32/size -<span id="L34073" class="LineNr">34073 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= -<span id="L34074" class="LineNr">34074 </span><span class="subxMinorFunction">_string-break-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34075" class="LineNr">34075 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34076" class="LineNr">34076 </span> <span class="subxComment"># "break-if-addr<"</span> -<span id="L34077" class="LineNr">34077 </span> 0xe/imm32/size -<span id="L34078" class="LineNr">34078 </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="L34079" class="LineNr">34079 </span><span class="subxMinorFunction">_string-break-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34080" class="LineNr">34080 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34081" class="LineNr">34081 </span> <span class="subxComment"># "break-if-addr<="</span> -<span id="L34082" class="LineNr">34082 </span> 0xf/imm32/size -<span id="L34083" class="LineNr">34083 </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="L34084" class="LineNr">34084 </span><span class="subxMinorFunction">_string-break-if-addr></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34085" class="LineNr">34085 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34086" class="LineNr">34086 </span> <span class="subxComment"># "break-if-addr>"</span> -<span id="L34087" class="LineNr">34087 </span> 0xe/imm32/size -<span id="L34088" class="LineNr">34088 </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="L34089" class="LineNr">34089 </span><span class="subxMinorFunction">_string-break-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34090" class="LineNr">34090 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34091" class="LineNr">34091 </span> <span class="subxComment"># "break-if-addr>="</span> -<span id="L34092" class="LineNr">34092 </span> 0xf/imm32/size -<span id="L34093" class="LineNr">34093 </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="L34094" class="LineNr">34094 </span><span class="subxMinorFunction">_string-break-if-float<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34002" class="LineNr">34002 </span> <a href='mu.subx.html#L34352'>_string-break-if-float<=</a>/imm32/name +<span id="L34003" class="LineNr">34003 </span> 0/imm32/no-inouts +<span id="L34004" class="LineNr">34004 </span> 0/imm32/no-inouts +<span id="L34005" class="LineNr">34005 </span> 0/imm32/no-outputs +<span id="L34006" class="LineNr">34006 </span> 0/imm32/no-outputs +<span id="L34007" class="LineNr">34007 </span> 0x11/imm32/alloc-id:fake +<span id="L34008" class="LineNr">34008 </span> <a href='mu.subx.html#L34749'>_string_0f_86_jump_break</a>/imm32/subx-name +<span id="L34009" class="LineNr">34009 </span> 0/imm32/no-rm32 +<span id="L34010" class="LineNr">34010 </span> 0/imm32/no-r32 +<span id="L34011" class="LineNr">34011 </span> 0/imm32/no-imm32 +<span id="L34012" class="LineNr">34012 </span> 0/imm32/no-imm8 +<span id="L34013" class="LineNr">34013 </span> 0/imm32/no-disp32 +<span id="L34014" class="LineNr">34014 </span> 0/imm32/no-xm32 +<span id="L34015" class="LineNr">34015 </span> 0/imm32/no-x32 +<span id="L34016" class="LineNr">34016 </span> 0x11/imm32/alloc-id:fake +<span id="L34017" class="LineNr">34017 </span> <a href='mu.subx.html#L34018'>_Primitive-break-if-float></a>/imm32/next +<span id="L34018" class="LineNr">34018 </span><span class="subxMinorFunction">_Primitive-break-if-float></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L34019" class="LineNr">34019 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34020" class="LineNr">34020 </span> 0x11/imm32/alloc-id:fake +<span id="L34021" class="LineNr">34021 </span> <a href='mu.subx.html#L34357'>_string-break-if-float></a>/imm32/name +<span id="L34022" class="LineNr">34022 </span> 0/imm32/no-inouts +<span id="L34023" class="LineNr">34023 </span> 0/imm32/no-inouts +<span id="L34024" class="LineNr">34024 </span> 0/imm32/no-outputs +<span id="L34025" class="LineNr">34025 </span> 0/imm32/no-outputs +<span id="L34026" class="LineNr">34026 </span> 0x11/imm32/alloc-id:fake +<span id="L34027" class="LineNr">34027 </span> <a href='mu.subx.html#L34764'>_string_0f_87_jump_break</a>/imm32/subx-name +<span id="L34028" class="LineNr">34028 </span> 0/imm32/no-rm32 +<span id="L34029" class="LineNr">34029 </span> 0/imm32/no-r32 +<span id="L34030" class="LineNr">34030 </span> 0/imm32/no-imm32 +<span id="L34031" class="LineNr">34031 </span> 0/imm32/no-imm8 +<span id="L34032" class="LineNr">34032 </span> 0/imm32/no-disp32 +<span id="L34033" class="LineNr">34033 </span> 0/imm32/no-xm32 +<span id="L34034" class="LineNr">34034 </span> 0/imm32/no-x32 +<span id="L34035" class="LineNr">34035 </span> 0x11/imm32/alloc-id:fake +<span id="L34036" class="LineNr">34036 </span> <a href='mu.subx.html#L34037'>_Primitive-loop-if-float<</a>/imm32/next +<span id="L34037" class="LineNr">34037 </span><span class="subxMinorFunction">_Primitive-loop-if-float<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L34038" class="LineNr">34038 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34039" class="LineNr">34039 </span> 0x11/imm32/alloc-id:fake +<span id="L34040" class="LineNr">34040 </span> <a href='mu.subx.html#L34477'>_string-loop-if-float<</a>/imm32/name +<span id="L34041" class="LineNr">34041 </span> 0/imm32/no-inouts +<span id="L34042" class="LineNr">34042 </span> 0/imm32/no-inouts +<span id="L34043" class="LineNr">34043 </span> 0/imm32/no-outputs +<span id="L34044" class="LineNr">34044 </span> 0/imm32/no-outputs +<span id="L34045" class="LineNr">34045 </span> 0x11/imm32/alloc-id:fake +<span id="L34046" class="LineNr">34046 </span> <a href='mu.subx.html#L34694'>_string_0f_82_jump_loop</a>/imm32/subx-name +<span id="L34047" class="LineNr">34047 </span> 0/imm32/no-rm32 +<span id="L34048" class="LineNr">34048 </span> 0/imm32/no-r32 +<span id="L34049" class="LineNr">34049 </span> 0/imm32/no-imm32 +<span id="L34050" class="LineNr">34050 </span> 0/imm32/no-imm8 +<span id="L34051" class="LineNr">34051 </span> 0/imm32/no-disp32 +<span id="L34052" class="LineNr">34052 </span> 0/imm32/no-xm32 +<span id="L34053" class="LineNr">34053 </span> 0/imm32/no-x32 +<span id="L34054" class="LineNr">34054 </span> 0x11/imm32/alloc-id:fake +<span id="L34055" class="LineNr">34055 </span> <a href='mu.subx.html#L34056'>_Primitive-loop-if-float>=</a>/imm32/next +<span id="L34056" class="LineNr">34056 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L34057" class="LineNr">34057 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34058" class="LineNr">34058 </span> 0x11/imm32/alloc-id:fake +<span id="L34059" class="LineNr">34059 </span> <a href='mu.subx.html#L34492'>_string-loop-if-float>=</a>/imm32/name +<span id="L34060" class="LineNr">34060 </span> 0/imm32/no-inouts +<span id="L34061" class="LineNr">34061 </span> 0/imm32/no-inouts +<span id="L34062" class="LineNr">34062 </span> 0/imm32/no-outputs +<span id="L34063" class="LineNr">34063 </span> 0/imm32/no-outputs +<span id="L34064" class="LineNr">34064 </span> 0x11/imm32/alloc-id:fake +<span id="L34065" class="LineNr">34065 </span> <a href='mu.subx.html#L34709'>_string_0f_83_jump_loop</a>/imm32/subx-name +<span id="L34066" class="LineNr">34066 </span> 0/imm32/no-rm32 +<span id="L34067" class="LineNr">34067 </span> 0/imm32/no-r32 +<span id="L34068" class="LineNr">34068 </span> 0/imm32/no-imm32 +<span id="L34069" class="LineNr">34069 </span> 0/imm32/no-imm8 +<span id="L34070" class="LineNr">34070 </span> 0/imm32/no-disp32 +<span id="L34071" class="LineNr">34071 </span> 0/imm32/no-xm32 +<span id="L34072" class="LineNr">34072 </span> 0/imm32/no-x32 +<span id="L34073" class="LineNr">34073 </span> 0x11/imm32/alloc-id:fake +<span id="L34074" class="LineNr">34074 </span> <a href='mu.subx.html#L34075'>_Primitive-loop-if-float<=</a>/imm32/next +<span id="L34075" class="LineNr">34075 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L34076" class="LineNr">34076 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34077" class="LineNr">34077 </span> 0x11/imm32/alloc-id:fake +<span id="L34078" class="LineNr">34078 </span> <a href='mu.subx.html#L34482'>_string-loop-if-float<=</a>/imm32/name +<span id="L34079" class="LineNr">34079 </span> 0/imm32/no-inouts +<span id="L34080" class="LineNr">34080 </span> 0/imm32/no-inouts +<span id="L34081" class="LineNr">34081 </span> 0/imm32/no-outputs +<span id="L34082" class="LineNr">34082 </span> 0/imm32/no-outputs +<span id="L34083" class="LineNr">34083 </span> 0x11/imm32/alloc-id:fake +<span id="L34084" class="LineNr">34084 </span> <a href='mu.subx.html#L34754'>_string_0f_86_jump_loop</a>/imm32/subx-name +<span id="L34085" class="LineNr">34085 </span> 0/imm32/no-rm32 +<span id="L34086" class="LineNr">34086 </span> 0/imm32/no-r32 +<span id="L34087" class="LineNr">34087 </span> 0/imm32/no-imm32 +<span id="L34088" class="LineNr">34088 </span> 0/imm32/no-imm8 +<span id="L34089" class="LineNr">34089 </span> 0/imm32/no-disp32 +<span id="L34090" class="LineNr">34090 </span> 0/imm32/no-xm32 +<span id="L34091" class="LineNr">34091 </span> 0/imm32/no-x32 +<span id="L34092" class="LineNr">34092 </span> 0x11/imm32/alloc-id:fake +<span id="L34093" class="LineNr">34093 </span> <a href='mu.subx.html#L34094'>_Primitive-loop-if-float></a>/imm32/next +<span id="L34094" class="LineNr">34094 </span><span class="subxMinorFunction">_Primitive-loop-if-float></span>: <span class="subxComment"># (payload primitive)</span> <span id="L34095" class="LineNr">34095 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34096" class="LineNr">34096 </span> <span class="subxComment"># "break-if-float<"</span> -<span id="L34097" class="LineNr">34097 </span> 0xf/imm32/size -<span id="L34098" class="LineNr">34098 </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="L34099" class="LineNr">34099 </span><span class="subxMinorFunction">_string-break-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34100" class="LineNr">34100 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34101" class="LineNr">34101 </span> <span class="subxComment"># "break-if-float<="</span> -<span id="L34102" class="LineNr">34102 </span> 0x10/imm32/size -<span id="L34103" class="LineNr">34103 </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="L34104" class="LineNr">34104 </span><span class="subxMinorFunction">_string-break-if-float></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34105" class="LineNr">34105 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34106" class="LineNr">34106 </span> <span class="subxComment"># "break-if-float>"</span> -<span id="L34107" class="LineNr">34107 </span> 0xf/imm32/size -<span id="L34108" class="LineNr">34108 </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="L34109" class="LineNr">34109 </span><span class="subxMinorFunction">_string-break-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34110" class="LineNr">34110 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34111" class="LineNr">34111 </span> <span class="subxComment"># "break-if-float>="</span> -<span id="L34112" class="LineNr">34112 </span> 0x10/imm32/size -<span id="L34113" class="LineNr">34113 </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="L34114" class="LineNr">34114 </span><span class="subxMinorFunction">_string-break-if-carry</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34115" class="LineNr">34115 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34116" class="LineNr">34116 </span> <span class="subxComment"># "break-if-carry"</span> -<span id="L34117" class="LineNr">34117 </span> 0xe/imm32/size -<span id="L34118" class="LineNr">34118 </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="L34119" class="LineNr">34119 </span><span class="subxMinorFunction">_string-break-if-not-carry</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34120" class="LineNr">34120 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34121" class="LineNr">34121 </span> <span class="subxComment"># "break-if-not-carry"</span> -<span id="L34122" class="LineNr">34122 </span> 0x12/imm32/size -<span id="L34123" class="LineNr">34123 </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="L34124" class="LineNr">34124 </span><span class="subxMinorFunction">_string-break-if-overflow</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34125" class="LineNr">34125 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34126" class="LineNr">34126 </span> <span class="subxComment"># "break-if-overflow"</span> -<span id="L34127" class="LineNr">34127 </span> 0x11/imm32/size -<span id="L34128" class="LineNr">34128 </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="L34129" class="LineNr">34129 </span><span class="subxMinorFunction">_string-break-if-not-overflow</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34130" class="LineNr">34130 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34131" class="LineNr">34131 </span> <span class="subxComment"># "break-if-not-overflow"</span> -<span id="L34132" class="LineNr">34132 </span> 0x15/imm32/size -<span id="L34133" class="LineNr">34133 </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="L34134" class="LineNr">34134 </span><span class="subxMinorFunction">_string-compare</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34135" class="LineNr">34135 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34136" class="LineNr">34136 </span> <span class="subxComment"># "compare"</span> -<span id="L34137" class="LineNr">34137 </span> 0x7/imm32/size -<span id="L34138" class="LineNr">34138 </span> 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e -<span id="L34139" class="LineNr">34139 </span><span class="subxMinorFunction">_string-copy</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34140" class="LineNr">34140 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34141" class="LineNr">34141 </span> <span class="subxComment"># "copy"</span> -<span id="L34142" class="LineNr">34142 </span> 0x4/imm32/size -<span id="L34143" class="LineNr">34143 </span> 0x63/c 0x6f/o 0x70/p 0x79/y -<span id="L34144" class="LineNr">34144 </span><span class="subxMinorFunction">_string-copy-to</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34145" class="LineNr">34145 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34146" class="LineNr">34146 </span> <span class="subxComment"># "copy-to"</span> -<span id="L34147" class="LineNr">34147 </span> 0x7/imm32/size -<span id="L34148" class="LineNr">34148 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o -<span id="L34149" class="LineNr">34149 </span><span class="subxMinorFunction">_string-copy-byte</span>: -<span id="L34150" class="LineNr">34150 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34151" class="LineNr">34151 </span> <span class="subxComment"># "copy-byte"</span> -<span id="L34152" class="LineNr">34152 </span> 0x9/imm32/size -<span id="L34153" class="LineNr">34153 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x62/b 0x79/y 0x74/t 0x65/e -<span id="L34154" class="LineNr">34154 </span><span class="subxMinorFunction">_string-copy-byte-to</span>: -<span id="L34155" class="LineNr">34155 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34156" class="LineNr">34156 </span> <span class="subxComment"># "copy-byte-to"</span> -<span id="L34157" class="LineNr">34157 </span> 0xc/imm32/size -<span id="L34158" class="LineNr">34158 </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="L34159" class="LineNr">34159 </span><span class="subxMinorFunction">_string-decrement</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34160" class="LineNr">34160 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34161" class="LineNr">34161 </span> <span class="subxComment"># "decrement"</span> -<span id="L34162" class="LineNr">34162 </span> 0x9/imm32/size -<span id="L34163" class="LineNr">34163 </span> 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t -<span id="L34164" class="LineNr">34164 </span><span class="subxMinorFunction">_string-increment</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34165" class="LineNr">34165 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34166" class="LineNr">34166 </span> <span class="subxComment"># "increment"</span> -<span id="L34167" class="LineNr">34167 </span> 0x9/imm32/size -<span id="L34168" class="LineNr">34168 </span> 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t -<span id="L34169" class="LineNr">34169 </span><span class="subxMinorFunction">_string-loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34170" class="LineNr">34170 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34171" class="LineNr">34171 </span> <span class="subxComment"># "loop"</span> -<span id="L34172" class="LineNr">34172 </span> 0x4/imm32/size -<span id="L34173" class="LineNr">34173 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p -<span id="L34174" class="LineNr">34174 </span><span class="subxMinorFunction">_string-loop-if-<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34175" class="LineNr">34175 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34176" class="LineNr">34176 </span> <span class="subxComment"># "loop-if-<"</span> -<span id="L34177" class="LineNr">34177 </span> 0x9/imm32/size -<span id="L34178" class="LineNr">34178 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< -<span id="L34179" class="LineNr">34179 </span><span class="subxMinorFunction">_string-loop-if-<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34180" class="LineNr">34180 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34181" class="LineNr">34181 </span> <span class="subxComment"># "loop-if-<="</span> -<span id="L34182" class="LineNr">34182 </span> 0xa/imm32/size -<span id="L34183" class="LineNr">34183 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= -<span id="L34184" class="LineNr">34184 </span><span class="subxMinorFunction">_string-loop-if-=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34185" class="LineNr">34185 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34186" class="LineNr">34186 </span> <span class="subxComment"># "loop-if-="</span> -<span id="L34187" class="LineNr">34187 </span> 0x9/imm32/size -<span id="L34188" class="LineNr">34188 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= -<span id="L34189" class="LineNr">34189 </span><span class="subxMinorFunction">_string-loop-if-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34096" class="LineNr">34096 </span> 0x11/imm32/alloc-id:fake +<span id="L34097" class="LineNr">34097 </span> <a href='mu.subx.html#L34487'>_string-loop-if-float></a>/imm32/name +<span id="L34098" class="LineNr">34098 </span> 0/imm32/no-inouts +<span id="L34099" class="LineNr">34099 </span> 0/imm32/no-inouts +<span id="L34100" class="LineNr">34100 </span> 0/imm32/no-outputs +<span id="L34101" class="LineNr">34101 </span> 0/imm32/no-outputs +<span id="L34102" class="LineNr">34102 </span> 0x11/imm32/alloc-id:fake +<span id="L34103" class="LineNr">34103 </span> <a href='mu.subx.html#L34769'>_string_0f_87_jump_loop</a>/imm32/subx-name +<span id="L34104" class="LineNr">34104 </span> 0/imm32/no-rm32 +<span id="L34105" class="LineNr">34105 </span> 0/imm32/no-r32 +<span id="L34106" class="LineNr">34106 </span> 0/imm32/no-imm32 +<span id="L34107" class="LineNr">34107 </span> 0/imm32/no-imm8 +<span id="L34108" class="LineNr">34108 </span> 0/imm32/no-disp32 +<span id="L34109" class="LineNr">34109 </span> 0/imm32/no-xm32 +<span id="L34110" class="LineNr">34110 </span> 0/imm32/no-x32 +<span id="L34111" class="LineNr">34111 </span> 0x11/imm32/alloc-id:fake +<span id="L34112" class="LineNr">34112 </span> <a href='mu.subx.html#L34113'>_Primitive-break-if-float<-named</a>/imm32/next +<span id="L34113" class="LineNr">34113 </span><span class="subxMinorFunction">_Primitive-break-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L34114" class="LineNr">34114 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34115" class="LineNr">34115 </span> 0x11/imm32/alloc-id:fake +<span id="L34116" class="LineNr">34116 </span> <a href='mu.subx.html#L34347'>_string-break-if-float<</a>/imm32/name +<span id="L34117" class="LineNr">34117 </span> 0x11/imm32/alloc-id:fake +<span id="L34118" class="LineNr">34118 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L34119" class="LineNr">34119 </span> 0/imm32/no-outputs +<span id="L34120" class="LineNr">34120 </span> 0/imm32/no-outputs +<span id="L34121" class="LineNr">34121 </span> 0x11/imm32/alloc-id:fake +<span id="L34122" class="LineNr">34122 </span> <a href='mu.subx.html#L34684'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L34123" class="LineNr">34123 </span> 0/imm32/no-rm32 +<span id="L34124" class="LineNr">34124 </span> 0/imm32/no-r32 +<span id="L34125" class="LineNr">34125 </span> 0/imm32/no-imm32 +<span id="L34126" class="LineNr">34126 </span> 0/imm32/no-imm8 +<span id="L34127" class="LineNr">34127 </span> 1/imm32/disp32-is-first-inout +<span id="L34128" class="LineNr">34128 </span> 0/imm32/no-xm32 +<span id="L34129" class="LineNr">34129 </span> 0/imm32/no-x32 +<span id="L34130" class="LineNr">34130 </span> 0x11/imm32/alloc-id:fake +<span id="L34131" class="LineNr">34131 </span> <a href='mu.subx.html#L34132'>_Primitive-break-if-float>=-named</a>/imm32/next +<span id="L34132" class="LineNr">34132 </span><span class="subxMinorFunction">_Primitive-break-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L34133" class="LineNr">34133 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34134" class="LineNr">34134 </span> 0x11/imm32/alloc-id:fake +<span id="L34135" class="LineNr">34135 </span> <a href='mu.subx.html#L34362'>_string-break-if-float>=</a>/imm32/name +<span id="L34136" class="LineNr">34136 </span> 0x11/imm32/alloc-id:fake +<span id="L34137" class="LineNr">34137 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L34138" class="LineNr">34138 </span> 0/imm32/no-outputs +<span id="L34139" class="LineNr">34139 </span> 0/imm32/no-outputs +<span id="L34140" class="LineNr">34140 </span> 0x11/imm32/alloc-id:fake +<span id="L34141" class="LineNr">34141 </span> <a href='mu.subx.html#L34699'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L34142" class="LineNr">34142 </span> 0/imm32/no-rm32 +<span id="L34143" class="LineNr">34143 </span> 0/imm32/no-r32 +<span id="L34144" class="LineNr">34144 </span> 0/imm32/no-imm32 +<span id="L34145" class="LineNr">34145 </span> 0/imm32/no-imm8 +<span id="L34146" class="LineNr">34146 </span> 1/imm32/disp32-is-first-inout +<span id="L34147" class="LineNr">34147 </span> 0/imm32/no-xm32 +<span id="L34148" class="LineNr">34148 </span> 0/imm32/no-x32 +<span id="L34149" class="LineNr">34149 </span> 0x11/imm32/alloc-id:fake +<span id="L34150" class="LineNr">34150 </span> <a href='mu.subx.html#L34151'>_Primitive-break-if-float<=-named</a>/imm32/next +<span id="L34151" class="LineNr">34151 </span><span class="subxMinorFunction">_Primitive-break-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L34152" class="LineNr">34152 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34153" class="LineNr">34153 </span> 0x11/imm32/alloc-id:fake +<span id="L34154" class="LineNr">34154 </span> <a href='mu.subx.html#L34352'>_string-break-if-float<=</a>/imm32/name +<span id="L34155" class="LineNr">34155 </span> 0x11/imm32/alloc-id:fake +<span id="L34156" class="LineNr">34156 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L34157" class="LineNr">34157 </span> 0/imm32/no-outputs +<span id="L34158" class="LineNr">34158 </span> 0/imm32/no-outputs +<span id="L34159" class="LineNr">34159 </span> 0x11/imm32/alloc-id:fake +<span id="L34160" class="LineNr">34160 </span> <a href='mu.subx.html#L34744'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L34161" class="LineNr">34161 </span> 0/imm32/no-rm32 +<span id="L34162" class="LineNr">34162 </span> 0/imm32/no-r32 +<span id="L34163" class="LineNr">34163 </span> 0/imm32/no-imm32 +<span id="L34164" class="LineNr">34164 </span> 0/imm32/no-imm8 +<span id="L34165" class="LineNr">34165 </span> 1/imm32/disp32-is-first-inout +<span id="L34166" class="LineNr">34166 </span> 0/imm32/no-xm32 +<span id="L34167" class="LineNr">34167 </span> 0/imm32/no-x32 +<span id="L34168" class="LineNr">34168 </span> 0x11/imm32/alloc-id:fake +<span id="L34169" class="LineNr">34169 </span> <a href='mu.subx.html#L34170'>_Primitive-break-if-float>-named</a>/imm32/next +<span id="L34170" class="LineNr">34170 </span><span class="subxMinorFunction">_Primitive-break-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L34171" class="LineNr">34171 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34172" class="LineNr">34172 </span> 0x11/imm32/alloc-id:fake +<span id="L34173" class="LineNr">34173 </span> <a href='mu.subx.html#L34357'>_string-break-if-float></a>/imm32/name +<span id="L34174" class="LineNr">34174 </span> 0x11/imm32/alloc-id:fake +<span id="L34175" class="LineNr">34175 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L34176" class="LineNr">34176 </span> 0/imm32/no-outputs +<span id="L34177" class="LineNr">34177 </span> 0/imm32/no-outputs +<span id="L34178" class="LineNr">34178 </span> 0x11/imm32/alloc-id:fake +<span id="L34179" class="LineNr">34179 </span> <a href='mu.subx.html#L34759'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L34180" class="LineNr">34180 </span> 0/imm32/no-rm32 +<span id="L34181" class="LineNr">34181 </span> 0/imm32/no-r32 +<span id="L34182" class="LineNr">34182 </span> 0/imm32/no-imm32 +<span id="L34183" class="LineNr">34183 </span> 0/imm32/no-imm8 +<span id="L34184" class="LineNr">34184 </span> 1/imm32/disp32-is-first-inout +<span id="L34185" class="LineNr">34185 </span> 0/imm32/no-xm32 +<span id="L34186" class="LineNr">34186 </span> 0/imm32/no-x32 +<span id="L34187" class="LineNr">34187 </span> 0x11/imm32/alloc-id:fake +<span id="L34188" class="LineNr">34188 </span> <a href='mu.subx.html#L34189'>_Primitive-loop-if-float<-named</a>/imm32/next +<span id="L34189" class="LineNr">34189 </span><span class="subxMinorFunction">_Primitive-loop-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> <span id="L34190" class="LineNr">34190 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34191" class="LineNr">34191 </span> <span class="subxComment"># "loop-if->"</span> -<span id="L34192" class="LineNr">34192 </span> 0x9/imm32/size -<span id="L34193" class="LineNr">34193 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> -<span id="L34194" class="LineNr">34194 </span><span class="subxMinorFunction">_string-loop-if->=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34195" class="LineNr">34195 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34196" class="LineNr">34196 </span> <span class="subxComment"># "loop-if->="</span> -<span id="L34197" class="LineNr">34197 </span> 0xa/imm32/size -<span id="L34198" class="LineNr">34198 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= -<span id="L34199" class="LineNr">34199 </span><span class="subxMinorFunction">_string-loop-if-!=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34200" class="LineNr">34200 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34201" class="LineNr">34201 </span> <span class="subxComment"># "loop-if-!="</span> -<span id="L34202" class="LineNr">34202 </span> 0xa/imm32/size -<span id="L34203" class="LineNr">34203 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= -<span id="L34204" class="LineNr">34204 </span><span class="subxMinorFunction">_string-loop-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34205" class="LineNr">34205 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34206" class="LineNr">34206 </span> <span class="subxComment"># "loop-if-addr<"</span> -<span id="L34207" class="LineNr">34207 </span> 0xd/imm32/size -<span id="L34208" class="LineNr">34208 </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="L34209" class="LineNr">34209 </span><span class="subxMinorFunction">_string-loop-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34210" class="LineNr">34210 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34211" class="LineNr">34211 </span> <span class="subxComment"># "loop-if-addr<="</span> -<span id="L34212" class="LineNr">34212 </span> 0xe/imm32/size -<span id="L34213" class="LineNr">34213 </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="L34214" class="LineNr">34214 </span><span class="subxMinorFunction">_string-loop-if-addr></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34215" class="LineNr">34215 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34216" class="LineNr">34216 </span> <span class="subxComment"># "loop-if-addr>"</span> -<span id="L34217" class="LineNr">34217 </span> 0xd/imm32/size -<span id="L34218" class="LineNr">34218 </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="L34219" class="LineNr">34219 </span><span class="subxMinorFunction">_string-loop-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34220" class="LineNr">34220 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34221" class="LineNr">34221 </span> <span class="subxComment"># "loop-if-addr>="</span> -<span id="L34222" class="LineNr">34222 </span> 0xe/imm32/size -<span id="L34223" class="LineNr">34223 </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="L34224" class="LineNr">34224 </span><span class="subxMinorFunction">_string-loop-if-float<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34225" class="LineNr">34225 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34226" class="LineNr">34226 </span> <span class="subxComment"># "loop-if-float<"</span> -<span id="L34227" class="LineNr">34227 </span> 0xe/imm32/size -<span id="L34228" class="LineNr">34228 </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="L34229" class="LineNr">34229 </span><span class="subxMinorFunction">_string-loop-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34230" class="LineNr">34230 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34231" class="LineNr">34231 </span> <span class="subxComment"># "loop-if-float<="</span> -<span id="L34232" class="LineNr">34232 </span> 0xf/imm32/size -<span id="L34233" class="LineNr">34233 </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="L34234" class="LineNr">34234 </span><span class="subxMinorFunction">_string-loop-if-float></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34235" class="LineNr">34235 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34236" class="LineNr">34236 </span> <span class="subxComment"># "loop-if-float>"</span> -<span id="L34237" class="LineNr">34237 </span> 0xe/imm32/size -<span id="L34238" class="LineNr">34238 </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="L34239" class="LineNr">34239 </span><span class="subxMinorFunction">_string-loop-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34240" class="LineNr">34240 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34241" class="LineNr">34241 </span> <span class="subxComment"># "loop-if-float>="</span> -<span id="L34242" class="LineNr">34242 </span> 0xf/imm32/size -<span id="L34243" class="LineNr">34243 </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="L34244" class="LineNr">34244 </span><span class="subxMinorFunction">_string-loop-if-carry</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34245" class="LineNr">34245 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34246" class="LineNr">34246 </span> <span class="subxComment"># "loop-if-carry"</span> -<span id="L34247" class="LineNr">34247 </span> 0xd/imm32/size -<span id="L34248" class="LineNr">34248 </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="L34249" class="LineNr">34249 </span><span class="subxMinorFunction">_string-loop-if-not-carry</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34250" class="LineNr">34250 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34251" class="LineNr">34251 </span> <span class="subxComment"># "loop-if-not-carry"</span> -<span id="L34252" class="LineNr">34252 </span> 0x11/imm32/size -<span id="L34253" class="LineNr">34253 </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="L34254" class="LineNr">34254 </span><span class="subxMinorFunction">_string-loop-if-overflow</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34255" class="LineNr">34255 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34256" class="LineNr">34256 </span> <span class="subxComment"># "loop-if-overflow"</span> -<span id="L34257" class="LineNr">34257 </span> 0x10/imm32/size -<span id="L34258" class="LineNr">34258 </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="L34259" class="LineNr">34259 </span><span class="subxMinorFunction">_string-loop-if-not-overflow</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34260" class="LineNr">34260 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34261" class="LineNr">34261 </span> <span class="subxComment"># "loop-if-not-overflow"</span> -<span id="L34262" class="LineNr">34262 </span> 0x14/imm32/size -<span id="L34263" class="LineNr">34263 </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="L34264" class="LineNr">34264 </span><span class="subxMinorFunction">_string-multiply</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34265" class="LineNr">34265 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34266" class="LineNr">34266 </span> <span class="subxComment"># "multiply"</span> -<span id="L34267" class="LineNr">34267 </span> 0x8/imm32/size -<span id="L34268" class="LineNr">34268 </span> 0x6d/m 0x75/u 0x6c/l 0x74/t 0x69/i 0x70/p 0x6c/l 0x79/y -<span id="L34269" class="LineNr">34269 </span><span class="subxMinorFunction">_string-convert</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34270" class="LineNr">34270 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34271" class="LineNr">34271 </span> <span class="subxComment"># "convert"</span> -<span id="L34272" class="LineNr">34272 </span> 0x7/imm32/size -<span id="L34273" class="LineNr">34273 </span> 0x63/c 0x6f/o 0x6e/n 0x76/v 0x65/e 0x72/r 0x74/t -<span id="L34274" class="LineNr">34274 </span><span class="subxMinorFunction">_string-truncate</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34275" class="LineNr">34275 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34276" class="LineNr">34276 </span> <span class="subxComment"># "truncate"</span> -<span id="L34277" class="LineNr">34277 </span> 0x8/imm32/size -<span id="L34278" class="LineNr">34278 </span> 0x74/t 0x72/r 0x75/u 0x6e/n 0x63/c 0x61/a 0x74/t 0x65/e -<span id="L34279" class="LineNr">34279 </span><span class="subxMinorFunction">_string-reinterpret</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34280" class="LineNr">34280 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34281" class="LineNr">34281 </span> <span class="subxComment"># "reinterpret"</span> -<span id="L34282" class="LineNr">34282 </span> 0xb/imm32/size -<span id="L34283" class="LineNr">34283 </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="L34284" class="LineNr">34284 </span><span class="subxMinorFunction">_string-divide</span>: -<span id="L34285" class="LineNr">34285 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34286" class="LineNr">34286 </span> <span class="subxComment"># "divide"</span> -<span id="L34287" class="LineNr">34287 </span> 0x6/imm32/size -<span id="L34288" class="LineNr">34288 </span> 0x64/d 0x69/i 0x76/v 0x69/i 0x64/d 0x65/e -<span id="L34289" class="LineNr">34289 </span><span class="subxMinorFunction">_string-max</span>: -<span id="L34290" class="LineNr">34290 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34291" class="LineNr">34291 </span> <span class="subxComment"># "max"</span> -<span id="L34292" class="LineNr">34292 </span> 0x3/imm32/size -<span id="L34293" class="LineNr">34293 </span> 0x6d/m 0x61/a 0x78/x -<span id="L34294" class="LineNr">34294 </span><span class="subxMinorFunction">_string-min</span>: -<span id="L34295" class="LineNr">34295 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34296" class="LineNr">34296 </span> <span class="subxComment"># "min"</span> -<span id="L34297" class="LineNr">34297 </span> 0x3/imm32/size -<span id="L34298" class="LineNr">34298 </span> 0x6d/m 0x69/i 0x6e/n -<span id="L34299" class="LineNr">34299 </span><span class="subxMinorFunction">_string-reciprocal</span>: -<span id="L34300" class="LineNr">34300 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34301" class="LineNr">34301 </span> <span class="subxComment"># "reciprocal"</span> -<span id="L34302" class="LineNr">34302 </span> 0xa/imm32/size -<span id="L34303" class="LineNr">34303 </span> 0x72/r 0x65/e 0x63/c 0x69/i 0x70/p 0x72/r 0x6f/o 0x63/c 0x61/a 0x6c/l -<span id="L34304" class="LineNr">34304 </span><span class="subxMinorFunction">_string-square-root</span>: -<span id="L34305" class="LineNr">34305 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34306" class="LineNr">34306 </span> <span class="subxComment"># "square-root"</span> -<span id="L34307" class="LineNr">34307 </span> 0xb/imm32/size -<span id="L34308" class="LineNr">34308 </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="L34309" class="LineNr">34309 </span><span class="subxMinorFunction">_string-inverse-square-root</span>: -<span id="L34310" class="LineNr">34310 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34311" class="LineNr">34311 </span> <span class="subxComment"># "inverse-square-root"</span> -<span id="L34312" class="LineNr">34312 </span> 0x13/imm32/size -<span id="L34313" class="LineNr">34313 </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="L34314" class="LineNr">34314 </span><span class="subxMinorFunction">_string-negate</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34315" class="LineNr">34315 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34316" class="LineNr">34316 </span> <span class="subxComment"># "negate"</span> -<span id="L34317" class="LineNr">34317 </span> 0x6/imm32/size -<span id="L34318" class="LineNr">34318 </span> 0x6e/n 0x65/e 0x67/g 0x61/a 0x74/t 0x65/e -<span id="L34319" class="LineNr">34319 </span><span class="subxMinorFunction">_string-not</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34320" class="LineNr">34320 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34321" class="LineNr">34321 </span> <span class="subxComment"># "not"</span> -<span id="L34322" class="LineNr">34322 </span> 0x3/imm32/size -<span id="L34323" class="LineNr">34323 </span> 0x6e/n 0x6f/o 0x74/t -<span id="L34324" class="LineNr">34324 </span><span class="subxMinorFunction">_string-or</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34325" class="LineNr">34325 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34326" class="LineNr">34326 </span> <span class="subxComment"># "or"</span> -<span id="L34327" class="LineNr">34327 </span> 0x2/imm32/size -<span id="L34328" class="LineNr">34328 </span> 0x6f/o 0x72/r -<span id="L34329" class="LineNr">34329 </span><span class="subxMinorFunction">_string-or-with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34330" class="LineNr">34330 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34331" class="LineNr">34331 </span> <span class="subxComment"># "or-with"</span> -<span id="L34332" class="LineNr">34332 </span> 0x7/imm32/size -<span id="L34333" class="LineNr">34333 </span> 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L34334" class="LineNr">34334 </span><span class="subxMinorFunction">_string-subtract</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34335" class="LineNr">34335 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34336" class="LineNr">34336 </span> <span class="subxComment"># "subtract"</span> -<span id="L34337" class="LineNr">34337 </span> 0x8/imm32/size -<span id="L34338" class="LineNr">34338 </span> 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t -<span id="L34339" class="LineNr">34339 </span><span class="subxMinorFunction">_string-subtract-from</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34340" class="LineNr">34340 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34341" class="LineNr">34341 </span> <span class="subxComment"># "subtract-from"</span> -<span id="L34342" class="LineNr">34342 </span> 0xd/imm32/size -<span id="L34343" class="LineNr">34343 </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="L34344" class="LineNr">34344 </span><span class="subxMinorFunction">_string-xor</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34345" class="LineNr">34345 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34346" class="LineNr">34346 </span> <span class="subxComment"># "xor"</span> -<span id="L34347" class="LineNr">34347 </span> 0x3/imm32/size -<span id="L34348" class="LineNr">34348 </span> 0x78/x 0x6f/o 0x72/r -<span id="L34349" class="LineNr">34349 </span><span class="subxMinorFunction">_string-xor-with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34350" class="LineNr">34350 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34351" class="LineNr">34351 </span> <span class="subxComment"># "xor-with"</span> -<span id="L34352" class="LineNr">34352 </span> 0x8/imm32/size -<span id="L34353" class="LineNr">34353 </span> 0x78/x 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L34354" class="LineNr">34354 </span><span class="subxMinorFunction">_string-shift-left</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34355" class="LineNr">34355 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34356" class="LineNr">34356 </span> <span class="subxComment"># "shift-left"</span> -<span id="L34357" class="LineNr">34357 </span> 0xa/imm32/size -<span id="L34358" class="LineNr">34358 </span> 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x2d/dash 0x6c/l 0x65/e 0x66/f 0x74/t -<span id="L34359" class="LineNr">34359 </span><span class="subxMinorFunction">_string-shift-right</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34360" class="LineNr">34360 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34361" class="LineNr">34361 </span> <span class="subxComment"># "shift-right"</span> -<span id="L34362" class="LineNr">34362 </span> 0xb/imm32/size -<span id="L34363" class="LineNr">34363 </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="L34364" class="LineNr">34364 </span><span class="subxMinorFunction">_string-shift-right-signed</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34365" class="LineNr">34365 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34366" class="LineNr">34366 </span> <span class="subxComment"># "shift-right-signed"</span> -<span id="L34367" class="LineNr">34367 </span> 0x12/imm32/size -<span id="L34368" class="LineNr">34368 </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="L34369" class="LineNr">34369 </span> -<span id="L34370" class="LineNr">34370 </span><span class="subxComment"># string literals for SubX instructions</span> -<span id="L34371" class="LineNr">34371 </span><span class="subxMinorFunction">_string_01_add_to</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34372" class="LineNr">34372 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34373" class="LineNr">34373 </span> <span class="subxComment"># "01/add-to"</span> -<span id="L34374" class="LineNr">34374 </span> 0x9/imm32/size -<span id="L34375" class="LineNr">34375 </span> 0x30/0 0x31/1 0x2f/slash 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o -<span id="L34376" class="LineNr">34376 </span><span class="subxMinorFunction">_string_03_add</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34377" class="LineNr">34377 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34378" class="LineNr">34378 </span> <span class="subxComment"># "03/add"</span> -<span id="L34379" class="LineNr">34379 </span> 0x6/imm32/size -<span id="L34380" class="LineNr">34380 </span> 0x30/0 0x33/3 0x2f/slash 0x61/a 0x64/d 0x64/d -<span id="L34381" class="LineNr">34381 </span><span class="subxMinorFunction">_string_05_add_to_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34382" class="LineNr">34382 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34383" class="LineNr">34383 </span> <span class="subxComment"># "05/add-to-eax"</span> -<span id="L34384" class="LineNr">34384 </span> 0xd/imm32/size -<span id="L34385" class="LineNr">34385 </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="L34386" class="LineNr">34386 </span><span class="subxMinorFunction">_string_09_or_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34387" class="LineNr">34387 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34388" class="LineNr">34388 </span> <span class="subxComment"># "09/or-with"</span> -<span id="L34389" class="LineNr">34389 </span> 0xa/imm32/size -<span id="L34390" class="LineNr">34390 </span> 0x30/0 0x39/9 0x2f/slash 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L34391" class="LineNr">34391 </span><span class="subxMinorFunction">_string_0b_or</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34392" class="LineNr">34392 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34393" class="LineNr">34393 </span> <span class="subxComment"># "0b/or"</span> -<span id="L34394" class="LineNr">34394 </span> 0x5/imm32/size -<span id="L34395" class="LineNr">34395 </span> 0x30/0 0x62/b 0x2f/slash 0x6f/o 0x72/r -<span id="L34396" class="LineNr">34396 </span><span class="subxMinorFunction">_string_0d_or_with_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34397" class="LineNr">34397 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34398" class="LineNr">34398 </span> <span class="subxComment"># "0d/or-with-eax"</span> -<span id="L34399" class="LineNr">34399 </span> 0xe/imm32/size -<span id="L34400" class="LineNr">34400 </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="L34401" class="LineNr">34401 </span><span class="subxMinorFunction">_string_0f_80_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34402" class="LineNr">34402 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34403" class="LineNr">34403 </span> <span class="subxComment"># "0f 80/jump-if-overflow"</span> -<span id="L34404" class="LineNr">34404 </span> 0x16/imm32/size -<span id="L34405" class="LineNr">34405 </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="L34406" class="LineNr">34406 </span><span class="subxMinorFunction">_string_0f_80_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34407" class="LineNr">34407 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34408" class="LineNr">34408 </span> <span class="subxComment"># "0f 80/jump-if-overflow break/disp32"</span> -<span id="L34409" class="LineNr">34409 </span> 0x23/imm32/size -<span id="L34410" class="LineNr">34410 </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="L34411" class="LineNr">34411 </span><span class="subxMinorFunction">_string_0f_80_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34412" class="LineNr">34412 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34413" class="LineNr">34413 </span> <span class="subxComment"># "0f 80/jump-if-overflow loop/disp32"</span> -<span id="L34414" class="LineNr">34414 </span> 0x22/imm32/size -<span id="L34415" class="LineNr">34415 </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="L34416" class="LineNr">34416 </span><span class="subxMinorFunction">_string_0f_81_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34417" class="LineNr">34417 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34418" class="LineNr">34418 </span> <span class="subxComment"># "0f 81/jump-if-not-overflow"</span> -<span id="L34419" class="LineNr">34419 </span> 0x1a/imm32/size -<span id="L34420" class="LineNr">34420 </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="L34421" class="LineNr">34421 </span><span class="subxMinorFunction">_string_0f_81_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34422" class="LineNr">34422 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34423" class="LineNr">34423 </span> <span class="subxComment"># "0f 81/jump-if-not-overflow break/disp32"</span> -<span id="L34424" class="LineNr">34424 </span> 0x27/imm32/size -<span id="L34425" class="LineNr">34425 </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="L34426" class="LineNr">34426 </span><span class="subxMinorFunction">_string_0f_81_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34427" class="LineNr">34427 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34428" class="LineNr">34428 </span> <span class="subxComment"># "0f 81/jump-if-not-overflow loop/disp32"</span> -<span id="L34429" class="LineNr">34429 </span> 0x26/imm32/size -<span id="L34430" class="LineNr">34430 </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="L34431" class="LineNr">34431 </span><span class="subxMinorFunction">_string_0f_82_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34432" class="LineNr">34432 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34433" class="LineNr">34433 </span> <span class="subxComment"># "0f 82/jump-if-addr<"</span> -<span id="L34434" class="LineNr">34434 </span> 0x13/imm32/size -<span id="L34435" class="LineNr">34435 </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="L34436" class="LineNr">34436 </span><span class="subxMinorFunction">_string_0f_82_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34437" class="LineNr">34437 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34438" class="LineNr">34438 </span> <span class="subxComment"># "0f 82/jump-if-addr< break/disp32"</span> -<span id="L34439" class="LineNr">34439 </span> 0x20/imm32/size -<span id="L34440" class="LineNr">34440 </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="L34441" class="LineNr">34441 </span><span class="subxMinorFunction">_string_0f_82_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34442" class="LineNr">34442 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34443" class="LineNr">34443 </span> <span class="subxComment"># "0f 82/jump-if-addr< loop/disp32"</span> -<span id="L34444" class="LineNr">34444 </span> 0x1f/imm32/size -<span id="L34445" class="LineNr">34445 </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="L34446" class="LineNr">34446 </span><span class="subxMinorFunction">_string_0f_83_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34447" class="LineNr">34447 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34448" class="LineNr">34448 </span> <span class="subxComment"># "0f 83/jump-if-addr>="</span> -<span id="L34449" class="LineNr">34449 </span> 0x14/imm32/size -<span id="L34450" class="LineNr">34450 </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="L34451" class="LineNr">34451 </span><span class="subxMinorFunction">_string_0f_83_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34452" class="LineNr">34452 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34453" class="LineNr">34453 </span> <span class="subxComment"># "0f 83/jump-if-addr>= break/disp32"</span> -<span id="L34454" class="LineNr">34454 </span> 0x21/imm32/size -<span id="L34455" class="LineNr">34455 </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="L34456" class="LineNr">34456 </span><span class="subxMinorFunction">_string_0f_83_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34457" class="LineNr">34457 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34458" class="LineNr">34458 </span> <span class="subxComment"># "0f 83/jump-if-addr>= loop/disp32"</span> -<span id="L34459" class="LineNr">34459 </span> 0x20/imm32/size -<span id="L34460" class="LineNr">34460 </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="L34461" class="LineNr">34461 </span><span class="subxMinorFunction">_string_0f_84_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34462" class="LineNr">34462 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34463" class="LineNr">34463 </span> <span class="subxComment"># "0f 84/jump-if-="</span> -<span id="L34464" class="LineNr">34464 </span> 0xf/imm32/size -<span id="L34465" class="LineNr">34465 </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="L34466" class="LineNr">34466 </span><span class="subxMinorFunction">_string_0f_84_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34467" class="LineNr">34467 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34468" class="LineNr">34468 </span> <span class="subxComment"># "0f 84/jump-if-= break/disp32"</span> -<span id="L34469" class="LineNr">34469 </span> 0x1c/imm32/size -<span id="L34470" class="LineNr">34470 </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="L34471" class="LineNr">34471 </span><span class="subxMinorFunction">_string_0f_84_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34472" class="LineNr">34472 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34473" class="LineNr">34473 </span> <span class="subxComment"># "0f 84/jump-if-= loop/disp32"</span> -<span id="L34474" class="LineNr">34474 </span> 0x1a/imm32/size -<span id="L34475" class="LineNr">34475 </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="L34476" class="LineNr">34476 </span><span class="subxMinorFunction">_string_0f_85_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34477" class="LineNr">34477 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34478" class="LineNr">34478 </span> <span class="subxComment"># "0f 85/jump-if-!="</span> -<span id="L34479" class="LineNr">34479 </span> 0x10/imm32/size -<span id="L34480" class="LineNr">34480 </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="L34481" class="LineNr">34481 </span><span class="subxMinorFunction">_string_0f_85_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34482" class="LineNr">34482 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34483" class="LineNr">34483 </span> <span class="subxComment"># "0f 85/jump-if-!= break/disp32"</span> -<span id="L34484" class="LineNr">34484 </span> 0x1d/imm32/size -<span id="L34485" class="LineNr">34485 </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="L34486" class="LineNr">34486 </span><span class="subxMinorFunction">_string_0f_85_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34487" class="LineNr">34487 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34488" class="LineNr">34488 </span> <span class="subxComment"># "0f 85/jump-if-!= loop/disp32"</span> -<span id="L34489" class="LineNr">34489 </span> 0x1c/imm32/size -<span id="L34490" class="LineNr">34490 </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="L34491" class="LineNr">34491 </span><span class="subxMinorFunction">_string_0f_86_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34492" class="LineNr">34492 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34493" class="LineNr">34493 </span> <span class="subxComment"># "0f 86/jump-if-addr<="</span> -<span id="L34494" class="LineNr">34494 </span> 0x14/imm32/size -<span id="L34495" class="LineNr">34495 </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="L34496" class="LineNr">34496 </span><span class="subxMinorFunction">_string_0f_86_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34497" class="LineNr">34497 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34498" class="LineNr">34498 </span> <span class="subxComment"># "0f 86/jump-if-addr<= break/disp32"</span> -<span id="L34499" class="LineNr">34499 </span> 0x21/imm32/size -<span id="L34500" class="LineNr">34500 </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="L34501" class="LineNr">34501 </span><span class="subxMinorFunction">_string_0f_86_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34502" class="LineNr">34502 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34503" class="LineNr">34503 </span> <span class="subxComment"># "0f 86/jump-if-addr<= loop/disp32"</span> -<span id="L34504" class="LineNr">34504 </span> 0x20/imm32/size -<span id="L34505" class="LineNr">34505 </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="L34506" class="LineNr">34506 </span><span class="subxMinorFunction">_string_0f_87_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34507" class="LineNr">34507 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34508" class="LineNr">34508 </span> <span class="subxComment"># "0f 87/jump-if-addr>"</span> -<span id="L34509" class="LineNr">34509 </span> 0x13/imm32/size -<span id="L34510" class="LineNr">34510 </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="L34511" class="LineNr">34511 </span><span class="subxMinorFunction">_string_0f_87_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34512" class="LineNr">34512 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34513" class="LineNr">34513 </span> <span class="subxComment"># "0f 87/jump-if-addr> break/disp32"</span> -<span id="L34514" class="LineNr">34514 </span> 0x20/imm32/size -<span id="L34515" class="LineNr">34515 </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="L34516" class="LineNr">34516 </span><span class="subxMinorFunction">_string_0f_87_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34517" class="LineNr">34517 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34518" class="LineNr">34518 </span> <span class="subxComment"># "0f 87/jump-if-addr> loop/disp32"</span> -<span id="L34519" class="LineNr">34519 </span> 0x1f/imm32/size -<span id="L34520" class="LineNr">34520 </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="L34521" class="LineNr">34521 </span><span class="subxMinorFunction">_string_0f_8c_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34522" class="LineNr">34522 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34523" class="LineNr">34523 </span> <span class="subxComment"># "0f 8c/jump-if-<"</span> -<span id="L34524" class="LineNr">34524 </span> 0xf/imm32/size -<span id="L34525" class="LineNr">34525 </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="L34526" class="LineNr">34526 </span><span class="subxMinorFunction">_string_0f_8c_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34527" class="LineNr">34527 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34528" class="LineNr">34528 </span> <span class="subxComment"># "0f 8c/jump-if-< break/disp32"</span> -<span id="L34529" class="LineNr">34529 </span> 0x1c/imm32/size -<span id="L34530" class="LineNr">34530 </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="L34531" class="LineNr">34531 </span><span class="subxMinorFunction">_string_0f_8c_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34532" class="LineNr">34532 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34533" class="LineNr">34533 </span> <span class="subxComment"># "0f 8c/jump-if-< loop/disp32"</span> -<span id="L34534" class="LineNr">34534 </span> 0x1b/imm32/size -<span id="L34535" class="LineNr">34535 </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="L34536" class="LineNr">34536 </span><span class="subxMinorFunction">_string_0f_8d_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34537" class="LineNr">34537 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34538" class="LineNr">34538 </span> <span class="subxComment"># "0f 8d/jump-if->="</span> -<span id="L34539" class="LineNr">34539 </span> 0x10/imm32/size -<span id="L34540" class="LineNr">34540 </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="L34541" class="LineNr">34541 </span><span class="subxMinorFunction">_string_0f_8d_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34542" class="LineNr">34542 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34543" class="LineNr">34543 </span> <span class="subxComment"># "0f 8d/jump-if->= break/disp32"</span> -<span id="L34544" class="LineNr">34544 </span> 0x1d/imm32/size -<span id="L34545" class="LineNr">34545 </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="L34546" class="LineNr">34546 </span><span class="subxMinorFunction">_string_0f_8d_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34547" class="LineNr">34547 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34548" class="LineNr">34548 </span> <span class="subxComment"># "0f 8d/jump-if->= loop/disp32"</span> -<span id="L34549" class="LineNr">34549 </span> 0x1c/imm32/size -<span id="L34550" class="LineNr">34550 </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="L34551" class="LineNr">34551 </span><span class="subxMinorFunction">_string_0f_8e_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34552" class="LineNr">34552 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34553" class="LineNr">34553 </span> <span class="subxComment"># "0f 8e/jump-if-<="</span> -<span id="L34554" class="LineNr">34554 </span> 0x10/imm32/size -<span id="L34555" class="LineNr">34555 </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="L34556" class="LineNr">34556 </span><span class="subxMinorFunction">_string_0f_8e_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34557" class="LineNr">34557 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34558" class="LineNr">34558 </span> <span class="subxComment"># "0f 8e/jump-if-<= break/disp32"</span> -<span id="L34559" class="LineNr">34559 </span> 0x1d/imm32/size -<span id="L34560" class="LineNr">34560 </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="L34561" class="LineNr">34561 </span><span class="subxMinorFunction">_string_0f_8e_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34562" class="LineNr">34562 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34563" class="LineNr">34563 </span> <span class="subxComment"># "0f 8e/jump-if-<= loop/disp32"</span> -<span id="L34564" class="LineNr">34564 </span> 0x1c/imm32/size -<span id="L34565" class="LineNr">34565 </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="L34566" class="LineNr">34566 </span><span class="subxMinorFunction">_string_0f_8f_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34567" class="LineNr">34567 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34568" class="LineNr">34568 </span> <span class="subxComment"># "0f 8f/jump-if->"</span> -<span id="L34569" class="LineNr">34569 </span> 0xf/imm32/size -<span id="L34570" class="LineNr">34570 </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="L34571" class="LineNr">34571 </span><span class="subxMinorFunction">_string_0f_8f_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34572" class="LineNr">34572 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34573" class="LineNr">34573 </span> <span class="subxComment"># "0f 8f/jump-if-> break/disp32"</span> -<span id="L34574" class="LineNr">34574 </span> 0x1c/imm32/size -<span id="L34575" class="LineNr">34575 </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="L34576" class="LineNr">34576 </span><span class="subxMinorFunction">_string_0f_8f_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34577" class="LineNr">34577 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34578" class="LineNr">34578 </span> <span class="subxComment"># "0f 8f/jump-if-> loop/disp32"</span> -<span id="L34579" class="LineNr">34579 </span> 0x1b/imm32/size -<span id="L34580" class="LineNr">34580 </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="L34581" class="LineNr">34581 </span><span class="subxMinorFunction">_string_0f_af_multiply</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34582" class="LineNr">34582 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34583" class="LineNr">34583 </span> <span class="subxComment"># "0f af/multiply"</span> -<span id="L34584" class="LineNr">34584 </span> 0xe/imm32/size -<span id="L34585" class="LineNr">34585 </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="L34586" class="LineNr">34586 </span><span class="subxMinorFunction">_string_f3_0f_2a_convert_to_float</span>: -<span id="L34587" class="LineNr">34587 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34588" class="LineNr">34588 </span> <span class="subxComment"># "f3 0f 2a/convert-to-float"</span> -<span id="L34589" class="LineNr">34589 </span> 0x19/imm32/size -<span id="L34590" class="LineNr">34590 </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="L34591" class="LineNr">34591 </span><span class="subxMinorFunction">_string_f3_0f_2d_convert_to_int</span>: -<span id="L34592" class="LineNr">34592 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34593" class="LineNr">34593 </span> <span class="subxComment"># "f3 0f 2d/convert-to-int"</span> -<span id="L34594" class="LineNr">34594 </span> 0x17/imm32/size -<span id="L34595" class="LineNr">34595 </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="L34596" class="LineNr">34596 </span><span class="subxMinorFunction">_string_f3_0f_2c_truncate_to_int</span>: -<span id="L34597" class="LineNr">34597 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34598" class="LineNr">34598 </span> <span class="subxComment"># "f3 0f 2c/truncate-to-int"</span> -<span id="L34599" class="LineNr">34599 </span> 0x18/imm32/size -<span id="L34600" class="LineNr">34600 </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="L34601" class="LineNr">34601 </span><span class="subxMinorFunction">_string_f3_0f_58_add</span>: -<span id="L34602" class="LineNr">34602 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34603" class="LineNr">34603 </span> <span class="subxComment"># "f3 0f 58/add"</span> -<span id="L34604" class="LineNr">34604 </span> 0xc/imm32/size -<span id="L34605" class="LineNr">34605 </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="L34606" class="LineNr">34606 </span><span class="subxMinorFunction">_string_f3_0f_5c_subtract</span>: -<span id="L34607" class="LineNr">34607 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34608" class="LineNr">34608 </span> <span class="subxComment"># "f3 0f 5c/subtract"</span> -<span id="L34609" class="LineNr">34609 </span> 0x11/imm32/size -<span id="L34610" class="LineNr">34610 </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="L34611" class="LineNr">34611 </span><span class="subxMinorFunction">_string_f3_0f_59_multiply</span>: -<span id="L34612" class="LineNr">34612 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34613" class="LineNr">34613 </span> <span class="subxComment"># "f3 0f 59/multiply"</span> -<span id="L34614" class="LineNr">34614 </span> 0x11/imm32/size -<span id="L34615" class="LineNr">34615 </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="L34616" class="LineNr">34616 </span><span class="subxMinorFunction">_string_f3_0f_5e_divide</span>: -<span id="L34617" class="LineNr">34617 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34618" class="LineNr">34618 </span> <span class="subxComment"># "f3 0f 5e/divide"</span> -<span id="L34619" class="LineNr">34619 </span> 0xf/imm32/size -<span id="L34620" class="LineNr">34620 </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="L34621" class="LineNr">34621 </span><span class="subxMinorFunction">_string_f3_0f_53_reciprocal</span>: -<span id="L34622" class="LineNr">34622 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34623" class="LineNr">34623 </span> <span class="subxComment"># "f3 0f 53/reciprocal"</span> -<span id="L34624" class="LineNr">34624 </span> 0x13/imm32/size -<span id="L34625" class="LineNr">34625 </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="L34626" class="LineNr">34626 </span><span class="subxMinorFunction">_string_f3_0f_51_square_root</span>: -<span id="L34627" class="LineNr">34627 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34628" class="LineNr">34628 </span> <span class="subxComment"># "f3 0f 51/square-root"</span> -<span id="L34629" class="LineNr">34629 </span> 0x14/imm32/size -<span id="L34630" class="LineNr">34630 </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="L34631" class="LineNr">34631 </span><span class="subxMinorFunction">_string_f3_0f_52_inverse_square_root</span>: -<span id="L34632" class="LineNr">34632 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34633" class="LineNr">34633 </span> <span class="subxComment"># "f3 0f 52/inverse-square-root"</span> -<span id="L34634" class="LineNr">34634 </span> 0x1c/imm32/size -<span id="L34635" class="LineNr">34635 </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="L34636" class="LineNr">34636 </span><span class="subxMinorFunction">_string_f3_0f_5d_min</span>: -<span id="L34637" class="LineNr">34637 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34638" class="LineNr">34638 </span> <span class="subxComment"># "f3 0f 5d/min"</span> -<span id="L34639" class="LineNr">34639 </span> 0xc/imm32/size -<span id="L34640" class="LineNr">34640 </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="L34641" class="LineNr">34641 </span><span class="subxMinorFunction">_string_f3_0f_5f_max</span>: -<span id="L34642" class="LineNr">34642 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34643" class="LineNr">34643 </span> <span class="subxComment"># "f3 0f 5f/max"</span> -<span id="L34644" class="LineNr">34644 </span> 0xc/imm32/size -<span id="L34645" class="LineNr">34645 </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="L34646" class="LineNr">34646 </span><span class="subxMinorFunction">_string_f3_0f_10_copy</span>: -<span id="L34647" class="LineNr">34647 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34648" class="LineNr">34648 </span> <span class="subxComment"># "f3 0f 10/copy"</span> -<span id="L34649" class="LineNr">34649 </span> 0xd/imm32/size -<span id="L34650" class="LineNr">34650 </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="L34651" class="LineNr">34651 </span><span class="subxMinorFunction">_string_f3_0f_11_copy</span>: -<span id="L34652" class="LineNr">34652 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34653" class="LineNr">34653 </span> <span class="subxComment"># "f3 0f 11/copy"</span> -<span id="L34654" class="LineNr">34654 </span> 0xd/imm32/size -<span id="L34655" class="LineNr">34655 </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="L34656" class="LineNr">34656 </span><span class="subxMinorFunction">_string_0f_2f_compare</span>: -<span id="L34657" class="LineNr">34657 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34658" class="LineNr">34658 </span> <span class="subxComment"># "0f 2f/compare"</span> -<span id="L34659" class="LineNr">34659 </span> 0xd/imm32/size -<span id="L34660" class="LineNr">34660 </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="L34661" class="LineNr">34661 </span><span class="subxMinorFunction">_string_21_and_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34662" class="LineNr">34662 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34663" class="LineNr">34663 </span> <span class="subxComment"># "21/and-with"</span> -<span id="L34664" class="LineNr">34664 </span> 0xb/imm32/size -<span id="L34665" class="LineNr">34665 </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="L34666" class="LineNr">34666 </span><span class="subxMinorFunction">_string_23_and</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34667" class="LineNr">34667 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34668" class="LineNr">34668 </span> <span class="subxComment"># "23/and"</span> -<span id="L34669" class="LineNr">34669 </span> 0x6/imm32/size -<span id="L34670" class="LineNr">34670 </span> 0x32/2 0x33/3 0x2f/slash 0x61/a 0x6e/n 0x64/d -<span id="L34671" class="LineNr">34671 </span><span class="subxMinorFunction">_string_25_and_with_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34672" class="LineNr">34672 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34673" class="LineNr">34673 </span> <span class="subxComment"># "25/and-with-eax"</span> -<span id="L34674" class="LineNr">34674 </span> 0xf/imm32/size -<span id="L34675" class="LineNr">34675 </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="L34676" class="LineNr">34676 </span><span class="subxMinorFunction">_string_29_subtract_from</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34677" class="LineNr">34677 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34678" class="LineNr">34678 </span> <span class="subxComment"># "29/subtract-from"</span> -<span id="L34679" class="LineNr">34679 </span> 0x10/imm32/size -<span id="L34680" class="LineNr">34680 </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="L34681" class="LineNr">34681 </span><span class="subxMinorFunction">_string_2b_subtract</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34682" class="LineNr">34682 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34683" class="LineNr">34683 </span> <span class="subxComment"># "2b/subtract"</span> -<span id="L34684" class="LineNr">34684 </span> 0xb/imm32/size -<span id="L34685" class="LineNr">34685 </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="L34686" class="LineNr">34686 </span><span class="subxMinorFunction">_string_2d_subtract_from_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34687" class="LineNr">34687 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34688" class="LineNr">34688 </span> <span class="subxComment"># "2d/subtract-from-eax"</span> -<span id="L34689" class="LineNr">34689 </span> 0x14/imm32/size -<span id="L34690" class="LineNr">34690 </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="L34691" class="LineNr">34691 </span><span class="subxMinorFunction">_string_31_xor_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34692" class="LineNr">34692 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34693" class="LineNr">34693 </span> <span class="subxComment"># "31/xor-with"</span> -<span id="L34694" class="LineNr">34694 </span> 0xb/imm32/size -<span id="L34695" class="LineNr">34695 </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="L34696" class="LineNr">34696 </span><span class="subxMinorFunction">_string_33_xor</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34697" class="LineNr">34697 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34698" class="LineNr">34698 </span> <span class="subxComment"># "33/xor"</span> -<span id="L34699" class="LineNr">34699 </span> 0x6/imm32/size -<span id="L34700" class="LineNr">34700 </span> 0x33/3 0x33/3 0x2f/slash 0x78/x 0x6f/o 0x72/r -<span id="L34701" class="LineNr">34701 </span><span class="subxMinorFunction">_string_35_xor_with_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34702" class="LineNr">34702 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34703" class="LineNr">34703 </span> <span class="subxComment"># "35/xor-with-eax"</span> -<span id="L34704" class="LineNr">34704 </span> 0xf/imm32/size -<span id="L34705" class="LineNr">34705 </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="L34706" class="LineNr">34706 </span><span class="subxMinorFunction">_string_39_compare-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34707" class="LineNr">34707 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34708" class="LineNr">34708 </span> <span class="subxComment"># "39/compare->"</span> -<span id="L34709" class="LineNr">34709 </span> 0xc/imm32/size -<span id="L34710" class="LineNr">34710 </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="L34711" class="LineNr">34711 </span><span class="subxMinorFunction">_string_3b_compare<-</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34712" class="LineNr">34712 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34713" class="LineNr">34713 </span> <span class="subxComment"># "3b/compare<-"</span> -<span id="L34714" class="LineNr">34714 </span> 0xc/imm32/size -<span id="L34715" class="LineNr">34715 </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="L34716" class="LineNr">34716 </span><span class="subxMinorFunction">_string_3d_compare_eax_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34717" class="LineNr">34717 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34718" class="LineNr">34718 </span> <span class="subxComment"># "3d/compare-eax-with"</span> -<span id="L34719" class="LineNr">34719 </span> 0x13/imm32/size -<span id="L34720" class="LineNr">34720 </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="L34721" class="LineNr">34721 </span><span class="subxMinorFunction">_string_40_increment_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34722" class="LineNr">34722 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34723" class="LineNr">34723 </span> <span class="subxComment"># "40/increment-eax"</span> -<span id="L34724" class="LineNr">34724 </span> 0x10/imm32/size -<span id="L34725" class="LineNr">34725 </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="L34726" class="LineNr">34726 </span><span class="subxMinorFunction">_string_41_increment_ecx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34727" class="LineNr">34727 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34728" class="LineNr">34728 </span> <span class="subxComment"># "41/increment-ecx"</span> -<span id="L34729" class="LineNr">34729 </span> 0x10/imm32/size -<span id="L34730" class="LineNr">34730 </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="L34731" class="LineNr">34731 </span><span class="subxMinorFunction">_string_42_increment_edx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34732" class="LineNr">34732 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34733" class="LineNr">34733 </span> <span class="subxComment"># "42/increment-edx"</span> -<span id="L34734" class="LineNr">34734 </span> 0x10/imm32/size -<span id="L34735" class="LineNr">34735 </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="L34736" class="LineNr">34736 </span><span class="subxMinorFunction">_string_43_increment_ebx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34737" class="LineNr">34737 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34738" class="LineNr">34738 </span> <span class="subxComment"># "43/increment-ebx"</span> -<span id="L34739" class="LineNr">34739 </span> 0x10/imm32/size -<span id="L34740" class="LineNr">34740 </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="L34741" class="LineNr">34741 </span><span class="subxMinorFunction">_string_46_increment_esi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34742" class="LineNr">34742 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34743" class="LineNr">34743 </span> <span class="subxComment"># "46/increment-esi"</span> -<span id="L34744" class="LineNr">34744 </span> 0x10/imm32/size -<span id="L34745" class="LineNr">34745 </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="L34746" class="LineNr">34746 </span><span class="subxMinorFunction">_string_47_increment_edi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34747" class="LineNr">34747 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34748" class="LineNr">34748 </span> <span class="subxComment"># "47/increment-edi"</span> -<span id="L34749" class="LineNr">34749 </span> 0x10/imm32/size -<span id="L34750" class="LineNr">34750 </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="L34751" class="LineNr">34751 </span><span class="subxMinorFunction">_string_48_decrement_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34752" class="LineNr">34752 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34753" class="LineNr">34753 </span> <span class="subxComment"># "48/decrement-eax"</span> -<span id="L34754" class="LineNr">34754 </span> 0x10/imm32/size -<span id="L34755" class="LineNr">34755 </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="L34756" class="LineNr">34756 </span><span class="subxMinorFunction">_string_49_decrement_ecx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34757" class="LineNr">34757 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34758" class="LineNr">34758 </span> <span class="subxComment"># "49/decrement-ecx"</span> -<span id="L34759" class="LineNr">34759 </span> 0x10/imm32/size -<span id="L34760" class="LineNr">34760 </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="L34761" class="LineNr">34761 </span><span class="subxMinorFunction">_string_4a_decrement_edx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34762" class="LineNr">34762 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34763" class="LineNr">34763 </span> <span class="subxComment"># "4a/decrement-edx"</span> -<span id="L34764" class="LineNr">34764 </span> 0x10/imm32/size -<span id="L34765" class="LineNr">34765 </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="L34766" class="LineNr">34766 </span><span class="subxMinorFunction">_string_4b_decrement_ebx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34767" class="LineNr">34767 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34768" class="LineNr">34768 </span> <span class="subxComment"># "4b/decrement-ebx"</span> -<span id="L34769" class="LineNr">34769 </span> 0x10/imm32/size -<span id="L34770" class="LineNr">34770 </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="L34771" class="LineNr">34771 </span><span class="subxMinorFunction">_string_4e_decrement_esi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34772" class="LineNr">34772 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34773" class="LineNr">34773 </span> <span class="subxComment"># "4e/decrement-esi"</span> -<span id="L34774" class="LineNr">34774 </span> 0x10/imm32/size -<span id="L34775" class="LineNr">34775 </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="L34776" class="LineNr">34776 </span><span class="subxMinorFunction">_string_4f_decrement_edi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34777" class="LineNr">34777 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34778" class="LineNr">34778 </span> <span class="subxComment"># "4f/decrement-edi"</span> -<span id="L34779" class="LineNr">34779 </span> 0x10/imm32/size -<span id="L34780" class="LineNr">34780 </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="L34781" class="LineNr">34781 </span><span class="subxMinorFunction">_string_81_subop_add</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34782" class="LineNr">34782 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34783" class="LineNr">34783 </span> <span class="subxComment"># "81 0/subop/add"</span> -<span id="L34784" class="LineNr">34784 </span> 0xe/imm32/size -<span id="L34785" class="LineNr">34785 </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="L34786" class="LineNr">34786 </span><span class="subxMinorFunction">_string_81_subop_or</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34787" class="LineNr">34787 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34788" class="LineNr">34788 </span> <span class="subxComment"># "81 1/subop/or"</span> -<span id="L34789" class="LineNr">34789 </span> 0xd/imm32/size -<span id="L34790" class="LineNr">34790 </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="L34791" class="LineNr">34791 </span><span class="subxMinorFunction">_string_81_subop_and</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34792" class="LineNr">34792 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34793" class="LineNr">34793 </span> <span class="subxComment"># "81 4/subop/and"</span> -<span id="L34794" class="LineNr">34794 </span> 0xe/imm32/size -<span id="L34795" class="LineNr">34795 </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="L34796" class="LineNr">34796 </span><span class="subxMinorFunction">_string_81_subop_subtract</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34797" class="LineNr">34797 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34798" class="LineNr">34798 </span> <span class="subxComment"># "81 5/subop/subtract"</span> -<span id="L34799" class="LineNr">34799 </span> 0x13/imm32/size -<span id="L34800" class="LineNr">34800 </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="L34801" class="LineNr">34801 </span><span class="subxMinorFunction">_string_81_subop_xor</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34802" class="LineNr">34802 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34803" class="LineNr">34803 </span> <span class="subxComment"># "81 6/subop/xor"</span> -<span id="L34804" class="LineNr">34804 </span> 0xe/imm32/size -<span id="L34805" class="LineNr">34805 </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="L34806" class="LineNr">34806 </span><span class="subxMinorFunction">_string_81_subop_compare</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34807" class="LineNr">34807 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34808" class="LineNr">34808 </span> <span class="subxComment"># "81 7/subop/compare"</span> -<span id="L34809" class="LineNr">34809 </span> 0x12/imm32/size -<span id="L34810" class="LineNr">34810 </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="L34811" class="LineNr">34811 </span><span class="subxMinorFunction">_string_89_<-</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34812" class="LineNr">34812 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34813" class="LineNr">34813 </span> <span class="subxComment"># "89/<-"</span> -<span id="L34814" class="LineNr">34814 </span> 0x5/imm32/size -<span id="L34815" class="LineNr">34815 </span> 0x38/8 0x39/9 0x2f/slash 0x3c/< 0x2d/dash -<span id="L34816" class="LineNr">34816 </span><span class="subxMinorFunction">_string_8b_-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34817" class="LineNr">34817 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34818" class="LineNr">34818 </span> <span class="subxComment"># "8b/->"</span> -<span id="L34819" class="LineNr">34819 </span> 0x5/imm32/size -<span id="L34820" class="LineNr">34820 </span> 0x38/8 0x62/b 0x2f/slash 0x2d/dash 0x3e/> -<span id="L34821" class="LineNr">34821 </span><span class="subxMinorFunction">_string_8a_copy_byte</span>: -<span id="L34822" class="LineNr">34822 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34823" class="LineNr">34823 </span> <span class="subxComment"># "8a/byte->"</span> -<span id="L34824" class="LineNr">34824 </span> 0x9/imm32/size -<span id="L34825" class="LineNr">34825 </span> 0x38/8 0x61/a 0x2f/slash 0x62/b 0x79/y 0x74/t 0x65/e 0x2d/dash 0x3e/> -<span id="L34826" class="LineNr">34826 </span><span class="subxMinorFunction">_string_88_copy_byte</span>: -<span id="L34827" class="LineNr">34827 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34828" class="LineNr">34828 </span> <span class="subxComment"># "88/byte<-"</span> -<span id="L34829" class="LineNr">34829 </span> 0x9/imm32/size -<span id="L34830" class="LineNr">34830 </span> 0x38/8 0x38/8 0x2f/slash 0x62/b 0x79/y 0x74/t 0x65/e 0x3c/< 0x2d/- -<span id="L34831" class="LineNr">34831 </span><span class="subxMinorFunction">_string_8d_copy_address</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34832" class="LineNr">34832 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34833" class="LineNr">34833 </span> <span class="subxComment"># "8d/copy-address"</span> -<span id="L34834" class="LineNr">34834 </span> 0xf/imm32/size -<span id="L34835" class="LineNr">34835 </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="L34836" class="LineNr">34836 </span><span class="subxMinorFunction">_string_b8_copy_to_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34837" class="LineNr">34837 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34838" class="LineNr">34838 </span> <span class="subxComment"># "b8/copy-to-eax"</span> -<span id="L34839" class="LineNr">34839 </span> 0xe/imm32/size -<span id="L34840" class="LineNr">34840 </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="L34841" class="LineNr">34841 </span><span class="subxMinorFunction">_string_b9_copy_to_ecx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34842" class="LineNr">34842 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34843" class="LineNr">34843 </span> <span class="subxComment"># "b9/copy-to-ecx"</span> -<span id="L34844" class="LineNr">34844 </span> 0xe/imm32/size -<span id="L34845" class="LineNr">34845 </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="L34846" class="LineNr">34846 </span><span class="subxMinorFunction">_string_ba_copy_to_edx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34847" class="LineNr">34847 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34848" class="LineNr">34848 </span> <span class="subxComment"># "ba/copy-to-edx"</span> -<span id="L34849" class="LineNr">34849 </span> 0xe/imm32/size -<span id="L34850" class="LineNr">34850 </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="L34851" class="LineNr">34851 </span><span class="subxMinorFunction">_string_bb_copy_to_ebx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34852" class="LineNr">34852 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34853" class="LineNr">34853 </span> <span class="subxComment"># "bb/copy-to-ebx"</span> -<span id="L34854" class="LineNr">34854 </span> 0xe/imm32/size -<span id="L34855" class="LineNr">34855 </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="L34856" class="LineNr">34856 </span><span class="subxMinorFunction">_string_be_copy_to_esi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34857" class="LineNr">34857 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34858" class="LineNr">34858 </span> <span class="subxComment"># "be/copy-to-esi"</span> -<span id="L34859" class="LineNr">34859 </span> 0xe/imm32/size -<span id="L34860" class="LineNr">34860 </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="L34861" class="LineNr">34861 </span><span class="subxMinorFunction">_string_bf_copy_to_edi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34862" class="LineNr">34862 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34863" class="LineNr">34863 </span> <span class="subxComment"># "bf/copy-to-edi"</span> -<span id="L34864" class="LineNr">34864 </span> 0xe/imm32/size -<span id="L34865" class="LineNr">34865 </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="L34866" class="LineNr">34866 </span><span class="subxMinorFunction">_string_c7_subop_copy</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34867" class="LineNr">34867 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34868" class="LineNr">34868 </span> <span class="subxComment"># "c7 0/subop/copy"</span> -<span id="L34869" class="LineNr">34869 </span> 0xf/imm32/size -<span id="L34870" class="LineNr">34870 </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="L34871" class="LineNr">34871 </span><span class="subxMinorFunction">_string_e9_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34872" class="LineNr">34872 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34873" class="LineNr">34873 </span> <span class="subxComment"># "e9/jump"</span> -<span id="L34874" class="LineNr">34874 </span> 0x7/imm32/size -<span id="L34875" class="LineNr">34875 </span> 0x65/e 0x39/9 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p -<span id="L34876" class="LineNr">34876 </span><span class="subxMinorFunction">_string_e9_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34877" class="LineNr">34877 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34878" class="LineNr">34878 </span> <span class="subxComment"># "e9/jump break/disp32"</span> -<span id="L34879" class="LineNr">34879 </span> 0x14/imm32/size -<span id="L34880" class="LineNr">34880 </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="L34881" class="LineNr">34881 </span><span class="subxMinorFunction">_string_e9_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34882" class="LineNr">34882 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34883" class="LineNr">34883 </span> <span class="subxComment"># "e9/jump loop/disp32"</span> -<span id="L34884" class="LineNr">34884 </span> 0x13/imm32/size -<span id="L34885" class="LineNr">34885 </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="L34886" class="LineNr">34886 </span><span class="subxMinorFunction">_string_f7_subop_negate</span>: -<span id="L34887" class="LineNr">34887 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34888" class="LineNr">34888 </span> <span class="subxComment"># "f7 3/subop/negate"</span> -<span id="L34889" class="LineNr">34889 </span> 0x11/imm32/size -<span id="L34890" class="LineNr">34890 </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="L34891" class="LineNr">34891 </span><span class="subxMinorFunction">_string_f7_subop_not</span>: -<span id="L34892" class="LineNr">34892 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34893" class="LineNr">34893 </span> <span class="subxComment"># "f7 2/subop/not"</span> -<span id="L34894" class="LineNr">34894 </span> 0xe/imm32/size -<span id="L34895" class="LineNr">34895 </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="L34896" class="LineNr">34896 </span><span class="subxMinorFunction">_string_ff_subop_increment</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34897" class="LineNr">34897 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34898" class="LineNr">34898 </span> <span class="subxComment"># "ff 0/subop/increment"</span> -<span id="L34899" class="LineNr">34899 </span> 0x14/imm32/size -<span id="L34900" class="LineNr">34900 </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="L34901" class="LineNr">34901 </span><span class="subxMinorFunction">_string_ff_subop_decrement</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34902" class="LineNr">34902 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34903" class="LineNr">34903 </span> <span class="subxComment"># "ff 1/subop/decrement"</span> -<span id="L34904" class="LineNr">34904 </span> 0x14/imm32/size -<span id="L34905" class="LineNr">34905 </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="L34906" class="LineNr">34906 </span><span class="subxMinorFunction">_string_c1_subop_shift_left</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34907" class="LineNr">34907 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34908" class="LineNr">34908 </span> <span class="subxComment"># "c1/shift 4/subop/left"</span> -<span id="L34909" class="LineNr">34909 </span> 0x15/imm32/size -<span id="L34910" class="LineNr">34910 </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="L34911" class="LineNr">34911 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_padding_zeroes</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34912" class="LineNr">34912 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34913" class="LineNr">34913 </span> <span class="subxComment"># "c1/shift 5/subop/right-padding-zeroes"</span> -<span id="L34914" class="LineNr">34914 </span> 0x25/imm32/size -<span id="L34915" class="LineNr">34915 </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="L34916" class="LineNr">34916 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_preserving_sign</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34917" class="LineNr">34917 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34918" class="LineNr">34918 </span> <span class="subxComment"># "c1/shift 7/subop/right-preserving-sign"</span> -<span id="L34919" class="LineNr">34919 </span> 0x26/imm32/size -<span id="L34920" class="LineNr">34920 </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="L34921" class="LineNr">34921 </span> -<span id="L34922" class="LineNr">34922 </span><span class="SpecialChar">Single-int-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#L34929'>Int-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">Int-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L34191" class="LineNr">34191 </span> 0x11/imm32/alloc-id:fake +<span id="L34192" class="LineNr">34192 </span> <a href='mu.subx.html#L34477'>_string-loop-if-float<</a>/imm32/name +<span id="L34193" class="LineNr">34193 </span> 0x11/imm32/alloc-id:fake +<span id="L34194" class="LineNr">34194 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L34195" class="LineNr">34195 </span> 0/imm32/no-outputs +<span id="L34196" class="LineNr">34196 </span> 0/imm32/no-outputs +<span id="L34197" class="LineNr">34197 </span> 0x11/imm32/alloc-id:fake +<span id="L34198" class="LineNr">34198 </span> <a href='mu.subx.html#L34684'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L34199" class="LineNr">34199 </span> 0/imm32/no-rm32 +<span id="L34200" class="LineNr">34200 </span> 0/imm32/no-r32 +<span id="L34201" class="LineNr">34201 </span> 0/imm32/no-imm32 +<span id="L34202" class="LineNr">34202 </span> 0/imm32/no-imm8 +<span id="L34203" class="LineNr">34203 </span> 1/imm32/disp32-is-first-inout +<span id="L34204" class="LineNr">34204 </span> 0/imm32/no-xm32 +<span id="L34205" class="LineNr">34205 </span> 0/imm32/no-x32 +<span id="L34206" class="LineNr">34206 </span> 0x11/imm32/alloc-id:fake +<span id="L34207" class="LineNr">34207 </span> <a href='mu.subx.html#L34208'>_Primitive-loop-if-float>=-named</a>/imm32/next +<span id="L34208" class="LineNr">34208 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L34209" class="LineNr">34209 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34210" class="LineNr">34210 </span> 0x11/imm32/alloc-id:fake +<span id="L34211" class="LineNr">34211 </span> <a href='mu.subx.html#L34492'>_string-loop-if-float>=</a>/imm32/name +<span id="L34212" class="LineNr">34212 </span> 0x11/imm32/alloc-id:fake +<span id="L34213" class="LineNr">34213 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L34214" class="LineNr">34214 </span> 0/imm32/no-outputs +<span id="L34215" class="LineNr">34215 </span> 0/imm32/no-outputs +<span id="L34216" class="LineNr">34216 </span> 0x11/imm32/alloc-id:fake +<span id="L34217" class="LineNr">34217 </span> <a href='mu.subx.html#L34699'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L34218" class="LineNr">34218 </span> 0/imm32/no-rm32 +<span id="L34219" class="LineNr">34219 </span> 0/imm32/no-r32 +<span id="L34220" class="LineNr">34220 </span> 0/imm32/no-imm32 +<span id="L34221" class="LineNr">34221 </span> 0/imm32/no-imm8 +<span id="L34222" class="LineNr">34222 </span> 1/imm32/disp32-is-first-inout +<span id="L34223" class="LineNr">34223 </span> 0/imm32/no-xm32 +<span id="L34224" class="LineNr">34224 </span> 0/imm32/no-x32 +<span id="L34225" class="LineNr">34225 </span> 0x11/imm32/alloc-id:fake +<span id="L34226" class="LineNr">34226 </span> <a href='mu.subx.html#L34227'>_Primitive-loop-if-float<=-named</a>/imm32/next +<span id="L34227" class="LineNr">34227 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L34228" class="LineNr">34228 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34229" class="LineNr">34229 </span> 0x11/imm32/alloc-id:fake +<span id="L34230" class="LineNr">34230 </span> <a href='mu.subx.html#L34482'>_string-loop-if-float<=</a>/imm32/name +<span id="L34231" class="LineNr">34231 </span> 0x11/imm32/alloc-id:fake +<span id="L34232" class="LineNr">34232 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L34233" class="LineNr">34233 </span> 0/imm32/no-outputs +<span id="L34234" class="LineNr">34234 </span> 0/imm32/no-outputs +<span id="L34235" class="LineNr">34235 </span> 0x11/imm32/alloc-id:fake +<span id="L34236" class="LineNr">34236 </span> <a href='mu.subx.html#L34744'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L34237" class="LineNr">34237 </span> 0/imm32/no-rm32 +<span id="L34238" class="LineNr">34238 </span> 0/imm32/no-r32 +<span id="L34239" class="LineNr">34239 </span> 0/imm32/no-imm32 +<span id="L34240" class="LineNr">34240 </span> 0/imm32/no-imm8 +<span id="L34241" class="LineNr">34241 </span> 1/imm32/disp32-is-first-inout +<span id="L34242" class="LineNr">34242 </span> 0/imm32/no-xm32 +<span id="L34243" class="LineNr">34243 </span> 0/imm32/no-x32 +<span id="L34244" class="LineNr">34244 </span> 0x11/imm32/alloc-id:fake +<span id="L34245" class="LineNr">34245 </span> <a href='mu.subx.html#L34246'>_Primitive-loop-if-float>-named</a>/imm32/next +<span id="L34246" class="LineNr">34246 </span><span class="subxMinorFunction">_Primitive-loop-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L34247" class="LineNr">34247 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34248" class="LineNr">34248 </span> 0x11/imm32/alloc-id:fake +<span id="L34249" class="LineNr">34249 </span> <a href='mu.subx.html#L34487'>_string-loop-if-float></a>/imm32/name +<span id="L34250" class="LineNr">34250 </span> 0x11/imm32/alloc-id:fake +<span id="L34251" class="LineNr">34251 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/inouts +<span id="L34252" class="LineNr">34252 </span> 0/imm32/no-outputs +<span id="L34253" class="LineNr">34253 </span> 0/imm32/no-outputs +<span id="L34254" class="LineNr">34254 </span> 0x11/imm32/alloc-id:fake +<span id="L34255" class="LineNr">34255 </span> <a href='mu.subx.html#L34759'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L34256" class="LineNr">34256 </span> 0/imm32/no-rm32 +<span id="L34257" class="LineNr">34257 </span> 0/imm32/no-r32 +<span id="L34258" class="LineNr">34258 </span> 0/imm32/no-imm32 +<span id="L34259" class="LineNr">34259 </span> 0/imm32/no-imm8 +<span id="L34260" class="LineNr">34260 </span> 1/imm32/disp32-is-first-inout +<span id="L34261" class="LineNr">34261 </span> 0/imm32/no-xm32 +<span id="L34262" class="LineNr">34262 </span> 0/imm32/no-x32 +<span id="L34263" class="LineNr">34263 </span> 0/imm32/next +<span id="L34264" class="LineNr">34264 </span> 0/imm32/next +<span id="L34265" class="LineNr">34265 </span> +<span id="L34266" class="LineNr">34266 </span><span class="subxComment"># string literals for Mu instructions</span> +<span id="L34267" class="LineNr">34267 </span><span class="subxMinorFunction">_string-add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34268" class="LineNr">34268 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34269" class="LineNr">34269 </span> <span class="subxComment"># "add"</span> +<span id="L34270" class="LineNr">34270 </span> 0x3/imm32/size +<span id="L34271" class="LineNr">34271 </span> 0x61/a 0x64/d 0x64/d +<span id="L34272" class="LineNr">34272 </span><span class="subxMinorFunction">_string-address</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34273" class="LineNr">34273 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34274" class="LineNr">34274 </span> <span class="subxComment"># "address"</span> +<span id="L34275" class="LineNr">34275 </span> 0x7/imm32/size +<span id="L34276" class="LineNr">34276 </span> 0x61/a 0x64/d 0x64/d 0x72/r 0x65/e 0x73/s 0x73/s +<span id="L34277" class="LineNr">34277 </span><span class="subxMinorFunction">_string-add-to</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34278" class="LineNr">34278 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34279" class="LineNr">34279 </span> <span class="subxComment"># "add-to"</span> +<span id="L34280" class="LineNr">34280 </span> 0x6/imm32/size +<span id="L34281" class="LineNr">34281 </span> 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o +<span id="L34282" class="LineNr">34282 </span><span class="subxMinorFunction">_string-and</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34283" class="LineNr">34283 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34284" class="LineNr">34284 </span> <span class="subxComment"># "and"</span> +<span id="L34285" class="LineNr">34285 </span> 0x3/imm32/size +<span id="L34286" class="LineNr">34286 </span> 0x61/a 0x6e/n 0x64/d +<span id="L34287" class="LineNr">34287 </span><span class="subxMinorFunction">_string-and-with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34288" class="LineNr">34288 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34289" class="LineNr">34289 </span> <span class="subxComment"># "and-with"</span> +<span id="L34290" class="LineNr">34290 </span> 0x8/imm32/size +<span id="L34291" class="LineNr">34291 </span> 0x61/a 0x6e/n 0x64/d 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L34292" class="LineNr">34292 </span><span class="subxMinorFunction">_string-break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34293" class="LineNr">34293 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34294" class="LineNr">34294 </span> <span class="subxComment"># "break"</span> +<span id="L34295" class="LineNr">34295 </span> 0x5/imm32/size +<span id="L34296" class="LineNr">34296 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k +<span id="L34297" class="LineNr">34297 </span><span class="subxMinorFunction">_string-break-if-<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34298" class="LineNr">34298 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34299" class="LineNr">34299 </span> <span class="subxComment"># "break-if-<"</span> +<span id="L34300" class="LineNr">34300 </span> 0xa/imm32/size +<span id="L34301" class="LineNr">34301 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< +<span id="L34302" class="LineNr">34302 </span><span class="subxMinorFunction">_string-break-if-<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34303" class="LineNr">34303 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34304" class="LineNr">34304 </span> <span class="subxComment"># "break-if-<="</span> +<span id="L34305" class="LineNr">34305 </span> 0xb/imm32/size +<span id="L34306" class="LineNr">34306 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= +<span id="L34307" class="LineNr">34307 </span><span class="subxMinorFunction">_string-break-if-=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34308" class="LineNr">34308 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34309" class="LineNr">34309 </span> <span class="subxComment"># "break-if-="</span> +<span id="L34310" class="LineNr">34310 </span> 0xa/imm32/size +<span id="L34311" class="LineNr">34311 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= +<span id="L34312" class="LineNr">34312 </span><span class="subxMinorFunction">_string-break-if-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34313" class="LineNr">34313 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34314" class="LineNr">34314 </span> <span class="subxComment"># "break-if->"</span> +<span id="L34315" class="LineNr">34315 </span> 0xa/imm32/size +<span id="L34316" class="LineNr">34316 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> +<span id="L34317" class="LineNr">34317 </span><span class="subxMinorFunction">_string-break-if->=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34318" class="LineNr">34318 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34319" class="LineNr">34319 </span> <span class="subxComment"># "break-if->="</span> +<span id="L34320" class="LineNr">34320 </span> 0xb/imm32/size +<span id="L34321" class="LineNr">34321 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= +<span id="L34322" class="LineNr">34322 </span><span class="subxMinorFunction">_string-break-if-!=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34323" class="LineNr">34323 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34324" class="LineNr">34324 </span> <span class="subxComment"># "break-if-!="</span> +<span id="L34325" class="LineNr">34325 </span> 0xb/imm32/size +<span id="L34326" class="LineNr">34326 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= +<span id="L34327" class="LineNr">34327 </span><span class="subxMinorFunction">_string-break-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34328" class="LineNr">34328 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34329" class="LineNr">34329 </span> <span class="subxComment"># "break-if-addr<"</span> +<span id="L34330" class="LineNr">34330 </span> 0xe/imm32/size +<span id="L34331" class="LineNr">34331 </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="L34332" class="LineNr">34332 </span><span class="subxMinorFunction">_string-break-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34333" class="LineNr">34333 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34334" class="LineNr">34334 </span> <span class="subxComment"># "break-if-addr<="</span> +<span id="L34335" class="LineNr">34335 </span> 0xf/imm32/size +<span id="L34336" class="LineNr">34336 </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="L34337" class="LineNr">34337 </span><span class="subxMinorFunction">_string-break-if-addr></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34338" class="LineNr">34338 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34339" class="LineNr">34339 </span> <span class="subxComment"># "break-if-addr>"</span> +<span id="L34340" class="LineNr">34340 </span> 0xe/imm32/size +<span id="L34341" class="LineNr">34341 </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="L34342" class="LineNr">34342 </span><span class="subxMinorFunction">_string-break-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34343" class="LineNr">34343 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34344" class="LineNr">34344 </span> <span class="subxComment"># "break-if-addr>="</span> +<span id="L34345" class="LineNr">34345 </span> 0xf/imm32/size +<span id="L34346" class="LineNr">34346 </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="L34347" class="LineNr">34347 </span><span class="subxMinorFunction">_string-break-if-float<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34348" class="LineNr">34348 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34349" class="LineNr">34349 </span> <span class="subxComment"># "break-if-float<"</span> +<span id="L34350" class="LineNr">34350 </span> 0xf/imm32/size +<span id="L34351" class="LineNr">34351 </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="L34352" class="LineNr">34352 </span><span class="subxMinorFunction">_string-break-if-float<=</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"># "break-if-float<="</span> +<span id="L34355" class="LineNr">34355 </span> 0x10/imm32/size +<span id="L34356" class="LineNr">34356 </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="L34357" class="LineNr">34357 </span><span class="subxMinorFunction">_string-break-if-float></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"># "break-if-float>"</span> +<span id="L34360" class="LineNr">34360 </span> 0xf/imm32/size +<span id="L34361" class="LineNr">34361 </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="L34362" class="LineNr">34362 </span><span class="subxMinorFunction">_string-break-if-float>=</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"># "break-if-float>="</span> +<span id="L34365" class="LineNr">34365 </span> 0x10/imm32/size +<span id="L34366" class="LineNr">34366 </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="L34367" class="LineNr">34367 </span><span class="subxMinorFunction">_string-break-if-carry</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"># "break-if-carry"</span> +<span id="L34370" class="LineNr">34370 </span> 0xe/imm32/size +<span id="L34371" class="LineNr">34371 </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="L34372" class="LineNr">34372 </span><span class="subxMinorFunction">_string-break-if-not-carry</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"># "break-if-not-carry"</span> +<span id="L34375" class="LineNr">34375 </span> 0x12/imm32/size +<span id="L34376" class="LineNr">34376 </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="L34377" class="LineNr">34377 </span><span class="subxMinorFunction">_string-break-if-overflow</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"># "break-if-overflow"</span> +<span id="L34380" class="LineNr">34380 </span> 0x11/imm32/size +<span id="L34381" class="LineNr">34381 </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="L34382" class="LineNr">34382 </span><span class="subxMinorFunction">_string-break-if-not-overflow</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"># "break-if-not-overflow"</span> +<span id="L34385" class="LineNr">34385 </span> 0x15/imm32/size +<span id="L34386" class="LineNr">34386 </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="L34387" class="LineNr">34387 </span><span class="subxMinorFunction">_string-compare</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"># "compare"</span> +<span id="L34390" class="LineNr">34390 </span> 0x7/imm32/size +<span id="L34391" class="LineNr">34391 </span> 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e +<span id="L34392" class="LineNr">34392 </span><span class="subxMinorFunction">_string-copy</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"># "copy"</span> +<span id="L34395" class="LineNr">34395 </span> 0x4/imm32/size +<span id="L34396" class="LineNr">34396 </span> 0x63/c 0x6f/o 0x70/p 0x79/y +<span id="L34397" class="LineNr">34397 </span><span class="subxMinorFunction">_string-copy-to</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"># "copy-to"</span> +<span id="L34400" class="LineNr">34400 </span> 0x7/imm32/size +<span id="L34401" class="LineNr">34401 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o +<span id="L34402" class="LineNr">34402 </span><span class="subxMinorFunction">_string-copy-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"># "copy-byte"</span> +<span id="L34405" class="LineNr">34405 </span> 0x9/imm32/size +<span id="L34406" class="LineNr">34406 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x62/b 0x79/y 0x74/t 0x65/e +<span id="L34407" class="LineNr">34407 </span><span class="subxMinorFunction">_string-copy-byte-to</span>: +<span id="L34408" class="LineNr">34408 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34409" class="LineNr">34409 </span> <span class="subxComment"># "copy-byte-to"</span> +<span id="L34410" class="LineNr">34410 </span> 0xc/imm32/size +<span id="L34411" class="LineNr">34411 </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="L34412" class="LineNr">34412 </span><span class="subxMinorFunction">_string-decrement</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"># "decrement"</span> +<span id="L34415" class="LineNr">34415 </span> 0x9/imm32/size +<span id="L34416" class="LineNr">34416 </span> 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t +<span id="L34417" class="LineNr">34417 </span><span class="subxMinorFunction">_string-increment</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"># "increment"</span> +<span id="L34420" class="LineNr">34420 </span> 0x9/imm32/size +<span id="L34421" class="LineNr">34421 </span> 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t +<span id="L34422" class="LineNr">34422 </span><span class="subxMinorFunction">_string-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"># "loop"</span> +<span id="L34425" class="LineNr">34425 </span> 0x4/imm32/size +<span id="L34426" class="LineNr">34426 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p +<span id="L34427" class="LineNr">34427 </span><span class="subxMinorFunction">_string-loop-if-<</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"># "loop-if-<"</span> +<span id="L34430" class="LineNr">34430 </span> 0x9/imm32/size +<span id="L34431" class="LineNr">34431 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< +<span id="L34432" class="LineNr">34432 </span><span class="subxMinorFunction">_string-loop-if-<=</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"># "loop-if-<="</span> +<span id="L34435" class="LineNr">34435 </span> 0xa/imm32/size +<span id="L34436" class="LineNr">34436 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= +<span id="L34437" class="LineNr">34437 </span><span class="subxMinorFunction">_string-loop-if-=</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"># "loop-if-="</span> +<span id="L34440" class="LineNr">34440 </span> 0x9/imm32/size +<span id="L34441" class="LineNr">34441 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= +<span id="L34442" class="LineNr">34442 </span><span class="subxMinorFunction">_string-loop-if-></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"># "loop-if->"</span> +<span id="L34445" class="LineNr">34445 </span> 0x9/imm32/size +<span id="L34446" class="LineNr">34446 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> +<span id="L34447" class="LineNr">34447 </span><span class="subxMinorFunction">_string-loop-if->=</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"># "loop-if->="</span> +<span id="L34450" class="LineNr">34450 </span> 0xa/imm32/size +<span id="L34451" class="LineNr">34451 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= +<span id="L34452" class="LineNr">34452 </span><span class="subxMinorFunction">_string-loop-if-!=</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"># "loop-if-!="</span> +<span id="L34455" class="LineNr">34455 </span> 0xa/imm32/size +<span id="L34456" class="LineNr">34456 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= +<span id="L34457" class="LineNr">34457 </span><span class="subxMinorFunction">_string-loop-if-addr<</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"># "loop-if-addr<"</span> +<span id="L34460" class="LineNr">34460 </span> 0xd/imm32/size +<span id="L34461" class="LineNr">34461 </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="L34462" class="LineNr">34462 </span><span class="subxMinorFunction">_string-loop-if-addr<=</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"># "loop-if-addr<="</span> +<span id="L34465" class="LineNr">34465 </span> 0xe/imm32/size +<span id="L34466" class="LineNr">34466 </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="L34467" class="LineNr">34467 </span><span class="subxMinorFunction">_string-loop-if-addr></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"># "loop-if-addr>"</span> +<span id="L34470" class="LineNr">34470 </span> 0xd/imm32/size +<span id="L34471" class="LineNr">34471 </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="L34472" class="LineNr">34472 </span><span class="subxMinorFunction">_string-loop-if-addr>=</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"># "loop-if-addr>="</span> +<span id="L34475" class="LineNr">34475 </span> 0xe/imm32/size +<span id="L34476" class="LineNr">34476 </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="L34477" class="LineNr">34477 </span><span class="subxMinorFunction">_string-loop-if-float<</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"># "loop-if-float<"</span> +<span id="L34480" class="LineNr">34480 </span> 0xe/imm32/size +<span id="L34481" class="LineNr">34481 </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="L34482" class="LineNr">34482 </span><span class="subxMinorFunction">_string-loop-if-float<=</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"># "loop-if-float<="</span> +<span id="L34485" class="LineNr">34485 </span> 0xf/imm32/size +<span id="L34486" class="LineNr">34486 </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="L34487" class="LineNr">34487 </span><span class="subxMinorFunction">_string-loop-if-float></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"># "loop-if-float>"</span> +<span id="L34490" class="LineNr">34490 </span> 0xe/imm32/size +<span id="L34491" class="LineNr">34491 </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="L34492" class="LineNr">34492 </span><span class="subxMinorFunction">_string-loop-if-float>=</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"># "loop-if-float>="</span> +<span id="L34495" class="LineNr">34495 </span> 0xf/imm32/size +<span id="L34496" class="LineNr">34496 </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="L34497" class="LineNr">34497 </span><span class="subxMinorFunction">_string-loop-if-carry</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"># "loop-if-carry"</span> +<span id="L34500" class="LineNr">34500 </span> 0xd/imm32/size +<span id="L34501" class="LineNr">34501 </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="L34502" class="LineNr">34502 </span><span class="subxMinorFunction">_string-loop-if-not-carry</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"># "loop-if-not-carry"</span> +<span id="L34505" class="LineNr">34505 </span> 0x11/imm32/size +<span id="L34506" class="LineNr">34506 </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="L34507" class="LineNr">34507 </span><span class="subxMinorFunction">_string-loop-if-overflow</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"># "loop-if-overflow"</span> +<span id="L34510" class="LineNr">34510 </span> 0x10/imm32/size +<span id="L34511" class="LineNr">34511 </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="L34512" class="LineNr">34512 </span><span class="subxMinorFunction">_string-loop-if-not-overflow</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"># "loop-if-not-overflow"</span> +<span id="L34515" class="LineNr">34515 </span> 0x14/imm32/size +<span id="L34516" class="LineNr">34516 </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="L34517" class="LineNr">34517 </span><span class="subxMinorFunction">_string-multiply</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"># "multiply"</span> +<span id="L34520" class="LineNr">34520 </span> 0x8/imm32/size +<span id="L34521" class="LineNr">34521 </span> 0x6d/m 0x75/u 0x6c/l 0x74/t 0x69/i 0x70/p 0x6c/l 0x79/y +<span id="L34522" class="LineNr">34522 </span><span class="subxMinorFunction">_string-convert</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"># "convert"</span> +<span id="L34525" class="LineNr">34525 </span> 0x7/imm32/size +<span id="L34526" class="LineNr">34526 </span> 0x63/c 0x6f/o 0x6e/n 0x76/v 0x65/e 0x72/r 0x74/t +<span id="L34527" class="LineNr">34527 </span><span class="subxMinorFunction">_string-truncate</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"># "truncate"</span> +<span id="L34530" class="LineNr">34530 </span> 0x8/imm32/size +<span id="L34531" class="LineNr">34531 </span> 0x74/t 0x72/r 0x75/u 0x6e/n 0x63/c 0x61/a 0x74/t 0x65/e +<span id="L34532" class="LineNr">34532 </span><span class="subxMinorFunction">_string-reinterpret</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"># "reinterpret"</span> +<span id="L34535" class="LineNr">34535 </span> 0xb/imm32/size +<span id="L34536" class="LineNr">34536 </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="L34537" class="LineNr">34537 </span><span class="subxMinorFunction">_string-divide</span>: +<span id="L34538" class="LineNr">34538 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34539" class="LineNr">34539 </span> <span class="subxComment"># "divide"</span> +<span id="L34540" class="LineNr">34540 </span> 0x6/imm32/size +<span id="L34541" class="LineNr">34541 </span> 0x64/d 0x69/i 0x76/v 0x69/i 0x64/d 0x65/e +<span id="L34542" class="LineNr">34542 </span><span class="subxMinorFunction">_string-max</span>: +<span id="L34543" class="LineNr">34543 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34544" class="LineNr">34544 </span> <span class="subxComment"># "max"</span> +<span id="L34545" class="LineNr">34545 </span> 0x3/imm32/size +<span id="L34546" class="LineNr">34546 </span> 0x6d/m 0x61/a 0x78/x +<span id="L34547" class="LineNr">34547 </span><span class="subxMinorFunction">_string-min</span>: +<span id="L34548" class="LineNr">34548 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34549" class="LineNr">34549 </span> <span class="subxComment"># "min"</span> +<span id="L34550" class="LineNr">34550 </span> 0x3/imm32/size +<span id="L34551" class="LineNr">34551 </span> 0x6d/m 0x69/i 0x6e/n +<span id="L34552" class="LineNr">34552 </span><span class="subxMinorFunction">_string-reciprocal</span>: +<span id="L34553" class="LineNr">34553 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34554" class="LineNr">34554 </span> <span class="subxComment"># "reciprocal"</span> +<span id="L34555" class="LineNr">34555 </span> 0xa/imm32/size +<span id="L34556" class="LineNr">34556 </span> 0x72/r 0x65/e 0x63/c 0x69/i 0x70/p 0x72/r 0x6f/o 0x63/c 0x61/a 0x6c/l +<span id="L34557" class="LineNr">34557 </span><span class="subxMinorFunction">_string-square-root</span>: +<span id="L34558" class="LineNr">34558 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34559" class="LineNr">34559 </span> <span class="subxComment"># "square-root"</span> +<span id="L34560" class="LineNr">34560 </span> 0xb/imm32/size +<span id="L34561" class="LineNr">34561 </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="L34562" class="LineNr">34562 </span><span class="subxMinorFunction">_string-inverse-square-root</span>: +<span id="L34563" class="LineNr">34563 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34564" class="LineNr">34564 </span> <span class="subxComment"># "inverse-square-root"</span> +<span id="L34565" class="LineNr">34565 </span> 0x13/imm32/size +<span id="L34566" class="LineNr">34566 </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="L34567" class="LineNr">34567 </span><span class="subxMinorFunction">_string-negate</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34568" class="LineNr">34568 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34569" class="LineNr">34569 </span> <span class="subxComment"># "negate"</span> +<span id="L34570" class="LineNr">34570 </span> 0x6/imm32/size +<span id="L34571" class="LineNr">34571 </span> 0x6e/n 0x65/e 0x67/g 0x61/a 0x74/t 0x65/e +<span id="L34572" class="LineNr">34572 </span><span class="subxMinorFunction">_string-not</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34573" class="LineNr">34573 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34574" class="LineNr">34574 </span> <span class="subxComment"># "not"</span> +<span id="L34575" class="LineNr">34575 </span> 0x3/imm32/size +<span id="L34576" class="LineNr">34576 </span> 0x6e/n 0x6f/o 0x74/t +<span id="L34577" class="LineNr">34577 </span><span class="subxMinorFunction">_string-or</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34578" class="LineNr">34578 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34579" class="LineNr">34579 </span> <span class="subxComment"># "or"</span> +<span id="L34580" class="LineNr">34580 </span> 0x2/imm32/size +<span id="L34581" class="LineNr">34581 </span> 0x6f/o 0x72/r +<span id="L34582" class="LineNr">34582 </span><span class="subxMinorFunction">_string-or-with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34583" class="LineNr">34583 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34584" class="LineNr">34584 </span> <span class="subxComment"># "or-with"</span> +<span id="L34585" class="LineNr">34585 </span> 0x7/imm32/size +<span id="L34586" class="LineNr">34586 </span> 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L34587" class="LineNr">34587 </span><span class="subxMinorFunction">_string-subtract</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34588" class="LineNr">34588 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34589" class="LineNr">34589 </span> <span class="subxComment"># "subtract"</span> +<span id="L34590" class="LineNr">34590 </span> 0x8/imm32/size +<span id="L34591" class="LineNr">34591 </span> 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-subtract-from</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34593" class="LineNr">34593 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34594" class="LineNr">34594 </span> <span class="subxComment"># "subtract-from"</span> +<span id="L34595" class="LineNr">34595 </span> 0xd/imm32/size +<span id="L34596" class="LineNr">34596 </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="L34597" class="LineNr">34597 </span><span class="subxMinorFunction">_string-xor</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34598" class="LineNr">34598 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34599" class="LineNr">34599 </span> <span class="subxComment"># "xor"</span> +<span id="L34600" class="LineNr">34600 </span> 0x3/imm32/size +<span id="L34601" class="LineNr">34601 </span> 0x78/x 0x6f/o 0x72/r +<span id="L34602" class="LineNr">34602 </span><span class="subxMinorFunction">_string-xor-with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34603" class="LineNr">34603 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34604" class="LineNr">34604 </span> <span class="subxComment"># "xor-with"</span> +<span id="L34605" class="LineNr">34605 </span> 0x8/imm32/size +<span id="L34606" class="LineNr">34606 </span> 0x78/x 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L34607" class="LineNr">34607 </span><span class="subxMinorFunction">_string-shift-left</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34608" class="LineNr">34608 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34609" class="LineNr">34609 </span> <span class="subxComment"># "shift-left"</span> +<span id="L34610" class="LineNr">34610 </span> 0xa/imm32/size +<span id="L34611" class="LineNr">34611 </span> 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x2d/dash 0x6c/l 0x65/e 0x66/f 0x74/t +<span id="L34612" class="LineNr">34612 </span><span class="subxMinorFunction">_string-shift-right</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34613" class="LineNr">34613 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34614" class="LineNr">34614 </span> <span class="subxComment"># "shift-right"</span> +<span id="L34615" class="LineNr">34615 </span> 0xb/imm32/size +<span id="L34616" class="LineNr">34616 </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="L34617" class="LineNr">34617 </span><span class="subxMinorFunction">_string-shift-right-signed</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34618" class="LineNr">34618 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34619" class="LineNr">34619 </span> <span class="subxComment"># "shift-right-signed"</span> +<span id="L34620" class="LineNr">34620 </span> 0x12/imm32/size +<span id="L34621" class="LineNr">34621 </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="L34622" class="LineNr">34622 </span> +<span id="L34623" class="LineNr">34623 </span><span class="subxComment"># string literals for SubX instructions</span> +<span id="L34624" class="LineNr">34624 </span><span class="subxMinorFunction">_string_01_add_to</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34625" class="LineNr">34625 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34626" class="LineNr">34626 </span> <span class="subxComment"># "01/add-to"</span> +<span id="L34627" class="LineNr">34627 </span> 0x9/imm32/size +<span id="L34628" class="LineNr">34628 </span> 0x30/0 0x31/1 0x2f/slash 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o +<span id="L34629" class="LineNr">34629 </span><span class="subxMinorFunction">_string_03_add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34630" class="LineNr">34630 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34631" class="LineNr">34631 </span> <span class="subxComment"># "03/add"</span> +<span id="L34632" class="LineNr">34632 </span> 0x6/imm32/size +<span id="L34633" class="LineNr">34633 </span> 0x30/0 0x33/3 0x2f/slash 0x61/a 0x64/d 0x64/d +<span id="L34634" class="LineNr">34634 </span><span class="subxMinorFunction">_string_05_add_to_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34635" class="LineNr">34635 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34636" class="LineNr">34636 </span> <span class="subxComment"># "05/add-to-eax"</span> +<span id="L34637" class="LineNr">34637 </span> 0xd/imm32/size +<span id="L34638" class="LineNr">34638 </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="L34639" class="LineNr">34639 </span><span class="subxMinorFunction">_string_09_or_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34640" class="LineNr">34640 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34641" class="LineNr">34641 </span> <span class="subxComment"># "09/or-with"</span> +<span id="L34642" class="LineNr">34642 </span> 0xa/imm32/size +<span id="L34643" class="LineNr">34643 </span> 0x30/0 0x39/9 0x2f/slash 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L34644" class="LineNr">34644 </span><span class="subxMinorFunction">_string_0b_or</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34645" class="LineNr">34645 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34646" class="LineNr">34646 </span> <span class="subxComment"># "0b/or"</span> +<span id="L34647" class="LineNr">34647 </span> 0x5/imm32/size +<span id="L34648" class="LineNr">34648 </span> 0x30/0 0x62/b 0x2f/slash 0x6f/o 0x72/r +<span id="L34649" class="LineNr">34649 </span><span class="subxMinorFunction">_string_0d_or_with_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34650" class="LineNr">34650 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34651" class="LineNr">34651 </span> <span class="subxComment"># "0d/or-with-eax"</span> +<span id="L34652" class="LineNr">34652 </span> 0xe/imm32/size +<span id="L34653" class="LineNr">34653 </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="L34654" class="LineNr">34654 </span><span class="subxMinorFunction">_string_0f_80_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34655" class="LineNr">34655 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34656" class="LineNr">34656 </span> <span class="subxComment"># "0f 80/jump-if-overflow"</span> +<span id="L34657" class="LineNr">34657 </span> 0x16/imm32/size +<span id="L34658" class="LineNr">34658 </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="L34659" class="LineNr">34659 </span><span class="subxMinorFunction">_string_0f_80_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34660" class="LineNr">34660 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34661" class="LineNr">34661 </span> <span class="subxComment"># "0f 80/jump-if-overflow break/disp32"</span> +<span id="L34662" class="LineNr">34662 </span> 0x23/imm32/size +<span id="L34663" class="LineNr">34663 </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="L34664" class="LineNr">34664 </span><span class="subxMinorFunction">_string_0f_80_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34665" class="LineNr">34665 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34666" class="LineNr">34666 </span> <span class="subxComment"># "0f 80/jump-if-overflow loop/disp32"</span> +<span id="L34667" class="LineNr">34667 </span> 0x22/imm32/size +<span id="L34668" class="LineNr">34668 </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="L34669" class="LineNr">34669 </span><span class="subxMinorFunction">_string_0f_81_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34670" class="LineNr">34670 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34671" class="LineNr">34671 </span> <span class="subxComment"># "0f 81/jump-if-not-overflow"</span> +<span id="L34672" class="LineNr">34672 </span> 0x1a/imm32/size +<span id="L34673" class="LineNr">34673 </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="L34674" class="LineNr">34674 </span><span class="subxMinorFunction">_string_0f_81_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34675" class="LineNr">34675 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34676" class="LineNr">34676 </span> <span class="subxComment"># "0f 81/jump-if-not-overflow break/disp32"</span> +<span id="L34677" class="LineNr">34677 </span> 0x27/imm32/size +<span id="L34678" class="LineNr">34678 </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="L34679" class="LineNr">34679 </span><span class="subxMinorFunction">_string_0f_81_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34680" class="LineNr">34680 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34681" class="LineNr">34681 </span> <span class="subxComment"># "0f 81/jump-if-not-overflow loop/disp32"</span> +<span id="L34682" class="LineNr">34682 </span> 0x26/imm32/size +<span id="L34683" class="LineNr">34683 </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="L34684" class="LineNr">34684 </span><span class="subxMinorFunction">_string_0f_82_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34685" class="LineNr">34685 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34686" class="LineNr">34686 </span> <span class="subxComment"># "0f 82/jump-if-addr<"</span> +<span id="L34687" class="LineNr">34687 </span> 0x13/imm32/size +<span id="L34688" class="LineNr">34688 </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="L34689" class="LineNr">34689 </span><span class="subxMinorFunction">_string_0f_82_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34690" class="LineNr">34690 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34691" class="LineNr">34691 </span> <span class="subxComment"># "0f 82/jump-if-addr< break/disp32"</span> +<span id="L34692" class="LineNr">34692 </span> 0x20/imm32/size +<span id="L34693" class="LineNr">34693 </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="L34694" class="LineNr">34694 </span><span class="subxMinorFunction">_string_0f_82_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34695" class="LineNr">34695 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34696" class="LineNr">34696 </span> <span class="subxComment"># "0f 82/jump-if-addr< loop/disp32"</span> +<span id="L34697" class="LineNr">34697 </span> 0x1f/imm32/size +<span id="L34698" class="LineNr">34698 </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="L34699" class="LineNr">34699 </span><span class="subxMinorFunction">_string_0f_83_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34700" class="LineNr">34700 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34701" class="LineNr">34701 </span> <span class="subxComment"># "0f 83/jump-if-addr>="</span> +<span id="L34702" class="LineNr">34702 </span> 0x14/imm32/size +<span id="L34703" class="LineNr">34703 </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="L34704" class="LineNr">34704 </span><span class="subxMinorFunction">_string_0f_83_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34705" class="LineNr">34705 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34706" class="LineNr">34706 </span> <span class="subxComment"># "0f 83/jump-if-addr>= break/disp32"</span> +<span id="L34707" class="LineNr">34707 </span> 0x21/imm32/size +<span id="L34708" class="LineNr">34708 </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="L34709" class="LineNr">34709 </span><span class="subxMinorFunction">_string_0f_83_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34710" class="LineNr">34710 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34711" class="LineNr">34711 </span> <span class="subxComment"># "0f 83/jump-if-addr>= loop/disp32"</span> +<span id="L34712" class="LineNr">34712 </span> 0x20/imm32/size +<span id="L34713" class="LineNr">34713 </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="L34714" class="LineNr">34714 </span><span class="subxMinorFunction">_string_0f_84_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34715" class="LineNr">34715 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34716" class="LineNr">34716 </span> <span class="subxComment"># "0f 84/jump-if-="</span> +<span id="L34717" class="LineNr">34717 </span> 0xf/imm32/size +<span id="L34718" class="LineNr">34718 </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="L34719" class="LineNr">34719 </span><span class="subxMinorFunction">_string_0f_84_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34720" class="LineNr">34720 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34721" class="LineNr">34721 </span> <span class="subxComment"># "0f 84/jump-if-= break/disp32"</span> +<span id="L34722" class="LineNr">34722 </span> 0x1c/imm32/size +<span id="L34723" class="LineNr">34723 </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="L34724" class="LineNr">34724 </span><span class="subxMinorFunction">_string_0f_84_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34725" class="LineNr">34725 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34726" class="LineNr">34726 </span> <span class="subxComment"># "0f 84/jump-if-= loop/disp32"</span> +<span id="L34727" class="LineNr">34727 </span> 0x1a/imm32/size +<span id="L34728" class="LineNr">34728 </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="L34729" class="LineNr">34729 </span><span class="subxMinorFunction">_string_0f_85_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34730" class="LineNr">34730 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34731" class="LineNr">34731 </span> <span class="subxComment"># "0f 85/jump-if-!="</span> +<span id="L34732" class="LineNr">34732 </span> 0x10/imm32/size +<span id="L34733" class="LineNr">34733 </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="L34734" class="LineNr">34734 </span><span class="subxMinorFunction">_string_0f_85_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34735" class="LineNr">34735 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34736" class="LineNr">34736 </span> <span class="subxComment"># "0f 85/jump-if-!= break/disp32"</span> +<span id="L34737" class="LineNr">34737 </span> 0x1d/imm32/size +<span id="L34738" class="LineNr">34738 </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="L34739" class="LineNr">34739 </span><span class="subxMinorFunction">_string_0f_85_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34740" class="LineNr">34740 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34741" class="LineNr">34741 </span> <span class="subxComment"># "0f 85/jump-if-!= loop/disp32"</span> +<span id="L34742" class="LineNr">34742 </span> 0x1c/imm32/size +<span id="L34743" class="LineNr">34743 </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="L34744" class="LineNr">34744 </span><span class="subxMinorFunction">_string_0f_86_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34745" class="LineNr">34745 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34746" class="LineNr">34746 </span> <span class="subxComment"># "0f 86/jump-if-addr<="</span> +<span id="L34747" class="LineNr">34747 </span> 0x14/imm32/size +<span id="L34748" class="LineNr">34748 </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="L34749" class="LineNr">34749 </span><span class="subxMinorFunction">_string_0f_86_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34750" class="LineNr">34750 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34751" class="LineNr">34751 </span> <span class="subxComment"># "0f 86/jump-if-addr<= break/disp32"</span> +<span id="L34752" class="LineNr">34752 </span> 0x21/imm32/size +<span id="L34753" class="LineNr">34753 </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="L34754" class="LineNr">34754 </span><span class="subxMinorFunction">_string_0f_86_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34755" class="LineNr">34755 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34756" class="LineNr">34756 </span> <span class="subxComment"># "0f 86/jump-if-addr<= loop/disp32"</span> +<span id="L34757" class="LineNr">34757 </span> 0x20/imm32/size +<span id="L34758" class="LineNr">34758 </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="L34759" class="LineNr">34759 </span><span class="subxMinorFunction">_string_0f_87_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34760" class="LineNr">34760 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34761" class="LineNr">34761 </span> <span class="subxComment"># "0f 87/jump-if-addr>"</span> +<span id="L34762" class="LineNr">34762 </span> 0x13/imm32/size +<span id="L34763" class="LineNr">34763 </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="L34764" class="LineNr">34764 </span><span class="subxMinorFunction">_string_0f_87_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34765" class="LineNr">34765 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34766" class="LineNr">34766 </span> <span class="subxComment"># "0f 87/jump-if-addr> break/disp32"</span> +<span id="L34767" class="LineNr">34767 </span> 0x20/imm32/size +<span id="L34768" class="LineNr">34768 </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="L34769" class="LineNr">34769 </span><span class="subxMinorFunction">_string_0f_87_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34770" class="LineNr">34770 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34771" class="LineNr">34771 </span> <span class="subxComment"># "0f 87/jump-if-addr> loop/disp32"</span> +<span id="L34772" class="LineNr">34772 </span> 0x1f/imm32/size +<span id="L34773" class="LineNr">34773 </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="L34774" class="LineNr">34774 </span><span class="subxMinorFunction">_string_0f_8c_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34775" class="LineNr">34775 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34776" class="LineNr">34776 </span> <span class="subxComment"># "0f 8c/jump-if-<"</span> +<span id="L34777" class="LineNr">34777 </span> 0xf/imm32/size +<span id="L34778" class="LineNr">34778 </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="L34779" class="LineNr">34779 </span><span class="subxMinorFunction">_string_0f_8c_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34780" class="LineNr">34780 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34781" class="LineNr">34781 </span> <span class="subxComment"># "0f 8c/jump-if-< break/disp32"</span> +<span id="L34782" class="LineNr">34782 </span> 0x1c/imm32/size +<span id="L34783" class="LineNr">34783 </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="L34784" class="LineNr">34784 </span><span class="subxMinorFunction">_string_0f_8c_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34785" class="LineNr">34785 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34786" class="LineNr">34786 </span> <span class="subxComment"># "0f 8c/jump-if-< loop/disp32"</span> +<span id="L34787" class="LineNr">34787 </span> 0x1b/imm32/size +<span id="L34788" class="LineNr">34788 </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="L34789" class="LineNr">34789 </span><span class="subxMinorFunction">_string_0f_8d_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34790" class="LineNr">34790 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34791" class="LineNr">34791 </span> <span class="subxComment"># "0f 8d/jump-if->="</span> +<span id="L34792" class="LineNr">34792 </span> 0x10/imm32/size +<span id="L34793" class="LineNr">34793 </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="L34794" class="LineNr">34794 </span><span class="subxMinorFunction">_string_0f_8d_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34795" class="LineNr">34795 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34796" class="LineNr">34796 </span> <span class="subxComment"># "0f 8d/jump-if->= break/disp32"</span> +<span id="L34797" class="LineNr">34797 </span> 0x1d/imm32/size +<span id="L34798" class="LineNr">34798 </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="L34799" class="LineNr">34799 </span><span class="subxMinorFunction">_string_0f_8d_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34800" class="LineNr">34800 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34801" class="LineNr">34801 </span> <span class="subxComment"># "0f 8d/jump-if->= loop/disp32"</span> +<span id="L34802" class="LineNr">34802 </span> 0x1c/imm32/size +<span id="L34803" class="LineNr">34803 </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="L34804" class="LineNr">34804 </span><span class="subxMinorFunction">_string_0f_8e_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34805" class="LineNr">34805 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34806" class="LineNr">34806 </span> <span class="subxComment"># "0f 8e/jump-if-<="</span> +<span id="L34807" class="LineNr">34807 </span> 0x10/imm32/size +<span id="L34808" class="LineNr">34808 </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="L34809" class="LineNr">34809 </span><span class="subxMinorFunction">_string_0f_8e_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34810" class="LineNr">34810 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34811" class="LineNr">34811 </span> <span class="subxComment"># "0f 8e/jump-if-<= break/disp32"</span> +<span id="L34812" class="LineNr">34812 </span> 0x1d/imm32/size +<span id="L34813" class="LineNr">34813 </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="L34814" class="LineNr">34814 </span><span class="subxMinorFunction">_string_0f_8e_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34815" class="LineNr">34815 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34816" class="LineNr">34816 </span> <span class="subxComment"># "0f 8e/jump-if-<= loop/disp32"</span> +<span id="L34817" class="LineNr">34817 </span> 0x1c/imm32/size +<span id="L34818" class="LineNr">34818 </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="L34819" class="LineNr">34819 </span><span class="subxMinorFunction">_string_0f_8f_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34820" class="LineNr">34820 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34821" class="LineNr">34821 </span> <span class="subxComment"># "0f 8f/jump-if->"</span> +<span id="L34822" class="LineNr">34822 </span> 0xf/imm32/size +<span id="L34823" class="LineNr">34823 </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="L34824" class="LineNr">34824 </span><span class="subxMinorFunction">_string_0f_8f_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34825" class="LineNr">34825 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34826" class="LineNr">34826 </span> <span class="subxComment"># "0f 8f/jump-if-> break/disp32"</span> +<span id="L34827" class="LineNr">34827 </span> 0x1c/imm32/size +<span id="L34828" class="LineNr">34828 </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="L34829" class="LineNr">34829 </span><span class="subxMinorFunction">_string_0f_8f_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34830" class="LineNr">34830 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34831" class="LineNr">34831 </span> <span class="subxComment"># "0f 8f/jump-if-> loop/disp32"</span> +<span id="L34832" class="LineNr">34832 </span> 0x1b/imm32/size +<span id="L34833" class="LineNr">34833 </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="L34834" class="LineNr">34834 </span><span class="subxMinorFunction">_string_0f_af_multiply</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34835" class="LineNr">34835 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34836" class="LineNr">34836 </span> <span class="subxComment"># "0f af/multiply"</span> +<span id="L34837" class="LineNr">34837 </span> 0xe/imm32/size +<span id="L34838" class="LineNr">34838 </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="L34839" class="LineNr">34839 </span><span class="subxMinorFunction">_string_f3_0f_2a_convert_to_float</span>: +<span id="L34840" class="LineNr">34840 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34841" class="LineNr">34841 </span> <span class="subxComment"># "f3 0f 2a/convert-to-float"</span> +<span id="L34842" class="LineNr">34842 </span> 0x19/imm32/size +<span id="L34843" class="LineNr">34843 </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="L34844" class="LineNr">34844 </span><span class="subxMinorFunction">_string_f3_0f_2d_convert_to_int</span>: +<span id="L34845" class="LineNr">34845 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34846" class="LineNr">34846 </span> <span class="subxComment"># "f3 0f 2d/convert-to-int"</span> +<span id="L34847" class="LineNr">34847 </span> 0x17/imm32/size +<span id="L34848" class="LineNr">34848 </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="L34849" class="LineNr">34849 </span><span class="subxMinorFunction">_string_f3_0f_2c_truncate_to_int</span>: +<span id="L34850" class="LineNr">34850 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34851" class="LineNr">34851 </span> <span class="subxComment"># "f3 0f 2c/truncate-to-int"</span> +<span id="L34852" class="LineNr">34852 </span> 0x18/imm32/size +<span id="L34853" class="LineNr">34853 </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="L34854" class="LineNr">34854 </span><span class="subxMinorFunction">_string_f3_0f_58_add</span>: +<span id="L34855" class="LineNr">34855 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34856" class="LineNr">34856 </span> <span class="subxComment"># "f3 0f 58/add"</span> +<span id="L34857" class="LineNr">34857 </span> 0xc/imm32/size +<span id="L34858" class="LineNr">34858 </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="L34859" class="LineNr">34859 </span><span class="subxMinorFunction">_string_f3_0f_5c_subtract</span>: +<span id="L34860" class="LineNr">34860 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34861" class="LineNr">34861 </span> <span class="subxComment"># "f3 0f 5c/subtract"</span> +<span id="L34862" class="LineNr">34862 </span> 0x11/imm32/size +<span id="L34863" class="LineNr">34863 </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="L34864" class="LineNr">34864 </span><span class="subxMinorFunction">_string_f3_0f_59_multiply</span>: +<span id="L34865" class="LineNr">34865 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34866" class="LineNr">34866 </span> <span class="subxComment"># "f3 0f 59/multiply"</span> +<span id="L34867" class="LineNr">34867 </span> 0x11/imm32/size +<span id="L34868" class="LineNr">34868 </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="L34869" class="LineNr">34869 </span><span class="subxMinorFunction">_string_f3_0f_5e_divide</span>: +<span id="L34870" class="LineNr">34870 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34871" class="LineNr">34871 </span> <span class="subxComment"># "f3 0f 5e/divide"</span> +<span id="L34872" class="LineNr">34872 </span> 0xf/imm32/size +<span id="L34873" class="LineNr">34873 </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="L34874" class="LineNr">34874 </span><span class="subxMinorFunction">_string_f3_0f_53_reciprocal</span>: +<span id="L34875" class="LineNr">34875 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34876" class="LineNr">34876 </span> <span class="subxComment"># "f3 0f 53/reciprocal"</span> +<span id="L34877" class="LineNr">34877 </span> 0x13/imm32/size +<span id="L34878" class="LineNr">34878 </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="L34879" class="LineNr">34879 </span><span class="subxMinorFunction">_string_f3_0f_51_square_root</span>: +<span id="L34880" class="LineNr">34880 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34881" class="LineNr">34881 </span> <span class="subxComment"># "f3 0f 51/square-root"</span> +<span id="L34882" class="LineNr">34882 </span> 0x14/imm32/size +<span id="L34883" class="LineNr">34883 </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="L34884" class="LineNr">34884 </span><span class="subxMinorFunction">_string_f3_0f_52_inverse_square_root</span>: +<span id="L34885" class="LineNr">34885 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34886" class="LineNr">34886 </span> <span class="subxComment"># "f3 0f 52/inverse-square-root"</span> +<span id="L34887" class="LineNr">34887 </span> 0x1c/imm32/size +<span id="L34888" class="LineNr">34888 </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="L34889" class="LineNr">34889 </span><span class="subxMinorFunction">_string_f3_0f_5d_min</span>: +<span id="L34890" class="LineNr">34890 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34891" class="LineNr">34891 </span> <span class="subxComment"># "f3 0f 5d/min"</span> +<span id="L34892" class="LineNr">34892 </span> 0xc/imm32/size +<span id="L34893" class="LineNr">34893 </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="L34894" class="LineNr">34894 </span><span class="subxMinorFunction">_string_f3_0f_5f_max</span>: +<span id="L34895" class="LineNr">34895 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34896" class="LineNr">34896 </span> <span class="subxComment"># "f3 0f 5f/max"</span> +<span id="L34897" class="LineNr">34897 </span> 0xc/imm32/size +<span id="L34898" class="LineNr">34898 </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="L34899" class="LineNr">34899 </span><span class="subxMinorFunction">_string_f3_0f_10_copy</span>: +<span id="L34900" class="LineNr">34900 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34901" class="LineNr">34901 </span> <span class="subxComment"># "f3 0f 10/copy"</span> +<span id="L34902" class="LineNr">34902 </span> 0xd/imm32/size +<span id="L34903" class="LineNr">34903 </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="L34904" class="LineNr">34904 </span><span class="subxMinorFunction">_string_f3_0f_11_copy</span>: +<span id="L34905" class="LineNr">34905 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34906" class="LineNr">34906 </span> <span class="subxComment"># "f3 0f 11/copy"</span> +<span id="L34907" class="LineNr">34907 </span> 0xd/imm32/size +<span id="L34908" class="LineNr">34908 </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="L34909" class="LineNr">34909 </span><span class="subxMinorFunction">_string_0f_2f_compare</span>: +<span id="L34910" class="LineNr">34910 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34911" class="LineNr">34911 </span> <span class="subxComment"># "0f 2f/compare"</span> +<span id="L34912" class="LineNr">34912 </span> 0xd/imm32/size +<span id="L34913" class="LineNr">34913 </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="L34914" class="LineNr">34914 </span><span class="subxMinorFunction">_string_21_and_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34915" class="LineNr">34915 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34916" class="LineNr">34916 </span> <span class="subxComment"># "21/and-with"</span> +<span id="L34917" class="LineNr">34917 </span> 0xb/imm32/size +<span id="L34918" class="LineNr">34918 </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="L34919" class="LineNr">34919 </span><span class="subxMinorFunction">_string_23_and</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34920" class="LineNr">34920 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34921" class="LineNr">34921 </span> <span class="subxComment"># "23/and"</span> +<span id="L34922" class="LineNr">34922 </span> 0x6/imm32/size +<span id="L34923" class="LineNr">34923 </span> 0x32/2 0x33/3 0x2f/slash 0x61/a 0x6e/n 0x64/d +<span id="L34924" class="LineNr">34924 </span><span class="subxMinorFunction">_string_25_and_with_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34925" class="LineNr">34925 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34926" class="LineNr">34926 </span> <span class="subxComment"># "25/and-with-eax"</span> +<span id="L34927" class="LineNr">34927 </span> 0xf/imm32/size +<span id="L34928" class="LineNr">34928 </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="L34929" class="LineNr">34929 </span><span class="subxMinorFunction">_string_29_subtract_from</span>: <span class="subxComment"># (payload array byte)</span> <span id="L34930" class="LineNr">34930 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34931" class="LineNr">34931 </span> 0/imm32/name -<span id="L34932" class="LineNr">34932 </span> 0/imm32/name -<span id="L34933" class="LineNr">34933 </span> 0x11/imm32/alloc-id:fake -<span id="L34934" class="LineNr">34934 </span> <span class="SpecialChar"><a href='mu.subx.html#L35253'>Type-int</a></span>/imm32 -<span id="L34935" class="LineNr">34935 </span> 1/imm32/some-block-depth -<span id="L34936" class="LineNr">34936 </span> 1/imm32/some-stack-offset -<span id="L34937" class="LineNr">34937 </span> 0/imm32/no-register -<span id="L34938" class="LineNr">34938 </span> 0/imm32/no-register -<span id="L34939" class="LineNr">34939 </span> -<span id="L34940" class="LineNr">34940 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> -<span id="L34941" class="LineNr">34941 </span><span class="SpecialChar">Single-byte-var-in-mem</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#L34949'>Byte-var-in-mem</a></span>/imm32 -<span id="L34945" class="LineNr">34945 </span> 0/imm32/next -<span id="L34946" class="LineNr">34946 </span> 0/imm32/next -<span id="L34947" class="LineNr">34947 </span> -<span id="L34948" class="LineNr">34948 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> -<span id="L34949" class="LineNr">34949 </span><span class="SpecialChar">Byte-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L34931" class="LineNr">34931 </span> <span class="subxComment"># "29/subtract-from"</span> +<span id="L34932" class="LineNr">34932 </span> 0x10/imm32/size +<span id="L34933" class="LineNr">34933 </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="L34934" class="LineNr">34934 </span><span class="subxMinorFunction">_string_2b_subtract</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34935" class="LineNr">34935 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34936" class="LineNr">34936 </span> <span class="subxComment"># "2b/subtract"</span> +<span id="L34937" class="LineNr">34937 </span> 0xb/imm32/size +<span id="L34938" class="LineNr">34938 </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="L34939" class="LineNr">34939 </span><span class="subxMinorFunction">_string_2d_subtract_from_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34940" class="LineNr">34940 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34941" class="LineNr">34941 </span> <span class="subxComment"># "2d/subtract-from-eax"</span> +<span id="L34942" class="LineNr">34942 </span> 0x14/imm32/size +<span id="L34943" class="LineNr">34943 </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="L34944" class="LineNr">34944 </span><span class="subxMinorFunction">_string_31_xor_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34945" class="LineNr">34945 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34946" class="LineNr">34946 </span> <span class="subxComment"># "31/xor-with"</span> +<span id="L34947" class="LineNr">34947 </span> 0xb/imm32/size +<span id="L34948" class="LineNr">34948 </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="L34949" class="LineNr">34949 </span><span class="subxMinorFunction">_string_33_xor</span>: <span class="subxComment"># (payload array byte)</span> <span id="L34950" class="LineNr">34950 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34951" class="LineNr">34951 </span> 0/imm32/name -<span id="L34952" class="LineNr">34952 </span> 0/imm32/name -<span id="L34953" class="LineNr">34953 </span> 0x11/imm32/alloc-id:fake -<span id="L34954" class="LineNr">34954 </span> <span class="SpecialChar"><a href='mu.subx.html#L35285'>Type-byte</a></span>/imm32 -<span id="L34955" class="LineNr">34955 </span> 1/imm32/some-block-depth -<span id="L34956" class="LineNr">34956 </span> 1/imm32/some-stack-offset -<span id="L34957" class="LineNr">34957 </span> 0/imm32/no-register -<span id="L34958" class="LineNr">34958 </span> 0/imm32/no-register -<span id="L34959" class="LineNr">34959 </span> -<span id="L34960" class="LineNr">34960 </span><span class="SpecialChar">Two-args-int-stack-int-reg</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34961" class="LineNr">34961 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34962" class="LineNr">34962 </span> 0x11/imm32/alloc-id:fake -<span id="L34963" class="LineNr">34963 </span> <span class="SpecialChar"><a href='mu.subx.html#L34929'>Int-var-in-mem</a></span>/imm32 -<span id="L34964" class="LineNr">34964 </span> 0x11/imm32/alloc-id:fake -<span id="L34965" class="LineNr">34965 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/next -<span id="L34966" class="LineNr">34966 </span> -<span id="L34967" class="LineNr">34967 </span><span class="SpecialChar">Two-int-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34968" class="LineNr">34968 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34969" class="LineNr">34969 </span> 0x11/imm32/alloc-id:fake -<span id="L34970" class="LineNr">34970 </span> <span class="SpecialChar"><a href='mu.subx.html#L35052'>Int-var-in-some-register</a></span>/imm32 -<span id="L34971" class="LineNr">34971 </span> 0x11/imm32/alloc-id:fake -<span id="L34972" class="LineNr">34972 </span> <span class="SpecialChar"><a href='mu.subx.html#L35031'>Single-int-var-in-some-register</a></span>/imm32/next -<span id="L34973" class="LineNr">34973 </span> -<span id="L34974" class="LineNr">34974 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> -<span id="L34975" class="LineNr">34975 </span><span class="SpecialChar">Two-args-byte-stack-byte-reg</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34976" class="LineNr">34976 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34977" class="LineNr">34977 </span> 0x11/imm32/alloc-id:fake -<span id="L34978" class="LineNr">34978 </span> <span class="SpecialChar"><a href='mu.subx.html#L34949'>Byte-var-in-mem</a></span>/imm32 -<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#L35045'>Single-byte-var-in-some-register</a></span>/imm32/next -<span id="L34981" class="LineNr">34981 </span> -<span id="L34982" class="LineNr">34982 </span><span class="SpecialChar">Two-args-int-reg-int-stack</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34983" class="LineNr">34983 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34984" class="LineNr">34984 </span> 0x11/imm32/alloc-id:fake -<span id="L34985" class="LineNr">34985 </span> <span class="SpecialChar"><a href='mu.subx.html#L35052'>Int-var-in-some-register</a></span>/imm32 -<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#L34922'>Single-int-var-in-mem</a></span>/imm32/next -<span id="L34988" class="LineNr">34988 </span> -<span id="L34989" class="LineNr">34989 </span><span class="SpecialChar">Two-args-int-eax-int-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34951" class="LineNr">34951 </span> <span class="subxComment"># "33/xor"</span> +<span id="L34952" class="LineNr">34952 </span> 0x6/imm32/size +<span id="L34953" class="LineNr">34953 </span> 0x33/3 0x33/3 0x2f/slash 0x78/x 0x6f/o 0x72/r +<span id="L34954" class="LineNr">34954 </span><span class="subxMinorFunction">_string_35_xor_with_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34955" class="LineNr">34955 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34956" class="LineNr">34956 </span> <span class="subxComment"># "35/xor-with-eax"</span> +<span id="L34957" class="LineNr">34957 </span> 0xf/imm32/size +<span id="L34958" class="LineNr">34958 </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="L34959" class="LineNr">34959 </span><span class="subxMinorFunction">_string_39_compare-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34960" class="LineNr">34960 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34961" class="LineNr">34961 </span> <span class="subxComment"># "39/compare->"</span> +<span id="L34962" class="LineNr">34962 </span> 0xc/imm32/size +<span id="L34963" class="LineNr">34963 </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="L34964" class="LineNr">34964 </span><span class="subxMinorFunction">_string_3b_compare<-</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34965" class="LineNr">34965 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34966" class="LineNr">34966 </span> <span class="subxComment"># "3b/compare<-"</span> +<span id="L34967" class="LineNr">34967 </span> 0xc/imm32/size +<span id="L34968" class="LineNr">34968 </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="L34969" class="LineNr">34969 </span><span class="subxMinorFunction">_string_3d_compare_eax_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34970" class="LineNr">34970 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34971" class="LineNr">34971 </span> <span class="subxComment"># "3d/compare-eax-with"</span> +<span id="L34972" class="LineNr">34972 </span> 0x13/imm32/size +<span id="L34973" class="LineNr">34973 </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="L34974" class="LineNr">34974 </span><span class="subxMinorFunction">_string_40_increment_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34975" class="LineNr">34975 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34976" class="LineNr">34976 </span> <span class="subxComment"># "40/increment-eax"</span> +<span id="L34977" class="LineNr">34977 </span> 0x10/imm32/size +<span id="L34978" class="LineNr">34978 </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="L34979" class="LineNr">34979 </span><span class="subxMinorFunction">_string_41_increment_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34980" class="LineNr">34980 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34981" class="LineNr">34981 </span> <span class="subxComment"># "41/increment-ecx"</span> +<span id="L34982" class="LineNr">34982 </span> 0x10/imm32/size +<span id="L34983" class="LineNr">34983 </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="L34984" class="LineNr">34984 </span><span class="subxMinorFunction">_string_42_increment_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34985" class="LineNr">34985 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34986" class="LineNr">34986 </span> <span class="subxComment"># "42/increment-edx"</span> +<span id="L34987" class="LineNr">34987 </span> 0x10/imm32/size +<span id="L34988" class="LineNr">34988 </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="L34989" class="LineNr">34989 </span><span class="subxMinorFunction">_string_43_increment_ebx</span>: <span class="subxComment"># (payload array byte)</span> <span id="L34990" class="LineNr">34990 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34991" class="LineNr">34991 </span> 0x11/imm32/alloc-id:fake -<span id="L34992" class="LineNr">34992 </span> <span class="SpecialChar"><a href='mu.subx.html#L35098'>Int-var-in-eax</a></span>/imm32 -<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#L35199'>Single-lit-var</a></span>/imm32/next -<span id="L34995" class="LineNr">34995 </span> -<span id="L34996" class="LineNr">34996 </span><span class="SpecialChar">Int-var-and-literal</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34997" class="LineNr">34997 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34998" class="LineNr">34998 </span> 0x11/imm32/alloc-id:fake -<span id="L34999" class="LineNr">34999 </span> <span class="SpecialChar"><a href='mu.subx.html#L34929'>Int-var-in-mem</a></span>/imm32 -<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#L35199'>Single-lit-var</a></span>/imm32/next -<span id="L35002" class="LineNr">35002 </span> -<span id="L35003" class="LineNr">35003 </span><span class="SpecialChar">Int-var-in-register-and-literal</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35004" class="LineNr">35004 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35005" class="LineNr">35005 </span> 0x11/imm32/alloc-id:fake -<span id="L35006" class="LineNr">35006 </span> <span class="SpecialChar"><a href='mu.subx.html#L35052'>Int-var-in-some-register</a></span>/imm32 -<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#L35199'>Single-lit-var</a></span>/imm32/next -<span id="L35009" class="LineNr">35009 </span> -<span id="L35010" class="LineNr">35010 </span><span class="SpecialChar">Two-float-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35011" class="LineNr">35011 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35012" class="LineNr">35012 </span> 0x11/imm32/alloc-id:fake -<span id="L35013" class="LineNr">35013 </span> <span class="SpecialChar"><a href='mu.subx.html#L35242'>Float-var-in-some-register</a></span>/imm32 -<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#L35235'>Single-float-var-in-some-register</a></span>/imm32/next -<span id="L35016" class="LineNr">35016 </span> -<span id="L35017" class="LineNr">35017 </span><span class="SpecialChar">Two-args-float-reg-float-stack</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35018" class="LineNr">35018 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35019" class="LineNr">35019 </span> 0x11/imm32/alloc-id:fake -<span id="L35020" class="LineNr">35020 </span> <span class="SpecialChar"><a href='mu.subx.html#L35242'>Float-var-in-some-register</a></span>/imm32 -<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#L35217'>Single-float-var-in-mem</a></span>/imm32/next -<span id="L35023" class="LineNr">35023 </span> -<span id="L35024" class="LineNr">35024 </span><span class="SpecialChar">Two-args-float-stack-float-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34991" class="LineNr">34991 </span> <span class="subxComment"># "43/increment-ebx"</span> +<span id="L34992" class="LineNr">34992 </span> 0x10/imm32/size +<span id="L34993" class="LineNr">34993 </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="L34994" class="LineNr">34994 </span><span class="subxMinorFunction">_string_46_increment_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34995" class="LineNr">34995 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34996" class="LineNr">34996 </span> <span class="subxComment"># "46/increment-esi"</span> +<span id="L34997" class="LineNr">34997 </span> 0x10/imm32/size +<span id="L34998" class="LineNr">34998 </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="L34999" class="LineNr">34999 </span><span class="subxMinorFunction">_string_47_increment_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35000" class="LineNr">35000 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35001" class="LineNr">35001 </span> <span class="subxComment"># "47/increment-edi"</span> +<span id="L35002" class="LineNr">35002 </span> 0x10/imm32/size +<span id="L35003" class="LineNr">35003 </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="L35004" class="LineNr">35004 </span><span class="subxMinorFunction">_string_48_decrement_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35005" class="LineNr">35005 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35006" class="LineNr">35006 </span> <span class="subxComment"># "48/decrement-eax"</span> +<span id="L35007" class="LineNr">35007 </span> 0x10/imm32/size +<span id="L35008" class="LineNr">35008 </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="L35009" class="LineNr">35009 </span><span class="subxMinorFunction">_string_49_decrement_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35010" class="LineNr">35010 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35011" class="LineNr">35011 </span> <span class="subxComment"># "49/decrement-ecx"</span> +<span id="L35012" class="LineNr">35012 </span> 0x10/imm32/size +<span id="L35013" class="LineNr">35013 </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="L35014" class="LineNr">35014 </span><span class="subxMinorFunction">_string_4a_decrement_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35015" class="LineNr">35015 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35016" class="LineNr">35016 </span> <span class="subxComment"># "4a/decrement-edx"</span> +<span id="L35017" class="LineNr">35017 </span> 0x10/imm32/size +<span id="L35018" class="LineNr">35018 </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="L35019" class="LineNr">35019 </span><span class="subxMinorFunction">_string_4b_decrement_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35020" class="LineNr">35020 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35021" class="LineNr">35021 </span> <span class="subxComment"># "4b/decrement-ebx"</span> +<span id="L35022" class="LineNr">35022 </span> 0x10/imm32/size +<span id="L35023" class="LineNr">35023 </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="L35024" class="LineNr">35024 </span><span class="subxMinorFunction">_string_4e_decrement_esi</span>: <span class="subxComment"># (payload array byte)</span> <span id="L35025" class="LineNr">35025 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35026" class="LineNr">35026 </span> 0x11/imm32/alloc-id:fake -<span id="L35027" class="LineNr">35027 </span> <span class="SpecialChar"><a href='mu.subx.html#L35224'>Float-var-in-mem</a></span>/imm32 -<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#L35235'>Single-float-var-in-some-register</a></span>/imm32/next -<span id="L35030" class="LineNr">35030 </span> -<span id="L35031" class="LineNr">35031 </span><span class="SpecialChar">Single-int-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35032" class="LineNr">35032 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35033" class="LineNr">35033 </span> 0x11/imm32/alloc-id:fake -<span id="L35034" class="LineNr">35034 </span> <span class="SpecialChar"><a href='mu.subx.html#L35052'>Int-var-in-some-register</a></span>/imm32 -<span id="L35035" class="LineNr">35035 </span> 0/imm32/next -<span id="L35036" class="LineNr">35036 </span> 0/imm32/next -<span id="L35037" class="LineNr">35037 </span> -<span id="L35038" class="LineNr">35038 </span><span class="SpecialChar">Single-addr-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35039" class="LineNr">35039 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35040" class="LineNr">35040 </span> 0x11/imm32/alloc-id:fake -<span id="L35041" class="LineNr">35041 </span> <span class="SpecialChar"><a href='mu.subx.html#L35069'>Addr-var-in-some-register</a></span>/imm32 -<span id="L35042" class="LineNr">35042 </span> 0/imm32/next -<span id="L35043" class="LineNr">35043 </span> 0/imm32/next -<span id="L35044" class="LineNr">35044 </span> -<span id="L35045" class="LineNr">35045 </span><span class="SpecialChar">Single-byte-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35046" class="LineNr">35046 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35047" class="LineNr">35047 </span> 0x11/imm32/alloc-id:fake -<span id="L35048" class="LineNr">35048 </span> <span class="SpecialChar"><a href='mu.subx.html#L35080'>Byte-var-in-some-register</a></span>/imm32 -<span id="L35049" class="LineNr">35049 </span> 0/imm32/next -<span id="L35050" class="LineNr">35050 </span> 0/imm32/next -<span id="L35051" class="LineNr">35051 </span> -<span id="L35052" class="LineNr">35052 </span><span class="SpecialChar">Int-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L35053" class="LineNr">35053 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35054" class="LineNr">35054 </span> 0/imm32/name -<span id="L35055" class="LineNr">35055 </span> 0/imm32/name -<span id="L35056" class="LineNr">35056 </span> 0x11/imm32/alloc-id:fake -<span id="L35057" class="LineNr">35057 </span> <span class="SpecialChar"><a href='mu.subx.html#L35253'>Type-int</a></span>/imm32 -<span id="L35058" class="LineNr">35058 </span> 1/imm32/some-block-depth -<span id="L35059" class="LineNr">35059 </span> 0/imm32/no-stack-offset -<span id="L35060" class="LineNr">35060 </span> 0x11/imm32/alloc-id:fake -<span id="L35061" class="LineNr">35061 </span> <span class="SpecialChar"><a href='mu.subx.html#L35063'>Any-register</a></span>/imm32 -<span id="L35062" class="LineNr">35062 </span> -<span id="L35063" class="LineNr">35063 </span><span class="SpecialChar">Any-register</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L35064" class="LineNr">35064 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35065" class="LineNr">35065 </span> 1/imm32/size -<span id="L35066" class="LineNr">35066 </span> <span class="subxComment"># data</span> -<span id="L35067" class="LineNr">35067 </span> 2a/asterisk -<span id="L35068" class="LineNr">35068 </span> -<span id="L35069" class="LineNr">35069 </span><span class="SpecialChar">Addr-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L35026" class="LineNr">35026 </span> <span class="subxComment"># "4e/decrement-esi"</span> +<span id="L35027" class="LineNr">35027 </span> 0x10/imm32/size +<span id="L35028" class="LineNr">35028 </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="L35029" class="LineNr">35029 </span><span class="subxMinorFunction">_string_4f_decrement_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35030" class="LineNr">35030 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35031" class="LineNr">35031 </span> <span class="subxComment"># "4f/decrement-edi"</span> +<span id="L35032" class="LineNr">35032 </span> 0x10/imm32/size +<span id="L35033" class="LineNr">35033 </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="L35034" class="LineNr">35034 </span><span class="subxMinorFunction">_string_81_subop_add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35035" class="LineNr">35035 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35036" class="LineNr">35036 </span> <span class="subxComment"># "81 0/subop/add"</span> +<span id="L35037" class="LineNr">35037 </span> 0xe/imm32/size +<span id="L35038" class="LineNr">35038 </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="L35039" class="LineNr">35039 </span><span class="subxMinorFunction">_string_81_subop_or</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35040" class="LineNr">35040 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35041" class="LineNr">35041 </span> <span class="subxComment"># "81 1/subop/or"</span> +<span id="L35042" class="LineNr">35042 </span> 0xd/imm32/size +<span id="L35043" class="LineNr">35043 </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="L35044" class="LineNr">35044 </span><span class="subxMinorFunction">_string_81_subop_and</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> <span class="subxComment"># "81 4/subop/and"</span> +<span id="L35047" class="LineNr">35047 </span> 0xe/imm32/size +<span id="L35048" class="LineNr">35048 </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="L35049" class="LineNr">35049 </span><span class="subxMinorFunction">_string_81_subop_subtract</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35050" class="LineNr">35050 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35051" class="LineNr">35051 </span> <span class="subxComment"># "81 5/subop/subtract"</span> +<span id="L35052" class="LineNr">35052 </span> 0x13/imm32/size +<span id="L35053" class="LineNr">35053 </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="L35054" class="LineNr">35054 </span><span class="subxMinorFunction">_string_81_subop_xor</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35055" class="LineNr">35055 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35056" class="LineNr">35056 </span> <span class="subxComment"># "81 6/subop/xor"</span> +<span id="L35057" class="LineNr">35057 </span> 0xe/imm32/size +<span id="L35058" class="LineNr">35058 </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="L35059" class="LineNr">35059 </span><span class="subxMinorFunction">_string_81_subop_compare</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35060" class="LineNr">35060 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35061" class="LineNr">35061 </span> <span class="subxComment"># "81 7/subop/compare"</span> +<span id="L35062" class="LineNr">35062 </span> 0x12/imm32/size +<span id="L35063" class="LineNr">35063 </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="L35064" class="LineNr">35064 </span><span class="subxMinorFunction">_string_89_<-</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35065" class="LineNr">35065 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35066" class="LineNr">35066 </span> <span class="subxComment"># "89/<-"</span> +<span id="L35067" class="LineNr">35067 </span> 0x5/imm32/size +<span id="L35068" class="LineNr">35068 </span> 0x38/8 0x39/9 0x2f/slash 0x3c/< 0x2d/dash +<span id="L35069" class="LineNr">35069 </span><span class="subxMinorFunction">_string_8b_-></span>: <span class="subxComment"># (payload array byte)</span> <span id="L35070" class="LineNr">35070 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35071" class="LineNr">35071 </span> 0/imm32/name -<span id="L35072" class="LineNr">35072 </span> 0/imm32/name -<span id="L35073" class="LineNr">35073 </span> 0x11/imm32/alloc-id:fake -<span id="L35074" class="LineNr">35074 </span> <span class="SpecialChar"><a href='mu.subx.html#L35269'>Type-addr</a></span>/imm32 -<span id="L35075" class="LineNr">35075 </span> 1/imm32/some-block-depth -<span id="L35076" class="LineNr">35076 </span> 0/imm32/no-stack-offset -<span id="L35077" class="LineNr">35077 </span> 0x11/imm32/alloc-id:fake -<span id="L35078" class="LineNr">35078 </span> <span class="SpecialChar"><a href='mu.subx.html#L35063'>Any-register</a></span>/imm32 -<span id="L35079" class="LineNr">35079 </span> -<span id="L35080" class="LineNr">35080 </span><span class="SpecialChar">Byte-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L35081" class="LineNr">35081 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35082" class="LineNr">35082 </span> 0/imm32/name -<span id="L35083" class="LineNr">35083 </span> 0/imm32/name -<span id="L35084" class="LineNr">35084 </span> 0x11/imm32/alloc-id:fake -<span id="L35085" class="LineNr">35085 </span> <span class="SpecialChar"><a href='mu.subx.html#L35285'>Type-byte</a></span>/imm32 -<span id="L35086" class="LineNr">35086 </span> 1/imm32/some-block-depth -<span id="L35087" class="LineNr">35087 </span> 0/imm32/no-stack-offset -<span id="L35088" class="LineNr">35088 </span> 0x11/imm32/alloc-id:fake -<span id="L35089" class="LineNr">35089 </span> <span class="SpecialChar"><a href='mu.subx.html#L35063'>Any-register</a></span>/imm32 -<span id="L35090" class="LineNr">35090 </span> -<span id="L35091" class="LineNr">35091 </span><span class="SpecialChar">Single-int-var-in-eax</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35092" class="LineNr">35092 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35093" class="LineNr">35093 </span> 0x11/imm32/alloc-id:fake -<span id="L35094" class="LineNr">35094 </span> <span class="SpecialChar"><a href='mu.subx.html#L35098'>Int-var-in-eax</a></span>/imm32 -<span id="L35095" class="LineNr">35095 </span> 0/imm32/next -<span id="L35096" class="LineNr">35096 </span> 0/imm32/next -<span id="L35097" class="LineNr">35097 </span> -<span id="L35098" class="LineNr">35098 </span><span class="SpecialChar">Int-var-in-eax</span>: -<span id="L35099" class="LineNr">35099 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35100" class="LineNr">35100 </span> 0/imm32/name -<span id="L35101" class="LineNr">35101 </span> 0/imm32/name -<span id="L35102" class="LineNr">35102 </span> 0x11/imm32/alloc-id:fake -<span id="L35103" class="LineNr">35103 </span> <span class="SpecialChar"><a href='mu.subx.html#L35253'>Type-int</a></span>/imm32 -<span id="L35104" class="LineNr">35104 </span> 1/imm32/some-block-depth -<span id="L35105" class="LineNr">35105 </span> 0/imm32/no-stack-offset -<span id="L35106" class="LineNr">35106 </span> 0x11/imm32/alloc-id:fake -<span id="L35107" class="LineNr">35107 </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="L35108" class="LineNr">35108 </span> -<span id="L35109" class="LineNr">35109 </span><span class="SpecialChar">Single-int-var-in-ecx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35071" class="LineNr">35071 </span> <span class="subxComment"># "8b/->"</span> +<span id="L35072" class="LineNr">35072 </span> 0x5/imm32/size +<span id="L35073" class="LineNr">35073 </span> 0x38/8 0x62/b 0x2f/slash 0x2d/dash 0x3e/> +<span id="L35074" class="LineNr">35074 </span><span class="subxMinorFunction">_string_8a_copy_byte</span>: +<span id="L35075" class="LineNr">35075 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35076" class="LineNr">35076 </span> <span class="subxComment"># "8a/byte->"</span> +<span id="L35077" class="LineNr">35077 </span> 0x9/imm32/size +<span id="L35078" class="LineNr">35078 </span> 0x38/8 0x61/a 0x2f/slash 0x62/b 0x79/y 0x74/t 0x65/e 0x2d/dash 0x3e/> +<span id="L35079" class="LineNr">35079 </span><span class="subxMinorFunction">_string_88_copy_byte</span>: +<span id="L35080" class="LineNr">35080 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35081" class="LineNr">35081 </span> <span class="subxComment"># "88/byte<-"</span> +<span id="L35082" class="LineNr">35082 </span> 0x9/imm32/size +<span id="L35083" class="LineNr">35083 </span> 0x38/8 0x38/8 0x2f/slash 0x62/b 0x79/y 0x74/t 0x65/e 0x3c/< 0x2d/- +<span id="L35084" class="LineNr">35084 </span><span class="subxMinorFunction">_string_8d_copy_address</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35085" class="LineNr">35085 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35086" class="LineNr">35086 </span> <span class="subxComment"># "8d/copy-address"</span> +<span id="L35087" class="LineNr">35087 </span> 0xf/imm32/size +<span id="L35088" class="LineNr">35088 </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="L35089" class="LineNr">35089 </span><span class="subxMinorFunction">_string_b8_copy_to_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35090" class="LineNr">35090 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35091" class="LineNr">35091 </span> <span class="subxComment"># "b8/copy-to-eax"</span> +<span id="L35092" class="LineNr">35092 </span> 0xe/imm32/size +<span id="L35093" class="LineNr">35093 </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="L35094" class="LineNr">35094 </span><span class="subxMinorFunction">_string_b9_copy_to_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35095" class="LineNr">35095 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35096" class="LineNr">35096 </span> <span class="subxComment"># "b9/copy-to-ecx"</span> +<span id="L35097" class="LineNr">35097 </span> 0xe/imm32/size +<span id="L35098" class="LineNr">35098 </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="L35099" class="LineNr">35099 </span><span class="subxMinorFunction">_string_ba_copy_to_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35100" class="LineNr">35100 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35101" class="LineNr">35101 </span> <span class="subxComment"># "ba/copy-to-edx"</span> +<span id="L35102" class="LineNr">35102 </span> 0xe/imm32/size +<span id="L35103" class="LineNr">35103 </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="L35104" class="LineNr">35104 </span><span class="subxMinorFunction">_string_bb_copy_to_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35105" class="LineNr">35105 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35106" class="LineNr">35106 </span> <span class="subxComment"># "bb/copy-to-ebx"</span> +<span id="L35107" class="LineNr">35107 </span> 0xe/imm32/size +<span id="L35108" class="LineNr">35108 </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="L35109" class="LineNr">35109 </span><span class="subxMinorFunction">_string_be_copy_to_esi</span>: <span class="subxComment"># (payload array byte)</span> <span id="L35110" class="LineNr">35110 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35111" class="LineNr">35111 </span> 0x11/imm32/alloc-id:fake -<span id="L35112" class="LineNr">35112 </span> <span class="SpecialChar"><a href='mu.subx.html#L35116'>Int-var-in-ecx</a></span>/imm32 -<span id="L35113" class="LineNr">35113 </span> 0/imm32/next -<span id="L35114" class="LineNr">35114 </span> 0/imm32/next -<span id="L35115" class="LineNr">35115 </span> -<span id="L35116" class="LineNr">35116 </span><span class="SpecialChar">Int-var-in-ecx</span>: -<span id="L35117" class="LineNr">35117 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35118" class="LineNr">35118 </span> 0/imm32/name -<span id="L35119" class="LineNr">35119 </span> 0/imm32/name -<span id="L35120" class="LineNr">35120 </span> 0x11/imm32/alloc-id:fake -<span id="L35121" class="LineNr">35121 </span> <span class="SpecialChar"><a href='mu.subx.html#L35253'>Type-int</a></span>/imm32 -<span id="L35122" class="LineNr">35122 </span> 1/imm32/some-block-depth -<span id="L35123" class="LineNr">35123 </span> 0/imm32/no-stack-offset -<span id="L35124" class="LineNr">35124 </span> 0x11/imm32/alloc-id:fake -<span id="L35125" class="LineNr">35125 </span> $Register-ecx/imm32/register -<span id="L35126" class="LineNr">35126 </span> -<span id="L35127" class="LineNr">35127 </span><span class="SpecialChar">Single-int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35128" class="LineNr">35128 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35129" class="LineNr">35129 </span> 0x11/imm32/alloc-id:fake -<span id="L35130" class="LineNr">35130 </span> <span class="SpecialChar"><a href='mu.subx.html#L35134'>Int-var-in-edx</a></span>/imm32 -<span id="L35131" class="LineNr">35131 </span> 0/imm32/next -<span id="L35132" class="LineNr">35132 </span> 0/imm32/next -<span id="L35133" class="LineNr">35133 </span> -<span id="L35134" class="LineNr">35134 </span><span class="SpecialChar">Int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35111" class="LineNr">35111 </span> <span class="subxComment"># "be/copy-to-esi"</span> +<span id="L35112" class="LineNr">35112 </span> 0xe/imm32/size +<span id="L35113" class="LineNr">35113 </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="L35114" class="LineNr">35114 </span><span class="subxMinorFunction">_string_bf_copy_to_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35115" class="LineNr">35115 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35116" class="LineNr">35116 </span> <span class="subxComment"># "bf/copy-to-edi"</span> +<span id="L35117" class="LineNr">35117 </span> 0xe/imm32/size +<span id="L35118" class="LineNr">35118 </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="L35119" class="LineNr">35119 </span><span class="subxMinorFunction">_string_c7_subop_copy</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35120" class="LineNr">35120 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35121" class="LineNr">35121 </span> <span class="subxComment"># "c7 0/subop/copy"</span> +<span id="L35122" class="LineNr">35122 </span> 0xf/imm32/size +<span id="L35123" class="LineNr">35123 </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="L35124" class="LineNr">35124 </span><span class="subxMinorFunction">_string_e9_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35125" class="LineNr">35125 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35126" class="LineNr">35126 </span> <span class="subxComment"># "e9/jump"</span> +<span id="L35127" class="LineNr">35127 </span> 0x7/imm32/size +<span id="L35128" class="LineNr">35128 </span> 0x65/e 0x39/9 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p +<span id="L35129" class="LineNr">35129 </span><span class="subxMinorFunction">_string_e9_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35130" class="LineNr">35130 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35131" class="LineNr">35131 </span> <span class="subxComment"># "e9/jump break/disp32"</span> +<span id="L35132" class="LineNr">35132 </span> 0x14/imm32/size +<span id="L35133" class="LineNr">35133 </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="L35134" class="LineNr">35134 </span><span class="subxMinorFunction">_string_e9_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> <span id="L35135" class="LineNr">35135 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35136" class="LineNr">35136 </span> 0/imm32/name -<span id="L35137" class="LineNr">35137 </span> 0/imm32/name -<span id="L35138" class="LineNr">35138 </span> 0x11/imm32/alloc-id:fake -<span id="L35139" class="LineNr">35139 </span> <span class="SpecialChar"><a href='mu.subx.html#L35253'>Type-int</a></span>/imm32 -<span id="L35140" class="LineNr">35140 </span> 1/imm32/some-block-depth -<span id="L35141" class="LineNr">35141 </span> 0/imm32/no-stack-offset -<span id="L35142" class="LineNr">35142 </span> 0x11/imm32/alloc-id:fake -<span id="L35143" class="LineNr">35143 </span> $Register-edx/imm32/register -<span id="L35144" class="LineNr">35144 </span> -<span id="L35145" class="LineNr">35145 </span><span class="SpecialChar">Single-int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35146" class="LineNr">35146 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35147" class="LineNr">35147 </span> 0x11/imm32/alloc-id:fake -<span id="L35148" class="LineNr">35148 </span> <span class="SpecialChar"><a href='mu.subx.html#L35152'>Int-var-in-ebx</a></span>/imm32 -<span id="L35149" class="LineNr">35149 </span> 0/imm32/next -<span id="L35150" class="LineNr">35150 </span> 0/imm32/next -<span id="L35151" class="LineNr">35151 </span> -<span id="L35152" class="LineNr">35152 </span><span class="SpecialChar">Int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35153" class="LineNr">35153 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35154" class="LineNr">35154 </span> 0/imm32/name -<span id="L35155" class="LineNr">35155 </span> 0/imm32/name -<span id="L35156" class="LineNr">35156 </span> 0x11/imm32/alloc-id:fake -<span id="L35157" class="LineNr">35157 </span> <span class="SpecialChar"><a href='mu.subx.html#L35253'>Type-int</a></span>/imm32 -<span id="L35158" class="LineNr">35158 </span> 1/imm32/some-block-depth -<span id="L35159" class="LineNr">35159 </span> 0/imm32/no-stack-offset -<span id="L35160" class="LineNr">35160 </span> 0x11/imm32/alloc-id:fake -<span id="L35161" class="LineNr">35161 </span> $Register-ebx/imm32/register -<span id="L35162" class="LineNr">35162 </span> -<span id="L35163" class="LineNr">35163 </span><span class="SpecialChar">Single-int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35164" class="LineNr">35164 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35165" class="LineNr">35165 </span> 0x11/imm32/alloc-id:fake -<span id="L35166" class="LineNr">35166 </span> <span class="SpecialChar"><a href='mu.subx.html#L35170'>Int-var-in-esi</a></span>/imm32 -<span id="L35167" class="LineNr">35167 </span> 0/imm32/next -<span id="L35168" class="LineNr">35168 </span> 0/imm32/next -<span id="L35169" class="LineNr">35169 </span> -<span id="L35170" class="LineNr">35170 </span><span class="SpecialChar">Int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35171" class="LineNr">35171 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35172" class="LineNr">35172 </span> 0/imm32/name -<span id="L35173" class="LineNr">35173 </span> 0/imm32/name -<span id="L35174" class="LineNr">35174 </span> 0x11/imm32/alloc-id:fake -<span id="L35175" class="LineNr">35175 </span> <span class="SpecialChar"><a href='mu.subx.html#L35253'>Type-int</a></span>/imm32 -<span id="L35176" class="LineNr">35176 </span> 1/imm32/some-block-depth -<span id="L35177" class="LineNr">35177 </span> 0/imm32/no-stack-offset -<span id="L35178" class="LineNr">35178 </span> 0x11/imm32/alloc-id:fake -<span id="L35179" class="LineNr">35179 </span> $Register-esi/imm32/register -<span id="L35180" class="LineNr">35180 </span> -<span id="L35181" class="LineNr">35181 </span><span class="SpecialChar">Single-int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35182" class="LineNr">35182 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35183" class="LineNr">35183 </span> 0x11/imm32/alloc-id:fake -<span id="L35184" class="LineNr">35184 </span> <span class="SpecialChar"><a href='mu.subx.html#L35188'>Int-var-in-edi</a></span>/imm32 -<span id="L35185" class="LineNr">35185 </span> 0/imm32/next -<span id="L35186" class="LineNr">35186 </span> 0/imm32/next -<span id="L35187" class="LineNr">35187 </span> -<span id="L35188" class="LineNr">35188 </span><span class="SpecialChar">Int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35189" class="LineNr">35189 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35190" class="LineNr">35190 </span> 0/imm32/name -<span id="L35191" class="LineNr">35191 </span> 0/imm32/name -<span id="L35192" class="LineNr">35192 </span> 0x11/imm32/alloc-id:fake -<span id="L35193" class="LineNr">35193 </span> <span class="SpecialChar"><a href='mu.subx.html#L35253'>Type-int</a></span>/imm32 -<span id="L35194" class="LineNr">35194 </span> 1/imm32/some-block-depth -<span id="L35195" class="LineNr">35195 </span> 0/imm32/no-stack-offset +<span id="L35136" class="LineNr">35136 </span> <span class="subxComment"># "e9/jump loop/disp32"</span> +<span id="L35137" class="LineNr">35137 </span> 0x13/imm32/size +<span id="L35138" class="LineNr">35138 </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="L35139" class="LineNr">35139 </span><span class="subxMinorFunction">_string_f7_subop_negate</span>: +<span id="L35140" class="LineNr">35140 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35141" class="LineNr">35141 </span> <span class="subxComment"># "f7 3/subop/negate"</span> +<span id="L35142" class="LineNr">35142 </span> 0x11/imm32/size +<span id="L35143" class="LineNr">35143 </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="L35144" class="LineNr">35144 </span><span class="subxMinorFunction">_string_f7_subop_not</span>: +<span id="L35145" class="LineNr">35145 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35146" class="LineNr">35146 </span> <span class="subxComment"># "f7 2/subop/not"</span> +<span id="L35147" class="LineNr">35147 </span> 0xe/imm32/size +<span id="L35148" class="LineNr">35148 </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="L35149" class="LineNr">35149 </span><span class="subxMinorFunction">_string_ff_subop_increment</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35150" class="LineNr">35150 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35151" class="LineNr">35151 </span> <span class="subxComment"># "ff 0/subop/increment"</span> +<span id="L35152" class="LineNr">35152 </span> 0x14/imm32/size +<span id="L35153" class="LineNr">35153 </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="L35154" class="LineNr">35154 </span><span class="subxMinorFunction">_string_ff_subop_decrement</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35155" class="LineNr">35155 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35156" class="LineNr">35156 </span> <span class="subxComment"># "ff 1/subop/decrement"</span> +<span id="L35157" class="LineNr">35157 </span> 0x14/imm32/size +<span id="L35158" class="LineNr">35158 </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="L35159" class="LineNr">35159 </span><span class="subxMinorFunction">_string_c1_subop_shift_left</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35160" class="LineNr">35160 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35161" class="LineNr">35161 </span> <span class="subxComment"># "c1/shift 4/subop/left"</span> +<span id="L35162" class="LineNr">35162 </span> 0x15/imm32/size +<span id="L35163" class="LineNr">35163 </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="L35164" class="LineNr">35164 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_padding_zeroes</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35165" class="LineNr">35165 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35166" class="LineNr">35166 </span> <span class="subxComment"># "c1/shift 5/subop/right-padding-zeroes"</span> +<span id="L35167" class="LineNr">35167 </span> 0x25/imm32/size +<span id="L35168" class="LineNr">35168 </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="L35169" class="LineNr">35169 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_preserving_sign</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35170" class="LineNr">35170 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35171" class="LineNr">35171 </span> <span class="subxComment"># "c1/shift 7/subop/right-preserving-sign"</span> +<span id="L35172" class="LineNr">35172 </span> 0x26/imm32/size +<span id="L35173" class="LineNr">35173 </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="L35174" class="LineNr">35174 </span> +<span id="L35175" class="LineNr">35175 </span><span class="SpecialChar">Single-int-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35176" class="LineNr">35176 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35177" class="LineNr">35177 </span> 0x11/imm32/alloc-id:fake +<span id="L35178" class="LineNr">35178 </span> <span class="SpecialChar"><a href='mu.subx.html#L35182'>Int-var-in-mem</a></span>/imm32 +<span id="L35179" class="LineNr">35179 </span> 0/imm32/next +<span id="L35180" class="LineNr">35180 </span> 0/imm32/next +<span id="L35181" class="LineNr">35181 </span> +<span id="L35182" class="LineNr">35182 </span><span class="SpecialChar">Int-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L35183" class="LineNr">35183 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35184" class="LineNr">35184 </span> 0/imm32/name +<span id="L35185" class="LineNr">35185 </span> 0/imm32/name +<span id="L35186" class="LineNr">35186 </span> 0x11/imm32/alloc-id:fake +<span id="L35187" class="LineNr">35187 </span> <span class="SpecialChar"><a href='mu.subx.html#L35506'>Type-int</a></span>/imm32 +<span id="L35188" class="LineNr">35188 </span> 1/imm32/some-block-depth +<span id="L35189" class="LineNr">35189 </span> 1/imm32/some-stack-offset +<span id="L35190" class="LineNr">35190 </span> 0/imm32/no-register +<span id="L35191" class="LineNr">35191 </span> 0/imm32/no-register +<span id="L35192" class="LineNr">35192 </span> +<span id="L35193" class="LineNr">35193 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> +<span id="L35194" class="LineNr">35194 </span><span class="SpecialChar">Single-byte-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35195" class="LineNr">35195 </span> 0x11/imm32/alloc-id:fake:payload <span id="L35196" class="LineNr">35196 </span> 0x11/imm32/alloc-id:fake -<span id="L35197" class="LineNr">35197 </span> $Register-edi/imm32/register -<span id="L35198" class="LineNr">35198 </span> -<span id="L35199" class="LineNr">35199 </span><span class="SpecialChar">Single-lit-var</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35200" class="LineNr">35200 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35201" class="LineNr">35201 </span> 0x11/imm32/alloc-id:fake -<span id="L35202" class="LineNr">35202 </span> <span class="SpecialChar"><a href='mu.subx.html#L35206'>Lit-var</a></span>/imm32 -<span id="L35203" class="LineNr">35203 </span> 0/imm32/next -<span id="L35204" class="LineNr">35204 </span> 0/imm32/next -<span id="L35205" class="LineNr">35205 </span> -<span id="L35206" class="LineNr">35206 </span><span class="SpecialChar">Lit-var</span>: <span class="subxComment"># (payload var)</span> -<span id="L35207" class="LineNr">35207 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35208" class="LineNr">35208 </span> 0/imm32/name -<span id="L35209" class="LineNr">35209 </span> 0/imm32/name -<span id="L35210" class="LineNr">35210 </span> 0x11/imm32/alloc-id:fake -<span id="L35211" class="LineNr">35211 </span> <span class="SpecialChar"><a href='mu.subx.html#L35261'>Type-literal</a></span>/imm32 -<span id="L35212" class="LineNr">35212 </span> 1/imm32/some-block-depth -<span id="L35213" class="LineNr">35213 </span> 0/imm32/no-stack-offset -<span id="L35214" class="LineNr">35214 </span> 0/imm32/no-register -<span id="L35215" class="LineNr">35215 </span> 0/imm32/no-register -<span id="L35216" class="LineNr">35216 </span> -<span id="L35217" class="LineNr">35217 </span><span class="SpecialChar">Single-float-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> -<span id="L35218" class="LineNr">35218 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35219" class="LineNr">35219 </span> 0x11/imm32/alloc-id:fake -<span id="L35220" class="LineNr">35220 </span> <span class="SpecialChar"><a href='mu.subx.html#L35224'>Float-var-in-mem</a></span>/imm32 -<span id="L35221" class="LineNr">35221 </span> 0/imm32/next -<span id="L35222" class="LineNr">35222 </span> 0/imm32/next -<span id="L35223" class="LineNr">35223 </span> -<span id="L35224" class="LineNr">35224 </span><span class="SpecialChar">Float-var-in-mem</span>: <span class="subxComment"># (payload var)</span> -<span id="L35225" class="LineNr">35225 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35226" class="LineNr">35226 </span> 0/imm32/name -<span id="L35227" class="LineNr">35227 </span> 0/imm32/name -<span id="L35228" class="LineNr">35228 </span> 0x11/imm32/alloc-id:fake -<span id="L35229" class="LineNr">35229 </span> <span class="SpecialChar"><a href='mu.subx.html#L35293'>Type-float</a></span>/imm32 -<span id="L35230" class="LineNr">35230 </span> 1/imm32/some-block-depth -<span id="L35231" class="LineNr">35231 </span> 1/imm32/some-stack-offset -<span id="L35232" class="LineNr">35232 </span> 0/imm32/no-register -<span id="L35233" class="LineNr">35233 </span> 0/imm32/no-register +<span id="L35197" class="LineNr">35197 </span> <span class="SpecialChar"><a href='mu.subx.html#L35202'>Byte-var-in-mem</a></span>/imm32 +<span id="L35198" class="LineNr">35198 </span> 0/imm32/next +<span id="L35199" class="LineNr">35199 </span> 0/imm32/next +<span id="L35200" class="LineNr">35200 </span> +<span id="L35201" class="LineNr">35201 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> +<span id="L35202" class="LineNr">35202 </span><span class="SpecialChar">Byte-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L35203" class="LineNr">35203 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35204" class="LineNr">35204 </span> 0/imm32/name +<span id="L35205" class="LineNr">35205 </span> 0/imm32/name +<span id="L35206" class="LineNr">35206 </span> 0x11/imm32/alloc-id:fake +<span id="L35207" class="LineNr">35207 </span> <span class="SpecialChar"><a href='mu.subx.html#L35538'>Type-byte</a></span>/imm32 +<span id="L35208" class="LineNr">35208 </span> 1/imm32/some-block-depth +<span id="L35209" class="LineNr">35209 </span> 1/imm32/some-stack-offset +<span id="L35210" class="LineNr">35210 </span> 0/imm32/no-register +<span id="L35211" class="LineNr">35211 </span> 0/imm32/no-register +<span id="L35212" class="LineNr">35212 </span> +<span id="L35213" class="LineNr">35213 </span><span class="SpecialChar">Two-args-int-stack-int-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35214" class="LineNr">35214 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35215" class="LineNr">35215 </span> 0x11/imm32/alloc-id:fake +<span id="L35216" class="LineNr">35216 </span> <span class="SpecialChar"><a href='mu.subx.html#L35182'>Int-var-in-mem</a></span>/imm32 +<span id="L35217" class="LineNr">35217 </span> 0x11/imm32/alloc-id:fake +<span id="L35218" class="LineNr">35218 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/next +<span id="L35219" class="LineNr">35219 </span> +<span id="L35220" class="LineNr">35220 </span><span class="SpecialChar">Two-int-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35221" class="LineNr">35221 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35222" class="LineNr">35222 </span> 0x11/imm32/alloc-id:fake +<span id="L35223" class="LineNr">35223 </span> <span class="SpecialChar"><a href='mu.subx.html#L35305'>Int-var-in-some-register</a></span>/imm32 +<span id="L35224" class="LineNr">35224 </span> 0x11/imm32/alloc-id:fake +<span id="L35225" class="LineNr">35225 </span> <span class="SpecialChar"><a href='mu.subx.html#L35284'>Single-int-var-in-some-register</a></span>/imm32/next +<span id="L35226" class="LineNr">35226 </span> +<span id="L35227" class="LineNr">35227 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> +<span id="L35228" class="LineNr">35228 </span><span class="SpecialChar">Two-args-byte-stack-byte-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35229" class="LineNr">35229 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35230" class="LineNr">35230 </span> 0x11/imm32/alloc-id:fake +<span id="L35231" class="LineNr">35231 </span> <span class="SpecialChar"><a href='mu.subx.html#L35202'>Byte-var-in-mem</a></span>/imm32 +<span id="L35232" class="LineNr">35232 </span> 0x11/imm32/alloc-id:fake +<span id="L35233" class="LineNr">35233 </span> <span class="SpecialChar"><a href='mu.subx.html#L35298'>Single-byte-var-in-some-register</a></span>/imm32/next <span id="L35234" class="LineNr">35234 </span> -<span id="L35235" class="LineNr">35235 </span><span class="SpecialChar">Single-float-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35235" class="LineNr">35235 </span><span class="SpecialChar">Two-args-int-reg-int-stack</span>: <span class="subxComment"># (payload list var)</span> <span id="L35236" class="LineNr">35236 </span> 0x11/imm32/alloc-id:fake:payload <span id="L35237" class="LineNr">35237 </span> 0x11/imm32/alloc-id:fake -<span id="L35238" class="LineNr">35238 </span> <span class="SpecialChar"><a href='mu.subx.html#L35242'>Float-var-in-some-register</a></span>/imm32 -<span id="L35239" class="LineNr">35239 </span> 0/imm32/next -<span id="L35240" class="LineNr">35240 </span> 0/imm32/next +<span id="L35238" class="LineNr">35238 </span> <span class="SpecialChar"><a href='mu.subx.html#L35305'>Int-var-in-some-register</a></span>/imm32 +<span id="L35239" class="LineNr">35239 </span> 0x11/imm32/alloc-id:fake +<span id="L35240" class="LineNr">35240 </span> <span class="SpecialChar"><a href='mu.subx.html#L35175'>Single-int-var-in-mem</a></span>/imm32/next <span id="L35241" class="LineNr">35241 </span> -<span id="L35242" class="LineNr">35242 </span><span class="SpecialChar">Float-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L35242" class="LineNr">35242 </span><span class="SpecialChar">Two-args-int-eax-int-literal</span>: <span class="subxComment"># (payload list var)</span> <span id="L35243" class="LineNr">35243 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35244" class="LineNr">35244 </span> 0/imm32/name -<span id="L35245" class="LineNr">35245 </span> 0/imm32/name +<span id="L35244" class="LineNr">35244 </span> 0x11/imm32/alloc-id:fake +<span id="L35245" class="LineNr">35245 </span> <span class="SpecialChar"><a href='mu.subx.html#L35351'>Int-var-in-eax</a></span>/imm32 <span id="L35246" class="LineNr">35246 </span> 0x11/imm32/alloc-id:fake -<span id="L35247" class="LineNr">35247 </span> <span class="SpecialChar"><a href='mu.subx.html#L35293'>Type-float</a></span>/imm32 -<span id="L35248" class="LineNr">35248 </span> 1/imm32/some-block-depth -<span id="L35249" class="LineNr">35249 </span> 0/imm32/no-stack-offset -<span id="L35250" class="LineNr">35250 </span> 0x11/imm32/alloc-id:fake -<span id="L35251" class="LineNr">35251 </span> <span class="SpecialChar"><a href='mu.subx.html#L35063'>Any-register</a></span>/imm32 -<span id="L35252" class="LineNr">35252 </span> -<span id="L35253" class="LineNr">35253 </span><span class="SpecialChar">Type-int</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L35254" class="LineNr">35254 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35255" class="LineNr">35255 </span> 1/imm32/is-atom -<span id="L35256" class="LineNr">35256 </span> 1/imm32/value:int -<span id="L35257" class="LineNr">35257 </span> 0/imm32/left:unused -<span id="L35258" class="LineNr">35258 </span> 0/imm32/right:null -<span id="L35259" class="LineNr">35259 </span> 0/imm32/right:null -<span id="L35260" class="LineNr">35260 </span> -<span id="L35261" class="LineNr">35261 </span><span class="SpecialChar">Type-literal</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L35262" class="LineNr">35262 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35263" class="LineNr">35263 </span> 1/imm32/is-atom -<span id="L35264" class="LineNr">35264 </span> 0/imm32/value:literal -<span id="L35265" class="LineNr">35265 </span> 0/imm32/left:unused -<span id="L35266" class="LineNr">35266 </span> 0/imm32/right:null -<span id="L35267" class="LineNr">35267 </span> 0/imm32/right:null -<span id="L35268" class="LineNr">35268 </span> -<span id="L35269" class="LineNr">35269 </span><span class="SpecialChar">Type-addr</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L35270" class="LineNr">35270 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35271" class="LineNr">35271 </span> 1/imm32/is-atom -<span id="L35272" class="LineNr">35272 </span> 2/imm32/value:addr -<span id="L35273" class="LineNr">35273 </span> 0/imm32/left:unused -<span id="L35274" class="LineNr">35274 </span> 0/imm32/right:null -<span id="L35275" class="LineNr">35275 </span> 0/imm32/right:null +<span id="L35247" class="LineNr">35247 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/next +<span id="L35248" class="LineNr">35248 </span> +<span id="L35249" class="LineNr">35249 </span><span class="SpecialChar">Int-var-and-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35250" class="LineNr">35250 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35251" class="LineNr">35251 </span> 0x11/imm32/alloc-id:fake +<span id="L35252" class="LineNr">35252 </span> <span class="SpecialChar"><a href='mu.subx.html#L35182'>Int-var-in-mem</a></span>/imm32 +<span id="L35253" class="LineNr">35253 </span> 0x11/imm32/alloc-id:fake +<span id="L35254" class="LineNr">35254 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/next +<span id="L35255" class="LineNr">35255 </span> +<span id="L35256" class="LineNr">35256 </span><span class="SpecialChar">Int-var-in-register-and-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35257" class="LineNr">35257 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35258" class="LineNr">35258 </span> 0x11/imm32/alloc-id:fake +<span id="L35259" class="LineNr">35259 </span> <span class="SpecialChar"><a href='mu.subx.html#L35305'>Int-var-in-some-register</a></span>/imm32 +<span id="L35260" class="LineNr">35260 </span> 0x11/imm32/alloc-id:fake +<span id="L35261" class="LineNr">35261 </span> <span class="SpecialChar"><a href='mu.subx.html#L35452'>Single-lit-var</a></span>/imm32/next +<span id="L35262" class="LineNr">35262 </span> +<span id="L35263" class="LineNr">35263 </span><span class="SpecialChar">Two-float-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35264" class="LineNr">35264 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35265" class="LineNr">35265 </span> 0x11/imm32/alloc-id:fake +<span id="L35266" class="LineNr">35266 </span> <span class="SpecialChar"><a href='mu.subx.html#L35495'>Float-var-in-some-register</a></span>/imm32 +<span id="L35267" class="LineNr">35267 </span> 0x11/imm32/alloc-id:fake +<span id="L35268" class="LineNr">35268 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/next +<span id="L35269" class="LineNr">35269 </span> +<span id="L35270" class="LineNr">35270 </span><span class="SpecialChar">Two-args-float-reg-float-stack</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35271" class="LineNr">35271 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35272" class="LineNr">35272 </span> 0x11/imm32/alloc-id:fake +<span id="L35273" class="LineNr">35273 </span> <span class="SpecialChar"><a href='mu.subx.html#L35495'>Float-var-in-some-register</a></span>/imm32 +<span id="L35274" class="LineNr">35274 </span> 0x11/imm32/alloc-id:fake +<span id="L35275" class="LineNr">35275 </span> <span class="SpecialChar"><a href='mu.subx.html#L35470'>Single-float-var-in-mem</a></span>/imm32/next <span id="L35276" class="LineNr">35276 </span> -<span id="L35277" class="LineNr">35277 </span><span class="SpecialChar">Type-array</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L35277" class="LineNr">35277 </span><span class="SpecialChar">Two-args-float-stack-float-reg</span>: <span class="subxComment"># (payload list var)</span> <span id="L35278" class="LineNr">35278 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35279" class="LineNr">35279 </span> 1/imm32/is-atom -<span id="L35280" class="LineNr">35280 </span> 3/imm32/value:array -<span id="L35281" class="LineNr">35281 </span> 0/imm32/left:unused -<span id="L35282" class="LineNr">35282 </span> 0/imm32/right:null -<span id="L35283" class="LineNr">35283 </span> 0/imm32/right:null -<span id="L35284" class="LineNr">35284 </span> -<span id="L35285" class="LineNr">35285 </span><span class="SpecialChar">Type-byte</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L35286" class="LineNr">35286 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35287" class="LineNr">35287 </span> 1/imm32/is-atom -<span id="L35288" class="LineNr">35288 </span> 8/imm32/value:byte -<span id="L35289" class="LineNr">35289 </span> 0/imm32/left:unused -<span id="L35290" class="LineNr">35290 </span> 0/imm32/right:null -<span id="L35291" class="LineNr">35291 </span> 0/imm32/right:null -<span id="L35292" class="LineNr">35292 </span> -<span id="L35293" class="LineNr">35293 </span><span class="SpecialChar">Type-float</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L35294" class="LineNr">35294 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35295" class="LineNr">35295 </span> 1/imm32/is-atom -<span id="L35296" class="LineNr">35296 </span> 0xf/imm32/value:float -<span id="L35297" class="LineNr">35297 </span> 0/imm32/left:unused -<span id="L35298" class="LineNr">35298 </span> 0/imm32/right:null -<span id="L35299" class="LineNr">35299 </span> 0/imm32/right:null -<span id="L35300" class="LineNr">35300 </span> -<span id="L35301" class="LineNr">35301 </span><span class="SpecialChar">Addr-type-string</span>: <span class="subxComment"># (addr type-tree)</span> -<span id="L35302" class="LineNr">35302 </span> 0/imm32/not-atom -<span id="L35303" class="LineNr">35303 </span> 0x11/imm32/alloc-id:fake -<span id="L35304" class="LineNr">35304 </span> <span class="SpecialChar"><a href='mu.subx.html#L35269'>Type-addr</a></span>/imm32/left -<span id="L35305" class="LineNr">35305 </span> 0x11/imm32/alloc-id:fake -<span id="L35306" class="LineNr">35306 </span> _Addr-type-string:array/imm32/right -<span id="L35307" class="LineNr">35307 </span><span class="subxMinorFunction">_Addr-type-string:array</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L35308" class="LineNr">35308 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35309" class="LineNr">35309 </span> 0/imm32/not-atom -<span id="L35310" class="LineNr">35310 </span> 0x11/imm32/alloc-id:fake -<span id="L35311" class="LineNr">35311 </span> <span class="SpecialChar"><a href='mu.subx.html#L35277'>Type-array</a></span>/imm32/left -<span id="L35312" class="LineNr">35312 </span> 0x11/imm32/alloc-id:fake -<span id="L35313" class="LineNr">35313 </span> _Addr-type-string:byte/imm32/right -<span id="L35314" class="LineNr">35314 </span><span class="subxMinorFunction">_Addr-type-string:byte</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L35315" class="LineNr">35315 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L35316" class="LineNr">35316 </span> 0/imm32/not-atom -<span id="L35317" class="LineNr">35317 </span> 0x11/imm32/alloc-id:fake -<span id="L35318" class="LineNr">35318 </span> <span class="SpecialChar"><a href='mu.subx.html#L35285'>Type-byte</a></span>/imm32/left -<span id="L35319" class="LineNr">35319 </span> 0/imm32/right:null -<span id="L35320" class="LineNr">35320 </span> 0/imm32/right:null +<span id="L35279" class="LineNr">35279 </span> 0x11/imm32/alloc-id:fake +<span id="L35280" class="LineNr">35280 </span> <span class="SpecialChar"><a href='mu.subx.html#L35477'>Float-var-in-mem</a></span>/imm32 +<span id="L35281" class="LineNr">35281 </span> 0x11/imm32/alloc-id:fake +<span id="L35282" class="LineNr">35282 </span> <span class="SpecialChar"><a href='mu.subx.html#L35488'>Single-float-var-in-some-register</a></span>/imm32/next +<span id="L35283" class="LineNr">35283 </span> +<span id="L35284" class="LineNr">35284 </span><span class="SpecialChar">Single-int-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35285" class="LineNr">35285 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35286" class="LineNr">35286 </span> 0x11/imm32/alloc-id:fake +<span id="L35287" class="LineNr">35287 </span> <span class="SpecialChar"><a href='mu.subx.html#L35305'>Int-var-in-some-register</a></span>/imm32 +<span id="L35288" class="LineNr">35288 </span> 0/imm32/next +<span id="L35289" class="LineNr">35289 </span> 0/imm32/next +<span id="L35290" class="LineNr">35290 </span> +<span id="L35291" class="LineNr">35291 </span><span class="SpecialChar">Single-addr-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35292" class="LineNr">35292 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35293" class="LineNr">35293 </span> 0x11/imm32/alloc-id:fake +<span id="L35294" class="LineNr">35294 </span> <span class="SpecialChar"><a href='mu.subx.html#L35322'>Addr-var-in-some-register</a></span>/imm32 +<span id="L35295" class="LineNr">35295 </span> 0/imm32/next +<span id="L35296" class="LineNr">35296 </span> 0/imm32/next +<span id="L35297" class="LineNr">35297 </span> +<span id="L35298" class="LineNr">35298 </span><span class="SpecialChar">Single-byte-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35299" class="LineNr">35299 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35300" class="LineNr">35300 </span> 0x11/imm32/alloc-id:fake +<span id="L35301" class="LineNr">35301 </span> <span class="SpecialChar"><a href='mu.subx.html#L35333'>Byte-var-in-some-register</a></span>/imm32 +<span id="L35302" class="LineNr">35302 </span> 0/imm32/next +<span id="L35303" class="LineNr">35303 </span> 0/imm32/next +<span id="L35304" class="LineNr">35304 </span> +<span id="L35305" class="LineNr">35305 </span><span class="SpecialChar">Int-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L35306" class="LineNr">35306 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35307" class="LineNr">35307 </span> 0/imm32/name +<span id="L35308" class="LineNr">35308 </span> 0/imm32/name +<span id="L35309" class="LineNr">35309 </span> 0x11/imm32/alloc-id:fake +<span id="L35310" class="LineNr">35310 </span> <span class="SpecialChar"><a href='mu.subx.html#L35506'>Type-int</a></span>/imm32 +<span id="L35311" class="LineNr">35311 </span> 1/imm32/some-block-depth +<span id="L35312" class="LineNr">35312 </span> 0/imm32/no-stack-offset +<span id="L35313" class="LineNr">35313 </span> 0x11/imm32/alloc-id:fake +<span id="L35314" class="LineNr">35314 </span> <span class="SpecialChar"><a href='mu.subx.html#L35316'>Any-register</a></span>/imm32 +<span id="L35315" class="LineNr">35315 </span> +<span id="L35316" class="LineNr">35316 </span><span class="SpecialChar">Any-register</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L35317" class="LineNr">35317 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35318" class="LineNr">35318 </span> 1/imm32/size +<span id="L35319" class="LineNr">35319 </span> <span class="subxComment"># data</span> +<span id="L35320" class="LineNr">35320 </span> 2a/asterisk <span id="L35321" class="LineNr">35321 </span> -<span id="L35322" class="LineNr">35322 </span>== code -<span id="L35323" class="LineNr">35323 </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="L35324" class="LineNr">35324 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35325" class="LineNr">35325 </span> 55/push-ebp -<span id="L35326" class="LineNr">35326 </span> 89/<- %ebp 4/r32/esp -<span id="L35327" class="LineNr">35327 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35328" class="LineNr">35328 </span> 50/push-eax -<span id="L35329" class="LineNr">35329 </span> 51/push-ecx -<span id="L35330" class="LineNr">35330 </span> <span class="subxComment"># ecx = primitive</span> -<span id="L35331" class="LineNr">35331 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L35332" class="LineNr">35332 </span> <span class="subxComment"># emit primitive name</span> -<span id="L35333" class="LineNr">35333 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L35334" class="LineNr">35334 </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="L35335" class="LineNr">35335 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35336" class="LineNr">35336 </span> <span class="subxComment"># emit rm32 if necessary</span> -<span id="L35337" class="LineNr">35337 </span> (<a href='mu.subx.html#L35360'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x20) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-rm32</span> -<span id="L35338" class="LineNr">35338 </span> <span class="subxComment"># emit xm32 if necessary</span> -<span id="L35339" class="LineNr">35339 </span> (<a href='mu.subx.html#L35360'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x34) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-xm32</span> -<span id="L35340" class="LineNr">35340 </span> <span class="subxComment"># emit r32 if necessary</span> -<span id="L35341" class="LineNr">35341 </span> (<a href='mu.subx.html#L35434'>emit-subx-r32</a> *(ebp+8) *(ecx+0x24) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-r32</span> -<span id="L35342" class="LineNr">35342 </span> <span class="subxComment"># emit x32 if necessary</span> -<span id="L35343" class="LineNr">35343 </span> (<a href='mu.subx.html#L35465'>emit-subx-x32</a> *(ebp+8) *(ecx+0x38) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-x32</span> -<span id="L35344" class="LineNr">35344 </span> <span class="subxComment"># emit imm32 if necessary</span> -<span id="L35345" class="LineNr">35345 </span> (<a href='mu.subx.html#L35496'>emit-subx-imm32</a> *(ebp+8) *(ecx+0x28) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm32</span> -<span id="L35346" class="LineNr">35346 </span> <span class="subxComment"># emit imm8 if necessary</span> -<span id="L35347" class="LineNr">35347 </span> (<a href='mu.subx.html#L35522'>emit-subx-imm8</a> *(ebp+8) *(ecx+0x2c) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm8</span> -<span id="L35348" class="LineNr">35348 </span> <span class="subxComment"># emit disp32 if necessary</span> -<span id="L35349" class="LineNr">35349 </span> (<a href='mu.subx.html#L35548'>emit-subx-disp32</a> *(ebp+8) *(ecx+0x30) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-disp32</span> -<span id="L35350" class="LineNr">35350 </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="L35351" class="LineNr">35351 </span><span class="Constant">$emit-subx-primitive:end</span>: -<span id="L35352" class="LineNr">35352 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35353" class="LineNr">35353 </span> 59/pop-to-ecx -<span id="L35354" class="LineNr">35354 </span> 58/pop-to-eax -<span id="L35355" class="LineNr">35355 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35356" class="LineNr">35356 </span> 89/<- %esp 5/r32/ebp -<span id="L35357" class="LineNr">35357 </span> 5d/pop-to-ebp -<span id="L35358" class="LineNr">35358 </span> c3/return -<span id="L35359" class="LineNr">35359 </span> -<span id="L35360" class="LineNr">35360 </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="L35361" class="LineNr">35361 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35362" class="LineNr">35362 </span> 55/push-ebp -<span id="L35363" class="LineNr">35363 </span> 89/<- %ebp 4/r32/esp -<span id="L35364" class="LineNr">35364 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35365" class="LineNr">35365 </span> 50/push-eax -<span id="L35366" class="LineNr">35366 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L35367" class="LineNr">35367 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L35368" class="LineNr">35368 </span> 74/jump-if-= $emit-subx-rm32:end/disp8 -<span id="L35369" class="LineNr">35369 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L35370" class="LineNr">35370 </span> (<a href='mu.subx.html#L35380'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L35371" class="LineNr">35371 </span> (<a href='mu.subx.html#L35793'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) -<span id="L35372" class="LineNr">35372 </span><span class="Constant">$emit-subx-rm32:end</span>: -<span id="L35373" class="LineNr">35373 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35374" class="LineNr">35374 </span> 58/pop-to-eax -<span id="L35375" class="LineNr">35375 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35376" class="LineNr">35376 </span> 89/<- %esp 5/r32/ebp -<span id="L35377" class="LineNr">35377 </span> 5d/pop-to-ebp -<span id="L35378" class="LineNr">35378 </span> c3/return +<span id="L35322" class="LineNr">35322 </span><span class="SpecialChar">Addr-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L35323" class="LineNr">35323 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35324" class="LineNr">35324 </span> 0/imm32/name +<span id="L35325" class="LineNr">35325 </span> 0/imm32/name +<span id="L35326" class="LineNr">35326 </span> 0x11/imm32/alloc-id:fake +<span id="L35327" class="LineNr">35327 </span> <span class="SpecialChar"><a href='mu.subx.html#L35522'>Type-addr</a></span>/imm32 +<span id="L35328" class="LineNr">35328 </span> 1/imm32/some-block-depth +<span id="L35329" class="LineNr">35329 </span> 0/imm32/no-stack-offset +<span id="L35330" class="LineNr">35330 </span> 0x11/imm32/alloc-id:fake +<span id="L35331" class="LineNr">35331 </span> <span class="SpecialChar"><a href='mu.subx.html#L35316'>Any-register</a></span>/imm32 +<span id="L35332" class="LineNr">35332 </span> +<span id="L35333" class="LineNr">35333 </span><span class="SpecialChar">Byte-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L35334" class="LineNr">35334 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35335" class="LineNr">35335 </span> 0/imm32/name +<span id="L35336" class="LineNr">35336 </span> 0/imm32/name +<span id="L35337" class="LineNr">35337 </span> 0x11/imm32/alloc-id:fake +<span id="L35338" class="LineNr">35338 </span> <span class="SpecialChar"><a href='mu.subx.html#L35538'>Type-byte</a></span>/imm32 +<span id="L35339" class="LineNr">35339 </span> 1/imm32/some-block-depth +<span id="L35340" class="LineNr">35340 </span> 0/imm32/no-stack-offset +<span id="L35341" class="LineNr">35341 </span> 0x11/imm32/alloc-id:fake +<span id="L35342" class="LineNr">35342 </span> <span class="SpecialChar"><a href='mu.subx.html#L35316'>Any-register</a></span>/imm32 +<span id="L35343" class="LineNr">35343 </span> +<span id="L35344" class="LineNr">35344 </span><span class="SpecialChar">Single-int-var-in-eax</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35345" class="LineNr">35345 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35346" class="LineNr">35346 </span> 0x11/imm32/alloc-id:fake +<span id="L35347" class="LineNr">35347 </span> <span class="SpecialChar"><a href='mu.subx.html#L35351'>Int-var-in-eax</a></span>/imm32 +<span id="L35348" class="LineNr">35348 </span> 0/imm32/next +<span id="L35349" class="LineNr">35349 </span> 0/imm32/next +<span id="L35350" class="LineNr">35350 </span> +<span id="L35351" class="LineNr">35351 </span><span class="SpecialChar">Int-var-in-eax</span>: +<span id="L35352" class="LineNr">35352 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35353" class="LineNr">35353 </span> 0/imm32/name +<span id="L35354" class="LineNr">35354 </span> 0/imm32/name +<span id="L35355" class="LineNr">35355 </span> 0x11/imm32/alloc-id:fake +<span id="L35356" class="LineNr">35356 </span> <span class="SpecialChar"><a href='mu.subx.html#L35506'>Type-int</a></span>/imm32 +<span id="L35357" class="LineNr">35357 </span> 1/imm32/some-block-depth +<span id="L35358" class="LineNr">35358 </span> 0/imm32/no-stack-offset +<span id="L35359" class="LineNr">35359 </span> 0x11/imm32/alloc-id:fake +<span id="L35360" class="LineNr">35360 </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="L35361" class="LineNr">35361 </span> +<span id="L35362" class="LineNr">35362 </span><span class="SpecialChar">Single-int-var-in-ecx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35363" class="LineNr">35363 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35364" class="LineNr">35364 </span> 0x11/imm32/alloc-id:fake +<span id="L35365" class="LineNr">35365 </span> <span class="SpecialChar"><a href='mu.subx.html#L35369'>Int-var-in-ecx</a></span>/imm32 +<span id="L35366" class="LineNr">35366 </span> 0/imm32/next +<span id="L35367" class="LineNr">35367 </span> 0/imm32/next +<span id="L35368" class="LineNr">35368 </span> +<span id="L35369" class="LineNr">35369 </span><span class="SpecialChar">Int-var-in-ecx</span>: +<span id="L35370" class="LineNr">35370 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35371" class="LineNr">35371 </span> 0/imm32/name +<span id="L35372" class="LineNr">35372 </span> 0/imm32/name +<span id="L35373" class="LineNr">35373 </span> 0x11/imm32/alloc-id:fake +<span id="L35374" class="LineNr">35374 </span> <span class="SpecialChar"><a href='mu.subx.html#L35506'>Type-int</a></span>/imm32 +<span id="L35375" class="LineNr">35375 </span> 1/imm32/some-block-depth +<span id="L35376" class="LineNr">35376 </span> 0/imm32/no-stack-offset +<span id="L35377" class="LineNr">35377 </span> 0x11/imm32/alloc-id:fake +<span id="L35378" class="LineNr">35378 </span> $Register-ecx/imm32/register <span id="L35379" class="LineNr">35379 </span> -<span id="L35380" class="LineNr">35380 </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="L35381" class="LineNr">35381 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35382" class="LineNr">35382 </span> 55/push-ebp -<span id="L35383" class="LineNr">35383 </span> 89/<- %ebp 4/r32/esp -<span id="L35384" class="LineNr">35384 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35385" class="LineNr">35385 </span> 51/push-ecx -<span id="L35386" class="LineNr">35386 </span> <span class="subxComment"># eax = l</span> -<span id="L35387" class="LineNr">35387 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L35388" class="LineNr">35388 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L35389" class="LineNr">35389 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L35390" class="LineNr">35390 </span> <span class="subxComment"># if (l == 1) return stmt->inouts</span> -<span id="L35391" class="LineNr">35391 </span> { -<span id="L35392" class="LineNr">35392 </span> 3d/compare-eax-and 1/imm32 -<span id="L35393" class="LineNr">35393 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35394" class="LineNr">35394 </span><span class="Constant">$get-stmt-operand-from-arg-location:1</span>: -<span id="L35395" class="LineNr">35395 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L35396" class="LineNr">35396 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 -<span id="L35397" class="LineNr">35397 </span> } -<span id="L35398" class="LineNr">35398 </span> <span class="subxComment"># if (l == 2) return stmt->inouts->next</span> -<span id="L35399" class="LineNr">35399 </span> { -<span id="L35400" class="LineNr">35400 </span> 3d/compare-eax-and 2/imm32 -<span id="L35401" class="LineNr">35401 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35402" class="LineNr">35402 </span><span class="Constant">$get-stmt-operand-from-arg-location:2</span>: -<span id="L35403" class="LineNr">35403 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L35404" class="LineNr">35404 </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="L35405" class="LineNr">35405 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 -<span id="L35406" class="LineNr">35406 </span> } -<span id="L35407" class="LineNr">35407 </span> <span class="subxComment"># if (l == 3) return stmt->outputs</span> -<span id="L35408" class="LineNr">35408 </span> { -<span id="L35409" class="LineNr">35409 </span> 3d/compare-eax-and 3/imm32 -<span id="L35410" class="LineNr">35410 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35411" class="LineNr">35411 </span><span class="Constant">$get-stmt-operand-from-arg-location:3</span>: -<span id="L35412" class="LineNr">35412 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L35413" class="LineNr">35413 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 -<span id="L35414" class="LineNr">35414 </span> } -<span id="L35415" class="LineNr">35415 </span> <span class="subxComment"># abort</span> -<span id="L35416" class="LineNr">35416 </span> e9/jump $get-stmt-operand-from-arg-location:abort/disp32 -<span id="L35417" class="LineNr">35417 </span><span class="Constant">$get-stmt-operand-from-arg-location:end</span>: -<span id="L35418" class="LineNr">35418 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35419" class="LineNr">35419 </span> 59/pop-to-ecx -<span id="L35420" class="LineNr">35420 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35421" class="LineNr">35421 </span> 89/<- %esp 5/r32/ebp -<span id="L35422" class="LineNr">35422 </span> 5d/pop-to-ebp -<span id="L35423" class="LineNr">35423 </span> c3/return -<span id="L35424" class="LineNr">35424 </span> -<span id="L35425" class="LineNr">35425 </span><span class="Constant">$get-stmt-operand-from-arg-location:abort</span>: -<span id="L35426" class="LineNr">35426 </span> <span class="subxComment"># error("invalid arg-location " eax)</span> -<span id="L35427" class="LineNr">35427 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"invalid arg-location "</span>) -<span id="L35428" class="LineNr">35428 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0x10) %eax) -<span id="L35429" class="LineNr">35429 </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="L35430" class="LineNr">35430 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L35431" class="LineNr">35431 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L35432" class="LineNr">35432 </span> <span class="subxComment"># never gets here</span> +<span id="L35380" class="LineNr">35380 </span><span class="SpecialChar">Single-int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35381" class="LineNr">35381 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35382" class="LineNr">35382 </span> 0x11/imm32/alloc-id:fake +<span id="L35383" class="LineNr">35383 </span> <span class="SpecialChar"><a href='mu.subx.html#L35387'>Int-var-in-edx</a></span>/imm32 +<span id="L35384" class="LineNr">35384 </span> 0/imm32/next +<span id="L35385" class="LineNr">35385 </span> 0/imm32/next +<span id="L35386" class="LineNr">35386 </span> +<span id="L35387" class="LineNr">35387 </span><span class="SpecialChar">Int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35388" class="LineNr">35388 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35389" class="LineNr">35389 </span> 0/imm32/name +<span id="L35390" class="LineNr">35390 </span> 0/imm32/name +<span id="L35391" class="LineNr">35391 </span> 0x11/imm32/alloc-id:fake +<span id="L35392" class="LineNr">35392 </span> <span class="SpecialChar"><a href='mu.subx.html#L35506'>Type-int</a></span>/imm32 +<span id="L35393" class="LineNr">35393 </span> 1/imm32/some-block-depth +<span id="L35394" class="LineNr">35394 </span> 0/imm32/no-stack-offset +<span id="L35395" class="LineNr">35395 </span> 0x11/imm32/alloc-id:fake +<span id="L35396" class="LineNr">35396 </span> $Register-edx/imm32/register +<span id="L35397" class="LineNr">35397 </span> +<span id="L35398" class="LineNr">35398 </span><span class="SpecialChar">Single-int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35399" class="LineNr">35399 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35400" class="LineNr">35400 </span> 0x11/imm32/alloc-id:fake +<span id="L35401" class="LineNr">35401 </span> <span class="SpecialChar"><a href='mu.subx.html#L35405'>Int-var-in-ebx</a></span>/imm32 +<span id="L35402" class="LineNr">35402 </span> 0/imm32/next +<span id="L35403" class="LineNr">35403 </span> 0/imm32/next +<span id="L35404" class="LineNr">35404 </span> +<span id="L35405" class="LineNr">35405 </span><span class="SpecialChar">Int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35406" class="LineNr">35406 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35407" class="LineNr">35407 </span> 0/imm32/name +<span id="L35408" class="LineNr">35408 </span> 0/imm32/name +<span id="L35409" class="LineNr">35409 </span> 0x11/imm32/alloc-id:fake +<span id="L35410" class="LineNr">35410 </span> <span class="SpecialChar"><a href='mu.subx.html#L35506'>Type-int</a></span>/imm32 +<span id="L35411" class="LineNr">35411 </span> 1/imm32/some-block-depth +<span id="L35412" class="LineNr">35412 </span> 0/imm32/no-stack-offset +<span id="L35413" class="LineNr">35413 </span> 0x11/imm32/alloc-id:fake +<span id="L35414" class="LineNr">35414 </span> $Register-ebx/imm32/register +<span id="L35415" class="LineNr">35415 </span> +<span id="L35416" class="LineNr">35416 </span><span class="SpecialChar">Single-int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35417" class="LineNr">35417 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35418" class="LineNr">35418 </span> 0x11/imm32/alloc-id:fake +<span id="L35419" class="LineNr">35419 </span> <span class="SpecialChar"><a href='mu.subx.html#L35423'>Int-var-in-esi</a></span>/imm32 +<span id="L35420" class="LineNr">35420 </span> 0/imm32/next +<span id="L35421" class="LineNr">35421 </span> 0/imm32/next +<span id="L35422" class="LineNr">35422 </span> +<span id="L35423" class="LineNr">35423 </span><span class="SpecialChar">Int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35424" class="LineNr">35424 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35425" class="LineNr">35425 </span> 0/imm32/name +<span id="L35426" class="LineNr">35426 </span> 0/imm32/name +<span id="L35427" class="LineNr">35427 </span> 0x11/imm32/alloc-id:fake +<span id="L35428" class="LineNr">35428 </span> <span class="SpecialChar"><a href='mu.subx.html#L35506'>Type-int</a></span>/imm32 +<span id="L35429" class="LineNr">35429 </span> 1/imm32/some-block-depth +<span id="L35430" class="LineNr">35430 </span> 0/imm32/no-stack-offset +<span id="L35431" class="LineNr">35431 </span> 0x11/imm32/alloc-id:fake +<span id="L35432" class="LineNr">35432 </span> $Register-esi/imm32/register <span id="L35433" class="LineNr">35433 </span> -<span id="L35434" class="LineNr">35434 </span><span class="subxFunction">emit-subx-r32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L35435" class="LineNr">35435 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35436" class="LineNr">35436 </span> 55/push-ebp -<span id="L35437" class="LineNr">35437 </span> 89/<- %ebp 4/r32/esp -<span id="L35438" class="LineNr">35438 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35439" class="LineNr">35439 </span> 50/push-eax -<span id="L35440" class="LineNr">35440 </span> 51/push-ecx -<span id="L35441" class="LineNr">35441 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L35442" class="LineNr">35442 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L35443" class="LineNr">35443 </span> 0f 84/jump-if-= $emit-subx-r32:end/disp32 -<span id="L35444" class="LineNr">35444 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L35445" class="LineNr">35445 </span> (<a href='mu.subx.html#L35380'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L35446" class="LineNr">35446 </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="L35447" class="LineNr">35447 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35448" class="LineNr">35448 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> -<span id="L35449" class="LineNr">35449 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L35450" class="LineNr">35450 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L35451" class="LineNr">35451 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L35452" class="LineNr">35452 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19420'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> -<span id="L35453" class="LineNr">35453 </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="L35454" class="LineNr">35454 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L35455" class="LineNr">35455 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32"</span>) -<span id="L35456" class="LineNr">35456 </span><span class="Constant">$emit-subx-r32:end</span>: -<span id="L35457" class="LineNr">35457 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35458" class="LineNr">35458 </span> 59/pop-to-ecx -<span id="L35459" class="LineNr">35459 </span> 58/pop-to-eax -<span id="L35460" class="LineNr">35460 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35461" class="LineNr">35461 </span> 89/<- %esp 5/r32/ebp -<span id="L35462" class="LineNr">35462 </span> 5d/pop-to-ebp -<span id="L35463" class="LineNr">35463 </span> c3/return -<span id="L35464" class="LineNr">35464 </span> -<span id="L35465" class="LineNr">35465 </span><span class="subxFunction">emit-subx-x32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L35466" class="LineNr">35466 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35467" class="LineNr">35467 </span> 55/push-ebp -<span id="L35468" class="LineNr">35468 </span> 89/<- %ebp 4/r32/esp -<span id="L35469" class="LineNr">35469 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35470" class="LineNr">35470 </span> 50/push-eax -<span id="L35471" class="LineNr">35471 </span> 51/push-ecx -<span id="L35472" class="LineNr">35472 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L35473" class="LineNr">35473 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L35474" class="LineNr">35474 </span> 0f 84/jump-if-= $emit-subx-x32:end/disp32 -<span id="L35475" class="LineNr">35475 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L35476" class="LineNr">35476 </span> (<a href='mu.subx.html#L35380'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L35477" class="LineNr">35477 </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="L35478" class="LineNr">35478 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35479" class="LineNr">35479 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> -<span id="L35480" class="LineNr">35480 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L35481" class="LineNr">35481 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L35482" class="LineNr">35482 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L35483" class="LineNr">35483 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19420'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> -<span id="L35484" class="LineNr">35484 </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="L35485" class="LineNr">35485 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L35486" class="LineNr">35486 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32"</span>) -<span id="L35487" class="LineNr">35487 </span><span class="Constant">$emit-subx-x32:end</span>: -<span id="L35488" class="LineNr">35488 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35489" class="LineNr">35489 </span> 59/pop-to-ecx -<span id="L35490" class="LineNr">35490 </span> 58/pop-to-eax -<span id="L35491" class="LineNr">35491 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35492" class="LineNr">35492 </span> 89/<- %esp 5/r32/ebp -<span id="L35493" class="LineNr">35493 </span> 5d/pop-to-ebp -<span id="L35494" class="LineNr">35494 </span> c3/return -<span id="L35495" class="LineNr">35495 </span> -<span id="L35496" class="LineNr">35496 </span><span class="subxFunction">emit-subx-imm32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L35497" class="LineNr">35497 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35498" class="LineNr">35498 </span> 55/push-ebp -<span id="L35499" class="LineNr">35499 </span> 89/<- %ebp 4/r32/esp -<span id="L35500" class="LineNr">35500 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35501" class="LineNr">35501 </span> 50/push-eax -<span id="L35502" class="LineNr">35502 </span> 51/push-ecx -<span id="L35503" class="LineNr">35503 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L35504" class="LineNr">35504 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L35505" class="LineNr">35505 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 -<span id="L35506" class="LineNr">35506 </span> <span class="subxComment"># var v/eax: (handle var)</span> -<span id="L35507" class="LineNr">35507 </span> (<a href='mu.subx.html#L35380'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L35508" class="LineNr">35508 </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="L35509" class="LineNr">35509 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L35510" class="LineNr">35510 </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="L35511" class="LineNr">35511 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35512" class="LineNr">35512 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32"</span>) -<span id="L35513" class="LineNr">35513 </span><span class="Constant">$emit-subx-imm32:end</span>: -<span id="L35514" class="LineNr">35514 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35515" class="LineNr">35515 </span> 59/pop-to-ecx -<span id="L35516" class="LineNr">35516 </span> 58/pop-to-eax -<span id="L35517" class="LineNr">35517 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35518" class="LineNr">35518 </span> 89/<- %esp 5/r32/ebp -<span id="L35519" class="LineNr">35519 </span> 5d/pop-to-ebp -<span id="L35520" class="LineNr">35520 </span> c3/return +<span id="L35434" class="LineNr">35434 </span><span class="SpecialChar">Single-int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35435" class="LineNr">35435 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35436" class="LineNr">35436 </span> 0x11/imm32/alloc-id:fake +<span id="L35437" class="LineNr">35437 </span> <span class="SpecialChar"><a href='mu.subx.html#L35441'>Int-var-in-edi</a></span>/imm32 +<span id="L35438" class="LineNr">35438 </span> 0/imm32/next +<span id="L35439" class="LineNr">35439 </span> 0/imm32/next +<span id="L35440" class="LineNr">35440 </span> +<span id="L35441" class="LineNr">35441 </span><span class="SpecialChar">Int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35442" class="LineNr">35442 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35443" class="LineNr">35443 </span> 0/imm32/name +<span id="L35444" class="LineNr">35444 </span> 0/imm32/name +<span id="L35445" class="LineNr">35445 </span> 0x11/imm32/alloc-id:fake +<span id="L35446" class="LineNr">35446 </span> <span class="SpecialChar"><a href='mu.subx.html#L35506'>Type-int</a></span>/imm32 +<span id="L35447" class="LineNr">35447 </span> 1/imm32/some-block-depth +<span id="L35448" class="LineNr">35448 </span> 0/imm32/no-stack-offset +<span id="L35449" class="LineNr">35449 </span> 0x11/imm32/alloc-id:fake +<span id="L35450" class="LineNr">35450 </span> $Register-edi/imm32/register +<span id="L35451" class="LineNr">35451 </span> +<span id="L35452" class="LineNr">35452 </span><span class="SpecialChar">Single-lit-var</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35453" class="LineNr">35453 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35454" class="LineNr">35454 </span> 0x11/imm32/alloc-id:fake +<span id="L35455" class="LineNr">35455 </span> <span class="SpecialChar"><a href='mu.subx.html#L35459'>Lit-var</a></span>/imm32 +<span id="L35456" class="LineNr">35456 </span> 0/imm32/next +<span id="L35457" class="LineNr">35457 </span> 0/imm32/next +<span id="L35458" class="LineNr">35458 </span> +<span id="L35459" class="LineNr">35459 </span><span class="SpecialChar">Lit-var</span>: <span class="subxComment"># (payload var)</span> +<span id="L35460" class="LineNr">35460 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35461" class="LineNr">35461 </span> 0/imm32/name +<span id="L35462" class="LineNr">35462 </span> 0/imm32/name +<span id="L35463" class="LineNr">35463 </span> 0x11/imm32/alloc-id:fake +<span id="L35464" class="LineNr">35464 </span> <span class="SpecialChar"><a href='mu.subx.html#L35514'>Type-literal</a></span>/imm32 +<span id="L35465" class="LineNr">35465 </span> 1/imm32/some-block-depth +<span id="L35466" class="LineNr">35466 </span> 0/imm32/no-stack-offset +<span id="L35467" class="LineNr">35467 </span> 0/imm32/no-register +<span id="L35468" class="LineNr">35468 </span> 0/imm32/no-register +<span id="L35469" class="LineNr">35469 </span> +<span id="L35470" class="LineNr">35470 </span><span class="SpecialChar">Single-float-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35471" class="LineNr">35471 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35472" class="LineNr">35472 </span> 0x11/imm32/alloc-id:fake +<span id="L35473" class="LineNr">35473 </span> <span class="SpecialChar"><a href='mu.subx.html#L35477'>Float-var-in-mem</a></span>/imm32 +<span id="L35474" class="LineNr">35474 </span> 0/imm32/next +<span id="L35475" class="LineNr">35475 </span> 0/imm32/next +<span id="L35476" class="LineNr">35476 </span> +<span id="L35477" class="LineNr">35477 </span><span class="SpecialChar">Float-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L35478" class="LineNr">35478 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35479" class="LineNr">35479 </span> 0/imm32/name +<span id="L35480" class="LineNr">35480 </span> 0/imm32/name +<span id="L35481" class="LineNr">35481 </span> 0x11/imm32/alloc-id:fake +<span id="L35482" class="LineNr">35482 </span> <span class="SpecialChar"><a href='mu.subx.html#L35546'>Type-float</a></span>/imm32 +<span id="L35483" class="LineNr">35483 </span> 1/imm32/some-block-depth +<span id="L35484" class="LineNr">35484 </span> 1/imm32/some-stack-offset +<span id="L35485" class="LineNr">35485 </span> 0/imm32/no-register +<span id="L35486" class="LineNr">35486 </span> 0/imm32/no-register +<span id="L35487" class="LineNr">35487 </span> +<span id="L35488" class="LineNr">35488 </span><span class="SpecialChar">Single-float-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L35489" class="LineNr">35489 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35490" class="LineNr">35490 </span> 0x11/imm32/alloc-id:fake +<span id="L35491" class="LineNr">35491 </span> <span class="SpecialChar"><a href='mu.subx.html#L35495'>Float-var-in-some-register</a></span>/imm32 +<span id="L35492" class="LineNr">35492 </span> 0/imm32/next +<span id="L35493" class="LineNr">35493 </span> 0/imm32/next +<span id="L35494" class="LineNr">35494 </span> +<span id="L35495" class="LineNr">35495 </span><span class="SpecialChar">Float-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L35496" class="LineNr">35496 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35497" class="LineNr">35497 </span> 0/imm32/name +<span id="L35498" class="LineNr">35498 </span> 0/imm32/name +<span id="L35499" class="LineNr">35499 </span> 0x11/imm32/alloc-id:fake +<span id="L35500" class="LineNr">35500 </span> <span class="SpecialChar"><a href='mu.subx.html#L35546'>Type-float</a></span>/imm32 +<span id="L35501" class="LineNr">35501 </span> 1/imm32/some-block-depth +<span id="L35502" class="LineNr">35502 </span> 0/imm32/no-stack-offset +<span id="L35503" class="LineNr">35503 </span> 0x11/imm32/alloc-id:fake +<span id="L35504" class="LineNr">35504 </span> <span class="SpecialChar"><a href='mu.subx.html#L35316'>Any-register</a></span>/imm32 +<span id="L35505" class="LineNr">35505 </span> +<span id="L35506" class="LineNr">35506 </span><span class="SpecialChar">Type-int</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L35507" class="LineNr">35507 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35508" class="LineNr">35508 </span> 1/imm32/is-atom +<span id="L35509" class="LineNr">35509 </span> 1/imm32/value:int +<span id="L35510" class="LineNr">35510 </span> 0/imm32/left:unused +<span id="L35511" class="LineNr">35511 </span> 0/imm32/right:null +<span id="L35512" class="LineNr">35512 </span> 0/imm32/right:null +<span id="L35513" class="LineNr">35513 </span> +<span id="L35514" class="LineNr">35514 </span><span class="SpecialChar">Type-literal</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L35515" class="LineNr">35515 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35516" class="LineNr">35516 </span> 1/imm32/is-atom +<span id="L35517" class="LineNr">35517 </span> 0/imm32/value:literal +<span id="L35518" class="LineNr">35518 </span> 0/imm32/left:unused +<span id="L35519" class="LineNr">35519 </span> 0/imm32/right:null +<span id="L35520" class="LineNr">35520 </span> 0/imm32/right:null <span id="L35521" class="LineNr">35521 </span> -<span id="L35522" class="LineNr">35522 </span><span class="subxFunction">emit-subx-imm8</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L35523" class="LineNr">35523 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35524" class="LineNr">35524 </span> 55/push-ebp -<span id="L35525" class="LineNr">35525 </span> 89/<- %ebp 4/r32/esp -<span id="L35526" class="LineNr">35526 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35527" class="LineNr">35527 </span> 50/push-eax -<span id="L35528" class="LineNr">35528 </span> 51/push-ecx -<span id="L35529" class="LineNr">35529 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L35530" class="LineNr">35530 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L35531" class="LineNr">35531 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 -<span id="L35532" class="LineNr">35532 </span> <span class="subxComment"># var v/eax: (handle var)</span> -<span id="L35533" class="LineNr">35533 </span> (<a href='mu.subx.html#L35380'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L35534" class="LineNr">35534 </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="L35535" class="LineNr">35535 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L35536" class="LineNr">35536 </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="L35537" class="LineNr">35537 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35538" class="LineNr">35538 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8"</span>) -<span id="L35539" class="LineNr">35539 </span><span class="Constant">$emit-subx-imm8:end</span>: -<span id="L35540" class="LineNr">35540 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35541" class="LineNr">35541 </span> 59/pop-to-ecx -<span id="L35542" class="LineNr">35542 </span> 58/pop-to-eax -<span id="L35543" class="LineNr">35543 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35544" class="LineNr">35544 </span> 89/<- %esp 5/r32/ebp -<span id="L35545" class="LineNr">35545 </span> 5d/pop-to-ebp -<span id="L35546" class="LineNr">35546 </span> c3/return -<span id="L35547" class="LineNr">35547 </span> -<span id="L35548" class="LineNr">35548 </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="L35549" class="LineNr">35549 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35550" class="LineNr">35550 </span> 55/push-ebp -<span id="L35551" class="LineNr">35551 </span> 89/<- %ebp 4/r32/esp -<span id="L35552" class="LineNr">35552 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35553" class="LineNr">35553 </span> 50/push-eax -<span id="L35554" class="LineNr">35554 </span> 51/push-ecx -<span id="L35555" class="LineNr">35555 </span> <span class="subxComment"># if (location == 0) return</span> -<span id="L35556" class="LineNr">35556 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L35557" class="LineNr">35557 </span> 0f 84/jump-if-= $emit-subx-disp32:end/disp32 -<span id="L35558" class="LineNr">35558 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L35559" class="LineNr">35559 </span> (<a href='mu.subx.html#L35380'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L35560" class="LineNr">35560 </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="L35561" class="LineNr">35561 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L35562" class="LineNr">35562 </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="L35563" class="LineNr">35563 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35564" class="LineNr">35564 </span> <span class="subxComment"># hack: if instruction operation starts with "break", emit ":break"</span> -<span id="L35565" class="LineNr">35565 </span> <span class="subxComment"># var name/ecx: (addr array byte) = lookup(stmt->operation)</span> -<span id="L35566" class="LineNr">35566 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L35567" class="LineNr">35567 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L35568" class="LineNr">35568 </span> 89/<- %ecx 0/r32/eax -<span id="L35569" class="LineNr">35569 </span> { -<span id="L35570" class="LineNr">35570 </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="L35571" class="LineNr">35571 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35572" class="LineNr">35572 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35573" class="LineNr">35573 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break"</span>) -<span id="L35574" class="LineNr">35574 </span> } -<span id="L35575" class="LineNr">35575 </span> <span class="subxComment"># hack: if instruction operation starts with "loop", emit ":loop"</span> -<span id="L35576" class="LineNr">35576 </span> { -<span id="L35577" class="LineNr">35577 </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="L35578" class="LineNr">35578 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35579" class="LineNr">35579 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35580" class="LineNr">35580 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop"</span>) -<span id="L35581" class="LineNr">35581 </span> } -<span id="L35582" class="LineNr">35582 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32"</span>) -<span id="L35583" class="LineNr">35583 </span><span class="Constant">$emit-subx-disp32:end</span>: -<span id="L35584" class="LineNr">35584 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35585" class="LineNr">35585 </span> 59/pop-to-ecx -<span id="L35586" class="LineNr">35586 </span> 58/pop-to-eax -<span id="L35587" class="LineNr">35587 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35588" class="LineNr">35588 </span> 89/<- %esp 5/r32/ebp -<span id="L35589" class="LineNr">35589 </span> 5d/pop-to-ebp -<span id="L35590" class="LineNr">35590 </span> c3/return -<span id="L35591" class="LineNr">35591 </span> -<span id="L35592" class="LineNr">35592 </span><span class="subxFunction">emit-call</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> -<span id="L35593" class="LineNr">35593 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35594" class="LineNr">35594 </span> 55/push-ebp -<span id="L35595" class="LineNr">35595 </span> 89/<- %ebp 4/r32/esp -<span id="L35596" class="LineNr">35596 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35597" class="LineNr">35597 </span> 50/push-eax -<span id="L35598" class="LineNr">35598 </span> 51/push-ecx -<span id="L35599" class="LineNr">35599 </span> <span class="subxComment">#</span> -<span id="L35600" class="LineNr">35600 </span> (<a href='mu.subx.html#L38826'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span>) -<span id="L35601" class="LineNr">35601 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"("</span>) -<span id="L35602" class="LineNr">35602 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L35603" class="LineNr">35603 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L35604" class="LineNr">35604 </span> <span class="subxH1Comment"># - emit function name</span> -<span id="L35605" class="LineNr">35605 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L35606" class="LineNr">35606 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35607" class="LineNr">35607 </span> <span class="subxH1Comment"># - emit arguments</span> -<span id="L35608" class="LineNr">35608 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L35609" class="LineNr">35609 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L35610" class="LineNr">35610 </span> { -<span id="L35611" class="LineNr">35611 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L35612" class="LineNr">35612 </span> 3d/compare-eax-and 0/imm32 -<span id="L35613" class="LineNr">35613 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35614" class="LineNr">35614 </span> <span class="subxComment">#</span> -<span id="L35615" class="LineNr">35615 </span> (<a href='mu.subx.html#L35631'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L35616" class="LineNr">35616 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L35617" class="LineNr">35617 </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="L35618" class="LineNr">35618 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L35619" class="LineNr">35619 </span> } -<span id="L35620" class="LineNr">35620 </span> <span class="subxComment">#</span> -<span id="L35621" class="LineNr">35621 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L35622" class="LineNr">35622 </span><span class="Constant">$emit-call:end</span>: -<span id="L35623" class="LineNr">35623 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35624" class="LineNr">35624 </span> 59/pop-to-ecx -<span id="L35625" class="LineNr">35625 </span> 58/pop-to-eax -<span id="L35626" class="LineNr">35626 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35627" class="LineNr">35627 </span> 89/<- %esp 5/r32/ebp -<span id="L35628" class="LineNr">35628 </span> 5d/pop-to-ebp -<span id="L35629" class="LineNr">35629 </span> c3/return -<span id="L35630" class="LineNr">35630 </span> -<span id="L35631" class="LineNr">35631 </span><span class="subxFunction">emit-subx-call-operand</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> -<span id="L35632" class="LineNr">35632 </span> <span class="subxComment"># shares code with emit-subx-var-as-rm32</span> -<span id="L35633" class="LineNr">35633 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35634" class="LineNr">35634 </span> 55/push-ebp -<span id="L35635" class="LineNr">35635 </span> 89/<- %ebp 4/r32/esp -<span id="L35636" class="LineNr">35636 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35637" class="LineNr">35637 </span> 50/push-eax +<span id="L35522" class="LineNr">35522 </span><span class="SpecialChar">Type-addr</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L35523" class="LineNr">35523 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35524" class="LineNr">35524 </span> 1/imm32/is-atom +<span id="L35525" class="LineNr">35525 </span> 2/imm32/value:addr +<span id="L35526" class="LineNr">35526 </span> 0/imm32/left:unused +<span id="L35527" class="LineNr">35527 </span> 0/imm32/right:null +<span id="L35528" class="LineNr">35528 </span> 0/imm32/right:null +<span id="L35529" class="LineNr">35529 </span> +<span id="L35530" class="LineNr">35530 </span><span class="SpecialChar">Type-array</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L35531" class="LineNr">35531 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35532" class="LineNr">35532 </span> 1/imm32/is-atom +<span id="L35533" class="LineNr">35533 </span> 3/imm32/value:array +<span id="L35534" class="LineNr">35534 </span> 0/imm32/left:unused +<span id="L35535" class="LineNr">35535 </span> 0/imm32/right:null +<span id="L35536" class="LineNr">35536 </span> 0/imm32/right:null +<span id="L35537" class="LineNr">35537 </span> +<span id="L35538" class="LineNr">35538 </span><span class="SpecialChar">Type-byte</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L35539" class="LineNr">35539 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35540" class="LineNr">35540 </span> 1/imm32/is-atom +<span id="L35541" class="LineNr">35541 </span> 8/imm32/value:byte +<span id="L35542" class="LineNr">35542 </span> 0/imm32/left:unused +<span id="L35543" class="LineNr">35543 </span> 0/imm32/right:null +<span id="L35544" class="LineNr">35544 </span> 0/imm32/right:null +<span id="L35545" class="LineNr">35545 </span> +<span id="L35546" class="LineNr">35546 </span><span class="SpecialChar">Type-float</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L35547" class="LineNr">35547 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35548" class="LineNr">35548 </span> 1/imm32/is-atom +<span id="L35549" class="LineNr">35549 </span> 0xf/imm32/value:float +<span id="L35550" class="LineNr">35550 </span> 0/imm32/left:unused +<span id="L35551" class="LineNr">35551 </span> 0/imm32/right:null +<span id="L35552" class="LineNr">35552 </span> 0/imm32/right:null +<span id="L35553" class="LineNr">35553 </span> +<span id="L35554" class="LineNr">35554 </span><span class="SpecialChar">Addr-type-string</span>: <span class="subxComment"># (addr type-tree)</span> +<span id="L35555" class="LineNr">35555 </span> 0/imm32/not-atom +<span id="L35556" class="LineNr">35556 </span> 0x11/imm32/alloc-id:fake +<span id="L35557" class="LineNr">35557 </span> <span class="SpecialChar"><a href='mu.subx.html#L35522'>Type-addr</a></span>/imm32/left +<span id="L35558" class="LineNr">35558 </span> 0x11/imm32/alloc-id:fake +<span id="L35559" class="LineNr">35559 </span> _Addr-type-string:array/imm32/right +<span id="L35560" class="LineNr">35560 </span><span class="subxMinorFunction">_Addr-type-string:array</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L35561" class="LineNr">35561 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35562" class="LineNr">35562 </span> 0/imm32/not-atom +<span id="L35563" class="LineNr">35563 </span> 0x11/imm32/alloc-id:fake +<span id="L35564" class="LineNr">35564 </span> <span class="SpecialChar"><a href='mu.subx.html#L35530'>Type-array</a></span>/imm32/left +<span id="L35565" class="LineNr">35565 </span> 0x11/imm32/alloc-id:fake +<span id="L35566" class="LineNr">35566 </span> _Addr-type-string:byte/imm32/right +<span id="L35567" class="LineNr">35567 </span><span class="subxMinorFunction">_Addr-type-string:byte</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L35568" class="LineNr">35568 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L35569" class="LineNr">35569 </span> 0/imm32/not-atom +<span id="L35570" class="LineNr">35570 </span> 0x11/imm32/alloc-id:fake +<span id="L35571" class="LineNr">35571 </span> <span class="SpecialChar"><a href='mu.subx.html#L35538'>Type-byte</a></span>/imm32/left +<span id="L35572" class="LineNr">35572 </span> 0/imm32/right:null +<span id="L35573" class="LineNr">35573 </span> 0/imm32/right:null +<span id="L35574" class="LineNr">35574 </span> +<span id="L35575" class="LineNr">35575 </span>== code +<span id="L35576" class="LineNr">35576 </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="L35577" class="LineNr">35577 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35578" class="LineNr">35578 </span> 55/push-ebp +<span id="L35579" class="LineNr">35579 </span> 89/<- %ebp 4/r32/esp +<span id="L35580" class="LineNr">35580 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35581" class="LineNr">35581 </span> 50/push-eax +<span id="L35582" class="LineNr">35582 </span> 51/push-ecx +<span id="L35583" class="LineNr">35583 </span> <span class="subxComment"># ecx = primitive</span> +<span id="L35584" class="LineNr">35584 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L35585" class="LineNr">35585 </span> <span class="subxComment"># emit primitive name</span> +<span id="L35586" class="LineNr">35586 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L35587" class="LineNr">35587 </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="L35588" class="LineNr">35588 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35589" class="LineNr">35589 </span> <span class="subxComment"># emit rm32 if necessary</span> +<span id="L35590" class="LineNr">35590 </span> (<a href='mu.subx.html#L35613'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x20) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-rm32</span> +<span id="L35591" class="LineNr">35591 </span> <span class="subxComment"># emit xm32 if necessary</span> +<span id="L35592" class="LineNr">35592 </span> (<a href='mu.subx.html#L35613'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x34) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-xm32</span> +<span id="L35593" class="LineNr">35593 </span> <span class="subxComment"># emit r32 if necessary</span> +<span id="L35594" class="LineNr">35594 </span> (<a href='mu.subx.html#L35687'>emit-subx-r32</a> *(ebp+8) *(ecx+0x24) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-r32</span> +<span id="L35595" class="LineNr">35595 </span> <span class="subxComment"># emit x32 if necessary</span> +<span id="L35596" class="LineNr">35596 </span> (<a href='mu.subx.html#L35718'>emit-subx-x32</a> *(ebp+8) *(ecx+0x38) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-x32</span> +<span id="L35597" class="LineNr">35597 </span> <span class="subxComment"># emit imm32 if necessary</span> +<span id="L35598" class="LineNr">35598 </span> (<a href='mu.subx.html#L35749'>emit-subx-imm32</a> *(ebp+8) *(ecx+0x28) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm32</span> +<span id="L35599" class="LineNr">35599 </span> <span class="subxComment"># emit imm8 if necessary</span> +<span id="L35600" class="LineNr">35600 </span> (<a href='mu.subx.html#L35775'>emit-subx-imm8</a> *(ebp+8) *(ecx+0x2c) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm8</span> +<span id="L35601" class="LineNr">35601 </span> <span class="subxComment"># emit disp32 if necessary</span> +<span id="L35602" class="LineNr">35602 </span> (<a href='mu.subx.html#L35801'>emit-subx-disp32</a> *(ebp+8) *(ecx+0x30) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-disp32</span> +<span id="L35603" class="LineNr">35603 </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="L35604" class="LineNr">35604 </span><span class="Constant">$emit-subx-primitive:end</span>: +<span id="L35605" class="LineNr">35605 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35606" class="LineNr">35606 </span> 59/pop-to-ecx +<span id="L35607" class="LineNr">35607 </span> 58/pop-to-eax +<span id="L35608" class="LineNr">35608 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35609" class="LineNr">35609 </span> 89/<- %esp 5/r32/ebp +<span id="L35610" class="LineNr">35610 </span> 5d/pop-to-ebp +<span id="L35611" class="LineNr">35611 </span> c3/return +<span id="L35612" class="LineNr">35612 </span> +<span id="L35613" class="LineNr">35613 </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="L35614" class="LineNr">35614 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35615" class="LineNr">35615 </span> 55/push-ebp +<span id="L35616" class="LineNr">35616 </span> 89/<- %ebp 4/r32/esp +<span id="L35617" class="LineNr">35617 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35618" class="LineNr">35618 </span> 50/push-eax +<span id="L35619" class="LineNr">35619 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L35620" class="LineNr">35620 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L35621" class="LineNr">35621 </span> 74/jump-if-= $emit-subx-rm32:end/disp8 +<span id="L35622" class="LineNr">35622 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L35623" class="LineNr">35623 </span> (<a href='mu.subx.html#L35633'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L35624" class="LineNr">35624 </span> (<a href='mu.subx.html#L36046'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) +<span id="L35625" class="LineNr">35625 </span><span class="Constant">$emit-subx-rm32:end</span>: +<span id="L35626" class="LineNr">35626 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35627" class="LineNr">35627 </span> 58/pop-to-eax +<span id="L35628" class="LineNr">35628 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35629" class="LineNr">35629 </span> 89/<- %esp 5/r32/ebp +<span id="L35630" class="LineNr">35630 </span> 5d/pop-to-ebp +<span id="L35631" class="LineNr">35631 </span> c3/return +<span id="L35632" class="LineNr">35632 </span> +<span id="L35633" class="LineNr">35633 </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="L35634" class="LineNr">35634 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35635" class="LineNr">35635 </span> 55/push-ebp +<span id="L35636" class="LineNr">35636 </span> 89/<- %ebp 4/r32/esp +<span id="L35637" class="LineNr">35637 </span> <span class="subxS1Comment"># . save registers</span> <span id="L35638" class="LineNr">35638 </span> 51/push-ecx -<span id="L35639" class="LineNr">35639 </span> 56/push-esi -<span id="L35640" class="LineNr">35640 </span> <span class="subxComment"># ecx = s</span> -<span id="L35641" class="LineNr">35641 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L35642" class="LineNr">35642 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> -<span id="L35643" class="LineNr">35643 </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="L35644" class="LineNr">35644 </span> 89/<- %esi 0/r32/eax -<span id="L35645" class="LineNr">35645 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> -<span id="L35646" class="LineNr">35646 </span> { -<span id="L35647" class="LineNr">35647 </span><span class="Constant">$emit-subx-call-operand:check-for-register-direct</span>: -<span id="L35648" class="LineNr">35648 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35649" class="LineNr">35649 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35650" class="LineNr">35650 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35651" class="LineNr">35651 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35652" class="LineNr">35652 </span><span class="Constant">$emit-subx-call-operand:register-direct</span>: -<span id="L35653" class="LineNr">35653 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) -<span id="L35654" class="LineNr">35654 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35655" class="LineNr">35655 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35656" class="LineNr">35656 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L35657" class="LineNr">35657 </span> } -<span id="L35658" class="LineNr">35658 </span> <span class="subxComment"># else if (operand->register && s->is-deref?) emit "*__"</span> -<span id="L35659" class="LineNr">35659 </span> { -<span id="L35660" class="LineNr">35660 </span><span class="Constant">$emit-subx-call-operand:check-for-register-indirect</span>: -<span id="L35661" class="LineNr">35661 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35662" class="LineNr">35662 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35663" class="LineNr">35663 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35664" class="LineNr">35664 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35665" class="LineNr">35665 </span><span class="Constant">$emit-subx-call-operand:register-indirect</span>: -<span id="L35666" class="LineNr">35666 </span> (<a href='mu.subx.html#L35708'>emit-subx-call-operand-register-indirect</a> *(ebp+8) %esi) -<span id="L35667" class="LineNr">35667 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L35668" class="LineNr">35668 </span> } -<span id="L35669" class="LineNr">35669 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> -<span id="L35670" class="LineNr">35670 </span> { -<span id="L35671" class="LineNr">35671 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L35672" class="LineNr">35672 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35673" class="LineNr">35673 </span><span class="Constant">$emit-subx-call-operand:stack</span>: -<span id="L35674" class="LineNr">35674 </span> (<a href='mu.subx.html#L35753'>emit-subx-call-operand-stack</a> *(ebp+8) %esi) -<span id="L35675" class="LineNr">35675 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L35676" class="LineNr">35676 </span> } -<span id="L35677" class="LineNr">35677 </span> <span class="subxComment"># else if (operand->type == literal) emit "__"</span> -<span id="L35678" class="LineNr">35678 </span> { -<span id="L35679" class="LineNr">35679 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L35680" class="LineNr">35680 </span> 81 7/subop/compare *(eax+4) 0/imm32 <span class="subxComment"># Type-tree-value</span> -<span id="L35681" class="LineNr">35681 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35682" class="LineNr">35682 </span><span class="Constant">$emit-subx-call-operand:literal</span>: -<span id="L35683" class="LineNr">35683 </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="L35684" class="LineNr">35684 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L35685" class="LineNr">35685 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35686" class="LineNr">35686 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L35687" class="LineNr">35687 </span> } -<span id="L35688" class="LineNr">35688 </span> <span class="subxComment"># else if (operand->type == literal-string) emit "__"</span> -<span id="L35689" class="LineNr">35689 </span> { -<span id="L35690" class="LineNr">35690 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L35691" class="LineNr">35691 </span> 81 7/subop/compare *(eax+4) 0x10/imm32 <span class="subxComment"># Type-tree-value</span> -<span id="L35692" class="LineNr">35692 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35693" class="LineNr">35693 </span><span class="Constant">$emit-subx-call-operand:literal-string</span>: -<span id="L35694" class="LineNr">35694 </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="L35695" class="LineNr">35695 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L35696" class="LineNr">35696 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35697" class="LineNr">35697 </span> } -<span id="L35698" class="LineNr">35698 </span><span class="Constant">$emit-subx-call-operand:end</span>: -<span id="L35699" class="LineNr">35699 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35700" class="LineNr">35700 </span> 5e/pop-to-esi -<span id="L35701" class="LineNr">35701 </span> 59/pop-to-ecx -<span id="L35702" class="LineNr">35702 </span> 58/pop-to-eax -<span id="L35703" class="LineNr">35703 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35704" class="LineNr">35704 </span> 89/<- %esp 5/r32/ebp -<span id="L35705" class="LineNr">35705 </span> 5d/pop-to-ebp -<span id="L35706" class="LineNr">35706 </span> c3/return -<span id="L35707" class="LineNr">35707 </span> -<span id="L35708" class="LineNr">35708 </span><span class="subxFunction">emit-subx-call-operand-register-indirect</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> -<span id="L35709" class="LineNr">35709 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35710" class="LineNr">35710 </span> 55/push-ebp -<span id="L35711" class="LineNr">35711 </span> 89/<- %ebp 4/r32/esp -<span id="L35712" class="LineNr">35712 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35713" class="LineNr">35713 </span> 50/push-eax -<span id="L35714" class="LineNr">35714 </span> 51/push-ecx -<span id="L35715" class="LineNr">35715 </span> 56/push-esi -<span id="L35716" class="LineNr">35716 </span> <span class="subxComment"># esi = v</span> -<span id="L35717" class="LineNr">35717 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L35718" class="LineNr">35718 </span> <span class="subxComment"># var size/ecx: int = size-of-deref(v)</span> -<span id="L35719" class="LineNr">35719 </span> (<a href='mu.subx.html#L26645'>size-of-deref</a> %esi) <span class="subxComment"># => eax</span> -<span id="L35720" class="LineNr">35720 </span> 89/<- %ecx 0/r32/eax -<span id="L35721" class="LineNr">35721 </span> <span class="subxComment"># var reg-name/esi: (addr array byte) = lookup(v->register)</span> -<span id="L35722" class="LineNr">35722 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35723" class="LineNr">35723 </span> 89/<- %esi 0/r32/eax -<span id="L35724" class="LineNr">35724 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> -<span id="L35725" class="LineNr">35725 </span> <span class="subxComment"># var i/eax: int = 0</span> -<span id="L35726" class="LineNr">35726 </span> b8/copy-to-eax 0/imm32 -<span id="L35727" class="LineNr">35727 </span> { -<span id="L35728" class="LineNr">35728 </span><span class="Constant">$emit-subx-call-operand-register-indirect:loop</span>: -<span id="L35729" class="LineNr">35729 </span> <span class="subxComment"># if (i >= size) break</span> -<span id="L35730" class="LineNr">35730 </span> 39/compare %eax 1/r32/ecx -<span id="L35731" class="LineNr">35731 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L35732" class="LineNr">35732 </span> <span class="subxComment"># emit " *(" v->register "+" i ")"</span> -<span id="L35733" class="LineNr">35733 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *("</span>) -<span id="L35734" class="LineNr">35734 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %esi) -<span id="L35735" class="LineNr">35735 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"+"</span>) -<span id="L35736" class="LineNr">35736 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L35737" class="LineNr">35737 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L35738" class="LineNr">35738 </span> <span class="subxComment"># i += 4</span> -<span id="L35739" class="LineNr">35739 </span> 05/add-to-eax 4/imm32 -<span id="L35740" class="LineNr">35740 </span> <span class="subxComment">#</span> -<span id="L35741" class="LineNr">35741 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L35742" class="LineNr">35742 </span> } -<span id="L35743" class="LineNr">35743 </span><span class="Constant">$emit-subx-call-operand-register-indirect:end</span>: -<span id="L35744" class="LineNr">35744 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35745" class="LineNr">35745 </span> 5e/pop-to-esi -<span id="L35746" class="LineNr">35746 </span> 59/pop-to-ecx -<span id="L35747" class="LineNr">35747 </span> 58/pop-to-eax -<span id="L35748" class="LineNr">35748 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35749" class="LineNr">35749 </span> 89/<- %esp 5/r32/ebp -<span id="L35750" class="LineNr">35750 </span> 5d/pop-to-ebp -<span id="L35751" class="LineNr">35751 </span> c3/return -<span id="L35752" class="LineNr">35752 </span> -<span id="L35753" class="LineNr">35753 </span><span class="subxFunction">emit-subx-call-operand-stack</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> -<span id="L35754" class="LineNr">35754 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35755" class="LineNr">35755 </span> 55/push-ebp -<span id="L35756" class="LineNr">35756 </span> 89/<- %ebp 4/r32/esp -<span id="L35757" class="LineNr">35757 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35758" class="LineNr">35758 </span> 50/push-eax -<span id="L35759" class="LineNr">35759 </span> 51/push-ecx -<span id="L35760" class="LineNr">35760 </span> 56/push-esi -<span id="L35761" class="LineNr">35761 </span> <span class="subxComment"># esi = v</span> -<span id="L35762" class="LineNr">35762 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L35763" class="LineNr">35763 </span> <span class="subxComment"># var curr/ecx: int = v->offset</span> -<span id="L35764" class="LineNr">35764 </span> 8b/-> *(esi+0x14) 1/r32/ecx <span class="subxComment"># Var-offset</span> -<span id="L35765" class="LineNr">35765 </span> <span class="subxComment"># var max/eax: int = v->offset + size-of(v)</span> -<span id="L35766" class="LineNr">35766 </span> (<a href='mu.subx.html#L26595'>size-of</a> %esi) <span class="subxComment"># => eax</span> -<span id="L35767" class="LineNr">35767 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> -<span id="L35768" class="LineNr">35768 </span> 01/add-to %eax 1/r32/ecx -<span id="L35769" class="LineNr">35769 </span> { -<span id="L35770" class="LineNr">35770 </span><span class="Constant">$emit-subx-call-operand-stack:loop</span>: -<span id="L35771" class="LineNr">35771 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L35772" class="LineNr">35772 </span> 39/compare %ecx 0/r32/eax -<span id="L35773" class="LineNr">35773 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L35774" class="LineNr">35774 </span> <span class="subxComment"># emit " *(ebp+" curr ")"</span> -<span id="L35775" class="LineNr">35775 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) -<span id="L35776" class="LineNr">35776 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) -<span id="L35777" class="LineNr">35777 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L35778" class="LineNr">35778 </span> <span class="subxComment"># i += 4</span> -<span id="L35779" class="LineNr">35779 </span> 81 0/subop/add %ecx 4/imm32 -<span id="L35780" class="LineNr">35780 </span> <span class="subxComment">#</span> -<span id="L35781" class="LineNr">35781 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L35782" class="LineNr">35782 </span> } -<span id="L35783" class="LineNr">35783 </span><span class="Constant">$emit-subx-call-operand-stack:end</span>: -<span id="L35784" class="LineNr">35784 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35785" class="LineNr">35785 </span> 5e/pop-to-esi -<span id="L35786" class="LineNr">35786 </span> 59/pop-to-ecx -<span id="L35787" class="LineNr">35787 </span> 58/pop-to-eax -<span id="L35788" class="LineNr">35788 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35789" class="LineNr">35789 </span> 89/<- %esp 5/r32/ebp -<span id="L35790" class="LineNr">35790 </span> 5d/pop-to-ebp -<span id="L35791" class="LineNr">35791 </span> c3/return -<span id="L35792" class="LineNr">35792 </span> -<span id="L35793" class="LineNr">35793 </span><span class="subxFunction">emit-subx-var-as-rm32</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> -<span id="L35794" class="LineNr">35794 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35795" class="LineNr">35795 </span> 55/push-ebp -<span id="L35796" class="LineNr">35796 </span> 89/<- %ebp 4/r32/esp -<span id="L35797" class="LineNr">35797 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35798" class="LineNr">35798 </span> 50/push-eax -<span id="L35799" class="LineNr">35799 </span> 51/push-ecx -<span id="L35800" class="LineNr">35800 </span> 56/push-esi -<span id="L35801" class="LineNr">35801 </span> <span class="subxComment"># ecx = s</span> -<span id="L35802" class="LineNr">35802 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L35803" class="LineNr">35803 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> -<span id="L35804" class="LineNr">35804 </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="L35805" class="LineNr">35805 </span> 89/<- %esi 0/r32/eax -<span id="L35806" class="LineNr">35806 </span> <span class="subxComment"># if (operand->register && s->is-deref?) emit "*__"</span> -<span id="L35807" class="LineNr">35807 </span> { -<span id="L35808" class="LineNr">35808 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-indirect</span>: -<span id="L35809" class="LineNr">35809 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35810" class="LineNr">35810 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35811" class="LineNr">35811 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35812" class="LineNr">35812 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35813" class="LineNr">35813 </span><span class="Constant">$emit-subx-var-as-rm32:register-indirect</span>: -<span id="L35814" class="LineNr">35814 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) -<span id="L35815" class="LineNr">35815 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35816" class="LineNr">35816 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35817" class="LineNr">35817 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 -<span id="L35818" class="LineNr">35818 </span> } -<span id="L35819" class="LineNr">35819 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> -<span id="L35820" class="LineNr">35820 </span> { -<span id="L35821" class="LineNr">35821 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-direct</span>: -<span id="L35822" class="LineNr">35822 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35823" class="LineNr">35823 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35824" class="LineNr">35824 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35825" class="LineNr">35825 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35826" class="LineNr">35826 </span><span class="Constant">$emit-subx-var-as-rm32:register-direct</span>: -<span id="L35827" class="LineNr">35827 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) -<span id="L35828" class="LineNr">35828 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35829" class="LineNr">35829 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35830" class="LineNr">35830 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 -<span id="L35831" class="LineNr">35831 </span> } -<span id="L35832" class="LineNr">35832 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> -<span id="L35833" class="LineNr">35833 </span> { -<span id="L35834" class="LineNr">35834 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L35835" class="LineNr">35835 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35836" class="LineNr">35836 </span><span class="Constant">$emit-subx-var-as-rm32:stack</span>: -<span id="L35837" class="LineNr">35837 </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="L35838" class="LineNr">35838 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) -<span id="L35839" class="LineNr">35839 </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="L35840" class="LineNr">35840 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L35841" class="LineNr">35841 </span> } -<span id="L35842" class="LineNr">35842 </span><span class="Constant">$emit-subx-var-as-rm32:end</span>: -<span id="L35843" class="LineNr">35843 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35844" class="LineNr">35844 </span> 5e/pop-to-esi -<span id="L35845" class="LineNr">35845 </span> 59/pop-to-ecx -<span id="L35846" class="LineNr">35846 </span> 58/pop-to-eax -<span id="L35847" class="LineNr">35847 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35848" class="LineNr">35848 </span> 89/<- %esp 5/r32/ebp -<span id="L35849" class="LineNr">35849 </span> 5d/pop-to-ebp -<span id="L35850" class="LineNr">35850 </span> c3/return -<span id="L35851" class="LineNr">35851 </span> -<span id="L35852" class="LineNr">35852 </span><span class="subxFunction">find-matching-primitive</span>: <span class="subxComment"># primitives: (addr primitive), stmt: (addr stmt) -> result/eax: (addr primitive)</span> -<span id="L35853" class="LineNr">35853 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35854" class="LineNr">35854 </span> 55/push-ebp -<span id="L35855" class="LineNr">35855 </span> 89/<- %ebp 4/r32/esp -<span id="L35856" class="LineNr">35856 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35857" class="LineNr">35857 </span> 51/push-ecx -<span id="L35858" class="LineNr">35858 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = primitives</span> -<span id="L35859" class="LineNr">35859 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L35860" class="LineNr">35860 </span> { -<span id="L35861" class="LineNr">35861 </span><span class="Constant">$find-matching-primitive:loop</span>: -<span id="L35862" class="LineNr">35862 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L35863" class="LineNr">35863 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L35864" class="LineNr">35864 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35865" class="LineNr">35865 </span> <span class="subxComment"># if match(curr, stmt) return curr</span> -<span id="L35866" class="LineNr">35866 </span> { -<span id="L35867" class="LineNr">35867 </span> (<a href='mu.subx.html#L35890'>mu-stmt-matches-primitive?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> -<span id="L35868" class="LineNr">35868 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35869" class="LineNr">35869 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35870" class="LineNr">35870 </span> 89/<- %eax 1/r32/ecx -<span id="L35871" class="LineNr">35871 </span> eb/jump $find-matching-primitive:end/disp8 -<span id="L35872" class="LineNr">35872 </span> } -<span id="L35873" class="LineNr">35873 </span><span class="Constant">$find-matching-primitive:next-primitive</span>: -<span id="L35874" class="LineNr">35874 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L35875" class="LineNr">35875 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> -<span id="L35876" class="LineNr">35876 </span> 89/<- %ecx 0/r32/eax -<span id="L35877" class="LineNr">35877 </span> <span class="subxComment">#</span> -<span id="L35878" class="LineNr">35878 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L35879" class="LineNr">35879 </span> } -<span id="L35880" class="LineNr">35880 </span> <span class="subxComment"># return null</span> -<span id="L35881" class="LineNr">35881 </span> b8/copy-to-eax 0/imm32 -<span id="L35882" class="LineNr">35882 </span><span class="Constant">$find-matching-primitive:end</span>: -<span id="L35883" class="LineNr">35883 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35884" class="LineNr">35884 </span> 59/pop-to-ecx -<span id="L35885" class="LineNr">35885 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35886" class="LineNr">35886 </span> 89/<- %esp 5/r32/ebp -<span id="L35887" class="LineNr">35887 </span> 5d/pop-to-ebp -<span id="L35888" class="LineNr">35888 </span> c3/return -<span id="L35889" class="LineNr">35889 </span> -<span id="L35890" class="LineNr">35890 </span><span class="subxFunction">mu-stmt-matches-primitive?</span>: <span class="subxComment"># stmt: (addr stmt), primitive: (addr primitive) -> result/eax: boolean</span> -<span id="L35891" class="LineNr">35891 </span> <span class="subxComment"># A mu stmt matches a primitive if the name matches, all the inout vars</span> -<span id="L35892" class="LineNr">35892 </span> <span class="subxComment"># match, and all the output vars match.</span> -<span id="L35893" class="LineNr">35893 </span> <span class="subxComment"># Vars match if types match and registers match.</span> -<span id="L35894" class="LineNr">35894 </span> <span class="subxComment"># In addition, a stmt output matches a primitive's output if types match</span> -<span id="L35895" class="LineNr">35895 </span> <span class="subxComment"># and the primitive has a wildcard register.</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> 52/push-edx -<span id="L35902" class="LineNr">35902 </span> 53/push-ebx -<span id="L35903" class="LineNr">35903 </span> 56/push-esi -<span id="L35904" class="LineNr">35904 </span> 57/push-edi -<span id="L35905" class="LineNr">35905 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L35906" class="LineNr">35906 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L35907" class="LineNr">35907 </span> <span class="subxComment"># edx = primitive</span> -<span id="L35908" class="LineNr">35908 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L35909" class="LineNr">35909 </span> { -<span id="L35910" class="LineNr">35910 </span><span class="Constant">$mu-stmt-matches-primitive?:check-name</span>: -<span id="L35911" class="LineNr">35911 </span> <span class="subxComment"># if (primitive->name != stmt->operation) return false</span> -<span id="L35912" class="LineNr">35912 </span> <span class="subxS1Comment"># . var esi: (addr array byte) = lookup(stmt->operation)</span> -<span id="L35913" class="LineNr">35913 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L35914" class="LineNr">35914 </span> 89/<- %esi 0/r32/eax -<span id="L35915" class="LineNr">35915 </span> <span class="subxS1Comment"># . var edi: (addr array byte) = lookup(primitive->name)</span> -<span id="L35916" class="LineNr">35916 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> -<span id="L35917" class="LineNr">35917 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L35918" class="LineNr">35918 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L35919" class="LineNr">35919 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L35920" class="LineNr">35920 </span> 89/<- %edi 0/r32/eax -<span id="L35921" class="LineNr">35921 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> -<span id="L35922" class="LineNr">35922 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35923" class="LineNr">35923 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35924" class="LineNr">35924 </span> b8/copy-to-eax 0/imm32 -<span id="L35925" class="LineNr">35925 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35926" class="LineNr">35926 </span> } -<span id="L35927" class="LineNr">35927 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L35928" class="LineNr">35928 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L35929" class="LineNr">35929 </span> 89/<- %esi 0/r32/eax -<span id="L35930" class="LineNr">35930 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->inouts)</span> -<span id="L35931" class="LineNr">35931 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Primitive-inouts Primitive-inouts => eax</span> -<span id="L35932" class="LineNr">35932 </span> 89/<- %edi 0/r32/eax -<span id="L35933" class="LineNr">35933 </span> { -<span id="L35934" class="LineNr">35934 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-loop</span>: -<span id="L35935" class="LineNr">35935 </span> <span class="subxComment"># if (curr == 0 && curr2 == 0) move on to check outputs</span> -<span id="L35936" class="LineNr">35936 </span> { -<span id="L35937" class="LineNr">35937 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-inouts-null</span>: -<span id="L35938" class="LineNr">35938 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L35939" class="LineNr">35939 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35940" class="LineNr">35940 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null</span>: -<span id="L35941" class="LineNr">35941 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L35942" class="LineNr">35942 </span> 0f 84/jump-if-= $mu-stmt-matches-primitive?:check-outputs/disp32 -<span id="L35943" class="LineNr">35943 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null-and-prim-inout-not-null</span>: -<span id="L35944" class="LineNr">35944 </span> <span class="subxComment"># return false</span> -<span id="L35945" class="LineNr">35945 </span> b8/copy-to-eax 0/imm32/false -<span id="L35946" class="LineNr">35946 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35947" class="LineNr">35947 </span> } -<span id="L35948" class="LineNr">35948 </span> <span class="subxComment"># if (curr2 == 0) return false</span> -<span id="L35949" class="LineNr">35949 </span> { -<span id="L35950" class="LineNr">35950 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-inout-null</span>: -<span id="L35951" class="LineNr">35951 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L35952" class="LineNr">35952 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35953" class="LineNr">35953 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-inout-null</span>: -<span id="L35954" class="LineNr">35954 </span> b8/copy-to-eax 0/imm32/false -<span id="L35955" class="LineNr">35955 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35956" class="LineNr">35956 </span> } -<span id="L35957" class="LineNr">35957 </span> <span class="subxComment"># if (curr != curr2) return false</span> -<span id="L35958" class="LineNr">35958 </span> { -<span id="L35959" class="LineNr">35959 </span><span class="Constant">$mu-stmt-matches-primitive?:check-inouts-match</span>: -<span id="L35960" class="LineNr">35960 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L35961" class="LineNr">35961 </span> (<a href='mu.subx.html#L36050'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> -<span id="L35962" class="LineNr">35962 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35963" class="LineNr">35963 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35964" class="LineNr">35964 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-match</span>: -<span id="L35965" class="LineNr">35965 </span> b8/copy-to-eax 0/imm32/false -<span id="L35966" class="LineNr">35966 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35967" class="LineNr">35967 </span> } -<span id="L35968" class="LineNr">35968 </span><span class="Constant">$mu-stmt-matches-primitive?:next-inout</span>: -<span id="L35969" class="LineNr">35969 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L35970" class="LineNr">35970 </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="L35971" class="LineNr">35971 </span> 89/<- %esi 0/r32/eax -<span id="L35972" class="LineNr">35972 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> -<span id="L35973" class="LineNr">35973 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L35974" class="LineNr">35974 </span> 89/<- %edi 0/r32/eax -<span id="L35975" class="LineNr">35975 </span> <span class="subxComment">#</span> -<span id="L35976" class="LineNr">35976 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L35977" class="LineNr">35977 </span> } -<span id="L35978" class="LineNr">35978 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs</span>: -<span id="L35979" class="LineNr">35979 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->outputs)</span> -<span id="L35980" class="LineNr">35980 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L35981" class="LineNr">35981 </span> 89/<- %esi 0/r32/eax -<span id="L35982" class="LineNr">35982 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->outputs)</span> -<span id="L35983" class="LineNr">35983 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x10) *(edx+0x14)) <span class="subxComment"># Primitive-outputs Primitive-outputs => eax</span> -<span id="L35984" class="LineNr">35984 </span> 89/<- %edi 0/r32/eax -<span id="L35985" class="LineNr">35985 </span> { -<span id="L35986" class="LineNr">35986 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-loop</span>: -<span id="L35987" class="LineNr">35987 </span> <span class="subxComment"># if (curr == 0) return (curr2 == 0)</span> -<span id="L35988" class="LineNr">35988 </span> { -<span id="L35989" class="LineNr">35989 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-outputs-null</span>: -<span id="L35990" class="LineNr">35990 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L35991" class="LineNr">35991 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35992" class="LineNr">35992 </span> { -<span id="L35993" class="LineNr">35993 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null</span>: -<span id="L35994" class="LineNr">35994 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L35995" class="LineNr">35995 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35996" class="LineNr">35996 </span><span class="Constant">$mu-stmt-matches-primitive?:both-outputs-null</span>: -<span id="L35997" class="LineNr">35997 </span> <span class="subxComment"># return true</span> -<span id="L35998" class="LineNr">35998 </span> b8/copy-to-eax 1/imm32 -<span id="L35999" class="LineNr">35999 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L36000" class="LineNr">36000 </span> } -<span id="L36001" class="LineNr">36001 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null-and-prim-output-not-null</span>: -<span id="L36002" class="LineNr">36002 </span> <span class="subxComment"># return false</span> -<span id="L36003" class="LineNr">36003 </span> b8/copy-to-eax 0/imm32 -<span id="L36004" class="LineNr">36004 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L36005" class="LineNr">36005 </span> } -<span id="L36006" class="LineNr">36006 </span> <span class="subxComment"># if (curr2 == 0) return false</span> -<span id="L36007" class="LineNr">36007 </span> { -<span id="L36008" class="LineNr">36008 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-output-null</span>: -<span id="L36009" class="LineNr">36009 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L36010" class="LineNr">36010 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L36011" class="LineNr">36011 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-output-is-null</span>: -<span id="L36012" class="LineNr">36012 </span> b8/copy-to-eax 0/imm32 -<span id="L36013" class="LineNr">36013 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L36014" class="LineNr">36014 </span> } -<span id="L36015" class="LineNr">36015 </span> <span class="subxComment"># if (curr != curr2) return false</span> -<span id="L36016" class="LineNr">36016 </span> { -<span id="L36017" class="LineNr">36017 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs-match</span>: -<span id="L36018" class="LineNr">36018 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L36019" class="LineNr">36019 </span> (<a href='mu.subx.html#L36050'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> -<span id="L36020" class="LineNr">36020 </span> 3d/compare-eax-and 0/imm32/false -<span id="L36021" class="LineNr">36021 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L36022" class="LineNr">36022 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-match</span>: -<span id="L36023" class="LineNr">36023 </span> b8/copy-to-eax 0/imm32 -<span id="L36024" class="LineNr">36024 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L36025" class="LineNr">36025 </span> } -<span id="L36026" class="LineNr">36026 </span><span class="Constant">$mu-stmt-matches-primitive?:next-output</span>: -<span id="L36027" class="LineNr">36027 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L36028" class="LineNr">36028 </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="L36029" class="LineNr">36029 </span> 89/<- %esi 0/r32/eax -<span id="L36030" class="LineNr">36030 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> -<span id="L36031" class="LineNr">36031 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L36032" class="LineNr">36032 </span> 89/<- %edi 0/r32/eax +<span id="L35639" class="LineNr">35639 </span> <span class="subxComment"># eax = l</span> +<span id="L35640" class="LineNr">35640 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L35641" class="LineNr">35641 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L35642" class="LineNr">35642 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L35643" class="LineNr">35643 </span> <span class="subxComment"># if (l == 1) return stmt->inouts</span> +<span id="L35644" class="LineNr">35644 </span> { +<span id="L35645" class="LineNr">35645 </span> 3d/compare-eax-and 1/imm32 +<span id="L35646" class="LineNr">35646 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35647" class="LineNr">35647 </span><span class="Constant">$get-stmt-operand-from-arg-location:1</span>: +<span id="L35648" class="LineNr">35648 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L35649" class="LineNr">35649 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 +<span id="L35650" class="LineNr">35650 </span> } +<span id="L35651" class="LineNr">35651 </span> <span class="subxComment"># if (l == 2) return stmt->inouts->next</span> +<span id="L35652" class="LineNr">35652 </span> { +<span id="L35653" class="LineNr">35653 </span> 3d/compare-eax-and 2/imm32 +<span id="L35654" class="LineNr">35654 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35655" class="LineNr">35655 </span><span class="Constant">$get-stmt-operand-from-arg-location:2</span>: +<span id="L35656" class="LineNr">35656 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L35657" class="LineNr">35657 </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="L35658" class="LineNr">35658 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 +<span id="L35659" class="LineNr">35659 </span> } +<span id="L35660" class="LineNr">35660 </span> <span class="subxComment"># if (l == 3) return stmt->outputs</span> +<span id="L35661" class="LineNr">35661 </span> { +<span id="L35662" class="LineNr">35662 </span> 3d/compare-eax-and 3/imm32 +<span id="L35663" class="LineNr">35663 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35664" class="LineNr">35664 </span><span class="Constant">$get-stmt-operand-from-arg-location:3</span>: +<span id="L35665" class="LineNr">35665 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L35666" class="LineNr">35666 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 +<span id="L35667" class="LineNr">35667 </span> } +<span id="L35668" class="LineNr">35668 </span> <span class="subxComment"># abort</span> +<span id="L35669" class="LineNr">35669 </span> e9/jump $get-stmt-operand-from-arg-location:abort/disp32 +<span id="L35670" class="LineNr">35670 </span><span class="Constant">$get-stmt-operand-from-arg-location:end</span>: +<span id="L35671" class="LineNr">35671 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35672" class="LineNr">35672 </span> 59/pop-to-ecx +<span id="L35673" class="LineNr">35673 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35674" class="LineNr">35674 </span> 89/<- %esp 5/r32/ebp +<span id="L35675" class="LineNr">35675 </span> 5d/pop-to-ebp +<span id="L35676" class="LineNr">35676 </span> c3/return +<span id="L35677" class="LineNr">35677 </span> +<span id="L35678" class="LineNr">35678 </span><span class="Constant">$get-stmt-operand-from-arg-location:abort</span>: +<span id="L35679" class="LineNr">35679 </span> <span class="subxComment"># error("invalid arg-location " eax)</span> +<span id="L35680" class="LineNr">35680 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"invalid arg-location "</span>) +<span id="L35681" class="LineNr">35681 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0x10) %eax) +<span id="L35682" class="LineNr">35682 </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="L35683" class="LineNr">35683 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L35684" class="LineNr">35684 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L35685" class="LineNr">35685 </span> <span class="subxComment"># never gets here</span> +<span id="L35686" class="LineNr">35686 </span> +<span id="L35687" class="LineNr">35687 </span><span class="subxFunction">emit-subx-r32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L35688" class="LineNr">35688 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35689" class="LineNr">35689 </span> 55/push-ebp +<span id="L35690" class="LineNr">35690 </span> 89/<- %ebp 4/r32/esp +<span id="L35691" class="LineNr">35691 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35692" class="LineNr">35692 </span> 50/push-eax +<span id="L35693" class="LineNr">35693 </span> 51/push-ecx +<span id="L35694" class="LineNr">35694 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L35695" class="LineNr">35695 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L35696" class="LineNr">35696 </span> 0f 84/jump-if-= $emit-subx-r32:end/disp32 +<span id="L35697" class="LineNr">35697 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L35698" class="LineNr">35698 </span> (<a href='mu.subx.html#L35633'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L35699" class="LineNr">35699 </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="L35700" class="LineNr">35700 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35701" class="LineNr">35701 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> +<span id="L35702" class="LineNr">35702 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L35703" class="LineNr">35703 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L35704" class="LineNr">35704 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L35705" class="LineNr">35705 </span> (<a href='131table.subx.html#L2111'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19595'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> +<span id="L35706" class="LineNr">35706 </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="L35707" class="LineNr">35707 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L35708" class="LineNr">35708 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32"</span>) +<span id="L35709" class="LineNr">35709 </span><span class="Constant">$emit-subx-r32:end</span>: +<span id="L35710" class="LineNr">35710 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35711" class="LineNr">35711 </span> 59/pop-to-ecx +<span id="L35712" class="LineNr">35712 </span> 58/pop-to-eax +<span id="L35713" class="LineNr">35713 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35714" class="LineNr">35714 </span> 89/<- %esp 5/r32/ebp +<span id="L35715" class="LineNr">35715 </span> 5d/pop-to-ebp +<span id="L35716" class="LineNr">35716 </span> c3/return +<span id="L35717" class="LineNr">35717 </span> +<span id="L35718" class="LineNr">35718 </span><span class="subxFunction">emit-subx-x32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L35719" class="LineNr">35719 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35720" class="LineNr">35720 </span> 55/push-ebp +<span id="L35721" class="LineNr">35721 </span> 89/<- %ebp 4/r32/esp +<span id="L35722" class="LineNr">35722 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35723" class="LineNr">35723 </span> 50/push-eax +<span id="L35724" class="LineNr">35724 </span> 51/push-ecx +<span id="L35725" class="LineNr">35725 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L35726" class="LineNr">35726 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L35727" class="LineNr">35727 </span> 0f 84/jump-if-= $emit-subx-x32:end/disp32 +<span id="L35728" class="LineNr">35728 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L35729" class="LineNr">35729 </span> (<a href='mu.subx.html#L35633'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L35730" class="LineNr">35730 </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="L35731" class="LineNr">35731 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35732" class="LineNr">35732 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> +<span id="L35733" class="LineNr">35733 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L35734" class="LineNr">35734 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L35735" class="LineNr">35735 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L35736" class="LineNr">35736 </span> (<a href='131table.subx.html#L2111'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19595'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> +<span id="L35737" class="LineNr">35737 </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="L35738" class="LineNr">35738 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L35739" class="LineNr">35739 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32"</span>) +<span id="L35740" class="LineNr">35740 </span><span class="Constant">$emit-subx-x32:end</span>: +<span id="L35741" class="LineNr">35741 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35742" class="LineNr">35742 </span> 59/pop-to-ecx +<span id="L35743" class="LineNr">35743 </span> 58/pop-to-eax +<span id="L35744" class="LineNr">35744 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35745" class="LineNr">35745 </span> 89/<- %esp 5/r32/ebp +<span id="L35746" class="LineNr">35746 </span> 5d/pop-to-ebp +<span id="L35747" class="LineNr">35747 </span> c3/return +<span id="L35748" class="LineNr">35748 </span> +<span id="L35749" class="LineNr">35749 </span><span class="subxFunction">emit-subx-imm32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L35750" class="LineNr">35750 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35751" class="LineNr">35751 </span> 55/push-ebp +<span id="L35752" class="LineNr">35752 </span> 89/<- %ebp 4/r32/esp +<span id="L35753" class="LineNr">35753 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35754" class="LineNr">35754 </span> 50/push-eax +<span id="L35755" class="LineNr">35755 </span> 51/push-ecx +<span id="L35756" class="LineNr">35756 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L35757" class="LineNr">35757 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L35758" class="LineNr">35758 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 +<span id="L35759" class="LineNr">35759 </span> <span class="subxComment"># var v/eax: (handle var)</span> +<span id="L35760" class="LineNr">35760 </span> (<a href='mu.subx.html#L35633'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L35761" class="LineNr">35761 </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="L35762" class="LineNr">35762 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L35763" class="LineNr">35763 </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="L35764" class="LineNr">35764 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35765" class="LineNr">35765 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32"</span>) +<span id="L35766" class="LineNr">35766 </span><span class="Constant">$emit-subx-imm32:end</span>: +<span id="L35767" class="LineNr">35767 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35768" class="LineNr">35768 </span> 59/pop-to-ecx +<span id="L35769" class="LineNr">35769 </span> 58/pop-to-eax +<span id="L35770" class="LineNr">35770 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35771" class="LineNr">35771 </span> 89/<- %esp 5/r32/ebp +<span id="L35772" class="LineNr">35772 </span> 5d/pop-to-ebp +<span id="L35773" class="LineNr">35773 </span> c3/return +<span id="L35774" class="LineNr">35774 </span> +<span id="L35775" class="LineNr">35775 </span><span class="subxFunction">emit-subx-imm8</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L35776" class="LineNr">35776 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35777" class="LineNr">35777 </span> 55/push-ebp +<span id="L35778" class="LineNr">35778 </span> 89/<- %ebp 4/r32/esp +<span id="L35779" class="LineNr">35779 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35780" class="LineNr">35780 </span> 50/push-eax +<span id="L35781" class="LineNr">35781 </span> 51/push-ecx +<span id="L35782" class="LineNr">35782 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L35783" class="LineNr">35783 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L35784" class="LineNr">35784 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 +<span id="L35785" class="LineNr">35785 </span> <span class="subxComment"># var v/eax: (handle var)</span> +<span id="L35786" class="LineNr">35786 </span> (<a href='mu.subx.html#L35633'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L35787" class="LineNr">35787 </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="L35788" class="LineNr">35788 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</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) %eax) +<span id="L35791" class="LineNr">35791 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8"</span>) +<span id="L35792" class="LineNr">35792 </span><span class="Constant">$emit-subx-imm8:end</span>: +<span id="L35793" class="LineNr">35793 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35794" class="LineNr">35794 </span> 59/pop-to-ecx +<span id="L35795" class="LineNr">35795 </span> 58/pop-to-eax +<span id="L35796" class="LineNr">35796 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35797" class="LineNr">35797 </span> 89/<- %esp 5/r32/ebp +<span id="L35798" class="LineNr">35798 </span> 5d/pop-to-ebp +<span id="L35799" class="LineNr">35799 </span> c3/return +<span id="L35800" class="LineNr">35800 </span> +<span id="L35801" class="LineNr">35801 </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="L35802" class="LineNr">35802 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35803" class="LineNr">35803 </span> 55/push-ebp +<span id="L35804" class="LineNr">35804 </span> 89/<- %ebp 4/r32/esp +<span id="L35805" class="LineNr">35805 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35806" class="LineNr">35806 </span> 50/push-eax +<span id="L35807" class="LineNr">35807 </span> 51/push-ecx +<span id="L35808" class="LineNr">35808 </span> <span class="subxComment"># if (location == 0) return</span> +<span id="L35809" class="LineNr">35809 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L35810" class="LineNr">35810 </span> 0f 84/jump-if-= $emit-subx-disp32:end/disp32 +<span id="L35811" class="LineNr">35811 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L35812" class="LineNr">35812 </span> (<a href='mu.subx.html#L35633'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L35813" class="LineNr">35813 </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="L35814" class="LineNr">35814 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L35815" class="LineNr">35815 </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="L35816" class="LineNr">35816 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35817" class="LineNr">35817 </span> <span class="subxComment"># hack: if instruction operation starts with "break", emit ":break"</span> +<span id="L35818" class="LineNr">35818 </span> <span class="subxComment"># var name/ecx: (addr array byte) = lookup(stmt->operation)</span> +<span id="L35819" class="LineNr">35819 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L35820" class="LineNr">35820 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L35821" class="LineNr">35821 </span> 89/<- %ecx 0/r32/eax +<span id="L35822" class="LineNr">35822 </span> { +<span id="L35823" class="LineNr">35823 </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="L35824" class="LineNr">35824 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35825" class="LineNr">35825 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35826" class="LineNr">35826 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break"</span>) +<span id="L35827" class="LineNr">35827 </span> } +<span id="L35828" class="LineNr">35828 </span> <span class="subxComment"># hack: if instruction operation starts with "loop", emit ":loop"</span> +<span id="L35829" class="LineNr">35829 </span> { +<span id="L35830" class="LineNr">35830 </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="L35831" class="LineNr">35831 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35832" class="LineNr">35832 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35833" class="LineNr">35833 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop"</span>) +<span id="L35834" class="LineNr">35834 </span> } +<span id="L35835" class="LineNr">35835 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32"</span>) +<span id="L35836" class="LineNr">35836 </span><span class="Constant">$emit-subx-disp32:end</span>: +<span id="L35837" class="LineNr">35837 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35838" class="LineNr">35838 </span> 59/pop-to-ecx +<span id="L35839" class="LineNr">35839 </span> 58/pop-to-eax +<span id="L35840" class="LineNr">35840 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35841" class="LineNr">35841 </span> 89/<- %esp 5/r32/ebp +<span id="L35842" class="LineNr">35842 </span> 5d/pop-to-ebp +<span id="L35843" class="LineNr">35843 </span> c3/return +<span id="L35844" class="LineNr">35844 </span> +<span id="L35845" class="LineNr">35845 </span><span class="subxFunction">emit-call</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> +<span id="L35846" class="LineNr">35846 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35847" class="LineNr">35847 </span> 55/push-ebp +<span id="L35848" class="LineNr">35848 </span> 89/<- %ebp 4/r32/esp +<span id="L35849" class="LineNr">35849 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35850" class="LineNr">35850 </span> 50/push-eax +<span id="L35851" class="LineNr">35851 </span> 51/push-ecx +<span id="L35852" class="LineNr">35852 </span> <span class="subxComment">#</span> +<span id="L35853" class="LineNr">35853 </span> (<a href='mu.subx.html#L39082'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span>) +<span id="L35854" class="LineNr">35854 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"("</span>) +<span id="L35855" class="LineNr">35855 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L35856" class="LineNr">35856 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L35857" class="LineNr">35857 </span> <span class="subxH1Comment"># - emit function name</span> +<span id="L35858" class="LineNr">35858 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L35859" class="LineNr">35859 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35860" class="LineNr">35860 </span> <span class="subxH1Comment"># - emit arguments</span> +<span id="L35861" class="LineNr">35861 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L35862" class="LineNr">35862 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L35863" class="LineNr">35863 </span> { +<span id="L35864" class="LineNr">35864 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L35865" class="LineNr">35865 </span> 3d/compare-eax-and 0/imm32 +<span id="L35866" class="LineNr">35866 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35867" class="LineNr">35867 </span> <span class="subxComment">#</span> +<span id="L35868" class="LineNr">35868 </span> (<a href='mu.subx.html#L35884'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L35869" class="LineNr">35869 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L35870" class="LineNr">35870 </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="L35871" class="LineNr">35871 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L35872" class="LineNr">35872 </span> } +<span id="L35873" class="LineNr">35873 </span> <span class="subxComment">#</span> +<span id="L35874" class="LineNr">35874 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L35875" class="LineNr">35875 </span><span class="Constant">$emit-call:end</span>: +<span id="L35876" class="LineNr">35876 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35877" class="LineNr">35877 </span> 59/pop-to-ecx +<span id="L35878" class="LineNr">35878 </span> 58/pop-to-eax +<span id="L35879" class="LineNr">35879 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35880" class="LineNr">35880 </span> 89/<- %esp 5/r32/ebp +<span id="L35881" class="LineNr">35881 </span> 5d/pop-to-ebp +<span id="L35882" class="LineNr">35882 </span> c3/return +<span id="L35883" class="LineNr">35883 </span> +<span id="L35884" class="LineNr">35884 </span><span class="subxFunction">emit-subx-call-operand</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> +<span id="L35885" class="LineNr">35885 </span> <span class="subxComment"># shares code with emit-subx-var-as-rm32</span> +<span id="L35886" class="LineNr">35886 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35887" class="LineNr">35887 </span> 55/push-ebp +<span id="L35888" class="LineNr">35888 </span> 89/<- %ebp 4/r32/esp +<span id="L35889" class="LineNr">35889 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35890" class="LineNr">35890 </span> 50/push-eax +<span id="L35891" class="LineNr">35891 </span> 51/push-ecx +<span id="L35892" class="LineNr">35892 </span> 56/push-esi +<span id="L35893" class="LineNr">35893 </span> <span class="subxComment"># ecx = s</span> +<span id="L35894" class="LineNr">35894 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L35895" class="LineNr">35895 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> +<span id="L35896" class="LineNr">35896 </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="L35897" class="LineNr">35897 </span> 89/<- %esi 0/r32/eax +<span id="L35898" class="LineNr">35898 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> +<span id="L35899" class="LineNr">35899 </span> { +<span id="L35900" class="LineNr">35900 </span><span class="Constant">$emit-subx-call-operand:check-for-register-direct</span>: +<span id="L35901" class="LineNr">35901 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L35902" class="LineNr">35902 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35903" class="LineNr">35903 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<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">$emit-subx-call-operand:register-direct</span>: +<span id="L35906" class="LineNr">35906 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) +<span id="L35907" class="LineNr">35907 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35908" class="LineNr">35908 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35909" class="LineNr">35909 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L35910" class="LineNr">35910 </span> } +<span id="L35911" class="LineNr">35911 </span> <span class="subxComment"># else if (operand->register && s->is-deref?) emit "*__"</span> +<span id="L35912" class="LineNr">35912 </span> { +<span id="L35913" class="LineNr">35913 </span><span class="Constant">$emit-subx-call-operand:check-for-register-indirect</span>: +<span id="L35914" class="LineNr">35914 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L35915" class="LineNr">35915 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35916" class="LineNr">35916 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L35917" class="LineNr">35917 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35918" class="LineNr">35918 </span><span class="Constant">$emit-subx-call-operand:register-indirect</span>: +<span id="L35919" class="LineNr">35919 </span> (<a href='mu.subx.html#L35961'>emit-subx-call-operand-register-indirect</a> *(ebp+8) %esi) +<span id="L35920" class="LineNr">35920 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L35921" class="LineNr">35921 </span> } +<span id="L35922" class="LineNr">35922 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> +<span id="L35923" class="LineNr">35923 </span> { +<span id="L35924" class="LineNr">35924 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L35925" class="LineNr">35925 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35926" class="LineNr">35926 </span><span class="Constant">$emit-subx-call-operand:stack</span>: +<span id="L35927" class="LineNr">35927 </span> (<a href='mu.subx.html#L36006'>emit-subx-call-operand-stack</a> *(ebp+8) %esi) +<span id="L35928" class="LineNr">35928 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L35929" class="LineNr">35929 </span> } +<span id="L35930" class="LineNr">35930 </span> <span class="subxComment"># else if (operand->type == literal) emit "__"</span> +<span id="L35931" class="LineNr">35931 </span> { +<span id="L35932" class="LineNr">35932 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L35933" class="LineNr">35933 </span> 81 7/subop/compare *(eax+4) 0/imm32 <span class="subxComment"># Type-tree-value</span> +<span id="L35934" class="LineNr">35934 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35935" class="LineNr">35935 </span><span class="Constant">$emit-subx-call-operand:literal</span>: +<span id="L35936" class="LineNr">35936 </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="L35937" class="LineNr">35937 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L35938" class="LineNr">35938 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35939" class="LineNr">35939 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L35940" class="LineNr">35940 </span> } +<span id="L35941" class="LineNr">35941 </span> <span class="subxComment"># else if (operand->type == literal-string) emit "__"</span> +<span id="L35942" class="LineNr">35942 </span> { +<span id="L35943" class="LineNr">35943 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L35944" class="LineNr">35944 </span> 81 7/subop/compare *(eax+4) 0x10/imm32 <span class="subxComment"># Type-tree-value</span> +<span id="L35945" class="LineNr">35945 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35946" class="LineNr">35946 </span><span class="Constant">$emit-subx-call-operand:literal-string</span>: +<span id="L35947" class="LineNr">35947 </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="L35948" class="LineNr">35948 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L35949" class="LineNr">35949 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35950" class="LineNr">35950 </span> } +<span id="L35951" class="LineNr">35951 </span><span class="Constant">$emit-subx-call-operand:end</span>: +<span id="L35952" class="LineNr">35952 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35953" class="LineNr">35953 </span> 5e/pop-to-esi +<span id="L35954" class="LineNr">35954 </span> 59/pop-to-ecx +<span id="L35955" class="LineNr">35955 </span> 58/pop-to-eax +<span id="L35956" class="LineNr">35956 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35957" class="LineNr">35957 </span> 89/<- %esp 5/r32/ebp +<span id="L35958" class="LineNr">35958 </span> 5d/pop-to-ebp +<span id="L35959" class="LineNr">35959 </span> c3/return +<span id="L35960" class="LineNr">35960 </span> +<span id="L35961" class="LineNr">35961 </span><span class="subxFunction">emit-subx-call-operand-register-indirect</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> +<span id="L35962" class="LineNr">35962 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35963" class="LineNr">35963 </span> 55/push-ebp +<span id="L35964" class="LineNr">35964 </span> 89/<- %ebp 4/r32/esp +<span id="L35965" class="LineNr">35965 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35966" class="LineNr">35966 </span> 50/push-eax +<span id="L35967" class="LineNr">35967 </span> 51/push-ecx +<span id="L35968" class="LineNr">35968 </span> 56/push-esi +<span id="L35969" class="LineNr">35969 </span> <span class="subxComment"># esi = v</span> +<span id="L35970" class="LineNr">35970 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L35971" class="LineNr">35971 </span> <span class="subxComment"># var size/ecx: int = size-of-deref(v)</span> +<span id="L35972" class="LineNr">35972 </span> (<a href='mu.subx.html#L26820'>size-of-deref</a> %esi) <span class="subxComment"># => eax</span> +<span id="L35973" class="LineNr">35973 </span> 89/<- %ecx 0/r32/eax +<span id="L35974" class="LineNr">35974 </span> <span class="subxComment"># var reg-name/esi: (addr array byte) = lookup(v->register)</span> +<span id="L35975" class="LineNr">35975 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35976" class="LineNr">35976 </span> 89/<- %esi 0/r32/eax +<span id="L35977" class="LineNr">35977 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> +<span id="L35978" class="LineNr">35978 </span> <span class="subxComment"># var i/eax: int = 0</span> +<span id="L35979" class="LineNr">35979 </span> b8/copy-to-eax 0/imm32 +<span id="L35980" class="LineNr">35980 </span> { +<span id="L35981" class="LineNr">35981 </span><span class="Constant">$emit-subx-call-operand-register-indirect:loop</span>: +<span id="L35982" class="LineNr">35982 </span> <span class="subxComment"># if (i >= size) break</span> +<span id="L35983" class="LineNr">35983 </span> 39/compare %eax 1/r32/ecx +<span id="L35984" class="LineNr">35984 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L35985" class="LineNr">35985 </span> <span class="subxComment"># emit " *(" v->register "+" i ")"</span> +<span id="L35986" class="LineNr">35986 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *("</span>) +<span id="L35987" class="LineNr">35987 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %esi) +<span id="L35988" class="LineNr">35988 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"+"</span>) +<span id="L35989" class="LineNr">35989 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L35990" class="LineNr">35990 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L35991" class="LineNr">35991 </span> <span class="subxComment"># i += 4</span> +<span id="L35992" class="LineNr">35992 </span> 05/add-to-eax 4/imm32 +<span id="L35993" class="LineNr">35993 </span> <span class="subxComment">#</span> +<span id="L35994" class="LineNr">35994 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L35995" class="LineNr">35995 </span> } +<span id="L35996" class="LineNr">35996 </span><span class="Constant">$emit-subx-call-operand-register-indirect:end</span>: +<span id="L35997" class="LineNr">35997 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35998" class="LineNr">35998 </span> 5e/pop-to-esi +<span id="L35999" class="LineNr">35999 </span> 59/pop-to-ecx +<span id="L36000" class="LineNr">36000 </span> 58/pop-to-eax +<span id="L36001" class="LineNr">36001 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36002" class="LineNr">36002 </span> 89/<- %esp 5/r32/ebp +<span id="L36003" class="LineNr">36003 </span> 5d/pop-to-ebp +<span id="L36004" class="LineNr">36004 </span> c3/return +<span id="L36005" class="LineNr">36005 </span> +<span id="L36006" class="LineNr">36006 </span><span class="subxFunction">emit-subx-call-operand-stack</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> +<span id="L36007" class="LineNr">36007 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36008" class="LineNr">36008 </span> 55/push-ebp +<span id="L36009" class="LineNr">36009 </span> 89/<- %ebp 4/r32/esp +<span id="L36010" class="LineNr">36010 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36011" class="LineNr">36011 </span> 50/push-eax +<span id="L36012" class="LineNr">36012 </span> 51/push-ecx +<span id="L36013" class="LineNr">36013 </span> 56/push-esi +<span id="L36014" class="LineNr">36014 </span> <span class="subxComment"># esi = v</span> +<span id="L36015" class="LineNr">36015 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L36016" class="LineNr">36016 </span> <span class="subxComment"># var curr/ecx: int = v->offset</span> +<span id="L36017" class="LineNr">36017 </span> 8b/-> *(esi+0x14) 1/r32/ecx <span class="subxComment"># Var-offset</span> +<span id="L36018" class="LineNr">36018 </span> <span class="subxComment"># var max/eax: int = v->offset + size-of(v)</span> +<span id="L36019" class="LineNr">36019 </span> (<a href='mu.subx.html#L26770'>size-of</a> %esi) <span class="subxComment"># => eax</span> +<span id="L36020" class="LineNr">36020 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> +<span id="L36021" class="LineNr">36021 </span> 01/add-to %eax 1/r32/ecx +<span id="L36022" class="LineNr">36022 </span> { +<span id="L36023" class="LineNr">36023 </span><span class="Constant">$emit-subx-call-operand-stack:loop</span>: +<span id="L36024" class="LineNr">36024 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L36025" class="LineNr">36025 </span> 39/compare %ecx 0/r32/eax +<span id="L36026" class="LineNr">36026 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L36027" class="LineNr">36027 </span> <span class="subxComment"># emit " *(ebp+" curr ")"</span> +<span id="L36028" class="LineNr">36028 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) +<span id="L36029" class="LineNr">36029 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) +<span id="L36030" class="LineNr">36030 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L36031" class="LineNr">36031 </span> <span class="subxComment"># i += 4</span> +<span id="L36032" class="LineNr">36032 </span> 81 0/subop/add %ecx 4/imm32 <span id="L36033" class="LineNr">36033 </span> <span class="subxComment">#</span> -<span id="L36034" class="LineNr">36034 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L36034" class="LineNr">36034 </span> eb/jump <span class="Constant">loop</span>/disp8 <span id="L36035" class="LineNr">36035 </span> } -<span id="L36036" class="LineNr">36036 </span><span class="Constant">$mu-stmt-matches-primitive?:return-true</span>: -<span id="L36037" class="LineNr">36037 </span> b8/copy-to-eax 1/imm32 -<span id="L36038" class="LineNr">36038 </span><span class="Constant">$mu-stmt-matches-primitive?:end</span>: -<span id="L36039" class="LineNr">36039 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L36040" class="LineNr">36040 </span> 5f/pop-to-edi -<span id="L36041" class="LineNr">36041 </span> 5e/pop-to-esi -<span id="L36042" class="LineNr">36042 </span> 5b/pop-to-ebx -<span id="L36043" class="LineNr">36043 </span> 5a/pop-to-edx -<span id="L36044" class="LineNr">36044 </span> 59/pop-to-ecx -<span id="L36045" class="LineNr">36045 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36046" class="LineNr">36046 </span> 89/<- %esp 5/r32/ebp -<span id="L36047" class="LineNr">36047 </span> 5d/pop-to-ebp -<span id="L36048" class="LineNr">36048 </span> c3/return -<span id="L36049" class="LineNr">36049 </span> -<span id="L36050" class="LineNr">36050 </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="L36051" class="LineNr">36051 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36052" class="LineNr">36052 </span> 55/push-ebp -<span id="L36053" class="LineNr">36053 </span> 89/<- %ebp 4/r32/esp -<span id="L36054" class="LineNr">36054 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L36055" class="LineNr">36055 </span> 51/push-ecx -<span id="L36056" class="LineNr">36056 </span> 52/push-edx -<span id="L36057" class="LineNr">36057 </span> 53/push-ebx -<span id="L36058" class="LineNr">36058 </span> 56/push-esi -<span id="L36059" class="LineNr">36059 </span> 57/push-edi -<span id="L36060" class="LineNr">36060 </span> <span class="subxComment"># ecx = s</span> -<span id="L36061" class="LineNr">36061 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L36062" class="LineNr">36062 </span> <span class="subxComment"># var var/esi: (addr var) = lookup(s->value)</span> -<span id="L36063" class="LineNr">36063 </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="L36064" class="LineNr">36064 </span> 89/<- %esi 0/r32/eax -<span id="L36065" class="LineNr">36065 </span> <span class="subxComment"># edi = prim-var</span> -<span id="L36066" class="LineNr">36066 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L36067" class="LineNr">36067 </span><span class="Constant">$operand-matches-primitive?:check-type</span>: -<span id="L36068" class="LineNr">36068 </span> <span class="subxComment"># if !category-match?(var->type, prim-var->type) return false</span> -<span id="L36069" class="LineNr">36069 </span> <span class="subxS1Comment"># . var vtype/ebx: (addr type-tree) = lookup(var->type)</span> -<span id="L36070" class="LineNr">36070 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L36071" class="LineNr">36071 </span> 89/<- %ebx 0/r32/eax -<span id="L36072" class="LineNr">36072 </span> <span class="subxS1Comment"># . if s is deref, vtype = vtype->right</span> +<span id="L36036" class="LineNr">36036 </span><span class="Constant">$emit-subx-call-operand-stack:end</span>: +<span id="L36037" class="LineNr">36037 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36038" class="LineNr">36038 </span> 5e/pop-to-esi +<span id="L36039" class="LineNr">36039 </span> 59/pop-to-ecx +<span id="L36040" class="LineNr">36040 </span> 58/pop-to-eax +<span id="L36041" class="LineNr">36041 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36042" class="LineNr">36042 </span> 89/<- %esp 5/r32/ebp +<span id="L36043" class="LineNr">36043 </span> 5d/pop-to-ebp +<span id="L36044" class="LineNr">36044 </span> c3/return +<span id="L36045" class="LineNr">36045 </span> +<span id="L36046" class="LineNr">36046 </span><span class="subxFunction">emit-subx-var-as-rm32</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> +<span id="L36047" class="LineNr">36047 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36048" class="LineNr">36048 </span> 55/push-ebp +<span id="L36049" class="LineNr">36049 </span> 89/<- %ebp 4/r32/esp +<span id="L36050" class="LineNr">36050 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36051" class="LineNr">36051 </span> 50/push-eax +<span id="L36052" class="LineNr">36052 </span> 51/push-ecx +<span id="L36053" class="LineNr">36053 </span> 56/push-esi +<span id="L36054" class="LineNr">36054 </span> <span class="subxComment"># ecx = s</span> +<span id="L36055" class="LineNr">36055 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L36056" class="LineNr">36056 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> +<span id="L36057" class="LineNr">36057 </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="L36058" class="LineNr">36058 </span> 89/<- %esi 0/r32/eax +<span id="L36059" class="LineNr">36059 </span> <span class="subxComment"># if (operand->register && s->is-deref?) emit "*__"</span> +<span id="L36060" class="LineNr">36060 </span> { +<span id="L36061" class="LineNr">36061 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-indirect</span>: +<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> 74/jump-if-= <span class="Constant">break</span>/disp8 +<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">$emit-subx-var-as-rm32:register-indirect</span>: +<span id="L36067" class="LineNr">36067 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) +<span id="L36068" class="LineNr">36068 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L36069" class="LineNr">36069 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L36070" class="LineNr">36070 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 +<span id="L36071" class="LineNr">36071 </span> } +<span id="L36072" class="LineNr">36072 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> <span id="L36073" class="LineNr">36073 </span> { -<span id="L36074" class="LineNr">36074 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L36075" class="LineNr">36075 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L36076" class="LineNr">36076 </span><span class="Constant">$operand-matches-primitive?:is-deref</span>: -<span id="L36077" class="LineNr">36077 </span> <span class="subxS1Comment"># . var t/eax: (addr type)</span> -<span id="L36078" class="LineNr">36078 </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="L36079" class="LineNr">36079 </span> <span class="subxS1Comment"># . if !t->is-atom? t = t->left</span> -<span id="L36080" class="LineNr">36080 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L36081" class="LineNr">36081 </span> { -<span id="L36082" class="LineNr">36082 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L36083" class="LineNr">36083 </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="L36084" class="LineNr">36084 </span> } -<span id="L36085" class="LineNr">36085 </span> <span class="subxS1Comment"># .</span> -<span id="L36086" class="LineNr">36086 </span> 89/<- %ebx 0/r32/eax -<span id="L36087" class="LineNr">36087 </span> } -<span id="L36088" class="LineNr">36088 </span> <span class="subxS1Comment"># . var ptype/eax: (addr type-tree) = lookup(prim-var->type)</span> -<span id="L36089" class="LineNr">36089 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L36090" class="LineNr">36090 </span> (<a href='mu.subx.html#L36227'>subx-type-category-match?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L36091" class="LineNr">36091 </span> 3d/compare-eax-and 0/imm32/false -<span id="L36092" class="LineNr">36092 </span> 0f 84/jump-if-= $operand-matches-primitive?:return-false/disp32 -<span id="L36093" class="LineNr">36093 </span> { -<span id="L36094" class="LineNr">36094 </span><span class="Constant">$operand-matches-primitive?:check-register</span>: -<span id="L36095" class="LineNr">36095 </span> <span class="subxComment"># if prim-var is in memory and var is in register but dereference, match</span> -<span id="L36096" class="LineNr">36096 </span> { -<span id="L36097" class="LineNr">36097 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L36098" class="LineNr">36098 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L36099" class="LineNr">36099 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L36100" class="LineNr">36100 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L36101" class="LineNr">36101 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L36102" class="LineNr">36102 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L36103" class="LineNr">36103 </span><span class="Constant">$operand-matches-primitive?:var-deref-match</span>: -<span id="L36104" class="LineNr">36104 </span> e9/jump $operand-matches-primitive?:return-true/disp32 -<span id="L36105" class="LineNr">36105 </span> } -<span id="L36106" class="LineNr">36106 </span> <span class="subxComment"># if prim-var is in register and var is in register but dereference, no match</span> -<span id="L36107" class="LineNr">36107 </span> { -<span id="L36108" class="LineNr">36108 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L36109" class="LineNr">36109 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L36110" class="LineNr">36110 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L36111" class="LineNr">36111 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L36112" class="LineNr">36112 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L36113" class="LineNr">36113 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L36114" class="LineNr">36114 </span><span class="Constant">$operand-matches-primitive?:var-deref-no-match</span>: -<span id="L36115" class="LineNr">36115 </span> e9/jump $operand-matches-primitive?:return-false/disp32 -<span id="L36116" class="LineNr">36116 </span> } -<span id="L36117" class="LineNr">36117 </span> <span class="subxComment"># return false if var->register doesn't match prim-var->register</span> -<span id="L36118" class="LineNr">36118 </span> { -<span id="L36119" class="LineNr">36119 </span> <span class="subxComment"># if register addresses are equal, it's a match</span> -<span id="L36120" class="LineNr">36120 </span> <span class="subxComment"># var vreg/ebx: (addr array byte) = lookup(var->register)</span> -<span id="L36121" class="LineNr">36121 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L36122" class="LineNr">36122 </span> 89/<- %ebx 0/r32/eax -<span id="L36123" class="LineNr">36123 </span> <span class="subxComment"># var preg/ecx: (addr array byte) = lookup(prim-var->register)</span> -<span id="L36124" class="LineNr">36124 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L36125" class="LineNr">36125 </span> 89/<- %ecx 0/r32/eax -<span id="L36126" class="LineNr">36126 </span> <span class="subxComment"># if (vreg == preg) break</span> -<span id="L36127" class="LineNr">36127 </span> 39/compare %ecx 3/r32/ebx -<span id="L36128" class="LineNr">36128 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L36129" class="LineNr">36129 </span><span class="Constant">$operand-matches-primitive?:var-register-no-match</span>: -<span id="L36130" class="LineNr">36130 </span> <span class="subxComment"># if either address is 0, return false</span> -<span id="L36131" class="LineNr">36131 </span> 81 7/subop/compare %ebx 0/imm32 -<span id="L36132" class="LineNr">36132 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 -<span id="L36133" class="LineNr">36133 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L36134" class="LineNr">36134 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 -<span id="L36135" class="LineNr">36135 </span> <span class="subxComment"># if prim-var->register is wildcard, it's a match</span> -<span id="L36136" class="LineNr">36136 </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="L36137" class="LineNr">36137 </span> 3d/compare-eax-and 0/imm32/false -<span id="L36138" class="LineNr">36138 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L36139" class="LineNr">36139 </span><span class="Constant">$operand-matches-primitive?:wildcard-no-match</span>: -<span id="L36140" class="LineNr">36140 </span> <span class="subxComment"># if string contents aren't equal, return false</span> -<span id="L36141" class="LineNr">36141 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> -<span id="L36142" class="LineNr">36142 </span> 3d/compare-eax-and 0/imm32/false -<span id="L36143" class="LineNr">36143 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 -<span id="L36144" class="LineNr">36144 </span> } -<span id="L36145" class="LineNr">36145 </span> } -<span id="L36146" class="LineNr">36146 </span><span class="Constant">$operand-matches-primitive?:return-true</span>: -<span id="L36147" class="LineNr">36147 </span> b8/copy-to-eax 1/imm32/true -<span id="L36148" class="LineNr">36148 </span> eb/jump $operand-matches-primitive?:end/disp8 -<span id="L36149" class="LineNr">36149 </span><span class="Constant">$operand-matches-primitive?:return-false</span>: -<span id="L36150" class="LineNr">36150 </span> b8/copy-to-eax 0/imm32/false -<span id="L36151" class="LineNr">36151 </span><span class="Constant">$operand-matches-primitive?:end</span>: -<span id="L36152" class="LineNr">36152 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L36153" class="LineNr">36153 </span> 5f/pop-to-edi -<span id="L36154" class="LineNr">36154 </span> 5e/pop-to-esi -<span id="L36155" class="LineNr">36155 </span> 5b/pop-to-ebx -<span id="L36156" class="LineNr">36156 </span> 5a/pop-to-edx -<span id="L36157" class="LineNr">36157 </span> 59/pop-to-ecx -<span id="L36158" class="LineNr">36158 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36159" class="LineNr">36159 </span> 89/<- %esp 5/r32/ebp -<span id="L36160" class="LineNr">36160 </span> 5d/pop-to-ebp -<span id="L36161" class="LineNr">36161 </span> c3/return -<span id="L36162" class="LineNr">36162 </span> -<span id="L36163" class="LineNr">36163 </span><span class="subxFunction">find-matching-function</span>: <span class="subxComment"># functions: (addr function), stmt: (addr stmt) -> result/eax: (addr function)</span> -<span id="L36164" class="LineNr">36164 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36165" class="LineNr">36165 </span> 55/push-ebp -<span id="L36166" class="LineNr">36166 </span> 89/<- %ebp 4/r32/esp -<span id="L36167" class="LineNr">36167 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L36168" class="LineNr">36168 </span> 51/push-ecx -<span id="L36169" class="LineNr">36169 </span> <span class="subxComment"># var curr/ecx: (handle function) = functions</span> -<span id="L36170" class="LineNr">36170 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L36171" class="LineNr">36171 </span> { -<span id="L36172" class="LineNr">36172 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L36173" class="LineNr">36173 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L36174" class="LineNr">36174 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L36175" class="LineNr">36175 </span><span class="CommentedCode">#? (write-buffered Stderr "iter\n")</span> -<span id="L36176" class="LineNr">36176 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L36177" class="LineNr">36177 </span> <span class="subxComment"># if match(stmt, curr) return curr</span> -<span id="L36178" class="LineNr">36178 </span> { -<span id="L36179" class="LineNr">36179 </span> (<a href='mu.subx.html#L36202'>mu-stmt-matches-function?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> -<span id="L36180" class="LineNr">36180 </span> 3d/compare-eax-and 0/imm32/false -<span id="L36181" class="LineNr">36181 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L36182" class="LineNr">36182 </span> 89/<- %eax 1/r32/ecx -<span id="L36183" class="LineNr">36183 </span> eb/jump $find-matching-function:end/disp8 -<span id="L36184" class="LineNr">36184 </span> } -<span id="L36185" class="LineNr">36185 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L36186" class="LineNr">36186 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L36187" class="LineNr">36187 </span> 89/<- %ecx 0/r32/eax -<span id="L36188" class="LineNr">36188 </span> <span class="subxComment">#</span> -<span id="L36189" class="LineNr">36189 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L36190" class="LineNr">36190 </span> } -<span id="L36191" class="LineNr">36191 </span> <span class="subxComment"># return null</span> -<span id="L36192" class="LineNr">36192 </span> b8/copy-to-eax 0/imm32 -<span id="L36193" class="LineNr">36193 </span><span class="Constant">$find-matching-function:end</span>: -<span id="L36194" class="LineNr">36194 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L36195" class="LineNr">36195 </span> 59/pop-to-ecx -<span id="L36196" class="LineNr">36196 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36197" class="LineNr">36197 </span> 89/<- %esp 5/r32/ebp -<span id="L36198" class="LineNr">36198 </span> 5d/pop-to-ebp -<span id="L36199" class="LineNr">36199 </span> c3/return -<span id="L36200" class="LineNr">36200 </span> -<span id="L36201" class="LineNr">36201 </span><span class="subxComment"># Just compare names; user-defined functions don't support overloading yet.</span> -<span id="L36202" class="LineNr">36202 </span><span class="subxFunction">mu-stmt-matches-function?</span>: <span class="subxComment"># stmt: (addr stmt1), function: (addr function) -> result/eax: boolean</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"># return function->name == stmt->operation</span> -<span id="L36209" class="LineNr">36209 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> -<span id="L36210" class="LineNr">36210 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L36211" class="LineNr">36211 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L36212" class="LineNr">36212 </span> 89/<- %ecx 0/r32/eax -<span id="L36213" class="LineNr">36213 </span> <span class="subxComment"># eax = lookup(function->name)</span> -<span id="L36214" class="LineNr">36214 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L36215" class="LineNr">36215 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L36216" class="LineNr">36216 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %ecx) <span class="subxComment"># => eax</span> -<span id="L36217" class="LineNr">36217 </span><span class="Constant">$mu-stmt-matches-function?:end</span>: -<span id="L36218" class="LineNr">36218 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L36219" class="LineNr">36219 </span> 59/pop-to-ecx -<span id="L36220" class="LineNr">36220 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36221" class="LineNr">36221 </span> 89/<- %esp 5/r32/ebp -<span id="L36222" class="LineNr">36222 </span> 5d/pop-to-ebp -<span id="L36223" class="LineNr">36223 </span> c3/return -<span id="L36224" class="LineNr">36224 </span> -<span id="L36225" class="LineNr">36225 </span><span class="subxComment"># Type-checking happens elsewhere. This method is for selecting between</span> -<span id="L36226" class="LineNr">36226 </span><span class="subxComment"># primitives.</span> -<span id="L36227" class="LineNr">36227 </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="L36228" class="LineNr">36228 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36229" class="LineNr">36229 </span> 55/push-ebp -<span id="L36230" class="LineNr">36230 </span> 89/<- %ebp 4/r32/esp -<span id="L36231" class="LineNr">36231 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L36232" class="LineNr">36232 </span> 51/push-ecx -<span id="L36233" class="LineNr">36233 </span> <span class="subxComment"># var cata/ecx: int = type-category(a)</span> -<span id="L36234" class="LineNr">36234 </span> (<a href='mu.subx.html#L36250'>type-category</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L36235" class="LineNr">36235 </span> 89/<- %ecx 0/r32/eax -<span id="L36236" class="LineNr">36236 </span> <span class="subxComment"># var catb/eax: int = type-category(b)</span> -<span id="L36237" class="LineNr">36237 </span> (<a href='mu.subx.html#L36250'>type-category</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L36238" class="LineNr">36238 </span> <span class="subxComment"># return cata == catb</span> -<span id="L36239" class="LineNr">36239 </span> 39/compare %eax 1/r32/ecx -<span id="L36240" class="LineNr">36240 </span> 0f 94/set-byte-if-= %al -<span id="L36241" class="LineNr">36241 </span> 25/and-eax-with 0xff/imm32 -<span id="L36242" class="LineNr">36242 </span><span class="Constant">$subx-type-category-match?:end</span>: -<span id="L36243" class="LineNr">36243 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L36244" class="LineNr">36244 </span> 59/pop-to-ecx -<span id="L36245" class="LineNr">36245 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36246" class="LineNr">36246 </span> 89/<- %esp 5/r32/ebp -<span id="L36247" class="LineNr">36247 </span> 5d/pop-to-ebp -<span id="L36248" class="LineNr">36248 </span> c3/return -<span id="L36249" class="LineNr">36249 </span> -<span id="L36250" class="LineNr">36250 </span><span class="subxFunction">type-category</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> -<span id="L36251" class="LineNr">36251 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36252" class="LineNr">36252 </span> 55/push-ebp -<span id="L36253" class="LineNr">36253 </span> 89/<- %ebp 4/r32/esp -<span id="L36254" class="LineNr">36254 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L36255" class="LineNr">36255 </span> 51/push-ecx -<span id="L36256" class="LineNr">36256 </span> <span class="subxComment"># var lit?/ecx: boolean = literal-type?(a)</span> -<span id="L36257" class="LineNr">36257 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> *(ebp+8) 0) <span class="subxComment"># literal => eax</span> -<span id="L36258" class="LineNr">36258 </span> 89/<- %ecx 0/r32/eax -<span id="L36259" class="LineNr">36259 </span> <span class="subxComment"># var float?/eax: int = float?(a)</span> -<span id="L36260" class="LineNr">36260 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> *(ebp+8) 0xf) <span class="subxComment"># => eax</span> -<span id="L36261" class="LineNr">36261 </span> <span class="subxComment"># set bits for lit? and float?</span> -<span id="L36262" class="LineNr">36262 </span> c1/shift 4/subop/left %ecx 1/imm8 -<span id="L36263" class="LineNr">36263 </span> 09/or %eax 1/r32/ecx -<span id="L36264" class="LineNr">36264 </span><span class="Constant">$type-category:end</span>: -<span id="L36265" class="LineNr">36265 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L36266" class="LineNr">36266 </span> 59/pop-to-ecx -<span id="L36267" class="LineNr">36267 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36268" class="LineNr">36268 </span> 89/<- %esp 5/r32/ebp -<span id="L36269" class="LineNr">36269 </span> 5d/pop-to-ebp -<span id="L36270" class="LineNr">36270 </span> c3/return -<span id="L36271" class="LineNr">36271 </span> -<span id="L36272" class="LineNr">36272 </span><span class="subxFunction">simple-mu-type?</span>: <span class="subxComment"># a: (addr type-tree), n: type-id -> result/eax: boolean</span> -<span id="L36273" class="LineNr">36273 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36274" class="LineNr">36274 </span> 55/push-ebp -<span id="L36275" class="LineNr">36275 </span> 89/<- %ebp 4/r32/esp -<span id="L36276" class="LineNr">36276 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L36277" class="LineNr">36277 </span> 51/push-ecx -<span id="L36278" class="LineNr">36278 </span> <span class="subxComment"># ecx = n</span> -<span id="L36279" class="LineNr">36279 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L36280" class="LineNr">36280 </span> <span class="subxComment"># return (a->value == n)</span> -<span id="L36281" class="LineNr">36281 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L36282" class="LineNr">36282 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> -<span id="L36283" class="LineNr">36283 </span> 0f 94/set-byte-if-= %al -<span id="L36284" class="LineNr">36284 </span> 25/and-eax-with 0xff/imm32 -<span id="L36285" class="LineNr">36285 </span><span class="Constant">$simple-mu-type?:end</span>: -<span id="L36286" class="LineNr">36286 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L36287" class="LineNr">36287 </span> 59/pop-to-ecx -<span id="L36288" class="LineNr">36288 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36289" class="LineNr">36289 </span> 89/<- %esp 5/r32/ebp -<span id="L36290" class="LineNr">36290 </span> 5d/pop-to-ebp -<span id="L36291" class="LineNr">36291 </span> c3/return -<span id="L36292" class="LineNr">36292 </span> -<span id="L36293" class="LineNr">36293 </span><span class="subxFunction">mu-addr-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L36294" class="LineNr">36294 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36295" class="LineNr">36295 </span> 55/push-ebp -<span id="L36296" class="LineNr">36296 </span> 89/<- %ebp 4/r32/esp -<span id="L36297" class="LineNr">36297 </span> <span class="subxComment"># eax = a</span> -<span id="L36298" class="LineNr">36298 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L36299" class="LineNr">36299 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> -<span id="L36300" class="LineNr">36300 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L36301" class="LineNr">36301 </span> { -<span id="L36302" class="LineNr">36302 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L36303" class="LineNr">36303 </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="L36304" class="LineNr">36304 </span> } -<span id="L36305" class="LineNr">36305 </span> <span class="subxComment"># return (a->value == addr)</span> -<span id="L36306" class="LineNr">36306 </span> 81 7/subop/compare *(eax+4) 2/imm32/addr <span class="subxComment"># Type-tree-value</span> -<span id="L36307" class="LineNr">36307 </span> 0f 94/set-byte-if-= %al -<span id="L36308" class="LineNr">36308 </span> 25/and-eax-with 0xff/imm32 -<span id="L36309" class="LineNr">36309 </span><span class="Constant">$mu-addr-type?:end</span>: -<span id="L36310" class="LineNr">36310 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36311" class="LineNr">36311 </span> 89/<- %esp 5/r32/ebp -<span id="L36312" class="LineNr">36312 </span> 5d/pop-to-ebp -<span id="L36313" class="LineNr">36313 </span> c3/return -<span id="L36314" class="LineNr">36314 </span> -<span id="L36315" class="LineNr">36315 </span><span class="subxFunction">mu-array-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L36316" class="LineNr">36316 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36317" class="LineNr">36317 </span> 55/push-ebp -<span id="L36318" class="LineNr">36318 </span> 89/<- %ebp 4/r32/esp -<span id="L36319" class="LineNr">36319 </span> <span class="subxComment"># eax = a</span> -<span id="L36320" class="LineNr">36320 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L36321" class="LineNr">36321 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> -<span id="L36322" class="LineNr">36322 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L36323" class="LineNr">36323 </span> { -<span id="L36324" class="LineNr">36324 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L36325" class="LineNr">36325 </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="L36326" class="LineNr">36326 </span> } -<span id="L36327" class="LineNr">36327 </span> <span class="subxComment"># return (a->value == array)</span> -<span id="L36328" class="LineNr">36328 </span> 81 7/subop/compare *(eax+4) 3/imm32/array <span class="subxComment"># Type-tree-value</span> -<span id="L36329" class="LineNr">36329 </span> 0f 94/set-byte-if-= %al -<span id="L36330" class="LineNr">36330 </span> 25/and-eax-with 0xff/imm32 -<span id="L36331" class="LineNr">36331 </span><span class="Constant">$mu-array-type?:end</span>: -<span id="L36332" class="LineNr">36332 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36333" class="LineNr">36333 </span> 89/<- %esp 5/r32/ebp -<span id="L36334" class="LineNr">36334 </span> 5d/pop-to-ebp -<span id="L36335" class="LineNr">36335 </span> c3/return -<span id="L36336" class="LineNr">36336 </span> -<span id="L36337" class="LineNr">36337 </span><span class="subxFunction">mu-string-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L36338" class="LineNr">36338 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36339" class="LineNr">36339 </span> 55/push-ebp -<span id="L36340" class="LineNr">36340 </span> 89/<- %ebp 4/r32/esp -<span id="L36341" class="LineNr">36341 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L36342" class="LineNr">36342 </span> 56/push-esi -<span id="L36343" class="LineNr">36343 </span> <span class="subxComment"># esi = a</span> -<span id="L36344" class="LineNr">36344 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L36345" class="LineNr">36345 </span> <span class="subxComment"># if (a->is-atom?) return false</span> -<span id="L36346" class="LineNr">36346 </span> 81 7/subop/compare *esi 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L36347" class="LineNr">36347 </span> 0f 85/jump-if-!= $mu-string-type?:return-false/disp32 -<span id="L36348" class="LineNr">36348 </span> <span class="subxComment"># if a is not an addr, return false</span> -<span id="L36349" class="LineNr">36349 </span> (<a href='mu.subx.html#L36293'>mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> -<span id="L36350" class="LineNr">36350 </span> 3d/compare-eax-with 0/imm32/false -<span id="L36351" class="LineNr">36351 </span> 0f 84/jump-if-= $mu-string-type?:end/disp32 <span class="subxComment"># eax changes var</span> -<span id="L36352" class="LineNr">36352 </span> <span class="subxComment"># if a is not an array, return false</span> -<span id="L36353" class="LineNr">36353 </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="L36354" class="LineNr">36354 </span> (<a href='mu.subx.html#L36315'>mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L36355" class="LineNr">36355 </span> 3d/compare-eax-with 0/imm32/false -<span id="L36356" class="LineNr">36356 </span> 74/jump-if-= $mu-string-type?:end/disp8 <span class="subxComment"># eax changes var</span> -<span id="L36357" class="LineNr">36357 </span> <span class="subxComment"># var p/eax: (addr type-tree) = payload of a</span> -<span id="L36358" class="LineNr">36358 </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="L36359" class="LineNr">36359 </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="L36360" class="LineNr">36360 </span> <span class="subxComment"># if p is an atom, return false</span> -<span id="L36361" class="LineNr">36361 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L36362" class="LineNr">36362 </span> 75/jump-if-!= $mu-string-type?:return-false/disp8 -<span id="L36363" class="LineNr">36363 </span> <span class="subxComment"># return (p == byte)</span> -<span id="L36364" class="LineNr">36364 </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="L36365" class="LineNr">36365 </span> (<a href='mu.subx.html#L36272'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L36366" class="LineNr">36366 </span> eb/jump $mu-string-type?:end/disp8 -<span id="L36367" class="LineNr">36367 </span><span class="Constant">$mu-string-type?:return-false</span>: -<span id="L36368" class="LineNr">36368 </span> b8/copy-to-eax 0/imm32/false -<span id="L36369" class="LineNr">36369 </span><span class="Constant">$mu-string-type?:end</span>: -<span id="L36370" class="LineNr">36370 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L36371" class="LineNr">36371 </span> 5e/pop-to-esi -<span id="L36372" class="LineNr">36372 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36373" class="LineNr">36373 </span> 89/<- %esp 5/r32/ebp -<span id="L36374" class="LineNr">36374 </span> 5d/pop-to-ebp -<span id="L36375" class="LineNr">36375 </span> c3/return -<span id="L36376" class="LineNr">36376 </span> -<span id="L36377" class="LineNr">36377 </span><span class="subxFunction">mu-stream-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L36378" class="LineNr">36378 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36379" class="LineNr">36379 </span> 55/push-ebp -<span id="L36380" class="LineNr">36380 </span> 89/<- %ebp 4/r32/esp -<span id="L36381" class="LineNr">36381 </span> <span class="subxComment"># eax = a</span> -<span id="L36382" class="LineNr">36382 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L36383" class="LineNr">36383 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> -<span id="L36384" class="LineNr">36384 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L36385" class="LineNr">36385 </span> { -<span id="L36386" class="LineNr">36386 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L36387" class="LineNr">36387 </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="L36388" class="LineNr">36388 </span> } -<span id="L36389" class="LineNr">36389 </span> <span class="subxComment"># return (a->value == stream)</span> -<span id="L36390" class="LineNr">36390 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream <span class="subxComment"># Type-tree-value</span> -<span id="L36391" class="LineNr">36391 </span> 0f 94/set-byte-if-= %al -<span id="L36392" class="LineNr">36392 </span> 25/and-eax-with 0xff/imm32 -<span id="L36393" class="LineNr">36393 </span><span class="Constant">$mu-stream-type?:end</span>: -<span id="L36394" class="LineNr">36394 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36395" class="LineNr">36395 </span> 89/<- %esp 5/r32/ebp -<span id="L36396" class="LineNr">36396 </span> 5d/pop-to-ebp -<span id="L36397" class="LineNr">36397 </span> c3/return -<span id="L36398" class="LineNr">36398 </span> -<span id="L36399" class="LineNr">36399 </span><span class="subxTest">test-emit-subx-stmt-primitive</span>: -<span id="L36400" class="LineNr">36400 </span> <span class="subxComment"># Primitive operation on a variable on the stack.</span> -<span id="L36401" class="LineNr">36401 </span> <span class="subxComment"># increment foo</span> -<span id="L36402" class="LineNr">36402 </span> <span class="subxComment"># =></span> -<span id="L36403" class="LineNr">36403 </span> <span class="subxComment"># ff 0/subop/increment *(ebp-8)</span> -<span id="L36404" class="LineNr">36404 </span> <span class="subxComment">#</span> -<span id="L36405" class="LineNr">36405 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L36406" class="LineNr">36406 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L36407" class="LineNr">36407 </span> <span class="subxComment"># type: int</span> -<span id="L36408" class="LineNr">36408 </span> <span class="subxComment"># stack-offset: -8</span> -<span id="L36409" class="LineNr">36409 </span> <span class="subxComment">#</span> -<span id="L36410" class="LineNr">36410 </span> <span class="subxComment"># There's a primitive with this info:</span> -<span id="L36411" class="LineNr">36411 </span> <span class="subxComment"># name: 'increment'</span> -<span id="L36412" class="LineNr">36412 </span> <span class="subxComment"># inouts: int/mem</span> -<span id="L36413" class="LineNr">36413 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L36414" class="LineNr">36414 </span> <span class="subxComment">#</span> -<span id="L36415" class="LineNr">36415 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36416" class="LineNr">36416 </span> 55/push-ebp -<span id="L36417" class="LineNr">36417 </span> 89/<- %ebp 4/r32/esp -<span id="L36418" class="LineNr">36418 </span> <span class="subxComment"># setup</span> -<span id="L36419" class="LineNr">36419 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L36420" class="LineNr">36420 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36421" class="LineNr">36421 </span> <span class="subxComment"># simulate allocated payloads starting with an initial fake alloc-id (0x11)</span> -<span id="L36422" class="LineNr">36422 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-type</span>: -<span id="L36423" class="LineNr">36423 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36424" class="LineNr">36424 </span> 68/push 0/imm32/right:null -<span id="L36425" class="LineNr">36425 </span> 68/push 0/imm32/right:null -<span id="L36426" class="LineNr">36426 </span> 68/push 0/imm32/left:unused -<span id="L36427" class="LineNr">36427 </span> 68/push 1/imm32/value:int -<span id="L36428" class="LineNr">36428 </span> 68/push 1/imm32/is-atom?:true -<span id="L36429" class="LineNr">36429 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36430" class="LineNr">36430 </span> 89/<- %ecx 4/r32/esp -<span id="L36431" class="LineNr">36431 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var</span>: -<span id="L36432" class="LineNr">36432 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> -<span id="L36433" class="LineNr">36433 </span> 68/push 0/imm32/no-register -<span id="L36434" class="LineNr">36434 </span> 68/push 0/imm32/no-register -<span id="L36435" class="LineNr">36435 </span> 68/push -8/imm32/stack-offset -<span id="L36436" class="LineNr">36436 </span> 68/push 1/imm32/block-depth -<span id="L36437" class="LineNr">36437 </span> 51/push-ecx/type -<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> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36442" class="LineNr">36442 </span> 89/<- %ecx 4/r32/esp -<span id="L36443" class="LineNr">36443 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var-name</span>: -<span id="L36444" class="LineNr">36444 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L36445" class="LineNr">36445 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36446" class="LineNr">36446 </span> (<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="L36447" class="LineNr">36447 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-var</span>: -<span id="L36448" class="LineNr">36448 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> -<span id="L36449" class="LineNr">36449 </span> 68/push 0/imm32/is-deref:false -<span id="L36450" class="LineNr">36450 </span> 68/push 0/imm32/next -<span id="L36451" class="LineNr">36451 </span> 68/push 0/imm32/next -<span id="L36452" class="LineNr">36452 </span> 51/push-ecx/var-foo -<span id="L36453" class="LineNr">36453 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36454" class="LineNr">36454 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36455" class="LineNr">36455 </span> 89/<- %ebx 4/r32/esp -<span id="L36456" class="LineNr">36456 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt</span>: -<span id="L36457" class="LineNr">36457 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36458" class="LineNr">36458 </span> 68/push 0/imm32/no-outputs -<span id="L36459" class="LineNr">36459 </span> 68/push 0/imm32/no-outputs -<span id="L36460" class="LineNr">36460 </span> 53/push-ebx/inouts -<span id="L36461" class="LineNr">36461 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36462" class="LineNr">36462 </span> 68/push 0/imm32/operation -<span id="L36463" class="LineNr">36463 </span> 68/push 0/imm32/operation -<span id="L36464" class="LineNr">36464 </span> 68/push 1/imm32/tag -<span id="L36465" class="LineNr">36465 </span> 89/<- %esi 4/r32/esp -<span id="L36466" class="LineNr">36466 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-operation</span>: -<span id="L36467" class="LineNr">36467 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L36468" class="LineNr">36468 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36469" class="LineNr">36469 </span> (<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="L36470" class="LineNr">36470 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive</span>: -<span id="L36471" class="LineNr">36471 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L36472" class="LineNr">36472 </span> 68/push 0/imm32/next -<span id="L36473" class="LineNr">36473 </span> 68/push 0/imm32/next -<span id="L36474" class="LineNr">36474 </span> 68/push 0/imm32/no-x32 -<span id="L36475" class="LineNr">36475 </span> 68/push 0/imm32/no-xm32 -<span id="L36476" class="LineNr">36476 </span> 68/push 0/imm32/no-disp32 -<span id="L36477" class="LineNr">36477 </span> 68/push 0/imm32/no-imm8 -<span id="L36478" class="LineNr">36478 </span> 68/push 0/imm32/no-imm32 -<span id="L36479" class="LineNr">36479 </span> 68/push 0/imm32/no-r32 -<span id="L36480" class="LineNr">36480 </span> 68/push 1/imm32/rm32-is-first-inout -<span id="L36481" class="LineNr">36481 </span> 68/push 0/imm32/subx-name -<span id="L36482" class="LineNr">36482 </span> 68/push 0/imm32/subx-name -<span id="L36483" class="LineNr">36483 </span> 68/push 0/imm32/no-outputs -<span id="L36484" class="LineNr">36484 </span> 68/push 0/imm32/no-outputs -<span id="L36485" class="LineNr">36485 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> -<span id="L36486" class="LineNr">36486 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36487" class="LineNr">36487 </span> 68/push 0/imm32/name -<span id="L36488" class="LineNr">36488 </span> 68/push 0/imm32/name -<span id="L36489" class="LineNr">36489 </span> 89/<- %ebx 4/r32/esp -<span id="L36490" class="LineNr">36490 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-name</span>: -<span id="L36491" class="LineNr">36491 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L36492" class="LineNr">36492 </span> (<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="L36493" class="LineNr">36493 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-subx-name</span>: -<span id="L36494" class="LineNr">36494 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36495" class="LineNr">36495 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L36496" class="LineNr">36496 </span> (<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="L36497" class="LineNr">36497 </span> <span class="subxComment"># convert</span> -<span id="L36498" class="LineNr">36498 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L36499" class="LineNr">36499 </span> (<a href='mu.subx.html#L28680'>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="L36500" class="LineNr">36500 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L36501" class="Folded">36501 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36507" class="LineNr">36507 </span> <span class="subxComment"># check output</span> -<span id="L36508" class="LineNr">36508 </span> (<a href='109stream-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="L36509" class="LineNr">36509 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36510" class="LineNr">36510 </span> 89/<- %esp 5/r32/ebp -<span id="L36511" class="LineNr">36511 </span> 5d/pop-to-ebp -<span id="L36512" class="LineNr">36512 </span> c3/return -<span id="L36513" class="LineNr">36513 </span> -<span id="L36514" class="LineNr">36514 </span><span class="subxTest">test-emit-subx-stmt-primitive-register</span>: -<span id="L36515" class="LineNr">36515 </span> <span class="subxComment"># Primitive operation on a variable in a register.</span> -<span id="L36516" class="LineNr">36516 </span> <span class="subxComment"># foo <- increment</span> -<span id="L36517" class="LineNr">36517 </span> <span class="subxComment"># =></span> -<span id="L36518" class="LineNr">36518 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> -<span id="L36519" class="LineNr">36519 </span> <span class="subxComment">#</span> -<span id="L36520" class="LineNr">36520 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L36521" class="LineNr">36521 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L36522" class="LineNr">36522 </span> <span class="subxComment"># type: int</span> -<span id="L36523" class="LineNr">36523 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L36524" class="LineNr">36524 </span> <span class="subxComment">#</span> -<span id="L36525" class="LineNr">36525 </span> <span class="subxComment"># There's a primitive with this info:</span> -<span id="L36526" class="LineNr">36526 </span> <span class="subxComment"># name: 'increment'</span> -<span id="L36527" class="LineNr">36527 </span> <span class="subxComment"># out: int/reg</span> -<span id="L36528" class="LineNr">36528 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L36529" class="LineNr">36529 </span> <span class="subxComment">#</span> -<span id="L36530" class="LineNr">36530 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36531" class="LineNr">36531 </span> 55/push-ebp -<span id="L36532" class="LineNr">36532 </span> 89/<- %ebp 4/r32/esp -<span id="L36533" class="LineNr">36533 </span> <span class="subxComment"># setup</span> -<span id="L36534" class="LineNr">36534 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L36535" class="LineNr">36535 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36536" class="LineNr">36536 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-type</span>: -<span id="L36537" class="LineNr">36537 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36538" class="LineNr">36538 </span> 68/push 0/imm32/right:null -<span id="L36539" class="LineNr">36539 </span> 68/push 0/imm32/right:null -<span id="L36540" class="LineNr">36540 </span> 68/push 0/imm32/left:unused -<span id="L36541" class="LineNr">36541 </span> 68/push 1/imm32/value:int -<span id="L36542" class="LineNr">36542 </span> 68/push 1/imm32/is-atom?:true -<span id="L36543" class="LineNr">36543 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36544" class="LineNr">36544 </span> 89/<- %ecx 4/r32/esp -<span id="L36545" class="LineNr">36545 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var</span>: -<span id="L36546" class="LineNr">36546 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L36547" class="LineNr">36547 </span> 68/push 0/imm32/register -<span id="L36548" class="LineNr">36548 </span> 68/push 0/imm32/register -<span id="L36549" class="LineNr">36549 </span> 68/push 0/imm32/no-stack-offset -<span id="L36550" class="LineNr">36550 </span> 68/push 1/imm32/block-depth -<span id="L36551" class="LineNr">36551 </span> 51/push-ecx -<span id="L36552" class="LineNr">36552 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36553" class="LineNr">36553 </span> 68/push 0/imm32/name -<span id="L36554" class="LineNr">36554 </span> 68/push 0/imm32/name -<span id="L36555" class="LineNr">36555 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36556" class="LineNr">36556 </span> 89/<- %ecx 4/r32/esp -<span id="L36557" class="LineNr">36557 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-name</span>: -<span id="L36558" class="LineNr">36558 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L36559" class="LineNr">36559 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36560" class="LineNr">36560 </span> (<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="L36561" class="LineNr">36561 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-register</span>: -<span id="L36562" class="LineNr">36562 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L36563" class="LineNr">36563 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36564" class="LineNr">36564 </span> (<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="L36565" class="LineNr">36565 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-var</span>: -<span id="L36566" class="LineNr">36566 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L36567" class="LineNr">36567 </span> 68/push 0/imm32/is-deref:false -<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> 51/push-ecx/var-foo -<span id="L36571" class="LineNr">36571 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36572" class="LineNr">36572 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36573" class="LineNr">36573 </span> 89/<- %ebx 4/r32/esp -<span id="L36574" class="LineNr">36574 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt</span>: -<span id="L36575" class="LineNr">36575 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36576" class="LineNr">36576 </span> 53/push-ebx/outputs -<span id="L36577" class="LineNr">36577 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36578" class="LineNr">36578 </span> 68/push 0/imm32/no-inouts -<span id="L36579" class="LineNr">36579 </span> 68/push 0/imm32/no-inouts -<span id="L36580" class="LineNr">36580 </span> 68/push 0/imm32/operation -<span id="L36581" class="LineNr">36581 </span> 68/push 0/imm32/operation -<span id="L36582" class="LineNr">36582 </span> 68/push 1/imm32 -<span id="L36583" class="LineNr">36583 </span> 89/<- %esi 4/r32/esp -<span id="L36584" class="LineNr">36584 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-operation</span>: -<span id="L36585" class="LineNr">36585 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L36586" class="LineNr">36586 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36587" class="LineNr">36587 </span> (<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="L36588" class="LineNr">36588 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var</span>: -<span id="L36589" class="LineNr">36589 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> -<span id="L36590" class="LineNr">36590 </span> 68/push 0/imm32/register -<span id="L36591" class="LineNr">36591 </span> 68/push 0/imm32/register -<span id="L36592" class="LineNr">36592 </span> 68/push 0/imm32/no-stack-offset -<span id="L36593" class="LineNr">36593 </span> 68/push 1/imm32/block-depth -<span id="L36594" class="LineNr">36594 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> -<span id="L36595" class="LineNr">36595 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36596" class="LineNr">36596 </span> 68/push 0/imm32/name -<span id="L36597" class="LineNr">36597 </span> 68/push 0/imm32/name -<span id="L36598" class="LineNr">36598 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36599" class="LineNr">36599 </span> 89/<- %ebx 4/r32/esp -<span id="L36600" class="LineNr">36600 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var-name</span>: -<span id="L36601" class="LineNr">36601 </span> <span class="subxComment"># formal-var->name = "dummy"</span> -<span id="L36602" class="LineNr">36602 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36603" class="LineNr">36603 </span> (<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="L36604" class="LineNr">36604 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-register</span>: -<span id="L36605" class="LineNr">36605 </span> <span class="subxComment"># formal-var->register = "*"</span> -<span id="L36606" class="LineNr">36606 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36607" class="LineNr">36607 </span> (<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="L36608" class="LineNr">36608 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-list</span>: -<span id="L36609" class="LineNr">36609 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> -<span id="L36610" class="LineNr">36610 </span> 68/push 0/imm32/next -<span id="L36611" class="LineNr">36611 </span> 68/push 0/imm32/next -<span id="L36612" class="LineNr">36612 </span> 53/push-ebx/formal-var -<span id="L36613" class="LineNr">36613 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36614" class="LineNr">36614 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36615" class="LineNr">36615 </span> 89/<- %ebx 4/r32/esp -<span id="L36616" class="LineNr">36616 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive</span>: -<span id="L36617" class="LineNr">36617 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L36618" class="LineNr">36618 </span> 68/push 0/imm32/next -<span id="L36619" class="LineNr">36619 </span> 68/push 0/imm32/next -<span id="L36620" class="LineNr">36620 </span> 68/push 0/imm32/no-x32 -<span id="L36621" class="LineNr">36621 </span> 68/push 0/imm32/no-xm32 -<span id="L36622" class="LineNr">36622 </span> 68/push 0/imm32/no-disp32 -<span id="L36623" class="LineNr">36623 </span> 68/push 0/imm32/no-imm8 -<span id="L36624" class="LineNr">36624 </span> 68/push 0/imm32/no-imm32 -<span id="L36625" class="LineNr">36625 </span> 68/push 0/imm32/no-r32 -<span id="L36626" class="LineNr">36626 </span> 68/push 3/imm32/rm32-is-first-output -<span id="L36627" class="LineNr">36627 </span> 68/push 0/imm32/subx-name -<span id="L36628" class="LineNr">36628 </span> 68/push 0/imm32/subx-name -<span id="L36629" class="LineNr">36629 </span> 53/push-ebx/outputs -<span id="L36630" class="LineNr">36630 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36631" class="LineNr">36631 </span> 68/push 0/imm32/no-inouts -<span id="L36632" class="LineNr">36632 </span> 68/push 0/imm32/no-inouts -<span id="L36633" class="LineNr">36633 </span> 68/push 0/imm32/name -<span id="L36634" class="LineNr">36634 </span> 68/push 0/imm32/name -<span id="L36635" class="LineNr">36635 </span> 89/<- %ebx 4/r32/esp -<span id="L36636" class="LineNr">36636 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-name</span>: -<span id="L36637" class="LineNr">36637 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L36638" class="LineNr">36638 </span> (<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="L36639" class="LineNr">36639 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-subx-name</span>: -<span id="L36640" class="LineNr">36640 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36641" class="LineNr">36641 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L36642" class="LineNr">36642 </span> (<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="L36643" class="LineNr">36643 </span> <span class="subxComment"># convert</span> -<span id="L36644" class="LineNr">36644 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L36645" class="LineNr">36645 </span> (<a href='mu.subx.html#L28680'>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="L36646" class="LineNr">36646 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L36647" class="Folded">36647 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36653" class="LineNr">36653 </span> <span class="subxComment"># check output</span> -<span id="L36654" class="LineNr">36654 </span> (<a href='109stream-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="L36655" class="LineNr">36655 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36656" class="LineNr">36656 </span> 89/<- %esp 5/r32/ebp -<span id="L36657" class="LineNr">36657 </span> 5d/pop-to-ebp -<span id="L36658" class="LineNr">36658 </span> c3/return -<span id="L36659" class="LineNr">36659 </span> -<span id="L36660" class="LineNr">36660 </span><span class="subxTest">test-emit-subx-stmt-select-primitive</span>: -<span id="L36661" class="LineNr">36661 </span> <span class="subxComment"># Select the right primitive between overloads.</span> -<span id="L36662" class="LineNr">36662 </span> <span class="subxComment"># foo <- increment</span> -<span id="L36663" class="LineNr">36663 </span> <span class="subxComment"># =></span> -<span id="L36664" class="LineNr">36664 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> +<span id="L36074" class="LineNr">36074 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-direct</span>: +<span id="L36075" class="LineNr">36075 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L36076" class="LineNr">36076 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36077" class="LineNr">36077 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L36078" class="LineNr">36078 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36079" class="LineNr">36079 </span><span class="Constant">$emit-subx-var-as-rm32:register-direct</span>: +<span id="L36080" class="LineNr">36080 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) +<span id="L36081" class="LineNr">36081 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L36082" class="LineNr">36082 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L36083" class="LineNr">36083 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 +<span id="L36084" class="LineNr">36084 </span> } +<span id="L36085" class="LineNr">36085 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> +<span id="L36086" class="LineNr">36086 </span> { +<span id="L36087" class="LineNr">36087 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L36088" class="LineNr">36088 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36089" class="LineNr">36089 </span><span class="Constant">$emit-subx-var-as-rm32:stack</span>: +<span id="L36090" class="LineNr">36090 </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="L36091" class="LineNr">36091 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) +<span id="L36092" class="LineNr">36092 </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="L36093" class="LineNr">36093 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L36094" class="LineNr">36094 </span> } +<span id="L36095" class="LineNr">36095 </span><span class="Constant">$emit-subx-var-as-rm32:end</span>: +<span id="L36096" class="LineNr">36096 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36097" class="LineNr">36097 </span> 5e/pop-to-esi +<span id="L36098" class="LineNr">36098 </span> 59/pop-to-ecx +<span id="L36099" class="LineNr">36099 </span> 58/pop-to-eax +<span id="L36100" class="LineNr">36100 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36101" class="LineNr">36101 </span> 89/<- %esp 5/r32/ebp +<span id="L36102" class="LineNr">36102 </span> 5d/pop-to-ebp +<span id="L36103" class="LineNr">36103 </span> c3/return +<span id="L36104" class="LineNr">36104 </span> +<span id="L36105" class="LineNr">36105 </span><span class="subxFunction">find-matching-primitive</span>: <span class="subxComment"># primitives: (addr primitive), stmt: (addr stmt) -> result/eax: (addr primitive)</span> +<span id="L36106" class="LineNr">36106 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36107" class="LineNr">36107 </span> 55/push-ebp +<span id="L36108" class="LineNr">36108 </span> 89/<- %ebp 4/r32/esp +<span id="L36109" class="LineNr">36109 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36110" class="LineNr">36110 </span> 51/push-ecx +<span id="L36111" class="LineNr">36111 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = primitives</span> +<span id="L36112" class="LineNr">36112 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L36113" class="LineNr">36113 </span> { +<span id="L36114" class="LineNr">36114 </span><span class="Constant">$find-matching-primitive:loop</span>: +<span id="L36115" class="LineNr">36115 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L36116" class="LineNr">36116 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L36117" class="LineNr">36117 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36118" class="LineNr">36118 </span> <span class="subxComment"># if match(curr, stmt) return curr</span> +<span id="L36119" class="LineNr">36119 </span> { +<span id="L36120" class="LineNr">36120 </span> (<a href='mu.subx.html#L36143'>mu-stmt-matches-primitive?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> +<span id="L36121" class="LineNr">36121 </span> 3d/compare-eax-and 0/imm32/false +<span id="L36122" class="LineNr">36122 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36123" class="LineNr">36123 </span> 89/<- %eax 1/r32/ecx +<span id="L36124" class="LineNr">36124 </span> eb/jump $find-matching-primitive:end/disp8 +<span id="L36125" class="LineNr">36125 </span> } +<span id="L36126" class="LineNr">36126 </span><span class="Constant">$find-matching-primitive:next-primitive</span>: +<span id="L36127" class="LineNr">36127 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L36128" class="LineNr">36128 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> +<span id="L36129" class="LineNr">36129 </span> 89/<- %ecx 0/r32/eax +<span id="L36130" class="LineNr">36130 </span> <span class="subxComment">#</span> +<span id="L36131" class="LineNr">36131 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L36132" class="LineNr">36132 </span> } +<span id="L36133" class="LineNr">36133 </span> <span class="subxComment"># return null</span> +<span id="L36134" class="LineNr">36134 </span> b8/copy-to-eax 0/imm32 +<span id="L36135" class="LineNr">36135 </span><span class="Constant">$find-matching-primitive:end</span>: +<span id="L36136" class="LineNr">36136 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36137" class="LineNr">36137 </span> 59/pop-to-ecx +<span id="L36138" class="LineNr">36138 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36139" class="LineNr">36139 </span> 89/<- %esp 5/r32/ebp +<span id="L36140" class="LineNr">36140 </span> 5d/pop-to-ebp +<span id="L36141" class="LineNr">36141 </span> c3/return +<span id="L36142" class="LineNr">36142 </span> +<span id="L36143" class="LineNr">36143 </span><span class="subxFunction">mu-stmt-matches-primitive?</span>: <span class="subxComment"># stmt: (addr stmt), primitive: (addr primitive) -> result/eax: boolean</span> +<span id="L36144" class="LineNr">36144 </span> <span class="subxComment"># A mu stmt matches a primitive if the name matches, all the inout vars</span> +<span id="L36145" class="LineNr">36145 </span> <span class="subxComment"># match, and all the output vars match.</span> +<span id="L36146" class="LineNr">36146 </span> <span class="subxComment"># Vars match if types match and registers match.</span> +<span id="L36147" class="LineNr">36147 </span> <span class="subxComment"># In addition, a stmt output matches a primitive's output if types match</span> +<span id="L36148" class="LineNr">36148 </span> <span class="subxComment"># and the primitive has a wildcard register.</span> +<span id="L36149" class="LineNr">36149 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36150" class="LineNr">36150 </span> 55/push-ebp +<span id="L36151" class="LineNr">36151 </span> 89/<- %ebp 4/r32/esp +<span id="L36152" class="LineNr">36152 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36153" class="LineNr">36153 </span> 51/push-ecx +<span id="L36154" class="LineNr">36154 </span> 52/push-edx +<span id="L36155" class="LineNr">36155 </span> 53/push-ebx +<span id="L36156" class="LineNr">36156 </span> 56/push-esi +<span id="L36157" class="LineNr">36157 </span> 57/push-edi +<span id="L36158" class="LineNr">36158 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L36159" class="LineNr">36159 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L36160" class="LineNr">36160 </span> <span class="subxComment"># edx = primitive</span> +<span id="L36161" class="LineNr">36161 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L36162" class="LineNr">36162 </span> { +<span id="L36163" class="LineNr">36163 </span><span class="Constant">$mu-stmt-matches-primitive?:check-name</span>: +<span id="L36164" class="LineNr">36164 </span> <span class="subxComment"># if (primitive->name != stmt->operation) return false</span> +<span id="L36165" class="LineNr">36165 </span> <span class="subxS1Comment"># . var esi: (addr array byte) = lookup(stmt->operation)</span> +<span id="L36166" class="LineNr">36166 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L36167" class="LineNr">36167 </span> 89/<- %esi 0/r32/eax +<span id="L36168" class="LineNr">36168 </span> <span class="subxS1Comment"># . var edi: (addr array byte) = lookup(primitive->name)</span> +<span id="L36169" class="LineNr">36169 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> +<span id="L36170" class="LineNr">36170 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L36171" class="LineNr">36171 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L36172" class="LineNr">36172 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L36173" class="LineNr">36173 </span> 89/<- %edi 0/r32/eax +<span id="L36174" class="LineNr">36174 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> +<span id="L36175" class="LineNr">36175 </span> 3d/compare-eax-and 0/imm32/false +<span id="L36176" class="LineNr">36176 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36177" class="LineNr">36177 </span> b8/copy-to-eax 0/imm32 +<span id="L36178" class="LineNr">36178 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L36179" class="LineNr">36179 </span> } +<span id="L36180" class="LineNr">36180 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L36181" class="LineNr">36181 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L36182" class="LineNr">36182 </span> 89/<- %esi 0/r32/eax +<span id="L36183" class="LineNr">36183 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->inouts)</span> +<span id="L36184" class="LineNr">36184 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Primitive-inouts Primitive-inouts => eax</span> +<span id="L36185" class="LineNr">36185 </span> 89/<- %edi 0/r32/eax +<span id="L36186" class="LineNr">36186 </span> { +<span id="L36187" class="LineNr">36187 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-loop</span>: +<span id="L36188" class="LineNr">36188 </span> <span class="subxComment"># if (curr == 0 && curr2 == 0) move on to check outputs</span> +<span id="L36189" class="LineNr">36189 </span> { +<span id="L36190" class="LineNr">36190 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-inouts-null</span>: +<span id="L36191" class="LineNr">36191 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L36192" class="LineNr">36192 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36193" class="LineNr">36193 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null</span>: +<span id="L36194" class="LineNr">36194 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L36195" class="LineNr">36195 </span> 0f 84/jump-if-= $mu-stmt-matches-primitive?:check-outputs/disp32 +<span id="L36196" class="LineNr">36196 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null-and-prim-inout-not-null</span>: +<span id="L36197" class="LineNr">36197 </span> <span class="subxComment"># return false</span> +<span id="L36198" class="LineNr">36198 </span> b8/copy-to-eax 0/imm32/false +<span id="L36199" class="LineNr">36199 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L36200" class="LineNr">36200 </span> } +<span id="L36201" class="LineNr">36201 </span> <span class="subxComment"># if (curr2 == 0) return false</span> +<span id="L36202" class="LineNr">36202 </span> { +<span id="L36203" class="LineNr">36203 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-inout-null</span>: +<span id="L36204" class="LineNr">36204 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L36205" class="LineNr">36205 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36206" class="LineNr">36206 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-inout-null</span>: +<span id="L36207" class="LineNr">36207 </span> b8/copy-to-eax 0/imm32/false +<span id="L36208" class="LineNr">36208 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L36209" class="LineNr">36209 </span> } +<span id="L36210" class="LineNr">36210 </span> <span class="subxComment"># if (curr != curr2) return false</span> +<span id="L36211" class="LineNr">36211 </span> { +<span id="L36212" class="LineNr">36212 </span><span class="Constant">$mu-stmt-matches-primitive?:check-inouts-match</span>: +<span id="L36213" class="LineNr">36213 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L36214" class="LineNr">36214 </span> (<a href='mu.subx.html#L36303'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> +<span id="L36215" class="LineNr">36215 </span> 3d/compare-eax-and 0/imm32/false +<span id="L36216" class="LineNr">36216 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36217" class="LineNr">36217 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-match</span>: +<span id="L36218" class="LineNr">36218 </span> b8/copy-to-eax 0/imm32/false +<span id="L36219" class="LineNr">36219 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L36220" class="LineNr">36220 </span> } +<span id="L36221" class="LineNr">36221 </span><span class="Constant">$mu-stmt-matches-primitive?:next-inout</span>: +<span id="L36222" class="LineNr">36222 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L36223" class="LineNr">36223 </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="L36224" class="LineNr">36224 </span> 89/<- %esi 0/r32/eax +<span id="L36225" class="LineNr">36225 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> +<span id="L36226" class="LineNr">36226 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L36227" class="LineNr">36227 </span> 89/<- %edi 0/r32/eax +<span id="L36228" class="LineNr">36228 </span> <span class="subxComment">#</span> +<span id="L36229" class="LineNr">36229 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L36230" class="LineNr">36230 </span> } +<span id="L36231" class="LineNr">36231 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs</span>: +<span id="L36232" class="LineNr">36232 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->outputs)</span> +<span id="L36233" class="LineNr">36233 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L36234" class="LineNr">36234 </span> 89/<- %esi 0/r32/eax +<span id="L36235" class="LineNr">36235 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->outputs)</span> +<span id="L36236" class="LineNr">36236 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x10) *(edx+0x14)) <span class="subxComment"># Primitive-outputs Primitive-outputs => eax</span> +<span id="L36237" class="LineNr">36237 </span> 89/<- %edi 0/r32/eax +<span id="L36238" class="LineNr">36238 </span> { +<span id="L36239" class="LineNr">36239 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-loop</span>: +<span id="L36240" class="LineNr">36240 </span> <span class="subxComment"># if (curr == 0) return (curr2 == 0)</span> +<span id="L36241" class="LineNr">36241 </span> { +<span id="L36242" class="LineNr">36242 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-outputs-null</span>: +<span id="L36243" class="LineNr">36243 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L36244" class="LineNr">36244 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36245" class="LineNr">36245 </span> { +<span id="L36246" class="LineNr">36246 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null</span>: +<span id="L36247" class="LineNr">36247 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L36248" class="LineNr">36248 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36249" class="LineNr">36249 </span><span class="Constant">$mu-stmt-matches-primitive?:both-outputs-null</span>: +<span id="L36250" class="LineNr">36250 </span> <span class="subxComment"># return true</span> +<span id="L36251" class="LineNr">36251 </span> b8/copy-to-eax 1/imm32 +<span id="L36252" class="LineNr">36252 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L36253" class="LineNr">36253 </span> } +<span id="L36254" class="LineNr">36254 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null-and-prim-output-not-null</span>: +<span id="L36255" class="LineNr">36255 </span> <span class="subxComment"># return false</span> +<span id="L36256" class="LineNr">36256 </span> b8/copy-to-eax 0/imm32 +<span id="L36257" class="LineNr">36257 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L36258" class="LineNr">36258 </span> } +<span id="L36259" class="LineNr">36259 </span> <span class="subxComment"># if (curr2 == 0) return false</span> +<span id="L36260" class="LineNr">36260 </span> { +<span id="L36261" class="LineNr">36261 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-output-null</span>: +<span id="L36262" class="LineNr">36262 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L36263" class="LineNr">36263 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36264" class="LineNr">36264 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-output-is-null</span>: +<span id="L36265" class="LineNr">36265 </span> b8/copy-to-eax 0/imm32 +<span id="L36266" class="LineNr">36266 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L36267" class="LineNr">36267 </span> } +<span id="L36268" class="LineNr">36268 </span> <span class="subxComment"># if (curr != curr2) return false</span> +<span id="L36269" class="LineNr">36269 </span> { +<span id="L36270" class="LineNr">36270 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs-match</span>: +<span id="L36271" class="LineNr">36271 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L36272" class="LineNr">36272 </span> (<a href='mu.subx.html#L36303'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> +<span id="L36273" class="LineNr">36273 </span> 3d/compare-eax-and 0/imm32/false +<span id="L36274" class="LineNr">36274 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36275" class="LineNr">36275 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-match</span>: +<span id="L36276" class="LineNr">36276 </span> b8/copy-to-eax 0/imm32 +<span id="L36277" class="LineNr">36277 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L36278" class="LineNr">36278 </span> } +<span id="L36279" class="LineNr">36279 </span><span class="Constant">$mu-stmt-matches-primitive?:next-output</span>: +<span id="L36280" class="LineNr">36280 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L36281" class="LineNr">36281 </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="L36282" class="LineNr">36282 </span> 89/<- %esi 0/r32/eax +<span id="L36283" class="LineNr">36283 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> +<span id="L36284" class="LineNr">36284 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L36285" class="LineNr">36285 </span> 89/<- %edi 0/r32/eax +<span id="L36286" class="LineNr">36286 </span> <span class="subxComment">#</span> +<span id="L36287" class="LineNr">36287 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L36288" class="LineNr">36288 </span> } +<span id="L36289" class="LineNr">36289 </span><span class="Constant">$mu-stmt-matches-primitive?:return-true</span>: +<span id="L36290" class="LineNr">36290 </span> b8/copy-to-eax 1/imm32 +<span id="L36291" class="LineNr">36291 </span><span class="Constant">$mu-stmt-matches-primitive?:end</span>: +<span id="L36292" class="LineNr">36292 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36293" class="LineNr">36293 </span> 5f/pop-to-edi +<span id="L36294" class="LineNr">36294 </span> 5e/pop-to-esi +<span id="L36295" class="LineNr">36295 </span> 5b/pop-to-ebx +<span id="L36296" class="LineNr">36296 </span> 5a/pop-to-edx +<span id="L36297" class="LineNr">36297 </span> 59/pop-to-ecx +<span id="L36298" class="LineNr">36298 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36299" class="LineNr">36299 </span> 89/<- %esp 5/r32/ebp +<span id="L36300" class="LineNr">36300 </span> 5d/pop-to-ebp +<span id="L36301" class="LineNr">36301 </span> c3/return +<span id="L36302" class="LineNr">36302 </span> +<span id="L36303" class="LineNr">36303 </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="L36304" class="LineNr">36304 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36305" class="LineNr">36305 </span> 55/push-ebp +<span id="L36306" class="LineNr">36306 </span> 89/<- %ebp 4/r32/esp +<span id="L36307" class="LineNr">36307 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36308" class="LineNr">36308 </span> 51/push-ecx +<span id="L36309" class="LineNr">36309 </span> 52/push-edx +<span id="L36310" class="LineNr">36310 </span> 53/push-ebx +<span id="L36311" class="LineNr">36311 </span> 56/push-esi +<span id="L36312" class="LineNr">36312 </span> 57/push-edi +<span id="L36313" class="LineNr">36313 </span> <span class="subxComment"># ecx = s</span> +<span id="L36314" class="LineNr">36314 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L36315" class="LineNr">36315 </span> <span class="subxComment"># var var/esi: (addr var) = lookup(s->value)</span> +<span id="L36316" class="LineNr">36316 </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="L36317" class="LineNr">36317 </span> 89/<- %esi 0/r32/eax +<span id="L36318" class="LineNr">36318 </span> <span class="subxComment"># edi = prim-var</span> +<span id="L36319" class="LineNr">36319 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L36320" class="LineNr">36320 </span><span class="Constant">$operand-matches-primitive?:check-type</span>: +<span id="L36321" class="LineNr">36321 </span> <span class="subxComment"># if !category-match?(var->type, prim-var->type) return false</span> +<span id="L36322" class="LineNr">36322 </span> <span class="subxS1Comment"># . var vtype/ebx: (addr type-tree) = lookup(var->type)</span> +<span id="L36323" class="LineNr">36323 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L36324" class="LineNr">36324 </span> 89/<- %ebx 0/r32/eax +<span id="L36325" class="LineNr">36325 </span> <span class="subxS1Comment"># . if s is deref, vtype = vtype->right</span> +<span id="L36326" class="LineNr">36326 </span> { +<span id="L36327" class="LineNr">36327 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L36328" class="LineNr">36328 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36329" class="LineNr">36329 </span><span class="Constant">$operand-matches-primitive?:is-deref</span>: +<span id="L36330" class="LineNr">36330 </span> <span class="subxS1Comment"># . var t/eax: (addr type)</span> +<span id="L36331" class="LineNr">36331 </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="L36332" class="LineNr">36332 </span> <span class="subxS1Comment"># . if !t->is-atom? t = t->left</span> +<span id="L36333" class="LineNr">36333 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L36334" class="LineNr">36334 </span> { +<span id="L36335" class="LineNr">36335 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36336" class="LineNr">36336 </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="L36337" class="LineNr">36337 </span> } +<span id="L36338" class="LineNr">36338 </span> <span class="subxS1Comment"># .</span> +<span id="L36339" class="LineNr">36339 </span> 89/<- %ebx 0/r32/eax +<span id="L36340" class="LineNr">36340 </span> } +<span id="L36341" class="LineNr">36341 </span> <span class="subxS1Comment"># . var ptype/eax: (addr type-tree) = lookup(prim-var->type)</span> +<span id="L36342" class="LineNr">36342 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L36343" class="LineNr">36343 </span> (<a href='mu.subx.html#L36480'>subx-type-category-match?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L36344" class="LineNr">36344 </span> 3d/compare-eax-and 0/imm32/false +<span id="L36345" class="LineNr">36345 </span> 0f 84/jump-if-= $operand-matches-primitive?:return-false/disp32 +<span id="L36346" class="LineNr">36346 </span> { +<span id="L36347" class="LineNr">36347 </span><span class="Constant">$operand-matches-primitive?:check-register</span>: +<span id="L36348" class="LineNr">36348 </span> <span class="subxComment"># if prim-var is in memory and var is in register but dereference, match</span> +<span id="L36349" class="LineNr">36349 </span> { +<span id="L36350" class="LineNr">36350 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L36351" class="LineNr">36351 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L36352" class="LineNr">36352 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L36353" class="LineNr">36353 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36354" class="LineNr">36354 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L36355" class="LineNr">36355 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36356" class="LineNr">36356 </span><span class="Constant">$operand-matches-primitive?:var-deref-match</span>: +<span id="L36357" class="LineNr">36357 </span> e9/jump $operand-matches-primitive?:return-true/disp32 +<span id="L36358" class="LineNr">36358 </span> } +<span id="L36359" class="LineNr">36359 </span> <span class="subxComment"># if prim-var is in register and var is in register but dereference, no match</span> +<span id="L36360" class="LineNr">36360 </span> { +<span id="L36361" class="LineNr">36361 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L36362" class="LineNr">36362 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L36363" class="LineNr">36363 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L36364" class="LineNr">36364 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L36365" class="LineNr">36365 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L36366" class="LineNr">36366 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36367" class="LineNr">36367 </span><span class="Constant">$operand-matches-primitive?:var-deref-no-match</span>: +<span id="L36368" class="LineNr">36368 </span> e9/jump $operand-matches-primitive?:return-false/disp32 +<span id="L36369" class="LineNr">36369 </span> } +<span id="L36370" class="LineNr">36370 </span> <span class="subxComment"># return false if var->register doesn't match prim-var->register</span> +<span id="L36371" class="LineNr">36371 </span> { +<span id="L36372" class="LineNr">36372 </span> <span class="subxComment"># if register addresses are equal, it's a match</span> +<span id="L36373" class="LineNr">36373 </span> <span class="subxComment"># var vreg/ebx: (addr array byte) = lookup(var->register)</span> +<span id="L36374" class="LineNr">36374 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L36375" class="LineNr">36375 </span> 89/<- %ebx 0/r32/eax +<span id="L36376" class="LineNr">36376 </span> <span class="subxComment"># var preg/ecx: (addr array byte) = lookup(prim-var->register)</span> +<span id="L36377" class="LineNr">36377 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L36378" class="LineNr">36378 </span> 89/<- %ecx 0/r32/eax +<span id="L36379" class="LineNr">36379 </span> <span class="subxComment"># if (vreg == preg) break</span> +<span id="L36380" class="LineNr">36380 </span> 39/compare %ecx 3/r32/ebx +<span id="L36381" class="LineNr">36381 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36382" class="LineNr">36382 </span><span class="Constant">$operand-matches-primitive?:var-register-no-match</span>: +<span id="L36383" class="LineNr">36383 </span> <span class="subxComment"># if either address is 0, return false</span> +<span id="L36384" class="LineNr">36384 </span> 81 7/subop/compare %ebx 0/imm32 +<span id="L36385" class="LineNr">36385 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 +<span id="L36386" class="LineNr">36386 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L36387" class="LineNr">36387 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 +<span id="L36388" class="LineNr">36388 </span> <span class="subxComment"># if prim-var->register is wildcard, it's a match</span> +<span id="L36389" class="LineNr">36389 </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="L36390" class="LineNr">36390 </span> 3d/compare-eax-and 0/imm32/false +<span id="L36391" class="LineNr">36391 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36392" class="LineNr">36392 </span><span class="Constant">$operand-matches-primitive?:wildcard-no-match</span>: +<span id="L36393" class="LineNr">36393 </span> <span class="subxComment"># if string contents aren't equal, return false</span> +<span id="L36394" class="LineNr">36394 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> +<span id="L36395" class="LineNr">36395 </span> 3d/compare-eax-and 0/imm32/false +<span id="L36396" class="LineNr">36396 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 +<span id="L36397" class="LineNr">36397 </span> } +<span id="L36398" class="LineNr">36398 </span> } +<span id="L36399" class="LineNr">36399 </span><span class="Constant">$operand-matches-primitive?:return-true</span>: +<span id="L36400" class="LineNr">36400 </span> b8/copy-to-eax 1/imm32/true +<span id="L36401" class="LineNr">36401 </span> eb/jump $operand-matches-primitive?:end/disp8 +<span id="L36402" class="LineNr">36402 </span><span class="Constant">$operand-matches-primitive?:return-false</span>: +<span id="L36403" class="LineNr">36403 </span> b8/copy-to-eax 0/imm32/false +<span id="L36404" class="LineNr">36404 </span><span class="Constant">$operand-matches-primitive?:end</span>: +<span id="L36405" class="LineNr">36405 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36406" class="LineNr">36406 </span> 5f/pop-to-edi +<span id="L36407" class="LineNr">36407 </span> 5e/pop-to-esi +<span id="L36408" class="LineNr">36408 </span> 5b/pop-to-ebx +<span id="L36409" class="LineNr">36409 </span> 5a/pop-to-edx +<span id="L36410" class="LineNr">36410 </span> 59/pop-to-ecx +<span id="L36411" class="LineNr">36411 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36412" class="LineNr">36412 </span> 89/<- %esp 5/r32/ebp +<span id="L36413" class="LineNr">36413 </span> 5d/pop-to-ebp +<span id="L36414" class="LineNr">36414 </span> c3/return +<span id="L36415" class="LineNr">36415 </span> +<span id="L36416" class="LineNr">36416 </span><span class="subxFunction">find-matching-function</span>: <span class="subxComment"># functions: (addr function), stmt: (addr stmt) -> result/eax: (addr function)</span> +<span id="L36417" class="LineNr">36417 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36418" class="LineNr">36418 </span> 55/push-ebp +<span id="L36419" class="LineNr">36419 </span> 89/<- %ebp 4/r32/esp +<span id="L36420" class="LineNr">36420 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36421" class="LineNr">36421 </span> 51/push-ecx +<span id="L36422" class="LineNr">36422 </span> <span class="subxComment"># var curr/ecx: (handle function) = functions</span> +<span id="L36423" class="LineNr">36423 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L36424" class="LineNr">36424 </span> { +<span id="L36425" class="LineNr">36425 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L36426" class="LineNr">36426 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L36427" class="LineNr">36427 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36428" class="LineNr">36428 </span><span class="CommentedCode">#? (write-buffered Stderr "iter\n")</span> +<span id="L36429" class="LineNr">36429 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L36430" class="LineNr">36430 </span> <span class="subxComment"># if match(stmt, curr) return curr</span> +<span id="L36431" class="LineNr">36431 </span> { +<span id="L36432" class="LineNr">36432 </span> (<a href='mu.subx.html#L36455'>mu-stmt-matches-function?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> +<span id="L36433" class="LineNr">36433 </span> 3d/compare-eax-and 0/imm32/false +<span id="L36434" class="LineNr">36434 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L36435" class="LineNr">36435 </span> 89/<- %eax 1/r32/ecx +<span id="L36436" class="LineNr">36436 </span> eb/jump $find-matching-function:end/disp8 +<span id="L36437" class="LineNr">36437 </span> } +<span id="L36438" class="LineNr">36438 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L36439" class="LineNr">36439 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L36440" class="LineNr">36440 </span> 89/<- %ecx 0/r32/eax +<span id="L36441" class="LineNr">36441 </span> <span class="subxComment">#</span> +<span id="L36442" class="LineNr">36442 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L36443" class="LineNr">36443 </span> } +<span id="L36444" class="LineNr">36444 </span> <span class="subxComment"># return null</span> +<span id="L36445" class="LineNr">36445 </span> b8/copy-to-eax 0/imm32 +<span id="L36446" class="LineNr">36446 </span><span class="Constant">$find-matching-function:end</span>: +<span id="L36447" class="LineNr">36447 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36448" class="LineNr">36448 </span> 59/pop-to-ecx +<span id="L36449" class="LineNr">36449 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36450" class="LineNr">36450 </span> 89/<- %esp 5/r32/ebp +<span id="L36451" class="LineNr">36451 </span> 5d/pop-to-ebp +<span id="L36452" class="LineNr">36452 </span> c3/return +<span id="L36453" class="LineNr">36453 </span> +<span id="L36454" class="LineNr">36454 </span><span class="subxComment"># Just compare names; user-defined functions don't support overloading yet.</span> +<span id="L36455" class="LineNr">36455 </span><span class="subxFunction">mu-stmt-matches-function?</span>: <span class="subxComment"># stmt: (addr stmt1), function: (addr function) -> result/eax: boolean</span> +<span id="L36456" class="LineNr">36456 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36457" class="LineNr">36457 </span> 55/push-ebp +<span id="L36458" class="LineNr">36458 </span> 89/<- %ebp 4/r32/esp +<span id="L36459" class="LineNr">36459 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36460" class="LineNr">36460 </span> 51/push-ecx +<span id="L36461" class="LineNr">36461 </span> <span class="subxComment"># return function->name == stmt->operation</span> +<span id="L36462" class="LineNr">36462 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> +<span id="L36463" class="LineNr">36463 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L36464" class="LineNr">36464 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L36465" class="LineNr">36465 </span> 89/<- %ecx 0/r32/eax +<span id="L36466" class="LineNr">36466 </span> <span class="subxComment"># eax = lookup(function->name)</span> +<span id="L36467" class="LineNr">36467 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L36468" class="LineNr">36468 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L36469" class="LineNr">36469 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %ecx) <span class="subxComment"># => eax</span> +<span id="L36470" class="LineNr">36470 </span><span class="Constant">$mu-stmt-matches-function?:end</span>: +<span id="L36471" class="LineNr">36471 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36472" class="LineNr">36472 </span> 59/pop-to-ecx +<span id="L36473" class="LineNr">36473 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36474" class="LineNr">36474 </span> 89/<- %esp 5/r32/ebp +<span id="L36475" class="LineNr">36475 </span> 5d/pop-to-ebp +<span id="L36476" class="LineNr">36476 </span> c3/return +<span id="L36477" class="LineNr">36477 </span> +<span id="L36478" class="LineNr">36478 </span><span class="subxComment"># Type-checking happens elsewhere. This method is for selecting between</span> +<span id="L36479" class="LineNr">36479 </span><span class="subxComment"># primitives.</span> +<span id="L36480" class="LineNr">36480 </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="L36481" class="LineNr">36481 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36482" class="LineNr">36482 </span> 55/push-ebp +<span id="L36483" class="LineNr">36483 </span> 89/<- %ebp 4/r32/esp +<span id="L36484" class="LineNr">36484 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36485" class="LineNr">36485 </span> 51/push-ecx +<span id="L36486" class="LineNr">36486 </span> <span class="subxComment"># var cata/ecx: int = type-category(a)</span> +<span id="L36487" class="LineNr">36487 </span> (<a href='mu.subx.html#L36503'>type-category</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L36488" class="LineNr">36488 </span> 89/<- %ecx 0/r32/eax +<span id="L36489" class="LineNr">36489 </span> <span class="subxComment"># var catb/eax: int = type-category(b)</span> +<span id="L36490" class="LineNr">36490 </span> (<a href='mu.subx.html#L36503'>type-category</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L36491" class="LineNr">36491 </span> <span class="subxComment"># return cata == catb</span> +<span id="L36492" class="LineNr">36492 </span> 39/compare %eax 1/r32/ecx +<span id="L36493" class="LineNr">36493 </span> 0f 94/set-byte-if-= %al +<span id="L36494" class="LineNr">36494 </span> 25/and-eax-with 0xff/imm32 +<span id="L36495" class="LineNr">36495 </span><span class="Constant">$subx-type-category-match?:end</span>: +<span id="L36496" class="LineNr">36496 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36497" class="LineNr">36497 </span> 59/pop-to-ecx +<span id="L36498" class="LineNr">36498 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36499" class="LineNr">36499 </span> 89/<- %esp 5/r32/ebp +<span id="L36500" class="LineNr">36500 </span> 5d/pop-to-ebp +<span id="L36501" class="LineNr">36501 </span> c3/return +<span id="L36502" class="LineNr">36502 </span> +<span id="L36503" class="LineNr">36503 </span><span class="subxFunction">type-category</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> +<span id="L36504" class="LineNr">36504 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36505" class="LineNr">36505 </span> 55/push-ebp +<span id="L36506" class="LineNr">36506 </span> 89/<- %ebp 4/r32/esp +<span id="L36507" class="LineNr">36507 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36508" class="LineNr">36508 </span> 51/push-ecx +<span id="L36509" class="LineNr">36509 </span> <span class="subxComment"># var lit?/ecx: boolean = literal-type?(a)</span> +<span id="L36510" class="LineNr">36510 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> *(ebp+8) 0) <span class="subxComment"># literal => eax</span> +<span id="L36511" class="LineNr">36511 </span> 89/<- %ecx 0/r32/eax +<span id="L36512" class="LineNr">36512 </span> <span class="subxComment"># lit? |= string-literal?(a)</span> +<span id="L36513" class="LineNr">36513 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> *(ebp+8) 0x10) <span class="subxComment"># literal-string => eax</span> +<span id="L36514" class="LineNr">36514 </span> 09/or %ecx 0/r32/eax +<span id="L36515" class="LineNr">36515 </span> <span class="subxComment"># var float?/eax: int = float?(a)</span> +<span id="L36516" class="LineNr">36516 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> *(ebp+8) 0xf) <span class="subxComment"># => eax</span> +<span id="L36517" class="LineNr">36517 </span> <span class="subxComment"># set bits for lit? and float?</span> +<span id="L36518" class="LineNr">36518 </span> c1/shift 4/subop/left %ecx 1/imm8 +<span id="L36519" class="LineNr">36519 </span> 09/or %eax 1/r32/ecx +<span id="L36520" class="LineNr">36520 </span><span class="Constant">$type-category:end</span>: +<span id="L36521" class="LineNr">36521 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36522" class="LineNr">36522 </span> 59/pop-to-ecx +<span id="L36523" class="LineNr">36523 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36524" class="LineNr">36524 </span> 89/<- %esp 5/r32/ebp +<span id="L36525" class="LineNr">36525 </span> 5d/pop-to-ebp +<span id="L36526" class="LineNr">36526 </span> c3/return +<span id="L36527" class="LineNr">36527 </span> +<span id="L36528" class="LineNr">36528 </span><span class="subxFunction">simple-mu-type?</span>: <span class="subxComment"># a: (addr type-tree), n: type-id -> result/eax: boolean</span> +<span id="L36529" class="LineNr">36529 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36530" class="LineNr">36530 </span> 55/push-ebp +<span id="L36531" class="LineNr">36531 </span> 89/<- %ebp 4/r32/esp +<span id="L36532" class="LineNr">36532 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36533" class="LineNr">36533 </span> 51/push-ecx +<span id="L36534" class="LineNr">36534 </span> <span class="subxComment"># ecx = n</span> +<span id="L36535" class="LineNr">36535 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L36536" class="LineNr">36536 </span> <span class="subxComment"># return (a->value == n)</span> +<span id="L36537" class="LineNr">36537 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L36538" class="LineNr">36538 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> +<span id="L36539" class="LineNr">36539 </span> 0f 94/set-byte-if-= %al +<span id="L36540" class="LineNr">36540 </span> 25/and-eax-with 0xff/imm32 +<span id="L36541" class="LineNr">36541 </span><span class="Constant">$simple-mu-type?:end</span>: +<span id="L36542" class="LineNr">36542 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36543" class="LineNr">36543 </span> 59/pop-to-ecx +<span id="L36544" class="LineNr">36544 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36545" class="LineNr">36545 </span> 89/<- %esp 5/r32/ebp +<span id="L36546" class="LineNr">36546 </span> 5d/pop-to-ebp +<span id="L36547" class="LineNr">36547 </span> c3/return +<span id="L36548" class="LineNr">36548 </span> +<span id="L36549" class="LineNr">36549 </span><span class="subxFunction">mu-addr-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L36550" class="LineNr">36550 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36551" class="LineNr">36551 </span> 55/push-ebp +<span id="L36552" class="LineNr">36552 </span> 89/<- %ebp 4/r32/esp +<span id="L36553" class="LineNr">36553 </span> <span class="subxComment"># eax = a</span> +<span id="L36554" class="LineNr">36554 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L36555" class="LineNr">36555 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> +<span id="L36556" class="LineNr">36556 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L36557" class="LineNr">36557 </span> { +<span id="L36558" class="LineNr">36558 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36559" class="LineNr">36559 </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="L36560" class="LineNr">36560 </span> } +<span id="L36561" class="LineNr">36561 </span> <span class="subxComment"># return (a->value == addr)</span> +<span id="L36562" class="LineNr">36562 </span> 81 7/subop/compare *(eax+4) 2/imm32/addr <span class="subxComment"># Type-tree-value</span> +<span id="L36563" class="LineNr">36563 </span> 0f 94/set-byte-if-= %al +<span id="L36564" class="LineNr">36564 </span> 25/and-eax-with 0xff/imm32 +<span id="L36565" class="LineNr">36565 </span><span class="Constant">$mu-addr-type?:end</span>: +<span id="L36566" class="LineNr">36566 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36567" class="LineNr">36567 </span> 89/<- %esp 5/r32/ebp +<span id="L36568" class="LineNr">36568 </span> 5d/pop-to-ebp +<span id="L36569" class="LineNr">36569 </span> c3/return +<span id="L36570" class="LineNr">36570 </span> +<span id="L36571" class="LineNr">36571 </span><span class="subxFunction">mu-array-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L36572" class="LineNr">36572 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36573" class="LineNr">36573 </span> 55/push-ebp +<span id="L36574" class="LineNr">36574 </span> 89/<- %ebp 4/r32/esp +<span id="L36575" class="LineNr">36575 </span> <span class="subxComment"># eax = a</span> +<span id="L36576" class="LineNr">36576 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L36577" class="LineNr">36577 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> +<span id="L36578" class="LineNr">36578 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L36579" class="LineNr">36579 </span> { +<span id="L36580" class="LineNr">36580 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36581" class="LineNr">36581 </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="L36582" class="LineNr">36582 </span> } +<span id="L36583" class="LineNr">36583 </span> <span class="subxComment"># return (a->value == array)</span> +<span id="L36584" class="LineNr">36584 </span> 81 7/subop/compare *(eax+4) 3/imm32/array <span class="subxComment"># Type-tree-value</span> +<span id="L36585" class="LineNr">36585 </span> 0f 94/set-byte-if-= %al +<span id="L36586" class="LineNr">36586 </span> 25/and-eax-with 0xff/imm32 +<span id="L36587" class="LineNr">36587 </span><span class="Constant">$mu-array-type?:end</span>: +<span id="L36588" class="LineNr">36588 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36589" class="LineNr">36589 </span> 89/<- %esp 5/r32/ebp +<span id="L36590" class="LineNr">36590 </span> 5d/pop-to-ebp +<span id="L36591" class="LineNr">36591 </span> c3/return +<span id="L36592" class="LineNr">36592 </span> +<span id="L36593" class="LineNr">36593 </span><span class="subxFunction">mu-string-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L36594" class="LineNr">36594 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36595" class="LineNr">36595 </span> 55/push-ebp +<span id="L36596" class="LineNr">36596 </span> 89/<- %ebp 4/r32/esp +<span id="L36597" class="LineNr">36597 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L36598" class="LineNr">36598 </span> 56/push-esi +<span id="L36599" class="LineNr">36599 </span> <span class="subxComment"># esi = a</span> +<span id="L36600" class="LineNr">36600 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L36601" class="LineNr">36601 </span> <span class="subxComment"># if (a->is-atom?) return false</span> +<span id="L36602" class="LineNr">36602 </span> 81 7/subop/compare *esi 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L36603" class="LineNr">36603 </span> 0f 85/jump-if-!= $mu-string-type?:return-false/disp32 +<span id="L36604" class="LineNr">36604 </span> <span class="subxComment"># if a is not an addr, return false</span> +<span id="L36605" class="LineNr">36605 </span> (<a href='mu.subx.html#L36549'>mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> +<span id="L36606" class="LineNr">36606 </span> 3d/compare-eax-with 0/imm32/false +<span id="L36607" class="LineNr">36607 </span> 0f 84/jump-if-= $mu-string-type?:end/disp32 <span class="subxComment"># eax changes var</span> +<span id="L36608" class="LineNr">36608 </span> <span class="subxComment"># if a is not an array, return false</span> +<span id="L36609" class="LineNr">36609 </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="L36610" class="LineNr">36610 </span> (<a href='mu.subx.html#L36571'>mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L36611" class="LineNr">36611 </span> 3d/compare-eax-with 0/imm32/false +<span id="L36612" class="LineNr">36612 </span> 74/jump-if-= $mu-string-type?:end/disp8 <span class="subxComment"># eax changes var</span> +<span id="L36613" class="LineNr">36613 </span> <span class="subxComment"># var p/eax: (addr type-tree) = payload of a</span> +<span id="L36614" class="LineNr">36614 </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="L36615" class="LineNr">36615 </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="L36616" class="LineNr">36616 </span> <span class="subxComment"># if p is an atom, return false</span> +<span id="L36617" class="LineNr">36617 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L36618" class="LineNr">36618 </span> 75/jump-if-!= $mu-string-type?:return-false/disp8 +<span id="L36619" class="LineNr">36619 </span> <span class="subxComment"># return (p == byte)</span> +<span id="L36620" class="LineNr">36620 </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="L36621" class="LineNr">36621 </span> (<a href='mu.subx.html#L36528'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L36622" class="LineNr">36622 </span> eb/jump $mu-string-type?:end/disp8 +<span id="L36623" class="LineNr">36623 </span><span class="Constant">$mu-string-type?:return-false</span>: +<span id="L36624" class="LineNr">36624 </span> b8/copy-to-eax 0/imm32/false +<span id="L36625" class="LineNr">36625 </span><span class="Constant">$mu-string-type?:end</span>: +<span id="L36626" class="LineNr">36626 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36627" class="LineNr">36627 </span> 5e/pop-to-esi +<span id="L36628" class="LineNr">36628 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36629" class="LineNr">36629 </span> 89/<- %esp 5/r32/ebp +<span id="L36630" class="LineNr">36630 </span> 5d/pop-to-ebp +<span id="L36631" class="LineNr">36631 </span> c3/return +<span id="L36632" class="LineNr">36632 </span> +<span id="L36633" class="LineNr">36633 </span><span class="subxFunction">mu-stream-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L36634" class="LineNr">36634 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36635" class="LineNr">36635 </span> 55/push-ebp +<span id="L36636" class="LineNr">36636 </span> 89/<- %ebp 4/r32/esp +<span id="L36637" class="LineNr">36637 </span> <span class="subxComment"># eax = a</span> +<span id="L36638" class="LineNr">36638 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L36639" class="LineNr">36639 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> +<span id="L36640" class="LineNr">36640 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L36641" class="LineNr">36641 </span> { +<span id="L36642" class="LineNr">36642 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L36643" class="LineNr">36643 </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="L36644" class="LineNr">36644 </span> } +<span id="L36645" class="LineNr">36645 </span> <span class="subxComment"># return (a->value == stream)</span> +<span id="L36646" class="LineNr">36646 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream <span class="subxComment"># Type-tree-value</span> +<span id="L36647" class="LineNr">36647 </span> 0f 94/set-byte-if-= %al +<span id="L36648" class="LineNr">36648 </span> 25/and-eax-with 0xff/imm32 +<span id="L36649" class="LineNr">36649 </span><span class="Constant">$mu-stream-type?:end</span>: +<span id="L36650" class="LineNr">36650 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36651" class="LineNr">36651 </span> 89/<- %esp 5/r32/ebp +<span id="L36652" class="LineNr">36652 </span> 5d/pop-to-ebp +<span id="L36653" class="LineNr">36653 </span> c3/return +<span id="L36654" class="LineNr">36654 </span> +<span id="L36655" class="LineNr">36655 </span><span class="subxTest">test-emit-subx-stmt-primitive</span>: +<span id="L36656" class="LineNr">36656 </span> <span class="subxComment"># Primitive operation on a variable on the stack.</span> +<span id="L36657" class="LineNr">36657 </span> <span class="subxComment"># increment foo</span> +<span id="L36658" class="LineNr">36658 </span> <span class="subxComment"># =></span> +<span id="L36659" class="LineNr">36659 </span> <span class="subxComment"># ff 0/subop/increment *(ebp-8)</span> +<span id="L36660" class="LineNr">36660 </span> <span class="subxComment">#</span> +<span id="L36661" class="LineNr">36661 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L36662" class="LineNr">36662 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L36663" class="LineNr">36663 </span> <span class="subxComment"># type: int</span> +<span id="L36664" class="LineNr">36664 </span> <span class="subxComment"># stack-offset: -8</span> <span id="L36665" class="LineNr">36665 </span> <span class="subxComment">#</span> -<span id="L36666" class="LineNr">36666 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L36667" class="LineNr">36667 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L36668" class="LineNr">36668 </span> <span class="subxComment"># type: int</span> -<span id="L36669" class="LineNr">36669 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L36666" class="LineNr">36666 </span> <span class="subxComment"># There's a primitive with this info:</span> +<span id="L36667" class="LineNr">36667 </span> <span class="subxComment"># name: 'increment'</span> +<span id="L36668" class="LineNr">36668 </span> <span class="subxComment"># inouts: int/mem</span> +<span id="L36669" class="LineNr">36669 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> <span id="L36670" class="LineNr">36670 </span> <span class="subxComment">#</span> -<span id="L36671" class="LineNr">36671 </span> <span class="subxComment"># There's two primitives, as follows:</span> -<span id="L36672" class="LineNr">36672 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L36673" class="LineNr">36673 </span> <span class="subxComment"># out: int/reg</span> -<span id="L36674" class="LineNr">36674 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L36675" class="LineNr">36675 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L36676" class="LineNr">36676 </span> <span class="subxComment"># inout: int/mem</span> -<span id="L36677" class="LineNr">36677 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L36678" class="LineNr">36678 </span> <span class="subxComment">#</span> -<span id="L36679" class="LineNr">36679 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36680" class="LineNr">36680 </span> 55/push-ebp -<span id="L36681" class="LineNr">36681 </span> 89/<- %ebp 4/r32/esp -<span id="L36682" class="LineNr">36682 </span> <span class="subxComment"># setup</span> -<span id="L36683" class="LineNr">36683 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L36684" class="LineNr">36684 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36685" class="LineNr">36685 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-type</span>: -<span id="L36686" class="LineNr">36686 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36687" class="LineNr">36687 </span> 68/push 0/imm32/right:null -<span id="L36688" class="LineNr">36688 </span> 68/push 0/imm32/right:null -<span id="L36689" class="LineNr">36689 </span> 68/push 0/imm32/left:unused -<span id="L36690" class="LineNr">36690 </span> 68/push 1/imm32/value:int -<span id="L36691" class="LineNr">36691 </span> 68/push 1/imm32/is-atom?:true -<span id="L36692" class="LineNr">36692 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36693" class="LineNr">36693 </span> 89/<- %ecx 4/r32/esp -<span id="L36694" class="LineNr">36694 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var</span>: -<span id="L36695" class="LineNr">36695 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L36696" class="LineNr">36696 </span> 68/push 0/imm32/register -<span id="L36697" class="LineNr">36697 </span> 68/push 0/imm32/register -<span id="L36698" class="LineNr">36698 </span> 68/push 0/imm32/no-stack-offset -<span id="L36699" class="LineNr">36699 </span> 68/push 1/imm32/block-depth -<span id="L36700" class="LineNr">36700 </span> 51/push-ecx -<span id="L36701" class="LineNr">36701 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36702" class="LineNr">36702 </span> 68/push 0/imm32/name -<span id="L36703" class="LineNr">36703 </span> 68/push 0/imm32/name -<span id="L36704" class="LineNr">36704 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36705" class="LineNr">36705 </span> 89/<- %ecx 4/r32/esp -<span id="L36706" class="LineNr">36706 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-name</span>: -<span id="L36707" class="LineNr">36707 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L36708" class="LineNr">36708 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</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">"foo"</span> %eax) -<span id="L36710" class="LineNr">36710 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-register</span>: -<span id="L36711" class="LineNr">36711 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L36712" class="LineNr">36712 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36713" class="LineNr">36713 </span> (<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="L36714" class="LineNr">36714 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-var</span>: -<span id="L36715" class="LineNr">36715 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L36716" class="LineNr">36716 </span> 68/push 0/imm32/is-deref:false -<span id="L36717" class="LineNr">36717 </span> 68/push 0/imm32/next -<span id="L36718" class="LineNr">36718 </span> 68/push 0/imm32/next -<span id="L36719" class="LineNr">36719 </span> 51/push-ecx/var-foo -<span id="L36720" class="LineNr">36720 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36721" class="LineNr">36721 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36722" class="LineNr">36722 </span> 89/<- %ebx 4/r32/esp -<span id="L36723" class="LineNr">36723 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt</span>: -<span id="L36724" class="LineNr">36724 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36725" class="LineNr">36725 </span> 53/push-ebx/outputs -<span id="L36726" class="LineNr">36726 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36727" class="LineNr">36727 </span> 68/push 0/imm32/no-inouts -<span id="L36728" class="LineNr">36728 </span> 68/push 0/imm32/no-inouts -<span id="L36729" class="LineNr">36729 </span> 68/push 0/imm32/operation -<span id="L36730" class="LineNr">36730 </span> 68/push 0/imm32/operation -<span id="L36731" class="LineNr">36731 </span> 68/push 1/imm32 -<span id="L36732" class="LineNr">36732 </span> 89/<- %esi 4/r32/esp -<span id="L36733" class="LineNr">36733 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-operation</span>: -<span id="L36734" class="LineNr">36734 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L36735" class="LineNr">36735 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36736" class="LineNr">36736 </span> (<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="L36737" class="LineNr">36737 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var</span>: -<span id="L36738" class="LineNr">36738 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> -<span id="L36739" class="LineNr">36739 </span> 68/push 0/imm32/register -<span id="L36740" class="LineNr">36740 </span> 68/push 0/imm32/register -<span id="L36741" class="LineNr">36741 </span> 68/push 0/imm32/no-stack-offset -<span id="L36742" class="LineNr">36742 </span> 68/push 1/imm32/block-depth -<span id="L36743" class="LineNr">36743 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> -<span id="L36744" class="LineNr">36744 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36745" class="LineNr">36745 </span> 68/push 0/imm32/name -<span id="L36746" class="LineNr">36746 </span> 68/push 0/imm32/name -<span id="L36747" class="LineNr">36747 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36748" class="LineNr">36748 </span> 89/<- %ebx 4/r32/esp -<span id="L36749" class="LineNr">36749 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var-name</span>: -<span id="L36750" class="LineNr">36750 </span> <span class="subxComment"># formal-var->name = "dummy"</span> -<span id="L36751" class="LineNr">36751 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36752" class="LineNr">36752 </span> (<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="L36753" class="LineNr">36753 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-register</span>: -<span id="L36754" class="LineNr">36754 </span> <span class="subxComment"># formal-var->register = "*"</span> -<span id="L36755" class="LineNr">36755 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36756" class="LineNr">36756 </span> (<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="L36757" class="LineNr">36757 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-list</span>: -<span id="L36758" class="LineNr">36758 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> -<span id="L36759" class="LineNr">36759 </span> 68/push 0/imm32/next -<span id="L36760" class="LineNr">36760 </span> 68/push 0/imm32/next -<span id="L36761" class="LineNr">36761 </span> 53/push-ebx/formal-var -<span id="L36762" class="LineNr">36762 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36763" class="LineNr">36763 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36764" class="LineNr">36764 </span> 89/<- %ebx 4/r32/esp -<span id="L36765" class="LineNr">36765 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2</span>: -<span id="L36766" class="LineNr">36766 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> -<span id="L36767" class="LineNr">36767 </span> 68/push 0/imm32/next -<span id="L36768" class="LineNr">36768 </span> 68/push 0/imm32/next -<span id="L36769" class="LineNr">36769 </span> 68/push 0/imm32/no-x32 -<span id="L36770" class="LineNr">36770 </span> 68/push 0/imm32/no-xm32 -<span id="L36771" class="LineNr">36771 </span> 68/push 0/imm32/no-disp32 -<span id="L36772" class="LineNr">36772 </span> 68/push 0/imm32/no-imm8 -<span id="L36773" class="LineNr">36773 </span> 68/push 0/imm32/no-imm32 -<span id="L36774" class="LineNr">36774 </span> 68/push 0/imm32/no-r32 -<span id="L36775" class="LineNr">36775 </span> 68/push 3/imm32/rm32-is-first-output -<span id="L36776" class="LineNr">36776 </span> 68/push 0/imm32/subx-name -<span id="L36777" class="LineNr">36777 </span> 68/push 0/imm32/subx-name -<span id="L36778" class="LineNr">36778 </span> 53/push-ebx/outputs -<span id="L36779" class="LineNr">36779 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36780" class="LineNr">36780 </span> 68/push 0/imm32/no-inouts -<span id="L36781" class="LineNr">36781 </span> 68/push 0/imm32/no-inouts -<span id="L36782" class="LineNr">36782 </span> 68/push 0/imm32/name -<span id="L36783" class="LineNr">36783 </span> 68/push 0/imm32/name -<span id="L36784" class="LineNr">36784 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36785" class="LineNr">36785 </span> 89/<- %edi 4/r32/esp -<span id="L36786" class="LineNr">36786 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-name</span>: -<span id="L36787" class="LineNr">36787 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L36788" class="LineNr">36788 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> -<span id="L36789" class="LineNr">36789 </span> (<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="L36790" class="LineNr">36790 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-subx-name</span>: -<span id="L36791" class="LineNr">36791 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36792" class="LineNr">36792 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> -<span id="L36793" class="LineNr">36793 </span> (<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="L36794" class="LineNr">36794 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive</span>: -<span id="L36795" class="LineNr">36795 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L36796" class="LineNr">36796 </span> 57/push-edi -<span id="L36797" class="LineNr">36797 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36798" class="LineNr">36798 </span> 68/push 0/imm32/no-x32 -<span id="L36799" class="LineNr">36799 </span> 68/push 0/imm32/no-xm32 -<span id="L36800" class="LineNr">36800 </span> 68/push 0/imm32/no-disp32 -<span id="L36801" class="LineNr">36801 </span> 68/push 0/imm32/no-imm8 -<span id="L36802" class="LineNr">36802 </span> 68/push 0/imm32/no-imm32 -<span id="L36803" class="LineNr">36803 </span> 68/push 0/imm32/no-r32 -<span id="L36804" class="LineNr">36804 </span> 68/push 1/imm32/rm32-is-first-inout -<span id="L36805" class="LineNr">36805 </span> 68/push 0/imm32/subx-name -<span id="L36806" class="LineNr">36806 </span> 68/push 0/imm32/subx-name -<span id="L36807" class="LineNr">36807 </span> 68/push 0/imm32/no-outputs -<span id="L36808" class="LineNr">36808 </span> 68/push 0/imm32/no-outputs -<span id="L36809" class="LineNr">36809 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> -<span id="L36810" class="LineNr">36810 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36811" class="LineNr">36811 </span> 68/push 0/imm32/name -<span id="L36812" class="LineNr">36812 </span> 68/push 0/imm32/name -<span id="L36813" class="LineNr">36813 </span> 89/<- %ebx 4/r32/esp -<span id="L36814" class="LineNr">36814 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-name</span>: -<span id="L36815" class="LineNr">36815 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L36816" class="LineNr">36816 </span> (<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="L36817" class="LineNr">36817 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-subx-name</span>: -<span id="L36818" class="LineNr">36818 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36819" class="LineNr">36819 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</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">"ff 0/subop/increment"</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#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L36823" class="LineNr">36823 </span> (<a href='mu.subx.html#L28680'>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="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">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-select-primitive"</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-emit-subx-stmt-select-primitive-2</span>: -<span id="L36839" class="LineNr">36839 </span> <span class="subxComment"># Select the right primitive between overloads.</span> -<span id="L36840" class="LineNr">36840 </span> <span class="subxComment"># increment foo</span> -<span id="L36841" class="LineNr">36841 </span> <span class="subxComment"># =></span> -<span id="L36842" class="LineNr">36842 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> -<span id="L36843" class="LineNr">36843 </span> <span class="subxComment">#</span> -<span id="L36844" class="LineNr">36844 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L36845" class="LineNr">36845 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L36846" class="LineNr">36846 </span> <span class="subxComment"># type: int</span> -<span id="L36847" class="LineNr">36847 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L36848" class="LineNr">36848 </span> <span class="subxComment">#</span> -<span id="L36849" class="LineNr">36849 </span> <span class="subxComment"># There's two primitives, as follows:</span> -<span id="L36850" class="LineNr">36850 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L36851" class="LineNr">36851 </span> <span class="subxComment"># out: int/reg</span> -<span id="L36852" class="LineNr">36852 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L36853" class="LineNr">36853 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L36854" class="LineNr">36854 </span> <span class="subxComment"># inout: int/mem</span> -<span id="L36855" class="LineNr">36855 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L36856" class="LineNr">36856 </span> <span class="subxComment">#</span> -<span id="L36857" class="LineNr">36857 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36858" class="LineNr">36858 </span> 55/push-ebp -<span id="L36859" class="LineNr">36859 </span> 89/<- %ebp 4/r32/esp -<span id="L36860" class="LineNr">36860 </span> <span class="subxComment"># setup</span> -<span id="L36861" class="LineNr">36861 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L36862" class="LineNr">36862 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36863" class="LineNr">36863 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-type</span>: -<span id="L36864" class="LineNr">36864 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36865" class="LineNr">36865 </span> 68/push 0/imm32/right:null -<span id="L36866" class="LineNr">36866 </span> 68/push 0/imm32/right:null -<span id="L36867" class="LineNr">36867 </span> 68/push 0/imm32/left:unused -<span id="L36868" class="LineNr">36868 </span> 68/push 1/imm32/value:int -<span id="L36869" class="LineNr">36869 </span> 68/push 1/imm32/is-atom?:true +<span id="L36671" class="LineNr">36671 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36672" class="LineNr">36672 </span> 55/push-ebp +<span id="L36673" class="LineNr">36673 </span> 89/<- %ebp 4/r32/esp +<span id="L36674" class="LineNr">36674 </span> <span class="subxComment"># setup</span> +<span id="L36675" class="LineNr">36675 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36676" class="LineNr">36676 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36677" class="LineNr">36677 </span> <span class="subxComment"># simulate allocated payloads starting with an initial fake alloc-id (0x11)</span> +<span id="L36678" class="LineNr">36678 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-type</span>: +<span id="L36679" class="LineNr">36679 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36680" class="LineNr">36680 </span> 68/push 0/imm32/right:null +<span id="L36681" class="LineNr">36681 </span> 68/push 0/imm32/right:null +<span id="L36682" class="LineNr">36682 </span> 68/push 0/imm32/left:unused +<span id="L36683" class="LineNr">36683 </span> 68/push 1/imm32/value:int +<span id="L36684" class="LineNr">36684 </span> 68/push 1/imm32/is-atom?:true +<span id="L36685" class="LineNr">36685 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36686" class="LineNr">36686 </span> 89/<- %ecx 4/r32/esp +<span id="L36687" class="LineNr">36687 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var</span>: +<span id="L36688" class="LineNr">36688 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> +<span id="L36689" class="LineNr">36689 </span> 68/push 0/imm32/no-register +<span id="L36690" class="LineNr">36690 </span> 68/push 0/imm32/no-register +<span id="L36691" class="LineNr">36691 </span> 68/push -8/imm32/stack-offset +<span id="L36692" class="LineNr">36692 </span> 68/push 1/imm32/block-depth +<span id="L36693" class="LineNr">36693 </span> 51/push-ecx/type +<span id="L36694" class="LineNr">36694 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36695" class="LineNr">36695 </span> 68/push 0/imm32/name +<span id="L36696" class="LineNr">36696 </span> 68/push 0/imm32/name +<span id="L36697" class="LineNr">36697 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36698" class="LineNr">36698 </span> 89/<- %ecx 4/r32/esp +<span id="L36699" class="LineNr">36699 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var-name</span>: +<span id="L36700" class="LineNr">36700 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L36701" class="LineNr">36701 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36702" class="LineNr">36702 </span> (<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="L36703" class="LineNr">36703 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-var</span>: +<span id="L36704" class="LineNr">36704 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> +<span id="L36705" class="LineNr">36705 </span> 68/push 0/imm32/is-deref:false +<span id="L36706" class="LineNr">36706 </span> 68/push 0/imm32/next +<span id="L36707" class="LineNr">36707 </span> 68/push 0/imm32/next +<span id="L36708" class="LineNr">36708 </span> 51/push-ecx/var-foo +<span id="L36709" class="LineNr">36709 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36710" class="LineNr">36710 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36711" class="LineNr">36711 </span> 89/<- %ebx 4/r32/esp +<span id="L36712" class="LineNr">36712 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt</span>: +<span id="L36713" class="LineNr">36713 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36714" class="LineNr">36714 </span> 68/push 0/imm32/no-outputs +<span id="L36715" class="LineNr">36715 </span> 68/push 0/imm32/no-outputs +<span id="L36716" class="LineNr">36716 </span> 53/push-ebx/inouts +<span id="L36717" class="LineNr">36717 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36718" class="LineNr">36718 </span> 68/push 0/imm32/operation +<span id="L36719" class="LineNr">36719 </span> 68/push 0/imm32/operation +<span id="L36720" class="LineNr">36720 </span> 68/push 1/imm32/tag +<span id="L36721" class="LineNr">36721 </span> 89/<- %esi 4/r32/esp +<span id="L36722" class="LineNr">36722 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-operation</span>: +<span id="L36723" class="LineNr">36723 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L36724" class="LineNr">36724 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36725" class="LineNr">36725 </span> (<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="L36726" class="LineNr">36726 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive</span>: +<span id="L36727" class="LineNr">36727 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L36728" class="LineNr">36728 </span> 68/push 0/imm32/next +<span id="L36729" class="LineNr">36729 </span> 68/push 0/imm32/next +<span id="L36730" class="LineNr">36730 </span> 68/push 0/imm32/no-x32 +<span id="L36731" class="LineNr">36731 </span> 68/push 0/imm32/no-xm32 +<span id="L36732" class="LineNr">36732 </span> 68/push 0/imm32/no-disp32 +<span id="L36733" class="LineNr">36733 </span> 68/push 0/imm32/no-imm8 +<span id="L36734" class="LineNr">36734 </span> 68/push 0/imm32/no-imm32 +<span id="L36735" class="LineNr">36735 </span> 68/push 0/imm32/no-r32 +<span id="L36736" class="LineNr">36736 </span> 68/push 1/imm32/rm32-is-first-inout +<span id="L36737" class="LineNr">36737 </span> 68/push 0/imm32/subx-name +<span id="L36738" class="LineNr">36738 </span> 68/push 0/imm32/subx-name +<span id="L36739" class="LineNr">36739 </span> 68/push 0/imm32/no-outputs +<span id="L36740" class="LineNr">36740 </span> 68/push 0/imm32/no-outputs +<span id="L36741" class="LineNr">36741 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> +<span id="L36742" class="LineNr">36742 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36743" class="LineNr">36743 </span> 68/push 0/imm32/name +<span id="L36744" class="LineNr">36744 </span> 68/push 0/imm32/name +<span id="L36745" class="LineNr">36745 </span> 89/<- %ebx 4/r32/esp +<span id="L36746" class="LineNr">36746 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-name</span>: +<span id="L36747" class="LineNr">36747 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L36748" class="LineNr">36748 </span> (<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="L36749" class="LineNr">36749 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-subx-name</span>: +<span id="L36750" class="LineNr">36750 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L36751" class="LineNr">36751 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L36752" class="LineNr">36752 </span> (<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="L36753" class="LineNr">36753 </span> <span class="subxComment"># convert</span> +<span id="L36754" class="LineNr">36754 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L36755" class="LineNr">36755 </span> (<a href='mu.subx.html#L28855'>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="L36756" class="LineNr">36756 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L36757" class="Folded">36757 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36763" class="LineNr">36763 </span> <span class="subxComment"># check output</span> +<span id="L36764" class="LineNr">36764 </span> (<a href='109stream-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="L36765" class="LineNr">36765 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36766" class="LineNr">36766 </span> 89/<- %esp 5/r32/ebp +<span id="L36767" class="LineNr">36767 </span> 5d/pop-to-ebp +<span id="L36768" class="LineNr">36768 </span> c3/return +<span id="L36769" class="LineNr">36769 </span> +<span id="L36770" class="LineNr">36770 </span><span class="subxTest">test-emit-subx-stmt-primitive-register</span>: +<span id="L36771" class="LineNr">36771 </span> <span class="subxComment"># Primitive operation on a variable in a register.</span> +<span id="L36772" class="LineNr">36772 </span> <span class="subxComment"># foo <- increment</span> +<span id="L36773" class="LineNr">36773 </span> <span class="subxComment"># =></span> +<span id="L36774" class="LineNr">36774 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> +<span id="L36775" class="LineNr">36775 </span> <span class="subxComment">#</span> +<span id="L36776" class="LineNr">36776 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L36777" class="LineNr">36777 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L36778" class="LineNr">36778 </span> <span class="subxComment"># type: int</span> +<span id="L36779" class="LineNr">36779 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L36780" class="LineNr">36780 </span> <span class="subxComment">#</span> +<span id="L36781" class="LineNr">36781 </span> <span class="subxComment"># There's a primitive with this info:</span> +<span id="L36782" class="LineNr">36782 </span> <span class="subxComment"># name: 'increment'</span> +<span id="L36783" class="LineNr">36783 </span> <span class="subxComment"># out: int/reg</span> +<span id="L36784" class="LineNr">36784 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L36785" class="LineNr">36785 </span> <span class="subxComment">#</span> +<span id="L36786" class="LineNr">36786 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36787" class="LineNr">36787 </span> 55/push-ebp +<span id="L36788" class="LineNr">36788 </span> 89/<- %ebp 4/r32/esp +<span id="L36789" class="LineNr">36789 </span> <span class="subxComment"># setup</span> +<span id="L36790" class="LineNr">36790 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36791" class="LineNr">36791 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36792" class="LineNr">36792 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-type</span>: +<span id="L36793" class="LineNr">36793 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36794" class="LineNr">36794 </span> 68/push 0/imm32/right:null +<span id="L36795" class="LineNr">36795 </span> 68/push 0/imm32/right:null +<span id="L36796" class="LineNr">36796 </span> 68/push 0/imm32/left:unused +<span id="L36797" class="LineNr">36797 </span> 68/push 1/imm32/value:int +<span id="L36798" class="LineNr">36798 </span> 68/push 1/imm32/is-atom?:true +<span id="L36799" class="LineNr">36799 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36800" class="LineNr">36800 </span> 89/<- %ecx 4/r32/esp +<span id="L36801" class="LineNr">36801 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var</span>: +<span id="L36802" class="LineNr">36802 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L36803" class="LineNr">36803 </span> 68/push 0/imm32/register +<span id="L36804" class="LineNr">36804 </span> 68/push 0/imm32/register +<span id="L36805" class="LineNr">36805 </span> 68/push 0/imm32/no-stack-offset +<span id="L36806" class="LineNr">36806 </span> 68/push 1/imm32/block-depth +<span id="L36807" class="LineNr">36807 </span> 51/push-ecx +<span id="L36808" class="LineNr">36808 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36809" class="LineNr">36809 </span> 68/push 0/imm32/name +<span id="L36810" class="LineNr">36810 </span> 68/push 0/imm32/name +<span id="L36811" class="LineNr">36811 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36812" class="LineNr">36812 </span> 89/<- %ecx 4/r32/esp +<span id="L36813" class="LineNr">36813 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-name</span>: +<span id="L36814" class="LineNr">36814 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L36815" class="LineNr">36815 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36816" class="LineNr">36816 </span> (<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="L36817" class="LineNr">36817 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-register</span>: +<span id="L36818" class="LineNr">36818 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L36819" class="LineNr">36819 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</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">"eax"</span> %eax) +<span id="L36821" class="LineNr">36821 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-var</span>: +<span id="L36822" class="LineNr">36822 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L36823" class="LineNr">36823 </span> 68/push 0/imm32/is-deref:false +<span id="L36824" class="LineNr">36824 </span> 68/push 0/imm32/next +<span id="L36825" class="LineNr">36825 </span> 68/push 0/imm32/next +<span id="L36826" class="LineNr">36826 </span> 51/push-ecx/var-foo +<span id="L36827" class="LineNr">36827 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36828" class="LineNr">36828 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36829" class="LineNr">36829 </span> 89/<- %ebx 4/r32/esp +<span id="L36830" class="LineNr">36830 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt</span>: +<span id="L36831" class="LineNr">36831 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36832" class="LineNr">36832 </span> 53/push-ebx/outputs +<span id="L36833" class="LineNr">36833 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36834" class="LineNr">36834 </span> 68/push 0/imm32/no-inouts +<span id="L36835" class="LineNr">36835 </span> 68/push 0/imm32/no-inouts +<span id="L36836" class="LineNr">36836 </span> 68/push 0/imm32/operation +<span id="L36837" class="LineNr">36837 </span> 68/push 0/imm32/operation +<span id="L36838" class="LineNr">36838 </span> 68/push 1/imm32 +<span id="L36839" class="LineNr">36839 </span> 89/<- %esi 4/r32/esp +<span id="L36840" class="LineNr">36840 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-operation</span>: +<span id="L36841" class="LineNr">36841 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L36842" class="LineNr">36842 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</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">"increment"</span> %eax) +<span id="L36844" class="LineNr">36844 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var</span>: +<span id="L36845" class="LineNr">36845 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L36846" class="LineNr">36846 </span> 68/push 0/imm32/register +<span id="L36847" class="LineNr">36847 </span> 68/push 0/imm32/register +<span id="L36848" class="LineNr">36848 </span> 68/push 0/imm32/no-stack-offset +<span id="L36849" class="LineNr">36849 </span> 68/push 1/imm32/block-depth +<span id="L36850" class="LineNr">36850 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> +<span id="L36851" class="LineNr">36851 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36852" class="LineNr">36852 </span> 68/push 0/imm32/name +<span id="L36853" class="LineNr">36853 </span> 68/push 0/imm32/name +<span id="L36854" class="LineNr">36854 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36855" class="LineNr">36855 </span> 89/<- %ebx 4/r32/esp +<span id="L36856" class="LineNr">36856 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var-name</span>: +<span id="L36857" class="LineNr">36857 </span> <span class="subxComment"># formal-var->name = "dummy"</span> +<span id="L36858" class="LineNr">36858 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36859" class="LineNr">36859 </span> (<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="L36860" class="LineNr">36860 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-register</span>: +<span id="L36861" class="LineNr">36861 </span> <span class="subxComment"># formal-var->register = "*"</span> +<span id="L36862" class="LineNr">36862 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36863" class="LineNr">36863 </span> (<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="L36864" class="LineNr">36864 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-list</span>: +<span id="L36865" class="LineNr">36865 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> +<span id="L36866" class="LineNr">36866 </span> 68/push 0/imm32/next +<span id="L36867" class="LineNr">36867 </span> 68/push 0/imm32/next +<span id="L36868" class="LineNr">36868 </span> 53/push-ebx/formal-var +<span id="L36869" class="LineNr">36869 </span> 68/push 0x11/imm32/alloc-id:fake <span id="L36870" class="LineNr">36870 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36871" class="LineNr">36871 </span> 89/<- %ecx 4/r32/esp -<span id="L36872" class="LineNr">36872 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var</span>: -<span id="L36873" class="LineNr">36873 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L36874" class="LineNr">36874 </span> 68/push 0/imm32/register -<span id="L36875" class="LineNr">36875 </span> 68/push 0/imm32/register -<span id="L36876" class="LineNr">36876 </span> 68/push 0/imm32/no-stack-offset -<span id="L36877" class="LineNr">36877 </span> 68/push 1/imm32/block-depth -<span id="L36878" class="LineNr">36878 </span> 51/push-ecx -<span id="L36879" class="LineNr">36879 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36880" class="LineNr">36880 </span> 68/push 0/imm32/name -<span id="L36881" class="LineNr">36881 </span> 68/push 0/imm32/name -<span id="L36882" class="LineNr">36882 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36883" class="LineNr">36883 </span> 89/<- %ecx 4/r32/esp -<span id="L36884" class="LineNr">36884 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-name</span>: -<span id="L36885" class="LineNr">36885 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L36886" class="LineNr">36886 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36887" class="LineNr">36887 </span> (<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="L36888" class="LineNr">36888 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-register</span>: -<span id="L36889" class="LineNr">36889 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L36890" class="LineNr">36890 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36891" class="LineNr">36891 </span> (<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="L36892" class="LineNr">36892 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-var</span>: -<span id="L36893" class="LineNr">36893 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L36894" class="LineNr">36894 </span> 68/push 0/imm32/is-deref:false -<span id="L36895" class="LineNr">36895 </span> 68/push 0/imm32/next -<span id="L36896" class="LineNr">36896 </span> 68/push 0/imm32/next -<span id="L36897" class="LineNr">36897 </span> 51/push-ecx/var-foo -<span id="L36898" class="LineNr">36898 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36899" class="LineNr">36899 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36900" class="LineNr">36900 </span> 89/<- %ebx 4/r32/esp -<span id="L36901" class="LineNr">36901 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt</span>: -<span id="L36902" class="LineNr">36902 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36903" class="LineNr">36903 </span> 68/push 0/imm32/no-outputs -<span id="L36904" class="LineNr">36904 </span> 68/push 0/imm32/no-outputs -<span id="L36905" class="LineNr">36905 </span> 53/push-ebx/inouts -<span id="L36906" class="LineNr">36906 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36907" class="LineNr">36907 </span> 68/push 0/imm32/operation -<span id="L36908" class="LineNr">36908 </span> 68/push 0/imm32/operation -<span id="L36909" class="LineNr">36909 </span> 68/push 1/imm32 -<span id="L36910" class="LineNr">36910 </span> 89/<- %esi 4/r32/esp -<span id="L36911" class="LineNr">36911 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-operation</span>: -<span id="L36912" class="LineNr">36912 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L36913" class="LineNr">36913 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36914" class="LineNr">36914 </span> (<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="L36915" class="LineNr">36915 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var</span>: -<span id="L36916" class="LineNr">36916 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> -<span id="L36917" class="LineNr">36917 </span> 68/push 0/imm32/register -<span id="L36918" class="LineNr">36918 </span> 68/push 0/imm32/register -<span id="L36919" class="LineNr">36919 </span> 68/push 0/imm32/no-stack-offset -<span id="L36920" class="LineNr">36920 </span> 68/push 1/imm32/block-depth -<span id="L36921" class="LineNr">36921 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> -<span id="L36922" class="LineNr">36922 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36923" class="LineNr">36923 </span> 68/push 0/imm32/name -<span id="L36924" class="LineNr">36924 </span> 68/push 0/imm32/name -<span id="L36925" class="LineNr">36925 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36926" class="LineNr">36926 </span> 89/<- %ebx 4/r32/esp -<span id="L36927" class="LineNr">36927 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var-name</span>: -<span id="L36928" class="LineNr">36928 </span> <span class="subxComment"># formal-var->name = "dummy"</span> -<span id="L36929" class="LineNr">36929 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36930" class="LineNr">36930 </span> (<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="L36931" class="LineNr">36931 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-register</span>: -<span id="L36932" class="LineNr">36932 </span> <span class="subxComment"># formal-var->register = "*"</span> -<span id="L36933" class="LineNr">36933 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36934" class="LineNr">36934 </span> (<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="L36935" class="LineNr">36935 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-list</span>: -<span id="L36936" class="LineNr">36936 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list stmt-var)</span> -<span id="L36937" class="LineNr">36937 </span> 68/push 0/imm32/next -<span id="L36938" class="LineNr">36938 </span> 68/push 0/imm32/next -<span id="L36939" class="LineNr">36939 </span> 53/push-ebx/formal-var -<span id="L36940" class="LineNr">36940 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36941" class="LineNr">36941 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36942" class="LineNr">36942 </span> 89/<- %ebx 4/r32/esp -<span id="L36943" class="LineNr">36943 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2</span>: -<span id="L36944" class="LineNr">36944 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> -<span id="L36945" class="LineNr">36945 </span> 68/push 0/imm32/next -<span id="L36946" class="LineNr">36946 </span> 68/push 0/imm32/next -<span id="L36947" class="LineNr">36947 </span> 68/push 0/imm32/no-x32 -<span id="L36948" class="LineNr">36948 </span> 68/push 0/imm32/no-xm32 -<span id="L36949" class="LineNr">36949 </span> 68/push 0/imm32/no-disp32 -<span id="L36950" class="LineNr">36950 </span> 68/push 0/imm32/no-imm8 -<span id="L36951" class="LineNr">36951 </span> 68/push 0/imm32/no-imm32 -<span id="L36952" class="LineNr">36952 </span> 68/push 0/imm32/no-r32 -<span id="L36953" class="LineNr">36953 </span> 68/push 3/imm32/rm32-is-first-output -<span id="L36954" class="LineNr">36954 </span> 68/push 0/imm32/subx-name -<span id="L36955" class="LineNr">36955 </span> 68/push 0/imm32/subx-name -<span id="L36956" class="LineNr">36956 </span> 53/push-ebx/outputs +<span id="L36871" class="LineNr">36871 </span> 89/<- %ebx 4/r32/esp +<span id="L36872" class="LineNr">36872 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive</span>: +<span id="L36873" class="LineNr">36873 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L36874" class="LineNr">36874 </span> 68/push 0/imm32/next +<span id="L36875" class="LineNr">36875 </span> 68/push 0/imm32/next +<span id="L36876" class="LineNr">36876 </span> 68/push 0/imm32/no-x32 +<span id="L36877" class="LineNr">36877 </span> 68/push 0/imm32/no-xm32 +<span id="L36878" class="LineNr">36878 </span> 68/push 0/imm32/no-disp32 +<span id="L36879" class="LineNr">36879 </span> 68/push 0/imm32/no-imm8 +<span id="L36880" class="LineNr">36880 </span> 68/push 0/imm32/no-imm32 +<span id="L36881" class="LineNr">36881 </span> 68/push 0/imm32/no-r32 +<span id="L36882" class="LineNr">36882 </span> 68/push 3/imm32/rm32-is-first-output +<span id="L36883" class="LineNr">36883 </span> 68/push 0/imm32/subx-name +<span id="L36884" class="LineNr">36884 </span> 68/push 0/imm32/subx-name +<span id="L36885" class="LineNr">36885 </span> 53/push-ebx/outputs +<span id="L36886" class="LineNr">36886 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36887" class="LineNr">36887 </span> 68/push 0/imm32/no-inouts +<span id="L36888" class="LineNr">36888 </span> 68/push 0/imm32/no-inouts +<span id="L36889" class="LineNr">36889 </span> 68/push 0/imm32/name +<span id="L36890" class="LineNr">36890 </span> 68/push 0/imm32/name +<span id="L36891" class="LineNr">36891 </span> 89/<- %ebx 4/r32/esp +<span id="L36892" class="LineNr">36892 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-name</span>: +<span id="L36893" class="LineNr">36893 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L36894" class="LineNr">36894 </span> (<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="L36895" class="LineNr">36895 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-subx-name</span>: +<span id="L36896" class="LineNr">36896 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L36897" class="LineNr">36897 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L36898" class="LineNr">36898 </span> (<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="L36899" class="LineNr">36899 </span> <span class="subxComment"># convert</span> +<span id="L36900" class="LineNr">36900 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L36901" class="LineNr">36901 </span> (<a href='mu.subx.html#L28855'>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="L36902" class="LineNr">36902 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L36903" class="Folded">36903 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36909" class="LineNr">36909 </span> <span class="subxComment"># check output</span> +<span id="L36910" class="LineNr">36910 </span> (<a href='109stream-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="L36911" class="LineNr">36911 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36912" class="LineNr">36912 </span> 89/<- %esp 5/r32/ebp +<span id="L36913" class="LineNr">36913 </span> 5d/pop-to-ebp +<span id="L36914" class="LineNr">36914 </span> c3/return +<span id="L36915" class="LineNr">36915 </span> +<span id="L36916" class="LineNr">36916 </span><span class="subxTest">test-emit-subx-stmt-select-primitive</span>: +<span id="L36917" class="LineNr">36917 </span> <span class="subxComment"># Select the right primitive between overloads.</span> +<span id="L36918" class="LineNr">36918 </span> <span class="subxComment"># foo <- increment</span> +<span id="L36919" class="LineNr">36919 </span> <span class="subxComment"># =></span> +<span id="L36920" class="LineNr">36920 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> +<span id="L36921" class="LineNr">36921 </span> <span class="subxComment">#</span> +<span id="L36922" class="LineNr">36922 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L36923" class="LineNr">36923 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L36924" class="LineNr">36924 </span> <span class="subxComment"># type: int</span> +<span id="L36925" class="LineNr">36925 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L36926" class="LineNr">36926 </span> <span class="subxComment">#</span> +<span id="L36927" class="LineNr">36927 </span> <span class="subxComment"># There's two primitives, as follows:</span> +<span id="L36928" class="LineNr">36928 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L36929" class="LineNr">36929 </span> <span class="subxComment"># out: int/reg</span> +<span id="L36930" class="LineNr">36930 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L36931" class="LineNr">36931 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L36932" class="LineNr">36932 </span> <span class="subxComment"># inout: int/mem</span> +<span id="L36933" class="LineNr">36933 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L36934" class="LineNr">36934 </span> <span class="subxComment">#</span> +<span id="L36935" class="LineNr">36935 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36936" class="LineNr">36936 </span> 55/push-ebp +<span id="L36937" class="LineNr">36937 </span> 89/<- %ebp 4/r32/esp +<span id="L36938" class="LineNr">36938 </span> <span class="subxComment"># setup</span> +<span id="L36939" class="LineNr">36939 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36940" class="LineNr">36940 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36941" class="LineNr">36941 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-type</span>: +<span id="L36942" class="LineNr">36942 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36943" class="LineNr">36943 </span> 68/push 0/imm32/right:null +<span id="L36944" class="LineNr">36944 </span> 68/push 0/imm32/right:null +<span id="L36945" class="LineNr">36945 </span> 68/push 0/imm32/left:unused +<span id="L36946" class="LineNr">36946 </span> 68/push 1/imm32/value:int +<span id="L36947" class="LineNr">36947 </span> 68/push 1/imm32/is-atom?:true +<span id="L36948" class="LineNr">36948 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36949" class="LineNr">36949 </span> 89/<- %ecx 4/r32/esp +<span id="L36950" class="LineNr">36950 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var</span>: +<span id="L36951" class="LineNr">36951 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L36952" class="LineNr">36952 </span> 68/push 0/imm32/register +<span id="L36953" class="LineNr">36953 </span> 68/push 0/imm32/register +<span id="L36954" class="LineNr">36954 </span> 68/push 0/imm32/no-stack-offset +<span id="L36955" class="LineNr">36955 </span> 68/push 1/imm32/block-depth +<span id="L36956" class="LineNr">36956 </span> 51/push-ecx <span id="L36957" class="LineNr">36957 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36958" class="LineNr">36958 </span> 68/push 0/imm32/no-inouts -<span id="L36959" class="LineNr">36959 </span> 68/push 0/imm32/no-inouts -<span id="L36960" class="LineNr">36960 </span> 68/push 0/imm32/name -<span id="L36961" class="LineNr">36961 </span> 68/push 0/imm32/name -<span id="L36962" class="LineNr">36962 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36963" class="LineNr">36963 </span> 89/<- %edi 4/r32/esp -<span id="L36964" class="LineNr">36964 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-name</span>: -<span id="L36965" class="LineNr">36965 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L36966" class="LineNr">36966 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> -<span id="L36967" class="LineNr">36967 </span> (<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="L36968" class="LineNr">36968 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-subx-name</span>: -<span id="L36969" class="LineNr">36969 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36970" class="LineNr">36970 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> -<span id="L36971" class="LineNr">36971 </span> (<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="L36972" class="LineNr">36972 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive</span>: -<span id="L36973" class="LineNr">36973 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L36974" class="LineNr">36974 </span> 57/push-edi -<span id="L36975" class="LineNr">36975 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36976" class="LineNr">36976 </span> 68/push 0/imm32/no-x32 -<span id="L36977" class="LineNr">36977 </span> 68/push 0/imm32/no-xm32 -<span id="L36978" class="LineNr">36978 </span> 68/push 0/imm32/no-disp32 -<span id="L36979" class="LineNr">36979 </span> 68/push 0/imm32/no-imm8 -<span id="L36980" class="LineNr">36980 </span> 68/push 0/imm32/no-imm32 -<span id="L36981" class="LineNr">36981 </span> 68/push 0/imm32/no-r32 -<span id="L36982" class="LineNr">36982 </span> 68/push 1/imm32/rm32-is-first-inout -<span id="L36983" class="LineNr">36983 </span> 68/push 0/imm32/subx-name -<span id="L36984" class="LineNr">36984 </span> 68/push 0/imm32/subx-name -<span id="L36985" class="LineNr">36985 </span> 68/push 0/imm32/no-outputs -<span id="L36986" class="LineNr">36986 </span> 68/push 0/imm32/no-outputs -<span id="L36987" class="LineNr">36987 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> -<span id="L36988" class="LineNr">36988 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36989" class="LineNr">36989 </span> 68/push 0/imm32/name -<span id="L36990" class="LineNr">36990 </span> 68/push 0/imm32/name -<span id="L36991" class="LineNr">36991 </span> 89/<- %ebx 4/r32/esp -<span id="L36992" class="LineNr">36992 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-name</span>: -<span id="L36993" class="LineNr">36993 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L36994" class="LineNr">36994 </span> (<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="L36995" class="LineNr">36995 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-subx-name</span>: -<span id="L36996" class="LineNr">36996 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36997" class="LineNr">36997 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L36998" class="LineNr">36998 </span> (<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="L36999" class="LineNr">36999 </span> <span class="subxComment"># convert</span> -<span id="L37000" class="LineNr">37000 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L37001" class="LineNr">37001 </span> (<a href='mu.subx.html#L28680'>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="L37002" class="LineNr">37002 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37003" class="Folded">37003 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37009" class="LineNr">37009 </span> <span class="subxComment"># check output</span> -<span id="L37010" class="LineNr">37010 </span> (<a href='109stream-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="L37011" class="LineNr">37011 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37012" class="LineNr">37012 </span> 89/<- %esp 5/r32/ebp -<span id="L37013" class="LineNr">37013 </span> 5d/pop-to-ebp -<span id="L37014" class="LineNr">37014 </span> c3/return -<span id="L37015" class="LineNr">37015 </span> -<span id="L37016" class="LineNr">37016 </span><span class="subxTest">test-increment-register</span>: -<span id="L37017" class="LineNr">37017 </span> <span class="subxComment"># Select the right register between overloads.</span> -<span id="L37018" class="LineNr">37018 </span> <span class="subxComment"># foo <- increment</span> -<span id="L37019" class="LineNr">37019 </span> <span class="subxComment"># =></span> -<span id="L37020" class="LineNr">37020 </span> <span class="subxComment"># 50/increment-eax</span> -<span id="L37021" class="LineNr">37021 </span> <span class="subxComment">#</span> -<span id="L37022" class="LineNr">37022 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L37023" class="LineNr">37023 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L37024" class="LineNr">37024 </span> <span class="subxComment"># type: int</span> -<span id="L37025" class="LineNr">37025 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L37026" class="LineNr">37026 </span> <span class="subxComment">#</span> -<span id="L37027" class="LineNr">37027 </span> <span class="subxComment"># Primitives are the global definitions.</span> -<span id="L37028" class="LineNr">37028 </span> <span class="subxComment">#</span> -<span id="L37029" class="LineNr">37029 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37030" class="LineNr">37030 </span> 55/push-ebp -<span id="L37031" class="LineNr">37031 </span> 89/<- %ebp 4/r32/esp -<span id="L37032" class="LineNr">37032 </span> <span class="subxComment"># setup</span> -<span id="L37033" class="LineNr">37033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37034" class="LineNr">37034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37035" class="LineNr">37035 </span><span class="Constant">$test-increment-register:initialize-type</span>: -<span id="L37036" class="LineNr">37036 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37037" class="LineNr">37037 </span> 68/push 0/imm32/right:null -<span id="L37038" class="LineNr">37038 </span> 68/push 0/imm32/right:null -<span id="L37039" class="LineNr">37039 </span> 68/push 0/imm32/left:unused -<span id="L37040" class="LineNr">37040 </span> 68/push 1/imm32/value:int -<span id="L37041" class="LineNr">37041 </span> 68/push 1/imm32/is-atom?:true -<span id="L37042" class="LineNr">37042 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37043" class="LineNr">37043 </span> 89/<- %ecx 4/r32/esp -<span id="L37044" class="LineNr">37044 </span><span class="Constant">$test-increment-register:initialize-var</span>: -<span id="L37045" class="LineNr">37045 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L37046" class="LineNr">37046 </span> 68/push 0/imm32/register -<span id="L37047" class="LineNr">37047 </span> 68/push 0/imm32/register -<span id="L37048" class="LineNr">37048 </span> 68/push 0/imm32/no-stack-offset -<span id="L37049" class="LineNr">37049 </span> 68/push 1/imm32/block-depth -<span id="L37050" class="LineNr">37050 </span> 51/push-ecx -<span id="L37051" class="LineNr">37051 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37052" class="LineNr">37052 </span> 68/push 0/imm32/name -<span id="L37053" class="LineNr">37053 </span> 68/push 0/imm32/name -<span id="L37054" class="LineNr">37054 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37055" class="LineNr">37055 </span> 89/<- %ecx 4/r32/esp -<span id="L37056" class="LineNr">37056 </span><span class="Constant">$test-increment-register:initialize-var-name</span>: -<span id="L37057" class="LineNr">37057 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L37058" class="LineNr">37058 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37059" class="LineNr">37059 </span> (<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="L37060" class="LineNr">37060 </span><span class="Constant">$test-increment-register:initialize-var-register</span>: -<span id="L37061" class="LineNr">37061 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L37062" class="LineNr">37062 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37063" class="LineNr">37063 </span> (<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="L37064" class="LineNr">37064 </span><span class="Constant">$test-increment-register:initialize-stmt-var</span>: -<span id="L37065" class="LineNr">37065 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L37066" class="LineNr">37066 </span> 68/push 0/imm32/is-deref:false -<span id="L37067" class="LineNr">37067 </span> 68/push 0/imm32/next -<span id="L37068" class="LineNr">37068 </span> 68/push 0/imm32/next -<span id="L37069" class="LineNr">37069 </span> 51/push-ecx/var-foo -<span id="L37070" class="LineNr">37070 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37071" class="LineNr">37071 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37072" class="LineNr">37072 </span> 89/<- %ebx 4/r32/esp -<span id="L37073" class="LineNr">37073 </span><span class="Constant">$test-increment-register:initialize-stmt</span>: -<span id="L37074" class="LineNr">37074 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37075" class="LineNr">37075 </span> 53/push-ebx/outputs -<span id="L37076" class="LineNr">37076 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37077" class="LineNr">37077 </span> 68/push 0/imm32/no-inouts -<span id="L37078" class="LineNr">37078 </span> 68/push 0/imm32/no-inouts -<span id="L37079" class="LineNr">37079 </span> 68/push 0/imm32/operation -<span id="L37080" class="LineNr">37080 </span> 68/push 0/imm32/operation -<span id="L37081" class="LineNr">37081 </span> 68/push 1/imm32 -<span id="L37082" class="LineNr">37082 </span> 89/<- %esi 4/r32/esp -<span id="L37083" class="LineNr">37083 </span><span class="Constant">$test-increment-register:initialize-stmt-operation</span>: -<span id="L37084" class="LineNr">37084 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L37085" class="LineNr">37085 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</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">"increment"</span> %eax) -<span id="L37087" class="LineNr">37087 </span> <span class="subxComment"># convert</span> -<span id="L37088" class="LineNr">37088 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L37089" class="LineNr">37089 </span> (<a href='mu.subx.html#L28680'>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#L30469'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37090" class="LineNr">37090 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37091" class="Folded">37091 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37097" class="LineNr">37097 </span> <span class="subxComment"># check output</span> -<span id="L37098" class="LineNr">37098 </span> (<a href='109stream-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="L37099" class="LineNr">37099 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37100" class="LineNr">37100 </span> 89/<- %esp 5/r32/ebp -<span id="L37101" class="LineNr">37101 </span> 5d/pop-to-ebp -<span id="L37102" class="LineNr">37102 </span> c3/return -<span id="L37103" class="LineNr">37103 </span> -<span id="L37104" class="LineNr">37104 </span><span class="subxTest">test-add-reg-to-reg</span>: -<span id="L37105" class="LineNr">37105 </span> <span class="subxComment"># var1/reg <- add var2/reg</span> -<span id="L37106" class="LineNr">37106 </span> <span class="subxComment"># =></span> -<span id="L37107" class="LineNr">37107 </span> <span class="subxComment"># 01/add-to %var1 var2</span> -<span id="L37108" class="LineNr">37108 </span> <span class="subxComment">#</span> -<span id="L37109" class="LineNr">37109 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37110" class="LineNr">37110 </span> 55/push-ebp -<span id="L37111" class="LineNr">37111 </span> 89/<- %ebp 4/r32/esp -<span id="L37112" class="LineNr">37112 </span> <span class="subxComment"># setup</span> -<span id="L37113" class="LineNr">37113 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37114" class="LineNr">37114 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37115" class="LineNr">37115 </span><span class="Constant">$test-add-reg-to-reg:initialize-type</span>: -<span id="L37116" class="LineNr">37116 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37117" class="LineNr">37117 </span> 68/push 0/imm32/right:null -<span id="L37118" class="LineNr">37118 </span> 68/push 0/imm32/right:null -<span id="L37119" class="LineNr">37119 </span> 68/push 0/imm32/left:unused -<span id="L37120" class="LineNr">37120 </span> 68/push 1/imm32/value:int -<span id="L37121" class="LineNr">37121 </span> 68/push 1/imm32/is-atom?:true -<span id="L37122" class="LineNr">37122 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37123" class="LineNr">37123 </span> 89/<- %ecx 4/r32/esp -<span id="L37124" class="LineNr">37124 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1</span>: -<span id="L37125" class="LineNr">37125 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37126" class="LineNr">37126 </span> 68/push 0/imm32/register -<span id="L37127" class="LineNr">37127 </span> 68/push 0/imm32/register -<span id="L37128" class="LineNr">37128 </span> 68/push 0/imm32/no-stack-offset -<span id="L37129" class="LineNr">37129 </span> 68/push 1/imm32/block-depth -<span id="L37130" class="LineNr">37130 </span> 51/push-ecx -<span id="L37131" class="LineNr">37131 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37132" class="LineNr">37132 </span> 68/push 0/imm32/name -<span id="L37133" class="LineNr">37133 </span> 68/push 0/imm32/name -<span id="L37134" class="LineNr">37134 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37135" class="LineNr">37135 </span> 89/<- %ecx 4/r32/esp -<span id="L37136" class="LineNr">37136 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-name</span>: -<span id="L37137" class="LineNr">37137 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37138" class="LineNr">37138 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37139" class="LineNr">37139 </span> (<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="L37140" class="LineNr">37140 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-register</span>: -<span id="L37141" class="LineNr">37141 </span> <span class="subxComment"># var1->register = "eax"</span> -<span id="L37142" class="LineNr">37142 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37143" class="LineNr">37143 </span> (<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="L37144" class="LineNr">37144 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2</span>: -<span id="L37145" class="LineNr">37145 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L37146" class="LineNr">37146 </span> 68/push 0/imm32/register -<span id="L37147" class="LineNr">37147 </span> 68/push 0/imm32/register -<span id="L37148" class="LineNr">37148 </span> 68/push 0/imm32/no-stack-offset -<span id="L37149" class="LineNr">37149 </span> 68/push 1/imm32/block-depth -<span id="L37150" class="LineNr">37150 </span> ff 6/subop/push *(ecx+0x10) -<span id="L37151" class="LineNr">37151 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37152" class="LineNr">37152 </span> 68/push 0/imm32/name -<span id="L37153" class="LineNr">37153 </span> 68/push 0/imm32/name -<span id="L37154" class="LineNr">37154 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37155" class="LineNr">37155 </span> 89/<- %edx 4/r32/esp -<span id="L37156" class="LineNr">37156 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-name</span>: -<span id="L37157" class="LineNr">37157 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L37158" class="LineNr">37158 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37159" class="LineNr">37159 </span> (<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="L37160" class="LineNr">37160 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-register</span>: -<span id="L37161" class="LineNr">37161 </span> <span class="subxComment"># var2->register = "ecx"</span> -<span id="L37162" class="LineNr">37162 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37163" class="LineNr">37163 </span> (<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="L37164" class="LineNr">37164 </span><span class="Constant">$test-add-reg-to-reg:initialize-inouts</span>: -<span id="L37165" class="LineNr">37165 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L37166" class="LineNr">37166 </span> 68/push 0/imm32/is-deref:false -<span id="L37167" class="LineNr">37167 </span> 68/push 0/imm32/next -<span id="L37168" class="LineNr">37168 </span> 68/push 0/imm32/next -<span id="L37169" class="LineNr">37169 </span> 52/push-edx/var2 -<span id="L37170" class="LineNr">37170 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37171" class="LineNr">37171 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37172" class="LineNr">37172 </span> 89/<- %esi 4/r32/esp -<span id="L37173" class="LineNr">37173 </span><span class="Constant">$test-add-reg-to-reg:initialize-outputs</span>: -<span id="L37174" class="LineNr">37174 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> -<span id="L37175" class="LineNr">37175 </span> 68/push 0/imm32/is-deref:false -<span id="L37176" class="LineNr">37176 </span> 68/push 0/imm32/next -<span id="L37177" class="LineNr">37177 </span> 68/push 0/imm32/next -<span id="L37178" class="LineNr">37178 </span> 51/push-ecx/var1 -<span id="L37179" class="LineNr">37179 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37180" class="LineNr">37180 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37181" class="LineNr">37181 </span> 89/<- %edi 4/r32/esp -<span id="L37182" class="LineNr">37182 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt</span>: -<span id="L37183" class="LineNr">37183 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37184" class="LineNr">37184 </span> 68/push 0/imm32/next -<span id="L37185" class="LineNr">37185 </span> 68/push 0/imm32/next -<span id="L37186" class="LineNr">37186 </span> 57/push-edi/outputs -<span id="L37187" class="LineNr">37187 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37188" class="LineNr">37188 </span> 56/push-esi/inouts -<span id="L37189" class="LineNr">37189 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37190" class="LineNr">37190 </span> 68/push 0/imm32/operation -<span id="L37191" class="LineNr">37191 </span> 68/push 0/imm32/operation -<span id="L37192" class="LineNr">37192 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37193" class="LineNr">37193 </span> 89/<- %esi 4/r32/esp -<span id="L37194" class="LineNr">37194 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt-operation</span>: -<span id="L37195" class="LineNr">37195 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L37196" class="LineNr">37196 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37197" class="LineNr">37197 </span> (<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="L37198" class="LineNr">37198 </span> <span class="subxComment"># convert</span> -<span id="L37199" class="LineNr">37199 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L37200" class="LineNr">37200 </span> (<a href='mu.subx.html#L28680'>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#L30469'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37201" class="LineNr">37201 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37202" class="Folded">37202 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37208" class="LineNr">37208 </span> <span class="subxComment"># check output</span> -<span id="L37209" class="LineNr">37209 </span> (<a href='109stream-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="L37210" class="LineNr">37210 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37211" class="LineNr">37211 </span> 89/<- %esp 5/r32/ebp -<span id="L37212" class="LineNr">37212 </span> 5d/pop-to-ebp -<span id="L37213" class="LineNr">37213 </span> c3/return -<span id="L37214" class="LineNr">37214 </span> -<span id="L37215" class="LineNr">37215 </span><span class="subxTest">test-add-reg-to-mem</span>: -<span id="L37216" class="LineNr">37216 </span> <span class="subxComment"># add-to var1 var2/reg</span> -<span id="L37217" class="LineNr">37217 </span> <span class="subxComment"># =></span> -<span id="L37218" class="LineNr">37218 </span> <span class="subxComment"># 01/add-to *(ebp+__) var2</span> -<span id="L37219" class="LineNr">37219 </span> <span class="subxComment">#</span> -<span id="L37220" class="LineNr">37220 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37221" class="LineNr">37221 </span> 55/push-ebp -<span id="L37222" class="LineNr">37222 </span> 89/<- %ebp 4/r32/esp -<span id="L37223" class="LineNr">37223 </span> <span class="subxComment"># setup</span> -<span id="L37224" class="LineNr">37224 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37225" class="LineNr">37225 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37226" class="LineNr">37226 </span><span class="Constant">$test-add-reg-to-mem:initialize-type</span>: -<span id="L37227" class="LineNr">37227 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37228" class="LineNr">37228 </span> 68/push 0/imm32/right:null -<span id="L37229" class="LineNr">37229 </span> 68/push 0/imm32/right:null -<span id="L37230" class="LineNr">37230 </span> 68/push 0/imm32/left:unused -<span id="L37231" class="LineNr">37231 </span> 68/push 1/imm32/value:int -<span id="L37232" class="LineNr">37232 </span> 68/push 1/imm32/is-atom?:true -<span id="L37233" class="LineNr">37233 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37234" class="LineNr">37234 </span> 89/<- %ecx 4/r32/esp -<span id="L37235" class="LineNr">37235 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1</span>: -<span id="L37236" class="LineNr">37236 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37237" class="LineNr">37237 </span> 68/push 0/imm32/register -<span id="L37238" class="LineNr">37238 </span> 68/push 0/imm32/register -<span id="L37239" class="LineNr">37239 </span> 68/push 8/imm32/stack-offset -<span id="L37240" class="LineNr">37240 </span> 68/push 1/imm32/block-depth -<span id="L37241" class="LineNr">37241 </span> 51/push-ecx -<span id="L37242" class="LineNr">37242 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37243" class="LineNr">37243 </span> 68/push 0/imm32/name -<span id="L37244" class="LineNr">37244 </span> 68/push 0/imm32/name -<span id="L37245" class="LineNr">37245 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37246" class="LineNr">37246 </span> 89/<- %ecx 4/r32/esp -<span id="L37247" class="LineNr">37247 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1-name</span>: -<span id="L37248" class="LineNr">37248 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37249" class="LineNr">37249 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37250" class="LineNr">37250 </span> (<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="L37251" class="LineNr">37251 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2</span>: -<span id="L37252" class="LineNr">37252 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L37253" class="LineNr">37253 </span> 68/push 0/imm32/register -<span id="L37254" class="LineNr">37254 </span> 68/push 0/imm32/register -<span id="L37255" class="LineNr">37255 </span> 68/push 0/imm32/no-stack-offset -<span id="L37256" class="LineNr">37256 </span> 68/push 1/imm32/block-depth -<span id="L37257" class="LineNr">37257 </span> ff 6/subop/push *(ecx+0x10) -<span id="L37258" class="LineNr">37258 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37259" class="LineNr">37259 </span> 68/push 0/imm32/name -<span id="L37260" class="LineNr">37260 </span> 68/push 0/imm32/name -<span id="L37261" class="LineNr">37261 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37262" class="LineNr">37262 </span> 89/<- %edx 4/r32/esp -<span id="L37263" class="LineNr">37263 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-name</span>: -<span id="L37264" class="LineNr">37264 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L37265" class="LineNr">37265 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37266" class="LineNr">37266 </span> (<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="L37267" class="LineNr">37267 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-register</span>: -<span id="L37268" class="LineNr">37268 </span> <span class="subxComment"># var2->register = "ecx"</span> -<span id="L37269" class="LineNr">37269 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37270" class="LineNr">37270 </span> (<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="L37271" class="LineNr">37271 </span><span class="Constant">$test-add-reg-to-mem:initialize-inouts</span>: -<span id="L37272" class="LineNr">37272 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L37273" class="LineNr">37273 </span> 68/push 0/imm32/is-deref:false -<span id="L37274" class="LineNr">37274 </span> 68/push 0/imm32/next -<span id="L37275" class="LineNr">37275 </span> 68/push 0/imm32/next -<span id="L37276" class="LineNr">37276 </span> 52/push-edx/var2 -<span id="L37277" class="LineNr">37277 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37278" class="LineNr">37278 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37279" class="LineNr">37279 </span> 89/<- %esi 4/r32/esp -<span id="L37280" class="LineNr">37280 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L37281" class="LineNr">37281 </span> 68/push 0/imm32/is-deref:false -<span id="L37282" class="LineNr">37282 </span> 56/push-esi/next -<span id="L37283" class="LineNr">37283 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37284" class="LineNr">37284 </span> 51/push-ecx/var1 -<span id="L37285" class="LineNr">37285 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37286" class="LineNr">37286 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37287" class="LineNr">37287 </span> 89/<- %esi 4/r32/esp -<span id="L37288" class="LineNr">37288 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt</span>: -<span id="L37289" class="LineNr">37289 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37290" class="LineNr">37290 </span> 68/push 0/imm32/next -<span id="L37291" class="LineNr">37291 </span> 68/push 0/imm32/next -<span id="L37292" class="LineNr">37292 </span> 68/push 0/imm32/outputs -<span id="L37293" class="LineNr">37293 </span> 68/push 0/imm32/outputs -<span id="L37294" class="LineNr">37294 </span> 56/push-esi/inouts -<span id="L37295" class="LineNr">37295 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37296" class="LineNr">37296 </span> 68/push 0/imm32/operation -<span id="L37297" class="LineNr">37297 </span> 68/push 0/imm32/operation -<span id="L37298" class="LineNr">37298 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37299" class="LineNr">37299 </span> 89/<- %esi 4/r32/esp -<span id="L37300" class="LineNr">37300 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt-operation</span>: -<span id="L37301" class="LineNr">37301 </span> <span class="subxComment"># stmt->operation = "add-to"</span> -<span id="L37302" class="LineNr">37302 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37303" class="LineNr">37303 </span> (<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="L37304" class="LineNr">37304 </span> <span class="subxComment"># convert</span> -<span id="L37305" class="LineNr">37305 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L37306" class="LineNr">37306 </span> (<a href='mu.subx.html#L28680'>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#L30469'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37307" class="LineNr">37307 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37308" class="Folded">37308 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37314" class="LineNr">37314 </span> <span class="subxComment"># check output</span> -<span id="L37315" class="LineNr">37315 </span> (<a href='109stream-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="L37316" class="LineNr">37316 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37317" class="LineNr">37317 </span> 89/<- %esp 5/r32/ebp -<span id="L37318" class="LineNr">37318 </span> 5d/pop-to-ebp -<span id="L37319" class="LineNr">37319 </span> c3/return -<span id="L37320" class="LineNr">37320 </span> -<span id="L37321" class="LineNr">37321 </span><span class="subxTest">test-add-mem-to-reg</span>: -<span id="L37322" class="LineNr">37322 </span> <span class="subxComment"># var1/reg <- add var2</span> -<span id="L37323" class="LineNr">37323 </span> <span class="subxComment"># =></span> -<span id="L37324" class="LineNr">37324 </span> <span class="subxComment"># 03/add *(ebp+__) var1</span> -<span id="L37325" class="LineNr">37325 </span> <span class="subxComment">#</span> -<span id="L37326" class="LineNr">37326 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37327" class="LineNr">37327 </span> 55/push-ebp -<span id="L37328" class="LineNr">37328 </span> 89/<- %ebp 4/r32/esp -<span id="L37329" class="LineNr">37329 </span> <span class="subxComment"># setup</span> -<span id="L37330" class="LineNr">37330 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37331" class="LineNr">37331 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37332" class="LineNr">37332 </span><span class="Constant">$test-add-mem-to-reg:initialize-type</span>: -<span id="L37333" class="LineNr">37333 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37334" class="LineNr">37334 </span> 68/push 0/imm32/right:null -<span id="L37335" class="LineNr">37335 </span> 68/push 0/imm32/right:null -<span id="L37336" class="LineNr">37336 </span> 68/push 0/imm32/left:unused -<span id="L37337" class="LineNr">37337 </span> 68/push 1/imm32/value:int -<span id="L37338" class="LineNr">37338 </span> 68/push 1/imm32/is-atom?:true -<span id="L37339" class="LineNr">37339 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37340" class="LineNr">37340 </span> 89/<- %ecx 4/r32/esp -<span id="L37341" class="LineNr">37341 </span><span class="Constant">$test-add-mem-to-reg:initialize-var</span>: -<span id="L37342" class="LineNr">37342 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37343" class="LineNr">37343 </span> 68/push 0/imm32/register -<span id="L37344" class="LineNr">37344 </span> 68/push 0/imm32/register -<span id="L37345" class="LineNr">37345 </span> 68/push 0/imm32/no-stack-offset -<span id="L37346" class="LineNr">37346 </span> 68/push 1/imm32/block-depth -<span id="L37347" class="LineNr">37347 </span> 51/push-ecx -<span id="L37348" class="LineNr">37348 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37349" class="LineNr">37349 </span> 68/push 0/imm32/name -<span id="L37350" class="LineNr">37350 </span> 68/push 0/imm32/name -<span id="L37351" class="LineNr">37351 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37352" class="LineNr">37352 </span> 89/<- %ecx 4/r32/esp -<span id="L37353" class="LineNr">37353 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-name</span>: -<span id="L37354" class="LineNr">37354 </span> <span class="subxComment"># var1->name = "foo"</span> -<span id="L37355" class="LineNr">37355 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37356" class="LineNr">37356 </span> (<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="L37357" class="LineNr">37357 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-register</span>: -<span id="L37358" class="LineNr">37358 </span> <span class="subxComment"># var1->register = "eax"</span> -<span id="L37359" class="LineNr">37359 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37360" class="LineNr">37360 </span> (<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="L37361" class="LineNr">37361 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2</span>: -<span id="L37362" class="LineNr">37362 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L37363" class="LineNr">37363 </span> 68/push 0/imm32/register -<span id="L37364" class="LineNr">37364 </span> 68/push 0/imm32/register -<span id="L37365" class="LineNr">37365 </span> 68/push 8/imm32/stack-offset -<span id="L37366" class="LineNr">37366 </span> 68/push 1/imm32/block-depth -<span id="L37367" class="LineNr">37367 </span> ff 6/subop/push *(ecx+0x10) -<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/name -<span id="L37370" class="LineNr">37370 </span> 68/push 0/imm32/name -<span id="L37371" class="LineNr">37371 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37372" class="LineNr">37372 </span> 89/<- %edx 4/r32/esp -<span id="L37373" class="LineNr">37373 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2-name</span>: -<span id="L37374" class="LineNr">37374 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L37375" class="LineNr">37375 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</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">"var2"</span> %eax) -<span id="L37377" class="LineNr">37377 </span><span class="Constant">$test-add-mem-to-reg:initialize-inouts</span>: -<span id="L37378" class="LineNr">37378 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L37379" class="LineNr">37379 </span> 68/push 0/imm32/is-deref:false -<span id="L37380" class="LineNr">37380 </span> 68/push 0/imm32/next -<span id="L37381" class="LineNr">37381 </span> 68/push 0/imm32/next -<span id="L37382" class="LineNr">37382 </span> 52/push-edx/var2 -<span id="L37383" class="LineNr">37383 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37384" class="LineNr">37384 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37385" class="LineNr">37385 </span> 89/<- %esi 4/r32/esp -<span id="L37386" class="LineNr">37386 </span><span class="Constant">$test-add-mem-to-reg:initialize-outputs</span>: -<span id="L37387" class="LineNr">37387 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> -<span id="L37388" class="LineNr">37388 </span> 68/push 0/imm32/is-deref:false -<span id="L37389" class="LineNr">37389 </span> 68/push 0/imm32/next -<span id="L37390" class="LineNr">37390 </span> 68/push 0/imm32/next -<span id="L37391" class="LineNr">37391 </span> 51/push-ecx/var1 -<span id="L37392" class="LineNr">37392 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37393" class="LineNr">37393 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37394" class="LineNr">37394 </span> 89/<- %edi 4/r32/esp -<span id="L37395" class="LineNr">37395 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt</span>: -<span id="L37396" class="LineNr">37396 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37397" class="LineNr">37397 </span> 68/push 0/imm32/next -<span id="L37398" class="LineNr">37398 </span> 68/push 0/imm32/next -<span id="L37399" class="LineNr">37399 </span> 57/push-edi/outputs -<span id="L37400" class="LineNr">37400 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37401" class="LineNr">37401 </span> 56/push-esi/inouts -<span id="L37402" class="LineNr">37402 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37403" class="LineNr">37403 </span> 68/push 0/imm32/operation -<span id="L37404" class="LineNr">37404 </span> 68/push 0/imm32/operation -<span id="L37405" class="LineNr">37405 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37406" class="LineNr">37406 </span> 89/<- %esi 4/r32/esp -<span id="L37407" class="LineNr">37407 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt-operation</span>: -<span id="L37408" class="LineNr">37408 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L37409" class="LineNr">37409 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37410" class="LineNr">37410 </span> (<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="L37411" class="LineNr">37411 </span> <span class="subxComment"># convert</span> -<span id="L37412" class="LineNr">37412 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L37413" class="LineNr">37413 </span> (<a href='mu.subx.html#L28680'>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#L30469'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37414" class="LineNr">37414 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37415" class="Folded">37415 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37421" class="LineNr">37421 </span> <span class="subxComment"># check output</span> -<span id="L37422" class="LineNr">37422 </span> (<a href='109stream-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="L37423" class="LineNr">37423 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37424" class="LineNr">37424 </span> 89/<- %esp 5/r32/ebp -<span id="L37425" class="LineNr">37425 </span> 5d/pop-to-ebp -<span id="L37426" class="LineNr">37426 </span> c3/return -<span id="L37427" class="LineNr">37427 </span> -<span id="L37428" class="LineNr">37428 </span><span class="subxTest">test-add-literal-to-eax</span>: -<span id="L37429" class="LineNr">37429 </span> <span class="subxComment"># var1/eax <- add 0x34</span> -<span id="L37430" class="LineNr">37430 </span> <span class="subxComment"># =></span> -<span id="L37431" class="LineNr">37431 </span> <span class="subxComment"># 05/add-to-eax 0x34/imm32</span> -<span id="L37432" class="LineNr">37432 </span> <span class="subxComment">#</span> -<span id="L37433" class="LineNr">37433 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37434" class="LineNr">37434 </span> 55/push-ebp -<span id="L37435" class="LineNr">37435 </span> 89/<- %ebp 4/r32/esp -<span id="L37436" class="LineNr">37436 </span> <span class="subxComment"># setup</span> -<span id="L37437" class="LineNr">37437 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37438" class="LineNr">37438 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37439" class="LineNr">37439 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-type</span>: -<span id="L37440" class="LineNr">37440 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37441" class="LineNr">37441 </span> 68/push 0/imm32/right:null -<span id="L37442" class="LineNr">37442 </span> 68/push 0/imm32/right:null -<span id="L37443" class="LineNr">37443 </span> 68/push 0/imm32/left:unused -<span id="L37444" class="LineNr">37444 </span> 68/push 1/imm32/value:int -<span id="L37445" class="LineNr">37445 </span> 68/push 1/imm32/is-atom?:true -<span id="L37446" class="LineNr">37446 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37447" class="LineNr">37447 </span> 89/<- %ecx 4/r32/esp -<span id="L37448" class="LineNr">37448 </span><span class="Constant">$test-add-literal-to-eax:initialize-var</span>: -<span id="L37449" class="LineNr">37449 </span> <span class="subxComment"># var v/ecx: (payload var)</span> -<span id="L37450" class="LineNr">37450 </span> 68/push 0/imm32/register -<span id="L37451" class="LineNr">37451 </span> 68/push 0/imm32/register -<span id="L37452" class="LineNr">37452 </span> 68/push 0/imm32/no-stack-offset -<span id="L37453" class="LineNr">37453 </span> 68/push 1/imm32/block-depth -<span id="L37454" class="LineNr">37454 </span> 51/push-ecx -<span id="L37455" class="LineNr">37455 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37456" class="LineNr">37456 </span> 68/push 0/imm32/name -<span id="L37457" class="LineNr">37457 </span> 68/push 0/imm32/name -<span id="L37458" class="LineNr">37458 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37459" class="LineNr">37459 </span> 89/<- %ecx 4/r32/esp -<span id="L37460" class="LineNr">37460 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-name</span>: -<span id="L37461" class="LineNr">37461 </span> <span class="subxComment"># v->name = "v"</span> -<span id="L37462" class="LineNr">37462 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37463" class="LineNr">37463 </span> (<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="L37464" class="LineNr">37464 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-register</span>: -<span id="L37465" class="LineNr">37465 </span> <span class="subxComment"># v->register = "eax"</span> -<span id="L37466" class="LineNr">37466 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37467" class="LineNr">37467 </span> (<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="L37468" class="LineNr">37468 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-type</span>: -<span id="L37469" class="LineNr">37469 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L37470" class="LineNr">37470 </span> 68/push 0/imm32/right:null -<span id="L37471" class="LineNr">37471 </span> 68/push 0/imm32/right:null -<span id="L37472" class="LineNr">37472 </span> 68/push 0/imm32/left:unused -<span id="L37473" class="LineNr">37473 </span> 68/push 0/imm32/value:literal -<span id="L37474" class="LineNr">37474 </span> 68/push 1/imm32/is-atom?:true -<span id="L37475" class="LineNr">37475 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37476" class="LineNr">37476 </span> 89/<- %edx 4/r32/esp -<span id="L37477" class="LineNr">37477 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal</span>: -<span id="L37478" class="LineNr">37478 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L37479" class="LineNr">37479 </span> 68/push 0/imm32/register -<span id="L37480" class="LineNr">37480 </span> 68/push 0/imm32/register -<span id="L37481" class="LineNr">37481 </span> 68/push 0/imm32/no-stack-offset -<span id="L37482" class="LineNr">37482 </span> 68/push 1/imm32/block-depth -<span id="L37483" class="LineNr">37483 </span> 52/push-edx -<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/name -<span id="L37486" class="LineNr">37486 </span> 68/push 0/imm32/name -<span id="L37487" class="LineNr">37487 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37488" class="LineNr">37488 </span> 89/<- %edx 4/r32/esp -<span id="L37489" class="LineNr">37489 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-value</span>: -<span id="L37490" class="LineNr">37490 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L37491" class="LineNr">37491 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</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">"0x34"</span> %eax) -<span id="L37493" class="LineNr">37493 </span><span class="Constant">$test-add-literal-to-eax:initialize-inouts</span>: -<span id="L37494" class="LineNr">37494 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L37495" class="LineNr">37495 </span> 68/push 0/imm32/is-deref:false -<span id="L37496" class="LineNr">37496 </span> 68/push 0/imm32/next -<span id="L37497" class="LineNr">37497 </span> 68/push 0/imm32/next -<span id="L37498" class="LineNr">37498 </span> 52/push-edx/l -<span id="L37499" class="LineNr">37499 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37500" class="LineNr">37500 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37501" class="LineNr">37501 </span> 89/<- %esi 4/r32/esp -<span id="L37502" class="LineNr">37502 </span><span class="Constant">$test-add-literal-to-eax:initialize-outputs</span>: -<span id="L37503" class="LineNr">37503 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> -<span id="L37504" class="LineNr">37504 </span> 68/push 0/imm32/is-deref:false -<span id="L37505" class="LineNr">37505 </span> 68/push 0/imm32/next -<span id="L37506" class="LineNr">37506 </span> 68/push 0/imm32/next -<span id="L37507" class="LineNr">37507 </span> 51/push-ecx/v -<span id="L37508" class="LineNr">37508 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37509" class="LineNr">37509 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37510" class="LineNr">37510 </span> 89/<- %edi 4/r32/esp -<span id="L37511" class="LineNr">37511 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt</span>: -<span id="L37512" class="LineNr">37512 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37513" class="LineNr">37513 </span> 68/push 0/imm32/next -<span id="L37514" class="LineNr">37514 </span> 68/push 0/imm32/next -<span id="L37515" class="LineNr">37515 </span> 57/push-edi/outputs -<span id="L37516" class="LineNr">37516 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37517" class="LineNr">37517 </span> 56/push-esi/inouts -<span id="L37518" class="LineNr">37518 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37519" class="LineNr">37519 </span> 68/push 0/imm32/operation -<span id="L37520" class="LineNr">37520 </span> 68/push 0/imm32/operation -<span id="L37521" class="LineNr">37521 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37522" class="LineNr">37522 </span> 89/<- %esi 4/r32/esp -<span id="L37523" class="LineNr">37523 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt-operation</span>: -<span id="L37524" class="LineNr">37524 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L37525" class="LineNr">37525 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37526" class="LineNr">37526 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) -<span id="L37527" class="LineNr">37527 </span> <span class="subxComment"># convert</span> -<span id="L37528" class="LineNr">37528 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L37529" class="LineNr">37529 </span> (<a href='mu.subx.html#L28680'>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#L30469'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37530" class="LineNr">37530 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37531" class="Folded">37531 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37537" class="LineNr">37537 </span> <span class="subxComment"># check output</span> -<span id="L37538" class="LineNr">37538 </span> (<a href='109stream-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="L37539" class="LineNr">37539 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37540" class="LineNr">37540 </span> 89/<- %esp 5/r32/ebp -<span id="L37541" class="LineNr">37541 </span> 5d/pop-to-ebp -<span id="L37542" class="LineNr">37542 </span> c3/return -<span id="L37543" class="LineNr">37543 </span> -<span id="L37544" class="LineNr">37544 </span><span class="subxTest">test-add-literal-to-reg</span>: -<span id="L37545" class="LineNr">37545 </span> <span class="subxComment"># var1/ecx <- add 0x34</span> -<span id="L37546" class="LineNr">37546 </span> <span class="subxComment"># =></span> -<span id="L37547" class="LineNr">37547 </span> <span class="subxComment"># 81 0/subop/add %ecx 0x34/imm32</span> -<span id="L37548" class="LineNr">37548 </span> <span class="subxComment">#</span> -<span id="L37549" class="LineNr">37549 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37550" class="LineNr">37550 </span> 55/push-ebp -<span id="L37551" class="LineNr">37551 </span> 89/<- %ebp 4/r32/esp -<span id="L37552" class="LineNr">37552 </span> <span class="subxComment"># setup</span> -<span id="L37553" class="LineNr">37553 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37554" class="LineNr">37554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37555" class="LineNr">37555 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-type</span>: -<span id="L37556" class="LineNr">37556 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37557" class="LineNr">37557 </span> 68/push 0/imm32/right:null -<span id="L37558" class="LineNr">37558 </span> 68/push 0/imm32/right:null -<span id="L37559" class="LineNr">37559 </span> 68/push 0/imm32/left:unused -<span id="L37560" class="LineNr">37560 </span> 68/push 1/imm32/value:int -<span id="L37561" class="LineNr">37561 </span> 68/push 1/imm32/is-atom?:true -<span id="L37562" class="LineNr">37562 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37563" class="LineNr">37563 </span> 89/<- %ecx 4/r32/esp -<span id="L37564" class="LineNr">37564 </span><span class="Constant">$test-add-literal-to-reg:initialize-var</span>: -<span id="L37565" class="LineNr">37565 </span> <span class="subxComment"># var v/ecx: (payload var)</span> -<span id="L37566" class="LineNr">37566 </span> 68/push 0/imm32/register -<span id="L37567" class="LineNr">37567 </span> 68/push 0/imm32/register -<span id="L37568" class="LineNr">37568 </span> 68/push 0/imm32/no-stack-offset -<span id="L37569" class="LineNr">37569 </span> 68/push 1/imm32/block-depth -<span id="L37570" class="LineNr">37570 </span> 51/push-ecx -<span id="L37571" class="LineNr">37571 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37572" class="LineNr">37572 </span> 68/push 0/imm32/name -<span id="L37573" class="LineNr">37573 </span> 68/push 0/imm32/name -<span id="L37574" class="LineNr">37574 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37575" class="LineNr">37575 </span> 89/<- %ecx 4/r32/esp -<span id="L37576" class="LineNr">37576 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-name</span>: -<span id="L37577" class="LineNr">37577 </span> <span class="subxComment"># v->name = "v"</span> -<span id="L37578" class="LineNr">37578 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37579" class="LineNr">37579 </span> (<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="L37580" class="LineNr">37580 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-register</span>: -<span id="L37581" class="LineNr">37581 </span> <span class="subxComment"># v->register = "ecx"</span> -<span id="L37582" class="LineNr">37582 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37583" class="LineNr">37583 </span> (<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="L37584" class="LineNr">37584 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-type</span>: -<span id="L37585" class="LineNr">37585 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L37586" class="LineNr">37586 </span> 68/push 0/imm32/right:null -<span id="L37587" class="LineNr">37587 </span> 68/push 0/imm32/right:null -<span id="L37588" class="LineNr">37588 </span> 68/push 0/imm32/left:unused -<span id="L37589" class="LineNr">37589 </span> 68/push 0/imm32/value:literal -<span id="L37590" class="LineNr">37590 </span> 68/push 1/imm32/is-atom?:true -<span id="L37591" class="LineNr">37591 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37592" class="LineNr">37592 </span> 89/<- %edx 4/r32/esp -<span id="L37593" class="LineNr">37593 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal</span>: -<span id="L37594" class="LineNr">37594 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L37595" class="LineNr">37595 </span> 68/push 0/imm32/register -<span id="L37596" class="LineNr">37596 </span> 68/push 0/imm32/register -<span id="L37597" class="LineNr">37597 </span> 68/push 0/imm32/no-stack-offset -<span id="L37598" class="LineNr">37598 </span> 68/push 1/imm32/block-depth -<span id="L37599" class="LineNr">37599 </span> 52/push-edx -<span id="L37600" class="LineNr">37600 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37601" class="LineNr">37601 </span> 68/push 0/imm32/name -<span id="L37602" class="LineNr">37602 </span> 68/push 0/imm32/name -<span id="L37603" class="LineNr">37603 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37604" class="LineNr">37604 </span> 89/<- %edx 4/r32/esp -<span id="L37605" class="LineNr">37605 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-value</span>: -<span id="L37606" class="LineNr">37606 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L37607" class="LineNr">37607 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37608" class="LineNr">37608 </span> (<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="L37609" class="LineNr">37609 </span><span class="Constant">$test-add-literal-to-reg:initialize-inouts</span>: -<span id="L37610" class="LineNr">37610 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L37611" class="LineNr">37611 </span> 68/push 0/imm32/is-deref:false -<span id="L37612" class="LineNr">37612 </span> 68/push 0/imm32/next -<span id="L37613" class="LineNr">37613 </span> 68/push 0/imm32/next -<span id="L37614" class="LineNr">37614 </span> 52/push-edx/l -<span id="L37615" class="LineNr">37615 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37616" class="LineNr">37616 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37617" class="LineNr">37617 </span> 89/<- %esi 4/r32/esp -<span id="L37618" class="LineNr">37618 </span><span class="Constant">$test-add-literal-to-reg:initialize-outputs</span>: -<span id="L37619" class="LineNr">37619 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> -<span id="L37620" class="LineNr">37620 </span> 68/push 0/imm32/is-deref:false -<span id="L37621" class="LineNr">37621 </span> 68/push 0/imm32/next -<span id="L37622" class="LineNr">37622 </span> 68/push 0/imm32/next -<span id="L37623" class="LineNr">37623 </span> 51/push-ecx/v +<span id="L36958" class="LineNr">36958 </span> 68/push 0/imm32/name +<span id="L36959" class="LineNr">36959 </span> 68/push 0/imm32/name +<span id="L36960" class="LineNr">36960 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36961" class="LineNr">36961 </span> 89/<- %ecx 4/r32/esp +<span id="L36962" class="LineNr">36962 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-name</span>: +<span id="L36963" class="LineNr">36963 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L36964" class="LineNr">36964 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36965" class="LineNr">36965 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L36966" class="LineNr">36966 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-register</span>: +<span id="L36967" class="LineNr">36967 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L36968" class="LineNr">36968 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36969" class="LineNr">36969 </span> (<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="L36970" class="LineNr">36970 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-var</span>: +<span id="L36971" class="LineNr">36971 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L36972" class="LineNr">36972 </span> 68/push 0/imm32/is-deref:false +<span id="L36973" class="LineNr">36973 </span> 68/push 0/imm32/next +<span id="L36974" class="LineNr">36974 </span> 68/push 0/imm32/next +<span id="L36975" class="LineNr">36975 </span> 51/push-ecx/var-foo +<span id="L36976" class="LineNr">36976 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36977" class="LineNr">36977 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36978" class="LineNr">36978 </span> 89/<- %ebx 4/r32/esp +<span id="L36979" class="LineNr">36979 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt</span>: +<span id="L36980" class="LineNr">36980 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36981" class="LineNr">36981 </span> 53/push-ebx/outputs +<span id="L36982" class="LineNr">36982 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36983" class="LineNr">36983 </span> 68/push 0/imm32/no-inouts +<span id="L36984" class="LineNr">36984 </span> 68/push 0/imm32/no-inouts +<span id="L36985" class="LineNr">36985 </span> 68/push 0/imm32/operation +<span id="L36986" class="LineNr">36986 </span> 68/push 0/imm32/operation +<span id="L36987" class="LineNr">36987 </span> 68/push 1/imm32 +<span id="L36988" class="LineNr">36988 </span> 89/<- %esi 4/r32/esp +<span id="L36989" class="LineNr">36989 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-operation</span>: +<span id="L36990" class="LineNr">36990 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L36991" class="LineNr">36991 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36992" class="LineNr">36992 </span> (<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="L36993" class="LineNr">36993 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var</span>: +<span id="L36994" class="LineNr">36994 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L36995" class="LineNr">36995 </span> 68/push 0/imm32/register +<span id="L36996" class="LineNr">36996 </span> 68/push 0/imm32/register +<span id="L36997" class="LineNr">36997 </span> 68/push 0/imm32/no-stack-offset +<span id="L36998" class="LineNr">36998 </span> 68/push 1/imm32/block-depth +<span id="L36999" class="LineNr">36999 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> +<span id="L37000" class="LineNr">37000 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37001" class="LineNr">37001 </span> 68/push 0/imm32/name +<span id="L37002" class="LineNr">37002 </span> 68/push 0/imm32/name +<span id="L37003" class="LineNr">37003 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37004" class="LineNr">37004 </span> 89/<- %ebx 4/r32/esp +<span id="L37005" class="LineNr">37005 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var-name</span>: +<span id="L37006" class="LineNr">37006 </span> <span class="subxComment"># formal-var->name = "dummy"</span> +<span id="L37007" class="LineNr">37007 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37008" class="LineNr">37008 </span> (<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="L37009" class="LineNr">37009 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-register</span>: +<span id="L37010" class="LineNr">37010 </span> <span class="subxComment"># formal-var->register = "*"</span> +<span id="L37011" class="LineNr">37011 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37012" class="LineNr">37012 </span> (<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="L37013" class="LineNr">37013 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-list</span>: +<span id="L37014" class="LineNr">37014 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> +<span id="L37015" class="LineNr">37015 </span> 68/push 0/imm32/next +<span id="L37016" class="LineNr">37016 </span> 68/push 0/imm32/next +<span id="L37017" class="LineNr">37017 </span> 53/push-ebx/formal-var +<span id="L37018" class="LineNr">37018 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37019" class="LineNr">37019 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37020" class="LineNr">37020 </span> 89/<- %ebx 4/r32/esp +<span id="L37021" class="LineNr">37021 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2</span>: +<span id="L37022" class="LineNr">37022 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> +<span id="L37023" class="LineNr">37023 </span> 68/push 0/imm32/next +<span id="L37024" class="LineNr">37024 </span> 68/push 0/imm32/next +<span id="L37025" class="LineNr">37025 </span> 68/push 0/imm32/no-x32 +<span id="L37026" class="LineNr">37026 </span> 68/push 0/imm32/no-xm32 +<span id="L37027" class="LineNr">37027 </span> 68/push 0/imm32/no-disp32 +<span id="L37028" class="LineNr">37028 </span> 68/push 0/imm32/no-imm8 +<span id="L37029" class="LineNr">37029 </span> 68/push 0/imm32/no-imm32 +<span id="L37030" class="LineNr">37030 </span> 68/push 0/imm32/no-r32 +<span id="L37031" class="LineNr">37031 </span> 68/push 3/imm32/rm32-is-first-output +<span id="L37032" class="LineNr">37032 </span> 68/push 0/imm32/subx-name +<span id="L37033" class="LineNr">37033 </span> 68/push 0/imm32/subx-name +<span id="L37034" class="LineNr">37034 </span> 53/push-ebx/outputs +<span id="L37035" class="LineNr">37035 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37036" class="LineNr">37036 </span> 68/push 0/imm32/no-inouts +<span id="L37037" class="LineNr">37037 </span> 68/push 0/imm32/no-inouts +<span id="L37038" class="LineNr">37038 </span> 68/push 0/imm32/name +<span id="L37039" class="LineNr">37039 </span> 68/push 0/imm32/name +<span id="L37040" class="LineNr">37040 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37041" class="LineNr">37041 </span> 89/<- %edi 4/r32/esp +<span id="L37042" class="LineNr">37042 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-name</span>: +<span id="L37043" class="LineNr">37043 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L37044" class="LineNr">37044 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> +<span id="L37045" class="LineNr">37045 </span> (<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="L37046" class="LineNr">37046 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-subx-name</span>: +<span id="L37047" class="LineNr">37047 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L37048" class="LineNr">37048 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> +<span id="L37049" class="LineNr">37049 </span> (<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="L37050" class="LineNr">37050 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive</span>: +<span id="L37051" class="LineNr">37051 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L37052" class="LineNr">37052 </span> 57/push-edi +<span id="L37053" class="LineNr">37053 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37054" class="LineNr">37054 </span> 68/push 0/imm32/no-x32 +<span id="L37055" class="LineNr">37055 </span> 68/push 0/imm32/no-xm32 +<span id="L37056" class="LineNr">37056 </span> 68/push 0/imm32/no-disp32 +<span id="L37057" class="LineNr">37057 </span> 68/push 0/imm32/no-imm8 +<span id="L37058" class="LineNr">37058 </span> 68/push 0/imm32/no-imm32 +<span id="L37059" class="LineNr">37059 </span> 68/push 0/imm32/no-r32 +<span id="L37060" class="LineNr">37060 </span> 68/push 1/imm32/rm32-is-first-inout +<span id="L37061" class="LineNr">37061 </span> 68/push 0/imm32/subx-name +<span id="L37062" class="LineNr">37062 </span> 68/push 0/imm32/subx-name +<span id="L37063" class="LineNr">37063 </span> 68/push 0/imm32/no-outputs +<span id="L37064" class="LineNr">37064 </span> 68/push 0/imm32/no-outputs +<span id="L37065" class="LineNr">37065 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> +<span id="L37066" class="LineNr">37066 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37067" class="LineNr">37067 </span> 68/push 0/imm32/name +<span id="L37068" class="LineNr">37068 </span> 68/push 0/imm32/name +<span id="L37069" class="LineNr">37069 </span> 89/<- %ebx 4/r32/esp +<span id="L37070" class="LineNr">37070 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-name</span>: +<span id="L37071" class="LineNr">37071 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L37072" class="LineNr">37072 </span> (<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="L37073" class="LineNr">37073 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-subx-name</span>: +<span id="L37074" class="LineNr">37074 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L37075" class="LineNr">37075 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L37076" class="LineNr">37076 </span> (<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="L37077" class="LineNr">37077 </span> <span class="subxComment"># convert</span> +<span id="L37078" class="LineNr">37078 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L37079" class="LineNr">37079 </span> (<a href='mu.subx.html#L28855'>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="L37080" class="LineNr">37080 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37081" class="Folded">37081 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37087" class="LineNr">37087 </span> <span class="subxComment"># check output</span> +<span id="L37088" class="LineNr">37088 </span> (<a href='109stream-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="L37089" class="LineNr">37089 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37090" class="LineNr">37090 </span> 89/<- %esp 5/r32/ebp +<span id="L37091" class="LineNr">37091 </span> 5d/pop-to-ebp +<span id="L37092" class="LineNr">37092 </span> c3/return +<span id="L37093" class="LineNr">37093 </span> +<span id="L37094" class="LineNr">37094 </span><span class="subxTest">test-emit-subx-stmt-select-primitive-2</span>: +<span id="L37095" class="LineNr">37095 </span> <span class="subxComment"># Select the right primitive between overloads.</span> +<span id="L37096" class="LineNr">37096 </span> <span class="subxComment"># increment foo</span> +<span id="L37097" class="LineNr">37097 </span> <span class="subxComment"># =></span> +<span id="L37098" class="LineNr">37098 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> +<span id="L37099" class="LineNr">37099 </span> <span class="subxComment">#</span> +<span id="L37100" class="LineNr">37100 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L37101" class="LineNr">37101 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L37102" class="LineNr">37102 </span> <span class="subxComment"># type: int</span> +<span id="L37103" class="LineNr">37103 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L37104" class="LineNr">37104 </span> <span class="subxComment">#</span> +<span id="L37105" class="LineNr">37105 </span> <span class="subxComment"># There's two primitives, as follows:</span> +<span id="L37106" class="LineNr">37106 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L37107" class="LineNr">37107 </span> <span class="subxComment"># out: int/reg</span> +<span id="L37108" class="LineNr">37108 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L37109" class="LineNr">37109 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L37110" class="LineNr">37110 </span> <span class="subxComment"># inout: int/mem</span> +<span id="L37111" class="LineNr">37111 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L37112" class="LineNr">37112 </span> <span class="subxComment">#</span> +<span id="L37113" class="LineNr">37113 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37114" class="LineNr">37114 </span> 55/push-ebp +<span id="L37115" class="LineNr">37115 </span> 89/<- %ebp 4/r32/esp +<span id="L37116" class="LineNr">37116 </span> <span class="subxComment"># setup</span> +<span id="L37117" class="LineNr">37117 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37118" class="LineNr">37118 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37119" class="LineNr">37119 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-type</span>: +<span id="L37120" class="LineNr">37120 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37121" class="LineNr">37121 </span> 68/push 0/imm32/right:null +<span id="L37122" class="LineNr">37122 </span> 68/push 0/imm32/right:null +<span id="L37123" class="LineNr">37123 </span> 68/push 0/imm32/left:unused +<span id="L37124" class="LineNr">37124 </span> 68/push 1/imm32/value:int +<span id="L37125" class="LineNr">37125 </span> 68/push 1/imm32/is-atom?:true +<span id="L37126" class="LineNr">37126 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37127" class="LineNr">37127 </span> 89/<- %ecx 4/r32/esp +<span id="L37128" class="LineNr">37128 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var</span>: +<span id="L37129" class="LineNr">37129 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L37130" class="LineNr">37130 </span> 68/push 0/imm32/register +<span id="L37131" class="LineNr">37131 </span> 68/push 0/imm32/register +<span id="L37132" class="LineNr">37132 </span> 68/push 0/imm32/no-stack-offset +<span id="L37133" class="LineNr">37133 </span> 68/push 1/imm32/block-depth +<span id="L37134" class="LineNr">37134 </span> 51/push-ecx +<span id="L37135" class="LineNr">37135 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37136" class="LineNr">37136 </span> 68/push 0/imm32/name +<span id="L37137" class="LineNr">37137 </span> 68/push 0/imm32/name +<span id="L37138" class="LineNr">37138 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37139" class="LineNr">37139 </span> 89/<- %ecx 4/r32/esp +<span id="L37140" class="LineNr">37140 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-name</span>: +<span id="L37141" class="LineNr">37141 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L37142" class="LineNr">37142 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37143" class="LineNr">37143 </span> (<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="L37144" class="LineNr">37144 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-register</span>: +<span id="L37145" class="LineNr">37145 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L37146" class="LineNr">37146 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37147" class="LineNr">37147 </span> (<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="L37148" class="LineNr">37148 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-var</span>: +<span id="L37149" class="LineNr">37149 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L37150" class="LineNr">37150 </span> 68/push 0/imm32/is-deref:false +<span id="L37151" class="LineNr">37151 </span> 68/push 0/imm32/next +<span id="L37152" class="LineNr">37152 </span> 68/push 0/imm32/next +<span id="L37153" class="LineNr">37153 </span> 51/push-ecx/var-foo +<span id="L37154" class="LineNr">37154 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37155" class="LineNr">37155 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37156" class="LineNr">37156 </span> 89/<- %ebx 4/r32/esp +<span id="L37157" class="LineNr">37157 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt</span>: +<span id="L37158" class="LineNr">37158 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37159" class="LineNr">37159 </span> 68/push 0/imm32/no-outputs +<span id="L37160" class="LineNr">37160 </span> 68/push 0/imm32/no-outputs +<span id="L37161" class="LineNr">37161 </span> 53/push-ebx/inouts +<span id="L37162" class="LineNr">37162 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37163" class="LineNr">37163 </span> 68/push 0/imm32/operation +<span id="L37164" class="LineNr">37164 </span> 68/push 0/imm32/operation +<span id="L37165" class="LineNr">37165 </span> 68/push 1/imm32 +<span id="L37166" class="LineNr">37166 </span> 89/<- %esi 4/r32/esp +<span id="L37167" class="LineNr">37167 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-operation</span>: +<span id="L37168" class="LineNr">37168 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L37169" class="LineNr">37169 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37170" class="LineNr">37170 </span> (<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="L37171" class="LineNr">37171 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var</span>: +<span id="L37172" class="LineNr">37172 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L37173" class="LineNr">37173 </span> 68/push 0/imm32/register +<span id="L37174" class="LineNr">37174 </span> 68/push 0/imm32/register +<span id="L37175" class="LineNr">37175 </span> 68/push 0/imm32/no-stack-offset +<span id="L37176" class="LineNr">37176 </span> 68/push 1/imm32/block-depth +<span id="L37177" class="LineNr">37177 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> +<span id="L37178" class="LineNr">37178 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37179" class="LineNr">37179 </span> 68/push 0/imm32/name +<span id="L37180" class="LineNr">37180 </span> 68/push 0/imm32/name +<span id="L37181" class="LineNr">37181 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37182" class="LineNr">37182 </span> 89/<- %ebx 4/r32/esp +<span id="L37183" class="LineNr">37183 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var-name</span>: +<span id="L37184" class="LineNr">37184 </span> <span class="subxComment"># formal-var->name = "dummy"</span> +<span id="L37185" class="LineNr">37185 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37186" class="LineNr">37186 </span> (<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="L37187" class="LineNr">37187 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-register</span>: +<span id="L37188" class="LineNr">37188 </span> <span class="subxComment"># formal-var->register = "*"</span> +<span id="L37189" class="LineNr">37189 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37190" class="LineNr">37190 </span> (<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="L37191" class="LineNr">37191 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-list</span>: +<span id="L37192" class="LineNr">37192 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list stmt-var)</span> +<span id="L37193" class="LineNr">37193 </span> 68/push 0/imm32/next +<span id="L37194" class="LineNr">37194 </span> 68/push 0/imm32/next +<span id="L37195" class="LineNr">37195 </span> 53/push-ebx/formal-var +<span id="L37196" class="LineNr">37196 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37197" class="LineNr">37197 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37198" class="LineNr">37198 </span> 89/<- %ebx 4/r32/esp +<span id="L37199" class="LineNr">37199 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2</span>: +<span id="L37200" class="LineNr">37200 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> +<span id="L37201" class="LineNr">37201 </span> 68/push 0/imm32/next +<span id="L37202" class="LineNr">37202 </span> 68/push 0/imm32/next +<span id="L37203" class="LineNr">37203 </span> 68/push 0/imm32/no-x32 +<span id="L37204" class="LineNr">37204 </span> 68/push 0/imm32/no-xm32 +<span id="L37205" class="LineNr">37205 </span> 68/push 0/imm32/no-disp32 +<span id="L37206" class="LineNr">37206 </span> 68/push 0/imm32/no-imm8 +<span id="L37207" class="LineNr">37207 </span> 68/push 0/imm32/no-imm32 +<span id="L37208" class="LineNr">37208 </span> 68/push 0/imm32/no-r32 +<span id="L37209" class="LineNr">37209 </span> 68/push 3/imm32/rm32-is-first-output +<span id="L37210" class="LineNr">37210 </span> 68/push 0/imm32/subx-name +<span id="L37211" class="LineNr">37211 </span> 68/push 0/imm32/subx-name +<span id="L37212" class="LineNr">37212 </span> 53/push-ebx/outputs +<span id="L37213" class="LineNr">37213 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37214" class="LineNr">37214 </span> 68/push 0/imm32/no-inouts +<span id="L37215" class="LineNr">37215 </span> 68/push 0/imm32/no-inouts +<span id="L37216" class="LineNr">37216 </span> 68/push 0/imm32/name +<span id="L37217" class="LineNr">37217 </span> 68/push 0/imm32/name +<span id="L37218" class="LineNr">37218 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37219" class="LineNr">37219 </span> 89/<- %edi 4/r32/esp +<span id="L37220" class="LineNr">37220 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-name</span>: +<span id="L37221" class="LineNr">37221 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L37222" class="LineNr">37222 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> +<span id="L37223" class="LineNr">37223 </span> (<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="L37224" class="LineNr">37224 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-subx-name</span>: +<span id="L37225" class="LineNr">37225 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L37226" class="LineNr">37226 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> +<span id="L37227" class="LineNr">37227 </span> (<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="L37228" class="LineNr">37228 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive</span>: +<span id="L37229" class="LineNr">37229 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L37230" class="LineNr">37230 </span> 57/push-edi +<span id="L37231" class="LineNr">37231 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37232" class="LineNr">37232 </span> 68/push 0/imm32/no-x32 +<span id="L37233" class="LineNr">37233 </span> 68/push 0/imm32/no-xm32 +<span id="L37234" class="LineNr">37234 </span> 68/push 0/imm32/no-disp32 +<span id="L37235" class="LineNr">37235 </span> 68/push 0/imm32/no-imm8 +<span id="L37236" class="LineNr">37236 </span> 68/push 0/imm32/no-imm32 +<span id="L37237" class="LineNr">37237 </span> 68/push 0/imm32/no-r32 +<span id="L37238" class="LineNr">37238 </span> 68/push 1/imm32/rm32-is-first-inout +<span id="L37239" class="LineNr">37239 </span> 68/push 0/imm32/subx-name +<span id="L37240" class="LineNr">37240 </span> 68/push 0/imm32/subx-name +<span id="L37241" class="LineNr">37241 </span> 68/push 0/imm32/no-outputs +<span id="L37242" class="LineNr">37242 </span> 68/push 0/imm32/no-outputs +<span id="L37243" class="LineNr">37243 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> +<span id="L37244" class="LineNr">37244 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37245" class="LineNr">37245 </span> 68/push 0/imm32/name +<span id="L37246" class="LineNr">37246 </span> 68/push 0/imm32/name +<span id="L37247" class="LineNr">37247 </span> 89/<- %ebx 4/r32/esp +<span id="L37248" class="LineNr">37248 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-name</span>: +<span id="L37249" class="LineNr">37249 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L37250" class="LineNr">37250 </span> (<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="L37251" class="LineNr">37251 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-subx-name</span>: +<span id="L37252" class="LineNr">37252 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L37253" class="LineNr">37253 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L37254" class="LineNr">37254 </span> (<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="L37255" class="LineNr">37255 </span> <span class="subxComment"># convert</span> +<span id="L37256" class="LineNr">37256 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L37257" class="LineNr">37257 </span> (<a href='mu.subx.html#L28855'>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="L37258" class="LineNr">37258 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37259" class="Folded">37259 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37265" class="LineNr">37265 </span> <span class="subxComment"># check output</span> +<span id="L37266" class="LineNr">37266 </span> (<a href='109stream-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="L37267" class="LineNr">37267 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37268" class="LineNr">37268 </span> 89/<- %esp 5/r32/ebp +<span id="L37269" class="LineNr">37269 </span> 5d/pop-to-ebp +<span id="L37270" class="LineNr">37270 </span> c3/return +<span id="L37271" class="LineNr">37271 </span> +<span id="L37272" class="LineNr">37272 </span><span class="subxTest">test-increment-register</span>: +<span id="L37273" class="LineNr">37273 </span> <span class="subxComment"># Select the right register between overloads.</span> +<span id="L37274" class="LineNr">37274 </span> <span class="subxComment"># foo <- increment</span> +<span id="L37275" class="LineNr">37275 </span> <span class="subxComment"># =></span> +<span id="L37276" class="LineNr">37276 </span> <span class="subxComment"># 50/increment-eax</span> +<span id="L37277" class="LineNr">37277 </span> <span class="subxComment">#</span> +<span id="L37278" class="LineNr">37278 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L37279" class="LineNr">37279 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L37280" class="LineNr">37280 </span> <span class="subxComment"># type: int</span> +<span id="L37281" class="LineNr">37281 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L37282" class="LineNr">37282 </span> <span class="subxComment">#</span> +<span id="L37283" class="LineNr">37283 </span> <span class="subxComment"># Primitives are the global definitions.</span> +<span id="L37284" class="LineNr">37284 </span> <span class="subxComment">#</span> +<span id="L37285" class="LineNr">37285 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37286" class="LineNr">37286 </span> 55/push-ebp +<span id="L37287" class="LineNr">37287 </span> 89/<- %ebp 4/r32/esp +<span id="L37288" class="LineNr">37288 </span> <span class="subxComment"># setup</span> +<span id="L37289" class="LineNr">37289 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37290" class="LineNr">37290 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37291" class="LineNr">37291 </span><span class="Constant">$test-increment-register:initialize-type</span>: +<span id="L37292" class="LineNr">37292 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37293" class="LineNr">37293 </span> 68/push 0/imm32/right:null +<span id="L37294" class="LineNr">37294 </span> 68/push 0/imm32/right:null +<span id="L37295" class="LineNr">37295 </span> 68/push 0/imm32/left:unused +<span id="L37296" class="LineNr">37296 </span> 68/push 1/imm32/value:int +<span id="L37297" class="LineNr">37297 </span> 68/push 1/imm32/is-atom?:true +<span id="L37298" class="LineNr">37298 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37299" class="LineNr">37299 </span> 89/<- %ecx 4/r32/esp +<span id="L37300" class="LineNr">37300 </span><span class="Constant">$test-increment-register:initialize-var</span>: +<span id="L37301" class="LineNr">37301 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L37302" class="LineNr">37302 </span> 68/push 0/imm32/register +<span id="L37303" class="LineNr">37303 </span> 68/push 0/imm32/register +<span id="L37304" class="LineNr">37304 </span> 68/push 0/imm32/no-stack-offset +<span id="L37305" class="LineNr">37305 </span> 68/push 1/imm32/block-depth +<span id="L37306" class="LineNr">37306 </span> 51/push-ecx +<span id="L37307" class="LineNr">37307 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37308" class="LineNr">37308 </span> 68/push 0/imm32/name +<span id="L37309" class="LineNr">37309 </span> 68/push 0/imm32/name +<span id="L37310" class="LineNr">37310 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37311" class="LineNr">37311 </span> 89/<- %ecx 4/r32/esp +<span id="L37312" class="LineNr">37312 </span><span class="Constant">$test-increment-register:initialize-var-name</span>: +<span id="L37313" class="LineNr">37313 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L37314" class="LineNr">37314 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37315" class="LineNr">37315 </span> (<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="L37316" class="LineNr">37316 </span><span class="Constant">$test-increment-register:initialize-var-register</span>: +<span id="L37317" class="LineNr">37317 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L37318" class="LineNr">37318 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37319" class="LineNr">37319 </span> (<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="L37320" class="LineNr">37320 </span><span class="Constant">$test-increment-register:initialize-stmt-var</span>: +<span id="L37321" class="LineNr">37321 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L37322" class="LineNr">37322 </span> 68/push 0/imm32/is-deref:false +<span id="L37323" class="LineNr">37323 </span> 68/push 0/imm32/next +<span id="L37324" class="LineNr">37324 </span> 68/push 0/imm32/next +<span id="L37325" class="LineNr">37325 </span> 51/push-ecx/var-foo +<span id="L37326" class="LineNr">37326 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37327" class="LineNr">37327 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37328" class="LineNr">37328 </span> 89/<- %ebx 4/r32/esp +<span id="L37329" class="LineNr">37329 </span><span class="Constant">$test-increment-register:initialize-stmt</span>: +<span id="L37330" class="LineNr">37330 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37331" class="LineNr">37331 </span> 53/push-ebx/outputs +<span id="L37332" class="LineNr">37332 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37333" class="LineNr">37333 </span> 68/push 0/imm32/no-inouts +<span id="L37334" class="LineNr">37334 </span> 68/push 0/imm32/no-inouts +<span id="L37335" class="LineNr">37335 </span> 68/push 0/imm32/operation +<span id="L37336" class="LineNr">37336 </span> 68/push 0/imm32/operation +<span id="L37337" class="LineNr">37337 </span> 68/push 1/imm32 +<span id="L37338" class="LineNr">37338 </span> 89/<- %esi 4/r32/esp +<span id="L37339" class="LineNr">37339 </span><span class="Constant">$test-increment-register:initialize-stmt-operation</span>: +<span id="L37340" class="LineNr">37340 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L37341" class="LineNr">37341 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37342" class="LineNr">37342 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L37343" class="LineNr">37343 </span> <span class="subxComment"># convert</span> +<span id="L37344" class="LineNr">37344 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L37345" class="LineNr">37345 </span> (<a href='mu.subx.html#L28855'>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#L30722'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37346" class="LineNr">37346 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37347" class="Folded">37347 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37353" class="LineNr">37353 </span> <span class="subxComment"># check output</span> +<span id="L37354" class="LineNr">37354 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"40/increment-eax"</span> <span class="Constant">"F - test-increment-register"</span>) +<span id="L37355" class="LineNr">37355 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37356" class="LineNr">37356 </span> 89/<- %esp 5/r32/ebp +<span id="L37357" class="LineNr">37357 </span> 5d/pop-to-ebp +<span id="L37358" class="LineNr">37358 </span> c3/return +<span id="L37359" class="LineNr">37359 </span> +<span id="L37360" class="LineNr">37360 </span><span class="subxTest">test-add-reg-to-reg</span>: +<span id="L37361" class="LineNr">37361 </span> <span class="subxComment"># var1/reg <- add var2/reg</span> +<span id="L37362" class="LineNr">37362 </span> <span class="subxComment"># =></span> +<span id="L37363" class="LineNr">37363 </span> <span class="subxComment"># 01/add-to %var1 var2</span> +<span id="L37364" class="LineNr">37364 </span> <span class="subxComment">#</span> +<span id="L37365" class="LineNr">37365 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37366" class="LineNr">37366 </span> 55/push-ebp +<span id="L37367" class="LineNr">37367 </span> 89/<- %ebp 4/r32/esp +<span id="L37368" class="LineNr">37368 </span> <span class="subxComment"># setup</span> +<span id="L37369" class="LineNr">37369 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37370" class="LineNr">37370 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37371" class="LineNr">37371 </span><span class="Constant">$test-add-reg-to-reg:initialize-type</span>: +<span id="L37372" class="LineNr">37372 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37373" class="LineNr">37373 </span> 68/push 0/imm32/right:null +<span id="L37374" class="LineNr">37374 </span> 68/push 0/imm32/right:null +<span id="L37375" class="LineNr">37375 </span> 68/push 0/imm32/left:unused +<span id="L37376" class="LineNr">37376 </span> 68/push 1/imm32/value:int +<span id="L37377" class="LineNr">37377 </span> 68/push 1/imm32/is-atom?:true +<span id="L37378" class="LineNr">37378 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37379" class="LineNr">37379 </span> 89/<- %ecx 4/r32/esp +<span id="L37380" class="LineNr">37380 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1</span>: +<span id="L37381" class="LineNr">37381 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37382" class="LineNr">37382 </span> 68/push 0/imm32/register +<span id="L37383" class="LineNr">37383 </span> 68/push 0/imm32/register +<span id="L37384" class="LineNr">37384 </span> 68/push 0/imm32/no-stack-offset +<span id="L37385" class="LineNr">37385 </span> 68/push 1/imm32/block-depth +<span id="L37386" class="LineNr">37386 </span> 51/push-ecx +<span id="L37387" class="LineNr">37387 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37388" class="LineNr">37388 </span> 68/push 0/imm32/name +<span id="L37389" class="LineNr">37389 </span> 68/push 0/imm32/name +<span id="L37390" class="LineNr">37390 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37391" class="LineNr">37391 </span> 89/<- %ecx 4/r32/esp +<span id="L37392" class="LineNr">37392 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-name</span>: +<span id="L37393" class="LineNr">37393 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L37394" class="LineNr">37394 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37395" class="LineNr">37395 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L37396" class="LineNr">37396 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-register</span>: +<span id="L37397" class="LineNr">37397 </span> <span class="subxComment"># var1->register = "eax"</span> +<span id="L37398" class="LineNr">37398 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37399" class="LineNr">37399 </span> (<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="L37400" class="LineNr">37400 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2</span>: +<span id="L37401" class="LineNr">37401 </span> <span class="subxComment"># var var2/edx: (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> ff 6/subop/push *(ecx+0x10) +<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/<- %edx 4/r32/esp +<span id="L37412" class="LineNr">37412 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-name</span>: +<span id="L37413" class="LineNr">37413 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L37414" class="LineNr">37414 </span> 8d/copy-address *(edx+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">"var2"</span> %eax) +<span id="L37416" class="LineNr">37416 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-register</span>: +<span id="L37417" class="LineNr">37417 </span> <span class="subxComment"># var2->register = "ecx"</span> +<span id="L37418" class="LineNr">37418 </span> 8d/copy-address *(edx+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">"ecx"</span> %eax) +<span id="L37420" class="LineNr">37420 </span><span class="Constant">$test-add-reg-to-reg:initialize-inouts</span>: +<span id="L37421" class="LineNr">37421 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L37422" class="LineNr">37422 </span> 68/push 0/imm32/is-deref:false +<span id="L37423" class="LineNr">37423 </span> 68/push 0/imm32/next +<span id="L37424" class="LineNr">37424 </span> 68/push 0/imm32/next +<span id="L37425" class="LineNr">37425 </span> 52/push-edx/var2 +<span id="L37426" class="LineNr">37426 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37427" class="LineNr">37427 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37428" class="LineNr">37428 </span> 89/<- %esi 4/r32/esp +<span id="L37429" class="LineNr">37429 </span><span class="Constant">$test-add-reg-to-reg:initialize-outputs</span>: +<span id="L37430" class="LineNr">37430 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> +<span id="L37431" class="LineNr">37431 </span> 68/push 0/imm32/is-deref:false +<span id="L37432" class="LineNr">37432 </span> 68/push 0/imm32/next +<span id="L37433" class="LineNr">37433 </span> 68/push 0/imm32/next +<span id="L37434" class="LineNr">37434 </span> 51/push-ecx/var1 +<span id="L37435" class="LineNr">37435 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37436" class="LineNr">37436 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37437" class="LineNr">37437 </span> 89/<- %edi 4/r32/esp +<span id="L37438" class="LineNr">37438 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt</span>: +<span id="L37439" class="LineNr">37439 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37440" class="LineNr">37440 </span> 68/push 0/imm32/next +<span id="L37441" class="LineNr">37441 </span> 68/push 0/imm32/next +<span id="L37442" class="LineNr">37442 </span> 57/push-edi/outputs +<span id="L37443" class="LineNr">37443 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37444" class="LineNr">37444 </span> 56/push-esi/inouts +<span id="L37445" class="LineNr">37445 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37446" class="LineNr">37446 </span> 68/push 0/imm32/operation +<span id="L37447" class="LineNr">37447 </span> 68/push 0/imm32/operation +<span id="L37448" class="LineNr">37448 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37449" class="LineNr">37449 </span> 89/<- %esi 4/r32/esp +<span id="L37450" class="LineNr">37450 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt-operation</span>: +<span id="L37451" class="LineNr">37451 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L37452" class="LineNr">37452 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37453" class="LineNr">37453 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) +<span id="L37454" class="LineNr">37454 </span> <span class="subxComment"># convert</span> +<span id="L37455" class="LineNr">37455 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L37456" class="LineNr">37456 </span> (<a href='mu.subx.html#L28855'>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#L30722'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37457" class="LineNr">37457 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37458" class="Folded">37458 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37464" class="LineNr">37464 </span> <span class="subxComment"># check output</span> +<span id="L37465" class="LineNr">37465 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"01/add-to %eax 0x00000001/r32"</span> <span class="Constant">"F - test-add-reg-to-reg"</span>) +<span id="L37466" class="LineNr">37466 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37467" class="LineNr">37467 </span> 89/<- %esp 5/r32/ebp +<span id="L37468" class="LineNr">37468 </span> 5d/pop-to-ebp +<span id="L37469" class="LineNr">37469 </span> c3/return +<span id="L37470" class="LineNr">37470 </span> +<span id="L37471" class="LineNr">37471 </span><span class="subxTest">test-add-reg-to-mem</span>: +<span id="L37472" class="LineNr">37472 </span> <span class="subxComment"># add-to var1 var2/reg</span> +<span id="L37473" class="LineNr">37473 </span> <span class="subxComment"># =></span> +<span id="L37474" class="LineNr">37474 </span> <span class="subxComment"># 01/add-to *(ebp+__) var2</span> +<span id="L37475" class="LineNr">37475 </span> <span class="subxComment">#</span> +<span id="L37476" class="LineNr">37476 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37477" class="LineNr">37477 </span> 55/push-ebp +<span id="L37478" class="LineNr">37478 </span> 89/<- %ebp 4/r32/esp +<span id="L37479" class="LineNr">37479 </span> <span class="subxComment"># setup</span> +<span id="L37480" class="LineNr">37480 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37481" class="LineNr">37481 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37482" class="LineNr">37482 </span><span class="Constant">$test-add-reg-to-mem:initialize-type</span>: +<span id="L37483" class="LineNr">37483 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37484" class="LineNr">37484 </span> 68/push 0/imm32/right:null +<span id="L37485" class="LineNr">37485 </span> 68/push 0/imm32/right:null +<span id="L37486" class="LineNr">37486 </span> 68/push 0/imm32/left:unused +<span id="L37487" class="LineNr">37487 </span> 68/push 1/imm32/value:int +<span id="L37488" class="LineNr">37488 </span> 68/push 1/imm32/is-atom?:true +<span id="L37489" class="LineNr">37489 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37490" class="LineNr">37490 </span> 89/<- %ecx 4/r32/esp +<span id="L37491" class="LineNr">37491 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1</span>: +<span id="L37492" class="LineNr">37492 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37493" class="LineNr">37493 </span> 68/push 0/imm32/register +<span id="L37494" class="LineNr">37494 </span> 68/push 0/imm32/register +<span id="L37495" class="LineNr">37495 </span> 68/push 8/imm32/stack-offset +<span id="L37496" class="LineNr">37496 </span> 68/push 1/imm32/block-depth +<span id="L37497" class="LineNr">37497 </span> 51/push-ecx +<span id="L37498" class="LineNr">37498 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37499" class="LineNr">37499 </span> 68/push 0/imm32/name +<span id="L37500" class="LineNr">37500 </span> 68/push 0/imm32/name +<span id="L37501" class="LineNr">37501 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37502" class="LineNr">37502 </span> 89/<- %ecx 4/r32/esp +<span id="L37503" class="LineNr">37503 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1-name</span>: +<span id="L37504" class="LineNr">37504 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L37505" class="LineNr">37505 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37506" class="LineNr">37506 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L37507" class="LineNr">37507 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2</span>: +<span id="L37508" class="LineNr">37508 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L37509" class="LineNr">37509 </span> 68/push 0/imm32/register +<span id="L37510" class="LineNr">37510 </span> 68/push 0/imm32/register +<span id="L37511" class="LineNr">37511 </span> 68/push 0/imm32/no-stack-offset +<span id="L37512" class="LineNr">37512 </span> 68/push 1/imm32/block-depth +<span id="L37513" class="LineNr">37513 </span> ff 6/subop/push *(ecx+0x10) +<span id="L37514" class="LineNr">37514 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37515" class="LineNr">37515 </span> 68/push 0/imm32/name +<span id="L37516" class="LineNr">37516 </span> 68/push 0/imm32/name +<span id="L37517" class="LineNr">37517 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37518" class="LineNr">37518 </span> 89/<- %edx 4/r32/esp +<span id="L37519" class="LineNr">37519 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-name</span>: +<span id="L37520" class="LineNr">37520 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L37521" class="LineNr">37521 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37522" class="LineNr">37522 </span> (<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="L37523" class="LineNr">37523 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-register</span>: +<span id="L37524" class="LineNr">37524 </span> <span class="subxComment"># var2->register = "ecx"</span> +<span id="L37525" class="LineNr">37525 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37526" class="LineNr">37526 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L37527" class="LineNr">37527 </span><span class="Constant">$test-add-reg-to-mem:initialize-inouts</span>: +<span id="L37528" class="LineNr">37528 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L37529" class="LineNr">37529 </span> 68/push 0/imm32/is-deref:false +<span id="L37530" class="LineNr">37530 </span> 68/push 0/imm32/next +<span id="L37531" class="LineNr">37531 </span> 68/push 0/imm32/next +<span id="L37532" class="LineNr">37532 </span> 52/push-edx/var2 +<span id="L37533" class="LineNr">37533 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37534" class="LineNr">37534 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37535" class="LineNr">37535 </span> 89/<- %esi 4/r32/esp +<span id="L37536" class="LineNr">37536 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L37537" class="LineNr">37537 </span> 68/push 0/imm32/is-deref:false +<span id="L37538" class="LineNr">37538 </span> 56/push-esi/next +<span id="L37539" class="LineNr">37539 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37540" class="LineNr">37540 </span> 51/push-ecx/var1 +<span id="L37541" class="LineNr">37541 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37542" class="LineNr">37542 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37543" class="LineNr">37543 </span> 89/<- %esi 4/r32/esp +<span id="L37544" class="LineNr">37544 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt</span>: +<span id="L37545" class="LineNr">37545 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37546" class="LineNr">37546 </span> 68/push 0/imm32/next +<span id="L37547" class="LineNr">37547 </span> 68/push 0/imm32/next +<span id="L37548" class="LineNr">37548 </span> 68/push 0/imm32/outputs +<span id="L37549" class="LineNr">37549 </span> 68/push 0/imm32/outputs +<span id="L37550" class="LineNr">37550 </span> 56/push-esi/inouts +<span id="L37551" class="LineNr">37551 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37552" class="LineNr">37552 </span> 68/push 0/imm32/operation +<span id="L37553" class="LineNr">37553 </span> 68/push 0/imm32/operation +<span id="L37554" class="LineNr">37554 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37555" class="LineNr">37555 </span> 89/<- %esi 4/r32/esp +<span id="L37556" class="LineNr">37556 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt-operation</span>: +<span id="L37557" class="LineNr">37557 </span> <span class="subxComment"># stmt->operation = "add-to"</span> +<span id="L37558" class="LineNr">37558 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37559" class="LineNr">37559 </span> (<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="L37560" class="LineNr">37560 </span> <span class="subxComment"># convert</span> +<span id="L37561" class="LineNr">37561 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L37562" class="LineNr">37562 </span> (<a href='mu.subx.html#L28855'>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#L30722'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37563" class="LineNr">37563 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37564" class="Folded">37564 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37570" class="LineNr">37570 </span> <span class="subxComment"># check output</span> +<span id="L37571" class="LineNr">37571 </span> (<a href='109stream-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="L37572" class="LineNr">37572 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37573" class="LineNr">37573 </span> 89/<- %esp 5/r32/ebp +<span id="L37574" class="LineNr">37574 </span> 5d/pop-to-ebp +<span id="L37575" class="LineNr">37575 </span> c3/return +<span id="L37576" class="LineNr">37576 </span> +<span id="L37577" class="LineNr">37577 </span><span class="subxTest">test-add-mem-to-reg</span>: +<span id="L37578" class="LineNr">37578 </span> <span class="subxComment"># var1/reg <- add var2</span> +<span id="L37579" class="LineNr">37579 </span> <span class="subxComment"># =></span> +<span id="L37580" class="LineNr">37580 </span> <span class="subxComment"># 03/add *(ebp+__) var1</span> +<span id="L37581" class="LineNr">37581 </span> <span class="subxComment">#</span> +<span id="L37582" class="LineNr">37582 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37583" class="LineNr">37583 </span> 55/push-ebp +<span id="L37584" class="LineNr">37584 </span> 89/<- %ebp 4/r32/esp +<span id="L37585" class="LineNr">37585 </span> <span class="subxComment"># setup</span> +<span id="L37586" class="LineNr">37586 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37587" class="LineNr">37587 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37588" class="LineNr">37588 </span><span class="Constant">$test-add-mem-to-reg:initialize-type</span>: +<span id="L37589" class="LineNr">37589 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37590" class="LineNr">37590 </span> 68/push 0/imm32/right:null +<span id="L37591" class="LineNr">37591 </span> 68/push 0/imm32/right:null +<span id="L37592" class="LineNr">37592 </span> 68/push 0/imm32/left:unused +<span id="L37593" class="LineNr">37593 </span> 68/push 1/imm32/value:int +<span id="L37594" class="LineNr">37594 </span> 68/push 1/imm32/is-atom?:true +<span id="L37595" class="LineNr">37595 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37596" class="LineNr">37596 </span> 89/<- %ecx 4/r32/esp +<span id="L37597" class="LineNr">37597 </span><span class="Constant">$test-add-mem-to-reg:initialize-var</span>: +<span id="L37598" class="LineNr">37598 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37599" class="LineNr">37599 </span> 68/push 0/imm32/register +<span id="L37600" class="LineNr">37600 </span> 68/push 0/imm32/register +<span id="L37601" class="LineNr">37601 </span> 68/push 0/imm32/no-stack-offset +<span id="L37602" class="LineNr">37602 </span> 68/push 1/imm32/block-depth +<span id="L37603" class="LineNr">37603 </span> 51/push-ecx +<span id="L37604" class="LineNr">37604 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37605" class="LineNr">37605 </span> 68/push 0/imm32/name +<span id="L37606" class="LineNr">37606 </span> 68/push 0/imm32/name +<span id="L37607" class="LineNr">37607 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37608" class="LineNr">37608 </span> 89/<- %ecx 4/r32/esp +<span id="L37609" class="LineNr">37609 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-name</span>: +<span id="L37610" class="LineNr">37610 </span> <span class="subxComment"># var1->name = "foo"</span> +<span id="L37611" class="LineNr">37611 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37612" class="LineNr">37612 </span> (<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="L37613" class="LineNr">37613 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-register</span>: +<span id="L37614" class="LineNr">37614 </span> <span class="subxComment"># var1->register = "eax"</span> +<span id="L37615" class="LineNr">37615 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37616" class="LineNr">37616 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L37617" class="LineNr">37617 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2</span>: +<span id="L37618" class="LineNr">37618 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L37619" class="LineNr">37619 </span> 68/push 0/imm32/register +<span id="L37620" class="LineNr">37620 </span> 68/push 0/imm32/register +<span id="L37621" class="LineNr">37621 </span> 68/push 8/imm32/stack-offset +<span id="L37622" class="LineNr">37622 </span> 68/push 1/imm32/block-depth +<span id="L37623" class="LineNr">37623 </span> ff 6/subop/push *(ecx+0x10) <span id="L37624" class="LineNr">37624 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37625" class="LineNr">37625 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37626" class="LineNr">37626 </span> 89/<- %edi 4/r32/esp -<span id="L37627" class="LineNr">37627 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt</span>: -<span id="L37628" class="LineNr">37628 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37629" class="LineNr">37629 </span> 68/push 0/imm32/next -<span id="L37630" class="LineNr">37630 </span> 68/push 0/imm32/next -<span id="L37631" class="LineNr">37631 </span> 57/push-edi/outputs -<span id="L37632" class="LineNr">37632 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37633" class="LineNr">37633 </span> 56/push-esi/inouts -<span id="L37634" class="LineNr">37634 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37635" class="LineNr">37635 </span> 68/push 0/imm32/operation -<span id="L37636" class="LineNr">37636 </span> 68/push 0/imm32/operation -<span id="L37637" class="LineNr">37637 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37638" class="LineNr">37638 </span> 89/<- %esi 4/r32/esp -<span id="L37639" class="LineNr">37639 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt-operation</span>: -<span id="L37640" class="LineNr">37640 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L37641" class="LineNr">37641 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37642" class="LineNr">37642 </span> (<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="L37643" class="LineNr">37643 </span> <span class="subxComment"># convert</span> -<span id="L37644" class="LineNr">37644 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L37645" class="LineNr">37645 </span> (<a href='mu.subx.html#L28680'>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#L30469'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37646" class="LineNr">37646 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37647" class="Folded">37647 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37653" class="LineNr">37653 </span> <span class="subxComment"># check output</span> -<span id="L37654" class="LineNr">37654 </span> (<a href='109stream-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="L37655" class="LineNr">37655 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37656" class="LineNr">37656 </span> 89/<- %esp 5/r32/ebp -<span id="L37657" class="LineNr">37657 </span> 5d/pop-to-ebp -<span id="L37658" class="LineNr">37658 </span> c3/return -<span id="L37659" class="LineNr">37659 </span> -<span id="L37660" class="LineNr">37660 </span><span class="subxTest">test-add-literal-to-mem</span>: -<span id="L37661" class="LineNr">37661 </span> <span class="subxComment"># add-to var1, 0x34</span> -<span id="L37662" class="LineNr">37662 </span> <span class="subxComment"># =></span> -<span id="L37663" class="LineNr">37663 </span> <span class="subxComment"># 81 0/subop/add %eax 0x34/imm32</span> -<span id="L37664" class="LineNr">37664 </span> <span class="subxComment">#</span> -<span id="L37665" class="LineNr">37665 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37666" class="LineNr">37666 </span> 55/push-ebp -<span id="L37667" class="LineNr">37667 </span> 89/<- %ebp 4/r32/esp -<span id="L37668" class="LineNr">37668 </span> <span class="subxComment"># setup</span> -<span id="L37669" class="LineNr">37669 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37670" class="LineNr">37670 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37671" class="LineNr">37671 </span><span class="Constant">$test-add-literal-to-mem:initialize-type</span>: -<span id="L37672" class="LineNr">37672 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37673" class="LineNr">37673 </span> 68/push 0/imm32/right:null -<span id="L37674" class="LineNr">37674 </span> 68/push 0/imm32/right:null -<span id="L37675" class="LineNr">37675 </span> 68/push 0/imm32/left:unused -<span id="L37676" class="LineNr">37676 </span> 68/push 1/imm32/value:int -<span id="L37677" class="LineNr">37677 </span> 68/push 1/imm32/is-atom?:true -<span id="L37678" class="LineNr">37678 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37679" class="LineNr">37679 </span> 89/<- %ecx 4/r32/esp -<span id="L37680" class="LineNr">37680 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1</span>: -<span id="L37681" class="LineNr">37681 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37682" class="LineNr">37682 </span> 68/push 0/imm32/register -<span id="L37683" class="LineNr">37683 </span> 68/push 0/imm32/register -<span id="L37684" class="LineNr">37684 </span> 68/push 8/imm32/stack-offset -<span id="L37685" class="LineNr">37685 </span> 68/push 1/imm32/block-depth -<span id="L37686" class="LineNr">37686 </span> 51/push-ecx -<span id="L37687" class="LineNr">37687 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37688" class="LineNr">37688 </span> 68/push 0/imm32/name -<span id="L37689" class="LineNr">37689 </span> 68/push 0/imm32/name -<span id="L37690" class="LineNr">37690 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37691" class="LineNr">37691 </span> 89/<- %ecx 4/r32/esp -<span id="L37692" class="LineNr">37692 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1-name</span>: -<span id="L37693" class="LineNr">37693 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37694" class="LineNr">37694 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37695" class="LineNr">37695 </span> (<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="L37696" class="LineNr">37696 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-type</span>: -<span id="L37697" class="LineNr">37697 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37625" class="LineNr">37625 </span> 68/push 0/imm32/name +<span id="L37626" class="LineNr">37626 </span> 68/push 0/imm32/name +<span id="L37627" class="LineNr">37627 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37628" class="LineNr">37628 </span> 89/<- %edx 4/r32/esp +<span id="L37629" class="LineNr">37629 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2-name</span>: +<span id="L37630" class="LineNr">37630 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L37631" class="LineNr">37631 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37632" class="LineNr">37632 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L37633" class="LineNr">37633 </span><span class="Constant">$test-add-mem-to-reg:initialize-inouts</span>: +<span id="L37634" class="LineNr">37634 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L37635" class="LineNr">37635 </span> 68/push 0/imm32/is-deref:false +<span id="L37636" class="LineNr">37636 </span> 68/push 0/imm32/next +<span id="L37637" class="LineNr">37637 </span> 68/push 0/imm32/next +<span id="L37638" class="LineNr">37638 </span> 52/push-edx/var2 +<span id="L37639" class="LineNr">37639 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37640" class="LineNr">37640 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37641" class="LineNr">37641 </span> 89/<- %esi 4/r32/esp +<span id="L37642" class="LineNr">37642 </span><span class="Constant">$test-add-mem-to-reg:initialize-outputs</span>: +<span id="L37643" class="LineNr">37643 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> +<span id="L37644" class="LineNr">37644 </span> 68/push 0/imm32/is-deref:false +<span id="L37645" class="LineNr">37645 </span> 68/push 0/imm32/next +<span id="L37646" class="LineNr">37646 </span> 68/push 0/imm32/next +<span id="L37647" class="LineNr">37647 </span> 51/push-ecx/var1 +<span id="L37648" class="LineNr">37648 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37649" class="LineNr">37649 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37650" class="LineNr">37650 </span> 89/<- %edi 4/r32/esp +<span id="L37651" class="LineNr">37651 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt</span>: +<span id="L37652" class="LineNr">37652 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37653" class="LineNr">37653 </span> 68/push 0/imm32/next +<span id="L37654" class="LineNr">37654 </span> 68/push 0/imm32/next +<span id="L37655" class="LineNr">37655 </span> 57/push-edi/outputs +<span id="L37656" class="LineNr">37656 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37657" class="LineNr">37657 </span> 56/push-esi/inouts +<span id="L37658" class="LineNr">37658 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37659" class="LineNr">37659 </span> 68/push 0/imm32/operation +<span id="L37660" class="LineNr">37660 </span> 68/push 0/imm32/operation +<span id="L37661" class="LineNr">37661 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37662" class="LineNr">37662 </span> 89/<- %esi 4/r32/esp +<span id="L37663" class="LineNr">37663 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt-operation</span>: +<span id="L37664" class="LineNr">37664 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L37665" class="LineNr">37665 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37666" class="LineNr">37666 </span> (<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="L37667" class="LineNr">37667 </span> <span class="subxComment"># convert</span> +<span id="L37668" class="LineNr">37668 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L37669" class="LineNr">37669 </span> (<a href='mu.subx.html#L28855'>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#L30722'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37670" class="LineNr">37670 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37671" class="Folded">37671 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37677" class="LineNr">37677 </span> <span class="subxComment"># check output</span> +<span id="L37678" class="LineNr">37678 </span> (<a href='109stream-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="L37679" class="LineNr">37679 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37680" class="LineNr">37680 </span> 89/<- %esp 5/r32/ebp +<span id="L37681" class="LineNr">37681 </span> 5d/pop-to-ebp +<span id="L37682" class="LineNr">37682 </span> c3/return +<span id="L37683" class="LineNr">37683 </span> +<span id="L37684" class="LineNr">37684 </span><span class="subxTest">test-add-literal-to-eax</span>: +<span id="L37685" class="LineNr">37685 </span> <span class="subxComment"># var1/eax <- add 0x34</span> +<span id="L37686" class="LineNr">37686 </span> <span class="subxComment"># =></span> +<span id="L37687" class="LineNr">37687 </span> <span class="subxComment"># 05/add-to-eax 0x34/imm32</span> +<span id="L37688" class="LineNr">37688 </span> <span class="subxComment">#</span> +<span id="L37689" class="LineNr">37689 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37690" class="LineNr">37690 </span> 55/push-ebp +<span id="L37691" class="LineNr">37691 </span> 89/<- %ebp 4/r32/esp +<span id="L37692" class="LineNr">37692 </span> <span class="subxComment"># setup</span> +<span id="L37693" class="LineNr">37693 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37694" class="LineNr">37694 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37695" class="LineNr">37695 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-type</span>: +<span id="L37696" class="LineNr">37696 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37697" class="LineNr">37697 </span> 68/push 0/imm32/right:null <span id="L37698" class="LineNr">37698 </span> 68/push 0/imm32/right:null -<span id="L37699" class="LineNr">37699 </span> 68/push 0/imm32/right:null -<span id="L37700" class="LineNr">37700 </span> 68/push 0/imm32/left:unused -<span id="L37701" class="LineNr">37701 </span> 68/push 0/imm32/value:literal -<span id="L37702" class="LineNr">37702 </span> 68/push 1/imm32/is-atom?:true -<span id="L37703" class="LineNr">37703 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37704" class="LineNr">37704 </span> 89/<- %edx 4/r32/esp -<span id="L37705" class="LineNr">37705 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal</span>: -<span id="L37706" class="LineNr">37706 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37699" class="LineNr">37699 </span> 68/push 0/imm32/left:unused +<span id="L37700" class="LineNr">37700 </span> 68/push 1/imm32/value:int +<span id="L37701" class="LineNr">37701 </span> 68/push 1/imm32/is-atom?:true +<span id="L37702" class="LineNr">37702 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37703" class="LineNr">37703 </span> 89/<- %ecx 4/r32/esp +<span id="L37704" class="LineNr">37704 </span><span class="Constant">$test-add-literal-to-eax:initialize-var</span>: +<span id="L37705" class="LineNr">37705 </span> <span class="subxComment"># var v/ecx: (payload var)</span> +<span id="L37706" class="LineNr">37706 </span> 68/push 0/imm32/register <span id="L37707" class="LineNr">37707 </span> 68/push 0/imm32/register -<span id="L37708" class="LineNr">37708 </span> 68/push 0/imm32/register -<span id="L37709" class="LineNr">37709 </span> 68/push 0/imm32/no-stack-offset -<span id="L37710" class="LineNr">37710 </span> 68/push 1/imm32/block-depth -<span id="L37711" class="LineNr">37711 </span> 52/push-edx -<span id="L37712" class="LineNr">37712 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37708" class="LineNr">37708 </span> 68/push 0/imm32/no-stack-offset +<span id="L37709" class="LineNr">37709 </span> 68/push 1/imm32/block-depth +<span id="L37710" class="LineNr">37710 </span> 51/push-ecx +<span id="L37711" class="LineNr">37711 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37712" class="LineNr">37712 </span> 68/push 0/imm32/name <span id="L37713" class="LineNr">37713 </span> 68/push 0/imm32/name -<span id="L37714" class="LineNr">37714 </span> 68/push 0/imm32/name -<span id="L37715" class="LineNr">37715 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37716" class="LineNr">37716 </span> 89/<- %edx 4/r32/esp -<span id="L37717" class="LineNr">37717 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-value</span>: -<span id="L37718" class="LineNr">37718 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L37719" class="LineNr">37719 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37720" class="LineNr">37720 </span> (<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="L37721" class="LineNr">37721 </span><span class="Constant">$test-add-literal-to-mem:initialize-inouts</span>: -<span id="L37722" class="LineNr">37722 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L37723" class="LineNr">37723 </span> 68/push 0/imm32/is-deref:false -<span id="L37724" class="LineNr">37724 </span> 68/push 0/imm32/next -<span id="L37725" class="LineNr">37725 </span> 68/push 0/imm32/next -<span id="L37726" class="LineNr">37726 </span> 52/push-edx/l -<span id="L37727" class="LineNr">37727 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37728" class="LineNr">37728 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37729" class="LineNr">37729 </span> 89/<- %esi 4/r32/esp -<span id="L37730" class="LineNr">37730 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L37731" class="LineNr">37731 </span> 68/push 0/imm32/is-deref:false -<span id="L37732" class="LineNr">37732 </span> 56/push-esi/next -<span id="L37733" class="LineNr">37733 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37734" class="LineNr">37734 </span> 51/push-ecx/var1 -<span id="L37735" class="LineNr">37735 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37736" class="LineNr">37736 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37737" class="LineNr">37737 </span> 89/<- %esi 4/r32/esp -<span id="L37738" class="LineNr">37738 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt</span>: -<span id="L37739" class="LineNr">37739 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37740" class="LineNr">37740 </span> 68/push 0/imm32/next -<span id="L37741" class="LineNr">37741 </span> 68/push 0/imm32/next -<span id="L37742" class="LineNr">37742 </span> 68/push 0/imm32/outputs -<span id="L37743" class="LineNr">37743 </span> 68/push 0/imm32/outputs -<span id="L37744" class="LineNr">37744 </span> 56/push-esi/inouts -<span id="L37745" class="LineNr">37745 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37746" class="LineNr">37746 </span> 68/push 0/imm32/operation -<span id="L37747" class="LineNr">37747 </span> 68/push 0/imm32/operation -<span id="L37748" class="LineNr">37748 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37749" class="LineNr">37749 </span> 89/<- %esi 4/r32/esp -<span id="L37750" class="LineNr">37750 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt-operation</span>: -<span id="L37751" class="LineNr">37751 </span> <span class="subxComment"># stmt->operation = "add-to"</span> -<span id="L37752" class="LineNr">37752 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37753" class="LineNr">37753 </span> (<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="L37754" class="LineNr">37754 </span> <span class="subxComment"># convert</span> -<span id="L37755" class="LineNr">37755 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L37756" class="LineNr">37756 </span> (<a href='mu.subx.html#L28680'>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#L30469'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37757" class="LineNr">37757 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37758" class="Folded">37758 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37764" class="LineNr">37764 </span> <span class="subxComment"># check output</span> -<span id="L37765" class="LineNr">37765 </span> (<a href='109stream-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="L37766" class="LineNr">37766 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37767" class="LineNr">37767 </span> 89/<- %esp 5/r32/ebp -<span id="L37768" class="LineNr">37768 </span> 5d/pop-to-ebp -<span id="L37769" class="LineNr">37769 </span> c3/return -<span id="L37770" class="LineNr">37770 </span> -<span id="L37771" class="LineNr">37771 </span><span class="subxTest">test-shift-reg-by-literal</span>: -<span id="L37772" class="LineNr">37772 </span> <span class="subxComment"># var1/ecx <- shift-left 2</span> -<span id="L37773" class="LineNr">37773 </span> <span class="subxComment"># =></span> -<span id="L37774" class="LineNr">37774 </span> <span class="subxComment"># c1/shift 4/subop/left %ecx 2/imm8</span> -<span id="L37775" class="LineNr">37775 </span> <span class="subxComment">#</span> -<span id="L37776" class="LineNr">37776 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37777" class="LineNr">37777 </span> 55/push-ebp -<span id="L37778" class="LineNr">37778 </span> 89/<- %ebp 4/r32/esp -<span id="L37779" class="LineNr">37779 </span> <span class="subxComment"># setup</span> -<span id="L37780" class="LineNr">37780 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37781" class="LineNr">37781 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37782" class="LineNr">37782 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-type</span>: -<span id="L37783" class="LineNr">37783 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37784" class="LineNr">37784 </span> 68/push 0/imm32/right:null -<span id="L37785" class="LineNr">37785 </span> 68/push 0/imm32/right:null -<span id="L37786" class="LineNr">37786 </span> 68/push 0/imm32/left:unused -<span id="L37787" class="LineNr">37787 </span> 68/push 1/imm32/value:int -<span id="L37788" class="LineNr">37788 </span> 68/push 1/imm32/is-atom?:true -<span id="L37789" class="LineNr">37789 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37790" class="LineNr">37790 </span> 89/<- %ecx 4/r32/esp -<span id="L37791" class="LineNr">37791 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var</span>: -<span id="L37792" class="LineNr">37792 </span> <span class="subxComment"># var v/ecx: (payload var)</span> -<span id="L37793" class="LineNr">37793 </span> 68/push 0/imm32/register -<span id="L37794" class="LineNr">37794 </span> 68/push 0/imm32/register -<span id="L37795" class="LineNr">37795 </span> 68/push 0/imm32/no-stack-offset -<span id="L37796" class="LineNr">37796 </span> 68/push 1/imm32/block-depth -<span id="L37797" class="LineNr">37797 </span> 51/push-ecx -<span id="L37798" class="LineNr">37798 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37799" class="LineNr">37799 </span> 68/push 0/imm32/name -<span id="L37800" class="LineNr">37800 </span> 68/push 0/imm32/name -<span id="L37801" class="LineNr">37801 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37802" class="LineNr">37802 </span> 89/<- %ecx 4/r32/esp -<span id="L37803" class="LineNr">37803 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-name</span>: -<span id="L37804" class="LineNr">37804 </span> <span class="subxComment"># v->name = "v"</span> -<span id="L37805" class="LineNr">37805 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37806" class="LineNr">37806 </span> (<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="L37807" class="LineNr">37807 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-register</span>: -<span id="L37808" class="LineNr">37808 </span> <span class="subxComment"># v->register = "ecx"</span> -<span id="L37809" class="LineNr">37809 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37810" class="LineNr">37810 </span> (<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="L37811" class="LineNr">37811 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-type</span>: -<span id="L37812" class="LineNr">37812 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37714" class="LineNr">37714 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37715" class="LineNr">37715 </span> 89/<- %ecx 4/r32/esp +<span id="L37716" class="LineNr">37716 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-name</span>: +<span id="L37717" class="LineNr">37717 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L37718" class="LineNr">37718 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37719" class="LineNr">37719 </span> (<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="L37720" class="LineNr">37720 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-register</span>: +<span id="L37721" class="LineNr">37721 </span> <span class="subxComment"># v->register = "eax"</span> +<span id="L37722" class="LineNr">37722 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37723" class="LineNr">37723 </span> (<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="L37724" class="LineNr">37724 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-type</span>: +<span id="L37725" class="LineNr">37725 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37726" class="LineNr">37726 </span> 68/push 0/imm32/right:null +<span id="L37727" class="LineNr">37727 </span> 68/push 0/imm32/right:null +<span id="L37728" class="LineNr">37728 </span> 68/push 0/imm32/left:unused +<span id="L37729" class="LineNr">37729 </span> 68/push 0/imm32/value:literal +<span id="L37730" class="LineNr">37730 </span> 68/push 1/imm32/is-atom?:true +<span id="L37731" class="LineNr">37731 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37732" class="LineNr">37732 </span> 89/<- %edx 4/r32/esp +<span id="L37733" class="LineNr">37733 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal</span>: +<span id="L37734" class="LineNr">37734 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37735" class="LineNr">37735 </span> 68/push 0/imm32/register +<span id="L37736" class="LineNr">37736 </span> 68/push 0/imm32/register +<span id="L37737" class="LineNr">37737 </span> 68/push 0/imm32/no-stack-offset +<span id="L37738" class="LineNr">37738 </span> 68/push 1/imm32/block-depth +<span id="L37739" class="LineNr">37739 </span> 52/push-edx +<span id="L37740" class="LineNr">37740 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37741" class="LineNr">37741 </span> 68/push 0/imm32/name +<span id="L37742" class="LineNr">37742 </span> 68/push 0/imm32/name +<span id="L37743" class="LineNr">37743 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37744" class="LineNr">37744 </span> 89/<- %edx 4/r32/esp +<span id="L37745" class="LineNr">37745 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-value</span>: +<span id="L37746" class="LineNr">37746 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L37747" class="LineNr">37747 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37748" class="LineNr">37748 </span> (<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="L37749" class="LineNr">37749 </span><span class="Constant">$test-add-literal-to-eax:initialize-inouts</span>: +<span id="L37750" class="LineNr">37750 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L37751" class="LineNr">37751 </span> 68/push 0/imm32/is-deref:false +<span id="L37752" class="LineNr">37752 </span> 68/push 0/imm32/next +<span id="L37753" class="LineNr">37753 </span> 68/push 0/imm32/next +<span id="L37754" class="LineNr">37754 </span> 52/push-edx/l +<span id="L37755" class="LineNr">37755 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37756" class="LineNr">37756 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37757" class="LineNr">37757 </span> 89/<- %esi 4/r32/esp +<span id="L37758" class="LineNr">37758 </span><span class="Constant">$test-add-literal-to-eax:initialize-outputs</span>: +<span id="L37759" class="LineNr">37759 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L37760" class="LineNr">37760 </span> 68/push 0/imm32/is-deref:false +<span id="L37761" class="LineNr">37761 </span> 68/push 0/imm32/next +<span id="L37762" class="LineNr">37762 </span> 68/push 0/imm32/next +<span id="L37763" class="LineNr">37763 </span> 51/push-ecx/v +<span id="L37764" class="LineNr">37764 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37765" class="LineNr">37765 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37766" class="LineNr">37766 </span> 89/<- %edi 4/r32/esp +<span id="L37767" class="LineNr">37767 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt</span>: +<span id="L37768" class="LineNr">37768 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37769" class="LineNr">37769 </span> 68/push 0/imm32/next +<span id="L37770" class="LineNr">37770 </span> 68/push 0/imm32/next +<span id="L37771" class="LineNr">37771 </span> 57/push-edi/outputs +<span id="L37772" class="LineNr">37772 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37773" class="LineNr">37773 </span> 56/push-esi/inouts +<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/operation +<span id="L37776" class="LineNr">37776 </span> 68/push 0/imm32/operation +<span id="L37777" class="LineNr">37777 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37778" class="LineNr">37778 </span> 89/<- %esi 4/r32/esp +<span id="L37779" class="LineNr">37779 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt-operation</span>: +<span id="L37780" class="LineNr">37780 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L37781" class="LineNr">37781 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</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">"add"</span> %eax) +<span id="L37783" class="LineNr">37783 </span> <span class="subxComment"># convert</span> +<span id="L37784" class="LineNr">37784 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L37785" class="LineNr">37785 </span> (<a href='mu.subx.html#L28855'>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#L30722'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37786" class="LineNr">37786 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37787" class="Folded">37787 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37793" class="LineNr">37793 </span> <span class="subxComment"># check output</span> +<span id="L37794" class="LineNr">37794 </span> (<a href='109stream-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="L37795" class="LineNr">37795 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37796" class="LineNr">37796 </span> 89/<- %esp 5/r32/ebp +<span id="L37797" class="LineNr">37797 </span> 5d/pop-to-ebp +<span id="L37798" class="LineNr">37798 </span> c3/return +<span id="L37799" class="LineNr">37799 </span> +<span id="L37800" class="LineNr">37800 </span><span class="subxTest">test-add-literal-to-reg</span>: +<span id="L37801" class="LineNr">37801 </span> <span class="subxComment"># var1/ecx <- add 0x34</span> +<span id="L37802" class="LineNr">37802 </span> <span class="subxComment"># =></span> +<span id="L37803" class="LineNr">37803 </span> <span class="subxComment"># 81 0/subop/add %ecx 0x34/imm32</span> +<span id="L37804" class="LineNr">37804 </span> <span class="subxComment">#</span> +<span id="L37805" class="LineNr">37805 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37806" class="LineNr">37806 </span> 55/push-ebp +<span id="L37807" class="LineNr">37807 </span> 89/<- %ebp 4/r32/esp +<span id="L37808" class="LineNr">37808 </span> <span class="subxComment"># setup</span> +<span id="L37809" class="LineNr">37809 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37810" class="LineNr">37810 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37811" class="LineNr">37811 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-type</span>: +<span id="L37812" class="LineNr">37812 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> <span id="L37813" class="LineNr">37813 </span> 68/push 0/imm32/right:null <span id="L37814" class="LineNr">37814 </span> 68/push 0/imm32/right:null <span id="L37815" class="LineNr">37815 </span> 68/push 0/imm32/left:unused -<span id="L37816" class="LineNr">37816 </span> 68/push 0/imm32/value:literal +<span id="L37816" class="LineNr">37816 </span> 68/push 1/imm32/value:int <span id="L37817" class="LineNr">37817 </span> 68/push 1/imm32/is-atom?:true <span id="L37818" class="LineNr">37818 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37819" class="LineNr">37819 </span> 89/<- %edx 4/r32/esp -<span id="L37820" class="LineNr">37820 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal</span>: -<span id="L37821" class="LineNr">37821 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37819" class="LineNr">37819 </span> 89/<- %ecx 4/r32/esp +<span id="L37820" class="LineNr">37820 </span><span class="Constant">$test-add-literal-to-reg:initialize-var</span>: +<span id="L37821" class="LineNr">37821 </span> <span class="subxComment"># var v/ecx: (payload var)</span> <span id="L37822" class="LineNr">37822 </span> 68/push 0/imm32/register <span id="L37823" class="LineNr">37823 </span> 68/push 0/imm32/register <span id="L37824" class="LineNr">37824 </span> 68/push 0/imm32/no-stack-offset <span id="L37825" class="LineNr">37825 </span> 68/push 1/imm32/block-depth -<span id="L37826" class="LineNr">37826 </span> 52/push-edx +<span id="L37826" class="LineNr">37826 </span> 51/push-ecx <span id="L37827" class="LineNr">37827 </span> 68/push 0x11/imm32/alloc-id:fake <span id="L37828" class="LineNr">37828 </span> 68/push 0/imm32/name <span id="L37829" class="LineNr">37829 </span> 68/push 0/imm32/name <span id="L37830" class="LineNr">37830 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37831" class="LineNr">37831 </span> 89/<- %edx 4/r32/esp -<span id="L37832" class="LineNr">37832 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-value</span>: -<span id="L37833" class="LineNr">37833 </span> <span class="subxComment"># l->name = "2"</span> -<span id="L37834" class="LineNr">37834 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37835" class="LineNr">37835 </span> (<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="L37836" class="LineNr">37836 </span><span class="Constant">$test-shift-reg-by-literal:initialize-inouts</span>: -<span id="L37837" class="LineNr">37837 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L37838" class="LineNr">37838 </span> 68/push 0/imm32/is-deref:false -<span id="L37839" class="LineNr">37839 </span> 68/push 0/imm32/next -<span id="L37840" class="LineNr">37840 </span> 68/push 0/imm32/next -<span id="L37841" class="LineNr">37841 </span> 52/push-edx/l -<span id="L37842" class="LineNr">37842 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37843" class="LineNr">37843 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37844" class="LineNr">37844 </span> 89/<- %esi 4/r32/esp -<span id="L37845" class="LineNr">37845 </span><span class="Constant">$test-shift-reg-by-literal:initialize-outputs</span>: -<span id="L37846" class="LineNr">37846 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> -<span id="L37847" class="LineNr">37847 </span> 68/push 0/imm32/is-deref:false -<span id="L37848" class="LineNr">37848 </span> 68/push 0/imm32/next -<span id="L37849" class="LineNr">37849 </span> 68/push 0/imm32/next -<span id="L37850" class="LineNr">37850 </span> 51/push-ecx/v -<span id="L37851" class="LineNr">37851 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37852" class="LineNr">37852 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37853" class="LineNr">37853 </span> 89/<- %edi 4/r32/esp -<span id="L37854" class="LineNr">37854 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt</span>: -<span id="L37855" class="LineNr">37855 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37856" class="LineNr">37856 </span> 68/push 0/imm32/next -<span id="L37857" class="LineNr">37857 </span> 68/push 0/imm32/next -<span id="L37858" class="LineNr">37858 </span> 57/push-edi/outputs -<span id="L37859" class="LineNr">37859 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37860" class="LineNr">37860 </span> 56/push-esi/inouts -<span id="L37861" class="LineNr">37861 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37862" class="LineNr">37862 </span> 68/push 0/imm32/operation -<span id="L37863" class="LineNr">37863 </span> 68/push 0/imm32/operation -<span id="L37864" class="LineNr">37864 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37865" class="LineNr">37865 </span> 89/<- %esi 4/r32/esp -<span id="L37866" class="LineNr">37866 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt-operation</span>: -<span id="L37867" class="LineNr">37867 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> -<span id="L37868" class="LineNr">37868 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37869" class="LineNr">37869 </span> (<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="L37870" class="LineNr">37870 </span> <span class="subxComment"># convert</span> -<span id="L37871" class="LineNr">37871 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L37872" class="LineNr">37872 </span> (<a href='mu.subx.html#L28680'>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#L30469'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37873" class="LineNr">37873 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37874" class="Folded">37874 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37880" class="LineNr">37880 </span> <span class="subxComment"># check output</span> -<span id="L37881" class="LineNr">37881 </span> (<a href='109stream-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="L37882" class="LineNr">37882 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37883" class="LineNr">37883 </span> 89/<- %esp 5/r32/ebp -<span id="L37884" class="LineNr">37884 </span> 5d/pop-to-ebp -<span id="L37885" class="LineNr">37885 </span> c3/return -<span id="L37886" class="LineNr">37886 </span> -<span id="L37887" class="LineNr">37887 </span><span class="subxTest">test-shift-mem-by-literal</span>: -<span id="L37888" class="LineNr">37888 </span> <span class="subxComment"># shift-left var 3</span> -<span id="L37889" class="LineNr">37889 </span> <span class="subxComment"># =></span> -<span id="L37890" class="LineNr">37890 </span> <span class="subxComment"># c1/shift 4/subop/left *(ebp+8) 3/imm8</span> -<span id="L37891" class="LineNr">37891 </span> <span class="subxComment">#</span> -<span id="L37892" class="LineNr">37892 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37893" class="LineNr">37893 </span> 55/push-ebp -<span id="L37894" class="LineNr">37894 </span> 89/<- %ebp 4/r32/esp -<span id="L37895" class="LineNr">37895 </span> <span class="subxComment"># setup</span> -<span id="L37896" class="LineNr">37896 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L37897" class="LineNr">37897 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37898" class="LineNr">37898 </span><span class="Constant">$test-shift-mem-by-literal:initialize-type</span>: -<span id="L37899" class="LineNr">37899 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37900" class="LineNr">37900 </span> 68/push 0/imm32/right:null -<span id="L37901" class="LineNr">37901 </span> 68/push 0/imm32/right:null -<span id="L37902" class="LineNr">37902 </span> 68/push 0/imm32/left:unused -<span id="L37903" class="LineNr">37903 </span> 68/push 1/imm32/value:int -<span id="L37904" class="LineNr">37904 </span> 68/push 1/imm32/is-atom?:true -<span id="L37905" class="LineNr">37905 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37906" class="LineNr">37906 </span> 89/<- %ecx 4/r32/esp -<span id="L37907" class="LineNr">37907 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1</span>: -<span id="L37908" class="LineNr">37908 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37909" class="LineNr">37909 </span> 68/push 0/imm32/register -<span id="L37910" class="LineNr">37910 </span> 68/push 0/imm32/register -<span id="L37911" class="LineNr">37911 </span> 68/push 8/imm32/stack-offset -<span id="L37912" class="LineNr">37912 </span> 68/push 1/imm32/block-depth -<span id="L37913" class="LineNr">37913 </span> 51/push-ecx -<span id="L37914" class="LineNr">37914 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37915" class="LineNr">37915 </span> 68/push 0/imm32/name -<span id="L37916" class="LineNr">37916 </span> 68/push 0/imm32/name -<span id="L37917" class="LineNr">37917 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37918" class="LineNr">37918 </span> 89/<- %ecx 4/r32/esp -<span id="L37919" class="LineNr">37919 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1-name</span>: -<span id="L37920" class="LineNr">37920 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37921" class="LineNr">37921 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37922" class="LineNr">37922 </span> (<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="L37923" class="LineNr">37923 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-type</span>: -<span id="L37924" class="LineNr">37924 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L37925" class="LineNr">37925 </span> 68/push 0/imm32/right:null -<span id="L37926" class="LineNr">37926 </span> 68/push 0/imm32/right:null -<span id="L37927" class="LineNr">37927 </span> 68/push 0/imm32/left:unused -<span id="L37928" class="LineNr">37928 </span> 68/push 0/imm32/value:literal -<span id="L37929" class="LineNr">37929 </span> 68/push 1/imm32/is-atom?:true -<span id="L37930" class="LineNr">37930 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37931" class="LineNr">37931 </span> 89/<- %edx 4/r32/esp -<span id="L37932" class="LineNr">37932 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal</span>: -<span id="L37933" class="LineNr">37933 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L37934" class="LineNr">37934 </span> 68/push 0/imm32/register -<span id="L37935" class="LineNr">37935 </span> 68/push 0/imm32/register -<span id="L37936" class="LineNr">37936 </span> 68/push 0/imm32/no-stack-offset -<span id="L37937" class="LineNr">37937 </span> 68/push 1/imm32/block-depth -<span id="L37938" class="LineNr">37938 </span> 52/push-edx -<span id="L37939" class="LineNr">37939 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37940" class="LineNr">37940 </span> 68/push 0/imm32/name -<span id="L37941" class="LineNr">37941 </span> 68/push 0/imm32/name -<span id="L37942" class="LineNr">37942 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37943" class="LineNr">37943 </span> 89/<- %edx 4/r32/esp -<span id="L37944" class="LineNr">37944 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-value</span>: -<span id="L37945" class="LineNr">37945 </span> <span class="subxComment"># l->name = "3"</span> -<span id="L37946" class="LineNr">37946 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37947" class="LineNr">37947 </span> (<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="L37948" class="LineNr">37948 </span><span class="Constant">$test-shift-mem-by-literal:initialize-inouts</span>: -<span id="L37949" class="LineNr">37949 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L37950" class="LineNr">37950 </span> 68/push 0/imm32/is-deref:false -<span id="L37951" class="LineNr">37951 </span> 68/push 0/imm32/next -<span id="L37952" class="LineNr">37952 </span> 68/push 0/imm32/next -<span id="L37953" class="LineNr">37953 </span> 52/push-edx/l -<span id="L37954" class="LineNr">37954 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37955" class="LineNr">37955 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37956" class="LineNr">37956 </span> 89/<- %esi 4/r32/esp -<span id="L37957" class="LineNr">37957 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L37958" class="LineNr">37958 </span> 68/push 0/imm32/is-deref:false -<span id="L37959" class="LineNr">37959 </span> 56/push-esi/next -<span id="L37960" class="LineNr">37960 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37961" class="LineNr">37961 </span> 51/push-ecx/var1 -<span id="L37962" class="LineNr">37962 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37963" class="LineNr">37963 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37964" class="LineNr">37964 </span> 89/<- %esi 4/r32/esp -<span id="L37965" class="LineNr">37965 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt</span>: -<span id="L37966" class="LineNr">37966 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37967" class="LineNr">37967 </span> 68/push 0/imm32/next -<span id="L37968" class="LineNr">37968 </span> 68/push 0/imm32/next -<span id="L37969" class="LineNr">37969 </span> 68/push 0/imm32/outputs -<span id="L37970" class="LineNr">37970 </span> 68/push 0/imm32/outputs -<span id="L37971" class="LineNr">37971 </span> 56/push-esi/inouts -<span id="L37972" class="LineNr">37972 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37973" class="LineNr">37973 </span> 68/push 0/imm32/operation -<span id="L37974" class="LineNr">37974 </span> 68/push 0/imm32/operation -<span id="L37975" class="LineNr">37975 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37976" class="LineNr">37976 </span> 89/<- %esi 4/r32/esp -<span id="L37977" class="LineNr">37977 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt-operation</span>: -<span id="L37978" class="LineNr">37978 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> -<span id="L37979" class="LineNr">37979 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37980" class="LineNr">37980 </span> (<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="L37981" class="LineNr">37981 </span> <span class="subxComment"># convert</span> -<span id="L37982" class="LineNr">37982 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L37983" class="LineNr">37983 </span> (<a href='mu.subx.html#L28680'>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#L30469'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37984" class="LineNr">37984 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L37985" class="Folded">37985 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37991" class="LineNr">37991 </span> <span class="subxComment"># check output</span> -<span id="L37992" class="LineNr">37992 </span> (<a href='109stream-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="L37993" class="LineNr">37993 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37994" class="LineNr">37994 </span> 89/<- %esp 5/r32/ebp -<span id="L37995" class="LineNr">37995 </span> 5d/pop-to-ebp -<span id="L37996" class="LineNr">37996 </span> c3/return -<span id="L37997" class="LineNr">37997 </span> -<span id="L37998" class="LineNr">37998 </span><span class="subxTest">test-compare-reg-with-reg</span>: -<span id="L37999" class="LineNr">37999 </span> <span class="subxComment"># compare var1/ecx, var2/eax</span> -<span id="L38000" class="LineNr">38000 </span> <span class="subxComment"># =></span> -<span id="L38001" class="LineNr">38001 </span> <span class="subxComment"># 39/compare %ecx 0/r32/eax</span> -<span id="L38002" class="LineNr">38002 </span> <span class="subxComment">#</span> -<span id="L38003" class="LineNr">38003 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38004" class="LineNr">38004 </span> 55/push-ebp -<span id="L38005" class="LineNr">38005 </span> 89/<- %ebp 4/r32/esp -<span id="L38006" class="LineNr">38006 </span> <span class="subxComment"># setup</span> -<span id="L38007" class="LineNr">38007 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L38008" class="LineNr">38008 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L38009" class="LineNr">38009 </span><span class="Constant">$test-compare-reg-with-reg:initialize-type</span>: -<span id="L38010" class="LineNr">38010 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L38011" class="LineNr">38011 </span> 68/push 0/imm32/right:null -<span id="L38012" class="LineNr">38012 </span> 68/push 0/imm32/right:null -<span id="L38013" class="LineNr">38013 </span> 68/push 0/imm32/left:unused -<span id="L38014" class="LineNr">38014 </span> 68/push 1/imm32/value:int -<span id="L38015" class="LineNr">38015 </span> 68/push 1/imm32/is-atom?:true -<span id="L38016" class="LineNr">38016 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38017" class="LineNr">38017 </span> 89/<- %ecx 4/r32/esp -<span id="L38018" class="LineNr">38018 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1</span>: -<span id="L38019" class="LineNr">38019 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L38020" class="LineNr">38020 </span> 68/push 0/imm32/register -<span id="L38021" class="LineNr">38021 </span> 68/push 0/imm32/register -<span id="L38022" class="LineNr">38022 </span> 68/push 0/imm32/no-stack-offset -<span id="L38023" class="LineNr">38023 </span> 68/push 1/imm32/block-depth -<span id="L38024" class="LineNr">38024 </span> 51/push-ecx -<span id="L38025" class="LineNr">38025 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38026" class="LineNr">38026 </span> 68/push 0/imm32/name -<span id="L38027" class="LineNr">38027 </span> 68/push 0/imm32/name -<span id="L38028" class="LineNr">38028 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38029" class="LineNr">38029 </span> 89/<- %ecx 4/r32/esp -<span id="L38030" class="LineNr">38030 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-name</span>: -<span id="L38031" class="LineNr">38031 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L38032" class="LineNr">38032 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38033" class="LineNr">38033 </span> (<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="L38034" class="LineNr">38034 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-register</span>: -<span id="L38035" class="LineNr">38035 </span> <span class="subxComment"># var1->register = "ecx"</span> -<span id="L38036" class="LineNr">38036 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L38037" class="LineNr">38037 </span> (<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="L38038" class="LineNr">38038 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2</span>: -<span id="L38039" class="LineNr">38039 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L38040" class="LineNr">38040 </span> 68/push 0/imm32/register -<span id="L38041" class="LineNr">38041 </span> 68/push 0/imm32/register -<span id="L38042" class="LineNr">38042 </span> 68/push 0/imm32/no-stack-offset -<span id="L38043" class="LineNr">38043 </span> 68/push 1/imm32/block-depth -<span id="L38044" class="LineNr">38044 </span> ff 6/subop/push *(ecx+0x10) -<span id="L38045" class="LineNr">38045 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38046" class="LineNr">38046 </span> 68/push 0/imm32/name -<span id="L38047" class="LineNr">38047 </span> 68/push 0/imm32/name -<span id="L38048" class="LineNr">38048 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38049" class="LineNr">38049 </span> 89/<- %edx 4/r32/esp -<span id="L38050" class="LineNr">38050 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-name</span>: -<span id="L38051" class="LineNr">38051 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L38052" class="LineNr">38052 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38053" class="LineNr">38053 </span> (<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="L38054" class="LineNr">38054 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-register</span>: -<span id="L38055" class="LineNr">38055 </span> <span class="subxComment"># var2->register = "eax"</span> -<span id="L38056" class="LineNr">38056 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L38057" class="LineNr">38057 </span> (<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="L38058" class="LineNr">38058 </span><span class="Constant">$test-compare-reg-with-reg:initialize-inouts</span>: -<span id="L38059" class="LineNr">38059 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L38060" class="LineNr">38060 </span> 68/push 0/imm32/is-deref:false -<span id="L38061" class="LineNr">38061 </span> 68/push 0/imm32/next -<span id="L38062" class="LineNr">38062 </span> 68/push 0/imm32/next -<span id="L38063" class="LineNr">38063 </span> 52/push-edx/var2 -<span id="L38064" class="LineNr">38064 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38065" class="LineNr">38065 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38066" class="LineNr">38066 </span> 89/<- %esi 4/r32/esp -<span id="L38067" class="LineNr">38067 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L38068" class="LineNr">38068 </span> 68/push 0/imm32/is-deref:false -<span id="L38069" class="LineNr">38069 </span> 56/push-esi/next -<span id="L38070" class="LineNr">38070 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38071" class="LineNr">38071 </span> 51/push-ecx/var1 -<span id="L38072" class="LineNr">38072 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38073" class="LineNr">38073 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38074" class="LineNr">38074 </span> 89/<- %esi 4/r32/esp -<span id="L38075" class="LineNr">38075 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt</span>: -<span id="L38076" class="LineNr">38076 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L38077" class="LineNr">38077 </span> 68/push 0/imm32/next -<span id="L38078" class="LineNr">38078 </span> 68/push 0/imm32/next -<span id="L38079" class="LineNr">38079 </span> 68/push 0/imm32/outputs -<span id="L38080" class="LineNr">38080 </span> 68/push 0/imm32/outputs -<span id="L38081" class="LineNr">38081 </span> 56/push-esi/inouts -<span id="L38082" class="LineNr">38082 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38083" class="LineNr">38083 </span> 68/push 0/imm32/operation -<span id="L38084" class="LineNr">38084 </span> 68/push 0/imm32/operation -<span id="L38085" class="LineNr">38085 </span> 68/push 1/imm32/tag:stmt1 -<span id="L38086" class="LineNr">38086 </span> 89/<- %esi 4/r32/esp -<span id="L38087" class="LineNr">38087 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt-operation</span>: -<span id="L38088" class="LineNr">38088 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L38089" class="LineNr">38089 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L38090" class="LineNr">38090 </span> (<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="L38091" class="LineNr">38091 </span> <span class="subxComment"># convert</span> -<span id="L38092" class="LineNr">38092 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L38093" class="LineNr">38093 </span> (<a href='mu.subx.html#L28680'>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#L30469'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L38094" class="LineNr">38094 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L38095" class="Folded">38095 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L38101" class="LineNr">38101 </span> <span class="subxComment"># check output</span> -<span id="L38102" class="LineNr">38102 </span> (<a href='109stream-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="L38103" class="LineNr">38103 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38104" class="LineNr">38104 </span> 89/<- %esp 5/r32/ebp -<span id="L38105" class="LineNr">38105 </span> 5d/pop-to-ebp -<span id="L38106" class="LineNr">38106 </span> c3/return -<span id="L38107" class="LineNr">38107 </span> -<span id="L38108" class="LineNr">38108 </span><span class="subxTest">test-compare-mem-with-reg</span>: -<span id="L38109" class="LineNr">38109 </span> <span class="subxComment"># compare var1, var2/eax</span> -<span id="L38110" class="LineNr">38110 </span> <span class="subxComment"># =></span> -<span id="L38111" class="LineNr">38111 </span> <span class="subxComment"># 39/compare *(ebp+___) 0/r32/eax</span> -<span id="L38112" class="LineNr">38112 </span> <span class="subxComment">#</span> -<span id="L38113" class="LineNr">38113 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38114" class="LineNr">38114 </span> 55/push-ebp -<span id="L38115" class="LineNr">38115 </span> 89/<- %ebp 4/r32/esp -<span id="L38116" class="LineNr">38116 </span> <span class="subxComment"># setup</span> -<span id="L38117" class="LineNr">38117 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L38118" class="LineNr">38118 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L38119" class="LineNr">38119 </span><span class="Constant">$test-compare-mem-with-reg:initialize-type</span>: -<span id="L38120" class="LineNr">38120 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L38121" class="LineNr">38121 </span> 68/push 0/imm32/right:null -<span id="L38122" class="LineNr">38122 </span> 68/push 0/imm32/right:null -<span id="L38123" class="LineNr">38123 </span> 68/push 0/imm32/left:unused -<span id="L38124" class="LineNr">38124 </span> 68/push 1/imm32/value:int -<span id="L38125" class="LineNr">38125 </span> 68/push 1/imm32/is-atom?:true -<span id="L38126" class="LineNr">38126 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38127" class="LineNr">38127 </span> 89/<- %ecx 4/r32/esp -<span id="L38128" class="LineNr">38128 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1</span>: -<span id="L38129" class="LineNr">38129 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L38130" class="LineNr">38130 </span> 68/push 0/imm32/register -<span id="L38131" class="LineNr">38131 </span> 68/push 0/imm32/register -<span id="L38132" class="LineNr">38132 </span> 68/push 8/imm32/stack-offset -<span id="L38133" class="LineNr">38133 </span> 68/push 1/imm32/block-depth -<span id="L38134" class="LineNr">38134 </span> 51/push-ecx -<span id="L38135" class="LineNr">38135 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38136" class="LineNr">38136 </span> 68/push 0/imm32/name -<span id="L38137" class="LineNr">38137 </span> 68/push 0/imm32/name -<span id="L38138" class="LineNr">38138 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38139" class="LineNr">38139 </span> 89/<- %ecx 4/r32/esp -<span id="L38140" class="LineNr">38140 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1-name</span>: -<span id="L38141" class="LineNr">38141 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L38142" class="LineNr">38142 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38143" class="LineNr">38143 </span> (<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="L38144" class="LineNr">38144 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2</span>: -<span id="L38145" class="LineNr">38145 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L38146" class="LineNr">38146 </span> 68/push 0/imm32/register -<span id="L38147" class="LineNr">38147 </span> 68/push 0/imm32/register -<span id="L38148" class="LineNr">38148 </span> 68/push 0/imm32/no-stack-offset -<span id="L38149" class="LineNr">38149 </span> 68/push 1/imm32/block-depth -<span id="L38150" class="LineNr">38150 </span> ff 6/subop/push *(ecx+0x10) -<span id="L38151" class="LineNr">38151 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38152" class="LineNr">38152 </span> 68/push 0/imm32/name -<span id="L38153" class="LineNr">38153 </span> 68/push 0/imm32/name -<span id="L38154" class="LineNr">38154 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38155" class="LineNr">38155 </span> 89/<- %edx 4/r32/esp -<span id="L38156" class="LineNr">38156 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-name</span>: -<span id="L38157" class="LineNr">38157 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L38158" class="LineNr">38158 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38159" class="LineNr">38159 </span> (<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="L38160" class="LineNr">38160 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-register</span>: -<span id="L38161" class="LineNr">38161 </span> <span class="subxComment"># var2->register = "eax"</span> -<span id="L38162" class="LineNr">38162 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L38163" class="LineNr">38163 </span> (<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="L38164" class="LineNr">38164 </span><span class="Constant">$test-compare-mem-with-reg:initialize-inouts</span>: -<span id="L38165" class="LineNr">38165 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L38166" class="LineNr">38166 </span> 68/push 0/imm32/is-deref:false -<span id="L38167" class="LineNr">38167 </span> 68/push 0/imm32/next -<span id="L38168" class="LineNr">38168 </span> 68/push 0/imm32/next -<span id="L38169" class="LineNr">38169 </span> 52/push-edx/var2 +<span id="L37831" class="LineNr">37831 </span> 89/<- %ecx 4/r32/esp +<span id="L37832" class="LineNr">37832 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-name</span>: +<span id="L37833" class="LineNr">37833 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L37834" class="LineNr">37834 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37835" class="LineNr">37835 </span> (<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="L37836" class="LineNr">37836 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-register</span>: +<span id="L37837" class="LineNr">37837 </span> <span class="subxComment"># v->register = "ecx"</span> +<span id="L37838" class="LineNr">37838 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37839" class="LineNr">37839 </span> (<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="L37840" class="LineNr">37840 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-type</span>: +<span id="L37841" class="LineNr">37841 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37842" class="LineNr">37842 </span> 68/push 0/imm32/right:null +<span id="L37843" class="LineNr">37843 </span> 68/push 0/imm32/right:null +<span id="L37844" class="LineNr">37844 </span> 68/push 0/imm32/left:unused +<span id="L37845" class="LineNr">37845 </span> 68/push 0/imm32/value:literal +<span id="L37846" class="LineNr">37846 </span> 68/push 1/imm32/is-atom?:true +<span id="L37847" class="LineNr">37847 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37848" class="LineNr">37848 </span> 89/<- %edx 4/r32/esp +<span id="L37849" class="LineNr">37849 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal</span>: +<span id="L37850" class="LineNr">37850 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37851" class="LineNr">37851 </span> 68/push 0/imm32/register +<span id="L37852" class="LineNr">37852 </span> 68/push 0/imm32/register +<span id="L37853" class="LineNr">37853 </span> 68/push 0/imm32/no-stack-offset +<span id="L37854" class="LineNr">37854 </span> 68/push 1/imm32/block-depth +<span id="L37855" class="LineNr">37855 </span> 52/push-edx +<span id="L37856" class="LineNr">37856 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37857" class="LineNr">37857 </span> 68/push 0/imm32/name +<span id="L37858" class="LineNr">37858 </span> 68/push 0/imm32/name +<span id="L37859" class="LineNr">37859 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37860" class="LineNr">37860 </span> 89/<- %edx 4/r32/esp +<span id="L37861" class="LineNr">37861 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-value</span>: +<span id="L37862" class="LineNr">37862 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L37863" class="LineNr">37863 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37864" class="LineNr">37864 </span> (<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="L37865" class="LineNr">37865 </span><span class="Constant">$test-add-literal-to-reg:initialize-inouts</span>: +<span id="L37866" class="LineNr">37866 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L37867" class="LineNr">37867 </span> 68/push 0/imm32/is-deref:false +<span id="L37868" class="LineNr">37868 </span> 68/push 0/imm32/next +<span id="L37869" class="LineNr">37869 </span> 68/push 0/imm32/next +<span id="L37870" class="LineNr">37870 </span> 52/push-edx/l +<span id="L37871" class="LineNr">37871 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37872" class="LineNr">37872 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37873" class="LineNr">37873 </span> 89/<- %esi 4/r32/esp +<span id="L37874" class="LineNr">37874 </span><span class="Constant">$test-add-literal-to-reg:initialize-outputs</span>: +<span id="L37875" class="LineNr">37875 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L37876" class="LineNr">37876 </span> 68/push 0/imm32/is-deref:false +<span id="L37877" class="LineNr">37877 </span> 68/push 0/imm32/next +<span id="L37878" class="LineNr">37878 </span> 68/push 0/imm32/next +<span id="L37879" class="LineNr">37879 </span> 51/push-ecx/v +<span id="L37880" class="LineNr">37880 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37881" class="LineNr">37881 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37882" class="LineNr">37882 </span> 89/<- %edi 4/r32/esp +<span id="L37883" class="LineNr">37883 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt</span>: +<span id="L37884" class="LineNr">37884 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37885" class="LineNr">37885 </span> 68/push 0/imm32/next +<span id="L37886" class="LineNr">37886 </span> 68/push 0/imm32/next +<span id="L37887" class="LineNr">37887 </span> 57/push-edi/outputs +<span id="L37888" class="LineNr">37888 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37889" class="LineNr">37889 </span> 56/push-esi/inouts +<span id="L37890" class="LineNr">37890 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37891" class="LineNr">37891 </span> 68/push 0/imm32/operation +<span id="L37892" class="LineNr">37892 </span> 68/push 0/imm32/operation +<span id="L37893" class="LineNr">37893 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37894" class="LineNr">37894 </span> 89/<- %esi 4/r32/esp +<span id="L37895" class="LineNr">37895 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt-operation</span>: +<span id="L37896" class="LineNr">37896 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L37897" class="LineNr">37897 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37898" class="LineNr">37898 </span> (<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="L37899" class="LineNr">37899 </span> <span class="subxComment"># convert</span> +<span id="L37900" class="LineNr">37900 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L37901" class="LineNr">37901 </span> (<a href='mu.subx.html#L28855'>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#L30722'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37902" class="LineNr">37902 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37903" class="Folded">37903 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37909" class="LineNr">37909 </span> <span class="subxComment"># check output</span> +<span id="L37910" class="LineNr">37910 </span> (<a href='109stream-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="L37911" class="LineNr">37911 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37912" class="LineNr">37912 </span> 89/<- %esp 5/r32/ebp +<span id="L37913" class="LineNr">37913 </span> 5d/pop-to-ebp +<span id="L37914" class="LineNr">37914 </span> c3/return +<span id="L37915" class="LineNr">37915 </span> +<span id="L37916" class="LineNr">37916 </span><span class="subxTest">test-add-literal-to-mem</span>: +<span id="L37917" class="LineNr">37917 </span> <span class="subxComment"># add-to var1, 0x34</span> +<span id="L37918" class="LineNr">37918 </span> <span class="subxComment"># =></span> +<span id="L37919" class="LineNr">37919 </span> <span class="subxComment"># 81 0/subop/add %eax 0x34/imm32</span> +<span id="L37920" class="LineNr">37920 </span> <span class="subxComment">#</span> +<span id="L37921" class="LineNr">37921 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37922" class="LineNr">37922 </span> 55/push-ebp +<span id="L37923" class="LineNr">37923 </span> 89/<- %ebp 4/r32/esp +<span id="L37924" class="LineNr">37924 </span> <span class="subxComment"># setup</span> +<span id="L37925" class="LineNr">37925 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37926" class="LineNr">37926 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37927" class="LineNr">37927 </span><span class="Constant">$test-add-literal-to-mem:initialize-type</span>: +<span id="L37928" class="LineNr">37928 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37929" class="LineNr">37929 </span> 68/push 0/imm32/right:null +<span id="L37930" class="LineNr">37930 </span> 68/push 0/imm32/right:null +<span id="L37931" class="LineNr">37931 </span> 68/push 0/imm32/left:unused +<span id="L37932" class="LineNr">37932 </span> 68/push 1/imm32/value:int +<span id="L37933" class="LineNr">37933 </span> 68/push 1/imm32/is-atom?:true +<span id="L37934" class="LineNr">37934 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37935" class="LineNr">37935 </span> 89/<- %ecx 4/r32/esp +<span id="L37936" class="LineNr">37936 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1</span>: +<span id="L37937" class="LineNr">37937 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37938" class="LineNr">37938 </span> 68/push 0/imm32/register +<span id="L37939" class="LineNr">37939 </span> 68/push 0/imm32/register +<span id="L37940" class="LineNr">37940 </span> 68/push 8/imm32/stack-offset +<span id="L37941" class="LineNr">37941 </span> 68/push 1/imm32/block-depth +<span id="L37942" class="LineNr">37942 </span> 51/push-ecx +<span id="L37943" class="LineNr">37943 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37944" class="LineNr">37944 </span> 68/push 0/imm32/name +<span id="L37945" class="LineNr">37945 </span> 68/push 0/imm32/name +<span id="L37946" class="LineNr">37946 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37947" class="LineNr">37947 </span> 89/<- %ecx 4/r32/esp +<span id="L37948" class="LineNr">37948 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1-name</span>: +<span id="L37949" class="LineNr">37949 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L37950" class="LineNr">37950 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37951" class="LineNr">37951 </span> (<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="L37952" class="LineNr">37952 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-type</span>: +<span id="L37953" class="LineNr">37953 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37954" class="LineNr">37954 </span> 68/push 0/imm32/right:null +<span id="L37955" class="LineNr">37955 </span> 68/push 0/imm32/right:null +<span id="L37956" class="LineNr">37956 </span> 68/push 0/imm32/left:unused +<span id="L37957" class="LineNr">37957 </span> 68/push 0/imm32/value:literal +<span id="L37958" class="LineNr">37958 </span> 68/push 1/imm32/is-atom?:true +<span id="L37959" class="LineNr">37959 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37960" class="LineNr">37960 </span> 89/<- %edx 4/r32/esp +<span id="L37961" class="LineNr">37961 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal</span>: +<span id="L37962" class="LineNr">37962 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37963" class="LineNr">37963 </span> 68/push 0/imm32/register +<span id="L37964" class="LineNr">37964 </span> 68/push 0/imm32/register +<span id="L37965" class="LineNr">37965 </span> 68/push 0/imm32/no-stack-offset +<span id="L37966" class="LineNr">37966 </span> 68/push 1/imm32/block-depth +<span id="L37967" class="LineNr">37967 </span> 52/push-edx +<span id="L37968" class="LineNr">37968 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37969" class="LineNr">37969 </span> 68/push 0/imm32/name +<span id="L37970" class="LineNr">37970 </span> 68/push 0/imm32/name +<span id="L37971" class="LineNr">37971 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37972" class="LineNr">37972 </span> 89/<- %edx 4/r32/esp +<span id="L37973" class="LineNr">37973 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-value</span>: +<span id="L37974" class="LineNr">37974 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L37975" class="LineNr">37975 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37976" class="LineNr">37976 </span> (<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="L37977" class="LineNr">37977 </span><span class="Constant">$test-add-literal-to-mem:initialize-inouts</span>: +<span id="L37978" class="LineNr">37978 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L37979" class="LineNr">37979 </span> 68/push 0/imm32/is-deref:false +<span id="L37980" class="LineNr">37980 </span> 68/push 0/imm32/next +<span id="L37981" class="LineNr">37981 </span> 68/push 0/imm32/next +<span id="L37982" class="LineNr">37982 </span> 52/push-edx/l +<span id="L37983" class="LineNr">37983 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37984" class="LineNr">37984 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37985" class="LineNr">37985 </span> 89/<- %esi 4/r32/esp +<span id="L37986" class="LineNr">37986 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L37987" class="LineNr">37987 </span> 68/push 0/imm32/is-deref:false +<span id="L37988" class="LineNr">37988 </span> 56/push-esi/next +<span id="L37989" class="LineNr">37989 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37990" class="LineNr">37990 </span> 51/push-ecx/var1 +<span id="L37991" class="LineNr">37991 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37992" class="LineNr">37992 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37993" class="LineNr">37993 </span> 89/<- %esi 4/r32/esp +<span id="L37994" class="LineNr">37994 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt</span>: +<span id="L37995" class="LineNr">37995 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37996" class="LineNr">37996 </span> 68/push 0/imm32/next +<span id="L37997" class="LineNr">37997 </span> 68/push 0/imm32/next +<span id="L37998" class="LineNr">37998 </span> 68/push 0/imm32/outputs +<span id="L37999" class="LineNr">37999 </span> 68/push 0/imm32/outputs +<span id="L38000" class="LineNr">38000 </span> 56/push-esi/inouts +<span id="L38001" class="LineNr">38001 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38002" class="LineNr">38002 </span> 68/push 0/imm32/operation +<span id="L38003" class="LineNr">38003 </span> 68/push 0/imm32/operation +<span id="L38004" class="LineNr">38004 </span> 68/push 1/imm32/tag:stmt1 +<span id="L38005" class="LineNr">38005 </span> 89/<- %esi 4/r32/esp +<span id="L38006" class="LineNr">38006 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt-operation</span>: +<span id="L38007" class="LineNr">38007 </span> <span class="subxComment"># stmt->operation = "add-to"</span> +<span id="L38008" class="LineNr">38008 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</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">"add-to"</span> %eax) +<span id="L38010" class="LineNr">38010 </span> <span class="subxComment"># convert</span> +<span id="L38011" class="LineNr">38011 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L38012" class="LineNr">38012 </span> (<a href='mu.subx.html#L28855'>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#L30722'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38013" class="LineNr">38013 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38014" class="Folded">38014 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38020" class="LineNr">38020 </span> <span class="subxComment"># check output</span> +<span id="L38021" class="LineNr">38021 </span> (<a href='109stream-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="L38022" class="LineNr">38022 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38023" class="LineNr">38023 </span> 89/<- %esp 5/r32/ebp +<span id="L38024" class="LineNr">38024 </span> 5d/pop-to-ebp +<span id="L38025" class="LineNr">38025 </span> c3/return +<span id="L38026" class="LineNr">38026 </span> +<span id="L38027" class="LineNr">38027 </span><span class="subxTest">test-shift-reg-by-literal</span>: +<span id="L38028" class="LineNr">38028 </span> <span class="subxComment"># var1/ecx <- shift-left 2</span> +<span id="L38029" class="LineNr">38029 </span> <span class="subxComment"># =></span> +<span id="L38030" class="LineNr">38030 </span> <span class="subxComment"># c1/shift 4/subop/left %ecx 2/imm8</span> +<span id="L38031" class="LineNr">38031 </span> <span class="subxComment">#</span> +<span id="L38032" class="LineNr">38032 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38033" class="LineNr">38033 </span> 55/push-ebp +<span id="L38034" class="LineNr">38034 </span> 89/<- %ebp 4/r32/esp +<span id="L38035" class="LineNr">38035 </span> <span class="subxComment"># setup</span> +<span id="L38036" class="LineNr">38036 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38037" class="LineNr">38037 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38038" class="LineNr">38038 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-type</span>: +<span id="L38039" class="LineNr">38039 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38040" class="LineNr">38040 </span> 68/push 0/imm32/right:null +<span id="L38041" class="LineNr">38041 </span> 68/push 0/imm32/right:null +<span id="L38042" class="LineNr">38042 </span> 68/push 0/imm32/left:unused +<span id="L38043" class="LineNr">38043 </span> 68/push 1/imm32/value:int +<span id="L38044" class="LineNr">38044 </span> 68/push 1/imm32/is-atom?:true +<span id="L38045" class="LineNr">38045 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38046" class="LineNr">38046 </span> 89/<- %ecx 4/r32/esp +<span id="L38047" class="LineNr">38047 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var</span>: +<span id="L38048" class="LineNr">38048 </span> <span class="subxComment"># var v/ecx: (payload var)</span> +<span id="L38049" class="LineNr">38049 </span> 68/push 0/imm32/register +<span id="L38050" class="LineNr">38050 </span> 68/push 0/imm32/register +<span id="L38051" class="LineNr">38051 </span> 68/push 0/imm32/no-stack-offset +<span id="L38052" class="LineNr">38052 </span> 68/push 1/imm32/block-depth +<span id="L38053" class="LineNr">38053 </span> 51/push-ecx +<span id="L38054" class="LineNr">38054 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38055" class="LineNr">38055 </span> 68/push 0/imm32/name +<span id="L38056" class="LineNr">38056 </span> 68/push 0/imm32/name +<span id="L38057" class="LineNr">38057 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38058" class="LineNr">38058 </span> 89/<- %ecx 4/r32/esp +<span id="L38059" class="LineNr">38059 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-name</span>: +<span id="L38060" class="LineNr">38060 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L38061" class="LineNr">38061 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38062" class="LineNr">38062 </span> (<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="L38063" class="LineNr">38063 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-register</span>: +<span id="L38064" class="LineNr">38064 </span> <span class="subxComment"># v->register = "ecx"</span> +<span id="L38065" class="LineNr">38065 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L38066" class="LineNr">38066 </span> (<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="L38067" class="LineNr">38067 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-type</span>: +<span id="L38068" class="LineNr">38068 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L38069" class="LineNr">38069 </span> 68/push 0/imm32/right:null +<span id="L38070" class="LineNr">38070 </span> 68/push 0/imm32/right:null +<span id="L38071" class="LineNr">38071 </span> 68/push 0/imm32/left:unused +<span id="L38072" class="LineNr">38072 </span> 68/push 0/imm32/value:literal +<span id="L38073" class="LineNr">38073 </span> 68/push 1/imm32/is-atom?:true +<span id="L38074" class="LineNr">38074 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38075" class="LineNr">38075 </span> 89/<- %edx 4/r32/esp +<span id="L38076" class="LineNr">38076 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal</span>: +<span id="L38077" class="LineNr">38077 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L38078" class="LineNr">38078 </span> 68/push 0/imm32/register +<span id="L38079" class="LineNr">38079 </span> 68/push 0/imm32/register +<span id="L38080" class="LineNr">38080 </span> 68/push 0/imm32/no-stack-offset +<span id="L38081" class="LineNr">38081 </span> 68/push 1/imm32/block-depth +<span id="L38082" class="LineNr">38082 </span> 52/push-edx +<span id="L38083" class="LineNr">38083 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38084" class="LineNr">38084 </span> 68/push 0/imm32/name +<span id="L38085" class="LineNr">38085 </span> 68/push 0/imm32/name +<span id="L38086" class="LineNr">38086 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38087" class="LineNr">38087 </span> 89/<- %edx 4/r32/esp +<span id="L38088" class="LineNr">38088 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-value</span>: +<span id="L38089" class="LineNr">38089 </span> <span class="subxComment"># l->name = "2"</span> +<span id="L38090" class="LineNr">38090 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38091" class="LineNr">38091 </span> (<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="L38092" class="LineNr">38092 </span><span class="Constant">$test-shift-reg-by-literal:initialize-inouts</span>: +<span id="L38093" class="LineNr">38093 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L38094" class="LineNr">38094 </span> 68/push 0/imm32/is-deref:false +<span id="L38095" class="LineNr">38095 </span> 68/push 0/imm32/next +<span id="L38096" class="LineNr">38096 </span> 68/push 0/imm32/next +<span id="L38097" class="LineNr">38097 </span> 52/push-edx/l +<span id="L38098" class="LineNr">38098 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38099" class="LineNr">38099 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38100" class="LineNr">38100 </span> 89/<- %esi 4/r32/esp +<span id="L38101" class="LineNr">38101 </span><span class="Constant">$test-shift-reg-by-literal:initialize-outputs</span>: +<span id="L38102" class="LineNr">38102 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L38103" class="LineNr">38103 </span> 68/push 0/imm32/is-deref:false +<span id="L38104" class="LineNr">38104 </span> 68/push 0/imm32/next +<span id="L38105" class="LineNr">38105 </span> 68/push 0/imm32/next +<span id="L38106" class="LineNr">38106 </span> 51/push-ecx/v +<span id="L38107" class="LineNr">38107 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38108" class="LineNr">38108 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38109" class="LineNr">38109 </span> 89/<- %edi 4/r32/esp +<span id="L38110" class="LineNr">38110 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt</span>: +<span id="L38111" class="LineNr">38111 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38112" class="LineNr">38112 </span> 68/push 0/imm32/next +<span id="L38113" class="LineNr">38113 </span> 68/push 0/imm32/next +<span id="L38114" class="LineNr">38114 </span> 57/push-edi/outputs +<span id="L38115" class="LineNr">38115 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38116" class="LineNr">38116 </span> 56/push-esi/inouts +<span id="L38117" class="LineNr">38117 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38118" class="LineNr">38118 </span> 68/push 0/imm32/operation +<span id="L38119" class="LineNr">38119 </span> 68/push 0/imm32/operation +<span id="L38120" class="LineNr">38120 </span> 68/push 1/imm32/tag:stmt1 +<span id="L38121" class="LineNr">38121 </span> 89/<- %esi 4/r32/esp +<span id="L38122" class="LineNr">38122 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt-operation</span>: +<span id="L38123" class="LineNr">38123 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> +<span id="L38124" class="LineNr">38124 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38125" class="LineNr">38125 </span> (<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="L38126" class="LineNr">38126 </span> <span class="subxComment"># convert</span> +<span id="L38127" class="LineNr">38127 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L38128" class="LineNr">38128 </span> (<a href='mu.subx.html#L28855'>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#L30722'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38129" class="LineNr">38129 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38130" class="Folded">38130 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38136" class="LineNr">38136 </span> <span class="subxComment"># check output</span> +<span id="L38137" class="LineNr">38137 </span> (<a href='109stream-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="L38138" class="LineNr">38138 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38139" class="LineNr">38139 </span> 89/<- %esp 5/r32/ebp +<span id="L38140" class="LineNr">38140 </span> 5d/pop-to-ebp +<span id="L38141" class="LineNr">38141 </span> c3/return +<span id="L38142" class="LineNr">38142 </span> +<span id="L38143" class="LineNr">38143 </span><span class="subxTest">test-shift-mem-by-literal</span>: +<span id="L38144" class="LineNr">38144 </span> <span class="subxComment"># shift-left var 3</span> +<span id="L38145" class="LineNr">38145 </span> <span class="subxComment"># =></span> +<span id="L38146" class="LineNr">38146 </span> <span class="subxComment"># c1/shift 4/subop/left *(ebp+8) 3/imm8</span> +<span id="L38147" class="LineNr">38147 </span> <span class="subxComment">#</span> +<span id="L38148" class="LineNr">38148 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38149" class="LineNr">38149 </span> 55/push-ebp +<span id="L38150" class="LineNr">38150 </span> 89/<- %ebp 4/r32/esp +<span id="L38151" class="LineNr">38151 </span> <span class="subxComment"># setup</span> +<span id="L38152" class="LineNr">38152 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38153" class="LineNr">38153 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38154" class="LineNr">38154 </span><span class="Constant">$test-shift-mem-by-literal:initialize-type</span>: +<span id="L38155" class="LineNr">38155 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38156" class="LineNr">38156 </span> 68/push 0/imm32/right:null +<span id="L38157" class="LineNr">38157 </span> 68/push 0/imm32/right:null +<span id="L38158" class="LineNr">38158 </span> 68/push 0/imm32/left:unused +<span id="L38159" class="LineNr">38159 </span> 68/push 1/imm32/value:int +<span id="L38160" class="LineNr">38160 </span> 68/push 1/imm32/is-atom?:true +<span id="L38161" class="LineNr">38161 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38162" class="LineNr">38162 </span> 89/<- %ecx 4/r32/esp +<span id="L38163" class="LineNr">38163 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1</span>: +<span id="L38164" class="LineNr">38164 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L38165" class="LineNr">38165 </span> 68/push 0/imm32/register +<span id="L38166" class="LineNr">38166 </span> 68/push 0/imm32/register +<span id="L38167" class="LineNr">38167 </span> 68/push 8/imm32/stack-offset +<span id="L38168" class="LineNr">38168 </span> 68/push 1/imm32/block-depth +<span id="L38169" class="LineNr">38169 </span> 51/push-ecx <span id="L38170" class="LineNr">38170 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38171" class="LineNr">38171 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38172" class="LineNr">38172 </span> 89/<- %esi 4/r32/esp -<span id="L38173" class="LineNr">38173 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L38174" class="LineNr">38174 </span> 68/push 0/imm32/is-deref:false -<span id="L38175" class="LineNr">38175 </span> 56/push-esi/next -<span id="L38176" class="LineNr">38176 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38177" class="LineNr">38177 </span> 51/push-ecx/var1 -<span id="L38178" class="LineNr">38178 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38179" class="LineNr">38179 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38180" class="LineNr">38180 </span> 89/<- %esi 4/r32/esp -<span id="L38181" class="LineNr">38181 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt</span>: -<span id="L38182" class="LineNr">38182 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L38183" class="LineNr">38183 </span> 68/push 0/imm32/next -<span id="L38184" class="LineNr">38184 </span> 68/push 0/imm32/next -<span id="L38185" class="LineNr">38185 </span> 68/push 0/imm32/outputs -<span id="L38186" class="LineNr">38186 </span> 68/push 0/imm32/outputs -<span id="L38187" class="LineNr">38187 </span> 56/push-esi/inouts -<span id="L38188" class="LineNr">38188 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38189" class="LineNr">38189 </span> 68/push 0/imm32/operation -<span id="L38190" class="LineNr">38190 </span> 68/push 0/imm32/operation -<span id="L38191" class="LineNr">38191 </span> 68/push 1/imm32/tag:stmt1 -<span id="L38192" class="LineNr">38192 </span> 89/<- %esi 4/r32/esp -<span id="L38193" class="LineNr">38193 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt-operation</span>: -<span id="L38194" class="LineNr">38194 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L38195" class="LineNr">38195 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L38196" class="LineNr">38196 </span> (<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="L38197" class="LineNr">38197 </span> <span class="subxComment"># convert</span> -<span id="L38198" class="LineNr">38198 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L38199" class="LineNr">38199 </span> (<a href='mu.subx.html#L28680'>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#L30469'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L38200" class="LineNr">38200 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L38201" class="Folded">38201 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L38207" class="LineNr">38207 </span> <span class="subxComment"># check output</span> -<span id="L38208" class="LineNr">38208 </span> (<a href='109stream-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="L38209" class="LineNr">38209 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38210" class="LineNr">38210 </span> 89/<- %esp 5/r32/ebp -<span id="L38211" class="LineNr">38211 </span> 5d/pop-to-ebp -<span id="L38212" class="LineNr">38212 </span> c3/return -<span id="L38213" class="LineNr">38213 </span> -<span id="L38214" class="LineNr">38214 </span><span class="subxTest">test-compare-reg-with-mem</span>: -<span id="L38215" class="LineNr">38215 </span> <span class="subxComment"># compare var1/eax, var2</span> -<span id="L38216" class="LineNr">38216 </span> <span class="subxComment"># =></span> -<span id="L38217" class="LineNr">38217 </span> <span class="subxComment"># 3b/compare<- *(ebp+___) 0/r32/eax</span> -<span id="L38218" class="LineNr">38218 </span> <span class="subxComment">#</span> -<span id="L38219" class="LineNr">38219 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38220" class="LineNr">38220 </span> 55/push-ebp -<span id="L38221" class="LineNr">38221 </span> 89/<- %ebp 4/r32/esp -<span id="L38222" class="LineNr">38222 </span> <span class="subxComment"># setup</span> -<span id="L38223" class="LineNr">38223 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L38224" class="LineNr">38224 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L38225" class="LineNr">38225 </span><span class="Constant">$test-compare-reg-with-mem:initialize-type</span>: -<span id="L38226" class="LineNr">38226 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L38227" class="LineNr">38227 </span> 68/push 0/imm32/right:null -<span id="L38228" class="LineNr">38228 </span> 68/push 0/imm32/right:null -<span id="L38229" class="LineNr">38229 </span> 68/push 0/imm32/left:unused -<span id="L38230" class="LineNr">38230 </span> 68/push 1/imm32/value:int -<span id="L38231" class="LineNr">38231 </span> 68/push 1/imm32/is-atom?:true -<span id="L38232" class="LineNr">38232 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38233" class="LineNr">38233 </span> 89/<- %ecx 4/r32/esp -<span id="L38234" class="LineNr">38234 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1</span>: -<span id="L38235" class="LineNr">38235 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L38236" class="LineNr">38236 </span> 68/push 0/imm32/register -<span id="L38237" class="LineNr">38237 </span> 68/push 0/imm32/register -<span id="L38238" class="LineNr">38238 </span> 68/push 0/imm32/no-stack-offset -<span id="L38239" class="LineNr">38239 </span> 68/push 1/imm32/block-depth -<span id="L38240" class="LineNr">38240 </span> 51/push-ecx -<span id="L38241" class="LineNr">38241 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38242" class="LineNr">38242 </span> 68/push 0/imm32/name -<span id="L38243" class="LineNr">38243 </span> 68/push 0/imm32/name -<span id="L38244" class="LineNr">38244 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38245" class="LineNr">38245 </span> 89/<- %ecx 4/r32/esp -<span id="L38246" class="LineNr">38246 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-name</span>: -<span id="L38247" class="LineNr">38247 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L38248" class="LineNr">38248 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38249" class="LineNr">38249 </span> (<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="L38250" class="LineNr">38250 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-register</span>: -<span id="L38251" class="LineNr">38251 </span> <span class="subxComment"># var1->register = "eax"</span> -<span id="L38252" class="LineNr">38252 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L38253" class="LineNr">38253 </span> (<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="L38254" class="LineNr">38254 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2</span>: -<span id="L38255" class="LineNr">38255 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L38256" class="LineNr">38256 </span> 68/push 0/imm32/register -<span id="L38257" class="LineNr">38257 </span> 68/push 0/imm32/register -<span id="L38258" class="LineNr">38258 </span> 68/push 8/imm32/stack-offset -<span id="L38259" class="LineNr">38259 </span> 68/push 1/imm32/block-depth -<span id="L38260" class="LineNr">38260 </span> ff 6/subop/push *(ecx+0x10) -<span id="L38261" class="LineNr">38261 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38262" class="LineNr">38262 </span> 68/push 0/imm32/name -<span id="L38263" class="LineNr">38263 </span> 68/push 0/imm32/name -<span id="L38264" class="LineNr">38264 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38265" class="LineNr">38265 </span> 89/<- %edx 4/r32/esp -<span id="L38266" class="LineNr">38266 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2-name</span>: -<span id="L38267" class="LineNr">38267 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L38268" class="LineNr">38268 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38269" class="LineNr">38269 </span> (<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="L38270" class="LineNr">38270 </span><span class="Constant">$test-compare-reg-with-mem:initialize-inouts</span>: -<span id="L38271" class="LineNr">38271 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L38272" class="LineNr">38272 </span> 68/push 0/imm32/is-deref:false -<span id="L38273" class="LineNr">38273 </span> 68/push 0/imm32/next -<span id="L38274" class="LineNr">38274 </span> 68/push 0/imm32/next -<span id="L38275" class="LineNr">38275 </span> 52/push-edx/var2 -<span id="L38276" class="LineNr">38276 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38277" class="LineNr">38277 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38278" class="LineNr">38278 </span> 89/<- %esi 4/r32/esp -<span id="L38279" class="LineNr">38279 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L38280" class="LineNr">38280 </span> 68/push 0/imm32/is-deref:false -<span id="L38281" class="LineNr">38281 </span> 56/push-esi/next -<span id="L38282" class="LineNr">38282 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38283" class="LineNr">38283 </span> 51/push-ecx/var1 -<span id="L38284" class="LineNr">38284 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38285" class="LineNr">38285 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38286" class="LineNr">38286 </span> 89/<- %esi 4/r32/esp -<span id="L38287" class="LineNr">38287 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt</span>: -<span id="L38288" class="LineNr">38288 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L38289" class="LineNr">38289 </span> 68/push 0/imm32/next -<span id="L38290" class="LineNr">38290 </span> 68/push 0/imm32/next -<span id="L38291" class="LineNr">38291 </span> 68/push 0/imm32/outputs -<span id="L38292" class="LineNr">38292 </span> 68/push 0/imm32/outputs -<span id="L38293" class="LineNr">38293 </span> 56/push-esi/inouts -<span id="L38294" class="LineNr">38294 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38295" class="LineNr">38295 </span> 68/push 0/imm32/operation -<span id="L38296" class="LineNr">38296 </span> 68/push 0/imm32/operation -<span id="L38297" class="LineNr">38297 </span> 68/push 1/imm32/tag:stmt1 -<span id="L38298" class="LineNr">38298 </span> 89/<- %esi 4/r32/esp -<span id="L38299" class="LineNr">38299 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt-operation</span>: -<span id="L38300" class="LineNr">38300 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L38301" class="LineNr">38301 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L38302" class="LineNr">38302 </span> (<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="L38303" class="LineNr">38303 </span> <span class="subxComment"># convert</span> -<span id="L38304" class="LineNr">38304 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L38305" class="LineNr">38305 </span> (<a href='mu.subx.html#L28680'>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#L30469'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L38306" class="LineNr">38306 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L38307" class="Folded">38307 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L38313" class="LineNr">38313 </span> <span class="subxComment"># check output</span> -<span id="L38314" class="LineNr">38314 </span> (<a href='109stream-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="L38315" class="LineNr">38315 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38316" class="LineNr">38316 </span> 89/<- %esp 5/r32/ebp -<span id="L38317" class="LineNr">38317 </span> 5d/pop-to-ebp -<span id="L38318" class="LineNr">38318 </span> c3/return -<span id="L38319" class="LineNr">38319 </span> -<span id="L38320" class="LineNr">38320 </span><span class="subxTest">test-compare-mem-with-literal</span>: -<span id="L38321" class="LineNr">38321 </span> <span class="subxComment"># compare var1, 0x34</span> -<span id="L38322" class="LineNr">38322 </span> <span class="subxComment"># =></span> -<span id="L38323" class="LineNr">38323 </span> <span class="subxComment"># 81 7/subop/compare *(ebp+___) 0x34/imm32</span> -<span id="L38324" class="LineNr">38324 </span> <span class="subxComment">#</span> -<span id="L38325" class="LineNr">38325 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38326" class="LineNr">38326 </span> 55/push-ebp -<span id="L38327" class="LineNr">38327 </span> 89/<- %ebp 4/r32/esp -<span id="L38328" class="LineNr">38328 </span> <span class="subxComment"># setup</span> -<span id="L38329" class="LineNr">38329 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L38330" class="LineNr">38330 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L38331" class="LineNr">38331 </span><span class="Constant">$test-compare-mem-with-literal:initialize-type</span>: -<span id="L38332" class="LineNr">38332 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L38333" class="LineNr">38333 </span> 68/push 0/imm32/right:null -<span id="L38334" class="LineNr">38334 </span> 68/push 0/imm32/right:null -<span id="L38335" class="LineNr">38335 </span> 68/push 0/imm32/left:unused -<span id="L38336" class="LineNr">38336 </span> 68/push 1/imm32/value:int -<span id="L38337" class="LineNr">38337 </span> 68/push 1/imm32/is-atom?:true -<span id="L38338" class="LineNr">38338 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38339" class="LineNr">38339 </span> 89/<- %ecx 4/r32/esp -<span id="L38340" class="LineNr">38340 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1</span>: -<span id="L38341" class="LineNr">38341 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L38342" class="LineNr">38342 </span> 68/push 0/imm32/register -<span id="L38343" class="LineNr">38343 </span> 68/push 0/imm32/register -<span id="L38344" class="LineNr">38344 </span> 68/push 8/imm32/stack-offset -<span id="L38345" class="LineNr">38345 </span> 68/push 1/imm32/block-depth -<span id="L38346" class="LineNr">38346 </span> 51/push-ecx -<span id="L38347" class="LineNr">38347 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38348" class="LineNr">38348 </span> 68/push 0/imm32/name -<span id="L38349" class="LineNr">38349 </span> 68/push 0/imm32/name -<span id="L38350" class="LineNr">38350 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38351" class="LineNr">38351 </span> 89/<- %ecx 4/r32/esp -<span id="L38352" class="LineNr">38352 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1-name</span>: -<span id="L38353" class="LineNr">38353 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L38354" class="LineNr">38354 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38355" class="LineNr">38355 </span> (<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="L38356" class="LineNr">38356 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-type</span>: -<span id="L38357" class="LineNr">38357 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L38358" class="LineNr">38358 </span> 68/push 0/imm32/right:null -<span id="L38359" class="LineNr">38359 </span> 68/push 0/imm32/right:null -<span id="L38360" class="LineNr">38360 </span> 68/push 0/imm32/left:unused -<span id="L38361" class="LineNr">38361 </span> 68/push 0/imm32/value:literal -<span id="L38362" class="LineNr">38362 </span> 68/push 1/imm32/is-atom?:true -<span id="L38363" class="LineNr">38363 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38364" class="LineNr">38364 </span> 89/<- %edx 4/r32/esp -<span id="L38365" class="LineNr">38365 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal</span>: -<span id="L38366" class="LineNr">38366 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L38367" class="LineNr">38367 </span> 68/push 0/imm32/register -<span id="L38368" class="LineNr">38368 </span> 68/push 0/imm32/register -<span id="L38369" class="LineNr">38369 </span> 68/push 0/imm32/no-stack-offset -<span id="L38370" class="LineNr">38370 </span> 68/push 1/imm32/block-depth -<span id="L38371" class="LineNr">38371 </span> 52/push-edx -<span id="L38372" class="LineNr">38372 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38373" class="LineNr">38373 </span> 68/push 0/imm32/name -<span id="L38374" class="LineNr">38374 </span> 68/push 0/imm32/name -<span id="L38375" class="LineNr">38375 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38376" class="LineNr">38376 </span> 89/<- %edx 4/r32/esp -<span id="L38377" class="LineNr">38377 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-value</span>: -<span id="L38378" class="LineNr">38378 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L38379" class="LineNr">38379 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38380" class="LineNr">38380 </span> (<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="L38381" class="LineNr">38381 </span><span class="Constant">$test-compare-mem-with-literal:initialize-inouts</span>: -<span id="L38382" class="LineNr">38382 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L38383" class="LineNr">38383 </span> 68/push 0/imm32/is-deref:false -<span id="L38384" class="LineNr">38384 </span> 68/push 0/imm32/next -<span id="L38385" class="LineNr">38385 </span> 68/push 0/imm32/next -<span id="L38386" class="LineNr">38386 </span> 52/push-edx/l -<span id="L38387" class="LineNr">38387 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38388" class="LineNr">38388 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38389" class="LineNr">38389 </span> 89/<- %esi 4/r32/esp -<span id="L38390" class="LineNr">38390 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L38391" class="LineNr">38391 </span> 68/push 0/imm32/is-deref:false -<span id="L38392" class="LineNr">38392 </span> 56/push-esi/next -<span id="L38393" class="LineNr">38393 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38394" class="LineNr">38394 </span> 51/push-ecx/var1 -<span id="L38395" class="LineNr">38395 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38396" class="LineNr">38396 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38397" class="LineNr">38397 </span> 89/<- %esi 4/r32/esp -<span id="L38398" class="LineNr">38398 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt</span>: -<span id="L38399" class="LineNr">38399 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L38400" class="LineNr">38400 </span> 68/push 0/imm32/next -<span id="L38401" class="LineNr">38401 </span> 68/push 0/imm32/next -<span id="L38402" class="LineNr">38402 </span> 68/push 0/imm32/outputs -<span id="L38403" class="LineNr">38403 </span> 68/push 0/imm32/outputs -<span id="L38404" class="LineNr">38404 </span> 56/push-esi/inouts -<span id="L38405" class="LineNr">38405 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38406" class="LineNr">38406 </span> 68/push 0/imm32/operation -<span id="L38407" class="LineNr">38407 </span> 68/push 0/imm32/operation -<span id="L38408" class="LineNr">38408 </span> 68/push 1/imm32/tag:stmt1 -<span id="L38409" class="LineNr">38409 </span> 89/<- %esi 4/r32/esp -<span id="L38410" class="LineNr">38410 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt-operation</span>: -<span id="L38411" class="LineNr">38411 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L38412" class="LineNr">38412 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L38413" class="LineNr">38413 </span> (<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="L38414" class="LineNr">38414 </span> <span class="subxComment"># convert</span> -<span id="L38415" class="LineNr">38415 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L38416" class="LineNr">38416 </span> (<a href='mu.subx.html#L28680'>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#L30469'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L38417" class="LineNr">38417 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L38418" class="Folded">38418 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L38424" class="LineNr">38424 </span> <span class="subxComment"># check output</span> -<span id="L38425" class="LineNr">38425 </span> (<a href='109stream-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="L38426" class="LineNr">38426 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38427" class="LineNr">38427 </span> 89/<- %esp 5/r32/ebp -<span id="L38428" class="LineNr">38428 </span> 5d/pop-to-ebp -<span id="L38429" class="LineNr">38429 </span> c3/return -<span id="L38430" class="LineNr">38430 </span> -<span id="L38431" class="LineNr">38431 </span><span class="subxTest">test-compare-eax-with-literal</span>: -<span id="L38432" class="LineNr">38432 </span> <span class="subxComment"># compare var1/eax 0x34</span> -<span id="L38433" class="LineNr">38433 </span> <span class="subxComment"># =></span> -<span id="L38434" class="LineNr">38434 </span> <span class="subxComment"># 3d/compare-eax-with 0x34/imm32</span> -<span id="L38435" class="LineNr">38435 </span> <span class="subxComment">#</span> -<span id="L38436" class="LineNr">38436 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38437" class="LineNr">38437 </span> 55/push-ebp -<span id="L38438" class="LineNr">38438 </span> 89/<- %ebp 4/r32/esp -<span id="L38439" class="LineNr">38439 </span> <span class="subxComment"># setup</span> -<span id="L38440" class="LineNr">38440 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L38441" class="LineNr">38441 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L38442" class="LineNr">38442 </span><span class="Constant">$test-compare-eax-with-literal:initialize-type</span>: -<span id="L38443" class="LineNr">38443 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L38444" class="LineNr">38444 </span> 68/push 0/imm32/right:null -<span id="L38445" class="LineNr">38445 </span> 68/push 0/imm32/right:null -<span id="L38446" class="LineNr">38446 </span> 68/push 0/imm32/left:unused -<span id="L38447" class="LineNr">38447 </span> 68/push 1/imm32/value:int -<span id="L38448" class="LineNr">38448 </span> 68/push 1/imm32/is-atom?:true -<span id="L38449" class="LineNr">38449 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38450" class="LineNr">38450 </span> 89/<- %ecx 4/r32/esp -<span id="L38451" class="LineNr">38451 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1</span>: -<span id="L38452" class="LineNr">38452 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L38453" class="LineNr">38453 </span> 68/push 0/imm32/register -<span id="L38454" class="LineNr">38454 </span> 68/push 0/imm32/register -<span id="L38455" class="LineNr">38455 </span> 68/push 0/imm32/no-stack-offset -<span id="L38456" class="LineNr">38456 </span> 68/push 1/imm32/block-depth -<span id="L38457" class="LineNr">38457 </span> 51/push-ecx -<span id="L38458" class="LineNr">38458 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38459" class="LineNr">38459 </span> 68/push 0/imm32/name -<span id="L38460" class="LineNr">38460 </span> 68/push 0/imm32/name -<span id="L38461" class="LineNr">38461 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38462" class="LineNr">38462 </span> 89/<- %ecx 4/r32/esp -<span id="L38463" class="LineNr">38463 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-name</span>: -<span id="L38464" class="LineNr">38464 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L38465" class="LineNr">38465 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38466" class="LineNr">38466 </span> (<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="L38467" class="LineNr">38467 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-register</span>: -<span id="L38468" class="LineNr">38468 </span> <span class="subxComment"># v->register = "eax"</span> -<span id="L38469" class="LineNr">38469 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L38470" class="LineNr">38470 </span> (<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="L38471" class="LineNr">38471 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-type</span>: -<span id="L38472" class="LineNr">38472 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L38473" class="LineNr">38473 </span> 68/push 0/imm32/right:null -<span id="L38474" class="LineNr">38474 </span> 68/push 0/imm32/right:null -<span id="L38475" class="LineNr">38475 </span> 68/push 0/imm32/left:unused -<span id="L38476" class="LineNr">38476 </span> 68/push 0/imm32/value:literal -<span id="L38477" class="LineNr">38477 </span> 68/push 1/imm32/is-atom?:true -<span id="L38478" class="LineNr">38478 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38479" class="LineNr">38479 </span> 89/<- %edx 4/r32/esp -<span id="L38480" class="LineNr">38480 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal</span>: -<span id="L38481" class="LineNr">38481 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L38482" class="LineNr">38482 </span> 68/push 0/imm32/register -<span id="L38483" class="LineNr">38483 </span> 68/push 0/imm32/register -<span id="L38484" class="LineNr">38484 </span> 68/push 0/imm32/no-stack-offset -<span id="L38485" class="LineNr">38485 </span> 68/push 1/imm32/block-depth -<span id="L38486" class="LineNr">38486 </span> 52/push-edx -<span id="L38487" class="LineNr">38487 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38488" class="LineNr">38488 </span> 68/push 0/imm32/name -<span id="L38489" class="LineNr">38489 </span> 68/push 0/imm32/name -<span id="L38490" class="LineNr">38490 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38491" class="LineNr">38491 </span> 89/<- %edx 4/r32/esp -<span id="L38492" class="LineNr">38492 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-value</span>: -<span id="L38493" class="LineNr">38493 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L38494" class="LineNr">38494 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38495" class="LineNr">38495 </span> (<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="L38496" class="LineNr">38496 </span><span class="Constant">$test-compare-eax-with-literal:initialize-inouts</span>: -<span id="L38497" class="LineNr">38497 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L38498" class="LineNr">38498 </span> 68/push 0/imm32/is-deref:false -<span id="L38499" class="LineNr">38499 </span> 68/push 0/imm32/next -<span id="L38500" class="LineNr">38500 </span> 68/push 0/imm32/next -<span id="L38501" class="LineNr">38501 </span> 52/push-edx/l -<span id="L38502" class="LineNr">38502 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38503" class="LineNr">38503 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38504" class="LineNr">38504 </span> 89/<- %esi 4/r32/esp -<span id="L38505" class="LineNr">38505 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L38506" class="LineNr">38506 </span> 68/push 0/imm32/is-deref:false -<span id="L38507" class="LineNr">38507 </span> 56/push-esi/next -<span id="L38508" class="LineNr">38508 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38509" class="LineNr">38509 </span> 51/push-ecx/var1 -<span id="L38510" class="LineNr">38510 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38511" class="LineNr">38511 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38512" class="LineNr">38512 </span> 89/<- %esi 4/r32/esp -<span id="L38513" class="LineNr">38513 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt</span>: -<span id="L38514" class="LineNr">38514 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L38515" class="LineNr">38515 </span> 68/push 0/imm32/next -<span id="L38516" class="LineNr">38516 </span> 68/push 0/imm32/next -<span id="L38517" class="LineNr">38517 </span> 68/push 0/imm32/outputs -<span id="L38518" class="LineNr">38518 </span> 68/push 0/imm32/outputs -<span id="L38519" class="LineNr">38519 </span> 56/push-esi/inouts -<span id="L38520" class="LineNr">38520 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38521" class="LineNr">38521 </span> 68/push 0/imm32/operation -<span id="L38522" class="LineNr">38522 </span> 68/push 0/imm32/operation -<span id="L38523" class="LineNr">38523 </span> 68/push 1/imm32/tag:stmt1 -<span id="L38524" class="LineNr">38524 </span> 89/<- %esi 4/r32/esp -<span id="L38525" class="LineNr">38525 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt-operation</span>: -<span id="L38526" class="LineNr">38526 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L38527" class="LineNr">38527 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L38528" class="LineNr">38528 </span> (<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="L38529" class="LineNr">38529 </span> <span class="subxComment"># convert</span> -<span id="L38530" class="LineNr">38530 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L38531" class="LineNr">38531 </span> (<a href='mu.subx.html#L28680'>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#L30469'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L38532" class="LineNr">38532 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L38533" class="Folded">38533 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L38539" class="LineNr">38539 </span> <span class="subxComment"># check output</span> -<span id="L38540" class="LineNr">38540 </span> (<a href='109stream-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="L38541" class="LineNr">38541 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38542" class="LineNr">38542 </span> 89/<- %esp 5/r32/ebp -<span id="L38543" class="LineNr">38543 </span> 5d/pop-to-ebp -<span id="L38544" class="LineNr">38544 </span> c3/return -<span id="L38545" class="LineNr">38545 </span> -<span id="L38546" class="LineNr">38546 </span><span class="subxTest">test-compare-reg-with-literal</span>: -<span id="L38547" class="LineNr">38547 </span> <span class="subxComment"># compare var1/ecx 0x34</span> -<span id="L38548" class="LineNr">38548 </span> <span class="subxComment"># =></span> -<span id="L38549" class="LineNr">38549 </span> <span class="subxComment"># 81 7/subop/compare %ecx 0x34/imm32</span> -<span id="L38550" class="LineNr">38550 </span> <span class="subxComment">#</span> -<span id="L38551" class="LineNr">38551 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38552" class="LineNr">38552 </span> 55/push-ebp -<span id="L38553" class="LineNr">38553 </span> 89/<- %ebp 4/r32/esp -<span id="L38554" class="LineNr">38554 </span> <span class="subxComment"># setup</span> -<span id="L38555" class="LineNr">38555 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L38556" class="LineNr">38556 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L38557" class="LineNr">38557 </span><span class="Constant">$test-compare-reg-with-literal:initialize-type</span>: -<span id="L38558" class="LineNr">38558 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L38559" class="LineNr">38559 </span> 68/push 0/imm32/right:null -<span id="L38560" class="LineNr">38560 </span> 68/push 0/imm32/right:null -<span id="L38561" class="LineNr">38561 </span> 68/push 0/imm32/left:unused -<span id="L38562" class="LineNr">38562 </span> 68/push 1/imm32/value:int -<span id="L38563" class="LineNr">38563 </span> 68/push 1/imm32/is-atom?:true -<span id="L38564" class="LineNr">38564 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38565" class="LineNr">38565 </span> 89/<- %ecx 4/r32/esp -<span id="L38566" class="LineNr">38566 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1</span>: -<span id="L38567" class="LineNr">38567 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L38568" class="LineNr">38568 </span> 68/push 0/imm32/register -<span id="L38569" class="LineNr">38569 </span> 68/push 0/imm32/register -<span id="L38570" class="LineNr">38570 </span> 68/push 0/imm32/no-stack-offset -<span id="L38571" class="LineNr">38571 </span> 68/push 1/imm32/block-depth -<span id="L38572" class="LineNr">38572 </span> 51/push-ecx -<span id="L38573" class="LineNr">38573 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38574" class="LineNr">38574 </span> 68/push 0/imm32/name -<span id="L38575" class="LineNr">38575 </span> 68/push 0/imm32/name -<span id="L38576" class="LineNr">38576 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38577" class="LineNr">38577 </span> 89/<- %ecx 4/r32/esp -<span id="L38578" class="LineNr">38578 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-name</span>: -<span id="L38579" class="LineNr">38579 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L38580" class="LineNr">38580 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38581" class="LineNr">38581 </span> (<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="L38582" class="LineNr">38582 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-register</span>: -<span id="L38583" class="LineNr">38583 </span> <span class="subxComment"># v->register = "ecx"</span> -<span id="L38584" class="LineNr">38584 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L38585" class="LineNr">38585 </span> (<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="L38586" class="LineNr">38586 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-type</span>: -<span id="L38587" class="LineNr">38587 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L38588" class="LineNr">38588 </span> 68/push 0/imm32/right:null +<span id="L38171" class="LineNr">38171 </span> 68/push 0/imm32/name +<span id="L38172" class="LineNr">38172 </span> 68/push 0/imm32/name +<span id="L38173" class="LineNr">38173 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38174" class="LineNr">38174 </span> 89/<- %ecx 4/r32/esp +<span id="L38175" class="LineNr">38175 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1-name</span>: +<span id="L38176" class="LineNr">38176 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L38177" class="LineNr">38177 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38178" class="LineNr">38178 </span> (<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="L38179" class="LineNr">38179 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-type</span>: +<span id="L38180" class="LineNr">38180 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L38181" class="LineNr">38181 </span> 68/push 0/imm32/right:null +<span id="L38182" class="LineNr">38182 </span> 68/push 0/imm32/right:null +<span id="L38183" class="LineNr">38183 </span> 68/push 0/imm32/left:unused +<span id="L38184" class="LineNr">38184 </span> 68/push 0/imm32/value:literal +<span id="L38185" class="LineNr">38185 </span> 68/push 1/imm32/is-atom?:true +<span id="L38186" class="LineNr">38186 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38187" class="LineNr">38187 </span> 89/<- %edx 4/r32/esp +<span id="L38188" class="LineNr">38188 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal</span>: +<span id="L38189" class="LineNr">38189 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L38190" class="LineNr">38190 </span> 68/push 0/imm32/register +<span id="L38191" class="LineNr">38191 </span> 68/push 0/imm32/register +<span id="L38192" class="LineNr">38192 </span> 68/push 0/imm32/no-stack-offset +<span id="L38193" class="LineNr">38193 </span> 68/push 1/imm32/block-depth +<span id="L38194" class="LineNr">38194 </span> 52/push-edx +<span id="L38195" class="LineNr">38195 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38196" class="LineNr">38196 </span> 68/push 0/imm32/name +<span id="L38197" class="LineNr">38197 </span> 68/push 0/imm32/name +<span id="L38198" class="LineNr">38198 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38199" class="LineNr">38199 </span> 89/<- %edx 4/r32/esp +<span id="L38200" class="LineNr">38200 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-value</span>: +<span id="L38201" class="LineNr">38201 </span> <span class="subxComment"># l->name = "3"</span> +<span id="L38202" class="LineNr">38202 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38203" class="LineNr">38203 </span> (<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="L38204" class="LineNr">38204 </span><span class="Constant">$test-shift-mem-by-literal:initialize-inouts</span>: +<span id="L38205" class="LineNr">38205 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L38206" class="LineNr">38206 </span> 68/push 0/imm32/is-deref:false +<span id="L38207" class="LineNr">38207 </span> 68/push 0/imm32/next +<span id="L38208" class="LineNr">38208 </span> 68/push 0/imm32/next +<span id="L38209" class="LineNr">38209 </span> 52/push-edx/l +<span id="L38210" class="LineNr">38210 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38211" class="LineNr">38211 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38212" class="LineNr">38212 </span> 89/<- %esi 4/r32/esp +<span id="L38213" class="LineNr">38213 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L38214" class="LineNr">38214 </span> 68/push 0/imm32/is-deref:false +<span id="L38215" class="LineNr">38215 </span> 56/push-esi/next +<span id="L38216" class="LineNr">38216 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38217" class="LineNr">38217 </span> 51/push-ecx/var1 +<span id="L38218" class="LineNr">38218 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38219" class="LineNr">38219 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38220" class="LineNr">38220 </span> 89/<- %esi 4/r32/esp +<span id="L38221" class="LineNr">38221 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt</span>: +<span id="L38222" class="LineNr">38222 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38223" class="LineNr">38223 </span> 68/push 0/imm32/next +<span id="L38224" class="LineNr">38224 </span> 68/push 0/imm32/next +<span id="L38225" class="LineNr">38225 </span> 68/push 0/imm32/outputs +<span id="L38226" class="LineNr">38226 </span> 68/push 0/imm32/outputs +<span id="L38227" class="LineNr">38227 </span> 56/push-esi/inouts +<span id="L38228" class="LineNr">38228 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38229" class="LineNr">38229 </span> 68/push 0/imm32/operation +<span id="L38230" class="LineNr">38230 </span> 68/push 0/imm32/operation +<span id="L38231" class="LineNr">38231 </span> 68/push 1/imm32/tag:stmt1 +<span id="L38232" class="LineNr">38232 </span> 89/<- %esi 4/r32/esp +<span id="L38233" class="LineNr">38233 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt-operation</span>: +<span id="L38234" class="LineNr">38234 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> +<span id="L38235" class="LineNr">38235 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38236" class="LineNr">38236 </span> (<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="L38237" class="LineNr">38237 </span> <span class="subxComment"># convert</span> +<span id="L38238" class="LineNr">38238 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L38239" class="LineNr">38239 </span> (<a href='mu.subx.html#L28855'>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#L30722'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38240" class="LineNr">38240 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38241" class="Folded">38241 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38247" class="LineNr">38247 </span> <span class="subxComment"># check output</span> +<span id="L38248" class="LineNr">38248 </span> (<a href='109stream-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="L38249" class="LineNr">38249 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38250" class="LineNr">38250 </span> 89/<- %esp 5/r32/ebp +<span id="L38251" class="LineNr">38251 </span> 5d/pop-to-ebp +<span id="L38252" class="LineNr">38252 </span> c3/return +<span id="L38253" class="LineNr">38253 </span> +<span id="L38254" class="LineNr">38254 </span><span class="subxTest">test-compare-reg-with-reg</span>: +<span id="L38255" class="LineNr">38255 </span> <span class="subxComment"># compare var1/ecx, var2/eax</span> +<span id="L38256" class="LineNr">38256 </span> <span class="subxComment"># =></span> +<span id="L38257" class="LineNr">38257 </span> <span class="subxComment"># 39/compare %ecx 0/r32/eax</span> +<span id="L38258" class="LineNr">38258 </span> <span class="subxComment">#</span> +<span id="L38259" class="LineNr">38259 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38260" class="LineNr">38260 </span> 55/push-ebp +<span id="L38261" class="LineNr">38261 </span> 89/<- %ebp 4/r32/esp +<span id="L38262" class="LineNr">38262 </span> <span class="subxComment"># setup</span> +<span id="L38263" class="LineNr">38263 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38264" class="LineNr">38264 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38265" class="LineNr">38265 </span><span class="Constant">$test-compare-reg-with-reg:initialize-type</span>: +<span id="L38266" class="LineNr">38266 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38267" class="LineNr">38267 </span> 68/push 0/imm32/right:null +<span id="L38268" class="LineNr">38268 </span> 68/push 0/imm32/right:null +<span id="L38269" class="LineNr">38269 </span> 68/push 0/imm32/left:unused +<span id="L38270" class="LineNr">38270 </span> 68/push 1/imm32/value:int +<span id="L38271" class="LineNr">38271 </span> 68/push 1/imm32/is-atom?:true +<span id="L38272" class="LineNr">38272 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38273" class="LineNr">38273 </span> 89/<- %ecx 4/r32/esp +<span id="L38274" class="LineNr">38274 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1</span>: +<span id="L38275" class="LineNr">38275 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L38276" class="LineNr">38276 </span> 68/push 0/imm32/register +<span id="L38277" class="LineNr">38277 </span> 68/push 0/imm32/register +<span id="L38278" class="LineNr">38278 </span> 68/push 0/imm32/no-stack-offset +<span id="L38279" class="LineNr">38279 </span> 68/push 1/imm32/block-depth +<span id="L38280" class="LineNr">38280 </span> 51/push-ecx +<span id="L38281" class="LineNr">38281 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38282" class="LineNr">38282 </span> 68/push 0/imm32/name +<span id="L38283" class="LineNr">38283 </span> 68/push 0/imm32/name +<span id="L38284" class="LineNr">38284 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38285" class="LineNr">38285 </span> 89/<- %ecx 4/r32/esp +<span id="L38286" class="LineNr">38286 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-name</span>: +<span id="L38287" class="LineNr">38287 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L38288" class="LineNr">38288 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38289" class="LineNr">38289 </span> (<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="L38290" class="LineNr">38290 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-register</span>: +<span id="L38291" class="LineNr">38291 </span> <span class="subxComment"># var1->register = "ecx"</span> +<span id="L38292" class="LineNr">38292 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L38293" class="LineNr">38293 </span> (<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="L38294" class="LineNr">38294 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2</span>: +<span id="L38295" class="LineNr">38295 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L38296" class="LineNr">38296 </span> 68/push 0/imm32/register +<span id="L38297" class="LineNr">38297 </span> 68/push 0/imm32/register +<span id="L38298" class="LineNr">38298 </span> 68/push 0/imm32/no-stack-offset +<span id="L38299" class="LineNr">38299 </span> 68/push 1/imm32/block-depth +<span id="L38300" class="LineNr">38300 </span> ff 6/subop/push *(ecx+0x10) +<span id="L38301" class="LineNr">38301 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38302" class="LineNr">38302 </span> 68/push 0/imm32/name +<span id="L38303" class="LineNr">38303 </span> 68/push 0/imm32/name +<span id="L38304" class="LineNr">38304 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38305" class="LineNr">38305 </span> 89/<- %edx 4/r32/esp +<span id="L38306" class="LineNr">38306 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-name</span>: +<span id="L38307" class="LineNr">38307 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L38308" class="LineNr">38308 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38309" class="LineNr">38309 </span> (<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="L38310" class="LineNr">38310 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-register</span>: +<span id="L38311" class="LineNr">38311 </span> <span class="subxComment"># var2->register = "eax"</span> +<span id="L38312" class="LineNr">38312 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L38313" class="LineNr">38313 </span> (<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="L38314" class="LineNr">38314 </span><span class="Constant">$test-compare-reg-with-reg:initialize-inouts</span>: +<span id="L38315" class="LineNr">38315 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L38316" class="LineNr">38316 </span> 68/push 0/imm32/is-deref:false +<span id="L38317" class="LineNr">38317 </span> 68/push 0/imm32/next +<span id="L38318" class="LineNr">38318 </span> 68/push 0/imm32/next +<span id="L38319" class="LineNr">38319 </span> 52/push-edx/var2 +<span id="L38320" class="LineNr">38320 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38321" class="LineNr">38321 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38322" class="LineNr">38322 </span> 89/<- %esi 4/r32/esp +<span id="L38323" class="LineNr">38323 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L38324" class="LineNr">38324 </span> 68/push 0/imm32/is-deref:false +<span id="L38325" class="LineNr">38325 </span> 56/push-esi/next +<span id="L38326" class="LineNr">38326 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38327" class="LineNr">38327 </span> 51/push-ecx/var1 +<span id="L38328" class="LineNr">38328 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38329" class="LineNr">38329 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38330" class="LineNr">38330 </span> 89/<- %esi 4/r32/esp +<span id="L38331" class="LineNr">38331 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt</span>: +<span id="L38332" class="LineNr">38332 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38333" class="LineNr">38333 </span> 68/push 0/imm32/next +<span id="L38334" class="LineNr">38334 </span> 68/push 0/imm32/next +<span id="L38335" class="LineNr">38335 </span> 68/push 0/imm32/outputs +<span id="L38336" class="LineNr">38336 </span> 68/push 0/imm32/outputs +<span id="L38337" class="LineNr">38337 </span> 56/push-esi/inouts +<span id="L38338" class="LineNr">38338 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38339" class="LineNr">38339 </span> 68/push 0/imm32/operation +<span id="L38340" class="LineNr">38340 </span> 68/push 0/imm32/operation +<span id="L38341" class="LineNr">38341 </span> 68/push 1/imm32/tag:stmt1 +<span id="L38342" class="LineNr">38342 </span> 89/<- %esi 4/r32/esp +<span id="L38343" class="LineNr">38343 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt-operation</span>: +<span id="L38344" class="LineNr">38344 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L38345" class="LineNr">38345 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38346" class="LineNr">38346 </span> (<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="L38347" class="LineNr">38347 </span> <span class="subxComment"># convert</span> +<span id="L38348" class="LineNr">38348 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L38349" class="LineNr">38349 </span> (<a href='mu.subx.html#L28855'>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#L30722'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38350" class="LineNr">38350 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38351" class="Folded">38351 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38357" class="LineNr">38357 </span> <span class="subxComment"># check output</span> +<span id="L38358" class="LineNr">38358 </span> (<a href='109stream-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="L38359" class="LineNr">38359 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38360" class="LineNr">38360 </span> 89/<- %esp 5/r32/ebp +<span id="L38361" class="LineNr">38361 </span> 5d/pop-to-ebp +<span id="L38362" class="LineNr">38362 </span> c3/return +<span id="L38363" class="LineNr">38363 </span> +<span id="L38364" class="LineNr">38364 </span><span class="subxTest">test-compare-mem-with-reg</span>: +<span id="L38365" class="LineNr">38365 </span> <span class="subxComment"># compare var1, var2/eax</span> +<span id="L38366" class="LineNr">38366 </span> <span class="subxComment"># =></span> +<span id="L38367" class="LineNr">38367 </span> <span class="subxComment"># 39/compare *(ebp+___) 0/r32/eax</span> +<span id="L38368" class="LineNr">38368 </span> <span class="subxComment">#</span> +<span id="L38369" class="LineNr">38369 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38370" class="LineNr">38370 </span> 55/push-ebp +<span id="L38371" class="LineNr">38371 </span> 89/<- %ebp 4/r32/esp +<span id="L38372" class="LineNr">38372 </span> <span class="subxComment"># setup</span> +<span id="L38373" class="LineNr">38373 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38374" class="LineNr">38374 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38375" class="LineNr">38375 </span><span class="Constant">$test-compare-mem-with-reg:initialize-type</span>: +<span id="L38376" class="LineNr">38376 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38377" class="LineNr">38377 </span> 68/push 0/imm32/right:null +<span id="L38378" class="LineNr">38378 </span> 68/push 0/imm32/right:null +<span id="L38379" class="LineNr">38379 </span> 68/push 0/imm32/left:unused +<span id="L38380" class="LineNr">38380 </span> 68/push 1/imm32/value:int +<span id="L38381" class="LineNr">38381 </span> 68/push 1/imm32/is-atom?:true +<span id="L38382" class="LineNr">38382 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38383" class="LineNr">38383 </span> 89/<- %ecx 4/r32/esp +<span id="L38384" class="LineNr">38384 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1</span>: +<span id="L38385" class="LineNr">38385 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L38386" class="LineNr">38386 </span> 68/push 0/imm32/register +<span id="L38387" class="LineNr">38387 </span> 68/push 0/imm32/register +<span id="L38388" class="LineNr">38388 </span> 68/push 8/imm32/stack-offset +<span id="L38389" class="LineNr">38389 </span> 68/push 1/imm32/block-depth +<span id="L38390" class="LineNr">38390 </span> 51/push-ecx +<span id="L38391" class="LineNr">38391 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38392" class="LineNr">38392 </span> 68/push 0/imm32/name +<span id="L38393" class="LineNr">38393 </span> 68/push 0/imm32/name +<span id="L38394" class="LineNr">38394 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38395" class="LineNr">38395 </span> 89/<- %ecx 4/r32/esp +<span id="L38396" class="LineNr">38396 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1-name</span>: +<span id="L38397" class="LineNr">38397 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L38398" class="LineNr">38398 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38399" class="LineNr">38399 </span> (<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="L38400" class="LineNr">38400 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2</span>: +<span id="L38401" class="LineNr">38401 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L38402" class="LineNr">38402 </span> 68/push 0/imm32/register +<span id="L38403" class="LineNr">38403 </span> 68/push 0/imm32/register +<span id="L38404" class="LineNr">38404 </span> 68/push 0/imm32/no-stack-offset +<span id="L38405" class="LineNr">38405 </span> 68/push 1/imm32/block-depth +<span id="L38406" class="LineNr">38406 </span> ff 6/subop/push *(ecx+0x10) +<span id="L38407" class="LineNr">38407 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38408" class="LineNr">38408 </span> 68/push 0/imm32/name +<span id="L38409" class="LineNr">38409 </span> 68/push 0/imm32/name +<span id="L38410" class="LineNr">38410 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38411" class="LineNr">38411 </span> 89/<- %edx 4/r32/esp +<span id="L38412" class="LineNr">38412 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-name</span>: +<span id="L38413" class="LineNr">38413 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L38414" class="LineNr">38414 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38415" class="LineNr">38415 </span> (<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="L38416" class="LineNr">38416 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-register</span>: +<span id="L38417" class="LineNr">38417 </span> <span class="subxComment"># var2->register = "eax"</span> +<span id="L38418" class="LineNr">38418 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L38419" class="LineNr">38419 </span> (<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="L38420" class="LineNr">38420 </span><span class="Constant">$test-compare-mem-with-reg:initialize-inouts</span>: +<span id="L38421" class="LineNr">38421 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L38422" class="LineNr">38422 </span> 68/push 0/imm32/is-deref:false +<span id="L38423" class="LineNr">38423 </span> 68/push 0/imm32/next +<span id="L38424" class="LineNr">38424 </span> 68/push 0/imm32/next +<span id="L38425" class="LineNr">38425 </span> 52/push-edx/var2 +<span id="L38426" class="LineNr">38426 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38427" class="LineNr">38427 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38428" class="LineNr">38428 </span> 89/<- %esi 4/r32/esp +<span id="L38429" class="LineNr">38429 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L38430" class="LineNr">38430 </span> 68/push 0/imm32/is-deref:false +<span id="L38431" class="LineNr">38431 </span> 56/push-esi/next +<span id="L38432" class="LineNr">38432 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38433" class="LineNr">38433 </span> 51/push-ecx/var1 +<span id="L38434" class="LineNr">38434 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38435" class="LineNr">38435 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38436" class="LineNr">38436 </span> 89/<- %esi 4/r32/esp +<span id="L38437" class="LineNr">38437 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt</span>: +<span id="L38438" class="LineNr">38438 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38439" class="LineNr">38439 </span> 68/push 0/imm32/next +<span id="L38440" class="LineNr">38440 </span> 68/push 0/imm32/next +<span id="L38441" class="LineNr">38441 </span> 68/push 0/imm32/outputs +<span id="L38442" class="LineNr">38442 </span> 68/push 0/imm32/outputs +<span id="L38443" class="LineNr">38443 </span> 56/push-esi/inouts +<span id="L38444" class="LineNr">38444 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38445" class="LineNr">38445 </span> 68/push 0/imm32/operation +<span id="L38446" class="LineNr">38446 </span> 68/push 0/imm32/operation +<span id="L38447" class="LineNr">38447 </span> 68/push 1/imm32/tag:stmt1 +<span id="L38448" class="LineNr">38448 </span> 89/<- %esi 4/r32/esp +<span id="L38449" class="LineNr">38449 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt-operation</span>: +<span id="L38450" class="LineNr">38450 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L38451" class="LineNr">38451 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38452" class="LineNr">38452 </span> (<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="L38453" class="LineNr">38453 </span> <span class="subxComment"># convert</span> +<span id="L38454" class="LineNr">38454 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L38455" class="LineNr">38455 </span> (<a href='mu.subx.html#L28855'>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#L30722'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38456" class="LineNr">38456 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38457" class="Folded">38457 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38463" class="LineNr">38463 </span> <span class="subxComment"># check output</span> +<span id="L38464" class="LineNr">38464 </span> (<a href='109stream-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="L38465" class="LineNr">38465 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38466" class="LineNr">38466 </span> 89/<- %esp 5/r32/ebp +<span id="L38467" class="LineNr">38467 </span> 5d/pop-to-ebp +<span id="L38468" class="LineNr">38468 </span> c3/return +<span id="L38469" class="LineNr">38469 </span> +<span id="L38470" class="LineNr">38470 </span><span class="subxTest">test-compare-reg-with-mem</span>: +<span id="L38471" class="LineNr">38471 </span> <span class="subxComment"># compare var1/eax, var2</span> +<span id="L38472" class="LineNr">38472 </span> <span class="subxComment"># =></span> +<span id="L38473" class="LineNr">38473 </span> <span class="subxComment"># 3b/compare<- *(ebp+___) 0/r32/eax</span> +<span id="L38474" class="LineNr">38474 </span> <span class="subxComment">#</span> +<span id="L38475" class="LineNr">38475 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38476" class="LineNr">38476 </span> 55/push-ebp +<span id="L38477" class="LineNr">38477 </span> 89/<- %ebp 4/r32/esp +<span id="L38478" class="LineNr">38478 </span> <span class="subxComment"># setup</span> +<span id="L38479" class="LineNr">38479 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38480" class="LineNr">38480 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38481" class="LineNr">38481 </span><span class="Constant">$test-compare-reg-with-mem:initialize-type</span>: +<span id="L38482" class="LineNr">38482 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38483" class="LineNr">38483 </span> 68/push 0/imm32/right:null +<span id="L38484" class="LineNr">38484 </span> 68/push 0/imm32/right:null +<span id="L38485" class="LineNr">38485 </span> 68/push 0/imm32/left:unused +<span id="L38486" class="LineNr">38486 </span> 68/push 1/imm32/value:int +<span id="L38487" class="LineNr">38487 </span> 68/push 1/imm32/is-atom?:true +<span id="L38488" class="LineNr">38488 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38489" class="LineNr">38489 </span> 89/<- %ecx 4/r32/esp +<span id="L38490" class="LineNr">38490 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1</span>: +<span id="L38491" class="LineNr">38491 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L38492" class="LineNr">38492 </span> 68/push 0/imm32/register +<span id="L38493" class="LineNr">38493 </span> 68/push 0/imm32/register +<span id="L38494" class="LineNr">38494 </span> 68/push 0/imm32/no-stack-offset +<span id="L38495" class="LineNr">38495 </span> 68/push 1/imm32/block-depth +<span id="L38496" class="LineNr">38496 </span> 51/push-ecx +<span id="L38497" class="LineNr">38497 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38498" class="LineNr">38498 </span> 68/push 0/imm32/name +<span id="L38499" class="LineNr">38499 </span> 68/push 0/imm32/name +<span id="L38500" class="LineNr">38500 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38501" class="LineNr">38501 </span> 89/<- %ecx 4/r32/esp +<span id="L38502" class="LineNr">38502 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-name</span>: +<span id="L38503" class="LineNr">38503 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L38504" class="LineNr">38504 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38505" class="LineNr">38505 </span> (<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="L38506" class="LineNr">38506 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-register</span>: +<span id="L38507" class="LineNr">38507 </span> <span class="subxComment"># var1->register = "eax"</span> +<span id="L38508" class="LineNr">38508 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L38509" class="LineNr">38509 </span> (<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="L38510" class="LineNr">38510 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2</span>: +<span id="L38511" class="LineNr">38511 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L38512" class="LineNr">38512 </span> 68/push 0/imm32/register +<span id="L38513" class="LineNr">38513 </span> 68/push 0/imm32/register +<span id="L38514" class="LineNr">38514 </span> 68/push 8/imm32/stack-offset +<span id="L38515" class="LineNr">38515 </span> 68/push 1/imm32/block-depth +<span id="L38516" class="LineNr">38516 </span> ff 6/subop/push *(ecx+0x10) +<span id="L38517" class="LineNr">38517 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38518" class="LineNr">38518 </span> 68/push 0/imm32/name +<span id="L38519" class="LineNr">38519 </span> 68/push 0/imm32/name +<span id="L38520" class="LineNr">38520 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38521" class="LineNr">38521 </span> 89/<- %edx 4/r32/esp +<span id="L38522" class="LineNr">38522 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2-name</span>: +<span id="L38523" class="LineNr">38523 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L38524" class="LineNr">38524 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38525" class="LineNr">38525 </span> (<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="L38526" class="LineNr">38526 </span><span class="Constant">$test-compare-reg-with-mem:initialize-inouts</span>: +<span id="L38527" class="LineNr">38527 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L38528" class="LineNr">38528 </span> 68/push 0/imm32/is-deref:false +<span id="L38529" class="LineNr">38529 </span> 68/push 0/imm32/next +<span id="L38530" class="LineNr">38530 </span> 68/push 0/imm32/next +<span id="L38531" class="LineNr">38531 </span> 52/push-edx/var2 +<span id="L38532" class="LineNr">38532 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38533" class="LineNr">38533 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38534" class="LineNr">38534 </span> 89/<- %esi 4/r32/esp +<span id="L38535" class="LineNr">38535 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L38536" class="LineNr">38536 </span> 68/push 0/imm32/is-deref:false +<span id="L38537" class="LineNr">38537 </span> 56/push-esi/next +<span id="L38538" class="LineNr">38538 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38539" class="LineNr">38539 </span> 51/push-ecx/var1 +<span id="L38540" class="LineNr">38540 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38541" class="LineNr">38541 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38542" class="LineNr">38542 </span> 89/<- %esi 4/r32/esp +<span id="L38543" class="LineNr">38543 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt</span>: +<span id="L38544" class="LineNr">38544 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38545" class="LineNr">38545 </span> 68/push 0/imm32/next +<span id="L38546" class="LineNr">38546 </span> 68/push 0/imm32/next +<span id="L38547" class="LineNr">38547 </span> 68/push 0/imm32/outputs +<span id="L38548" class="LineNr">38548 </span> 68/push 0/imm32/outputs +<span id="L38549" class="LineNr">38549 </span> 56/push-esi/inouts +<span id="L38550" class="LineNr">38550 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38551" class="LineNr">38551 </span> 68/push 0/imm32/operation +<span id="L38552" class="LineNr">38552 </span> 68/push 0/imm32/operation +<span id="L38553" class="LineNr">38553 </span> 68/push 1/imm32/tag:stmt1 +<span id="L38554" class="LineNr">38554 </span> 89/<- %esi 4/r32/esp +<span id="L38555" class="LineNr">38555 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt-operation</span>: +<span id="L38556" class="LineNr">38556 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L38557" class="LineNr">38557 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38558" class="LineNr">38558 </span> (<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="L38559" class="LineNr">38559 </span> <span class="subxComment"># convert</span> +<span id="L38560" class="LineNr">38560 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L38561" class="LineNr">38561 </span> (<a href='mu.subx.html#L28855'>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#L30722'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38562" class="LineNr">38562 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38563" class="Folded">38563 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38569" class="LineNr">38569 </span> <span class="subxComment"># check output</span> +<span id="L38570" class="LineNr">38570 </span> (<a href='109stream-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="L38571" class="LineNr">38571 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38572" class="LineNr">38572 </span> 89/<- %esp 5/r32/ebp +<span id="L38573" class="LineNr">38573 </span> 5d/pop-to-ebp +<span id="L38574" class="LineNr">38574 </span> c3/return +<span id="L38575" class="LineNr">38575 </span> +<span id="L38576" class="LineNr">38576 </span><span class="subxTest">test-compare-mem-with-literal</span>: +<span id="L38577" class="LineNr">38577 </span> <span class="subxComment"># compare var1, 0x34</span> +<span id="L38578" class="LineNr">38578 </span> <span class="subxComment"># =></span> +<span id="L38579" class="LineNr">38579 </span> <span class="subxComment"># 81 7/subop/compare *(ebp+___) 0x34/imm32</span> +<span id="L38580" class="LineNr">38580 </span> <span class="subxComment">#</span> +<span id="L38581" class="LineNr">38581 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38582" class="LineNr">38582 </span> 55/push-ebp +<span id="L38583" class="LineNr">38583 </span> 89/<- %ebp 4/r32/esp +<span id="L38584" class="LineNr">38584 </span> <span class="subxComment"># setup</span> +<span id="L38585" class="LineNr">38585 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38586" class="LineNr">38586 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38587" class="LineNr">38587 </span><span class="Constant">$test-compare-mem-with-literal:initialize-type</span>: +<span id="L38588" class="LineNr">38588 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> <span id="L38589" class="LineNr">38589 </span> 68/push 0/imm32/right:null -<span id="L38590" class="LineNr">38590 </span> 68/push 0/imm32/left:unused -<span id="L38591" class="LineNr">38591 </span> 68/push 0/imm32/value:literal -<span id="L38592" class="LineNr">38592 </span> 68/push 1/imm32/is-atom?:true -<span id="L38593" class="LineNr">38593 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38594" class="LineNr">38594 </span> 89/<- %edx 4/r32/esp -<span id="L38595" class="LineNr">38595 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal</span>: -<span id="L38596" class="LineNr">38596 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L38597" class="LineNr">38597 </span> 68/push 0/imm32/register +<span id="L38590" class="LineNr">38590 </span> 68/push 0/imm32/right:null +<span id="L38591" class="LineNr">38591 </span> 68/push 0/imm32/left:unused +<span id="L38592" class="LineNr">38592 </span> 68/push 1/imm32/value:int +<span id="L38593" class="LineNr">38593 </span> 68/push 1/imm32/is-atom?:true +<span id="L38594" class="LineNr">38594 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38595" class="LineNr">38595 </span> 89/<- %ecx 4/r32/esp +<span id="L38596" class="LineNr">38596 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1</span>: +<span id="L38597" class="LineNr">38597 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> <span id="L38598" class="LineNr">38598 </span> 68/push 0/imm32/register -<span id="L38599" class="LineNr">38599 </span> 68/push 0/imm32/no-stack-offset -<span id="L38600" class="LineNr">38600 </span> 68/push 1/imm32/block-depth -<span id="L38601" class="LineNr">38601 </span> 52/push-edx -<span id="L38602" class="LineNr">38602 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38603" class="LineNr">38603 </span> 68/push 0/imm32/name +<span id="L38599" class="LineNr">38599 </span> 68/push 0/imm32/register +<span id="L38600" class="LineNr">38600 </span> 68/push 8/imm32/stack-offset +<span id="L38601" class="LineNr">38601 </span> 68/push 1/imm32/block-depth +<span id="L38602" class="LineNr">38602 </span> 51/push-ecx +<span id="L38603" class="LineNr">38603 </span> 68/push 0x11/imm32/alloc-id:fake <span id="L38604" class="LineNr">38604 </span> 68/push 0/imm32/name -<span id="L38605" class="LineNr">38605 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38606" class="LineNr">38606 </span> 89/<- %edx 4/r32/esp -<span id="L38607" class="LineNr">38607 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-value</span>: -<span id="L38608" class="LineNr">38608 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L38609" class="LineNr">38609 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38610" class="LineNr">38610 </span> (<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="L38611" class="LineNr">38611 </span><span class="Constant">$test-compare-reg-with-literal:initialize-inouts</span>: -<span id="L38612" class="LineNr">38612 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L38613" class="LineNr">38613 </span> 68/push 0/imm32/is-deref:false -<span id="L38614" class="LineNr">38614 </span> 68/push 0/imm32/next -<span id="L38615" class="LineNr">38615 </span> 68/push 0/imm32/next -<span id="L38616" class="LineNr">38616 </span> 52/push-edx/l -<span id="L38617" class="LineNr">38617 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38618" class="LineNr">38618 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38619" class="LineNr">38619 </span> 89/<- %esi 4/r32/esp -<span id="L38620" class="LineNr">38620 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L38621" class="LineNr">38621 </span> 68/push 0/imm32/is-deref:false -<span id="L38622" class="LineNr">38622 </span> 56/push-esi/next -<span id="L38623" class="LineNr">38623 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38624" class="LineNr">38624 </span> 51/push-ecx/var1 -<span id="L38625" class="LineNr">38625 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38626" class="LineNr">38626 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38627" class="LineNr">38627 </span> 89/<- %esi 4/r32/esp -<span id="L38628" class="LineNr">38628 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt</span>: -<span id="L38629" class="LineNr">38629 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L38630" class="LineNr">38630 </span> 68/push 0/imm32/next -<span id="L38631" class="LineNr">38631 </span> 68/push 0/imm32/next -<span id="L38632" class="LineNr">38632 </span> 68/push 0/imm32/outputs -<span id="L38633" class="LineNr">38633 </span> 68/push 0/imm32/outputs -<span id="L38634" class="LineNr">38634 </span> 56/push-esi/inouts -<span id="L38635" class="LineNr">38635 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38636" class="LineNr">38636 </span> 68/push 0/imm32/operation -<span id="L38637" class="LineNr">38637 </span> 68/push 0/imm32/operation -<span id="L38638" class="LineNr">38638 </span> 68/push 1/imm32/tag:stmt1 -<span id="L38639" class="LineNr">38639 </span> 89/<- %esi 4/r32/esp -<span id="L38640" class="LineNr">38640 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt-operation</span>: -<span id="L38641" class="LineNr">38641 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L38642" class="LineNr">38642 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L38643" class="LineNr">38643 </span> (<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="L38644" class="LineNr">38644 </span> <span class="subxComment"># convert</span> -<span id="L38645" class="LineNr">38645 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L38646" class="LineNr">38646 </span> (<a href='mu.subx.html#L28680'>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#L30469'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L38647" class="LineNr">38647 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L38648" class="Folded">38648 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L38654" class="LineNr">38654 </span> <span class="subxComment"># check output</span> -<span id="L38655" class="LineNr">38655 </span> (<a href='109stream-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="L38656" class="LineNr">38656 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38657" class="LineNr">38657 </span> 89/<- %esp 5/r32/ebp -<span id="L38658" class="LineNr">38658 </span> 5d/pop-to-ebp -<span id="L38659" class="LineNr">38659 </span> c3/return -<span id="L38660" class="LineNr">38660 </span> -<span id="L38661" class="LineNr">38661 </span><span class="subxTest">test-emit-subx-stmt-function-call</span>: -<span id="L38662" class="LineNr">38662 </span> <span class="subxComment"># Call a function on a variable on the stack.</span> -<span id="L38663" class="LineNr">38663 </span> <span class="subxComment"># f foo</span> -<span id="L38664" class="LineNr">38664 </span> <span class="subxComment"># =></span> -<span id="L38665" class="LineNr">38665 </span> <span class="subxComment"># (f *(ebp-8))</span> -<span id="L38666" class="LineNr">38666 </span> <span class="subxComment"># (Changing the function name supports overloading in general, but here it</span> -<span id="L38667" class="LineNr">38667 </span> <span class="subxComment"># just serves to help disambiguate things.)</span> -<span id="L38668" class="LineNr">38668 </span> <span class="subxComment">#</span> -<span id="L38669" class="LineNr">38669 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L38670" class="LineNr">38670 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L38671" class="LineNr">38671 </span> <span class="subxComment"># type: int</span> -<span id="L38672" class="LineNr">38672 </span> <span class="subxComment"># stack-offset: -8</span> -<span id="L38673" class="LineNr">38673 </span> <span class="subxComment">#</span> -<span id="L38674" class="LineNr">38674 </span> <span class="subxComment"># There's nothing in primitives.</span> -<span id="L38675" class="LineNr">38675 </span> <span class="subxComment">#</span> -<span id="L38676" class="LineNr">38676 </span> <span class="subxComment"># We don't perform any checking here on the type of 'f'.</span> -<span id="L38677" class="LineNr">38677 </span> <span class="subxComment">#</span> -<span id="L38678" class="LineNr">38678 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38679" class="LineNr">38679 </span> 55/push-ebp -<span id="L38680" class="LineNr">38680 </span> 89/<- %ebp 4/r32/esp -<span id="L38681" class="LineNr">38681 </span> <span class="subxComment"># setup</span> -<span id="L38682" class="LineNr">38682 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L38683" class="LineNr">38683 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L38684" class="LineNr">38684 </span><span class="Constant">$test-emit-subx-function-call:initialize-type</span>: -<span id="L38685" class="LineNr">38685 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L38686" class="LineNr">38686 </span> 68/push 0/imm32/right:null -<span id="L38687" class="LineNr">38687 </span> 68/push 0/imm32/right:null -<span id="L38688" class="LineNr">38688 </span> 68/push 0/imm32/left:unused -<span id="L38689" class="LineNr">38689 </span> 68/push 1/imm32/value:int -<span id="L38690" class="LineNr">38690 </span> 68/push 1/imm32/is-atom?:true -<span id="L38691" class="LineNr">38691 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38692" class="LineNr">38692 </span> 89/<- %ecx 4/r32/esp -<span id="L38693" class="LineNr">38693 </span><span class="Constant">$test-emit-subx-function-call:initialize-var</span>: -<span id="L38694" class="LineNr">38694 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> -<span id="L38695" class="LineNr">38695 </span> 68/push 0/imm32/no-register -<span id="L38696" class="LineNr">38696 </span> 68/push 0/imm32/no-register -<span id="L38697" class="LineNr">38697 </span> 68/push -8/imm32/stack-offset -<span id="L38698" class="LineNr">38698 </span> 68/push 1/imm32/block-depth -<span id="L38699" class="LineNr">38699 </span> 51/push-ecx/type -<span id="L38700" class="LineNr">38700 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38701" class="LineNr">38701 </span> 68/push 0/imm32/name -<span id="L38702" class="LineNr">38702 </span> 68/push 0/imm32/name -<span id="L38703" class="LineNr">38703 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38704" class="LineNr">38704 </span> 89/<- %ecx 4/r32/esp -<span id="L38705" class="LineNr">38705 </span><span class="Constant">$test-emit-subx-function-call:initialize-var-name</span>: -<span id="L38706" class="LineNr">38706 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L38707" class="LineNr">38707 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38708" class="LineNr">38708 </span> (<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="L38709" class="LineNr">38709 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-var</span>: -<span id="L38710" class="LineNr">38710 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> -<span id="L38711" class="LineNr">38711 </span> 68/push 0/imm32/is-deref:false -<span id="L38712" class="LineNr">38712 </span> 68/push 0/imm32/next -<span id="L38713" class="LineNr">38713 </span> 68/push 0/imm32/next -<span id="L38714" class="LineNr">38714 </span> 51/push-ecx/var-foo -<span id="L38715" class="LineNr">38715 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38716" class="LineNr">38716 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38717" class="LineNr">38717 </span> 89/<- %ebx 4/r32/esp -<span id="L38718" class="LineNr">38718 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt</span>: -<span id="L38719" class="LineNr">38719 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L38720" class="LineNr">38720 </span> 68/push 0/imm32/no-outputs -<span id="L38721" class="LineNr">38721 </span> 68/push 0/imm32/no-outputs -<span id="L38722" class="LineNr">38722 </span> 53/push-ebx/inouts -<span id="L38723" class="LineNr">38723 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38724" class="LineNr">38724 </span> 68/push 0/imm32/operation -<span id="L38725" class="LineNr">38725 </span> 68/push 0/imm32/operation -<span id="L38726" class="LineNr">38726 </span> 68/push 1/imm32/tag -<span id="L38727" class="LineNr">38727 </span> 89/<- %esi 4/r32/esp -<span id="L38728" class="LineNr">38728 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-operation</span>: -<span id="L38729" class="LineNr">38729 </span> <span class="subxComment"># stmt->operation = "f"</span> -<span id="L38730" class="LineNr">38730 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L38731" class="LineNr">38731 </span> (<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="L38732" class="LineNr">38732 </span> <span class="subxComment"># convert</span> -<span id="L38733" class="LineNr">38733 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L38734" class="LineNr">38734 </span> (<a href='mu.subx.html#L28680'>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="L38735" class="LineNr">38735 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L38736" class="Folded">38736 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L38742" class="LineNr">38742 </span> <span class="subxComment"># check output</span> -<span id="L38743" class="LineNr">38743 </span> (<a href='109stream-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="L38744" class="LineNr">38744 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38745" class="LineNr">38745 </span> 89/<- %esp 5/r32/ebp -<span id="L38746" class="LineNr">38746 </span> 5d/pop-to-ebp -<span id="L38747" class="LineNr">38747 </span> c3/return -<span id="L38748" class="LineNr">38748 </span> -<span id="L38749" class="LineNr">38749 </span><span class="subxTest">test-emit-subx-stmt-function-call-with-literal-arg</span>: -<span id="L38750" class="LineNr">38750 </span> <span class="subxComment"># Call a function on a literal.</span> -<span id="L38751" class="LineNr">38751 </span> <span class="subxComment"># f 0x34</span> -<span id="L38752" class="LineNr">38752 </span> <span class="subxComment"># =></span> -<span id="L38753" class="LineNr">38753 </span> <span class="subxComment"># (f2 0x34)</span> -<span id="L38754" class="LineNr">38754 </span> <span class="subxComment">#</span> -<span id="L38755" class="LineNr">38755 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38756" class="LineNr">38756 </span> 55/push-ebp -<span id="L38757" class="LineNr">38757 </span> 89/<- %ebp 4/r32/esp -<span id="L38758" class="LineNr">38758 </span> <span class="subxComment"># setup</span> -<span id="L38759" class="LineNr">38759 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) -<span id="L38760" class="LineNr">38760 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L38761" class="LineNr">38761 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-type</span>: -<span id="L38762" class="LineNr">38762 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L38763" class="LineNr">38763 </span> 68/push 0/imm32/right:null -<span id="L38764" class="LineNr">38764 </span> 68/push 0/imm32/right:null -<span id="L38765" class="LineNr">38765 </span> 68/push 0/imm32/left:unused -<span id="L38766" class="LineNr">38766 </span> 68/push 0/imm32/value:literal -<span id="L38767" class="LineNr">38767 </span> 68/push 1/imm32/is-atom?:true -<span id="L38768" class="LineNr">38768 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38769" class="LineNr">38769 </span> 89/<- %ecx 4/r32/esp -<span id="L38770" class="LineNr">38770 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var</span>: -<span id="L38771" class="LineNr">38771 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(lit)</span> -<span id="L38772" class="LineNr">38772 </span> 68/push 0/imm32/no-register -<span id="L38773" class="LineNr">38773 </span> 68/push 0/imm32/no-register -<span id="L38774" class="LineNr">38774 </span> 68/push 0/imm32/no-stack-offset -<span id="L38775" class="LineNr">38775 </span> 68/push 1/imm32/block-depth -<span id="L38776" class="LineNr">38776 </span> 51/push-ecx/type -<span id="L38777" class="LineNr">38777 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38778" class="LineNr">38778 </span> 68/push 0/imm32/name -<span id="L38779" class="LineNr">38779 </span> 68/push 0/imm32/name -<span id="L38780" class="LineNr">38780 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38781" class="LineNr">38781 </span> 89/<- %ecx 4/r32/esp -<span id="L38782" class="LineNr">38782 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var-name</span>: -<span id="L38783" class="LineNr">38783 </span> <span class="subxComment"># var-foo->name = "0x34"</span> -<span id="L38784" class="LineNr">38784 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L38785" class="LineNr">38785 </span> (<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="L38786" class="LineNr">38786 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-var</span>: -<span id="L38787" class="LineNr">38787 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> -<span id="L38788" class="LineNr">38788 </span> 68/push 0/imm32/is-deref:false -<span id="L38789" class="LineNr">38789 </span> 68/push 0/imm32/next -<span id="L38790" class="LineNr">38790 </span> 68/push 0/imm32/next -<span id="L38791" class="LineNr">38791 </span> 51/push-ecx/var-foo -<span id="L38792" class="LineNr">38792 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38793" class="LineNr">38793 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38794" class="LineNr">38794 </span> 89/<- %ebx 4/r32/esp -<span id="L38795" class="LineNr">38795 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt</span>: -<span id="L38796" class="LineNr">38796 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L38797" class="LineNr">38797 </span> 68/push 0/imm32/no-outputs -<span id="L38798" class="LineNr">38798 </span> 68/push 0/imm32/no-outputs -<span id="L38799" class="LineNr">38799 </span> 53/push-ebx/inouts -<span id="L38800" class="LineNr">38800 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38801" class="LineNr">38801 </span> 68/push 0/imm32/operation -<span id="L38802" class="LineNr">38802 </span> 68/push 0/imm32/operation -<span id="L38803" class="LineNr">38803 </span> 68/push 1/imm32/tag -<span id="L38804" class="LineNr">38804 </span> 89/<- %esi 4/r32/esp -<span id="L38805" class="LineNr">38805 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-operation</span>: -<span id="L38806" class="LineNr">38806 </span> <span class="subxComment"># stmt->operation = "f"</span> -<span id="L38807" class="LineNr">38807 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L38808" class="LineNr">38808 </span> (<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="L38809" class="LineNr">38809 </span> <span class="subxComment"># convert</span> -<span id="L38810" class="LineNr">38810 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15739'>Curr-block-depth</a></span> 0/imm32 -<span id="L38811" class="LineNr">38811 </span> (<a href='mu.subx.html#L28680'>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="L38812" class="LineNr">38812 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) -<span id="L38813" class="Folded">38813 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L38819" class="LineNr">38819 </span> <span class="subxComment"># check output</span> -<span id="L38820" class="LineNr">38820 </span> (<a href='109stream-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="L38821" class="LineNr">38821 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38822" class="LineNr">38822 </span> 89/<- %esp 5/r32/ebp -<span id="L38823" class="LineNr">38823 </span> 5d/pop-to-ebp -<span id="L38824" class="LineNr">38824 </span> c3/return -<span id="L38825" class="LineNr">38825 </span> -<span id="L38826" class="LineNr">38826 </span><span class="subxFunction">emit-indent</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> -<span id="L38827" class="LineNr">38827 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38828" class="LineNr">38828 </span> 55/push-ebp -<span id="L38829" class="LineNr">38829 </span> 89/<- %ebp 4/r32/esp -<span id="L38830" class="LineNr">38830 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L38831" class="LineNr">38831 </span> 50/push-eax -<span id="L38832" class="LineNr">38832 </span> <span class="subxComment"># var i/eax: int = n</span> -<span id="L38833" class="LineNr">38833 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L38834" class="LineNr">38834 </span> { -<span id="L38835" class="LineNr">38835 </span> <span class="subxComment"># if (i <= 0) break</span> -<span id="L38836" class="LineNr">38836 </span> 3d/compare-eax-with 0/imm32 -<span id="L38837" class="LineNr">38837 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L38838" class="LineNr">38838 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L38839" class="LineNr">38839 </span> 48/decrement-eax -<span id="L38840" class="LineNr">38840 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L38841" class="LineNr">38841 </span> } -<span id="L38842" class="LineNr">38842 </span><span class="Constant">$emit-indent:end</span>: -<span id="L38843" class="LineNr">38843 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L38844" class="LineNr">38844 </span> 58/pop-to-eax -<span id="L38845" class="LineNr">38845 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38846" class="LineNr">38846 </span> 89/<- %esp 5/r32/ebp -<span id="L38847" class="LineNr">38847 </span> 5d/pop-to-ebp -<span id="L38848" class="LineNr">38848 </span> c3/return -<span id="L38849" class="LineNr">38849 </span> -<span id="L38850" class="LineNr">38850 </span><span class="subxFunction">emit-subx-prologue</span>: <span class="subxComment"># out: (addr buffered-file)</span> -<span id="L38851" class="LineNr">38851 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38852" class="LineNr">38852 </span> 55/push-ebp -<span id="L38853" class="LineNr">38853 </span> 89/<- %ebp 4/r32/esp -<span id="L38854" class="LineNr">38854 </span> <span class="subxComment">#</span> -<span id="L38855" class="LineNr">38855 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . prologue\n"</span>) -<span id="L38856" class="LineNr">38856 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 55/push-ebp\n"</span>) -<span id="L38857" class="LineNr">38857 </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="L38858" class="LineNr">38858 </span><span class="Constant">$emit-subx-prologue:end</span>: -<span id="L38859" class="LineNr">38859 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38860" class="LineNr">38860 </span> 89/<- %esp 5/r32/ebp -<span id="L38861" class="LineNr">38861 </span> 5d/pop-to-ebp -<span id="L38862" class="LineNr">38862 </span> c3/return -<span id="L38863" class="LineNr">38863 </span> -<span id="L38864" class="LineNr">38864 </span><span class="subxFunction">emit-subx-epilogue</span>: <span class="subxComment"># out: (addr buffered-file)</span> -<span id="L38865" class="LineNr">38865 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38866" class="LineNr">38866 </span> 55/push-ebp -<span id="L38867" class="LineNr">38867 </span> 89/<- %ebp 4/r32/esp -<span id="L38868" class="LineNr">38868 </span> <span class="subxComment">#</span> -<span id="L38869" class="LineNr">38869 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . epilogue\n"</span>) -<span id="L38870" class="LineNr">38870 </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="L38871" class="LineNr">38871 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 5d/pop-to-ebp\n"</span>) -<span id="L38872" class="LineNr">38872 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" c3/return\n"</span>) -<span id="L38873" class="LineNr">38873 </span><span class="Constant">$emit-subx-epilogue:end</span>: -<span id="L38874" class="LineNr">38874 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38875" class="LineNr">38875 </span> 89/<- %esp 5/r32/ebp -<span id="L38876" class="LineNr">38876 </span> 5d/pop-to-ebp -<span id="L38877" class="LineNr">38877 </span> c3/return +<span id="L38605" class="LineNr">38605 </span> 68/push 0/imm32/name +<span id="L38606" class="LineNr">38606 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38607" class="LineNr">38607 </span> 89/<- %ecx 4/r32/esp +<span id="L38608" class="LineNr">38608 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1-name</span>: +<span id="L38609" class="LineNr">38609 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L38610" class="LineNr">38610 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38611" class="LineNr">38611 </span> (<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="L38612" class="LineNr">38612 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-type</span>: +<span id="L38613" class="LineNr">38613 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L38614" class="LineNr">38614 </span> 68/push 0/imm32/right:null +<span id="L38615" class="LineNr">38615 </span> 68/push 0/imm32/right:null +<span id="L38616" class="LineNr">38616 </span> 68/push 0/imm32/left:unused +<span id="L38617" class="LineNr">38617 </span> 68/push 0/imm32/value:literal +<span id="L38618" class="LineNr">38618 </span> 68/push 1/imm32/is-atom?:true +<span id="L38619" class="LineNr">38619 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38620" class="LineNr">38620 </span> 89/<- %edx 4/r32/esp +<span id="L38621" class="LineNr">38621 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal</span>: +<span id="L38622" class="LineNr">38622 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L38623" class="LineNr">38623 </span> 68/push 0/imm32/register +<span id="L38624" class="LineNr">38624 </span> 68/push 0/imm32/register +<span id="L38625" class="LineNr">38625 </span> 68/push 0/imm32/no-stack-offset +<span id="L38626" class="LineNr">38626 </span> 68/push 1/imm32/block-depth +<span id="L38627" class="LineNr">38627 </span> 52/push-edx +<span id="L38628" class="LineNr">38628 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38629" class="LineNr">38629 </span> 68/push 0/imm32/name +<span id="L38630" class="LineNr">38630 </span> 68/push 0/imm32/name +<span id="L38631" class="LineNr">38631 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38632" class="LineNr">38632 </span> 89/<- %edx 4/r32/esp +<span id="L38633" class="LineNr">38633 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-value</span>: +<span id="L38634" class="LineNr">38634 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L38635" class="LineNr">38635 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38636" class="LineNr">38636 </span> (<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="L38637" class="LineNr">38637 </span><span class="Constant">$test-compare-mem-with-literal:initialize-inouts</span>: +<span id="L38638" class="LineNr">38638 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L38639" class="LineNr">38639 </span> 68/push 0/imm32/is-deref:false +<span id="L38640" class="LineNr">38640 </span> 68/push 0/imm32/next +<span id="L38641" class="LineNr">38641 </span> 68/push 0/imm32/next +<span id="L38642" class="LineNr">38642 </span> 52/push-edx/l +<span id="L38643" class="LineNr">38643 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38644" class="LineNr">38644 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38645" class="LineNr">38645 </span> 89/<- %esi 4/r32/esp +<span id="L38646" class="LineNr">38646 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L38647" class="LineNr">38647 </span> 68/push 0/imm32/is-deref:false +<span id="L38648" class="LineNr">38648 </span> 56/push-esi/next +<span id="L38649" class="LineNr">38649 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38650" class="LineNr">38650 </span> 51/push-ecx/var1 +<span id="L38651" class="LineNr">38651 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38652" class="LineNr">38652 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38653" class="LineNr">38653 </span> 89/<- %esi 4/r32/esp +<span id="L38654" class="LineNr">38654 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt</span>: +<span id="L38655" class="LineNr">38655 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38656" class="LineNr">38656 </span> 68/push 0/imm32/next +<span id="L38657" class="LineNr">38657 </span> 68/push 0/imm32/next +<span id="L38658" class="LineNr">38658 </span> 68/push 0/imm32/outputs +<span id="L38659" class="LineNr">38659 </span> 68/push 0/imm32/outputs +<span id="L38660" class="LineNr">38660 </span> 56/push-esi/inouts +<span id="L38661" class="LineNr">38661 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38662" class="LineNr">38662 </span> 68/push 0/imm32/operation +<span id="L38663" class="LineNr">38663 </span> 68/push 0/imm32/operation +<span id="L38664" class="LineNr">38664 </span> 68/push 1/imm32/tag:stmt1 +<span id="L38665" class="LineNr">38665 </span> 89/<- %esi 4/r32/esp +<span id="L38666" class="LineNr">38666 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt-operation</span>: +<span id="L38667" class="LineNr">38667 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L38668" class="LineNr">38668 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38669" class="LineNr">38669 </span> (<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="L38670" class="LineNr">38670 </span> <span class="subxComment"># convert</span> +<span id="L38671" class="LineNr">38671 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L38672" class="LineNr">38672 </span> (<a href='mu.subx.html#L28855'>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#L30722'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38673" class="LineNr">38673 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38674" class="Folded">38674 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38680" class="LineNr">38680 </span> <span class="subxComment"># check output</span> +<span id="L38681" class="LineNr">38681 </span> (<a href='109stream-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="L38682" class="LineNr">38682 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38683" class="LineNr">38683 </span> 89/<- %esp 5/r32/ebp +<span id="L38684" class="LineNr">38684 </span> 5d/pop-to-ebp +<span id="L38685" class="LineNr">38685 </span> c3/return +<span id="L38686" class="LineNr">38686 </span> +<span id="L38687" class="LineNr">38687 </span><span class="subxTest">test-compare-eax-with-literal</span>: +<span id="L38688" class="LineNr">38688 </span> <span class="subxComment"># compare var1/eax 0x34</span> +<span id="L38689" class="LineNr">38689 </span> <span class="subxComment"># =></span> +<span id="L38690" class="LineNr">38690 </span> <span class="subxComment"># 3d/compare-eax-with 0x34/imm32</span> +<span id="L38691" class="LineNr">38691 </span> <span class="subxComment">#</span> +<span id="L38692" class="LineNr">38692 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38693" class="LineNr">38693 </span> 55/push-ebp +<span id="L38694" class="LineNr">38694 </span> 89/<- %ebp 4/r32/esp +<span id="L38695" class="LineNr">38695 </span> <span class="subxComment"># setup</span> +<span id="L38696" class="LineNr">38696 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38697" class="LineNr">38697 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38698" class="LineNr">38698 </span><span class="Constant">$test-compare-eax-with-literal:initialize-type</span>: +<span id="L38699" class="LineNr">38699 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38700" class="LineNr">38700 </span> 68/push 0/imm32/right:null +<span id="L38701" class="LineNr">38701 </span> 68/push 0/imm32/right:null +<span id="L38702" class="LineNr">38702 </span> 68/push 0/imm32/left:unused +<span id="L38703" class="LineNr">38703 </span> 68/push 1/imm32/value:int +<span id="L38704" class="LineNr">38704 </span> 68/push 1/imm32/is-atom?:true +<span id="L38705" class="LineNr">38705 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38706" class="LineNr">38706 </span> 89/<- %ecx 4/r32/esp +<span id="L38707" class="LineNr">38707 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1</span>: +<span id="L38708" class="LineNr">38708 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L38709" class="LineNr">38709 </span> 68/push 0/imm32/register +<span id="L38710" class="LineNr">38710 </span> 68/push 0/imm32/register +<span id="L38711" class="LineNr">38711 </span> 68/push 0/imm32/no-stack-offset +<span id="L38712" class="LineNr">38712 </span> 68/push 1/imm32/block-depth +<span id="L38713" class="LineNr">38713 </span> 51/push-ecx +<span id="L38714" class="LineNr">38714 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38715" class="LineNr">38715 </span> 68/push 0/imm32/name +<span id="L38716" class="LineNr">38716 </span> 68/push 0/imm32/name +<span id="L38717" class="LineNr">38717 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38718" class="LineNr">38718 </span> 89/<- %ecx 4/r32/esp +<span id="L38719" class="LineNr">38719 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-name</span>: +<span id="L38720" class="LineNr">38720 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L38721" class="LineNr">38721 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38722" class="LineNr">38722 </span> (<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="L38723" class="LineNr">38723 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-register</span>: +<span id="L38724" class="LineNr">38724 </span> <span class="subxComment"># v->register = "eax"</span> +<span id="L38725" class="LineNr">38725 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L38726" class="LineNr">38726 </span> (<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="L38727" class="LineNr">38727 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-type</span>: +<span id="L38728" class="LineNr">38728 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L38729" class="LineNr">38729 </span> 68/push 0/imm32/right:null +<span id="L38730" class="LineNr">38730 </span> 68/push 0/imm32/right:null +<span id="L38731" class="LineNr">38731 </span> 68/push 0/imm32/left:unused +<span id="L38732" class="LineNr">38732 </span> 68/push 0/imm32/value:literal +<span id="L38733" class="LineNr">38733 </span> 68/push 1/imm32/is-atom?:true +<span id="L38734" class="LineNr">38734 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38735" class="LineNr">38735 </span> 89/<- %edx 4/r32/esp +<span id="L38736" class="LineNr">38736 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal</span>: +<span id="L38737" class="LineNr">38737 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L38738" class="LineNr">38738 </span> 68/push 0/imm32/register +<span id="L38739" class="LineNr">38739 </span> 68/push 0/imm32/register +<span id="L38740" class="LineNr">38740 </span> 68/push 0/imm32/no-stack-offset +<span id="L38741" class="LineNr">38741 </span> 68/push 1/imm32/block-depth +<span id="L38742" class="LineNr">38742 </span> 52/push-edx +<span id="L38743" class="LineNr">38743 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38744" class="LineNr">38744 </span> 68/push 0/imm32/name +<span id="L38745" class="LineNr">38745 </span> 68/push 0/imm32/name +<span id="L38746" class="LineNr">38746 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38747" class="LineNr">38747 </span> 89/<- %edx 4/r32/esp +<span id="L38748" class="LineNr">38748 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-value</span>: +<span id="L38749" class="LineNr">38749 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L38750" class="LineNr">38750 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38751" class="LineNr">38751 </span> (<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="L38752" class="LineNr">38752 </span><span class="Constant">$test-compare-eax-with-literal:initialize-inouts</span>: +<span id="L38753" class="LineNr">38753 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L38754" class="LineNr">38754 </span> 68/push 0/imm32/is-deref:false +<span id="L38755" class="LineNr">38755 </span> 68/push 0/imm32/next +<span id="L38756" class="LineNr">38756 </span> 68/push 0/imm32/next +<span id="L38757" class="LineNr">38757 </span> 52/push-edx/l +<span id="L38758" class="LineNr">38758 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38759" class="LineNr">38759 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38760" class="LineNr">38760 </span> 89/<- %esi 4/r32/esp +<span id="L38761" class="LineNr">38761 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L38762" class="LineNr">38762 </span> 68/push 0/imm32/is-deref:false +<span id="L38763" class="LineNr">38763 </span> 56/push-esi/next +<span id="L38764" class="LineNr">38764 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38765" class="LineNr">38765 </span> 51/push-ecx/var1 +<span id="L38766" class="LineNr">38766 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38767" class="LineNr">38767 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38768" class="LineNr">38768 </span> 89/<- %esi 4/r32/esp +<span id="L38769" class="LineNr">38769 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt</span>: +<span id="L38770" class="LineNr">38770 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38771" class="LineNr">38771 </span> 68/push 0/imm32/next +<span id="L38772" class="LineNr">38772 </span> 68/push 0/imm32/next +<span id="L38773" class="LineNr">38773 </span> 68/push 0/imm32/outputs +<span id="L38774" class="LineNr">38774 </span> 68/push 0/imm32/outputs +<span id="L38775" class="LineNr">38775 </span> 56/push-esi/inouts +<span id="L38776" class="LineNr">38776 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38777" class="LineNr">38777 </span> 68/push 0/imm32/operation +<span id="L38778" class="LineNr">38778 </span> 68/push 0/imm32/operation +<span id="L38779" class="LineNr">38779 </span> 68/push 1/imm32/tag:stmt1 +<span id="L38780" class="LineNr">38780 </span> 89/<- %esi 4/r32/esp +<span id="L38781" class="LineNr">38781 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt-operation</span>: +<span id="L38782" class="LineNr">38782 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L38783" class="LineNr">38783 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38784" class="LineNr">38784 </span> (<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="L38785" class="LineNr">38785 </span> <span class="subxComment"># convert</span> +<span id="L38786" class="LineNr">38786 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L38787" class="LineNr">38787 </span> (<a href='mu.subx.html#L28855'>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#L30722'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38788" class="LineNr">38788 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38789" class="Folded">38789 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38795" class="LineNr">38795 </span> <span class="subxComment"># check output</span> +<span id="L38796" class="LineNr">38796 </span> (<a href='109stream-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="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="subxTest">test-compare-reg-with-literal</span>: +<span id="L38803" class="LineNr">38803 </span> <span class="subxComment"># compare var1/ecx 0x34</span> +<span id="L38804" class="LineNr">38804 </span> <span class="subxComment"># =></span> +<span id="L38805" class="LineNr">38805 </span> <span class="subxComment"># 81 7/subop/compare %ecx 0x34/imm32</span> +<span id="L38806" class="LineNr">38806 </span> <span class="subxComment">#</span> +<span id="L38807" class="LineNr">38807 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38808" class="LineNr">38808 </span> 55/push-ebp +<span id="L38809" class="LineNr">38809 </span> 89/<- %ebp 4/r32/esp +<span id="L38810" class="LineNr">38810 </span> <span class="subxComment"># setup</span> +<span id="L38811" class="LineNr">38811 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38812" class="LineNr">38812 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38813" class="LineNr">38813 </span><span class="Constant">$test-compare-reg-with-literal:initialize-type</span>: +<span id="L38814" class="LineNr">38814 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38815" class="LineNr">38815 </span> 68/push 0/imm32/right:null +<span id="L38816" class="LineNr">38816 </span> 68/push 0/imm32/right:null +<span id="L38817" class="LineNr">38817 </span> 68/push 0/imm32/left:unused +<span id="L38818" class="LineNr">38818 </span> 68/push 1/imm32/value:int +<span id="L38819" class="LineNr">38819 </span> 68/push 1/imm32/is-atom?:true +<span id="L38820" class="LineNr">38820 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38821" class="LineNr">38821 </span> 89/<- %ecx 4/r32/esp +<span id="L38822" class="LineNr">38822 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1</span>: +<span id="L38823" class="LineNr">38823 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L38824" class="LineNr">38824 </span> 68/push 0/imm32/register +<span id="L38825" class="LineNr">38825 </span> 68/push 0/imm32/register +<span id="L38826" class="LineNr">38826 </span> 68/push 0/imm32/no-stack-offset +<span id="L38827" class="LineNr">38827 </span> 68/push 1/imm32/block-depth +<span id="L38828" class="LineNr">38828 </span> 51/push-ecx +<span id="L38829" class="LineNr">38829 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38830" class="LineNr">38830 </span> 68/push 0/imm32/name +<span id="L38831" class="LineNr">38831 </span> 68/push 0/imm32/name +<span id="L38832" class="LineNr">38832 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38833" class="LineNr">38833 </span> 89/<- %ecx 4/r32/esp +<span id="L38834" class="LineNr">38834 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-name</span>: +<span id="L38835" class="LineNr">38835 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L38836" class="LineNr">38836 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38837" class="LineNr">38837 </span> (<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="L38838" class="LineNr">38838 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-register</span>: +<span id="L38839" class="LineNr">38839 </span> <span class="subxComment"># v->register = "ecx"</span> +<span id="L38840" class="LineNr">38840 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L38841" class="LineNr">38841 </span> (<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="L38842" class="LineNr">38842 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-type</span>: +<span id="L38843" class="LineNr">38843 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L38844" class="LineNr">38844 </span> 68/push 0/imm32/right:null +<span id="L38845" class="LineNr">38845 </span> 68/push 0/imm32/right:null +<span id="L38846" class="LineNr">38846 </span> 68/push 0/imm32/left:unused +<span id="L38847" class="LineNr">38847 </span> 68/push 0/imm32/value:literal +<span id="L38848" class="LineNr">38848 </span> 68/push 1/imm32/is-atom?:true +<span id="L38849" class="LineNr">38849 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38850" class="LineNr">38850 </span> 89/<- %edx 4/r32/esp +<span id="L38851" class="LineNr">38851 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal</span>: +<span id="L38852" class="LineNr">38852 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L38853" class="LineNr">38853 </span> 68/push 0/imm32/register +<span id="L38854" class="LineNr">38854 </span> 68/push 0/imm32/register +<span id="L38855" class="LineNr">38855 </span> 68/push 0/imm32/no-stack-offset +<span id="L38856" class="LineNr">38856 </span> 68/push 1/imm32/block-depth +<span id="L38857" class="LineNr">38857 </span> 52/push-edx +<span id="L38858" class="LineNr">38858 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38859" class="LineNr">38859 </span> 68/push 0/imm32/name +<span id="L38860" class="LineNr">38860 </span> 68/push 0/imm32/name +<span id="L38861" class="LineNr">38861 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38862" class="LineNr">38862 </span> 89/<- %edx 4/r32/esp +<span id="L38863" class="LineNr">38863 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-value</span>: +<span id="L38864" class="LineNr">38864 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L38865" class="LineNr">38865 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38866" class="LineNr">38866 </span> (<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="L38867" class="LineNr">38867 </span><span class="Constant">$test-compare-reg-with-literal:initialize-inouts</span>: +<span id="L38868" class="LineNr">38868 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L38869" class="LineNr">38869 </span> 68/push 0/imm32/is-deref:false +<span id="L38870" class="LineNr">38870 </span> 68/push 0/imm32/next +<span id="L38871" class="LineNr">38871 </span> 68/push 0/imm32/next +<span id="L38872" class="LineNr">38872 </span> 52/push-edx/l +<span id="L38873" class="LineNr">38873 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38874" class="LineNr">38874 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38875" class="LineNr">38875 </span> 89/<- %esi 4/r32/esp +<span id="L38876" class="LineNr">38876 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L38877" class="LineNr">38877 </span> 68/push 0/imm32/is-deref:false +<span id="L38878" class="LineNr">38878 </span> 56/push-esi/next +<span id="L38879" class="LineNr">38879 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38880" class="LineNr">38880 </span> 51/push-ecx/var1 +<span id="L38881" class="LineNr">38881 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38882" class="LineNr">38882 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38883" class="LineNr">38883 </span> 89/<- %esi 4/r32/esp +<span id="L38884" class="LineNr">38884 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt</span>: +<span id="L38885" class="LineNr">38885 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38886" class="LineNr">38886 </span> 68/push 0/imm32/next +<span id="L38887" class="LineNr">38887 </span> 68/push 0/imm32/next +<span id="L38888" class="LineNr">38888 </span> 68/push 0/imm32/outputs +<span id="L38889" class="LineNr">38889 </span> 68/push 0/imm32/outputs +<span id="L38890" class="LineNr">38890 </span> 56/push-esi/inouts +<span id="L38891" class="LineNr">38891 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38892" class="LineNr">38892 </span> 68/push 0/imm32/operation +<span id="L38893" class="LineNr">38893 </span> 68/push 0/imm32/operation +<span id="L38894" class="LineNr">38894 </span> 68/push 1/imm32/tag:stmt1 +<span id="L38895" class="LineNr">38895 </span> 89/<- %esi 4/r32/esp +<span id="L38896" class="LineNr">38896 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt-operation</span>: +<span id="L38897" class="LineNr">38897 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L38898" class="LineNr">38898 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38899" class="LineNr">38899 </span> (<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="L38900" class="LineNr">38900 </span> <span class="subxComment"># convert</span> +<span id="L38901" class="LineNr">38901 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L38902" class="LineNr">38902 </span> (<a href='mu.subx.html#L28855'>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#L30722'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38903" class="LineNr">38903 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38904" class="Folded">38904 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38910" class="LineNr">38910 </span> <span class="subxComment"># check output</span> +<span id="L38911" class="LineNr">38911 </span> (<a href='109stream-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="L38912" class="LineNr">38912 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38913" class="LineNr">38913 </span> 89/<- %esp 5/r32/ebp +<span id="L38914" class="LineNr">38914 </span> 5d/pop-to-ebp +<span id="L38915" class="LineNr">38915 </span> c3/return +<span id="L38916" class="LineNr">38916 </span> +<span id="L38917" class="LineNr">38917 </span><span class="subxTest">test-emit-subx-stmt-function-call</span>: +<span id="L38918" class="LineNr">38918 </span> <span class="subxComment"># Call a function on a variable on the stack.</span> +<span id="L38919" class="LineNr">38919 </span> <span class="subxComment"># f foo</span> +<span id="L38920" class="LineNr">38920 </span> <span class="subxComment"># =></span> +<span id="L38921" class="LineNr">38921 </span> <span class="subxComment"># (f *(ebp-8))</span> +<span id="L38922" class="LineNr">38922 </span> <span class="subxComment"># (Changing the function name supports overloading in general, but here it</span> +<span id="L38923" class="LineNr">38923 </span> <span class="subxComment"># just serves to help disambiguate things.)</span> +<span id="L38924" class="LineNr">38924 </span> <span class="subxComment">#</span> +<span id="L38925" class="LineNr">38925 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L38926" class="LineNr">38926 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L38927" class="LineNr">38927 </span> <span class="subxComment"># type: int</span> +<span id="L38928" class="LineNr">38928 </span> <span class="subxComment"># stack-offset: -8</span> +<span id="L38929" class="LineNr">38929 </span> <span class="subxComment">#</span> +<span id="L38930" class="LineNr">38930 </span> <span class="subxComment"># There's nothing in primitives.</span> +<span id="L38931" class="LineNr">38931 </span> <span class="subxComment">#</span> +<span id="L38932" class="LineNr">38932 </span> <span class="subxComment"># We don't perform any checking here on the type of 'f'.</span> +<span id="L38933" class="LineNr">38933 </span> <span class="subxComment">#</span> +<span id="L38934" class="LineNr">38934 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38935" class="LineNr">38935 </span> 55/push-ebp +<span id="L38936" class="LineNr">38936 </span> 89/<- %ebp 4/r32/esp +<span id="L38937" class="LineNr">38937 </span> <span class="subxComment"># setup</span> +<span id="L38938" class="LineNr">38938 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38939" class="LineNr">38939 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38940" class="LineNr">38940 </span><span class="Constant">$test-emit-subx-function-call:initialize-type</span>: +<span id="L38941" class="LineNr">38941 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38942" class="LineNr">38942 </span> 68/push 0/imm32/right:null +<span id="L38943" class="LineNr">38943 </span> 68/push 0/imm32/right:null +<span id="L38944" class="LineNr">38944 </span> 68/push 0/imm32/left:unused +<span id="L38945" class="LineNr">38945 </span> 68/push 1/imm32/value:int +<span id="L38946" class="LineNr">38946 </span> 68/push 1/imm32/is-atom?:true +<span id="L38947" class="LineNr">38947 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38948" class="LineNr">38948 </span> 89/<- %ecx 4/r32/esp +<span id="L38949" class="LineNr">38949 </span><span class="Constant">$test-emit-subx-function-call:initialize-var</span>: +<span id="L38950" class="LineNr">38950 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> +<span id="L38951" class="LineNr">38951 </span> 68/push 0/imm32/no-register +<span id="L38952" class="LineNr">38952 </span> 68/push 0/imm32/no-register +<span id="L38953" class="LineNr">38953 </span> 68/push -8/imm32/stack-offset +<span id="L38954" class="LineNr">38954 </span> 68/push 1/imm32/block-depth +<span id="L38955" class="LineNr">38955 </span> 51/push-ecx/type +<span id="L38956" class="LineNr">38956 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38957" class="LineNr">38957 </span> 68/push 0/imm32/name +<span id="L38958" class="LineNr">38958 </span> 68/push 0/imm32/name +<span id="L38959" class="LineNr">38959 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38960" class="LineNr">38960 </span> 89/<- %ecx 4/r32/esp +<span id="L38961" class="LineNr">38961 </span><span class="Constant">$test-emit-subx-function-call:initialize-var-name</span>: +<span id="L38962" class="LineNr">38962 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L38963" class="LineNr">38963 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38964" class="LineNr">38964 </span> (<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="L38965" class="LineNr">38965 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-var</span>: +<span id="L38966" class="LineNr">38966 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> +<span id="L38967" class="LineNr">38967 </span> 68/push 0/imm32/is-deref:false +<span id="L38968" class="LineNr">38968 </span> 68/push 0/imm32/next +<span id="L38969" class="LineNr">38969 </span> 68/push 0/imm32/next +<span id="L38970" class="LineNr">38970 </span> 51/push-ecx/var-foo +<span id="L38971" class="LineNr">38971 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38972" class="LineNr">38972 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38973" class="LineNr">38973 </span> 89/<- %ebx 4/r32/esp +<span id="L38974" class="LineNr">38974 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt</span>: +<span id="L38975" class="LineNr">38975 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38976" class="LineNr">38976 </span> 68/push 0/imm32/no-outputs +<span id="L38977" class="LineNr">38977 </span> 68/push 0/imm32/no-outputs +<span id="L38978" class="LineNr">38978 </span> 53/push-ebx/inouts +<span id="L38979" class="LineNr">38979 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38980" class="LineNr">38980 </span> 68/push 0/imm32/operation +<span id="L38981" class="LineNr">38981 </span> 68/push 0/imm32/operation +<span id="L38982" class="LineNr">38982 </span> 68/push 1/imm32/tag +<span id="L38983" class="LineNr">38983 </span> 89/<- %esi 4/r32/esp +<span id="L38984" class="LineNr">38984 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-operation</span>: +<span id="L38985" class="LineNr">38985 </span> <span class="subxComment"># stmt->operation = "f"</span> +<span id="L38986" class="LineNr">38986 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38987" class="LineNr">38987 </span> (<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="L38988" class="LineNr">38988 </span> <span class="subxComment"># convert</span> +<span id="L38989" class="LineNr">38989 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L38990" class="LineNr">38990 </span> (<a href='mu.subx.html#L28855'>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="L38991" class="LineNr">38991 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38992" class="Folded">38992 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38998" class="LineNr">38998 </span> <span class="subxComment"># check output</span> +<span id="L38999" class="LineNr">38999 </span> (<a href='109stream-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="L39000" class="LineNr">39000 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L39001" class="LineNr">39001 </span> 89/<- %esp 5/r32/ebp +<span id="L39002" class="LineNr">39002 </span> 5d/pop-to-ebp +<span id="L39003" class="LineNr">39003 </span> c3/return +<span id="L39004" class="LineNr">39004 </span> +<span id="L39005" class="LineNr">39005 </span><span class="subxTest">test-emit-subx-stmt-function-call-with-literal-arg</span>: +<span id="L39006" class="LineNr">39006 </span> <span class="subxComment"># Call a function on a literal.</span> +<span id="L39007" class="LineNr">39007 </span> <span class="subxComment"># f 0x34</span> +<span id="L39008" class="LineNr">39008 </span> <span class="subxComment"># =></span> +<span id="L39009" class="LineNr">39009 </span> <span class="subxComment"># (f2 0x34)</span> +<span id="L39010" class="LineNr">39010 </span> <span class="subxComment">#</span> +<span id="L39011" class="LineNr">39011 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L39012" class="LineNr">39012 </span> 55/push-ebp +<span id="L39013" class="LineNr">39013 </span> 89/<- %ebp 4/r32/esp +<span id="L39014" class="LineNr">39014 </span> <span class="subxComment"># setup</span> +<span id="L39015" class="LineNr">39015 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L39016" class="LineNr">39016 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L39017" class="LineNr">39017 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-type</span>: +<span id="L39018" class="LineNr">39018 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L39019" class="LineNr">39019 </span> 68/push 0/imm32/right:null +<span id="L39020" class="LineNr">39020 </span> 68/push 0/imm32/right:null +<span id="L39021" class="LineNr">39021 </span> 68/push 0/imm32/left:unused +<span id="L39022" class="LineNr">39022 </span> 68/push 0/imm32/value:literal +<span id="L39023" class="LineNr">39023 </span> 68/push 1/imm32/is-atom?:true +<span id="L39024" class="LineNr">39024 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L39025" class="LineNr">39025 </span> 89/<- %ecx 4/r32/esp +<span id="L39026" class="LineNr">39026 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var</span>: +<span id="L39027" class="LineNr">39027 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(lit)</span> +<span id="L39028" class="LineNr">39028 </span> 68/push 0/imm32/no-register +<span id="L39029" class="LineNr">39029 </span> 68/push 0/imm32/no-register +<span id="L39030" class="LineNr">39030 </span> 68/push 0/imm32/no-stack-offset +<span id="L39031" class="LineNr">39031 </span> 68/push 1/imm32/block-depth +<span id="L39032" class="LineNr">39032 </span> 51/push-ecx/type +<span id="L39033" class="LineNr">39033 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L39034" class="LineNr">39034 </span> 68/push 0/imm32/name +<span id="L39035" class="LineNr">39035 </span> 68/push 0/imm32/name +<span id="L39036" class="LineNr">39036 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L39037" class="LineNr">39037 </span> 89/<- %ecx 4/r32/esp +<span id="L39038" class="LineNr">39038 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var-name</span>: +<span id="L39039" class="LineNr">39039 </span> <span class="subxComment"># var-foo->name = "0x34"</span> +<span id="L39040" class="LineNr">39040 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L39041" class="LineNr">39041 </span> (<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="L39042" class="LineNr">39042 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-var</span>: +<span id="L39043" class="LineNr">39043 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> +<span id="L39044" class="LineNr">39044 </span> 68/push 0/imm32/is-deref:false +<span id="L39045" class="LineNr">39045 </span> 68/push 0/imm32/next +<span id="L39046" class="LineNr">39046 </span> 68/push 0/imm32/next +<span id="L39047" class="LineNr">39047 </span> 51/push-ecx/var-foo +<span id="L39048" class="LineNr">39048 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L39049" class="LineNr">39049 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L39050" class="LineNr">39050 </span> 89/<- %ebx 4/r32/esp +<span id="L39051" class="LineNr">39051 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt</span>: +<span id="L39052" class="LineNr">39052 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L39053" class="LineNr">39053 </span> 68/push 0/imm32/no-outputs +<span id="L39054" class="LineNr">39054 </span> 68/push 0/imm32/no-outputs +<span id="L39055" class="LineNr">39055 </span> 53/push-ebx/inouts +<span id="L39056" class="LineNr">39056 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L39057" class="LineNr">39057 </span> 68/push 0/imm32/operation +<span id="L39058" class="LineNr">39058 </span> 68/push 0/imm32/operation +<span id="L39059" class="LineNr">39059 </span> 68/push 1/imm32/tag +<span id="L39060" class="LineNr">39060 </span> 89/<- %esi 4/r32/esp +<span id="L39061" class="LineNr">39061 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-operation</span>: +<span id="L39062" class="LineNr">39062 </span> <span class="subxComment"># stmt->operation = "f"</span> +<span id="L39063" class="LineNr">39063 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L39064" class="LineNr">39064 </span> (<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="L39065" class="LineNr">39065 </span> <span class="subxComment"># convert</span> +<span id="L39066" class="LineNr">39066 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15874'>Curr-block-depth</a></span> 0/imm32 +<span id="L39067" class="LineNr">39067 </span> (<a href='mu.subx.html#L28855'>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="L39068" class="LineNr">39068 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L39069" class="Folded">39069 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L39075" class="LineNr">39075 </span> <span class="subxComment"># check output</span> +<span id="L39076" class="LineNr">39076 </span> (<a href='109stream-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="L39077" class="LineNr">39077 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L39078" class="LineNr">39078 </span> 89/<- %esp 5/r32/ebp +<span id="L39079" class="LineNr">39079 </span> 5d/pop-to-ebp +<span id="L39080" class="LineNr">39080 </span> c3/return +<span id="L39081" class="LineNr">39081 </span> +<span id="L39082" class="LineNr">39082 </span><span class="subxFunction">emit-indent</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> +<span id="L39083" class="LineNr">39083 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L39084" class="LineNr">39084 </span> 55/push-ebp +<span id="L39085" class="LineNr">39085 </span> 89/<- %ebp 4/r32/esp +<span id="L39086" class="LineNr">39086 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L39087" class="LineNr">39087 </span> 50/push-eax +<span id="L39088" class="LineNr">39088 </span> <span class="subxComment"># var i/eax: int = n</span> +<span id="L39089" class="LineNr">39089 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L39090" class="LineNr">39090 </span> { +<span id="L39091" class="LineNr">39091 </span> <span class="subxComment"># if (i <= 0) break</span> +<span id="L39092" class="LineNr">39092 </span> 3d/compare-eax-with 0/imm32 +<span id="L39093" class="LineNr">39093 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L39094" class="LineNr">39094 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L39095" class="LineNr">39095 </span> 48/decrement-eax +<span id="L39096" class="LineNr">39096 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L39097" class="LineNr">39097 </span> } +<span id="L39098" class="LineNr">39098 </span><span class="Constant">$emit-indent:end</span>: +<span id="L39099" class="LineNr">39099 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L39100" class="LineNr">39100 </span> 58/pop-to-eax +<span id="L39101" class="LineNr">39101 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L39102" class="LineNr">39102 </span> 89/<- %esp 5/r32/ebp +<span id="L39103" class="LineNr">39103 </span> 5d/pop-to-ebp +<span id="L39104" class="LineNr">39104 </span> c3/return +<span id="L39105" class="LineNr">39105 </span> +<span id="L39106" class="LineNr">39106 </span><span class="subxFunction">emit-subx-prologue</span>: <span class="subxComment"># out: (addr buffered-file)</span> +<span id="L39107" class="LineNr">39107 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L39108" class="LineNr">39108 </span> 55/push-ebp +<span id="L39109" class="LineNr">39109 </span> 89/<- %ebp 4/r32/esp +<span id="L39110" class="LineNr">39110 </span> <span class="subxComment">#</span> +<span id="L39111" class="LineNr">39111 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . prologue\n"</span>) +<span id="L39112" class="LineNr">39112 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 55/push-ebp\n"</span>) +<span id="L39113" class="LineNr">39113 </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="L39114" class="LineNr">39114 </span><span class="Constant">$emit-subx-prologue:end</span>: +<span id="L39115" class="LineNr">39115 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L39116" class="LineNr">39116 </span> 89/<- %esp 5/r32/ebp +<span id="L39117" class="LineNr">39117 </span> 5d/pop-to-ebp +<span id="L39118" class="LineNr">39118 </span> c3/return +<span id="L39119" class="LineNr">39119 </span> +<span id="L39120" class="LineNr">39120 </span><span class="subxFunction">emit-subx-epilogue</span>: <span class="subxComment"># out: (addr buffered-file)</span> +<span id="L39121" class="LineNr">39121 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L39122" class="LineNr">39122 </span> 55/push-ebp +<span id="L39123" class="LineNr">39123 </span> 89/<- %ebp 4/r32/esp +<span id="L39124" class="LineNr">39124 </span> <span class="subxComment">#</span> +<span id="L39125" class="LineNr">39125 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . epilogue\n"</span>) +<span id="L39126" class="LineNr">39126 </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="L39127" class="LineNr">39127 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 5d/pop-to-ebp\n"</span>) +<span id="L39128" class="LineNr">39128 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" c3/return\n"</span>) +<span id="L39129" class="LineNr">39129 </span><span class="Constant">$emit-subx-epilogue:end</span>: +<span id="L39130" class="LineNr">39130 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L39131" class="LineNr">39131 </span> 89/<- %esp 5/r32/ebp +<span id="L39132" class="LineNr">39132 </span> 5d/pop-to-ebp +<span id="L39133" class="LineNr">39133 </span> c3/return </pre> </body> </html> diff --git a/html/linux/pack.subx.html b/html/linux/pack.subx.html index 7c2b5c30..bc983e17 100644 --- a/html/linux/pack.subx.html +++ b/html/linux/pack.subx.html @@ -14,17 +14,17 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -112,7 +112,7 @@ if ('onhashchange' in window) { <span id="L50" class="LineNr"> 50 </span> 74/jump-if-= $subx-pack-main:interactive/disp8 <span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># run-tests()</span> <span id="L52" class="LineNr"> 52 </span> e8/call run-tests/disp32 -<span id="L53" class="LineNr"> 53 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L53" class="LineNr"> 53 </span> <span class="subxComment"># syscall_exit(*Num-test-failures)</span> <span id="L54" class="LineNr"> 54 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L55" class="LineNr"> 55 </span> eb/jump $subx-pack-main:end/disp8 <span id="L56" class="LineNr"> 56 </span><span class="Constant">$subx-pack-main:interactive</span>: @@ -125,7 +125,7 @@ if ('onhashchange' in window) { <span id="L63" class="LineNr"> 63 </span> e8/call <a href='pack.subx.html#L91'>subx-pack</a>/disp32 <span id="L64" class="LineNr"> 64 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L65" class="LineNr"> 65 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x8/imm32 <span class="subxComment"># add to esp</span> -<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># syscall_exit(0)</span> <span id="L67" class="LineNr"> 67 </span> bb/copy-to-ebx 0/imm32 <span id="L68" class="LineNr"> 68 </span><span class="Constant">$subx-pack-main:end</span>: <span id="L69" class="LineNr"> 69 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 @@ -213,7 +213,7 @@ if ('onhashchange' in window) { <span id="L151" class="LineNr"> 151 </span> <span class="subxComment"># if (line->write == 0) break</span> <span id="L152" class="LineNr"> 152 </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="L153" class="LineNr"> 153 </span> 0f 84/jump-if-= $subx-pack:<span class="Constant">break</span>/disp32 -<span id="L154" class="Folded"> 154 </span><span class="Folded">+-- 26 lines: #? # dump line -------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L154" class="Folded"> 154 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L180" class="LineNr"> 180 </span> <span class="subxComment"># next-word(line, word-slice)</span> <span id="L181" class="LineNr"> 181 </span> <span class="subxS2Comment"># . . push args</span> <span id="L182" class="LineNr"> 182 </span> 52/push-edx @@ -235,7 +235,7 @@ if ('onhashchange' in window) { <span id="L198" class="LineNr"> 198 </span> 3d/compare-eax-and 0/imm32/false <span id="L199" class="LineNr"> 199 </span> 0f 85/jump-if-!= $subx-pack:pass-through/disp32 <span id="L200" class="LineNr"> 200 </span><span class="Constant">$subx-pack:check2</span>: -<span id="L201" class="Folded"> 201 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L201" class="Folded"> 201 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L241" class="LineNr"> 241 </span> <span class="subxComment"># if (!slice-equal?(word-slice, "==")) goto next check</span> <span id="L242" class="LineNr"> 242 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> <span id="L243" class="LineNr"> 243 </span> <span class="subxS2Comment"># . . push args</span> @@ -256,7 +256,7 @@ if ('onhashchange' in window) { <span id="L258" class="LineNr"> 258 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L259" class="LineNr"> 259 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L260" class="LineNr"> 260 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L261" class="Folded"> 261 </span><span class="Folded">+-- 40 lines: #? # dump segment name -----------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L261" class="Folded"> 261 </span><span class="Folded">+-- 40 lines: #? # dump segment name ------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L301" class="LineNr"> 301 </span> <span class="subxComment"># in-code? = slice-equal?(word-slice, "code")</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">"code"</span>/imm32 @@ -617,7 +617,7 @@ if ('onhashchange' in window) { <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> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L660" class="LineNr"> 660 </span> <span class="subxComment"># check output</span> -<span id="L661" class="Folded"> 661 </span><span class="Folded">+-- 26 lines: #? # debug print -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L661" class="Folded"> 661 </span><span class="Folded">+-- 26 lines: #? # debug print ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L687" class="LineNr"> 687 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L688" class="LineNr"> 688 </span> <span class="subxS2Comment"># . . push args</span> <span id="L689" class="LineNr"> 689 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 @@ -751,7 +751,7 @@ if ('onhashchange' in window) { <span id="L817" class="LineNr"> 817 </span> <span class="subxComment"># 68 20 # 68/push 0x20/imm8</span> <span id="L818" class="LineNr"> 818 </span> <span class="subxComment"># == data 0x2</span> <span id="L819" class="LineNr"> 819 </span> <span class="subxComment"># 03 04 00 00 00</span> -<span id="L820" class="Folded"> 820 </span><span class="Folded">+-- 26 lines: #? # debug print -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L820" class="Folded"> 820 </span><span class="Folded">+-- 26 lines: #? # debug print ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L846" class="LineNr"> 846 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L847" class="LineNr"> 847 </span> <span class="subxS2Comment"># . . push args</span> <span id="L848" class="LineNr"> 848 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 @@ -841,7 +841,7 @@ if ('onhashchange' in window) { <span id="L932" class="LineNr"> 932 </span> 68/push 0/imm32/end <span id="L933" class="LineNr"> 933 </span> 68/push 0/imm32/start <span id="L934" class="LineNr"> 934 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L935" class="Folded"> 935 </span><span class="Folded">+-- 26 lines: #? # dump line -------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L935" class="Folded"> 935 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L961" class="LineNr"> 961 </span><span class="Constant">$convert-data:loop</span>: <span id="L962" class="LineNr"> 962 </span> <span class="subxComment"># next-word(line, word-slice)</span> <span id="L963" class="LineNr"> 963 </span> <span class="subxS2Comment"># . . push args</span> @@ -851,7 +851,7 @@ if ('onhashchange' in window) { <span id="L967" class="LineNr"> 967 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L968" class="LineNr"> 968 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L969" class="LineNr"> 969 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L970" class="Folded"> 970 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L970" class="Folded"> 970 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1010" class="LineNr">1010 </span><span class="Constant">$convert-data:check0</span>: <span id="L1011" class="LineNr">1011 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> <span id="L1012" class="LineNr">1012 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> @@ -1038,7 +1038,7 @@ if ('onhashchange' in window) { <span id="L1193" class="LineNr">1193 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1194" class="LineNr">1194 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1195" class="LineNr">1195 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1196" class="Folded">1196 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1196" class="Folded">1196 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1222" class="LineNr">1222 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "# abcd", msg)</span> <span id="L1223" class="LineNr">1223 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1224" class="LineNr">1224 </span> 68/push <span class="Constant">"F - test-convert-data-passes-comments-through"</span>/imm32 @@ -1566,7 +1566,7 @@ if ('onhashchange' in window) { <span id="L1746" class="LineNr">1746 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1747" class="LineNr">1747 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1748" class="LineNr">1748 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1749" class="Folded">1749 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1749" class="Folded">1749 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1775" class="LineNr">1775 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "30 abcd/o 42 e1 00 00 \n", msg)</span> <span id="L1776" class="LineNr">1776 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1777" class="LineNr">1777 </span> 68/push <span class="Constant">"F - test-convert-data-multiple-words"</span>/imm32 @@ -1633,7 +1633,7 @@ if ('onhashchange' in window) { <span id="L1838" class="LineNr">1838 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1839" class="LineNr">1839 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1840" class="LineNr">1840 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1841" class="Folded">1841 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1841" class="Folded">1841 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1867" class="LineNr">1867 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "30 00 00 00 # comment", msg)</span> <span id="L1868" class="LineNr">1868 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1869" class="LineNr">1869 </span> 68/push <span class="Constant">"F - test-convert-data-trailing-comment"</span>/imm32 @@ -2179,7 +2179,7 @@ if ('onhashchange' in window) { <span id="L2409" class="LineNr">2409 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 <span id="L2410" class="LineNr">2410 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2411" class="LineNr">2411 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2412" class="Folded">2412 </span><span class="Folded">+-- 33 lines: #? # dump line -------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2412" class="Folded">2412 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2445" class="LineNr">2445 </span><span class="Constant">$emit-modrm:loop</span>: <span id="L2446" class="LineNr">2446 </span> <span class="subxComment"># next-word(line, word-slice)</span> <span id="L2447" class="LineNr">2447 </span> <span class="subxS2Comment"># . . push args</span> @@ -2189,7 +2189,7 @@ if ('onhashchange' in window) { <span id="L2451" class="LineNr">2451 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L2452" class="LineNr">2452 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2453" class="LineNr">2453 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2454" class="Folded">2454 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2454" class="Folded">2454 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2494" class="LineNr">2494 </span><span class="Constant">$emit-modrm:check0</span>: <span id="L2495" class="LineNr">2495 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> <span id="L2496" class="LineNr">2496 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> @@ -2481,7 +2481,7 @@ if ('onhashchange' in window) { <span id="L2782" class="LineNr">2782 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2783" class="LineNr">2783 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L2784" class="LineNr">2784 </span><span class="Constant">$emit-sib:loop</span>: -<span id="L2785" class="Folded">2785 </span><span class="Folded">+-- 26 lines: #? # dump line -------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2785" class="Folded">2785 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2811" class="LineNr">2811 </span> <span class="subxComment"># next-word(line, word-slice)</span> <span id="L2812" class="LineNr">2812 </span> <span class="subxS2Comment"># . . push args</span> <span id="L2813" class="LineNr">2813 </span> 51/push-ecx @@ -2490,7 +2490,7 @@ if ('onhashchange' in window) { <span id="L2816" class="LineNr">2816 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L2817" class="LineNr">2817 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2818" class="LineNr">2818 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2819" class="Folded">2819 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2819" class="Folded">2819 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2859" class="LineNr">2859 </span><span class="Constant">$emit-sib:check0</span>: <span id="L2860" class="LineNr">2860 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> <span id="L2861" class="LineNr">2861 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> @@ -2679,7 +2679,7 @@ if ('onhashchange' in window) { <span id="L3044" class="LineNr">3044 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 <span id="L3045" class="LineNr">3045 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3046" class="LineNr">3046 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3047" class="Folded">3047 </span><span class="Folded">+-- 26 lines: #? # dump line -------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3047" class="Folded">3047 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3073" class="LineNr">3073 </span><span class="Constant">$emit-disp:loop</span>: <span id="L3074" class="LineNr">3074 </span> <span class="subxComment"># next-word(line, word-slice)</span> <span id="L3075" class="LineNr">3075 </span> <span class="subxS2Comment"># . . push args</span> @@ -2689,7 +2689,7 @@ if ('onhashchange' in window) { <span id="L3079" class="LineNr">3079 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L3080" class="LineNr">3080 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3081" class="LineNr">3081 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3082" class="Folded">3082 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3082" class="Folded">3082 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3122" class="LineNr">3122 </span><span class="Constant">$emit-disp:check0</span>: <span id="L3123" class="LineNr">3123 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> <span id="L3124" class="LineNr">3124 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> @@ -2834,7 +2834,7 @@ if ('onhashchange' in window) { <span id="L3263" class="LineNr">3263 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 <span id="L3264" class="LineNr">3264 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3265" class="LineNr">3265 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3266" class="Folded">3266 </span><span class="Folded">+-- 26 lines: #? # dump line -------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3266" class="Folded">3266 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3292" class="LineNr">3292 </span><span class="Constant">$emit-imm:loop</span>: <span id="L3293" class="LineNr">3293 </span> <span class="subxComment"># next-word(line, word-slice)</span> <span id="L3294" class="LineNr">3294 </span> <span class="subxS2Comment"># . . push args</span> @@ -2844,7 +2844,7 @@ if ('onhashchange' in window) { <span id="L3298" class="LineNr">3298 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L3299" class="LineNr">3299 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3300" class="LineNr">3300 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3301" class="Folded">3301 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3301" class="Folded">3301 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3341" class="LineNr">3341 </span><span class="Constant">$emit-imm:check0</span>: <span id="L3342" class="LineNr">3342 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> <span id="L3343" class="LineNr">3343 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> @@ -3163,7 +3163,7 @@ if ('onhashchange' in window) { <span id="L3656" class="LineNr">3656 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L3657" class="LineNr">3657 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3658" class="LineNr">3658 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3659" class="Folded">3659 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3659" class="Folded">3659 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3685" class="LineNr">3685 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab # ab/cd # comment", msg)</span> <span id="L3686" class="LineNr">3686 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3687" class="LineNr">3687 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-single-opcode"</span>/imm32 @@ -3230,7 +3230,7 @@ if ('onhashchange' in window) { <span id="L3748" class="LineNr">3748 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L3749" class="LineNr">3749 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3750" class="LineNr">3750 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3751" class="Folded">3751 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3751" class="Folded">3751 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3777" class="LineNr">3777 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "0f ab # 0f/m1 ab/m2 # comment", msg)</span> <span id="L3778" class="LineNr">3778 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3779" class="LineNr">3779 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-0f-opcode"</span>/imm32 @@ -3297,7 +3297,7 @@ if ('onhashchange' in window) { <span id="L3840" class="LineNr">3840 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L3841" class="LineNr">3841 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3842" class="LineNr">3842 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3843" class="Folded">3843 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3843" class="Folded">3843 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3869" class="LineNr">3869 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f2 ab # f2/m1 ab/m2 # comment", msg)</span> <span id="L3870" class="LineNr">3870 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3871" class="LineNr">3871 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f2-opcode"</span>/imm32 @@ -3364,7 +3364,7 @@ if ('onhashchange' in window) { <span id="L3932" class="LineNr">3932 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L3933" class="LineNr">3933 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3934" class="LineNr">3934 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3935" class="Folded">3935 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3935" class="Folded">3935 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3961" class="LineNr">3961 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f3 ab # f3/m1 ab/m2 # comment", msg)</span> <span id="L3962" class="LineNr">3962 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3963" class="LineNr">3963 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f3-opcode"</span>/imm32 @@ -3431,7 +3431,7 @@ if ('onhashchange' in window) { <span id="L4024" class="LineNr">4024 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L4025" class="LineNr">4025 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4026" class="LineNr">4026 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4027" class="Folded">4027 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4027" class="Folded">4027 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4053" class="LineNr">4053 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f2 0f ab # f2/m1 0f/m2 ab/m3 # comment", msg)</span> <span id="L4054" class="LineNr">4054 </span> <span class="subxS2Comment"># . . push args</span> <span id="L4055" class="LineNr">4055 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f2-0f-opcode"</span>/imm32 @@ -3498,7 +3498,7 @@ if ('onhashchange' in window) { <span id="L4116" class="LineNr">4116 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L4117" class="LineNr">4117 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4118" class="LineNr">4118 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4119" class="Folded">4119 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4119" class="Folded">4119 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4145" class="LineNr">4145 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f3 0f ab # f3/m1 0f/m2 ab/m3 # comment", msg)</span> <span id="L4146" class="LineNr">4146 </span> <span class="subxS2Comment"># . . push args</span> <span id="L4147" class="LineNr">4147 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f3-0f-opcode"</span>/imm32 @@ -3565,7 +3565,7 @@ if ('onhashchange' in window) { <span id="L4208" class="LineNr">4208 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L4209" class="LineNr">4209 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4210" class="LineNr">4210 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4211" class="Folded">4211 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4211" class="Folded">4211 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4237" class="LineNr">4237 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab # f3/m1 0f/m2 ab/m3 # comment", msg)</span> <span id="L4238" class="LineNr">4238 </span> <span class="subxS2Comment"># . . push args</span> <span id="L4239" class="LineNr">4239 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-unused-opcodes"</span>/imm32 @@ -3632,7 +3632,7 @@ if ('onhashchange' in window) { <span id="L4300" class="LineNr">4300 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L4301" class="LineNr">4301 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4302" class="LineNr">4302 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4303" class="Folded">4303 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4303" class="Folded">4303 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4329" class="LineNr">4329 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f2 ab # f2/m1 ab/m2 cd/m3 # comment", msg)</span> <span id="L4330" class="LineNr">4330 </span> <span class="subxS2Comment"># . . push args</span> <span id="L4331" class="LineNr">4331 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-unused-second-opcodes"</span>/imm32 @@ -3699,7 +3699,7 @@ if ('onhashchange' in window) { <span id="L4392" class="LineNr">4392 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L4393" class="LineNr">4393 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4394" class="LineNr">4394 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4395" class="Folded">4395 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4395" class="Folded">4395 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4421" class="LineNr">4421 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f3 ab # f3/m1 ab/m2 cd/m3 # comment", msg)</span> <span id="L4422" class="LineNr">4422 </span> <span class="subxS2Comment"># . . push args</span> <span id="L4423" class="LineNr">4423 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-unused-second-opcodes"</span>/imm32 @@ -3766,7 +3766,7 @@ if ('onhashchange' in window) { <span id="L4484" class="LineNr">4484 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L4485" class="LineNr">4485 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4486" class="LineNr">4486 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4487" class="Folded">4487 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4487" class="Folded">4487 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4513" class="LineNr">4513 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/mod 0/rm32 1/r32", msg)</span> <span id="L4514" class="LineNr">4514 </span> <span class="subxS2Comment"># . . push args</span> <span id="L4515" class="LineNr">4515 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte"</span>/imm32 @@ -3831,7 +3831,7 @@ if ('onhashchange' in window) { <span id="L4574" class="LineNr">4574 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L4575" class="LineNr">4575 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4576" class="LineNr">4576 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4577" class="Folded">4577 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4577" class="Folded">4577 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4603" class="LineNr">4603 </span> <span class="subxComment"># check output</span> <span id="L4604" class="LineNr">4604 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "# abcd", msg)</span> <span id="L4605" class="LineNr">4605 </span> <span class="subxS2Comment"># . . push args</span> @@ -3899,7 +3899,7 @@ if ('onhashchange' in window) { <span id="L4667" class="LineNr">4667 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L4668" class="LineNr">4668 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4669" class="LineNr">4669 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4670" class="Folded">4670 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4670" class="Folded">4670 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4696" class="LineNr">4696 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ff 30 # ff 6/subop/push 0/mod 0/rm32", msg)</span> <span id="L4697" class="LineNr">4697 </span> <span class="subxS2Comment"># . . push args</span> <span id="L4698" class="LineNr">4698 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-from-subop"</span>/imm32 @@ -3966,7 +3966,7 @@ if ('onhashchange' in window) { <span id="L4759" class="LineNr">4759 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L4760" class="LineNr">4760 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4761" class="LineNr">4761 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4762" class="Folded">4762 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4762" class="Folded">4762 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4788" class="LineNr">4788 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/rm32 1/r32", msg)</span> <span id="L4789" class="LineNr">4789 </span> <span class="subxS2Comment"># . . push args</span> <span id="L4790" class="LineNr">4790 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-with-missing-mod"</span>/imm32 @@ -4033,7 +4033,7 @@ if ('onhashchange' in window) { <span id="L4851" class="LineNr">4851 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L4852" class="LineNr">4852 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4853" class="LineNr">4853 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4854" class="Folded">4854 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4854" class="Folded">4854 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4880" class="LineNr">4880 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/mod 1/r32", msg)</span> <span id="L4881" class="LineNr">4881 </span> <span class="subxS2Comment"># . . push args</span> <span id="L4882" class="LineNr">4882 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-with-missing-rm32"</span>/imm32 @@ -4100,7 +4100,7 @@ if ('onhashchange' in window) { <span id="L4943" class="LineNr">4943 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L4944" class="LineNr">4944 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4945" class="LineNr">4945 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4946" class="Folded">4946 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4946" class="Folded">4946 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4972" class="LineNr">4972 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 00 # 8b/copy 0/mod 0/rm32", msg)</span> <span id="L4973" class="LineNr">4973 </span> <span class="subxS2Comment"># . . push args</span> <span id="L4974" class="LineNr">4974 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-with-missing-r32"</span>/imm32 @@ -4167,7 +4167,7 @@ if ('onhashchange' in window) { <span id="L5035" class="LineNr">5035 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L5036" class="LineNr">5036 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L5037" class="LineNr">5037 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5038" class="Folded">5038 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5038" class="Folded">5038 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5064" class="LineNr">5064 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale", msg)</span> <span id="L5065" class="LineNr">5065 </span> <span class="subxS2Comment"># . . push args</span> <span id="L5066" class="LineNr">5066 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte"</span>/imm32 @@ -4234,7 +4234,7 @@ if ('onhashchange' in window) { <span id="L5127" class="LineNr">5127 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L5128" class="LineNr">5128 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L5129" class="LineNr">5129 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5130" class="Folded">5130 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5130" class="Folded">5130 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5156" class="LineNr">5156 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 04 40 # 8b/copy 0/mod 4/rm32 1/scale", msg)</span> <span id="L5157" class="LineNr">5157 </span> <span class="subxS2Comment"># . . push args</span> <span id="L5158" class="LineNr">5158 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-scale"</span>/imm32 @@ -4301,7 +4301,7 @@ if ('onhashchange' in window) { <span id="L5219" class="LineNr">5219 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L5220" class="LineNr">5220 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L5221" class="LineNr">5221 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5222" class="Folded">5222 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5222" class="Folded">5222 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5248" class="LineNr">5248 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale", msg)</span> <span id="L5249" class="LineNr">5249 </span> <span class="subxS2Comment"># . . push args</span> <span id="L5250" class="LineNr">5250 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte-with-missing-base"</span>/imm32 @@ -4368,7 +4368,7 @@ if ('onhashchange' in window) { <span id="L5311" class="LineNr">5311 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L5312" class="LineNr">5312 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L5313" class="LineNr">5313 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5314" class="Folded">5314 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5314" class="Folded">5314 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5340" class="LineNr">5340 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale", msg)</span> <span id="L5341" class="LineNr">5341 </span> <span class="subxS2Comment"># . . push args</span> <span id="L5342" class="LineNr">5342 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte-with-missing-index"</span>/imm32 @@ -4435,7 +4435,7 @@ if ('onhashchange' in window) { <span id="L5403" class="LineNr">5403 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L5404" class="LineNr">5404 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L5405" class="LineNr">5405 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5406" class="Folded">5406 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5406" class="Folded">5406 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5432" class="LineNr">5432 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index", msg)</span> <span id="L5433" class="LineNr">5433 </span> <span class="subxS2Comment"># . . push args</span> <span id="L5434" class="LineNr">5434 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte-with-missing-scale"</span>/imm32 @@ -4502,7 +4502,7 @@ if ('onhashchange' in window) { <span id="L5495" class="LineNr">5495 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L5496" class="LineNr">5496 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L5497" class="LineNr">5497 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5498" class="Folded">5498 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5498" class="Folded">5498 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5524" class="LineNr">5524 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "e8 20 00 00 00 # e8/call 20/disp32", msg)</span> <span id="L5525" class="LineNr">5525 </span> <span class="subxS2Comment"># . . push args</span> <span id="L5526" class="LineNr">5526 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp32-operand"</span>/imm32 @@ -4569,7 +4569,7 @@ if ('onhashchange' in window) { <span id="L5587" class="LineNr">5587 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L5588" class="LineNr">5588 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L5589" class="LineNr">5589 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5590" class="Folded">5590 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5590" class="Folded">5590 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5616" class="LineNr">5616 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "e8 20 00 # e8/call 20/disp16", msg)</span> <span id="L5617" class="LineNr">5617 </span> <span class="subxS2Comment"># . . push args</span> <span id="L5618" class="LineNr">5618 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp16-operand"</span>/imm32 @@ -4636,7 +4636,7 @@ if ('onhashchange' in window) { <span id="L5679" class="LineNr">5679 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L5680" class="LineNr">5680 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L5681" class="LineNr">5681 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5682" class="Folded">5682 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5682" class="Folded">5682 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5708" class="LineNr">5708 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "eb 20 # eb/jump 20/disp8", msg)</span> <span id="L5709" class="LineNr">5709 </span> <span class="subxS2Comment"># . . push args</span> <span id="L5710" class="LineNr">5710 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp8-operand"</span>/imm32 @@ -4703,7 +4703,7 @@ if ('onhashchange' in window) { <span id="L5771" class="LineNr">5771 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L5772" class="LineNr">5772 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L5773" class="LineNr">5773 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5774" class="Folded">5774 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5774" class="Folded">5774 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5800" class="LineNr">5800 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "eb xyz/disp8 # eb/jump xyz/disp8", msg)</span> <span id="L5801" class="LineNr">5801 </span> <span class="subxS2Comment"># . . push args</span> <span id="L5802" class="LineNr">5802 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp8-name"</span>/imm32 @@ -4770,7 +4770,7 @@ if ('onhashchange' in window) { <span id="L5863" class="LineNr">5863 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L5864" class="LineNr">5864 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L5865" class="LineNr">5865 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5866" class="Folded">5866 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5866" class="Folded">5866 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5892" class="LineNr">5892 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "68 20 00 00 00 # 68/push 0x20/imm32", msg)</span> <span id="L5893" class="LineNr">5893 </span> <span class="subxS2Comment"># . . push args</span> <span id="L5894" class="LineNr">5894 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-imm32-operand"</span>/imm32 @@ -4838,7 +4838,7 @@ if ('onhashchange' in window) { <span id="L5956" class="LineNr">5956 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L5957" class="LineNr">5957 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L5958" class="LineNr">5958 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5959" class="Folded">5959 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5959" class="Folded">5959 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5985" class="LineNr">5985 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "68 20 00 # 68/push 0x20/imm16", msg)</span> <span id="L5986" class="LineNr">5986 </span> <span class="subxS2Comment"># . . push args</span> <span id="L5987" class="LineNr">5987 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-imm16-operand"</span>/imm32 @@ -4906,7 +4906,7 @@ if ('onhashchange' in window) { <span id="L6049" class="LineNr">6049 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L6050" class="LineNr">6050 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L6051" class="LineNr">6051 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L6052" class="Folded">6052 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6052" class="Folded">6052 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6078" class="LineNr">6078 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "68 20 # 68/push 0x20/imm8", msg)</span> <span id="L6079" class="LineNr">6079 </span> <span class="subxS2Comment"># . . push args</span> <span id="L6080" class="LineNr">6080 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-imm8-operand"</span>/imm32 diff --git a/html/linux/raytracing/1.mu.html b/html/linux/raytracing/1.mu.html deleted file mode 100644 index eb4cd554..00000000 --- a/html/linux/raytracing/1.mu.html +++ /dev/null @@ -1,95 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/raytracing/1.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.Special { color: #ff6060; } -.LineNr { } -.muRegEbx { color: #5f00ff; } -.Constant { color: #008787; } -.muRegEcx { color: #870000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/raytracing/1.mu'>https://github.com/akkartik/mu/blob/main/linux/raytracing/1.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Listing 1 of <a href="https://raytracing.github.io/books/RayTracingInOneWeekend.html">https://raytracing.github.io/books/RayTracingInOneWeekend.html</a></span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment"># (simplified)</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment">#</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># To run (on Linux):</span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ cd mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./translate raytracing/1.mu</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># $ ./a.elf > 1.ppm</span> -<span id="L9" class="LineNr"> 9 </span> -<span id="L10" class="LineNr">10 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span> -<span id="L11" class="LineNr">11 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"P3\n256 256\n255\n"</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> j/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0xff</span> -<span id="L13" class="LineNr">13 </span> <span class="Delimiter">{</span> -<span id="L14" class="LineNr">14 </span> compare j, <span class="Constant">0</span> -<span id="L15" class="LineNr">15 </span> <span class="PreProc">break-if-<</span> -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L17" class="LineNr">17 </span> <span class="Delimiter">{</span> -<span id="L18" class="LineNr">18 </span> compare i, <span class="Constant">0xff</span> -<span id="L19" class="LineNr">19 </span> <span class="PreProc">break-if-></span> -<span id="L20" class="LineNr">20 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, i -<span id="L21" class="LineNr">21 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L22" class="LineNr">22 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, j -<span id="L23" class="LineNr">23 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" 64\n"</span> -<span id="L24" class="LineNr">24 </span> i <span class="Special"><-</span> increment -<span id="L25" class="LineNr">25 </span> <span class="PreProc">loop</span> -<span id="L26" class="LineNr">26 </span> <span class="Delimiter">}</span> -<span id="L27" class="LineNr">27 </span> j <span class="Special"><-</span> decrement -<span id="L28" class="LineNr">28 </span> <span class="PreProc">loop</span> -<span id="L29" class="LineNr">29 </span> <span class="Delimiter">}</span> -<span id="L30" class="LineNr">30 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L31" class="LineNr">31 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/raytracing/2.mu.html b/html/linux/raytracing/2.mu.html deleted file mode 100644 index bf8a2156..00000000 --- a/html/linux/raytracing/2.mu.html +++ /dev/null @@ -1,153 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/raytracing/2.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.muRegEdx { color: #af5f00; } -.Special { color: #ff6060; } -.LineNr { } -.muRegEsi { color: #005faf; } -.muRegEbx { color: #5f00ff; } -.Constant { color: #008787; } -.muRegEcx { color: #870000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/raytracing/2.mu'>https://github.com/akkartik/mu/blob/main/linux/raytracing/2.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Listing 7 of <a href="https://raytracing.github.io/books/RayTracingInOneWeekend.html">https://raytracing.github.io/books/RayTracingInOneWeekend.html</a></span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate raytracing/2.mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf > 2.ppm</span> -<span id="L8" class="LineNr"> 8 </span> -<span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span> -<span id="L10" class="LineNr">10 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"P3\n256 256\n255\n"</span> -<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> _four/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">4</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> four/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert _four -<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> one-fourth/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> reciprocal four -<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> max/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0xff</span> -<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> image-size/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert max -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> j/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0xff</span> -<span id="L17" class="LineNr">17 </span> <span class="Delimiter">{</span> -<span id="L18" class="LineNr">18 </span> compare j, <span class="Constant">0</span> -<span id="L19" class="LineNr">19 </span> <span class="PreProc">break-if-<</span> -<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L21" class="LineNr">21 </span> <span class="Delimiter">{</span> -<span id="L22" class="LineNr">22 </span> compare i, <span class="Constant">0xff</span> -<span id="L23" class="LineNr">23 </span> <span class="PreProc">break-if-></span> -<span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> c: rgb -<span id="L25" class="LineNr">25 </span> <span class="muComment"># compute r</span> -<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert i -<span id="L27" class="LineNr">27 </span> tmp <span class="Special"><-</span> divide image-size -<span id="L28" class="LineNr">28 </span> <span class="PreProc">var</span> r-addr/<span class="muRegEdx">edx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, r -<span id="L29" class="LineNr">29 </span> copy-to *r-addr, tmp -<span id="L30" class="LineNr">30 </span><span class="CommentedCode">#? var tmp2/ebx: int <- reinterpret *r-addr</span> -<span id="L31" class="LineNr">31 </span><span class="CommentedCode">#? print-int32-hex 0, tmp2</span> -<span id="L32" class="LineNr">32 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L33" class="LineNr">33 </span> <span class="muComment"># compute g</span> -<span id="L34" class="LineNr">34 </span> tmp <span class="Special"><-</span> convert j -<span id="L35" class="LineNr">35 </span> tmp <span class="Special"><-</span> divide image-size -<span id="L36" class="LineNr">36 </span> <span class="PreProc">var</span> g-addr/<span class="muRegEdx">edx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, g -<span id="L37" class="LineNr">37 </span> copy-to *g-addr, tmp -<span id="L38" class="LineNr">38 </span> <span class="muComment"># compute b</span> -<span id="L39" class="LineNr">39 </span> <span class="PreProc">var</span> b-addr/<span class="muRegEdx">edx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, b -<span id="L40" class="LineNr">40 </span> copy-to *b-addr, one-fourth -<span id="L41" class="LineNr">41 </span> <span class="muComment"># emit</span> -<span id="L42" class="LineNr">42 </span> <span class="PreProc">var</span> c-addr/<span class="muRegEdx">edx</span>: (addr rgb) <span class="Special"><-</span> address c -<span id="L43" class="LineNr">43 </span> print-rgb <span class="Constant">0</span>, c-addr -<span id="L44" class="LineNr">44 </span> i <span class="Special"><-</span> increment -<span id="L45" class="LineNr">45 </span> <span class="PreProc">loop</span> -<span id="L46" class="LineNr">46 </span> <span class="Delimiter">}</span> -<span id="L47" class="LineNr">47 </span> j <span class="Special"><-</span> decrement -<span id="L48" class="LineNr">48 </span> <span class="PreProc">loop</span> -<span id="L49" class="LineNr">49 </span> <span class="Delimiter">}</span> -<span id="L50" class="LineNr">50 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L51" class="LineNr">51 </span><span class="Delimiter">}</span> -<span id="L52" class="LineNr">52 </span> -<span id="L53" class="LineNr">53 </span><span class="PreProc">type</span> rgb <span class="Delimiter">{</span> -<span id="L54" class="LineNr">54 </span> <span class="muComment"># components normalized to within [0.0, 1.0]</span> -<span id="L55" class="LineNr">55 </span> r: float -<span id="L56" class="LineNr">56 </span> g: float -<span id="L57" class="LineNr">57 </span> b: float -<span id="L58" class="LineNr">58 </span><span class="Delimiter">}</span> -<span id="L59" class="LineNr">59 </span> -<span id="L60" class="LineNr">60 </span><span class="muComment"># print translating to [0, 256)</span> -<span id="L61" class="LineNr">61 </span><span class="PreProc">fn</span> <span class="muFunction">print-rgb</span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _c: (addr rgb) <span class="Delimiter">{</span> -<span id="L62" class="LineNr">62 </span> <span class="PreProc">var</span> c/<span class="muRegEsi">esi</span>: (addr rgb) <span class="Special"><-</span> copy _c -<span id="L63" class="LineNr">63 </span> <span class="PreProc">var</span> n/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0xff</span> <span class="muComment"># turns out 255 works just as well as 255.999, which is lucky because we don't have floating-point literals</span> -<span id="L64" class="LineNr">64 </span> <span class="PreProc">var</span> xn/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert n -<span id="L65" class="LineNr">65 </span> <span class="muComment"># print 255 * c->r</span> -<span id="L66" class="LineNr">66 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy xn -<span id="L67" class="LineNr">67 </span> <span class="PreProc">var</span> src-addr/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, r -<span id="L68" class="LineNr">68 </span> result <span class="Special"><-</span> multiply *src-addr -<span id="L69" class="LineNr">69 </span> <span class="PreProc">var</span> result-int/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> convert result -<span id="L70" class="LineNr">70 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int -<span id="L71" class="LineNr">71 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L72" class="LineNr">72 </span> <span class="muComment"># print 255 * c->g</span> -<span id="L73" class="LineNr">73 </span> src-addr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, g -<span id="L74" class="LineNr">74 </span> result <span class="Special"><-</span> copy xn -<span id="L75" class="LineNr">75 </span> result <span class="Special"><-</span> multiply *src-addr -<span id="L76" class="LineNr">76 </span> result-int <span class="Special"><-</span> convert result -<span id="L77" class="LineNr">77 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int -<span id="L78" class="LineNr">78 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L79" class="LineNr">79 </span> <span class="muComment"># print 255 * c->b</span> -<span id="L80" class="LineNr">80 </span> src-addr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, b -<span id="L81" class="LineNr">81 </span> result <span class="Special"><-</span> copy xn -<span id="L82" class="LineNr">82 </span> result <span class="Special"><-</span> multiply *src-addr -<span id="L83" class="LineNr">83 </span> result-int <span class="Special"><-</span> convert result -<span id="L84" class="LineNr">84 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int -<span id="L85" class="LineNr">85 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">"\n"</span> -<span id="L86" class="LineNr">86 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/raytracing/3.mu.html b/html/linux/raytracing/3.mu.html deleted file mode 100644 index ef18f42d..00000000 --- a/html/linux/raytracing/3.mu.html +++ /dev/null @@ -1,554 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/raytracing/3.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.LineNr { } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muRegEbx { color: #5f00ff; } -.muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } -.Constant { color: #008787; } -.Special { color: #ff6060; } -.PreProc { color: #c000c0; } -.muS2Comment { color: #8a8a8a; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } -.muS1Comment { color: #0000af; } -.muRegEcx { color: #870000; } -.muRegEdx { color: #af5f00; } ---> -</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/raytracing/3.mu'>https://github.com/akkartik/mu/blob/main/linux/raytracing/3.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Listing 9 of <a href="https://raytracing.github.io/books/RayTracingInOneWeekend.html">https://raytracing.github.io/books/RayTracingInOneWeekend.html</a></span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate raytracing/3.mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf > 3.ppm</span> -<span id="L8" class="LineNr"> 8 </span> -<span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L9'>ray-color</a></span> _in: (addr ray), _out: (addr rgb) <span class="Delimiter">{</span> -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> in/<span class="muRegEsi">esi</span>: (addr ray) <span class="Special"><-</span> copy _in -<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">var</span> out/<span class="muRegEdi">edi</span>: (addr rgb) <span class="Special"><-</span> copy _out -<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> dir/eax: (addr vec3) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> in, dir -<span id="L13" class="LineNr"> 13 </span><span class="CommentedCode">#? print-string 0, "r.dir: "</span> -<span id="L14" class="LineNr"> 14 </span><span class="CommentedCode">#? print-vec3 0, dir</span> -<span id="L15" class="LineNr"> 15 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> unit-storage: vec3 -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> unit/<span class="muRegEcx">ecx</span>: (addr vec3) <span class="Special"><-</span> address unit-storage -<span id="L18" class="LineNr"> 18 </span> vec3-unit dir, unit -<span id="L19" class="LineNr"> 19 </span><span class="CommentedCode">#? print-string 0, "r.dir normalized: "</span> -<span id="L20" class="LineNr"> 20 </span><span class="CommentedCode">#? print-vec3 0, unit</span> -<span id="L21" class="LineNr"> 21 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> y-addr/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> unit, y -<span id="L23" class="LineNr"> 23 </span> <span class="muComment"># t = (dir.y + 1.0) / 2.0</span> -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> t/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *y-addr -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> one/eax: int <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert one -<span id="L27" class="LineNr"> 27 </span> t <span class="Special"><-</span> add one-f -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> two/eax: int <span class="Special"><-</span> copy <span class="Constant">2</span> -<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert two -<span id="L30" class="LineNr"> 30 </span> t <span class="Special"><-</span> divide two-f -<span id="L31" class="LineNr"> 31 </span><span class="CommentedCode">#? print-string 0, "t: "</span> -<span id="L32" class="LineNr"> 32 </span><span class="CommentedCode">#? print-float-hex 0, t</span> -<span id="L33" class="LineNr"> 33 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L34" class="LineNr"> 34 </span> <span class="muComment"># whitening = (1.0 - t) * white</span> -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> whitening-storage: rgb -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> whitening/<span class="muRegEcx">ecx</span>: (addr rgb) <span class="Special"><-</span> address whitening-storage -<span id="L37" class="LineNr"> 37 </span> <a href='3.mu.html#L302'>rgb-white</a> whitening -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> one-minus-t/<span class="Constant">xmm3</span>: float <span class="Special"><-</span> copy one-f -<span id="L39" class="LineNr"> 39 </span> one-minus-t <span class="Special"><-</span> subtract t -<span id="L40" class="LineNr"> 40 </span> <a href='3.mu.html#L337'>rgb-scale-up</a> whitening, one-minus-t -<span id="L41" class="LineNr"> 41 </span><span class="CommentedCode">#? print-string 0, "whitening: "</span> -<span id="L42" class="LineNr"> 42 </span><span class="CommentedCode">#? print-rgb-raw 0, whitening</span> -<span id="L43" class="LineNr"> 43 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L44" class="LineNr"> 44 </span> <span class="muComment"># out = t * (0.5, 0.7, 1.0)</span> -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> dest/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out, r -<span id="L46" class="LineNr"> 46 </span> <a href='../408float.mu.html#L3'>fill-in-rational</a> dest, <span class="Constant">5</span>, <span class="Constant">0xa</span> -<span id="L47" class="LineNr"> 47 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out, g -<span id="L48" class="LineNr"> 48 </span> <a href='../408float.mu.html#L3'>fill-in-rational</a> dest, <span class="Constant">7</span>, <span class="Constant">0xa</span> -<span id="L49" class="LineNr"> 49 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out, b -<span id="L50" class="LineNr"> 50 </span> copy-to *dest, one-f -<span id="L51" class="LineNr"> 51 </span> <a href='3.mu.html#L337'>rgb-scale-up</a> out, t -<span id="L52" class="LineNr"> 52 </span><span class="CommentedCode">#? print-string 0, "base: "</span> -<span id="L53" class="LineNr"> 53 </span><span class="CommentedCode">#? print-rgb-raw 0, out</span> -<span id="L54" class="LineNr"> 54 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L55" class="LineNr"> 55 </span> <span class="muComment"># blend with whitening</span> -<span id="L56" class="LineNr"> 56 </span> <a href='3.mu.html#L314'>rgb-add-to</a> out, whitening -<span id="L57" class="LineNr"> 57 </span><span class="CommentedCode">#? print-string 0, "result: "</span> -<span id="L58" class="LineNr"> 58 </span><span class="CommentedCode">#? print-rgb-raw 0, out</span> -<span id="L59" class="LineNr"> 59 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L60" class="LineNr"> 60 </span><span class="Delimiter">}</span> -<span id="L61" class="LineNr"> 61 </span> -<span id="L62" class="LineNr"> 62 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int <span class="Delimiter">{</span> -<span id="L63" class="LineNr"> 63 </span> -<span id="L64" class="LineNr"> 64 </span> <span class="muComment"># image</span> -<span id="L65" class="LineNr"> 65 </span> <span class="muComment"># width = 400</span> -<span id="L66" class="LineNr"> 66 </span> <span class="muComment"># height = 400 * 9/16 = 225</span> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> aspect: float -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> aspect-addr/eax: (addr float) <span class="Special"><-</span> address aspect -<span id="L69" class="LineNr"> 69 </span> <a href='../408float.mu.html#L3'>fill-in-rational</a> aspect-addr, <span class="Constant">0x10</span>, <span class="Constant">9</span> <span class="muComment"># 16/9</span> -<span id="L70" class="LineNr"> 70 </span><span class="CommentedCode">#? print-string 0, "aspect ratio: "</span> -<span id="L71" class="LineNr"> 71 </span><span class="CommentedCode">#? print-float-hex 0, aspect</span> -<span id="L72" class="LineNr"> 72 </span><span class="CommentedCode">#? print-string 0, " "</span> -<span id="L73" class="LineNr"> 73 </span><span class="CommentedCode">#? {</span> -<span id="L74" class="LineNr"> 74 </span><span class="CommentedCode">#? var foo2/ebx: int <- reinterpret aspect</span> -<span id="L75" class="LineNr"> 75 </span><span class="CommentedCode">#? print-int32-hex 0, foo2</span> -<span id="L76" class="LineNr"> 76 </span><span class="CommentedCode">#? }</span> -<span id="L77" class="LineNr"> 77 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L78" class="LineNr"> 78 </span> -<span id="L79" class="LineNr"> 79 </span> <span class="muComment"># camera</span> -<span id="L80" class="LineNr"> 80 </span> -<span id="L81" class="LineNr"> 81 </span> <span class="muComment"># viewport-height = 2.0</span> -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> tmp/eax: int <span class="Special"><-</span> copy <span class="Constant">2</span> -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm4</span>: float <span class="Special"><-</span> convert tmp -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> viewport-height/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> copy two-f -<span id="L85" class="LineNr"> 85 </span><span class="CommentedCode">#? print-string 0, "viewport height: "</span> -<span id="L86" class="LineNr"> 86 </span><span class="CommentedCode">#? print-float-hex 0, viewport-height</span> -<span id="L87" class="LineNr"> 87 </span><span class="CommentedCode">#? print-string 0, " "</span> -<span id="L88" class="LineNr"> 88 </span><span class="CommentedCode">#? {</span> -<span id="L89" class="LineNr"> 89 </span><span class="CommentedCode">#? var foo: float</span> -<span id="L90" class="LineNr"> 90 </span><span class="CommentedCode">#? copy-to foo, viewport-height</span> -<span id="L91" class="LineNr"> 91 </span><span class="CommentedCode">#? var foo2/ebx: int <- reinterpret foo</span> -<span id="L92" class="LineNr"> 92 </span><span class="CommentedCode">#? print-int32-hex 0, foo2</span> -<span id="L93" class="LineNr"> 93 </span><span class="CommentedCode">#? }</span> -<span id="L94" class="LineNr"> 94 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L95" class="LineNr"> 95 </span> <span class="muComment"># viewport-width = aspect * viewport-height</span> -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> viewport-width/<span class="Constant">xmm6</span>: float <span class="Special"><-</span> convert tmp -<span id="L97" class="LineNr"> 97 </span> viewport-width <span class="Special"><-</span> multiply aspect -<span id="L98" class="LineNr"> 98 </span><span class="CommentedCode">#? print-string 0, "viewport width: "</span> -<span id="L99" class="LineNr"> 99 </span><span class="CommentedCode">#? print-float-hex 0, viewport-width</span> -<span id="L100" class="LineNr">100 </span><span class="CommentedCode">#? print-string 0, " "</span> -<span id="L101" class="LineNr">101 </span><span class="CommentedCode">#? {</span> -<span id="L102" class="LineNr">102 </span><span class="CommentedCode">#? var foo: float</span> -<span id="L103" class="LineNr">103 </span><span class="CommentedCode">#? copy-to foo, viewport-width</span> -<span id="L104" class="LineNr">104 </span><span class="CommentedCode">#? var foo2/ebx: int <- reinterpret foo</span> -<span id="L105" class="LineNr">105 </span><span class="CommentedCode">#? print-int32-hex 0, foo2</span> -<span id="L106" class="LineNr">106 </span><span class="CommentedCode">#? }</span> -<span id="L107" class="LineNr">107 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L108" class="LineNr">108 </span> <span class="muComment"># focal-length = 1.0</span> -<span id="L109" class="LineNr">109 </span> tmp <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> focal-length/<span class="Constant">xmm5</span>: float <span class="Special"><-</span> convert tmp -<span id="L111" class="LineNr">111 </span> -<span id="L112" class="LineNr">112 </span> <span class="muComment"># origin = point3(0, 0, 0)</span> -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> origin-storage: vec3 -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> origin/<span class="muRegEdi">edi</span>: (addr vec3) <span class="Special"><-</span> address origin-storage -<span id="L115" class="LineNr">115 </span> <span class="muComment"># horizontal = vec3(viewport-width, 0, 0)</span> -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> horizontal-storage: vec3 -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> dest/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> horizontal-storage, x -<span id="L118" class="LineNr">118 </span> copy-to *dest, viewport-width -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> horizontal/<span class="muRegEbx">ebx</span>: (addr vec3) <span class="Special"><-</span> address horizontal-storage -<span id="L120" class="LineNr">120 </span> <span class="muComment"># vertical = vec3(0, viewport-height, 0)</span> -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> vertical-storage: vec3 -<span id="L122" class="LineNr">122 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> vertical-storage, y -<span id="L123" class="LineNr">123 </span> copy-to *dest, viewport-height -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> vertical/<span class="muRegEdx">edx</span>: (addr vec3) <span class="Special"><-</span> address vertical-storage -<span id="L125" class="LineNr">125 </span> <span class="muComment"># lower-left-corner = origin - horizontal/2 - vertical/2 - vec3(0, 0, focal-length)</span> -<span id="L126" class="LineNr">126 </span> <span class="muS1Comment"># . lower-left-corner = origin</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> lower-left-corner-storage: vec3 -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> lower-left-corner/<span class="muRegEsi">esi</span>: (addr vec3) <span class="Special"><-</span> address lower-left-corner-storage -<span id="L129" class="LineNr">129 </span> copy-object origin, lower-left-corner -<span id="L130" class="LineNr">130 </span> <span class="muS1Comment"># . lower-left-corner -= horizontal/2</span> -<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> tmp2: vec3 -<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> tmp2-addr/eax: (addr vec3) <span class="Special"><-</span> address tmp2 -<span id="L133" class="LineNr">133 </span> copy-object horizontal, tmp2-addr -<span id="L134" class="LineNr">134 </span> vec3-scale-down tmp2-addr, two-f -<span id="L135" class="LineNr">135 </span> vec3-subtract-from lower-left-corner, tmp2-addr -<span id="L136" class="LineNr">136 </span> <span class="muS1Comment"># . lower-left-corner -= vertical/2</span> -<span id="L137" class="LineNr">137 </span> copy-object vertical, tmp2-addr -<span id="L138" class="LineNr">138 </span> vec3-scale-down tmp2-addr, two-f -<span id="L139" class="LineNr">139 </span> vec3-subtract-from lower-left-corner, tmp2-addr -<span id="L140" class="LineNr">140 </span> <span class="muS1Comment"># . lower-left-corner -= vec3(0, 0, focal-length)</span> -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> dest2/<span class="muRegEcx">ecx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> lower-left-corner, z -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> tmp3/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *dest2 -<span id="L143" class="LineNr">143 </span> tmp3 <span class="Special"><-</span> subtract focal-length -<span id="L144" class="LineNr">144 </span> copy-to *dest2, tmp3 -<span id="L145" class="LineNr">145 </span> <span class="muComment"># phew!</span> -<span id="L146" class="LineNr">146 </span> -<span id="L147" class="LineNr">147 </span> <span class="muComment"># render</span> -<span id="L148" class="LineNr">148 </span> -<span id="L149" class="LineNr">149 </span> <span class="muComment"># live variables at this point:</span> -<span id="L150" class="LineNr">150 </span> <span class="muComment"># origin (edi)</span> -<span id="L151" class="LineNr">151 </span> <span class="muComment"># lower-left-corner (esi)</span> -<span id="L152" class="LineNr">152 </span> <span class="muComment"># horizontal (ebx)</span> -<span id="L153" class="LineNr">153 </span> <span class="muComment"># vertical (edx)</span> -<span id="L154" class="LineNr">154 </span> <span class="muComment"># floating-point registers are all free</span> -<span id="L155" class="LineNr">155 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"P3\n400 225\n255\n"</span> <span class="muComment"># 225 = image height</span> -<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> tmp/eax: int <span class="Special"><-</span> copy <span class="Constant">0x18f</span> <span class="muComment"># image width - 1</span> -<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> image-width-1/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> convert tmp -<span id="L158" class="LineNr">158 </span> tmp <span class="Special"><-</span> copy <span class="Constant">0xe0</span> <span class="muComment"># image height - 1</span> -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> image-height-1/<span class="Constant">xmm6</span>: float <span class="Special"><-</span> convert tmp -<span id="L160" class="LineNr">160 </span> <span class="muComment">#</span> -<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> j/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0xe0</span> <span class="muComment"># 224</span> -<span id="L162" class="LineNr">162 </span> <span class="Delimiter">{</span> -<span id="L163" class="LineNr">163 </span> compare j, <span class="Constant">0</span> -<span id="L164" class="LineNr">164 </span> <span class="PreProc">break-if-<</span> -<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L166" class="LineNr">166 </span> <span class="Delimiter">{</span> -<span id="L167" class="LineNr">167 </span> compare i, <span class="Constant">0x190</span> <span class="muComment"># 400 = image width</span> -<span id="L168" class="LineNr">168 </span> <span class="PreProc">break-if->=</span> -<span id="L169" class="LineNr">169 </span> <span class="muComment"># u = i / (image-width - 1)</span> -<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert i -<span id="L171" class="LineNr">171 </span> u <span class="Special"><-</span> divide image-width-1 -<span id="L172" class="LineNr">172 </span><span class="CommentedCode">#? print-string 0, "u: "</span> -<span id="L173" class="LineNr">173 </span><span class="CommentedCode">#? print-float-hex 0, u</span> -<span id="L174" class="LineNr">174 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L175" class="LineNr">175 </span> <span class="muComment"># v = j / (image-height - 1)</span> -<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> v/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert j -<span id="L177" class="LineNr">177 </span> v <span class="Special"><-</span> divide image-height-1 -<span id="L178" class="LineNr">178 </span> <span class="muComment"># r = ray(origin, lower-left-corner + u*horizontal + v*vertical - origin)</span> -<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> r-storage: ray -<span id="L180" class="LineNr">180 </span> <span class="muS2Comment"># . . we're running out of int registers now,</span> -<span id="L181" class="LineNr">181 </span> <span class="muS2Comment"># . . but luckily we don't need i and j in the rest of this loop iteration,</span> -<span id="L182" class="LineNr">182 </span> <span class="muS2Comment"># . . so we'll just spill them in a block</span> -<span id="L183" class="LineNr">183 </span> <span class="Delimiter">{</span> -<span id="L184" class="LineNr">184 </span> <span class="muS1Comment"># . r.orig = origin</span> -<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> r/eax: (addr ray) <span class="Special"><-</span> address r-storage -<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> dest/<span class="muRegEcx">ecx</span>: (addr vec3) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> r, orig -<span id="L187" class="LineNr">187 </span> copy-object origin, dest -<span id="L188" class="LineNr">188 </span> <span class="muS1Comment"># . r.dir = lower-left-corner</span> -<span id="L189" class="LineNr">189 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> r, dir -<span id="L190" class="LineNr">190 </span> copy-object lower-left-corner, dest -<span id="L191" class="LineNr">191 </span> <span class="muS1Comment"># . r.dir += horizontal*u</span> -<span id="L192" class="LineNr">192 </span> <span class="PreProc">var</span> tmp-vec3: vec3 -<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> tmp/eax: (addr vec3) <span class="Special"><-</span> address tmp-vec3 -<span id="L194" class="LineNr">194 </span> copy-object horizontal, tmp -<span id="L195" class="LineNr">195 </span> vec3-scale-up tmp, u -<span id="L196" class="LineNr">196 </span> vec3-add-to dest, tmp -<span id="L197" class="LineNr">197 </span> <span class="muS1Comment"># . r.dir += vertical*v</span> -<span id="L198" class="LineNr">198 </span> copy-object vertical, tmp -<span id="L199" class="LineNr">199 </span> vec3-scale-up tmp, v -<span id="L200" class="LineNr">200 </span> vec3-add-to dest, tmp -<span id="L201" class="LineNr">201 </span> <span class="muS1Comment"># . r.dir -= origin</span> -<span id="L202" class="LineNr">202 </span> vec3-subtract-from dest, origin -<span id="L203" class="LineNr">203 </span><span class="CommentedCode">#? print-string 0, "ray direction: "</span> -<span id="L204" class="LineNr">204 </span><span class="CommentedCode">#? print-vec3 0, dest</span> -<span id="L205" class="LineNr">205 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L206" class="LineNr">206 </span> <span class="Delimiter">}</span> -<span id="L207" class="LineNr">207 </span> <span class="muComment"># pixel-color = ray-color(r)</span> -<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> c-storage: rgb -<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> c/<span class="muRegEcx">ecx</span>: (addr rgb) <span class="Special"><-</span> address c-storage -<span id="L210" class="LineNr">210 </span> <span class="Delimiter">{</span> -<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> r/eax: (addr ray) <span class="Special"><-</span> address r-storage -<span id="L212" class="LineNr">212 </span> <a href='3.mu.html#L9'>ray-color</a> r, c -<span id="L213" class="LineNr">213 </span> <span class="muComment"># write color</span> -<span id="L214" class="LineNr">214 </span> print-rgb <span class="Constant">0</span>, c -<span id="L215" class="LineNr">215 </span><span class="CommentedCode">#? print-rgb-raw 0, c</span> -<span id="L216" class="LineNr">216 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L217" class="LineNr">217 </span> <span class="Delimiter">}</span> -<span id="L218" class="LineNr">218 </span> i <span class="Special"><-</span> increment -<span id="L219" class="LineNr">219 </span> <span class="PreProc">loop</span> -<span id="L220" class="LineNr">220 </span> <span class="Delimiter">}</span> -<span id="L221" class="LineNr">221 </span> j <span class="Special"><-</span> decrement -<span id="L222" class="LineNr">222 </span> <span class="PreProc">loop</span> -<span id="L223" class="LineNr">223 </span> <span class="Delimiter">}</span> -<span id="L224" class="LineNr">224 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L225" class="LineNr">225 </span><span class="Delimiter">}</span> -<span id="L226" class="LineNr">226 </span> -<span id="L227" class="LineNr">227 </span><span class="PreProc">type</span> ray <span class="Delimiter">{</span> -<span id="L228" class="LineNr">228 </span> orig: vec3 <span class="muComment"># point</span> -<span id="L229" class="LineNr">229 </span> dir: vec3 -<span id="L230" class="LineNr">230 </span><span class="Delimiter">}</span> -<span id="L231" class="LineNr">231 </span> -<span id="L232" class="LineNr">232 </span><span class="muComment"># A little different from the constructor at <a href="https://raytracing.github.io/books/RayTracingInOneWeekend.html">https://raytracing.github.io/books/RayTracingInOneWeekend.html</a></span> -<span id="L233" class="LineNr">233 </span><span class="muComment"># We immediately normalize the direction vector so we don't have to keep doing</span> -<span id="L234" class="LineNr">234 </span><span class="muComment"># so.</span> -<span id="L235" class="LineNr">235 </span><span class="PreProc">fn</span> <span class="muFunction">initialize-ray</span> _self: (addr ray), o: (addr vec3), d: (addr vec3) <span class="Delimiter">{</span> -<span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr ray) <span class="Special"><-</span> copy _self -<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> dest/eax: (addr vec3) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, orig -<span id="L238" class="LineNr">238 </span> copy-object o, dest -<span id="L239" class="LineNr">239 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, dir -<span id="L240" class="LineNr">240 </span> vec3-unit d, dest -<span id="L241" class="LineNr">241 </span><span class="Delimiter">}</span> -<span id="L242" class="LineNr">242 </span> -<span id="L243" class="LineNr">243 </span><span class="PreProc">fn</span> <span class="muFunction">ray-at</span> _self: (addr ray), t: float, out: (addr vec3) <span class="Delimiter">{</span> -<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr ray) <span class="Special"><-</span> copy _self -<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> src/eax: (addr vec3) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, dir -<span id="L246" class="LineNr">246 </span> copy-object src, out -<span id="L247" class="LineNr">247 </span> vec3-scale-up out, t -<span id="L248" class="LineNr">248 </span> src <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, orig -<span id="L249" class="LineNr">249 </span> vec3-add-to out, src -<span id="L250" class="LineNr">250 </span><span class="Delimiter">}</span> -<span id="L251" class="LineNr">251 </span> -<span id="L252" class="LineNr">252 </span><span class="PreProc">type</span> rgb <span class="Delimiter">{</span> -<span id="L253" class="LineNr">253 </span> <span class="muComment"># components normalized to within [0.0, 1.0]</span> -<span id="L254" class="LineNr">254 </span> r: float -<span id="L255" class="LineNr">255 </span> g: float -<span id="L256" class="LineNr">256 </span> b: float -<span id="L257" class="LineNr">257 </span><span class="Delimiter">}</span> -<span id="L258" class="LineNr">258 </span> -<span id="L259" class="LineNr">259 </span><span class="muComment"># print translating to [0, 256)</span> -<span id="L260" class="LineNr">260 </span><span class="PreProc">fn</span> <span class="muFunction">print-rgb</span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _c: (addr rgb) <span class="Delimiter">{</span> -<span id="L261" class="LineNr">261 </span> <span class="PreProc">var</span> c/<span class="muRegEsi">esi</span>: (addr rgb) <span class="Special"><-</span> copy _c -<span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> xn: float -<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> xn-addr/<span class="muRegEcx">ecx</span>: (addr float) <span class="Special"><-</span> address xn -<span id="L264" class="LineNr">264 </span> <a href='../408float.mu.html#L3'>fill-in-rational</a> xn-addr, <span class="Constant">0x3e7ff</span>, <span class="Constant">0x3e8</span> <span class="muComment"># 255999 / 1000</span> -<span id="L265" class="LineNr">265 </span> <span class="muComment"># print 255.999 * c->r</span> -<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy xn -<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> src-addr/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, r -<span id="L268" class="LineNr">268 </span> result <span class="Special"><-</span> multiply *src-addr -<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> result-int/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> truncate result -<span id="L270" class="LineNr">270 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int -<span id="L271" class="LineNr">271 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L272" class="LineNr">272 </span> <span class="muComment"># print 255.999 * c->g</span> -<span id="L273" class="LineNr">273 </span> src-addr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, g -<span id="L274" class="LineNr">274 </span> result <span class="Special"><-</span> copy xn -<span id="L275" class="LineNr">275 </span> result <span class="Special"><-</span> multiply *src-addr -<span id="L276" class="LineNr">276 </span> result-int <span class="Special"><-</span> truncate result -<span id="L277" class="LineNr">277 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int -<span id="L278" class="LineNr">278 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L279" class="LineNr">279 </span> <span class="muComment"># print 255.999 * c->b</span> -<span id="L280" class="LineNr">280 </span> src-addr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, b -<span id="L281" class="LineNr">281 </span> result <span class="Special"><-</span> copy xn -<span id="L282" class="LineNr">282 </span> result <span class="Special"><-</span> multiply *src-addr -<span id="L283" class="LineNr">283 </span> result-int <span class="Special"><-</span> truncate result -<span id="L284" class="LineNr">284 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int -<span id="L285" class="LineNr">285 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">"\n"</span> -<span id="L286" class="LineNr">286 </span><span class="Delimiter">}</span> -<span id="L287" class="LineNr">287 </span> -<span id="L288" class="LineNr">288 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L288'>print-rgb-raw</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _v: (addr rgb) <span class="Delimiter">{</span> -<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> v/<span class="muRegEsi">esi</span>: (addr rgb) <span class="Special"><-</span> copy _v -<span id="L290" class="LineNr">290 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">"("</span> -<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> tmp/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, r -<span id="L292" class="LineNr">292 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L293" class="LineNr">293 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> -<span id="L294" class="LineNr">294 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, g -<span id="L295" class="LineNr">295 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L296" class="LineNr">296 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> -<span id="L297" class="LineNr">297 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, b -<span id="L298" class="LineNr">298 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L299" class="LineNr">299 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">")"</span> -<span id="L300" class="LineNr">300 </span><span class="Delimiter">}</span> -<span id="L301" class="LineNr">301 </span> -<span id="L302" class="LineNr">302 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L302'>rgb-white</a></span> _c: (addr rgb) <span class="Delimiter">{</span> -<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> c/<span class="muRegEsi">esi</span>: (addr rgb) <span class="Special"><-</span> copy _c -<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> one/eax: int <span class="Special"><-</span> copy <span class="Constant">1</span> -<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert one -<span id="L306" class="LineNr">306 </span> <span class="PreProc">var</span> dest/<span class="muRegEdi">edi</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, r -<span id="L307" class="LineNr">307 </span> copy-to *dest, one-f -<span id="L308" class="LineNr">308 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, g -<span id="L309" class="LineNr">309 </span> copy-to *dest, one-f -<span id="L310" class="LineNr">310 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, b -<span id="L311" class="LineNr">311 </span> copy-to *dest, one-f -<span id="L312" class="LineNr">312 </span><span class="Delimiter">}</span> -<span id="L313" class="LineNr">313 </span> -<span id="L314" class="LineNr">314 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L314'>rgb-add-to</a></span> _c1: (addr rgb), _c2: (addr rgb) <span class="Delimiter">{</span> -<span id="L315" class="LineNr">315 </span> <span class="PreProc">var</span> c1/<span class="muRegEdi">edi</span>: (addr rgb) <span class="Special"><-</span> copy _c1 -<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> c2/<span class="muRegEsi">esi</span>: (addr rgb) <span class="Special"><-</span> copy _c2 -<span id="L317" class="LineNr">317 </span> <span class="muComment"># c1.r += c2.r</span> -<span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> arg1/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c1, r -<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> arg2/<span class="muRegEcx">ecx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c2, r -<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *arg1 -<span id="L321" class="LineNr">321 </span> result <span class="Special"><-</span> add *arg2 -<span id="L322" class="LineNr">322 </span> copy-to *arg1, result -<span id="L323" class="LineNr">323 </span> <span class="muComment"># c1.g += c2.g</span> -<span id="L324" class="LineNr">324 </span> arg1 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c1, g -<span id="L325" class="LineNr">325 </span> arg2 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c2, g -<span id="L326" class="LineNr">326 </span> result <span class="Special"><-</span> copy *arg1 -<span id="L327" class="LineNr">327 </span> result <span class="Special"><-</span> add *arg2 -<span id="L328" class="LineNr">328 </span> copy-to *arg1, result -<span id="L329" class="LineNr">329 </span> <span class="muComment"># c1.b += c2.b</span> -<span id="L330" class="LineNr">330 </span> arg1 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c1, b -<span id="L331" class="LineNr">331 </span> arg2 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c2, b -<span id="L332" class="LineNr">332 </span> result <span class="Special"><-</span> copy *arg1 -<span id="L333" class="LineNr">333 </span> result <span class="Special"><-</span> add *arg2 -<span id="L334" class="LineNr">334 </span> copy-to *arg1, result -<span id="L335" class="LineNr">335 </span><span class="Delimiter">}</span> -<span id="L336" class="LineNr">336 </span> -<span id="L337" class="LineNr">337 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L337'>rgb-scale-up</a></span> _c1: (addr rgb), f: float <span class="Delimiter">{</span> -<span id="L338" class="LineNr">338 </span> <span class="PreProc">var</span> c1/<span class="muRegEdi">edi</span>: (addr rgb) <span class="Special"><-</span> copy _c1 -<span id="L339" class="LineNr">339 </span> <span class="muComment"># c1.r *= f</span> -<span id="L340" class="LineNr">340 </span> <span class="PreProc">var</span> dest/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c1, r -<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *dest -<span id="L342" class="LineNr">342 </span> result <span class="Special"><-</span> multiply f -<span id="L343" class="LineNr">343 </span> copy-to *dest, result -<span id="L344" class="LineNr">344 </span> <span class="muComment"># c1.g *= f</span> -<span id="L345" class="LineNr">345 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c1, g -<span id="L346" class="LineNr">346 </span> result <span class="Special"><-</span> copy *dest -<span id="L347" class="LineNr">347 </span> result <span class="Special"><-</span> multiply f -<span id="L348" class="LineNr">348 </span> copy-to *dest, result -<span id="L349" class="LineNr">349 </span> <span class="muComment"># c1.b *= f</span> -<span id="L350" class="LineNr">350 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c1, b -<span id="L351" class="LineNr">351 </span> result <span class="Special"><-</span> copy *dest -<span id="L352" class="LineNr">352 </span> result <span class="Special"><-</span> multiply f -<span id="L353" class="LineNr">353 </span> copy-to *dest, result -<span id="L354" class="LineNr">354 </span><span class="Delimiter">}</span> -<span id="L355" class="LineNr">355 </span> -<span id="L356" class="LineNr">356 </span><span class="PreProc">type</span> vec3 <span class="Delimiter">{</span> -<span id="L357" class="LineNr">357 </span> x: float -<span id="L358" class="LineNr">358 </span> y: float -<span id="L359" class="LineNr">359 </span> z: float -<span id="L360" class="LineNr">360 </span><span class="Delimiter">}</span> -<span id="L361" class="LineNr">361 </span> -<span id="L362" class="LineNr">362 </span><span class="PreProc">fn</span> <span class="muFunction">print-vec3</span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _v: (addr vec3) <span class="Delimiter">{</span> -<span id="L363" class="LineNr">363 </span> <span class="PreProc">var</span> v/<span class="muRegEsi">esi</span>: (addr vec3) <span class="Special"><-</span> copy _v -<span id="L364" class="LineNr">364 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">"("</span> -<span id="L365" class="LineNr">365 </span> <span class="PreProc">var</span> tmp/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x -<span id="L366" class="LineNr">366 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L367" class="LineNr">367 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> -<span id="L368" class="LineNr">368 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y -<span id="L369" class="LineNr">369 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L370" class="LineNr">370 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> -<span id="L371" class="LineNr">371 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z -<span id="L372" class="LineNr">372 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L373" class="LineNr">373 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">")"</span> -<span id="L374" class="LineNr">374 </span><span class="Delimiter">}</span> -<span id="L375" class="LineNr">375 </span> -<span id="L376" class="LineNr">376 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-add-to</span> _v1: (addr vec3), _v2: (addr vec3) <span class="Delimiter">{</span> -<span id="L377" class="LineNr">377 </span> <span class="PreProc">var</span> v1/<span class="muRegEdi">edi</span>: (addr vec3) <span class="Special"><-</span> copy _v1 -<span id="L378" class="LineNr">378 </span> <span class="PreProc">var</span> v2/<span class="muRegEsi">esi</span>: (addr vec3) <span class="Special"><-</span> copy _v2 -<span id="L379" class="LineNr">379 </span> <span class="muComment"># v1.x += v2.x</span> -<span id="L380" class="LineNr">380 </span> <span class="PreProc">var</span> arg1/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v1, x -<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> arg2/<span class="muRegEcx">ecx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v2, x -<span id="L382" class="LineNr">382 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *arg1 -<span id="L383" class="LineNr">383 </span> result <span class="Special"><-</span> add *arg2 -<span id="L384" class="LineNr">384 </span> copy-to *arg1, result -<span id="L385" class="LineNr">385 </span> <span class="muComment"># v1.y += v2.y</span> -<span id="L386" class="LineNr">386 </span> arg1 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v1, y -<span id="L387" class="LineNr">387 </span> arg2 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v2, y -<span id="L388" class="LineNr">388 </span> result <span class="Special"><-</span> copy *arg1 -<span id="L389" class="LineNr">389 </span> result <span class="Special"><-</span> add *arg2 -<span id="L390" class="LineNr">390 </span> copy-to *arg1, result -<span id="L391" class="LineNr">391 </span> <span class="muComment"># v1.z += v2.z</span> -<span id="L392" class="LineNr">392 </span> arg1 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v1, z -<span id="L393" class="LineNr">393 </span> arg2 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v2, z -<span id="L394" class="LineNr">394 </span> result <span class="Special"><-</span> copy *arg1 -<span id="L395" class="LineNr">395 </span> result <span class="Special"><-</span> add *arg2 -<span id="L396" class="LineNr">396 </span> copy-to *arg1, result -<span id="L397" class="LineNr">397 </span><span class="Delimiter">}</span> -<span id="L398" class="LineNr">398 </span> -<span id="L399" class="LineNr">399 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-subtract-from</span> v1: (addr vec3), v2: (addr vec3) <span class="Delimiter">{</span> -<span id="L400" class="LineNr">400 </span> <span class="PreProc">var</span> tmp-storage: vec3 -<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> tmp/eax: (addr vec3) <span class="Special"><-</span> address tmp-storage -<span id="L402" class="LineNr">402 </span> copy-object v2, tmp -<span id="L403" class="LineNr">403 </span> vec3-negate tmp -<span id="L404" class="LineNr">404 </span> vec3-add-to v1, tmp -<span id="L405" class="LineNr">405 </span><span class="Delimiter">}</span> -<span id="L406" class="LineNr">406 </span> -<span id="L407" class="LineNr">407 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-negate</span> v: (addr vec3) <span class="Delimiter">{</span> -<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> negative-one/eax: int <span class="Special"><-</span> copy <span class="Constant">-1</span> -<span id="L409" class="LineNr">409 </span> <span class="PreProc">var</span> negative-one-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert negative-one -<span id="L410" class="LineNr">410 </span> vec3-scale-up v, negative-one-f -<span id="L411" class="LineNr">411 </span><span class="Delimiter">}</span> -<span id="L412" class="LineNr">412 </span> -<span id="L413" class="LineNr">413 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-scale-up</span> _v: (addr vec3), f: float <span class="Delimiter">{</span> -<span id="L414" class="LineNr">414 </span> <span class="PreProc">var</span> v/<span class="muRegEdi">edi</span>: (addr vec3) <span class="Special"><-</span> copy _v -<span id="L415" class="LineNr">415 </span> <span class="muComment"># v.x *= f</span> -<span id="L416" class="LineNr">416 </span> <span class="PreProc">var</span> dest/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x -<span id="L417" class="LineNr">417 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *dest -<span id="L418" class="LineNr">418 </span> result <span class="Special"><-</span> multiply f -<span id="L419" class="LineNr">419 </span> copy-to *dest, result -<span id="L420" class="LineNr">420 </span> <span class="muComment"># v.y *= f</span> -<span id="L421" class="LineNr">421 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y -<span id="L422" class="LineNr">422 </span> result <span class="Special"><-</span> copy *dest -<span id="L423" class="LineNr">423 </span> result <span class="Special"><-</span> multiply f -<span id="L424" class="LineNr">424 </span> copy-to *dest, result -<span id="L425" class="LineNr">425 </span> <span class="muComment"># v.z *= f</span> -<span id="L426" class="LineNr">426 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z -<span id="L427" class="LineNr">427 </span> result <span class="Special"><-</span> copy *dest -<span id="L428" class="LineNr">428 </span> result <span class="Special"><-</span> multiply f -<span id="L429" class="LineNr">429 </span> copy-to *dest, result -<span id="L430" class="LineNr">430 </span><span class="Delimiter">}</span> -<span id="L431" class="LineNr">431 </span> -<span id="L432" class="LineNr">432 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-scale-down</span> _v: (addr vec3), f: float <span class="Delimiter">{</span> -<span id="L433" class="LineNr">433 </span> <span class="PreProc">var</span> v/<span class="muRegEdi">edi</span>: (addr vec3) <span class="Special"><-</span> copy _v -<span id="L434" class="LineNr">434 </span> <span class="muComment"># v.x /= f</span> -<span id="L435" class="LineNr">435 </span> <span class="PreProc">var</span> dest/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x -<span id="L436" class="LineNr">436 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *dest -<span id="L437" class="LineNr">437 </span> result <span class="Special"><-</span> divide f -<span id="L438" class="LineNr">438 </span> copy-to *dest, result -<span id="L439" class="LineNr">439 </span> <span class="muComment"># v.y /= f</span> -<span id="L440" class="LineNr">440 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y -<span id="L441" class="LineNr">441 </span> result <span class="Special"><-</span> copy *dest -<span id="L442" class="LineNr">442 </span> result <span class="Special"><-</span> divide f -<span id="L443" class="LineNr">443 </span> copy-to *dest, result -<span id="L444" class="LineNr">444 </span> <span class="muComment"># v.z /= f</span> -<span id="L445" class="LineNr">445 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z -<span id="L446" class="LineNr">446 </span> result <span class="Special"><-</span> copy *dest -<span id="L447" class="LineNr">447 </span> result <span class="Special"><-</span> divide f -<span id="L448" class="LineNr">448 </span> copy-to *dest, result -<span id="L449" class="LineNr">449 </span><span class="Delimiter">}</span> -<span id="L450" class="LineNr">450 </span> -<span id="L451" class="LineNr">451 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-unit</span> in: (addr vec3), out: (addr vec3) <span class="Delimiter">{</span> -<span id="L452" class="LineNr">452 </span> <span class="PreProc">var</span> len/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> vec3-length in -<span id="L453" class="LineNr">453 </span><span class="CommentedCode">#? print-string 0, "len: "</span> -<span id="L454" class="LineNr">454 </span><span class="CommentedCode">#? print-float-hex 0, len</span> -<span id="L455" class="LineNr">455 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L456" class="LineNr">456 </span> copy-object in, out -<span id="L457" class="LineNr">457 </span> vec3-scale-down out, len -<span id="L458" class="LineNr">458 </span><span class="Delimiter">}</span> -<span id="L459" class="LineNr">459 </span> -<span id="L460" class="LineNr">460 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-length</span> v: (addr vec3)<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L461" class="LineNr">461 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> vec3-length-squared v -<span id="L462" class="LineNr">462 </span> result <span class="Special"><-</span> square-root result -<span id="L463" class="LineNr">463 </span> <span class="PreProc">return</span> result -<span id="L464" class="LineNr">464 </span><span class="Delimiter">}</span> -<span id="L465" class="LineNr">465 </span> -<span id="L466" class="LineNr">466 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-length-squared</span> _v: (addr vec3)<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L467" class="LineNr">467 </span> <span class="PreProc">var</span> v/<span class="muRegEsi">esi</span>: (addr vec3) <span class="Special"><-</span> copy _v -<span id="L468" class="LineNr">468 </span> <span class="muComment"># result = v.x * v.x</span> -<span id="L469" class="LineNr">469 </span> <span class="PreProc">var</span> src/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x -<span id="L470" class="LineNr">470 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy *src -<span id="L471" class="LineNr">471 </span> tmp <span class="Special"><-</span> multiply tmp -<span id="L472" class="LineNr">472 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy tmp -<span id="L473" class="LineNr">473 </span> <span class="muComment"># result += v.y * v.y</span> -<span id="L474" class="LineNr">474 </span> src <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y -<span id="L475" class="LineNr">475 </span> tmp <span class="Special"><-</span> copy *src -<span id="L476" class="LineNr">476 </span> tmp <span class="Special"><-</span> multiply tmp -<span id="L477" class="LineNr">477 </span> result <span class="Special"><-</span> add tmp -<span id="L478" class="LineNr">478 </span> <span class="muComment"># result += v.z * v.z</span> -<span id="L479" class="LineNr">479 </span> src <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z -<span id="L480" class="LineNr">480 </span> tmp <span class="Special"><-</span> copy *src -<span id="L481" class="LineNr">481 </span> tmp <span class="Special"><-</span> multiply tmp -<span id="L482" class="LineNr">482 </span> result <span class="Special"><-</span> add tmp -<span id="L483" class="LineNr">483 </span> <span class="PreProc">return</span> result -<span id="L484" class="LineNr">484 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/raytracing/color.mu.html b/html/linux/raytracing/color.mu.html deleted file mode 100644 index 9b17aaa3..00000000 --- a/html/linux/raytracing/color.mu.html +++ /dev/null @@ -1,100 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/raytracing/color.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.muRegEdx { color: #af5f00; } -.Special { color: #ff6060; } -.LineNr { } -.Constant { color: #008787; } -.muRegEsi { color: #005faf; } -.muRegEcx { color: #870000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/raytracing/color.mu'>https://github.com/akkartik/mu/blob/main/linux/raytracing/color.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> rgb <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> <span class="muComment"># components normalized to within [0.0, 1.0]</span> -<span id="L3" class="LineNr"> 3 </span> r: float -<span id="L4" class="LineNr"> 4 </span> g: float -<span id="L5" class="LineNr"> 5 </span> b: float -<span id="L6" class="LineNr"> 6 </span><span class="Delimiter">}</span> -<span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># print translating to [0, 256)</span> -<span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction">print-rgb</span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _c: (addr rgb) <span class="Delimiter">{</span> -<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> c/<span class="muRegEsi">esi</span>: (addr rgb) <span class="Special"><-</span> copy _c -<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> xn: float -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> xn-addr/<span class="muRegEcx">ecx</span>: (addr float) <span class="Special"><-</span> address xn -<span id="L13" class="LineNr">13 </span> <a href='../408float.mu.html#L3'>fill-in-rational</a> xn-addr, <span class="Constant">0x3e7ff</span>, <span class="Constant">0x3e8</span> <span class="muComment"># 255999 / 1000</span> -<span id="L14" class="LineNr">14 </span> <span class="muComment"># print 255.999 * c->r</span> -<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy xn -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> src-addr/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, r -<span id="L17" class="LineNr">17 </span> result <span class="Special"><-</span> multiply *src-addr -<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> result-int/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> truncate result -<span id="L19" class="LineNr">19 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int -<span id="L20" class="LineNr">20 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L21" class="LineNr">21 </span> <span class="muComment"># print 255.999 * c->g</span> -<span id="L22" class="LineNr">22 </span> src-addr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, g -<span id="L23" class="LineNr">23 </span> result <span class="Special"><-</span> copy xn -<span id="L24" class="LineNr">24 </span> result <span class="Special"><-</span> multiply *src-addr -<span id="L25" class="LineNr">25 </span> result-int <span class="Special"><-</span> truncate result -<span id="L26" class="LineNr">26 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int -<span id="L27" class="LineNr">27 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L28" class="LineNr">28 </span> <span class="muComment"># print 255.999 * c->b</span> -<span id="L29" class="LineNr">29 </span> src-addr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, b -<span id="L30" class="LineNr">30 </span> result <span class="Special"><-</span> copy xn -<span id="L31" class="LineNr">31 </span> result <span class="Special"><-</span> multiply *src-addr -<span id="L32" class="LineNr">32 </span> result-int <span class="Special"><-</span> truncate result -<span id="L33" class="LineNr">33 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int -<span id="L34" class="LineNr">34 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">"\n"</span> -<span id="L35" class="LineNr">35 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/raytracing/ray.mu.html b/html/linux/raytracing/ray.mu.html deleted file mode 100644 index 7828b6fb..00000000 --- a/html/linux/raytracing/ray.mu.html +++ /dev/null @@ -1,86 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/raytracing/ray.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.Special { color: #ff6060; } -.LineNr { } -.muRegEsi { color: #005faf; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/raytracing/ray.mu'>https://github.com/akkartik/mu/blob/main/linux/raytracing/ray.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> ray <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> orig: vec3 <span class="muComment"># point</span> -<span id="L3" class="LineNr"> 3 </span> dir: vec3 -<span id="L4" class="LineNr"> 4 </span><span class="Delimiter">}</span> -<span id="L5" class="LineNr"> 5 </span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># A little different from the constructor at <a href="https://raytracing.github.io/books/RayTracingInOneWeekend.html">https://raytracing.github.io/books/RayTracingInOneWeekend.html</a></span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># We immediately normalize the direction vector so we don't have to keep doing</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># so.</span> -<span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction">initialize-ray</span> _self: (addr ray), o: (addr vec3), d: (addr vec3) <span class="Delimiter">{</span> -<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr ray) <span class="Special"><-</span> copy _self -<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> dest/eax: (addr vec3) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, orig -<span id="L12" class="LineNr">12 </span> copy-object o, dest -<span id="L13" class="LineNr">13 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, dir -<span id="L14" class="LineNr">14 </span> vec3-unit d, dest -<span id="L15" class="LineNr">15 </span><span class="Delimiter">}</span> -<span id="L16" class="LineNr">16 </span> -<span id="L17" class="LineNr">17 </span><span class="PreProc">fn</span> <span class="muFunction">ray-at</span> _self: (addr ray), t: float, out: (addr vec3) <span class="Delimiter">{</span> -<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr ray) <span class="Special"><-</span> copy _self -<span id="L19" class="LineNr">19 </span> <span class="PreProc">var</span> src/eax: (addr vec3) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, dir -<span id="L20" class="LineNr">20 </span> copy-object src, out -<span id="L21" class="LineNr">21 </span> vec3-scale-up out, t -<span id="L22" class="LineNr">22 </span> src <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, orig -<span id="L23" class="LineNr">23 </span> vec3-add-to out, src -<span id="L24" class="LineNr">24 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/raytracing/vec.mu.html b/html/linux/raytracing/vec.mu.html deleted file mode 100644 index fd9b4bb5..00000000 --- a/html/linux/raytracing/vec.mu.html +++ /dev/null @@ -1,201 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - linux/raytracing/vec.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } -.LineNr { } -.Constant { color: #008787; } -.CommentedCode { color: #8a8a8a; } -.muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } -.muComment { color: #005faf; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.Special { color: #ff6060; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/linux/raytracing/vec.mu'>https://github.com/akkartik/mu/blob/main/linux/raytracing/vec.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> vec3 <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> x: float -<span id="L3" class="LineNr"> 3 </span> y: float -<span id="L4" class="LineNr"> 4 </span> z: float -<span id="L5" class="LineNr"> 5 </span><span class="Delimiter">}</span> -<span id="L6" class="LineNr"> 6 </span> -<span id="L7" class="LineNr"> 7 </span><span class="PreProc">fn</span> <span class="muFunction">print-vec3</span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _v: (addr vec3) <span class="Delimiter">{</span> -<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> v/<span class="muRegEsi">esi</span>: (addr vec3) <span class="Special"><-</span> copy _v -<span id="L9" class="LineNr"> 9 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">"("</span> -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> tmp/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x -<span id="L11" class="LineNr"> 11 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L12" class="LineNr"> 12 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> -<span id="L13" class="LineNr"> 13 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y -<span id="L14" class="LineNr"> 14 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L15" class="LineNr"> 15 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> -<span id="L16" class="LineNr"> 16 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z -<span id="L17" class="LineNr"> 17 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L18" class="LineNr"> 18 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">")"</span> -<span id="L19" class="LineNr"> 19 </span><span class="Delimiter">}</span> -<span id="L20" class="LineNr"> 20 </span> -<span id="L21" class="LineNr"> 21 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-add-to</span> _v1: (addr vec3), _v2: (addr vec3) <span class="Delimiter">{</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> v1/<span class="muRegEdi">edi</span>: (addr vec3) <span class="Special"><-</span> copy _v1 -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> v2/<span class="muRegEsi">esi</span>: (addr vec3) <span class="Special"><-</span> copy _v2 -<span id="L24" class="LineNr"> 24 </span> <span class="muComment"># v1.x += v2.x</span> -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> arg1/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v1, x -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> arg2/<span class="muRegEcx">ecx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v2, x -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *arg1 -<span id="L28" class="LineNr"> 28 </span> result <span class="Special"><-</span> add *arg2 -<span id="L29" class="LineNr"> 29 </span> copy-to *arg1, result -<span id="L30" class="LineNr"> 30 </span> <span class="muComment"># v1.y += v2.y</span> -<span id="L31" class="LineNr"> 31 </span> arg1 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v1, y -<span id="L32" class="LineNr"> 32 </span> arg2 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v2, y -<span id="L33" class="LineNr"> 33 </span> result <span class="Special"><-</span> copy *arg1 -<span id="L34" class="LineNr"> 34 </span> result <span class="Special"><-</span> add *arg2 -<span id="L35" class="LineNr"> 35 </span> copy-to *arg1, result -<span id="L36" class="LineNr"> 36 </span> <span class="muComment"># v1.z += v2.z</span> -<span id="L37" class="LineNr"> 37 </span> arg1 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v1, z -<span id="L38" class="LineNr"> 38 </span> arg2 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v2, z -<span id="L39" class="LineNr"> 39 </span> result <span class="Special"><-</span> copy *arg1 -<span id="L40" class="LineNr"> 40 </span> result <span class="Special"><-</span> add *arg2 -<span id="L41" class="LineNr"> 41 </span> copy-to *arg1, result -<span id="L42" class="LineNr"> 42 </span><span class="Delimiter">}</span> -<span id="L43" class="LineNr"> 43 </span> -<span id="L44" class="LineNr"> 44 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-subtract-from</span> v1: (addr vec3), v2: (addr vec3) <span class="Delimiter">{</span> -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> tmp-storage: vec3 -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> tmp/eax: (addr vec3) <span class="Special"><-</span> address tmp-storage -<span id="L47" class="LineNr"> 47 </span> copy-object v2, tmp -<span id="L48" class="LineNr"> 48 </span> vec3-negate tmp -<span id="L49" class="LineNr"> 49 </span> vec3-add-to v1, tmp -<span id="L50" class="LineNr"> 50 </span><span class="Delimiter">}</span> -<span id="L51" class="LineNr"> 51 </span> -<span id="L52" class="LineNr"> 52 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-negate</span> v: (addr vec3) <span class="Delimiter">{</span> -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> negative-one/eax: int <span class="Special"><-</span> copy <span class="Constant">-1</span> -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> negative-one-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert negative-one -<span id="L55" class="LineNr"> 55 </span> vec3-scale-up v, negative-one-f -<span id="L56" class="LineNr"> 56 </span><span class="Delimiter">}</span> -<span id="L57" class="LineNr"> 57 </span> -<span id="L58" class="LineNr"> 58 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-scale-up</span> _v: (addr vec3), f: float <span class="Delimiter">{</span> -<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> v/<span class="muRegEdi">edi</span>: (addr vec3) <span class="Special"><-</span> copy _v -<span id="L60" class="LineNr"> 60 </span> <span class="muComment"># v.x *= f</span> -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> dest/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *dest -<span id="L63" class="LineNr"> 63 </span> result <span class="Special"><-</span> multiply f -<span id="L64" class="LineNr"> 64 </span> copy-to *dest, result -<span id="L65" class="LineNr"> 65 </span> <span class="muComment"># v.y *= f</span> -<span id="L66" class="LineNr"> 66 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y -<span id="L67" class="LineNr"> 67 </span> result <span class="Special"><-</span> copy *dest -<span id="L68" class="LineNr"> 68 </span> result <span class="Special"><-</span> multiply f -<span id="L69" class="LineNr"> 69 </span> copy-to *dest, result -<span id="L70" class="LineNr"> 70 </span> <span class="muComment"># v.z *= f</span> -<span id="L71" class="LineNr"> 71 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z -<span id="L72" class="LineNr"> 72 </span> result <span class="Special"><-</span> copy *dest -<span id="L73" class="LineNr"> 73 </span> result <span class="Special"><-</span> multiply f -<span id="L74" class="LineNr"> 74 </span> copy-to *dest, result -<span id="L75" class="LineNr"> 75 </span><span class="Delimiter">}</span> -<span id="L76" class="LineNr"> 76 </span> -<span id="L77" class="LineNr"> 77 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-scale-down</span> _v: (addr vec3), f: float <span class="Delimiter">{</span> -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> v/<span class="muRegEdi">edi</span>: (addr vec3) <span class="Special"><-</span> copy _v -<span id="L79" class="LineNr"> 79 </span> <span class="muComment"># v.x /= f</span> -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> dest/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *dest -<span id="L82" class="LineNr"> 82 </span> result <span class="Special"><-</span> divide f -<span id="L83" class="LineNr"> 83 </span> copy-to *dest, result -<span id="L84" class="LineNr"> 84 </span> <span class="muComment"># v.y /= f</span> -<span id="L85" class="LineNr"> 85 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y -<span id="L86" class="LineNr"> 86 </span> result <span class="Special"><-</span> copy *dest -<span id="L87" class="LineNr"> 87 </span> result <span class="Special"><-</span> divide f -<span id="L88" class="LineNr"> 88 </span> copy-to *dest, result -<span id="L89" class="LineNr"> 89 </span> <span class="muComment"># v.z /= f</span> -<span id="L90" class="LineNr"> 90 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z -<span id="L91" class="LineNr"> 91 </span> result <span class="Special"><-</span> copy *dest -<span id="L92" class="LineNr"> 92 </span> result <span class="Special"><-</span> divide f -<span id="L93" class="LineNr"> 93 </span> copy-to *dest, result -<span id="L94" class="LineNr"> 94 </span><span class="Delimiter">}</span> -<span id="L95" class="LineNr"> 95 </span> -<span id="L96" class="LineNr"> 96 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-unit</span> in: (addr vec3), out: (addr vec3) <span class="Delimiter">{</span> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> len/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> vec3-length in -<span id="L98" class="LineNr"> 98 </span><span class="CommentedCode">#? print-string 0, "len: "</span> -<span id="L99" class="LineNr"> 99 </span><span class="CommentedCode">#? print-float-hex 0, len</span> -<span id="L100" class="LineNr">100 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L101" class="LineNr">101 </span> copy-object in, out -<span id="L102" class="LineNr">102 </span> vec3-scale-down out, len -<span id="L103" class="LineNr">103 </span><span class="Delimiter">}</span> -<span id="L104" class="LineNr">104 </span> -<span id="L105" class="LineNr">105 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-length</span> v: (addr vec3)<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> vec3-length-squared v -<span id="L107" class="LineNr">107 </span> result <span class="Special"><-</span> square-root result -<span id="L108" class="LineNr">108 </span> <span class="PreProc">return</span> result -<span id="L109" class="LineNr">109 </span><span class="Delimiter">}</span> -<span id="L110" class="LineNr">110 </span> -<span id="L111" class="LineNr">111 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-length-squared</span> _v: (addr vec3)<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> v/<span class="muRegEsi">esi</span>: (addr vec3) <span class="Special"><-</span> copy _v -<span id="L113" class="LineNr">113 </span> <span class="muComment"># result = v.x * v.x</span> -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> src/eax: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x -<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy *src -<span id="L116" class="LineNr">116 </span> tmp <span class="Special"><-</span> multiply tmp -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy tmp -<span id="L118" class="LineNr">118 </span> <span class="muComment"># result += v.y * v.y</span> -<span id="L119" class="LineNr">119 </span> src <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y -<span id="L120" class="LineNr">120 </span> tmp <span class="Special"><-</span> copy *src -<span id="L121" class="LineNr">121 </span> tmp <span class="Special"><-</span> multiply tmp -<span id="L122" class="LineNr">122 </span> result <span class="Special"><-</span> add tmp -<span id="L123" class="LineNr">123 </span> <span class="muComment"># result += v.z * v.z</span> -<span id="L124" class="LineNr">124 </span> src <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z -<span id="L125" class="LineNr">125 </span> tmp <span class="Special"><-</span> copy *src -<span id="L126" class="LineNr">126 </span> tmp <span class="Special"><-</span> multiply tmp -<span id="L127" class="LineNr">127 </span> result <span class="Special"><-</span> add tmp -<span id="L128" class="LineNr">128 </span> <span class="PreProc">return</span> result -<span id="L129" class="LineNr">129 </span><span class="Delimiter">}</span> -<span id="L130" class="LineNr">130 </span> -<span id="L131" class="LineNr">131 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='vec.mu.html#L131'>vec3-dot</a></span> _v1: (addr vec3), _v2: (addr vec3)<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <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="PreProc">fn</span> <span class="muFunction"><a href='vec.mu.html#L134'>vec3-cross</a></span> _v1: (addr vec3), _v2: (addr vec3), out: (addr vec3) <span class="Delimiter">{</span> -<span id="L135" class="LineNr">135 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/sigils.subx.html b/html/linux/sigils.subx.html index f7a7d6a9..fc776f47 100644 --- a/html/linux/sigils.subx.html +++ b/html/linux/sigils.subx.html @@ -14,17 +14,17 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -149,7 +149,7 @@ if ('onhashchange' in window) { <span id="L87" class="LineNr"> 87 </span> 74/jump-if-= $subx-sigils-main:interactive/disp8 <span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># run-tests()</span> <span id="L89" class="LineNr"> 89 </span> e8/call run-tests/disp32 -<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># syscall_exit(*Num-test-failures)</span> <span id="L91" class="LineNr"> 91 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L92" class="LineNr"> 92 </span> eb/jump $subx-sigils-main:end/disp8 <span id="L93" class="LineNr"> 93 </span><span class="Constant">$subx-sigils-main:interactive</span>: @@ -162,7 +162,7 @@ if ('onhashchange' in window) { <span id="L100" class="LineNr"> 100 </span> e8/call <a href='sigils.subx.html#L110'>subx-sigils</a>/disp32 <span id="L101" class="LineNr"> 101 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L102" class="LineNr"> 102 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L103" class="LineNr"> 103 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L103" class="LineNr"> 103 </span> <span class="subxComment"># syscall_exit(0)</span> <span id="L104" class="LineNr"> 104 </span> bb/copy-to-ebx 0/imm32 <span id="L105" class="LineNr"> 105 </span><span class="Constant">$subx-sigils-main:end</span>: <span id="L106" class="LineNr"> 106 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 @@ -272,7 +272,7 @@ if ('onhashchange' in window) { <span id="L210" class="LineNr"> 210 </span> 3d/compare-eax-and 0x25/imm32/percent <span id="L211" class="LineNr"> 211 </span> 75/jump-if-!= $subx-sigils:check-for-indirect-mode/disp8 <span id="L212" class="LineNr"> 212 </span><span class="Constant">$subx-sigils:direct-mode</span>: -<span id="L213" class="Folded"> 213 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L213" class="Folded"> 213 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L253" class="LineNr"> 253 </span> <span class="subxComment"># emit-direct-mode(out, word-slice)</span> <span id="L254" class="LineNr"> 254 </span> <span class="subxS2Comment"># . . push args</span> <span id="L255" class="LineNr"> 255 </span> 52/push-edx @@ -450,7 +450,7 @@ if ('onhashchange' in window) { <span id="L427" class="LineNr"> 427 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L428" class="LineNr"> 428 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L429" class="LineNr"> 429 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L430" class="LineNr"> 430 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L430" class="LineNr"> 430 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L431" class="LineNr"> 431 </span> bb/copy-to-ebx 1/imm32 <span id="L432" class="LineNr"> 432 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L433" class="LineNr"> 433 </span> <span class="subxComment"># never gets here</span> @@ -513,7 +513,7 @@ if ('onhashchange' in window) { <span id="L490" class="LineNr"> 490 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L491" class="LineNr"> 491 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L492" class="LineNr"> 492 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L493" class="Folded"> 493 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L493" class="Folded"> 493 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L519" class="LineNr"> 519 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "== abcd 0x1 \n", msg)</span> <span id="L520" class="LineNr"> 520 </span> <span class="subxS2Comment"># . . push args</span> <span id="L521" class="LineNr"> 521 </span> 68/push <span class="Constant">"F - test-subx-sigils-passes-most-words-through"</span>/imm32 @@ -586,7 +586,7 @@ if ('onhashchange' in window) { <span id="L588" class="LineNr"> 588 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L589" class="LineNr"> 589 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L590" class="LineNr"> 590 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L591" class="Folded"> 591 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L591" class="Folded"> 591 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L617" class="LineNr"> 617 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 3/mod/direct 0x00000001/rm32 \n", msg)</span> <span id="L618" class="LineNr"> 618 </span> <span class="subxS2Comment"># . . push args</span> <span id="L619" class="LineNr"> 619 </span> 68/push <span class="Constant">"F - test-subx-sigils-direct-mode"</span>/imm32 @@ -731,7 +731,7 @@ if ('onhashchange' in window) { <span id="L758" class="LineNr"> 758 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L759" class="LineNr"> 759 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L760" class="LineNr"> 760 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L761" class="Folded"> 761 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L761" class="Folded"> 761 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L787" class="LineNr"> 787 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 0x00000001/rm32 \n", msg)</span> <span id="L788" class="LineNr"> 788 </span> <span class="subxS2Comment"># . . push args</span> <span id="L789" class="LineNr"> 789 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode"</span>/imm32 @@ -876,7 +876,7 @@ if ('onhashchange' in window) { <span id="L928" class="LineNr"> 928 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L929" class="LineNr"> 929 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L930" class="LineNr"> 930 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L931" class="Folded"> 931 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L931" class="Folded"> 931 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L957" class="LineNr"> 957 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 1/rm32 \n", msg)</span> <span id="L958" class="LineNr"> 958 </span> <span class="subxS2Comment"># . . push args</span> <span id="L959" class="LineNr"> 959 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-without-displacement"</span>/imm32 @@ -949,7 +949,7 @@ if ('onhashchange' in window) { <span id="L1026" class="LineNr">1026 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1027" class="LineNr">1027 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1028" class="LineNr">1028 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1029" class="Folded">1029 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1029" class="Folded">1029 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1055" class="LineNr">1055 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 2/mod/*+disp32 1/rm32 4/disp32 \n", msg)</span> <span id="L1056" class="LineNr">1056 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1057" class="LineNr">1057 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-displacement"</span>/imm32 @@ -1023,7 +1023,7 @@ if ('onhashchange' in window) { <span id="L1125" class="LineNr">1125 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1126" class="LineNr">1126 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1127" class="LineNr">1127 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1128" class="Folded">1128 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1128" class="Folded">1128 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1154" class="LineNr">1154 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 2/mod/*+disp32 4/rm32/sib 1/base 2/index 3/scale 4/disp32 \n", msg)</span> <span id="L1155" class="LineNr">1155 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1156" class="LineNr">1156 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-sib-byte"</span>/imm32 @@ -1096,7 +1096,7 @@ if ('onhashchange' in window) { <span id="L1223" class="LineNr">1223 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1224" class="LineNr">1224 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1225" class="LineNr">1225 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1226" class="Folded">1226 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1226" class="Folded">1226 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1252" class="LineNr">1252 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 2/mod/*+disp32 4/rm32/sib 1/base 2/index 3/scale -4/disp32 \n", msg)</span> <span id="L1253" class="LineNr">1253 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1254" class="LineNr">1254 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-sib-byte-negative-displacement"</span>/imm32 @@ -1169,7 +1169,7 @@ if ('onhashchange' in window) { <span id="L1321" class="LineNr">1321 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1322" class="LineNr">1322 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1323" class="LineNr">1323 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1324" class="Folded">1324 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1324" class="Folded">1324 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1350" class="LineNr">1350 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 5/rm32/.disp32 Foo/disp32 \n", msg)</span> <span id="L1351" class="LineNr">1351 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1352" class="LineNr">1352 </span> 68/push <span class="Constant">"F - test-subx-sigils-indirect-mode-without-register"</span>/imm32 @@ -1198,7 +1198,7 @@ if ('onhashchange' in window) { <span id="L1375" class="LineNr">1375 </span> <span class="subxComment"># ++local-slice->start to skip '%'</span> <span id="L1376" class="LineNr">1376 </span> <span class="subxS1Comment"># . ++(*eax)</span> <span id="L1377" class="LineNr">1377 </span> ff 0/subop/increment 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *eax</span> -<span id="L1378" class="Folded">1378 </span><span class="Folded">+-- 24 lines: #? # write-slice-buffered(Stderr, word-slice) ------------------------------------------------------------------------------------------------------------</span> +<span id="L1378" class="Folded">1378 </span><span class="Folded">+-- 24 lines: #? # write-slice-buffered(Stderr, word-slice) -------------------------------------------------------------------------------------------------------------------------</span> <span id="L1402" class="LineNr">1402 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> <span id="L1403" class="LineNr">1403 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1404" class="LineNr">1404 </span> 50/push-eax @@ -1296,7 +1296,7 @@ if ('onhashchange' in window) { <span id="L1496" class="LineNr">1496 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1497" class="LineNr">1497 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1498" class="LineNr">1498 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1499" class="Folded">1499 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1499" class="Folded">1499 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1525" class="LineNr">1525 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "3/mod/direct 0/rm32", msg)</span> <span id="L1526" class="LineNr">1526 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1527" class="LineNr">1527 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1456'>test-emit-direct-mode</a>/0"</span>/imm32 @@ -1354,7 +1354,7 @@ if ('onhashchange' in window) { <span id="L1579" class="LineNr">1579 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1580" class="LineNr">1580 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1581" class="LineNr">1581 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1582" class="Folded">1582 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1582" class="Folded">1582 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1608" class="LineNr">1608 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "3/mod/direct 7/rm32", msg)</span> <span id="L1609" class="LineNr">1609 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1610" class="LineNr">1610 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1456'>test-emit-direct-mode</a>/1"</span>/imm32 @@ -1553,7 +1553,7 @@ if ('onhashchange' in window) { <span id="L1803" class="LineNr">1803 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1804" class="LineNr">1804 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1805" class="LineNr">1805 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1806" class="LineNr">1806 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1806" class="LineNr">1806 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L1807" class="LineNr">1807 </span> bb/copy-to-ebx 1/imm32 <span id="L1808" class="LineNr">1808 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1809" class="LineNr">1809 </span> <span class="subxComment"># never gets here</span> @@ -1591,7 +1591,7 @@ if ('onhashchange' in window) { <span id="L1841" class="LineNr">1841 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1842" class="LineNr">1842 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1843" class="LineNr">1843 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1844" class="LineNr">1844 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1844" class="LineNr">1844 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L1845" class="LineNr">1845 </span> bb/copy-to-ebx 1/imm32 <span id="L1846" class="LineNr">1846 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1847" class="LineNr">1847 </span> <span class="subxComment"># never gets here</span> @@ -2150,7 +2150,7 @@ if ('onhashchange' in window) { <span id="L2400" class="LineNr">2400 </span> 51/push-ecx <span id="L2401" class="LineNr">2401 </span> 68/push <span class="SpecialChar"><a href='201register-names.subx.html#L2'>Registers</a></span>/imm32 <span id="L2402" class="LineNr">2402 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2403" class="LineNr">2403 </span> e8/call <a href='131table.subx.html#L1965'>maybe-get-slice</a>/disp32 +<span id="L2403" class="LineNr">2403 </span> e8/call <a href='131table.subx.html#L2276'>maybe-get-slice</a>/disp32 <span id="L2404" class="LineNr">2404 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2405" class="LineNr">2405 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L2406" class="LineNr">2406 </span> <span class="subxS1Comment"># . reclaim tmp</span> @@ -2319,7 +2319,7 @@ if ('onhashchange' in window) { <span id="L2569" class="LineNr">2569 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L2570" class="LineNr">2570 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2571" class="LineNr">2571 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2572" class="LineNr">2572 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2572" class="LineNr">2572 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L2573" class="LineNr">2573 </span> bb/copy-to-ebx 1/imm32 <span id="L2574" class="LineNr">2574 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L2575" class="LineNr">2575 </span> <span class="subxComment"># never gets here</span> @@ -2357,7 +2357,7 @@ if ('onhashchange' in window) { <span id="L2607" class="LineNr">2607 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L2608" class="LineNr">2608 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2609" class="LineNr">2609 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2610" class="LineNr">2610 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2610" class="LineNr">2610 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L2611" class="LineNr">2611 </span> bb/copy-to-ebx 1/imm32 <span id="L2612" class="LineNr">2612 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L2613" class="LineNr">2613 </span> <span class="subxComment"># never gets here</span> @@ -2395,7 +2395,7 @@ if ('onhashchange' in window) { <span id="L2645" class="LineNr">2645 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L2646" class="LineNr">2646 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2647" class="LineNr">2647 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2648" class="LineNr">2648 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2648" class="LineNr">2648 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L2649" class="LineNr">2649 </span> bb/copy-to-ebx 1/imm32 <span id="L2650" class="LineNr">2650 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L2651" class="LineNr">2651 </span> <span class="subxComment"># never gets here</span> @@ -2433,7 +2433,7 @@ if ('onhashchange' in window) { <span id="L2683" class="LineNr">2683 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L2684" class="LineNr">2684 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2685" class="LineNr">2685 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2686" class="LineNr">2686 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2686" class="LineNr">2686 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L2687" class="LineNr">2687 </span> bb/copy-to-ebx 1/imm32 <span id="L2688" class="LineNr">2688 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L2689" class="LineNr">2689 </span> <span class="subxComment"># never gets here</span> @@ -3126,7 +3126,7 @@ if ('onhashchange' in window) { <span id="L3376" class="LineNr">3376 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L3377" class="LineNr">3377 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3378" class="LineNr">3378 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3379" class="Folded">3379 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3379" class="Folded">3379 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3405" class="LineNr">3405 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "0/mod/indirect 0/rm32", msg)</span> <span id="L3406" class="LineNr">3406 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3407" class="LineNr">3407 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode"</span>/imm32 @@ -3178,7 +3178,7 @@ if ('onhashchange' in window) { <span id="L3453" class="LineNr">3453 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L3454" class="LineNr">3454 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3455" class="LineNr">3455 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3456" class="Folded">3456 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3456" class="Folded">3456 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3482" class="LineNr">3482 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "0/mod/indirect 7/rm32", msg)</span> <span id="L3483" class="LineNr">3483 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3484" class="LineNr">3484 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-2"</span>/imm32 @@ -3230,7 +3230,7 @@ if ('onhashchange' in window) { <span id="L3530" class="LineNr">3530 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L3531" class="LineNr">3531 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3532" class="LineNr">3532 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3533" class="Folded">3533 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3533" class="Folded">3533 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3559" class="LineNr">3559 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 6/rm32 4/disp32", msg)</span> <span id="L3560" class="LineNr">3560 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3561" class="LineNr">3561 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-with-disp"</span>/imm32 @@ -3282,7 +3282,7 @@ if ('onhashchange' in window) { <span id="L3607" class="LineNr">3607 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L3608" class="LineNr">3608 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3609" class="LineNr">3609 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3610" class="Folded">3610 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3610" class="Folded">3610 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3636" class="LineNr">3636 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 6/rm32 -4/disp32", msg)</span> <span id="L3637" class="LineNr">3637 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3638" class="LineNr">3638 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-with-disp"</span>/imm32 @@ -3334,7 +3334,7 @@ if ('onhashchange' in window) { <span id="L3684" class="LineNr">3684 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L3685" class="LineNr">3685 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3686" class="LineNr">3686 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3687" class="Folded">3687 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3687" class="Folded">3687 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3713" class="LineNr">3713 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/indirect 4/rm32/sib 6/base 1/index 2/scale 4/disp", msg)</span> <span id="L3714" class="LineNr">3714 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3715" class="LineNr">3715 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-with-sib"</span>/imm32 @@ -3386,7 +3386,7 @@ if ('onhashchange' in window) { <span id="L3761" class="LineNr">3761 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L3762" class="LineNr">3762 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3763" class="LineNr">3763 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3764" class="Folded">3764 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3764" class="Folded">3764 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3790" class="LineNr">3790 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 4/rm32/sib 5/base/ebp 0/index 0/scale 0/disp32", msg)</span> <span id="L3791" class="LineNr">3791 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3792" class="LineNr">3792 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-ebp"</span>/imm32 @@ -3438,7 +3438,7 @@ if ('onhashchange' in window) { <span id="L3838" class="LineNr">3838 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L3839" class="LineNr">3839 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3840" class="LineNr">3840 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3841" class="Folded">3841 </span><span class="Folded">+-- 26 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3841" class="Folded">3841 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3867" class="LineNr">3867 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 4/rm32/sib 4/base/ebp 0/index 0/scale 0/disp32", msg)</span> <span id="L3868" class="LineNr">3868 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3869" class="LineNr">3869 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-esp"</span>/imm32 @@ -3490,7 +3490,7 @@ if ('onhashchange' in window) { <span id="L3915" class="LineNr">3915 </span> 56/push-esi <span id="L3916" class="LineNr">3916 </span> 68/push <span class="SpecialChar"><a href='201register-names.subx.html#L2'>Registers</a></span>/imm32 <span id="L3917" class="LineNr">3917 </span> <span class="subxS2Comment"># . . cal</span> -<span id="L3918" class="LineNr">3918 </span> e8/call <a href='131table.subx.html#L1965'>maybe-get-slice</a>/disp32 +<span id="L3918" class="LineNr">3918 </span> e8/call <a href='131table.subx.html#L2276'>maybe-get-slice</a>/disp32 <span id="L3919" class="LineNr">3919 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3920" class="LineNr">3920 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L3921" class="LineNr">3921 </span> <span class="subxComment"># if (eax != 0) return false</span> @@ -3730,7 +3730,7 @@ if ('onhashchange' in window) { <span id="L4155" class="LineNr">4155 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L4156" class="LineNr">4156 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4157" class="LineNr">4157 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4158" class="LineNr">4158 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L4158" class="LineNr">4158 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L4159" class="LineNr">4159 </span> bb/copy-to-ebx 1/imm32 <span id="L4160" class="LineNr">4160 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L4161" class="LineNr">4161 </span> <span class="subxComment"># never gets here</span> diff --git a/html/linux/stack_array.subx.html b/html/linux/stack_array.subx.html index 9f76867f..49e6f7d2 100644 --- a/html/linux/stack_array.subx.html +++ b/html/linux/stack_array.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } .subxS1Comment { color: #0000af; } +.LineNr { } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } .CommentedCode { color: #8a8a8a; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> diff --git a/html/linux/survey_baremetal.subx.html b/html/linux/survey_baremetal.subx.html index 8837d5ee..e1dad125 100644 --- a/html/linux/survey_baremetal.subx.html +++ b/html/linux/survey_baremetal.subx.html @@ -14,18 +14,18 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.CommentedCode { color: #8a8a8a; } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.CommentedCode { color: #8a8a8a; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -61,428 +61,428 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/linux/survey_baremetal.subx'>https://github.com/akkartik/mu/blob/main/linux/survey_baremetal.subx</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Assign addresses (co-ordinates) to instructions (landmarks) in a program</span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># (landscape).</span> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Assign addresses (co-ordinates) to labels (landmarks) in a program</span> +<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># (landscape) on stdin.</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="L8" class="LineNr"> 8 </span><span class="subxComment"># Comments and '==' segment headers are allowed, but segment names are ignored.</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># Mappings between labels and addresses are emitted to stdout, assuming the</span> +<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># program starts at address 0x7c00. Addresses in segment headers are optional.</span> +<span id="L11" class="LineNr"> 11 </span><span class="subxComment">#</span> +<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># $ cat x</span> +<span id="L13" class="LineNr"> 13 </span><span class="subxComment"># == code</span> +<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># l1:</span> +<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># aa bb l1/imm8</span> +<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># cc dd l2/disp32</span> +<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># l2:</span> +<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># ee foo/imm32</span> +<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># == data 0x7c10</span> +<span id="L20" class="LineNr"> 20 </span><span class="subxComment"># foo:</span> +<span id="L21" class="LineNr"> 21 </span><span class="subxComment"># 34</span> +<span id="L22" class="LineNr"> 22 </span><span class="subxComment">#</span> +<span id="L23" class="LineNr"> 23 </span><span class="subxComment"># The output is a list of labels and their computed addresses.</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='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> 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> <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='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> 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 <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">"== 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, "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">"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, "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">"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="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 <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='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="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='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> 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 <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">"== 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, "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">"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, "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">"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="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 <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='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="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="L25" class="LineNr"> 25 </span><span class="subxComment"># $ cat x |bootstrap/bootstrap run survey_baremetal</span> +<span id="L26" class="LineNr"> 26 </span><span class="subxComment"># 0x7c00 l1</span> +<span id="L27" class="LineNr"> 27 </span><span class="subxComment"># 0x7c09 l2</span> +<span id="L28" class="LineNr"> 28 </span><span class="subxComment"># 0x7c10 foo</span> +<span id="L29" class="LineNr"> 29 </span> +<span id="L30" class="LineNr"> 30 </span>== code +<span id="L31" class="LineNr"> 31 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L32" class="LineNr"> 32 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L33" class="LineNr"> 33 </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="L34" class="LineNr"> 34 </span> +<span id="L35" class="LineNr"> 35 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, convert stdin if not</span> +<span id="L36" class="LineNr"> 36 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37" class="LineNr"> 37 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L38" class="LineNr"> 38 </span> +<span id="L39" class="LineNr"> 39 </span> <span class="subxComment"># Heap = new-segment(Heap-size)</span> +<span id="L40" class="LineNr"> 40 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L41" class="LineNr"> 41 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L42" class="LineNr"> 42 </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="L43" class="LineNr"> 43 </span> <span class="subxS2Comment"># . . call</span> +<span id="L44" class="LineNr"> 44 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L45" class="LineNr"> 45 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L46" class="LineNr"> 46 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L47" class="LineNr"> 47 </span> <span class="subxComment"># initialize-trace-stream(Trace-size)</span> +<span id="L48" class="LineNr"> 48 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L49" class="LineNr"> 49 </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="L50" class="LineNr"> 50 </span> <span class="subxS2Comment"># . . call</span> +<span id="L51" class="LineNr"> 51 </span> e8/call <a href='107trace.subx.html#L43'>initialize-trace-stream</a>/disp32 +<span id="L52" class="LineNr"> 52 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L53" class="LineNr"> 53 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L54" class="LineNr"> 54 </span> +<span id="L55" class="LineNr"> 55 </span> <span class="subxH1Comment"># - if argc > 1 and argv[1] == "test", then return run_tests()</span> +<span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># if (argc <= 1) goto interactive</span> +<span id="L57" class="LineNr"> 57 </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="L58" class="LineNr"> 58 </span> 7e/jump-if-<= $subx-survey-main:interactive/disp8 +<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># if (!kernel-string-equal?(argv[1], "test")) goto interactive</span> +<span id="L60" class="LineNr"> 60 </span> <span class="subxS1Comment"># . eax = kernel-string-equal?(argv[1], "test")</span> +<span id="L61" class="LineNr"> 61 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L62" class="LineNr"> 62 </span> 68/push <span class="Constant">"test"</span>/imm32 +<span id="L63" class="LineNr"> 63 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L64" class="LineNr"> 64 </span> <span class="subxS2Comment"># . . call</span> +<span id="L65" class="LineNr"> 65 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L67" class="LineNr"> 67 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L68" class="LineNr"> 68 </span> <span class="subxS1Comment"># . if (eax == false) goto interactive</span> +<span id="L69" class="LineNr"> 69 </span> 3d/compare-eax-and 0/imm32/false +<span id="L70" class="LineNr"> 70 </span> 74/jump-if-= $subx-survey-main:interactive/disp8 +<span id="L71" class="LineNr"> 71 </span> <span class="subxComment"># run-tests()</span> +<span id="L72" class="LineNr"> 72 </span> e8/call run-tests/disp32 +<span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># syscall_exit(*Num-test-failures)</span> +<span id="L74" class="LineNr"> 74 </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="L75" class="LineNr"> 75 </span> eb/jump $subx-survey-main:end/disp8 +<span id="L76" class="LineNr"> 76 </span><span class="Constant">$subx-survey-main:interactive</span>: +<span id="L77" class="LineNr"> 77 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> +<span id="L78" class="LineNr"> 78 </span> <span class="subxComment"># subx-survey(Stdin, Stdout)</span> +<span id="L79" class="LineNr"> 79 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L80" class="LineNr"> 80 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L81" class="LineNr"> 81 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L82" class="LineNr"> 82 </span> <span class="subxS2Comment"># . . call</span> +<span id="L83" class="LineNr"> 83 </span> e8/call <a href='survey_baremetal.subx.html#L99'>subx-survey</a>/disp32 +<span id="L84" class="LineNr"> 84 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L85" class="LineNr"> 85 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L86" class="LineNr"> 86 </span><span class="CommentedCode">#? # . write-stream(2/stderr, Trace-stream)</span> +<span id="L87" class="LineNr"> 87 </span><span class="CommentedCode">#? # . . push args</span> +<span id="L88" class="LineNr"> 88 </span><span class="CommentedCode">#? ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 . . . Trace-stream/disp32 # push *Trace-stream</span> +<span id="L89" class="LineNr"> 89 </span><span class="CommentedCode">#? 68/push 2/imm32/stderr</span> +<span id="L90" class="LineNr"> 90 </span><span class="CommentedCode">#? # . . call</span> +<span id="L91" class="LineNr"> 91 </span><span class="CommentedCode">#? e8/call write-stream/disp32</span> +<span id="L92" class="LineNr"> 92 </span><span class="CommentedCode">#? # . . discard args</span> +<span id="L93" class="LineNr"> 93 </span><span class="CommentedCode">#? 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp</span> +<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># syscall_exit(0)</span> +<span id="L95" class="LineNr"> 95 </span> bb/copy-to-ebx 0/imm32 +<span id="L96" class="LineNr"> 96 </span><span class="Constant">$subx-survey-main:end</span>: +<span id="L97" class="LineNr"> 97 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L98" class="LineNr"> 98 </span> +<span id="L99" class="LineNr"> 99 </span><span class="subxFunction">subx-survey</span>: <span class="subxComment"># infile: (addr buffered-file), out: (addr buffered-file)</span> +<span id="L100" class="LineNr"> 100 </span> <span class="subxComment"># pseudocode</span> +<span id="L101" class="LineNr"> 101 </span> <span class="subxComment"># var in: (stream byte Input-size)</span> +<span id="L102" class="LineNr"> 102 </span> <span class="subxComment"># slurp(infile, in)</span> +<span id="L103" class="LineNr"> 103 </span> <span class="subxComment"># var labels: (stream {label-name, address} Max-labels)</span> +<span id="L104" class="LineNr"> 104 </span> <span class="subxComment"># compute-addresses(in, labels)</span> +<span id="L105" class="LineNr"> 105 </span> <span class="subxComment"># emit-labels(out, labels)</span> +<span id="L106" class="LineNr"> 106 </span> <span class="subxComment">#</span> +<span id="L107" class="LineNr"> 107 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L108" class="LineNr"> 108 </span> 55/push-ebp +<span id="L109" class="LineNr"> 109 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L110" class="LineNr"> 110 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L111" class="LineNr"> 111 </span> 51/push-ecx +<span id="L112" class="LineNr"> 112 </span> 52/push-edx +<span id="L113" class="LineNr"> 113 </span> 56/push-esi +<span id="L114" class="LineNr"> 114 </span> <span class="subxComment"># var labels/edx: (stream {label-name, address} Max-labels)</span> +<span id="L115" class="LineNr"> 115 </span> <span class="subxComment"># (we get more rows than Max-labels advertises because row size is smaller than in survey_elf)</span> +<span id="L116" class="LineNr"> 116 </span> <span class="subxS1Comment"># . data</span> +<span id="L117" class="LineNr"> 117 </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="L118" class="LineNr"> 118 </span> <span class="subxS1Comment"># . size</span> +<span id="L119" class="LineNr"> 119 </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="L120" class="LineNr"> 120 </span> <span class="subxS1Comment"># . read</span> +<span id="L121" class="LineNr"> 121 </span> 68/push 0/imm32/read +<span id="L122" class="LineNr"> 122 </span> <span class="subxS1Comment"># . write</span> +<span id="L123" class="LineNr"> 123 </span> 68/push 0/imm32/write +<span id="L124" class="LineNr"> 124 </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="L125" class="LineNr"> 125 </span> <span class="subxComment"># var in/esi: (stream byte Input-size)</span> +<span id="L126" class="LineNr"> 126 </span> <span class="subxS1Comment"># . data</span> +<span id="L127" class="LineNr"> 127 </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="L128" class="LineNr"> 128 </span> <span class="subxS1Comment"># . size</span> +<span id="L129" class="LineNr"> 129 </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="L130" class="LineNr"> 130 </span> <span class="subxS1Comment"># . read</span> +<span id="L131" class="LineNr"> 131 </span> 68/push 0/imm32/read +<span id="L132" class="LineNr"> 132 </span> <span class="subxS1Comment"># . write</span> +<span id="L133" class="LineNr"> 133 </span> 68/push 0/imm32/write +<span id="L134" class="LineNr"> 134 </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="L135" class="LineNr"> 135 </span> <span class="subxComment"># slurp(infile, in)</span> +<span id="L136" class="LineNr"> 136 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L137" class="LineNr"> 137 </span> 56/push-esi +<span id="L138" class="LineNr"> 138 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L139" class="LineNr"> 139 </span> <span class="subxS2Comment"># . . call</span> +<span id="L140" class="LineNr"> 140 </span> e8/call <a href='132slurp.subx.html#L8'>slurp</a>/disp32 +<span id="L141" class="LineNr"> 141 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L142" class="LineNr"> 142 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L143" class="LineNr"> 143 </span> <span class="subxComment"># compute-addresses(in, labels)</span> +<span id="L144" class="LineNr"> 144 </span> <span class="subxS2Comment"># . . push args</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="subxS2Comment"># . . call</span> +<span id="L148" class="LineNr"> 148 </span> e8/call <a href='survey_baremetal.subx.html#L444'>compute-addresses</a>/disp32 +<span id="L149" class="LineNr"> 149 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L150" class="LineNr"> 150 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L151" class="LineNr"> 151 </span> <span class="subxComment"># emit-labels(out, labels)</span> +<span id="L152" class="LineNr"> 152 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L153" class="LineNr"> 153 </span> 52/push-edx +<span id="L154" class="LineNr"> 154 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L155" class="LineNr"> 155 </span> <span class="subxS2Comment"># . . call</span> +<span id="L156" class="LineNr"> 156 </span> e8/call <a href='survey_baremetal.subx.html#L922'>emit-labels</a>/disp32 +<span id="L157" class="LineNr"> 157 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L158" class="LineNr"> 158 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L159" class="LineNr"> 159 </span> <span class="subxComment"># flush(out)</span> +<span id="L160" class="LineNr"> 160 </span> <span class="subxS2Comment"># . . push args</span> +<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='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L164" class="LineNr"> 164 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L165" class="LineNr"> 165 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L166" class="LineNr"> 166 </span><span class="Constant">$subx-survey:end</span>: +<span id="L167" class="LineNr"> 167 </span> <span class="subxS1Comment"># . reclaim locals</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> 0x18/imm32 <span class="subxComment"># add to esp</span> +<span id="L169" class="LineNr"> 169 </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="L170" class="LineNr"> 170 </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="L171" class="LineNr"> 171 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L172" class="LineNr"> 172 </span> 5e/pop-to-esi +<span id="L173" class="LineNr"> 173 </span> 5a/pop-to-edx +<span id="L174" class="LineNr"> 174 </span> 59/pop-to-ecx +<span id="L175" class="LineNr"> 175 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L176" class="LineNr"> 176 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L177" class="LineNr"> 177 </span> 5d/pop-to-ebp +<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-subx-survey-computes-addresses</span>: +<span id="L181" class="LineNr"> 181 </span> <span class="subxComment"># input:</span> +<span id="L182" class="LineNr"> 182 </span> <span class="subxComment"># == code</span> +<span id="L183" class="LineNr"> 183 </span> <span class="subxComment"># ab x/imm32</span> +<span id="L184" class="LineNr"> 184 </span> <span class="subxComment"># == data</span> +<span id="L185" class="LineNr"> 185 </span> <span class="subxComment"># x:</span> +<span id="L186" class="LineNr"> 186 </span> <span class="subxComment"># 01</span> +<span id="L187" class="LineNr"> 187 </span> <span class="subxComment">#</span> +<span id="L188" class="LineNr"> 188 </span> <span class="subxComment"># trace contains (in any order):</span> +<span id="L189" class="LineNr"> 189 </span> <span class="subxComment"># label x is at address 0x7c05</span> +<span id="L190" class="LineNr"> 190 </span> <span class="subxComment">#</span> +<span id="L191" class="LineNr"> 191 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L192" class="LineNr"> 192 </span> 55/push-ebp +<span id="L193" class="LineNr"> 193 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L194" class="LineNr"> 194 </span> <span class="subxComment"># setup</span> +<span id="L195" class="LineNr"> 195 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L196" class="LineNr"> 196 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L197" class="LineNr"> 197 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L198" class="LineNr"> 198 </span> <span class="subxS2Comment"># . . call</span> +<span id="L199" class="LineNr"> 199 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L200" class="LineNr"> 200 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L201" class="LineNr"> 201 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L202" class="LineNr"> 202 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L203" class="LineNr"> 203 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L204" class="LineNr"> 204 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L205" class="LineNr"> 205 </span> <span class="subxS2Comment"># . . call</span> +<span id="L206" class="LineNr"> 206 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L207" class="LineNr"> 207 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L208" class="LineNr"> 208 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L209" class="LineNr"> 209 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L210" class="LineNr"> 210 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L211" class="LineNr"> 211 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L212" class="LineNr"> 212 </span> <span class="subxS2Comment"># . . call</span> +<span id="L213" class="LineNr"> 213 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L214" class="LineNr"> 214 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L215" class="LineNr"> 215 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L216" class="LineNr"> 216 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L217" class="LineNr"> 217 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L218" class="LineNr"> 218 </span> 68/push $_test-output-buffered-file->buffer/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#L17'>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"># initialize input</span> +<span id="L224" class="LineNr"> 224 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L225" class="LineNr"> 225 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L226" class="LineNr"> 226 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L227" class="LineNr"> 227 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L228" class="LineNr"> 228 </span> <span class="subxS2Comment"># . . call</span> +<span id="L229" class="LineNr"> 229 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L230" class="LineNr"> 230 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L231" class="LineNr"> 231 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L232" class="LineNr"> 232 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab x/imm32\n")</span> +<span id="L233" class="LineNr"> 233 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L234" class="LineNr"> 234 </span> 68/push <span class="Constant">"ab x/imm32\n"</span>/imm32 +<span id="L235" class="LineNr"> 235 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L236" class="LineNr"> 236 </span> <span class="subxS2Comment"># . . call</span> +<span id="L237" class="LineNr"> 237 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L238" class="LineNr"> 238 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L239" class="LineNr"> 239 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L240" class="LineNr"> 240 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data\n")</span> +<span id="L241" class="LineNr"> 241 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L242" class="LineNr"> 242 </span> 68/push <span class="Constant">"== data\n"</span>/imm32 +<span id="L243" class="LineNr"> 243 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L244" class="LineNr"> 244 </span> <span class="subxS2Comment"># . . call</span> +<span id="L245" class="LineNr"> 245 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L246" class="LineNr"> 246 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L247" class="LineNr"> 247 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L248" class="LineNr"> 248 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> +<span id="L249" class="LineNr"> 249 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L250" class="LineNr"> 250 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 +<span id="L251" class="LineNr"> 251 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L252" class="LineNr"> 252 </span> <span class="subxS2Comment"># . . call</span> +<span id="L253" class="LineNr"> 253 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L254" class="LineNr"> 254 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L255" class="LineNr"> 255 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L256" class="LineNr"> 256 </span> <span class="subxS1Comment"># . write(_test-input-stream, "01\n")</span> +<span id="L257" class="LineNr"> 257 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L258" class="LineNr"> 258 </span> 68/push <span class="Constant">"01\n"</span>/imm32 +<span id="L259" class="LineNr"> 259 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L260" class="LineNr"> 260 </span> <span class="subxS2Comment"># . . call</span> +<span id="L261" class="LineNr"> 261 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L262" class="LineNr"> 262 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L263" class="LineNr"> 263 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L264" class="LineNr"> 264 </span> <span class="subxComment"># subx-survey(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L265" class="LineNr"> 265 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L266" class="LineNr"> 266 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L267" class="LineNr"> 267 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L268" class="LineNr"> 268 </span> <span class="subxS2Comment"># . . call</span> +<span id="L269" class="LineNr"> 269 </span> e8/call <a href='survey_baremetal.subx.html#L99'>subx-survey</a>/disp32 +<span id="L270" class="LineNr"> 270 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L271" class="LineNr"> 271 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L272" class="LineNr"> 272 </span> <span class="subxComment"># check trace</span> +<span id="L273" class="Folded"> 273 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L299" class="LineNr"> 299 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is at address 0x00007c05.", 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 - <a href='survey_baremetal.subx.html#L180'>test-subx-survey-computes-addresses</a>/0"</span>/imm32 +<span id="L302" class="LineNr"> 302 </span> 68/push <span class="Constant">"label 'x' is at address 0x00007c05."</span>/imm32 +<span id="L303" class="LineNr"> 303 </span> <span class="subxS2Comment"># . . call</span> +<span id="L304" class="LineNr"> 304 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L305" class="LineNr"> 305 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L306" class="LineNr"> 306 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L307" class="LineNr"> 307 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L308" class="LineNr"> 308 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L309" class="LineNr"> 309 </span> 5d/pop-to-ebp +<span id="L310" class="LineNr"> 310 </span> c3/return +<span id="L311" class="LineNr"> 311 </span> +<span id="L312" class="LineNr"> 312 </span><span class="subxTest">test-subx-survey-computes-addresses-with-padding</span>: +<span id="L313" class="LineNr"> 313 </span> <span class="subxComment"># input:</span> +<span id="L314" class="LineNr"> 314 </span> <span class="subxComment"># == code</span> +<span id="L315" class="LineNr"> 315 </span> <span class="subxComment"># ab x/imm32</span> +<span id="L316" class="LineNr"> 316 </span> <span class="subxComment"># == data 0x7c10</span> +<span id="L317" class="LineNr"> 317 </span> <span class="subxComment"># x:</span> +<span id="L318" class="LineNr"> 318 </span> <span class="subxComment"># 01</span> +<span id="L319" class="LineNr"> 319 </span> <span class="subxComment">#</span> +<span id="L320" class="LineNr"> 320 </span> <span class="subxComment"># trace contains (in any order):</span> +<span id="L321" class="LineNr"> 321 </span> <span class="subxComment"># label x is at address 0x7c10</span> +<span id="L322" class="LineNr"> 322 </span> <span class="subxComment">#</span> +<span id="L323" class="LineNr"> 323 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L324" class="LineNr"> 324 </span> 55/push-ebp +<span id="L325" class="LineNr"> 325 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L326" class="LineNr"> 326 </span> <span class="subxComment"># setup</span> +<span id="L327" class="LineNr"> 327 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L328" class="LineNr"> 328 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L329" class="LineNr"> 329 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L330" class="LineNr"> 330 </span> <span class="subxS2Comment"># . . call</span> +<span id="L331" class="LineNr"> 331 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L332" class="LineNr"> 332 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L333" class="LineNr"> 333 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L334" class="LineNr"> 334 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L335" class="LineNr"> 335 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L336" class="LineNr"> 336 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L337" class="LineNr"> 337 </span> <span class="subxS2Comment"># . . call</span> +<span id="L338" class="LineNr"> 338 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L339" class="LineNr"> 339 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L340" class="LineNr"> 340 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L341" class="LineNr"> 341 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L342" class="LineNr"> 342 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L343" class="LineNr"> 343 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L344" class="LineNr"> 344 </span> <span class="subxS2Comment"># . . call</span> +<span id="L345" class="LineNr"> 345 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L346" class="LineNr"> 346 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L347" class="LineNr"> 347 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L348" class="LineNr"> 348 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L349" class="LineNr"> 349 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L350" class="LineNr"> 350 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L351" class="LineNr"> 351 </span> <span class="subxS2Comment"># . . call</span> +<span id="L352" class="LineNr"> 352 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L353" class="LineNr"> 353 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L354" class="LineNr"> 354 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L355" class="LineNr"> 355 </span> <span class="subxComment"># initialize input</span> +<span id="L356" class="LineNr"> 356 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L357" class="LineNr"> 357 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L358" class="LineNr"> 358 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L359" class="LineNr"> 359 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L360" class="LineNr"> 360 </span> <span class="subxS2Comment"># . . call</span> +<span id="L361" class="LineNr"> 361 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L362" class="LineNr"> 362 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L363" class="LineNr"> 363 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L364" class="LineNr"> 364 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab x/imm32\n")</span> +<span id="L365" class="LineNr"> 365 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L366" class="LineNr"> 366 </span> 68/push <span class="Constant">"ab x/imm32\n"</span>/imm32 +<span id="L367" class="LineNr"> 367 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L368" class="LineNr"> 368 </span> <span class="subxS2Comment"># . . call</span> +<span id="L369" class="LineNr"> 369 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L370" class="LineNr"> 370 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L371" class="LineNr"> 371 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L372" class="LineNr"> 372 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data\n")</span> +<span id="L373" class="LineNr"> 373 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L374" class="LineNr"> 374 </span> 68/push <span class="Constant">"== data 0x7c10\n"</span>/imm32 +<span id="L375" class="LineNr"> 375 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L376" class="LineNr"> 376 </span> <span class="subxS2Comment"># . . call</span> +<span id="L377" class="LineNr"> 377 </span> e8/call <a href='108write.subx.html#L24'>write</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> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L380" class="LineNr"> 380 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> +<span id="L381" class="LineNr"> 381 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L382" class="LineNr"> 382 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 +<span id="L383" class="LineNr"> 383 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L384" class="LineNr"> 384 </span> <span class="subxS2Comment"># . . call</span> +<span id="L385" class="LineNr"> 385 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L386" class="LineNr"> 386 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L387" class="LineNr"> 387 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L388" class="LineNr"> 388 </span> <span class="subxS1Comment"># . write(_test-input-stream, "01\n")</span> +<span id="L389" class="LineNr"> 389 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L390" class="LineNr"> 390 </span> 68/push <span class="Constant">"01\n"</span>/imm32 +<span id="L391" class="LineNr"> 391 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L392" class="LineNr"> 392 </span> <span class="subxS2Comment"># . . call</span> +<span id="L393" class="LineNr"> 393 </span> e8/call <a href='108write.subx.html#L24'>write</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> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L396" class="LineNr"> 396 </span> <span class="subxComment"># subx-survey(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L397" class="LineNr"> 397 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L398" class="LineNr"> 398 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L399" class="LineNr"> 399 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L400" class="LineNr"> 400 </span> <span class="subxS2Comment"># . . call</span> +<span id="L401" class="LineNr"> 401 </span> e8/call <a href='survey_baremetal.subx.html#L99'>subx-survey</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> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L404" class="LineNr"> 404 </span> <span class="subxComment"># check trace</span> +<span id="L405" class="Folded"> 405 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L431" class="LineNr"> 431 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is at address 0x00007c10.", msg)</span> +<span id="L432" class="LineNr"> 432 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L433" class="LineNr"> 433 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L312'>test-subx-survey-computes-addresses-with-padding</a>/0"</span>/imm32 +<span id="L434" class="LineNr"> 434 </span> 68/push <span class="Constant">"label 'x' is at address 0x00007c10."</span>/imm32 +<span id="L435" class="LineNr"> 435 </span> <span class="subxS2Comment"># . . call</span> +<span id="L436" class="LineNr"> 436 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L437" class="LineNr"> 437 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L438" class="LineNr"> 438 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L439" class="LineNr"> 439 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L440" class="LineNr"> 440 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L441" class="LineNr"> 441 </span> 5d/pop-to-ebp +<span id="L442" class="LineNr"> 442 </span> c3/return +<span id="L443" class="LineNr"> 443 </span> +<span id="L444" class="LineNr"> 444 </span><span class="subxFunction">compute-addresses</span>: <span class="subxComment"># in: (addr stream byte), labels: (addr stream {(handle array byte), address})</span> +<span id="L445" class="LineNr"> 445 </span> <span class="subxComment"># pseudocode:</span> +<span id="L446" class="LineNr"> 446 </span> <span class="subxComment"># var current-address = 0x7c00</span> +<span id="L447" class="LineNr"> 447 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L448" class="LineNr"> 448 </span> <span class="subxComment"># while true # line loop</span> +<span id="L449" class="LineNr"> 449 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L450" class="LineNr"> 450 </span> <span class="subxComment"># read-line(in, line)</span> +<span id="L451" class="LineNr"> 451 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L452" class="LineNr"> 452 </span> <span class="subxComment"># while true # word loop</span> +<span id="L453" class="LineNr"> 453 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L454" class="LineNr"> 454 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L455" class="LineNr"> 455 </span> <span class="subxComment"># break</span> +<span id="L456" class="LineNr"> 456 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L457" class="LineNr"> 457 </span> <span class="subxComment"># break # end of line</span> +<span id="L458" class="LineNr"> 458 </span> <span class="subxComment"># else if slice-equal?(word-slice, "==") # segment header</span> +<span id="L459" class="LineNr"> 459 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L460" class="LineNr"> 460 </span> <span class="subxComment"># if slice-empty?(word-slice)</span> +<span id="L461" class="LineNr"> 461 </span> <span class="subxComment"># abort</span> +<span id="L462" class="LineNr"> 462 </span> <span class="subxComment"># word-slice = next-word(line) # segment address</span> +<span id="L463" class="LineNr"> 463 </span> <span class="subxComment"># if slice-empty?(word-slice)</span> +<span id="L464" class="LineNr"> 464 </span> <span class="subxComment"># goto line-loop # segment address is optional</span> +<span id="L465" class="LineNr"> 465 </span> <span class="subxComment"># new-address = parse-hex-int-from-slice(word-slice)</span> +<span id="L466" class="LineNr"> 466 </span> <span class="subxComment"># if new-address < current-address</span> +<span id="L467" class="LineNr"> 467 </span> <span class="subxComment"># abort</span> +<span id="L468" class="LineNr"> 468 </span> <span class="subxComment"># current-address = new-address</span> +<span id="L469" class="LineNr"> 469 </span> <span class="subxComment"># else if label?(word-slice)</span> +<span id="L470" class="LineNr"> 470 </span> <span class="subxComment"># strip trailing ':' from word-slice</span> +<span id="L471" class="LineNr"> 471 </span> <span class="subxComment"># var tmp/eax: (addr int) = insert-slice-or-abort(labels, word-slice)</span> +<span id="L472" class="LineNr"> 472 </span> <span class="subxComment"># *tmp = current-address</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> @@ -531,7 +531,7 @@ if ('onhashchange' in window) { <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="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> @@ -644,14 +644,14 @@ if ('onhashchange' in window) { <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="L666" class="LineNr"> 666 </span> <span class="subxComment"># var tmp/eax: (addr int) = insert-slice-or-abort(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="L673" class="LineNr"> 673 </span> e8/call <a href='131table.subx.html#L1474'>insert-slice-or-abort</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> @@ -679,7 +679,7 @@ if ('onhashchange' in window) { <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="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> @@ -705,7 +705,7 @@ if ('onhashchange' in window) { <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="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> @@ -719,7 +719,7 @@ if ('onhashchange' in window) { <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="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> @@ -807,10 +807,10 @@ if ('onhashchange' in window) { <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='survey_baremetal.subx.html#L446'>compute-addresses</a>/disp32 +<span id="L869" class="LineNr"> 869 </span> e8/call <a href='survey_baremetal.subx.html#L444'>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="Folded"> 872 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream ----------------------------------------------------------------------------------------------------------------------------------</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 @@ -1018,7 +1018,7 @@ if ('onhashchange' in window) { <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="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 diff --git a/html/linux/survey_elf.subx.html b/html/linux/survey_elf.subx.html index 2ff3382e..0babeeb5 100644 --- a/html/linux/survey_elf.subx.html +++ b/html/linux/survey_elf.subx.html @@ -14,18 +14,18 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } -.CommentedCode { color: #8a8a8a; } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } +.CommentedCode { color: #8a8a8a; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } -.subxTest { color: #5f8700; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -142,7 +142,7 @@ if ('onhashchange' in window) { <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> e8/call run-tests/disp32 -<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># syscall_exit(*Num-test-failures)</span> <span id="L83" class="LineNr"> 83 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L84" class="LineNr"> 84 </span> eb/jump $subx-survey-main:end/disp8 <span id="L85" class="LineNr"> 85 </span><span class="Constant">$subx-survey-main:interactive</span>: @@ -163,7 +163,7 @@ if ('onhashchange' in window) { <span id="L100" class="LineNr"> 100 </span><span class="CommentedCode">#? e8/call write-stream/disp32</span> <span id="L101" class="LineNr"> 101 </span><span class="CommentedCode">#? # . . discard args</span> <span id="L102" class="LineNr"> 102 </span><span class="CommentedCode">#? 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp</span> -<span id="L103" class="LineNr"> 103 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L103" class="LineNr"> 103 </span> <span class="subxComment"># syscall_exit(0)</span> <span id="L104" class="LineNr"> 104 </span> bb/copy-to-ebx 0/imm32 <span id="L105" class="LineNr"> 105 </span><span class="Constant">$subx-survey-main:end</span>: <span id="L106" class="LineNr"> 106 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 @@ -387,7 +387,7 @@ if ('onhashchange' in window) { <span id="L324" class="LineNr"> 324 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L325" class="LineNr"> 325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L326" class="LineNr"> 326 </span> <span class="subxComment"># check trace</span> -<span id="L327" class="Folded"> 327 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream ----------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L327" class="Folded"> 327 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L353" class="LineNr"> 353 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is at address 0x00001079.", msg)</span> <span id="L354" class="LineNr"> 354 </span> <span class="subxS2Comment"># . . push args</span> <span id="L355" class="LineNr"> 355 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L222'>test-subx-survey-computes-addresses</a>/0"</span>/imm32 @@ -489,7 +489,7 @@ if ('onhashchange' in window) { <span id="L451" class="LineNr"> 451 </span> <span class="subxComment"># break (next line)</span> <span id="L452" class="LineNr"> 452 </span> <span class="subxComment"># else if label?(word-slice)</span> <span id="L453" class="LineNr"> 453 </span> <span class="subxComment"># strip trailing ':' from word-slice</span> -<span id="L454" class="LineNr"> 454 </span> <span class="subxComment"># linfo: (addr label-info) = get-or-insert-slice(labels, word-slice)</span> +<span id="L454" class="LineNr"> 454 </span> <span class="subxComment"># linfo: (addr label-info) = insert-slice-or-abort(labels, word-slice)</span> <span id="L455" class="LineNr"> 455 </span> <span class="subxComment"># linfo->segment-name = curr-segment-name</span> <span id="L456" class="LineNr"> 456 </span> <span class="subxComment"># trace("label '", word-slice, "' is in segment '", curr-segment-name, "'.")</span> <span id="L457" class="LineNr"> 457 </span> <span class="subxComment"># linfo->segment-offset = segment-offset</span> @@ -550,7 +550,7 @@ if ('onhashchange' in window) { <span id="L512" class="LineNr"> 512 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> <span id="L513" class="LineNr"> 513 </span> 3d/compare-eax-and 0/imm32 <span id="L514" class="LineNr"> 514 </span> 0f 84/jump-if-= $compute-offsets:break-line-loop/disp32 -<span id="L515" class="Folded"> 515 </span><span class="Folded">+-- 33 lines: #? # dump line -------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L515" class="Folded"> 515 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L548" class="LineNr"> 548 </span><span class="Constant">$compute-offsets:word-loop</span>: <span id="L549" class="LineNr"> 549 </span> <span class="subxComment"># next-word(line, word-slice)</span> <span id="L550" class="LineNr"> 550 </span> <span class="subxS2Comment"># . . push args</span> @@ -608,7 +608,7 @@ if ('onhashchange' in window) { <span id="L602" class="LineNr"> 602 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> <span id="L603" class="LineNr"> 603 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L604" class="LineNr"> 604 </span> <span class="subxS2Comment"># . . call</span> -<span id="L605" class="LineNr"> 605 </span> e8/call <a href='131table.subx.html#L706'>get-or-insert-handle</a>/disp32 +<span id="L605" class="LineNr"> 605 </span> e8/call <a href='131table.subx.html#L854'>get-or-insert-handle</a>/disp32 <span id="L606" class="LineNr"> 606 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L607" class="LineNr"> 607 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> <span id="L608" class="LineNr"> 608 </span> <span class="subxS1Comment"># . edi = eax</span> @@ -703,7 +703,7 @@ if ('onhashchange' in window) { <span id="L697" class="LineNr"> 697 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> <span id="L698" class="LineNr"> 698 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L699" class="LineNr"> 699 </span> <span class="subxS2Comment"># . . call</span> -<span id="L700" class="LineNr"> 700 </span> e8/call <a href='131table.subx.html#L706'>get-or-insert-handle</a>/disp32 +<span id="L700" class="LineNr"> 700 </span> e8/call <a href='131table.subx.html#L854'>get-or-insert-handle</a>/disp32 <span id="L701" class="LineNr"> 701 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L702" class="LineNr"> 702 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> <span id="L703" class="LineNr"> 703 </span> <span class="subxS1Comment"># . edi = eax</span> @@ -759,15 +759,15 @@ if ('onhashchange' in window) { <span id="L753" class="LineNr"> 753 </span> 0f 84/jump-if-= $compute-offsets:case-default/disp32 <span id="L754" class="LineNr"> 754 </span> <span class="subxComment"># strip trailing ':' from word-slice</span> <span id="L755" class="LineNr"> 755 </span> ff 1/subop/decrement 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># decrement *(edx+4)</span> -<span id="L756" class="LineNr"> 756 </span> <span class="subxComment"># linfo/edi = get-or-insert-slice(labels, word-slice, row-size=24)</span> -<span id="L757" class="LineNr"> 757 </span> <span class="subxS1Comment"># . eax = get-or-insert-slice(labels, word-slice, row-size=24)</span> +<span id="L756" class="LineNr"> 756 </span> <span class="subxComment"># linfo/edi = insert-slice-or-abort(labels, word-slice, row-size=24)</span> +<span id="L757" class="LineNr"> 757 </span> <span class="subxS1Comment"># . eax = insert-slice-or-abort(labels, word-slice, row-size=24)</span> <span id="L758" class="LineNr"> 758 </span> <span class="subxS2Comment"># . . push args</span> <span id="L759" class="LineNr"> 759 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 <span id="L760" class="LineNr"> 760 </span> 68/push 0x18/imm32/row-size <span id="L761" class="LineNr"> 761 </span> 52/push-edx <span id="L762" class="LineNr"> 762 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> <span id="L763" class="LineNr"> 763 </span> <span class="subxS2Comment"># . . call</span> -<span id="L764" class="LineNr"> 764 </span> e8/call <a href='131table.subx.html#L1022'>get-or-insert-slice</a>/disp32 +<span id="L764" class="LineNr"> 764 </span> e8/call <a href='131table.subx.html#L1474'>insert-slice-or-abort</a>/disp32 <span id="L765" class="LineNr"> 765 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L766" class="LineNr"> 766 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> <span id="L767" class="LineNr"> 767 </span> <span class="subxS1Comment"># . edi = eax</span> @@ -828,7 +828,7 @@ if ('onhashchange' in window) { <span id="L822" class="LineNr"> 822 </span> 01/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <a href='survey_elf.subx.html#L407'>compute-offsets</a>:segment-offset/disp32 <span class="subxComment"># add eax to *segment-offset</span> <span id="L823" class="LineNr"> 823 </span> <span class="subxComment"># file-offset += width</span> <span id="L824" class="LineNr"> 824 </span> 01/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <a href='survey_elf.subx.html#L407'>compute-offsets</a>:file-offset/disp32 <span class="subxComment"># add eax to *file-offset</span> -<span id="L825" class="Folded"> 825 </span><span class="Folded">+-- 41 lines: #? # dump segment-offset ---------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L825" class="Folded"> 825 </span><span class="Folded">+-- 41 lines: #? # dump segment-offset ----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L866" class="LineNr"> 866 </span> e9/jump $compute-offsets:word-loop/disp32 <span id="L867" class="LineNr"> 867 </span><span class="Constant">$compute-offsets:break-line-loop</span>: <span id="L868" class="LineNr"> 868 </span> <span class="subxComment"># sinfo/edi = get-or-insert-handle(segments, curr-segment-name, row-size=16)</span> @@ -839,7 +839,7 @@ if ('onhashchange' in window) { <span id="L873" class="LineNr"> 873 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> <span id="L874" class="LineNr"> 874 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L875" class="LineNr"> 875 </span> <span class="subxS2Comment"># . . call</span> -<span id="L876" class="LineNr"> 876 </span> e8/call <a href='131table.subx.html#L706'>get-or-insert-handle</a>/disp32 +<span id="L876" class="LineNr"> 876 </span> e8/call <a href='131table.subx.html#L854'>get-or-insert-handle</a>/disp32 <span id="L877" class="LineNr"> 877 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L878" class="LineNr"> 878 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> <span id="L879" class="LineNr"> 879 </span> <span class="subxS1Comment"># . edi = eax</span> @@ -901,7 +901,7 @@ if ('onhashchange' in window) { <span id="L935" class="LineNr"> 935 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L936" class="LineNr"> 936 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L937" class="LineNr"> 937 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L938" class="LineNr"> 938 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L938" class="LineNr"> 938 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L939" class="LineNr"> 939 </span> bb/copy-to-ebx 1/imm32 <span id="L940" class="LineNr"> 940 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L941" class="LineNr"> 941 </span> <span class="subxComment"># never gets here</span> @@ -1004,7 +1004,7 @@ if ('onhashchange' in window) { <span id="L1038" class="LineNr">1038 </span> e8/call <a href='survey_elf.subx.html#L407'>compute-offsets</a>/disp32 <span id="L1039" class="LineNr">1039 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1040" class="LineNr">1040 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1041" class="Folded">1041 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream ----------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1041" class="Folded">1041 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1067" class="LineNr">1067 </span> <span class="subxComment"># check trace</span> <span id="L1068" class="LineNr">1068 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'code' is at file offset 0x00000000.", msg)</span> <span id="L1069" class="LineNr">1069 </span> <span class="subxS2Comment"># . . push args</span> @@ -1168,7 +1168,7 @@ if ('onhashchange' in window) { <span id="L1227" class="LineNr">1227 </span> 81 0/subop/add 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esi</span> <span id="L1228" class="LineNr">1228 </span> eb/jump $compute-addresses:segment-loop/disp8 <span id="L1229" class="LineNr">1229 </span><span class="Constant">$compute-addresses:segment-break</span>: -<span id="L1230" class="Folded">1230 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream ----------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1230" class="Folded">1230 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1256" class="LineNr">1256 </span> <span class="subxComment"># esi = labels</span> <span id="L1257" class="LineNr">1257 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> <span id="L1258" class="LineNr">1258 </span> <span class="subxComment"># var max/ecx: (addr byte) = &labels->data[labels->write]</span> @@ -1180,7 +1180,7 @@ if ('onhashchange' in window) { <span id="L1264" class="LineNr">1264 </span> <span class="subxComment"># if (lrow >= max) break</span> <span id="L1265" class="LineNr">1265 </span> 39/compare 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare esi with ecx</span> <span id="L1266" class="LineNr">1266 </span> 0f 83/jump-if-addr>= $compute-addresses:end/disp32 -<span id="L1267" class="Folded">1267 </span><span class="Folded">+-- 26 lines: #? # dump lrow->key --------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1267" class="Folded">1267 </span><span class="Folded">+-- 26 lines: #? # dump lrow->key ---------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1293" class="LineNr">1293 </span> <span class="subxComment"># var seg-name/edx: (addr array byte) = lookup(lrow->segment-name)</span> <span id="L1294" class="LineNr">1294 </span> <span class="subxS1Comment"># . eax = lookup(lrow->segment-name)</span> <span id="L1295" class="LineNr">1295 </span> <span class="subxS2Comment"># . . push args</span> @@ -1192,7 +1192,7 @@ if ('onhashchange' in window) { <span id="L1301" class="LineNr">1301 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1302" class="LineNr">1302 </span> <span class="subxS1Comment"># . edx = eax</span> <span id="L1303" class="LineNr">1303 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> -<span id="L1304" class="Folded">1304 </span><span class="Folded">+-- 26 lines: #? # dump seg-name ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1304" class="Folded">1304 </span><span class="Folded">+-- 26 lines: #? # dump seg-name ----------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1330" class="LineNr">1330 </span> <span class="subxComment"># var label-seg/edx: (addr segment-info) = get(segments, seg-name, row-size=20, "segment table")</span> <span id="L1331" class="LineNr">1331 </span> <span class="subxS1Comment"># . eax = get(segments, seg-name, row-size=20)</span> <span id="L1332" class="LineNr">1332 </span> <span class="subxS2Comment"># . . push args</span> @@ -1409,7 +1409,7 @@ if ('onhashchange' in window) { <span id="L1543" class="LineNr">1543 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1544" class="LineNr">1544 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1545" class="LineNr">1545 </span> <span class="subxComment"># checks</span> -<span id="L1546" class="Folded">1546 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream ----------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1546" class="Folded">1546 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1572" class="LineNr">1572 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'a' starts at address 0x00001094.", msg)</span> <span id="L1573" class="LineNr">1573 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1574" class="LineNr">1574 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L1385'>test-compute-addresses</a>/0"</span>/imm32 @@ -1572,7 +1572,7 @@ if ('onhashchange' in window) { <span id="L1731" class="LineNr">1731 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1732" class="LineNr">1732 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1733" class="LineNr">1733 </span> <span class="subxComment"># checks</span> -<span id="L1734" class="Folded">1734 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream ----------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1734" class="Folded">1734 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1760" class="LineNr">1760 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'a' starts at address 0x00001074.", msg)</span> <span id="L1761" class="LineNr">1761 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1762" class="LineNr">1762 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L1626'>test-compute-addresses-large-segments</a>/0"</span>/imm32 @@ -1610,7 +1610,7 @@ if ('onhashchange' in window) { <span id="L1794" class="LineNr">1794 </span> <span class="subxS1Comment"># . prologue</span> <span id="L1795" class="LineNr">1795 </span> 55/push-ebp <span id="L1796" class="LineNr">1796 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1797" class="Folded">1797 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-headers\n") -------------------------------------------------------------------------------------------------------------------</span> +<span id="L1797" class="Folded">1797 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-headers\n") --------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1806" class="LineNr">1806 </span> <span class="subxComment"># emit-headers(out, segments, labels)</span> <span id="L1807" class="LineNr">1807 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1808" class="LineNr">1808 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> @@ -1620,7 +1620,7 @@ if ('onhashchange' in window) { <span id="L1812" class="LineNr">1812 </span> e8/call <a href='survey_elf.subx.html#L3142'>emit-headers</a>/disp32 <span id="L1813" class="LineNr">1813 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1814" class="LineNr">1814 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1815" class="Folded">1815 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-segments\n") ------------------------------------------------------------------------------------------------------------------</span> +<span id="L1815" class="Folded">1815 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-segments\n") -------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1824" class="LineNr">1824 </span> <span class="subxComment"># emit-segments(in, out, labels)</span> <span id="L1825" class="LineNr">1825 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1826" class="LineNr">1826 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> @@ -1736,7 +1736,7 @@ if ('onhashchange' in window) { <span id="L1936" class="LineNr">1936 </span> e8/call <a href='122read-line.subx.html#L218'>read-line</a>/disp32 <span id="L1937" class="LineNr">1937 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1938" class="LineNr">1938 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1939" class="Folded">1939 </span><span class="Folded">+-- 33 lines: #? # dump line -------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1939" class="Folded">1939 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1972" class="LineNr">1972 </span><span class="Constant">$emit-segments:check-for-end-of-input</span>: <span id="L1973" class="LineNr">1973 </span> <span class="subxComment"># if (line->write == 0) break</span> <span id="L1974" class="LineNr">1974 </span> 81 7/subop/compare 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare *ecx</span> @@ -1774,7 +1774,7 @@ if ('onhashchange' in window) { <span id="L2006" class="LineNr">2006 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L2007" class="LineNr">2007 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2008" class="LineNr">2008 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2009" class="Folded">2009 </span><span class="Folded">+-- 33 lines: #? # dump word-slice -------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2009" class="Folded">2009 </span><span class="Folded">+-- 33 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2042" class="LineNr">2042 </span><span class="Constant">$emit-segments:check-for-end-of-line</span>: <span id="L2043" class="LineNr">2043 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> <span id="L2044" class="LineNr">2044 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> @@ -1860,7 +1860,7 @@ if ('onhashchange' in window) { <span id="L2124" class="LineNr">2124 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 <span id="L2125" class="LineNr">2125 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2126" class="LineNr">2126 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2127" class="Folded">2127 </span><span class="Folded">+-- 33 lines: #? # dump datum ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2127" class="Folded">2127 </span><span class="Folded">+-- 33 lines: #? # dump datum -------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2160" class="LineNr">2160 </span> <span class="subxComment"># info/esi = get-slice(labels, datum, row-size=24, "label table")</span> <span id="L2161" class="LineNr">2161 </span> <span class="subxS1Comment"># . eax = get-slice(labels, datum, row-size=24, "label table")</span> <span id="L2162" class="LineNr">2162 </span> <span class="subxS2Comment"># . . push args</span> @@ -1900,7 +1900,7 @@ if ('onhashchange' in window) { <span id="L2196" class="LineNr">2196 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> <span id="L2197" class="LineNr">2197 </span> 3d/compare-eax-and 0/imm32/false <span id="L2198" class="LineNr">2198 </span> 74/jump-if-= $emit-segments:check-disp8/disp8 -<span id="L2199" class="Folded">2199 </span><span class="Folded">+-- 33 lines: #? # dump info->address ----------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2199" class="Folded">2199 </span><span class="Folded">+-- 33 lines: #? # dump info->address -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2232" class="LineNr">2232 </span><span class="Constant">$emit-segments:emit-imm32</span>: <span id="L2233" class="LineNr">2233 </span> <span class="subxComment"># emit-hex(out, info->address, 4)</span> <span id="L2234" class="LineNr">2234 </span> <span class="subxS2Comment"># . . push args</span> @@ -2008,7 +2008,7 @@ if ('onhashchange' in window) { <span id="L2336" class="LineNr">2336 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L2337" class="LineNr">2337 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2338" class="LineNr">2338 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2339" class="LineNr">2339 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2339" class="LineNr">2339 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L2340" class="LineNr">2340 </span> bb/copy-to-ebx 1/imm32 <span id="L2341" class="LineNr">2341 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L2342" class="LineNr">2342 </span> <span class="subxComment"># never gets here</span> @@ -2038,7 +2038,7 @@ if ('onhashchange' in window) { <span id="L2366" class="LineNr">2366 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L2367" class="LineNr">2367 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2368" class="LineNr">2368 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2369" class="LineNr">2369 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2369" class="LineNr">2369 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L2370" class="LineNr">2370 </span> bb/copy-to-ebx 1/imm32 <span id="L2371" class="LineNr">2371 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L2372" class="LineNr">2372 </span> <span class="subxComment"># never gets here</span> @@ -2199,7 +2199,7 @@ if ('onhashchange' in window) { <span id="L2527" class="LineNr">2527 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L2528" class="LineNr">2528 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2529" class="LineNr">2529 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2530" class="Folded">2530 </span><span class="Folded">+-- 33 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2530" class="Folded">2530 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2563" class="LineNr">2563 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ef gh ", msg)</span> <span id="L2564" class="LineNr">2564 </span> <span class="subxS2Comment"># . . push args</span> <span id="L2565" class="LineNr">2565 </span> 68/push <span class="Constant">"F - test-emit-segments-global-variable/0"</span>/imm32 @@ -2378,7 +2378,7 @@ if ('onhashchange' in window) { <span id="L2738" class="LineNr">2738 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L2739" class="LineNr">2739 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2740" class="LineNr">2740 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2741" class="Folded">2741 </span><span class="Folded">+-- 33 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2741" class="Folded">2741 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2774" class="LineNr">2774 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> <span id="L2775" class="LineNr">2775 </span> <span class="subxS2Comment"># . . push args</span> <span id="L2776" class="LineNr">2776 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L2604'>test-emit-segments-code-label</a>/0"</span>/imm32 @@ -2548,7 +2548,7 @@ if ('onhashchange' in window) { <span id="L2940" class="LineNr">2940 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L2941" class="LineNr">2941 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2942" class="LineNr">2942 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2943" class="Folded">2943 </span><span class="Folded">+-- 33 lines: #? # dump output -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2943" class="Folded">2943 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2976" class="LineNr">2976 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> <span id="L2977" class="LineNr">2977 </span> <span class="subxS2Comment"># . . push args</span> <span id="L2978" class="LineNr">2978 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L2806'>test-emit-segments-code-label-absolute</a>/0"</span>/imm32 @@ -2752,8 +2752,8 @@ if ('onhashchange' in window) { <span id="L3176" class="LineNr">3176 </span> <span class="subxComment"># if (curr-segment >= max) break</span> <span id="L3177" class="LineNr">3177 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> <span id="L3178" class="LineNr">3178 </span> 0f 83/jump-if-addr>= $emit-headers:end/disp32 -<span id="L3179" class="Folded">3179 </span><span class="Folded">+-- 63 lines: #? # dump curr-segment->name -----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3242" class="Folded">3242 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-segment-header\n") ------------------------------------------------------------------------------------------------------------</span> +<span id="L3179" class="Folded">3179 </span><span class="Folded">+-- 63 lines: #? # dump curr-segment->name ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3242" class="Folded">3242 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-segment-header\n") -------------------------------------------------------------------------------------------------------------------------</span> <span id="L3251" class="LineNr">3251 </span> <span class="subxComment"># emit-elf-program-header-entry(out, curr-segment)</span> <span id="L3252" class="LineNr">3252 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3253" class="LineNr">3253 </span> 50/push-eax @@ -3020,7 +3020,7 @@ if ('onhashchange' in window) { <span id="L3514" class="LineNr">3514 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L3515" class="LineNr">3515 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3516" class="LineNr">3516 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3517" class="LineNr">3517 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L3517" class="LineNr">3517 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L3518" class="LineNr">3518 </span> bb/copy-to-ebx 1/imm32 <span id="L3519" class="LineNr">3519 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L3520" class="LineNr">3520 </span> <span class="subxComment"># never gets here</span> @@ -3115,7 +3115,7 @@ if ('onhashchange' in window) { <span id="L3609" class="LineNr">3609 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 <span id="L3610" class="LineNr">3610 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3611" class="LineNr">3611 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3612" class="LineNr">3612 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L3612" class="LineNr">3612 </span> <span class="subxS1Comment"># . syscall_exit(1)</span> <span id="L3613" class="LineNr">3613 </span> bb/copy-to-ebx 1/imm32 <span id="L3614" class="LineNr">3614 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L3615" class="LineNr">3615 </span> <span class="subxComment"># never gets here</span> @@ -3195,7 +3195,7 @@ if ('onhashchange' in window) { <span id="L3689" class="LineNr">3689 </span> e8/call <a href='survey_elf.subx.html#L3624'>trace-sssns</a>/disp32 <span id="L3690" class="LineNr">3690 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3691" class="LineNr">3691 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3692" class="Folded">3692 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream ----------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3692" class="Folded">3692 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3718" class="LineNr">3718 </span> <span class="subxComment"># check-trace-contains("Abc 0x00000003 e")</span> <span id="L3719" class="LineNr">3719 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3720" class="LineNr">3720 </span> 68/push <span class="Constant">"F - test-trace-sssns"</span>/imm32 @@ -3295,7 +3295,7 @@ if ('onhashchange' in window) { <span id="L3814" class="LineNr">3814 </span> e8/call <a href='survey_elf.subx.html#L3731'>trace-slsls</a>/disp32 <span id="L3815" class="LineNr">3815 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3816" class="LineNr">3816 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3817" class="Folded">3817 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream ----------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3817" class="Folded">3817 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3843" class="LineNr">3843 </span> <span class="subxComment"># check-trace-contains("Abcde")</span> <span id="L3844" class="LineNr">3844 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3845" class="LineNr">3845 </span> 68/push <span class="Constant">"F - test-trace-slsls"</span>/imm32 @@ -3386,7 +3386,7 @@ if ('onhashchange' in window) { <span id="L3930" class="LineNr">3930 </span> e8/call <a href='survey_elf.subx.html#L3856'>trace-slsns</a>/disp32 <span id="L3931" class="LineNr">3931 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L3932" class="LineNr">3932 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3933" class="Folded">3933 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream ----------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3933" class="Folded">3933 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3959" class="LineNr">3959 </span> <span class="subxComment"># check-trace-contains("Abc 0x00000003 e")</span> <span id="L3960" class="LineNr">3960 </span> <span class="subxS2Comment"># . . push args</span> <span id="L3961" class="LineNr">3961 </span> 68/push <span class="Constant">"F - test-trace-slsls"</span>/imm32 @@ -3477,7 +3477,7 @@ if ('onhashchange' in window) { <span id="L4046" class="LineNr">4046 </span> e8/call <a href='survey_elf.subx.html#L3972'>trace-slsss</a>/disp32 <span id="L4047" class="LineNr">4047 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4048" class="LineNr">4048 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L4049" class="Folded">4049 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream ----------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4049" class="Folded">4049 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4075" class="LineNr">4075 </span> <span class="subxComment"># check-trace-contains("Abcde")</span> <span id="L4076" class="LineNr">4076 </span> <span class="subxS2Comment"># . . push args</span> <span id="L4077" class="LineNr">4077 </span> 68/push <span class="Constant">"F - test-trace-slsss"</span>/imm32 @@ -3520,7 +3520,7 @@ if ('onhashchange' in window) { <span id="L4114" class="LineNr">4114 </span> 68/push 0/imm32/end <span id="L4115" class="LineNr">4115 </span> 68/push 0/imm32/start <span id="L4116" class="LineNr">4116 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L4117" class="Folded">4117 </span><span class="Folded">+-- 26 lines: #? # dump line -------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4117" class="Folded">4117 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4143" class="LineNr">4143 </span> <span class="subxS1Comment"># . rewind-stream(line)</span> <span id="L4144" class="LineNr">4144 </span> <span class="subxS2Comment"># . . push args</span> <span id="L4145" class="LineNr">4145 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> @@ -3537,7 +3537,7 @@ if ('onhashchange' in window) { <span id="L4156" class="LineNr">4156 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L4157" class="LineNr">4157 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L4158" class="LineNr">4158 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4159" class="Folded">4159 </span><span class="Folded">+-- 40 lines: #? # dump word-slice -------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4159" class="Folded">4159 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4199" class="LineNr">4199 </span><span class="Constant">$num-bytes:check0</span>: <span id="L4200" class="LineNr">4200 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> <span id="L4201" class="LineNr">4201 </span> <span class="subxS1Comment"># . save result</span> diff --git a/html/linux/tests.subx.html b/html/linux/tests.subx.html index c78645bd..3ee5e92e 100644 --- a/html/linux/tests.subx.html +++ b/html/linux/tests.subx.html @@ -14,15 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #ffffd7; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } 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 { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #ffffd7; padding-bottom: 1px; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -108,7 +108,7 @@ if ('onhashchange' in window) { <span id="L48" class="LineNr"> 48 </span> 74/jump-if-= $subx-tests-main:interactive/disp8 <span id="L49" class="LineNr"> 49 </span> <span class="subxComment"># run-tests()</span> <span id="L50" class="LineNr"> 50 </span> e8/call run-tests/disp32 -<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># syscall_exit(*Num-test-failures)</span> <span id="L52" class="LineNr"> 52 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L53" class="LineNr"> 53 </span> eb/jump $subx-tests-main:end/disp8 <span id="L54" class="LineNr"> 54 </span><span class="Constant">$subx-tests-main:interactive</span>: @@ -121,7 +121,7 @@ if ('onhashchange' in window) { <span id="L61" class="LineNr"> 61 </span> e8/call <a href='tests.subx.html#L69'>subx-gen-run-tests</a>/disp32 <span id="L62" class="LineNr"> 62 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L63" class="LineNr"> 63 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># syscall_exit(0)</span> <span id="L65" class="LineNr"> 65 </span> bb/copy-to-ebx 0/imm32 <span id="L66" class="LineNr"> 66 </span><span class="Constant">$subx-tests-main:end</span>: <span id="L67" class="LineNr"> 67 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 diff --git a/html/linux/tile/box.mu.html b/html/linux/tile/box.mu.html index b70352c6..d86f639d 100644 --- a/html/linux/tile/box.mu.html +++ b/html/linux/tile/box.mu.html @@ -15,14 +15,14 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } .LineNr { } .muRegEsi { color: #005faf; } +.muComment { color: #005faf; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .Special { color: #ff6060; } -.muComment { color: #005faf; } --> </style> @@ -138,7 +138,7 @@ if ('onhashchange' in window) { <span id="L78" class="LineNr"> 78 </span> <span class="Delimiter">{</span> <span id="L79" class="LineNr"> 79 </span> compare j, col2 <span id="L80" class="LineNr"> 80 </span> <span class="PreProc">break-if-></span> -<span id="L81" class="LineNr"> 81 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a> <span class="Constant">0x20</span>/space +<span id="L81" class="LineNr"> 81 </span> <a href='../405screen.mu.html#L214'>print-code-point-utf8</a> <a href='../405screen.mu.html#L9'>screen</a> <span class="Constant">0x20</span>/space <span id="L82" class="LineNr"> 82 </span> j <span class="Special"><-</span> increment <span id="L83" class="LineNr"> 83 </span> <span class="PreProc">loop</span> <span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">}</span> @@ -158,7 +158,7 @@ if ('onhashchange' in window) { <span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">{</span> <span id="L99" class="LineNr"> 99 </span> compare j, h <span id="L100" class="LineNr">100 </span> <span class="PreProc">break-if->=</span> -<span id="L101" class="LineNr">101 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a> <span class="Constant">0x20</span>/space +<span id="L101" class="LineNr">101 </span> <a href='../405screen.mu.html#L214'>print-code-point-utf8</a> <a href='../405screen.mu.html#L9'>screen</a> <span class="Constant">0x20</span>/space <span id="L102" class="LineNr">102 </span> j <span class="Special"><-</span> increment <span id="L103" class="LineNr">103 </span> <span class="PreProc">loop</span> <span id="L104" class="LineNr">104 </span> <span class="Delimiter">}</span> diff --git a/html/linux/tile/data.mu.html b/html/linux/tile/data.mu.html index b69e828e..625b78e7 100644 --- a/html/linux/tile/data.mu.html +++ b/html/linux/tile/data.mu.html @@ -15,17 +15,17 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.CommentedCode { color: #8a8a8a; } -.muRegEcx { color: #870000; } .muRegEdx { color: #af5f00; } .LineNr { } -.muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } .Constant { color: #008787; } +.muRegEsi { color: #005faf; } +.CommentedCode { color: #8a8a8a; } .muFunction { color: #af5f00; text-decoration: underline; } +.muRegEdi { color: #00af00; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } -.muComment { color: #005faf; } .Special { color: #ff6060; } +.muComment { color: #005faf; } --> </style> diff --git a/html/linux/tile/environment.mu.html b/html/linux/tile/environment.mu.html index 34efaaa2..ea0a2706 100644 --- a/html/linux/tile/environment.mu.html +++ b/html/linux/tile/environment.mu.html @@ -16,18 +16,18 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .LineNr { } .Delimiter { color: #c000c0; } -.muRegEcx { color: #870000; } -.muRegEdx { color: #af5f00; } +.muFunction { color: #af5f00; text-decoration: underline; } .muRegEbx { color: #5f00ff; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } .Constant { color: #008787; } .Special { color: #ff6060; } .PreProc { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muComment { color: #005faf; } .muS2Comment { color: #8a8a8a; } .CommentedCode { color: #8a8a8a; } +.muComment { color: #005faf; } +.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } --> </style> @@ -135,7 +135,7 @@ if ('onhashchange' in window) { <span id="L70" class="LineNr"> 70 </span><span class="muComment"># Iterate</span> <span id="L71" class="LineNr"> 71 </span><span class="muComment">#############</span> <span id="L72" class="LineNr"> 72 </span> -<span id="L73" class="LineNr"> 73 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L73'>process</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L73" class="LineNr"> 73 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L73'>process</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self <span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> fn-name-ah/eax: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, partial-function-name <span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> fn-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *fn-name-ah @@ -167,7 +167,7 @@ if ('onhashchange' in window) { <span id="L102" class="LineNr"> 102 </span><span class="Delimiter">}</span> <span id="L103" class="LineNr"> 103 </span> <span id="L104" class="LineNr"> 104 </span><span class="muComment"># collect new name in partial-function-name, and move the cursor to function with that name</span> -<span id="L105" class="LineNr"> 105 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L105'>process-goto-dialog</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L105" class="LineNr"> 105 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L105'>process-goto-dialog</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L106" class="LineNr"> 106 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self <span id="L107" class="LineNr"> 107 </span> <span class="PreProc">var</span> fn-name-ah/<span class="muRegEdi">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, partial-function-name <span id="L108" class="LineNr"> 108 </span> <span class="muComment"># if 'esc' pressed, cancel goto</span> @@ -195,7 +195,7 @@ if ('onhashchange' in window) { <span id="L130" class="LineNr"> 130 </span> compare key, <span class="Constant">0x7f</span>/del <span class="muComment"># backspace on Macs</span> <span id="L131" class="LineNr"> 131 </span> $process-goto-dialog:backspace: <span class="Delimiter">{</span> <span id="L132" class="LineNr"> 132 </span> <span class="PreProc">break-if-!=</span> -<span id="L133" class="LineNr"> 133 </span> <span class="muComment"># if not at start, delete grapheme before cursor</span> +<span id="L133" class="LineNr"> 133 </span> <span class="muComment"># if not at start, delete code-point-utf8 before cursor</span> <span id="L134" class="LineNr"> 134 </span> <span class="PreProc">var</span> fn-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *fn-name-ah <span id="L135" class="LineNr"> 135 </span> <span class="PreProc">var</span> at-start?/eax: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> fn-name <span id="L136" class="LineNr"> 136 </span> compare at-start?, <span class="Constant">0</span>/false @@ -207,24 +207,24 @@ if ('onhashchange' in window) { <span id="L142" class="LineNr"> 142 </span> <span class="PreProc">return</span> <span id="L143" class="LineNr"> 143 </span> <span class="Delimiter">}</span> <span id="L144" class="LineNr"> 144 </span> <span class="muComment"># otherwise insert key within current word</span> -<span id="L145" class="LineNr"> 145 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-grapheme?</a> key -<span id="L146" class="LineNr"> 146 </span> $process-goto-dialog:real-grapheme: <span class="Delimiter">{</span> +<span id="L145" class="LineNr"> 145 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-code-point-utf8?</a> key +<span id="L146" class="LineNr"> 146 </span> $process-goto-dialog:real-code-point-utf8: <span class="Delimiter">{</span> <span id="L147" class="LineNr"> 147 </span> compare print?, <span class="Constant">0</span>/false <span id="L148" class="LineNr"> 148 </span> <span class="PreProc">break-if-=</span> <span id="L149" class="LineNr"> 149 </span> <span class="PreProc">var</span> fn-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *fn-name-ah -<span id="L150" class="LineNr"> 150 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> fn-name, key +<span id="L150" class="LineNr"> 150 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> fn-name, key <span id="L151" class="LineNr"> 151 </span> <span class="PreProc">return</span> <span id="L152" class="LineNr"> 152 </span> <span class="Delimiter">}</span> <span id="L153" class="LineNr"> 153 </span> <span class="muComment"># silently ignore other hotkeys</span> <span id="L154" class="LineNr"> 154 </span><span class="Delimiter">}</span> <span id="L155" class="LineNr"> 155 </span> -<span id="L156" class="LineNr"> 156 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L156'>process-function</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _function: (addr <a href='data.mu.html#L21'>function</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L156" class="LineNr"> 156 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L156'>process-function</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _function: (addr <a href='data.mu.html#L21'>function</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L157" class="LineNr"> 157 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self <span id="L158" class="LineNr"> 158 </span> <span class="PreProc">var</span> <a href='data.mu.html#L21'>function</a>/<span class="muRegEdi">edi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _function <span id="L159" class="LineNr"> 159 </span> <a href='environment.mu.html#L162'>process-function-edit</a> self, <a href='data.mu.html#L21'>function</a>, key <span id="L160" class="LineNr"> 160 </span><span class="Delimiter">}</span> <span id="L161" class="LineNr"> 161 </span> -<span id="L162" class="LineNr"> 162 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L162'>process-function-edit</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _function: (addr <a href='data.mu.html#L21'>function</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L162" class="LineNr"> 162 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L162'>process-function-edit</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _function: (addr <a href='data.mu.html#L21'>function</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L163" class="LineNr"> 163 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self <span id="L164" class="LineNr"> 164 </span> <span class="PreProc">var</span> <a href='data.mu.html#L21'>function</a>/<span class="muRegEdi">edi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _function <span id="L165" class="LineNr"> 165 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="muRegEbx">ebx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L21'>function</a>, cursor-word @@ -355,7 +355,7 @@ if ('onhashchange' in window) { <span id="L290" class="LineNr"> 290 </span> compare key, <span class="Constant">0x7f</span>/del <span class="muComment"># backspace on Macs</span> <span id="L291" class="LineNr"> 291 </span> $process-function-edit:backspace: <span class="Delimiter">{</span> <span id="L292" class="LineNr"> 292 </span> <span class="PreProc">break-if-!=</span> -<span id="L293" class="LineNr"> 293 </span> <span class="muComment"># if not at start of some word, delete grapheme before cursor within current word</span> +<span id="L293" class="LineNr"> 293 </span> <span class="muComment"># if not at start of some word, delete code-point-utf8 before cursor within current word</span> <span id="L294" class="LineNr"> 294 </span> <span class="PreProc">var</span> at-start?/eax: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> cursor-word <span id="L295" class="LineNr"> 295 </span> compare at-start?, <span class="Constant">0</span>/false <span id="L296" class="LineNr"> 296 </span> <span class="Delimiter">{</span> @@ -390,25 +390,25 @@ if ('onhashchange' in window) { <span id="L325" class="LineNr"> 325 </span> copy-object new-prev-word-ah, cursor-word-ah <span id="L326" class="LineNr"> 326 </span> <span class="PreProc">return</span> <span id="L327" class="LineNr"> 327 </span> <span class="Delimiter">}</span> -<span id="L328" class="LineNr"> 328 </span> <span class="muComment"># if start of word is quote and grapheme before cursor is not, just insert it as usual</span> +<span id="L328" class="LineNr"> 328 </span> <span class="muComment"># if start of word is quote and code-point-utf8 before cursor is not, just insert it as usual</span> <span id="L329" class="LineNr"> 329 </span> <span class="muComment"># TODO: support string escaping</span> <span id="L330" class="LineNr"> 330 </span> <span class="Delimiter">{</span> -<span id="L331" class="LineNr"> 331 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-grapheme</a>/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L132'>first-grapheme</a> cursor-word -<span id="L332" class="LineNr"> 332 </span> compare <a href='word.mu.html#L132'>first-grapheme</a>, <span class="Constant">0x22</span>/double-quote +<span id="L331" class="LineNr"> 331 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-code-point-utf8</a>/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L132'>first-code-point-utf8</a> cursor-word +<span id="L332" class="LineNr"> 332 </span> compare <a href='word.mu.html#L132'>first-code-point-utf8</a>, <span class="Constant">0x22</span>/double-quote <span id="L333" class="LineNr"> 333 </span> <span class="PreProc">break-if-!=</span> -<span id="L334" class="LineNr"> 334 </span> <span class="PreProc">var</span> final-grapheme/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L140'>grapheme-before-cursor</a> cursor-word -<span id="L335" class="LineNr"> 335 </span> compare final-grapheme, <span class="Constant">0x22</span>/double-quote +<span id="L334" class="LineNr"> 334 </span> <span class="PreProc">var</span> final-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L140'>code-point-utf8-before-cursor</a> cursor-word +<span id="L335" class="LineNr"> 335 </span> compare final-code-point-utf8, <span class="Constant">0x22</span>/double-quote <span id="L336" class="LineNr"> 336 </span> <span class="PreProc">break-if-=</span> <span id="L337" class="LineNr"> 337 </span> <span class="PreProc">break</span> $process-function-edit:space <span id="L338" class="LineNr"> 338 </span> <span class="Delimiter">}</span> -<span id="L339" class="LineNr"> 339 </span> <span class="muComment"># if start of word is '[' and grapheme before cursor is not ']', just insert it as usual</span> +<span id="L339" class="LineNr"> 339 </span> <span class="muComment"># if start of word is '[' and code-point-utf8 before cursor is not ']', just insert it as usual</span> <span id="L340" class="LineNr"> 340 </span> <span class="muComment"># TODO: support nested arrays</span> <span id="L341" class="LineNr"> 341 </span> <span class="Delimiter">{</span> -<span id="L342" class="LineNr"> 342 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-grapheme</a>/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L132'>first-grapheme</a> cursor-word -<span id="L343" class="LineNr"> 343 </span> compare <a href='word.mu.html#L132'>first-grapheme</a>, <span class="Constant">0x5b</span>/[ +<span id="L342" class="LineNr"> 342 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-code-point-utf8</a>/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L132'>first-code-point-utf8</a> cursor-word +<span id="L343" class="LineNr"> 343 </span> compare <a href='word.mu.html#L132'>first-code-point-utf8</a>, <span class="Constant">0x5b</span>/[ <span id="L344" class="LineNr"> 344 </span> <span class="PreProc">break-if-!=</span> -<span id="L345" class="LineNr"> 345 </span> <span class="PreProc">var</span> final-grapheme/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L140'>grapheme-before-cursor</a> cursor-word -<span id="L346" class="LineNr"> 346 </span> compare final-grapheme, <span class="Constant">0x5d</span>/] +<span id="L345" class="LineNr"> 345 </span> <span class="PreProc">var</span> final-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L140'>code-point-utf8-before-cursor</a> cursor-word +<span id="L346" class="LineNr"> 346 </span> compare final-code-point-utf8, <span class="Constant">0x5d</span>/] <span id="L347" class="LineNr"> 347 </span> <span class="PreProc">break-if-=</span> <span id="L348" class="LineNr"> 348 </span> <span class="PreProc">break</span> $process-function-edit:space <span id="L349" class="LineNr"> 349 </span> <span class="Delimiter">}</span> @@ -433,26 +433,26 @@ if ('onhashchange' in window) { <span id="L368" class="LineNr"> 368 </span> <span class="PreProc">var</span> at-end?/eax: boolean <span class="Special"><-</span> <a href='word.mu.html#L163'>cursor-at-end?</a> cursor-word <span id="L369" class="LineNr"> 369 </span> compare at-end?, <span class="Constant">0</span>/false <span id="L370" class="LineNr"> 370 </span> <span class="PreProc">break-if-!=</span> -<span id="L371" class="LineNr"> 371 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L214'>pop-after-cursor</a> cursor-word -<span id="L372" class="LineNr"> 372 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> <a href='../127next-word.subx.html#L11'>next-word</a>, g +<span id="L371" class="LineNr"> 371 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L214'>pop-after-cursor</a> cursor-word +<span id="L372" class="LineNr"> 372 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> <a href='../127next-word.subx.html#L11'>next-word</a>, g <span id="L373" class="LineNr"> 373 </span> <span class="PreProc">loop</span> <span id="L374" class="LineNr"> 374 </span> <span class="Delimiter">}</span> <span id="L375" class="LineNr"> 375 </span> <a href='word.mu.html#L185'>cursor-to-start</a> <a href='../127next-word.subx.html#L11'>next-word</a> <span id="L376" class="LineNr"> 376 </span> <span class="PreProc">return</span> <span id="L377" class="LineNr"> 377 </span> <span class="Delimiter">}</span> <span id="L378" class="LineNr"> 378 </span> <span class="muComment"># otherwise insert key within current word</span> -<span id="L379" class="LineNr"> 379 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: grapheme <span class="Special"><-</span> copy key -<span id="L380" class="LineNr"> 380 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-grapheme?</a> key -<span id="L381" class="LineNr"> 381 </span> $process-function-edit:real-grapheme: <span class="Delimiter">{</span> +<span id="L379" class="LineNr"> 379 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: code-point-utf8 <span class="Special"><-</span> copy key +<span id="L380" class="LineNr"> 380 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-code-point-utf8?</a> key +<span id="L381" class="LineNr"> 381 </span> $process-function-edit:real-code-point-utf8: <span class="Delimiter">{</span> <span id="L382" class="LineNr"> 382 </span> compare print?, <span class="Constant">0</span>/false <span id="L383" class="LineNr"> 383 </span> <span class="PreProc">break-if-=</span> -<span id="L384" class="LineNr"> 384 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> cursor-word, g +<span id="L384" class="LineNr"> 384 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> cursor-word, g <span id="L385" class="LineNr"> 385 </span> <span class="PreProc">return</span> <span id="L386" class="LineNr"> 386 </span> <span class="Delimiter">}</span> <span id="L387" class="LineNr"> 387 </span> <span class="muComment"># silently ignore other hotkeys</span> <span id="L388" class="LineNr"> 388 </span><span class="Delimiter">}</span> <span id="L389" class="LineNr"> 389 </span> -<span id="L390" class="LineNr"> 390 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L390'>process-sandbox</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L390" class="LineNr"> 390 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L390'>process-sandbox</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L391" class="LineNr"> 391 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self <span id="L392" class="LineNr"> 392 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="muRegEdi">edi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox <span id="L393" class="LineNr"> 393 </span> <span class="PreProc">var</span> rename-word-mode-ah?/<span class="muRegEcx">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-cursor-word @@ -478,7 +478,7 @@ if ('onhashchange' in window) { <span id="L413" class="LineNr"> 413 </span> <a href='environment.mu.html#L416'>process-sandbox-edit</a> self, <a href='data.mu.html#L5'>sandbox</a>, key <span id="L414" class="LineNr"> 414 </span><span class="Delimiter">}</span> <span id="L415" class="LineNr"> 415 </span> -<span id="L416" class="LineNr"> 416 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L416'>process-sandbox-edit</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L416" class="LineNr"> 416 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L416'>process-sandbox-edit</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L417" class="LineNr"> 417 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self <span id="L418" class="LineNr"> 418 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="muRegEdi">edi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox <span id="L419" class="LineNr"> 419 </span> <span class="PreProc">var</span> cursor-call-path-ah/eax: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path @@ -795,7 +795,7 @@ if ('onhashchange' in window) { <span id="L730" class="LineNr"> 730 </span> compare key, <span class="Constant">0x7f</span>/del <span class="muComment"># backspace on Macs</span> <span id="L731" class="LineNr"> 731 </span> $process-sandbox-edit:backspace: <span class="Delimiter">{</span> <span id="L732" class="LineNr"> 732 </span> <span class="PreProc">break-if-!=</span> -<span id="L733" class="LineNr"> 733 </span> <span class="muComment"># if not at start of some word, delete grapheme before cursor within current word</span> +<span id="L733" class="LineNr"> 733 </span> <span class="muComment"># if not at start of some word, delete code-point-utf8 before cursor within current word</span> <span id="L734" class="LineNr"> 734 </span> <span class="PreProc">var</span> at-start?/eax: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> cursor-word <span id="L735" class="LineNr"> 735 </span> compare at-start?, <span class="Constant">0</span>/false <span id="L736" class="LineNr"> 736 </span> <span class="Delimiter">{</span> @@ -831,25 +831,25 @@ if ('onhashchange' in window) { <span id="L766" class="LineNr"> 766 </span> <a href='data.mu.html#L465'>decrement-final-element</a> cursor-call-path <span id="L767" class="LineNr"> 767 </span> <span class="PreProc">return</span> <span id="L768" class="LineNr"> 768 </span> <span class="Delimiter">}</span> -<span id="L769" class="LineNr"> 769 </span> <span class="muComment"># if start of word is quote and grapheme before cursor is not, just insert it as usual</span> +<span id="L769" class="LineNr"> 769 </span> <span class="muComment"># if start of word is quote and code-point-utf8 before cursor is not, just insert it as usual</span> <span id="L770" class="LineNr"> 770 </span> <span class="muComment"># TODO: support string escaping</span> <span id="L771" class="LineNr"> 771 </span> <span class="Delimiter">{</span> -<span id="L772" class="LineNr"> 772 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-grapheme</a>/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L132'>first-grapheme</a> cursor-word -<span id="L773" class="LineNr"> 773 </span> compare <a href='word.mu.html#L132'>first-grapheme</a>, <span class="Constant">0x22</span>/double-quote +<span id="L772" class="LineNr"> 772 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-code-point-utf8</a>/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L132'>first-code-point-utf8</a> cursor-word +<span id="L773" class="LineNr"> 773 </span> compare <a href='word.mu.html#L132'>first-code-point-utf8</a>, <span class="Constant">0x22</span>/double-quote <span id="L774" class="LineNr"> 774 </span> <span class="PreProc">break-if-!=</span> -<span id="L775" class="LineNr"> 775 </span> <span class="PreProc">var</span> final-grapheme/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L140'>grapheme-before-cursor</a> cursor-word -<span id="L776" class="LineNr"> 776 </span> compare final-grapheme, <span class="Constant">0x22</span>/double-quote +<span id="L775" class="LineNr"> 775 </span> <span class="PreProc">var</span> final-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L140'>code-point-utf8-before-cursor</a> cursor-word +<span id="L776" class="LineNr"> 776 </span> compare final-code-point-utf8, <span class="Constant">0x22</span>/double-quote <span id="L777" class="LineNr"> 777 </span> <span class="PreProc">break-if-=</span> <span id="L778" class="LineNr"> 778 </span> <span class="PreProc">break</span> $process-sandbox-edit:space <span id="L779" class="LineNr"> 779 </span> <span class="Delimiter">}</span> -<span id="L780" class="LineNr"> 780 </span> <span class="muComment"># if start of word is '[' and grapheme before cursor is not ']', just insert it as usual</span> +<span id="L780" class="LineNr"> 780 </span> <span class="muComment"># if start of word is '[' and code-point-utf8 before cursor is not ']', just insert it as usual</span> <span id="L781" class="LineNr"> 781 </span> <span class="muComment"># TODO: support nested arrays</span> <span id="L782" class="LineNr"> 782 </span> <span class="Delimiter">{</span> -<span id="L783" class="LineNr"> 783 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-grapheme</a>/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L132'>first-grapheme</a> cursor-word -<span id="L784" class="LineNr"> 784 </span> compare <a href='word.mu.html#L132'>first-grapheme</a>, <span class="Constant">0x5b</span>/[ +<span id="L783" class="LineNr"> 783 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-code-point-utf8</a>/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L132'>first-code-point-utf8</a> cursor-word +<span id="L784" class="LineNr"> 784 </span> compare <a href='word.mu.html#L132'>first-code-point-utf8</a>, <span class="Constant">0x5b</span>/[ <span id="L785" class="LineNr"> 785 </span> <span class="PreProc">break-if-!=</span> -<span id="L786" class="LineNr"> 786 </span> <span class="PreProc">var</span> final-grapheme/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L140'>grapheme-before-cursor</a> cursor-word -<span id="L787" class="LineNr"> 787 </span> compare final-grapheme, <span class="Constant">0x5d</span>/] +<span id="L786" class="LineNr"> 786 </span> <span class="PreProc">var</span> final-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L140'>code-point-utf8-before-cursor</a> cursor-word +<span id="L787" class="LineNr"> 787 </span> compare final-code-point-utf8, <span class="Constant">0x5d</span>/] <span id="L788" class="LineNr"> 788 </span> <span class="PreProc">break-if-=</span> <span id="L789" class="LineNr"> 789 </span> <span class="PreProc">break</span> $process-sandbox-edit:space <span id="L790" class="LineNr"> 790 </span> <span class="Delimiter">}</span> @@ -874,8 +874,8 @@ if ('onhashchange' in window) { <span id="L809" class="LineNr"> 809 </span> <span class="PreProc">var</span> at-end?/eax: boolean <span class="Special"><-</span> <a href='word.mu.html#L163'>cursor-at-end?</a> cursor-word <span id="L810" class="LineNr"> 810 </span> compare at-end?, <span class="Constant">0</span>/false <span id="L811" class="LineNr"> 811 </span> <span class="PreProc">break-if-!=</span> -<span id="L812" class="LineNr"> 812 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L214'>pop-after-cursor</a> cursor-word -<span id="L813" class="LineNr"> 813 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> <a href='../127next-word.subx.html#L11'>next-word</a>, g +<span id="L812" class="LineNr"> 812 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L214'>pop-after-cursor</a> cursor-word +<span id="L813" class="LineNr"> 813 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> <a href='../127next-word.subx.html#L11'>next-word</a>, g <span id="L814" class="LineNr"> 814 </span> <span class="PreProc">loop</span> <span id="L815" class="LineNr"> 815 </span> <span class="Delimiter">}</span> <span id="L816" class="LineNr"> 816 </span> <a href='word.mu.html#L185'>cursor-to-start</a> <a href='../127next-word.subx.html#L11'>next-word</a> @@ -903,12 +903,12 @@ if ('onhashchange' in window) { <span id="L838" class="LineNr"> 838 </span> <span class="PreProc">return</span> <span id="L839" class="LineNr"> 839 </span> <span class="Delimiter">}</span> <span id="L840" class="LineNr"> 840 </span> <span class="muComment"># otherwise insert key within current word</span> -<span id="L841" class="LineNr"> 841 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: grapheme <span class="Special"><-</span> copy key -<span id="L842" class="LineNr"> 842 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-grapheme?</a> key -<span id="L843" class="LineNr"> 843 </span> $process-sandbox-edit:real-grapheme: <span class="Delimiter">{</span> +<span id="L841" class="LineNr"> 841 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: code-point-utf8 <span class="Special"><-</span> copy key +<span id="L842" class="LineNr"> 842 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-code-point-utf8?</a> key +<span id="L843" class="LineNr"> 843 </span> $process-sandbox-edit:real-code-point-utf8: <span class="Delimiter">{</span> <span id="L844" class="LineNr"> 844 </span> compare print?, <span class="Constant">0</span>/false <span id="L845" class="LineNr"> 845 </span> <span class="PreProc">break-if-=</span> -<span id="L846" class="LineNr"> 846 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> cursor-word, g +<span id="L846" class="LineNr"> 846 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> cursor-word, g <span id="L847" class="LineNr"> 847 </span> <span class="PreProc">return</span> <span id="L848" class="LineNr"> 848 </span> <span class="Delimiter">}</span> <span id="L849" class="LineNr"> 849 </span> <span class="muComment"># silently ignore other hotkeys</span> @@ -917,7 +917,7 @@ if ('onhashchange' in window) { <span id="L852" class="LineNr"> 852 </span><span class="muComment"># collect new name in partial-name-for-cursor-word, and then rename the word</span> <span id="L853" class="LineNr"> 853 </span><span class="muComment"># at cursor to it</span> <span id="L854" class="LineNr"> 854 </span><span class="muComment"># Precondition: cursor-call-path is a singleton (not within a call)</span> -<span id="L855" class="LineNr"> 855 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L855'>process-sandbox-rename</a></span> _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L855" class="LineNr"> 855 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L855'>process-sandbox-rename</a></span> _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L856" class="LineNr"> 856 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="muRegEsi">esi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox <span id="L857" class="LineNr"> 857 </span> <span class="PreProc">var</span> new-name-ah/<span class="muRegEdi">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-cursor-word <span id="L858" class="LineNr"> 858 </span> <span class="muComment"># if 'esc' pressed, cancel rename</span> @@ -976,7 +976,7 @@ if ('onhashchange' in window) { <span id="L911" class="LineNr"> 911 </span> <span class="Delimiter">{</span> <span id="L912" class="LineNr"> 912 </span> <span class="PreProc">var</span> new-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah <span id="L913" class="LineNr"> 913 </span> <a href='word.mu.html#L185'>cursor-to-start</a> new-name -<span id="L914" class="LineNr"> 914 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> new-name, <span class="Constant">0x3d</span>/= +<span id="L914" class="LineNr"> 914 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> new-name, <span class="Constant">0x3d</span>/= <span id="L915" class="LineNr"> 915 </span> <span class="Delimiter">}</span> <span id="L916" class="LineNr"> 916 </span> <span class="muComment"># append name to new line</span> <span id="L917" class="LineNr"> 917 </span> <a href='word.mu.html#L459'>chain-words</a> new-line-word-ah, new-name-ah @@ -1006,7 +1006,7 @@ if ('onhashchange' in window) { <span id="L941" class="LineNr"> 941 </span> compare key, <span class="Constant">0x7f</span>/del <span class="muComment"># backspace on Macs</span> <span id="L942" class="LineNr"> 942 </span> $process-sandbox-rename:backspace: <span class="Delimiter">{</span> <span id="L943" class="LineNr"> 943 </span> <span class="PreProc">break-if-!=</span> -<span id="L944" class="LineNr"> 944 </span> <span class="muComment"># if not at start, delete grapheme before cursor</span> +<span id="L944" class="LineNr"> 944 </span> <span class="muComment"># if not at start, delete code-point-utf8 before cursor</span> <span id="L945" class="LineNr"> 945 </span> <span class="PreProc">var</span> new-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah <span id="L946" class="LineNr"> 946 </span> <span class="PreProc">var</span> at-start?/eax: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> new-name <span id="L947" class="LineNr"> 947 </span> compare at-start?, <span class="Constant">0</span>/false @@ -1018,12 +1018,12 @@ if ('onhashchange' in window) { <span id="L953" class="LineNr"> 953 </span> <span class="PreProc">return</span> <span id="L954" class="LineNr"> 954 </span> <span class="Delimiter">}</span> <span id="L955" class="LineNr"> 955 </span> <span class="muComment"># otherwise insert key within current word</span> -<span id="L956" class="LineNr"> 956 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-grapheme?</a> key -<span id="L957" class="LineNr"> 957 </span> $process-sandbox-rename:real-grapheme: <span class="Delimiter">{</span> +<span id="L956" class="LineNr"> 956 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-code-point-utf8?</a> key +<span id="L957" class="LineNr"> 957 </span> $process-sandbox-rename:real-code-point-utf8: <span class="Delimiter">{</span> <span id="L958" class="LineNr"> 958 </span> compare print?, <span class="Constant">0</span>/false <span id="L959" class="LineNr"> 959 </span> <span class="PreProc">break-if-=</span> <span id="L960" class="LineNr"> 960 </span> <span class="PreProc">var</span> new-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah -<span id="L961" class="LineNr"> 961 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> new-name, key +<span id="L961" class="LineNr"> 961 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> new-name, key <span id="L962" class="LineNr"> 962 </span> <span class="PreProc">return</span> <span id="L963" class="LineNr"> 963 </span> <span class="Delimiter">}</span> <span id="L964" class="LineNr"> 964 </span> <span class="muComment"># silently ignore other hotkeys</span> @@ -1033,7 +1033,7 @@ if ('onhashchange' in window) { <span id="L968" class="LineNr"> 968 </span><span class="muComment"># of the sandbox to be a new function with that name. Replace the last line</span> <span id="L969" class="LineNr"> 969 </span><span class="muComment"># with a call to the appropriate function.</span> <span id="L970" class="LineNr"> 970 </span><span class="muComment"># Precondition: cursor-call-path is a singleton (not within a call)</span> -<span id="L971" class="LineNr"> 971 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L971'>process-sandbox-define</a></span> _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), functions: (addr handle <a href='data.mu.html#L21'>function</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L971" class="LineNr"> 971 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L971'>process-sandbox-define</a></span> _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), functions: (addr handle <a href='data.mu.html#L21'>function</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L972" class="LineNr"> 972 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="muRegEsi">esi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox <span id="L973" class="LineNr"> 973 </span> <span class="PreProc">var</span> new-name-ah/<span class="muRegEdi">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-function <span id="L974" class="LineNr"> 974 </span> <span class="muComment"># if 'esc' pressed, cancel define</span> @@ -1098,7 +1098,7 @@ if ('onhashchange' in window) { <span id="L1033" class="LineNr">1033 </span> compare key, <span class="Constant">0x7f</span>/del <span class="muComment"># backspace on Macs</span> <span id="L1034" class="LineNr">1034 </span> $process-sandbox-define:backspace: <span class="Delimiter">{</span> <span id="L1035" class="LineNr">1035 </span> <span class="PreProc">break-if-!=</span> -<span id="L1036" class="LineNr">1036 </span> <span class="muComment"># if not at start, delete grapheme before cursor</span> +<span id="L1036" class="LineNr">1036 </span> <span class="muComment"># if not at start, delete code-point-utf8 before cursor</span> <span id="L1037" class="LineNr">1037 </span> <span class="PreProc">var</span> new-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah <span id="L1038" class="LineNr">1038 </span> <span class="PreProc">var</span> at-start?/eax: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> new-name <span id="L1039" class="LineNr">1039 </span> compare at-start?, <span class="Constant">0</span>/false @@ -1110,12 +1110,12 @@ if ('onhashchange' in window) { <span id="L1045" class="LineNr">1045 </span> <span class="PreProc">return</span> <span id="L1046" class="LineNr">1046 </span> <span class="Delimiter">}</span> <span id="L1047" class="LineNr">1047 </span> <span class="muComment"># otherwise insert key within current word</span> -<span id="L1048" class="LineNr">1048 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-grapheme?</a> key -<span id="L1049" class="LineNr">1049 </span> $process-sandbox-define:real-grapheme: <span class="Delimiter">{</span> +<span id="L1048" class="LineNr">1048 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-code-point-utf8?</a> key +<span id="L1049" class="LineNr">1049 </span> $process-sandbox-define:real-code-point-utf8: <span class="Delimiter">{</span> <span id="L1050" class="LineNr">1050 </span> compare print?, <span class="Constant">0</span>/false <span id="L1051" class="LineNr">1051 </span> <span class="PreProc">break-if-=</span> <span id="L1052" class="LineNr">1052 </span> <span class="PreProc">var</span> new-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah -<span id="L1053" class="LineNr">1053 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> new-name, key +<span id="L1053" class="LineNr">1053 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> new-name, key <span id="L1054" class="LineNr">1054 </span> <span class="PreProc">return</span> <span id="L1055" class="LineNr">1055 </span> <span class="Delimiter">}</span> <span id="L1056" class="LineNr">1056 </span> <span class="muComment"># silently ignore other hotkeys</span> @@ -2172,7 +2172,7 @@ if ('onhashchange' in window) { <span id="L2107" class="LineNr">2107 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0xf7</span> <span id="L2108" class="LineNr">2108 </span> <a href='box.mu.html#L71'>clear-rect</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col, new-row, col2 <span id="L2109" class="LineNr">2109 </span> col <span class="Special"><-</span> add <span class="Constant">1</span> -<span id="L2110" class="LineNr">2110 </span><span class="CommentedCode">#? var dummy/eax: grapheme <- read-key-from-real-keyboard</span> +<span id="L2110" class="LineNr">2110 </span><span class="CommentedCode">#? var dummy/eax: code-point-utf8 <- read-key-from-real-keyboard</span> <span id="L2111" class="LineNr">2111 </span> <a href='environment.mu.html#L2121'>render-function</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col, f <span id="L2112" class="LineNr">2112 </span> new-row <span class="Special"><-</span> add <span class="Constant">1</span>/function-bottom-margin <span id="L2113" class="LineNr">2113 </span> col <span class="Special"><-</span> subtract <span class="Constant">1</span>/function-left-padding @@ -2209,7 +2209,7 @@ if ('onhashchange' in window) { <span id="L2144" class="LineNr">2144 </span> <a href='environment.mu.html#L1634'>render-line-without-stack</a> <a href='../405screen.mu.html#L9'>screen</a>, body, row, col, cursor-word, cursor-row, cursor-col <span id="L2145" class="LineNr">2145 </span><span class="Delimiter">}</span> <span id="L2146" class="LineNr">2146 </span> -<span id="L2147" class="LineNr">2147 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L2147'>real-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L2147" class="LineNr">2147 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L2147'>real-code-point-utf8?</a></span> g: code-point-utf8<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L2148" class="LineNr">2148 </span> <span class="muComment"># if g == newline return true</span> <span id="L2149" class="LineNr">2149 </span> compare g, <span class="Constant">0xa</span> <span id="L2150" class="LineNr">2150 </span> <span class="Delimiter">{</span> diff --git a/html/linux/tile/float-stack.mu.html b/html/linux/tile/float-stack.mu.html index 39df3268..cefbb013 100644 --- a/html/linux/tile/float-stack.mu.html +++ b/html/linux/tile/float-stack.mu.html @@ -15,14 +15,14 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } .muRegEdx { color: #af5f00; } .LineNr { } +.Constant { color: #008787; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } -.Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .Special { color: #ff6060; } --> </style> diff --git a/html/linux/tile/gap-buffer.mu.html b/html/linux/tile/gap-buffer.mu.html index c45d7e78..8adacb5b 100644 --- a/html/linux/tile/gap-buffer.mu.html +++ b/html/linux/tile/gap-buffer.mu.html @@ -15,17 +15,17 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEcx { color: #870000; } .muRegEdx { color: #af5f00; } +.muRegEcx { color: #870000; } .LineNr { } +.Constant { color: #008787; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } -.Constant { color: #008787; } +.muComment { color: #005faf; } +.Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muTest { color: #5f8700; } -.Delimiter { color: #c000c0; } .Special { color: #ff6060; } -.muComment { color: #005faf; } --> </style> @@ -62,16 +62,16 @@ if ('onhashchange' in window) { <a href='https://github.com/akkartik/mu/blob/main/linux/tile/gap-buffer.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/gap-buffer.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='gap-buffer.mu.html#L1'>gap-buffer</a> <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> left: <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a> -<span id="L3" class="LineNr"> 3 </span> right: <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a> +<span id="L2" class="LineNr"> 2 </span> left: <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a> +<span id="L3" class="LineNr"> 3 </span> right: <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a> <span id="L4" class="LineNr"> 4 </span><span class="Delimiter">}</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left -<span id="L9" class="LineNr"> 9 </span> <a href='grapheme-stack.mu.html#L6'>initialize-grapheme-stack</a> left, <span class="Constant">0x10</span>/max-word-size -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> right/eax: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right -<span id="L11" class="LineNr"> 11 </span> <a href='grapheme-stack.mu.html#L6'>initialize-grapheme-stack</a> right, <span class="Constant">0x10</span>/max-word-size +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L9" class="LineNr"> 9 </span> <a href='grapheme-stack.mu.html#L6'>initialize-code-point-utf8-stack</a> left, <span class="Constant">0x10</span>/max-word-size +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> right/eax: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right +<span id="L11" class="LineNr"> 11 </span> <a href='grapheme-stack.mu.html#L6'>initialize-code-point-utf8-stack</a> right, <span class="Constant">0x10</span>/max-word-size <span id="L12" class="LineNr"> 12 </span><span class="Delimiter">}</span> <span id="L13" class="LineNr"> 13 </span> <span id="L14" class="LineNr"> 14 </span><span class="muComment"># just for tests</span> @@ -84,8 +84,8 @@ if ('onhashchange' in window) { <span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> stream <span id="L22" class="LineNr"> 22 </span> compare done?, <span class="Constant">0</span>/false <span id="L23" class="LineNr"> 23 </span> <span class="PreProc">break-if-!=</span> -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> stream -<span id="L25" class="LineNr"> 25 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> self, g +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L155'>read-code-point-utf8</a> stream +<span id="L25" class="LineNr"> 25 </span> <a href='gap-buffer.mu.html#L103'>add-code-point-utf8-at-gap</a> self, g <span id="L26" class="LineNr"> 26 </span> <span class="PreProc">loop</span> <span id="L27" class="LineNr"> 27 </span> <span class="Delimiter">}</span> <span id="L28" class="LineNr"> 28 </span><span class="Delimiter">}</span> @@ -100,44 +100,44 @@ if ('onhashchange' in window) { <span id="L37" class="LineNr"> 37 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L37'>emit-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>), out: (addr stream byte) <span class="Delimiter">{</span> <span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self <span id="L39" class="LineNr"> 39 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> out -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left <span id="L41" class="LineNr"> 41 </span> <a href='gap-buffer.mu.html#L47'>emit-stack-from-bottom</a> left, out -<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> right/eax: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> right/eax: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right <span id="L43" class="LineNr"> 43 </span> <a href='gap-buffer.mu.html#L65'>emit-stack-from-top</a> right, out <span id="L44" class="LineNr"> 44 </span><span class="Delimiter">}</span> <span id="L45" class="LineNr"> 45 </span> <span id="L46" class="LineNr"> 46 </span><span class="muComment"># dump stack from bottom to top</span> -<span id="L47" class="LineNr"> 47 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L47'>emit-stack-from-bottom</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data -<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L47" class="LineNr"> 47 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L47'>emit-stack-from-bottom</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">{</span> <span id="L55" class="LineNr"> 55 </span> compare i, *top-addr <span id="L56" class="LineNr"> 56 </span> <span class="PreProc">break-if->=</span> -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L58" class="LineNr"> 58 </span> <a href='../403unicode.mu.html#L372'>write-grapheme</a> out, *g +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L58" class="LineNr"> 58 </span> <a href='../403unicode.mu.html#L369'>write-code-point-utf8</a> out, *g <span id="L59" class="LineNr"> 59 </span> i <span class="Special"><-</span> increment <span id="L60" class="LineNr"> 60 </span> <span class="PreProc">loop</span> <span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">}</span> <span id="L62" class="LineNr"> 62 </span><span class="Delimiter">}</span> <span id="L63" class="LineNr"> 63 </span> <span id="L64" class="LineNr"> 64 </span><span class="muComment"># dump stack from top to bottom</span> -<span id="L65" class="LineNr"> 65 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L65'>emit-stack-from-top</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L65" class="LineNr"> 65 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L65'>emit-stack-from-top</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy *top-addr <span id="L72" class="LineNr"> 72 </span> i <span class="Special"><-</span> decrement <span id="L73" class="LineNr"> 73 </span> <span class="Delimiter">{</span> <span id="L74" class="LineNr"> 74 </span> compare i, <span class="Constant">0</span> <span id="L75" class="LineNr"> 75 </span> <span class="PreProc">break-if-<</span> -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L77" class="LineNr"> 77 </span> <a href='../403unicode.mu.html#L372'>write-grapheme</a> out, *g +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L77" class="LineNr"> 77 </span> <a href='../403unicode.mu.html#L369'>write-code-point-utf8</a> out, *g <span id="L78" class="LineNr"> 78 </span> i <span class="Special"><-</span> decrement <span id="L79" class="LineNr"> 79 </span> <span class="PreProc">loop</span> <span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">}</span> @@ -145,33 +145,33 @@ if ('onhashchange' in window) { <span id="L82" class="LineNr"> 82 </span> <span id="L83" class="LineNr"> 83 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L83'>render-gap-buffer</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _gap: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> gap/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _gap -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> gap, left +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> gap, left <span id="L86" class="LineNr"> 86 </span> <a href='grapheme-stack.mu.html#L78'>render-stack-from-bottom</a> left, <a href='../405screen.mu.html#L9'>screen</a> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> right/eax: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> gap, right +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> right/eax: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> gap, right <span id="L88" class="LineNr"> 88 </span> <a href='grapheme-stack.mu.html#L97'>render-stack-from-top</a> right, <a href='../405screen.mu.html#L9'>screen</a> <span id="L89" class="LineNr"> 89 </span><span class="Delimiter">}</span> <span id="L90" class="LineNr"> 90 </span> <span id="L91" class="LineNr"> 91 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L91'>gap-buffer-length</a></span> _gap: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> <span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> gap/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _gap -<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> gap, left +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> gap, left <span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> tmp/eax: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> left, <a href='../203stack.subx.html#L338'>top</a> <span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> left-length/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy *tmp -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> right/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> gap, right +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> right/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> gap, right <span id="L97" class="LineNr"> 97 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> right, <a href='../203stack.subx.html#L338'>top</a> <span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: int <span class="Special"><-</span> copy *tmp <span id="L99" class="LineNr"> 99 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> add left-length <span id="L100" class="LineNr">100 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L101" class="LineNr">101 </span><span class="Delimiter">}</span> <span id="L102" class="LineNr">102 </span> -<span id="L103" class="LineNr">103 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>), g: grapheme <span class="Delimiter">{</span> +<span id="L103" class="LineNr">103 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L103'>add-code-point-utf8-at-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>), g: code-point-utf8 <span class="Delimiter">{</span> <span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left -<span id="L106" class="LineNr">106 </span> <a href='grapheme-stack.mu.html#L31'>push-grapheme-stack</a> left, g +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L106" class="LineNr">106 </span> <a href='grapheme-stack.mu.html#L31'>push-code-point-utf8-stack</a> left, g <span id="L107" class="LineNr">107 </span><span class="Delimiter">}</span> <span id="L108" class="LineNr">108 </span> <span id="L109" class="LineNr">109 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L109'>gap-to-start</a></span> self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L110" class="LineNr">110 </span> <span class="Delimiter">{</span> -<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> curr/eax: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> self +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> curr/eax: code-point-utf8 <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> self <span id="L112" class="LineNr">112 </span> compare curr, <span class="Constant">-1</span> <span id="L113" class="LineNr">113 </span> <span class="PreProc">loop-if-!=</span> <span id="L114" class="LineNr">114 </span> <span class="Delimiter">}</span> @@ -179,7 +179,7 @@ if ('onhashchange' in window) { <span id="L116" class="LineNr">116 </span> <span id="L117" class="LineNr">117 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L117'>gap-to-end</a></span> self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L118" class="LineNr">118 </span> <span class="Delimiter">{</span> -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> curr/eax: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L139'>gap-right</a> self +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> curr/eax: code-point-utf8 <span class="Special"><-</span> <a href='gap-buffer.mu.html#L139'>gap-right</a> self <span id="L120" class="LineNr">120 </span> compare curr, <span class="Constant">-1</span> <span id="L121" class="LineNr">121 </span> <span class="PreProc">loop-if-!=</span> <span id="L122" class="LineNr">122 </span> <span class="Delimiter">}</span> @@ -187,96 +187,96 @@ if ('onhashchange' in window) { <span id="L124" class="LineNr">124 </span> <span id="L125" class="LineNr">125 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L125'>gap-at-start?</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L20'>grapheme-stack-empty?</a> left +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L20'>code-point-utf8-stack-empty?</a> left <span id="L129" class="LineNr">129 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L130" class="LineNr">130 </span><span class="Delimiter">}</span> <span id="L131" class="LineNr">131 </span> <span id="L132" class="LineNr">132 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L132'>gap-at-end?</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> right/eax: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L20'>grapheme-stack-empty?</a> right +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> right/eax: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L20'>code-point-utf8-stack-empty?</a> right <span id="L136" class="LineNr">136 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L137" class="LineNr">137 </span><span class="Delimiter">}</span> <span id="L138" class="LineNr">138 </span> -<span id="L139" class="LineNr">139 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L139'>gap-right</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L139" class="LineNr">139 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L139'>gap-right</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> right/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right -<span id="L143" class="LineNr">143 </span> g <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> right +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> right/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right +<span id="L143" class="LineNr">143 </span> g <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-code-point-utf8-stack</a> right <span id="L144" class="LineNr">144 </span> compare g, <span class="Constant">-1</span> <span id="L145" class="LineNr">145 </span> <span class="Delimiter">{</span> <span id="L146" class="LineNr">146 </span> <span class="PreProc">break-if-=</span> -<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left -<span id="L148" class="LineNr">148 </span> <a href='grapheme-stack.mu.html#L31'>push-grapheme-stack</a> left, g +<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L148" class="LineNr">148 </span> <a href='grapheme-stack.mu.html#L31'>push-code-point-utf8-stack</a> left, g <span id="L149" class="LineNr">149 </span> <span class="Delimiter">}</span> <span id="L150" class="LineNr">150 </span> <span class="PreProc">return</span> g <span id="L151" class="LineNr">151 </span><span class="Delimiter">}</span> <span id="L152" class="LineNr">152 </span> -<span id="L153" class="LineNr">153 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L153'>gap-left</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L153" class="LineNr">153 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L153'>gap-left</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L156" class="LineNr">156 </span> <span class="Delimiter">{</span> -<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left -<span id="L158" class="LineNr">158 </span> g <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> left +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L158" class="LineNr">158 </span> g <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-code-point-utf8-stack</a> left <span id="L159" class="LineNr">159 </span> <span class="Delimiter">}</span> <span id="L160" class="LineNr">160 </span> compare g, <span class="Constant">-1</span> <span id="L161" class="LineNr">161 </span> <span class="Delimiter">{</span> <span id="L162" class="LineNr">162 </span> <span class="PreProc">break-if-=</span> -<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> right/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right -<span id="L164" class="LineNr">164 </span> <a href='grapheme-stack.mu.html#L31'>push-grapheme-stack</a> right, g +<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> right/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right +<span id="L164" class="LineNr">164 </span> <a href='grapheme-stack.mu.html#L31'>push-code-point-utf8-stack</a> right, g <span id="L165" class="LineNr">165 </span> <span class="Delimiter">}</span> <span id="L166" class="LineNr">166 </span> <span class="PreProc">return</span> g <span id="L167" class="LineNr">167 </span><span class="Delimiter">}</span> <span id="L168" class="LineNr">168 </span> <span id="L169" class="LineNr">169 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L169'>gap-index</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: int <span class="Delimiter">{</span> <span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> self/eax: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left <span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> top-addr/eax: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> left, <a href='../203stack.subx.html#L338'>top</a> <span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: int <span class="Special"><-</span> copy *top-addr <span id="L174" class="LineNr">174 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L175" class="LineNr">175 </span><span class="Delimiter">}</span> <span id="L176" class="LineNr">176 </span> -<span id="L177" class="LineNr">177 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L177'>first-grapheme-in-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L177" class="LineNr">177 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L177'>first-code-point-utf8-in-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self <span id="L179" class="LineNr">179 </span> <span class="muComment"># try to read from left</span> -<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left <span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> left, <a href='../203stack.subx.html#L338'>top</a> <span id="L182" class="LineNr">182 </span> compare *top-addr, <span class="Constant">0</span> <span id="L183" class="LineNr">183 </span> <span class="Delimiter">{</span> <span id="L184" class="LineNr">184 </span> <span class="PreProc">break-if-<=</span> -<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> left, data -<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> result-addr/eax: (addr grapheme) <span class="Special"><-</span> index data, <span class="Constant">0</span> +<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> left, data +<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> result-addr/eax: (addr code-point-utf8) <span class="Special"><-</span> index data, <span class="Constant">0</span> <span id="L188" class="LineNr">188 </span> <span class="PreProc">return</span> *result-addr <span id="L189" class="LineNr">189 </span> <span class="Delimiter">}</span> <span id="L190" class="LineNr">190 </span> <span class="muComment"># try to read from right</span> -<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> right/eax: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right +<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> right/eax: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right <span id="L192" class="LineNr">192 </span> top-addr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> right, <a href='../203stack.subx.html#L338'>top</a> <span id="L193" class="LineNr">193 </span> compare *top-addr, <span class="Constant">0</span> <span id="L194" class="LineNr">194 </span> <span class="Delimiter">{</span> <span id="L195" class="LineNr">195 </span> <span class="PreProc">break-if-<=</span> -<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> right, data -<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> right, data +<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah <span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L199" class="LineNr">199 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement -<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> result-addr/eax: (addr grapheme) <span class="Special"><-</span> index data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> result-addr/eax: (addr code-point-utf8) <span class="Special"><-</span> index data, <a href='../203stack.subx.html#L338'>top</a> <span id="L201" class="LineNr">201 </span> <span class="PreProc">return</span> *result-addr <span id="L202" class="LineNr">202 </span> <span class="Delimiter">}</span> <span id="L203" class="LineNr">203 </span> <span class="muComment"># give up</span> <span id="L204" class="LineNr">204 </span> <span class="PreProc">return</span> <span class="Constant">-1</span> <span id="L205" class="LineNr">205 </span><span class="Delimiter">}</span> <span id="L206" class="LineNr">206 </span> -<span id="L207" class="LineNr">207 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L207'>grapheme-before-cursor-in-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L207" class="LineNr">207 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L207'>code-point-utf8-before-cursor-in-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self <span id="L209" class="LineNr">209 </span> <span class="muComment"># try to read from left</span> -<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> left/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left <span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> left, <a href='../203stack.subx.html#L338'>top</a> <span id="L212" class="LineNr">212 </span> compare *top-addr, <span class="Constant">0</span> <span id="L213" class="LineNr">213 </span> <span class="Delimiter">{</span> <span id="L214" class="LineNr">214 </span> <span class="PreProc">break-if-<=</span> -<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: grapheme <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> left -<span id="L216" class="LineNr">216 </span> <a href='grapheme-stack.mu.html#L31'>push-grapheme-stack</a> left, <a href='data.mu.html#L82'>result</a> +<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: code-point-utf8 <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-code-point-utf8-stack</a> left +<span id="L216" class="LineNr">216 </span> <a href='grapheme-stack.mu.html#L31'>push-code-point-utf8-stack</a> left, <a href='data.mu.html#L82'>result</a> <span id="L217" class="LineNr">217 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L218" class="LineNr">218 </span> <span class="Delimiter">}</span> <span id="L219" class="LineNr">219 </span> <span class="muComment"># give up</span> @@ -285,27 +285,27 @@ if ('onhashchange' in window) { <span id="L222" class="LineNr">222 </span> <span id="L223" class="LineNr">223 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L223'>delete-before-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> self/eax: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left -<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> left +<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> left/eax: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-code-point-utf8-stack</a> left <span id="L227" class="LineNr">227 </span><span class="Delimiter">}</span> <span id="L228" class="LineNr">228 </span> -<span id="L229" class="LineNr">229 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L229'>pop-after-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L229" class="LineNr">229 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L229'>pop-after-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> self/eax: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> right/eax: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right -<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: grapheme <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> right +<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> right/eax: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right +<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: code-point-utf8 <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-code-point-utf8-stack</a> right <span id="L233" class="LineNr">233 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L234" class="LineNr">234 </span><span class="Delimiter">}</span> <span id="L235" class="LineNr">235 </span> <span id="L236" class="LineNr">236 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L236'>gap-buffer-equal?</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>), s: (addr array byte)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L238" class="LineNr">238 </span> <span class="muComment"># complication: graphemes may be multiple bytes</span> +<span id="L238" class="LineNr">238 </span> <span class="muComment"># complication: code-point-utf8s may be multiple bytes</span> <span id="L239" class="LineNr">239 </span> <span class="muComment"># so don't rely on length</span> <span id="L240" class="LineNr">240 </span> <span class="muComment"># instead turn the expected result into a stream and arrange to read from it in order</span> <span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x10</span>/max-word-size) <span id="L242" class="LineNr">242 </span> <span class="PreProc">var</span> expected-stream/<span class="muRegEcx">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage <span id="L243" class="LineNr">243 </span> <a href='../108write.subx.html#L24'>write</a> expected-stream, s <span id="L244" class="LineNr">244 </span> <span class="muComment"># compare left</span> -<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> left/<span class="muRegEdx">edx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> left/<span class="muRegEdx">edx</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left <span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L117'>prefix-match?</a> left, expected-stream <span id="L247" class="LineNr">247 </span> compare <a href='data.mu.html#L82'>result</a>, <span class="Constant">0</span>/false <span id="L248" class="LineNr">248 </span> <span class="Delimiter">{</span> @@ -313,7 +313,7 @@ if ('onhashchange' in window) { <span id="L250" class="LineNr">250 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L251" class="LineNr">251 </span> <span class="Delimiter">}</span> <span id="L252" class="LineNr">252 </span> <span class="muComment"># compare right</span> -<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> right/<span class="muRegEdx">edx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right +<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> right/<span class="muRegEdx">edx</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right <span id="L254" class="LineNr">254 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L145'>suffix-match?</a> right, expected-stream <span id="L255" class="LineNr">255 </span> compare <a href='data.mu.html#L82'>result</a>, <span class="Constant">0</span>/false <span id="L256" class="LineNr">256 </span> <span class="Delimiter">{</span> @@ -330,10 +330,10 @@ if ('onhashchange' in window) { <span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> g/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> address _g <span id="L268" class="LineNr">268 </span> <a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a> g <span id="L269" class="LineNr">269 </span> <span class="muComment">#</span> -<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L271" class="LineNr">271 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c -<span id="L272" class="LineNr">272 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c -<span id="L273" class="LineNr">273 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c +<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L271" class="LineNr">271 </span> <a href='gap-buffer.mu.html#L103'>add-code-point-utf8-at-gap</a> g, c +<span id="L272" class="LineNr">272 </span> <a href='gap-buffer.mu.html#L103'>add-code-point-utf8-at-gap</a> g, c +<span id="L273" class="LineNr">273 </span> <a href='gap-buffer.mu.html#L103'>add-code-point-utf8-at-gap</a> g, c <span id="L274" class="LineNr">274 </span> <span class="muComment"># gap is at end (right is empty)</span> <span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> _result/eax: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L236'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> <span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: int <span class="Special"><-</span> copy _result @@ -345,11 +345,11 @@ if ('onhashchange' in window) { <span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> g/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> address _g <span id="L283" class="LineNr">283 </span> <a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a> g <span id="L284" class="LineNr">284 </span> <span class="muComment">#</span> -<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L286" class="LineNr">286 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c -<span id="L287" class="LineNr">287 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c -<span id="L288" class="LineNr">288 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c -<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> g +<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L286" class="LineNr">286 </span> <a href='gap-buffer.mu.html#L103'>add-code-point-utf8-at-gap</a> g, c +<span id="L287" class="LineNr">287 </span> <a href='gap-buffer.mu.html#L103'>add-code-point-utf8-at-gap</a> g, c +<span id="L288" class="LineNr">288 </span> <a href='gap-buffer.mu.html#L103'>add-code-point-utf8-at-gap</a> g, c +<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> g <span id="L290" class="LineNr">290 </span> <span class="muComment"># gap is in the middle</span> <span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> _result/eax: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L236'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> <span id="L292" class="LineNr">292 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: int <span class="Special"><-</span> copy _result @@ -361,11 +361,11 @@ if ('onhashchange' in window) { <span id="L298" class="LineNr">298 </span> <span class="PreProc">var</span> g/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> address _g <span id="L299" class="LineNr">299 </span> <a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a> g <span id="L300" class="LineNr">300 </span> <span class="muComment">#</span> -<span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> c/eax: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L302" class="LineNr">302 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c -<span id="L303" class="LineNr">303 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c -<span id="L304" class="LineNr">304 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c -<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> g +<span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> c/eax: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L302" class="LineNr">302 </span> <a href='gap-buffer.mu.html#L103'>add-code-point-utf8-at-gap</a> g, c +<span id="L303" class="LineNr">303 </span> <a href='gap-buffer.mu.html#L103'>add-code-point-utf8-at-gap</a> g, c +<span id="L304" class="LineNr">304 </span> <a href='gap-buffer.mu.html#L103'>add-code-point-utf8-at-gap</a> g, c +<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> g <span id="L306" class="LineNr">306 </span> dummy <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> g <span id="L307" class="LineNr">307 </span> dummy <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> g <span id="L308" class="LineNr">308 </span> <span class="muComment"># gap is at the start</span> @@ -382,25 +382,25 @@ if ('onhashchange' in window) { <span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> dest-ah/eax: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _dest-ah <span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> _dest-a/eax: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *dest-ah <span id="L321" class="LineNr">321 </span> <span class="PreProc">var</span> dest-a/<span class="muRegEdi">edi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _dest-a -<span id="L322" class="LineNr">322 </span> <span class="muComment"># copy left grapheme-stack</span> -<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> src/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-a, left -<span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> dest/<span class="muRegEdx">edx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-a, left -<span id="L325" class="LineNr">325 </span> <a href='grapheme-stack.mu.html#L59'>copy-grapheme-stack</a> src, dest -<span id="L326" class="LineNr">326 </span> <span class="muComment"># copy right grapheme-stack</span> +<span id="L322" class="LineNr">322 </span> <span class="muComment"># copy left code-point-utf8-stack</span> +<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> src/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-a, left +<span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> dest/<span class="muRegEdx">edx</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-a, left +<span id="L325" class="LineNr">325 </span> <a href='grapheme-stack.mu.html#L59'>copy-code-point-utf8-stack</a> src, dest +<span id="L326" class="LineNr">326 </span> <span class="muComment"># copy right code-point-utf8-stack</span> <span id="L327" class="LineNr">327 </span> src <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-a, right <span id="L328" class="LineNr">328 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-a, right -<span id="L329" class="LineNr">329 </span> <a href='grapheme-stack.mu.html#L59'>copy-grapheme-stack</a> src, dest +<span id="L329" class="LineNr">329 </span> <a href='grapheme-stack.mu.html#L59'>copy-code-point-utf8-stack</a> src, dest <span id="L330" class="LineNr">330 </span><span class="Delimiter">}</span> <span id="L331" class="LineNr">331 </span> <span id="L332" class="LineNr">332 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L332'>gap-buffer-is-decimal-integer?</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L333" class="LineNr">333 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self -<span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> curr/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left -<span id="L335" class="LineNr">335 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L172'>grapheme-stack-is-decimal-integer?</a> curr +<span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> curr/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L335" class="LineNr">335 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L172'>code-point-utf8-stack-is-decimal-integer?</a> curr <span id="L336" class="LineNr">336 </span> <span class="Delimiter">{</span> <span id="L337" class="LineNr">337 </span> compare <a href='data.mu.html#L82'>result</a>, <span class="Constant">0</span>/false <span id="L338" class="LineNr">338 </span> <span class="PreProc">break-if-=</span> <span id="L339" class="LineNr">339 </span> curr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right -<span id="L340" class="LineNr">340 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L172'>grapheme-stack-is-decimal-integer?</a> curr +<span id="L340" class="LineNr">340 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L172'>code-point-utf8-stack-is-decimal-integer?</a> curr <span id="L341" class="LineNr">341 </span> <span class="Delimiter">}</span> <span id="L342" class="LineNr">342 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L343" class="LineNr">343 </span><span class="Delimiter">}</span> diff --git a/html/linux/tile/grapheme-stack.mu.html b/html/linux/tile/grapheme-stack.mu.html index 09c487b4..d5a29921 100644 --- a/html/linux/tile/grapheme-stack.mu.html +++ b/html/linux/tile/grapheme-stack.mu.html @@ -16,16 +16,16 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } .muRegEbx { color: #5f00ff; } -.muRegEcx { color: #870000; } .muRegEdx { color: #af5f00; } .LineNr { } +.Constant { color: #008787; } +.muComment { color: #005faf; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } -.Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .Special { color: #ff6060; } -.muComment { color: #005faf; } --> </style> @@ -61,27 +61,27 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/linux/tile/grapheme-stack.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/grapheme-stack.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a> <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> data: (handle array grapheme) +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a> <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> data: (handle array code-point-utf8) <span id="L3" class="LineNr"> 3 </span> <a href='../203stack.subx.html#L338'>top</a>: int <span id="L4" class="LineNr"> 4 </span><span class="Delimiter">}</span> <span id="L5" class="LineNr"> 5 </span> -<span id="L6" class="LineNr"> 6 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L6'>initialize-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), n: int <span class="Delimiter">{</span> -<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> d/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L6" class="LineNr"> 6 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L6'>initialize-code-point-utf8-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>), n: int <span class="Delimiter">{</span> +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> d/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data <span id="L9" class="LineNr"> 9 </span> populate d, n <span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/eax: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L11" class="LineNr"> 11 </span> copy-to *top, <span class="Constant">0</span> <span id="L12" class="LineNr"> 12 </span><span class="Delimiter">}</span> <span id="L13" class="LineNr"> 13 </span> -<span id="L14" class="LineNr"> 14 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L14'>clear-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Delimiter">{</span> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L14" class="LineNr"> 14 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L14'>clear-code-point-utf8-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Delimiter">{</span> +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self <span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/eax: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L17" class="LineNr"> 17 </span> copy-to *top, <span class="Constant">0</span> <span id="L18" class="LineNr"> 18 </span><span class="Delimiter">}</span> <span id="L19" class="LineNr"> 19 </span> -<span id="L20" class="LineNr"> 20 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L20'>grapheme-stack-empty?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L20" class="LineNr"> 20 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L20'>code-point-utf8-stack-empty?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self <span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/eax: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L23" class="LineNr"> 23 </span> compare *top, <span class="Constant">0</span> <span id="L24" class="LineNr"> 24 </span> <span class="Delimiter">{</span> @@ -91,20 +91,20 @@ if ('onhashchange' in window) { <span id="L28" class="LineNr"> 28 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L29" class="LineNr"> 29 </span><span class="Delimiter">}</span> <span id="L30" class="LineNr"> 30 </span> -<span id="L31" class="LineNr"> 31 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L31'>push-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), _val: grapheme <span class="Delimiter">{</span> -<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L31" class="LineNr"> 31 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L31'>push-code-point-utf8-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>), _val: code-point-utf8 <span class="Delimiter">{</span> +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self <span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdx">edx</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdx">edx</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah <span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy *top-addr -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> dest-addr/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, <a href='../203stack.subx.html#L338'>top</a> -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> val/eax: grapheme <span class="Special"><-</span> copy _val +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> dest-addr/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> val/eax: code-point-utf8 <span class="Special"><-</span> copy _val <span id="L39" class="LineNr"> 39 </span> copy-to *dest-addr, val <span id="L40" class="LineNr"> 40 </span> add-to *top-addr, <span class="Constant">1</span> <span id="L41" class="LineNr"> 41 </span><span class="Delimiter">}</span> <span id="L42" class="LineNr"> 42 </span> -<span id="L43" class="LineNr"> 43 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L43" class="LineNr"> 43 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L43'>pop-code-point-utf8-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self <span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L46" class="LineNr"> 46 </span> <span class="Delimiter">{</span> <span id="L47" class="LineNr"> 47 </span> compare *top-addr, <span class="Constant">0</span> @@ -112,25 +112,25 @@ if ('onhashchange' in window) { <span id="L49" class="LineNr"> 49 </span> <span class="PreProc">return</span> <span class="Constant">-1</span> <span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">}</span> <span id="L51" class="LineNr"> 51 </span> subtract-from *top-addr, <span class="Constant">1</span> -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdx">edx</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdx">edx</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah <span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy *top-addr -<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> result-addr/eax: (addr grapheme) <span class="Special"><-</span> index data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> result-addr/eax: (addr code-point-utf8) <span class="Special"><-</span> index data, <a href='../203stack.subx.html#L338'>top</a> <span id="L56" class="LineNr"> 56 </span> <span class="PreProc">return</span> *result-addr <span id="L57" class="LineNr"> 57 </span><span class="Delimiter">}</span> <span id="L58" class="LineNr"> 58 </span> -<span id="L59" class="LineNr"> 59 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L59'>copy-grapheme-stack</a></span> _src: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), dest: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Delimiter">{</span> -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> src/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _src -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, data -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L59" class="LineNr"> 59 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L59'>copy-code-point-utf8-stack</a></span> _src: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>), dest: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Delimiter">{</span> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> src/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _src +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, data +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, <a href='../203stack.subx.html#L338'>top</a> <span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">{</span> <span id="L67" class="LineNr"> 67 </span> compare i, *top-addr <span id="L68" class="LineNr"> 68 </span> <span class="PreProc">break-if->=</span> -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L70" class="LineNr"> 70 </span> <a href='grapheme-stack.mu.html#L31'>push-grapheme-stack</a> dest, *g +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L70" class="LineNr"> 70 </span> <a href='grapheme-stack.mu.html#L31'>push-code-point-utf8-stack</a> dest, *g <span id="L71" class="LineNr"> 71 </span> i <span class="Special"><-</span> increment <span id="L72" class="LineNr"> 72 </span> <span class="PreProc">loop</span> <span id="L73" class="LineNr"> 73 </span> <span class="Delimiter">}</span> @@ -138,18 +138,18 @@ if ('onhashchange' in window) { <span id="L75" class="LineNr"> 75 </span> <span id="L76" class="LineNr"> 76 </span><span class="muComment"># dump stack to screen from bottom to top</span> <span id="L77" class="LineNr"> 77 </span><span class="muComment"># don't move the cursor or anything</span> -<span id="L78" class="LineNr"> 78 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L78'>render-stack-from-bottom</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L78" class="LineNr"> 78 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L78'>render-stack-from-bottom</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>), <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">{</span> <span id="L86" class="LineNr"> 86 </span> compare i, *top-addr <span id="L87" class="LineNr"> 87 </span> <span class="PreProc">break-if->=</span> -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L89" class="LineNr"> 89 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, *g +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L89" class="LineNr"> 89 </span> <a href='../405screen.mu.html#L214'>print-code-point-utf8</a> <a href='../405screen.mu.html#L9'>screen</a>, *g <span id="L90" class="LineNr"> 90 </span> i <span class="Special"><-</span> increment <span id="L91" class="LineNr"> 91 </span> <span class="PreProc">loop</span> <span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">}</span> @@ -157,19 +157,19 @@ if ('onhashchange' in window) { <span id="L94" class="LineNr"> 94 </span> <span id="L95" class="LineNr"> 95 </span><span class="muComment"># dump stack to screen from top to bottom</span> <span id="L96" class="LineNr"> 96 </span><span class="muComment"># don't move the cursor or anything</span> -<span id="L97" class="LineNr"> 97 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L97'>render-stack-from-top</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L97" class="LineNr"> 97 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L97'>render-stack-from-top</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>), <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy *top-addr <span id="L104" class="LineNr">104 </span> i <span class="Special"><-</span> decrement <span id="L105" class="LineNr">105 </span> <span class="Delimiter">{</span> <span id="L106" class="LineNr">106 </span> compare i, <span class="Constant">0</span> <span id="L107" class="LineNr">107 </span> <span class="PreProc">break-if-<</span> -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L109" class="LineNr">109 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, *g +<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L109" class="LineNr">109 </span> <a href='../405screen.mu.html#L214'>print-code-point-utf8</a> <a href='../405screen.mu.html#L9'>screen</a>, *g <span id="L110" class="LineNr">110 </span> i <span class="Special"><-</span> decrement <span id="L111" class="LineNr">111 </span> <span class="PreProc">loop</span> <span id="L112" class="LineNr">112 </span> <span class="Delimiter">}</span> @@ -177,11 +177,11 @@ if ('onhashchange' in window) { <span id="L114" class="LineNr">114 </span> <span id="L115" class="LineNr">115 </span><span class="muComment"># compare from bottom</span> <span id="L116" class="LineNr">116 </span><span class="muComment"># beware: modifies 'stream', which must be disposed of after a false result</span> -<span id="L117" class="LineNr">117 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L117'>prefix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> -<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data -<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L117" class="LineNr">117 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L117'>prefix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> i/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L124" class="LineNr">124 </span> <span class="Delimiter">{</span> @@ -189,8 +189,8 @@ if ('onhashchange' in window) { <span id="L126" class="LineNr">126 </span> <span class="PreProc">break-if->=</span> <span id="L127" class="LineNr">127 </span> <span class="muComment"># if curr != expected, return false</span> <span id="L128" class="LineNr">128 </span> <span class="Delimiter">{</span> -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> curr-a/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> expected/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> s +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> curr-a/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> expected/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L155'>read-code-point-utf8</a> s <span id="L131" class="LineNr">131 </span> <span class="Delimiter">{</span> <span id="L132" class="LineNr">132 </span> compare expected, *curr-a <span id="L133" class="LineNr">133 </span> <span class="PreProc">break-if-=</span> @@ -205,11 +205,11 @@ if ('onhashchange' in window) { <span id="L142" class="LineNr">142 </span> <span id="L143" class="LineNr">143 </span><span class="muComment"># compare from bottom</span> <span id="L144" class="LineNr">144 </span><span class="muComment"># beware: modifies 'stream', which must be disposed of after a false result</span> -<span id="L145" class="LineNr">145 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L145'>suffix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data -<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L145" class="LineNr">145 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L145'>suffix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> data-ah/<span class="muRegEdi">edi</span>: (addr handle array code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> data/<span class="muRegEdi">edi</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> top-addr/eax: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> i/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L152" class="LineNr">152 </span> i <span class="Special"><-</span> decrement @@ -217,8 +217,8 @@ if ('onhashchange' in window) { <span id="L154" class="LineNr">154 </span> compare i, <span class="Constant">0</span> <span id="L155" class="LineNr">155 </span> <span class="PreProc">break-if-<</span> <span id="L156" class="LineNr">156 </span> <span class="Delimiter">{</span> -<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> curr-a/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i -<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> expected/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> s +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> curr-a/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> expected/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L155'>read-code-point-utf8</a> s <span id="L159" class="LineNr">159 </span> <span class="muComment"># if curr != expected, return false</span> <span id="L160" class="LineNr">160 </span> <span class="Delimiter">{</span> <span id="L161" class="LineNr">161 </span> compare expected, *curr-a @@ -232,18 +232,18 @@ if ('onhashchange' in window) { <span id="L169" class="LineNr">169 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> <span id="L170" class="LineNr">170 </span><span class="Delimiter">}</span> <span id="L171" class="LineNr">171 </span> -<span id="L172" class="LineNr">172 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L172'>grapheme-stack-is-decimal-integer?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self -<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data -<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> _data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> data/<span class="muRegEdx">edx</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L172" class="LineNr">172 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L172'>code-point-utf8-stack-is-decimal-integer?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> copy _self +<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> _data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> data/<span class="muRegEdx">edx</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _data <span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> i/<span class="muRegEbx">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: boolean <span class="Special"><-</span> copy <span class="Constant">1</span>/true -<span id="L180" class="LineNr">180 </span> $grapheme-stack-is-integer?:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L180" class="LineNr">180 </span> $code-point-utf8-stack-is-integer?:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> <span id="L181" class="LineNr">181 </span> compare i, *top-addr <span id="L182" class="LineNr">182 </span> <span class="PreProc">break-if->=</span> -<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index data, i <span id="L184" class="LineNr">184 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L306'>decimal-digit?</a> *g <span id="L185" class="LineNr">185 </span> compare <a href='data.mu.html#L82'>result</a>, <span class="Constant">0</span>/false <span id="L186" class="LineNr">186 </span> <span class="PreProc">break-if-=</span> diff --git a/html/linux/tile/main.mu.html b/html/linux/tile/main.mu.html index f274b46e..9f972072 100644 --- a/html/linux/tile/main.mu.html +++ b/html/linux/tile/main.mu.html @@ -15,16 +15,16 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muComment { color: #005faf; } -.muRegEcx { color: #870000; } .LineNr { } .muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } +.muRegEbx { color: #5f00ff; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEdi { color: #00af00; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muComment { color: #005faf; } .Special { color: #ff6060; } -.muRegEbx { color: #5f00ff; } --> </style> @@ -116,7 +116,7 @@ if ('onhashchange' in window) { <span id="L54" class="LineNr"> 54 </span> <a href='environment.mu.html#L30'>initialize-environment</a> env <span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">{</span> <span id="L56" class="LineNr"> 56 </span> <a href='environment.mu.html#L1309'>render</a> env -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> key/eax: grapheme <span class="Special"><-</span> <a href='../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> key/eax: code-point-utf8 <span class="Special"><-</span> <a href='../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> <span id="L58" class="LineNr"> 58 </span> compare key, <span class="Constant">0x11</span>/ctrl-q <span id="L59" class="LineNr"> 59 </span> <span class="PreProc">break-if-=</span> <span id="L60" class="LineNr"> 60 </span> <a href='environment.mu.html#L73'>process</a> env, key @@ -141,7 +141,7 @@ if ('onhashchange' in window) { <span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> cmds-stream-a <span id="L80" class="LineNr"> 80 </span> compare done?, <span class="Constant">0</span>/false <span id="L81" class="LineNr"> 81 </span> <span class="PreProc">break-if-!=</span> -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> cmds-stream-a +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L155'>read-code-point-utf8</a> cmds-stream-a <span id="L83" class="LineNr"> 83 </span> <a href='environment.mu.html#L73'>process</a> env, g <span id="L84" class="LineNr"> 84 </span> <span class="PreProc">loop</span> <span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">}</span> @@ -167,7 +167,7 @@ if ('onhashchange' in window) { <span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> <a href='data.mu.html#L34'>line</a> <span id="L106" class="LineNr">106 </span> compare done?, <span class="Constant">0</span>/false <span id="L107" class="LineNr">107 </span> <span class="PreProc">break-if-!=</span> -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> <a href='data.mu.html#L34'>line</a> +<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L155'>read-code-point-utf8</a> <a href='data.mu.html#L34'>line</a> <span id="L109" class="LineNr">109 </span> <a href='environment.mu.html#L73'>process</a> env, g <span id="L110" class="LineNr">110 </span> <span class="PreProc">loop</span> <span id="L111" class="LineNr">111 </span> <span class="Delimiter">}</span> diff --git a/html/linux/tile/rpn.mu.html b/html/linux/tile/rpn.mu.html index 20de2046..030a7eda 100644 --- a/html/linux/tile/rpn.mu.html +++ b/html/linux/tile/rpn.mu.html @@ -16,18 +16,18 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .LineNr { } .Delimiter { color: #c000c0; } -.muRegEcx { color: #870000; } -.muRegEdx { color: #af5f00; } +.muFunction { color: #af5f00; text-decoration: underline; } .muRegEbx { color: #5f00ff; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } .Constant { color: #008787; } .Special { color: #ff6060; } .PreProc { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } .muTest { color: #5f8700; } .muComment { color: #005faf; } -.CommentedCode { color: #8a8a8a; } +.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } --> </style> diff --git a/html/linux/tile/surface.mu.html b/html/linux/tile/surface.mu.html index 6e702b47..de9cfa43 100644 --- a/html/linux/tile/surface.mu.html +++ b/html/linux/tile/surface.mu.html @@ -16,18 +16,18 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .LineNr { } .Delimiter { color: #c000c0; } -.muRegEcx { color: #870000; } -.muRegEdx { color: #af5f00; } +.muFunction { color: #af5f00; text-decoration: underline; } .muRegEbx { color: #5f00ff; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } .Constant { color: #008787; } .Special { color: #ff6060; } .PreProc { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } .muTest { color: #5f8700; } .muComment { color: #005faf; } -.CommentedCode { color: #8a8a8a; } +.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } --> </style> @@ -176,10 +176,10 @@ if ('onhashchange' in window) { <span id="L111" class="LineNr">111 </span> compare idx, <span class="Constant">0</span> <span id="L112" class="LineNr">112 </span> <span class="Delimiter">{</span> <span id="L113" class="LineNr">113 </span> <span class="PreProc">break-if->=</span> -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> space/<span class="muRegEcx">ecx</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x20</span> +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> space/<span class="muRegEcx">ecx</span>: code-point-utf8 <span class="Special"><-</span> copy <span class="Constant">0x20</span> <span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> screen-ah/<span class="muRegEdi">edi</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../405screen.mu.html#L9'>screen</a> <span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> <a href='../405screen.mu.html#L9'>screen</a>/eax: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah -<span id="L117" class="LineNr">117 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, space +<span id="L117" class="LineNr">117 </span> <a href='../405screen.mu.html#L214'>print-code-point-utf8</a> <a href='../405screen.mu.html#L9'>screen</a>, space <span id="L118" class="LineNr">118 </span> <span class="PreProc">return</span> <span id="L119" class="LineNr">119 </span> <span class="Delimiter">}</span> <span id="L120" class="LineNr">120 </span> <span class="muComment"># otherwise print the appropriate screen-cell</span> @@ -221,9 +221,9 @@ if ('onhashchange' in window) { <span id="L156" class="LineNr">156 </span> <span class="PreProc">break-if-=</span> <span id="L157" class="LineNr">157 </span> <a href='../405screen.mu.html#L583'>start-blinking</a> <a href='../405screen.mu.html#L9'>screen</a> <span id="L158" class="LineNr">158 </span> <span class="Delimiter">}</span> -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> g/eax: (addr grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cell, data -<span id="L160" class="LineNr">160 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, *g -<span id="L161" class="LineNr">161 </span><span class="CommentedCode">#? var g2/eax: grapheme <- copy *g</span> +<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> g/eax: (addr code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cell, data +<span id="L160" class="LineNr">160 </span> <a href='../405screen.mu.html#L214'>print-code-point-utf8</a> <a href='../405screen.mu.html#L9'>screen</a>, *g +<span id="L161" class="LineNr">161 </span><span class="CommentedCode">#? var g2/eax: code-point-utf8 <- copy *g</span> <span id="L162" class="LineNr">162 </span><span class="CommentedCode">#? var g3/eax: int <- copy g2</span> <span id="L163" class="LineNr">163 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen g3</span> <span id="L164" class="LineNr">164 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> @@ -329,7 +329,7 @@ if ('onhashchange' in window) { <span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> s-addr <span id="L265" class="LineNr">265 </span> compare done?, <span class="Constant">0</span>/false <span id="L266" class="LineNr">266 </span> <span class="PreProc">break-if-!=</span> -<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> s-addr +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L155'>read-code-point-utf8</a> s-addr <span id="L268" class="LineNr">268 </span> compare g, <span class="Constant">0xa</span>/newline <span id="L269" class="LineNr">269 </span> <span class="PreProc">loop-if-!=</span> <span id="L270" class="LineNr">270 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> increment @@ -347,7 +347,7 @@ if ('onhashchange' in window) { <span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> s-addr <span id="L283" class="LineNr">283 </span> compare done?, <span class="Constant">0</span>/false <span id="L284" class="LineNr">284 </span> <span class="PreProc">break-if-!=</span> -<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> s-addr +<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L155'>read-code-point-utf8</a> s-addr <span id="L286" class="LineNr">286 </span> compare g, <span class="Constant">0xa</span>/newline <span id="L287" class="LineNr">287 </span> <span class="PreProc">break-if-=</span> <span id="L288" class="LineNr">288 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> increment @@ -366,12 +366,12 @@ if ('onhashchange' in window) { <span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> s-addr <span id="L302" class="LineNr">302 </span> compare done?, <span class="Constant">0</span>/false <span id="L303" class="LineNr">303 </span> <span class="PreProc">break-if-!=</span> -<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> s-addr +<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L155'>read-code-point-utf8</a> s-addr <span id="L305" class="LineNr">305 </span> compare g, <span class="Constant">0xa</span>/newline <span id="L306" class="LineNr">306 </span> <span class="PreProc">loop-if-=</span> <span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> offset/<span class="muRegEdx">edx</span>: (offset <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> compute-offset out, idx <span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> dest/<span class="muRegEdx">edx</span>: (addr <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> index out, offset -<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> dest2/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest, data +<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> dest2/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest, data <span id="L310" class="LineNr">310 </span> copy-to *dest2, g <span id="L311" class="LineNr">311 </span> idx <span class="Special"><-</span> increment <span id="L312" class="LineNr">312 </span> <span class="PreProc">loop</span> diff --git a/html/linux/tile/table.mu.html b/html/linux/tile/table.mu.html index 8f263bfe..8fb3ec7e 100644 --- a/html/linux/tile/table.mu.html +++ b/html/linux/tile/table.mu.html @@ -15,18 +15,18 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.muRegEbx { color: #5f00ff; } -.muRegEcx { color: #870000; } .muRegEdx { color: #af5f00; } +.muRegEcx { color: #870000; } .LineNr { } +.Constant { color: #008787; } +.muRegEbx { color: #5f00ff; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } -.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } +.Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.Delimiter { color: #c000c0; } .Special { color: #ff6060; } -.CommentedCode { color: #8a8a8a; } --> </style> diff --git a/html/linux/tile/value-stack.mu.html b/html/linux/tile/value-stack.mu.html index c3ad6071..f8fee64e 100644 --- a/html/linux/tile/value-stack.mu.html +++ b/html/linux/tile/value-stack.mu.html @@ -15,18 +15,18 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.CommentedCode { color: #8a8a8a; } -.muRegEcx { color: #870000; } +.muRegEbx { color: #5f00ff; } .muRegEdx { color: #af5f00; } +.Special { color: #ff6060; } .LineNr { } +.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } -.Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muRegEbx { color: #5f00ff; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } -.Special { color: #ff6060; } --> </style> diff --git a/html/linux/tile/value.mu.html b/html/linux/tile/value.mu.html index 2aa1a26f..fa671074 100644 --- a/html/linux/tile/value.mu.html +++ b/html/linux/tile/value.mu.html @@ -15,18 +15,18 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.CommentedCode { color: #8a8a8a; } -.muRegEcx { color: #870000; } .muRegEdx { color: #af5f00; } .LineNr { } -.muRegEsi { color: #005faf; } -.muRegEdi { color: #00af00; } .Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } +.muRegEdi { color: #00af00; } +.muComment { color: #005faf; } +.muRegEsi { color: #005faf; } .muRegEbx { color: #5f00ff; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } .Special { color: #ff6060; } -.muComment { color: #005faf; } --> </style> @@ -154,15 +154,15 @@ if ('onhashchange' in window) { <span id="L90" class="LineNr"> 90 </span> fg <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">}</span> <span id="L92" class="LineNr"> 92 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, fg, bg -<span id="L93" class="LineNr"> 93 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>/space +<span id="L93" class="LineNr"> 93 </span> <a href='../405screen.mu.html#L214'>print-code-point-utf8</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>/space <span id="L94" class="LineNr"> 94 </span> <a href='../412print-float-decimal.mu.html#L151'>print-float-decimal-approximate</a> <a href='../405screen.mu.html#L9'>screen</a>, val, <span class="Constant">3</span> -<span id="L95" class="LineNr"> 95 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>/space +<span id="L95" class="LineNr"> 95 </span> <a href='../405screen.mu.html#L214'>print-code-point-utf8</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>/space <span id="L96" class="LineNr"> 96 </span><span class="Delimiter">}</span> <span id="L97" class="LineNr"> 97 </span> <span id="L98" class="LineNr"> 98 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L98'>render-array-at</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row: int, col: int, _a: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Delimiter">{</span> <span id="L99" class="LineNr"> 99 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xf2</span>, <span class="Constant">7</span> <span id="L100" class="LineNr">100 </span> <span class="muComment"># don't surround in spaces</span> -<span id="L101" class="LineNr">101 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x5b</span>/[ +<span id="L101" class="LineNr">101 </span> <a href='../405screen.mu.html#L214'>print-code-point-utf8</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x5b</span>/[ <span id="L102" class="LineNr">102 </span> increment col <span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> a/<span class="muRegEsi">esi</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _a <span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> <a href='surface.mu.html#L207'>max</a>/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> length a @@ -186,7 +186,7 @@ if ('onhashchange' in window) { <span id="L122" class="LineNr">122 </span> i <span class="Special"><-</span> increment <span id="L123" class="LineNr">123 </span> <span class="PreProc">loop</span> <span id="L124" class="LineNr">124 </span> <span class="Delimiter">}</span> -<span id="L125" class="LineNr">125 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x5d</span>/] +<span id="L125" class="LineNr">125 </span> <a href='../405screen.mu.html#L214'>print-code-point-utf8</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x5d</span>/] <span id="L126" class="LineNr">126 </span><span class="Delimiter">}</span> <span id="L127" class="LineNr">127 </span> <span id="L128" class="LineNr">128 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L128'>render-screen</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row: int, col: int, _target-screen: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> @@ -243,13 +243,13 @@ if ('onhashchange' in window) { <span id="L179" class="LineNr">179 </span> <a href='../405screen.mu.html#L583'>start-blinking</a> <a href='../405screen.mu.html#L9'>screen</a> <span id="L180" class="LineNr">180 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">1</span> <span id="L181" class="LineNr">181 </span> <span class="Delimiter">}</span> -<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../405screen.mu.html#L308'>screen-grapheme-at</a> target, row, col +<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../405screen.mu.html#L308'>screen-code-point-utf8-at</a> target, row, col <span id="L183" class="LineNr">183 </span> <span class="Delimiter">{</span> <span id="L184" class="LineNr">184 </span> compare g, <span class="Constant">0</span> <span id="L185" class="LineNr">185 </span> <span class="PreProc">break-if-!=</span> <span id="L186" class="LineNr">186 </span> g <span class="Special"><-</span> copy <span class="Constant">0x20</span>/space <span id="L187" class="LineNr">187 </span> <span class="Delimiter">}</span> -<span id="L188" class="LineNr">188 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, g +<span id="L188" class="LineNr">188 </span> <a href='../405screen.mu.html#L214'>print-code-point-utf8</a> <a href='../405screen.mu.html#L9'>screen</a>, g <span id="L189" class="LineNr">189 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> <span id="L190" class="LineNr">190 </span><span class="Delimiter">}</span> <span id="L191" class="LineNr">191 </span> diff --git a/html/linux/tile/word.mu.html b/html/linux/tile/word.mu.html index f619aa82..4d1e86d3 100644 --- a/html/linux/tile/word.mu.html +++ b/html/linux/tile/word.mu.html @@ -15,18 +15,18 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } -.CommentedCode { color: #8a8a8a; } -.muRegEcx { color: #870000; } .muRegEdx { color: #af5f00; } +.muRegEcx { color: #870000; } .LineNr { } +.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } -.Constant { color: #008787; } +.muComment { color: #005faf; } +.Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muRegEbx { color: #5f00ff; } -.Delimiter { color: #c000c0; } .Special { color: #ff6060; } -.muComment { color: #005faf; } --> </style> @@ -122,15 +122,15 @@ if ('onhashchange' in window) { <span id="L58" class="LineNr"> 58 </span> <a href='word.mu.html#L185'>cursor-to-start</a> src <span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> src-data-ah/eax: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, scalar-data <span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> src-data/eax: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-data-ah -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> src-stack/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-data, right +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> src-stack/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-data, right <span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">{</span> -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L20'>grapheme-stack-empty?</a> src-stack +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L20'>code-point-utf8-stack-empty?</a> src-stack <span id="L64" class="LineNr"> 64 </span> compare done?, <span class="Constant">0</span>/false <span id="L65" class="LineNr"> 65 </span> <span class="PreProc">break-if-!=</span> -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> src-stack -<span id="L67" class="LineNr"> 67 </span><span class="CommentedCode">#? print-grapheme 0, g</span> +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-code-point-utf8-stack</a> src-stack +<span id="L67" class="LineNr"> 67 </span><span class="CommentedCode">#? print-code-point-utf8 0, g</span> <span id="L68" class="LineNr"> 68 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L69" class="LineNr"> 69 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> dest, g +<span id="L69" class="LineNr"> 69 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> dest, g <span id="L70" class="LineNr"> 70 </span> <span class="PreProc">loop</span> <span id="L71" class="LineNr"> 71 </span> <span class="Delimiter">}</span> <span id="L72" class="LineNr"> 72 </span><span class="Delimiter">}</span> @@ -143,17 +143,17 @@ if ('onhashchange' in window) { <span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> src/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-ah <span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> src-data-ah/eax: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, scalar-data <span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> src-data/eax: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-data-ah -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> src-stack/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-data, left -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> src-stack-data-ah/eax: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-stack, data -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> _src-stack-data/eax: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-stack-data-ah -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> src-stack-data/<span class="muRegEdx">edx</span>: (addr array grapheme) <span class="Special"><-</span> copy _src-stack-data +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> src-stack/<span class="muRegEcx">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>code-point-utf8-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-data, left +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> src-stack-data-ah/eax: (addr handle array code-point-utf8) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-stack, data +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> _src-stack-data/eax: (addr array code-point-utf8) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-stack-data-ah +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> src-stack-data/<span class="muRegEdx">edx</span>: (addr array code-point-utf8) <span class="Special"><-</span> copy _src-stack-data <span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> top-addr/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-stack, <a href='../203stack.subx.html#L338'>top</a> <span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> i/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">{</span> <span id="L89" class="LineNr"> 89 </span> compare i, *top-addr <span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break-if->=</span> -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr grapheme) <span class="Special"><-</span> index src-stack-data, i -<span id="L92" class="LineNr"> 92 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> dest, *g +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: (addr code-point-utf8) <span class="Special"><-</span> index src-stack-data, i +<span id="L92" class="LineNr"> 92 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> dest, *g <span id="L93" class="LineNr"> 93 </span> i <span class="Special"><-</span> increment <span id="L94" class="LineNr"> 94 </span> <span class="PreProc">loop</span> <span id="L95" class="LineNr"> 95 </span> <span class="Delimiter">}</span> @@ -193,27 +193,27 @@ if ('onhashchange' in window) { <span id="L129" class="LineNr">129 </span> copy-object curr-ah, out <span class="muComment"># modify 'out' right at the end, just in case it's same as 'in'</span> <span id="L130" class="LineNr">130 </span><span class="Delimiter">}</span> <span id="L131" class="LineNr">131 </span> -<span id="L132" class="LineNr">132 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L132'>first-grapheme</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L132" class="LineNr">132 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L132'>first-code-point-utf8</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self <span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data <span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> data/eax: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L177'>first-grapheme-in-gap-buffer</a> data +<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: code-point-utf8 <span class="Special"><-</span> <a href='gap-buffer.mu.html#L177'>first-code-point-utf8-in-gap-buffer</a> data <span id="L137" class="LineNr">137 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L138" class="LineNr">138 </span><span class="Delimiter">}</span> <span id="L139" class="LineNr">139 </span> -<span id="L140" class="LineNr">140 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L140'>grapheme-before-cursor</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L140" class="LineNr">140 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L140'>code-point-utf8-before-cursor</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self <span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data <span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> data/eax: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L207'>grapheme-before-cursor-in-gap-buffer</a> data +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: code-point-utf8 <span class="Special"><-</span> <a href='gap-buffer.mu.html#L207'>code-point-utf8-before-cursor-in-gap-buffer</a> data <span id="L145" class="LineNr">145 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L146" class="LineNr">146 </span><span class="Delimiter">}</span> <span id="L147" class="LineNr">147 </span> -<span id="L148" class="LineNr">148 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L148'>add-grapheme-to-word</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>), c: grapheme <span class="Delimiter">{</span> +<span id="L148" class="LineNr">148 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L148'>add-code-point-utf8-to-word</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>), c: code-point-utf8 <span class="Delimiter">{</span> <span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self <span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data <span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> data/eax: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L152" class="LineNr">152 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> data, c +<span id="L152" class="LineNr">152 </span> <a href='gap-buffer.mu.html#L103'>add-code-point-utf8-at-gap</a> data, c <span id="L153" class="LineNr">153 </span><span class="Delimiter">}</span> <span id="L154" class="LineNr">154 </span> <span id="L155" class="LineNr">155 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L155'>cursor-at-start?</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> @@ -236,14 +236,14 @@ if ('onhashchange' in window) { <span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self <span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data <span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> data/eax: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> data +<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> data <span id="L176" class="LineNr">176 </span><span class="Delimiter">}</span> <span id="L177" class="LineNr">177 </span> <span id="L178" class="LineNr">178 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L178'>cursor-right</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> <span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self <span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data <span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> data/eax: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L139'>gap-right</a> data +<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='gap-buffer.mu.html#L139'>gap-right</a> data <span id="L183" class="LineNr">183 </span><span class="Delimiter">}</span> <span id="L184" class="LineNr">184 </span> <span id="L185" class="LineNr">185 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L185'>cursor-to-start</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> @@ -275,11 +275,11 @@ if ('onhashchange' in window) { <span id="L211" class="LineNr">211 </span> <a href='gap-buffer.mu.html#L223'>delete-before-gap</a> data <span id="L212" class="LineNr">212 </span><span class="Delimiter">}</span> <span id="L213" class="LineNr">213 </span> -<span id="L214" class="LineNr">214 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L214'>pop-after-cursor</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/eax: grapheme <span class="Delimiter">{</span> +<span id="L214" class="LineNr">214 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L214'>pop-after-cursor</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 <span class="Delimiter">{</span> <span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self <span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data <span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> data/eax: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L229'>pop-after-gap</a> data +<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/eax: code-point-utf8 <span class="Special"><-</span> <a href='gap-buffer.mu.html#L229'>pop-after-gap</a> data <span id="L219" class="LineNr">219 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L220" class="LineNr">220 </span><span class="Delimiter">}</span> <span id="L221" class="LineNr">221 </span> @@ -617,14 +617,14 @@ if ('onhashchange' in window) { <span id="L553" class="LineNr">553 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> in-stream-a <span id="L554" class="LineNr">554 </span> compare done?, <span class="Constant">0</span>/false <span id="L555" class="LineNr">555 </span> <span class="PreProc">break-if-!=</span> -<span id="L556" class="LineNr">556 </span> <span class="PreProc">var</span> _g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> in-stream-a -<span id="L557" class="LineNr">557 </span> <span class="PreProc">var</span> g/<span class="muRegEcx">ecx</span>: grapheme <span class="Special"><-</span> copy _g +<span id="L556" class="LineNr">556 </span> <span class="PreProc">var</span> _g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L155'>read-code-point-utf8</a> in-stream-a +<span id="L557" class="LineNr">557 </span> <span class="PreProc">var</span> g/<span class="muRegEcx">ecx</span>: code-point-utf8 <span class="Special"><-</span> copy _g <span id="L558" class="LineNr">558 </span> <span class="muComment"># if not space, insert</span> <span id="L559" class="LineNr">559 </span> compare g, <span class="Constant">0x20</span>/space <span id="L560" class="LineNr">560 </span> <span class="Delimiter">{</span> <span id="L561" class="LineNr">561 </span> <span class="PreProc">break-if-=</span> <span id="L562" class="LineNr">562 </span> <span class="PreProc">var</span> cursor-word/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah -<span id="L563" class="LineNr">563 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> cursor-word, g +<span id="L563" class="LineNr">563 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> cursor-word, g <span id="L564" class="LineNr">564 </span> <span class="PreProc">loop</span> $parse-words:<span class="PreProc">loop</span> <span id="L565" class="LineNr">565 </span> <span class="Delimiter">}</span> <span id="L566" class="LineNr">566 </span> <span class="muComment"># otherwise insert word after and move cursor to it</span> diff --git a/html/shell/environment.mu.html b/html/shell/environment.mu.html index 5b04be1b..1ed200c1 100644 --- a/html/shell/environment.mu.html +++ b/html/shell/environment.mu.html @@ -67,7 +67,7 @@ if ('onhashchange' in window) { <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># vim:textwidth&</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># It would be nice for tests to use a narrower screen than the standard 0x80 of</span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># 1024 pixels with 8px-wide graphemes. But it complicates rendering logic to</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># 1024 pixels with 8px-wide code-point-utf8s. But it complicates rendering logic to</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># make width configurable, so we just use longer lines than usual.</span> <span id="L7" class="LineNr"> 7 </span> <span id="L8" class="LineNr"> 8 </span><span class="PreProc">type</span> <a href='environment.mu.html#L8'>environment</a> <span class="Delimiter">{</span> @@ -158,7 +158,7 @@ if ('onhashchange' in window) { <span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> input-stream <span id="L94" class="LineNr"> 94 </span> compare done?, <span class="Constant">0</span>/false <span id="L95" class="LineNr"> 95 </span> <span class="PreProc">break-if-!=</span> -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> key/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> input-stream +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> key/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> input-stream <span id="L97" class="LineNr"> 97 </span> <a href='environment.mu.html#L148'>edit-environment</a> self, key, <span class="Constant">0</span>/no-disk <span id="L98" class="LineNr"> 98 </span> <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, self <span id="L99" class="LineNr"> 99 </span> <span class="PreProc">loop</span> @@ -210,7 +210,7 @@ if ('onhashchange' in window) { <span id="L145" class="LineNr"> 145 </span> <a href='sandbox.mu.html#L130'>render-sandbox-menu</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a> <span id="L146" class="LineNr"> 146 </span><span class="Delimiter">}</span> <span id="L147" class="LineNr"> 147 </span> -<span id="L148" class="LineNr"> 148 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L148'>edit-environment</a></span> _self: (addr <a href='environment.mu.html#L8'>environment</a>), key: grapheme, data-disk: (addr disk) <span class="Delimiter">{</span> +<span id="L148" class="LineNr"> 148 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L148'>edit-environment</a></span> _self: (addr <a href='environment.mu.html#L8'>environment</a>), key: code-point-utf8, data-disk: (addr disk) <span class="Delimiter">{</span> <span id="L149" class="LineNr"> 149 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='environment.mu.html#L8'>environment</a>) <span class="Special"><-</span> copy _self <span id="L150" class="LineNr"> 150 </span> <span class="PreProc">var</span> globals/<span class="muRegEdi">edi</span>: (addr <a href='global.mu.html#L1'>global-table</a>) <span class="Special"><-</span> get self, globals <span id="L151" class="LineNr"> 151 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="muRegEcx">ecx</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> get self, <a href='sandbox.mu.html#L1'>sandbox</a> @@ -930,7 +930,7 @@ if ('onhashchange' in window) { <span id="L865" class="LineNr"> 865 </span> <a href='../500fake-screen.mu.html#L432'>clear-rect</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, xmin, ymin, xmax, ymax, <span class="Constant">0xf</span>/bg=modal <span id="L866" class="LineNr"> 866 </span> add-to xmin, <span class="Constant">4</span> <span id="L867" class="LineNr"> 867 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, xmin, ymin -<span id="L868" class="LineNr"> 868 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"go to <a href='global.mu.html#L8'>global</a> (or leave blank to go to REPL)"</span>, xmax, <span class="Constant">8</span>/fg=dark-grey, <span class="Constant">0xf</span>/bg=modal +<span id="L868" class="LineNr"> 868 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"go to <a href='global.mu.html#L8'>global</a> (or leave blank to go to REPL)"</span>, xmax, <span class="Constant">8</span>/fg=dark-grey, <span class="Constant">0xf</span>/bg=modal <span id="L869" class="LineNr"> 869 </span> <span class="PreProc">var</span> partial-global-name-ah/eax: (addr handle <a href='../514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get self, partial-global-name <span id="L870" class="LineNr"> 870 </span> <span class="PreProc">var</span> _partial-global-name/eax: (addr <a href='../514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *partial-global-name-ah <span id="L871" class="LineNr"> 871 </span> <span class="PreProc">var</span> partial-global-name/<span class="muRegEdx">edx</span>: (addr <a href='../514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _partial-global-name @@ -941,7 +941,7 @@ if ('onhashchange' in window) { <span id="L876" class="LineNr"> 876 </span> <span class="PreProc">var</span> go-modal-error/eax: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *go-modal-error-ah <span id="L877" class="LineNr"> 877 </span> compare go-modal-error, <span class="Constant">0</span> <span id="L878" class="LineNr"> 878 </span> <span class="PreProc">break-if-=</span> -<span id="L879" class="LineNr"> 879 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, go-modal-error, xmin, xmax, ymin, <span class="Constant">4</span>/fg=<span class="Special"><a href='trace.mu.html#L197'>error</a></span>, <span class="Constant">0xf</span>/bg=modal +<span id="L879" class="LineNr"> 879 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, go-modal-error, xmin, xmax, ymin, <span class="Constant">4</span>/fg=<span class="Special"><a href='trace.mu.html#L197'>error</a></span>, <span class="Constant">0xf</span>/bg=modal <span id="L880" class="LineNr"> 880 </span> <span class="Delimiter">}</span> <span id="L881" class="LineNr"> 881 </span> increment ymin <span id="L882" class="LineNr"> 882 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> @@ -961,22 +961,22 @@ if ('onhashchange' in window) { <span id="L896" class="LineNr"> 896 </span> height <span class="Special"><-</span> increment <span id="L897" class="LineNr"> 897 </span> <a href='../500fake-screen.mu.html#L432'>clear-rect</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/x, y, width, height, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L898" class="LineNr"> 898 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/x, y -<span id="L899" class="LineNr"> 899 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^r "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L900" class="LineNr"> 900 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L901" class="LineNr"> 901 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" enter "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0xc</span>/bg=menu-really-highlight -<span id="L902" class="LineNr"> 902 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L903" class="LineNr"> 903 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^m "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0xc</span>/bg=menu-really-highlight -<span id="L904" class="LineNr"> 904 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" create "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L905" class="LineNr"> 905 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" esc "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L906" class="LineNr"> 906 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" cancel "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L907" class="LineNr"> 907 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^a "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L908" class="LineNr"> 908 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" << "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L909" class="LineNr"> 909 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^b "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L910" class="LineNr"> 910 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" <word "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L911" class="LineNr"> 911 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^f "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L912" class="LineNr"> 912 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" word> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L913" class="LineNr"> 913 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^e "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L914" class="LineNr"> 914 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" >> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L899" class="LineNr"> 899 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^r "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L900" class="LineNr"> 900 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L901" class="LineNr"> 901 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" enter "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0xc</span>/bg=menu-really-highlight +<span id="L902" class="LineNr"> 902 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L903" class="LineNr"> 903 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^m "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0xc</span>/bg=menu-really-highlight +<span id="L904" class="LineNr"> 904 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" create "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L905" class="LineNr"> 905 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" esc "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L906" class="LineNr"> 906 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" cancel "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L907" class="LineNr"> 907 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^a "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L908" class="LineNr"> 908 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" << "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L909" class="LineNr"> 909 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^b "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L910" class="LineNr"> 910 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" <word "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L911" class="LineNr"> 911 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^f "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L912" class="LineNr"> 912 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" word> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L913" class="LineNr"> 913 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^e "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L914" class="LineNr"> 914 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" >> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L915" class="LineNr"> 915 </span><span class="Delimiter">}</span> <span id="L916" class="LineNr"> 916 </span> <span id="L917" class="LineNr"> 917 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L917'>word-at-cursor</a></span> _self: (addr <a href='environment.mu.html#L8'>environment</a>), out: (addr stream byte) <span class="Delimiter">{</span> @@ -1017,18 +1017,18 @@ if ('onhashchange' in window) { <span id="L952" class="LineNr"> 952 </span> <span class="muComment"># data-disk -> stream</span> <span id="L953" class="LineNr"> 953 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x40000</span>) <span class="muComment"># space for 0x200/sectors</span> <span id="L954" class="LineNr"> 954 </span> <span class="PreProc">var</span> s/<span class="muRegEbx">ebx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage -<span id="L955" class="LineNr"> 955 </span> <a href='../501draw-text.mu.html#L339'>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="L955" class="LineNr"> 955 </span> <a href='../501draw-text.mu.html#L332'>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="L956" class="LineNr"> 956 </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="L957" class="LineNr"> 957 </span> <a href='../510disk.mu.html#L1'>load-sectors</a> data-disk, <span class="Constant">0</span>/lba, <span class="Constant">0x200</span>/sectors, s <span id="L958" class="LineNr"> 958 </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="L959" class="LineNr"> 959 </span> <span class="muComment"># stream -> gap-buffer (HACK: we temporarily cannibalize the sandbox's gap-buffer)</span> -<span id="L960" class="LineNr"> 960 </span> <a href='../501draw-text.mu.html#L339'>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="L960" class="LineNr"> 960 </span> <a href='../501draw-text.mu.html#L332'>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="L961" class="LineNr"> 961 </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="L962" class="LineNr"> 962 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/eax: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> get self, <a href='sandbox.mu.html#L1'>sandbox</a> <span id="L963" class="LineNr"> 963 </span> <span class="PreProc">var</span> data-ah/eax: (addr handle <a href='../514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get <a href='sandbox.mu.html#L1'>sandbox</a>, data <span id="L964" class="LineNr"> 964 </span> <span class="PreProc">var</span> data/eax: (addr <a href='../514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *data-ah <span id="L965" class="LineNr"> 965 </span> <a href='../514gap-buffer.mu.html#L67'>load-gap-buffer-from-stream</a> data, s -<span id="L966" class="LineNr"> 966 </span> <a href='../501draw-text.mu.html#L339'>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="L966" class="LineNr"> 966 </span> <a href='../501draw-text.mu.html#L332'>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="L967" class="LineNr"> 967 </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="L968" class="LineNr"> 968 </span> <a href='../106stream.subx.html#L20'>clear-stream</a> s <span id="L969" class="LineNr"> 969 </span> <span class="muComment"># read: gap-buffer -> cell</span> @@ -1038,7 +1038,7 @@ if ('onhashchange' in window) { <span id="L973" class="LineNr"> 973 </span> <span class="PreProc">var</span> trace/<span class="muRegEdi">edi</span>: (addr trace) <span class="Special"><-</span> address trace-storage <span id="L974" class="LineNr"> 974 </span> <a href='trace.mu.html#L61'>initialize-trace</a> trace, <span class="Constant">1</span>/only-errors, <span class="Constant">0x10</span>/capacity, <span class="Constant">0</span>/visible <span id="L975" class="LineNr"> 975 </span> <a href='read.mu.html#L1'>read-cell</a> data, initial-root, trace -<span id="L976" class="LineNr"> 976 </span> <a href='../501draw-text.mu.html#L339'>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="L976" class="LineNr"> 976 </span> <a href='../501draw-text.mu.html#L332'>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="L977" class="LineNr"> 977 </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="L978" class="LineNr"> 978 </span> <a href='../514gap-buffer.mu.html#L19'>clear-gap-buffer</a> data <span id="L979" class="LineNr"> 979 </span> <span class="muComment">#</span> @@ -1065,7 +1065,7 @@ if ('onhashchange' in window) { <span id="L1000" class="LineNr">1000 </span> <a href='global.mu.html#L30'>load-globals</a> globals-cell-ah, globals <span id="L1001" class="LineNr">1001 </span> <span class="Delimiter">}</span> <span id="L1002" class="LineNr">1002 </span> <span class="muComment"># sandbox = assoc(initial-root, 'sandbox)</span> -<span id="L1003" class="LineNr">1003 </span> <a href='../501draw-text.mu.html#L339'>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="L1003" class="LineNr">1003 </span> <a href='../501draw-text.mu.html#L332'>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="L1004" class="LineNr">1004 </span> <span class="PreProc">var</span> sandbox-literal-storage: (handle <a href='cell.mu.html#L1'>cell</a>) <span id="L1005" class="LineNr">1005 </span> <span class="PreProc">var</span> sandbox-literal-ah/eax: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address sandbox-literal-storage <span id="L1006" class="LineNr">1006 </span> <a href='cell.mu.html#L43'>new-symbol</a> sandbox-literal-ah, <span class="Constant">"sandbox"</span> diff --git a/html/shell/global.mu.html b/html/shell/global.mu.html index 4e24dccb..03896f4f 100644 --- a/html/shell/global.mu.html +++ b/html/shell/global.mu.html @@ -91,7 +91,7 @@ if ('onhashchange' in window) { <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='global.mu.html#L30'>load-globals</a></span> in: (addr handle <a href='cell.mu.html#L1'>cell</a>), self: (addr <a href='global.mu.html#L1'>global-table</a>) <span class="Delimiter">{</span> -<span id="L31" class="LineNr"> 31 </span> <a href='../501draw-text.mu.html#L339'>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="L31" class="LineNr"> 31 </span> <a href='../501draw-text.mu.html#L332'>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="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> remaining-ah/<span class="muRegEsi">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in <span id="L33" class="LineNr"> 33 </span> <span class="Delimiter">{</span> <span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> _remaining/eax: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *remaining-ah @@ -109,8 +109,8 @@ if ('onhashchange' in window) { <span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> _name-data/eax: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *name-data-ah <span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> name-data/<span class="muRegEdx">edx</span>: (addr stream byte) <span class="Special"><-</span> copy _name-data <span id="L48" class="LineNr"> 48 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> name-data -<span id="L49" class="LineNr"> 49 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" "</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg -<span id="L50" class="LineNr"> 50 </span> <a href='../501draw-text.mu.html#L295'>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="L49" class="LineNr"> 49 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" "</span>, <span class="Constant">3</span>/fg <span class="Constant">0</span>/bg +<span id="L50" class="LineNr"> 50 </span> <a href='../501draw-text.mu.html#L288'>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="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> value-ah/eax: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, right <span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> value/eax: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *value-ah <span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> value-data-ah/eax: (addr handle stream byte) <span class="Special"><-</span> get value, text-data @@ -277,23 +277,23 @@ if ('onhashchange' in window) { <span id="L214" class="LineNr">214 </span> height <span class="Special"><-</span> increment <span id="L215" class="LineNr">215 </span> <a href='../500fake-screen.mu.html#L432'>clear-rect</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/x, y, width, height, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L216" class="LineNr">216 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/x, y -<span id="L217" class="LineNr">217 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^r "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L218" class="LineNr">218 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L219" class="LineNr">219 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^s "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L220" class="LineNr">220 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L221" class="LineNr">221 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^g "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L222" class="LineNr">222 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go to "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L223" class="LineNr">223 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^a "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L224" class="LineNr">224 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" << "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L225" class="LineNr">225 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^b "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L226" class="LineNr">226 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" <word "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L227" class="LineNr">227 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^f "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L228" class="LineNr">228 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" word> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L229" class="LineNr">229 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^e "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L230" class="LineNr">230 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" >> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L217" class="LineNr">217 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^r "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L218" class="LineNr">218 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L219" class="LineNr">219 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^s "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L220" class="LineNr">220 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L221" class="LineNr">221 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^g "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L222" class="LineNr">222 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go to "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L223" class="LineNr">223 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^a "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L224" class="LineNr">224 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" << "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L225" class="LineNr">225 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^b "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L226" class="LineNr">226 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" <word "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L227" class="LineNr">227 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^f "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L228" class="LineNr">228 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" word> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L229" class="LineNr">229 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^e "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L230" class="LineNr">230 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" >> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg <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='global.mu.html#L233'>edit-globals</a></span> _self: (addr <a href='global.mu.html#L1'>global-table</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L233" class="LineNr">233 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='global.mu.html#L233'>edit-globals</a></span> _self: (addr <a href='global.mu.html#L1'>global-table</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='global.mu.html#L1'>global-table</a>) <span class="Special"><-</span> copy _self <span id="L235" class="LineNr">235 </span> <span class="muComment"># ctrl-s</span> <span id="L236" class="LineNr">236 </span> <span class="Delimiter">{</span> @@ -684,13 +684,13 @@ if ('onhashchange' in window) { <span id="L621" class="LineNr">621 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='global.mu.html#L8'>global</a>) <span class="Special"><-</span> copy _self <span id="L622" class="LineNr">622 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy _y <span id="L623" class="LineNr">623 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0x20</span> <span class="Constant">0x20</span> -<span id="L624" class="LineNr">624 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">4</span>/fg <span class="Constant">0</span>/bg +<span id="L624" class="LineNr">624 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">4</span>/fg <span class="Constant">0</span>/bg <span id="L625" class="LineNr">625 </span> <span class="Delimiter">{</span> <span id="L626" class="LineNr">626 </span> <span class="PreProc">var</span> name-ah/eax: (addr handle array byte) <span class="Special"><-</span> get self, name <span id="L627" class="LineNr">627 </span> <span class="PreProc">var</span> _name/eax: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *name-ah <span id="L628" class="LineNr">628 </span> <span class="PreProc">var</span> name/<span class="muRegEdx">edx</span>: (addr array byte) <span class="Special"><-</span> copy _name -<span id="L629" class="LineNr">629 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L139'>draw-text-rightward-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"define "</span>, x y, <span class="Constant">7</span>/fg=definition, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L630" class="LineNr">630 </span> x <span class="Special"><-</span> <a href='../501draw-text.mu.html#L139'>draw-text-rightward-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, name, x y, <span class="Constant">7</span>/fg=definition, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L629" class="LineNr">629 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L132'>draw-text-rightward-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"define "</span>, x y, <span class="Constant">7</span>/fg=definition, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L630" class="LineNr">630 </span> x <span class="Special"><-</span> <a href='../501draw-text.mu.html#L132'>draw-text-rightward-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, name, x y, <span class="Constant">7</span>/fg=definition, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L631" class="LineNr">631 </span> <span class="Delimiter">}</span> <span id="L632" class="LineNr">632 </span> y <span class="Special"><-</span> increment <span class="muComment"># skip definition line</span> <span id="L633" class="LineNr">633 </span> <span class="muComment"># y is now in pixels</span> diff --git a/html/shell/infix.mu.html b/html/shell/infix.mu.html index a38807a2..dc605e57 100644 --- a/html/shell/infix.mu.html +++ b/html/shell/infix.mu.html @@ -323,8 +323,8 @@ if ('onhashchange' in window) { <span id="L312" class="LineNr">312 </span> <span class="PreProc">var</span> buffer/<span class="muRegEdi">edi</span>: (addr <a href='../514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address buffer-storage <span id="L313" class="LineNr">313 </span> <a href='../514gap-buffer.mu.html#L11'>initialize-gap-buffer</a> buffer, <span class="Constant">0x40</span>/max-symbol-size <span id="L314" class="LineNr">314 </span> <span class="muComment"># scan for first non-$</span> -<span id="L315" class="LineNr">315 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> sym-data -<span id="L316" class="LineNr">316 </span> <a href='../514gap-buffer.mu.html#L440'>add-grapheme-at-gap</a> buffer, g +<span id="L315" class="LineNr">315 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> sym-data +<span id="L316" class="LineNr">316 </span> <a href='../514gap-buffer.mu.html#L440'>add-code-point-utf8-at-gap</a> buffer, g <span id="L317" class="LineNr">317 </span> <span class="Delimiter">{</span> <span id="L318" class="LineNr">318 </span> compare g, <span class="Constant">0x24</span>/dollar <span id="L319" class="LineNr">319 </span> <span class="PreProc">break-if-!=</span> @@ -334,28 +334,28 @@ if ('onhashchange' in window) { <span id="L323" class="LineNr">323 </span> <span class="PreProc">break-if-=</span> <span id="L324" class="LineNr">324 </span> <span class="PreProc">return</span> <span class="muComment"># symbol is all '$'s; do nothing</span> <span id="L325" class="LineNr">325 </span> <span class="Delimiter">}</span> -<span id="L326" class="LineNr">326 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> sym-data -<span id="L327" class="LineNr">327 </span> <a href='../514gap-buffer.mu.html#L440'>add-grapheme-at-gap</a> buffer, g +<span id="L326" class="LineNr">326 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> sym-data +<span id="L327" class="LineNr">327 </span> <a href='../514gap-buffer.mu.html#L440'>add-code-point-utf8-at-gap</a> buffer, g <span id="L328" class="LineNr">328 </span> <span class="PreProc">loop</span> <span id="L329" class="LineNr">329 </span> <span class="Delimiter">}</span> <span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> tokenization-needed?: boolean -<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> _operator-so-far?/eax: boolean <span class="Special"><-</span> <a href='infix.mu.html#L458'>operator-grapheme?</a> g +<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> _operator-so-far?/eax: boolean <span class="Special"><-</span> <a href='infix.mu.html#L458'>operator-code-point-utf8?</a> g <span id="L332" class="LineNr">332 </span> <span class="PreProc">var</span> operator-so-far?/<span class="muRegEcx">ecx</span>: boolean <span class="Special"><-</span> copy _operator-so-far? <span id="L333" class="LineNr">333 </span> <span class="Delimiter">{</span> <span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> sym-data <span id="L335" class="LineNr">335 </span> compare done?, <span class="Constant">0</span>/false <span id="L336" class="LineNr">336 </span> <span class="PreProc">break-if-!=</span> -<span id="L337" class="LineNr">337 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> sym-data +<span id="L337" class="LineNr">337 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> sym-data <span id="L338" class="LineNr">338 </span> <span class="Delimiter">{</span> -<span id="L339" class="LineNr">339 </span> <span class="PreProc">var</span> curr-operator?/eax: boolean <span class="Special"><-</span> <a href='infix.mu.html#L458'>operator-grapheme?</a> g +<span id="L339" class="LineNr">339 </span> <span class="PreProc">var</span> curr-operator?/eax: boolean <span class="Special"><-</span> <a href='infix.mu.html#L458'>operator-code-point-utf8?</a> g <span id="L340" class="LineNr">340 </span> compare curr-operator?, operator-so-far? <span id="L341" class="LineNr">341 </span> <span class="PreProc">break-if-=</span> <span id="L342" class="LineNr">342 </span> <span class="muComment"># state change; insert a space</span> -<span id="L343" class="LineNr">343 </span> <a href='../514gap-buffer.mu.html#L440'>add-grapheme-at-gap</a> buffer, <span class="Constant">0x20</span>/space +<span id="L343" class="LineNr">343 </span> <a href='../514gap-buffer.mu.html#L440'>add-code-point-utf8-at-gap</a> buffer, <span class="Constant">0x20</span>/space <span id="L344" class="LineNr">344 </span> operator-so-far? <span class="Special"><-</span> copy curr-operator? <span id="L345" class="LineNr">345 </span> copy-to tokenization-needed?, <span class="Constant">1</span>/true <span id="L346" class="LineNr">346 </span> <span class="Delimiter">}</span> -<span id="L347" class="LineNr">347 </span> <a href='../514gap-buffer.mu.html#L440'>add-grapheme-at-gap</a> buffer, g +<span id="L347" class="LineNr">347 </span> <a href='../514gap-buffer.mu.html#L440'>add-code-point-utf8-at-gap</a> buffer, g <span id="L348" class="LineNr">348 </span> <span class="PreProc">loop</span> <span id="L349" class="LineNr">349 </span> <span class="Delimiter">}</span> <span id="L350" class="LineNr">350 </span> compare tokenization-needed?, <span class="Constant">0</span>/false @@ -417,7 +417,7 @@ if ('onhashchange' in window) { <span id="L406" class="LineNr">406 </span> <span id="L407" class="LineNr">407 </span><span class="muComment"># helpers</span> <span id="L408" class="LineNr">408 </span> -<span id="L409" class="LineNr">409 </span><span class="muComment"># return true if x is composed entirely of operator graphemes, optionally prefixed with some '$'s</span> +<span id="L409" class="LineNr">409 </span><span class="muComment"># return true if x is composed entirely of operator code-point-utf8s, optionally prefixed with some '$'s</span> <span id="L410" class="LineNr">410 </span><span class="muComment"># some operator, some non-operator => pre-tokenized symbol; return false</span> <span id="L411" class="LineNr">411 </span><span class="muComment"># all '$'s => return false</span> <span id="L412" class="LineNr">412 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='infix.mu.html#L412'>operator-symbol?</a></span> _x: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> @@ -432,7 +432,7 @@ if ('onhashchange' in window) { <span id="L421" class="LineNr">421 </span> <span class="PreProc">var</span> _x-data/eax: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *x-data-ah <span id="L422" class="LineNr">422 </span> <span class="PreProc">var</span> x-data/<span class="muRegEsi">esi</span>: (addr stream byte) <span class="Special"><-</span> copy _x-data <span id="L423" class="LineNr">423 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> x-data -<span id="L424" class="LineNr">424 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> x-data +<span id="L424" class="LineNr">424 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> x-data <span id="L425" class="LineNr">425 </span> <span class="muComment"># special case: '$' is reserved for gensyms, and can work with either</span> <span id="L426" class="LineNr">426 </span> <span class="muComment"># operator or non-operator symbols.</span> <span id="L427" class="LineNr">427 </span> <span class="Delimiter">{</span> @@ -445,12 +445,12 @@ if ('onhashchange' in window) { <span id="L434" class="LineNr">434 </span> <span class="muComment"># '$', '$$', '$$$', etc. are regular symbols</span> <span id="L435" class="LineNr">435 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L436" class="LineNr">436 </span> <span class="Delimiter">}</span> -<span id="L437" class="LineNr">437 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> x-data +<span id="L437" class="LineNr">437 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> x-data <span id="L438" class="LineNr">438 </span> <span class="PreProc">loop</span> <span id="L439" class="LineNr">439 </span> <span class="Delimiter">}</span> <span id="L440" class="LineNr">440 </span> <span class="Delimiter">{</span> <span id="L441" class="LineNr">441 </span> <span class="Delimiter">{</span> -<span id="L442" class="LineNr">442 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='infix.mu.html#L458'>operator-grapheme?</a> g +<span id="L442" class="LineNr">442 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='infix.mu.html#L458'>operator-code-point-utf8?</a> g <span id="L443" class="LineNr">443 </span> compare result, <span class="Constant">0</span>/false <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 @@ -460,13 +460,13 @@ if ('onhashchange' in window) { <span id="L449" class="LineNr">449 </span> compare done?, <span class="Constant">0</span>/false <span id="L450" class="LineNr">450 </span> <span class="Delimiter">}</span> <span id="L451" class="LineNr">451 </span> <span class="PreProc">break-if-!=</span> -<span id="L452" class="LineNr">452 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> x-data +<span id="L452" class="LineNr">452 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> x-data <span id="L453" class="LineNr">453 </span> <span class="PreProc">loop</span> <span id="L454" class="LineNr">454 </span> <span class="Delimiter">}</span> <span id="L455" class="LineNr">455 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <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='infix.mu.html#L458'>operator-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L458" class="LineNr">458 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='infix.mu.html#L458'>operator-code-point-utf8?</a></span> g: code-point-utf8<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L459" class="LineNr">459 </span> <span class="muComment"># '$' is special and can be in either a symbol or operator; here we treat it as a symbol</span> <span id="L460" class="LineNr">460 </span> compare g, <span class="Constant">0x25</span>/percent <span id="L461" class="LineNr">461 </span> <span class="Delimiter">{</span> diff --git a/html/shell/main.mu.html b/html/shell/main.mu.html index 069feab7..d2af1b9a 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="PreProc">var</span> key/eax: byte <span class="Special"><-</span> <a href='../102keyboard.subx.html#L21'>read-key</a> keyboard <span id="L14" class="LineNr">14 </span> compare key, <span class="Constant">0</span> <span id="L15" class="LineNr">15 </span> <span class="PreProc">loop-if-=</span> -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> key/eax: grapheme <span class="Special"><-</span> copy key +<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> key/eax: code-point-utf8 <span class="Special"><-</span> copy key <span id="L17" class="LineNr">17 </span> <a href='environment.mu.html#L148'>edit-environment</a> env, key, data-disk <span id="L18" class="LineNr">18 </span> <span class="Delimiter">}</span> <span id="L19" class="LineNr">19 </span> <span class="PreProc">loop</span> diff --git a/html/shell/parenthesize.mu.html b/html/shell/parenthesize.mu.html index e48e748a..428fa28c 100644 --- a/html/shell/parenthesize.mu.html +++ b/html/shell/parenthesize.mu.html @@ -407,12 +407,12 @@ if ('onhashchange' in window) { <span id="L341" class="LineNr">341 </span> <span class="Delimiter">{</span> <span id="L342" class="LineNr">342 </span> <span class="PreProc">break-if-!=</span> <span id="L343" class="LineNr">343 </span> <span class="muComment"># actual empty, but expected not empty</span> -<span id="L344" class="LineNr">344 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, message, <span class="Constant">3</span>/fg=cyan <span class="Constant">0</span>/bg -<span id="L345" class="LineNr">345 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": too short\n"</span>, <span class="Constant">3</span>/fg=cyan <span class="Constant">0</span>/bg +<span id="L344" class="LineNr">344 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, message, <span class="Constant">3</span>/fg=cyan <span class="Constant">0</span>/bg +<span id="L345" class="LineNr">345 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": too short\n"</span>, <span class="Constant">3</span>/fg=cyan <span class="Constant">0</span>/bg <span id="L346" class="LineNr">346 </span> <a href='../104test.subx.html#L5'>count-test-failure</a> <span id="L347" class="LineNr">347 </span> <span class="PreProc">return</span> <span id="L348" class="LineNr">348 </span> <span class="Delimiter">}</span> -<span id="L349" class="LineNr">349 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L349" class="LineNr">349 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg <span id="L350" class="LineNr">350 </span> <span class="PreProc">return</span> <span id="L351" class="LineNr">351 </span> <span class="Delimiter">}</span> <span id="L352" class="LineNr">352 </span> <span class="PreProc">var</span> expected-done?/eax: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> expected @@ -420,8 +420,8 @@ if ('onhashchange' in window) { <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="muComment"># actual not empty, but expected empty</span> -<span id="L357" class="LineNr">357 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, message, <span class="Constant">3</span>/fg=cyan <span class="Constant">0</span>/bg -<span id="L358" class="LineNr">358 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": too long\n"</span>, <span class="Constant">3</span>/fg=cyan <span class="Constant">0</span>/bg +<span id="L357" class="LineNr">357 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, message, <span class="Constant">3</span>/fg=cyan <span class="Constant">0</span>/bg +<span id="L358" class="LineNr">358 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": too long\n"</span>, <span class="Constant">3</span>/fg=cyan <span class="Constant">0</span>/bg <span id="L359" class="LineNr">359 </span> <a href='../104test.subx.html#L5'>count-test-failure</a> <span id="L360" class="LineNr">360 </span> <span class="PreProc">return</span> <span id="L361" class="LineNr">361 </span> <span class="Delimiter">}</span> @@ -438,7 +438,7 @@ if ('onhashchange' in window) { <span id="L372" class="LineNr">372 </span> compare match?, <span class="Constant">0</span>/false <span id="L373" class="LineNr">373 </span> <span class="Delimiter">{</span> <span id="L374" class="LineNr">374 </span> <span class="PreProc">break-if-!=</span> -<span id="L375" class="LineNr">375 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, message, <span class="Constant">3</span>/fg=cyan <span class="Constant">0</span>/bg +<span id="L375" class="LineNr">375 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, message, <span class="Constant">3</span>/fg=cyan <span class="Constant">0</span>/bg <span id="L376" class="LineNr">376 </span> <a href='../104test.subx.html#L5'>count-test-failure</a> <span id="L377" class="LineNr">377 </span> <span class="PreProc">return</span> <span id="L378" class="LineNr">378 </span> <span class="Delimiter">}</span> diff --git a/html/shell/primitives.mu.html b/html/shell/primitives.mu.html index a885204d..07928a9a 100644 --- a/html/shell/primitives.mu.html +++ b/html/shell/primitives.mu.html @@ -142,51 +142,51 @@ if ('onhashchange' in window) { <span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> right-min/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy xmax <span id="L78" class="LineNr"> 78 </span> right-min <span class="Special"><-</span> subtract <span class="Constant">0x1e</span>/primitives-divider <span id="L79" class="LineNr"> 79 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, right-min, y -<span id="L80" class="LineNr"> 80 </span> <a href='../501draw-text.mu.html#L324'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"primitives"</span>, right-min, y, xmax, ymax, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L80" class="LineNr"> 80 </span> <a href='../501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"primitives"</span>, right-min, y, xmax, ymax, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L81" class="LineNr"> 81 </span> y <span class="Special"><-</span> increment <span id="L82" class="LineNr"> 82 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, right-min, y -<span id="L83" class="LineNr"> 83 </span> <a href='../501draw-text.mu.html#L324'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" fn <a href='evaluate.mu.html#L681'>apply</a> set if while"</span>, right-min, y, xmax, ymax, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L83" class="LineNr"> 83 </span> <a href='../501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" fn <a href='evaluate.mu.html#L681'>apply</a> set if while"</span>, right-min, y, xmax, ymax, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg <span id="L84" class="LineNr"> 84 </span> y <span class="Special"><-</span> increment <span id="L85" class="LineNr"> 85 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, right-min, y -<span id="L86" class="LineNr"> 86 </span> <a href='../501draw-text.mu.html#L324'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"booleans"</span>, right-min, y, xmax, ymax, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L86" class="LineNr"> 86 </span> <a href='../501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"booleans"</span>, right-min, y, xmax, ymax, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L87" class="LineNr"> 87 </span> y <span class="Special"><-</span> increment <span id="L88" class="LineNr"> 88 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, right-min, y -<span id="L89" class="LineNr"> 89 </span> <a href='../501draw-text.mu.html#L324'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" = and or not"</span>, right-min, y, xmax, ymax, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L89" class="LineNr"> 89 </span> <a href='../501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" = and or not"</span>, right-min, y, xmax, ymax, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg <span id="L90" class="LineNr"> 90 </span> y <span class="Special"><-</span> increment <span id="L91" class="LineNr"> 91 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, right-min, y -<span id="L92" class="LineNr"> 92 </span> <a href='../501draw-text.mu.html#L324'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"lists"</span>, right-min, y, xmax, ymax, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L92" class="LineNr"> 92 </span> <a href='../501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"lists"</span>, right-min, y, xmax, ymax, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L93" class="LineNr"> 93 </span> y <span class="Special"><-</span> increment <span id="L94" class="LineNr"> 94 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, right-min, y -<span id="L95" class="LineNr"> 95 </span> <a href='../501draw-text.mu.html#L324'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" cons <a href='evaluate.mu.html#L1237'>car</a> <a href='evaluate.mu.html#L1265'>cdr</a> no cons? len"</span>, right-min, y, xmax, ymax, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L95" class="LineNr"> 95 </span> <a href='../501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" cons <a href='evaluate.mu.html#L1237'>car</a> <a href='evaluate.mu.html#L1265'>cdr</a> no cons? len"</span>, right-min, y, xmax, ymax, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg <span id="L96" class="LineNr"> 96 </span> y <span class="Special"><-</span> increment <span id="L97" class="LineNr"> 97 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, right-min, y -<span id="L98" class="LineNr"> 98 </span> <a href='../501draw-text.mu.html#L324'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"numbers"</span>, right-min, y, xmax, ymax, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L98" class="LineNr"> 98 </span> <a href='../501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"numbers"</span>, right-min, y, xmax, ymax, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L99" class="LineNr"> 99 </span> y <span class="Special"><-</span> increment <span id="L100" class="LineNr"> 100 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, right-min, y -<span id="L101" class="LineNr"> 101 </span> <a href='../501draw-text.mu.html#L324'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" + - * / %"</span>, right-min, y, xmax, ymax, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L101" class="LineNr"> 101 </span> <a href='../501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" + - * / %"</span>, right-min, y, xmax, ymax, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg <span id="L102" class="LineNr"> 102 </span> y <span class="Special"><-</span> increment <span id="L103" class="LineNr"> 103 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, right-min, y -<span id="L104" class="LineNr"> 104 </span> <a href='../501draw-text.mu.html#L324'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" < > <= >="</span>, right-min, y, xmax, ymax, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L104" class="LineNr"> 104 </span> <a href='../501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" < > <= >="</span>, right-min, y, xmax, ymax, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg <span id="L105" class="LineNr"> 105 </span> y <span class="Special"><-</span> increment <span id="L106" class="LineNr"> 106 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, right-min, y -<span id="L107" class="LineNr"> 107 </span> <a href='../501draw-text.mu.html#L324'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" sqrt <a href='../506math.mu.html#L1'>abs</a> sgn"</span>, right-min, y, xmax, ymax, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L107" class="LineNr"> 107 </span> <a href='../501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" sqrt <a href='../506math.mu.html#L1'>abs</a> sgn"</span>, right-min, y, xmax, ymax, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg <span id="L108" class="LineNr"> 108 </span> y <span class="Special"><-</span> increment <span id="L109" class="LineNr"> 109 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, right-min, y -<span id="L110" class="LineNr"> 110 </span> <a href='../501draw-text.mu.html#L324'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"arrays"</span>, right-min, y, xmax, ymax, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L110" class="LineNr"> 110 </span> <a href='../501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"arrays"</span>, right-min, y, xmax, ymax, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L111" class="LineNr"> 111 </span> y <span class="Special"><-</span> increment <span id="L112" class="LineNr"> 112 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, right-min, y -<span id="L113" class="LineNr"> 113 </span> <a href='../501draw-text.mu.html#L324'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" array index iset len"</span>, right-min, y, xmax, ymax, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L113" class="LineNr"> 113 </span> <a href='../501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" array index iset len"</span>, right-min, y, xmax, ymax, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg <span id="L114" class="LineNr"> 114 </span> y <span class="Special"><-</span> increment <span id="L115" class="LineNr"> 115 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy right-min -<span id="L116" class="LineNr"> 116 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" populate"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L117" class="LineNr"> 117 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": int _ -> array"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L116" class="LineNr"> 116 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" populate"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L117" class="LineNr"> 117 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": int _ -> array"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L118" class="LineNr"> 118 </span> y <span class="Special"><-</span> increment <span id="L119" class="LineNr"> 119 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, right-min, y -<span id="L120" class="LineNr"> 120 </span> <a href='../501draw-text.mu.html#L324'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"images"</span>, right-min, y, xmax, ymax, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L120" class="LineNr"> 120 </span> <a href='../501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"images"</span>, right-min, y, xmax, ymax, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L121" class="LineNr"> 121 </span> y <span class="Special"><-</span> increment <span id="L122" class="LineNr"> 122 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy right-min -<span id="L123" class="LineNr"> 123 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" img"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L124" class="LineNr"> 124 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L16'>screen</a> stream x y w h"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L123" class="LineNr"> 123 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" img"</span>, tmpx, xmax, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L124" class="LineNr"> 124 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L16'>screen</a> stream x y w h"</span>, tmpx, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L125" class="LineNr"> 125 </span><span class="CommentedCode">#? {</span> <span id="L126" class="LineNr"> 126 </span><span class="CommentedCode">#? compare screen, 0</span> <span id="L127" class="LineNr"> 127 </span><span class="CommentedCode">#? break-if-!=</span> @@ -199,64 +199,64 @@ if ('onhashchange' in window) { <span id="L134" class="LineNr"> 134 </span> <span class="PreProc">var</span> left-max/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy xmax <span id="L135" class="LineNr"> 135 </span> left-max <span class="Special"><-</span> subtract <span class="Constant">0x20</span>/primitives-divider <span id="L136" class="LineNr"> 136 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L137" class="LineNr"> 137 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"cursor graphics"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L137" class="LineNr"> 137 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"cursor graphics"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L138" class="LineNr"> 138 </span> y <span class="Special"><-</span> increment <span id="L139" class="LineNr"> 139 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L140" class="LineNr"> 140 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" print"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L141" class="LineNr"> 141 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L16'>screen</a> _ -> _"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L140" class="LineNr"> 140 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" print"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L141" class="LineNr"> 141 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L16'>screen</a> _ -> _"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L142" class="LineNr"> 142 </span> y <span class="Special"><-</span> increment <span id="L143" class="LineNr"> 143 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L144" class="LineNr"> 144 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" lines columns"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L145" class="LineNr"> 145 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L16'>screen</a> -> number"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L144" class="LineNr"> 144 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" lines columns"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L145" class="LineNr"> 145 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L16'>screen</a> -> number"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L146" class="LineNr"> 146 </span> y <span class="Special"><-</span> increment <span id="L147" class="LineNr"> 147 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L148" class="LineNr"> 148 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" up down left right"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L149" class="LineNr"> 149 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": screen"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L148" class="LineNr"> 148 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" up down left right"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L149" class="LineNr"> 149 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": screen"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L150" class="LineNr"> 150 </span> y <span class="Special"><-</span> increment <span id="L151" class="LineNr"> 151 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L152" class="LineNr"> 152 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" cr"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L153" class="LineNr"> 153 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L16'>screen</a> "</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L154" class="LineNr"> 154 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"# move cursor down and to left margin"</span>, tmpx, left-max, y, <span class="Constant">0x38</span>/fg=trace, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L152" class="LineNr"> 152 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" cr"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L153" class="LineNr"> 153 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L16'>screen</a> "</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L154" class="LineNr"> 154 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"# move cursor down and to left margin"</span>, tmpx, left-max, y, <span class="Constant">0x38</span>/fg=trace, <span class="Constant">0xdc</span>/bg=green-bg <span id="L155" class="LineNr"> 155 </span> y <span class="Special"><-</span> increment <span id="L156" class="LineNr"> 156 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L157" class="LineNr"> 157 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"pixel graphics"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L157" class="LineNr"> 157 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"pixel graphics"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L158" class="LineNr"> 158 </span> y <span class="Special"><-</span> increment <span id="L159" class="LineNr"> 159 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L160" class="LineNr"> 160 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" circle bezier line hline vline pixel"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L160" class="LineNr"> 160 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" circle bezier line hline vline pixel"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg <span id="L161" class="LineNr"> 161 </span> y <span class="Special"><-</span> increment <span id="L162" class="LineNr"> 162 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L163" class="LineNr"> 163 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" width height"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L164" class="LineNr"> 164 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L16'>screen</a> -> number"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L163" class="LineNr"> 163 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" width height"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L164" class="LineNr"> 164 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": <a href='../500fake-screen.mu.html#L16'>screen</a> -> number"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L165" class="LineNr"> 165 </span> y <span class="Special"><-</span> increment <span id="L166" class="LineNr"> 166 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L167" class="LineNr"> 167 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" clear"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L168" class="LineNr"> 168 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": screen"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L167" class="LineNr"> 167 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" clear"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L168" class="LineNr"> 168 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": screen"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L169" class="LineNr"> 169 </span> y <span class="Special"><-</span> increment <span id="L170" class="LineNr"> 170 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L171" class="LineNr"> 171 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"input"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L171" class="LineNr"> 171 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"input"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L172" class="LineNr"> 172 </span> y <span class="Special"><-</span> increment <span id="L173" class="LineNr"> 173 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L174" class="LineNr"> 174 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" key"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L175" class="LineNr"> 175 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": keyboard -> grapheme?"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L174" class="LineNr"> 174 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" key"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L175" class="LineNr"> 175 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": keyboard -> code-point-utf8?"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L176" class="LineNr"> 176 </span> y <span class="Special"><-</span> increment <span id="L177" class="LineNr"> 177 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L178" class="LineNr"> 178 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"streams"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L178" class="LineNr"> 178 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"streams"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L179" class="LineNr"> 179 </span> y <span class="Special"><-</span> increment <span id="L180" class="LineNr"> 180 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L181" class="LineNr"> 181 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" stream"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L182" class="LineNr"> 182 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": -> stream "</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L181" class="LineNr"> 181 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" stream"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L182" class="LineNr"> 182 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": -> stream "</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L183" class="LineNr"> 183 </span> y <span class="Special"><-</span> increment <span id="L184" class="LineNr"> 184 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L185" class="LineNr"> 185 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" write"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L186" class="LineNr"> 186 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": stream grapheme -> stream"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L185" class="LineNr"> 185 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" write"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L186" class="LineNr"> 186 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": stream code-point-utf8 -> stream"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L187" class="LineNr"> 187 </span> y <span class="Special"><-</span> increment <span id="L188" class="LineNr"> 188 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L189" class="LineNr"> 189 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" rewind clear"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L190" class="LineNr"> 190 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": stream"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L189" class="LineNr"> 189 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" rewind clear"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L190" class="LineNr"> 190 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": stream"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L191" class="LineNr"> 191 </span> y <span class="Special"><-</span> increment <span id="L192" class="LineNr"> 192 </span> <span class="PreProc">var</span> tmpx/eax: int <span class="Special"><-</span> copy xmin -<span id="L193" class="LineNr"> 193 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" read"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg -<span id="L194" class="LineNr"> 194 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": stream -> grapheme"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L193" class="LineNr"> 193 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" read"</span>, tmpx, left-max, y, <span class="Constant">0x2a</span>/fg=orange, <span class="Constant">0xdc</span>/bg=green-bg +<span id="L194" class="LineNr"> 194 </span> tmpx <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">": stream -> code-point-utf8"</span>, tmpx, left-max, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xdc</span>/bg=green-bg <span id="L195" class="LineNr"> 195 </span><span class="Delimiter">}</span> <span id="L196" class="LineNr"> 196 </span> <span id="L197" class="LineNr"> 197 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='primitives.mu.html#L197'>primitive-global?</a></span> _x: (addr <a href='global.mu.html#L8'>global</a>)<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> @@ -1836,7 +1836,7 @@ if ('onhashchange' in window) { <span id="L1771" class="LineNr">1771 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) <span id="L1772" class="LineNr">1772 </span> <span class="PreProc">var</span> stream/<span class="muRegEdi">edi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage <span id="L1773" class="LineNr">1773 </span> <a href='print.mu.html#L7'>print-cell</a> second-ah, stream, trace -<span id="L1774" class="LineNr">1774 </span> <a href='../501draw-text.mu.html#L295'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, stream, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L1774" class="LineNr">1774 </span> <a href='../501draw-text.mu.html#L288'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, stream, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg <span id="L1775" class="LineNr">1775 </span> <span class="muComment"># return what was printed</span> <span id="L1776" class="LineNr">1776 </span> copy-object second-ah, out <span id="L1777" class="LineNr">1777 </span><span class="Delimiter">}</span> @@ -3121,7 +3121,7 @@ if ('onhashchange' in window) { <span id="L3056" class="LineNr">3056 </span> <span class="PreProc">return</span> result <span id="L3057" class="LineNr">3057 </span> <span class="Delimiter">}</span> <span id="L3058" class="LineNr">3058 </span> <span class="muComment"># otherwise read from fake keyboard</span> -<span id="L3059" class="LineNr">3059 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> keyboard +<span id="L3059" class="LineNr">3059 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> keyboard <span id="L3060" class="LineNr">3060 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> copy g <span id="L3061" class="LineNr">3061 </span> <span class="PreProc">return</span> result <span id="L3062" class="LineNr">3062 </span><span class="Delimiter">}</span> @@ -3186,14 +3186,14 @@ if ('onhashchange' in window) { <span id="L3121" class="LineNr">3121 </span> <span class="PreProc">var</span> second-type/eax: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> <span id="L3122" class="LineNr">3122 </span> compare *second-type, <span class="Constant">1</span>/number <span id="L3123" class="LineNr">3123 </span> <span class="PreProc">break-if-=</span> -<span id="L3124" class="LineNr">3124 </span> <span class="Special"><a href='trace.mu.html#L197'>error</a></span> trace, <span class="Constant">"second arg for 'write' is not a number/grapheme"</span> +<span id="L3124" class="LineNr">3124 </span> <span class="Special"><a href='trace.mu.html#L197'>error</a></span> trace, <span class="Constant">"second arg for 'write' is not a number/code-point-utf8"</span> <span id="L3125" class="LineNr">3125 </span> <span class="PreProc">return</span> <span id="L3126" class="LineNr">3126 </span> <span class="Delimiter">}</span> <span id="L3127" class="LineNr">3127 </span> <span class="PreProc">var</span> second-value/eax: (addr float) <span class="Special"><-</span> get second, number-data <span id="L3128" class="LineNr">3128 </span> <span class="PreProc">var</span> x-float/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *second-value <span id="L3129" class="LineNr">3129 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> convert x-float -<span id="L3130" class="LineNr">3130 </span> <span class="PreProc">var</span> x-grapheme/eax: grapheme <span class="Special"><-</span> copy x -<span id="L3131" class="LineNr">3131 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> stream-data, x-grapheme +<span id="L3130" class="LineNr">3130 </span> <span class="PreProc">var</span> x-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> copy x +<span id="L3131" class="LineNr">3131 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> stream-data, x-code-point-utf8 <span id="L3132" class="LineNr">3132 </span> <span class="muComment"># return the stream</span> <span id="L3133" class="LineNr">3133 </span> copy-object first-ah, out <span id="L3134" class="LineNr">3134 </span><span class="Delimiter">}</span> @@ -3267,8 +3267,8 @@ if ('onhashchange' in window) { <span id="L3202" class="LineNr">3202 </span> <span class="PreProc">var</span> _stream-data/eax: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *stream-data-ah <span id="L3203" class="LineNr">3203 </span> <span class="PreProc">var</span> stream-data/<span class="muRegEbx">ebx</span>: (addr stream byte) <span class="Special"><-</span> copy _stream-data <span id="L3204" class="LineNr">3204 </span><span class="CommentedCode">#? rewind-stream stream-data</span> -<span id="L3205" class="LineNr">3205 </span> <span class="PreProc">var</span> result-grapheme/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> stream-data -<span id="L3206" class="LineNr">3206 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> copy result-grapheme +<span id="L3205" class="LineNr">3205 </span> <span class="PreProc">var</span> result-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> stream-data +<span id="L3206" class="LineNr">3206 </span> <span class="PreProc">var</span> result/eax: int <span class="Special"><-</span> copy result-code-point-utf8 <span id="L3207" class="LineNr">3207 </span> <a href='cell.mu.html#L99'>new-integer</a> out, result <span id="L3208" class="LineNr">3208 </span><span class="Delimiter">}</span> <span id="L3209" class="LineNr">3209 </span> diff --git a/html/shell/print.mu.html b/html/shell/print.mu.html index 7be992ea..eee91eb7 100644 --- a/html/shell/print.mu.html +++ b/html/shell/print.mu.html @@ -230,7 +230,7 @@ if ('onhashchange' in window) { <span id="L167" class="LineNr">167 </span> <a href='print.mu.html#L7'>print-cell</a> in-ah, stream, trace <span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> d1/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> d2/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L170" class="LineNr">170 </span> d1, d2 <span class="Special"><-</span> <a href='../501draw-text.mu.html#L213'>draw-stream-wrapping-right-then-down</a> <span class="Constant">0</span>/screen, stream, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x80</span>/xmax, <span class="Constant">0x30</span>/ymax, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L170" class="LineNr">170 </span> d1, d2 <span class="Special"><-</span> <a href='../501draw-text.mu.html#L206'>draw-stream-wrapping-right-then-down</a> <span class="Constant">0</span>/screen, stream, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x80</span>/xmax, <span class="Constant">0x30</span>/ymax, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L171" class="LineNr">171 </span><span class="Delimiter">}</span> <span id="L172" class="LineNr">172 </span> <span id="L173" class="LineNr">173 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print.mu.html#L173'>dump-cell-from-cursor-over-full-screen</a></span> in-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), fg: int, bg: int <span class="Delimiter">{</span> @@ -240,7 +240,7 @@ if ('onhashchange' in window) { <span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> trace/<span class="muRegEdi">edi</span>: (addr trace) <span class="Special"><-</span> address trace-storage <span id="L178" class="LineNr">178 </span> <a href='trace.mu.html#L61'>initialize-trace</a> trace, <span class="Constant">1</span>/only-errors, <span class="Constant">0x10</span>/capacity, <span class="Constant">0</span>/visible <span id="L179" class="LineNr">179 </span> <a href='print.mu.html#L7'>print-cell</a> in-ah, stream, trace -<span id="L180" class="LineNr">180 </span> <a href='../501draw-text.mu.html#L295'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, stream, fg, bg +<span id="L180" class="LineNr">180 </span> <a href='../501draw-text.mu.html#L288'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, stream, fg, bg <span id="L181" class="LineNr">181 </span><span class="Delimiter">}</span> <span id="L182" class="LineNr">182 </span> <span id="L183" class="LineNr">183 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print.mu.html#L183'>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> diff --git a/html/shell/sandbox.mu.html b/html/shell/sandbox.mu.html index b5401bba..d2e7ad7b 100644 --- a/html/shell/sandbox.mu.html +++ b/html/shell/sandbox.mu.html @@ -184,9 +184,9 @@ if ('onhashchange' in window) { <span id="L119" class="LineNr"> 119 </span> compare done?, <span class="Constant">0</span>/false <span id="L120" class="LineNr"> 120 </span> <span class="PreProc">break-if-!=</span> <span id="L121" class="LineNr"> 121 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L122" class="LineNr"> 122 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L188'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"=> "</span>, xmin, y, xmax, ymax, xmin, y, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L122" class="LineNr"> 122 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L181'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"=> "</span>, xmin, y, xmax, ymax, xmin, y, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L123" class="LineNr"> 123 </span> <span class="PreProc">var</span> x2/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy x -<span id="L124" class="LineNr"> 124 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L124'>draw-stream-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, value, x2, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L124" class="LineNr"> 124 </span> <span class="PreProc">var</span> dummy/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L117'>draw-stream-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, value, x2, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L125" class="LineNr"> 125 </span> <span class="Delimiter">}</span> <span id="L126" class="LineNr"> 126 </span> y <span class="Special"><-</span> add <span class="Constant">2</span> <span class="muComment"># padding</span> <span id="L127" class="LineNr"> 127 </span> <a href='sandbox.mu.html#L198'>maybe-render-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, self, xmin, y @@ -252,7 +252,7 @@ if ('onhashchange' in window) { <span id="L187" class="LineNr"> 187 </span> <span class="PreProc">var</span> screen-obj-ah/eax: (addr handle <a href='../500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> get screen-obj-cell, screen-data <span id="L188" class="LineNr"> 188 </span> <span class="PreProc">var</span> _screen-obj/eax: (addr <a href='../500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *screen-obj-ah <span id="L189" class="LineNr"> 189 </span> <span class="PreProc">var</span> screen-obj/<span class="muRegEdx">edx</span>: (addr <a href='../500fake-screen.mu.html#L16'>screen</a>) <span class="Special"><-</span> copy _screen-obj -<span id="L190" class="LineNr"> 190 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>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="L190" class="LineNr"> 190 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>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="L191" class="LineNr"> 191 </span> x <span class="Special"><-</span> copy xmin <span id="L192" class="LineNr"> 192 </span> x <span class="Special"><-</span> add <span class="Constant">2</span> <span id="L193" class="LineNr"> 193 </span> y <span class="Special"><-</span> increment @@ -284,7 +284,7 @@ if ('onhashchange' in window) { <span id="L219" class="LineNr"> 219 </span> <span class="PreProc">break-if-=</span> <span id="L220" class="LineNr"> 220 </span> <span class="PreProc">return</span> <span id="L221" class="LineNr"> 221 </span> <span class="Delimiter">}</span> -<span id="L222" class="LineNr"> 222 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>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="L222" class="LineNr"> 222 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>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="L223" class="LineNr"> 223 </span> x <span class="Special"><-</span> copy xmin <span id="L224" class="LineNr"> 224 </span> x <span class="Special"><-</span> add <span class="Constant">2</span> <span id="L225" class="LineNr"> 225 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy ymin @@ -307,7 +307,7 @@ if ('onhashchange' in window) { <span id="L242" class="LineNr"> 242 </span> <span class="Delimiter">{</span> <span id="L243" class="LineNr"> 243 </span> compare x, *width <span id="L244" class="LineNr"> 244 </span> <span class="PreProc">break-if->=</span> -<span id="L245" class="LineNr"> 245 </span> <a href='../501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x20</span>/space, <span class="Constant">0x18</span>/fg, <span class="Constant">0</span>/bg +<span id="L245" class="LineNr"> 245 </span> <a href='../501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x20</span>/space, <span class="Constant">0x18</span>/fg, <span class="Constant">0</span>/bg <span id="L246" class="LineNr"> 246 </span> x <span class="Special"><-</span> increment <span id="L247" class="LineNr"> 247 </span> <span class="PreProc">loop</span> <span id="L248" class="LineNr"> 248 </span> <span class="Delimiter">}</span> @@ -418,7 +418,7 @@ if ('onhashchange' in window) { <span id="L353" class="LineNr"> 353 </span> <span class="PreProc">var</span> keyboard-obj/<span class="muRegEdx">edx</span>: (addr <a href='../514gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _keyboard-obj <span id="L354" class="LineNr"> 354 </span> <span class="PreProc">var</span> y/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy ymin <span id="L355" class="LineNr"> 355 </span> y <span class="Special"><-</span> increment <span class="muComment"># padding</span> -<span id="L356" class="LineNr"> 356 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>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="L356" class="LineNr"> 356 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>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="L357" class="LineNr"> 357 </span> <span class="PreProc">var</span> cursor-in-keyboard?/<span class="muRegEsi">esi</span>: (addr boolean) <span class="Special"><-</span> get self, cursor-in-keyboard? <span id="L358" class="LineNr"> 358 </span> y <span class="Special"><-</span> <a href='sandbox.mu.html#L363'>render-keyboard</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, keyboard-obj, x, y, *cursor-in-keyboard? <span id="L359" class="LineNr"> 359 </span> y <span class="Special"><-</span> increment <span class="muComment"># padding</span> @@ -451,7 +451,7 @@ if ('onhashchange' in window) { <span id="L386" class="LineNr"> 386 </span> <span class="PreProc">var</span> src-code-point/eax: (addr code-point) <span class="Special"><-</span> get src-cell, data <span id="L387" class="LineNr"> 387 </span> <span class="PreProc">var</span> src-color/<span class="muRegEcx">ecx</span>: (addr int) <span class="Special"><-</span> get src-cell, color <span id="L388" class="LineNr"> 388 </span> <span class="PreProc">var</span> src-background-color/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> get src-cell, background-color -<span id="L389" class="LineNr"> 389 </span> <a href='../501draw-text.mu.html#L91'>draw-code-point-at-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, *src-code-point, *src-color, *src-background-color +<span id="L389" class="LineNr"> 389 </span> <a href='../501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, *src-code-point, *src-color, *src-background-color <span id="L390" class="LineNr"> 390 </span><span class="Delimiter">}</span> <span id="L391" class="LineNr"> 391 </span> <span id="L392" class="LineNr"> 392 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L392'>render-sandbox-edit-menu</a></span> <a href='../500fake-screen.mu.html#L16'>screen</a>: (addr <a href='../500fake-screen.mu.html#L16'>screen</a>), _self: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Delimiter">{</span> @@ -465,33 +465,33 @@ if ('onhashchange' in window) { <span id="L400" class="LineNr"> 400 </span> height <span class="Special"><-</span> increment <span id="L401" class="LineNr"> 401 </span> <a href='../500fake-screen.mu.html#L432'>clear-rect</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/x, y, width, height, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L402" class="LineNr"> 402 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/x, y -<span id="L403" class="LineNr"> 403 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^r "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L404" class="LineNr"> 404 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L405" class="LineNr"> 405 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^s "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L406" class="LineNr"> 406 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L407" class="LineNr"> 407 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^g "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L408" class="LineNr"> 408 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go to "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L403" class="LineNr"> 403 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^r "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L404" class="LineNr"> 404 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L405" class="LineNr"> 405 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^s "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L406" class="LineNr"> 406 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L407" class="LineNr"> 407 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^g "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L408" class="LineNr"> 408 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go to "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L409" class="LineNr"> 409 </span> $render-sandbox-edit-menu:render-ctrl-m: <span class="Delimiter">{</span> <span id="L410" class="LineNr"> 410 </span> <span class="PreProc">var</span> self/eax: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self <span id="L411" class="LineNr"> 411 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L907'>has-trace?</a>/eax: boolean <span class="Special"><-</span> <a href='sandbox.mu.html#L907'>has-trace?</a> self <span id="L412" class="LineNr"> 412 </span> compare <a href='sandbox.mu.html#L907'>has-trace?</a>, <span class="Constant">0</span>/false <span id="L413" class="LineNr"> 413 </span> <span class="Delimiter">{</span> <span id="L414" class="LineNr"> 414 </span> <span class="PreProc">break-if-=</span> -<span id="L415" class="LineNr"> 415 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^m "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x38</span>/bg=trace -<span id="L416" class="LineNr"> 416 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" to trace "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L415" class="LineNr"> 415 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^m "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x38</span>/bg=trace +<span id="L416" class="LineNr"> 416 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" to trace "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L417" class="LineNr"> 417 </span> <span class="PreProc">break</span> $render-sandbox-edit-menu:render-ctrl-m <span id="L418" class="LineNr"> 418 </span> <span class="Delimiter">}</span> -<span id="L419" class="LineNr"> 419 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^m "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">3</span>/bg=keyboard -<span id="L420" class="LineNr"> 420 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>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="L419" class="LineNr"> 419 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^m "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">3</span>/bg=keyboard +<span id="L420" class="LineNr"> 420 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>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="L421" class="LineNr"> 421 </span> <span class="Delimiter">}</span> -<span id="L422" class="LineNr"> 422 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^a "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L423" class="LineNr"> 423 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" << "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L424" class="LineNr"> 424 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^b "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L425" class="LineNr"> 425 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" <word "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L426" class="LineNr"> 426 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^f "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L427" class="LineNr"> 427 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" word> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L428" class="LineNr"> 428 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^e "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L429" class="LineNr"> 429 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" >> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L422" class="LineNr"> 422 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^a "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L423" class="LineNr"> 423 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" << "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L424" class="LineNr"> 424 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^b "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L425" class="LineNr"> 425 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" <word "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L426" class="LineNr"> 426 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^f "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L427" class="LineNr"> 427 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" word> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L428" class="LineNr"> 428 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^e "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L429" class="LineNr"> 429 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" >> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L430" class="LineNr"> 430 </span><span class="Delimiter">}</span> <span id="L431" class="LineNr"> 431 </span> <span id="L432" class="LineNr"> 432 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L432'>render-keyboard-menu</a></span> <a href='../500fake-screen.mu.html#L16'>screen</a>: (addr <a href='../500fake-screen.mu.html#L16'>screen</a>) <span class="Delimiter">{</span> @@ -504,17 +504,17 @@ if ('onhashchange' in window) { <span id="L439" class="LineNr"> 439 </span> height <span class="Special"><-</span> increment <span id="L440" class="LineNr"> 440 </span> <a href='../500fake-screen.mu.html#L432'>clear-rect</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/x, y, width, height, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L441" class="LineNr"> 441 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/x, y -<span id="L442" class="LineNr"> 442 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^r "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L443" class="LineNr"> 443 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L444" class="LineNr"> 444 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^s "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L445" class="LineNr"> 445 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L446" class="LineNr"> 446 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^g "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L447" class="LineNr"> 447 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go to "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L448" class="LineNr"> 448 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^m "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">7</span>/bg -<span id="L449" class="LineNr"> 449 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" to <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="L442" class="LineNr"> 442 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^r "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L443" class="LineNr"> 443 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L444" class="LineNr"> 444 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^s "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L445" class="LineNr"> 445 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L446" class="LineNr"> 446 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^g "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L447" class="LineNr"> 447 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go to "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L448" class="LineNr"> 448 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^m "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">7</span>/bg +<span id="L449" class="LineNr"> 449 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" to <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="L450" class="LineNr"> 450 </span><span class="Delimiter">}</span> <span id="L451" class="LineNr"> 451 </span> -<span id="L452" class="LineNr"> 452 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L452'>edit-sandbox</a></span> _self: (addr <a href='sandbox.mu.html#L1'>sandbox</a>), key: grapheme, globals: (addr <a href='global.mu.html#L1'>global-table</a>), data-disk: (addr disk) <span class="Delimiter">{</span> +<span id="L452" class="LineNr"> 452 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L452'>edit-sandbox</a></span> _self: (addr <a href='sandbox.mu.html#L1'>sandbox</a>), key: code-point-utf8, globals: (addr <a href='global.mu.html#L1'>global-table</a>), data-disk: (addr disk) <span class="Delimiter">{</span> <span id="L453" class="LineNr"> 453 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self <span id="L454" class="LineNr"> 454 </span> <span class="muComment"># ctrl-s</span> <span id="L455" class="LineNr"> 455 </span> <span class="Delimiter">{</span> diff --git a/html/shell/tokenize.mu.html b/html/shell/tokenize.mu.html index 39478971..158a004b 100644 --- a/html/shell/tokenize.mu.html +++ b/html/shell/tokenize.mu.html @@ -493,13 +493,13 @@ if ('onhashchange' in window) { <span id="L429" class="LineNr"> 429 </span> <a href='tokenize.mu.html#L801'>next-indent-token</a> in, out, trace <span class="muComment"># might not be returned</span> <span id="L430" class="LineNr"> 430 </span> <span class="Delimiter">}</span> <span id="L431" class="LineNr"> 431 </span> <a href='../514gap-buffer.mu.html#L1189'>skip-spaces-from-gap-buffer</a> in -<span id="L432" class="LineNr"> 432 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in +<span id="L432" class="LineNr"> 432 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in <span id="L433" class="LineNr"> 433 </span> <span class="Delimiter">{</span> <span id="L434" class="LineNr"> 434 </span> compare g, <span class="Constant">0x23</span>/comment <span id="L435" class="LineNr"> 435 </span> <span class="PreProc">break-if-!=</span> <span id="L436" class="LineNr"> 436 </span> <a href='tokenize.mu.html#L788'>skip-rest-of-line</a> in <span id="L437" class="LineNr"> 437 </span> <span class="Delimiter">}</span> -<span id="L438" class="LineNr"> 438 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in +<span id="L438" class="LineNr"> 438 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in <span id="L439" class="LineNr"> 439 </span> <span class="Delimiter">{</span> <span id="L440" class="LineNr"> 440 </span> compare g, <span class="Constant">0xa</span>/newline <span id="L441" class="LineNr"> 441 </span> <span class="PreProc">break-if-!=</span> @@ -525,8 +525,8 @@ if ('onhashchange' in window) { <span id="L461" class="LineNr"> 461 </span> <a href='trace.mu.html#L250'>trace-higher</a> trace <span id="L462" class="LineNr"> 462 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/at-start-of-line <span id="L463" class="LineNr"> 463 </span> <span class="Delimiter">}</span> -<span id="L464" class="LineNr"> 464 </span> <span class="PreProc">var</span> _g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in -<span id="L465" class="LineNr"> 465 </span> <span class="PreProc">var</span> g/<span class="muRegEcx">ecx</span>: grapheme <span class="Special"><-</span> copy _g +<span id="L464" class="LineNr"> 464 </span> <span class="PreProc">var</span> _g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in +<span id="L465" class="LineNr"> 465 </span> <span class="PreProc">var</span> g/<span class="muRegEcx">ecx</span>: code-point-utf8 <span class="Special"><-</span> copy _g <span id="L466" class="LineNr"> 466 </span> <span class="Delimiter">{</span> <span id="L467" class="LineNr"> 467 </span> <span class="PreProc">var</span> <a href='trace.mu.html#L123'>should-trace?</a>/eax: boolean <span class="Special"><-</span> <a href='trace.mu.html#L123'>should-trace?</a> trace <span id="L468" class="LineNr"> 468 </span> compare <a href='trace.mu.html#L123'>should-trace?</a>, <span class="Constant">0</span>/false @@ -543,7 +543,7 @@ if ('onhashchange' in window) { <span id="L479" class="LineNr"> 479 </span> <span class="Delimiter">{</span> <span id="L480" class="LineNr"> 480 </span> compare g, <span class="Constant">0x22</span>/double-quote <span id="L481" class="LineNr"> 481 </span> <span class="PreProc">break-if-!=</span> -<span id="L482" class="LineNr"> 482 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in <span class="muComment"># skip</span> +<span id="L482" class="LineNr"> 482 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in <span class="muComment"># skip</span> <span id="L483" class="LineNr"> 483 </span> <a href='tokenize.mu.html#L680'>next-stream-token</a> in, out, trace <span id="L484" class="LineNr"> 484 </span> <span class="PreProc">break</span> $next-token:case <span id="L485" class="LineNr"> 485 </span> <span class="Delimiter">}</span> @@ -551,13 +551,13 @@ if ('onhashchange' in window) { <span id="L487" class="LineNr"> 487 </span> <span class="Delimiter">{</span> <span id="L488" class="LineNr"> 488 </span> compare g, <span class="Constant">0x5b</span>/open-square-bracket <span id="L489" class="LineNr"> 489 </span> <span class="PreProc">break-if-!=</span> -<span id="L490" class="LineNr"> 490 </span> <span class="PreProc">var</span> dummy/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in <span class="muComment"># skip open bracket</span> +<span id="L490" class="LineNr"> 490 </span> <span class="PreProc">var</span> dummy/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in <span class="muComment"># skip open bracket</span> <span id="L491" class="LineNr"> 491 </span> <a href='tokenize.mu.html#L718'>next-balanced-stream-token</a> in, out, trace <span id="L492" class="LineNr"> 492 </span> <span class="PreProc">break</span> $next-token:case <span id="L493" class="LineNr"> 493 </span> <span class="Delimiter">}</span> <span id="L494" class="LineNr"> 494 </span> <span class="muComment"># other symbol char</span> <span id="L495" class="LineNr"> 495 </span> <span class="Delimiter">{</span> -<span id="L496" class="LineNr"> 496 </span> <span class="PreProc">var</span> <a href='cell.mu.html#L48'>symbol?</a>/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L859'>symbol-grapheme?</a> g +<span id="L496" class="LineNr"> 496 </span> <span class="PreProc">var</span> <a href='cell.mu.html#L48'>symbol?</a>/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L859'>symbol-code-point-utf8?</a> g <span id="L497" class="LineNr"> 497 </span> compare <a href='cell.mu.html#L48'>symbol?</a>, <span class="Constant">0</span>/false <span id="L498" class="LineNr"> 498 </span> <span class="PreProc">break-if-=</span> <span id="L499" class="LineNr"> 499 </span> <a href='tokenize.mu.html#L572'>next-symbol-token</a> in, out, trace @@ -572,10 +572,10 @@ if ('onhashchange' in window) { <span id="L508" class="LineNr"> 508 </span> <span class="Delimiter">}</span> <span id="L509" class="LineNr"> 509 </span> <span class="muComment"># other brackets are always single-char tokens</span> <span id="L510" class="LineNr"> 510 </span> <span class="Delimiter">{</span> -<span id="L511" class="LineNr"> 511 </span> <span class="PreProc">var</span> bracket?/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L934'>bracket-grapheme?</a> g +<span id="L511" class="LineNr"> 511 </span> <span class="PreProc">var</span> bracket?/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L934'>bracket-code-point-utf8?</a> g <span id="L512" class="LineNr"> 512 </span> compare bracket?, <span class="Constant">0</span>/false <span id="L513" class="LineNr"> 513 </span> <span class="PreProc">break-if-=</span> -<span id="L514" class="LineNr"> 514 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in +<span id="L514" class="LineNr"> 514 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in <span id="L515" class="LineNr"> 515 </span> <a href='tokenize.mu.html#L767'>next-bracket-token</a> g, out, trace <span id="L516" class="LineNr"> 516 </span> <span class="PreProc">break</span> $next-token:case <span id="L517" class="LineNr"> 517 </span> <span class="Delimiter">}</span> @@ -583,7 +583,7 @@ if ('onhashchange' in window) { <span id="L519" class="LineNr"> 519 </span> <span class="Delimiter">{</span> <span id="L520" class="LineNr"> 520 </span> compare g, <span class="Constant">0x27</span>/single-quote <span id="L521" class="LineNr"> 521 </span> <span class="PreProc">break-if-!=</span> -<span id="L522" class="LineNr"> 522 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in <span class="muComment"># consume</span> +<span id="L522" class="LineNr"> 522 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in <span class="muComment"># consume</span> <span id="L523" class="LineNr"> 523 </span> <a href='tokenize.mu.html#L1151'>initialize-token</a> out, <span class="Constant">"'"</span> <span id="L524" class="LineNr"> 524 </span> <span class="PreProc">break</span> $next-token:case <span id="L525" class="LineNr"> 525 </span> <span class="Delimiter">}</span> @@ -591,7 +591,7 @@ if ('onhashchange' in window) { <span id="L527" class="LineNr"> 527 </span> <span class="Delimiter">{</span> <span id="L528" class="LineNr"> 528 </span> compare g, <span class="Constant">0x60</span>/backquote <span id="L529" class="LineNr"> 529 </span> <span class="PreProc">break-if-!=</span> -<span id="L530" class="LineNr"> 530 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in <span class="muComment"># consume</span> +<span id="L530" class="LineNr"> 530 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in <span class="muComment"># consume</span> <span id="L531" class="LineNr"> 531 </span> <a href='tokenize.mu.html#L1151'>initialize-token</a> out, <span class="Constant">"`"</span> <span id="L532" class="LineNr"> 532 </span> <span class="PreProc">break</span> $next-token:case <span id="L533" class="LineNr"> 533 </span> <span class="Delimiter">}</span> @@ -599,7 +599,7 @@ if ('onhashchange' in window) { <span id="L535" class="LineNr"> 535 </span> <span class="Delimiter">{</span> <span id="L536" class="LineNr"> 536 </span> compare g, <span class="Constant">0x2c</span>/comma <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> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in <span class="muComment"># consume</span> +<span id="L538" class="LineNr"> 538 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in <span class="muComment"># consume</span> <span id="L539" class="LineNr"> 539 </span> <span class="muComment"># check for unquote-splice</span> <span id="L540" class="LineNr"> 540 </span> <span class="Delimiter">{</span> <span id="L541" class="LineNr"> 541 </span> g <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in @@ -615,7 +615,7 @@ if ('onhashchange' in window) { <span id="L551" class="LineNr"> 551 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0x40</span> <span class="Constant">0x20</span> <span id="L552" class="LineNr"> 552 </span> <span class="Delimiter">{</span> <span id="L553" class="LineNr"> 553 </span> <span class="PreProc">var</span> foo/eax: int <span class="Special"><-</span> copy g -<span id="L554" class="LineNr"> 554 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, foo, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L554" class="LineNr"> 554 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, foo, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg <span id="L555" class="LineNr"> 555 </span> <span class="Delimiter">}</span> <span id="L556" class="LineNr"> 556 </span> <a href='../317abort.subx.html#L5'>abort</a> <span class="Constant">"unknown <a href='tokenize.mu.html#L3'>token</a> type"</span> <span id="L557" class="LineNr"> 557 </span> <span class="Delimiter">}</span> @@ -645,7 +645,7 @@ if ('onhashchange' in window) { <span id="L581" class="LineNr"> 581 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1022'>gap-buffer-scan-done?</a> in <span id="L582" class="LineNr"> 582 </span> compare done?, <span class="Constant">0</span>/false <span id="L583" class="LineNr"> 583 </span> <span class="PreProc">break-if-!=</span> -<span id="L584" class="LineNr"> 584 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in +<span id="L584" class="LineNr"> 584 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in <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> <a href='trace.mu.html#L123'>should-trace?</a>/eax: boolean <span class="Special"><-</span> <a href='trace.mu.html#L123'>should-trace?</a> trace @@ -661,14 +661,14 @@ if ('onhashchange' in window) { <span id="L597" class="LineNr"> 597 </span> <span class="Delimiter">}</span> <span id="L598" class="LineNr"> 598 </span> <span class="muComment"># if non-symbol, return</span> <span id="L599" class="LineNr"> 599 </span> <span class="Delimiter">{</span> -<span id="L600" class="LineNr"> 600 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L859'>symbol-grapheme?</a>/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L859'>symbol-grapheme?</a> g -<span id="L601" class="LineNr"> 601 </span> compare <a href='tokenize.mu.html#L859'>symbol-grapheme?</a>, <span class="Constant">0</span>/false +<span id="L600" class="LineNr"> 600 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L859'>symbol-code-point-utf8?</a>/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L859'>symbol-code-point-utf8?</a> g +<span id="L601" class="LineNr"> 601 </span> compare <a href='tokenize.mu.html#L859'>symbol-code-point-utf8?</a>, <span class="Constant">0</span>/false <span id="L602" class="LineNr"> 602 </span> <span class="PreProc">break-if-!=</span> <span id="L603" class="LineNr"> 603 </span> <a href='trace.mu.html#L185'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"stop"</span> <span id="L604" class="LineNr"> 604 </span> <span class="PreProc">break</span> $next-symbol-token:<span class="PreProc">loop</span> <span id="L605" class="LineNr"> 605 </span> <span class="Delimiter">}</span> -<span id="L606" class="LineNr"> 606 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in -<span id="L607" class="LineNr"> 607 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> out-data, g +<span id="L606" class="LineNr"> 606 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in +<span id="L607" class="LineNr"> 607 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> out-data, g <span id="L608" class="LineNr"> 608 </span> <span class="PreProc">loop</span> <span id="L609" class="LineNr"> 609 </span> <span class="Delimiter">}</span> <span id="L610" class="LineNr"> 610 </span> <a href='trace.mu.html#L250'>trace-higher</a> trace @@ -694,16 +694,16 @@ if ('onhashchange' in window) { <span id="L630" class="LineNr"> 630 </span> <span class="PreProc">var</span> _out-data/eax: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *out-data-ah <span id="L631" class="LineNr"> 631 </span> <span class="PreProc">var</span> out-data/<span class="muRegEdi">edi</span>: (addr stream byte) <span class="Special"><-</span> copy _out-data <span id="L632" class="LineNr"> 632 </span> $next-number-token:check-minus: <span class="Delimiter">{</span> -<span id="L633" class="LineNr"> 633 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in +<span id="L633" class="LineNr"> 633 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in <span id="L634" class="LineNr"> 634 </span> compare g, <span class="Constant">0x2d</span>/minus <span id="L635" class="LineNr"> 635 </span> g <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in <span class="muComment"># consume</span> -<span id="L636" class="LineNr"> 636 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> out-data, g +<span id="L636" class="LineNr"> 636 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> out-data, g <span id="L637" class="LineNr"> 637 </span> <span class="Delimiter">}</span> <span id="L638" class="LineNr"> 638 </span> $next-number-token:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> <span id="L639" class="LineNr"> 639 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1022'>gap-buffer-scan-done?</a> in <span id="L640" class="LineNr"> 640 </span> compare done?, <span class="Constant">0</span>/false <span id="L641" class="LineNr"> 641 </span> <span class="PreProc">break-if-!=</span> -<span id="L642" class="LineNr"> 642 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in +<span id="L642" class="LineNr"> 642 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in <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> <a href='trace.mu.html#L123'>should-trace?</a>/eax: boolean <span class="Special"><-</span> <a href='trace.mu.html#L123'>should-trace?</a> trace @@ -717,15 +717,15 @@ if ('onhashchange' in window) { <span id="L653" class="LineNr"> 653 </span> <a href='../117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, gval <span id="L654" class="LineNr"> 654 </span> trace trace, <span class="Constant">"tokenize"</span>, stream <span id="L655" class="LineNr"> 655 </span> <span class="Delimiter">}</span> -<span id="L656" class="LineNr"> 656 </span> <span class="muComment"># if not symbol grapheme, return</span> +<span id="L656" class="LineNr"> 656 </span> <span class="muComment"># if not symbol code-point-utf8, return</span> <span id="L657" class="LineNr"> 657 </span> <span class="Delimiter">{</span> -<span id="L658" class="LineNr"> 658 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L859'>symbol-grapheme?</a>/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L859'>symbol-grapheme?</a> g -<span id="L659" class="LineNr"> 659 </span> compare <a href='tokenize.mu.html#L859'>symbol-grapheme?</a>, <span class="Constant">0</span>/false +<span id="L658" class="LineNr"> 658 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L859'>symbol-code-point-utf8?</a>/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L859'>symbol-code-point-utf8?</a> g +<span id="L659" class="LineNr"> 659 </span> compare <a href='tokenize.mu.html#L859'>symbol-code-point-utf8?</a>, <span class="Constant">0</span>/false <span id="L660" class="LineNr"> 660 </span> <span class="PreProc">break-if-!=</span> <span id="L661" class="LineNr"> 661 </span> <a href='trace.mu.html#L185'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"stop"</span> <span id="L662" class="LineNr"> 662 </span> <span class="PreProc">break</span> $next-number-token:<span class="PreProc">loop</span> <span id="L663" class="LineNr"> 663 </span> <span class="Delimiter">}</span> -<span id="L664" class="LineNr"> 664 </span> <span class="muComment"># if not digit grapheme, abort</span> +<span id="L664" class="LineNr"> 664 </span> <span class="muComment"># if not digit code-point-utf8, abort</span> <span id="L665" class="LineNr"> 665 </span> <span class="Delimiter">{</span> <span id="L666" class="LineNr"> 666 </span> <span class="PreProc">var</span> digit?/eax: boolean <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L327'>decimal-digit?</a> g <span id="L667" class="LineNr"> 667 </span> compare digit?, <span class="Constant">0</span>/false @@ -734,8 +734,8 @@ if ('onhashchange' in window) { <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> <a href='trace.mu.html#L185'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"append"</span> -<span id="L673" class="LineNr"> 673 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in -<span id="L674" class="LineNr"> 674 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> out-data, g +<span id="L673" class="LineNr"> 673 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in +<span id="L674" class="LineNr"> 674 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> out-data, g <span id="L675" class="LineNr"> 675 </span> <span class="PreProc">loop</span> <span id="L676" class="LineNr"> 676 </span> <span class="Delimiter">}</span> <span id="L677" class="LineNr"> 677 </span> <a href='trace.mu.html#L250'>trace-higher</a> trace @@ -760,10 +760,10 @@ if ('onhashchange' in window) { <span id="L696" class="LineNr"> 696 </span> <span class="Special"><a href='trace.mu.html#L197'>error</a></span> trace, <span class="Constant">"unbalanced '\"</span>'" <span id="L697" class="LineNr"> 697 </span> <span class="PreProc">return</span> <span id="L698" class="LineNr"> 698 </span> <span class="Delimiter">}</span> -<span id="L699" class="LineNr"> 699 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in +<span id="L699" class="LineNr"> 699 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in <span id="L700" class="LineNr"> 700 </span> compare g, <span class="Constant">0x22</span>/double-quote <span id="L701" class="LineNr"> 701 </span> <span class="PreProc">break-if-=</span> -<span id="L702" class="LineNr"> 702 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> out-data, g +<span id="L702" class="LineNr"> 702 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> out-data, g <span id="L703" class="LineNr"> 703 </span> <span class="PreProc">loop</span> <span id="L704" class="LineNr"> 704 </span> <span class="Delimiter">}</span> <span id="L705" class="LineNr"> 705 </span> <span class="Delimiter">{</span> @@ -799,7 +799,7 @@ if ('onhashchange' in window) { <span id="L735" class="LineNr"> 735 </span> <span class="Special"><a href='trace.mu.html#L197'>error</a></span> trace, <span class="Constant">"unbalanced '['"</span> <span id="L736" class="LineNr"> 736 </span> <span class="PreProc">return</span> <span id="L737" class="LineNr"> 737 </span> <span class="Delimiter">}</span> -<span id="L738" class="LineNr"> 738 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in +<span id="L738" class="LineNr"> 738 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in <span id="L739" class="LineNr"> 739 </span> <span class="Delimiter">{</span> <span id="L740" class="LineNr"> 740 </span> compare g, <span class="Constant">0x5b</span>/open-square-bracket <span id="L741" class="LineNr"> 741 </span> <span class="PreProc">break-if-!=</span> @@ -812,7 +812,7 @@ if ('onhashchange' in window) { <span id="L748" class="LineNr"> 748 </span> <span class="PreProc">break-if-=</span> $next-balanced-stream-token:<span class="PreProc">loop</span> <span id="L749" class="LineNr"> 749 </span> decrement bracket-count <span id="L750" class="LineNr"> 750 </span> <span class="Delimiter">}</span> -<span id="L751" class="LineNr"> 751 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> out-data, g +<span id="L751" class="LineNr"> 751 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> out-data, g <span id="L752" class="LineNr"> 752 </span> <span class="PreProc">loop</span> <span id="L753" class="LineNr"> 753 </span> <span class="Delimiter">}</span> <span id="L754" class="LineNr"> 754 </span> <span class="Delimiter">{</span> @@ -828,14 +828,14 @@ if ('onhashchange' in window) { <span id="L764" class="LineNr"> 764 </span> <span class="Delimiter">}</span> <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="muFunction"><a href='tokenize.mu.html#L767'>next-bracket-token</a></span> g: grapheme, _out: (addr <a href='tokenize.mu.html#L3'>token</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L767" class="LineNr"> 767 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L767'>next-bracket-token</a></span> g: code-point-utf8, _out: (addr <a href='tokenize.mu.html#L3'>token</a>), trace: (addr trace) <span class="Delimiter">{</span> <span id="L768" class="LineNr"> 768 </span> <a href='trace.mu.html#L185'>trace-text</a> trace, <span class="Constant">"tokenize"</span>, <span class="Constant">"bracket"</span> <span id="L769" class="LineNr"> 769 </span> <span class="PreProc">var</span> out/eax: (addr <a href='tokenize.mu.html#L3'>token</a>) <span class="Special"><-</span> copy _out <span id="L770" class="LineNr"> 770 </span> <span class="PreProc">var</span> out-data-ah/eax: (addr handle stream byte) <span class="Special"><-</span> get out, text-data <span id="L771" class="LineNr"> 771 </span> populate-stream out-data-ah, <span class="Constant">0x40</span> <span id="L772" class="LineNr"> 772 </span> <span class="PreProc">var</span> _out-data/eax: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *out-data-ah <span id="L773" class="LineNr"> 773 </span> <span class="PreProc">var</span> out-data/<span class="muRegEdi">edi</span>: (addr stream byte) <span class="Special"><-</span> copy _out-data -<span id="L774" class="LineNr"> 774 </span> <a href='../403unicode.mu.html#L339'>write-grapheme</a> out-data, g +<span id="L774" class="LineNr"> 774 </span> <a href='../403unicode.mu.html#L389'>write-code-point-utf8</a> out-data, g <span id="L775" class="LineNr"> 775 </span> <span class="Delimiter">{</span> <span id="L776" class="LineNr"> 776 </span> <span class="PreProc">var</span> <a href='trace.mu.html#L123'>should-trace?</a>/eax: boolean <span class="Special"><-</span> <a href='trace.mu.html#L123'>should-trace?</a> trace <span id="L777" class="LineNr"> 777 </span> compare <a href='trace.mu.html#L123'>should-trace?</a>, <span class="Constant">0</span>/false @@ -854,7 +854,7 @@ if ('onhashchange' in window) { <span id="L790" class="LineNr"> 790 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1022'>gap-buffer-scan-done?</a> in <span id="L791" class="LineNr"> 791 </span> compare done?, <span class="Constant">0</span>/false <span id="L792" class="LineNr"> 792 </span> <span class="PreProc">break-if-!=</span> -<span id="L793" class="LineNr"> 793 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in +<span id="L793" class="LineNr"> 793 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in <span id="L794" class="LineNr"> 794 </span> compare g, <span class="Constant">0xa</span>/newline <span id="L795" class="LineNr"> 795 </span> <span class="PreProc">break-if-=</span> <span id="L796" class="LineNr"> 796 </span> g <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> in <span class="muComment"># consume</span> @@ -874,7 +874,7 @@ if ('onhashchange' in window) { <span id="L810" class="LineNr"> 810 </span> <span class="PreProc">var</span> done?/eax: boolean <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1022'>gap-buffer-scan-done?</a> in <span id="L811" class="LineNr"> 811 </span> compare done?, <span class="Constant">0</span>/false <span id="L812" class="LineNr"> 812 </span> <span class="PreProc">break-if-!=</span> -<span id="L813" class="LineNr"> 813 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in +<span id="L813" class="LineNr"> 813 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> in <span id="L814" class="LineNr"> 814 </span> <span class="Delimiter">{</span> <span id="L815" class="LineNr"> 815 </span> <span class="Delimiter">{</span> <span id="L816" class="LineNr"> 816 </span> <span class="PreProc">var</span> <a href='trace.mu.html#L123'>should-trace?</a>/eax: boolean <span class="Special"><-</span> <a href='trace.mu.html#L123'>should-trace?</a> trace @@ -908,7 +908,7 @@ if ('onhashchange' in window) { <span id="L844" class="LineNr"> 844 </span> <span class="Delimiter">}</span> <span id="L845" class="LineNr"> 845 </span><span class="Delimiter">}</span> <span id="L846" class="LineNr"> 846 </span> -<span id="L847" class="LineNr"> 847 </span><span class="muComment"># Mu carves up the space of graphemes into 4 categories:</span> +<span id="L847" class="LineNr"> 847 </span><span class="muComment"># Mu carves up the space of code-point-utf8s into 4 categories:</span> <span id="L848" class="LineNr"> 848 </span><span class="muComment"># whitespace</span> <span id="L849" class="LineNr"> 849 </span><span class="muComment"># quotes and unquotes (from a Lisp perspective; doesn't include double</span> <span id="L850" class="LineNr"> 850 </span><span class="muComment"># quotes or other Unicode quotes)</span> @@ -920,20 +920,20 @@ if ('onhashchange' in window) { <span id="L856" class="LineNr"> 856 </span><span class="muComment"># During tokenization operators and symbols are treated identically.</span> <span id="L857" class="LineNr"> 857 </span><span class="muComment"># A later phase digs into that nuance.</span> <span id="L858" class="LineNr"> 858 </span> -<span id="L859" class="LineNr"> 859 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L859'>symbol-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> -<span id="L860" class="LineNr"> 860 </span> <span class="PreProc">var</span> whitespace?/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L891'>whitespace-grapheme?</a> g +<span id="L859" class="LineNr"> 859 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L859'>symbol-code-point-utf8?</a></span> g: code-point-utf8<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L860" class="LineNr"> 860 </span> <span class="PreProc">var</span> whitespace?/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L891'>whitespace-code-point-utf8?</a> g <span id="L861" class="LineNr"> 861 </span> compare whitespace?, <span class="Constant">0</span>/false <span id="L862" class="LineNr"> 862 </span> <span class="Delimiter">{</span> <span id="L863" class="LineNr"> 863 </span> <span class="PreProc">break-if-=</span> <span id="L864" class="LineNr"> 864 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L865" class="LineNr"> 865 </span> <span class="Delimiter">}</span> -<span id="L866" class="LineNr"> 866 </span> <span class="PreProc">var</span> <a href='infix.mu.html#L545'>quote-or-unquote?</a>/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L910'>quote-or-unquote-grapheme?</a> g +<span id="L866" class="LineNr"> 866 </span> <span class="PreProc">var</span> <a href='infix.mu.html#L545'>quote-or-unquote?</a>/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L910'>quote-or-unquote-code-point-utf8?</a> g <span id="L867" class="LineNr"> 867 </span> compare <a href='infix.mu.html#L545'>quote-or-unquote?</a>, <span class="Constant">0</span>/false <span id="L868" class="LineNr"> 868 </span> <span class="Delimiter">{</span> <span id="L869" class="LineNr"> 869 </span> <span class="PreProc">break-if-=</span> <span id="L870" class="LineNr"> 870 </span> <span class="PreProc">return</span> <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">var</span> bracket?/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L934'>bracket-grapheme?</a> g +<span id="L872" class="LineNr"> 872 </span> <span class="PreProc">var</span> bracket?/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L934'>bracket-code-point-utf8?</a> g <span id="L873" class="LineNr"> 873 </span> compare bracket?, <span class="Constant">0</span>/false <span id="L874" class="LineNr"> 874 </span> <span class="Delimiter">{</span> <span id="L875" class="LineNr"> 875 </span> <span class="PreProc">break-if-=</span> @@ -952,7 +952,7 @@ if ('onhashchange' in window) { <span id="L888" class="LineNr"> 888 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L889" class="LineNr"> 889 </span><span class="Delimiter">}</span> <span id="L890" class="LineNr"> 890 </span> -<span id="L891" class="LineNr"> 891 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L891'>whitespace-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L891" class="LineNr"> 891 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L891'>whitespace-code-point-utf8?</a></span> g: code-point-utf8<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L892" class="LineNr"> 892 </span> compare g, <span class="Constant">9</span>/tab <span id="L893" class="LineNr"> 893 </span> <span class="Delimiter">{</span> <span id="L894" class="LineNr"> 894 </span> <span class="PreProc">break-if-!=</span> @@ -971,7 +971,7 @@ if ('onhashchange' in window) { <span id="L907" class="LineNr"> 907 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L908" class="LineNr"> 908 </span><span class="Delimiter">}</span> <span id="L909" class="LineNr"> 909 </span> -<span id="L910" class="LineNr"> 910 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L910'>quote-or-unquote-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L910" class="LineNr"> 910 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L910'>quote-or-unquote-code-point-utf8?</a></span> g: code-point-utf8<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L911" class="LineNr"> 911 </span> compare g, <span class="Constant">0x27</span>/single-quote <span id="L912" class="LineNr"> 912 </span> <span class="Delimiter">{</span> <span id="L913" class="LineNr"> 913 </span> <span class="PreProc">break-if-!=</span> @@ -995,7 +995,7 @@ if ('onhashchange' in window) { <span id="L931" class="LineNr"> 931 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L932" class="LineNr"> 932 </span><span class="Delimiter">}</span> <span id="L933" class="LineNr"> 933 </span> -<span id="L934" class="LineNr"> 934 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L934'>bracket-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L934" class="LineNr"> 934 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L934'>bracket-code-point-utf8?</a></span> g: code-point-utf8<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L935" class="LineNr"> 935 </span> compare g, <span class="Constant">0x28</span>/open-paren <span id="L936" class="LineNr"> 936 </span> <span class="Delimiter">{</span> <span id="L937" class="LineNr"> 937 </span> <span class="PreProc">break-if-!=</span> @@ -1035,12 +1035,12 @@ if ('onhashchange' in window) { <span id="L971" class="LineNr"> 971 </span> <span class="PreProc">var</span> _in-data/eax: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *in-data-ah <span id="L972" class="LineNr"> 972 </span> <span class="PreProc">var</span> in-data/<span class="muRegEcx">ecx</span>: (addr stream byte) <span class="Special"><-</span> copy _in-data <span id="L973" class="LineNr"> 973 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data -<span id="L974" class="LineNr"> 974 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> in-data +<span id="L974" class="LineNr"> 974 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> in-data <span id="L975" class="LineNr"> 975 </span> <span class="muComment"># if '-', read another</span> <span id="L976" class="LineNr"> 976 </span> <span class="Delimiter">{</span> <span id="L977" class="LineNr"> 977 </span> compare g, <span class="Constant">0x2d</span>/minus <span id="L978" class="LineNr"> 978 </span> <span class="PreProc">break-if-!=</span> -<span id="L979" class="LineNr"> 979 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> in-data +<span id="L979" class="LineNr"> 979 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> in-data <span id="L980" class="LineNr"> 980 </span> <span class="Delimiter">}</span> <span id="L981" class="LineNr"> 981 </span> <span class="Delimiter">{</span> <span id="L982" class="LineNr"> 982 </span> <span class="Delimiter">{</span> @@ -1054,7 +1054,7 @@ if ('onhashchange' in window) { <span id="L990" class="LineNr"> 990 </span> compare done?, <span class="Constant">0</span>/false <span id="L991" class="LineNr"> 991 </span> <span class="Delimiter">}</span> <span id="L992" class="LineNr"> 992 </span> <span class="PreProc">break-if-!=</span> -<span id="L993" class="LineNr"> 993 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> in-data +<span id="L993" class="LineNr"> 993 </span> g <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> in-data <span id="L994" class="LineNr"> 994 </span> <span class="PreProc">loop</span> <span id="L995" class="LineNr"> 995 </span> <span class="Delimiter">}</span> <span id="L996" class="LineNr"> 996 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true @@ -1072,8 +1072,8 @@ if ('onhashchange' in window) { <span id="L1008" class="LineNr">1008 </span> <span class="PreProc">var</span> in-data-ah/eax: (addr handle stream byte) <span class="Special"><-</span> get self, text-data <span id="L1009" class="LineNr">1009 </span> <span class="PreProc">var</span> in-data/eax: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *in-data-ah <span id="L1010" class="LineNr">1010 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data -<span id="L1011" class="LineNr">1011 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> in-data -<span id="L1012" class="LineNr">1012 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L934'>bracket-grapheme?</a> g +<span id="L1011" class="LineNr">1011 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> in-data +<span id="L1012" class="LineNr">1012 </span> <span class="PreProc">var</span> result/eax: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L934'>bracket-code-point-utf8?</a> g <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> @@ -1119,7 +1119,7 @@ if ('onhashchange' in window) { <span id="L1055" class="LineNr">1055 </span> <span class="PreProc">var</span> _in-data/eax: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *in-data-ah <span id="L1056" class="LineNr">1056 </span> <span class="PreProc">var</span> in-data/<span class="muRegEcx">ecx</span>: (addr stream byte) <span class="Special"><-</span> copy _in-data <span id="L1057" class="LineNr">1057 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data -<span id="L1058" class="LineNr">1058 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> in-data +<span id="L1058" class="LineNr">1058 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> in-data <span id="L1059" class="LineNr">1059 </span> compare g, <span class="Constant">0x28</span>/open-paren <span id="L1060" class="LineNr">1060 </span> <span class="Delimiter">{</span> <span id="L1061" class="LineNr">1061 </span> <span class="PreProc">break-if-!=</span> @@ -1135,7 +1135,7 @@ if ('onhashchange' in window) { <span id="L1071" class="LineNr">1071 </span> <span class="PreProc">var</span> _in-data/eax: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *in-data-ah <span id="L1072" class="LineNr">1072 </span> <span class="PreProc">var</span> in-data/<span class="muRegEcx">ecx</span>: (addr stream byte) <span class="Special"><-</span> copy _in-data <span id="L1073" class="LineNr">1073 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data -<span id="L1074" class="LineNr">1074 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> in-data +<span id="L1074" class="LineNr">1074 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> in-data <span id="L1075" class="LineNr">1075 </span> compare g, <span class="Constant">0x29</span>/close-paren <span id="L1076" class="LineNr">1076 </span> <span class="Delimiter">{</span> <span id="L1077" class="LineNr">1077 </span> <span class="PreProc">break-if-!=</span> @@ -1151,7 +1151,7 @@ if ('onhashchange' in window) { <span id="L1087" class="LineNr">1087 </span> <span class="PreProc">var</span> _in-data/eax: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *in-data-ah <span id="L1088" class="LineNr">1088 </span> <span class="PreProc">var</span> in-data/<span class="muRegEcx">ecx</span>: (addr stream byte) <span class="Special"><-</span> copy _in-data <span id="L1089" class="LineNr">1089 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data -<span id="L1090" class="LineNr">1090 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L236'>read-grapheme</a> in-data +<span id="L1090" class="LineNr">1090 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='../403unicode.mu.html#L229'>read-code-point-utf8</a> in-data <span id="L1091" class="LineNr">1091 </span> compare g, <span class="Constant">0x2e</span>/dot <span id="L1092" class="LineNr">1092 </span> <span class="Delimiter">{</span> <span id="L1093" class="LineNr">1093 </span> <span class="PreProc">break-if-!=</span> @@ -1277,16 +1277,16 @@ if ('onhashchange' in window) { <span id="L1213" class="LineNr">1213 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L1213'>dump-token-from-cursor</a></span> _t: (addr <a href='tokenize.mu.html#L3'>token</a>) <span class="Delimiter">{</span> <span id="L1214" class="LineNr">1214 </span> <span class="PreProc">var</span> t/<span class="muRegEsi">esi</span>: (addr <a href='tokenize.mu.html#L3'>token</a>) <span class="Special"><-</span> copy _t <span id="L1215" class="LineNr">1215 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/eax: (addr int) <span class="Special"><-</span> get t, <span class="PreProc">type</span> -<span id="L1216" class="LineNr">1216 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, *<span class="PreProc">type</span>, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg -<span id="L1217" class="LineNr">1217 </span> <a href='../501draw-text.mu.html#L339'>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">7</span>/fg <span class="Constant">0</span>/bg +<span id="L1216" class="LineNr">1216 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, *<span class="PreProc">type</span>, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L1217" class="LineNr">1217 </span> <a href='../501draw-text.mu.html#L332'>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">7</span>/fg <span class="Constant">0</span>/bg <span id="L1218" class="LineNr">1218 </span> <span class="PreProc">var</span> text-ah/eax: (addr handle stream byte) <span class="Special"><-</span> get t, text-data <span id="L1219" class="LineNr">1219 </span> <span class="PreProc">var</span> text/eax: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L235'>lookup</a> *text-ah <span id="L1220" class="LineNr">1220 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> text -<span id="L1221" class="LineNr">1221 </span> <a href='../501draw-text.mu.html#L295'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, text, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg -<span id="L1222" class="LineNr">1222 </span> <a href='../501draw-text.mu.html#L339'>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">7</span>/fg <span class="Constant">0</span>/bg +<span id="L1221" class="LineNr">1221 </span> <a href='../501draw-text.mu.html#L288'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, text, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L1222" class="LineNr">1222 </span> <a href='../501draw-text.mu.html#L332'>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">7</span>/fg <span class="Constant">0</span>/bg <span id="L1223" class="LineNr">1223 </span> <span class="PreProc">var</span> num/eax: (addr int) <span class="Special"><-</span> get t, number-data -<span id="L1224" class="LineNr">1224 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, *num, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg -<span id="L1225" class="LineNr">1225 </span> <a href='../501draw-text.mu.html#L339'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"\n"</span>, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L1224" class="LineNr">1224 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, *num, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg +<span id="L1225" class="LineNr">1225 </span> <a href='../501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"\n"</span>, <span class="Constant">7</span>/fg <span class="Constant">0</span>/bg <span id="L1226" class="LineNr">1226 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/shell/trace.mu.html b/html/shell/trace.mu.html index 863f622e..bcd71e4b 100644 --- a/html/shell/trace.mu.html +++ b/html/shell/trace.mu.html @@ -558,8 +558,8 @@ if ('onhashchange' in window) { <span id="L493" class="LineNr"> 493 </span> <span class="PreProc">break-if-<</span> $render-trace:render-depth <span id="L494" class="LineNr"> 494 </span> <span class="Delimiter">}</span> <span id="L495" class="LineNr"> 495 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0x70</span>/x, y -<span id="L496" class="LineNr"> 496 </span> <a href='../501draw-text.mu.html#L155'>draw-text-rightward-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"trace depth: "</span>, <span class="Constant">0x17</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L497" class="LineNr"> 497 </span> <a href='../501draw-text.mu.html#L449'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, *max-depth, <span class="Constant">0x7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L496" class="LineNr"> 496 </span> <a href='../501draw-text.mu.html#L148'>draw-text-rightward-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"trace depth: "</span>, <span class="Constant">0x17</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L497" class="LineNr"> 497 </span> <a href='../501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, *max-depth, <span class="Constant">0x7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L498" class="LineNr"> 498 </span> <span class="Delimiter">}</span> <span id="L499" class="LineNr"> 499 </span> <span class="PreProc">var</span> top-line-addr/<span class="muRegEdx">edx</span>: (addr int) <span class="Special"><-</span> get self, top-line-index <span id="L500" class="LineNr"> 500 </span> <span class="PreProc">var</span> i/<span class="muRegEdx">edx</span>: int <span class="Special"><-</span> copy *top-line-addr @@ -612,7 +612,7 @@ if ('onhashchange' in window) { <span id="L547" class="LineNr"> 547 </span> <span class="Delimiter">{</span> <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> x/eax: int <span class="Special"><-</span> copy xmin -<span id="L550" class="LineNr"> 550 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L188'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"..."</span>, xmin, ymin, xmax, ymax, x, y, fg, bg +<span id="L550" class="LineNr"> 550 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L181'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">"..."</span>, xmin, ymin, xmax, ymax, x, y, fg, bg <span id="L551" class="LineNr"> 551 </span> y <span class="Special"><-</span> increment <span id="L552" class="LineNr"> 552 </span> copy-to already-hiding-lines?, <span class="Constant">1</span>/true <span id="L553" class="LineNr"> 553 </span> <span class="Delimiter">}</span> @@ -655,8 +655,8 @@ if ('onhashchange' in window) { <span id="L590" class="LineNr"> 590 </span> <span class="PreProc">break-if-=</span> <span id="L591" class="LineNr"> 591 </span> <span class="PreProc">var</span> x/eax: int <span class="Special"><-</span> copy xsave <span id="L592" class="LineNr"> 592 </span> <span class="Delimiter">{</span> -<span id="L593" class="LineNr"> 593 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L401'>draw-int32-decimal-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, *depth-a, xmin, ymin, xmax, ymax, x, y, fg, bg -<span id="L594" class="LineNr"> 594 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L188'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" "</span>, xmin, ymin, xmax, ymax, x, y, fg, bg +<span id="L593" class="LineNr"> 593 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L394'>draw-int32-decimal-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, *depth-a, xmin, ymin, xmax, ymax, x, y, fg, bg +<span id="L594" class="LineNr"> 594 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L181'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" "</span>, xmin, ymin, xmax, ymax, x, y, fg, bg <span id="L595" class="LineNr"> 595 </span> <span class="muComment"># don't show label in UI; it's just for tests</span> <span id="L596" class="LineNr"> 596 </span> <span class="Delimiter">}</span> <span id="L597" class="LineNr"> 597 </span> xsave <span class="Special"><-</span> copy x @@ -668,12 +668,12 @@ if ('onhashchange' in window) { <span id="L603" class="LineNr"> 603 </span> compare unclip?, <span class="Constant">0</span>/false <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> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L188'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, data, xmin, ymin, xmax, ymax, x, y, fg, bg +<span id="L606" class="LineNr"> 606 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L181'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, data, xmin, ymin, xmax, ymax, x, y, fg, bg <span id="L607" class="LineNr"> 607 </span> <span class="Delimiter">}</span> <span id="L608" class="LineNr"> 608 </span> compare unclip?, <span class="Constant">0</span>/false <span id="L609" class="LineNr"> 609 </span> <span class="Delimiter">{</span> <span id="L610" class="LineNr"> 610 </span> <span class="PreProc">break-if-!=</span> -<span id="L611" class="LineNr"> 611 </span> x <span class="Special"><-</span> <a href='../501draw-text.mu.html#L113'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, data, x, xmax, y, fg, bg +<span id="L611" class="LineNr"> 611 </span> x <span class="Special"><-</span> <a href='../501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, data, x, xmax, y, fg, bg <span id="L612" class="LineNr"> 612 </span> <span class="Delimiter">}</span> <span id="L613" class="LineNr"> 613 </span> y <span class="Special"><-</span> increment <span id="L614" class="LineNr"> 614 </span> <span class="PreProc">return</span> y @@ -780,7 +780,7 @@ if ('onhashchange' in window) { <span id="L715" class="LineNr"> 715 </span> <span class="Delimiter">}</span> <span id="L716" class="LineNr"> 716 </span> <span class="PreProc">var</span> dummy1/eax: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L717" class="LineNr"> 717 </span> <span class="PreProc">var</span> dummy2/<span class="muRegEcx">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> -<span id="L718" class="LineNr"> 718 </span> dummy1, dummy2 <span class="Special"><-</span> <a href='../501draw-text.mu.html#L188'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>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="L718" class="LineNr"> 718 </span> dummy1, dummy2 <span class="Special"><-</span> <a href='../501draw-text.mu.html#L181'>draw-text-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L16'>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="L719" class="LineNr"> 719 </span><span class="Delimiter">}</span> <span id="L720" class="LineNr"> 720 </span> <span id="L721" class="LineNr"> 721 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L721'>test-render-trace-empty</a></span> <span class="Delimiter">{</span> @@ -957,19 +957,19 @@ if ('onhashchange' in window) { <span id="L892" class="LineNr"> 892 </span> height <span class="Special"><-</span> increment <span id="L893" class="LineNr"> 893 </span> <a href='../500fake-screen.mu.html#L432'>clear-rect</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/x, y, width, height, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L894" class="LineNr"> 894 </span> <a href='../500fake-screen.mu.html#L269'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">0</span>/x, y -<span id="L895" class="LineNr"> 895 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^r "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L896" class="LineNr"> 896 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L897" class="LineNr"> 897 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^g "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L898" class="LineNr"> 898 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go to "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L899" class="LineNr"> 899 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^m "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">3</span>/bg=keyboard -<span id="L900" class="LineNr"> 900 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>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="L901" class="LineNr"> 901 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" enter/bksp "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L902" class="LineNr"> 902 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" <a href='trace.mu.html#L985'>expand</a>/collapse "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg -<span id="L903" class="LineNr"> 903 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^s "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight -<span id="L904" class="LineNr"> 904 </span> <a href='../501draw-text.mu.html#L147'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" show whole line "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L895" class="LineNr"> 895 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^r "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L896" class="LineNr"> 896 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" run <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="L897" class="LineNr"> 897 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^g "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L898" class="LineNr"> 898 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" go to "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L899" class="LineNr"> 899 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^m "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">3</span>/bg=keyboard +<span id="L900" class="LineNr"> 900 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>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="L901" class="LineNr"> 901 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" enter/bksp "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L902" class="LineNr"> 902 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" <a href='trace.mu.html#L985'>expand</a>/collapse "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg +<span id="L903" class="LineNr"> 903 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" ^s "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">0x5c</span>/bg=menu-highlight +<span id="L904" class="LineNr"> 904 </span> <a href='../501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L16'>screen</a>, <span class="Constant">" show whole line "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0xc5</span>/bg=blue-bg <span id="L905" class="LineNr"> 905 </span><span class="Delimiter">}</span> <span id="L906" class="LineNr"> 906 </span> -<span id="L907" class="LineNr"> 907 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L907'>edit-trace</a></span> _self: (addr trace), key: grapheme <span class="Delimiter">{</span> +<span id="L907" class="LineNr"> 907 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L907'>edit-trace</a></span> _self: (addr trace), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L908" class="LineNr"> 908 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr trace) <span class="Special"><-</span> copy _self <span id="L909" class="LineNr"> 909 </span> <span class="muComment"># cursor down</span> <span id="L910" class="LineNr"> 910 </span> <span class="Delimiter">{</span> diff --git a/html/signatures.mu.html b/html/signatures.mu.html new file mode 100644 index 00000000..bead3889 --- /dev/null +++ b/html/signatures.mu.html @@ -0,0 +1,380 @@ +<!DOCTYPE html> +<html> +<head> +<meta charset="UTF-8"> +<title>Mu - signatures.mu</title> +<meta name="Generator" content="Vim/8.2"> +<meta name="plugin-version" content="vim8.1_v2"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> +<meta name="colorscheme" content="minimal-light"> +<style> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #ffffd7; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } +.muRegEsi { color: #005faf; } +.muRegEbx { color: #5f00ff; } +.Constant { color: #008787; } +.muRegEdi { color: #00af00; } +.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } +.Special { color: #ff6060; } +.muComment { color: #005faf; } +--> +</style> + +<script> +<!-- + +/* 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/signatures.mu'>https://github.com/akkartik/mu/blob/main/signatures.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </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="L2" class="LineNr"> 2 </span><span class="PreProc">sig</span> <a href='103glyph.subx.html#L19'>draw-code-point-on-real-screen</a> c: code-point, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int +<span id="L3" class="LineNr"> 3 </span><span class="PreProc">sig</span> <a href='103glyph.subx.html#L31'>overlay-code-point-on-real-screen</a> c: code-point, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int +<span id="L4" class="LineNr"> 4 </span><span class="PreProc">sig</span> <a href='103glyph.subx.html#L43'>draw-code-point-on-screen-array</a> screen-data: (addr array byte), c: code-point, x: int, y: int, color: int, background-color: int, screen-width: int, screen-height: int<span class="PreProc"> -> </span>_/eax: int +<span id="L5" class="LineNr"> 5 </span><span class="PreProc">sig</span> <a href='103glyph.subx.html#L127'>wide-code-point?</a> c: code-point<span class="PreProc"> -> </span>_/eax: boolean +<span id="L6" class="LineNr"> 6 </span><span class="PreProc">sig</span> <a href='103glyph.subx.html#L157'>combining-code-point?</a> c: code-point<span class="PreProc"> -> </span>_/eax: boolean +<span id="L7" class="LineNr"> 7 </span><span class="PreProc">sig</span> <a href='103glyph.subx.html#L341'>cursor-position-on-real-screen</a><span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L8" class="LineNr"> 8 </span><span class="PreProc">sig</span> <a href='103glyph.subx.html#L354'>set-cursor-position-on-real-screen</a> x: int, y: int +<span id="L9" class="LineNr"> 9 </span><span class="PreProc">sig</span> <a href='103glyph.subx.html#L379'>draw-cursor-on-real-screen</a> c: code-point +<span id="L10" class="LineNr"> 10 </span><span class="PreProc">sig</span> <a href='316colors.subx.html#L7'>color-rgb</a> color: int<span class="PreProc"> -> </span>_/<span class="muRegEcx">ecx</span>: int, _/<span class="muRegEdx">edx</span>: int, _/<span class="muRegEbx">ebx</span>: int +<span id="L11" class="LineNr"> 11 </span><span class="PreProc">sig</span> <a href='319timer.subx.html#L3'>timer-counter</a><span class="PreProc"> -> </span>_/eax: int +<span id="L12" class="LineNr"> 12 </span><span class="PreProc">sig</span> <a href='102keyboard.subx.html#L21'>read-key</a> kbd: (addr keyboard)<span class="PreProc"> -> </span>_/eax: byte +<span id="L13" class="LineNr"> 13 </span><span class="PreProc">sig</span> <a href='boot.subx.html#L762'>read-ata-disk</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#L831'>write-ata-disk</a> disk: (addr disk), lba: int, n: int, out: (addr stream byte) +<span id="L15" class="LineNr"> 15 </span><span class="PreProc">sig</span> <a href='boot.subx.html#L1237'>read-mouse-event</a><span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L16" class="LineNr"> 16 </span><span class="PreProc">sig</span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L17" class="LineNr"> 17 </span><span class="PreProc">sig</span> <a href='104test.subx.html#L17'>num-test-failures</a><span class="PreProc"> -> </span>_/eax: int +<span id="L18" class="LineNr"> 18 </span><span class="PreProc">sig</span> <a href='104test.subx.html#L29'>running-tests?</a><span class="PreProc"> -> </span>_/eax: boolean +<span id="L19" class="LineNr"> 19 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L8'>string-equal?</a> s: (addr array byte), benchmark: (addr array byte)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L20" class="LineNr"> 20 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L50'>string-starts-with?</a> s: (addr array byte), benchmark: (addr array byte)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L21" class="LineNr"> 21 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> s: (addr array byte), expected: (addr array byte), msg: (addr array byte) +<span id="L22" class="LineNr"> 22 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L5'>check-stack</a> +<span id="L23" class="LineNr"> 23 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L26'>show-stack-state</a> +<span id="L24" class="LineNr"> 24 </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="L25" class="LineNr"> 25 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L84'>debug-print?</a><span class="PreProc"> -> </span>_/eax: boolean +<span id="L26" class="LineNr"> 26 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L96'>turn-on-debug-print</a> +<span id="L27" class="LineNr"> 27 </span><span class="PreProc">sig</span> <a href='315stack-debug.subx.html#L108'>turn-off-debug-print</a> +<span id="L28" class="LineNr"> 28 </span><span class="PreProc">sig</span> <a href='317abort.subx.html#L5'>abort</a> e: (addr array byte) +<span id="L29" class="LineNr"> 29 </span><span class="PreProc">sig</span> <a href='317abort.subx.html#L21'>dump-call-stack</a> +<span id="L30" class="LineNr"> 30 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L78'>heap-bound</a><span class="PreProc"> -> </span>_/eax: int +<span id="L31" class="LineNr"> 31 </span><span class="PreProc">sig</span> <a href='318debug-counter.subx.html#L5'>count-event</a> +<span id="L32" class="LineNr"> 32 </span><span class="PreProc">sig</span> <a href='318debug-counter.subx.html#L17'>count-of-events</a><span class="PreProc"> -> </span>_/eax: int +<span id="L33" class="LineNr"> 33 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L20'>clear-stream</a> f: (addr stream _) +<span id="L34" class="LineNr"> 34 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L59'>rewind-stream</a> f: (addr stream _) +<span id="L35" class="LineNr"> 35 </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>_/eax: boolean +<span id="L36" class="LineNr"> 36 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L211'>streams-data-equal?</a> a: (addr stream byte), b: (addr stream byte)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L37" class="LineNr"> 37 </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="L38" class="LineNr"> 38 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L300'>check-streams-data-equal</a> s: (addr stream _), expected: (addr stream _), msg: (addr array byte) +<span id="L39" class="LineNr"> 39 </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>_/eax: boolean +<span id="L40" class="LineNr"> 40 </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="L41" class="LineNr"> 41 </span><span class="PreProc">sig</span> <a href='108write.subx.html#L11'>write</a> f: (addr stream byte), s: (addr array byte) +<span id="L42" class="LineNr"> 42 </span><span class="PreProc">sig</span> <a href='108write.subx.html#L138'>try-write</a> f: (addr stream byte), s: (addr array byte)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L43" class="LineNr"> 43 </span><span class="PreProc">sig</span> <a href='108write.subx.html#L194'>stream-size</a> f: (addr stream byte)<span class="PreProc"> -> </span>_/eax: int +<span id="L44" class="LineNr"> 44 </span><span class="PreProc">sig</span> <a href='108write.subx.html#L176'>space-remaining-in-stream</a> f: (addr stream byte)<span class="PreProc"> -> </span>_/eax: int +<span id="L45" class="LineNr"> 45 </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="L46" class="LineNr"> 46 </span><span class="PreProc">sig</span> <a href='113write-stream.subx.html#L163'>write-stream-immutable</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>_/eax: byte +<span id="L48" class="LineNr"> 48 </span><span class="PreProc">sig</span> <a href='112read-byte.subx.html#L47'>peek-byte</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: byte +<span id="L49" class="LineNr"> 49 </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="L50" class="LineNr"> 50 </span><span class="PreProc">sig</span> <a href='115write-byte.subx.html#L79'>undo-append-byte</a> f: (addr stream byte) <span class="muComment"># take most recent append back out</span> +<span id="L51" class="LineNr"> 51 </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="L52" class="LineNr"> 52 </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="L53" class="LineNr"> 53 </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="L54" class="LineNr"> 54 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L9'>hex-int?</a> in: (addr slice)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L55" class="LineNr"> 55 </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>_/eax: int +<span id="L56" class="LineNr"> 56 </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>_/eax: int +<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>_/eax: boolean +<span id="L58" class="LineNr"> 58 </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>_/eax: int +<span id="L59" class="LineNr"> 59 </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>_/eax: int +<span id="L60" class="LineNr"> 60 </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>_/eax: int +<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>_/eax: int +<span id="L62" class="LineNr"> 62 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L235'>lookup</a> h: (handle _T)<span class="PreProc"> -> </span>_/eax: (addr _T) +<span id="L63" class="LineNr"> 63 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L460'>handle-equal?</a> a: (handle _T), b: (handle _T)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L64" class="LineNr"> 64 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L491'>copy-handle</a> src: (handle _T), dest: (addr handle _T) +<span id="L65" class="LineNr"> 65 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L702'>copy-array</a> ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T) +<span id="L66" class="LineNr"> 66 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L9'>slice-empty?</a> s: (addr slice)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L67" class="LineNr"> 67 </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>_/eax: boolean +<span id="L68" class="LineNr"> 68 </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>_/eax: boolean +<span id="L69" class="LineNr"> 69 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L793'>write-slice</a> out: (addr stream byte), s: (addr slice) +<span id="L70" class="LineNr"> 70 </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="L71" class="LineNr"> 71 </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="L72" class="LineNr"> 72 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L327'>decimal-digit?</a> c: code-point-utf8<span class="PreProc"> -> </span>_/eax: boolean +<span id="L73" class="LineNr"> 73 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L426'>to-decimal-digit</a> in: code-point-utf8<span class="PreProc"> -> </span>_/eax: int +<span id="L74" class="LineNr"> 74 </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"># merges '#' comments into a single word</span> +<span id="L75" class="LineNr"> 75 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L321'>next-raw-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># does not merge '#' comments</span> +<span id="L76" class="LineNr"> 76 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L188'>skip-chars-matching</a> in: (addr stream byte), delimiter: byte +<span id="L77" class="LineNr"> 77 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L311'>skip-chars-matching-whitespace</a> in: (addr stream byte) +<span id="L78" class="LineNr"> 78 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L401'>skip-chars-not-matching</a> in: (addr stream byte), delimiter: byte +<span id="L79" class="LineNr"> 79 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L563'>skip-chars-not-matching-whitespace</a> in: (addr stream byte) +<span id="L80" class="LineNr"> 80 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L81" class="LineNr"> 81 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L30'>stream-full?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L82" class="LineNr"> 82 </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="L83" class="LineNr"> 83 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L124'>unquote-stream-to-array</a> in: (addr stream _), out: (addr handle array _) +<span id="L84" class="LineNr"> 84 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L154'>stream-first</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: byte +<span id="L85" class="LineNr"> 85 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L181'>stream-final</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: byte +<span id="L86" class="LineNr"> 86 </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="L87" class="LineNr"> 87 </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>_/eax: boolean +<span id="L88" class="LineNr"> 88 </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="L89" class="LineNr"> 89 </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="L90" class="LineNr"> 90 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L382'>check-array-equal</a> a: (addr array int), expected: (addr array byte), msg: (addr array byte) +<span id="L91" class="LineNr"> 91 </span><span class="PreProc">sig</span> <a href='314divide.subx.html#L3'>integer-divide</a> a: int, b: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEdx">edx</span>: int +<span id="L92" class="LineNr"> 92 </span><span class="PreProc">sig</span> <a href='403unicode.mu.html#L49'>to-code-point</a> in: code-point-utf8<span class="PreProc"> -> </span>_/eax: code-point +<span id="L93" class="LineNr"> 93 </span><span class="PreProc">sig</span> <a href='403unicode.mu.html#L97'>to-utf8</a> in: code-point<span class="PreProc"> -> </span>_/eax: code-point-utf8 +<span id="L94" class="LineNr"> 94 </span><span class="PreProc">sig</span> <a href='403unicode.mu.html#L229'>read-code-point-utf8</a> in: (addr stream byte)<span class="PreProc"> -> </span>_/eax: code-point-utf8 +<span id="L95" class="LineNr"> 95 </span><span class="PreProc">sig</span> <a href='403unicode.mu.html#L322'>utf8-length</a> g: code-point-utf8<span class="PreProc"> -> </span>_/<span class="muRegEdx">edx</span>: int +<span id="L96" class="LineNr"> 96 </span><span class="PreProc">sig</span> <a href='403unicode.mu.html#L342'>shift-left-bytes</a> n: int, k: int<span class="PreProc"> -> </span>_/eax: int +<span id="L97" class="LineNr"> 97 </span><span class="PreProc">sig</span> <a href='403unicode.mu.html#L389'>write-code-point-utf8</a> out: (addr stream byte), g: code-point-utf8 +<span id="L98" class="LineNr"> 98 </span><span class="PreProc">sig</span> <a href='408float.mu.html#L3'>fill-in-rational</a> _out: (addr float), nr: int, dr: int +<span id="L99" class="LineNr"> 99 </span><span class="PreProc">sig</span> <a href='408float.mu.html#L11'>fill-in-sqrt</a> _out: (addr float), n: int +<span id="L100" class="LineNr">100 </span><span class="PreProc">sig</span> <a href='408float.mu.html#L18'>rational</a> nr: int, dr: int<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float +<span id="L101" class="LineNr">101 </span><span class="PreProc">sig</span> <a href='408float.mu.html#L26'>scale-down-and-round-up</a> n: int, m: int<span class="PreProc"> -> </span>_/<span class="muRegEcx">ecx</span>: int +<span id="L102" class="LineNr">102 </span><span class="PreProc">sig</span> <a href='411string.mu.html#L2'>substring</a> in: (addr array byte), start: int, len: int, out-ah: (addr handle array byte) +<span id="L103" class="LineNr">103 </span><span class="PreProc">sig</span> <a href='411string.mu.html#L88'>split-string</a> in: (addr array byte), delim: code-point-utf8, out: (addr handle array (handle array byte)) +<span id="L104" class="LineNr">104 </span><span class="PreProc">sig</span> <a href='412render-float-decimal.mu.html#L151'>render-float-decimal</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), in: float, precision: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int +<span id="L105" class="LineNr">105 </span><span class="PreProc">sig</span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> out: (addr stream byte), in: float, precision: int +<span id="L106" class="LineNr">106 </span><span class="PreProc">sig</span> <a href='412render-float-decimal.mu.html#L251'>decimal-digits</a> n: int, _buf: (addr array byte)<span class="PreProc"> -> </span>_/eax: int +<span id="L107" class="LineNr">107 </span><span class="PreProc">sig</span> <a href='412render-float-decimal.mu.html#L268'>reverse-digits</a> _buf: (addr array byte), n: int +<span id="L108" class="LineNr">108 </span><span class="PreProc">sig</span> <a href='412render-float-decimal.mu.html#L290'>double-array-of-decimal-digits</a> _buf: (addr array byte), _n: int<span class="PreProc"> -> </span>_/eax: int +<span id="L109" class="LineNr">109 </span><span class="PreProc">sig</span> <a href='412render-float-decimal.mu.html#L341'>halve-array-of-decimal-digits</a> _buf: (addr array byte), _n: int, _dp: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEdx">edx</span>: int +<span id="L110" class="LineNr">110 </span><span class="PreProc">sig</span> <a href='412render-float-decimal.mu.html#L415'>_write-float-array-of-decimal-digits</a> out: (addr stream byte), _buf: (addr array byte), n: int, dp: int, precision: int +<span id="L111" class="LineNr">111 </span><span class="PreProc">sig</span> <a href='412render-float-decimal.mu.html#L464'>_write-float-array-of-decimal-digits-in-scientific-notation</a> out: (addr stream byte), _buf: (addr array byte), n: int, dp: int, precision: int +<span id="L112" class="LineNr">112 </span><span class="PreProc">sig</span> <a href='412render-float-decimal.mu.html#L493'>float-size</a> in: float, precision: int<span class="PreProc"> -> </span>_/eax: int +<span id="L113" class="LineNr">113 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L34'>initialize-screen</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), width: int, height: int, pixel-graphics?: boolean +<span id="L114" class="LineNr">114 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L75'>screen-size</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>)<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L115" class="LineNr">115 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L94'>draw-code-point</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), c: code-point, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int +<span id="L116" class="LineNr">116 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L114'>overlay-code-point</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), c: code-point, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int +<span id="L117" class="LineNr">117 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L135'>draw-narrow-code-point-on-fake-screen</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), c: code-point, x: int, y: int, color: int, background-color: int +<span id="L118" class="LineNr">118 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L184'>draw-wide-code-point-on-fake-screen</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), c: code-point, x: int, y: int, color: int, background-color: int +<span id="L119" class="LineNr">119 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L244'>screen-cell-index</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), x: int, y: int<span class="PreProc"> -> </span>_/<span class="muRegEcx">ecx</span>: int +<span id="L120" class="LineNr">120 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L253'>cursor-position</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>)<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L121" class="LineNr">121 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L269'>set-cursor-position</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), x: int, y: int +<span id="L122" class="LineNr">122 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L316'>draw-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), c: code-point +<span id="L123" class="LineNr">123 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L330'>clear-screen</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) +<span id="L124" class="LineNr">124 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L373'>fake-screen-empty?</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L125" class="LineNr">125 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L432'>clear-rect</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), xmin: int, ymin: int, xmax: int, ymax: int, background-color: int +<span id="L126" class="LineNr">126 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L464'>clear-real-screen</a> +<span id="L127" class="LineNr">127 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L482'>clear-rect-on-real-screen</a> xmin: int, ymin: int, xmax: int, ymax: int, background-color: int +<span id="L128" class="LineNr">128 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L506'>screen-cell-unused-at?</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), x: int, y: int<span class="PreProc"> -> </span>_/eax: boolean +<span id="L129" class="LineNr">129 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L513'>screen-cell-unused-at-index?</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _index: int<span class="PreProc"> -> </span>_/eax: boolean +<span id="L130" class="LineNr">130 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L524'>screen-code-point-at</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), x: int, y: int<span class="PreProc"> -> </span>_/eax: code-point +<span id="L131" class="LineNr">131 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L531'>screen-code-point-at-index</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _index: int<span class="PreProc"> -> </span>_/eax: code-point +<span id="L132" class="LineNr">132 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L542'>screen-color-at</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), x: int, y: int<span class="PreProc"> -> </span>_/eax: int +<span id="L133" class="LineNr">133 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L549'>screen-color-at-index</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _index: int<span class="PreProc"> -> </span>_/eax: int +<span id="L134" class="LineNr">134 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L561'>screen-background-color-at</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), x: int, y: int<span class="PreProc"> -> </span>_/eax: int +<span id="L135" class="LineNr">135 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L568'>screen-background-color-at-index</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _index: int<span class="PreProc"> -> </span>_/eax: int +<span id="L136" class="LineNr">136 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L580'>pixel</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), x: int, y: int, color: int +<span id="L137" class="LineNr">137 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L630'>pixel-index</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), x: int, y: int<span class="PreProc"> -> </span>_/<span class="muRegEcx">ecx</span>: int +<span id="L138" class="LineNr">138 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L643'>copy-pixels</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), target-screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) +<span id="L139" class="LineNr">139 </span><span class="PreProc">sig</span> <a href='500fake-screen.mu.html#L683'>convert-screen-cells-to-pixels</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) +<span id="L140" class="LineNr">140 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L3'>move-cursor-left</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) +<span id="L141" class="LineNr">141 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L16'>move-cursor-right</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) +<span id="L142" class="LineNr">142 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L34'>move-cursor-up</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) +<span id="L143" class="LineNr">143 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L47'>move-cursor-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) +<span id="L144" class="LineNr">144 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>) +<span id="L145" class="LineNr">145 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), c: code-point, color: int, background-color: int +<span id="L146" class="LineNr">146 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L106'>draw-text-rightward</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), x: int, xmax: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int +<span id="L147" class="LineNr">147 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L117'>draw-stream-rightward</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), x: int, xmax: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int +<span id="L148" class="LineNr">148 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L132'>draw-text-rightward-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int +<span id="L149" class="LineNr">149 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L140'>draw-text-rightward-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), xmax: int, color: int, background-color: int +<span id="L150" class="LineNr">150 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L148'>draw-text-rightward-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), color: int, background-color: int +<span id="L151" class="LineNr">151 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L155'>render-code-point</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), c: code-point, xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L152" class="LineNr">152 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L181'>draw-text-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L153" class="LineNr">153 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L206'>draw-stream-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L154" class="LineNr">154 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L273'>draw-stream-wrapping-right-then-down-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int +<span id="L155" class="LineNr">155 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L288'>draw-stream-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), color: int, background-color: int +<span id="L156" class="LineNr">156 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L295'>move-cursor-rightward-and-downward</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), xmin: int, xmax: int +<span id="L157" class="LineNr">157 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L309'>draw-text-wrapping-right-then-down-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L158" class="LineNr">158 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L317'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int +<span id="L159" class="LineNr">159 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L332'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), color: int, background-color: int +<span id="L160" class="LineNr">160 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L339'>draw-int32-hex-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L161" class="LineNr">161 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L364'>draw-int32-hex-wrapping-right-then-down-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L162" class="LineNr">162 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L372'>draw-int32-hex-wrapping-right-then-down-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int +<span id="L163" class="LineNr">163 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L387'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, color: int, background-color: int +<span id="L164" class="LineNr">164 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L394'>draw-int32-decimal-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L165" class="LineNr">165 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L419'>draw-int32-decimal-wrapping-right-then-down-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L166" class="LineNr">166 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L427'>draw-int32-decimal-wrapping-right-then-down-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int +<span id="L167" class="LineNr">167 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L442'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), n: int, color: int, background-color: int +<span id="L168" class="LineNr">168 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L454'>draw-text-downward</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), x: int, y: int, ymax: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int +<span id="L169" class="LineNr">169 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L466'>draw-stream-downward</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), x: int, y: int, ymax: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int +<span id="L170" class="LineNr">170 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L481'>draw-text-downward-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), ymax: int, color: int, background-color: int +<span id="L171" class="LineNr">171 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L492'>draw-text-wrapping-down-then-right</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L172" class="LineNr">172 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L507'>draw-stream-wrapping-down-then-right</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), stream: (addr stream byte), xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L173" class="LineNr">173 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L529'>draw-text-wrapping-down-then-right-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L174" class="LineNr">174 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L537'>draw-text-wrapping-down-then-right-from-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int +<span id="L175" class="LineNr">175 </span><span class="PreProc">sig</span> <a href='501draw-text.mu.html#L552'>draw-text-wrapping-down-then-right-from-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), text: (addr array byte), color: int, background-color: int +<span id="L176" class="LineNr">176 </span><span class="PreProc">sig</span> <a href='502test.mu.html#L2'>check-ints-equal</a> _a: int, b: int, msg: (addr array byte) +<span id="L177" class="LineNr">177 </span><span class="PreProc">sig</span> <a href='502test.mu.html#L19'>check</a> _a: boolean, msg: (addr array byte) +<span id="L178" class="LineNr">178 </span><span class="PreProc">sig</span> <a href='502test.mu.html#L32'>check-not</a> _a: boolean, msg: (addr array byte) +<span id="L179" class="LineNr">179 </span><span class="PreProc">sig</span> <a href='503manhattan-line.mu.html#L1'>draw-box-on-real-screen</a> x1: int, y1: int, x2: int, y2: int, color: int +<span id="L180" class="LineNr">180 </span><span class="PreProc">sig</span> <a href='503manhattan-line.mu.html#L8'>draw-horizontal-line-on-real-screen</a> x1: int, x2: int, y: int, color: int +<span id="L181" class="LineNr">181 </span><span class="PreProc">sig</span> <a href='503manhattan-line.mu.html#L19'>draw-vertical-line-on-real-screen</a> x: int, y1: int, y2: int, color: int +<span id="L182" class="LineNr">182 </span><span class="PreProc">sig</span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), y: int, expected: (addr array byte), msg: (addr array byte) +<span id="L183" class="LineNr">183 </span><span class="PreProc">sig</span> <a href='504test-screen.mu.html#L11'>check-screen-row-from</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), x: int, y: int, expected: (addr array byte), msg: (addr array byte) +<span id="L184" class="LineNr">184 </span><span class="PreProc">sig</span> <a href='504test-screen.mu.html#L75'>check-screen-row-in-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), fg: int, y: int, expected: (addr array byte), msg: (addr array byte) +<span id="L185" class="LineNr">185 </span><span class="PreProc">sig</span> <a href='504test-screen.mu.html#L79'>check-screen-row-in-color-from</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), fg: int, y: int, x: int, expected: (addr array byte), msg: (addr array byte) +<span id="L186" class="LineNr">186 </span><span class="PreProc">sig</span> <a href='504test-screen.mu.html#L169'>check-screen-row-in-background-color</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), bg: int, y: int, expected: (addr array byte), msg: (addr array byte) +<span id="L187" class="LineNr">187 </span><span class="PreProc">sig</span> <a href='504test-screen.mu.html#L173'>check-screen-row-in-background-color-from</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), bg: int, y: int, x: int, expected: (addr array byte), msg: (addr array byte) +<span id="L188" class="LineNr">188 </span><span class="PreProc">sig</span> <a href='504test-screen.mu.html#L267'>check-background-color-in-screen-row</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), bg: int, y: int, expected-bitmap: (addr array byte), msg: (addr array byte) +<span id="L189" class="LineNr">189 </span><span class="PreProc">sig</span> <a href='504test-screen.mu.html#L271'>check-background-color-in-screen-row-from</a> _screen: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), bg: int, y: int, x: int, expected-bitmap: (addr array byte), msg: (addr array byte) +<span id="L190" class="LineNr">190 </span><span class="PreProc">sig</span> <a href='505colors.mu.html#L1'>nearest-color-euclidean</a> r: int, g: int, b: int<span class="PreProc"> -> </span>_/eax: int +<span id="L191" class="LineNr">191 </span><span class="PreProc">sig</span> <a href='505colors.mu.html#L27'>euclidean-distance-squared</a> r1: int, g1: int, b1: int, r2: int, g2: int, b2: int<span class="PreProc"> -> </span>_/eax: int +<span id="L192" class="LineNr">192 </span><span class="PreProc">sig</span> <a href='505colors.mu.html#L51'>hsl</a> r: int, g: int, b: int<span class="PreProc"> -> </span>_/<span class="muRegEcx">ecx</span>: int, _/<span class="muRegEdx">edx</span>: int, _/<span class="muRegEbx">ebx</span>: int +<span id="L193" class="LineNr">193 </span><span class="PreProc">sig</span> <a href='505colors.mu.html#L260'>nearest-color-euclidean-hsl</a> h: int, s: int, l: int<span class="PreProc"> -> </span>_/eax: int +<span id="L194" class="LineNr">194 </span><span class="PreProc">sig</span> <a href='505colors.mu.html#L316'>euclidean-hsl-squared</a> h1: int, s1: int, l1: int, h2: int, s2: int, l2: int<span class="PreProc"> -> </span>_/eax: int +<span id="L195" class="LineNr">195 </span><span class="PreProc">sig</span> <a href='505colors.mu.html#L340'>maximum</a> a: int, b: int<span class="PreProc"> -> </span>_/eax: int +<span id="L196" class="LineNr">196 </span><span class="PreProc">sig</span> <a href='505colors.mu.html#L350'>minimum</a> a: int, b: int<span class="PreProc"> -> </span>_/eax: int +<span id="L197" class="LineNr">197 </span><span class="PreProc">sig</span> <a href='506math.mu.html#L1'>abs</a> n: int<span class="PreProc"> -> </span>_/eax: int +<span id="L198" class="LineNr">198 </span><span class="PreProc">sig</span> <a href='506math.mu.html#L10'>sgn</a> n: int<span class="PreProc"> -> </span>_/eax: int +<span id="L199" class="LineNr">199 </span><span class="PreProc">sig</span> <a href='506math.mu.html#L23'>shift-left-by</a> n: int, bits: int<span class="PreProc"> -> </span>_/eax: int +<span id="L200" class="LineNr">200 </span><span class="PreProc">sig</span> <a href='506math.mu.html#L35'>shift-right-by</a> n: int, bits: int<span class="PreProc"> -> </span>_/eax: int +<span id="L201" class="LineNr">201 </span><span class="PreProc">sig</span> <a href='506math.mu.html#L47'>clear-lowest-bits</a> _n: (addr int), bits: int +<span id="L202" class="LineNr">202 </span><span class="PreProc">sig</span> <a href='507line.mu.html#L1'>draw-line</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), x0: int, y0: int, x1: int, y1: int, color: int +<span id="L203" class="LineNr">203 </span><span class="PreProc">sig</span> <a href='507line.mu.html#L64'>draw-horizontal-line</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), y: int, x0: int, x1: int, color: int +<span id="L204" class="LineNr">204 </span><span class="PreProc">sig</span> <a href='507line.mu.html#L75'>draw-vertical-line</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), x: int, y0: int, y1: int, color: int +<span id="L205" class="LineNr">205 </span><span class="PreProc">sig</span> <a href='507line.mu.html#L86'>draw-rect</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), xmin: int, ymin: int, xmax: int, ymax: int, color: int +<span id="L206" class="LineNr">206 </span><span class="PreProc">sig</span> <a href='507line.mu.html#L98'>line-point</a> u: float, x0: int, x1: int<span class="PreProc"> -> </span>_/eax: int +<span id="L207" class="LineNr">207 </span><span class="PreProc">sig</span> <a href='508circle.mu.html#L1'>draw-circle</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), cx: int, cy: int, radius: int, color: int +<span id="L208" class="LineNr">208 </span><span class="PreProc">sig</span> <a href='508circle.mu.html#L80'>draw-disc</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), cx: int, cy: int, radius: int, color: int, border-color: int +<span id="L209" class="LineNr">209 </span><span class="PreProc">sig</span> <a href='509bezier.mu.html#L14'>draw-monotonic-bezier</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), x0: int, y0: int, x1: int, y1: int, x2: int, y2: int, color: int +<span id="L210" class="LineNr">210 </span><span class="PreProc">sig</span> <a href='509bezier.mu.html#L298'>bezier-point</a> u: float, x0: int, x1: int, x2: int<span class="PreProc"> -> </span>_/eax: int +<span id="L211" class="LineNr">211 </span><span class="PreProc">sig</span> <a href='510disk.mu.html#L1'>load-sectors</a> disk: (addr disk), lba: int, n: int, out: (addr stream byte) +<span id="L212" class="LineNr">212 </span><span class="PreProc">sig</span> <a href='510disk.mu.html#L23'>store-sectors</a> disk: (addr disk), lba: int, n: int, in: (addr stream byte) +<span id="L213" class="LineNr">213 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L17'>initialize-image</a> _self: (addr <a href='511image.mu.html#L6'>image</a>), in: (addr stream byte) +<span id="L214" class="LineNr">214 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L55'>render-image</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _img: (addr <a href='511image.mu.html#L6'>image</a>), xmin: int, ymin: int, width: int, height: int +<span id="L215" class="LineNr">215 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L88'>initialize-image-from-pbm</a> _self: (addr <a href='511image.mu.html#L6'>image</a>), in: (addr stream byte) +<span id="L216" class="LineNr">216 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L127'>render-pbm-image</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _img: (addr <a href='511image.mu.html#L6'>image</a>), xmin: int, ymin: int, width: int, height: int +<span id="L217" class="LineNr">217 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L200'>initialize-image-from-pgm</a> _self: (addr <a href='511image.mu.html#L6'>image</a>), in: (addr stream byte) +<span id="L218" class="LineNr">218 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L249'>render-pgm-image</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _img: (addr <a href='511image.mu.html#L6'>image</a>), xmin: int, ymin: int, width: int, height: int +<span id="L219" class="LineNr">219 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L316'>nearest-grey</a> level-255: byte<span class="PreProc"> -> </span>_/eax: int +<span id="L220" class="LineNr">220 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L323'>dither-pgm-unordered-monochrome</a> _src: (addr <a href='511image.mu.html#L6'>image</a>), _dest: (addr <a href='511image.mu.html#L6'>image</a>) +<span id="L221" class="LineNr">221 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L391'>dither-pgm-unordered</a> _src: (addr <a href='511image.mu.html#L6'>image</a>), _dest: (addr <a href='511image.mu.html#L6'>image</a>) +<span id="L222" class="LineNr">222 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L496'>_diffuse-dithering-error-floyd-steinberg</a> errors: (addr array int), x: int, y: int, width: int, height: int, <span class="Special">error</span>: int +<span id="L223" class="LineNr">223 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L557'>_accumulate-dithering-error</a> errors: (addr array int), x: int, y: int, width: int, <span class="Special">error</span>: int +<span id="L224" class="LineNr">224 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L563'>_read-dithering-error</a> _errors: (addr array int), x: int, y: int, width: int<span class="PreProc"> -> </span>_/<span class="muRegEsi">esi</span>: int +<span id="L225" class="LineNr">225 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L572'>_write-dithering-error</a> _errors: (addr array int), x: int, y: int, width: int, val: int +<span id="L226" class="LineNr">226 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L584'>_read-pgm-buffer</a> _buf: (addr array byte), x: int, y: int, width: int<span class="PreProc"> -> </span>_/eax: byte +<span id="L227" class="LineNr">227 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L594'>_write-raw-buffer</a> _buf: (addr array byte), x: int, y: int, width: int, val: byte +<span id="L228" class="LineNr">228 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L605'>show-errors</a> errors: (addr array int), width: int, height: int, x: int, y: int +<span id="L229" class="LineNr">229 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L635'>psd</a> s: (addr array byte), d: int, fg: int, x: int, y: int +<span id="L230" class="LineNr">230 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L660'>psx</a> s: (addr array byte), d: int, fg: int, x: int, y: int +<span id="L231" class="LineNr">231 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L686'>initialize-image-from-ppm</a> _self: (addr <a href='511image.mu.html#L6'>image</a>), in: (addr stream byte) +<span id="L232" class="LineNr">232 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L740'>render-ppm-image</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _img: (addr <a href='511image.mu.html#L6'>image</a>), xmin: int, ymin: int, width: int, height: int +<span id="L233" class="LineNr">233 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L836'>dither-ppm-unordered</a> _src: (addr <a href='511image.mu.html#L6'>image</a>), _dest: (addr <a href='511image.mu.html#L6'>image</a>) +<span id="L234" class="LineNr">234 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L989'>_ppm-error</a> buf: (addr array byte), x: int, y: int, width: int, channel: int, _scale-f: float<span class="PreProc"> -> </span>_/eax: int +<span id="L235" class="LineNr">235 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L1003'>_error-to-ppm-channel</a> <span class="Special">error</span>: int<span class="PreProc"> -> </span>_/eax: int +<span id="L236" class="LineNr">236 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L1021'>_read-ppm-buffer</a> _buf: (addr array byte), x: int, y: int, width: int, channel: int<span class="PreProc"> -> </span>_/eax: byte +<span id="L237" class="LineNr">237 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L1035'>render-raw-image</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _img: (addr <a href='511image.mu.html#L6'>image</a>), xmin: int, ymin: int, width: int, height: int +<span id="L238" class="LineNr">238 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L1102'>scale-image-height</a> _img: (addr <a href='511image.mu.html#L6'>image</a>), width: int<span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: int +<span id="L239" class="LineNr">239 </span><span class="PreProc">sig</span> <a href='511image.mu.html#L1115'>next-word-skipping-comments</a> line: (addr stream byte), out: (addr slice) +<span id="L240" class="LineNr">240 </span><span class="PreProc">sig</span> <a href='512array.mu.html#L5'>slide-up</a> _a: (addr array int), start: int, end: int, target: int +<span id="L241" class="LineNr">241 </span><span class="PreProc">sig</span> <a href='512array.mu.html#L35'>slide-down</a> _a: (addr array int), start: int, end: int, target: int +<span id="L242" class="LineNr">242 </span><span class="PreProc">sig</span> <a href='512array.mu.html#L86'>find-slide-down-slot-in-array</a> _a: (addr array int), _val: int<span class="PreProc"> -> </span>_/<span class="muRegEcx">ecx</span>: int +<span id="L243" class="LineNr">243 </span><span class="PreProc">sig</span> <a href='512array.mu.html#L105'>check-slide-up</a> before: (addr array byte), start: int, end: int, target: int, after: (addr array byte), msg: (addr array byte) +<span id="L244" class="LineNr">244 </span><span class="PreProc">sig</span> <a href='512array.mu.html#L114'>check-slide-down</a> before: (addr array byte), start: int, end: int, target: int, after: (addr array byte), msg: (addr array byte) +<span id="L245" class="LineNr">245 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L8'>initialize-code-point-utf8-stack</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), n: int +<span id="L246" class="LineNr">246 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L16'>clear-code-point-utf8-stack</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) +<span id="L247" class="LineNr">247 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L22'>code-point-utf8-stack-empty?</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L248" class="LineNr">248 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L33'>code-point-utf8-stack-length</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>)<span class="PreProc"> -> </span>_/eax: int +<span id="L249" class="LineNr">249 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L39'>push-code-point-utf8-stack</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), _val: code-point-utf8 +<span id="L250" class="LineNr">250 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L51'>pop-code-point-utf8-stack</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 +<span id="L251" class="LineNr">251 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L67'>copy-code-point-utf8-stack</a> _src: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), dest: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>) +<span id="L252" class="LineNr">252 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L87'>render-stack-from-bottom-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a>: boolean, open-paren-depth: int, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L253" class="LineNr">253 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L126'>render-stack-from-bottom</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), x: int, y: int, <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a>: boolean, open-paren-depth: int<span class="PreProc"> -> </span>_/eax: int +<span id="L254" class="LineNr">254 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L143'>render-stack-from-top-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, render-cursor?: boolean, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L255" class="LineNr">255 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L199'>render-stack-from-top</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), x: int, y: int, render-cursor?: boolean<span class="PreProc"> -> </span>_/eax: int +<span id="L256" class="LineNr">256 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L393'>get-matching-close-paren-index</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), render-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="muRegEdx">edx</span>: int +<span id="L257" class="LineNr">257 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L449'>get-matching-open-paren-index</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), control: boolean, depth: int<span class="PreProc"> -> </span>_/<span class="muRegEdx">edx</span>: int +<span id="L258" class="LineNr">258 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L497'>prefix-match?</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L259" class="LineNr">259 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L525'>suffix-match?</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L260" class="LineNr">260 </span><span class="PreProc">sig</span> <a href='513grapheme-stack.mu.html#L552'>code-point-utf8-stack-is-decimal-integer?</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L261" class="LineNr">261 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L11'>initialize-gap-buffer</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), capacity: int +<span id="L262" class="LineNr">262 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L19'>clear-gap-buffer</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L263" class="LineNr">263 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L27'>gap-buffer-empty?</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L264" class="LineNr">264 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L43'>gap-buffer-capacity</a> _gap: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="muRegEdx">edx</span>: int +<span id="L265" class="LineNr">265 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L52'>initialize-gap-buffer-with</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), keys: (addr array byte) +<span id="L266" class="LineNr">266 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L67'>load-gap-buffer-from-stream</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), in: (addr stream byte) +<span id="L267" class="LineNr">267 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L82'>emit-gap-buffer</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte) +<span id="L268" class="LineNr">268 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L87'>append-gap-buffer</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte) +<span id="L269" class="LineNr">269 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L96'>emit-stack-from-bottom</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), out: (addr stream byte) +<span id="L270" class="LineNr">270 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L114'>emit-stack-from-top</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), out: (addr stream byte) +<span id="L271" class="LineNr">271 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L132'>word-at-gap</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte) +<span id="L272" class="LineNr">272 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L243'>code-point-utf8-at-gap</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 +<span id="L273" class="LineNr">273 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L275'>top-most-word</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>)<span class="PreProc"> -> </span>_/eax: int +<span id="L274" class="LineNr">274 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L297'>emit-stack-from-index</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), start: int, out: (addr stream byte) +<span id="L275" class="LineNr">275 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L314'>emit-stack-to-index</a> _self: (addr <a href='513grapheme-stack.mu.html#L3'>code-point-utf8-stack</a>), end: int, out: (addr stream byte) +<span id="L276" class="LineNr">276 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L334'>is-ascii-word-code-point-utf8?</a> g: code-point-utf8<span class="PreProc"> -> </span>_/eax: boolean +<span id="L277" class="LineNr">277 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L385'>render-gap-buffer-wrapping-right-then-down</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), _gap: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), xmin: int, ymin: int, xmax: int, ymax: int, render-cursor?: boolean, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int, _/<span class="muRegEcx">ecx</span>: int +<span id="L278" class="LineNr">278 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L416'>render-gap-buffer</a> <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), gap: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), x: int, y: int, render-cursor?: boolean, color: int, background-color: int<span class="PreProc"> -> </span>_/eax: int +<span id="L279" class="LineNr">279 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L428'>gap-buffer-length</a> _gap: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: int +<span id="L280" class="LineNr">280 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L440'>add-code-point-utf8-at-gap</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), g: code-point-utf8 +<span id="L281" class="LineNr">281 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L446'>add-code-point-at-gap</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), c: code-point +<span id="L282" class="LineNr">282 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L451'>gap-to-start</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L283" class="LineNr">283 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L459'>gap-to-end</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L284" class="LineNr">284 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L467'>gap-at-start?</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L285" class="LineNr">285 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L474'>gap-at-end?</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L286" class="LineNr">286 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L481'>gap-right</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 +<span id="L287" class="LineNr">287 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L495'>gap-left</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 +<span id="L288" class="LineNr">288 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L511'>index-of-gap</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: int +<span id="L289" class="LineNr">289 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L519'>first-code-point-utf8-in-gap-buffer</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 +<span id="L290" class="LineNr">290 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L549'>code-point-utf8-before-cursor-in-gap-buffer</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 +<span id="L291" class="LineNr">291 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L565'>delete-before-gap</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L292" class="LineNr">292 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L571'>pop-after-gap</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 +<span id="L293" class="LineNr">293 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L578'>gap-buffer-equal?</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), s: (addr array byte)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L294" class="LineNr">294 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L663'>gap-buffers-equal?</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), g: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L295" class="LineNr">295 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L690'>gap-index</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), _n: int<span class="PreProc"> -> </span>_/eax: code-point-utf8 +<span id="L296" class="LineNr">296 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L783'>copy-gap-buffer</a> _src-ah: (addr handle <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), _dest-ah: (addr handle <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L297" class="LineNr">297 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L801'>gap-buffer-is-decimal-integer?</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L298" class="LineNr">298 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L942'>highlight-matching-open-paren?</a> _gap: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), render-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="muRegEbx">ebx</span>: boolean, _/<span class="muRegEdi">edi</span>: int +<span id="L299" class="LineNr">299 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L1014'>rewind-gap-buffer</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L300" class="LineNr">300 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L1022'>gap-buffer-scan-done?</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: boolean +<span id="L301" class="LineNr">301 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L1046'>peek-from-gap-buffer</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 +<span id="L302" class="LineNr">302 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L1082'>read-from-gap-buffer</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/eax: code-point-utf8 +<span id="L303" class="LineNr">303 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L1120'>put-back-from-gap-buffer</a> _self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L304" class="LineNr">304 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L1189'>skip-spaces-from-gap-buffer</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L305" class="LineNr">305 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L1203'>edit-gap-buffer</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>), key: code-point-utf8 +<span id="L306" class="LineNr">306 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L1277'>gap-to-start-of-next-word</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L307" class="LineNr">307 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L1304'>gap-to-end-of-previous-word</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L308" class="LineNr">308 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L1331'>gap-to-previous-start-of-line</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L309" class="LineNr">309 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L1352'>gap-to-next-end-of-line</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L310" class="LineNr">310 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L1373'>gap-up</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L311" class="LineNr">311 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L1400'>gap-down</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L312" class="LineNr">312 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L1428'>count-columns-to-start-of-line</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="muRegEdx">edx</span>: int +<span id="L313" class="LineNr">313 </span><span class="PreProc">sig</span> <a href='514gap-buffer.mu.html#L1451'>gap-to-end-of-line</a> self: (addr <a href='514gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L314" class="LineNr">314 </span><span class="PreProc">sig</span> <a href='515parse-float.mu.html#L2'>parse-float-decimal</a> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">xmm1</span>: float +<span id="L315" class="LineNr">315 </span><span class="PreProc">sig</span> <a href='516read-line.mu.html#L3'>read-line-from-keyboard</a> keyboard: (addr keyboard), out: (addr stream byte), <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), fg: int, bg: int +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> |